diff --git a/include/inc/ExceptionReport.h b/include/inc/ExceptionReport.h new file mode 100644 index 0000000..996f8d4 --- /dev/null +++ b/include/inc/ExceptionReport.h @@ -0,0 +1,135 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2003-2204, All Rights Reserved */ +/* */ +/* MODULE NAME : ExceptionReport.h */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : Unhandled Exception Handler */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 02/13/06 DSF 03 Migrate to VS.NET 2005 */ +/* 06/30/05 DSF 02 Generate a mini dump */ +/* 12/20/04 DSF 01 Minor usability changes */ +/* Stack State recorder */ +/************************************************************************/ + +#pragma once + +#include "glbtypes.h" +#include "sysincs.h" +#include "slog.h" +#include "mem_chk.h" +#include +#include +#include +#include +#include +#include +using namespace std; + +enum BasicType // Stolen from CVCONST.H in the DIA 2.0 SDK +{ + btNoType = 0, + btVoid = 1, + btChar = 2, + btWChar = 3, + btInt = 6, + btUInt = 7, + btFloat = 8, + btBCD = 9, + btBool = 10, + btLong = 13, + btULong = 14, + btCurrency = 25, + btDate = 26, + btVariant = 27, + btComplex = 28, + btBit = 29, + btBSTR = 30, + btHresult = 31 +}; + +class WheatyExceptionReport +{ + public: + + WheatyExceptionReport( ); + WheatyExceptionReport( bool terminate ); + ~WheatyExceptionReport( ); + + void SetLogFileName( PTSTR pszLogFileName ); + + + // entry point where control comes on an unhandled exception + static LONG WINAPI WheatyUnhandledExceptionFilter( + PEXCEPTION_POINTERS pExceptionInfo ); + + static BOOL GetLogicalAddress( PVOID addr, PTSTR szModule, DWORD len, + DWORD& section, DWORD& offset ); + + private: + + // where report info is extracted and generated + static void GenerateExceptionReport( PEXCEPTION_POINTERS pExceptionInfo ); + + // where mini dump is generated + static void GenerateDumpFile( PEXCEPTION_POINTERS pExceptionInfo ); + + // Helper functions + static LPTSTR GetExceptionString( DWORD dwCode ); + static void WriteStackDetails( PCONTEXT pContext, bool bWriteVariables ); + + static BOOL CALLBACK EnumerateSymbolsCallback(PSYMBOL_INFO,ULONG, PVOID); + + static bool FormatSymbolValue( PSYMBOL_INFO, STACKFRAME *, char * pszBuffer, unsigned cbBuffer ); + + static char * DumpTypeIndex( char *, DWORD64, DWORD, unsigned, DWORD_PTR, bool & ); + + static char * FormatOutputValue( char * pszCurrBuffer, BasicType basicType, DWORD64 length, PVOID pAddress ); + + static BasicType GetBasicType( DWORD typeIndex, DWORD64 modBase ); + + static int __cdecl _tprintf(const TCHAR * format, ...); + + // Variables used by the class + static TCHAR m_szLogFileName[MAX_PATH]; + static TCHAR m_szDumpFileName[MAX_PATH]; + static LOG_CTRL m_logCtrl; + static LPTOP_LEVEL_EXCEPTION_FILTER m_previousFilter; + static HANDLE m_hReportFile; + static HANDLE m_hProcess; + static bool m_bTerminate; +}; + + +extern WheatyExceptionReport g_WheatyExceptionReport; // global instance of class + +struct SourceInfo + { + string filename; + long linenum; + }; + +struct StackInfo + { + DWORD threadID; + SYSTEMTIME timestamp; + vector stack; + + void Log (); + }; + +void GetStackInfo (StackInfo& stackInfo); + +extern "C" void ExpInit (); +extern "C" void ExpRaiseDebugException (); +extern "C" void ExpSetLogCtrl (LOG_CTRL *pLogCtrl); + + diff --git a/include/inc/Goose.h b/include/inc/Goose.h new file mode 100644 index 0000000..88af00b --- /dev/null +++ b/include/inc/Goose.h @@ -0,0 +1,223 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1999-2002, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : goose.h */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 07/23/08 JRB 10 Fix len of gcRef, dataSetRef, appID. */ +/* 09/11/07 JRB 09 Add gse_iec_enc_part1, gse_iec_enc_part2. */ +/* Chg gcRef, dataSetRef, appID data type from */ +/* char ptr to char array (reduces allocation). */ +/* Fix type of numDataEntries, confRev. */ +/* 01/08/03 JRB 08 Del obsolete dataRef, elementId from structs */ +/* & from gse_iec_data_init args. */ +/* 12/03/02 ASK 07 Chg Goose structs for new ASN.1 encoding. Chg*/ +/* gse_iec_encode and gse_iec_hdr_decode protos */ +/* for Ethertype. include "ethertyp.h" */ +/* 09/30/02 NAV 06 Add ifdef __cplusplus */ +/* 02/26/02 JRB 05 Chg IEC GOOSE asn1Data args to UCHAR. */ +/* Chg some IEC GOOSE decode params to INT32. */ +/* 01/02/02 JRB 04 Add IEC GOOSE definitions. */ +/* 07/25/00 RKR 03 changed VisibleString SendingIED to ST_CHAR */ +/* 09/10/99 JRB 02 Chg SqNum, StNum, HoldTim, & BackTim */ +/* to UINT32 to match GOMSFE 0.9. */ +/* 06/25/99 MDE 01 Created */ +/************************************************************************/ +#ifndef GOOSE_HDR_INCLUDED +#define GOOSE_HDR_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "asn1r.h" /* need MMS_UTC_TIME */ +#include "clnp_usr.h" +#include "clnp_sne.h" +#include "acse2usr.h" +#include "ethertyp.h" +#include "mvl_defs.h" /* need MVL61850_MAX_* defines. */ +/* NOTE: need runtime_type from "mms_vvar.h" but requires bunch of */ +/* other includes, so just use forward declaration. */ +struct runtime_type; /* forward declaration */ + +/************************************************************************/ + + +#define GOOSE_NAME_MISMATCH 0x112 +#define GOOSE_DONE_TOO_SOON 0x113 + +/************************************************************************/ +#define GOOSE_MAX_NUM_DNA_BITS 128 +#define GOOSE_MAX_NUM_USR_BITS 512 + +#define GOOSE_DEF_NUM_DNA_BITS 64 +#define GOOSE_DEF_NUM_USR_BITS 128 + +typedef struct + { +/* GOOSE Stack addressing information */ + AUDT_APDU audtApdu; + +/* GOOSE MMS values */ + ST_CHAR SendingIED[66]; + MMS_BTOD t; + ST_UINT32 SqNum; + ST_UINT32 StNum; + ST_UINT32 HoldTim; + ST_UINT32 BackTim; + ST_UINT16 PhsID; + + ST_INT num_dna_bits; + ST_UCHAR DNA[GOOSE_MAX_NUM_DNA_BITS/8]; + + ST_INT num_usr_bits; + ST_UCHAR UserSt[GOOSE_MAX_NUM_USR_BITS/8]; + } GOOSE_INFO; + +/************************************************************************/ +/* The user makes use of these functions to send and receive GOOSE */ +/* messages. */ + +ST_RET mmsl_send_goose (GOOSE_INFO *gi); +ST_VOID u_mmsl_goose_received (GOOSE_INFO *goose_info); + +/************************************************************************/ +/* Internal */ + +#define GOOSE_MAX_PDU_SIZE 200 + +/* Define macro so new function just calls old function. */ +#define gse_uca_write(gi) mmsl_send_goose (gi) + +ST_RET gse_uca_decode (SN_UNITDATA *sn_udt, /* input subnet packet */ + GOOSE_INFO *goose_info); /* output GOOSE data */ + +/************************************************************************/ +/* BEGIN IEC GOOSE DEFINITIONS */ +/************************************************************************/ +typedef struct + { + struct runtime_type *runtimeTypeHead; /* Array of Runtime Types */ + ST_INT numRuntimeTypes; /* # of Runtime Types in array */ + ST_CHAR *dataBuf; /* ptr to local data */ + ST_VOID *userInfo; /* To store anything user wants.*/ + /* GSE code does not use it. */ + } GSE_IEC_DATA_ENTRY; + +typedef struct + { + ST_UINT8 *asn1Ptr; + ST_INT asn1Len; + } GSE_IEC_DATA_ENTRY_RX; + +typedef struct + { + ST_CHAR gcRef [MVL61850_MAX_OBJREF_LEN+1]; /* GoCBRef in IEC 61850 */ + ST_UINT32 timeToLive; + ST_CHAR dataSetRef [MVL61850_MAX_OBJREF_LEN+1];/* DatSet in IEC 61850 */ + ST_BOOLEAN appID_pres; + ST_CHAR appID [MVL61850_MAX_RPTID_LEN+1]; /* GoID in IEC 61850 */ + /* (was AppID in Ed 1) */ + MMS_UTC_TIME utcTime; + ST_UINT32 stNum; + ST_UINT32 sqNum; + ST_BOOLEAN test; + ST_UINT32 confRev; + ST_BOOLEAN needsCommissioning; + ST_INT32 numDataEntries; + GSE_IEC_DATA_ENTRY *dataEntries; /* array of data entry structs */ + }GSE_IEC_CTRL; + +typedef struct + { + ST_CHAR *gcRef; + ST_UINT32 timeToLive; + ST_CHAR *dataSetRef; + ST_BOOLEAN appID_pres; + ST_CHAR *appID; + MMS_UTC_TIME utcTime; + ST_UINT32 stNum; + ST_UINT32 sqNum; + ST_BOOLEAN test; + ST_UINT32 confRev; + ST_BOOLEAN needsCommissioning; + ST_INT32 numDataEntries; + ST_INT tmpIndex; /* index to current entry in "dataEntries" array.*/ + /* Used during decode when filling in "dataEntries".*/ + GSE_IEC_DATA_ENTRY_RX *dataEntries; /* array of data entry structs */ + }GSE_IEC_HDR; + +/* Subnet functions (clnp_snet_*) must be used to set multicast filters.*/ +/* The following "gse_*" macros may be used to access these functions. */ +#define gse_set_multicast_filter clnp_snet_set_multicast_filter +#define gse_discovery_start clnp_snet_rx_all_multicast_start +#define gse_discovery_stop clnp_snet_rx_all_multicast_stop + +GSE_IEC_HDR *gse_iec_hdr_decode (ST_UCHAR *apdu, ST_INT apdu_len); +/* After calling "gse_iec_hdr_decode", user can examine "dataEntries" */ +/* array in GSE_IEC_HDR, and call "ms_asn1_to_local" to decode any or */ +/* all dataEntries. */ + +/* User must call this function when they are done with the decoded */ +/* GOOSE info to free up the resources. */ +ST_RET gse_iec_decode_done (GSE_IEC_HDR *hdr); + + +GSE_IEC_CTRL *gse_iec_control_create (ST_CHAR *gcRef, ST_CHAR *dataSetRefRef, ST_CHAR *appId, + ST_INT numDataEntry); +ST_RET gse_iec_control_destroy (GSE_IEC_CTRL *ctrl); + +ST_RET gse_iec_data_init (GSE_IEC_CTRL *ctrl, + ST_INT index, + struct runtime_type *runtimeTypeHead, + ST_INT numRuntimeTypes + ); + +ST_RET gse_iec_data_update (GSE_IEC_CTRL *ctrl, + ST_INT index, + ST_VOID *dataPtr); + +ST_UCHAR *gse_iec_encode (GSE_IEC_CTRL *ctrl, + ST_UCHAR *asn1DataBuf, /* buffer to encode in */ + ST_INT asn1DataBufLen, /* len of buffer */ + ST_INT *asn1DataLenOut, /* ptr to len encoded */ + ETYPE_INFO *etype_info);/* ptr to Ethertype info*/ + +ST_RET gse_iec_send (GSE_IEC_CTRL *ctrl, + ST_UCHAR *dstMac, /* Destination MAC addr */ + ST_UCHAR *asn1Data, /* ptr to ASN.1 encoded data*/ + ST_INT asn1DataLen); /* len of ASN.1 encoded data*/ + +/* Functions to use for 2-part encode. Reduces re-encoding of data. */ +ST_UCHAR *gse_iec_enc_part1 (GSE_IEC_CTRL *ctrl, + ST_UCHAR *buf_ptr, /* buffer in which to encode */ + ST_INT buf_len, /* buffer len */ + ST_INT *asn1_len_out); /* len of ASN.1 encoded data */ +ST_UCHAR *gse_iec_enc_part2 (GSE_IEC_CTRL *ctrl, + ETYPE_INFO *etype_info, /* ptr to Ethertype info */ + ST_UCHAR *buf_ptr, /* buffer in which to encode */ + ST_INT buf_len, /* buffer len */ + ST_INT enc_part1_len, /* len of data encoded by */ + /* gse_iec_enc_part1 */ + /* CRITICAL: must be < buf_len. */ + ST_INT *asn1_len_out); /* len of ASN.1 encoded data */ + +/************************************************************************/ +/* END IEC GOOSE DEFINITIONS */ +/************************************************************************/ +#ifdef __cplusplus +} +#endif +#endif /* included */ diff --git a/include/inc/STR_UTIL.H b/include/inc/STR_UTIL.H new file mode 100644 index 0000000..a9609b0 --- /dev/null +++ b/include/inc/STR_UTIL.H @@ -0,0 +1,158 @@ +#ifndef STR_UTIL_INCLUDED +#define STR_UTIL_INCLUDED +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2000 - 2004 All Rights Reserved */ +/* */ +/* MODULE NAME : str_util.h */ +/* PRODUCT(S) : General Use */ +/* */ +/* MODULE DESCRIPTION : */ +/* General purpose string manipulation functions. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 10/29/07 JRB 23 Add strncat_maxstrlen. Del strncat_safe (len */ +/* was wrong), use strncat or strncat_maxstrlen.*/ +/* 10/11/07 JRB 22 Add asciiToSint32, asciiToUint32 */ +/* 07/28/05 DWL 21 Use const ST_CHAR* in asciiTo* functions. */ +/* 03/14/05 JRB 20 Add get_next_string. */ +/* 12/03/04 JRB 19 Use strcasecmp, strncasecmp if supported. */ +/* 07/09/04 JRB 18 Add strncat_safe, strncpy_safe. */ +/* 03/08/04 EJV 17 Added getKeywordFromFile function. */ +/* 12/12/03 JRB 16 Add LYNX support. */ +/* 12/10/03 MDE 15 Added itoa/ltoa/utoa/ultoa replacements */ +/* 04/10/03 DSF 14 Added strnstr */ +/* 02/20/03 JRB 13 Del PSOS code. */ +/* 12/20/02 CRM 12 Added "defined(linux)" for strcmpi, etc. */ +/* 02/28/02 EJV 11 Added asciiToFloat, asciiToDouble. */ +/* 02/25/02 EJV 10 Replaced ascii_to_ macros with asciiToxxx fun*/ +/* Added asciiToUlong, asciiToUint16, */ +/* asciiToUint8, asciiToSint, asciiToUint */ +/* hex_to_ascii_str: added param hex_no_spaces. */ +/* 12/09/01 GLB 05 Added asciiToSlong, asciiToSint16, */ +/* asciiToSint8, asciiToUchar */ +/* 09/10/01 GLB 08 Added ascii_to_uint & ascii_to_slongint */ +/* 08/06/01 GLB 07 Added ascii_to_sint */ +/* 06/06/01 GLB 06 Added ascii_to_double & ascii_to_float */ +/* 05/21/01 MDE 05 Added bitstring_to_ascii_str */ +/* 01/19/01 EJV 04 UNIX: added strcmpi, stricmp, strnicmp protos*/ +/* 01/05/01 EJV 03 Corrected ascii_to_ushortint, AIX returned 0.*/ +/* ascii_to_ulongint: changed "%ul" to "%lu". */ +/* 11/02/00 MDE 02 Added _hex_no_spaces */ +/* 02/03/00 JRB 01 Created */ +/************************************************************************/ +#ifdef __cplusplus +extern "C" { +#endif + +ST_VOID hex_to_ascii_str ( + ST_CHAR *astr, /* ascii string */ + ST_UCHAR *hstr, /* hex string */ + ST_UINT hlen, /* len of hex string */ + ST_BOOLEAN hex_no_spaces); + +ST_RET ascii_to_hex_str ( + ST_UCHAR *hstr, /* hex string */ + ST_UINT *hlen_out, /* ptr to hex len to be set */ + ST_UINT hlen_max, /* maximum hex len to allow. */ + ST_CHAR *astr); /* ascii string */ + +ST_VOID bitstring_to_ascii_str (ST_CHAR *astr, ST_UCHAR *bstr, + ST_UINT numBits); + + +ST_RET asciiToSlong (const ST_CHAR *astr, + ST_LONG *sLong); +ST_RET asciiToUlong (const ST_CHAR *astr, + ST_ULONG *uLong); + +ST_RET asciiToSint (const ST_CHAR *astr, + ST_INT *sInt); +ST_RET asciiToUint (const ST_CHAR *astr, + ST_UINT *uInt); + +ST_RET asciiToSint32 (const ST_CHAR *astr, /* ascii string */ + ST_INT32 *value); /* ptr to converted value*/ +ST_RET asciiToUint32 (const ST_CHAR *astr, /* ascii string */ + ST_UINT32 *value); /* ptr to converted value*/ + +ST_RET asciiToSint16 (const ST_CHAR *astr, + ST_INT16 *sInt16); +ST_RET asciiToUint16 (const ST_CHAR *astr, + ST_UINT16 *uInt16); + +ST_RET asciiToSint8 (const ST_CHAR *astr, + ST_INT8 *sInt8); +ST_RET asciiToUint8 (const ST_CHAR *astr, + ST_UINT8 *uInt8); + +ST_RET asciiToUchar (const ST_CHAR *astr, + ST_UCHAR *uChar); + +ST_RET asciiToFloat (const ST_CHAR *astr, + ST_FLOAT *floatNum); +ST_RET asciiToDouble (const ST_CHAR *astr, + ST_DOUBLE *doubleNum); + + +char *strnstr (char *str1, char *str2, int len); + +/* SISCO code calls strcmpi, stricmp, strnicmp (Windows functions). */ +/* On systems that support strcasecmp, strncasecmp, remap to use them. */ +#if defined(_AIX) || defined(sun) || defined(__alpha) || defined(__hpux) || \ + defined(linux) +#ifndef strcmpi +#define strcmpi strcasecmp +#endif +#ifndef stricmp +#define stricmp strcasecmp +#endif +#ifndef strnicmp +#define strnicmp strncasecmp +#endif +#endif /* UNIX-like systems that support strcasecmp, strncasecmp. */ + +/* On systems that DON'T support strcasecmp, strncasecmp, use SISCO functions. */ +#if defined(VXWORKS) || defined(__LYNX) +ST_INT strcmpi (ST_CHAR *,ST_CHAR *); +ST_INT stricmp (ST_CHAR *,ST_CHAR *); +ST_INT strnicmp (ST_CHAR *,ST_CHAR *,ST_INT n); +#endif + +/* "strncat_maxstrlen" is like "strncat" but the third arg is the */ +/* maximum length of the destination string. */ +ST_RET strncat_maxstrlen (char *dest, char *src, size_t maxstrlen); + +/* "strncpy_safe" makes sure that the "dest" string is NULL-terminated. */ +/* The standard "strncpy" does NOT always NULL-terminate "dest". */ +ST_VOID strncpy_safe (char *dest, char *src, int max_len); + +ST_CHAR *sInt8ToAscii (ST_INT8 v, ST_CHAR *p); +ST_CHAR *uInt8ToAscii (ST_UINT8 v, ST_CHAR *p); +ST_CHAR *sInt16ToAscii (ST_INT16 v, ST_CHAR *p); +ST_CHAR *uInt16ToAscii (ST_UINT16 v, ST_CHAR *p); +ST_CHAR *sInt32ToAscii (ST_INT32 v, ST_CHAR *p); +ST_CHAR *uInt32ToAscii (ST_UINT32 v, ST_CHAR *p); +ST_CHAR *sIntToAscii (ST_INT v, ST_CHAR *p); +ST_CHAR *uIntToAscii (ST_UINT v, ST_CHAR *p); +ST_CHAR *sLongToAscii (ST_LONG v, ST_CHAR *p); +ST_CHAR *uLongToAscii (ST_ULONG v, ST_CHAR *p); + +/* misc functions */ +ST_BOOLEAN getKeywordFromFile (ST_CHAR *fileStr, ST_CHAR *keywordStr, + ST_CHAR *valBuf, ST_UINT valBufLen); + +ST_CHAR *get_next_string (ST_CHAR **ptrptr, ST_CHAR *delimiters); + +#ifdef __cplusplus +} +#endif + +#endif /* !STR_UTIL_INCLUDED */ + diff --git a/include/inc/Smem.h b/include/inc/Smem.h new file mode 100644 index 0000000..85d1971 --- /dev/null +++ b/include/inc/Smem.h @@ -0,0 +1,467 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1999, All Rights Reserved */ +/* */ +/* MODULE NAME : smem.h */ +/* PRODUCT(S) : Utilities */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/14/03 JRB 10 Eliminate compiler warnings. */ +/* 10/09/01 JRB 09 Add non-debug log macros. */ +/* 10/02/01 JRB 08 Del DBL_LNK from SMEM_CONTEXT (never used). */ +/* Add forward declarations to reduce warnings. */ +/* 09/21/01 JRB 07 Add args to smem_add_pool. */ +/* Chg args to u_smem_*. */ +/* Del unused prototypes. */ +/* Add u_smem_get_buf_detail. */ +/* Pass old & new size to smem_realloc. */ +/* Add m_add_pool proto. */ +/* Del #ifdef ACSE && LEANT. */ +/* Del smemInitialized,smemDefCtxt (not needed).*/ +/* Add more SLOG macros. */ +/* Chg poolName, contextName to (ST_CHAR *). */ +/* 05/21/01 MDE 06 Mode SMEM context management work */ +/* 03/19/01 JEB 05 Moved all SMEM context defs to this file. */ +/* 03/10/01 GLB 04 Added u_smem_get_pool_params */ +/* 03/10/01 GLB 03 Added smemcfgx for parsing memory cfg. file */ +/* 02/26/01 MDE 02 Added clone control to SMEM_POOL_CTRL */ +/* 12/09/99 MDE 01 New */ +/************************************************************************/ +/************************************************************************/ + +#ifndef SMEM_INCLUDED +#define SMEM_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" +#include "gen_list.h" + +/************************************************************************/ + +#define SMEM_MAX_RANGE_TRACK 10 + +typedef struct _smem_range_track + { + ST_UINT lowLimit; + ST_UINT highLimit; + ST_LONG currNum; + ST_LONG maxNum; + } SMEM_RANGE_TRACK; + +typedef struct _smem_rt_ctrl + { + ST_INT numRanges; + SMEM_RANGE_TRACK rt[SMEM_MAX_RANGE_TRACK]; + } SMEM_RT_CTRL; + +/************************************************************************/ +struct _smem_pool_ctrl; /* forward declaration */ +struct _smem_context; /* forward declaration */ + +typedef struct _smem_pool_ctrl + { + struct _smem_pool_ctrl *next; + ST_CHAR *poolName; + ST_UINT bufSize; + ST_UINT8 numBuf; + ST_UINT8 nextAvailBuf; + ST_UINT8 *availIndexStack; /* Index table, size [numBuf] */ + ST_CHAR *firstBuf; + ST_CHAR *lastBuf; + struct _smem_context *smemContext; + + ST_BOOLEAN autoClone; + ST_INT maxClones; + ST_INT cloneCount; + +#ifdef DEBUG_SISCO + ST_UINT8 maxNumUsed; + ST_UINT16 *usedSize; /* usedSize [numBuf] */ +#endif + + ST_VOID *usr; /* SMEM user can use this ... */ + } SMEM_POOL_CTRL; + + +typedef struct _smem_context + { + ST_CHAR *contextName; + ST_INT usrId; /* User */ + ST_VOID *usr; /* User */ + +/* Must be arranged from smallest to largest buffer size */ + SMEM_POOL_CTRL *smemPoolCtrlList; + +/* Optional range tracking */ + SMEM_RT_CTRL *smemRangeTrack; + } SMEM_CONTEXT; + +/************************************************************************/ +/************************************************************************/ + +ST_RET smemcfgx (ST_CHAR *xml_filename); + +ST_VOID u_smem_get_pool_params ( SMEM_CONTEXT *contextName, + ST_UINT8 *numBuf, ST_UINT *bufSize, + ST_BOOLEAN *autoClone, + ST_INT *maxClones, + ST_CHAR **poolName); + +SMEM_POOL_CTRL *u_smem_need_buffers (SMEM_CONTEXT *smemContext, + ST_UINT8 numBuf, ST_UINT bufSize); +ST_CHAR *u_smem_get_buf_detail (ST_VOID *bufptr, ST_INT bufSize); + +SMEM_POOL_CTRL *smem_add_pool (SMEM_CONTEXT *smemContext, + ST_UINT8 numBuf, ST_UINT bufSize, + ST_BOOLEAN autoClone, + ST_INT maxClones, + ST_CHAR *poolName); + +ST_VOID *smem_malloc (SMEM_CONTEXT *smemContext, ST_UINT size); +ST_VOID *smem_calloc (SMEM_CONTEXT *smemContext, ST_UINT num, ST_UINT size); +ST_VOID *smem_realloc (SMEM_CONTEXT *smemContext, ST_VOID *oldptr, + ST_UINT oldsize, ST_UINT newsize); +ST_VOID smem_free (SMEM_CONTEXT *smemContext, ST_VOID *ptr); +ST_VOID smem_log_state (SMEM_CONTEXT *smemContext); + +ST_VOID smem_range_check (SMEM_CONTEXT *smemContext, + ST_UINT size, ST_BOOLEAN add); + + +/************************************************************************/ +/* mem_smem.c function prototypes */ +/************************************************************************/ +SMEM_POOL_CTRL *m_add_pool (SMEM_CONTEXT *smemContext, + ST_UINT8 numBuf, ST_UINT bufSize, + ST_BOOLEAN autoClone, + ST_INT maxClones, + ST_CHAR *poolName); + +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ + +#define SMEM_LOG_ERR 0x0001 +#define SMEM_LOG_NERR 0x0002 +#define SMEM_LOG_FLOW 0x0004 +#define SMEM_LOG_DEBUG 0x0008 + +extern ST_UINT smem_debug_sel; + +/************************************************************************/ +/************************************************************************/ + +extern SD_CONST ST_CHAR *SD_CONST _smem_log_err_logstr; +extern SD_CONST ST_CHAR *SD_CONST _smem_log_flow_logstr; +extern SD_CONST ST_CHAR *SD_CONST _smem_log_nerr_logstr; +extern SD_CONST ST_CHAR *SD_CONST _smem_log_debug_logstr; +extern SD_CONST ST_CHAR *SD_CONST _smem_log_dump_logstr; + +#ifdef DEBUG_SISCO + +#define SMEMLOG_ERR0(a) {\ + _slog (sLogCtrl,_smem_log_err_logstr,\ + thisFileName,__LINE__,a);\ + } +#define SMEMLOG_ERR1(a,b) {\ + _slog (sLogCtrl,_smem_log_err_logstr,\ + thisFileName,__LINE__,a,b);\ + } + +#define SMEMLOG_ERR2(a,b,c) {\ + _slog (sLogCtrl,_smem_log_err_logstr,\ + thisFileName,__LINE__,a,b,c);\ + } + +#define SMEMLOG_CERR0(a) {\ + _slogc (sLogCtrl,a);\ + } +#define SMEMLOG_CERR1(a,b) {\ + _slogc (sLogCtrl,a,b);\ + } + +#define SMEMLOG_CERR2(a,b,c) {\ + _slogc (sLogCtrl,a,b,c);\ + } + +#define SMEMLOG_NERR0(a) {\ + if (smem_debug_sel & SMEM_LOG_NERR)\ + _slog (sLogCtrl,_smem_log_nerr_logstr,\ + thisFileName,__LINE__,a);\ + } +#define SMEMLOG_NERR1(a,b) {\ + if (smem_debug_sel & SMEM_LOG_NERR)\ + _slog (sLogCtrl,_smem_log_nerr_logstr,\ + thisFileName,__LINE__,a,b);\ + } + +#define SMEMLOG_FLOW1(a,b) {\ + if (smem_debug_sel & SMEM_LOG_FLOW)\ + _slog (sLogCtrl,_smem_log_flow_logstr,\ + thisFileName,__LINE__,a,b);\ + } +#define SMEMLOG_CFLOW1(a,b) {\ + if (smem_debug_sel & SMEM_LOG_FLOW)\ + _slogc (sLogCtrl,a,b);\ + } +#define SMEMLOG_CFLOW2(a,b,c) {\ + if (smem_debug_sel & SMEM_LOG_FLOW)\ + _slogc (sLogCtrl,a,b,c);\ + } + +#define SMEMLOG_DUMP0(a) {\ + _slog (sLogCtrl,_smem_log_dump_logstr,\ + thisFileName,__LINE__,a);\ + } +#define SMEMLOG_DUMP1(a,b) {\ + _slog (sLogCtrl,_smem_log_dump_logstr,\ + thisFileName,__LINE__,a,b);\ + } + +#define SMEMLOG_CDUMP0(a) {\ + _slogc (sLogCtrl,a);\ + } + +#define SMEMLOG_CDUMP1(a,b) {\ + _slogc (sLogCtrl,a,b);\ + } + +#define SMEMLOG_CDUMP2(a,b,c) {\ + _slogc (sLogCtrl,a,b,c);\ + } + +#define SMEMLOG_CDUMP3(a,b,c,d) {\ + _slogc (sLogCtrl,a,b,c,d);\ + } + +#define SMEMLOG_CDUMP4(a,b,c,d,e) {\ + _slogc (sLogCtrl,a,b,c,d,e);\ + } + +#define SMEMLOG_CDUMP5(a,b,c,d,e,f) {\ + _slogc (sLogCtrl,a,b,c,d,e,f);\ + } + +#define SMEMLOG_DEBUG0(a) {\ + if (smem_debug_sel & SMEM_LOG_DEBUG)\ + _slog (sLogCtrl,_smem_log_debug_logstr,\ + thisFileName,__LINE__,a);\ + } + +#define SMEMLOG_DEBUG1(a,b) {\ + if (smem_debug_sel & SMEM_LOG_DEBUG)\ + _slog (sLogCtrl,_smem_log_debug_logstr,\ + thisFileName,__LINE__,a,b);\ + } + +#define SMEMLOG_DEBUG2(a,b,c) {\ + if (smem_debug_sel & SMEM_LOG_DEBUG)\ + _slog (sLogCtrl,_smem_log_debug_logstr,\ + thisFileName,__LINE__,a,b,c);\ + } +#define SMEMLOG_DEBUG3(a,b,c,d) {\ + if (smem_debug_sel & SMEM_LOG_DEBUG)\ + _slog (sLogCtrl,_smem_log_debug_logstr,\ + thisFileName,__LINE__,a,b,c,d);\ + } +#define SMEMLOG_DEBUG4(a,b,c,d,e) {\ + if (smem_debug_sel & SMEM_LOG_DEBUG)\ + _slog (sLogCtrl,_smem_log_debug_logstr,\ + thisFileName,__LINE__,a,b,c,d,e);\ + } + +#define SMEMLOG_CDEBUG0(a) {\ + if (smem_debug_sel & SMEM_LOG_DEBUG)\ + _slogc (sLogCtrl,a);\ + } + +#define SMEMLOG_CDEBUG1(a,b) {\ + if (smem_debug_sel & SMEM_LOG_DEBUG)\ + _slogc (sLogCtrl,a,b);\ + } + +#define SMEMLOG_CDEBUG2(a,b,c) {\ + if (smem_debug_sel & SMEM_LOG_DEBUG)\ + _slogc (sLogCtrl,a,b,c);\ + } +#define SMEMLOG_CDEBUG3(a,b,c,d) {\ + if (smem_debug_sel & SMEM_LOG_DEBUG)\ + _slogc (sLogCtrl,a,b,c,d);\ + } + +#else /* #ifdef DEBUG_SISCO */ + +#define SMEMLOG_ERR0(a) +#define SMEMLOG_ERR1(a,b) +#define SMEMLOG_ERR2(a,b,c) +#define SMEMLOG_CERR0(a) +#define SMEMLOG_CERR1(a,b) +#define SMEMLOG_CERR2(a,b,c) +#define SMEMLOG_NERR0(a) +#define SMEMLOG_NERR1(a,b) +#define SMEMLOG_FLOW1(a,b) +#define SMEMLOG_CFLOW1(a,b) +#define SMEMLOG_CFLOW2(a,b,c) +#define SMEMLOG_DUMP0(a) +#define SMEMLOG_DUMP1(a,b) +#define SMEMLOG_CDUMP0(a,b) +#define SMEMLOG_CDUMP1(a,b) +#define SMEMLOG_CDUMP2(a,b,c) +#define SMEMLOG_CDUMP3(a,b,c,d) +#define SMEMLOG_CDUMP4(a,b,c,d,e) +#define SMEMLOG_CDUMP5(a,b,c,d,e,f) +#define SMEMLOG_DEBUG0(a,b,c) +#define SMEMLOG_DEBUG2(a,b,c) +#define SMEMLOG_DEBUG3(a,b,c,d) +#define SMEMLOG_DEBUG4(a,b,c,d,e) +#define SMEMLOG_CDEBUG0(a) +#define SMEMLOG_CDEBUG1(a,b) +#define SMEMLOG_CDEBUG2(a,b,c) +#define SMEMLOG_CDEBUG3(a,b,c,d) + +#endif /* #ifdef DEBUG_SISCO */ + +/************************************************************************/ +/* Here we define a context control table and the associated indices */ + +#define M_SMEM_MAX_CONTEXT 30 /* number of specific context array elements */ + /* + extra context array elements for user applications */ + /* = MAX context array size */ +extern SMEM_CONTEXT m_smem_ctxt[M_SMEM_MAX_CONTEXT]; + +/* All users of SMEM that want a a context are to specify it here as an */ +/* index into the m_smem_ctxt table. */ + +/* Valid context indices */ +#define MSMEM_GEN_IDX 0 /* chk_* macros use this ctxt*/ + +/* MMS-EASE Lite indices */ +#define MSMEM_DEC_OS_INFO_IDX 1 +#define MSMEM_ENC_OS_INFO_IDX 2 +#define MSMEM_WR_DATA_DEC_BUF_IDX 3 +#define MSMEM_ASN1_DATA_ENC_IDX 4 +#define MSMEM_PDU_ENC_IDX 5 +#define MSMEM_COM_EVENT_IDX 6 +#define MSMEM_RXPDU_IDX 7 +#define MSMEM_NETINFO_IDX 8 +#define MSMEM_DYN_RT_IDX 9 +#define MSMEM_AA_ENCODE_IDX 10 +#define MSMEM_REQ_CTRL_IDX 11 +#define MSMEM_IND_CTRL_IDX 12 +#define MSMEM_MVLU_VA_IDX 13 +#define MSMEM_MVLU_VA_CTRL_IDX 14 +#define MSMEM_MVLU_VA_DATA_IDX 15 +#define MSMEM_MVLU_GNL_IDX 16 +#define MSMEM_MVLU_AA_IDX 17 + +/* For STACK (ACSE and LEANT) */ +#define MSMEM_ACSE_CONN_IDX 18 +#define MSMEM_ACSE_DATA_IDX 19 +#define MSMEM_COSP_CN_IDX 20 +#define MSMEM_N_UNITDATA_IDX 21 +#define MSMEM_SOCK_INFO_IDX 22 +#define MSMEM_SPDU_TX_IDX 23 +#define MSMEM_STARTUP_IDX 24 +#define MSMEM_TPKT_IDX 25 + +/* The following are valid Contexts */ +#define MSMEM_GEN &m_smem_ctxt[MSMEM_GEN_IDX] + +/* MMS-EASE Lite indices */ +#define MSMEM_DEC_OS_INFO &m_smem_ctxt[MSMEM_DEC_OS_INFO_IDX] +#define MSMEM_ENC_OS_INFO &m_smem_ctxt[MSMEM_ENC_OS_INFO_IDX] +#define MSMEM_WR_DATA_DEC_BUF &m_smem_ctxt[MSMEM_WR_DATA_DEC_BUF_IDX] +#define MSMEM_ASN1_DATA_ENC &m_smem_ctxt[MSMEM_ASN1_DATA_ENC_IDX] +#define MSMEM_PDU_ENC &m_smem_ctxt[MSMEM_PDU_ENC_IDX] +#define MSMEM_COM_EVENT &m_smem_ctxt[MSMEM_COM_EVENT_IDX] +#define MSMEM_RXPDU &m_smem_ctxt[MSMEM_RXPDU_IDX] +#define MSMEM_NETINFO &m_smem_ctxt[MSMEM_NETINFO_IDX] +#define MSMEM_REQ_CTRL &m_smem_ctxt[MSMEM_REQ_CTRL_IDX] +#define MSMEM_IND_CTRL &m_smem_ctxt[MSMEM_IND_CTRL_IDX] +#define MSMEM_MVLU_VA &m_smem_ctxt[MSMEM_MVLU_VA_IDX] +#define MSMEM_MVLU_VA_CTRL &m_smem_ctxt[MSMEM_MVLU_VA_CTRL_IDX] +#define MSMEM_MVLU_VA_DATA &m_smem_ctxt[MSMEM_MVLU_VA_DATA_IDX] +#define MSMEM_MVLU_AA &m_smem_ctxt[MSMEM_MVLU_AA_IDX] +#define MSMEM_MVLU_GNL &m_smem_ctxt[MSMEM_MVLU_GNL_IDX] +#define MSMEM_DYN_RT &m_smem_ctxt[MSMEM_DYN_RT_IDX] +#define MSMEM_AA_ENCODE &m_smem_ctxt[MSMEM_AA_ENCODE_IDX] + +/* For STACK (ACSE and LEANT) */ +#define MSMEM_ACSE_CONN &m_smem_ctxt[MSMEM_ACSE_CONN_IDX] +#define MSMEM_ACSE_DATA &m_smem_ctxt[MSMEM_ACSE_DATA_IDX] +#define MSMEM_COSP_CN &m_smem_ctxt[MSMEM_COSP_CN_IDX] +#define MSMEM_N_UNITDATA &m_smem_ctxt[MSMEM_N_UNITDATA_IDX] +#define MSMEM_SOCK_INFO &m_smem_ctxt[MSMEM_SOCK_INFO_IDX] +#define MSMEM_SPDU_TX &m_smem_ctxt[MSMEM_SPDU_TX_IDX] +#define MSMEM_STARTUP &m_smem_ctxt[MSMEM_STARTUP_IDX] +#define MSMEM_TPKT &m_smem_ctxt[MSMEM_TPKT_IDX] + +#ifdef SMEMCFGX +/************************************************************************/ +/* This list is used to log error messages when an invalid context name */ +/* is entered. The error message for an invalid context name will list */ +/* all valid context names, as listed below. */ +/* Note: these names should match those listed above and those in */ +/* 'smemcfg.xml' */ + +typedef struct + { + ST_INT idx; + ST_CHAR *name; + } SMEM_CTXT_NAME; + +static SMEM_CTXT_NAME smemCtxtNames[] = + { + {MSMEM_GEN_IDX, "MSMEM_GEN"}, + {MSMEM_DEC_OS_INFO_IDX, "MSMEM_DEC_OS_INFO"}, + {MSMEM_ENC_OS_INFO_IDX, "MSMEM_ENC_OS_INFO"}, + {MSMEM_WR_DATA_DEC_BUF_IDX, "MSMEM_WR_DATA_DEC_BUF"}, + {MSMEM_ASN1_DATA_ENC_IDX, "MSMEM_ASN1_DATA_ENC"}, + {MSMEM_PDU_ENC_IDX, "MSMEM_PDU_ENC"}, + {MSMEM_COM_EVENT_IDX, "MSMEM_COM_EVENT"}, + {MSMEM_RXPDU_IDX, "MSMEM_RXPDU"}, + {MSMEM_NETINFO_IDX, "MSMEM_NETINFO"}, + {MSMEM_REQ_CTRL_IDX, "MSMEM_REQ_CTRL"}, + {MSMEM_IND_CTRL_IDX, "MSMEM_IND_CTRL"}, + {MSMEM_MVLU_VA_IDX, "MSMEM_MVLU_VA"}, + {MSMEM_MVLU_VA_CTRL_IDX, "MSMEM_MVLU_VA_CTRL"}, + {MSMEM_MVLU_VA_DATA_IDX, "MSMEM_MVLU_VA_DATA"}, + {MSMEM_MVLU_AA_IDX, "MSMEM_MVLU_AA"}, + {MSMEM_MVLU_GNL_IDX, "MSMEM_MVLU_GNL"}, + {MSMEM_DYN_RT_IDX, "MSMEM_DYN_RT"}, + {MSMEM_AA_ENCODE_IDX, "MSMEM_AA_ENCODE"}, + {MSMEM_ACSE_CONN_IDX, "MSMEM_ACSE_CONN"}, + {MSMEM_ACSE_DATA_IDX, "MSMEM_ACSE_DATA"}, + {MSMEM_COSP_CN_IDX, "MSMEM_COSP_CN"}, + {MSMEM_N_UNITDATA_IDX, "MSMEM_N_UNITDATA"}, + {MSMEM_SOCK_INFO_IDX, "MSMEM_SOCK_INFO"}, + {MSMEM_SPDU_TX_IDX, "MSMEM_SPDU_TX"}, + {MSMEM_STARTUP_IDX, "MSMEM_STARTUP"}, + {MSMEM_TPKT_IDX, "MSMEM_TPKT"} + }; + +static ST_INT smem_num_ctxt_names = sizeof(smemCtxtNames)/sizeof(SMEM_CTXT_NAME); + +#endif + +/************************************************************************/ +/************************************************************************/ +#ifdef __cplusplus +} +#endif + +#endif /* smem.h already included */ + diff --git a/include/inc/acse2.h b/include/inc/acse2.h new file mode 100644 index 0000000..aa88728 --- /dev/null +++ b/include/inc/acse2.h @@ -0,0 +1,310 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1995 - 2004, All Rights Reserved */ +/* */ +/* MODULE NAME : acse2.h */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : */ +/* ACSE main header file. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 05/27/04 EJV 16 ACSE_CONN (MAP30_ACSE): added initiator. */ +/* 08/25/03 EJV 15 Del old password auth (OBSOLETE_ACSE_AUTH) */ +/* ACSE_CONN: added part_auth_info, encrypt_ctrl*/ +/* Added security functions protos. */ +/* 08/01/03 JRB 14 Add lean_a.h for DIB_ENTRY. */ +/* 06/17/03 EJV 13 Moved DIB_MATCH... from m_match.h. */ +/* 10/14/02 ASK 12 Added abort diagnostic tag */ +/* 09/27/02 ASK 11 Added ASN.1 security tags to AARE APDU, moved*/ +/* bitstring defines from acse2dec.c */ +/* 06/20/02 JRB 10 Add TSELs & remote NSAP/IP to ACSE_CONN. */ +/* 12/11/01 JRB 09 Convert to use ASN1R. */ +/* 09/10/01 JRB 08 Put back cosp_cn_ptr, cosp_cn_len. */ +/* 08/01/01 JRB 07 Del cosp_cn_ptr, cosp_cn_len from ACSE_CONN. */ +/* 04/03/01 JRB 06 Add PSELs & SSELs to ACSE_CONN. */ +/* 01/05/01 EJV 05 Changes for use over Marben */ +/* 07/14/99 JRB 04 Add ACSE Password Authentication stuff. */ +/* 08/13/98 JRB 03 Lint cleanup. */ +/* 07/23/98 JRB 02 Delete Marben support. */ +/* 11/10/97 JRB 01 Chg cosp_buf to (ST_UCHAR *). */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 03/19/97 JRB 08 MOSI cleanup. */ +/* 03/07/97 JRB 07 Added MOSI support. */ +/* 01/02/97 EJV 06 Added ACSE2_INCLUDED and __cplusplus. */ +/* 06/25/96 JRB 05 Added 'LEAN_T' support. */ +/* 05/02/96 JRB 04 Add STATE_TP4CONN_WAIT. */ +/* 04/18/96 JRB 03 Add STATE_AARE_ABANDON. */ +/* 03/26/96 MDE 02 Added 'REDUCED_STACK' support */ +/* 10/30/95 JRB 01 Created */ +/************************************************************************/ + +#ifndef ACSE2_INCLUDED +#define ACSE2_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "gen_list.h" +#include "acse2log.h" /* slog macros for ACSE */ +#include "acse2usr.h" +#if !defined(MAP30_ACSE) +#include "lean_a.h" /* need DIB_ENTRY */ +#endif +#include "dibmatch.h" + +/* Defines for bits in bitstring encoded values. */ +#define BIT_VERSION1 0x80 /* AARQ, AARE protocol_version */ +#define BIT_AUTHENTICATION 0x80 /* AARQ, AARE acse_requirements */ + +/* ACPM states. */ +#define STATE_INVALID -1 /* So user cannot use freed struct*/ +#define STATE_IDLE 0 +#define STATE_AARE_WAIT 1 +#define STATE_AASCRSP_WAIT 2 +#define STATE_RLRE_WAIT 3 +#define STATE_ARLSRSP_WAIT 4 +#define STATE_ASSOCIATED 5 +#define STATE_INIT_COLL 6 +#define STATE_RESP_COLL 7 +#define STATE_AARE_ABANDON 8 +#define STATE_TP4CONN_WAIT 9 + +/* ASN.1 tags for ACSE APDUs */ +#define TAG_AARQ 0 +#define TAG_AARE 1 +#define TAG_RLRQ 2 +#define TAG_RLRE 3 +#define TAG_ABRT 4 +#define TAG_ADT 5 +/* ASN.1 tags for CONNECTIONLESS ACSE APDUs */ +#define TAG_AUDT 0 + +/* ASN.1 tags for elements of AARQ APDU */ +#define AARQ_protocol_version 0 +#define AARQ_ASO_context_name 1 +#define AARQ_CALLED_AP_title 2 +#define AARQ_CALLED_AE_qual 3 +#define AARQ_CALLED_AP_inv_id 4 +#define AARQ_CALLED_AE_inv_id 5 +#define AARQ_CALLING_AP_title 6 +#define AARQ_CALLING_AE_qual 7 +#define AARQ_CALLING_AP_inv_id 8 +#define AARQ_CALLING_AE_inv_id 9 +#define AARQ_acse_requirements 10 +#define AARQ_mechanism_name 11 +#define AARQ_CALLING_auth_value 12 +#define AARQ_user_info 30 + +/* ASN.1 tags for elements of AUDT APDU (same as AARQ) */ +#define AUDT_protocol_version AARQ_protocol_version +#define AUDT_ASO_context_name AARQ_ASO_context_name +#define AUDT_CALLED_AP_title AARQ_CALLED_AP_title +#define AUDT_CALLED_AE_qual AARQ_CALLED_AE_qual +#define AUDT_CALLED_AP_inv_id AARQ_CALLED_AP_inv_id +#define AUDT_CALLED_AE_inv_id AARQ_CALLED_AE_inv_id +#define AUDT_CALLING_AP_title AARQ_CALLING_AP_title +#define AUDT_CALLING_AE_qual AARQ_CALLING_AE_qual +#define AUDT_CALLING_AP_inv_id AARQ_CALLING_AP_inv_id +#define AUDT_CALLING_AE_inv_id AARQ_CALLING_AE_inv_id +#define AUDT_user_info AARQ_user_info + +/* ASN.1 tags for elements of AARE APDU */ +#define AARE_protocol_version 0 +#define AARE_ASO_context_name 1 +#define AARE_result 2 +#define AARE_result_source_diagnostic 3 +#define AARE_RESPONDING_AP_title 4 +#define AARE_RESPONDING_AE_qual 5 +#define AARE_RESPONDING_AP_inv_id 6 +#define AARE_RESPONDING_AE_inv_id 7 +#define AARE_RESPONDER_acse_requirements 8 /* See the ACSE Spec for the strange name */ +#define AARE_mechanism_name 9 +#define AARE_RESPONDING_auth_value 10 +#define AARE_user_info 30 + +/* ASN.1 tags for elements of RLRQ APDU */ +#define RLRQ_reason 0 +#define RLRQ_user_info 30 + +/* ASN.1 tags for elements of RLRE APDU */ +#define RLRE_reason 0 +#define RLRE_user_info 30 + +/* ASN.1 tags for elements of ABRT APDU */ +#define ABRT_source 0 +#define ABRT_diagnostic 1 +#define ABRT_user_info 30 + +/* ASN.1 tags for elements of ADT APDU */ +#define ADT_user_info 30 + +#define ACSE_SERVICE_USER 0 +#define ACSE_SERVICE_PROVIDER 1 + +/************************************************************************/ +/* ACSE_CONN structure */ +/************************************************************************/ +#if defined (MOSI) +#define MAX_COSP_COPP_HEADER (((MAX_PSEL_LEN+MAX_SSEL_LEN)*2)+200) +typedef struct tagACSE_CONN + { + /* common part */ + ST_UINT apdu_len; /* len of a APDU (also PS-user data len)*/ + ST_UCHAR *apdu_ptr; /* pointer to start of APDU encoding */ + ST_UINT ppdu_len; /* len of a PPDU (also SS-user data len)*/ + ST_UCHAR *ppdu_ptr; /* pointer to start of PPDU encoding */ + ST_CHAR pcimms; + ST_CHAR pciacse; + /* ACSE part */ + ST_LONG user_conn_id; /* ACSE-user's connection ID. */ + ST_INT state; /* See "STATE_*" defines */ + ST_BOOLEAN initiator; /* Flag: did we initiate this connection? */ + /* COPP part */ + ST_INT num_ctxt; + ST_INT copp_state; /* See "COPP_STATE_*" defines */ + /* cosp part */ + ST_INT cosp_state; /* See "COSP_CSTATE_*" defines */ + ST_UINT cosp_cn_len; + char *cosp_cn_ptr; /* CONNECT SPDU saved until TCONN.cnf */ + ST_LONG cosp_bind_id; /* COSP bind id saved until CN arrive */ + ST_BOOLEAN cosp_vtca; /* SD_TRUE if transport connection acceptor*/ + ST_BOOLEAN cosp_vcoll; /* SD_TRUE if collision of FINISH SPDUs */ + ST_BOOLEAN cosp_vdnr; /* SD_TRUE if DISCONNECT SPDU has been */ + /* received in STA 09 (following */ + /* collision of FINISH SPDUs). */ + /* TP4 part */ + ST_LONG tp4_conn_id; /* TP4 connect id */ + ST_BOOLEAN cr; /* "collision of release" flag */ + ST_BOOLEAN rl; /* "release started" flag */ + BUFFER save_buf; /* buffer to save AARQ or RLRE to send later */ + ST_UCHAR loc_psel [MAX_PSEL_LEN+1]; /* Local PSEL (1st byte = len) */ + ST_UCHAR rem_psel [MAX_PSEL_LEN+1]; /* Remote PSEL (1st byte = len) */ + ST_UCHAR loc_ssel [MAX_SSEL_LEN+1]; /* Local SSEL (1st byte = len) */ + ST_UCHAR rem_ssel [MAX_SSEL_LEN+1]; /* Remote SSEL (1st byte = len) */ + ST_UCHAR loc_tsel [MAX_TSEL_LEN+1]; /* Local TSEL (1st byte = len) */ + ST_UCHAR rem_tsel [MAX_TSEL_LEN+1]; /* Remote TSEL (1st byte = len) */ + union + { + ST_UCHAR nsap [CLNP_MAX_LEN_NSAP+1];/* Remote NSAP (1st byte = len) */ + ST_ULONG ip; /* OR IP Addr (network byte order)*/ + }remNetAddr; + /* authentication and security */ + ACSE_AUTH_INFO part_auth_info; /* partner authentication info */ + S_SEC_ENCRYPT_CTRL encrypt_ctrl; /* connection encryption info */ + } ACSE_CONN; +#elif defined (MAP30_ACSE) +typedef struct acse_bind_info_tag + { + ST_CHAR ar_name[MAX_NAME_LEN+1]; /* local AR Name to be bind */ + ST_LONG user_bind_id; /* Save User's bind ID */ + ST_INT suic_chan_base; /* start chan where we register AR Name */ + ST_INT num_calling; /* num of calling channels */ + ST_INT num_called; /* num of called channels */ + } ACSE_BIND_INFO; + +typedef struct tagACSE_CONN + { + /* fields below are changed during binding */ + ACSE_BIND_INFO *bind_info; /* pointer to ACSE bind info */ + ST_LONG user_bind_id; /* user's bind ID */ + ST_INT chan; /* SUIC channel */ + /* fields below are changed during connection/disconnection */ + ST_INT state; /* See "STATE_*" defines */ + ST_LONG user_conn_id; /* user's connect ID */ + ST_BOOLEAN initiator; /* Flag: did we initiate this connection? */ + ST_UINT ap_context; /* SUIC AP context from associate ind */ + ST_INT num_pc_defs; /* pres context deflist count from aind */ + PC_DEF *pc_deflist; /* pres context deflist ptr from aind */ + } ACSE_CONN; +#else /* !MOSI and !MAP30_ACSE */ +typedef struct tagACSE_CONN + { + ST_LONG user_bind_id; /* tp4_connect_ind saves for u_a_associate_ind */ + ST_LONG tp4_conn_id; + ST_LONG user_conn_id; + ST_INT state; /* See "STATE_*" defines */ + ST_BOOLEAN initiator; /* Flag: did we initiate this connection? */ + ST_UCHAR *rcv_data; /* buffer to reassembling TPDUs */ + ST_UINT rcv_data_len; /* Length of data in rcv_data. */ + BUFFER save_buf; /* buffer to save AARQ or RLRE to send later */ + } ACSE_CONN; +#endif /* !MOSI */ + +/************************************************************************/ +/* PBIND structure */ +/************************************************************************/ +typedef struct tagPBIND + { + DBL_LNK link; + ST_LONG user_bind_id; /* User-supplied Bind ID */ + ST_LONG clnp_bind_id; /* Register ID returned by OSIAM */ + ST_LONG real_clpp_bind_id; /* Used in real bind/unbind to Marben */ + ST_INT sap; /* SAP number this register is bound to */ + PRES_ADDR loc_addr; + } PBIND; + +/************************************************************************/ +/* General address matching defines, control, functions */ +/* */ + +#if !defined(MAP30_ACSE) +/* Lean-T specific functions */ +ST_RET dib_match_remote_ar (DIB_MATCH_CTRL *matchCtrl, AARQ_APDU *aarq, + DIB_ENTRY **dib_entry_out); +ST_RET dib_match_local_ar (DIB_MATCH_CTRL *matchCtrl, AARQ_APDU *aarq, + DIB_ENTRY **dib_entry_out); +ST_INT dib_cmp_local_addr (DIB_MATCH_CTRL *matchCtrl, AARQ_APDU *aarq, + DIB_ENTRY *dib_entry); +ST_INT dib_cmp_remote_addr (DIB_MATCH_CTRL *matchCtrl, AARQ_APDU *aarq, + DIB_ENTRY *dib_entry); +#endif /* !defined(MAP30_ACSE) */ + + +/************************************************************************/ +/* Security functions */ +ST_RET a_get_security_info (ST_LONG acse_conn_id, S_SEC_SPARAMS *secParams); +ST_RET a_free_security_info (ACSE_AUTH_INFO *authInfo); +ST_RET a_free_part_security_info (ST_LONG acse_conn_id); + + +/************************************************************************/ +/* Global variables. */ +/************************************************************************/ +extern ST_INT num_pbinds; /* Number of P-Address bindings.*/ +extern PBIND *pbind_list; /* Linked list of PBIND structs */ +extern ST_BOOLEAN nsap_bind_done; /* Don't allow 2nd bind until 1st done */ +extern MMS_OBJ_ID mms_obj_id; /* ISO MMS Object ID */ +extern MMS_OBJ_ID acse_obj_id; /* ACSE Object ID */ +extern MMS_OBJ_ID asn1_obj_id; /* ASN.1 Object ID */ +extern MMS_OBJ_ID a_auth_password_obj_id; /* Obj ID for ACSE Password*/ + /* Authentication mech. */ + +extern ST_UINT acse_msgsize; +#ifdef MOSI +extern ST_UINT cosp_msgsize; +extern ST_UCHAR *cosp_buf; +extern ACSE_CONN *decode_acse_conn; /* connection we're doing decode for. */ +#endif + +/************************************************************************/ +/* Prototypes */ +/************************************************************************/ +ST_VOID clnp_unbind_cnf (PBIND *pbind); +ST_VOID asn1_skip_elmnt (ASN1_DEC_CTXT *aCtx); +ST_VOID acse_free_con (ACSE_CONN *con); + + +#ifdef __cplusplus +} +#endif + +#endif /* ACSE2_INCLUDED */ + diff --git a/include/inc/acse2log.h b/include/inc/acse2log.h new file mode 100644 index 0000000..a2cd434 --- /dev/null +++ b/include/inc/acse2log.h @@ -0,0 +1,144 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1995-2003, All Rights Reserved */ +/* */ +/* MODULE NAME : acse2log.h */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : */ +/* ACSE logging header file. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/02/05 JRB 07 Added acse2usr.h */ +/* 06/17/03 EJV 06 Converted to new log macros. */ +/* Deleted _audt_*_logstr. Added DIB logging. */ +/* 12/11/00 EJV 05 Added more log macros */ +/* 09/13/99 MDE 05 Added SD_CONST modifiers */ +/* 12/16/96 JRB 04 Del "AUDTLOG_*" macros. Use "ACSELOG_*" for */ +/* CL ACSE as well as CO ACSE. */ +/* 10/08/98 MDE 08 Migrated to updated SLOG interface */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 03/20/97 JRB 07 Stop checking for sLogCtrl==NULL. */ +/* 02/20/97 JRB 06 Move *_debug_sel & logmasks from acse2log.h */ +/* to acse2usr.h. */ +/* 01/02/97 EJV 05 Added ACSE2LOG_INCLUDED */ +/* 12/16/96 JRB 04 Add "AUDTLOG_*" macros for CLACSE. */ +/* 07/19/96 JRB 03 Change DEBUG_MMS to DEBUG_SISCO. */ +/* 04/17/96 JRB 02 Del acse_sLogCtrl, use sLogCtrl (slog.c) now */ +/* 10/30/95 JRB 01 Created */ +/************************************************************************/ +#ifndef ACSE2LOG_INCLUDED +#define ACSE2LOG_INCLUDED + +#include "acse2usr.h" /* need acse_debug_sel & log mask defines */ + +#ifdef __cplusplus +extern "C" { +#endif + + +#ifdef DEBUG_SISCO +/****************************************************************/ +/* Log Control macros */ +/****************************************************************/ + +extern SD_CONST ST_CHAR *SD_CONST _acse_err_logstr; +extern SD_CONST ST_CHAR *SD_CONST _acse_enc_logstr; +extern SD_CONST ST_CHAR *SD_CONST _acse_dec_logstr; +extern SD_CONST ST_CHAR *SD_CONST _acse_dib_logstr; +#endif /* DEBUG_SISCO */ + +/*--------------------------------------*/ +/* ACSELOG_DEC macros */ +/*--------------------------------------*/ +#define ACSELOG_DEC0(a) \ + SLOG_0 (acse_debug_sel & ACSE_LOG_DEC,_acse_dec_logstr,a) +#define ACSELOG_DEC1(a,b) \ + SLOG_1 (acse_debug_sel & ACSE_LOG_DEC,_acse_dec_logstr,a,b) +#define ACSELOG_DEC2(a,b,c) \ + SLOG_2 (acse_debug_sel & ACSE_LOG_DEC,_acse_dec_logstr,a,b,c) +#define ACSELOG_DEC3(a,b,c,d) \ + SLOG_3 (acse_debug_sel & ACSE_LOG_DEC,_acse_dec_logstr,a,b,c,d) + +#define ACSELOG_DEC0C(a) SLOGC_0 (acse_debug_sel & ACSE_LOG_DEC,a) +#define ACSELOG_DEC1C(a,b) SLOGC_1 (acse_debug_sel & ACSE_LOG_DEC,a,b) +#define ACSELOG_DEC2C(a,b,c) SLOGC_2 (acse_debug_sel & ACSE_LOG_DEC,a,b,c) +#define ACSELOG_DEC3C(a,b,c,d) SLOGC_3 (acse_debug_sel & ACSE_LOG_DEC,a,b,c,d) + +#define ACSELOG_DECH(a,b) SLOGH (acse_debug_sel & ACSE_LOG_DEC,a,b) + +/*--------------------------------------*/ +/* ACSELOG_ENC macros */ +/*--------------------------------------*/ +#define ACSELOG_ENC0(a) \ + SLOG_0 (acse_debug_sel & ACSE_LOG_ENC,_acse_enc_logstr,a) +#define ACSELOG_ENC1(a,b) \ + SLOG_1 (acse_debug_sel & ACSE_LOG_ENC,_acse_enc_logstr,a,b) +#define ACSELOG_ENC2(a,b,c) \ + SLOG_2 (acse_debug_sel & ACSE_LOG_ENC,_acse_enc_logstr,a,b,c) +#define ACSELOG_ENC3(a,b,c,d) \ + SLOG_3 (acse_debug_sel & ACSE_LOG_ENC,_acse_enc_logstr,a,b,c,d) + +#define ACSELOG_ENC0C(a) SLOGC_0 (acse_debug_sel & ACSE_LOG_ENC,a) +#define ACSELOG_ENC1C(a,b) SLOGC_1 (acse_debug_sel & ACSE_LOG_ENC,a,b) +#define ACSELOG_ENC2C(a,b,c) SLOGC_2 (acse_debug_sel & ACSE_LOG_ENC,a,b,c) +#define ACSELOG_ENC3C(a,b,c,d) SLOGC_3 (acse_debug_sel & ACSE_LOG_ENC,a,b,c,d) + +#define ACSELOG_ENCH(a,b) SLOGH (acse_debug_sel & ACSE_LOG_ENC,a,b) + +/*--------------------------------------*/ +/* ACSELOG_ERR macros */ +/*--------------------------------------*/ +#define ACSELOG_ERR0(a) \ + SLOG_0 (acse_debug_sel & ACSE_LOG_ERR,_acse_err_logstr,a) +#define ACSELOG_ERR1(a,b) \ + SLOG_1 (acse_debug_sel & ACSE_LOG_ERR,_acse_err_logstr,a,b) +#define ACSELOG_ERR2(a,b,c) \ + SLOG_2 (acse_debug_sel & ACSE_LOG_ERR,_acse_err_logstr,a,b,c) +#define ACSELOG_ERR3(a,b,c,d) \ + SLOG_3 (acse_debug_sel & ACSE_LOG_ERR,_acse_err_logstr,a,b,c,d) + +#define ACSELOG_ERR0C(a) SLOGC_0 (acse_debug_sel & ACSE_LOG_ERR,a) +#define ACSELOG_ERR1C(a,b) SLOGC_1 (acse_debug_sel & ACSE_LOG_ERR,a,b) +#define ACSELOG_ERR2C(a,b,c) SLOGC_2 (acse_debug_sel & ACSE_LOG_ERR,a,b,c) +#define ACSELOG_ERR3C(a,b,c,d) SLOGC_3 (acse_debug_sel & ACSE_LOG_ERR,a,b,c,d) + +#define ACSELOG_ERRH(a,b) SLOGH (acse_debug_sel & ACSE_LOG_ERR,a,b) + +/*--------------------------------------*/ +/* ACSELOG_DIB macros */ +/*--------------------------------------*/ +#define ACSELOG_DIB0(a) \ + SLOG_0 (acse_debug_sel & ACSE_LOG_DIB,_acse_dib_logstr,a) +#define ACSELOG_DIB1(a,b) \ + SLOG_1 (acse_debug_sel & ACSE_LOG_DIB,_acse_dib_logstr,a,b) +#define ACSELOG_DIB2(a,b,c) \ + SLOG_2 (acse_debug_sel & ACSE_LOG_DIB,_acse_dib_logstr,a,b,c) +#define ACSELOG_DIB3(a,b,c,d) \ + SLOG_3 (acse_debug_sel & ACSE_LOG_DIB,_acse_dib_logstr,a,b,c,d) + +#define ACSELOG_DIB0C(a) SLOGC_0 (acse_debug_sel & ACSE_LOG_DIB,a) +#define ACSELOG_DIB1C(a,b) SLOGC_1 (acse_debug_sel & ACSE_LOG_DIB,a,b) +#define ACSELOG_DIB2C(a,b,c) SLOGC_2 (acse_debug_sel & ACSE_LOG_DIB,a,b,c) +#define ACSELOG_DIB3C(a,b,c,d) SLOGC_3 (acse_debug_sel & ACSE_LOG_DIB,a,b,c,d) + +#define ACSELOG_DIBH(a,b) SLOGH (acse_debug_sel & ACSE_LOG_DIB,a,b) + + +/****************************************************************/ +/* Log Control prototypes. */ +/****************************************************************/ +ST_VOID acse_default_log (ST_VOID); /* Set default log configuration */ + +#ifdef __cplusplus +} +#endif + +#endif /* ACSE2LOG_INCLUDED */ + diff --git a/include/inc/acse2usr.h b/include/inc/acse2usr.h new file mode 100644 index 0000000..4030758 --- /dev/null +++ b/include/inc/acse2usr.h @@ -0,0 +1,406 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1995-2005, All Rights Reserved */ +/* */ +/* MODULE NAME : acse2usr.h */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : */ +/* ACSE main header file. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 05/05/05 EJV 33 PRES_ADDR added port. */ +/* 03/28/05 EJV 32 MMSEASE_MOSE: add MAX_PSEL_LEN, MAX_SSEL_LEN */ +/* 10/21/03 JRB 31 Add a_get_event_handles_unix. */ +/* 08/25/03 EJV 30 Del old password auth (OBSOLETE_ACSE_AUTH) */ +/* Added a_get_chan. */ +/* Renamed encrypt_info to encrypt_ctrl */ +/* 07/23/03 MDE 29 Removed ACSE_AUTH_ENABLED, S_SEC_ENABLED */ +/* 06/17/03 EJV 28 Added ACSE_LOG_DIB mask. */ +/* 06/13/03 MDE 27 Added Security */ +/* 10/14/02 ASK 26 Added abort diagnostic to ABRT_APDU. */ +/* 09/30/02 ASK 25 Moved authentication defines / protos into */ +/* acseauth.h */ +/* 09/27/02 ASK 24 Add authentication stuff to AARE_APDU */ +/* 06/20/02 JRB 23 Add calling_paddr to AARQ_APDU. */ +/* Replace "nsap" in PRES_ADDR with union. */ +/* 05/02/02 MDE 22 Added _copp_bind */ +/* 02/14/02 ASK 21 Add a_associate_reqm */ +/* 01/22/02 JRB 20 Add args to copp_initialize (same as MAP30..)*/ +/* Del a_set_msgsize (no longer needed). */ +/* 01/10/02 JRB 19 Add cltp_decode_nsdu_2 proto. */ +/* 12/20/01 JRB 18 Del clpp_bind functions and bind id args to */ +/* a_unit_data_req & u_a_unit_data_ind. */ +/* 05/10/01 JRB 17 Chg SSEL_LEN from 16 to 4. */ +/* 12/18/00 EJV 16 Added remAr param to a_associate_req for */ +/* Lite over Marben stack (MAP30_ACSE). */ +/* 08/05/99 JRB 15 Add a_get_ev... prototype. */ +/* 07/14/99 JRB 14 Add ACSE Password Authentication stuff. */ +/* 01/28/99 JRB 13 Move cltp_decode_nsdu proto from TP4 to here.*/ +/* 12/04/98 JRB 12 Del "audt_debug_sel". */ +/* Add "loc_mac" to AUDT_APDU. */ +/* 08/13/98 JRB 11 Lint cleanup. */ +/* 08/14/97 JRB 10 Added "tp_type" to PRES_ADDR. */ +/* Del MAX_TSEL_LEN & MAX_NSAP_LEN defines (use */ +/* MAX_TSEL_LEN & MAX_IP_ADDR_LEN in tp4api.h). */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 04/10/97 JRB 09 Chg error defs to use base from "glberror.h".*/ +/* 03/07/97 JRB 08 Add COPP & COSP logmasks for MOSI. */ +/* 02/20/97 JRB 07 Move *_debug_sel & logmasks from acse2log.h */ +/* to acse2usr.h. */ +/* 01/09/97 MDE 06 Allow user to specify destination MAC */ +/* 01/01/97 RKR 05 Added ACSE2USR_INCLUDED and __cplusplus */ +/* 10/04/96 JRB 04 Add adlcAddr to PRES_ADDR for MCGW. */ +/* 08/15/96 JRB 03 Add a_buffers_avail prototype for LEAN_T. */ +/* 04/18/96 JRB 02 Chg a_associate_req return to ST_LONG. */ +/* 03/26/96 MDE 01 Added header, 'REDUCED_STACK' support */ +/************************************************************************/ + +#ifndef ACSE2USR_INCLUDED +#define ACSE2USR_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "asn1defs.h" +#include "acseauth.h" +#include "ssec.h" +#include "clnp_usr.h" +#include "tp4api.h" /* Need TP_TYPE_* defines for "tp_type" values. */ + /* Need MAX_TSEL_LEN & MAX_IP_ADDR_LEN defines. */ + + +/****************************************************************/ +/* Log Control */ +/****************************************************************/ +#define ACSE_LOG_ERR 0x00000001 +#define ACSE_LOG_ENC 0x00000002 +#define ACSE_LOG_DEC 0x00000004 +#define ACSE_LOG_DIB 0x00000008 + +#define COPP_LOG_ERR 0x00000100L +#define COPP_LOG_DEC 0x00001000L +#define COPP_LOG_DEC_HEX 0x00002000L +#define COPP_LOG_ENC 0x00004000L +#define COPP_LOG_ENC_HEX 0x00008000L + +#define COSP_LOG_ERR 0x00010000L +#define COSP_LOG_DEC 0x00100000L +#define COSP_LOG_DEC_HEX 0x00200000L +#define COSP_LOG_ENC 0x00400000L +#define COSP_LOG_ENC_HEX 0x00800000L + + +extern ST_UINT acse_debug_sel; + +/************************************************************************/ +/* Error codes (returned from a_* functions). */ +/* NOTE: Values begin from E_ACSE2 (found in glberror.h). */ +/* NOTE: The exception codes (EX_ACSE_*) do not have separate range. */ +/************************************************************************/ +#define E_ACSE_ENC_ERR 0x3001 +#define E_ACSE_SEND_ERR 0x3002 +#define E_ACSE_INVALID_CONN_ID 0x3003 +#define E_ACSE_INVALID_STATE 0x3004 +#define E_ACSE_INVALID_PARAM 0x3005 +#define E_ACSE_BUFFER_OVERFLOW 0x3006 +#define E_ACSE_MEMORY_ALLOC 0x3007 + +/************************************************************************/ +/* Exception codes (passed to u_a_except or u_cla_except). */ +/* Caused by decode or state problems. */ +/************************************************************************/ +#define EX_ACSE_DECODE 0x3081 +#define EX_ACSE_INVALID_STATE 0x3082 + +/************************************************************************/ +/* Structure definitions. */ +/************************************************************************/ +/* This structure represents the entire Presentation address */ +/* NOTE: Using Fastbyte Presentation and Session, there are no P-Sels */ +/* and S-Sels, so the P-Address is equivalent to the T-Address */ + +#if defined(MMSEASE_MOSI) +#define MAX_PSEL_LEN 16 +#define MAX_SSEL_LEN 16 +#else +#define MAX_PSEL_LEN 4 /* International Std Profile recommends 4*/ +#define MAX_SSEL_LEN 4 /* GOSIP Ver2 recommends len of 2 */ +#endif +/* MAX_TSEL_LEN defined in "tp4api.h" */ +/* MAX_IP_ADDR_LEN defined in "tp4api.h" */ +typedef struct tagPRES_ADDR + { +#if !defined(REDUCED_STACK) + ST_UINT psel_len; + ST_UCHAR psel [MAX_PSEL_LEN]; + ST_UINT ssel_len; + ST_UCHAR ssel [MAX_SSEL_LEN]; + ST_INT tp_type; /* Type of transport: TP_TYPE_TP4 or TP_TYPE_TCP.*/ + ST_UINT tsel_len; + ST_UCHAR tsel [MAX_TSEL_LEN]; + ST_UINT nsap_len; + union + { /* If TP_TYPE_TP4, use "nsap". If TP_TYPE_TCP, use "ip". */ + ST_UCHAR nsap [CLNP_MAX_LEN_NSAP]; /* NSAP OR */ + ST_ULONG ip; /* IP Addr (network byte order) */ + }netAddr; + ST_UINT16 port; +#if defined (MCGW) + ST_UINT16 adlcAddr; +#endif /* defined (MCGW) */ +#else + ST_UINT16 adlcAddr; +#endif + } PRES_ADDR; + +/* This structure is used for any data that must be encoded/decoded */ +/* by the user instead of the ACSE. */ +/* If len == 0, or ptr == NULL, it is assumed there is no data. */ +typedef struct tagBUFFER + { + ST_INT len; /* Length of encoded data. */ + ST_UCHAR *ptr; /* Pointer to encoded data. */ + } BUFFER; + +/* This structure contains AE_TITLE info. */ +typedef struct tagAE_TITLE + { + ST_BOOLEAN AP_title_pres; /* present flag */ + MMS_OBJ_ID AP_title; /* AP title */ + ST_BOOLEAN AE_qual_pres; /* present flag */ + ST_INT32 AE_qual; /* AE qualifier */ + ST_BOOLEAN AP_inv_id_pres; /* present flag */ + ST_INT32 AP_inv_id; /* AP invocation ID */ + ST_BOOLEAN AE_inv_id_pres; /* present flag */ + ST_INT32 AE_inv_id; /* AE invocation ID */ + } AE_TITLE; + +/* This structure is used for the AARQ_APDU. */ +typedef struct tagAARQ_APDU + { + /* The following entries passed to peer in AARQ-apdu.*/ + /* ACSE sets and checks "protocol-version". Must be "version1". */ + ST_BOOLEAN ASO_context_name_pres; + MMS_OBJ_ID ASO_context_name; + AE_TITLE called_ae_title; + AE_TITLE calling_ae_title; + + /* authentication and security */ + ACSE_AUTH_INFO auth_info; + S_SEC_ENCRYPT_CTRL encrypt_ctrl; + + BUFFER user_info; /* User must encode/decode */ + + /* The following entries passed to presentation. */ + /* NOTE: "calling_paddr" ignored by "a_associate_req" function. */ + /* Contains remote addr when "u_a_associate_ind" called. */ + PRES_ADDR calling_paddr; + PRES_ADDR called_paddr; + } AARQ_APDU; + +/* This structure is used for the AUDT_APDU */ +/* NOTE: same as AARQ_APDU except add calling_paddr. */ +typedef struct tagAUDT_APDU + { + /* The following entries passed to peer in AUDT-apdu.*/ + /* ACSE sets and checks "protocol-version". Must be "version1". */ + ST_BOOLEAN ASO_context_name_pres; + MMS_OBJ_ID ASO_context_name; + AE_TITLE called_ae_title; + AE_TITLE calling_ae_title; + BUFFER user_info; /* User must encode/decode */ + + /* The following entries passed to or received from presentation. */ + PRES_ADDR calling_paddr; + PRES_ADDR called_paddr; + + /* User doesn't need to set loc_mac before calling a_unit_data_req. */ + /* Decode process fills in loc_mac before calling u_a_unit_data_ind. */ + ST_UCHAR loc_mac [CLNP_MAX_LEN_MAC]; /* Local MAC addr */ + ST_BOOLEAN rem_mac_valid; /* SD_TRUE if MAC addr valid */ + ST_UCHAR rem_mac [CLNP_MAX_LEN_MAC]; /* Remote MAC addr */ + } AUDT_APDU; + + +/* This structure is used for the AARE_APDU. */ +typedef struct tagAARE_APDU + { + /* ACSE sets and checks "protocol-version". Must be "version1". */ + ST_BOOLEAN ASO_context_name_pres; + MMS_OBJ_ID ASO_context_name; + AE_TITLE responding_ae_title; + ST_INT16 result; + ST_BOOLEAN result_source_diag_pres; + ST_UINT16 result_source; /* Passed as asn1_tag to ASN1 functs */ + ST_INT16 result_diag; + + /* authentication and security */ + ACSE_AUTH_INFO auth_info; + S_SEC_ENCRYPT_CTRL encrypt_ctrl; + + BUFFER user_info; /* User must encode/decode */ + } AARE_APDU; + +/* This structure is used for the RLRQ_APDU. */ +typedef struct tagRLRQ_APDU + { + ST_BOOLEAN reason_pres; + ST_INT16 reason; + BUFFER user_info; /* User must encode/decode */ + } RLRQ_APDU; + +/* This structure is used for the RLRE_APDU. */ +typedef struct tagRLRE_APDU + { + ST_BOOLEAN reason_pres; + ST_INT16 reason; + BUFFER user_info; /* User must encode/decode */ + /* NOTE: With Fastbyte presentation and session, there is no way to */ + /* refuse a release, so the "Result" parameter is assumed to be */ + /* "affirmative", and is therefore not needed in this structure.*/ + } RLRE_APDU; + +/* This structure is used for the ABRT_APDU. */ +typedef struct tagABRT_APDU + { + ST_INT16 source; /* Abort source (0=user, 1=provider) */ + ST_BOOLEAN diagnostic_pres; + ST_ACSE_AUTH diagnostic; /* Abort diagnostic; codes in acseauth.h */ + BUFFER user_info; /* User must encode/decode */ + } ABRT_APDU; + +/* NOTE: the ASO-association-identifier in the ACSE specification is not*/ +/* supported in this implementation. It will not be sent in outgoing */ +/* APDUs and will be ignored in incoming APDUs. */ + +/************************************************************************/ +/* Prototypes */ +/************************************************************************/ +ST_RET copp_initialize (ST_INT max_conns, ST_UINT msg_size); +ST_RET copp_terminate (ST_VOID); +ST_BOOLEAN copp_event (ST_VOID); +#if defined(MAP30_ACSE) +ST_RET copp_bind (ST_LONG user_bind_id, ST_CHAR *loc_ar_name, + ST_INT num_calling, ST_INT num_called); +ST_RET _copp_bind (ST_LONG user_bind_id, ST_CHAR *loc_ar_name, + ST_INT num_calling, ST_INT num_called, + ST_BOOLEAN activate); +#else +ST_RET copp_bind (ST_LONG user_bind_id, PRES_ADDR *pres_addr, + ST_INT sharable, ST_INT max_conns); +#endif /* !defined(MAP30_ACSE) */ +ST_VOID u_copp_bind_cnf (ST_LONG user_bind_id, ST_LONG copp_bind_id, ST_RET result); +ST_RET copp_unbind (ST_LONG copp_bind_id); +ST_VOID u_copp_unbind_cnf (ST_LONG user_bind_id); +ST_RET audt_set_msgsize (ST_UINT len); +#if defined(MAP30_ACSE) +ST_LONG a_associate_req ( + ST_LONG copp_bind_id, /* ACSE's bind ID received in u_copp_bind_cnf*/ + ST_LONG user_conn_id, /* USER's ID for this connection */ + AARQ_APDU *info, /* AARQ_APDU info */ + ST_CHAR *remAr); /* remote AR Name. */ + +ST_LONG a_associate_reqm ( + ST_LONG copp_bind_id, /* ACSE's bind ID received in u_copp_bind_cnf*/ + ST_LONG user_conn_id, /* USER's ID for this connection */ + AARQ_APDU *aarq_apdu, /* AARQ_APDU info */ + ST_CHAR *locAr, /* local AR Name. */ + ST_CHAR *remAr); /* remote AR Name. */ +#else +ST_LONG a_associate_req ( + ST_LONG copp_bind_id, /* ACSE's bind ID received in u_copp_bind_cnf*/ + ST_LONG user_conn_id, /* USER's ID for this connection */ + AARQ_APDU *info); /* AARQ_APDU info. */ +#endif /* !defined(MAP30_ACSE) */ +ST_VOID u_a_associate_ind ( + ST_LONG user_bind_id, /* USER's Bind ID passed to copp_bind */ + ST_LONG acse_conn_id, /* ACSE's ID for this connection */ + AARQ_APDU *info); /* AARQ_APDU info. */ +ST_RET a_associate_rsp ( + ST_LONG acse_conn_id, /* ACSE's ID for this connection */ + ST_LONG user_conn_id, /* USER's ID for this connection */ + AARE_APDU *info); /* AARE_APDU info. */ +ST_VOID u_a_associate_cnf ( + ST_LONG acse_conn_id, /* ACSE's ID for this connection */ + ST_LONG user_conn_id, /* USER's ID for this connection */ + AARE_APDU *info); /* AARE_APDU info. */ +ST_RET a_release_req ( + ST_LONG acse_conn_id, /* ACSE's ID for this connection */ + RLRQ_APDU *info); /* RLRQ_APDU info. */ +ST_VOID u_a_release_ind ( + ST_LONG user_conn_id, /* USER's ID for this connection */ + RLRQ_APDU *info); /* RLRQ_APDU info. */ +ST_RET a_release_rsp ( + ST_LONG acse_conn_id, /* ACSE's ID for this connection */ + RLRE_APDU *info); /* RLRE_APDU info. */ +ST_VOID u_a_release_cnf ( + ST_LONG user_conn_id, /* user's ID for this connection */ + RLRE_APDU *info); /* RLRE_APDU info. */ +ST_RET a_abort_req ( + ST_LONG acse_conn_id, /* ACSE's ID for this connection */ + ABRT_APDU *info); /* ABORT request info. */ +ST_VOID u_a_abort_ind ( + ST_LONG user_conn_id, /* USER's ID for this connection */ + ABRT_APDU *info); /* ABORT request info. */ +ST_RET a_data_req ( + ST_LONG acse_conn_id, /* ACSE's ID for this connection */ + ST_UINT data_len, + ST_UCHAR *data); +ST_VOID u_a_data_ind ( + ST_LONG user_conn_id, /* USER's ID for this connection */ + ST_UINT data_len, + ST_UCHAR *data); +ST_INT a_buffers_avail ( + ST_LONG acse_conn_id); /* ACSE's ID for this connection */ +ST_VOID u_a_except ( + ST_LONG user_conn_id, /* USER's ID for this connection */ + ST_INT code, /* See EX_ACSE_* defines */ + ST_CHAR *filename, /* Source code file name */ + ST_INT line); /* source code line number */ +ST_VOID u_cla_except ( + ST_LONG user_bind_id, /* USER's ID for this bind */ + ST_INT code, /* See EX_ACSE_* defines */ + ST_CHAR *filename, /* Source code file name */ + ST_INT line); /* source code line number */ + +ST_RET clpp_initialize (ST_VOID); +ST_RET clpp_terminate (ST_VOID); +ST_RET a_unit_data_req ( + AUDT_APDU *info); /* AUDT_APDU info. */ +ST_VOID u_a_unit_data_ind ( + AUDT_APDU *info); /* AUDT_APDU info. */ +ST_BOOLEAN clpp_event (ST_VOID); + +ST_VOID cltp_decode_nsdu (N_UNITDATA *n_unitdata); +ST_RET cltp_decode_nsdu_2 (N_UNITDATA *pNudt, AUDT_APDU *pAudt); + +/************************************************************************/ +/* Address resolution utility functions. */ +/************************************************************************/ +ST_UCHAR *a_get_rem_nsap (ST_LONG acse_conn_id); +ST_ULONG a_get_rem_ip_addr (ST_LONG acse_conn_id); + +/************************************************************************/ +/* Miscellaneous functions */ +/************************************************************************/ +ST_EVENT_SEM a_get_event_handles (ST_INT *pNumEntries); +int *a_get_event_handles_unix (ST_INT *pNumEntries); /* for UNIX-like systems*/ +ST_RET a_get_chan (ST_LONG acse_conn_id, ST_INT *chan_out); + + +/************************************************************************/ +#ifdef __cplusplus +} +#endif + +#endif /* ACSE2USR_INCLUDED */ +/************************************************************************/ + diff --git a/include/inc/acseauth.h b/include/inc/acseauth.h new file mode 100644 index 0000000..0d600da --- /dev/null +++ b/include/inc/acseauth.h @@ -0,0 +1,120 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1995-2004, All Rights Reserved */ +/* */ +/* MODULE NAME : acseauth.h */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : */ +/* ACSE Authentication header file. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 02/05/04 EJV 07 Added MACE_MECH_ID and PASWORD_MECH_ID defs. */ +/* 02/04/04 EJV 06 Removed extern maceMechId. */ +/* 08/20/03 EJV 05 Added extern maceMechId. */ +/* 07/08/03 EJV 04 Del old password auth (OBSOLETE_ACSE_AUTH) */ +/* 03/19/03 MDE 03 Added ACSE_AUTH_MECH_MACE_CERT */ +/* 03/13/03 EJV 02 Added asn1r.h. */ +/* 09/30/02 ASK 01 Created */ +/************************************************************************/ + +#ifndef ACSEAUTH_INCLUDED +#define ACSEAUTH_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "asn1r.h" /* for MMS_OBJ_ID */ + +/************************************************************************/ +/* New Authentication stuff */ +/************************************************************************/ +/*#define ACSE_MAX_LEN_PASSWORD 16*/ +/*renxiaobao mod*/ +#define ACSE_MAX_LEN_PASSWORD 32 + +typedef ST_INT16 ST_ACSE_AUTH; + +/* Authentication mechanisms MMS_OBJ_ID */ +#define PASS_MECH_ID {4, {2 ,2 ,3 ,1 }} + +#define MACE_MECH_ID \ + { 8, /* num_comps */ \ + { /* comps */ \ + 1, /* ??? */ \ + 0, /* ??? */ \ + 840, /* iso member-body usa */ \ + 0, /* ansi-t1-259-1997 */ \ + 1, /* stase */ \ + 0, /* stase-authentication value */ \ + 1, /* abstractSyntax */ \ + 1 /* version */ \ + } \ + } + +/* The ACSE user shall return one of the falling codes once they have */ +/* taken a look at the partner's ACSE_AUTH_INFO structure. */ + +/* These return codes map to the ABRT-diagnostic of the Abort PDU. */ +/* Returning any of these will result in an abort PDU being sent with */ +/* the specified diagnostic code. */ +#define ACSE_AUTH_SUCCESS 0 +#define ACSE_DIAG_NO_REASON 1 +#define ACSE_DIAG_PROTOCOL_ERROR 2 +#define ACSE_DIAG_AUTH_MECH_NAME_NOT_RECOGNIZED 3 +#define ACSE_DIAG_AUTH_MECH_NAME_REQUIRED 4 +#define ACSE_DIAG_AUTH_FAILURE 5 +#define ACSE_DIAG_AUTH_REQUIRED 6 + +/* Mechanism types */ +#define ACSE_AUTH_MECH_PASSWORD 0 +#define ACSE_AUTH_MECH_MACE_CERT 1 +#define ACSE_AUTH_MECH_OTHER 2 + +/* This structure is used for any mechanism data that must be */ +/* encoded/decoded by the user instead of the ACSE. */ +typedef struct + { + ST_INT len; /* Length of encoded data. */ + ST_UCHAR *ptr; /* Pointer to encoded data. */ + ST_UCHAR *buf; /* User buffer (chk_free'd if != NULL) */ + } USR_AUTH_BUFFER; + + +/* User-Supplied Authentication Structure */ +typedef struct + { + ST_BOOLEAN auth_pres; /* If this structure is filled out */ + ST_INT mech_type; /* One of the mechanism types, defined above */ + + union + { + struct + { + ST_CHAR password[ACSE_MAX_LEN_PASSWORD + 1]; + } pw_auth; + struct + { + MMS_OBJ_ID mech_id; /* User must set to desired id */ + USR_AUTH_BUFFER auth_value; /* User must encode/decode ASN.1 */ + } other_auth; + } u; + + } ACSE_AUTH_INFO; + + + +/************************************************************************/ +#ifdef __cplusplus +} +#endif + +#endif /* ACSEAUTH_INCLUDED */ +/************************************************************************/ diff --git a/include/inc/adlc.h b/include/inc/adlc.h new file mode 100644 index 0000000..98d2932 --- /dev/null +++ b/include/inc/adlc.h @@ -0,0 +1,1021 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1995-2002, All Rights Reserved */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : adlc.h */ +/* PRODUCT(S) : ADLC */ +/* */ +/* MODULE DESCRIPTION : */ +/* Function prototypes and commands definations as defined in */ +/* ISO/IEC 4335 for frame format */ +/* Note : For ADLC context packet refers to information passing with */ +/* stack while frame refers to information passing with Serial Manager */ +/* */ +/* This module can be divided into five parts */ +/* 1. First part deals with all the numeric defines and command defn */ +/* as in ISO specs */ +/* 2. This part deals with the defination of the data structures used */ +/* 3. This part has function like macros used to get and set various */ +/* fields */ +/* 4. This has the declaration of all the global variables as extern. */ +/* All the global variables are declared in adlc_var.c */ +/* 5. This part has the prototypes of global functions shared between */ +/* modules. All the functions are put separately according to the */ +/* module it belongs to */ +/* Note : For ADLC context packet refers to information passing with */ +/* stack while frame refers to information passing with Serial Manager */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 11/24/02 KCR 35 Added rdThreadError handling semaphore */ +/* 09/22/02 KCR 34 Added paranthesis to macros */ +/* 06/15/01 JRB 33 ipcChk* macros call chk_*, not x_chk_*. */ +/* 03/03/00 KCR 32 Exit Thread using events not TerminateThread() */ +/* 10/01/99 NAV 31 Added more SD_CONST modifiers */ +/* 09/13/99 MDE 30 Added SD_CONST modifiers */ +/* 04/20/98 IKE 29 Moved u_smp_record_time in Serial Manager */ +/* 03/05/98 IKE 28 Added Critical Sections to protect Adlc Data */ +/* Removed adlcIpcxxx functions */ +/* 02/04/98 IKE 27 Added deleteUIFramesFromTxList to fix bug */ +/* 10/20/97 IKE 26 Added addToListTime for Link Manager */ +/* 09/23/97 IKE 25 Added adlcExtWritePacket for define UCA_SMP */ +/* 09/18/97 IKE 24 Added telephone support */ +/* 07/16/97 IKE 23 Added device statistics and device filt log */ +/* 06/12/97 IKE 22 Made ADLC protocol transaction oriented */ +/* 05/12/97 IKE 21 Changed to MMSEASE 7.0 Data Types */ +/* 02/24/96 IKE 20 Removed #ifdef PLAIN_DOS and used ADLC_LM */ +/* define for ipc specific code */ +/* CFG_PORT also for DOS so multiple ports can */ +/* be initialized in dos platform */ +/* 02/03/97 IKE 19 adlcCfg per port basis */ +/* 01/23/97 IKE 18 Added txRxModeCounter for proper behaviour */ +/* of turnaround timers */ +/* 01/17/97 IKE 17 Added defn of initSiscoUtilGlbVarsForAdlc */ +/* and addToCfgPort */ +/* 12/03/96 IKE 16 WIN32 Support, header files cleanup */ +/* Added adlc_sm.h, some func prototypes for */ +/* adlc_tst.c */ +/* 11/15/96 IKE 15 Added adlcInitGlbVars */ +/* 11/06/96 IKE 14 Changed C++ style comments to C style */ +/* comments to make it more platform independent*/ +/* 10/28/96 KCR 13 Put ipcChkxxx macros to replace chk_xxx */ +/* 09/30/96 IKE 12 Moved adlc_stats from adlc.h to adlc_usr.h */ +/* so other apps could reference it */ +/* Added communicationMedia, put ifdef MASTER */ +/* in ADLC_CFG struct for members that were used*/ +/* for master only, added reconfigure option */ +/* 09/17/96 IKE 11 Added some struct members to ADLC_CFG_INFO */ +/* and ADLC_PORT_INFO structure */ +/* 08/22/96 IKE 10 Support for contention avoidance */ +/* Changed > to >= in CHECK_TIMEOUT macro */ +/* 08/16/96 IKE 09 Added rxMFramesList, vR and infoBufLen in */ +/* port struct (to make UI into INFO), added */ +/* turnaroundtime in cfg and device struct, */ +/* changed UPDATE_TIMEOUT */ +/* 08/05/96 IKE 08 Added connectAll to device struct, mode to */ +/* port struct and radioDelayTime to cfg struct */ +/* 07/17/96 IKE 07 Removed some lint and C6.00 warnings by type */ +/* casting to ST_UCHAR in some macros */ +/* 06/20/96 KCR 06 Increased MAX_ADLC_FRAME_LEN from 256 to 2048*/ +/* 06/18/96 IKE 05 Changed the type of configured timeout into */ +/* ST_DOUBLE. Added stackTaskId for DOS platform. */ +/* Changed time related macros to functions and */ +/* moved to module adlc_tm.c */ +/* 06/11/96 IKE 04 Added cnp_usr.h, frame timeout and SM_PUT */ +/* 05/22/96 IKE 03 Added defn for three types of run mode */ +/* Modified xxx_ADDR_FIELD_OFFSET. Put suffix */ +/* "ADLC_S" for link states for the ADLC */ +/* connection state machine */ +/* Added eventList and taskList */ +/* Added prototypes of added functions */ +/* 04/04/96 rkr 02 Cleanup */ +/* 07/18/95 IKE 01 Initial release. */ +/************************************************************************/ + +#ifndef _ADLC_H_ +#define _ADLC_H_ + +#ifdef __cplusplus +extern "C" { +#endif + +#include "gen_list.h" +#include "adlc_usr.h" +#if defined(ADLC_LM) +#include "adlc_ipc.h" +#endif +#include "adlc_log.h" +#include "adlc_sm.h" + +#if defined(ADLC_TESTING) +#include +#define ADLC_ASSERT(f) assert(f); +#else + #define ADLC_ASSERT(f) +#endif + +#if !defined(ADLC_LM) +/* At one time these macros called "x_chk_*" for DEBUG or */ +/* nonDEBUG, to be sure that the semaphore was locked. */ +/* Now "chk_*" always lock the sempaphore, so use them. */ +#define ipcChkCalloc(x,y) chk_calloc (x,y) +#define ipcChkMalloc(x) chk_malloc (x) +#define ipcChkFree(x) chk_free (x) +#endif + +#ifdef CNP +#include "cnp_usr.h" +#endif + +/************************************************************************/ +/* Constants related to configuration */ +/************************************************************************/ +#define MAX_ADLC_REQS 10 +#define MAX_ADLC_FRAME_LEN 2048 /* 2048 = 2035 + 11 + 2 */ + +/* Following are the run mode for ADLC Master */ +#define POLLED_MODE 0 +#define ENHANCED_POLLED_MODE 1 +#define CONTENTION_MODE 2 + +/* Following are the communication media for ADLC */ +#define CABLE_MEDIA 0 +#define RADIO_MEDIA 1 + +#define FRAME_FORMAT_TYPE3 0x9 /* used for polling */ +#define FRAME_FORMAT_TYPE4 0xA /* used for contention */ +#define MIN_ADLC_FRAME_LEN 11 /* Supervisory and Unnumbered */ +#define MIN_INFO_FRAME_LEN 13 + +#define SOF_FIELD_LEN 1 +#define SOF_FIELD_OFFSET 0 + +#define FORMAT_FIELD_LEN 2 +#define FORMAT_FIELD_OFFSET 1 + +#define DST_ADDR_FIELD_LEN 2 +#define DST_ADDR_FIELD_OFFSET 3 + +#define SRC_ADDR_FIELD_LEN 2 +#define SRC_ADDR_FIELD_OFFSET 5 + +#define CTRL_FILED_LEN 1 +#define CTRL_FIELD_OFFSET 7 + +#define CRC_FIELD_LEN 2 +#define CRC_FIELD_OFFSET 8 + +#define INFO_FIELD_OFFSET 10 + +#define EOF_FIELD_LEN 1 + + +#define PF_BIT 0x10 /* Poll / Final Bit */ +#define INFORMATION_FORMAT 0x00 /* last bit set to zero */ +#define INFO 0x00 /* Information */ + +#define SUPERVISORY_FORMAT 0x01 /* last bit = 1, 2nd last = 0 */ +#define RR 0x01 /* Receive Ready */ +#define RNR 0x05 /* Receive Not Ready */ +#define REJ 0x09 /* Reject */ + +#define UNNUMBERED_FORMAT 0x03 /* last two bits are set */ +#define UI 0x03 /* Unnumbered Information */ +#define SNRM 0x83 /* Set Normal Response */ +#define UA 0x63 /* Unnumbered Acknowledgment */ +#define DISC 0x43 /* Disconnect */ +#define RD 0x43 /* Request Disconnect */ +#define DM 0x0F /* Disconnect Mode */ +#define FRMR 0x87 /* Frame Reject */ + +/************************************************************************/ +/* flag attributes used when using function resetConnection */ +/************************************************************************/ +#define ADLC_DELETE_CON 1 +#define ADLC_RESET_ONLY 2 + +#if !defined(ADLC_LM) +/************************************************************************/ +/* used for global variable stackTaskId. We need to know in dos which */ +/* stack is linked to with ADLC to do different actions for different */ +/* stack */ +/* LM has this capability that it can run over both stacks at the same */ +/* time. and it will know by mapping the local address with task id */ +/************************************************************************/ +#define RLI_TASK_ID_RSGW 4 +#define RLI_TASK_ID_TRIM7 7 +#endif /* !ADLC_LM */ + +/************************************************************************/ +/* ADLC_CFG_INFO */ +/* */ +/************************************************************************/ +typedef struct tagAdlcCfgInfo + { + ST_INT modulus; + ST_INT frameLen; + ST_INT maxAdlcReqs; + ST_INT runMode; + ST_INT communicationMedia; + ST_INT retries; + ST_UCHAR sof; + ST_UCHAR eof; + ST_DOUBLE responseTimeout; /* refers to responseTimeout in port struct */ + ST_DOUBLE frameTimeout; /* refers to frameTimeout in port struct */ + ST_DOUBLE signalTimeout; /* refers to signalTimeout in port struct */ + ST_DOUBLE radioDekeyDelay; /* refers to signalTimeout in port struct */ + ST_DOUBLE radioStartOfTxDelay; /* refers to signalTimeout in port struct */ + ST_INT preambleLen; +#if defined(ADLC_MASTER) + ST_DOUBLE maxConnectRetryTimeout; + ST_DOUBLE deviceTurnaroundTime; /* refers to turnaround time in dev struct */ + ST_DOUBLE portTurnaroundTime; /* refers to turnaround time in port struct */ + ST_INT portUsage; +#endif /* ADLC_MASTER */ + } ADLC_CFG_INFO; + +/************************************************************************/ +/* ADLC_FRAME */ +/* */ +/* The following structure is used to read and write from the lower */ +/* layer (Serial Manager) */ +/************************************************************************/ +/* MMSOP_STATUS defines */ +#define STAT_STANDBY 0 +#define STAT_PROGRESS 1 +#define STAT_NACKED 2 +#define STAT_ACKED 3 + +typedef struct tagAdlcFrame + { + DBL_LNK p; /* required for link list operations */ + struct tagAdlcConInfo *cptr; /* Connection which it belongs to */ + ST_INT status; /* one of the above */ + ST_UCHAR cmd; + union + { + ST_UCHAR *infoBuf; + ST_UCHAR *redrBuf; + ST_UCHAR suprBuf[MIN_ADLC_FRAME_LEN]; + ST_UCHAR unumBuf[MIN_ADLC_FRAME_LEN]; + }u; + ST_INT infoLen; /* For info frame it is used for len of INFO msg */ + ST_INT frameLen; /* Total length of the frame including headers and trailers */ +#if defined(ADLC_LM) + DOUBLE addToListTime; +#endif + } ADLC_FRAME; + +/************************************************************************/ +/* ADLC_REQ */ +/* The following structure is to store one complete LSDU INFO */ +/* frame received from user application (Stack) */ +/************************************************************************/ +typedef struct tagAdlcReq + { + DBL_LNK p; /* required for link list operations */ +#if defined(ADLC_LM) + RLI_IPC_HDR hdr; /* IPC info including semaphore */ +#endif + struct tagAdlcConInfo *cptr; /* Connection which it belongs to */ + ADLC_FRAME *txIFramesList; /* Head to the segments of LSDU (small frames) */ + ST_ULONG usr1; /* user data - from original ADLC_CMD */ +#if defined(UCA_SMP) + ADLC_FRAME *txUIFramesList; /* Head to the segments of LSDU (small frames) */ + ST_LONG userId; +#endif + } ADLC_REQ; + +/************************************************************************/ +/* ADLC_CON_INFO */ +/* */ +/* ADLC connection information based on (Dn,Nn) where Dn represents */ +/* a device and Nn represents an OSI node */ +/************************************************************************/ +/* State Machine Design per connection for "state" */ +#define ADLC_S_DISCONNECT_PHASE 0 /* setting up data link */ +#define ADLC_S_LINK_DISCONNECT 1 /* setting up data link */ +#define ADLC_S_LINK_SETUP 2 /* setting up data link */ +#define ADLC_S_NORMAL 3 /* information transfer */ +#define ADLC_S_REMOTE_BUSY 4 /* information transfer */ +#define ADLC_S_SEND_REJECT 5 /* information transfer */ +#define ADLC_S_FRAME_REJECT 6 /* for slave only */ +#define ADLC_S_RESET 7 /* for slave only */ + +typedef struct tagAdlcConInfo + { + DBL_LNK p; /* required for link list operations */ + ST_UINT16 masterAddr; /* ISO node address */ + ST_INT txRxMode; /* TX_MODE or RX_MODE */ + struct tagAdlcDevInfo *dptr; /* ADLC device structure pointer */ + struct tagAdlcPortInfo *pptr; /* port which it belongs to */ + ST_INT state; /* Connection state defined above */ + ST_UCHAR vR; /* Receive State Variable */ + ST_UCHAR vS; /* Send State Variable */ + ST_UCHAR sendCount; /* How many frames we have sent */ + ST_INT infoBufLen; /* Length of info message for rxIFramesList */ + ST_INT txAdlcReqCount; /* How many write request ?? */ + ST_INT retries; /* How many retries are allowed */ + ADLC_FRAME *rxIFramesList; /* Info frames which are not complete LSDU */ +#if defined(ADLC_MASTER) + ST_DOUBLE connectRetryTimeout; /* To store the time when we will try to reconnect */ +#endif +#if defined(UCA_SMP) + ST_INT txExtAdlcReqCount; /* How many write request ?? */ + ADLC_FRAME *rxUIFramesList; /* Info frames which are not complete LSDU */ + ST_INT extInfoBufLen; /* Length of ui message for rxUIFramesList */ +#endif + } ADLC_CON_INFO; +/************************************************************************/ +/* ADLC_DEV_INFO */ +/* */ +/* Tracking structure for device. This is the main entry point to */ +/* reference to almost any device related info. This will be allocated */ +/* at the startup when reading from configuration file */ +/************************************************************************/ +#define MAX_DEV_NAME_SIZE 80 + +/* Mode could be one of the following */ +/* ADLC slave will only have two modes TX_MODE and RX_MODE */ +/* Slave will initially be at RX_MODE. It will go to TX_MODE when he */ +/* sees the P/F bit and after transmission it will go back to RX_MODE */ +/* In case of timeout it will remain in RX_MODE */ +/* ADLC master will initially be in TX_MODE. It will go in RX_MODE only */ +/* when it expects the response back from the slave. In case of timeout */ +/* it will go back to TX_MODE. */ +#define TX_MODE 0 +#define RX_MODE 1 + +typedef struct tagAdlcDevInfo + { + DBL_LNK p; /* required for link list operations */ + ST_CHAR name[MAX_DEV_NAME_SIZE+1]; /* storage for device name */ + ST_UINT16 address; /* Device's 16-bit address */ + ST_INT txRxMode; /* TX_MODE or RX_MODE */ + struct tagAdlcPortInfo *pptr; /* port which it belongs to */ + ADLC_CON_INFO *conList; +#if defined(ADLC_MASTER) + ST_INT pollGroup; /* 1 to MAX_POLL_GROUPS */ + ST_BOOLEAN connectAll; /* flag only used in adlcConnectAll() */ + ST_DOUBLE turnaroundTime; +#if defined(ADLC_LM) + ST_INT txRxModeCounter; /* for proper behaviour of turnaround timer */ +#endif /* ADLC_LM */ +#endif /* ADLC_MASTER */ +#if defined(ADLC_LM) + ADLC_DEV_STATS devStats; +#endif /* ADLC_LM */ + } ADLC_DEV_INFO; + +/************************************************************************/ +/* ADLC_PORT_INFO */ +/* */ +/* Tracking structure for network */ +/* will be allocated at the startup when reading from configuration file*/ +/* */ +/* txRxMode : is either TX_MODE or RX_MODE. */ +/* For master It is used in code in the following three ways */ +/* pptr->txRxMode = RX_MODE when p/f bit given to a slave */ +/* pptr->txRxMode = TX_MODE when port turnaround time or timeout has */ +/* elapsed */ +/* For slave It is used in code in the following three ways */ +/* pptr->txRxMode = TX_MODE when p/f is received from master */ +/* pptr->txRxMode = RX_MODE when p/f bit given from slave */ +/* if pptr->txRxMode == TX_MODE to see if we got p/f from master */ +/* runMode : is POLLED_MODE, ENHANCED_POLLED_MODE or CONTENTION_MODE */ +/* The idea is when runMode is configured in CONTENTION_MODE, then */ +/* pptr->runMode can change dynamically else pptr->runMode will remain */ +/* same as configured runMode (i.e. ADLC_RUN_MODE(pptr)) */ +/* For slave it is used in the following ways */ +/* pptr->runMode = POLLED_MODE when p/f is received from master */ +/* pptr->runMode = CONTENTION_MODE when p/f bit given from slave */ +/* if pptr->runMode == CONTENTION_MODE to encode the frame format */ +/* For Master it is used in the following ways */ +/* pptr->runMode = ENHANCED_POLLED_MODE when dcd is high most of times */ +/* pptr->runMode = CONTENTION_MODE when RR frames are more than INFO */ +/* if pptr->runMode == CONTENTION txStateService is called else */ +/* txService is called */ +/************************************************************************/ +/* States for getting the frame from the port used in "rxState" */ +#define STATE_WAIT_SOF 0 +#define STATE_WAIT_LEN 1 +#define STATE_WAIT_CRC 2 +#define STATE_WAIT_DATA 3 +#define STATE_WAIT_EOF 4 + +/* States for slave tranmit algorithm used in "signalState" */ +#define SL_TX_STATE_IDLE 0 +#define SL_TX_STATE_PF_RCVD 1 +#define SL_TX_STATE_WAIT_FOR_CTS_HIGH 2 +#define SL_TX_STATE_START_OF_TX_DELAY 3 +#define SL_TX_STATE_OK_TO_TX 4 +#define SL_TX_STATE_WAIT_FOR_TX_BUF_EMPTY 5 +#define SL_TX_STATE_DEKEY_DELAY 6 +#define SL_TX_STATE_WAIT_FOR_CTS_LOW 7 +#define SL_TX_STATE_UNSOL_TX 8 +#define SL_TX_STATE_WAIT_FOR_LINK 9 +#define SL_TX_STATE_START_OF_UNSOL_TX_DELAY 10 +#define SL_TX_STATE_OK_TO_UNSOL_TX 11 + +/*States for master tranmit in contention used in "signalState" */ +#define MA_TX_STATE_IDLE 0 +#define MA_TX_STATE_WAIT_FOR_CTS_HIGH 1 +#define MA_TX_STATE_WAIT_FOR_DCD_LOW 2 +#define MA_TX_STATE_OK_TO_TX 3 +#define MA_TX_STATE_WAIT_FOR_TX_BUF_EMPTY 4 +#define MA_TX_STATE_DEKEY_DELAY 5 +#define MA_TX_STATE_WAIT_FOR_CTS_LOW 6 +#define MA_TX_STATE_WAIT_FOR_CTS_HIGH_DCD_LOW 7 +typedef struct tagAdlcPortInfo + { + DBL_LNK p; /* required for link list operations */ + ST_INT port; /* digiboard port ID */ + ST_INT rxState; /* receive state */ + ST_UCHAR *rxBuf; + ST_UINT rxLen; + ADLC_CON_INFO *outstandingCptr; /* At one time only one con. have P/F set */ + ADLC_DEV_INFO *devList; /* linked list of devices associated with this port */ + ADLC_REQ *txAdlcReqList; /* linked list of write packet list from stack */ + ADLC_FRAME *txUFramesList; /* linked list of unnumbered frames */ + ADLC_FRAME *txSFramesList; /* linked list of supervisory frames */ + ADLC_FRAME *txMFramesList; /* linked list of multicast frames to tx */ + ADLC_FRAME *rxMFramesList; /* linked list of multicast frames to rx not complete LSDU */ + ST_UCHAR vR; /* receive state variable for multicast frames */ + ST_INT infoBufLen; /* Length of info message for rxMFramesList */ + ST_DOUBLE responseTimeout; /* The time request with P/F set was sent */ + ST_INT signalState; /* used for transmit algorithm */ + ST_DOUBLE signalTimeout; /* used for transmit algorithm */ + ST_INT txRxMode; /* TX_MODE or RX_MODE */ + ST_INT runMode; /* POLLED_MODE, ENHANCED_POLLED_MODE or CONTENTION_MODE */ + ADLC_CFG_INFO adlcCfg; +#if defined(ADLC_MASTER) + ADLC_FRAME *txRFramesList; /* linked list of redirect frames */ + ST_DOUBLE turnaroundTime; + ST_ULONG rxInfo; /* Received INFO frames used for switching modes*/ + ST_ULONG rxRr; /* Received RR frames used for switching modes*/ + ST_ULONG txInfo; /* Transmitted INFO frames used for transmit algorithm */ + ST_ULONG txRr; /* Transmitted RR frames used for transmit algorithm */ + ST_BOOLEAN bTxRrFlag; /* should RR have higher priority than INFO ? */ + ST_DOUBLE lastSnrmTime; /* the recorded time when last snrm was sent */ + ST_INT prQueArray[12]; /* array of int which will store priority order */ +#endif +#if defined(ADLC_LM) + HEV txDoneSem; /* sem to wait on the sm to be waited */ + HEV frameArrivalSem; /* sem to wait for frame to rx */ + HEV frameInListSem; /* sem to wait for frame to tx */ + HEV rdThreadErrSem; /* sem to clean up from read thread error */ + ST_BOOLEAN bPortBusy; /* if true - tx is pending */ +#if defined(ADLC_MASTER) + HTIMER hTxStateTimer; /* used in txStateService to drive state mach */ + ST_INT txRxModeCounter; /* for proper behaviour of turnaround timer */ +#endif /* ADLC_MASTER */ +#endif /* ADLC_LM */ +#if !defined(ADLC_LM) + ST_DOUBLE frameTimeout; +#endif +#if defined(UCA_SMP) + ADLC_REQ *txExtAdlcReqList; /* linked list of ext write packet list from stack */ + ST_CHAR recTime[SMP_SIZE_OF_REC_TIME]; /* buffer to hold time stamp */ +#endif + } ADLC_PORT_INFO; + +#if defined(ADLC_MASTER) +/************************************************************************/ +/* POLLED_DEV */ +/* */ +/* Link Manager Polling Structure */ +/************************************************************************/ + +typedef struct tagPolledDevices + { + DBL_LNK l; /* gen list link */ + ADLC_DEV_INFO *dptr; /* pointer to device structure */ + ST_BOOLEAN bSuspendPolling; /* don't poll this one for a while */ + } POLLED_DEV; + +/************************************************************************/ +/* POLL_GROUP */ +/* */ +/************************************************************************/ +#define FIRST_POLL_GROUP 1 +#define MAX_POLL_GROUPS 3 + +/* assume that pollGrpID's start at 1 and go up to MAX_POLL_GROUPS */ +/* assume that poll group 1 is polled most frequently and poll group */ +/* MAX_POLL_GROUPS is polled least frequently. */ +/* when requested to change the poll rate for a device, change the poll */ +/* group for the device - increment poll group to decrease polling or */ +/* decrement poll group to increase poll frequency */ + +typedef struct tagPollGroup + { + DBL_LNK l; /* gen list link */ + ST_INT pollGrpID; /* a unique int 1 to MAX_POLL_GROUPS */ + ST_DOUBLE pollRate; /* in m seconds from config file */ + POLLED_DEV *pollDevList; /* a linked list of devices to poll */ +#if !defined(ADLC_LM) + ST_DOUBLE pollTime; /* To store the time of last poll */ +#endif +#if defined(ADLC_LM) + HTIMER hTimer; /* used in MuxWaitSem to trigger poll */ +#endif + } POLL_GROUP; + +#endif /* ADLC_MASTER */ + +#if defined(ADLC_LM) +/************************************************************************/ +/* ADLC_TASK_INFO */ +/* */ +/************************************************************************/ +typedef struct tagAdlcTaskInfo + { + DBL_LNK l; /* gen list link */ + ST_UINT16 localAddr; + HQUEUE qHandle; + ST_INT taskId; +/* PID pid; */ + } ADLC_TASK_INFO; + +/************************************************************************/ +/* ADLC_FILTER_DEV_LOG_INFO */ +/* */ +/************************************************************************/ +typedef struct tagAdlcFilterDevLogInfo + { + ST_UINT16 address; + ST_BOOLEAN bFilter; + ST_ULONG saveIoLogMask; + } ADLC_FILTER_DEV_LOG_INFO; + +#endif /* ADLC_LM */ + +#if !defined(ADLC_LM) +/************************************************************************/ +/* ADLC_EVENT_INFO */ +/* */ +/************************************************************************/ +typedef struct tagAdlcEventInfo + { + DBL_LNK l; /* gen list link */ + ST_INT adlcEventOp; + ST_INT adlcRetCode; + ST_VOID *adlcEventCb; + } ADLC_EVENT_INFO; +#endif +/************************************************************************/ +/* Function like macros to get and set various fields */ +/************************************************************************/ +/* This macro gets the frame format from the frame */ +#define FRAME_FORMAT_GET(frame) ((frame[1] << 8) | (frame[2])) + +/* This macro gets the length of the frame from the frame */ +#define FRAME_LEN_GET(frame) (((frame[1] << 8) | (frame[2])) & 0x07FF) + +/* This macro sets the length of the frame in the frame format field */ +#define FRAME_LEN_SET(x,r) (x = ((x) & 0xF800) | ((r) & 0x07FF)) + +/* This macro gets the type of the frame from the frame */ +#define FRAME_TYPE_GET(frame) (ST_UCHAR) (frame[1] >> 4) + +/* This macro sets the type of the frame in the frame format field */ +#define FRAME_TYPE_SET(x,y) (x = ((x) & 0x0FFF) | ((y) << 12)) + +/* This macro gets the eos bit from the frame */ +#define EOS_GET(frame) (frame[1] & 0x08) + +/* This macro sets the eos in the frame format field */ +#define EOS_SET(x) (x = ((x) & 0xF7FF)) + +/* This macro gets the destination address from the frame */ +#define DST_ADDR_GET(frame) (ST_UINT16) (frame[3] << 8 | frame[4]) + +/* This macro gets the source address from the frame */ +#define SRC_ADDR_GET(frame) (ST_UINT16) (frame[5] << 8 | frame[6]) + +/* This macro gets the device address from the receing frame */ +#if defined(ADLC_MASTER) +#define DEV_ADDR_GET(frame) SRC_ADDR_GET(frame) +#endif +#if defined(ADLC_SLAVE) +#define DEV_ADDR_GET(frame) DST_ADDR_GET(frame) +#endif + +/* This macro gets the control byte from the frame */ +#define CTRL_BYTE_GET(frame) (frame[7]) + +/* This macro gets the Poll Final Bit from the control byte */ +#define PF_GET(x) ((x) & 0x10) /* Poll Final Bit get */ + +/* This macros tells to have a poll/final bit depending on frame type */ +#define PF_DECIDE(frameType) (frameType == FRAME_FORMAT_TYPE3 ? PF_BIT : 0x0) + +/* This macro sets the Poll Final Bit in the control byte */ +#define PF_SET(x) (x = (x) | (ST_UCHAR) 0x10) /* Poll Final Bit set */ + +/* These get the code from the control byte including the format type */ +#define UNUM_CODE_GET(x) (ST_UCHAR) ((x) & 0xEF) +#define SUPR_CODE_GET(x) (ST_UCHAR) ((x) & 0x0F) +#define INFO_CODE_GET(x) (ST_UCHAR) ((x) & 0x01) + + +/* These macros get the N(R) and N(S) in an info command. */ +#define INFO_NR_GET(x) (ST_UCHAR) (((x) & 0xE0) >> 5) +#define INFO_NS_GET(x) (ST_UCHAR) (((x) & 0x0E) >> 1) + +/* These macros alter the N(R) and N(S) in an info command. */ +#define INFO_NS_SET(x,r) (x = (x) | (ST_UCHAR) ((r) << 1)) +#define INFO_NR_SET(x,r) (x = (x) | (ST_UCHAR) ((r) << 5)) + +/* This macro gets the N(R) in a supervisory command. */ +#define SUPR_NR_GET(x) (ST_UCHAR) (((x) & 0xE0) >> 5) + +/* This macro alters the N(R) in a supervisory command. */ +#define SUPR_NR_SET(x,r) (x = (x) | (ST_UCHAR) ((r) << 5)) + +/* This macro gets the crc from the frame */ +#define FRAME_CRC_GET(frame,offset) ((frame[offset] << 8) | (frame[offset + 1])) + + +/* This macro rotates the bytes in unsigned int */ +#define ROTATE(x) { ST_UINT16 tmp;\ + tmp = (x) & 0xFF;\ + x = (x) >> 8;\ + x |= tmp << 8;\ + } + +/* Modulo-N increment and decrement macros */ +#define DEC_MODULO_N(x,y,z) (ST_UCHAR) (((x) >= (y)) ? ((x) - (y)) : (((x) + (z)) - (y))) +#define INC_MODULO_N(x,y,z) (ST_UCHAR) (((x) + (y)) % (z)) +#define DIFF_MODULO_N(x,y,z) (ST_UCHAR) (((x) >= (y)) ? (x) - (y) : ((x) + (z)) - (y)) + +/* if the most significant bit is set it is either broadcast or multicast */ +#define IS_MULTICAST_ADDR(x) ((x) & 0x8000) + +/* if the bit 13 is not set it is a remote address */ +#define IS_REMOTE_ADDR(x) !((x) & 0x2000) + +/* Used to change port=0 into COM1, port=1 into COM2 etc. */ +#define GET_COM_NO(x) ((x) + 1) + +/* Time Management Macros */ +#define START_TIMEOUT(x,y) (x = sGetMsTime() + (y)) +#define UPDATE_TIMEOUT(x,y) if (x) x = sGetMsTime() + (y) +#define STOP_TIMEOUT(x) (x = 0.0) +#define CHECK_TIMEOUT(x) ((x) && (sGetMsTime() >= (x))) +#define IS_TIMEOUT_ENABLED(x) (x) +#define IS_TIMEOUT_DISABLED(x) !(x) + +/* Macros to work on ADLC_CFG_INFO structure */ +#define ADLC_MODULUS(x) x->adlcCfg.modulus +#define ADLC_FRAME_LEN(x) x->adlcCfg.frameLen +#define ADLC_INFO_LEN(x) (x->adlcCfg.frameLen - MIN_INFO_FRAME_LEN) +#define ADLC_MAX_ADLC_REQS(x) x->adlcCfg.maxAdlcReqs +#define ADLC_RUN_MODE(x) x->adlcCfg.runMode +#define ADLC_COMMUNICATION_MEDIA(x) x->adlcCfg.communicationMedia +#define ADLC_RETRIES(x) x->adlcCfg.retries +#define ADLC_SOF(x) x->adlcCfg.sof +#define ADLC_EOF(x) x->adlcCfg.eof +#define ADLC_RESPONSE_TIMEOUT(x) x->adlcCfg.responseTimeout +#define ADLC_FRAME_TIMEOUT(x) x->adlcCfg.frameTimeout +#define ADLC_SIGNAL_TIMEOUT(x) x->adlcCfg.signalTimeout +#define ADLC_RADIO_DEKEY_DELAY(x) x->adlcCfg.radioDekeyDelay +#define ADLC_RADIO_START_OF_TX_DELAY(x) x->adlcCfg.radioStartOfTxDelay +#define ADLC_PREAMBLE_LEN(x) x->adlcCfg.preambleLen + +#if defined(ADLC_MASTER) +#define ADLC_MAX_CONNECT_RETRY_TIMEOUT(x) x->adlcCfg.maxConnectRetryTimeout +#define ADLC_DEVICE_TURNAROUND_TIME(x) x->adlcCfg.deviceTurnaroundTime +#define ADLC_PORT_TURNAROUND_TIME(x) x->adlcCfg.portTurnaroundTime +#define ADLC_PORT_USAGE(x) x->adlcCfg.portUsage +#endif /* ADLC_MASTER */ + +#if defined(CNP) +/* This macro checks if there is data on port and it gives the char else -1 */ +#define RX_BYTE(port) ((cnp_cnt (port)) ? cnp_getc (port) : -1 ) + +/* This macro puts the data on the port */ +#define SM_PUT(a,b,c) cnp_put(a,b,c) +#else + +#define RX_BYTE(port) ((sm_rx_cnt (port)) ? sm_getc (port) : -1 ) +#define SM_PUT(a,b,c) sm_put(a,b,c) + +#endif /* CNP */ + +#ifdef ADLC_TESTING + +/* Macro to get a random integer within a specified range */ +#define GET_RANDOM_BETWEEN( min, max ) ((rand() % (int)(((max)+1) - (min))) + (min)) + +/* Macro to get one random value out of two */ +#define GET_RANDOM_OF(val1,val2) (rand() < RAND_MAX / 2 ? val1 : val2) + +#endif +/************************************************************************/ +/* Global Variables Declarations */ +/************************************************************************/ +extern ADLC_CFG_INFO adlcCfg; +extern ADLC_PORT_INFO *portList; +extern CFG_PORT *portConfigList; +extern const ST_UINT16 adlc_crc_table[256]; +extern ADLC_STATS adlcStats; +extern ST_BOOLEAN terminateFlag; + +#if defined(ADLC_MASTER) +extern POLL_GROUP *pollGroupList; +extern ST_ULONG gRrFrames; +extern ST_ULONG gInfoFrames; +#endif + +#if defined(ADLC_ERROR) +extern ADLC_ERROR_INFO adlcError; +#endif + +#if !defined(ADLC_LM) +extern ADLC_EVENT_INFO *eventList; +extern ST_INT stackTaskId; +#endif + +#if defined(ADLC_LM) +extern ADLC_TASK_INFO *taskList; +extern ST_INT connectedTask[RLI_TASK_ID_LAST + 1]; +extern ST_INT serMgrSleep; +extern PID myPID; +extern ADLC_FILTER_DEV_LOG_INFO stFiltDevLog; +extern CRITICAL_SECTION protectAdlcData; /* to guard adlc data between threads */ +#endif +/************************************************************************/ +/* Global Functions Declarations */ +/* make the following functions static if you can */ +/************************************************************************/ +/* adlc_utl.c */ +ST_UCHAR eventTypeOf(ST_UCHAR ctrlByte); +ST_VOID timeout_error (ADLC_CON_INFO *cptr); +ST_VOID resetConnection (ADLC_CON_INFO *cptr,ST_INT attrib); +ST_VOID resetStateVarsForConnection(ADLC_CON_INFO *cptr); +ST_RET verifyCrc(ST_UCHAR *frame, ST_UINT frameLen); +ST_UINT16 calcCrc (ST_UCHAR *data, ST_UINT length); + +ADLC_PORT_INFO *getPortPtrFromPort(ST_INT port); +ADLC_DEV_INFO *getDevPtrFromAddress(ST_UINT16 addr); +ADLC_DEV_INFO *getDevPtrFromName(ST_CHAR *name); +ADLC_CON_INFO *getConPtrFromAddrPair(ST_UINT16 slaveAddr,ST_UINT16 masterAddr); +ADLC_CON_INFO *getConPtrFromDptr(ADLC_DEV_INFO *dptr,ST_UINT16 masterAddr); + +ADLC_PORT_INFO *addToPortList(ST_INT port, const ADLC_CFG_INFO *pstAdlcCfg); +CFG_PORT *addToCfgPortList(ST_INT port); +ADLC_DEV_INFO *addToDevList(ADLC_PORT_INFO *pptr, ST_CHAR *name, + ST_UINT16 address,ST_INT pollGroup,ST_BOOLEAN connectAll); +ADLC_CON_INFO *addToConList(ADLC_DEV_INFO *dptr,ST_UINT16 masterAddr); +ST_VOID addToSFramesList(ADLC_CON_INFO *cptr, ST_UCHAR cmd); +ST_VOID addToUFramesList(ADLC_CON_INFO *cptr, ST_UCHAR cmd); +ST_VOID addToRFramesList(ADLC_PORT_INFO *pptr); +ST_VOID addToMFramesInTxList(ST_UINT16 srcAddr,ST_UINT16 dstAddr, ST_VOID *data, ST_INT dataLen); +ST_VOID addToMFramesInRxList(ADLC_PORT_INFO *pptr,ST_UCHAR *data,ST_INT dataLen); +ADLC_REQ *addToReqList(ADLC_CON_INFO *cptr); +ST_VOID addToIFramesInTxList(ADLC_REQ *rptr,ST_UCHAR *data,ST_INT len); +ST_VOID addToIFramesInRxList(ADLC_CON_INFO *cptr,ST_UCHAR *data,ST_INT len); + +ST_VOID deleteAllConnections(ADLC_DEV_INFO *dptr); +ST_VOID deleteConnection(ADLC_CON_INFO *cptr); +ST_VOID deleteDevice(ADLC_DEV_INFO *dptr); +ST_VOID deletePort(ADLC_PORT_INFO *pptr); +ST_VOID deleteCfgPort(CFG_PORT *pstCfgPort); +ST_VOID deleteAllFrames(ADLC_CON_INFO *cptr); +ST_VOID deleteSFramesList(ADLC_CON_INFO *cptr); +ST_VOID deleteSFramesListWithoutPf(ADLC_CON_INFO *cptr); +ST_VOID deleteUFramesList(ADLC_CON_INFO *cptr); +ST_VOID deleteIFramesFromRxList(ADLC_CON_INFO *cptr); +ST_VOID deleteIFramesFromTxList(ADLC_CON_INFO *cptr); +ST_VOID deleteMFramesFromTxList(ADLC_PORT_INFO *pptr); +ST_VOID deleteMFramesFromRxList(ADLC_PORT_INFO *pptr); +ST_VOID deleteAckedIFramesFromTxList(ADLC_CON_INFO *cptr,ST_UCHAR nR); +ST_VOID deleteFrame(ADLC_FRAME *fptr,ADLC_FRAME **framesList); +ST_VOID deleteReqFrame (ADLC_REQ *rptr); + +ST_BOOLEAN isDevPtrValid(ADLC_DEV_INFO *rDptr); +ST_VOID nackAllIFramesFromTxList(ADLC_CON_INFO *cptr); +ST_BOOLEAN isInfoQueuedUp(ADLC_CON_INFO *cptr); +ST_BOOLEAN isPollQueuedUp(ADLC_CON_INFO *cptr); +ST_BOOLEAN isUFrameQueuedUp(ADLC_CON_INFO *cptr); +ST_BOOLEAN isOkToPoll(ADLC_CON_INFO *cptr); +ST_BOOLEAN isOkToSendUnum(ADLC_CON_INFO *cptr,ST_BOOLEAN justCheck); +ST_BOOLEAN isOkToSendSupr(ADLC_CON_INFO *cptr,ST_BOOLEAN justCheck); +ST_BOOLEAN isOkToSendInfo(ADLC_CON_INFO *cptr,ST_BOOLEAN justCheck); +ST_BOOLEAN isOkToSendMult(ADLC_PORT_INFO *pptr,ST_BOOLEAN justCheck); +ST_BOOLEAN isConStateInInfoTransfer(ADLC_CON_INFO *cptr); +ST_VOID getPfAndEosBit(ADLC_FRAME *nextFptr,ST_UCHAR sendCount, + ST_BOOLEAN *pfBit,ST_BOOLEAN *eosBit, ADLC_PORT_INFO *pptr); +ST_VOID adlc_except (SD_CONST ST_CHAR *file, ST_INT line); +ST_UINT16 getLocalAddr(ADLC_CON_INFO *cptr); +ST_UINT16 getRemoteAddr(ADLC_CON_INFO *cptr); +CFG_PORT *findCfgPort(ST_INT port); +ST_VOID adlcEndLogging (ST_VOID); + +#if defined(ADLC_MASTER) +POLL_GROUP *findPollGroup(ST_INT pollGrpID); +POLL_GROUP *addToPollGroupList(ST_INT pollGrpID,ST_DOUBLE pollRate); +ST_RET addDevToPollGrp(ADLC_DEV_INFO *dptr,ST_INT pollGroup); +POLLED_DEV *findPolledDevByName(char *devName); +POLLED_DEV *findPolledDevByAddress(ST_UINT16 addr); +#endif + +/* adlc_dec.c */ +ST_RET getFrame(ADLC_PORT_INFO *pptr); +ST_RET processAdlcFrame(ADLC_PORT_INFO *pptr); +ST_VOID giveIndicationToStack (ADLC_CON_INFO *cptr,ST_INT opcode,ST_RET retCode, ST_LONG usr1); + +/* adlc_enc.c */ +ST_RET send_info_frame(ADLC_FRAME *fptr,ST_BOOLEAN pfBit,ST_BOOLEAN eosBit); +ST_RET send_supr_frame(ADLC_FRAME *fptr); +ST_RET send_unum_frame(ADLC_FRAME *fptr); +ST_RET send_ui_frame(ADLC_FRAME *fptr); +ST_RET send_redr_frame(ADLC_FRAME *fptr,ADLC_PORT_INFO *pptr); +ST_RET send_mult_frame(ADLC_FRAME *fptr,ADLC_PORT_INFO *pptr); +ST_VOID enc_adlc_frame(ST_UCHAR *frame,ST_UINT16 srcAddr,ST_UINT16 dstAddr,ST_UCHAR ctrlByte, + ST_UINT16 frameFormat,ST_INT dataLen, ADLC_PORT_INFO *pptr); +ST_UINT16 getFrameFormat(ST_INT frameLen,ST_BOOLEAN eosBit,ST_UCHAR frameType); + +/* adlc_ssv.c adlc_msv.c */ +ST_VOID adlcService(ST_VOID); +ST_BOOLEAN checkTxService(ADLC_PORT_INFO *pptr); +ST_VOID txService(ADLC_PORT_INFO *pptr); +ST_VOID rxService(ADLC_PORT_INFO *pptr); +ST_VOID txStateService(ADLC_PORT_INFO *pptr); +ST_VOID timeoutService(ADLC_PORT_INFO *pptr); +ST_VOID stopWaitingForResp(ADLC_CON_INFO *cptr, ST_BOOLEAN bResetRetries); + +#if defined(ADLC_SLAVE) +ST_VOID startSignalTimeout(ADLC_PORT_INFO *pptr); +ST_VOID stopSignalTimeout(ADLC_PORT_INFO *pptr); +ST_BOOLEAN checkSignalTimeout(ADLC_PORT_INFO *pptr); +ST_VOID goInTxMode(ADLC_CON_INFO *cptr); +ST_VOID goInRxMode(ADLC_CON_INFO *cptr); +ST_VOID waitForResponse(ADLC_CON_INFO *cptr); +#endif /* ADLC_SLAVE */ + +#if defined(ADLC_MASTER) +ST_VOID pollDevice(ADLC_DEV_INFO *dptr); +ST_VOID pollConnection(ADLC_CON_INFO *cptr); +ST_VOID waitForResponse(ADLC_CON_INFO *cptr); +ST_VOID startConRetryTimeout(ADLC_CON_INFO *cptr); +ST_BOOLEAN checkConRetryTimeout(ADLC_CON_INFO *cptr); +ST_VOID stopConRetryTimeout(ADLC_CON_INFO *cptr); +ST_VOID startDeviceTurnaroundTimeout(ADLC_DEV_INFO *dptr); +ST_BOOLEAN checkDeviceTurnaroundTimeout(ADLC_DEV_INFO *dptr); +ST_VOID stopDeviceTurnaroundTimeout(ADLC_DEV_INFO *dptr); +ST_VOID startPortTurnaroundTimeout(ADLC_PORT_INFO *pptr); +ST_BOOLEAN checkPortTurnaroundTimeout(ADLC_PORT_INFO *pptr); +ST_VOID stopPortTurnaroundTimeout(ADLC_PORT_INFO *pptr); +ST_RET startPollTimer(POLL_GROUP *pstPollGrp); +ST_RET updatePollTimer(POLL_GROUP *pstPollGrp); +ST_RET stopPollTimer(POLL_GROUP *pstPollGrp); +ST_BOOLEAN checkPollTimer(POLL_GROUP *pstPollGrp); +ST_RET pollInit(ST_VOID); + +ST_VOID triggerLogicAnalyzer(ST_INT port); +#endif /* ADLC_MASTER */ + +/* adlc_tm.c */ +ST_VOID startRespTimeout(ADLC_PORT_INFO *pptr); +ST_VOID updateRespTimeout(ADLC_PORT_INFO *pptr); +ST_VOID stopRespTimeout(ADLC_PORT_INFO *pptr); +ST_BOOLEAN checkRespTimeout(ADLC_PORT_INFO *pptr); +ST_BOOLEAN isRespTimeoutEnabled(ADLC_PORT_INFO *pptr); +ST_BOOLEAN isRespTimeoutDisabled(ADLC_PORT_INFO *pptr); +ST_VOID startSignalTimeout(ADLC_PORT_INFO *pptr); +ST_VOID updateSignalTimeout(ADLC_PORT_INFO *pptr); +ST_VOID stopSignalTimeout(ADLC_PORT_INFO *pptr); +ST_BOOLEAN checkSignalTimeout(ADLC_PORT_INFO *pptr); +ST_VOID startRadioDelayTimeout(ADLC_PORT_INFO *pptr); +ST_VOID startFrameTimeout(ADLC_PORT_INFO *pptr); +ST_BOOLEAN checkFrameTimeout(ADLC_PORT_INFO *pptr); +ST_VOID stopFrameTimeout(ADLC_PORT_INFO *pptr); +ST_VOID time_delay (ST_DOUBLE tme); + +/* adlc_log.c */ +ST_VOID logAdlcStats(ST_VOID); + +/* adlc_get.c */ +ST_CHAR *getCommandName(ST_UCHAR ctrlByte); +ST_CHAR *getConState(ST_INT state); +ST_CHAR *getTxRxMode(ST_INT mode); +ST_CHAR *getRunMode(ST_INT mode); +ST_CHAR *getCommunicationMedia(ST_INT media); +ST_CHAR *getOpCode(ST_INT opcode); +ST_CHAR *getRetCode(ST_RET retCode); +ST_CHAR *getSignalState(ST_INT signalState); + +/* adlc_var.c */ +ST_VOID adlcInitGlbVars(ST_VOID); +ST_VOID initSiscoUtilGlbVarsForAdlc(ST_VOID); + +/* adlc_lsm.c */ +ST_VOID rdThreadErrorHandling(ADLC_PORT_INFO *pptr); + +/* adlc_cfg.c adlc_odb.c adlc_hc.c */ +ST_RET adlcConfigure (ST_VOID); +#if defined(ADLC_LM) +ST_RET adlcReConfigure (ST_VOID); +ST_RET updateAdlcLoggingParameters(ST_VOID); +ST_RET updateAdlcPollParameters(ST_UINT hi,ST_UINT med, ST_UINT low); +ST_RET adlcCloseDatabase (ST_VOID); +#endif + +/* adlc_tst.c */ +#ifdef ADLC_TESTING +ST_VOID testSetMain (ST_VOID); +ST_VOID switchMenu(ST_VOID); +ST_VOID memCheckError (ST_VOID); +ST_VOID screenLogFun (LOG_CTRL *lc, + SD_CONST ST_INT logType, + SD_CONST ST_CHAR *SD_CONST sourceFile, + SD_CONST ST_INT lineNum, + SD_CONST ST_INT bufLen, + SD_CONST ST_CHAR *buf); +ST_VOID doEnableScreenLog (ST_VOID); +ST_VOID doDisableScreenLog (ST_VOID); +#if defined(__OS2__) +extern HEV o_kbd_event_sem; +#endif +#if defined(_WIN32) +extern HEV kbdEvent; +#endif +#if defined(ADLC_LM) +ST_RET handleKeyboardEvent(ST_ULONG userId, ST_ULONG postCount); +ST_RET testStartKeyboard (ST_VOID); +ST_RET testEndKeyboard (ST_VOID); +#endif /* ADLC_LM */ +#endif + +#if !defined(ADLC_LM) +ADLC_EVENT_INFO *addToEventList(ST_INT adlcEventOp,ST_VOID *adlcEventCb,ST_INT adlcRetCode); +#endif + +#if defined(ADLC_LM) +ST_RET exitCallBack (ST_ULONG userId, ST_ULONG postCount); + +ST_RET term_init (ST_VOID); +ST_RET term_rest (ST_VOID); +ST_RET adlcQueInit (ST_VOID); +ADLC_TASK_INFO *addToTaskList(ST_UINT16 localAddr,ST_INT taskId,HQUEUE qHandle); +ADLC_TASK_INFO *getTaskPtrFromLocalAddress(ST_UINT16 addr); +ADLC_TASK_INFO *getTaskPtrFromTaskId(ST_INT taskId); +ST_VOID deleteTask(ADLC_TASK_INFO *tptr); +ST_VOID deleteTaskFromLocalAddress(ST_UINT16 localAddr); +ST_RET addTaskForLocalAddress(ST_UINT16 addr,ST_INT taskId); +ST_VOID deleteTaskFromTaskId(ST_INT taskId); +ST_INT getTaskId(ADLC_CON_INFO *cptr,ST_INT *taskId); +ST_VOID logIpcError(ST_INT retCode, ST_CHAR *str, ST_CHAR *file, ST_INT line); +ST_VOID updateStatusBar(ST_CHAR *szBuff); +ST_VOID screenLogFun (LOG_CTRL *lc, + SD_CONST ST_INT logType, + SD_CONST ST_CHAR *SD_CONST sourceFile, + SD_CONST ST_INT lineNum, + SD_CONST ST_INT bufLen, + SD_CONST ST_CHAR *buf); + +/* adlc_lm.c */ +ST_RET handleCmdQueEvent (ST_ULONG userId, ST_ULONG qMsgLen, ST_VOID *qMsg); +ST_RET handleDataQueEvent (ST_ULONG userId, ST_ULONG qMsgLen, ST_VOID *qMsg); +ST_RET sendDataMsgToStack(ADLC_CMD *srcPstCmd,ST_INT stackTaskId); +ST_RET sendDataMsgToStackNoAlloc(ADLC_CMD *dstPstCmd,ST_INT stackTaskId); +#endif /* ADLC_LM */ + +#if defined(__OS2__) +ST_VOID exitLogging (ST_ULONG ulTermCode); +ST_VOID exitCleanFun (ST_ULONG ulTermCode); +#endif + +#if defined(_WIN32) +ST_VOID exitLogging (ST_VOID); +ST_VOID exitCleanFun (ST_VOID); +#endif + +#if defined(UCA_SMP) +ADLC_REQ *addToExtReqList(ADLC_CON_INFO *cptr,ADLC_REQ **adlcReqList,ST_LONG userId); +ST_VOID deleteExtReqFrame(ADLC_REQ *rptr); +ST_VOID addToUIFramesInTxList(ADLC_REQ *rptr,ST_UCHAR *data,ST_INT dataLen); +ST_VOID addToUIFramesInRxList(ADLC_CON_INFO *cptr,ST_UCHAR *data,ST_INT dataLen); +ST_VOID deleteUIFramesFromRxList(ADLC_CON_INFO *cptr); +ST_VOID deleteUIFramesFromTxList(ADLC_CON_INFO *cptr); +ST_RET sendExtWriteDoneToStack(ADLC_CON_INFO *cptr, ST_LONG userId, + ST_CHAR *timeSync, ST_INT bufLen, + ST_RET retCode); +#endif /* UCA_SMP */ + +#ifdef __cplusplus +} +#endif + +#endif /* _ADLC_H */ + + + diff --git a/include/inc/adlc_dsm.h b/include/inc/adlc_dsm.h new file mode 100644 index 0000000..319cd58 --- /dev/null +++ b/include/inc/adlc_dsm.h @@ -0,0 +1,73 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1995-1996, All Rights Reserved */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : adlc_dsm.h */ +/* PRODUCT(S) : ADLC */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains functions that provide for serial port communi- */ +/* cations for the Digiboard. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* ST_INT sm_init(port,baud,parity,data,stop) */ +/* ST_INT sm_exit(port) */ +/* ST_INT sm_put (port,len,buffer) */ +/* ST_INT sm_putc (port,ch) */ +/* ST_INT sm_rx_cnt (port) */ +/* ST_INT sm_get (port,len,buffer) */ +/* ST_INT sm_getc (port) */ +/* ST_INT sm_rx_flush(port) */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 05/12/97 IKE 09 Changed to MMSEASE 7.0 Data Types */ +/* 02/21/97 IKE 08 Changed COM_TEST to ESSENTIAL_COM to make */ +/* more sense */ +/* 12/03/96 IKE 07 Moved some stuff to adlc_sm.h */ +/* 09/19/96 IKE 06 Rearranged sm_get and sm_set functions */ +/* 08/22/96 IKE 05 Added sm_get_dcd for contention avoidance */ +/* 06/11/96 IKE 04 Added more functions to check RS232 signals */ +/* 05/22/96 IKE 03 Added functions to control RS232 signals */ +/* 04/04/96 rkr 02 Cleanup */ +/* 11/12/95 IKE 1 Created */ +/************************************************************************/ + +#ifndef _ADLC_DSM_H_ +#define _ADLC_DSM_H_ + +#ifdef __cplusplus +extern "C" { +#endif + +#if defined(ESSENTIAL_COM) + +ST_INT xc_entr (ST_INT); +ST_INT xc_exit(ST_VOID); +ST_INT xc_init(ST_INT, ST_INT, ST_INT, ST_INT, ST_INT); +ST_INT xc_link (ST_INT, ST_INT); +ST_INT xc_unlk (ST_INT); +ST_INT xc_put (ST_INT, ST_CHAR*, ST_INT*); +ST_INT xc_putc (ST_INT, ST_CHAR); +ST_INT xc_get (ST_INT, ST_CHAR*, ST_INT*); +ST_INT xc_getc (ST_INT); +ST_INT xc_dtr (ST_INT, ST_INT); +ST_INT xc_rts (ST_INT, ST_INT); +ST_INT xc_cts(ST_INT); +ST_INT xc_dsr(ST_INT); +ST_INT xc_dcd(ST_INT); +ST_INT xc_test (ST_INT); +ST_INT xc_utest (ST_INT); +ST_INT xc_uwait(ST_INT); +#endif /* ESSENTIAL_COM */ + +#ifdef __cplusplus +} +#endif + +#endif /* adlc_dsm.h already included */ diff --git a/include/inc/adlc_log.h b/include/inc/adlc_log.h new file mode 100644 index 0000000..a6c50eb --- /dev/null +++ b/include/inc/adlc_log.h @@ -0,0 +1,879 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1995-1996, All Rights Reserved */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : adlc_log.h */ +/* PRODUCT(S) : ADLC */ +/* */ +/* MODULE DESCRIPTION : */ +/* All the logging macros are defined in following order for easy */ +/* editing of this file. Please keep the same order if logging macros */ +/* need to be changed */ +/* */ +/* ADLC_MASK_LOG_ERR for critical errors */ +/* ADLC_MASK_LOG_NERR for normal errors */ +/* ADLC_MASK_LOG_FLOW for program flow logging */ +/* ADLC_MASK_LOG_IO for control frames */ +/* ADLC_MASK_LOG_DEBUG for debugging purposes */ +/* ADLC_MASK_LOG_ALWAYS for always logging */ +/* ADLC_MASK_LOG_SM for serial manager logging */ +/* ADLC_MASK_LOG_INFO_FRAME for data coming to or from stack */ +/* ADLC_MASK_LOG_USER from or to user (stack) logging */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 09/13/99 MDE 19 Added SD_CONST modifiers */ +/* 02/01/99 JRB 18 Fix ADLC_LOG_DEV_FILT macros for new API. */ +/* Put back ADLC_MAX_LOG_MASK. ADLC_LM needs it.*/ +/* 10/08/98 MDE 17 Migrated to updated SLOG interface */ +/* 09/01/98 IKE 16 Removed the if statement for ALWAYS macros */ +/* 09/18/97 IKE 15 Added telephone support */ +/* 08/27/97 IKE 14 Fixed number of parameters in */ +/* ADLC_LOG_DEV_FILT macros for non debug ver */ +/* 07/16/97 IKE 13 Added ADLC_LOG_DEV_FILT */ +/* 06/13/97 EJV 12 Added ADLC_LOG_ERR5 */ +/* 05/12/97 IKE 11 Changed to MMSEASE 7.0 Data Types */ +/* 04/30/97 IKE 10 Updated ADLC_MAX_LOG_MASK */ +/* 02/24/97 IKE 09 Changed logMask6 to use adlc_debug_sel */ +/* moved log masks to adlc_usr.h, changed */ +/* the logging macros to use slog functions */ +/* deleted macros specific to OS2 */ +/* 12/03/96 IKE 08 WIN32 Support, header files cleanup */ +/* 11/06/96 IKE 07 Changed C++ style comments to C style */ +/* comments to make it more platform independent*/ +/* 10/28/96 KCR 06 Changed LT of HEX logging macros to _CONT */ +/* 10/22/96 IKE 05 Added LOG_ALWAYS5 */ +/* 10/04/96 IKE 04 Changed DEBUG_MMS to DEBUG_SISCO */ +/* 06/21/96 IKE 03 Added ADLC_SM, ADLC_INFO_FRAME and ADLC_USER */ +/* Changed from slog_remote to SLOG6_REM_xxx */ +/* 04/04/96 rkr 02 Cleanup, removed slog_ipc.h */ +/* 01/20/96 IKE 01 Merged NAV's OS2 code */ +/* 11/25/95 IKE 1.00 Created */ +/************************************************************************/ + +#ifndef ADLC_LOG_INCLUDED +#define ADLC_LOG_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "slog.h" + +/************************************************************************/ +/* The Logging Control structure */ +/* Note that more than one may be used, and there is a 1-to-1 mapping */ +/* of the control structure to associated file && memory buffer. */ +/************************************************************************/ + +#define ADLC_MAX_LOG_MASK (ADLC_MASK_LOG_ERR | ADLC_MASK_LOG_NERR | \ + ADLC_MASK_LOG_FLOW | \ + ADLC_MASK_LOG_IO | ADLC_MASK_LOG_HEXIO | \ + ADLC_MASK_LOG_DEBUG | ADLC_MASK_LOG_HEXDEBUG | \ + ADLC_MASK_LOG_SM | ADLC_MASK_LOG_HEXSM | \ + ADLC_MASK_LOG_INFO_FRAME | ADLC_MASK_LOG_HEXINFO_FRAME | \ + ADLC_MASK_LOG_USER | ADLC_MASK_LOG_HEXUSER) + +#define ADLC_LOG_CLOSE_FILE (p) {slogCloseFile (p);} + +/* Control bit set/clear macros */ + +#define ADLC_SET_CTRL(a) {sLogCtrl->logCtrl |= (a);} +#define ADLC_CLR_CTRL(a) {sLogCtrl->logCtrl &= ~(a);} + +#define ADLC_SET_FILE_CTRL(a) {sLogCtrl->fc.ctrl |= (a);} +#define ADLC_CLR_FILE_CTRL(a) {sLogCtrl->fc.ctrl &= ~(a);} + +#define ADLC_SET_LOG_MASK(a) {adlc_debug_sel |= (a);} +#define ADLC_CLR_LOG_MASK(a) {adlc_debug_sel &= ~(a);} + + +#ifdef DEBUG_SISCO /* if DEBUG_SISCO is defined, expand macros */ + +/************************************************************************/ +/* ADLC LOGGING CONTROL */ +/************************************************************************/ + +/* Log Type Strings */ +extern SD_CONST ST_CHAR *_adlc_err_logstr; +extern SD_CONST ST_CHAR *_adlc_nerr_logstr; +extern SD_CONST ST_CHAR *_adlc_flow_logstr; +extern SD_CONST ST_CHAR *_adlc_io_logstr; +extern SD_CONST ST_CHAR *_adlc_debug_logstr; +extern SD_CONST ST_CHAR *_adlc_always_logstr; +extern SD_CONST ST_CHAR *_adlc_sm_logstr; +extern SD_CONST ST_CHAR *_adlc_info_frame_logstr; +extern SD_CONST ST_CHAR *_adlc_user_logstr; + +/* --------------------------------------------------------------- */ +/* ------------------ Error Logging Macros ------------------ */ +#define ADLC_LOG_ERR0(a) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_ERR)\ + _slog (sLogCtrl, _adlc_err_logstr,\ + thisFileName,__LINE__,a);\ + } +#define ADLC_LOG_ERR1(a,b) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_ERR)\ + _slog (sLogCtrl, _adlc_err_logstr,\ + thisFileName,__LINE__,a,b);\ + } +#define ADLC_LOG_ERR2(a,b,c) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_ERR)\ + _slog (sLogCtrl, _adlc_err_logstr,\ + thisFileName,__LINE__,a,b,c);\ + } +#define ADLC_LOG_ERR3(a,b,c,d) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_ERR)\ + _slog (sLogCtrl, _adlc_err_logstr,\ + thisFileName,__LINE__,a,b,c,d);\ + } +#define ADLC_LOG_ERR4(a,b,c,d,e) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_ERR)\ + _slog (sLogCtrl, _adlc_err_logstr,\ + thisFileName,__LINE__,a,b,c,d,e);\ + } + +#define ADLC_LOG_ERR5(a,b,c,d,e,f) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_ERR)\ + _slog (sLogCtrl, _adlc_err_logstr,\ + thisFileName,__LINE__,a,b,c,d,e,f);\ + } + +/* 'Continue' versions */ +#define ADLC_LOG_CERR0(a) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_ERR)\ + _slogc (sLogCtrl,a);\ + } +#define ADLC_LOG_CERR1(a,b) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_ERR)\ + _slogc (sLogCtrl,a,b);\ + } +#define ADLC_LOG_CERR2(a,b,c) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_ERR)\ + _slogc (sLogCtrl,a,b,c);\ + } +#define ADLC_LOG_CERR3(a,b,c,d) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_ERR)\ + _slogc (sLogCtrl,a,b,c,d);\ + } +#define ADLC_LOG_CERR4(a,b,c,d,e) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_ERR)\ + _slogc (sLogCtrl,a,b,c,d,e);\ + } + +#define ADLC_LOG_ERR_HEX(a,b) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_ERR)\ + _slogHex (sLogCtrl,a,b);\ + } + + +/* --------------------------------------------------------------- */ +/* ------------------ Normal Error Logging Macros ------------------ */ + +#define ADLC_LOG_NERR0(a) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_NERR)\ + _slog (sLogCtrl, _adlc_nerr_logstr,\ + thisFileName,__LINE__,a);\ + } +#define ADLC_LOG_NERR1(a,b) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_NERR)\ + _slog (sLogCtrl, _adlc_nerr_logstr,\ + thisFileName,__LINE__,a,b);\ + } +#define ADLC_LOG_NERR2(a,b,c) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_NERR)\ + _slog (sLogCtrl, _adlc_nerr_logstr,\ + thisFileName,__LINE__,a,b,c);\ + } +#define ADLC_LOG_NERR3(a,b,c,d) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_NERR)\ + _slog (sLogCtrl, _adlc_nerr_logstr,\ + thisFileName,__LINE__,a,b,c,d);\ + } +#define ADLC_LOG_NERR4(a,b,c,d,e) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_NERR)\ + _slog (sLogCtrl, _adlc_nerr_logstr,\ + thisFileName,__LINE__,a,b,c,d,e);\ + } + +/* 'Continue' versions */ +#define ADLC_LOG_CNERR0(a) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_NERR)\ + _slogc (sLogCtrl,a);\ + } +#define ADLC_LOG_CNERR1(a,b) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_NERR)\ + _slogc (sLogCtrl,a,b);\ + } +#define ADLC_LOG_CNERR2(a,b,c) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_NERR)\ + _slogc (sLogCtrl,a,b,c);\ + } +#define ADLC_LOG_CNERR3(a,b,c,d) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_NERR)\ + _slogc (sLogCtrl,a,b,c,d);\ + } +#define ADLC_LOG_CNERR4(a,b,c,d,e) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_NERR)\ + _slogc (sLogCtrl,a,b,c,d,e);\ + } + +#define ADLC_LOG_NERR_HEX(a,b) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_NERR)\ + _slogHex (sLogCtrl,a,b);\ + } + +/* --------------------------------------------------------------- */ +/* ------------------ Flow Logging Macros ------------------ */ + +#define ADLC_LOG_FLOW0(a) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_FLOW)\ + _slog (sLogCtrl, _adlc_flow_logstr,\ + thisFileName,__LINE__,a);\ + } +#define ADLC_LOG_FLOW1(a,b) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_FLOW)\ + _slog (sLogCtrl, _adlc_flow_logstr,\ + thisFileName,__LINE__,a,b);\ + } +#define ADLC_LOG_FLOW2(a,b,c) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_FLOW)\ + _slog (sLogCtrl, _adlc_flow_logstr,\ + thisFileName,__LINE__,a,b,c);\ + } +#define ADLC_LOG_FLOW3(a,b,c,d) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_FLOW)\ + _slog (sLogCtrl, _adlc_flow_logstr,\ + thisFileName,__LINE__,a,b,c,d);\ + } +#define ADLC_LOG_FLOW4(a,b,c,d,e) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_FLOW)\ + _slog (sLogCtrl, _adlc_flow_logstr,\ + thisFileName,__LINE__,a,b,c,d,e);\ + } + +/* 'Continue' versions */ +#define ADLC_LOG_CFLOW0(a) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_FLOW)\ + _slogc (sLogCtrl,a);\ + } +#define ADLC_LOG_CFLOW1(a,b) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_FLOW)\ + _slogc (sLogCtrl,a,b);\ + } +#define ADLC_LOG_CFLOW2(a,b,c) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_FLOW)\ + _slogc (sLogCtrl,a,b,c);\ + } +#define ADLC_LOG_CFLOW3(a,b,c,d) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_FLOW)\ + _slogc (sLogCtrl,a,b,c,d);\ + } +#define ADLC_LOG_CFLOW4(a,b,c,d,e) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_FLOW)\ + _slogc (sLogCtrl,a,b,c,d,e);\ + } + +#define ADLC_LOG_FLOW_HEX(a,b) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_FLOW)\ + _slogHex (sLogCtrl,a,b);\ + } + +/* --------------------------------------------------------------- */ +/* ------------------ I/O Logging Macros ------------------ */ + +#define ADLC_LOG_IO0(a) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_IO)\ + _slog (sLogCtrl, _adlc_io_logstr,\ + thisFileName,__LINE__,a);\ + } +#define ADLC_LOG_IO1(a,b) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_IO)\ + _slog (sLogCtrl, _adlc_io_logstr,\ + thisFileName,__LINE__,a,b);\ + } +#define ADLC_LOG_IO2(a,b,c) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_IO)\ + _slog (sLogCtrl, _adlc_io_logstr,\ + thisFileName,__LINE__,a,b,c);\ + } +#define ADLC_LOG_IO3(a,b,c,d) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_IO)\ + _slog (sLogCtrl, _adlc_io_logstr,\ + thisFileName,__LINE__,a,b,c,d);\ + } +#define ADLC_LOG_IO4(a,b,c,d,e) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_IO)\ + _slog (sLogCtrl, _adlc_io_logstr,\ + thisFileName,__LINE__,a,b,c,d,e);\ + } + +/* 'Continue' versions */ +#define ADLC_LOG_CIO0(a) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_IO)\ + _slogc (sLogCtrl,a);\ + } +#define ADLC_LOG_CIO1(a,b) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_IO)\ + _slogc (sLogCtrl,a,b);\ + } +#define ADLC_LOG_CIO2(a,b,c) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_IO)\ + _slogc (sLogCtrl,a,b,c);\ + } +#define ADLC_LOG_CIO3(a,b,c,d) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_IO)\ + _slogc (sLogCtrl,a,b,c,d);\ + } +#define ADLC_LOG_CIO4(a,b,c,d,e) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_IO)\ + _slogc (sLogCtrl,a,b,c,d,e);\ + } + +#define ADLC_LOG_IO_HEX(a,b) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_HEXIO)\ + _slogHex (sLogCtrl,a,b);\ + } + +/* --------------------------------------------------------------- */ +/* ------------------ Debug Logging Macros ------------------ */ + +#define ADLC_LOG_DEBUG0(a) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_DEBUG)\ + _slog (sLogCtrl, _adlc_debug_logstr,\ + thisFileName,__LINE__,a);\ + } +#define ADLC_LOG_DEBUG1(a,b) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_DEBUG)\ + _slog (sLogCtrl, _adlc_debug_logstr,\ + thisFileName,__LINE__,a,b);\ + } +#define ADLC_LOG_DEBUG2(a,b,c) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_DEBUG)\ + _slog (sLogCtrl, _adlc_debug_logstr,\ + thisFileName,__LINE__,a,b,c);\ + } +#define ADLC_LOG_DEBUG3(a,b,c,d) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_DEBUG)\ + _slog (sLogCtrl, _adlc_debug_logstr,\ + thisFileName,__LINE__,a,b,c,d);\ + } +#define ADLC_LOG_DEBUG4(a,b,c,d,e) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_DEBUG)\ + _slog (sLogCtrl, _adlc_debug_logstr,\ + thisFileName,__LINE__,a,b,c,d,e);\ + } + +/* 'Continue' versions */ +#define ADLC_LOG_CDEBUG0(a) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_DEBUG)\ + _slogc (sLogCtrl,a);\ + } +#define ADLC_LOG_CDEBUG1(a,b) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_DEBUG)\ + _slogc (sLogCtrl,a,b);\ + } +#define ADLC_LOG_CDEBUG2(a,b,c) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_DEBUG)\ + _slogc (sLogCtrl,a,b,c);\ + } +#define ADLC_LOG_CDEBUG3(a,b,c,d) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_DEBUG)\ + _slogc (sLogCtrl,a,b,c,d);\ + } +#define ADLC_LOG_CDEBUG4(a,b,c,d,e) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_DEBUG)\ + _slogc (sLogCtrl,a,b,c,d,e);\ + } + +#define ADLC_LOG_DEBUG_HEX(a,b) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_HEXDEBUG)\ + _slogHex (sLogCtrl,a,b);\ + } + +/* --------------------------------------------------------------- */ +/* ------------------ Always Logging Macros ------------------ */ + +#define ADLC_LOG_ALWAYS0(a) {\ + _slog (sLogCtrl, _adlc_always_logstr,\ + thisFileName,__LINE__,a);\ + } +#define ADLC_LOG_ALWAYS1(a,b) {\ + _slog (sLogCtrl, _adlc_always_logstr,\ + thisFileName,__LINE__,a,b);\ + } +#define ADLC_LOG_ALWAYS2(a,b,c) {\ + _slog (sLogCtrl, _adlc_always_logstr,\ + thisFileName,__LINE__,a,b,c);\ + } +#define ADLC_LOG_ALWAYS3(a,b,c,d) {\ + _slog (sLogCtrl, _adlc_always_logstr,\ + thisFileName,__LINE__,a,b,c,d);\ + } +#define ADLC_LOG_ALWAYS4(a,b,c,d,e) {\ + _slog (sLogCtrl, _adlc_always_logstr,\ + thisFileName,__LINE__,a,b,c,d,e);\ + } + +#define ADLC_LOG_ALWAYS5(a,b,c,d,e,f) {\ + _slog (sLogCtrl, _adlc_always_logstr,\ + thisFileName,__LINE__,a,b,c,d,e,f);\ + } +/* 'Continue' versions */ +#define ADLC_LOG_CALWAYS0(a) {\ + _slogc (sLogCtrl,a);\ + } +#define ADLC_LOG_CALWAYS1(a,b) {\ + _slogc (sLogCtrl,a,b);\ + } +#define ADLC_LOG_CALWAYS2(a,b,c) {\ + _slogc (sLogCtrl,a,b,c);\ + } +#define ADLC_LOG_CALWAYS3(a,b,c,d) {\ + _slogc (sLogCtrl,a,b,c,d);\ + } +#define ADLC_LOG_CALWAYS4(a,b,c,d,e) {\ + _slogc (sLogCtrl,a,b,c,d,e);\ + } +#define ADLC_LOG_CALWAYS5(a,b,c,d,e,f) {\ + _slogc (sLogCtrl,a,b,c,d,e,f);\ + } + +#define ADLC_LOG_ALWAYS_HEX(a,b) {\ + _slogHex (sLogCtrl,a,b);\ + } + +/* --------------------------------------------------------------- */ +/* ------------------ SM Logging Macros ------------------ */ + +#define ADLC_LOG_SM0(a) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_SM)\ + _slog (sLogCtrl, _adlc_sm_logstr,\ + thisFileName,__LINE__,a);\ + } +#define ADLC_LOG_SM1(a,b) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_SM)\ + _slog (sLogCtrl, _adlc_sm_logstr,\ + thisFileName,__LINE__,a,b);\ + } +#define ADLC_LOG_SM2(a,b,c) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_SM)\ + _slog (sLogCtrl, _adlc_sm_logstr,\ + thisFileName,__LINE__,a,b,c);\ + } +#define ADLC_LOG_SM3(a,b,c,d) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_SM)\ + _slog (sLogCtrl, _adlc_sm_logstr,\ + thisFileName,__LINE__,a,b,c,d);\ + } +#define ADLC_LOG_SM4(a,b,c,d,e) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_SM)\ + _slog (sLogCtrl, _adlc_sm_logstr,\ + thisFileName,__LINE__,a,b,c,d,e);\ + } + +/* 'Continue' versions */ +#define ADLC_LOG_CSM0(a) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_SM)\ + _slogc (sLogCtrl,a);\ + } +#define ADLC_LOG_CSM1(a,b) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_SM)\ + _slogc (sLogCtrl,a,b);\ + } +#define ADLC_LOG_CSM2(a,b,c) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_SM)\ + _slogc (sLogCtrl,a,b,c);\ + } +#define ADLC_LOG_CSM3(a,b,c,d) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_SM)\ + _slogc (sLogCtrl,a,b,c,d);\ + } +#define ADLC_LOG_CSM4(a,b,c,d,e) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_SM)\ + _slogc (sLogCtrl,a,b,c,d,e);\ + } + +#define ADLC_LOG_SM_HEX(a,b) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_HEXSM)\ + _slogHex (sLogCtrl,a,b);\ + } + +/* --------------------------------------------------------------- */ +/* ------------------ INFO_FRAME Logging Macros ------------------ */ + +#define ADLC_LOG_INFO_FRAME0(a) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_INFO_FRAME)\ + _slog (sLogCtrl, _adlc_info_frame_logstr,\ + thisFileName,__LINE__,a);\ + } +#define ADLC_LOG_INFO_FRAME1(a,b) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_INFO_FRAME)\ + _slog (sLogCtrl, _adlc_info_frame_logstr,\ + thisFileName,__LINE__,a,b);\ + } +#define ADLC_LOG_INFO_FRAME2(a,b,c) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_INFO_FRAME)\ + _slog (sLogCtrl, _adlc_info_frame_logstr,\ + thisFileName,__LINE__,a,b,c);\ + } +#define ADLC_LOG_INFO_FRAME3(a,b,c,d) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_INFO_FRAME)\ + _slog (sLogCtrl, _adlc_info_frame_logstr,\ + thisFileName,__LINE__,a,b,c,d);\ + } +#define ADLC_LOG_INFO_FRAME4(a,b,c,d,e) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_INFO_FRAME)\ + _slog (sLogCtrl, _adlc_info_frame_logstr,\ + thisFileName,__LINE__,a,b,c,d,e);\ + } + +/* 'Continue' versions */ +#define ADLC_LOG_CINFO_FRAME0(a) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_INFO_FRAME)\ + _slogc (sLogCtrl,a);\ + } +#define ADLC_LOG_CINFO_FRAME1(a,b) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_INFO_FRAME)\ + _slogc (sLogCtrl,a,b);\ + } +#define ADLC_LOG_CINFO_FRAME2(a,b,c) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_INFO_FRAME)\ + _slogc (sLogCtrl,a,b,c);\ + } +#define ADLC_LOG_CINFO_FRAME3(a,b,c,d) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_INFO_FRAME)\ + _slogc (sLogCtrl,a,b,c,d);\ + } +#define ADLC_LOG_CINFO_FRAME4(a,b,c,d,e) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_INFO_FRAME)\ + _slogc (sLogCtrl,a,b,c,d,e);\ + } + +#define ADLC_LOG_INFO_FRAME_HEX(a,b) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_HEXINFO_FRAME)\ + _slogHex (sLogCtrl,a,b);\ + } + +/* --------------------------------------------------------------- */ +/* ------------------ USER Logging Macros ------------------ */ + +#define ADLC_LOG_USER0(a) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_USER)\ + _slog (sLogCtrl, _adlc_user_logstr,\ + thisFileName,__LINE__,a);\ + } +#define ADLC_LOG_USER1(a,b) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_USER)\ + _slog (sLogCtrl, _adlc_user_logstr,\ + thisFileName,__LINE__,a,b);\ + } +#define ADLC_LOG_USER2(a,b,c) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_USER)\ + _slog (sLogCtrl, _adlc_user_logstr,\ + thisFileName,__LINE__,a,b,c);\ + } +#define ADLC_LOG_USER3(a,b,c,d) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_USER)\ + _slog (sLogCtrl, _adlc_user_logstr,\ + thisFileName,__LINE__,a,b,c,d);\ + } +#define ADLC_LOG_USER4(a,b,c,d,e) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_USER)\ + _slog (sLogCtrl, _adlc_user_logstr,\ + thisFileName,__LINE__,a,b,c,d,e);\ + } +#define ADLC_LOG_USER5(a,b,c,d,e,f) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_USER)\ + _slog (sLogCtrl, _adlc_user_logstr,\ + thisFileName,__LINE__,a,b,c,d,e,f);\ + } + +/* 'Continue' versions */ +#define ADLC_LOG_CUSER0(a) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_USER)\ + _slogc (sLogCtrl,a);\ + } +#define ADLC_LOG_CUSER1(a,b) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_USER)\ + _slogc (sLogCtrl,a,b);\ + } +#define ADLC_LOG_CUSER2(a,b,c) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_USER)\ + _slogc (sLogCtrl,a,b,c);\ + } +#define ADLC_LOG_CUSER3(a,b,c,d) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_USER)\ + _slogc (sLogCtrl,a,b,c,d);\ + } +#define ADLC_LOG_CUSER4(a,b,c,d,e) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_USER)\ + _slogc (sLogCtrl,a,b,c,d,e);\ + } +#define ADLC_LOG_CUSER5(a,b,c,d,e,f) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_USER)\ + _slogc (sLogCtrl,a,b,c,d,e,f);\ + } +#define ADLC_LOG_USER_HEX(a,b) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_HEXUSER)\ + _slogHex (sLogCtrl,a,b);\ + } + +/* --------------------------------------------------------------- */ +/* ------------------ DEV_FILT Logging Macros ------------------ */ +#if defined(ADLC_LM) +#define ADLC_LOG_DEV_FILT0(x,a) {\ + if (stFiltDevLog.bFilter && stFiltDevLog.address == x)\ + _slog (sLogCtrl, _adlc_io_logstr,\ + thisFileName,__LINE__,a);\ + } +#define ADLC_LOG_DEV_FILT1(x,a,b) {\ + if (stFiltDevLog.bFilter && stFiltDevLog.address == x)\ + _slog (sLogCtrl, _adlc_io_logstr,\ + thisFileName,__LINE__,a,b);\ + } +#define ADLC_LOG_DEV_FILT2(x,a,b,c) {\ + if (stFiltDevLog.bFilter && stFiltDevLog.address == x)\ + _slog (sLogCtrl, _adlc_io_logstr,\ + thisFileName,__LINE__,a,b,c);\ + } +#define ADLC_LOG_DEV_FILT3(x,a,b,c,d) {\ + if (stFiltDevLog.bFilter && stFiltDevLog.address == x)\ + _slog (sLogCtrl, _adlc_io_logstr,\ + thisFileName,__LINE__,a,b,c,d);\ + } +#define ADLC_LOG_DEV_FILT4(x,a,b,c,d,e) {\ + if (stFiltDevLog.bFilter && stFiltDevLog.address == x)\ + _slog (sLogCtrl, _adlc_io_logstr,\ + thisFileName,__LINE__,a,b,c,d,e);\ + } + +/* 'Continue' versions */ +#define ADLC_LOG_CDEV_FILT0(x,a) {\ + if (stFiltDevLog.bFilter && stFiltDevLog.address == x)\ + _slogc (sLogCtrl,a);\ + } +#define ADLC_LOG_CDEV_FILT1(x,a,b) {\ + if (stFiltDevLog.bFilter && stFiltDevLog.address == x)\ + _slogc (sLogCtrl,a,b);\ + } +#define ADLC_LOG_CDEV_FILT2(x,a,b,c) {\ + if (stFiltDevLog.bFilter && stFiltDevLog.address == x)\ + _slogc (sLogCtrl,a,b,c);\ + } +#define ADLC_LOG_CDEV_FILT3(x,a,b,c,d) {\ + if (stFiltDevLog.bFilter && stFiltDevLog.address == x)\ + _slogc (sLogCtrl,a,b,c,d);\ + } +#define ADLC_LOG_CDEV_FILT4(x,a,b,c,d,e) {\ + if (stFiltDevLog.bFilter && stFiltDevLog.address == x)\ + _slogc (sLogCtrl,a,b,c,d,e);\ + } + +#define ADLC_LOG_DEV_FILT_HEX(x,a,b) {\ + if (stFiltDevLog.bFilter && stFiltDevLog.address == x)\ + _slogHex (sLogCtrl,a,b);\ + } +#endif /* ADLC_LM */ +#else /* DEBUG_SISCO not defined */ + +/*----------------------------------------------------------------------- + * Error Logging Macros for Hard( serious ) Errors + *----------------------------------------------------------------------*/ + +#define ADLC_LOG_ERR0(a) +#define ADLC_LOG_ERR1(a,b) +#define ADLC_LOG_ERR2(a,b,c) +#define ADLC_LOG_ERR3(a,b,c,d) +#define ADLC_LOG_ERR4(a,b,c,d,e) +#define ADLC_LOG_ERR5(a,b,c,d,e,f) + +#define ADLC_LOG_CERR0(a) +#define ADLC_LOG_CERR1(a,b) +#define ADLC_LOG_CERR2(a,b,c) +#define ADLC_LOG_CERR3(a,b,c,d) +#define ADLC_LOG_CERR4(a,b,c,d,e) + +#define ADLC_LOG_ERR_HEX(a,b) + +/*----------------------------------------------------------------------- + * Logging Macros for on Errors + *----------------------------------------------------------------------*/ + +#define ADLC_LOG_NERR0(a) +#define ADLC_LOG_NERR1(a,b) +#define ADLC_LOG_NERR2(a,b,c) +#define ADLC_LOG_NERR3(a,b,c,d) +#define ADLC_LOG_NERR4(a,b,c,d,e) + +#define ADLC_LOG_CNERR0(a) +#define ADLC_LOG_CNERR1(a,b) +#define ADLC_LOG_CNERR2(a,b,c) +#define ADLC_LOG_CNERR3(a,b,c,d) +#define ADLC_LOG_CNERR4(a,b,c,d,e) + +#define ADLC_LOG_NERR_HEX(a,b) +/*----------------------------------------------------------------------- + * Flow Logging Macros + *----------------------------------------------------------------------*/ + +#define ADLC_LOG_FLOW0(a) +#define ADLC_LOG_FLOW1(a,b) +#define ADLC_LOG_FLOW2(a,b,c) +#define ADLC_LOG_FLOW3(a,b,c,d) +#define ADLC_LOG_FLOW4(a,b,c,d,e) +#define ADLC_LOG_FLOW5(a,b,c,d,e,f) + +#define ADLC_LOG_CFLOW0(a) +#define ADLC_LOG_CFLOW1(a,b) +#define ADLC_LOG_CFLOW2(a,b,c) +#define ADLC_LOG_CFLOW3(a,b,c,d) +#define ADLC_LOG_CFLOW4(a,b,c,d,e) +#define ADLC_LOG_CFLOW5(a,b,c,d,e,f) + +#define ADLC_LOG_FLOW_HEX(a,b) +/*----------------------------------------------------------------------- + * I/O Logging Macros + *----------------------------------------------------------------------*/ + +#define ADLC_LOG_IO0(a) +#define ADLC_LOG_IO1(a,b) +#define ADLC_LOG_IO2(a,b,c) +#define ADLC_LOG_IO3(a,b,c,d) +#define ADLC_LOG_IO4(a,b,c,d,e) + +#define ADLC_LOG_CIO0(a) +#define ADLC_LOG_CIO1(a,b) +#define ADLC_LOG_CIO2(a,b,c) +#define ADLC_LOG_CIO3(a,b,c,d) +#define ADLC_LOG_CIO4(a,b,c,d,e) + +#define ADLC_LOG_IO_HEX(a,b) + +/*----------------------------------------------------------------------- + * Debug Logging Macros + *----------------------------------------------------------------------*/ + +#define ADLC_LOG_DEBUG0(a) +#define ADLC_LOG_DEBUG1(a,b) +#define ADLC_LOG_DEBUG2(a,b,c) +#define ADLC_LOG_DEBUG3(a,b,c,d) +#define ADLC_LOG_DEBUG4(a,b,c,d,e) + +#define ADLC_LOG_CDEBUG0(a) +#define ADLC_LOG_CDEBUG1(a,b) +#define ADLC_LOG_CDEBUG2(a,b,c) +#define ADLC_LOG_CDEBUG3(a,b,c,d) +#define ADLC_LOG_CDEBUG4(a,b,c,d,e) + +#define ADLC_LOG_DEBUG_HEX(a,b) + +/*----------------------------------------------------------------------- + * Always Logging Macros + *----------------------------------------------------------------------*/ + +#define ADLC_LOG_ALWAYS0(a) +#define ADLC_LOG_ALWAYS1(a,b) +#define ADLC_LOG_ALWAYS2(a,b,c) +#define ADLC_LOG_ALWAYS3(a,b,c,d) +#define ADLC_LOG_ALWAYS4(a,b,c,d,e) +#define ADLC_LOG_ALWAYS5(a,b,c,d,e,f) + +#define ADLC_LOG_CALWAYS0(a) +#define ADLC_LOG_CALWAYS1(a,b) +#define ADLC_LOG_CALWAYS2(a,b,c) +#define ADLC_LOG_CALWAYS3(a,b,c,d) +#define ADLC_LOG_CALWAYS4(a,b,c,d,e) +#define ADLC_LOG_CALWAYS5(a,b,c,d,e,f) + +#define ADLC_LOG_ALWAYS_HEX(a,b) + +/*----------------------------------------------------------------------- + * Serial Manager Logging Macros + *----------------------------------------------------------------------*/ + +#define ADLC_LOG_SM0(a) +#define ADLC_LOG_SM1(a,b) +#define ADLC_LOG_SM2(a,b,c) +#define ADLC_LOG_SM3(a,b,c,d) +#define ADLC_LOG_SM4(a,b,c,d,e) + +#define ADLC_LOG_CSM0(a) +#define ADLC_LOG_CSM1(a,b) +#define ADLC_LOG_CSM2(a,b,c) +#define ADLC_LOG_CSM3(a,b,c,d) +#define ADLC_LOG_CSM4(a,b,c,d,e) + +#define ADLC_LOG_SM_HEX(a,b) + +/*----------------------------------------------------------------------- + * INFO_FRAME Logging Macros + *----------------------------------------------------------------------*/ + +#define ADLC_LOG_INFO_FRAME0(a) +#define ADLC_LOG_INFO_FRAME1(a,b) +#define ADLC_LOG_INFO_FRAME2(a,b,c) +#define ADLC_LOG_INFO_FRAME3(a,b,c,d) +#define ADLC_LOG_INFO_FRAME4(a,b,c,d,e) + +#define ADLC_LOG_CINFO_FRAME0(a) +#define ADLC_LOG_CINFO_FRAME1(a,b) +#define ADLC_LOG_CINFO_FRAME2(a,b,c) +#define ADLC_LOG_CINFO_FRAME3(a,b,c,d) +#define ADLC_LOG_CINFO_FRAME4(a,b,c,d,e) + +#define ADLC_LOG_INFO_FRAME_HEX(a,b) + +/*----------------------------------------------------------------------- + * USER Logging Macros + *----------------------------------------------------------------------*/ + +#define ADLC_LOG_USER0(a) +#define ADLC_LOG_USER1(a,b) +#define ADLC_LOG_USER2(a,b,c) +#define ADLC_LOG_USER3(a,b,c,d) +#define ADLC_LOG_USER4(a,b,c,d,e) +#define ADLC_LOG_USER5(a,b,c,d,e,f) + +#define ADLC_LOG_CUSER0(a) +#define ADLC_LOG_CUSER1(a,b) +#define ADLC_LOG_CUSER2(a,b,c) +#define ADLC_LOG_CUSER3(a,b,c,d) +#define ADLC_LOG_CUSER4(a,b,c,d,e) +#define ADLC_LOG_CUSER5(a,b,c,d,e,f) + +#define ADLC_LOG_USER_HEX(a,b) + +/*----------------------------------------------------------------------- + * DEV_FILT Logging Macros + *----------------------------------------------------------------------*/ + +#define ADLC_LOG_DEV_FILT0(x,a) +#define ADLC_LOG_DEV_FILT1(x,a,b) +#define ADLC_LOG_DEV_FILT2(x,a,b,c) +#define ADLC_LOG_DEV_FILT3(x,a,b,c,d) +#define ADLC_LOG_DEV_FILT4(x,a,b,c,d,e) + +#define ADLC_LOG_CDEV_FILT0(x,a) +#define ADLC_LOG_CDEV_FILT1(x,a,b) +#define ADLC_LOG_CDEV_FILT2(x,a,b,c) +#define ADLC_LOG_CDEV_FILT3(x,a,b,c,d) +#define ADLC_LOG_CDEV_FILT4(x,a,b,c,d,e) + +#define ADLC_LOG_DEV_FILT_HEX(x,a,b) + +#endif /* for DEBUG_SISCO */ + +#ifdef __cplusplus +} +#endif + +#endif /* ADLC_LOG_INCLUDED */ + diff --git a/include/inc/adlc_sm.h b/include/inc/adlc_sm.h new file mode 100644 index 0000000..1eecba1 --- /dev/null +++ b/include/inc/adlc_sm.h @@ -0,0 +1,317 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1995-2002, All Rights Reserved */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : adlc_sm.h */ +/* PRODUCT(S) : ADLC */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains functions that provide for serial port communi- */ +/* cations for the Digiboard. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* ST_INT sm_init(port,baud,parity,data,stop) */ +/* ST_INT sm_exit(port) */ +/* ST_INT sm_put (port,len,buffer) */ +/* ST_INT sm_putc (port,ch) */ +/* ST_INT sm_rx_cnt (port) */ +/* ST_INT sm_get (port,packet,toRead,bytesRead) */ +/* ST_INT sm_getc (port) */ +/* ST_INT sm_rx_flush(port) */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 11/24/02 KCR 12 Added rdThreadError handling semaphore */ +/* 04/20/98 IKE 11 Moved u_smp_record_time in Serial Manager */ +/* 10/06/97 IKE 10 Added more baud rates */ +/* 09/18/97 IKE 09 Added telephone support */ +/* 05/12/97 IKE 08 Changed to MMSEASE 7.0 Data Types */ +/* 02/03/97 IKE 07 adlcCfg per port basis */ +/* CFG_PORT also for DOS so multiple ports can */ +/* be initialized in dos platform */ +/* 09/19/96 IKE 06 Rearranged sm_get and sm_set functions */ +/* 08/22/96 IKE 05 Added sm_get_dcd for contention avoidance */ +/* 06/11/96 IKE 04 Added more functions to check RS232 signals */ +/* 05/22/96 IKE 03 Added functions to control RS232 signals */ +/* 04/04/96 rkr 02 Cleanup */ +/* 11/12/95 IKE 1 Created */ +/************************************************************************/ + +#ifndef _ADLC_SM_H_ +#define _ADLC_SM_H_ + +#ifdef __cplusplus +extern "C" { +#endif + +#define COM1 0 /* Async Adapter COM1: */ +#define COM2 1 /* Async Adapter COM2: */ +#define COM3 2 /* Async Adapter COM3: */ +#define COM4 3 /* Async Adapter COM4: */ +#define COM5 4 /* Async Adapter COM5: */ +#define COM6 5 /* Async Adapter COM6: */ +#define COM7 6 /* Async Adapter COM7: */ +#define COM8 7 /* Async Adapter COM8: */ +#define COM9 8 /* Async Adapter COM9: */ +#define COM10 9 /* Async Adapter COM10: */ +#define COM11 10 /* ETC. */ +#define COM12 11 +#define COM13 12 +#define COM14 13 +#define COM15 14 +#define COM16 15 +#define COM17 16 +#define COM18 17 +#define COM19 18 +#define COM20 19 +#define COM21 20 +#define COM22 21 +#define COM23 22 +#define COM24 23 +#define COM25 24 +#define COM26 25 +#define COM27 26 +#define COM28 27 +#define COM29 28 +#define COM30 29 +#define COM31 30 +#define COM32 31 +#define COM33 32 +#define COM34 33 + +#define LOW 0 +#define HIGH 1 + +ST_RET sm_init (ST_INT,ST_INT,ST_INT,ST_INT,ST_INT); +ST_RET sm_exit (ST_INT); +ST_RET sm_put (ST_INT,ST_INT, ST_CHAR *); +ST_RET sm_putc (ST_INT, ST_CHAR); +ST_INT sm_rx_cnt (ST_INT port); +ST_INT sm_tx_cnt (ST_INT port); +ST_RET sm_get (ST_INT,ST_CHAR *,ST_INT,ST_INT *); +ST_INT sm_getc (ST_INT); +ST_VOID sm_rx_flush (ST_INT); +ST_RET sm_set_signals (ST_INT port); +ST_RET sm_clear_signals (ST_INT port); +ST_RET sm_set_rts (ST_INT port); +ST_RET sm_clear_rts (ST_INT port); +ST_RET sm_set_dtr (ST_INT port); +ST_RET sm_clear_dtr (ST_INT port); +ST_RET sm_set_rts_clear_dtr(ST_INT port); +ST_RET sm_clear_rts_set_dtr(ST_INT port); +ST_INT sm_get_rts (ST_INT port); +ST_INT sm_get_dtr (ST_INT port); +ST_INT sm_get_cts (ST_INT port); +ST_INT sm_get_dsr (ST_INT port); +ST_INT sm_get_dcd (ST_INT port); + +#if !defined(ADLC_LM) +/* The INIT (ah=00, Int 14h) communications parameters */ + +#define BAUD110 0 /* Baud rate 110 */ +#define BAUD150 1 /* Baud rate 150 */ +#define BAUD300 2 /* Baud rate 300 */ +#define BAUD600 3 /* Baud rate 600 */ +#define BAUD1200 4 /* Baud rate 1200 */ +#define BAUD2400 5 /* Baud rate 2400 */ +#define BAUD4800 6 /* Baud rate 4800 */ +#define BAUD9600 7 /* Baud rate 9600 */ +#define BAUD19200 8 /* Baud rate 19200 */ +#define BAUD38400 9 /* Baud rate 38400 */ +#define BAUD57K 10 /* Baud rate 57.4K */ +#define BAUD115K 11 /* Baud rate 115.2K */ +#define BAUD56K 12 /* Baud rate 56K */ +#define BAUD128K 13 /* Baud rate 128K */ +#define BAUD256K 14 /* Baud rate 256K */ + +#define DATA7 0 /* Data bits 7 */ +#define DATA8 1 /* Data bits 8 */ + +#define NOPAR 0 /* Parity none */ +#define ODDPAR 1 /* Parity odd */ +#define EVENPAR 2 /* Parity even */ + +#define STOP1 0 /* Stop bits 1 */ +#define STOP2 1 /* Stop bits 2 */ + +#endif /* !ADLC_LM */ + +#if defined(ADLC_LM) +/* Request OpCode Definitions */ +#define SM_INITIALIZE_PORT_REQ 0 /* open the port */ +#define SM_TERMINATE_PORT_REQ 1 /* close the port */ +#define SM_READ_REQ 2 /* read from the port */ +#define SM_WRITE_REQ 3 /* write to the port */ +#define SM_IN_BYTE_COUNT_REQ 4 /* check the input Q */ +#define SM_OUT_BYTE_COUNT_REQ 5 /* check the output Q */ +#define SM_GET_STATUS_REQ 6 /* get modem status */ +#define SM_SET_STATUS_REQ 7 /* set modem status */ +#define SM_RX_FLUSH_REQ 8 /* flush recieve buffer */ +#define SM_GET_FRAME_REQ 9 /* respond to frameArr */ + +/* Request Error Code Definitions */ +#define SM_NO_ERR 0 +#define SM_INIT_ERR 1 +#define SM_TX_ERR 2 +#define SM_RX_ERR 3 +#define SM_INVALID_REQ 4 +#define SM_PORT_ALREADY_OPEN 5 +#define SM_OPEN_ERROR 6 +#define SM_SET_BAUD_FAILURE 7 +#define SM_SET_LINE_FAILURE 8 +#define SM_SET_FLOW_FAILURE 9 +#define SM_PORT_NOT_OPEN 10 +#define SM_INVALID_PARAM 11 +#define SM_ERROR 12 +#define SM_NO_FRAMES_AVAILABLE 13 +#define SM_NO_WRITE_CONF_AVIAL 14 +#define SM_SEM_OPEN_FAILURE 15 +#define SM_TERMINATED 16 + +/* Request Status Code Definitions */ +#define SM_COMPLETED 0 +#define SM_PENDING 1 +#define SM_UNDERWAY 2 +#define SM_ABORTED 3 +#define SM_FAILED 4 +#define SM_TX_RX_IN_PROCESS 5 /* pend TX & RX on terminate*/ +#define SM_TX_IN_PROCESS 6 /* pending TX on terminate */ +#define SM_RX_IN_PROCESS 7 /* pending RX on terminate */ + +/* Request Specific Structures */ +typedef struct smRdwrReq + { + ST_INT len; /* num of bytes to read or write */ + ST_CHAR *data; /* user allocates and frees for read or */ + }SM_RDWR_REQ; /* write */ + +typedef struct smFrameReq + { + ST_INT port; /* port the frame was received from */ + ST_INT len; /* frame length */ + ST_CHAR *data; /* SM allocates - user frees!!! */ +#if defined(UCA_SMP) + ST_CHAR recTime[SMP_SIZE_OF_REC_TIME]; /* buffer to hold time stamp */ +#endif + }SM_FRAME_REQ; + +typedef struct smLineParam + { + ST_INT baudRate; /* 300, 1200, 4800, 9600, 19.2, 38.4, 57.6 */ + ST_INT dataBits; /* 5, 6, 7, 8 */ + ST_INT parity; /* 0=none, 1=odd, 2=even, 3=mark, 4=space */ + ST_INT stopBits; /* 0=>1, 1=>1.5 stop bits, 2=>2 */ + }SM_LINE_PARAM; + +typedef struct smHandShake + { + ST_BOOLEAN enableDTR; /* enable DTR input handshaking */ + ST_BOOLEAN enableCTS; /* enable CTS output handshaking */ + ST_BOOLEAN enableDSRout; /* enable DSR output handshaking */ + ST_BOOLEAN enableDCD; /* enable DCD output handshaking */ + ST_BOOLEAN enableDSRin; /* enable DSR input sensitivity */ + ST_BOOLEAN enableRTS; /* enable RTS input handshaking */ + }SM_HAND_SHAKE; + +typedef struct smFlowCtrl + { + ST_BOOLEAN enableTxFlow; /* enable auto transmit XON/XOFF */ + ST_BOOLEAN enableRxFlow; /* enable auto receive XON/XOFF */ + ST_UCHAR xonChar; /* usually 0x11 */ + ST_UCHAR xoffChar; /* usually 0x13 */ + }SM_FLOW_CTRL; + +typedef struct smInitReq + { + SM_LINE_PARAM initLineParam; + SM_HAND_SHAKE initHandShake; + SM_FLOW_CTRL initFlowCtrl; + HANDLE hCom; + ST_INT frameLen; + ST_UCHAR sof; + ST_UCHAR eof; + HEV txDoneSem; + HEV frameArrivalSem; + HEV rdThreadErrSem; + }SM_INIT_REQ; + +typedef struct smStatusReq + { + ST_BOOLEAN dtr; + ST_BOOLEAN rts; + ST_BOOLEAN dcd; + ST_BOOLEAN cts; + ST_BOOLEAN dsr; + }SM_STATUS_REQ; + +/************************************************************************/ +/* SM_REQ */ +/* Every request to serial Manager uses this data structure */ +/************************************************************************/ +typedef struct smReq + { + struct dbl_lnk l; + ST_INT opCode; /* operation requested */ + ST_INT status; + ST_INT errCode; + ST_INT port; + union + { + SM_RDWR_REQ readWriteReq; + SM_INIT_REQ initReq; + SM_STATUS_REQ setStatReq; + } i; /* input data */ + union + { + SM_RDWR_REQ readReq; + SM_STATUS_REQ getStatReq; + ST_INT byteCount; + SM_FRAME_REQ frameArrReq; + }o; /* output data */ + }SM_REQ; + +/* serial manager user access functions */ +ST_RET sm_get_status (ST_INT port,SM_REQ *pstReq); +ST_VOID sm_set_status(ST_INT port, SM_REQ *pstReq); +ST_RET _SmInitialize(ST_VOID); /* startup code */ +ST_RET _SmRequest(SM_REQ *); /* service user requests */ +ST_VOID _SmTerminate(ST_VOID); /* cleanup code */ + +#ifdef ADLC_TESTING +ST_VOID _SmShowStats(ST_INT port); +#endif + +#endif /* ADLC_LM */ + +/************************************************************************/ +/* CFG_PORT */ +/* This data structure is used only when reading the configuration File */ +/* and when opening a port, after that it is not used any more */ +/************************************************************************/ +typedef struct cfgPortStuff + { + struct dbl_lnk l; + ST_INT port; +#if !defined(ADLC_LM) + ST_INT baud; + ST_INT parity; + ST_INT data; + ST_INT stop; +#endif +#if defined(ADLC_LM) + SM_LINE_PARAM stLineParam; + SM_HAND_SHAKE stHandShake; + SM_FLOW_CTRL stFlowCtrl; +#endif + }CFG_PORT; + +#ifdef __cplusplus +} +#endif + +#endif /* adlc_sm.h already included */ diff --git a/include/inc/adlc_sts.h b/include/inc/adlc_sts.h new file mode 100644 index 0000000..795942e --- /dev/null +++ b/include/inc/adlc_sts.h @@ -0,0 +1,82 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1995-1996, All Rights Reserved */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : adlc_sts.h */ +/* PRODUCT(S) : ADLC */ +/* */ +/* MODULE DESCRIPTION : This header file defines data structures */ +/* and types for rli adlc link manager. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 07/16/97 IKE 05 Added device statistics and device filt log */ +/* 05/12/97 IKE 04 Changed to MMSEASE 7.0 Data Types */ +/* 04/10/97 EJV 03 Deletes defines ADLC_MASTER, ADLC_SLAVE */ +/* 10/23/96 IKE 02 Added statsResetTime */ +/* 09/30/96 IKE 01 Created */ +/************************************************************************/ + +#ifndef ADLC_STS_H +#define ADLC_STS_H + +#ifdef __cplusplus +extern "C" { +#endif + +/************************************************************************/ + +/************************************************************************/ +typedef struct tagAdlcStats + { + ST_LONG statsResetTime; /* time stats last reset */ + ST_ULONG txFrames; /* Total transmitted Frames */ + ST_ULONG rxFrames; /* Total received Frames */ + ST_ULONG goodFrames; /* Total good frames received */ + ST_ULONG badFrames; /* Total bad frames when sof was ok */ + ST_ULONG discardedBytes; /* Total discarded bytes */ + ST_ULONG mCastFrames; /* Total Multicast Frames */ + ST_ULONG txPackets; /* Total Transmitted MMS LSDU */ + ST_ULONG rxPackets; /* Total Received MMS LSDU */ + ST_ULONG rxInfo; /* Total Received INFO frames */ + ST_ULONG rxRr; /* Total Received RR frames */ + ST_ULONG rxRnr; /* Total Received RNR frames */ + ST_ULONG rxRej; /* Total Received REJ frames */ + ST_ULONG rxUi; /* Total Received UI frames */ + ST_ULONG txUFrames; /* Total Transmitted Unumbered frames */ + ST_ULONG txSFrames; /* Total Transmitted Supervisory frames */ + ST_ULONG txMFrames; /* Total Transmitted Multicast frames */ + ST_ULONG txIFrames; /* Total Transmitted INFO frames */ + ST_ULONG txUiFrames; /* Total Received UI frames */ + ST_ULONG timeout; /* Total Timeouts */ + ST_ULONG retransmits; /* Total retransmit INFO frames */ + ST_ULONG rxUa; /* Total Received UA frames */ + ST_ULONG rxRd; /* Total Received RD frames */ + ST_ULONG rxDm; /* Total Received DM frames */ + ST_ULONG rxFrmr; /* Total Received FRMR frames */ + ST_ULONG txRFrames; /* Total Received Redirect frames */ + ST_ULONG rxSnrm; /* Total Received SNRM frames */ + ST_ULONG rxDisc; /* Total Received DISC frames */ + } ADLC_STATS; + +#if defined(__OS2__) || defined(_WIN32) +typedef struct tagAdlcDevStats + { + ST_ULONG txFrames; /* Total transmitted Frames */ + ST_ULONG rxFrames; /* Total received Frames */ + ST_ULONG timeout; /* Total Timeouts */ + ST_ULONG retransmits; /* Total retransmitted INFO frames */ + } ADLC_DEV_STATS; +#endif + +#ifdef __cplusplus +} +#endif + +#endif /* ADLC_STS.H already included */ + diff --git a/include/inc/adlc_usr.h b/include/inc/adlc_usr.h new file mode 100644 index 0000000..eec47f4 --- /dev/null +++ b/include/inc/adlc_usr.h @@ -0,0 +1,441 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1995-1997, All Rights Reserved */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : adlc_usr.h */ +/* PRODUCT(S) : ADLC */ +/* */ +/* MODULE DESCRIPTION : This header file defines data structures */ +/* and types for ADLC */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 09/05/03 EJV 21 Chg mms_debug_sel to ST_UINT, and deleted */ +/* L suffix from MMS_LOG_... masks. */ +/* 10/17/01 JRB 20 Del #ifdef UCA_SMP */ +/* 02/04/99 JRB 19 Added adlcStartLinkMan.. */ +/* 10/08/98 MDE 18 Removed ADLC_MASK_LOG_ALWAYS */ +/* 10/21/97 IKE 17 Changed OSI_ADDR to LOCAL_ADDR in error codes*/ +/* 10/14/97 IKE 16 Split into two modules and put all the ipc */ +/* specific stuff into adlc_ipc.h */ +/* 10/1/97 IKE 15 Removed ADLC_LM define if _WIN32 or OS2 is */ +/* defined */ +/* 09/26/97 IKE 14 Added ADLC_M_LOCAL_BASE_ADDR */ +/* 09/22/97 IKE 13 Added SMP(Station Managment Protocol) support*/ +/* 09/18/97 IKE 12 Added telephone support */ +/* 07/16/97 IKE 11 Added support for new ADLC commands */ +/* adlcGetDevStats and adlcFilterDevLog. */ +/* 05/12/97 IKE 10 Changed to MMSEASE 7.0 Data Types */ +/* 04/10/97 EJV 09 Replaced error codes base 0x06xx with 0xA6xx */ +/* 03/13/97 EJV 08 Changes for BRIDGE-132-095 (COGW,RSGW,MCGW): */ +/* - added adlcLogState function; */ +/* 02/24/97 IKE 07 Moved the log masks defn from adlc_log.h */ +/* 01/22/97 IKE 06 Put prototypes for adlcOpenInterface and */ +/* adlcCloseInterface */ +/* 12/03/96 IKE 05 WIN32 Support */ +/* 09/30/96 IKE 04 Removed ifdef PLAIN_DOS for adlcRead func */ +/* so Lean-t stack can use same funct for OS2 */ +/* 05/22/96 IKE 03 Added some more error codes */ +/* 04/04/96 rkr 02 Cleanup */ +/* 01/02/96 IKE 01 Created */ +/************************************************************************/ + +#ifndef ADLC_USR_H +#define ADLC_USR_H + +#ifdef __cplusplus +extern "C" { +#endif + +#include "adlc_sts.h" + +#include "smp_usr.h" + +#define ADLC_ALL_ES 0x8080 /* ES-Hello Multicast Address */ +#define ADLC_ALL_IS 0x8081 /* IS-Hello Multicast Address */ +#define ALL_STATIONS_ADDR 0xFFFF /* Broadcast Address */ +#define NO_STATION_ADDR 0x0000 /* No station address */ +#define ADLC_M_BASE_LOC_ADDR 0x2000 /* For Adlc Master local Addr */ +#define ADLC_USR_M_BASE_LOC_ADDR 0x3000 /* For user apps local adlc addr*/ + +#define CMD_BASE_ADLC_LM 600 + +/****************************************************************/ +/* Log Control */ +/****************************************************************/ +/* adlc logging mask */ +#define ADLC_MASK_LOG_ERR 0x00010000 +#define ADLC_MASK_LOG_NERR 0x00020000 +#define ADLC_MASK_LOG_FLOW 0x00040000 +#define ADLC_MASK_LOG_IO 0x00080000 +#define ADLC_MASK_LOG_HEXIO 0x00100000 +#define ADLC_MASK_LOG_DEBUG 0x00200000 +#define ADLC_MASK_LOG_HEXDEBUG 0x00400000 +#define ADLC_MASK_LOG_SM 0x01000000 +#define ADLC_MASK_LOG_HEXSM 0x02000000 +#define ADLC_MASK_LOG_INFO_FRAME 0x04000000 +#define ADLC_MASK_LOG_HEXINFO_FRAME 0x08000000 +#define ADLC_MASK_LOG_USER 0x10000000 +#define ADLC_MASK_LOG_HEXUSER 0x20000000 + +extern ST_UINT adlc_debug_sel; +/****************************************************************/ +/* ADLC Command OpCodes */ +/****************************************************************/ + +#define ADLC_CMD_CONNECT_NODE (CMD_BASE_ADLC_LM + 1) +#define ADLC_CMD_DISCONNECT_NODE (CMD_BASE_ADLC_LM + 2) +#define ADLC_CMD_CONNECT_NODE_DONE (CMD_BASE_ADLC_LM + 3) +#define ADLC_CMD_DISCONNECT_NODE_DONE (CMD_BASE_ADLC_LM + 4) +#define ADLC_CMD_CONNECT_ALL (CMD_BASE_ADLC_LM + 5) +#define ADLC_CMD_DISCONNECT_ALL (CMD_BASE_ADLC_LM + 6) +#define ADLC_CMD_WRITE_PACKET (CMD_BASE_ADLC_LM + 7) +#define ADLC_CMD_GET_CON_STATUS (CMD_BASE_ADLC_LM + 8) +#define ADLC_CMD_ADD_DEV (CMD_BASE_ADLC_LM + 9) +#define ADLC_CMD_REMOVE_DEV (CMD_BASE_ADLC_LM + 10) +#define ADLC_CMD_START_POLL_DEV (CMD_BASE_ADLC_LM + 11) +#define ADLC_CMD_STOP_POLL_DEV (CMD_BASE_ADLC_LM + 12) +#define ADLC_CMD_CHANGE_POLL_RATE (CMD_BASE_ADLC_LM + 13) +#define ADLC_CMD_QUERY_POLL_INFO (CMD_BASE_ADLC_LM + 14) + +/* #if ADLC_LM */ +#define ADLC_CMD_SET_SM_SLEEP (CMD_BASE_ADLC_LM + 15) +#define ADLC_CMD_GET_SM_SLEEP (CMD_BASE_ADLC_LM + 16) +#define ADLC_CMD_GET_DEV_STATS (CMD_BASE_ADLC_LM + 17) +#define ADLC_CMD_FILTER_DEV_LOG (CMD_BASE_ADLC_LM + 18) +#define ADLC_CMD_ADD_PORT (CMD_BASE_ADLC_LM + 19) +#define ADLC_CMD_REMOVE_PORT (CMD_BASE_ADLC_LM + 20) +#define ADLC_CMD_TEL_DIAL (CMD_BASE_ADLC_LM + 21) +#define ADLC_CMD_TEL_DIAL_DONE (CMD_BASE_ADLC_LM + 22) +#define ADLC_CMD_TEL_HANGUP (CMD_BASE_ADLC_LM + 23) +#define ADLC_CMD_TEL_HANGUP_DONE (CMD_BASE_ADLC_LM + 24) +/* #endif ADLC_LM */ + +#define ADLC_CMD_EXT_WRITE_PACKET (CMD_BASE_ADLC_LM + 25) +#define ADLC_CMD_EXT_WRITE_PACKET_DONE (CMD_BASE_ADLC_LM + 26) + +#define ADLC_CMD_WRITE_PACKET_DONE (CMD_BASE_ADLC_LM + 27) + + +#define ADLC_DEV_NAME_SIZE 80 + +/************************************************************************/ +/* ADLC_CONNECT_NODE */ +/* This is a bidirectional event */ +/* This could be an event from stack to ADLC and vice versa */ +/************************************************************************/ +typedef struct tagAdlcConnectNode + { + struct + { + ST_UINT16 localAddr; /* OSI node address */ + ST_UINT16 remoteAddr; /* ADLC device address */ + ST_ULONG usr1; /* user data */ + } i; + } ADLC_CONNECT_NODE; + +/************************************************************************/ +/* ADLC_DISCONNECT_NODE */ +/* This is a bidirectional event */ +/* This could be an event from stack to ADLC and vice versa */ +/************************************************************************/ + +typedef ADLC_CONNECT_NODE ADLC_DISCONNECT_NODE; + + +/************************************************************************/ +/* ADLC_CONNECT_NODE_DONE */ +/* This is event from ADLC to stack */ +/************************************************************************/ + +typedef ADLC_CONNECT_NODE ADLC_CONNECT_NODE_DONE; + +/************************************************************************/ +/* ADLC_DISCONNECT_NODE_DONE */ +/* This is event from ADLC to stack */ +/************************************************************************/ +typedef ADLC_CONNECT_NODE ADLC_DISCONNECT_NODE_DONE; + +/************************************************************************/ +/* ADLC_CONNECT_ALL */ +/* This is an event from stack to ADLC */ +/************************************************************************/ +typedef struct tagAdlcConnectAll + { + struct + { + ST_UINT16 localAddr; /* OSI node address */ + ST_ULONG usr1; /* user data */ + } i; + } ADLC_CONNECT_ALL; + +/************************************************************************/ +/* ADLC_DISCONNECT_ALL */ +/* This is an event from stack to ADLC */ +/************************************************************************/ +typedef ADLC_CONNECT_ALL ADLC_DISCONNECT_ALL; + +/************************************************************************/ +/* ADLC_WRITE_PACKET */ +/* This is a bidirectional event */ +/* This could be an event from stack to ADLC and vice versa */ +/************************************************************************/ +typedef struct tagAdlcWritePacket + { + struct /* input parameters */ + { + ST_UINT16 remoteAddr; /* device where data is going */ + ST_UINT16 localAddr; /* device where data comes from */ + ST_INT dataSize; + ST_VOID *data; /* allocated memory */ + ST_ULONG usr1; /* user data */ + } i; + } ADLC_WRITE_PACKET; + +/************************************************************************/ +/* ADLC_WRITE_PACKET_DONE */ +/* This is an event from ADLC to stack */ +/************************************************************************/ +typedef ADLC_WRITE_PACKET ADLC_WRITE_PACKET_DONE; + +/************************************************************************/ +/* ADLC_GET_CON_STATUS */ +/* This is an event from any task to ADLC */ +/************************************************************************/ + +#define ADLC_CON_STATUS_ONLINE 1 +#define ADLC_CON_STATUS_OFFLINE 2 +#define ADLC_CON_STATUS_UNKNOWN 3 + +typedef struct tagAdlcGetConStat + { + struct /* input parameters */ + { + ST_UINT16 remoteAddr; /* ADLC device /remote addr */ + ST_UINT16 localAddr; /* OSI node / local addr */ + } i; + struct /* output parameters */ + { + ST_INT conStatusOut; + } o; + } ADLC_GET_CON_STATUS; + +#define ADLC_NO_POLLING 0 +#define ADLC_POLL_FREQ_HI 1 +#define ADLC_POLL_FREQ_MED 2 +#define ADLC_POLL_FREQ_LOW 3 + +/************************************************************************/ +/* ADLC_ADD_DEV */ +/* This is an event from any task to ADLC */ +/************************************************************************/ +typedef struct tagAdlcAddDev + { + struct /* input parameters */ + { + ST_CHAR devName[ADLC_DEV_NAME_SIZE+1]; + ST_UINT16 address; + ST_INT pollGroup; /* defined above */ + ST_INT port; /* what port it belongs to */ + ST_BOOLEAN connectAll; /* should we try to connect it if connectAll issued */ + ST_ULONG usr1; /* user data */ + } i; + } ADLC_ADD_DEV; + +/************************************************************************/ +/* ADLC_REMOVE_DEV */ +/* This is an event from any task to ADLC */ +/************************************************************************/ +typedef struct tagAdlcRemoveDev + { + struct /* input parameters */ + { + ST_CHAR devName[ADLC_DEV_NAME_SIZE+1]; + ST_ULONG usr1; /* user data */ + } i; + } ADLC_REMOVE_DEV; + +/************************************************************************/ +/* ADLC_START_POLL_DEV */ +/* This is an event from any task to ADLC */ +/************************************************************************/ +typedef struct tagAdlcStartPollDev + { + struct /* input parameters */ + { + ST_CHAR devName[ADLC_DEV_NAME_SIZE+1]; + ST_ULONG usr1; /* user data */ + } i; + } ADLC_START_POLL_DEV; + +/************************************************************************/ +/* ADLC_STOP_POLL_DEV */ +/* This is an event from any task to ADLC */ +/************************************************************************/ +typedef struct tagAdlcStopPollDev + { + struct /* input parameters */ + { + ST_CHAR devName[ADLC_DEV_NAME_SIZE+1]; + ST_ULONG usr1; /* user data */ + } i; + } ADLC_STOP_POLL_DEV; + +/************************************************************************/ +/* ADLC_CHANGE_POLL_RATE */ +/* This is an event from any task to ADLC */ +/************************************************************************/ +/* Notes on changing the poll rate for a device: + To poll the device more frequently set + pollFreqDelta = ADLC_INC_POLL_FREQ; + The device will be moved to the poll group that polls more + frequently. + + Example: current pollGroup=3 with pollRate=n seconds + new pollGroup=2 with pollRate=n-m seconds + + Reverse the above discussion to decrease the polling frequency. */ + +#define ADLC_INC_POLL_FREQ 1 +#define ADLC_DEC_POLL_FREQ 2 + +typedef struct tagAdlcChangePollRate + { + struct /* input parameters */ + { + ST_CHAR devName[ADLC_DEV_NAME_SIZE+1]; + ST_INT pollFreqDelta; /* change to poll freq as */ + ST_ULONG usr1; /* user data */ + } i; /* defined above */ + } ADLC_CHANGE_POLL_RATE; + +/************************************************************************/ +/* ADLC_QUERY_POLL_INFO */ +/* This is an event from any task to ADLC */ +/************************************************************************/ +/* Notes on Polling: + Poll groups range from 1 to n (as of 01/17/96 n=3). All devices + associated with a poll group are polled at the pollRate set for + the poll group. The smaller the poll group the more frequently + the devices are polled. */ + +typedef struct tagQueryPollInfo + { + struct /* input parameters */ + { + ST_CHAR devName[ADLC_DEV_NAME_SIZE+1]; + ST_ULONG usr1; /* user data */ + } i; + struct + { + ST_INT pollGroup; /* current poll group for device*/ + ST_DOUBLE pollRate; /* in mili seconds */ + ST_BOOLEAN bPollingSuspended; /* polling was stopped by user */ + } o; + } ADLC_QUERY_POLL_INFO; + +/************************************************************************/ +/* ADLC_EXT_WRITE_PACKET */ +/* This is a bidirectional event */ +/* This could be an event from stack to ADLC and vice versa */ +/************************************************************************/ +typedef struct tagAdlcExtWritePacket + { + struct /* input parameters */ + { + ST_UINT16 remoteAddr; /* device where data is going */ + ST_UINT16 localAddr; /* device where data comes from */ + ST_INT dataSize; + ST_VOID *data; /* allocated memory */ + ST_LONG userId; /* user passes for done func */ + ST_CHAR recTime[SMP_SIZE_OF_REC_TIME]; /* buffer to hold time stamp */ + ST_ULONG usr1; /* user data */ + } i; + } ADLC_EXT_WRITE_PACKET; + +/************************************************************************/ +/* ADLC_EXT_WRITE_PACKET_DONE */ +/* This is event from ADLC to stack */ +/************************************************************************/ +typedef ADLC_EXT_WRITE_PACKET ADLC_EXT_WRITE_PACKET_DONE; + +/* ADLC defined error codes. The error base 0x3600 is defined in glberror.h */ + +#define E_ADLC_INVALID_DEV_NAME 0x3601 +#define E_ADLC_INVALID_DEV_ADDR 0x3602 +#define E_ADLC_DEVICE_EXISTS 0x3603 +#define E_ADLC_DEV_DOES_NOT_EXIST 0x3604 + +#define E_ADLC_INVALID_LOCAL_ADDR 0x3605 +#define E_ADLC_INVALID_CON_PAIR 0x3606 +#define E_ADLC_CON_EXISTS 0x3607 +#define E_ADLC_CON_DOES_NOT_EXIST 0x3608 +#define E_ADLC_TX_BUF_FULL 0x3609 + +#define E_ADLC_CANT_POLL_FASTER 0x360A +#define E_ADLC_CANT_POLL_SLOWER 0x360B +#define E_ADLC_INVALID_POLL_DELTA 0x360C +#define E_ADLC_INTERNAL_ERR 0x360D +#define E_ADLC_DEVICE_NOT_POLLED 0x360E +#define E_ADLC_INVALID_HQUEUE 0x360F +#define E_ADLC_INVALID_PORT 0x3610 +#define E_ADLC_INVALID_POLL_FREQ 0x3611 +#define E_ADLC_DUPLICATE_LOCAL_ADDR 0x3612 +#define E_ADLC_PACKET_LEN_NOT_VALID 0x3613 + +#define E_ADLC_RESPONSE_TIMEOUT 0x3614 +#define E_ADLC_INVALID_CMD 0x3615 +#define E_ADLC_CANT_INIT_PORT 0x3616 + +#define E_ADLC_CREATE_THREAD 0x3617 +#define E_ADLC_CANT_INIT_TAPI 0x3618 +#define E_ADLC_TEL_LINE_UNAVAIL 0x3619 +#define E_ADLC_CANT_INIT_TEL_LINE 0x361A + +#define E_ADLC_PORT_EXISTS 0x361B +#define E_ADLC_PORT_DOES_NOT_EXIST 0x361C + +#define E_ADLC_SERIAL_TX 0x361D +#define E_ADLC_SERIAL_RX 0x361E + +#define E_ADLC_CANT_OPEN_DB 0x361F +ST_RET adlcWrite(ADLC_WRITE_PACKET *adlcPacket); +ADLC_WRITE_PACKET *adlcRead(ST_VOID); +ST_VOID *adlcGetEvent(ST_INT *opcode, ST_RET *retCode); +ST_RET adlcRegisterClient (ST_UINT16 localAddr); + +/* routines to service ADLC commands */ +ST_RET adlcStartLinkManager (ST_VOID); +ST_RET adlcInit(ST_VOID); +ST_RET adlcConnectNode(ADLC_CONNECT_NODE *pstConNode); +ST_RET adlcDisconnectNode(ADLC_DISCONNECT_NODE *pstDiscNode); +ST_RET adlcConnectAll(ADLC_CONNECT_ALL *pstConAll); +ST_RET adlcDisconnectAll(ADLC_DISCONNECT_ALL *pstDiscAll); +ST_RET adlcWritePacket(ADLC_WRITE_PACKET *adlcPacket); +ST_RET adlcGetConStatus(ADLC_GET_CON_STATUS *pstGetConStatus); +ST_RET adlcAddDev(ADLC_ADD_DEV *pstAddDev); +ST_RET adlcRemoveDev(ADLC_REMOVE_DEV *pstRemoveDev); +ST_RET adlcStartPollingDev(ADLC_START_POLL_DEV *pstStartPollDev); +ST_RET adlcStopPollingDev(ADLC_STOP_POLL_DEV *pstStopPollDev); +ST_RET adlcChangePollRate(ADLC_CHANGE_POLL_RATE *pstChangePollRate); +ST_RET adlcQueryPollInfo(ADLC_QUERY_POLL_INFO *pstQueryPollInfo); +ST_VOID adlcExit (ST_VOID); + +ST_RET adlcExtWritePacket(const ADLC_EXT_WRITE_PACKET *pstExtWrite); + +#ifdef __cplusplus +} +#endif + +#endif /* end ADLC_USR */ + + + + + + diff --git a/include/inc/arg.h b/include/inc/arg.h new file mode 100644 index 0000000..49f8161 --- /dev/null +++ b/include/inc/arg.h @@ -0,0 +1,44 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1991 All Rights Reserved */ +/* */ +/* MODULE NAME : arg.h */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 02/25/98 MDE 02 Changed numArgStrings to ST_INT */ +/* 06/23/94 MDE 01 Created */ +/************************************************************************/ +/************************************************************************/ + + +ST_INT process_args (ST_INT argc, ST_CHAR **argv); +ST_VOID listValidArgs (ST_VOID); + +/************************************************************************/ + +struct arg_ctrl + { + ST_CHAR *str; /* text to be matched */ + ST_CHAR *help; /* Help text */ + ST_VOID (*fun)(ST_INT argNum, ST_CHAR *str); /* processing function */ + }; + +extern ST_INT argRetVal; +extern ST_INT argStopProc; +extern ST_INT argCurrArg; +extern ST_CHAR **argArgv; + + +/* User must define these variables */ +extern struct arg_ctrl argCtrl[]; +extern ST_INT numArgStrings; + diff --git a/include/inc/asn1defs.h b/include/inc/asn1defs.h new file mode 100644 index 0000000..8c43328 --- /dev/null +++ b/include/inc/asn1defs.h @@ -0,0 +1,40 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : asn1defs.h */ +/* PRODUCT(S) : ASN1DE */ +/* */ +/* MODULE DESCRIPTION : */ +/* Contains definitions and global variables useful to the ASN1DE */ +/* user. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/19/01 JRB 14 Del everything & use "asn1r.h". */ +/* 11/14/01 EJV 13 Added MMS_UTC_TIME typedef. */ +/* Added asn1_wr_utc_time, asn1_get_utc_time */ +/* 06/22/00 DSF 12 Added asn1_max_bitcount */ +/* 06/16/00 JRB 11 Add #if INT64_SUPP... */ +/* 05/24/00 RKR 10 Deleted a an extra declaration of asn1_tzone */ +/* 09/13/99 MDE 09 Added SD_CONST modifiers */ +/* 10/08/98 MDE 08 Migrated to updated SLOG interface */ +/* 03/18/98 JRB 07 Add ASN1E_* defines. */ +/* Move ASN1 error codes from mmsintr2.h to here*/ +/* Add 0x7000 to all ASN.1 error codes. */ +/* 12/10/97 MDE 06 Changed get_i8 to take ST_INT8 */ +/* 09/29/97 MDE 05 Changed ASN1_LITE to MMS_LITE */ +/* 08/21/97 MDE 04 Added ASN1_ARB_FLOAT define */ +/* 08/13/97 MDE 03 Changed wr_i8 and wr_u8 to take sized int's */ +/* 06/17/97 MDE 02 Removed old debug defines */ +/* 05/20/97 MDE 01 Changes to time handling - renames, etc. */ +/* 04/02/97 7.00 MMSEASE 7.0 release. See ASN1ML70.DOC for */ +/* history. */ +/************************************************************************/ + +#include "asn1r.h" /* Simply use all new defs in this file */ diff --git a/include/inc/asn1log.h b/include/inc/asn1log.h new file mode 100644 index 0000000..4d7676c --- /dev/null +++ b/include/inc/asn1log.h @@ -0,0 +1,106 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1993 - 1994, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : asn1log.h */ +/* PRODUCT(S) : MMSEASE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains ASN.1 logging definitions */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 09/16/03 JRB 06 Add more ERR/NERR macros. */ +/* 03/31/03 JRB 05 Use new "Base" macros SLOG_*, SLOGC_*, SLOGH.*/ +/* Add more macros. */ +/* 03/13/02 JRB 04 ALOG_PAUSEDEC, ALOG_DECLF macros do nothing. */ +/* 09/13/99 MDE 03 Added SD_CONST modifiers */ +/* 10/08/98 MDE 02 Migrated to updated SLOG interface */ +/* 09/11/97 DSF 01 Adde ALOG_NERRH */ +/* 04/02/97 7.00 MMSEASE 7.0 release. See ASN1ML70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef ASN1_LOG_INCLUDED +#define ASN1_LOG_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +/* Log type strings */ +extern SD_CONST ST_CHAR *SD_CONST _asn1_log_dec_logstr; +extern SD_CONST ST_CHAR *SD_CONST _asn1_log_enc_logstr; +extern SD_CONST ST_CHAR *SD_CONST _asn1_log_err_logstr; +extern SD_CONST ST_CHAR *SD_CONST _asn1_log_nerr_logstr; + + +#define ALOG_DECLF() +#define ALOG_PAUSEDEC(msg) + +#define ALOG_DEC0(a) \ + SLOG_0 (asn1_debug_sel & ASN1_LOG_DEC,_asn1_log_dec_logstr,a) +#define ALOG_DEC1(a,b) \ + SLOG_1 (asn1_debug_sel & ASN1_LOG_DEC,_asn1_log_dec_logstr,a,b) + +#define ALOG_CDEC0(a) \ + SLOGC_0 (asn1_debug_sel & ASN1_LOG_DEC,a) +#define ALOG_CDEC1(a,b) \ + SLOGC_1 (asn1_debug_sel & ASN1_LOG_DEC,a,b) +#define ALOG_CDEC2(a,b,c) \ + SLOGC_2 (asn1_debug_sel & ASN1_LOG_DEC,a,b,c) +#define ALOG_CDEC3(a,b,c,d) \ + SLOGC_3 (asn1_debug_sel & ASN1_LOG_DEC,a,b,c,d) +#define ALOG_CDEC4(a,b,c,d,e) \ + SLOGC_4 (asn1_debug_sel & ASN1_LOG_DEC,a,b,c,d,e) + +#define ALOG_DECH(a,b) \ + SLOGH (asn1_debug_sel & ASN1_LOG_DEC,a,b) + +#define ALOG_ENC0(a) \ + SLOG_0 (asn1_debug_sel & ASN1_LOG_ENC,_asn1_log_enc_logstr,a) +#define ALOG_ENC1(a,b) \ + SLOG_1 (asn1_debug_sel & ASN1_LOG_ENC,_asn1_log_enc_logstr,a,b) + +#define ALOG_CENC0(a) \ + SLOGC_0 (asn1_debug_sel & ASN1_LOG_ENC,a) +#define ALOG_CENC1(a,b) \ + SLOGC_1 (asn1_debug_sel & ASN1_LOG_ENC,a,b) + +#define ALOG_ENCH(a,b) \ + SLOGH (asn1_debug_sel & ASN1_LOG_ENC,a,b) + +#define ALOG_ERR0(a) \ + SLOG_0 (asn1_debug_sel & ASN1_LOG_ERR,_asn1_log_err_logstr,a) +#define ALOG_ERR1(a,b) \ + SLOG_1 (asn1_debug_sel & ASN1_LOG_ERR,_asn1_log_err_logstr,a,b) +#define ALOG_ERR2(a,b,c) \ + SLOG_2 (asn1_debug_sel & ASN1_LOG_ERR,_asn1_log_err_logstr,a,b,c) +#define ALOG_ERR3(a,b,c,d) \ + SLOG_3 (asn1_debug_sel & ASN1_LOG_ERR,_asn1_log_err_logstr,a,b,c,d) + +#define ALOG_NERR0(a) \ + SLOG_0 (asn1_debug_sel & ASN1_LOG_NERR,_asn1_log_nerr_logstr,a) +#define ALOG_NERR1(a,b) \ + SLOG_1 (asn1_debug_sel & ASN1_LOG_NERR,_asn1_log_nerr_logstr,a,b) +#define ALOG_NERR2(a,b,c) \ + SLOG_2 (asn1_debug_sel & ASN1_LOG_NERR,_asn1_log_nerr_logstr,a,b,c) +#define ALOG_NERR3(a,b,c,d) \ + SLOG_3 (asn1_debug_sel & ASN1_LOG_NERR,_asn1_log_nerr_logstr,a,b,c,d) + +#define ALOG_NERRH(a,b) \ + SLOGH (asn1_debug_sel & ASN1_LOG_NERR,a,b) + +#ifdef __cplusplus +} +#endif + + +/************************************************************************/ +#endif /* End of ASN1_LOG_INCLUDED */ +/************************************************************************/ diff --git a/include/inc/asn1r.h b/include/inc/asn1r.h new file mode 100644 index 0000000..058f6bb --- /dev/null +++ b/include/inc/asn1r.h @@ -0,0 +1,718 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2009, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : asn1r.h */ +/* PRODUCT(S) : ASN1DE */ +/* */ +/* MODULE DESCRIPTION : */ +/* Contains definitions and global variables useful to the ASN1DE */ +/* user. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 07/21/09 JRB 31 Add asn1r_bitstr_truncated in ASN1_DEC_CTXT. */ +/* Del GET_CONSTRUCTED_*STRINGS defines. */ +/* 05/28/09 JRB 30 Add asn1r_decode_init, asn1r_get_tag functs. */ +/* Add asn1r_msg_start in ASN1_DEC_CTXT struct. */ +/* Add asn1r_strt_constr_indef. */ +/* 01/15/09 MDE 29 Added asn1_peek, removed asn1r_head_decode */ +/* 11/12/08 MDE 28 Added asn1r_last_byte, asn1r_head_decode rc */ +/* 07/02/07 JRB 26 Chg ..fixlen, ..varlen arg to (ST_UCHAR *). */ +/* 12/20/06 JRB 25 Add bstrcmp. */ +/* 03/17/06 JRB 24 Add asn1r_anytag_fun, ASN1_ANYTAG_METHOD, */ +/* ASN1MASK_*. */ +/* Chg BSTR_BIT_GET macro to return only 0 or 1.*/ +/* 12/05/05 JRB 23 Add asn1r_skip_elmnt & more asn1r_get* protos*/ +/* 08/01/05 JRB 22 Add const on asn1r_wr_vstr, asn1_wr_octstr args.*/ +/* 03/23/05 JRB 21 Move APP_REF from suicacse to here so almost */ +/* any SISCO app can use it. */ +/* 07/08/04 JRB 20 Add define TIME_T_1984_JAN_1 & other defines.*/ +/* Add asn1_convert_timet_to_btime6. */ +/* 10/13/03 JRB 19 Add ASN1E_DECODE_OTHER, ASN1E_ENCODE_OTHER. */ +/* 03/31/03 JRB 18 Add UTF8string support. */ +/* asn1r_get_bitstr: add max_bits arg. */ +/* 12/14/02 JRB 17 Add BSTR_*, MMS_BVSTRING, bstrcpy, bvstrcpy */ +/* 11/11/02 EJV 16 asn1r_tag_add: added type cast */ +/* 11/08/02 JRB 15 Add ASN1_DEC_PTR, ASN1_DEC_LEN macros. */ +/* 10/29/02 JRB 14 Add asn1r_magic to ASN1_ENC_CTXT. */ +/* 10/25/02 JRB 13 Add ASN1_ENC_PTR, ASN1_ENC_LEN macros. */ +/* Add MMS_BTIME6 struct. */ +/* 07/03/02 EJV 12 MMS_UTC_TIME: chg name usec to fraction. */ +/* 01/22/02 JRB 11 Add "asn1r_buf_end" to ASN1_ENC_CTXT. */ +/* Chg asn1r_end_of_buffer to asn1r_buf_start */ +/* & asn1r_field_start to asn1r_field_end */ +/* & _asn1_constr_start to asn1r_constr_end */ +/* in ENC_CTX (start means start, end means end)*/ +/* 01/07/02 EJV 09 Added asn1_ prefix to convert_... functions. */ +/* 01/04/02 EJV 08 Add convert_btod_to_utc, convert_utc_to_btod */ +/* 12/20/01 JRB 07 Split ASN1_CTXT into ASN1_DEC_CTXT, ASN1_ENC_CTXT*/ +/* Del unused calendar stuff. */ +/* Del backward compatibility defines. */ +/* Chg asn1r_objidcmp to asn1_objidcmp. */ +/* Del unused tzhour_diff, tconst, default_dcomp*/ +/* Del unused strt_asn1,asn1_tz_calc,asn1_is_dst*/ +/* 11/09/01 EJV 06 Added MMS_UTC_TIME typedef. */ +/* Added asn1r_wr_utc_time, asn1r_get_utc_time */ +/* ASN1_CTXT: del _save_asn1_len, _save_asn1_ptr*/ +/* 08/15/00 JRB 05 Add asn1_ctxt "forward reference". */ +/* 06/19/00 JRB 04 Add #if INT64_SUPP... */ +/* 05/25/00 RKR 03 Deleted a an extra declaration of asn1_tzone */ +/* 07/29/99 MDE 02 Added TABLE method */ +/* 07/26/99 MDE 01 New, derived from asn1defs.h */ +/************************************************************************/ + +#if !defined(ASN1DEFS_INCLUDED) && !defined(ASN1R_INCLUDED) +#define ASN1R_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +/************************************************************************/ + +#include "slog.h" + +/* Defines for UNICODE local data format. */ +#define UNICODE_UTF8 0 +#define UNICODE_UTF16 1 +#if !defined(UNICODE_LOCAL_FORMAT) +#if defined(_WIN32) +#define UNICODE_LOCAL_FORMAT UNICODE_UTF16 +#else +#define UNICODE_LOCAL_FORMAT UNICODE_UTF8 /*default format */ +#endif +#endif /* !defined(UNICODE_LOCAL_FORMAT) */ + +/************************************************************************/ +/* asn1_debug_sel bit assignments */ + +#define ASN1_LOG_DEC 0x0001 +#define ASN1_LOG_ENC 0x0002 +#define ASN1_LOG_ERR 0x0004 +#define ASN1_LOG_NERR 0x0008 + +/************************************************************************/ +/* These are S_LOG control items for ASN1 logging */ + +extern ST_UINT asn1_debug_sel; + +/************************************************************************/ +/* Support for development time debugging can be enabled here */ +/* #define DEBUG_ASN1_DECODE */ + +/************************************************************************/ +/* Support for seldom needed decode features can be disabled here */ + +#if !defined(MMS_LITE) +#define ASN1_ARB_FLOAT +#endif + +/************************************************************************/ +/* Helpful Time-related defines */ + +#define SECONDS_PER_DAY (60*60*24) +#define MILLISECONDS_PER_DAY (1000 * SECONDS_PER_DAY) +#define DAYS_FROM_1970_TO_1984 ((11*365) + (3*366)) /*includes 3 leap years 1972, 1976, 1980*/ +#define TIME_T_1984_JAN_1 (DAYS_FROM_1970_TO_1984 * SECONDS_PER_DAY) + +/************************************************************************/ +/* Binary Time Of Day */ + +#define MMS_BTOD4 4 +#define MMS_BTOD6 6 + +typedef struct btod_data + { + ST_INT form; /* MMS_BTOD6, MMS_BTOD4 */ + ST_INT32 ms; /* Number of milliseconds since midnight */ + ST_INT32 day; /* Number of days since Jan 1, 1984 */ + } MMS_BTOD; + +/* MMS_BTIME6: this structure is the format used to pass "Btime6" data */ +/* (i.e. ISO/IEC 9506-2 TimeOfDay with size=6) between the user and */ +/* the ASN.1 encoder/decoder (i.e. ms_asn1_to_local & ms_local_to_asn1).*/ +typedef struct + { + ST_INT32 ms; /* Number of milliseconds since midnight */ + ST_INT32 day; /* Number of days since Jan 1, 1984 */ + } MMS_BTIME6; + +/************************************************************************/ +/* UTC Time */ + +typedef struct mms_utc_time_tag + { + ST_UINT32 secs; /* Number of seconds since January 1, 1970 */ + ST_UINT32 fraction; /* Fraction of a second */ + ST_UINT32 qflags; /* Quality flags, 8 least-significant bits only */ + } MMS_UTC_TIME; + +ST_RET asn1_convert_btod_to_utc (MMS_BTOD *btod, MMS_UTC_TIME *utc); +ST_RET asn1_convert_utc_to_btod (MMS_UTC_TIME *utc, MMS_BTOD *btod); +ST_RET asn1_convert_timet_to_btime6 (time_t tThis, MMS_BTIME6 *bTime6); + +/************************************************************************/ +/* Variable Length Bitstring */ +/* This structure defines the format used to pass "variable length */ +/* bitstring" data between the user and */ +/* the ASN.1 encoder/decoder (i.e. ms_asn1_to_local & ms_local_to_asn1).*/ +/* NOTE: For bitstrings longer than 8 bits, the actual data extends */ +/* beyond the end of this struct. */ + +typedef struct + { + ST_INT16 len; + ST_UCHAR data[1]; + } MMS_BVSTRING; + +/************************************************************************/ +/* VMS Float Format select */ + +#define A_D_FLOAT 1 +#define A_G_FLOAT 2 +extern ST_INT asn1_vax_double_type; + +/************************************************************************/ +/* ASN1-DE limitiations */ + +#define ASN1_MAX_PDU 0x7FFF /* maximum decodable message length */ +#define ASN1_MAX_FIELD 0x7FFF /* maximum field (data element) length */ +#define ASN1_MAX_LEVEL 50 /* maximum supported nesting level */ + +/************************************************************************/ +/* ASN.1 Definitions to support identifier construction by bit OR. */ +/* Used to make up and test 'tag' bits. */ + +/* These used in ASN1_ANYTAG_METHOD decode method. */ +#define ASN1MASK_UNI 0x0000 /* universal class */ +#define ASN1MASK_APP 0x4000 /* application wide */ +#define ASN1MASK_CTX 0x8000 /* context specific */ +#define ASN1MASK_PRV 0xC000 /* private use */ +#define ASN1MASK_CONSTR 0x2000 /* constructor */ + +/* These used in other decode methods and in encoder. */ +#define UNI 0x00 /* universal class */ +#define APP 0x40 /* application wide */ +#define CTX 0x80 /* context specific */ +#define PRV 0xC0 /* private use */ +#define CONSTR 0x20 /* constructor */ + +#define DEF 0x00 /* definite length constructor */ +#define INDEF 0xFF /* indefinite length constructor */ + +/* Universal class ASN.1 ID code definitions */ +#define EOC_CODE 0x00 +#define BOOL_CODE 0x01 +#define INT_CODE 0x02 +#define BITS_CODE 0x03 +#define OCT_CODE 0x04 +#define NULL_CODE 0x05 +#define OBJ_ID_CODE 0x06 +#define OBJDSCR_CODE 0x07 +#define EXTERN_CODE 0x08 +#define SEQ_CODE 0x10 +#define SET_CODE 0x11 +#define NUMSTR_CODE 0x12 +#define PRTSTR_CODE 0x13 +#define S61STR_CODE 0x14 +#define S100STR_CODE 0x15 +#define IA5STR_CODE 0x16 +#define UTCTIM_CODE 0x17 +#define GENTIM_CODE 0x18 +#define GRAFSTR_CODE 0x19 +#define VISTR_CODE 0x1A +#define GENSTR_CODE 0x1B + + +/************************************************************************/ +/* ASN.1 decode error definitions */ +/* Used as the argument to "asn1_set_dec_err" function which sets the */ +/* global variable "asn1_pdu_dec_err". */ +/************************************************************************/ + +#define NO_DECODE_ERR 0 /* no decode error */ +#define ASN1E_NEST_TOO_DEEP 0x7001 +#define ASN1E_UNEXPECTED_CLASS 0x7002 +#define ASN1E_UNEXPECTED_TAG 0x7003 +#define ASN1E_ID_TOO_BIG 0x7004 +#define ASN1E_CSTR_INVALID_LEN 0x7005 +#define ASN1E_INVALID_LENGTH 0x7006 +#define ASN1E_UNEXPECTED_FORM 0x7007 +#define ASN1E_PDU_TOO_BIG 0x7008 +#define ASN1E_END_O_BUFFER 0x7009 +#define ASN1E_BITCSTR_TOO_BIG 0x700a +#define ASN1E_INVALID_BITSTR 0x700b +#define ASN1E_OCTSTR_TOO_BIG 0x700c +#define ASN1E_INVALID_BOOLEAN 0x700d +#define ASN1E_END_OF_MESSAGE 0x700e +#define ASN1E_END_OF_CSTR 0x700f + +/* CRITICAL: The rest of the ASN.1 decode error definitions must not */ +/* must not be changed. The lower 2 nibbles are used to set the */ +/* REJECT class and code (mmsdec_map_err saves value to rslt.err_code */ +/* which is used in "mmspdu.c" to generate REJECT class and code). */ + +/************************************************************************/ +/* CONFIRMED REQUEST REJECT DEFINITIONS */ +/************************************************************************/ +#define REQ_UNSPECIFIED 0x7010 +#define REQ_UNREC_SERV 0x7011 +#define REQ_UNREC_MOD 0x7012 +#define REQ_INVAL_INVOKE 0x7013 +#define REQ_INVAL_ARG 0x7014 +#define REQ_INVAL_MOD 0x7015 +#define REQ_OUTSTD_EXCEED 0x7016 +#define REQ_EXCSV_LENGTH 0x7017 +#define REQ_EXCSV_NEST 0x7018 +#define REQ_BAD_VALUE 0x7019 + +/************************************************************************/ +/* CONFIRMED RESPONSE REJECT DEFINITIONS */ +/************************************************************************/ +#define RESP_UNSPECIFIED 0x7020 +#define RESP_UNREC_SERV 0x7021 +#define RESP_INVAL_INVOKE 0x7022 +#define RESP_INVAL_RSLT 0x7023 +#define RESP_EXCSV_LENGTH 0x7024 +#define RESP_EXCSV_NEST 0x7025 +#define RESP_BAD_VALUE 0x7026 + +/************************************************************************/ +/* CONFIRMED ERROR REJECT DEFINITIONS */ +/************************************************************************/ +#define ERR_UNSPECIFIED 0x7030 +#define ERR_UNREC_SERV 0x7031 +#define ERR_INVAL_INVOKE 0x7032 +#define ERR_INVAL_SERV 0x7033 +#define ERR_BAD_VALUE 0x7034 + +/************************************************************************/ +/* UNCONFIRMED PDU REJECT DEFINITIONS */ +/************************************************************************/ +#define UNCONF_UNSPECIFIED 0x7040 +#define UNCONF_UNREC_SERV 0x7041 +#define UNCONF_INVAL_ARG 0x7042 +#define UNCONF_EXCSV_NEST 0x7043 +#define UNCONF_BAD_VALUE 0x7044 + +/************************************************************************/ +/* PDU REJECT DEFINITIONS */ +/************************************************************************/ +#define PDU_UNKNOWN_TYPE 0x7050 +#define PDU_INVALID 0x7051 + +/************************************************************************/ +/* CANCEL REQUEST REJECT DEFINITIONS */ +/************************************************************************/ +#define CANREQ_UNSPECIFIED 0x7060 +#define CANREQ_INVAL_INVOKE 0x7061 + +/************************************************************************/ +/* CANCEL RESPONSE REJECT DEFINITIONS */ +/************************************************************************/ +#define CANRESP_UNSPECIFIED 0x7070 +#define CANRESP_INVAL_INVOKE 0x7071 + +/************************************************************************/ +/* CANCEL ERROR REJECT DEFINITIONS */ +/************************************************************************/ +#define CANERR_UNSPECIFIED 0x7080 +#define CANERR_INVAL_INVOKE 0x7081 +#define CANERR_INVAL_SERV 0x7082 +#define CANERR_BAD_VALUE 0x7083 + +/************************************************************************/ +/* CONCLUDE REQUEST REJECT DEFINITIONS */ +/************************************************************************/ +#define CONREQ_UNSPECIFIED 0x7090 +#define CONREQ_INVAL_ARG 0x7091 + +/************************************************************************/ +/* CONCLUDE RESPONSE REJECT DEFINITIONS */ +/************************************************************************/ +#define CONRESP_UNSPECIFIED 0x70A0 +#define CONRESP_INVAL_RSLT 0x70A1 + +/************************************************************************/ +/* CONCLUDE ERROR REJECT DEFINITIONS */ +/************************************************************************/ +#define CONERR_UNSPECIFIED 0x70B0 +#define CONERR_INVAL_SERV 0x70B1 +#define CONERR_BAD_VALUE 0x70B2 + +/************************************************************************/ +/* OTHER ASN.1 ENCODE/DECODE ERROR DEFINITIONS */ +/************************************************************************/ +#define ASN1E_DECODE_OTHER 0x70C0 +#define ASN1E_ENCODE_OTHER 0x70C1 + +/************************************************************************/ +/* General variables and pointers used by the ASN1 system. */ +/************************************************************************/ + +#define ASN1_TAG_METHOD 0 /* decode by tag method */ +#define ASN1_CLASS_METHOD 1 /* decode by class method */ +#define ASN1_TABLE_METHOD 2 /* decode by table method */ +#define ASN1_ANYTAG_METHOD 3 /* decode by "anytag" method */ + /* same callback for any tag of any class*/ +#define CSTR_DONE_FUN ac->asn1r_c_done_fun[ac->asn1r_msg_level] + +/************************************************************************/ +/* This define is the maximum tag + length for a MMS-EASE encoded data */ +/* element (actually probably is 9), and is used in fin_constr and */ +/* fin_prim to prevent encode buffer overrun */ + +#define ASN1_MAX_ELEMENT_OVERHEAD 10 + +struct asn1_dec_ctxt; /* Forward reference */ +/************************************************************************/ +/************************************************************************/ +/* TAG METHOD STRUCTURES AND DEFINES */ + +#define ASN1R_TAG_VAL(class,code) (((ST_UINT16)(class) << 8) | (code)) + +typedef struct + { + ST_UINT16 _asn1r_tag; + ST_VOID (*_asn1r_tag_fun)(struct asn1_dec_ctxt *ac); + } ASN1R_TAG_PAIR; + +/* Decode users: Select the structure that has sufficient tag capacity */ +typedef struct {ST_INT num_tags; ASN1R_TAG_PAIR tags[1]; } ASN1R_TAG_CTRL_1; +typedef struct {ST_INT num_tags; ASN1R_TAG_PAIR tags[2]; } ASN1R_TAG_CTRL_2; +typedef struct {ST_INT num_tags; ASN1R_TAG_PAIR tags[3]; } ASN1R_TAG_CTRL_3; +typedef struct {ST_INT num_tags; ASN1R_TAG_PAIR tags[4]; } ASN1R_TAG_CTRL_4; +typedef struct {ST_INT num_tags; ASN1R_TAG_PAIR tags[5]; } ASN1R_TAG_CTRL_5; +typedef struct {ST_INT num_tags; ASN1R_TAG_PAIR tags[6]; } ASN1R_TAG_CTRL_6; +typedef struct {ST_INT num_tags; ASN1R_TAG_PAIR tags[7]; } ASN1R_TAG_CTRL_7; +typedef struct {ST_INT num_tags; ASN1R_TAG_PAIR tags[8]; } ASN1R_TAG_CTRL_8; +typedef struct {ST_INT num_tags; ASN1R_TAG_PAIR tags[9]; } ASN1R_TAG_CTRL_9; +typedef struct {ST_INT num_tags; ASN1R_TAG_PAIR tags[10];} ASN1R_TAG_CTRL_10; +typedef struct {ST_INT num_tags; ASN1R_TAG_PAIR tags[11];} ASN1R_TAG_CTRL_11; +typedef struct {ST_INT num_tags; ASN1R_TAG_PAIR tags[12];} ASN1R_TAG_CTRL_12; +typedef struct {ST_INT num_tags; ASN1R_TAG_PAIR tags[13];} ASN1R_TAG_CTRL_13; +typedef struct {ST_INT num_tags; ASN1R_TAG_PAIR tags[14];} ASN1R_TAG_CTRL_14; +typedef struct {ST_INT num_tags; ASN1R_TAG_PAIR tags[15];} ASN1R_TAG_CTRL_15; + + +/************************************************************************/ +/* ASN.1 Context */ +/* This data structure is used to store all ASN.1 encode/decode context */ +/* information. If an application provides thread safe storage for this */ +/* data structure the ASN.1 tools become thread safe. */ + +#define ASN1_MAX_USR_INFO 5 +#define MAX_TAG_FUN 16 + +typedef struct asn1_dec_ctxt + { +/****** User and Internal Use ******/ + +/* User State */ + ST_VOID *usr_info[ASN1_MAX_USR_INFO]; + +/* General variables and pointers */ + ST_BOOLEAN asn1r_decode_done; + ST_UCHAR *asn1r_field_ptr; + ST_UCHAR *asn1r_field_start; + ST_UCHAR *asn1r_done_ptr; + ST_UCHAR asn1r_constr_elmnt; + ST_UCHAR asn1r_elmnt_class; + ST_UINT16 asn1r_elmnt_id; + ST_INT asn1r_elmnt_len; + ST_INT asn1r_msg_level; + ST_BOOLEAN asn1r_indef_flag; /* flag for indef cstr */ + ST_RET asn1r_pdu_dec_err; + ST_INT asn1r_decode_method; + ST_INT asn1r_save_method; + ST_INT asn1r_max_bits; + ST_INT asn1r_bitcount; + ST_BOOLEAN asn1r_bitstr_truncated; /* SD_TRUE if bitstr truncated */ + /* while decoding. */ + ST_INT asn1r_octetcount; + +/* For ASN1 decode table mode */ + ST_VOID *asn1r_tag_table; + +/* Function pointers used by decoder users */ + ST_VOID (*asn1r_decode_done_fun)(struct asn1_dec_ctxt *ac); + ST_VOID (*asn1r_err_fun)(struct asn1_dec_ctxt *ac, ST_RET err_code); + ST_VOID (*asn1r_c_done_fun[ASN1_MAX_LEVEL])(struct asn1_dec_ctxt *ac); + ST_VOID (*asn1r_u_id_fun)(struct asn1_dec_ctxt *ac, ST_UINT16 id); + ST_VOID (*asn1r_a_id_fun)(struct asn1_dec_ctxt *ac, ST_UINT16 id); + ST_VOID (*asn1r_c_id_fun)(struct asn1_dec_ctxt *ac, ST_UINT16 id); + ST_VOID (*asn1r_p_id_fun)(struct asn1_dec_ctxt *ac, ST_UINT16 id); + /* asn1r_anytag_fun called for ANY tag of ANY class if */ + /* asn1r_decode_method==ASN1_ANYTAG_METHOD. */ + /* "id" argument has bits set to indicate class and/or constructor. */ + ST_VOID (*asn1r_anytag_fun)(struct asn1_dec_ctxt *ac, ST_UINT16 id); + +/****** Internal Use Only ******/ +/* Decode variables */ + ST_INT _asn1_maxoctets; + ST_UCHAR *_asn1_octetptr; + + ST_UCHAR *_ad_bitptr; + +/* Function pointers used internally by the ASN.1 tools */ + ST_VOID (*_asn1r_cstr_done_save)(struct asn1_dec_ctxt *ac); + ST_VOID (*_asn1r_fun_save)(struct asn1_dec_ctxt *ac); + + ST_INT _asn1r_ntag; + ST_UINT16 _asn1r_valid_tags[MAX_TAG_FUN]; + ST_VOID (*_asn1r_tag_fun[MAX_TAG_FUN])(struct asn1_dec_ctxt *ac); + ST_INT _asn1r_old_ntag; + + ST_BOOLEAN _asn1_indef_track[ASN1_MAX_LEVEL]; + ST_UCHAR *_asn1_constr_start[ASN1_MAX_LEVEL]; + ST_INT _asn1_byte_count[ASN1_MAX_LEVEL]; + + ST_INT _ad_parse_method_save; + ST_VOID (*_ad_parse_asn1r_fun_save)(struct asn1_dec_ctxt *ac); + + ST_UCHAR *_contents_done; /* will be here when done parsing cstr contents */ + ST_UCHAR *_parse_begin_ptr; /* pointer to beginning of element being skipped*/ + + ST_UCHAR *asn1r_msg_start; /* ptr to beginning of ASN.1 message */ + /* used to calc offset within message */ + /* set by asn1r_decode_init */ + /* used by asn1r_get_tag */ + } ASN1_DEC_CTXT; + +typedef struct asn1_enc_ctxt + { +/* General variables and pointers */ + ST_UCHAR *asn1r_field_ptr; + ST_UCHAR *asn1r_field_end; + ST_INT asn1r_msg_level; + ST_UCHAR *asn1r_buf_start; /* ptr to first byte of buffer */ + ST_UCHAR *asn1r_buf_end; /* ptr to last byte of buffer */ + ST_BOOLEAN asn1r_encode_overrun; + ST_UINT16 asn1r_magic; /* Use to verify asn1r_strt.. was called*/ + ST_UCHAR *asn1r_constr_end[ASN1_MAX_LEVEL]; + } ASN1_ENC_CTXT; + +/* Set "asn1r_magic" in ASN1_ENC_CTXT to this value in "asn1r_strt_asn1_bld".*/ +/* Check later to be sure asn1r_strt_asn1_bld was called. */ +#define ASN1_ENC_MAGIC_NUMBER 0xABCD +/************************************************************************/ + +ASN1_DEC_CTXT *asn1r_get_ctxt (ST_VOID); + +ST_VOID asn1r_decode_asn1 (ASN1_DEC_CTXT *ac, ST_UCHAR *ptr, ST_INT len); +ST_VOID asn1r_decode_asn1_seq (ASN1_DEC_CTXT *ac, ST_UCHAR *ptr, ST_INT len); +ST_VOID asn1r_set_dec_err (ASN1_DEC_CTXT *ac, ST_RET err_code); +ST_VOID asn1r_done_err (ASN1_DEC_CTXT *ac); +ST_VOID asn1r_cstr_done_err (ASN1_DEC_CTXT *ac); +ST_VOID asn1r_set_all_cstr_done (ASN1_DEC_CTXT *ac); + + +ST_VOID asn1r_class_err (ASN1_DEC_CTXT *ac, ST_UINT16 id); +ST_VOID asn1r_chk_getcstr_done (ASN1_DEC_CTXT *ac); + +#if !defined(ASN1R_FAST_TAG_ADD) + +#define ASN1R_TAG_ADD(ac, class, code, fcn_ptr)\ + asn1r_tag_add (ac, (ST_UINT16)(((ST_UINT16)(class) << 8) | (code)), (fcn_ptr)) + +#else + +#define ASN1R_TAG_ADD(ac, class, code, fcn_ptr)\ + {\ + ac->_asn1r_valid_tags[ac->_asn1r_ntag] = \ + (((ST_UINT16)(class) << 8) | (code));\ + ac->_asn1r_tag_fun[ac->_asn1r_ntag] = (ST_VOID (*)(ASN1_DEC_CTXT *)) fcn_ptr;\ + ac->_asn1r_ntag++;\ + } +#endif + + +#define ASN1R_TAG_DEL(ac, class, code)\ + asn1r_tag_del (ac, (((ST_UINT16)(class) << 8) | (code))) + +ST_VOID asn1r_tag_add (ASN1_DEC_CTXT *ac, ST_UINT16 tag_class, + ST_VOID (*fcn_ptr)(ASN1_DEC_CTXT *ac)); + +ST_VOID asn1r_tag_del (ASN1_DEC_CTXT *ac, ST_UINT16 tag); +ST_VOID asn1r_tag_restore (ASN1_DEC_CTXT *ac); +ST_RET asn1_peek (ASN1_DEC_CTXT *ac, ST_UCHAR *ptr, ST_INT len); + +ST_VOID asn1r_strt_asn1_bld (ASN1_ENC_CTXT *ac, ST_UCHAR *bufptr, ST_INT buflen); +ST_VOID asn1r_fin_prim (ASN1_ENC_CTXT *ac, ST_UINT16 id_code, ST_UINT16 tag); +ST_VOID asn1r_fin_constr (ASN1_ENC_CTXT *ac, ST_UINT16 id_code, ST_UINT16 el_tag, ST_BOOLEAN indef); +ST_VOID asn1r_strt_constr (ASN1_ENC_CTXT *ac); +ST_VOID asn1r_strt_constr_indef (ASN1_ENC_CTXT *ac); /* start indef len constr*/ + +ST_VOID asn1r_wr_u8 (ASN1_ENC_CTXT *ac, ST_UINT8 data); +ST_VOID asn1r_wr_u16 (ASN1_ENC_CTXT *ac, ST_UINT16 data); +ST_VOID asn1r_wr_u32 (ASN1_ENC_CTXT *ac, ST_UINT32 data); +ST_VOID asn1r_wr_i8 (ASN1_ENC_CTXT *ac, ST_INT8 data); +ST_VOID asn1r_wr_bool (ASN1_ENC_CTXT *ac, ST_BOOLEAN data); +ST_VOID asn1r_wr_i16 (ASN1_ENC_CTXT *ac, ST_INT16 data); +ST_VOID asn1r_wr_i32 (ASN1_ENC_CTXT *ac, ST_INT32 data); +ST_VOID asn1r_wr_vstr (ASN1_ENC_CTXT *ac, const ST_CHAR *data); +ST_VOID asn1r_wr_delmnt (ASN1_ENC_CTXT *ac, ST_UCHAR *bufptr, ST_INT buflen); +ST_VOID asn1r_wr_btod (ASN1_ENC_CTXT *ac, MMS_BTOD *data); +ST_VOID asn1r_wr_time (ASN1_ENC_CTXT *ac, time_t data); +ST_VOID asn1r_wr_objid (ASN1_ENC_CTXT *ac, ST_INT16 *data, ST_INT num_el); +ST_VOID asn1r_wr_bitstr (ASN1_ENC_CTXT *ac, ST_UCHAR *bitptr, ST_INT numbits); +ST_VOID asn1r_wr_octstr (ASN1_ENC_CTXT *ac, const ST_UCHAR *octptr, ST_INT numoctets); +ST_VOID asn1r_wr_float (ASN1_ENC_CTXT *ac, ST_FLOAT data); +ST_VOID asn1r_wr_double (ASN1_ENC_CTXT *ac, ST_DOUBLE data); +ST_VOID asn1r_wr_utc_time (ASN1_ENC_CTXT *ac, MMS_UTC_TIME *data); +ST_RET asn1r_wr_utf8 (ASN1_ENC_CTXT *ac, ST_CHAR *data, ST_INT el_len); + +ST_RET asn1r_get_identifier (ASN1_DEC_CTXT *ac, ST_CHAR *dest); +ST_RET asn1r_get_objid (ASN1_DEC_CTXT *ac, ST_INT16 component_list[], ST_INT *num_components); +ST_RET asn1r_get_bool (ASN1_DEC_CTXT *ac, ST_BOOLEAN *dest); +ST_VOID asn1r_get_strn (ASN1_DEC_CTXT *ac, ST_CHAR *dest); +ST_RET asn1r_get_nstr (ASN1_DEC_CTXT *ac, ST_CHAR *dest); +ST_RET asn1r_get_pstr (ASN1_DEC_CTXT *ac, ST_CHAR *dest); +ST_RET asn1r_get_vstr (ASN1_DEC_CTXT *ac, ST_CHAR *dest); +ST_RET asn1r_get_vstr_maxlen (ASN1_DEC_CTXT *aCtx, ST_CHAR *ptr, ST_INT max_len); +ST_RET asn1r_get_i8 (ASN1_DEC_CTXT *ac, ST_INT8 *dest); +ST_RET asn1r_get_i16 (ASN1_DEC_CTXT *ac, ST_INT16 *dest); +ST_RET asn1r_get_i32 (ASN1_DEC_CTXT *ac, ST_INT32 *dest); +ST_RET asn1r_get_u8 (ASN1_DEC_CTXT *ac, ST_UCHAR *dest); +ST_RET asn1r_get_u16 (ASN1_DEC_CTXT *ac, ST_UINT16 *dest); +ST_RET asn1r_get_u32 (ASN1_DEC_CTXT *ac, ST_UINT32 *dest); +ST_RET asn1r_get_btod (ASN1_DEC_CTXT *ac, MMS_BTOD *dest); +ST_RET asn1r_get_time (ASN1_DEC_CTXT *ac, time_t *dest); +ST_RET asn1r_get_bitstr (ASN1_DEC_CTXT *ac, ST_UCHAR *dest, ST_INT max_bits); +ST_VOID asn1r_get_bitstr_cstr (ASN1_DEC_CTXT *ac, ST_INT bits, ST_UCHAR *ptr); +ST_RET asn1r_get_octstr (ASN1_DEC_CTXT *ac, ST_UCHAR *dest); +ST_RET asn1r_get_octstr_fixlen (ASN1_DEC_CTXT *aCtx, ST_UCHAR *ptr, ST_INT len); +ST_RET asn1r_get_octstr_varlen (ASN1_DEC_CTXT *aCtx, ST_UCHAR *ptr, ST_INT maxlen, ST_INT *lenout); +ST_VOID asn1r_get_octstr_cstr (ASN1_DEC_CTXT *ac, ST_INT numoctets, ST_UCHAR *octptr); +ST_VOID asn1r_get_delmnt (ASN1_DEC_CTXT *ac, ST_INT buflen, ST_UCHAR *bufptr, + ST_VOID (*done_fun)(ASN1_DEC_CTXT *ac)); +ST_RET asn1r_get_float (ASN1_DEC_CTXT *ac, ST_FLOAT *dest); +ST_RET asn1r_get_double (ASN1_DEC_CTXT *ac, ST_DOUBLE *dest); +ST_RET asn1r_get_utc_time (ASN1_DEC_CTXT *ac, MMS_UTC_TIME *dest); +ST_RET asn1r_get_utf8 (ASN1_DEC_CTXT *ac, ST_CHAR *ptr, ST_INT el_len); + +#ifdef INT64_SUPPORT +ST_VOID asn1r_wr_i64 (ASN1_ENC_CTXT *ac, ST_INT64 data); +ST_VOID asn1r_wr_u64 (ASN1_ENC_CTXT *ac, ST_UINT64 data); +ST_RET asn1r_get_i64 (ASN1_DEC_CTXT *ac, ST_INT64 *dest); +ST_RET asn1r_get_u64 (ASN1_DEC_CTXT *ac, ST_UINT64 *dest); +#endif /* INT64_SUPPORT */ + +ST_VOID asn1r_parse_next (ASN1_DEC_CTXT *ac, ST_VOID (*done_fun)(ASN1_DEC_CTXT *ac)); +ST_VOID asn1r_parse_cstr_contents (ASN1_DEC_CTXT *ac, ST_VOID (*done_fun)(ASN1_DEC_CTXT *ac)); + +ST_RET asn1r_skip_elmnt (ASN1_DEC_CTXT *aCtx); + +/* Functions for simplified decode scheme (no function pointers). */ +ST_RET asn1r_decode_init (ASN1_DEC_CTXT *ac, + ST_UCHAR *ptr, /* ASN.1 message to decode */ + ST_INT len); /* length of ASN.1 message */ +ST_RET asn1r_get_tag (ASN1_DEC_CTXT *ac, + ST_UINT16 *tag_out); /* out: decoded tag */ + +/************************************************************************/ +/* These macros simplify access to members of the ASN1_ENC_CTXT struct. */ +/************************************************************************/ +/* This macro returns a pointer to the start of the ASN.1 encoded data. */ +#define ASN1_ENC_PTR(aCtx) ((aCtx)->asn1r_field_ptr+1) +/* This macro returns the length (in bytes) of the ASN.1 encoded data. */ +#define ASN1_ENC_LEN(aCtx) ((aCtx)->asn1r_buf_end - (aCtx)->asn1r_field_ptr) + +/* This macro returns a pointer to the start of the ASN.1 DECODED data. */ +#define ASN1_DEC_PTR(aCtx) ((aCtx)->asn1r_field_ptr) +/* This macro returns the length (in bytes) of the ASN.1 DECODED data. */ +#define ASN1_DEC_LEN(aCtx) ((aCtx)->asn1r_elmnt_len) + +/************************************************************************/ +/* OBJECT IDENTIFIER */ +/************************************************************************/ + +#define MAX_OBJID_COMPONENTS 16 + +struct mms_obj_id + { + ST_INT num_comps; /* number of objid components */ + ST_INT16 comps[MAX_OBJID_COMPONENTS]; /* identifier components */ + SD_END_STRUCT + }; +typedef struct mms_obj_id MMS_OBJ_ID; +ST_BOOLEAN asn1_objidcmp (MMS_OBJ_ID *obj1, MMS_OBJ_ID *obj2); + +/************************************************************************/ +/* Application Reference data structure */ +/************************************************************************/ + +#define APP_REF_FORM1 0 +#define APP_REF_FORM2 1 + +struct form1 + { + ST_UCHAR *ptr; /* ptr to something */ + ST_INT16 len; /* length of contents at ptr */ + }; +typedef struct form1 FORM1_T; + +struct app_ref + { + ST_INT16 form; /* tells if form 1 or form 2 */ + ST_BOOLEAN ap_title_pres; /* tells if AP title is there */ + union /* AP title differs in form */ + { + FORM1_T form_1; /* form 1 of AP title is ASN.1 */ + MMS_OBJ_ID form_2; /* form 2 of AP title is objectid*/ + } ap_title; + ST_BOOLEAN ap_invoke_pres; /* tells if AP invoke is there */ + ST_INT32 ap_invoke; + ST_BOOLEAN ae_qual_pres; /* tells if AE qualifier is there*/ + union /* AE qualifier differs in form */ + { + FORM1_T form_1; /* form 1 of AE qual is ASN.1 */ + ST_INT32 form_2; /* form 2 if AE qual is long word*/ + } ae_qual; + ST_BOOLEAN ae_invoke_pres; /* tells if AE invoke is there */ + ST_INT32 ae_invoke; + }; +typedef struct app_ref APP_REF; + +/************************************************************************/ +/* Miscellaneous functions/macros. */ +/************************************************************************/ +/* Functions to copy bitstrings and "variable length bitstrings". */ +ST_VOID bstrcpy (ST_UCHAR *dstptr, ST_UCHAR *srcptr, ST_INT numbits); +ST_VOID bvstrcpy (MMS_BVSTRING *dstptr, MMS_BVSTRING *srcptr); +ST_INT bstrcmp (ST_UCHAR *dstptr, ST_UCHAR *srcptr, ST_INT numbits); + +/* Macros to access each individual bit of any bitstring. */ +#define BSTR_BIT_SET_ON(ptr,bitnum) \ + ( ((ST_UINT8 *)(ptr))[(bitnum)/8] |= (0x80>>((bitnum)&7)) ) +#define BSTR_BIT_SET_OFF(ptr,bitnum) \ + ( ((ST_UINT8 *)(ptr))[(bitnum)/8] &= ~(0x80>>((bitnum)&7)) ) + +/* BSTR_BIT_GET returns 0 if bit is clear, 1 if bit is set. */ +#define BSTR_BIT_GET(ptr,bitnum) \ + (( ((ST_UINT8 *)(ptr))[(bitnum)/8] & (0x80>>((bitnum)&7)) ) ? 1:0) + +#define BSTR_BIT_SET_TRUE BSTR_BIT_SET_ON +#define BSTR_BIT_SET_FALSE BSTR_BIT_SET_OFF + +/* Calculate number of bytes needed to contain number of bits. */ +#define BSTR_NUMBITS_TO_NUMBYTES(numbits) (((numbits)+7)/8) + +/* Functions for conversion from ASN.1 UTF8string to local format. */ +/* Must be ported to each platform. */ +ST_INT asn1r_utf8_to_local (ST_CHAR *dst, ST_INT dst_len, ST_CHAR *src, ST_INT src_len); +ST_INT asn1r_local_to_utf8 (ST_CHAR *dst, ST_INT dst_len, ST_CHAR *src); +#ifdef __cplusplus +} +#endif + +/************************************************************************/ +#endif /* File not already included */ +/************************************************************************/ + diff --git a/include/inc/cfg_util.h b/include/inc/cfg_util.h new file mode 100644 index 0000000..fa005e8 --- /dev/null +++ b/include/inc/cfg_util.h @@ -0,0 +1,112 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1991-2005 All Rights Reserved */ +/* */ +/* MODULE NAME : cfg_util.h */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 02/31/05 EJV 05 Chg MAX_NUM_KEYWORDS from 100 to 200. */ +/* 10/08/98 MDE 04 Migrated to updated SLOG interface */ +/* 08/06/98 JRB 03 Added cfg_get_octet_string function. */ +/* 12/04/97 KCR 02 Added cfg_goto_keyword function */ +/* 08/14/97 RKR 01 Format changes */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef CFG_UTIL_INCLUDED +#define CFG_UTIL_INCLUDED + +#include "slog.h" + +#ifdef __cplusplus +extern "C" { +#endif + +/************************************************************************/ + +#define MAX_RVAL_LEN 256 +#define MAX_NUM_KEYWORDS 200 /* just to prevent runaway */ + +/* Keyword table element */ +struct cfg_kw_el + { + ST_CHAR *name; /* string to match on */ + ST_VOID (*extract)(ST_VOID); /* function to call to extract */ + ST_RET (*valid)(ST_VOID); /* call to check if ok to call */ + }; +typedef struct cfg_kw_el CFG_KW_EL; + +/************************************************************************/ +/* Externally visible variables */ + +extern ST_BOOLEAN config_stop; /* Set SD_TRUE to terminate */ +extern ST_RET config_err; /* Set to non-zero for error */ +extern ST_BOOLEAN config_eof; /* Set to SD_SUCCESS when eof is ok */ + +extern ST_CHAR *cfg_line_buf; /* file line read buffer */ +extern ST_INT cfg_curr_line; /* Current line number */ +extern ST_INT cfg_line_offset; /* Offset into cfg_line_buf */ +extern ST_CHAR *cfg_special_char_str; /* Special ravl chars */ +extern ST_CHAR *cfg_end_of_rval_str; /* 'End of rval' chars */ + +/************************************************************************/ +/* Internal CFG_UTIL error codes */ + +#define CFG_CONVERT_ERR 0x8000 +#define CFG_GET_RVAL_ERR 0x8001 +#define CFG_UTIL_ERR 0x8002 + +/************************************************************************/ +/* Externally visible functions */ + +ST_RET cfg_process_file (ST_CHAR *fileName, CFG_KW_EL *root_kw_tbl); +ST_RET cfg_tbl_push (CFG_KW_EL *); +ST_RET cfg_tbl_pop (ST_INT); +ST_CHAR *cfg_get_alloc_string (ST_VOID); +ST_CHAR *cfg_get_string_ptr (ST_VOID); +ST_RET cfg_get_short (ST_INT16 *int_ptr); +ST_RET cfg_get_ushort (ST_UINT16 *int_ptr); +ST_RET cfg_get_int (ST_INT *int_ptr); +ST_RET cfg_get_uint (ST_UINT *int_ptr); +ST_RET cfg_get_long (ST_LONG *int_ptr); +ST_RET cfg_get_ulong (ST_ULONG *int_ptr); +ST_RET cfg_get_hex_ushort (ST_UINT16 *int_ptr); +ST_RET cfg_get_hex_uint (ST_UINT *int_ptr); +ST_RET cfg_get_hex_ulong (ST_ULONG *out_ptr); +ST_RET cfg_get_value (ST_CHAR *format_string, ST_VOID *out_ptr); +ST_VOID cfg_set_config_err(ST_VOID); +ST_VOID cfg_set_endfile_ok(ST_VOID); +ST_RET cfg_get_double (ST_DOUBLE *out_ptr); +ST_RET cfg_goto_keyword (ST_CHAR *keyword); +ST_RET cfg_get_octet_string (ST_UCHAR *ostr, /* ptr to user's ostr */ + ST_UINT *len_out_ptr, /* addr of len var to be set */ + ST_UINT len_max); /* maximum len to allow. */ + +/************************************************************************/ +/* CFG_UTIL logging control */ + +#define CFG_LOG_ERR 0x0001 +#define CFG_LOG_FLOW 0x0002 +extern ST_UINT cfg_log_mask; + +/* For compatibility with older code only */ +#define cfg_sLogCtrl sLogCtrl + +/************************************************************************/ + +#ifdef __cplusplus +} + +#endif + +#endif diff --git a/include/inc/cfglog.h b/include/inc/cfglog.h new file mode 100644 index 0000000..f837414 --- /dev/null +++ b/include/inc/cfglog.h @@ -0,0 +1,101 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1991-1997 All Rights Reserved */ +/* */ +/* MODULE NAME : cfglog.h */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 09/13/99 MDE 02 Added SD_CONST modifiers */ +/* 10/08/98 MDE 01 Migrated to updated SLOG interface */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef CFGLOG_INCLUDED +#define CFGLOG_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +/************************************************************************/ +/************************************************************************/ + +extern SD_CONST ST_CHAR *SD_CONST _cfg_err_logstr; +extern SD_CONST ST_CHAR *SD_CONST _cfg_flow_logstr; + +/************************************************************************/ + +#ifdef DEBUG_SISCO + +#define CFG_LOG_ERR0(a) {\ + if (cfg_log_mask & CFG_LOG_ERR)\ + _slog (sLogCtrl,_cfg_err_logstr,\ + thisFileName,__LINE__,a);\ + } +#define CFG_LOG_ERR1(a,b) {\ + if (cfg_log_mask & CFG_LOG_ERR)\ + _slog (sLogCtrl,_cfg_err_logstr,\ + thisFileName,__LINE__,a,b);\ + } +#define CFG_LOG_ERR2(a,b,c) {\ + if (cfg_log_mask & CFG_LOG_ERR)\ + _slog (sLogCtrl,_cfg_err_logstr,\ + thisFileName,__LINE__,a,b,c);\ + } +#define CFG_LOG_ERR3(a,b,c,d) {\ + if (cfg_log_mask & CFG_LOG_ERR)\ + _slog (sLogCtrl,_cfg_err_logstr,\ + thisFileName,__LINE__,a,b,c,d);\ + } + + +#define CFG_LOG_FLOW0(a) {\ + if (cfg_log_mask & CFG_LOG_FLOW)\ + _slog (sLogCtrl,_cfg_flow_logstr,\ + thisFileName,__LINE__,a);\ + } +#define CFG_LOG_FLOW1(a,b) {\ + if (cfg_log_mask & CFG_LOG_FLOW)\ + _slog (sLogCtrl,_cfg_flow_logstr,\ + thisFileName,__LINE__,a,b);\ + } +#define CFG_LOG_CFLOW0(a) {\ + if (cfg_log_mask & CFG_LOG_FLOW)\ + _slogc (sLogCtrl,a);\ + } +#define CFG_LOG_CFLOW1(a,b) {\ + if (cfg_log_mask & CFG_LOG_FLOW)\ + _slogc (sLogCtrl,a,b);\ + } + +#else /* no DEBUG */ + +#define CFG_LOG_ERR0(a) +#define CFG_LOG_ERR1(a,b) +#define CFG_LOG_ERR2(a,b,c) +#define CFG_LOG_ERR3(a,b,c,d) +#define CFG_LOG_FLOW0(a) +#define CFG_LOG_FLOW1(a,b) +#define CFG_LOG_CFLOW0(a) +#define CFG_LOG_CFLOW1(a,b) + +#endif + + + +#ifdef __cplusplus +} +#endif + + +#endif diff --git a/include/inc/checksum.h b/include/inc/checksum.h new file mode 100644 index 0000000..b1ceeff --- /dev/null +++ b/include/inc/checksum.h @@ -0,0 +1,46 @@ +#ifndef CHECKSUM_INCLUDED +#define CHECKSUM_INCLUDED +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1996, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : checksum.h */ +/* PRODUCT(S) : Lean-T Stack */ +/* */ +/* MODULE DESCRIPTION : */ +/* This header file contain functionprototypes for */ +/* implemented computation and verification of checksum */ +/* using the algorithm defined in Annex B of the ISO 8073 */ +/* or in the ISO 8473. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* checksum_insert */ +/* checksum_verified */ +/* */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 06/19/96 EJV 01 Created */ +/************************************************************************/ +#ifdef __cplusplus +extern "C" { +#endif + + +ST_VOID checksum_insert (ST_UCHAR *buf, ST_UINT16 buf_len, ST_UINT16 position); +ST_BOOLEAN checksum_verified (ST_UCHAR *buf, ST_UINT16 buf_len, ST_UINT16 position, ST_BOOLEAN clnp_csum); + + + +#ifdef __cplusplus +} +#endif + +#endif /* end of 'already included' */ diff --git a/include/inc/clnp.h b/include/inc/clnp.h new file mode 100644 index 0000000..2be27e6 --- /dev/null +++ b/include/inc/clnp.h @@ -0,0 +1,259 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1996, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : clnp.h */ +/* PRODUCT(S) : Lean-T Stack */ +/* */ +/* MODULE DESCRIPTION : */ +/* This header file specifies internal defines and function*/ +/* prototypes for implementation of Connectionless-mode */ +/* Network Protocol (CLNP). */ +/* Note that the CLNP is implemented as non-segmenting */ +/* subset of the full protocol. */ +/* */ +/* For information see the: */ +/* ISO 8473 "Information processing systems - Data communication - */ +/* Protocol providing the connectionless-mode network service"; */ +/* ISO 8348 "Information processing systems - Data communication - */ +/* Network service definition. Addendum 1: Connectionless-mode */ +/* transmission". */ +/* ISO 9542 "Information processing systems - Telecommunications */ +/* and information exchange beetween systems - End system to */ +/* Intermediate system routing exchange protocol for use with */ +/* ISO 8473. */ +/* */ +/* GLOBAL STRUCTURES DEFINED IN THIS MODULE : */ +/* */ +/* CLNP_8473_FHDR struct */ +/* CLNP_9542_FHDR struct */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 07/19/96 EJV 02 Moved CLNP_DEF_LEN_HDR from clnp_usr.h and */ +/* deleted clnpl_all_es_mac */ +/* 05/24/96 EJV 01 Created */ +/************************************************************************/ + +#ifndef CLNP_INCLUDED +#define CLNP_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + + + +/************************************************************************/ +/* Defines and structures below are specific to the ISO 8473 standard */ +/* (DT and ER PDUs for CLNP). */ +/************************************************************************/ + + +/* ISO 8473 protocol id and version */ +#define CLNP_8473_PROT_ID (ST_UCHAR) 0x81 +#define CLNP_8473_PROT_VER (ST_UCHAR) 0x01 + +/* PDU type and flags (they are already in proper bit position) */ +#define CLNP_8473_TYPE_ER (ST_UCHAR) 0x01 +#define CLNP_8473_TYPE_DT (ST_UCHAR) 0x1C + +#define CLNP_SEG_NOT_PERMITTED (ST_UCHAR) 0x00 +#define CLNP_SEG_PERMITTED (ST_UCHAR) 0x80 + /* bit 8 ON */ + +#define CLNP_LAST_SEG (ST_UCHAR) 0x00 +#define CLNP_MORE_SEG (ST_UCHAR) 0x40 + /* bit 7 ON */ + +#define CLNP_ERR_REP_NOT_GEN (ST_UCHAR) 0x00 +#define CLNP_ERR_REP_GENERATE (ST_UCHAR) 0x20 + /* bit 6 ON */ + +#define CLNP_MASK_FLAGS (ST_UCHAR) 0x1F /* mask bit 6,7,8 */ + + + +/*----------------------------------------------------------------------*/ +/* CLNP_8473_FHDR struct */ +/*----------------------------------------------------------------------*/ +/* Structure below define the fixed part in the ISO 8473 PDU header. */ +/* The rest of the header has variable length. */ + +/* NOTE: ! only ST_UCHAR type should be in protocol structs to avoid */ +/* ! packing or problems with sizeof operator. */ + +typedef struct + { + ST_UCHAR protocol_id; /* Network Layer Protocol Identifier */ + ST_UCHAR hdr_len; /* Header length */ + ST_UCHAR protocol_ver; /* Version of the protocol */ + ST_UCHAR pdu_lifetime; /* Remaining lifetime for PDU */ + ST_UCHAR type_flags; /* PDU type & flags */ + ST_UCHAR seg_len[2]; /* Segment length (hdr+data len)swapped */ + ST_UCHAR checksum [2]; /* Checksum of the PDU header */ + }CLNP_8473_FHDR; + +#define CLNP_8473_FHDR_LEN sizeof (CLNP_8473_FHDR) + + +/* structure below defines the Segmenting part in a DT PDU header */ +typedef struct + { + ST_UCHAR pdu_id [2]; /* Data Unit Identiefier */ + ST_UCHAR pdu_offset [2]; /* Offset of the segment in original PDU*/ + ST_UCHAR pdu_total_len [2]; /* Total len of original PDU */ + }CLNP_8473_HDR_SEG; + +#define CLNP_8473_HDR_SEG_LEN sizeof (CLNP_8473_HDR_SEG) + + +#define CLNP_DEF_LEN_HDR (ST_UCHAR) (CLNP_8473_FHDR_LEN+2*(CLNP_MAX_LEN_NSAP+1)) + /* this implementaion assumes */ + /* following parts to be present*/ + /* in header: */ + /* fixedPart +destNSAP +srcNSAP */ + /* (no seg, no options parts); */ + /* 51 bytes or less */ + + +/************************************************************************/ +/* Defines and structures below are specific to the ISO 9542 standard */ +/* (ES-IS HELLOs for CLNP). */ +/************************************************************************/ + + +/* ISO 8473 protocol id and version */ +#define CLNP_9542_PROT_ID (ST_UCHAR) 0x82 +#define CLNP_9542_PROT_VER (ST_UCHAR) 0x01 + +/* PDU type */ +#define CLNP_9542_TYPE_ESH (ST_UCHAR) 0x02 +#define CLNP_9542_TYPE_ISH (ST_UCHAR) 0x04 +#define CLNP_9542_TYPE_RD (ST_UCHAR) 0x06 + + + +/*----------------------------------------------------------------------*/ +/* CLNP_9542_FHDR struct */ +/*----------------------------------------------------------------------*/ +/* Structure below defines the fixed part in the ISO 9542 PDU header. */ +/* The rest of the header has variable length. */ +/* Note that the ISO 9542 (ES HELLO and IS HELLO PDUs) do not contain */ +/* PDU data part. */ + +/* NOTE: ! only ST_UCHAR type should be in protocol structs to avoid */ +/* ! packing or problems with sizeof operator. */ + +typedef struct + { + ST_UCHAR protocol_id; /* Network Layer Protocol Identifier */ + ST_UCHAR hdr_len; /* Header length */ + ST_UCHAR protocol_ver; /* Version of the protocol */ + ST_UCHAR rfu; /* Reserved for future use */ + ST_UCHAR type; /* PDU type, bits 6,7,8 are always 0 */ + ST_UCHAR holding_time[2];/* max time to retain received info */ + ST_UCHAR checksum [2]; /* Checksum of the PDU header */ + }CLNP_9542_FHDR; + +#define CLNP_9542_FHDR_LEN sizeof (CLNP_9542_FHDR) + + + +/************************************************************************/ +/* Internal CLNP function prototypes */ +/************************************************************************/ + +/* clnp_enc.c module */ + +ST_RET clnpl_encode_dt (SN_UNITDATA *sn_req, N_UNITDATA *req); +ST_RET clnpl_encode_esh (ST_UCHAR *enc_buf, ST_UINT16 *enc_len); + + +/* clnp_dec.c module */ + +ST_RET clnpl_decode (SN_UNITDATA *sn_req, N_UNITDATA **req); +ST_VOID clnpl_log_npdu (ST_UCHAR *pdu_buf, ST_UCHAR npdu_type, ST_CHAR *enc_dec_str); + +/* clnp_esh.c module */ + +ST_RET clnpl_init_esh (ST_UINT16 delay_time); +ST_VOID clnpl_check_cfg_timer (ST_VOID); +ST_RET clnpl_send_esh (ST_UCHAR *rem_mac); + + +#if 0 +/* struct below may be needed to implement in the future the ISO 8473 */ +/* header options */ +/*----------------------------------------------------------------------*/ +/* CLNP_OPTIONS struct */ +/*----------------------------------------------------------------------*/ +/* Structure below specifies the options to be used for the PDU. */ +/* The options by default are all turned off at the start-up */ +/* time. In future some functions may be provided to set up the options */ +/* or the structure will be exposed to the CLNP-user for setting the */ +/* parameters. */ +/* NOTE: currently none of the option are implemented. */ + +/* Options for padding_flag */ +#define CLNP_OPT_PAD_NONE 0 /* no header padding */ +#define CLNP_OPT_PAD_TO_SIZE 1 /* pad header to specified size */ +#define CLNP_OPT_PAD_TO_BOUDARY 2 /* pad header so that data */ + /* starts on specified boundary */ +/* Options for security_flag */ +#define CLNP_OPT_SEC_NONE 0 /* no security level specified */ +#define CLNP_OPT_SEC_SRC 1 /* sec. Source Address specific */ +#define CLNP_OPT_SEC_DEST 2 /* sec. Dest Address specific */ +#define CLNP_OPT_SEC_UNIQUE 3 /* security Globally Unique */ + +/* Options for routeing_flag */ +#define CLNP_OPT_ROUTE_NONE 0 /* no routeing specified */ +#define CLNP_OPT_ROUTE_PART 1 /* partial routeing requested */ +#define CLNP_OPT_ROUTE_COMP 2 /* complete routeing requested */ + +/* Options for record_route_flag */ +#define CLNP_OPT_REC_ROUTE_NONE 0 /* no route recording */ +#define CLNP_OPT_REC_ROUTE_PART 1 /* partial route recording */ +#define CLNP_OPT_RCE_ROUTE_COMP 2 /* complete route recording */ + +/* Options for qos_flag (Quality of Service - QoS) */ +#define CLNP_OPT_QoS_NONE 0 /* no QoS specified */ +#define CLNP_OPT_QoS_SRC 1 /* QoS Source Address specific */ +#define CLNP_OPT_QoS_DEST 2 /* QoS Dest Address specific */ +#define CLNP_OPT_QoS_UNIQUE 3 /* QoS Globally Unique */ + +/* Options for priority_flag (use values from 1 to 14 to specified */ +/* priority parameter for the DT PDU. */ +#define CLNP_OPT_PRIORITY_DEF 0 /* default priority */ +#define CLNP_OPT_PRIORITY_MAX 14 /* max priority */ + +typedef struct + { + ST_UCHAR padding_flag; + ST_UCHAR security_flag; + ST_UCHAR routeing_flag; + ST_UCHAR record_route_flag; + ST_UCHAR qos_flag; + ST_UCHAR priority_flag; + }CLNP_OPTIONS; + +extern CLNP_OPTIONS clnpl_options; +#endif + +#ifdef __cplusplus +} +#endif + +#endif /* end of 'already included' */ + + + + diff --git a/include/inc/clnp_llc.h b/include/inc/clnp_llc.h new file mode 100644 index 0000000..cecd0ee --- /dev/null +++ b/include/inc/clnp_llc.h @@ -0,0 +1,66 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1996-2002, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : clnp_llc.h */ +/* PRODUCT(S) : Lean-T Stack */ +/* */ +/* MODULE DESCRIPTION : */ +/* This header file contains defines for the encoding and */ +/* decoding of Logical Link Control (LLC) which is */ +/* implemented with the CLNP layer. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 08/12/04 JRB 04 Del LLC_LSAP_IEC_GOOSE 0xF5 (obsolete now). */ +/* 01/10/02 JRB 03 Add LLC_LSAP_IEC_GOOSE. */ +/* 09/09/97 EJV 02 Added support for UCA SMP (Station Mgt Prot) */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 06/04/96 EJV 01 Created */ +/************************************************************************/ + +#ifndef CLNP_LLC_INCLUDED +#define CLNP_LLC_INCLUDED + + +#ifdef __cplusplus +extern "C" { +#endif + + +#define LLC_LSAP (ST_UCHAR) 0xFE +#define LLC_CONTROL (ST_UCHAR) 0x03 + +#define LLC_LSAP_SMP (ST_UCHAR) 0xFB /* For UCA SMP (Station Mgt Prot) */ +#define LLC_CONTROL_SMP (ST_UCHAR) 0x03 /* For UCA SMP (Station Mgt Prot) */ + +typedef struct + { + ST_UCHAR dest; /* destination SAP */ + ST_UCHAR src; /* source SAP */ + ST_UCHAR control; /* control field */ + }LLC_HDR; + +#define LLC_HDR_LEN sizeof (LLC_HDR) + + +/* Function prototypes from llc.c module */ + +ST_RET clnpl_llc_encode (ST_UCHAR *enc_buf, ST_UCHAR src_lsap, ST_UCHAR dest_lsap); +ST_RET clnpl_llc_decode (ST_UCHAR *dec_buf, ST_UCHAR *dest_lsap); + + +#ifdef __cplusplus +} +#endif + +#endif /* end of 'already included' */ + + diff --git a/include/inc/clnp_log.h b/include/inc/clnp_log.h new file mode 100644 index 0000000..c53e1f3 --- /dev/null +++ b/include/inc/clnp_log.h @@ -0,0 +1,231 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1996, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : clnp_log.h */ +/* PRODUCT(S) : Lean-T Stack */ +/* */ +/* MODULE DESCRIPTION : */ +/* This header file contains logging macros for CLNP. */ +/* Note: To compile logging functions use the DEBUG_SISCO define */ +/* in the project make file. */ +/* */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 06/09/03 JRB 07 Use new "Base" macros SLOG_*, SLOGC_*, SLOGH.*/ +/* Del unused macros. */ +/* 10/02/01 JRB 06 Fix logstr in CLSNS_LOG_* macros. */ +/* 09/13/99 MDE 05 Added SD_CONST modifiers */ +/* 10/08/98 MDE 04 Migrated to updated SLOG interface */ +/* 07/28/97 JRB 03 Added CLNP_LOG_REQ2 / 3 & CLNP_LOG_IND2 / 3 */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 03/03/97 EJV 02 Corrected ALWAYS macros; */ +/* Removed check if sLogCtrl not NULL */ +/* 06/10/96 EJV 01 Created */ +/************************************************************************/ + +#ifndef CLNP_LOG_INCLUDED +#define CLNP_LOG_INCLUDED + +#include "slog.h" + +#ifdef __cplusplus +extern "C" { +#endif + + +/* NOTE: CLNP log masks and clnp_debug_sel are defined in clnp_usr.h */ + +extern SD_CONST ST_CHAR *SD_CONST _clnp_err_logstr; +extern SD_CONST ST_CHAR *SD_CONST _clnp_nerr_logstr; +extern SD_CONST ST_CHAR *SD_CONST _clnp_req_logstr; +extern SD_CONST ST_CHAR *SD_CONST _clnp_ind_logstr; +extern SD_CONST ST_CHAR *SD_CONST _clnp_enc_dec_logstr; +extern SD_CONST ST_CHAR *SD_CONST _clnp_llc_enc_dec_logstr; +extern SD_CONST ST_CHAR *SD_CONST _clsns_req_logstr; +extern SD_CONST ST_CHAR *SD_CONST _clsns_ind_logstr; + +#if defined(DEBUG_SISCO) + /*--------------------------------------------------------------------*/ + /* macros below are used to log REQ or IND by passing mask to select */ + /* the logging macro (this is handy in log function so the macros */ + /* do not have to repeated in function for REQ and then for IND) */ + /*--------------------------------------------------------------------*/ + + #define CLNP_LOGC_RI0(m,a) {if (m == CLNP_LOG_REQ) {CLNP_LOGC_REQ0(a);} else {CLNP_LOGC_IND0(a);}} + #define CLNP_LOGC_RI1(m,a,b) {if (m == CLNP_LOG_REQ) {CLNP_LOGC_REQ1(a,b);} else {CLNP_LOGC_IND1(a,b);}} + + #define CLNP_LOGH_RI(m,a,b) {if (m == CLNP_LOG_REQ) {CLNP_LOGH_REQ(a,b);} else {CLNP_LOGH_IND(a,b);}} + + /*--------------------------------------------------------------------*/ + /* macros below are used to log REQ or IND by passing mask to select */ + /* the logging macro (this is handy in log function so the macros */ + /* do not have to repeated in function for REQ and then for IND) */ + /*--------------------------------------------------------------------*/ + + #define CLSNS_LOGC_RI0(m,a) {if (m == CLSNS_LOG_REQ) {CLSNS_LOGC_REQ0(a);} else {CLSNS_LOGC_IND0(a);}} + #define CLSNS_LOGC_RI1(m,a,b) {if (m == CLSNS_LOG_REQ) {CLSNS_LOGC_REQ1(a,b);} else {CLSNS_LOGC_IND1(a,b);}} + + #define CLSNS_LOGH_RI(m,a,b) {if (m == CLSNS_LOG_REQ) {CLSNS_LOGH_REQ(a,b);} else {CLSNS_LOGH_IND(a,b);}} + +#else /* !defined(DEBUG_SISCO) */ + + /*--------------------------------------------------------------------*/ + /* macros below are used to log REQ or IND by passing mask */ + /*--------------------------------------------------------------------*/ + + #define CLNP_LOGC_RI0(m,a) + #define CLNP_LOGC_RI1(m,a,b) + #define CLNP_LOGH_RI(m,a,b) + + /*--------------------------------------------------------------------*/ + /* macros below are used to log REQ or IND by passing mask */ + /*--------------------------------------------------------------------*/ + + #define CLSNS_LOGC_RI0(m,a) + #define CLSNS_LOGC_RI1(m,a,b) + + #define CLSNS_LOGH_RI(m,a,b) + +#endif /* !defined(DEBUG_SISCO) */ + + /*--------------------------------------------*/ + /* hard errors logging */ + /*--------------------------------------------*/ + +#define CLNP_LOG_ERR0(a) \ + SLOG_0 (clnp_debug_sel & CLNP_LOG_ERR,_clnp_err_logstr,a) +#define CLNP_LOG_ERR1(a,b) \ + SLOG_1 (clnp_debug_sel & CLNP_LOG_ERR,_clnp_err_logstr,a,b) +#define CLNP_LOG_ERR2(a,b,c) \ + SLOG_2 (clnp_debug_sel & CLNP_LOG_ERR,_clnp_err_logstr,a,b,c) +#define CLNP_LOG_ERR3(a,b,c,d) \ + SLOG_3 (clnp_debug_sel & CLNP_LOG_ERR,_clnp_err_logstr,a,b,c,d) + + /*--------------------------------------------*/ + /* normal errors logging */ + /*--------------------------------------------*/ + +#define CLNP_LOG_NERR0(a) \ + SLOG_0 (clnp_debug_sel & CLNP_LOG_NERR,_clnp_nerr_logstr,a) +#define CLNP_LOG_NERR1(a,b) \ + SLOG_1 (clnp_debug_sel & CLNP_LOG_NERR,_clnp_nerr_logstr,a,b) +#define CLNP_LOG_NERR2(a,b,c) \ + SLOG_2 (clnp_debug_sel & CLNP_LOG_NERR,_clnp_nerr_logstr,a,b,c) +#define CLNP_LOG_NERR3(a,b,c,d) \ + SLOG_3 (clnp_debug_sel & CLNP_LOG_NERR,_clnp_nerr_logstr,a,b,c,d) + + /*--------------------------------------------*/ + /* CLNP-user request logging */ + /*--------------------------------------------*/ + +#define CLNP_LOG_REQ0(a) \ + SLOG_0 (clnp_debug_sel & CLNP_LOG_REQ,_clnp_req_logstr,a) +#define CLNP_LOG_REQ1(a,b) \ + SLOG_1 (clnp_debug_sel & CLNP_LOG_REQ,_clnp_req_logstr,a,b) +#define CLNP_LOG_REQ2(a,b,c) \ + SLOG_2 (clnp_debug_sel & CLNP_LOG_REQ,_clnp_req_logstr,a,b,c) +#define CLNP_LOG_REQ3(a,b,c,d) \ + SLOG_3 (clnp_debug_sel & CLNP_LOG_REQ,_clnp_req_logstr,a,b,c,d) + /* continuation log */ +#define CLNP_LOGC_REQ0(a) \ + SLOGC_0 (clnp_debug_sel & CLNP_LOG_REQ,a) +#define CLNP_LOGC_REQ1(a,b) \ + SLOGC_1 (clnp_debug_sel & CLNP_LOG_REQ,a,b) + /* hex logging */ +#define CLNP_LOGH_REQ(a,b) \ + SLOGH (clnp_debug_sel & CLNP_LOG_REQ,a,b) + + /*--------------------------------------------*/ + /* CLNP_user indication logging */ + /*--------------------------------------------*/ + +#define CLNP_LOG_IND0(a) \ + SLOG_0 (clnp_debug_sel & CLNP_LOG_IND,_clnp_ind_logstr,a) +#define CLNP_LOG_IND1(a,b) \ + SLOG_1 (clnp_debug_sel & CLNP_LOG_IND,_clnp_ind_logstr,a,b) +#define CLNP_LOG_IND2(a,b,c) \ + SLOG_2 (clnp_debug_sel & CLNP_LOG_IND,_clnp_ind_logstr,a,b,c) +#define CLNP_LOG_IND3(a,b,c,d) \ + SLOG_3 (clnp_debug_sel & CLNP_LOG_IND,_clnp_ind_logstr,a,b,c,d) + /* continuation log */ +#define CLNP_LOGC_IND0(a) \ + SLOGC_0 (clnp_debug_sel & CLNP_LOG_IND,a) +#define CLNP_LOGC_IND1(a,b) \ + SLOGC_1 (clnp_debug_sel & CLNP_LOG_IND,a,b) + /* hex logging */ +#define CLNP_LOGH_IND(a,b) \ + SLOGH (clnp_debug_sel & CLNP_LOG_IND,a,b) + + /*--------------------------------------------*/ + /* CLNP encoding/decoding of NPDU */ + /*--------------------------------------------*/ + +#define CLNP_LOG_ENC_DEC0(a) \ + SLOG_0 (clnp_debug_sel & CLNP_LOG_ENC_DEC,_clnp_enc_dec_logstr,a) +#define CLNP_LOG_ENC_DEC1(a,b) \ + SLOG_1 (clnp_debug_sel & CLNP_LOG_ENC_DEC,_clnp_enc_dec_logstr,a,b) +#define CLNP_LOG_ENC_DEC2(a,b,c) \ + SLOG_2 (clnp_debug_sel & CLNP_LOG_ENC_DEC,_clnp_enc_dec_logstr,a,b,c) + /* continuation log */ +#define CLNP_LOGC_ENC_DEC0(a) \ + SLOGC_0 (clnp_debug_sel & CLNP_LOG_ENC_DEC,a) +#define CLNP_LOGC_ENC_DEC1(a,b) \ + SLOGC_1 (clnp_debug_sel & CLNP_LOG_ENC_DEC,a,b) + /* hex logging */ +#define CLNP_LOGH_ENC_DEC(a,b) \ + SLOGH (clnp_debug_sel & CLNP_LOG_ENC_DEC,a,b) + + /*--------------------------------------------*/ + /* LLC encoding/decoding of LPDU */ + /*--------------------------------------------*/ + +#define CLNP_LOG_LLC_ENC_DEC3(a,b,c,d) \ + SLOG_3 (clnp_debug_sel & CLNP_LOG_LLC_ENC_DEC,_clnp_llc_enc_dec_logstr,a,b,c,d) + + /*----------------------------------------------*/ + /* sub-network services request (write) logging */ + /*----------------------------------------------*/ + +#define CLSNS_LOG_REQ0(a) \ + SLOG_0 (clnp_debug_sel & CLSNS_LOG_REQ,_clsns_req_logstr,a) +#define CLSNS_LOG_REQ1(a,b) \ + SLOG_1 (clnp_debug_sel & CLSNS_LOG_REQ,_clsns_req_logstr,a,b) + /* continuation log */ +#define CLSNS_LOGC_REQ0(a) \ + SLOGC_0 (clnp_debug_sel & CLSNS_LOG_REQ,a) +#define CLSNS_LOGC_REQ1(a,b) \ + SLOGC_1 (clnp_debug_sel & CLSNS_LOG_REQ,a,b) + /* hex logging */ +#define CLSNS_LOGH_REQ(a,b) \ + SLOGH (clnp_debug_sel & CLSNS_LOG_REQ,a,b) + + /*------------------------------------------------*/ + /* sub-network services indication logging (read) */ + /*------------------------------------------------*/ + +#define CLSNS_LOG_IND0(a) \ + SLOG_0 (clnp_debug_sel & CLSNS_LOG_IND,_clsns_ind_logstr,a) +#define CLSNS_LOG_IND1(a,b) \ + SLOG_1 (clnp_debug_sel & CLSNS_LOG_IND,_clsns_ind_logstr,a,b) + + /* continuation log */ +#define CLSNS_LOGC_IND0(a) \ + SLOGC_0 (clnp_debug_sel & CLSNS_LOG_IND,a) +#define CLSNS_LOGC_IND1(a,b) \ + SLOGC_1 (clnp_debug_sel & CLSNS_LOG_IND,a,b) + /* hex logging */ +#define CLSNS_LOGH_IND(a,b) \ + SLOGH (clnp_debug_sel & CLSNS_LOG_IND,a,b) + +#ifdef __cplusplus +} +#endif + +#endif /* end of 'already included' */ diff --git a/include/inc/clnp_sne.h b/include/inc/clnp_sne.h new file mode 100644 index 0000000..be7fbee --- /dev/null +++ b/include/inc/clnp_sne.h @@ -0,0 +1,227 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1996-2005, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : clnp_sne.h */ +/* PRODUCT(S) : Lean-T Stack */ +/* */ +/* MODULE DESCRIPTION : */ +/* This header file defines the interface between the */ +/* Connectionless-mode Network Protocol (CLNP) and the */ +/* underlying sub-network. */ +/* */ +/* GLOBAL STRUCTURES DEFINED IN THIS MODULE : */ +/* */ +/* SN_UNITDATA struct */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* clnp_snet_init */ +/* clnp_snet_term */ +/* clnp_snet_read */ +/* clnp_snet_write */ +/* clnp_snet_free */ +/* clnp_snet_add_multicast_mac */ +/* clnp_snet_ext_write */ +/* clnp_snet_timer_tick */ +/* clnp_snet_update_is */ +/* clnp_snet_update_es */ +/* clnp_snet_lookup_mac */ +/* clnp_snet_get_all_is_mac */ +/* clnp_snet_get_all_es_mac */ +/* clnp_snet_get_local_mac */ +/* clnp_snet_get_max_udata_len */ +/* clnp_snet_get_type */ +/* clnp_snet_create_es_table */ +/* clnp_snet_check_mac */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/12/06 JRB 15 Add hPktSock extern. */ +/* 03/20/06 JRB 14 Add clnp_snet_write_raw. */ +/* Include clnp_usr.h (need some defs from it). */ +/* 07/25/05 JRB 13 Add comment explaining "lpdu_len". */ +/* 02/08/05 JRB 12 Increase ETHE_MAX_LEN_LSDU to 1518 to allow */ +/* for 802.1Q QTag Prefix. */ +/* Del ETYPE_UNITDATA, code no longer uses it. */ +/* Add clnp_snet_frame_to_udt. */ +/* Add clnp_snet_read_hook_*. */ +/* 11/20/02 ASK 11 Added ETYPE_UNITDATA struct, clnp_etype_write*/ +/* proto */ +/* 10/24/02 NAV 10 Add clnp_snet_rx_multicast_stop proto. */ +/* 11/15/01 JRB 09 Add more "multicast" functions. */ +/* Add clnpl_log_snsdu proto. */ +/* 02/21/00 JRB 08 Del "free_lpdu" flag from SN_UNITDATA, and */ +/* use portable "clnp_snet_free" instead. */ +/* 01/28/99 MDE 07 Added size to ETHE_ALL_ES, ETHE_ALL_IS */ +/* 11/30/98 JRB 06 Added Ethernet defines. */ +/* Added clnp_snet_add_multicast_mac prototype. */ +/* Added clnp_snet_check_mac prototype. */ +/* 09/23/97 EJV 05 Added clnp_snet_ext_write for UCA_SMP. */ +/* Aligned fields in SN_UNITDATA struct. */ +/* 06/19/97 EJV 04 Added clnp_snet_create_es_table prototype. */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 10/17/96 EJV 03 Added define SUBNET_PROFI. */ +/* 07/22/96 EJV 02 Added func clnp_snet_get_type () and defines */ +/* for implemented sub-networks SUBNET_ADLC and */ +/* SUBNET_ETHE. */ +/* 05/23/96 EJV 01 Created */ +/************************************************************************/ + +#ifndef CLNP_SNE_INCLUDED +#define CLNP_SNE_INCLUDED + +#include "clnp_usr.h" /* need CLNP_MAX_LEN_MAC & CLNP_PARAM */ + +#ifdef __cplusplus +extern "C" { +#endif + +/* implemented sub-networks types */ +#define SUBNET_ADLC 1 +#define SUBNET_ETHE 2 +#define SUBNET_PROFI 3 + +/*----------------------------------------------------------------------*/ +/* Structure below is used to pass SN_UNITDATA to/from read/write */ +/* functions between the CLNP and CLNP-Subnetwork interface. */ + +typedef struct + { + ST_UCHAR loc_mac [CLNP_MAX_LEN_MAC]; /* Buffer for local MAC addr */ + ST_UCHAR rem_mac [CLNP_MAX_LEN_MAC]; /* Buffer for remote MAC addr */ + /* WARNING: The "lpdu_len" param does NOT always contain the PDU length.*/ + /* It contains the "Length/Type" field of the MAC frame as defined in */ + /* IEEE 802.3. Any value greater than or equal to 0x600 must be */ + /* interpreted as the "Type" of the MAC frame. */ + /* Renaming this parameter would clarify the code, but too much */ + /* existing code is already using it. */ + ST_UINT16 lpdu_len; /* IEEE 802.3 "Length/Type" field. */ + ST_UCHAR *lpdu; /* Pointer to LPDU buffer to send. */ + }SN_UNITDATA; + +#define SN_UNITDATA_LEN sizeof (SN_UNITDATA) + +/*----------------------------------------------------------------------*/ +/* Defines for type of MAC address in received PDU. */ +/* Returned by "clnp_snet_check_mac". */ +/*----------------------------------------------------------------------*/ +#define CLNP_MAC_INVALID 0 /* Invalid MAC address (not one */ + /* of addresses def below) */ +#define CLNP_MAC_LOCAL 1 /* Our MAC address */ +#define CLNP_MAC_ALL_ES 2 /* All-ES (End Systems) address */ +#define CLNP_MAC_ALL_IS 3 /* All-IS (Intermediate Systems)*/ +#define CLNP_MAC_GOOSE 4 /* Possible GOOSE address */ + +/*----------------------------------------------------------------------*/ +/* Defines and externs for Ethernet Subnetwork (SUBNET_ETHE) only. */ +/*----------------------------------------------------------------------*/ +#define ETHE_MAC_LEN 6 + +#define ETHE_LEN_HEAD (2*ETHE_MAC_LEN + 2) +#define ETHE_MIN_LEN_LSDU 60 +/* Max len for normal frame is 1514, but with QTag Prefix it could be 1518*/ +#define ETHE_MAX_LEN_LSDU 1518 +#define ETHE_MAX_LEN_UDATA 1500 /* max. MAC User data length */ + +#define ETHE_LEN_QTAG_PREFIX 4 /* 802.1Q (VLAN) header length */ +#define ETHE_LEN_LENTYPE 2 /* MAC Len/type field length */ + +/* Ethernet frame structure */ +/* WARNING: This structure is not convenient for representing frames */ +/* containing the IEEE 802.1Q QTag Prefix. The QTag Prefix would come */ +/* between src_addr and frame_len in this structure. */ +/* Most code using this structure was written before QTag existed. */ +/* New code should not use this structure. */ +typedef struct + { + ST_UCHAR dst_addr [ETHE_MAC_LEN]; /* destination MAC address */ + ST_UCHAR src_addr [ETHE_MAC_LEN]; /* source MAC address */ + ST_UCHAR frame_len[2]; /* total frame length */ + ST_UCHAR data_buf [ETHE_MAX_LEN_UDATA]; /* data buffer */ + } ETHE_FRAME; + +#define ETHE_FRAME_LEN sizeof (ETHE_FRAME) + +/*----------------------------------------------------------------------*/ +/* Global variables. */ +/*----------------------------------------------------------------------*/ +/* All ES and all IS addresses */ +extern ST_UCHAR ETHE_ALL_ES [ETHE_MAC_LEN]; +extern ST_UCHAR ETHE_ALL_IS [ETHE_MAC_LEN]; +extern int hPktSock; /* Packet Socket handle (for LINUX, etc.) */ + +/*----------------------------------------------------------------------*/ +/* Interface functions to underlying sub-network */ +/*----------------------------------------------------------------------*/ + +ST_RET clnp_snet_init (CLNP_PARAM *clnp_param); +ST_RET clnp_snet_term (ST_VOID); +ST_RET clnp_snet_read (SN_UNITDATA *sn_req); +ST_RET clnp_snet_write (SN_UNITDATA *sn_req); +ST_RET clnp_etype_write (SN_UNITDATA *sn_req); +/* clnp_snet_write_raw replaces OBSOLETE clnp_snet_write and clnp_etype_write.*/ +ST_RET clnp_snet_write_raw ( + ST_UCHAR *framePtr, /* Pointer to complete frame including MACs*/ + size_t frameLen); /* Length of complete frame */ +ST_VOID clnp_snet_free (SN_UNITDATA *sn_req); +ST_VOID clnpl_log_snsdu (SN_UNITDATA *sn_req, ST_ULONG log_mask); +ST_RET clnp_snet_add_multicast_mac (ST_UCHAR *mac_buf); +ST_RET clnp_snet_set_multicast_filter (ST_UCHAR *mac_list, ST_INT num_macs); +ST_RET clnp_snet_rx_all_multicast_start (ST_VOID); +ST_RET clnp_snet_rx_all_multicast_stop (ST_VOID); +ST_RET clnp_snet_rx_multicast_stop (ST_VOID); + +ST_RET clnp_snet_ext_write (SN_UNITDATA *sn_req, ST_LONG user_id); +ST_VOID clnp_snet_timer_tick (ST_VOID); + +ST_RET clnp_snet_update_is (ST_UCHAR *rem_nsap, ST_UCHAR *rem_mac, ST_UINT16 holding_time); +ST_RET clnp_snet_update_es (ST_UCHAR *rem_nsap, ST_UCHAR *rem_mac, ST_UINT16 holding_time); + +ST_RET clnp_snet_lookup_is (ST_UCHAR *rem_mac); +ST_RET clnp_snet_lookup_es (ST_UCHAR *rem_nsap, ST_UCHAR *rem_mac); + +ST_RET clnp_snet_get_all_is_mac (ST_UCHAR *mac_buf); +ST_RET clnp_snet_get_all_es_mac (ST_UCHAR *mac_buf); +ST_RET clnp_snet_get_local_mac (ST_UCHAR *mac_buf); +ST_UINT16 clnp_snet_get_max_udata_len (ST_VOID); +ST_INT clnp_snet_get_type (ST_VOID); + +ST_RET clnp_snet_create_es_table (ST_UINT max_count); +ST_INT clnp_snet_check_mac (ST_UCHAR *mac_addr); + +/* Add subnetwork read hook function to do custom processing of */ +/* received packets. */ +ST_RET clnp_snet_read_hook_add ( + ST_RET (*usr_fun)(SN_UNITDATA *sn_req)); /* hook function*/ + +/* Remove subnetwork read hook function (i.e. stop custom processing). */ +ST_RET clnp_snet_read_hook_remove ( + ST_RET (*usr_fun)(SN_UNITDATA *sn_req)); /* hook function*/ + +/* Process all subnetwork read hook functions. */ +ST_RET clnp_snet_read_hook_process (SN_UNITDATA *sn_req); + +/* Copy data from raw frame to SN_UNITDATA struct. */ +ST_RET clnp_snet_frame_to_udt (ST_UINT8 *frame_buf, /* ptr to raw frame*/ + ST_INT frame_len, /* len of raw frame*/ + SN_UNITDATA *sn_req, + ST_INT udata_max_len); /* max user data len */ + +#ifdef __cplusplus +} +#endif + +#endif /* end of 'already included' */ + + + + + + + diff --git a/include/inc/clnp_sta.h b/include/inc/clnp_sta.h new file mode 100644 index 0000000..87f3206 --- /dev/null +++ b/include/inc/clnp_sta.h @@ -0,0 +1,125 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1996, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : clnp_sta.h */ +/* PRODUCT(S) : Lean-T Stack */ +/* */ +/* MODULE DESCRIPTION : */ +/* This header file defines the statistics for the */ +/* Connectionless-mode Network Protocol (CLNP). */ +/* */ +/* Note: Compile the whole project with CLNP_STAT define to */ +/* keep statistics of CLNP operation. */ +/* */ +/* GLOBAL STRUCTURES DEFINED IN THIS MODULE : */ +/* */ +/* CLNP_STATS struct */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 05/23/96 EJV 01 Created */ +/************************************************************************/ + + +#ifndef CLNP_STA_INCLUDED +#define CLNP_STA_INCLUDED + + +#ifdef __cplusplus +extern "C" { +#endif + +/* struct below describes the statistics recorded by the CLNP */ + +/* Statistics for PDUs */ +typedef struct + { + ST_UINT cnt_sent; /* Number of sent PDUs */ + ST_UINT cnt_rcvd; /* Number of received PDUs */ + ST_UINT cnt_expired; /* Number of expired PDUs */ + ST_UINT cnt_discarded; /* Number of discarded PDUs */ + }CLNP_PDU_STAT; + +typedef struct + { + CLNP_PDU_STAT all_pdu; /* stats for all PDUs */ + CLNP_PDU_STAT dt_pdu; /* stats for DT PDUs */ + CLNP_PDU_STAT er_pdu; /* stats for ER PDUs */ + }CLNP_STATS; + +#define CLNP_STATS_LEN sizeof (CLNP_STATS) + + +ST_RET clnp_stats_reset (ST_VOID); +CLNP_STATS *clnp_stats_get (ST_VOID); + + +#if defined(CLNP_STAT) + + extern CLNP_STATS clnp_stats; + + /* macros to increment all PDUs statistics */ + + #define CLNP_STAT_INC_PDU_SENT {clnp_stats.all_pdu.cnt_sent += 1;} + #define CLNP_STAT_INC_PDU_RECEIVED {clnp_stats.all_pdu.cnt_rcvd += 1;} + #define CLNP_STAT_INC_PDU_EXPIRED {clnp_stats.all_pdu.cnt_expired += 1;} + #define CLNP_STAT_INC_PDU_DISCARDED {clnp_stats.all_pdu.cnt_discarded += 1;} + + /* macros to increment DT PDU statistics */ + + #define CLNP_STAT_INC_DT_SENT {clnp_stats.dt_pdu.cnt_sent += 1;} + #define CLNP_STAT_INC_DT_RECEIVED {clnp_stats.dt_pdu.cnt_rcvd += 1;} + #define CLNP_STAT_INC_DT_EXPIRED {clnp_stats.dt_pdu.cnt_expired += 1;} + #define CLNP_STAT_INC_DT_DISCARDED {clnp_stats.dt_pdu.cnt_discarded += 1;} + + /* macros to increment ER PDU statistics */ + + #define CLNP_STAT_INC_ER_SENT {clnp_stats.er_pdu.cnt_sent += 1;} + #define CLNP_STAT_INC_ER_RECEIVED {clnp_stats.er_pdu.cnt_rcvd += 1;} + #define CLNP_STAT_INC_ER_EXPIRED {clnp_stats.er_pdu.cnt_expired += 1;} + #define CLNP_STAT_INC_ER_DISCARDED {clnp_stats.er_pdu.cnt_discarded += 1;} + +#else + + /* macros if CLNP_STAT is not defined */ + + /* macros to increment all PDU statistics */ + + #define CLNP_STAT_INC_PDU_SENT + #define CLNP_STAT_INC_PDU_RECEIVED + #define CLNP_STAT_INC_PDU_EXPIRED + #define CLNP_STAT_INC_PDU_DISCARDED + + /* macros to increment DT PDU statistics */ + + #define CLNP_STAT_INC_DT_SENT + #define CLNP_STAT_INC_DT_RECEIVED + #define CLNP_STAT_INC_DT_EXPIRED + #define CLNP_STAT_INC_DT_DISCARDED + + /* macros to increment ER PDU statistics */ + + #define CLNP_STAT_INC_ER_SENT + #define CLNP_STAT_INC_ER_RECEIVED + #define CLNP_STAT_INC_ER_EXPIRED + #define CLNP_STAT_INC_ER_DISCARDED + +#endif /* end of CLNP_STAT defined */ + + +#ifdef __cplusplus +} +#endif + +#endif /* end of 'already included' */ + diff --git a/include/inc/clnp_tnt.h b/include/inc/clnp_tnt.h new file mode 100644 index 0000000..1eea64d --- /dev/null +++ b/include/inc/clnp_tnt.h @@ -0,0 +1,45 @@ +#ifndef CLNP_TNT_INCLUDED +#define CLNP_TNT_INCLUDED +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1998 - 2000 All Rights Reserved */ +/* */ +/* MODULE NAME : clnp_tnt.h */ +/* PRODUCT(S) : Lean-T Stack (Phar Lap TNT ETS port only) */ +/* */ +/* MODULE DESCRIPTION : */ +/* Stub function prototypes for Phar Lap TNT ETS. Ethernet drivers */ +/* must be modified to call these functions instead of the normal */ +/* functions in the Phar Lap TCP/IP stack. This allows the SISCO */ +/* OSI stack to intercept these calls and and do any necessary OSI */ +/* processing before passing them on to the Phar Lap TCP/IP stack. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 05/05/00 JRB 03 Remove last chg. No longer needed. */ +/* 03/19/99 EJV 02 pfXmit has 4 parameters in Phar Lap ver 9.1 */ +/* (with NE2K patch) */ +/* Introduced the _PHARLAP91_PATCHED define */ +/* 10/30/98 JRB 01 Created */ +/************************************************************************/ +int __cdecl stubEtsTCPSetDeviceEthernetInfo(DEVHANDLE hDriver, + char *pEnetStationAddr); +int __cdecl stubEtsTCPRegisterDeviceFuncs(DEVHANDLE hDevice, + int (__cdecl *pfUpDown)(DEVHANDLE hDevice, + unsigned short goingUp, + char *options), + int (__cdecl *pfIoctl)(DEVHANDLE hDevice, int mode), + int (__cdecl *pfXmit)(DEVHANDLE hDevice, + long *pPacket, int packetLen), + int (__cdecl *pfSend)(void *pPacketHdr)); + +void __cdecl stubEtsTCPQueueRecvBuffer(DEVHANDLE hDriver, void *hMsg, + int pkt_len, + char *pRecvBuf); + +#endif /* !CLNP_TNT_INCLUDED */ diff --git a/include/inc/clnp_usr.h b/include/inc/clnp_usr.h new file mode 100644 index 0000000..2357b36 --- /dev/null +++ b/include/inc/clnp_usr.h @@ -0,0 +1,462 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1996, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : clnp_usr.h */ +/* PRODUCT(S) : Lean-T Stack */ +/* */ +/* MODULE DESCRIPTION : */ +/* This header file defines the interface between the */ +/* Connectionless-mode Network Protocol (CLNP) and the */ +/* CLNP-user in order to exchange Network Service Data */ +/* Units (NSDUs). */ +/* Note that the CLNP is implemented as non-segmenting */ +/* subset of the full protocol. */ +/* */ +/* For information see the: */ +/* ISO 8473 "Information processing systems - Data communication - */ +/* Protocol providing the connectionless-mode network service"; */ +/* ISO 8348 "Information processing systems - Data communication - */ +/* Network service definition. Addendum 1: Connectionless-mode */ +/* transmission". */ +/* ISO 9542 "Information processing systems - Telecommunications */ +/* and information exchange beetween systems - End system to */ +/* Intermediate system routing exchange protocol for use with */ +/* ISO 8473. */ +/* */ +/* */ +/* GLOBAL STRUCTURES DEFINED IN THIS MODULE : */ +/* */ +/* CLNP_PARAM struct */ +/* N_UNITDATA struct */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* clnp_init */ +/* clnp_end */ +/* clnp_alloc */ +/* clnp_free */ +/* clnp_read */ +/* clnp_write */ +/* clnp_timer_tick */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 09/10/07 JRB 09 Add network_device to CLNP_PARAM. */ +/* 10/24/03 JRB 08 Move clnp_debug_sel to slog.h. */ +/* 02/29/00 JRB 07 Add clnp_status proto. */ +/* 08/11/99 JRB 06 Add DBL_LNK to N_UNITDATA for multithreading.*/ +/* 08/05/99 JRB 05 Clean up multithreading. */ +/* 08/02/99 JRB 04 Use glbsem for multithreading. */ +/* 07/30/99 JRB 03 Add "multi-threading" support. */ +/* 12/04/98 JRB 02 Add "loc_nsap" to N_UNITDATA. */ +/* 08/13/98 JRB 01 Lint cleanup. */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 04/10/97 JRB 06 Moved error defs from clnp_err.h to here */ +/* and changed to use base from "glberror.h". */ +/* 03/03/97 EJV 05 Removed CLNP_LOG_ALWAYS */ +/* 10/04/96 JRB 04 Added loc_mac to N_UNITDATA. */ +/* 07/22/96 EJV 03 Changed CLNP_DEF_ESH_DELAY from 5 to 0. */ +/* 07/19/96 EJV 02 Removed ns_userdata_len from clnp_param */ +/* Moved CLNP_DEF_LEN_HDR to clnp.h and deleted */ +/* unused defines */ +/* 05/23/96 EJV 01 Created */ +/************************************************************************/ + +#ifndef CLNP_USR_INCLUDED +#define CLNP_USR_INCLUDED + +#include "gen_list.h" /* Need DBL_LNK definition. */ +#include "glbsem.h" /* Need ST_EVENT_SEM definition. */ +#ifdef __cplusplus +extern "C" { +#endif + +/*----------------------------------------------------------------------*/ +/* Error codes returned from the CLNP interface funcs to the CLNP-user */ +/* NOTE: Values begin from E_CLNP (found in glberror.h). */ +/*----------------------------------------------------------------------*/ +/* CLNP general errors */ +#define CLNP_ERR_CFG_FILE 0x3400 /* Errors found in cfg file (or required*/ + /* params not configured = local MAC and*/ + /* local NSAP) */ +#define CLNP_ERR_NOT_INIT 0x3401 /* CLNP has not been initialized */ +#define CLNP_ERR_MEM_ALLOC 0x3402 /* allocating memory failed */ +#define CLNP_ERR_NULL_PTR 0x3403 /* NULL pointer passed to clnp_... func */ + +/* CLNP parsing clnp_param structure errors */ +/* -&-&- */ +/* CAN NOT recover from this parameter error !!! */ +#define CLNP_ERR_NSAP_LEN 0x3404 /* NSAP length is 0 or more then allowed*/ +/* CAN recover from parameter errors below */ +#define CLNP_ERR_LIFETIME 0x3405 /* Invalid PDU lifetime */ +#define CLNP_ERR_LIFETIME_DEC 0x3406 /* Invalid PDU lifetime decrement value */ +#define CLNP_ERR_ESH_CFG_TIMER 0x3407 /* Invalid ESH Configuration Timer value*/ +#define CLNP_ERR_ESH_DELAY 0x3408 /* Invalid delay value for first ESH */ +#define CLNP_ERR_MAC_ADDR 0x3409 /* Local MAC address not configured */ + /* (for ADLC sub-network) */ +#define CLNP_ERR_UDATA_LEN 0x3410 /* CLNP-user data length (too big) */ +/* last error code is also used for CLNP PDU encoding error */ +/* -&-&- */ + +/* CLNP PDU parsing (decoding) errors */ +#define CLNP_ERR_PDU_MAC_ADDR 0x3420 /* The NPDU MAC address is not local MAC*/ + /* or All ES MAC. */ +#define CLNP_ERR_PDU_ID 0x3421 /* invalid/not supported PDU identifier */ +#define CLNP_ERR_PDU_VER 0x3422 /* invalid/not supported PDU version */ +#define CLNP_ERR_PDU_TYPE 0x3423 /* invalid/not supported PDU type */ +#define CLNP_ERR_PDU_LEN 0x3424 /* received PDU len does not match the */ + /* len indicated by sub-network */ +#define CLNP_ERR_PDU_EXPIRED 0x3425 /* DT or ER PDU's lifetime expired */ +#define CLNP_ERR_PDU_NSAP_ADDR 0x3426 /* PDU not addressed to our local NSAP */ +#define CLNP_ERR_PDU_SEGMENTING 0x3427 /* Segmented PDUs not supported */ +#define CLNP_ERR_PDU_CHECKSUM 0x3428 /* PDU checksum verification failed */ +#define CLNP_ERR_PDU_LAST_SEG 0x3429 /* Last seg bit not set (unsegmented PDU)*/ +#define CLNP_ERR_PDU_ER_PDU 0x342A /* code turned off for ER PDU processing*/ + +/* LLC encoding/decoding errors */ +#define LLC_ERR_SRC_ADDR 0x3481 /* LLC header Source field invalid */ +#define LLC_ERR_DEST_ADDR 0x3482 /* LLC header Dest filed invalid */ +#define LLC_ERR_CONTROL 0x3483 /* LLC header Control field invalid */ + +/*----------------------------------------------------------------------*/ +/* Error codes returned from the sub-network interface functions. */ +/* NOTE: Values begin from E_SUBNET (found in glberror.h). */ +/*----------------------------------------------------------------------*/ +#define SNET_ERR_INIT 0x3501 /* Init sub-net interface failed*/ +#define SNET_ERR_WRITE 0x3502 /* sub-net write func failed */ +#define SNET_ERR_READ 0x3503 /* sub-net read func failed or no data */ +#define SNET_ERR_MAC_INVALID 0x3504 /* invalid MAC address, unable */ + /* to obtain requested ALL ES, */ + /* ALL IS, or local MAC address.*/ +#define SNET_ERR_FRAME_LEN 0x3505 /* received more data than */ + /* reserved in buffer. */ +#define SNET_ERR_UDATA_LEN 0x3506 /* invalid len of data to send (too large)*/ + +/* sub-net errors specific to the Ethernet driver */ +#define SNET_ERR_DRV_OPEN 0x3520 /* open driver failed */ +#define SNET_ERR_DRV_LOC_MAC 0x3521 /* obtain local MAC addr from driver failed*/ +#define SNET_ERR_DRV_ADD_ES_ADDR 0x3522 /* add All ES Address failed */ +#define SNET_ERR_DRV_BIND_LSAP 0x3523 /* bind to LSAP failed */ +#define SNET_ERR_DRV_POST_BUFS 0x3524 /* post buffers to driver failed*/ + +/*----------------------------------------------------------------------*/ +/* CLNP logging types */ + +#define CLNP_LOG_ERR 0x00000001L +#define CLNP_LOG_NERR 0x00000002L + +/* to log CLNP-user indication or request */ +#define CLNP_LOG_REQ 0x00000010L +#define CLNP_LOG_IND 0x00000020L + +/* to log CLNP encoding/decoding or LLC encoding/decoding */ + +#define CLNP_LOG_ENC_DEC 0x00000100L +#define CLNP_LOG_LLC_ENC_DEC 0x00000200L + +/* to log data read/written to sub-network */ +#define CLSNS_LOG_REQ 0x00001000L +#define CLSNS_LOG_IND 0x00002000L + +/* CLNP is using clnp_debug_sel variable to turn on/off different */ +/* types of logging (see slog.h). */ + +/*----------------------------------------------------------------------*/ +/* The defines with CLNP_MAX_... specify the maximum values the */ +/* ISO 8473 or this implementation allows. The CLNP_DEF_... defines */ +/* specify the default values used to initialize the CLNP_PARAM struct. */ +/* */ +/* Note: The max length of NS-USERDATA is 64512 bytes but this number */ +/* is limited by underlying sub-network to: */ +/* for ADLC -> 32676 - CLNP_DEF_LEN_HDR - LLC_HDR_LEN */ +/* for Ethernet -> 1500 - CLNP_DEF_LEN_HDR - LLC_HDR_LEN */ + + +#define CLNP_MAX_LEN_MAC 6 /* Max len of MAC addr */ +#define CLNP_MAX_LEN_NSAP 20 /* Max len of NSAP addr */ + +#define CLNP_MIN_PDU_LIFETIME (ST_UCHAR) 1 /* min PDU lifetime in 500msec units */ +#define CLNP_MAX_PDU_LIFETIME (ST_UCHAR) 255 /* max PDU lifetime in 500msec units */ +#define CLNP_DEF_PDU_LIFETIME (ST_UCHAR) 50 /* def PDU lifetime in 500msec units */ +#define CLNP_DEF_PDU_LIFETIME_DEC (ST_UCHAR) 1 /* PDU lifetime decrement (in 500msec units) */ + + +#define CLNP_MAX_ESH_CFG_TIMER (ST_UINT16) 32767 /* max value for ESH Configuration Timer, it is */ + /* related to Holding Time in ESH which is */ + /* 2*CfgTimer=2*32767=65534 (must be ST_UINT16) */ +#define CLNP_DEF_ESH_CFG_TIMER (ST_UINT16) 120 /* default ESH Configuration Timer (in seconds) */ +#define CLNP_DEF_ESH_DELAY (ST_UINT16) 0 /* default delay before first ESH will be sent */ + + + +/*----------------------------------------------------------------------*/ +/* CLNP_PARAM struct */ +/* */ +/* This struct is used to supply actual parameters needed for operation */ +/* of the CLNP. */ +/* It is set by the NS-USER during call to clnp_init() function from */ +/* configuration file or from hard coded module clnp_hc.c. */ +/* */ +/* NOTE: The NSAP address is represented as sequence of unsigned bytes. */ +/* The first byte is the length of the NSAP address. This makes */ +/* it easy to put the NSAP to PDU. */ +/* Note: The pdu_lifetime_dec specifies by how many units the lifetime */ +/* value in received DT or ER PDU should be decremented. It has */ +/* to be at least 1. In case the transit delay plus processing */ +/* time is larger then 500msec the pdu_life_time_dec should be */ +/* adjusted accordingly. */ + +typedef struct + { + ST_UCHAR pdu_lifetime; /* PDU lifetime (in 500 msec units) for */ + /* outgoing DT PDUs. */ + /* init to CLNP_DEF_PDU_LIFETIME */ + ST_UCHAR pdu_lifetime_dec; /* PDU lifetime decrement (1=500msec) */ + /* for incomming DT or ER PDUs. */ + /* init to CLNP_DEF_PDU_LIFETIME_DEC */ + ST_UINT16 esh_cfg_timer; /* How often we report our presence to */ + /* other network entities (in seconds) */ + /* init to CLNP_DEF_ESH_CFG_TIMER */ + ST_UINT16 esh_delay; /* Delay time before first ESH is sent */ + /* init to CLNP_DEF_ESH_DELAY */ + ST_UCHAR loc_mac [CLNP_MAX_LEN_MAC]; /* Local MAC address */ + /* For ADLC the NS-USER sets the loc_mac*/ + /* DEBUG: Now the loc_mac has to match */ + /* the address in adlc.cfg !!! */ + /* For the Ethernet this param will be */ + /* read from the driver during init. */ + ST_UCHAR loc_nsap [1+CLNP_MAX_LEN_NSAP];/* Local len & NSAP address */ + ST_CHAR *network_device; /* network device name. May be used to */ + /* select device on some platforms */ + }CLNP_PARAM; + +#define CLNP_PARAM_LEN sizeof (CLNP_PARAM) + + +extern CLNP_PARAM clnp_param; /* This struct holds parameters needed */ + /* for the CLNP operations. */ + /* It is set by the CLNP-user before */ + /* calling the clnp_init() function. */ + + + + +/*----------------------------------------------------------------------*/ +/* N_UNITDATA struct */ +/* */ +/* This struct is used to pass N_UNITDATA request primitive to CLNP */ +/* and to receive N_UNITDATA indication from CLNP. */ +/* This struct uses the following trick to make the size of data buffer */ +/* configurable: */ +/* The last entry in the structure is a tiny (2 bytes) buffer. */ +/* To allow for any size data_buf, we can allocate extra bytes */ +/* after this struct. */ +/* For example if we want data_buf to be 4096 bytes, we could use */ +/* the following malloc call: */ +/* N_UNITDATA *req = malloc (sizeof (N_UNITDATA) + 4096 - 2 ); */ +/* The buffer can then be filled in, for example, as follow: */ +/* memcpy (req->data_buf, raw_data, 4096); */ +/* */ +/* NOTE: The "Local NSAP" is not passed back and forth in this struct. */ +/* Only one local NSAP is allowed. */ +/* */ +/* NOTE: The NSAP address is represented as sequence of unsigned bytes. */ +/* The first byte is the length of the NSAP address. This makes */ +/* it easy to get a NSAP from a NSDU. */ + + +#define CLNP_MIN_LEN_UDATA 2 + /* min length of data_buf defined in */ + /* N_UNITDATA struct. Do not use 1 */ + /* because optimizer may NOT treat this */ + /* field as an array. */ + +typedef struct + { + DBL_LNK link; /* for multithreading, must go on linked list */ + ST_BOOLEAN rem_mac_valid; /* SD_TRUE if MAC addr valid */ + ST_UCHAR loc_mac [CLNP_MAX_LEN_MAC]; /* Local MAC addr */ + ST_UCHAR rem_mac [CLNP_MAX_LEN_MAC]; /* Remote MAC addr */ + ST_UCHAR loc_nsap [1+CLNP_MAX_LEN_NSAP]; /* Local len & NSAP addr*/ + ST_UCHAR rem_nsap [1+CLNP_MAX_LEN_NSAP]; /* Remote len & NSAP addr */ + ST_UINT16 data_len; /* Data length in bytes */ + ST_UCHAR data_buf [CLNP_MIN_LEN_UDATA]; /* Data buffer */ + }N_UNITDATA; + +#define N_UNITDATA_LEN sizeof (N_UNITDATA) + + + + + +/************************************************************************/ +/* clnp_init */ +/*----------------------------------------------------------------------*/ +/* This function will initialize the operation of CLNP and the interface*/ +/* to underlying sub-network. */ +/* The CLNP-user should set the parameters in the clnp_param structure */ +/* before calling this function. */ +/* */ +/* Parameters: */ +/* ST_UINT ns_userdata_len Max size of NS-USERDATA */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if initialization successful */ +/* error code otherwise */ +/************************************************************************/ +ST_RET clnp_init (ST_UINT ns_userdata_len); + + +/************************************************************************/ +/* clnp_end */ +/*----------------------------------------------------------------------*/ +/* This function will terminate the operation of the CLNP and cleanup */ +/* the interface to underlying subnetwork. */ +/* */ +/* Parameters: */ +/* ST_VOID none */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if termination successful */ +/* error code otherwise */ +/************************************************************************/ +ST_RET clnp_end (ST_VOID); + + +/************************************************************************/ +/* clnp_alloc */ +/*----------------------------------------------------------------------*/ +/* This function will allocate a buffer for N_UNITDATA to pass data */ +/* between the CLNP and the CLNP-user. */ +/* */ +/* Parameters: */ +/* ST_UINT data_len Length of data in bytes. The length */ +/* of CLNP-user data has to be: */ +/* 0 < data_len <= CLNP_MAX_LEN_UDATA */ +/* */ +/* Return: */ +/* N_UNITDATA * pointer to allocated memory */ +/* NULL if function fails to alloc memory */ +/************************************************************************/ +N_UNITDATA *clnp_alloc (ST_UINT data_len); + + +/************************************************************************/ +/* clnp_free */ +/*----------------------------------------------------------------------*/ +/* This function will free buffer allocated for N_UNITDATA passed */ +/* between the CLNP and the CLNP-user. */ +/* */ +/* Parameters: */ +/* N_UNITDATA * memory pointer to free */ +/* */ +/* Return: */ +/* ST_VOID */ +/************************************************************************/ +ST_VOID clnp_free (N_UNITDATA *req); + + +/************************************************************************/ +/* clnp_read */ +/*----------------------------------------------------------------------*/ +/* This function is used by the CLNP-user to read N_UNITDATA.indication */ +/* from the CLNP. */ +/* The CLNP-user should free the returned pointer after the indication */ +/* has been processed. */ +/* */ +/* Parameters: */ +/* ST_VOID none */ +/* */ +/* Return: */ +/* N_UNITDATA * ptr to received N_UNITDATA.indication */ +/* NULL if N_UNITDATA.indication not received */ +/************************************************************************/ +N_UNITDATA *clnp_read (ST_VOID); + + +/************************************************************************/ +/* clnp_write */ +/*----------------------------------------------------------------------*/ +/* This function is used by the CLNP-user to write N_UNITDATA.request */ +/* to the CLNP. */ +/* The CLNP will free the req pointer. */ +/* */ +/* Parameters: */ +/* N_UNITDATA *req ptr to N_UNITDATA.request to send */ +/* This pointer should be allocated using */ +/* the clnp_alloc function. */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if N_UNITDATA.request sent successfully */ +/* error code otherwise */ +/************************************************************************/ +ST_RET clnp_write (N_UNITDATA *req); + + +/************************************************************************/ +/* clnp_timer_tick */ +/*----------------------------------------------------------------------*/ +/* This function is called on 1 second intervals by the CLNP-user (TP4) */ +/* When this function is called, CLNP decrements the Configuration */ +/* Timer (used to trigger sending of ES-Hellos), and the Holding Timers */ +/* (used to trigger clearing the {NSAP,MAC} table entries). */ +/* */ +/* Parameters: */ +/* ST_VOID none */ +/* */ +/* Return: */ +/* ST_VOID none */ +/************************************************************************/ +ST_VOID clnp_timer_tick (ST_VOID); + + +/************************************************************************/ +/* clnp_config */ +/*----------------------------------------------------------------------*/ +/* This function will initialize the CLNP parameters. */ +/* */ +/* Parameters: */ +/* ST_VOID none */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if configuration successful */ +/* error code otherwise */ +/************************************************************************/ +ST_RET clnp_config (ST_VOID); + +/************************************************************************/ +/* clnp_status */ +/*----------------------------------------------------------------------*/ +/* This function checks to see if CLNP is running. */ +/* */ +/* Return: */ +/* SD_SUCCESS if running, else error code. */ +/************************************************************************/ +ST_RET clnp_status (ST_VOID); + +/************************************************************************/ +/* Multi-threading prototypes and externs. */ +/************************************************************************/ +ST_RET clnp_read_thread_start (ST_VOID); +N_UNITDATA *clnp_read_main (ST_VOID); +N_UNITDATA *clnp_read_goose (ST_VOID); + +extern N_UNITDATA * (*clnp_read_fun_cl) (ST_VOID); /* Function ptr.*/ +extern N_UNITDATA * (*clnp_read_fun_co) (ST_VOID); /* Function ptr.*/ +extern ST_EVENT_SEM hMMSEvent; +extern ST_EVENT_SEM hMainEvent; +extern ST_EVENT_SEM hGooseEvent; + +#ifdef __cplusplus +} +#endif + +#endif /* end of 'already included' */ + + diff --git a/include/inc/clnpport.h b/include/inc/clnpport.h new file mode 100644 index 0000000..6b83b2b --- /dev/null +++ b/include/inc/clnpport.h @@ -0,0 +1,52 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1996, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : clnpport.h */ +/* PRODUCT(S) : Lean-T Stack */ +/* */ +/* MODULE DESCRIPTION : */ +/* This header file specifies defines which should be */ +/* ported for use by specific system. */ +/* */ +/* For information see the: */ +/* ISO 8473 "Information processing systems - Data communication - */ +/* Protocol providing the connectionless-mode network service"; */ +/* ISO 8348 "Information processing systems - Data communication - */ +/* Network service definition. Addendum 1: Connectionless-mode */ +/* transmission". */ +/* ISO 9542 "Information processing systems - Telecommunications */ +/* and information exchange beetween systems - End system to */ +/* Intermediate system routing exchange protocol for use with */ +/* ISO 8473. */ +/* */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 05/06/97 EJV 02 Removed SWAP_SHORT macro */ +/* 05/31/96 EJV 01 Created */ +/************************************************************************/ + +#ifndef CLNPPORT_INCLUDED +#define CLNPPORT_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +/* NOTE: This file currently is empty. It may be used in the future */ +/* to implement code specific to an operating system. */ + +#endif +#ifdef __cplusplus +} + +#endif /* end of 'already included' */ diff --git a/include/inc/conpack.h b/include/inc/conpack.h new file mode 100644 index 0000000..d237441 --- /dev/null +++ b/include/inc/conpack.h @@ -0,0 +1,101 @@ +#define NDIS_PACKET_TYPE_DIRECTED 0x0001 +#define NDIS_PACKET_TYPE_MULTICAST 0x0002 +#define NDIS_PACKET_TYPE_ALL_MULTICAST 0x0004 +#define NDIS_PACKET_TYPE_BROADCAST 0x0008 +#define NDIS_PACKET_TYPE_SOURCE_ROUTING 0x0010 +#define NDIS_PACKET_TYPE_PROMISCUOUS 0x0020 +#define NDIS_PACKET_TYPE_SMT 0x0040 +#define NDIS_PACKET_TYPE_MAC_FRAME 0x8000 +#define NDIS_PACKET_TYPE_FUNCTIONAL 0x4000 +#define NDIS_PACKET_TYPE_ALL_FUNCTIONAL 0x2000 +#define NDIS_PACKET_TYPE_GROUP 0x1000 + +#define OID_GEN_SUPPORTED_LIST 0x00010101 +#define OID_GEN_HARDWARE_STATUS 0x00010102 +#define OID_GEN_MEDIA_SUPPORTED 0x00010103 +#define OID_GEN_MEDIA_IN_USE 0x00010104 +#define OID_GEN_MAXIMUM_LOOKAHEAD 0x00010105 +#define OID_GEN_MAXIMUM_FRAME_SIZE 0x00010106 +#define OID_GEN_LINK_SPEED 0x00010107 +#define OID_GEN_TRANSMIT_BUFFER_SPACE 0x00010108 +#define OID_GEN_RECEIVE_BUFFER_SPACE 0x00010109 +#define OID_GEN_TRANSMIT_BLOCK_SIZE 0x0001010A +#define OID_GEN_RECEIVE_BLOCK_SIZE 0x0001010B +#define OID_GEN_VENDOR_ID 0x0001010C +#define OID_GEN_VENDOR_DESCRIPTION 0x0001010D +#define OID_GEN_CURRENT_PACKET_FILTER 0x0001010E +#define OID_GEN_CURRENT_LOOKAHEAD 0x0001010F +#define OID_GEN_DRIVER_VERSION 0x00010110 +#define OID_GEN_MAXIMUM_TOTAL_SIZE 0x00010111 +#define OID_GEN_PROTOCOL_OPTIONS 0x00010112 +#define OID_GEN_MAC_OPTIONS 0x00010113 + +#define OID_GEN_XMIT_OK 0x00020101 +#define OID_GEN_RCV_OK 0x00020102 +#define OID_GEN_XMIT_ERROR 0x00020103 +#define OID_GEN_RCV_ERROR 0x00020104 +#define OID_GEN_RCV_NO_BUFFER 0x00020105 + +#define OID_GEN_DIRECTED_BYTES_XMIT 0x00020201 +#define OID_GEN_DIRECTED_FRAMES_XMIT 0x00020202 +#define OID_GEN_MULTICAST_BYTES_XMIT 0x00020203 +#define OID_GEN_MULTICAST_FRAMES_XMIT 0x00020204 +#define OID_GEN_BROADCAST_BYTES_XMIT 0x00020205 +#define OID_GEN_BROADCAST_FRAMES_XMIT 0x00020206 +#define OID_GEN_DIRECTED_BYTES_RCV 0x00020207 +#define OID_GEN_DIRECTED_FRAMES_RCV 0x00020208 +#define OID_GEN_MULTICAST_BYTES_RCV 0x00020209 +#define OID_GEN_MULTICAST_FRAMES_RCV 0x0002020A +#define OID_GEN_BROADCAST_BYTES_RCV 0x0002020B +#define OID_GEN_BROADCAST_FRAMES_RCV 0x0002020C + +#define OID_GEN_RCV_CRC_ERROR 0x0002020D +#define OID_GEN_TRANSMIT_QUEUE_LENGTH 0x0002020E + + +// +// 802.3 Objects (Ethernet) +// + +#define OID_802_3_PERMANENT_ADDRESS 0x01010101 +#define OID_802_3_CURRENT_ADDRESS 0x01010102 +#define OID_802_3_MULTICAST_LIST 0x01010103 +#define OID_802_3_MAXIMUM_LIST_SIZE 0x01010104 + +#define OID_802_3_RCV_ERROR_ALIGNMENT 0x01020101 +#define OID_802_3_XMIT_ONE_COLLISION 0x01020102 +#define OID_802_3_XMIT_MORE_COLLISIONS 0x01020103 + +#define OID_802_3_XMIT_DEFERRED 0x01020201 +#define OID_802_3_XMIT_MAX_COLLISIONS 0x01020202 +#define OID_802_3_RCV_OVERRUN 0x01020203 +#define OID_802_3_XMIT_UNDERRUN 0x01020204 +#define OID_802_3_XMIT_HEARTBEAT_FAILURE 0x01020205 +#define OID_802_3_XMIT_TIMES_CRS_LOST 0x01020206 +#define OID_802_3_XMIT_LATE_COLLISIONS 0x01020207 + +// +// WAN objects +// + +#define OID_WAN_PERMANENT_ADDRESS 0x04010101 +#define OID_WAN_CURRENT_ADDRESS 0x04010102 +#define OID_WAN_QUALITY_OF_SERVICE 0x04010103 +#define OID_WAN_PROTOCOL_TYPE 0x04010104 +#define OID_WAN_MEDIUM_SUBTYPE 0x04010105 +#define OID_WAN_HEADER_FORMAT 0x04010106 + +#define OID_WAN_GET_INFO 0x04010107 +#define OID_WAN_SET_LINK_INFO 0x04010108 +#define OID_WAN_GET_LINK_INFO 0x04010109 + +#define OID_WAN_LINE_COUNT 0x0401010A + +#define OID_WAN_GET_BRIDGE_INFO 0x0401020A +#define OID_WAN_SET_BRIDGE_INFO 0x0401020B +#define OID_WAN_GET_COMP_INFO 0x0401020C +#define OID_WAN_SET_COMP_INFO 0x0401020D +#define OID_WAN_GET_STATS_INFO 0x0401020E + + + diff --git a/include/inc/copp.h b/include/inc/copp.h new file mode 100644 index 0000000..d03b1b9 --- /dev/null +++ b/include/inc/copp.h @@ -0,0 +1,68 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1997, All Rights Reserved */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : copp.h */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : */ +/* COPP internal header file. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/11/01 JRB 04 Convert to use ASN1R. */ +/* 02/20/98 JRB 03 Chg abort_reason to ST_INT8 too. */ +/* 12/22/97 JRB 02 Use ST_INT8. */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 03/05/97 JRB 01 Created. */ +/************************************************************************/ + +#ifndef COPP_INCLUDED +#define COPP_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "copp_usr.h" +#include "copp_log.h" + + /*======================================================*/ + /* C O N N E C T I O N S T A T E S */ + /*======================================================*/ + +/* Valid states, the first IDLE state must be 0) */ +#define COPP_STATE_IDLE 0 +#define COPP_STATE_AWAIT_CPA 1 +#define COPP_STATE_AWAIT_CON_RSP 2 +#define COPP_STATE_CONNECTED 3 + + /*======================================================*/ + /* PRESENTATION INTERNAL FUNCTIONS */ + /*======================================================*/ + +/* Function to encode and send ARP PPDU. */ +ST_VOID copp_p_abort_req (ACSE_CONN *acse_conn, ST_INT8 abort_reason, ST_INT8 event_id); +ST_VOID START_p_user_data (ASN1_DEC_CTXT *aCtx); + + /*======================================================*/ + /* PRESENTATION INTERNAL VARIABLES */ + /*======================================================*/ + +extern ST_UCHAR only_loc_psel []; /* Local len & PSEL */ +extern ST_BOOLEAN p_user_data_is_outer; /* Is P-User-data outermost constr?*/ + /* SD_TRUE or SD_FALSE */ + +/************************************************************************/ +#ifdef __cplusplus +} +#endif + +#endif /* COPP_INCLUDED */ +/************************************************************************/ + diff --git a/include/inc/copp_log.h b/include/inc/copp_log.h new file mode 100644 index 0000000..73b7298 --- /dev/null +++ b/include/inc/copp_log.h @@ -0,0 +1,167 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1997 - 2007, All Rights Reserved */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : copp_log.h */ +/* PRODUCT(S) : MOSI Stack (over TP4) */ +/* */ +/* MODULE DESCRIPTION : */ +/* This header file contains logging macros for COPP. */ +/* Note: To compile logging functions use the DEBUG_SISCO define */ +/* in the project make file. */ +/* */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 11/01/07 EJV 05 Updated COPP_LOG_* macros to use SLOG_n. */ +/* 09/13/99 MDE 04 Added SD_CONST modifiers */ +/* 10/08/98 MDE 03 Migrated to updated SLOG interface */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 03/19/97 JRB 02 General cleanup. */ +/* 02/20/97 EJV 01 Created */ +/************************************************************************/ + +#ifndef COPP_LOG_INCLUDED +#define COPP_LOG_INCLUDED + +#include "slog.h" + +#ifdef __cplusplus +extern "C" { +#endif + +/* NOTE: COPP log masks and acse_debug_sel are defined in acse2usr.h */ + +#if defined(DEBUG_SISCO) + +extern SD_CONST ST_CHAR *SD_CONST _copp_err_logstr; +extern SD_CONST ST_CHAR *SD_CONST _copp_dec_logstr; +extern SD_CONST ST_CHAR *SD_CONST _copp_dec_hex_logstr; +extern SD_CONST ST_CHAR *SD_CONST _copp_enc_logstr; +extern SD_CONST ST_CHAR *SD_CONST _copp_enc_hex_logstr; + + /*--------------------------------------------*/ + /* hard errors logging */ + /*--------------------------------------------*/ + + #define COPP_LOG_ERR0(a) \ + SLOG_0 (acse_debug_sel & COPP_LOG_ERR,_copp_err_logstr,a) + + #define COPP_LOG_ERR1(a,b) \ + SLOG_1 (acse_debug_sel & COPP_LOG_ERR,_copp_err_logstr,a,b) + + #define COPP_LOG_ERR2(a,b,c) \ + SLOG_2 (acse_debug_sel & COPP_LOG_ERR,_copp_err_logstr,a,b, c) + + #define COPP_LOG_ERR3(a,b,c,d) \ + SLOG_3 (acse_debug_sel & COPP_LOG_ERR,_copp_err_logstr,a,b, c,d) + + /*--------------------------------------------*/ + /* PS-user req and rsp logging */ + /*--------------------------------------------*/ + + #define COPP_LOG_ENC0(a) \ + SLOG_0 (acse_debug_sel & COPP_LOG_ENC,_copp_enc_logstr,a) + + #define COPP_LOG_ENC1(a,b) \ + SLOG_1 (acse_debug_sel & COPP_LOG_ENC,_copp_enc_logstr,a,b) + + #define COPP_LOG_ENC2(a,b,c) \ + SLOG_2 (acse_debug_sel & COPP_LOG_ENC,_copp_enc_logstr,a,b,c) + + #define COPP_LOG_ENC3(a,b,c,d) \ + SLOG_3 (acse_debug_sel & COPP_LOG_ENC,_copp_enc_logstr,a,b,c,d) + + #define COPP_LOG_ENC4(a,b,c,d,e) \ + SLOG_4 (acse_debug_sel & COPP_LOG_ENC,_copp_enc_logstr,a,b,c,d,e) + + /* continuation macros */ + #define COPP_LOG_ENCC0(a) \ + SLOGC_0 (acse_debug_sel & COPP_LOG_ENC,a) + + #define COPP_LOG_ENCC1(a,b) \ + SLOGC_1 (acse_debug_sel & COPP_LOG_ENC,a,b) + + /* hex logging */ + #define COPP_LOG_ENCH(a,b) \ + SLOGH (acse_debug_sel & COPP_LOG_ENC,a,b) + + /*--------------------------------------------*/ + /* PS-user ind and cnf logging */ + /*--------------------------------------------*/ + + #define COPP_LOG_DEC0(a) \ + SLOG_0 (acse_debug_sel & COPP_LOG_DEC,_copp_dec_logstr,a) + + #define COPP_LOG_DEC1(a,b) \ + SLOG_1 (acse_debug_sel & COPP_LOG_DEC,_copp_dec_logstr,a,b) + + #define COPP_LOG_DEC2(a,b,c) \ + SLOG_2 (acse_debug_sel & COPP_LOG_DEC,_copp_dec_logstr,a,b,c) + + #define COPP_LOG_DEC3(a,b,c,d) \ + SLOG_3 (acse_debug_sel & COPP_LOG_DEC,_copp_dec_logstr,a,b,c,d) + + #define COPP_LOG_DEC4(a,b,c,d,e) \ + SLOG_4 (acse_debug_sel & COPP_LOG_DEC,_copp_dec_logstr,a,b,c,d,e) + + /* continuation macros */ + #define COPP_LOG_DECC0(a) \ + SLOGC_0 (acse_debug_sel & COPP_LOG_DEC,a) + + #define COPP_LOG_DECC1(a,b) \ + SLOGC_1 (acse_debug_sel & COPP_LOG_DEC,a,b) + + /* hex logging */ + #define COPP_LOG_DECH(a,b) \ + SLOGH (acse_debug_sel & COPP_LOG_DEC,a,b) + +#else + /*--------------------------------------------*/ + /* hard errors logging */ + /*--------------------------------------------*/ + + #define COPP_LOG_ERR0(a) + #define COPP_LOG_ERR1(a,b) + #define COPP_LOG_ERR2(a,b,c) + #define COPP_LOG_ERR3(a,b,c,d) + + /*--------------------------------------------*/ + /* PS-user req and rsp logging */ + /*--------------------------------------------*/ + + #define COPP_LOG_ENC0(a) + #define COPP_LOG_ENC1(a,b) + #define COPP_LOG_ENC2(a,b,c) + #define COPP_LOG_ENC3(a,b,c,d) + #define COPP_LOG_ENC4(a,b,c,d,e) + #define COPP_LOG_ENCC0(a) + #define COPP_LOG_ENCC1(a,b) + #define COPP_LOG_ENCH(a,b) + + /*--------------------------------------------*/ + /* PS-user ind and cnf logging */ + /*--------------------------------------------*/ + + #define COPP_LOG_DEC0(a) + #define COPP_LOG_DEC1(a,b) + #define COPP_LOG_DEC2(a,b,c) + #define COPP_LOG_DEC3(a,b,c,d) + #define COPP_LOG_DEC4(a,b,c,d,e) + #define COPP_LOG_DECC0(a) + #define COPP_LOG_DECC1(a,b) + #define COPP_LOG_DECH(a,b) + +#endif + + +#ifdef __cplusplus +} +#endif + +#endif /* end of 'already included' */ diff --git a/include/inc/copp_usr.h b/include/inc/copp_usr.h new file mode 100644 index 0000000..4715da3 --- /dev/null +++ b/include/inc/copp_usr.h @@ -0,0 +1,193 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1997-2001, All Rights Reserved */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : copp_usr.h */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : */ +/* COPP user header file. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/11/01 JRB 05 Convert to use ASN1R. */ +/* 08/13/98 JRB 04 Lint cleanup. */ +/* 06/17/98 JRB 03 Add error codes. */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 03/19/97 JRB 02 Add "CALLING" support. General cleanup. */ +/* 03/05/97 JRB 01 Created. */ +/************************************************************************/ + +#ifndef COPP_USR_INCLUDED +#define COPP_USR_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + + /*======================================================*/ + /* PRESENTATION USER DEFINES */ + /* */ + /*======================================================*/ +/* Defines used for encoded values of "Provider-reason". */ +/* Used in encode/decode of CPR (Connect Presentation Reject PPDU). */ +#define PROV_REASON_NOT_SPECIFIED 0 +#define PROV_REASON_CONGESTION 1 +#define PROV_REASON_LOCAL_LIMIT 2 +#define PROV_REASON_CALLED_PRES_ADDR 3 +#define PROV_REASON_VERSION 4 +#define PROV_REASON_DEFAULT_CONTEXT 5 +#define PROV_REASON_USER_DATA 6 +#define PROV_REASON_NO_PSAP 7 + +/* Defines for P-CONNECT.cnf result parameter */ +#define P_CON_RESULT_ACCEPT 0 +#define P_CON_RESULT_USER_REJ 1 +#define P_CON_RESULT_PROVIDER_REJ 2 + + /*======================================================*/ + /* PRESENTATION ERROR CODES */ + /* */ + /*======================================================*/ + +/* NOTE: Values begin from E_COPP (found in glberror.h). */ + +/* COPP general errors */ +#define COPP_ERR_INV_PSEL 0x3101 /* Invalid local PSEL */ +#define COPP_ERR_INV_STATE 0x3102 /* Invalid connect state */ + + /*======================================================*/ + /* PRESENTATION GLOBAL VARIABLES */ + /* */ + /*======================================================*/ +extern ST_CHAR expected_pdv_pci; +extern ST_UCHAR *pdv_data_ptr; +extern ST_INT pdv_data_len; + + /*======================================================*/ + /* PRESENTATION PROVIDER FUNCTIONS */ + /* */ + /* Called by user to encode and send */ + /* Presentation PDUs. */ + /*======================================================*/ + +/************************************************************************/ +/* copp_con_req */ +/* P-Connect Request. */ +/************************************************************************/ +ST_RET copp_con_req (ST_LONG copp_bind_id, ACSE_CONN *acse_conn, PRES_ADDR *rem_addr); + +/************************************************************************/ +/* copp_rel_req */ +/* P-Release Request. */ +/************************************************************************/ +ST_RET copp_rel_req (ACSE_CONN *acse_conn); + +/************************************************************************/ +/* copp_con_rsp_pos */ +/* P-Connect Accept. */ +/************************************************************************/ +ST_RET copp_con_rsp_pos (ACSE_CONN *acse_conn); + +/************************************************************************/ +/* copp_con_rsp_neg */ +/* P-Connect Reject. */ +/* If "provider_reason" < 0, this is "user-reject", else this is */ +/* "provider-reject" and the value of "provider_reason" will be */ +/* encoded in the "Provider-reason" parameter of the PPDU. */ +/************************************************************************/ +ST_RET copp_con_rsp_neg (ACSE_CONN *acse_conn, ST_INT provider_reason); + +/************************************************************************/ +/* copp_rel_rsp_pos */ +/* P-Release Positive Response. */ +/************************************************************************/ +ST_RET copp_rel_rsp_pos (ACSE_CONN *acse_conn); + +/************************************************************************/ +/* copp_u_abort_req */ +/* P-U-Abort Request. */ +/************************************************************************/ +ST_RET copp_u_abort_req (ACSE_CONN *acse_conn); + +/************************************************************************/ +/* copp_data_req */ +/* P-Data Request. */ +/************************************************************************/ +ST_RET copp_data_req (ACSE_CONN *acse_conn); + + + /*======================================================*/ + /* PRESENTATION USER FUNCTIONS */ + /* */ + /* Called by Presentation to pass decoded */ + /* Presentation PDUs up to user. */ + /*======================================================*/ + +/************************************************************************/ +/* u_copp_con_cnf */ +/* P-CONNECT.cnf (Connect Confirm). */ +/* Parameters: */ +/* acse_conn Pointer to connection info */ +/* result P_CON_RESULT_ACCEPT, P_CON_RESULT_USER_REJ or */ +/* P_CON_RESULT_PROVIDER_REJ */ +/* reason Provider-reason (if result=P_CON_RESULT_PROVIDER_REJ)*/ +/************************************************************************/ +ST_VOID u_copp_con_cnf (ACSE_CONN *acse_conn, ST_INT result, ST_INT reason); + +/************************************************************************/ +/* u_copp_rel_cnf_pos */ +/* P-RELEASE.cnf+ (POSITIVE Release Confirm). */ +/************************************************************************/ +ST_VOID u_copp_rel_cnf_pos (ACSE_CONN *acse_conn); + +/************************************************************************/ +/* u_copp_con_ind */ +/* P-Connect Indication. */ +/************************************************************************/ +ST_VOID u_copp_con_ind (ST_LONG user_bind_id, ACSE_CONN *acse_conn); + +/************************************************************************/ +/* u_copp_rel_ind */ +/* P-Release Indication. */ +/************************************************************************/ +ST_VOID u_copp_rel_ind (ACSE_CONN *acse_conn); + +/************************************************************************/ +/* u_copp_p_abort_ind */ +/* P-P-Abort Indication. */ +/************************************************************************/ +ST_VOID u_copp_p_abort_ind (ACSE_CONN *acse_conn, ST_INT reason); + +/************************************************************************/ +/* u_copp_u_abort_ind */ +/* P-U-Abort Indication. */ +/************************************************************************/ +ST_VOID u_copp_u_abort_ind (ACSE_CONN *acse_conn); + +/************************************************************************/ +/* u_copp_data_ind */ +/* P-Data Indication. */ +/************************************************************************/ +ST_VOID u_copp_data_ind (ACSE_CONN *acse_conn); + +/************************************************************************/ +/* START_pdv_list */ +/* ASN.1 decode function that may be used by Presentation-user */ +/* (i.e. ACSE) for decoding a "PDV-list" (same encoding as "EXTERNAL"). */ +/************************************************************************/ +ST_VOID START_pdv_list (ASN1_DEC_CTXT *aCtx); + +/************************************************************************/ +#ifdef __cplusplus +} +#endif + +#endif /* COPP_USR_INCLUDED */ +/************************************************************************/ + diff --git a/include/inc/cosp.h b/include/inc/cosp.h new file mode 100644 index 0000000..e25d01f --- /dev/null +++ b/include/inc/cosp.h @@ -0,0 +1,199 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1997, All Rights Reserved */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : cosp.h */ +/* PRODUCT(S) : MOSI Stack (over TP4) */ +/* */ +/* MODULE DESCRIPTION : */ +/* This header file defines variable and functions */ +/* internal to the COSP (decoding and encoding). */ +/* */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 09/12/01 JRB 03 Reverse cosp_enc_cn_ac change (not needed). */ +/* 08/01/01 JRB 02 Del rem_addr from cosp_enc_cn_ac proto. */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 01/13/97 EJV 01 Created */ +/************************************************************************/ +#ifndef COSP_INCLUDED +#define COSP_INCLUDED + + +#ifdef __cplusplus +extern "C" { +#endif + + +extern ST_UCHAR cosp_only_ssel [1+MAX_SSEL_LEN]; + + + /*======================================================*/ + /* */ + /* C O N N E C T I O N S T A T E S */ + /* */ + /*======================================================*/ + + +/* Valid states, the first IDLE state must be 0) */ +#define COSP_CSTATE_IDLE 0 /* idle, transport not connected*/ +#define COSP_CSTATE_WAIT_TCON_CNF 1 /* wait T-CONNECT.cnf */ +#define COSP_CSTATE_IDLE_TCON 100 /* idle, transport connected */ +#define COSP_CSTATE_WAIT_AC 2 /* wait for ACCEPT SPDU */ +#define COSP_CSTATE_WAIT_DN 3 /* wait for DISCONNECT SPDU */ +#define COSP_CSTATE_WAIT_CON_RSP 8 /* wait S-CONNECT.rsp */ +#define COSP_CSTATE_WAIT_REL_RSP 9 /* wait for S-RELEASE.rsp */ +#define COSP_CSTATE_WAIT_TDISCON_IND 16 /* wait T-DISCONNECT.ind */ +#define COSP_CSTATE_DATA_XFER 713 /* Data Transfer state */ + + /*======================================================*/ + /* */ + /* C O S P P R O T O C O L D E F I N E S */ + /* */ + /* D E C O D E D S P D U S T R U C T U R E S */ + /* */ + /*======================================================*/ + + +/* Encoding for supported COSP versions codes */ +#define COSP_VER1 (ST_UCHAR) 1 +#define COSP_VER2 (ST_UCHAR) 2 + + +/* Encoding of SPDU Session Identifier (SI) codes */ +#define COSP_SI_DATA (ST_UCHAR) 1 +#define COSP_SI_GIVE_TOKEN (ST_UCHAR) 1 /* this is correct DT=GIVE-TOKEN */ +#define COSP_SI_FINISH (ST_UCHAR) 9 +#define COSP_SI_DISCON (ST_UCHAR) 10 +#define COSP_SI_REFUSE (ST_UCHAR) 12 +#define COSP_SI_CONNECT (ST_UCHAR) 13 +#define COSP_SI_ACCEPT (ST_UCHAR) 14 +#define COSP_SI_ABORT (ST_UCHAR) 25 +#define COSP_SI_AB_ACCEPT (ST_UCHAR) 26 + + +/* struct used to store decoded params from CONNECT or ACCEPT SPDU */ +typedef struct tagCOSP_CN_AC + { + ST_UCHAR prot_option; + ST_UINT16 initiator_tsdu_size; + ST_UINT16 responder_tsdu_size; + ST_UCHAR ver_num; + ST_UCHAR ses_urequir [2]; /* byte0 (bits 9-16), byte1 (bits 1-8)*/ + ST_UCHAR loc_ssel [1+MAX_SSEL_LEN]; + ST_UCHAR rem_ssel [1+MAX_SSEL_LEN]; + ST_UINT udata_len; /* SS-user data length */ + ST_UCHAR *udata_ptr; /* SS-user data pointer */ + }COSP_CN_AC; + + +/* Encoding for Reason Code PI in a REFUSE SPDU generated by SS-user */ +#define COSP_RF_REASON_U_NOT_SPECIFIED (ST_UCHAR) 0 +#define COSP_RF_REASON_U_CONGESTION (ST_UCHAR) 1 +#define COSP_RF_REASON_U_REJECT (ST_UCHAR) 2 +/* Encoding for Reason Code PI in a REFUSE SPDU generated by SS-provider */ +#define COSP_RF_REASON_S_INV_SSEL (ST_UCHAR) 128+1 +#define COSP_RF_REASON_S_NOT_ATTACHED (ST_UCHAR) 128+2 +#define COSP_RF_REASON_S_CONGESTION (ST_UCHAR) 128+3 +#define COSP_RF_REASON_S_INV_VERSION (ST_UCHAR) 128+4 +#define COSP_RF_REASON_S_NOT_SPECIFIED (ST_UCHAR) 128+5 +#define COSP_RF_REASON_S_RESTRICTIONS (ST_UCHAR) 128+6 + + +/* struct used to store decoded params from REFUSE SPDU */ +typedef struct tagCOSP_RF + { + ST_BOOLEAN disconnect; /* if SD_TRUE then disconnect transport */ + ST_UCHAR ver_num; + ST_UCHAR reason; /* reason code for refuse connection */ + ST_UCHAR ses_urequir [2]; /* byte0 (bits 9-16), byte1 (bits 1-8) */ + ST_UINT udata_len; /* SS-user data length */ + ST_UCHAR *udata_ptr; /* SS-user data pointer */ + }COSP_RF; + + +#define COSP_P_AB_SPDU_LEN 9 /* P-ABORT is fixed in size */ + +/* Encoding for Transport Disconnect PI in an ABORT (and FINISH) SPDU */ +#define COSP_TCONN_KEEP (ST_UCHAR) 0x00 +#define COSP_TCONN_RELEASE (ST_UCHAR) 0x01 +/* | with one reason code below */ +#define COSP_AB_REASON_USER_ABORT (ST_UCHAR) 0x02 +#define COSP_AB_REASON_PROT_ERROR (ST_UCHAR) 0x04 +#define COSP_AB_REASON_NO_REASON (ST_UCHAR) 0x08 +#define COSP_AB_REASON_IMPLEMENTATION (ST_UCHAR) 0x10 + + +/* struct used to store decoded params from ABORT SPDU */ +typedef struct tagCOSP_AB + { + ST_BOOLEAN disconnect; /* if SD_TRUE then disconnect transport */ + ST_UCHAR reason; /* reason code for abort connection */ + ST_UINT reflect_par_len; /* Reflect param length */ + ST_UCHAR reflect_par [9]; /* Reflect param */ + ST_UINT udata_len; /* SS-user data length */ + ST_UCHAR *udata_ptr; /* SS-user data pointer */ + }COSP_AB; + + +/* struct used to store decoded params from FINISH SPDU */ +typedef struct tagCOSP_FN_DN + { + ST_BOOLEAN disconnect; /* SD_TRUE to discon transport (FN)*/ + ST_UINT udata_len; /* SS-user data length */ + ST_UCHAR *udata_ptr; /* SS-user data pointer */ + }COSP_FN_DN; + +/* struct used to store decoded params from DATA SPDU */ +typedef struct tagCOSP_DT + { + ST_UINT udata_len; /* SS-user data length */ + ST_UCHAR *udata_ptr; /* SS-user data pointer */ + }COSP_DT; + + + + /*======================================================*/ + /* */ + /* E N C O D E / D E C O D E F U N C T I O N S */ + /* */ + /*======================================================*/ + +/* cosp_enc.c */ +ST_UINT cosp_envelope_len (ACSE_CONN *con, ST_UINT rem_ssel_len, ST_UCHAR spdu_type); + +ST_RET cosp_enc_cn_ac (ACSE_CONN *con, PRES_ADDR *rem_addr, + char **spdu_ptr, ST_UINT *spdu_len, ST_UCHAR spdu_type); +ST_RET cosp_enc_rf (ACSE_CONN *con, char **spdu_ptr, ST_UINT *spdu_len, ST_UCHAR reason); +ST_RET cosp_enc_fn_dn (ACSE_CONN *con, char **spdu_ptr, ST_UINT *spdu_len, ST_UCHAR spdu_type); +ST_RET cosp_enc_u_ab (ACSE_CONN *con, char **spdu_ptr, ST_UINT *spdu_len); +ST_RET cosp_enc_p_ab (char *spdu_ptr, ST_INT err_code); +ST_RET cosp_enc_dt (ACSE_CONN *con, char **spdu_ptr, ST_UINT *spdu_len); + +/* cosp_dec.c */ +ST_RET cosp_dec_cn_ac (COSP_CN_AC *dec_par, char *spdu_buf, ST_UINT spdu_len, ST_UCHAR spdu_type); +ST_RET cosp_dec_rf (COSP_RF *dec_par, char *spdu_buf, ST_UINT spdu_len); +ST_RET cosp_dec_fn_dn (COSP_FN_DN *dec_par, char *spdu_buf, ST_UINT spdu_len, ST_UCHAR spdu_type); +ST_RET cosp_dec_ab (COSP_AB *dec_par, char *spdu_buf, ST_UINT spdu_len); +ST_RET cosp_dec_dt (COSP_DT *dec_par, char *spdu_buf, ST_UINT spdu_len); + + + + +#ifdef __cplusplus +} +#endif + +#endif /* end of 'already included' */ + + + diff --git a/include/inc/cosp_log.h b/include/inc/cosp_log.h new file mode 100644 index 0000000..20c88e6 --- /dev/null +++ b/include/inc/cosp_log.h @@ -0,0 +1,214 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1997, All Rights Reserved */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : cosp_log.h */ +/* PRODUCT(S) : MOSI Stack (over TP4) */ +/* */ +/* MODULE DESCRIPTION : */ +/* This header file contains logging macros for COSP. */ +/* Note: To compile logging functions use the DEBUG_SISCO define */ +/* in the project make file. */ +/* */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 09/13/99 MDE 05 Added SD_CONST modifiers */ +/* 10/08/98 MDE 04 Migrated to updated SLOG interface */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 04/24/97 JRB 03 Added NO-DEBUG version of COSP_LOG_ERRH. */ +/* 03/20/97 EJV 02 Enhanced logging. */ +/* 02/13/97 EJV 01 Created */ +/************************************************************************/ +#ifndef COSP_LOG_INCLUDED +#define COSP_LOG_INCLUDED + +#include "slog.h" + +#ifdef __cplusplus +extern "C" { +#endif + + +/* NOTE: COSP log masks and acse_debug_sel are defined in acse2usr.h */ + + +#if defined(DEBUG_SISCO) + + /* this number will identify the log entry as COSP log */ + +extern SD_CONST ST_CHAR *SD_CONST _cosp_err_logstr; +extern SD_CONST ST_CHAR *SD_CONST _cosp_dec_logstr; +extern SD_CONST ST_CHAR *SD_CONST _cosp_dec_hex_logstr; +extern SD_CONST ST_CHAR *SD_CONST _cosp_enc_logstr; +extern SD_CONST ST_CHAR *SD_CONST _cosp_enc_hex_logstr; + + /*--------------------------------------------*/ + /* hard errors logging */ + /*--------------------------------------------*/ + + #define COSP_LOG_ERR0(a) {\ + if (acse_debug_sel & COSP_LOG_ERR)\ + _slog (sLogCtrl,_cosp_err_logstr,thisFileName,__LINE__,a);\ + } + #define COSP_LOG_ERR1(a,b) {\ + if (acse_debug_sel & COSP_LOG_ERR)\ + _slog (sLogCtrl,_cosp_err_logstr,thisFileName,__LINE__,a,b);\ + } + #define COSP_LOG_ERR2(a,b,c) {\ + if (acse_debug_sel & COSP_LOG_ERR)\ + _slog (sLogCtrl,_cosp_err_logstr,thisFileName,__LINE__,a,b,c);\ + } + #define COSP_LOG_ERR3(a,b,c,d) {\ + if (acse_debug_sel & COSP_LOG_ERR)\ + _slog (sLogCtrl,_cosp_err_logstr,thisFileName,__LINE__,a,b,c,d);\ + } + /* continuation macros */ + #define COSP_LOG_ERRC0(a) {\ + if (acse_debug_sel & COSP_LOG_ERR)\ + _slogc (sLogCtrl,a);\ + } + #define COSP_LOG_ERRC1(a,b) {\ + if (acse_debug_sel & COSP_LOG_ERR)\ + _slogc (sLogCtrl,a,b);\ + } + #define COSP_LOG_ERRC2(a,b,c) {\ + if (acse_debug_sel & COSP_LOG_ERR)\ + _slogc (sLogCtrl,a,b,c);\ + } + /* hex logging */ + #define COSP_LOG_ERRH(a,b) {\ + if (acse_debug_sel & COSP_LOG_ERR)\ + _slogHex (sLogCtrl,a,b);\ + } + + /*--------------------------------------------*/ + /* SS-user req and rsp logging */ + /*--------------------------------------------*/ + + #define COSP_LOG_ENC0(a) {\ + if (acse_debug_sel & COSP_LOG_ENC)\ + _slog (sLogCtrl,_cosp_enc_logstr,thisFileName,__LINE__,a);\ + } + #define COSP_LOG_ENC1(a,b) {\ + if (acse_debug_sel & COSP_LOG_ENC)\ + _slog (sLogCtrl,_cosp_enc_logstr,thisFileName,__LINE__,a,b);\ + } + #define COSP_LOG_ENC2(a,b,c) {\ + if (acse_debug_sel & COSP_LOG_ENC)\ + _slog (sLogCtrl,_cosp_enc_logstr,thisFileName,__LINE__,a,b,c);\ + } + #define COSP_LOG_ENC3(a,b,c,d) {\ + if (acse_debug_sel & COSP_LOG_ENC)\ + _slog (sLogCtrl,_cosp_enc_logstr,thisFileName,__LINE__,a,b,c,d);\ + } + #define COSP_LOG_ENC4(a,b,c,d,e) {\ + if (acse_debug_sel & COSP_LOG_ENC)\ + _slog (sLogCtrl,_cosp_enc_logstr,thisFileName,__LINE__,a,b,c,d,e);\ + } + /* continuation macros */ + #define COSP_LOG_ENCC0(a) {\ + if (acse_debug_sel & COSP_LOG_ENC)\ + _slogc (sLogCtrl,a);\ + } + #define COSP_LOG_ENCC1(a,b) {\ + if (acse_debug_sel & COSP_LOG_ENC)\ + _slogc (sLogCtrl,a,b);\ + } + /* hex logging */ + #define COSP_LOG_ENCH(a,b) {\ + if (acse_debug_sel & COSP_LOG_ENC_HEX)\ + _slogHex (sLogCtrl,a,b);\ + } + + /*--------------------------------------------*/ + /* SS-user ind and cnf logging */ + /*--------------------------------------------*/ + + #define COSP_LOG_DEC0(a) {\ + if (acse_debug_sel & COSP_LOG_DEC)\ + _slog (sLogCtrl,_cosp_dec_logstr,thisFileName,__LINE__,a);\ + } + #define COSP_LOG_DEC1(a,b) {\ + if (acse_debug_sel & COSP_LOG_DEC)\ + _slog (sLogCtrl,_cosp_dec_logstr,thisFileName,__LINE__,a,b);\ + } + #define COSP_LOG_DEC2(a,b,c) {\ + if (acse_debug_sel & COSP_LOG_DEC)\ + _slog (sLogCtrl,_cosp_dec_logstr,thisFileName,__LINE__,a,b,c);\ + } + #define COSP_LOG_DEC3(a,b,c,d) {\ + if (acse_debug_sel & COSP_LOG_DEC)\ + _slog (sLogCtrl,_cosp_dec_logstr,thisFileName,__LINE__,a,b,c,d);\ + } + #define COSP_LOG_DEC4(a,b,c,d,e) {\ + if (acse_debug_sel & COSP_LOG_DEC)\ + _slog (sLogCtrl,_cosp_dec_logstr,thisFileName,__LINE__,a,b,c,d,e);\ + } + /* continuation macros */ + #define COSP_LOG_DECC0(a) {\ + if (acse_debug_sel & COSP_LOG_DEC)\ + _slogc (sLogCtrl,a);\ + } + #define COSP_LOG_DECC1(a,b) {\ + if (acse_debug_sel & COSP_LOG_DEC)\ + _slogc (sLogCtrl,a,b);\ + } + /* hex logging */ + #define COSP_LOG_DECH(a,b) {\ + if (acse_debug_sel & COSP_LOG_DEC_HEX)\ + _slogHex (sLogCtrl,a,b);\ + } +#else + /*--------------------------------------------*/ + /* hard errors logging */ + /*--------------------------------------------*/ + + #define COSP_LOG_ERR0(a) + #define COSP_LOG_ERR1(a,b) + #define COSP_LOG_ERR2(a,b,c) + #define COSP_LOG_ERR3(a,b,c,d) + #define COSP_LOG_ERRC0(a) + #define COSP_LOG_ERRC1(a,b) + #define COSP_LOG_ERRC2(a,b,c) + #define COSP_LOG_ERRH(a,b) + + /*--------------------------------------------*/ + /* SS-user req and rsp logging */ + /*--------------------------------------------*/ + + #define COSP_LOG_ENC0(a) + #define COSP_LOG_ENC1(a,b) + #define COSP_LOG_ENC2(a,b,c) + #define COSP_LOG_ENC3(a,b,c,d) + #define COSP_LOG_ENC4(a,b,c,d,e) + #define COSP_LOG_ENCC0(a) + #define COSP_LOG_ENCC1(a,b) + #define COSP_LOG_ENCH(a,b) + + /*--------------------------------------------*/ + /* SS-user ind and cnf logging */ + /*--------------------------------------------*/ + + #define COSP_LOG_DEC0(a) + #define COSP_LOG_DEC1(a,b) + #define COSP_LOG_DEC2(a,b,c) + #define COSP_LOG_DEC3(a,b,c,d) + #define COSP_LOG_DEC4(a,b,c,d,e) + #define COSP_LOG_DECC0(a) + #define COSP_LOG_DECC1(a,b) + #define COSP_LOG_DECH(a,b) + +#endif + + +#ifdef __cplusplus +} +#endif + +#endif /* end of 'already included' */ diff --git a/include/inc/cosp_usr.h b/include/inc/cosp_usr.h new file mode 100644 index 0000000..98e603e --- /dev/null +++ b/include/inc/cosp_usr.h @@ -0,0 +1,531 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1997, All Rights Reserved */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : cosp_usr.h */ +/* PRODUCT(S) : MOSI Stack (over TP4) */ +/* */ +/* MODULE DESCRIPTION : */ +/* This header file defines the interface between the */ +/* Connection-oriented Session Protocol (COSP) and the */ +/* Connection-oriented Presentation Layer (COPP) in order */ +/* to exchange Session Service Data Units (SSDU). */ +/* */ +/* For information see the: */ +/* ISO 8326 "Information processing systems - Open Systems */ +/* Interconnection - Basic connection oriented session service */ +/* definition. */ +/* ISO 8327 "Information processing systems - Open Systems */ +/* Interconnection - Basic connection oriented session protocol */ +/* specification. */ +/* ISO 8327/ADD.2 (Draft for Version2). */ +/* */ +/* */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* cosp_bind */ +/* u_cosp_bind_cnf */ +/* cosp_unbind */ +/* u_cosp_unbind_cnf */ +/* */ +/* cosp_con_req */ +/* u_cosp_con_cnf_pos */ +/* u_cosp_con_cnf_neg */ +/* */ +/* u_cosp_con_ind */ +/* cosp_con_rsp_pos */ +/* cosp_con_rsp_neg */ +/* */ +/* cosp_rel_req */ +/* u_cosp_rel_cnf_pos */ +/* */ +/* u_cosp_rel_ind */ +/* cosp_rel_rsp_pos */ +/* */ +/* cosp_u_abort_req */ +/* u_cosp_abort_ind */ +/* */ +/* cosp_data_req */ +/* u_cosp_data_ind */ +/* */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 04/10/97 JRB 02 Chg error defs to use base from "glberror.h".*/ +/* 01/10/97 EJV 01 Created */ +/************************************************************************/ +#ifndef COSP_USR_INCLUDED +#define COSP_USR_INCLUDED + + +#ifdef __cplusplus +extern "C" { +#endif + + + /*======================================================*/ + /* */ + /* C O S P S P E C I F I C D E F I N E S */ + /* */ + /*======================================================*/ + +/* Defines below specify limits on certain parameters for the COSP MOSI */ +/* Version2 implementation: */ + +#define COSP_MAX_UDATA_CON (ST_UINT) 10240 +#define COSP_MAX_ENVELOPE (ST_UINT) 56 +#define COSP_MAX_UDATA ((ST_UINT) 65535 - COSP_MAX_ENVELOPE) + + /*======================================================*/ + /* */ + /* Result and Reason Codes in S-CONNECT.cnf- */ + /* */ + /*======================================================*/ + +/* Result codes */ +#define COSP_CON_CNF_U_REJECT 1 +#define COSP_CON_CNF_P_REJECT 2 + +/* Reason codes in S-CONNECT.cnf- when result=COSP_CON_CNF_U_REJECT */ +#define COSP_CON_CNF_U_NOT_SPECIFIED 0 +#define COSP_CON_CNF_U_CONGESTION 1 +#define COSP_CON_CNF_U_IN_UDATA 2 /* udata = PPDU */ + +/* Valid reason codes in S-CONNECT.cnf- when result=COSP_CON_CNF_P_REJECT */ +#define COSP_CON_CNF_P_NOT_SPECIFIED 3 /* or version not supported, */ + /* or implementation restrictions */ +#define COSP_CON_CNF_P_CONGESTION 4 +#define COSP_CON_CNF_P_INV_SSEL 5 /* called Session Address unknown */ +#define COSP_CON_CNF_P_NOT_ATTACHED 6 /* called SS-user not attached to SSAP */ + + + /*======================================================*/ + /* */ + /* Reason Codes in S-CONNECT.rsp- */ + /* */ + /*======================================================*/ + +/* Reason codes in S-CONNECT.rsp- (if connection rejected) */ +#define COSP_CON_RSP_U_NOT_SPECIFIED 0 +#define COSP_CON_RSP_U_CONGESTION 1 +#define COSP_CON_RSP_U_IN_UDATA 2 /* udata = PPDU */ + + + /*======================================================*/ + /* */ + /* Reason Codes in S-P-ABORT.ind */ + /* */ + /*======================================================*/ + +#define COSP_P_AB_IND_TP_DISCON 0 +#define COSP_P_AB_IND_PROT_ERR 1 +#define COSP_P_AB_IND_UNDEFINED 2 + + + /*======================================================*/ + /* */ + /* C O S P E R R O R C O D E S */ + /* */ + /*======================================================*/ + +/* NOTE: Values begin from E_COSP (found in glberror.h). */ + +/* COSP general errors */ +#define COSP_ERR_BIND_STATE 0x3201 /* Invalid Bind state->already called*/ +#define COSP_ERR_TP4_RET 0x3202 /* Transport layer returned error */ +#define COSP_ERR_INV_TP4_ADDR 0x3203 /* Transport address invalid */ +#define COSP_ERR_INV_CON_STATE 0x3204 /* Invalid connect state */ +#define COSP_ERR_INV_SSEL 0x3205 /* Invalid local SSEL length */ +#define COSP_ERR_INV_UDATA_LEN 0x3206 /* Invalid User Data length */ +#define COSP_ERR_INV_POINTER 0x3207 /* Invalid pointer to encode buffer */ + +/* COSP PDU decoding errors */ +#define COSP_ERR_DEC_INV_SPDU 0x3210 /* Invalid/not-supp. SPDU SI rcvd */ +#define COSP_ERR_DEC_INV_LEN 0x3211 /* Invalid SPDU len (dec vs fun len) */ +#define COSP_ERR_DEC_INV_PI_CODE 0x3212 /* Invalid/out-of-place PGI/PI code */ +#define COSP_ERR_DEC_INV_LOC_SSEL 0x3213 /* SPDU not addressed to local SSEL */ +#define COSP_ERR_DEC_INV_PROT_OPT 0x3214 /* Extended SPDU concat not supp. */ +#define COSP_ERR_DEC_INV_SEG 0x3215 /* Invalid/not-supp. SSDU Segmenting */ +#define COSP_ERR_DEC_INV_PROT_VER 0x3216 /* Invalid/not-supp. prot version */ +#define COSP_ERR_DEC_INV_FUN_UNITS 0x3217 /* Invalid/not-supp. FU in Ses Req. */ +#define COSP_ERR_DEC_INV_RF_UDATA 0x3218 /* Invalid udata len,len>0 reason!=2 */ +#define COSP_ERR_DEC_INV_AB_RP 0x3219 /* Inv len of Reflect Par in AB SPDU */ + + + /*======================================================*/ + /* */ + /* B I N D I N G F U N C T I O N S */ + /* */ + /*======================================================*/ + +/************************************************************************/ +/* cosp_bind */ +/*----------------------------------------------------------------------*/ +/* Function called by SS-user to bind to local Session Address. */ +/* The SS-user should implement the u_cosp_bind_cnf function. */ +/* */ +/* Parameters: */ +/* ST_LONG cosp_user_bind_id COSP User's id for this binding.*/ +/* PRES_ADDR *loc_addr Local Address to bind to */ +/* ST_INT sharable Ignored, (for compatibility with*/ +/* ST_INT max_conns Ignored, previous versions) */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if bind successful */ +/* error code otherwise */ +/************************************************************************/ +ST_RET cosp_bind (ST_LONG cosp_user_bind_id, PRES_ADDR *loc_addr, + ST_INT sharable, ST_INT max_conns); + + +/************************************************************************/ +/* u_cosp_bind_cnf */ +/*----------------------------------------------------------------------*/ +/* This function is called by the SS-provider to indicate the result of */ +/* the bind operation (see cosp_bind func). */ +/* */ +/* Parameters: */ +/* ST_LONG cosp_user_bind_id COSP User's id for this binding. */ +/* ST_LONG cosp_bind_id COSP id for this binding. */ +/* ST_RET result Indicates if the bind was successful: */ +/* = 0 Success */ +/* <> 0 Error code */ +/* */ +/* Return: */ +/* ST_VOID */ +/************************************************************************/ +ST_VOID u_cosp_bind_cnf (ST_LONG cosp_user_bind_id, ST_LONG cosp_bind_id, + ST_RET result); + + +/************************************************************************/ +/* cosp_unbind */ +/*----------------------------------------------------------------------*/ +/* Function called by SS-user to unbind from local Session Address. */ +/* The SS-user should implement the u_cosp_unbind_cnf function. */ +/* */ +/* Parameters: */ +/* ST_LONG cosp_bind_id COSP's id to unbind. */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if unbind successful */ +/* error code otherwise */ +/************************************************************************/ +ST_RET cosp_unbind (ST_LONG cosp_bind_id); + + +/************************************************************************/ +/* u_cosp_unbind_cnf */ +/*----------------------------------------------------------------------*/ +/* This function is called by the SS-provider to indicate that the */ +/* unbind operation finished (see cosp_unbind func). */ +/* */ +/* Parameters: */ +/* ST_LONG cosp_user_bind_id COSP User's id for this binding.*/ +/* */ +/* Return: */ +/* ST_VOID */ +/************************************************************************/ +ST_VOID u_cosp_unbind_cnf (ST_LONG cosp_user_bind_id); + + + /*======================================================*/ + /* */ + /* C O N N E C T F U N C T I O N S (CALLED SIDE) */ + /* */ + /*======================================================*/ + + +/************************************************************************/ +/* u_cosp_con_ind */ +/*----------------------------------------------------------------------*/ +/* This USER function is called by the SS-Provider to indicate that a */ +/* remote node wishes to establish a connection. */ +/* */ +/* Parameters: */ +/* ST_LONG cosp_user_bind_id COSP user id bind */ +/* ACSE_CONN *con Pointer to connection info */ +/* */ +/* Return: */ +/* ST_VOID */ +/************************************************************************/ +ST_VOID u_cosp_con_ind (ST_LONG cosp_user_bind_id, ACSE_CONN *con); + + +/************************************************************************/ +/* cosp_con_rsp_pos */ +/*----------------------------------------------------------------------*/ +/* Function called by SS-user to Accept an incomming connection. */ +/* If SS-user data are sent make sure the reason=COSP_CON_RSP_U_IN_UDATA*/ +/* */ +/* Parameters: */ +/* ACSE_CONN *con Pointer to con info struct */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if successful */ +/* error code otherwise */ +/************************************************************************/ +ST_RET cosp_con_rsp_pos (ACSE_CONN *con); + + +/************************************************************************/ +/* cosp_con_rsp_neg */ +/*----------------------------------------------------------------------*/ +/* Function called by SS-user to Reject an incomming connection. */ +/* If SS-user data are sent make sure the reason=COSP_CON_RSP_U_IN_UDATA*/ +/* */ +/* Parameters: */ +/* ACSE_CONN *con Pointer to con info struct */ +/* ST_INT reason Reason for reject COSP_CON_RSP_U_... */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if successful */ +/* error code otherwise */ +/************************************************************************/ +ST_RET cosp_con_rsp_neg (ACSE_CONN *con, ST_INT reason); + + + /*======================================================*/ + /* */ + /* C O N N E C T F U N C T I O N S (CALLING SIDE) */ + /* */ + /*======================================================*/ + + +/************************************************************************/ +/* cosp_con_req */ +/*----------------------------------------------------------------------*/ +/* Function called by SS-user to establish a Session connection. */ +/* SS-user should implement following functions to confirm to this */ +/* request: u_cosp_con_cnf_pos and u_cosp_con_cnf_neg. */ +/* If this function returns value other then SD_SUCCESS then the function */ +/* u_cosp_con_cnf_xxx will not be called. */ +/* */ +/* Parameters: */ +/* ST_LONG cosp_bind_id COSP bind id (also= TP4 bind id)*/ +/* PRES_ADDR *rem_addr Remote Address */ +/* ACSE_CONN *con Pointer to connection info */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if successful */ +/* error code otherwise */ +/************************************************************************/ +ST_RET cosp_con_req (ST_LONG cosp_bind_id, PRES_ADDR *rem_addr, ACSE_CONN *con); + + +/************************************************************************/ +/* u_cosp_con_cnf_pos */ +/*----------------------------------------------------------------------*/ +/* This USER function is called by the SS-Provider to indicate that */ +/* the connection has been established. */ +/* */ +/* Parameters: */ +/* ACSE_CONN *con Pointer to connection info */ +/* */ +/* Return: */ +/* ST_VOID */ +/************************************************************************/ +ST_VOID u_cosp_con_cnf_pos (ACSE_CONN *con); + + +/************************************************************************/ +/* u_cosp_con_cnf_neg */ +/*----------------------------------------------------------------------*/ +/* This USER function is called by the SS-Provider to indicate the */ +/* connection has been rejected by remote. */ +/* */ +/* Parameters: */ +/* ACSE_CONN *con Pointer to connection info */ +/* ST_INT result see def results COSP_CON_CNF_... above */ +/* ST_INT reason see def reasons COSP_CON_CNF_... above */ +/* */ +/* Return: */ +/* ST_VOID */ +/************************************************************************/ +ST_VOID u_cosp_con_cnf_neg (ACSE_CONN *con, ST_INT result, ST_INT reason); + + + /*======================================================*/ + /* */ + /* C O N N E C T I O N R E L E A S E (CALLED SIDE) */ + /* */ + /*======================================================*/ + + +/************************************************************************/ +/* u_cosp_rel_ind */ +/*----------------------------------------------------------------------*/ +/* This USER function is called by the SS-Provider to indicate that a */ +/* remote node wishes to release a connection. The SS-user should call */ +/* cosp_rel_rsp_pos to release the connection. Negative cnf not allowed.*/ +/* */ +/* Parameters: */ +/* ACSE_CONN *con Pointer to connection info */ +/* */ +/* Return: */ +/* ST_VOID */ +/************************************************************************/ +ST_VOID u_cosp_rel_ind (ACSE_CONN *con); + + +/************************************************************************/ +/* cosp_rel_rsp_pos */ +/*----------------------------------------------------------------------*/ +/* Function called by SS-user to respond positively to release of */ +/* connection. */ +/* */ +/* Parameters: */ +/* ACSE_CONN *con Pointer to connection info */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if successful */ +/* error code otherwise */ +/************************************************************************/ +ST_RET cosp_rel_rsp_pos (ACSE_CONN *con); + + + /*======================================================*/ + /* */ + /* C O N N E C T I O N R E L E A S E (CALLING SIDE)*/ + /* */ + /*======================================================*/ + +/************************************************************************/ +/* cosp_rel_req */ +/*----------------------------------------------------------------------*/ +/* Function called by SS-user to release a Session connection. */ +/* SS-user should implement the u_cosp_rel_cnf_pos function to receive */ +/* confirm for this request. Negative confirm is not implemented. */ +/* If this function returns value other then SD_SUCCESS then the function */ +/* u_cosp_rel_cnf_pos will not be called. */ +/* */ +/* Parameters: */ +/* ACSE_CONN *con Pointer to connection info */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if successful */ +/* error code otherwise */ +/************************************************************************/ +ST_RET cosp_rel_req (ACSE_CONN *con); + + +/************************************************************************/ +/* u_cosp_rel_cnf_pos */ +/*----------------------------------------------------------------------*/ +/* This USER function is called by the SS-Provider to indicate positive */ +/* result of the release operation. */ +/* */ +/* Parameters: */ +/* ACSE_CONN *con Pointer to connection info */ +/* */ +/* Return: */ +/* ST_VOID */ +/************************************************************************/ +ST_VOID u_cosp_rel_cnf_pos (ACSE_CONN *con); + + + /*======================================================*/ + /* */ + /* A B O R T F U N C T I O N S */ + /* */ + /*======================================================*/ + + +/************************************************************************/ +/* cosp_u_abort_req */ +/*----------------------------------------------------------------------*/ +/* Function called by SS-user to Abort a connection (S-U-ABORT) */ +/* */ +/* Parameters: */ +/* ACSE_CONN *con Pointer to connection info */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if successful */ +/* error code otherwise */ +/************************************************************************/ +ST_RET cosp_u_abort_req (ACSE_CONN *con); + + +/************************************************************************/ +/* u_cosp_p_abort_ind */ +/*----------------------------------------------------------------------*/ +/* This USER function is called by the SS-Provider to indicate that a */ +/* connection has been aborted by SS-provider (local or remote). */ +/* */ +/* Parameters: */ +/* ACSE_CONN *con Pointer to connection info */ +/* ST_INT reason see def reasons COSP_P_AB_IND_... above */ +/* */ +/* Return: */ +/* ST_VOID */ +/************************************************************************/ +ST_VOID u_cosp_p_abort_ind (ACSE_CONN *con, ST_INT reason); + + +/************************************************************************/ +/* u_cosp_u_abort_ind */ +/*----------------------------------------------------------------------*/ +/* This USER function is called by the SS-Provider to indicate that a */ +/* connection has been aborted by remote SS-user. */ +/* */ +/* Parameters: */ +/* ACSE_CONN *con Pointer to connection info */ +/* */ +/* Return: */ +/* ST_VOID */ +/************************************************************************/ +ST_VOID u_cosp_u_abort_ind (ACSE_CONN *con); + + + /*======================================================*/ + /* */ + /* D A T A T R A N S F E R F U N C T I O N S */ + /* */ + /*======================================================*/ + + +/************************************************************************/ +/* cosp_data_req */ +/*----------------------------------------------------------------------*/ +/* Function called by SS-user to transfer normal data on a previously */ +/* established connection. */ +/* */ +/* Parameters: */ +/* ACSE_CONN *con Pointer to connection info */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if successful */ +/* error code otherwise */ +/************************************************************************/ +ST_RET cosp_data_req (ACSE_CONN *con); + + +/************************************************************************/ +/* u_cosp_data_ind */ +/*----------------------------------------------------------------------*/ +/* This USER function is called by the SS-Provider to indicate that a */ +/* data have been received. */ +/* */ +/* Parameters: */ +/* ACSE_CONN *con Pointer to connection info */ +/* */ +/* Return: */ +/* ST_VOID */ +/************************************************************************/ +ST_VOID u_cosp_data_ind (ACSE_CONN *con); + + +#ifdef __cplusplus +} +#endif + +#endif /* end of 'already included' */ + + diff --git a/include/inc/dibmatch.h b/include/inc/dibmatch.h new file mode 100644 index 0000000..b38b488 --- /dev/null +++ b/include/inc/dibmatch.h @@ -0,0 +1,64 @@ +#ifndef DIBMATCH_H + +#define DIBMATCH_H + +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2003 - 2005, All Rights Reserved */ +/* */ +/* MODULE NAME : dibmatch.h */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 01/04/06 EJV 04 Added DLLs incompatibility comments. */ +/* 07/19/05 EJV 03 Added gensock2.h include. */ +/* 07/12/05 EJV 02 DIB_MATCH_CTRL: added use_gethostbyname. */ +/* 06/11/03 MDE 01 New */ +/************************************************************************/ + +#ifdef __cplusplus +extern "C" { +#endif + +#include "gensock2.h" + +/************************************************************************/ +/* General address matching defines, control, functions */ + +/* Compare Results */ +#define DIB_MATCH_NOT 0 +#define DIB_MATCH_CLOSE 1 +#define DIB_MATCH_EXACT 2 + +typedef struct dib_match_ctrl_tag + { + /* Note: adding/removing fields to/from this struct will make older */ + /* !!! applications incompatible with new security DLLs. */ + ST_BOOLEAN match_allow_missing_ae_elements; + ST_BOOLEAN match_allow_extra_ae_elements; + + ST_BOOLEAN match_ap_title; + ST_BOOLEAN match_ae_qualifier; + ST_BOOLEAN match_ap_invoke; + ST_BOOLEAN match_ae_invoke; + ST_BOOLEAN match_psel; + ST_BOOLEAN match_ssel; + ST_BOOLEAN match_tsel; + ST_BOOLEAN match_net_addr; + ST_BOOLEAN use_gethostbyname; /* gethostbyname() call may take LONG */ + /* time when the DNS is not available. */ + } DIB_MATCH_CTRL; + + + +#ifdef __cplusplus +} +#endif + +#endif /* DIBMATCH_H */ diff --git a/include/inc/ethertyp.h b/include/inc/ethertyp.h new file mode 100644 index 0000000..16f6f59 --- /dev/null +++ b/include/inc/ethertyp.h @@ -0,0 +1,72 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2002-2005, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : ethertyp.h */ +/* PRODUCT(S) : MMS-EASE Lite */ +/* */ +/* MODULE DESCRIPTION : Ethertype frame encode functions and constants.*/ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 02/08/05 JRB 03 Chg first arg to etype_hdr_decode. */ +/* 03/24/03 ASK 02 Updated ETYPE_TYPE_* constant values */ +/* 11/20/02 ASK 01 Created */ +/************************************************************************/ + +#if !defined(ETHERTYP_H_INCLUDED) +#define ETHERTYP_H_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "clnp_usr.h" +#include "clnp_sne.h" + + +#define ETYPE_VLAN_TYPE_ID 0x8100 +#define ETYPE_TYPE_GOOSE 0x88B8 +#define ETYPE_TYPE_GSE 0x88B9 +#define ETYPE_TYPE_SV 0x88BA +#define ETYPE_TCI_GOOSE 0x8000 +#define ETYPE_TCI_GSE 0x2000 +#define ETYPE_TCI_SV 0x8001 + +#define VLAN_HEAD_LEN 4 +#define ETYPE_HEAD_LEN 8 + +/* Ethertype Frame Info to be filled out by the user */ +typedef struct + { + ST_UINT16 tci; /* VLAN Tag Control Info */ + ST_UINT16 etypeID; /* Ethertype ID */ + ST_UINT16 appID; /* APP ID */ + } ETYPE_INFO; + + +ST_UCHAR *etype_hdr_encode(ST_UCHAR *bufPtr, /* buffer to encode into */ + ST_INT bufLen, /* len of buffer */ + ST_INT *asn1Len, /* ptr to len encoded */ + ETYPE_INFO *info);/* ptr etype struct */ + +ST_UCHAR *vlan_hdr_encode(ST_UCHAR *bufPtr, /* buffer to encode into */ + ST_INT *asn1Len, /* ptr to len encoded */ + ETYPE_INFO *info); /* ptr etype struct */ + +ST_UCHAR *etype_hdr_decode(SN_UNITDATA *sn_req, + ETYPE_INFO *info, /* ptr etype struct */ + ST_INT *bufLen); /* ptr to len decoded */ + +#ifdef __cplusplus +} +#endif + +#endif /* end of 'already included' */ diff --git a/include/inc/ethsub.h b/include/inc/ethsub.h new file mode 100644 index 0000000..b7d0a4f --- /dev/null +++ b/include/inc/ethsub.h @@ -0,0 +1,132 @@ +#ifndef ETHSUB_INCLUDED +#define ETHSUB_INCLUDED +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2000-2006 All Rights Reserved */ +/* */ +/* MODULE NAME : ethsub.h */ +/* PRODUCT(S) : Lean-T Stack for Windows 95/98/NT */ +/* */ +/* MODULE DESCRIPTION : */ +/* Definitions to allow Subnetwork interface to work with OSI LLC */ +/* Ethernet driver. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 07/21/06 JRB 04 Chg to use SISCO naming conventions. */ +/* 04/14/06 JRB 03 Add sysincs header. */ +/* 11/20/02 ASK 02 Add ethdown_etype proto */ +/* 04/06/00 JRB 01 Created */ +/************************************************************************/ +#ifdef __cplusplus +extern "C" { +#endif + +/****************************************************************/ +/* Include files required to interface with */ +/* OSI LLC NDIS Ethernet Driver */ +/* */ +/****************************************************************/ + +#include "conpack.h" +#include "osillc.h" + +#include "glbtypes.h" +#include "sysincs.h" +#include "slog.h" +#include "stime.h" +#include "clnp_usr.h" /* clnp_sne.h needs this */ +#include "clnp_log.h" +#include "clnp_sne.h" /* for SN_UNITDATA, etc. */ + +/****************************************************************/ +/****************************************************************/ + +typedef struct +{ +/** ----- Following fields are specific to this Access Method */ + HANDLE hFile; /* LLC device driver descriptor */ + + unsigned long seq; /* sequence number to expect */ + void *readlst[10]; /* list of pointers to out of sequence packet blocks */ + + /* ----- Following fields are required for 95/98 */ + struct rd_wr_block *pWriteEvents; /* list of write event structures */ + struct rd_wr_block *pReadEvents; /* list of read event structures */ +} LLC_CONTEXT; + +/************************************************************************/ +/* OSI Event structure - Modified for MMS_LITE */ +/************************************************************************/ + +typedef struct + { + void * nxevt; + SN_UNITDATA sn_req; /* event data in format needed by LEANT CLNP. */ + } SN_EVENT; + +typedef struct rd_wr_block + { + int inuse; + HANDLE hEvent; + OVERLAPPED *ovlp; + ST_UCHAR *framep; /* pointer to raw Ethernet frame */ + void *pb; + LLC_CONTEXT *gccp; + } RD_WR_BLOCK; + +/************************************************************************/ +/* MMS_LITE function to Queue received packet for Lite CLNP. */ +/************************************************************************/ +void QueueRxPacket (ST_UCHAR *framep); + +/************************************************************************/ +/* Functions that may be called from CLNP. */ +/************************************************************************/ +void ethdown (SN_UNITDATA *sn_req); +void ethdown_etype (SN_UNITDATA *sn_req); +void ethsapoff (void); +void ethsapon (ST_CHAR *drvname); +int llcsetup (void); + +BOOL QueryOid (HANDLE hDriver, ULONG ulOid, PBYTE pBuffer, ULONG ulLength); +BOOL SetOid (HANDLE hDriver, ULONG ulOid, PBYTE pBuffer, ULONG ulLength); + +void osifreeevt (SN_EVENT *evt); +SN_EVENT *osiallocevt (); +void osiputevt (SN_EVENT *evt); +SN_EVENT *osigetevt (); + +void OsiReadThread (LPDWORD lpdwParam); +void OsiReadThreadNT (LPDWORD lpdwParam); +void CALLBACK WriteCompletion (DWORD error, DWORD length, OVERLAPPED *ovlp); +void CALLBACK ReadCompletion (DWORD error, DWORD length, OVERLAPPED *ovlp); +void ProcessReadBlock (OVERLAPPED *ovlp); + +/************************************************************************/ +/* Global variables. */ +/************************************************************************/ +extern LLC_CONTEXT GCC; /* General Current Context */ +extern LLC_CONTEXT *GCCP; /* General Current Context Pointer */ + +extern int MaxWriteOut; +extern int MaxReadOut; +extern int FramesPerBlock; +extern int ReceptionMode; +extern int DriverID; +extern int NumWriteOut; +extern CRITICAL_SECTION csOsiList; /* Critical Section object for OSI Event List */ +extern BOOL bServiceControl; +extern BOOL bNT; +extern BOOL bOsiRequired; +extern DWORD Priority; + +#ifdef __cplusplus +} +#endif + +#endif /* !ETHSUB_INCLUDED */ + diff --git a/include/inc/fkeydefs.h b/include/inc/fkeydefs.h new file mode 100644 index 0000000..abc6394 --- /dev/null +++ b/include/inc/fkeydefs.h @@ -0,0 +1,209 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986-2001 All Rights Reserved */ +/* */ +/* MODULE NAME : fkeydefs.h */ +/* PRODUCT(S) : MMSEASE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains user application definitions and is not */ +/* directly a part of MMSEASE. It is only used for the sample */ +/* application. */ +/* NOTE: If the ?key.c module is compiled with define UTIL_LIB only */ +/* following functions from wkey.c are exposed: */ +/* nlfn () */ +/* log_hex_bytes () */ +/* wait_debug_log () */ +/* wait_msg () */ +/* flush_keys () */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/18/03 JRB 05 Fix QNX #ifdef. */ +/* 02/17/03 CRM 04 Added "defined(linux)" code. */ +/* 02/17/03 JRB 03 Stop using SYSTEM_SEL define. */ +/* 05/16/01 EJV 02 Added proto for term_init, term_rest. */ +/* 01/22/98 NAV 01 Added funct_menu proto. */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef FKEYDEFS_INCLUDED +#define FKEYDEFS_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include + +#if defined (_WIN32) +#include +#endif + +/************************************************************************/ +/* NOTE: */ +/* For QUICK WIN application the call to kbhit () or getch () functions */ +/* will install our keyboard handling hook function to intercept the */ +/* keyboard input. */ +/* It is not necessary to call strt_Hook function, because the kbhit */ +/* and getch functions are checking for the hook beeing in place. */ +/* It will be wise to call the end_Hook function to clear the Windows */ +/* from our keyboard handling if not needed anymore. */ +/************************************************************************/ +int strt_Hook(ST_VOID); +int end_Hook(ST_VOID); + +/*====================================================================== + Basic functions keyboard functions: + kbhit () checks if keyboard was pressed. It installs also our + keyboard handling hook function for the QUICK WIN apps. + fkey_kbhit () returns SD_FALSE most of the times. Only every KBHIT_PERIOD + (50-th time when called) it will return the return + from the call to the kbhit () function. + This function may be absolete. + getch () returns the ASCII value of a pressed key. The kbhit () + function should be called first to see if the keyboard + was pressed. The function will install our keyboard + handling hook function for the QUICK WIN applications, + if not already installed. + flush_keys () flushes the keyboard character buffer. + get_a_char () will wait for the keyboard hit and return the ascii + code for the character. In addition the function will + echo the character to screen. +======================================================================*/ +#if !defined (_WIN32) +#if defined(__VMS) +/* VMS uses a short return type, and is prototyped in a lot of places */ +ST_INT kbhit (ST_VOID); +ST_INT getch (ST_VOID); +#else +int kbhit (ST_VOID); +int getch (ST_VOID); +#endif +#else +int nt_kbhit (ST_VOID); +#define kbhit nt_kbhit +#endif + +ST_RET fkey_kbhit (ST_VOID); +ST_VOID flush_keys (ST_VOID); +ST_CHAR get_a_char (ST_VOID); + +#define KBHIT_PERIOD 50 +#define KBHIT() fkey_kbhit () + + +/*======================================================================= + Formatting output to stdout (or FILE *) functions: + log_hex_bytes () outputs formatted hex data to a dest (may be stdout). + It will format each line (16 hex numbers) of the output + as follow: + "\noffs hh hh hh hh hh hh hh hh hh hh hh hh hh hh hh hh *tttttttttttttttt*" + list_bytes () outputs formatted bytes to stdout. It will format each + line (16 hex numbers) of the output as follow: + "\n hh hh hh hh hh hh hh hh hh hh hh hh hh hh hh hh " + list_ascii () outputs the ascii data to stdout. The ascii data will + be split on more then one line if required. The data in + the ptr do not have to be NULL terminated. + list_words () outputs the formatted words to stdout. The format is + as follow: + "hhhh hhhh hhhh ...." +========================================================================*/ +ST_VOID log_hex_bytes (FILE *dest, ST_UCHAR *ptr, ST_INT len); +ST_VOID list_bytes (ST_UCHAR *ptr, ST_INT len); +ST_VOID list_ascii (ST_CHAR *ptr, ST_INT len); +ST_VOID list_words (ST_UINT *ptr, ST_INT len); + + +/*======================================================================= + Functions to display a message and wait for user to hit a key: + wait_debug_log () outputs the str to a fptr (which may be stdout). + If the output is stdout the function will wait for user + to hit a key. During waiting the function will call + the servefun () to execute background processing. + wait_msg () outputs the str to stdout. The function will wait for + user to hit a key. During waiting the function will call + the servefun () to execute background processing. + wait_key () waits for user to hit a key. During waiting the function + will call the servefun () to execute background processing. + err_msg () outputs the str to stdout. The function will wait for + user to hit a key. Note that this func will NOT call + the servefun () while waiting for the keyboard input. + ask () asks a yes/no question and return the answer. + SD_TRUE will be returned if the answer is 'y' or 'Y'; + SD_FALSE will be returned if the answer is 'n' or 'N'; + if user presses the ENTER key the default answer will + be returned. + key_err () displays a message and returns shortly after, used to + display error messages without waiting for user to hit + a key to continue. +========================================================================*/ +ST_VOID wait_debug_log (FILE *fptr, ST_CHAR *str); +ST_VOID wait_msg (ST_CHAR *msg); +ST_VOID wait_key (ST_VOID); +ST_VOID err_msg (ST_CHAR *str); +ST_BOOLEAN ask (ST_CHAR *question, ST_BOOLEAN default_ans); +ST_VOID key_err (ST_CHAR *msg); + +/*======================================================================== + Pointer to USER's background function called while waiting for keyboard + input in following functions: + wait_key () + wait_msg () + wait_debug_log () + do_fun () + This function is initialized to a nlfn () which returns 0 if called. +========================================================================*/ +extern ST_RET (*servefun) (ST_VOID); + +/*======================================================================== + Pointers to USER's functions handling the actions for key F1 - F10 + This pointers will be initialized at program startup to bad_key () + function, which flushes the keyboard buffer. +========================================================================*/ +extern ST_VOID (*funct_1) (ST_VOID); +extern ST_VOID (*funct_2) (ST_VOID); +extern ST_VOID (*funct_3) (ST_VOID); +extern ST_VOID (*funct_4) (ST_VOID); +extern ST_VOID (*funct_5) (ST_VOID); +extern ST_VOID (*funct_6) (ST_VOID); +extern ST_VOID (*funct_7) (ST_VOID); +extern ST_VOID (*funct_8) (ST_VOID); +extern ST_VOID (*funct_9) (ST_VOID); +extern ST_VOID (*funct_10) (ST_VOID); +extern ST_VOID (*funct_menu) (ST_VOID); /* may be used to refresh menu */ + +ST_VOID fun_null (ST_VOID); /* make all function keys F1-F10 illegal*/ +ST_VOID do_fun (ST_VOID); /* execute functions assigned to funct_n*/ + /* pointers until F10 is pressed. */ +ST_INT check_key (ST_VOID); /* Check for pressed function key and */ + /* execute an action for that key. */ + /* Returns 1 if F10 key was pressed, */ + /* 0 otherwise. */ + +/* functions implemented in ?key.c */ +#if defined(_AIX) || defined(sun) || defined(__hpux) || defined(linux) \ + || (defined(__alpha) && !defined(__VMS)) \ + || defined(VXWORKS) || defined(__QNX__) || defined(__VMS) +ST_VOID term_init (); +ST_VOID term_rest (); +#elif defined (__OS2__) +int term_init (void); +int term_rest (void); +#endif + +#if defined (_WIN32) +ST_RET term_init (ST_VOID); +ST_INT term_rest (ST_VOID); +#endif + + +#ifdef __cplusplus +} +#endif + +#endif /* FKEYDEFS_INCLUDED */ diff --git a/include/inc/gen_list.h b/include/inc/gen_list.h new file mode 100644 index 0000000..88414a2 --- /dev/null +++ b/include/inc/gen_list.h @@ -0,0 +1,117 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1988-2000, All Rights Reserved */ +/* */ +/* MODULE NAME : gen_list.h */ +/* PRODUCT(S) : General Use */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the definitions as required for */ +/* manipulation of double-linked circular lists */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 01/04/06 EJV 04 Added DLLs incompatibility comments. */ +/* 04/20/00 JRB 03 Del (ST_VOID **) protos. ANSI doesn't like. */ +/* 10/09/98 JRB 02 Add list_find_prev, list_find_last. */ +/* 08/25/98 EJV 01 Use non-relaxed protos for __hpux. */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef GEN_LIST_INCLUDED +#define GEN_LIST_INCLUDED + + +#ifdef __cplusplus +extern "C" { +#endif + +/*#define FASTLIST */ + +/************************************************************************/ +/* LINKED LIST MECHANISM */ +/************************************************************************/ +/* This following structure is used in all doubly linked circular lists */ +/* as the first component in the structure. This allows one set of list*/ +/* manipulation primitives to be used with any linked structure */ +/* containing it. */ + +typedef struct dbl_lnk + { + /* Note: adding/removing fields to/from this struct will make older */ + /* !!! applications incompatible with new security DLLs. */ + struct dbl_lnk *next; + struct dbl_lnk *prev; + } DBL_LNK; + + +/************************************************************************/ +/* The variable below can be used to do integrity checking of any list */ +/* manipulated in the generic queuing functions by setting it to SD_TRUE */ + +extern ST_BOOLEAN list_debug_sel; + +/* For compatibility with older code only */ +#define list_sLogCtrl sLogCtrl + +/************************************************************************/ + +#ifdef FASTLIST +#define list_get_next(h,p) (((DBL_LNK *)p)->next == (DBL_LNK *)h ? NULL : ((DBL_LNK *)p)->next) +#define list_get_first(h) *(h);list_unlink (h,*h) +#else +/* NOTE: I_AM_THE_TRUE_GEN_LIST is only defined in the module */ +/* genlists.c so it will compile. */ +#if defined(I_AM_THE_TRUE_GEN_LIST) +ST_VOID *list_get_first (DBL_LNK **); +ST_VOID *list_get_next (DBL_LNK *, DBL_LNK *); +#else +ST_VOID *list_get_first (ST_VOID *); +ST_VOID *list_get_next (ST_VOID *, ST_VOID *); +#endif +#endif /* FASTLIST */ + + +/************************************************************************/ +/* Primitive functions for generic queue handling */ + +#if defined(I_AM_THE_TRUE_GEN_LIST) +ST_RET list_unlink (DBL_LNK **, DBL_LNK *); +ST_RET list_add_first (DBL_LNK **, DBL_LNK *); +ST_RET list_add_last (DBL_LNK **, DBL_LNK *); +ST_RET list_move_to_first (DBL_LNK **, DBL_LNK **, DBL_LNK *); +ST_RET list_find_node (DBL_LNK *, DBL_LNK *); +ST_RET list_add_node_after (DBL_LNK *, DBL_LNK *); +ST_INT list_get_sizeof (DBL_LNK *); +ST_VOID *list_get_last (DBL_LNK **); +#else +/* NOTE: these prototypes provide very little argument type checking. */ +/* They allow you to pass almost any argument without casting. */ +/* ANSI compilers automatically cast the arguments to (ST_VOID *). */ +/* This is not a great loss, because if the "real" prototypes were */ +/* used, most code would have to cast arguments to (DBL_LNK *) or */ +/* (DBL_LNK **), which would disable the argument type checking anyway. */ + +ST_RET list_unlink (ST_VOID *pphol, ST_VOID *pnode); +ST_RET list_add_first (ST_VOID *pphol, ST_VOID *pnode); +ST_RET list_add_last (ST_VOID *pphol, ST_VOID *pnode); +ST_RET list_move_to_first (ST_VOID *pphol1, ST_VOID *pphol2, ST_VOID *pnode); +ST_RET list_find_node (ST_VOID *pphol, ST_VOID *pnode); +ST_RET list_add_node_after (ST_VOID *pnode1, ST_VOID *pnode2); +ST_INT list_get_sizeof (ST_VOID *phol); +ST_VOID *list_get_last (ST_VOID *pphol); +#endif + +/* New functions. Abandon the "I_AM_THE_TRUE_GEN_LIST" casting business.*/ +DBL_LNK *list_find_prev (DBL_LNK *list_head_ptr, DBL_LNK *cur_node); +DBL_LNK *list_find_last (DBL_LNK *list_head_ptr); + +#ifdef __cplusplus +} +#endif + +#endif diff --git a/include/inc/gensock2.h b/include/inc/gensock2.h new file mode 100644 index 0000000..2c2a3f1 --- /dev/null +++ b/include/inc/gensock2.h @@ -0,0 +1,591 @@ +/************************************************************************/ +/* SOFTWARE MODULE HEADER ***********************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2002 - 2007, All Rights Reserved */ +/* */ +/* MODULE NAME : gensock2.h */ +/* PRODUCT(S) : General Sockets Interface */ +/* */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 10/08/08 MDE 29 Allow variable len header, sockEventQueueFlush*/ +/* 03/17/08 EJV 28 Chg MMSEASE_MOSI to !defined(MMS_LITE). */ +/* 12/07/07 EJV 27 Impl SISCO's KeepAlive (disconnect idle cons)*/ +/* GEN_SOCK_CTRL: added lastCheckIdleTime, */ +/* GEN_SOCK_CTXT: added maxIdleTime, */ +/* GEN_SOCK_STATS: added lastActivityTime. */ +/* 11/01/07 EJV 26 Moved include winsock2.h to sysincs.h. */ +/* Added new GS_DISCONNECT_* error codes. */ +/* Added GS_DISCONNECT_REASON_STR macro & vars. */ +/* 09/10/07 MDE 25 Added log_disable, to support IPC logging */ +/* 05/18/07 RKR 24 Ported to Red Hat 5 */ +/* 02/08/07 JRB 23 Add GEN_SOCK_EVENT, sockEventPut/Get. */ +/* Repl uSockConnect with 2 separate pointers */ +/* uSockConnectInd, uSockConnectConf. */ +/* 01/30/07 JRB 22 Del obsolete params & sockServiceFreeList. */ +/* 01/15/07 JRB 21 Del gs_poll_mode flag & poll_mode arg to */ +/* sockStart (no longer supported). */ +/* 01/03/07 EJV 20 GEN_SOCK_CTXT: del gSockMutex, txMutex fields*/ +/* 11/29/06 EJV 19 HP-UX: chg to use socklen_t. */ +/* 10/25/06 EJV 18 Ported to HP-UX. */ +/* 02/17/06 EJV 17 __VMS: added SOCK_OPTLEN,SOCK_ADDRLEN. */ +/* Aligned some defines. */ +/* 12/19/05 EJV 28 sockUsrFun: chg args. */ +/* GEN_SOCK: moved sockId, sockIdStr fields down*/ +/* 09/28/05 EJV 27 Implemented GEN_SOCK_CTXT. */ +/* Moved GENSOCK_MAX_HEADER_SIZE above struct. */ +/* Moved MUTEX macros to gensock2.c and renamed */ +/* GEN_SOCK: added sockId, sockIdStr, sockCtx. */ +/* GEN_SOCK_CTRL: added sockCtx. */ +/* Added GS_DISCONNECT_XXX_ERROR defines. */ +/* _sockAddSock: chg from ST_VOID to ST_RET ret.*/ +/* sockUsrFun: new func. */ +/* 07/11/05 EJV 26 Add convertIPAddr proto. */ +/* 06/10/05 JRB 25 Obsolete "_sockClose" function replaced with */ +/* macro that calls normal "sockClose". */ +/* 05/10/05 EJV 24 Added _sockAllocSock, _sockAddSock protos. */ +/* 03/23/05 EJV 23 Added sockCreateWakeupSockets */ +/* linux MMSEASE_MOSI:add GENSOCK_THREAD_SUPPORT*/ +/* 03/16/05 JRB 22 Add GENSOCK_HUNT_DISCONNECT define. */ +/* 02/21/05 JRB 21 Fix ioctlsocket define (deleted from tp0_sock)*/ +/* 02/10/05 MDE 20 Added sockGetRemAddrInfo */ +/* 07/22/04 EJV 19 sun: added GENSOCK_THREAD_SUPPORT */ +/* 06/18/04 MDE 18 Include winsock2.h if needed */ +/* 03/11/04 EJV 17 SOCK_OPTLEN,SOCK_ADDRLEN diff for each system*/ +/* 02/25/04 EJV 16 _AIX: added GENSOCK_THREAD_SUPPORT */ +/* Added SOCK_OPTLEN and SOCK_ADDRLEN. */ +/* Chg SOCK_NOTSOCK to be EBADF (not ENOTSOCK). */ +/* 01/27/04 EJV 15 Added SOCK_NOTSOCK error. */ +/* 01/14/04 EJV 14 GEN_SOCK: added sockTxQueuedGroupCnt field. */ +/* GEN_SOCK_DATA: added eot field. */ +/* Added sockGetTxQueueGroupCnt proto. */ +/* 10/23/03 JRB 13 Move all system includes to sysincs.h */ +/* 06/25/03 JRB 12 Move log macros to "sock_log.h". */ +/* 06/23/03 EJV 11 Added 'first' param to sockTxQueueAdd. */ +/* 06/20/03 EJV 10 Rem param from gs_mutex_get. */ +/* 06/20/03 EJV 09 Added sockTxQueueDestroy.Chg gSock w/pSock. */ +/* Alligned struct fields. */ +/* 06/19/03 EJV 08 _WIN32: added GENSOCK_THREAD_SUPPORT */ +/* Added comments to struct, #else, #endif */ +/* 06/19/03 JRB 07 Make Rx/Tx names more consistent. */ +/* 06/18/03 JRB 06 Move defines to top & add SOCKADDR*, ioctlsocket*/ +/* Del GENSOCK_THREAD_SUPPORT, define in makefile*/ +/* Add forward reference. */ +/* Add sockTxPend to GEN_SOCK. */ +/* Add GSOCK_LOG_FLOWH. */ +/* Del winsock2.h (windows.h gets right winsock)*/ +/* Use "base" slog macros. */ +/* Add uSockTxBufFree to GEN_SOCK_CONFIG. */ +/* Add sockTxMsg, sockTxQueue* funcs. */ +/* 06/13/03 MDE 05 More user poll featuresAdded sockGetFds */ +/* 06/13/03 EJV 04 Added parameter to gs_mutex_get. */ +/* 05/14/03 MDE 03 Added sockGetFds */ +/* 05/09/03 JRB 02 Add SOCK_* defines for !_WIN32 */ +/* 02/17/03 MDE 01 Created */ +/************************************************************************/ + +#ifndef GENSOCK_INCLUDED +#define GENSOCK_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "glbtypes.h" +#include "sysincs.h" +#include "gen_list.h" +#include "glbsem.h" +#include "mem_chk.h" +#include "sock_log.h" /* logging macros */ + + +/* Windows vs. the rest of the world ... */ +#ifdef _WIN32 + +#if !defined(GENSOCK_THREAD_SUPPORT) +#define GENSOCK_THREAD_SUPPORT /*RXB*/ +#endif +#define SOCKET_ERRORNO WSAGetLastError() +#define SOCK_EADDRINUSE WSAEADDRINUSE +#define SOCK_WOULDBLOCK WSAEWOULDBLOCK +#define SOCK_INTR WSAEINTR +#define SOCK_NOBUFS WSAENOBUFS +#define SOCK_INPROGRESS WSAEINPROGRESS +#define SOCK_TIMEDOUT WSAETIMEDOUT +#define SOCK_NOTSOCK WSAENOTSOCK +#define CLOSE_SOCKET(x) closesocket(x) + +#define SOCK_OPTLEN ST_INT /* in getsockopt */ +#define SOCK_ADDRLEN ST_INT /* in accept */ + +#else /* !_WIN32 */ + +/* define multithread support for GENSOCK on some platforms */ +#if defined(_AIX) || defined(sun) || defined(__hpux) || \ + (defined(linux) && !defined(MMS_LITE)) +#if !defined(GENSOCK_THREAD_SUPPORT) +#define GENSOCK_THREAD_SUPPORT +#endif +#endif /* defined(_AIX) || ... */ + +#define SOCKET_ERRORNO errno +#define SOCK_EADDRINUSE EADDRINUSE +#define SOCK_WOULDBLOCK EWOULDBLOCK +#define SOCK_INTR EINTR +#define SOCK_NOBUFS ENOBUFS +#define SOCK_INPROGRESS EINPROGRESS +#define SOCK_TIMEDOUT ETIMEDOUT +#define SOCK_NOTSOCK EBADF +#define CLOSE_SOCKET(x) close(x) + +#define SOCKET int +#define INVALID_SOCKET (-1) +#define SOCKADDR struct sockaddr +#define SOCKADDR_IN struct sockaddr_in + +#if defined (__OS2__) /* OS/2 ioctl has extra arg */ +#define ioctlsocket(hSock,opt,valptr) ioctl(hSock, opt, (ST_CHAR *)valptr, sizeof(u_long)) +#elif defined (VXWORKS) /* VXWORKS wants arg to be int */ +#define ioctlsocket(hSock,opt,valptr) ioctl(hSock, opt, (int) valptr) +#else /* all other systems (e.g. UNIX) */ +#define ioctlsocket ioctl +#endif + +#if defined(_AIX) || defined(sun) || defined(__hpux) || defined(linux) +/* Note: __hpux will need these defines when passing access rights SCM_RIGHTS */ +/* through domain socket is working properly for _XOPEN_SOURCE_EXTENDED. */ +#define SOCK_OPTLEN socklen_t /* in getsockopt */ +#define SOCK_ADDRLEN socklen_t /* in accept */ +#elif defined(__VMS) +#define SOCK_OPTLEN __size_t /* in getsockopt */ +#define SOCK_ADDRLEN __size_t /* in accept */ +#else +/* all other no-Windows platforms not defined above */ +#define SOCK_OPTLEN int /* in getsockopt */ +#define SOCK_ADDRLEN int /* in accept */ +#endif +#endif /* !_WIN32 */ + + +struct tag_GEN_SOCK; /* Forward reference */ +/************************************************************************/ +/************************************************************************/ + +typedef struct tag_GEN_SOCK_DATA + { +/* User Send/Receive Queueing */ + DBL_LNK l; + +/* For user management of send/receive buffers */ + ST_UCHAR *usrBufBase; /* Data buffer */ + ST_INT usrBufLen; /* Total send buffer size */ + + ST_VOID *usr1; /* Misc. user use */ + ST_VOID *usr2; /* Misc. user use */ + +/* Data to be sent/Received Data */ + ST_UCHAR *data; /* Recv Data, Send Data */ + ST_INT dataLen; /* Length of data recvd, or to be sent */ + + ST_INT result; /* For receive, SD_SUCCESS or error */ + ST_BOOLEAN eot; /* SD_TRUE - if last msg in a group */ + } GEN_SOCK_DATA; + + + +/************************************************************************/ + +typedef struct + { + time_t createdTime; + time_t activeTime; /* connected or listening */ + ST_LONG numSend; /* num of RFC1006 msgs sent */ + ST_LONG numRecv; /* num of RFC1006 msgs received */ + ST_DOUBLE lastActivityTime; /* for disconnecting idle connections */ + } GEN_SOCK_STATS; + +/************************************************************************/ + +typedef struct tag_GEN_SOCK_CONFIG + { +/* Config parameters */ + ST_INT hdrSize; /* Default sizeof (ST_INT) */ + ST_INT hdrAllocSize; /* Size to allocate for hdrBuf */ + /* in GEN_SOCK struct */ + /* If 0 then hdrSize is used */ + +/* setsockopt parameters */ + ST_BOOLEAN setSockOpts; + ST_INT noDelay; + ST_INT keepAlive; + ST_INT reuseAddr; + ST_INT rcvBufSize; + ST_INT sndBufSize; + +/* User can set to disable receive */ + ST_BOOLEAN pauseRecv; + +/* Listen backlog */ + ST_INT listenBacklog; + +/* User callbacks */ + ST_RET (*uSockConnectInd) (struct tag_GEN_SOCK *pSock); + ST_RET (*uSockConnectConf) (struct tag_GEN_SOCK *pSock); + ST_VOID (*uSockDisconnect) (struct tag_GEN_SOCK *pSock); + ST_VOID (*uSockHunt) (struct tag_GEN_SOCK *pSock, ST_INT *huntStateIo, + ST_CHAR *buf, ST_INT bufCount, ST_INT *lenOut); + ST_VOID (*uSockRx) (struct tag_GEN_SOCK *pSock, GEN_SOCK_DATA *sockData); + ST_VOID (*uSockRxBufAlloc) (struct tag_GEN_SOCK *pSock, ST_INT dataLen, GEN_SOCK_DATA **sockData); + ST_VOID (*uSockTxBufFree) (struct tag_GEN_SOCK *pSock, GEN_SOCK_DATA *sockData); + ST_VOID (*uSockWritable) (struct tag_GEN_SOCK *pSock); + +/* User fields */ + ST_EVENT_SEM recvEvent; + ST_VOID *usr1; + ST_VOID *usr2; + ST_VOID *usr3; + ST_VOID *usr4; + +/* Internal Security Hooks: Set to NULL unless using security plug-in */ + ST_BOOLEAN secEnable; + ST_RET (*secConnectProc) (struct tag_GEN_SOCK *pSock); + ST_VOID (*secDisconnectProc) (struct tag_GEN_SOCK *pSock); + ST_RET (*secRxProc) (struct tag_GEN_SOCK *pSock, ST_CHAR *dest, ST_INT maxRx, + ST_INT flags, ST_INT *rxCountOut, ST_BOOLEAN *secDataLeftOut); + ST_RET (*secTxProc) (struct tag_GEN_SOCK *pSock, GEN_SOCK_DATA *sockData, ST_INT *numSentOut); + ST_VOID (*secWritable) (struct tag_GEN_SOCK *pSock); + ST_VOID (*secSockFree) (struct tag_GEN_SOCK *pSock); + + ST_VOID *secCtrl; + +/* Set to enable write select */ + ST_BOOLEAN chkWritable; + } GEN_SOCK_CONFIG; + +/************************************************************************/ + +/* State defines for GEN_SOCK */ +#define GS_STATE_LISTENING 1 +#define GS_STATE_STOPPING_LISTEN 2 +#define GS_STATE_FAILED_LISTEN 3 +#define GS_STATE_CONNECTING 4 +#define GS_STATE_CONNECTED 5 +#define GS_STATE_CLOSED 6 + +/* Role defines */ +#define GS_ROLE_CALLING 1 +#define GS_ROLE_LISTENING 2 +#define GS_ROLE_CALLED 3 + +/* disconnectReason defines */ +#define GS_DISCONNECT_UNKNOWN 0 +#define GS_DISCONNECT_CONNECT_FAILED 1 +#define GS_DISCONNECT_USR_REFUSED 2 +#define GS_DISCONNECT_SEND_FAILURE 3 +#define GS_DISCONNECT_RECV_FAILED 4 +#define GS_DISCONNECT_ACCEPT_FAILED 5 +#define GS_DISCONNECT_CLOSED 6 +#define GS_DISCONNECT_TERMINATING 7 +#define GS_DISCONNECT_RESOURCES_ERROR 8 +#define GS_DISCONNECT_INTERNAL_ERROR 9 +#define GS_DISCONNECT_NORMAL_DISCONNECT 10 /* normal disconnect */ +/* disconnectReason for SSL connection */ +#define GS_DISCONNECT_SSLE_LICENSE 11 /* SSL Engine licence expired */ +#define GS_DISCONNECT_SSLE_INT_ERR 12 /* SSL Engine internal error */ +#define GS_DISCONNECT_REKEY_FAILED 13 /* failed to rekey SSL conn */ +#define GS_DISCONNECT_CERT_VERIFY_ERR 14 /* certificate not acceptable */ +#define GS_DISCONNECT_CERT_ON_CRL 15 /* certificate on CRL */ +#define GS_DISCONNECT_SEC_PARAM_ERR 16 /* cipher or cert ctrl err */ +/* update gensock2.c sockDisconnReasonStr when more codes added */ + +extern ST_CHAR *sockDisconnReasonStr[]; +extern ST_INT sockDisconnReasonStrCnt; +/* disconnectReason strings for logging */ +#define GS_DISCONNECT_REASON_STR(reason) ((reason < sockDisconnReasonStrCnt) ? sockDisconnReasonStr[reason] : "DISCONNECT REASON: UNKNOWN") + +/* Hunt state defines */ +#define GENSOCK_HUNT_UNDERWAY 1 +#define GENSOCK_HUNT_DONE 2 +#define GENSOCK_HUNT_RESET 3 +#define GENSOCK_HUNT_DISCONNECT 4 /* stop hunting and disconnect */ + +#define RECV_STATE_HUNT 1 +#define RECV_STATE_DATA 2 + +#define GEN_SOCK_CTX_NAME_MAX_STR 32 /* Socket Context max name length */ +#define GEN_SOCK_CTX_ID_MAX_STR 20 +#define GEN_SOCK_SOCK_ID_MAX_STR (GEN_SOCK_CTX_NAME_MAX_STR + GEN_SOCK_CTX_ID_MAX_STR + 20) + +struct tag_GEN_SOCK_CTXT; /* Forward reference */ + +typedef struct tag_GEN_SOCK + { + DBL_LNK l; /* internal use */ + +/* Socket state */ + ST_INT sockState; + ST_INT role; + +/* Valid in user socket disconnet call */ + ST_INT disconnectReason; + +/* Config parameters */ + GEN_SOCK_CONFIG sockCfg; + + GEN_SOCK_STATS sockStats; + +/* For Listen socket only */ + ST_UINT maxActive; + ST_UINT numActive; + +/* For called socket, reference the listen socket */ + struct tag_GEN_SOCK *listenSocket; + + ST_INT callingAddrLen; + SOCKADDR_IN callingAddr; + +/* Internal */ + SOCKET hSock; + + ST_INT recvState; + ST_CHAR *recvBuf; + ST_INT recvDoneCount; + ST_INT recvCurrCount; + ST_CHAR *hdrBuf; /* ptr to buffer allocated after this struct*/ + GEN_SOCK_DATA *sockData; + + struct sockaddr_in sockAddrIn; + ST_BOOLEAN usrCloseCalled; + ST_BOOLEAN recvUsing; + + struct tag_GEN_SOCK_CTRL *serviceCtrl; + + GEN_SOCK_DATA *sockTxPend; /* Queue of data to be sent. */ + ST_UINT sockTxQueueGroupCnt; /* num of queued msgs w/eot to tx */ + + /* Fields added since MMS-SECURE, ICCP-SECURE v1.03 release */ + ST_UINT sockId; /* different id for each socket */ + ST_CHAR sockIdStr[GEN_SOCK_SOCK_ID_MAX_STR]; /* assemble for use in log later */ + + struct tag_GEN_SOCK_CTXT *sockCtx; + } GEN_SOCK; + +/************************************************************************/ + +/* Allow one for wakeup socket */ +#define GS_MAX_SOCK_PER_SERVICE FD_SETSIZE - 1 + +typedef struct tag_GEN_SOCK_CTRL + { + DBL_LNK l; + ST_INT numSock; + GEN_SOCK *sockList; + ST_DOUBLE lastCheckIdleTime; + +#if defined(GENSOCK_THREAD_SUPPORT) + ST_EVENT_SEM serviceEvent; + ST_THREAD_HANDLE thService; + ST_THREAD_ID tIdService; + + ST_UINT16 wakeupPort; + SOCKET xCalledSock; + SOCKET xCallingSock; +#endif /* GENSOCK_THREAD_SUPPORT */ + + struct tag_GEN_SOCK_CTXT *sockCtx; + } GEN_SOCK_CTRL; + +/************************************************************************/ +/* GEN_SOCK_EVENT: Socket event structure to store incoming event. */ + +/* Values for "eventType" member of GEN_SOCK_EVENT structure. */ +#define GS_EVENT_CONNECT_IND 1 /* connect indication */ +#define GS_EVENT_CONNECT_CONF 2 /* connect confirmation */ +#define GS_EVENT_DISCONNECT 3 /* socket disconnected */ +#define GS_EVENT_DATA_IND 4 /* data indication */ + +typedef struct + { + DBL_LNK l; + ST_INT eventType; /* type of event (GS_EVENT_DATA_IND, etc.)*/ + GEN_SOCK *pSock; + GEN_SOCK_DATA *sockData; + } GEN_SOCK_EVENT; + +/************************************************************************/ +/* gensock2 context */ +/* each sockStart() call will create new context with its own lists, */ +/* threads, and events handling. Call sockEnd() to clean. */ + +/* ctxStatus states */ +#define GEN_SOCK_CTX_ACTIVE 0 +#define GEN_SOCK_CTX_TERMINATING 1 + + +typedef struct tag_GEN_SOCK_CTXT + { + DBL_LNK l; /* internal use */ + + ST_UINT ctxId; /* diff id for each context */ + ST_INT ctxStatus; /* GEN_SOCK_CTX_xxx */ + ST_CHAR ctxName[GEN_SOCK_CTX_NAME_MAX_STR + GEN_SOCK_CTX_ID_MAX_STR]; + ST_BOOLEAN log_disable; + + /* Lists */ + GEN_SOCK_CTRL *sockServiceList; + + GEN_SOCK_EVENT *sockEventList; /* socket event list */ + /* maintained by sockEventPut/Get*/ + ST_INT sockEventCount; /* num events on sockEventList */ + /* maintained by sockEventPut/Get*/ + + ST_UINT maxIdleTime; /* ms, if>0 check for idle cons, */ + /* SISCO's KeepAlive implementation */ + + #if defined(GENSOCK_THREAD_SUPPORT) + /* Port used for wakeup sockets */ + ST_UINT16 gs_wakeup_port; /* default >= 55050 */ + + /* Used by list service thread */ + ST_INT gs_select_timeout; /* default = 100000 */ + + ST_BOOLEAN gTerminateService; + + #endif /* defined(GENSOCK_THREAD_SUPPORT) */ + } GEN_SOCK_CTXT; + +extern GEN_SOCK_CTXT *sockCtxList; /* contexts list */ + + +/************************************************************************/ +/* gensock2 user functions */ + +ST_RET sockStart (ST_CHAR *ctxName, GEN_SOCK_CTXT **sockCtxOut); +ST_RET sockStartEx (ST_CHAR *ctxName, GEN_SOCK_CTXT **sockCtxOut, ST_BOOLEAN log_disable); +ST_RET sockEnd (GEN_SOCK_CTXT *sockCtx); + +ST_RET sockInitCalling (GEN_SOCK_CTXT *sockCtx, GEN_SOCK_CONFIG *sockCfg, + ST_UINT16 portNo, ST_CHAR *ipAddr, GEN_SOCK **pSockOut); + +ST_RET sockInitListen (GEN_SOCK_CTXT *sockCtx, GEN_SOCK_CONFIG *sockCfg, + ST_UINT16 portNo, ST_INT maxActive, GEN_SOCK **pListenSockOut); + +ST_RET sockTx (GEN_SOCK *pSock, GEN_SOCK_DATA *sockData, ST_INT *numSentOut); +ST_RET sockTxMsg (GEN_SOCK *pSock, GEN_SOCK_DATA *sockData); +ST_RET sockTxQueueAdd (GEN_SOCK *pSock, GEN_SOCK_DATA *sockData, ST_BOOLEAN first); +ST_RET sockTxQueueDestroy (GEN_SOCK *pSock); +ST_RET sockTxQueueProc (GEN_SOCK *pSock); +ST_UINT sockTxQueueGroupCntGet (GEN_SOCK *pSock); +ST_RET sockStopRecv (GEN_SOCK *pSock); +ST_RET sockClose (GEN_SOCK *pSock); +ST_RET sockFree (GEN_SOCK *pSock); + +/* Polling support */ + +/* Get socket descriptors */ +typedef struct + { + ST_INT totalfds; + ST_UINT selectnfds; + + ST_INT numReadfds; + fd_set readfds; + + ST_INT numWritefds; + fd_set writefds; + + ST_INT numExceptfds; + fd_set exceptfds; + } GENSOCK_FD_SET; + +ST_VOID sockGetFds (GEN_SOCK_CTRL *serviceCtrl, GENSOCK_FD_SET *sockFds); + +/* Return values for sockCtrlService, sockSelectResultProcess */ +#define GS_SELECT_NO_ACTIVE_SOCK 1 +#define GS_SELECT_TIMEOUT 2 +#define GS_SELECT_ERROR 3 +#define GS_SELECT_ACTIVE 4 +#define GS_SELECT_TERMINATED 5 + +ST_VOID sockServiceAll (GEN_SOCK_CTXT *sockCtx, ST_LONG timeOut); +ST_INT sockCtrlService (GEN_SOCK_CTRL *serviceCtrl, ST_LONG timeOut); + +#if !defined(GENSOCK_THREAD_SUPPORT) +ST_VOID sockInitAllFds (GENSOCK_FD_SET *sockFds); +#endif + +ST_VOID sockInitFds (GEN_SOCK_CTRL *serviceCtrl, GENSOCK_FD_SET *sockFds); +ST_VOID sockAddReadFds (GENSOCK_FD_SET *sockFds, SOCKET hSock); +ST_VOID sockAddWriteFds (GENSOCK_FD_SET *sockFds, SOCKET hSock); +ST_VOID sockAddExceptFds (GENSOCK_FD_SET *sockFds, SOCKET hSock); +ST_INT sockSelectResultProcess (GEN_SOCK_CTRL *serviceCtrl, + int nfds, GENSOCK_FD_SET *sockFds); + +/* Thread support */ +ST_RET sockCreateWakeupSockets (GEN_SOCK_CTXT *sockCtx, + ST_UINT16 basePort, ST_UINT portRange, + ST_UINT16 *usedPort, + SOCKET *callingSock, SOCKET *calledSock); +ST_VOID sockServiceWakeAll (GEN_SOCK_CTXT *sockCtx); +ST_VOID sockServiceWake (GEN_SOCK_CTRL *serviceCtrl); + +/* Logging */ +ST_VOID sockLogState (GEN_SOCK_CTXT *sockCtx); +ST_VOID sockLogSockState (GEN_SOCK *pSock, ST_CHAR *prefix); + +/* Socket info */ +ST_RET sockGetRemAddrInfo (GEN_SOCK *pSock, SOCKADDR_IN *remSockAddrDest, + ST_CHAR **remAddrTxtOut, ST_INT *portOut); + +/* Functions to maintain list of GEN_SOCK_EVENT. */ +ST_VOID sockEventPut (GEN_SOCK_CTXT *sockCtx, GEN_SOCK_EVENT *event); /* put on list*/ +GEN_SOCK_EVENT *sockEventGet (GEN_SOCK_CTXT *sockCtx); /* get from list*/ +ST_VOID sockEventQueueFlush (GEN_SOCK_CTXT *sockCtx, GEN_SOCK *pSock); + +/************************************************************************/ +/************************************************************************/ +/* INTERNAL */ +/************************************************************************/ + +/* sockUsrFun calls usrFun for each socket in every context, if the */ +/* usrFun doesn't return SD_SUCCESS then socket will be closed; */ +/* errMsg will be logged on error. */ +ST_VOID sockUsrFun (ST_RET (*usrFun)(ST_VOID *secCtrl), ST_CHAR *errMsg); + +GEN_SOCK *_sockAllocSock (GEN_SOCK_CTXT *sockCtx, + ST_INT role, ST_INT sockState, SOCKET hSock, + GEN_SOCK_CONFIG *sockCfg); +ST_RET _sockAddSock (GEN_SOCK *pSock); + +ST_RET _sockRecv (GEN_SOCK *pSock, ST_CHAR *dest, + ST_INT maxRx, ST_INT flags, ST_INT *rxCountOut); + +ST_RET _sockTx (GEN_SOCK *pSock, GEN_SOCK_DATA *sockData, ST_INT *numSentOut); + +/* OBSOLETE: For backward compatibility only. New code should use "sockClose".*/ +#define _sockClose sockClose + + + /* -------------------------------------------- */ + /* Misc socket related functions */ + /* -------------------------------------------- */ + +ST_ULONG convertIPAddr (ST_CHAR *ipAddrStr, ST_BOOLEAN useGetHostByName); + + +/************************************************************************/ + +#ifdef __cplusplus +} +#endif + +#endif /* GENSOCK_INCLUDED */ + + + + + + diff --git a/include/inc/glberror.h b/include/inc/glberror.h new file mode 100644 index 0000000..2890660 --- /dev/null +++ b/include/inc/glberror.h @@ -0,0 +1,117 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 1997, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : glberror.h */ +/* PRODUCT(S) : MMSEASE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains defines for all the entities that may */ +/* generate error code. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 10/30/98 DSF 02 Added E_ACTIVEMMS */ +/* 03/18/98 JRB 01 Added E_ASN1_DEC. */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + + +/*** NOTE : These defines are for reference only, and are not used in */ +/* creating the actual error code defines. */ + +#ifndef GBLERROR_INCLUDED +#define GBLERROR_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#define E_SUBSYS 0x0 /* underlying MAP subsystem: */ + /* Board or Board Driver (non-SISCO) */ + +#define E_DRIVER 0x100 /* SISCO MAP Board Driver */ +#define E_DH 0x200 /* SISCO Data Highway Driver */ + +#define EX_DRIVER 0x500 /* SISCO MAP Board Driver Exceptions */ +#define EX_DH 0x600 /* SISCO Data Highway Driver Exceptions */ + +#define E_CASESUIC 0xA00 /* CASE SUIC */ +#define E_ACSESUIC 0xB00 /* ACSE SUIC */ + +#define EX_CASESUIC 0xE00 /* CASE SUIC Exceptions */ +#define EX_ACSESUIC 0xF00 /* ACSE SUIC Exceptions */ + +#define E_TP4 0x1200 /* TP4 errors (see tp4api.h) */ + +#define E_CASESUIC_IS 0x1400 /* CASE SUIC Implementation Specific */ +#define E_ACSESUIC_IS 0x1500 /* ACSE SUIC Implementation Specific */ + +#define EX_CASESUIC_IS 0x1900 /* CASE SUIC Implementation Specific Exceptions */ +#define EX_ACSESUIC_IS 0x1A00 /* ACSE SUIC Implementation Specific Exceptions */ + +#define E_SESSIF 0x1E00 /* Session Interface */ +#define E_CASE 0x1F00 /* SISCO CASE Layer Provider */ + +#define EX_SESSIF 0x2400 /* Session Interface Exceptions */ +#define EX_CASE 0x2500 /* SISCO CASE Layer Provider Exceptions */ + +#define E_SESSIF_IS 0x2800 /* Session IF Implementation Spec */ +#define E_CASE_IS 0x2900 /* SISCO CASE Layer Provider Imp. Spec */ + +#define EX_SESSIF_IS 0x2D00 /* Session IF Implementation Spec Exceptions */ +#define EX_CASE_IS 0x2E00 /* SISCO CASE Layer Provider Imp. Spec Exceptions */ + +#define E_ACSE2 0x3000 /* ACSE2 errors (see acse2usr.h) */ +#define E_COPP 0x3100 /* COPP errors (see copp_usr.h) */ +#define E_COSP 0x3200 /* COSP errors (see cosp_usr.h) */ +#define E_CLNP 0x3400 /* CLNP errors (see clnp_usr.h) */ +#define E_SUBNET 0x3500 /* SUBNET errors (see clnp_usr.h) */ +#define E_ADLC 0x3600 /* ADLC errors (see adlc_usr.h) */ +#define E_RLI_IPC 0x3700 /* RLI_IPC errors (see rli_ipce.h) */ + +#define E_CFG_UTIL 0x4000 /* CFG UTIL codes */ +#define E_HLM 0x4100 /* HLM codes */ +#define E_HLM_MMS 0x4200 /* HLM MMS code */ + +#define E_ACTIVEMMS 0x4A00 /* ActiveMMS codes */ + +#define E_CM 0x5100 /* CM error codes base */ +#define E_CRM 0x5200 /* CRM error codes base */ + +#define E_MMS_GEN 0x6400 /* General provider */ +#define E_MMS_PPI 0X6500 /* Paired Primitive Interface */ +#define E_MMS_RESP 0x6600 /* Request Control Block (resp_err) */ +#define E_MMS_VMI 0x6700 /* Virtual Machine Interface */ +#define E_MMS_EXCPT 0x6800 /* MMS exceptions */ +#define E_LLP_ACSE 0x6900 /* ACSE LLP codes */ +#define E_LLP_CASE 0x6A00 /* CASE LLP codes */ +#define E_LLP_LLC 0x6B00 /* LLC LLP codes */ +#define E_MMS_LITE 0x6A00 /* MMS-LITE codes */ + +#define E_MMS_DS 0x6B00 /* MMS Directory Services */ + +#define E_ASN1_DEC 0x7000 /* ASN.1 decode errors */ + +/* The following define indicates the beginning of a range for */ +/* User-Defined error codes. Users may define error codes above this */ +/* value without conflicting with SISCO defined errors. */ + +#define E_USER_APP 0x7E00 /* User Application errors */ + +/* ******** DO NOT DEFINE ANY ERROR CODES ABOVE "0x7E00" ******** */ + +#ifdef __cplusplus +} +#endif + +#endif + diff --git a/include/inc/glbopt.h b/include/inc/glbopt.h new file mode 100644 index 0000000..5fc5f58 --- /dev/null +++ b/include/inc/glbopt.h @@ -0,0 +1,43 @@ +#ifndef GLBOPT_INCLUDED +#define GLBOPT_INCLUDED +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2002-2002 All Rights Reserved */ +/* */ +/* MODULE NAME : glbopt.h */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* Global compiler options to be used by all SISCO source modules. */ +/* This file may be used to enable optional features in */ +/* MMSEASE-LITE. Usually this is easier than adding an */ +/* option to several makefiles. If this file is modified, all */ +/* source code should be recompiled. */ +/* */ +/* This file must be included by "glbtypes.h" so that all SISCO */ +/* source modules will indirectly include it. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 05/09/05 JRB 09 Delete all defines. This file should now be */ +/* used only for "user" customization. */ +/* 09/22/03 EJV 08 Deleted ACSE_AUTH_ENABLED, S_SEC_ENABLED */ +/* 07/16/03 MDE 07 Removed ACSE_AUTH_ENABLED */ +/* 07/15/03 EJV 06 ACSE_AUTH_ENABLED enabled (ICCP Gateway) */ +/* 04/17/03 JRB 05 Chg MVLU_LEAF_FUN_LOOKUP_ENABLE (defined). */ +/* 12/20/02 JRB 04 Add MVLU_LEAF_FUN_LOOKUP_ENABLE (!defined). */ +/* 12/18/02 JRB 03 Add USE_RT_TYPE_2 (defined by default). */ +/* 10/17/02 ASK 02 Added ACSE_AUTH_ENABLED */ +/* 02/27/02 JRB 01 Created */ +/************************************************************************/ + +/* + * NOTE: Insert "global" defines here. These will be used when compiling + * all SISCO code. + */ + +#endif /* !GLBOPT_INCLUDED */ + diff --git a/include/inc/glbsem.h b/include/inc/glbsem.h new file mode 100644 index 0000000..23933b9 --- /dev/null +++ b/include/inc/glbsem.h @@ -0,0 +1,565 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1997-2008, All Rights Reserved */ +/* */ +/* MODULE NAME : glbsem.h */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : Multi-thread support defines and prototypes. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 06/01/08 EJV 61 Ported to Windows Vista. */ +/* 01/15/07 EJV 60 Chg S_LOCK_RESOURCES to S_LOCK_UTIL_RESOURCES*/ +/* 12/15/06 MDE 59 Added S_UNLOCK_CR_AND_RETURN_VAL */ +/* 10/25/06 EJV 58 Ported to HP-UX. */ +/* 07/13/06 EJV 57 Sun: changed the test for POSIX define. */ +/* 03/23/06 EJV 56 Added ( ) in #if a || b || (c && d). */ +/* 01/30/06 GLB 55 Integrated porting changes for VMS */ +/* 08/04/05 EJV 54 Reworked defs for UNIX and LINUX */ +/* 04/12/05 DSF 53 Added refCount member to GS_MUTEX (Windows) */ +/* 01/10/05 DSF 52 Added event member to GS_TIMER */ +/* 01/06/05 DSF 51 Added owner member to GS_MUTEX (Windows) */ +/* 01/14/05 EJV 50 Change removed. */ +/* 06/09/04 EJV 49 Added multithread support for sun. */ +/* 08/23/04 EJV 48 GS_TIMER: rpl elapsed w/ ST_DOUBLE expiration*/ +/* 05/10/04 EJV 47 gs_timer_cleanup: added timeout parameter. */ +/* gs_timer_init: added min_workers, max_workers*/ +/* Added GS_TIMER_WORKER_... defines. */ +/* GS_TIMER: added/moved fields. */ +/* 01/21/04 JRB 46 Add LYNX support. */ +/* 01/21/04 EJV 45 Win Timers: changed to use UNIX code. */ +/* Win impl preserved with _WIN32_timers define */ +/* 12/03/03 EJV 44 Add SD_WIN_VER_2003_AND_LATER, replaced */ +/* SD_WIN_VER_NET with SD_WIN_VER_2003; */ +/* gs_is_win_ver(): chg return ST_RET to ST_INT */ +/* 12/01/03 EJV 43 Added SD_WIN_VER_2K_AND_LATER. */ +/* 11/04/03 JRB 42 Del gs_sleep (use sMsSleep). */ +/* 10/24/03 JRB 41 Move gs_debug_sel to slog.h. */ +/* 09/29/03 JRB 40 Add "linux" support. */ +/* Enable gs_timer* functions for ALL systems. */ +/* 06/20/03 EJV 39 Redesigned mutex sems implementation. */ +/* 06/11/03 EJV 38 gs_named_mutex_xxx, gs_get_named_event_sem */ +/* defined for all systems. */ +/* __alpha: removed gs_xxx_sig and related code.*/ +/* 06/10/03 EJV 37 _WIN32: added gs_named_mutex_xxx functions. */ +/* 06/06/03 JRB 36 S_LOCK_RESOURCES use new gs_util_mutex. */ +/* Use new "Base" macros SLOG_*, SLOGC_*, SLOGH.*/ +/* Del GLBSEM_LOG_ALWAYS*, use SLOGALWAYS*. */ +/* 06/03/03 EJV 35 _WIN32: changed for 64-bit compiler: */ +/* ST_THREAD_HANDLE to uintptr_t */ +/* 04/14/03 JRB 34 Chg mutex macros to use gs_mutex_get/free. */ +/* Chg gs_get/free_sem functions to macros. */ +/* 03/03/24 EJV 33 Added _glbem_err_logstr & _glbem_nerr_logstr;*/ +/* S_LOCK_RESOURCES, S_UNLOCK_RESOURCES call */ +/* now non-logging gs_get_sem & gs_free_sem. */ +/* 02/03/03 EJV 32 _WIN32: added gs_is_win_ver(), SD_WIN_.. defs*/ +/* added gs_get_named_event_sem() */ +/* 01/14/03 EJV 31 Added gs_sleep(). */ +/* 11/01/02 EJV 30 Use SISCO's link list in GS_TIMER. */ +/* 07/29/02 EJV 29 Added gs_timer_get_resolution(), */ +/* GS_TIMER: made more fields common to UNIX,Win*/ +/* Added field delay_start for WIN32. */ +/* 04/09/02 EJV 28 __alpha: moved pthread.h up (cleaner code) */ +/* 02/06/02 EJV 27 _AIX: check for _THREAD_SAFE compiler define */ +/* 10/31/01 EJV 26 _WIN32: added code to call _beginthreadex; */ +/* Added gs_close_thread, gs_pulse_event_sem; */ +/* Added _ERR, _NERR log macros */ +/* UNIX: chg predicate to ST_INT from ST_BOOLEAN*/ +/* UNIX: added manualReset to GS_EVENT_SEM. */ +/* 09/20/01 EJV 25 _WIN32: added pending field to GS_TIMER. */ +/* 08/01/01 JRB 24 Add comment explaining S_LOCK_RES.. */ +/* 07/30/01 EJV 23 Added gs_timer_set_resolution().Chg GS_TIMER.*/ +/* Added ST_THREAD_RET, ST_THREAD_RET_VAL macros*/ +/* and changed gs_start_thread arg. */ +/* 07/25/01 DSF 22 Use <> when including windows.h */ +/* 07/24/01 EJV 21 _WIN32: added gs_timer support. */ +/* 04/04/01 DSF 20 Added gs_set_thread_name for WIN32 */ +/* 03/15/01 EJV 19 UNIX: corrected spelling of REENTRANT. */ +/* 03/07/01 EJV 18 Added slog macros for !DEBUG_SISCO */ +/* 02/19/01 EJV 17 _AIX: eliminated need to call gs_timer_init. */ +/* 02/16/01 EJV 16 AIX: added timer functions gs_times_xxx. */ +/* 01/16/01 EJV 15 Moved GET_THREAD_ID define here from glbsem.c*/ +/* 12/20/00 EJV 14 Ported to AIX. Revised DEC UNIX. */ +/* 12/13/00 EJV 13 Added gs_mutex_... funs for multiple mutex */ +/* semaphores support. Added ST_MUTEX_SEM. */ +/* 12/13/00 EJV 12 Removed USE_MANUAL_RESET_SEM. */ +/* 12/06/00 EJV 11 Changed gs_get_event_sem to accept arg. */ +/* 10/25/00 JRB 10 For _WIN32, define S_MT_SUP.. if _MT defined.*/ +/* 10/06/00 EJV 09 Ported to DEC UNIX (__alpha) pthread funcs. */ +/* Added few GLBSEM_LOG_FLOWn macros. */ +/* Deleted gs_chk_thread_id(), check _REENTRANT */ +/* 01/21/00 JRB 08 Del *sem_fun & *sem_funx function pointers. */ +/* Chg macros to call functions directly. */ +/* S_GS_INSTALL, gs_install, S_GS_INIT obsolete.*/ +/* Chg macros if !S_MT_SUPPORT to call gs_chk...*/ +/* 09/13/99 MDE 07 Added SD_CONST modifiers */ +/* 08/02/99 JRB 06 Chged "gs_get_event_sem" to "auto-reset" & */ +/* #ifdef'd out "gs_reset_event_sem". */ +/* 10/08/98 MDE 05 Migrated to updated SLOG interface */ +/* 05/05/98 DSF 04 Added SD_TIMEOUT */ +/* 12/11/97 KCR 03 Added gs_wait_mult_event_sem for _WIN32 */ +/* 10/06/97 DSF 02 Modified the macros used by SLOG such that */ +/* they could be used by SLOG in DEBUG_SISCO */ +/* mode */ +/* 08/15/97 MDE 01 Changed default ST_xxx to ST_VOID * */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef GBLSEM_INCLUDED +#define GBLSEM_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "slog.h" +#include "stime.h" +#include "gen_list.h" + +/************************************************************************/ +#define SD_TIMEOUT 2 + +/************************************************************************/ +/* Logging masks and variable */ + +#define GS_LOG_FLOW 0x0001 +#define GS_LOG_ERR 0x0002 +#define GS_LOG_NERR 0x0004 + +extern SD_CONST ST_CHAR *SD_CONST _glbem_flow_logstr; +extern SD_CONST ST_CHAR *SD_CONST _glbem_err_logstr; +extern SD_CONST ST_CHAR *SD_CONST _glbem_nerr_logstr; + +/* Mutex types: unnamed (local) can be used to synchronize threads in */ +/* a process, and named (global) can be used to synchronize processes */ +/* and threads within a process. */ +#define GS_MUTEX_UNNAMED 0 +#define GS_MUTEX_NAMED 1 + +/************************************************************************/ +/* Just for convenience ... */ +#define S_UNLOCK_CR_AND_RETURN() {S_UNLOCK_COMMON_RESOURCES(); return;} +#define S_UNLOCK_CR_AND_RETURN_VAL(_rc) {S_UNLOCK_COMMON_RESOURCES(); return (_rc);} + +/************************************************************************/ +/************************************************************************/ +/* WINDOWS 95/98/NT/2000 */ +/* These typedefs, defines, and function prototypes are for use with */ +/* Windows only. */ +/************************************************************************/ + +#if defined(_WIN32) /* VC++, 32-Bit */ + +#include + +/* The VC++ compiler automatically defines (_MT) if Multithread libs */ +/* are selected. The user clearly wants multithread support, so */ +/* S_MT_SUPPORT "MUST" be enabled. */ +/* DEBUG: something similar should be done for any system that supports */ +/* multithreading (e.g. OS2). */ + +#if defined(_MT) && !defined(S_MT_SUPPORT) +#define S_MT_SUPPORT +#endif + +#define ST_THREAD_ID unsigned + +typedef struct gs_mutex_tag + { + ST_INT mutexType; /* GS_MUTEX_UNNAMED (_NAMED) */ + ST_THREAD_ID owner; + ST_THREAD_ID refCount; + union + { + HANDLE hMutex; /* for named mutex & unnamed special */ + CRITICAL_SECTION cs; /* for unnamed mutex */ + } u; + } GS_MUTEX; + +#define GET_THREAD_ID() GetCurrentThreadId() +#define ST_MUTEX_SEM GS_MUTEX +#define ST_EVENT_SEM HANDLE +#if (_MSC_VER >= 1300) +#define ST_THREAD_HANDLE uintptr_t +#else +#define ST_THREAD_HANDLE unsigned long +#endif +#define ST_THREAD_ARG void * +#define ST_THREAD_CALL_CONV __stdcall +#define ST_THREAD_RET unsigned +#define ST_THREAD_RET_VAL 0 + +/* defines to distinguish Windows versions passed to gs_is_win_ver() */ +#define SD_WIN_VER_95_98_Me 1 /* 95, 98, Me */ +#define SD_WIN_VER_NT_AND_LATER 2 /* NT 3.51, NT 4.0 and above */ +#define SD_WIN_VER_2K_AND_LATER 3 /* 2000 and above */ +#define SD_WIN_VER_XP_AND_LATER 4 /* XP and above */ +#define SD_WIN_VER_2003_AND_LATER 5 /* 2003 and above */ +#define SD_WIN_VER_VISTA_AND_LATER 6 /* Vista and above */ + +/* specific Windows version */ +#define SD_WIN_VER_95 10 +#define SD_WIN_VER_98 20 +#define SD_WIN_VER_Me 30 +#define SD_WIN_VER_NT_351 40 +#define SD_WIN_VER_NT_40 50 +#define SD_WIN_VER_2000 60 +#define SD_WIN_VER_XP 70 +#define SD_WIN_VER_2003 80 +#define SD_WIN_VER_VISTA 90 + +#endif /* defined(_WIN32) */ + + +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ +/* UNIX, Linux, ... */ +/* These typedefs, defines, and function prototypes are for use with */ +/* UNIX, Linux,... only */ +/* Implemented functions are complying with the "POSIX 1003.1c" standard.*/ +/************************************************************************/ + +#if defined(_AIX) || defined(sun) || defined(__hpux) || \ + defined(linux) || defined(__LYNX) || \ + (defined(__alpha) && !defined(__VMS)) || /* Tru64 alpha */ \ + (defined(__ALPHA) && defined(__VMS)) /* OpenVMS alpha */ + +#if (defined(__alpha) && !defined(__VMS)) || /* Tru64 alpha */ \ + (defined(__ALPHA) && defined(__VMS)) /* OpenVMS alpha */ +/* If the code is compiled with -pthread switch then the _REENTRANT */ +/* symbol is defined. This means that there should be a multithread */ +/* support for the code (the S_MT_SUPPORT should be defined). */ + +#if defined(_REENTRANT) && !defined(S_MT_SUPPORT) +#define S_MT_SUPPORT +#endif + +/* According to the POSIX standard this define should be included in */ +/* every application module. The included in */ +/* defines the _POSIX_C_SOURCE to be 199506L. */ + +#define _POSIX_C_SOURCE 199506L +#endif /* defined(__alpha) && !defined(__VMS) */ + +#if defined(_AIX) +/* If the compiler defines _THREAD_SAFE we should build the code */ +/* with multithread support (the S_MT_SUPPORT should be defined). */ + +#if defined(_THREAD_SAFE) && !defined(S_MT_SUPPORT) +#define S_MT_SUPPORT +#endif +#endif /* defined(_AIX) */ + +#if defined(sun) || defined(__hpux) +/* On Solaris 9,10 an application must define _POSIX_C_SOURCE >=199506L */ +/* IN EVERY MODULE OF AN APPLICATION to get the multithread support. */ +/* There is no other compiler define that indicates if a module is */ +/* compiled for multithread support. */ + +#define _POSIX_C_SOURCE 199506L + +#if (_POSIX_C_SOURCE-0 >= 199506L) && !defined(S_MT_SUPPORT) +#define S_MT_SUPPORT +#endif +#endif /* defined(sun) || defined(__hpux) */ + +#if defined(linux) || defined(__LYNX) +/* If the compiler defines _THREAD_SAFE, we should build the code */ +/* with multithread support (the S_MT_SUPPORT should be defined). */ + +#if (defined(_THREAD_SAFE) || defined(_REENTRANT)) && !defined(S_MT_SUPPORT) +#define S_MT_SUPPORT +#endif +#endif /* defined(linux) */ + +#if defined(S_MT_SUPPORT) +#include +typedef struct gs_event_sem_tag + { + ST_INT predicate; /* predicate to change value */ + pthread_mutex_t mutex; /* mutex sem protecting the cond*/ + pthread_cond_t cond; /* condition variable */ + ST_BOOLEAN manualReset; /* type os event semaphore */ + } GS_EVENT_SEM; + +#define GET_THREAD_ID() pthread_self() +#define ST_MUTEX_SEM pthread_mutex_t +#define ST_EVENT_SEM GS_EVENT_SEM * +#define ST_THREAD_ID pthread_t +#define ST_THREAD_HANDLE pthread_t +#define ST_THREAD_ARG void * +#define ST_THREAD_CALL_CONV +#define ST_THREAD_RET void * +#define ST_THREAD_RET_VAL NULL +#endif /* defined(S_MT_SUPPORT) */ + +#endif /* defined UNIX, linux,... */ + + +/************************************************************************/ +/************************************************************************/ +/* If no system has defined the required types, do so now. This allows */ +/* the source to include variables of these types w/o errors. */ + +#if !defined (ST_EVENT_SEM) + +#define GET_THREAD_ID() (ST_THREAD_ID) 0xFFFFFFFF +#define ST_MUTEX_SEM ST_VOID * +#define ST_EVENT_SEM ST_VOID * +#define ST_THREAD_ID ST_VOID * +#define ST_THREAD_HANDLE ST_VOID * +#define ST_THREAD_ARG ST_VOID * +#define ST_THREAD_CALL_CONV +#define ST_THREAD_RET ST_VOID +#define ST_THREAD_RET_VAL + +#endif /* !defined (ST_EVENT_SEM) */ + +/************************************************************************/ +/************************************************************************/ +/* Global functions */ + +/* SISCO Single MUTEX functions */ +ST_RET gs_init (ST_VOID); +ST_VOID gs_log_sem_state (ST_VOID); +ST_VOID gs_get_semx (SD_CONST ST_CHAR *srcFile, ST_INT srcLineNum); +ST_VOID gs_free_semx (SD_CONST ST_CHAR *srcFile, ST_INT srcLineNum); + +/* User's MUTEX Semaphore functions */ +ST_RET gs_mutex_create (ST_MUTEX_SEM *ms); +ST_RET gs_named_mutex_create (ST_MUTEX_SEM *ms, ST_CHAR *name); +ST_RET gs_mutex_get_tm (ST_MUTEX_SEM *ms, ST_LONG timeout); +#define gs_mutex_get(ms) gs_mutex_get_tm(ms, -1L) +ST_RET gs_mutex_free (ST_MUTEX_SEM *ms); +ST_RET gs_mutex_destroy (ST_MUTEX_SEM *ms); + +/* Event Semaphores */ +ST_EVENT_SEM gs_get_event_sem (ST_BOOLEAN manualReset); +ST_EVENT_SEM gs_get_named_event_sem (ST_CHAR *name, ST_BOOLEAN manualReset); +ST_RET gs_wait_event_sem (ST_EVENT_SEM es, ST_LONG timeout); +ST_RET gs_wait_mult_event_sem (ST_INT numEvents, ST_EVENT_SEM *esTable, + ST_BOOLEAN *activity, ST_LONG timeout); +ST_VOID gs_signal_event_sem (ST_EVENT_SEM es); +ST_VOID gs_pulse_event_sem (ST_EVENT_SEM es); +ST_VOID gs_reset_event_sem (ST_EVENT_SEM es); +ST_VOID gs_free_event_sem (ST_EVENT_SEM es); + +/* Thread */ +ST_RET gs_start_thread (ST_THREAD_RET (ST_THREAD_CALL_CONV *threadFunc) (ST_THREAD_ARG), + ST_THREAD_ARG threadArg, + ST_THREAD_HANDLE *threadHandleOut, + ST_THREAD_ID *threadIdOut); +ST_RET gs_wait_thread (ST_THREAD_HANDLE threadHandle, + ST_THREAD_ID threadId, ST_LONG timeout); +ST_RET gs_close_thread (ST_THREAD_HANDLE threadHandle); + +#if defined (_WIN32) +ST_VOID gs_set_thread_name (ST_THREAD_ID threadId, ST_CHAR *pThreadName); +#endif + +/* Misc. functions */ +#if defined (_WIN32) +ST_INT gs_is_win_ver (ST_UINT ver); +#endif + +/************************************************************************/ +/* These are the macro's used to call the glbsem get/free functions. */ +/* Note that the behavior depends on the defines used at compile time. */ + +#if defined(S_MT_SUPPORT) /* If code is to have MT support */ + +#if defined(DEBUG_SISCO) /* MT support, debug */ + +#define S_LOCK_COMMON_RESOURCES() gs_get_semx(thisFileName, __LINE__) +#define S_UNLOCK_COMMON_RESOURCES() gs_free_semx(thisFileName, __LINE__) + +/* NOTE: because S_LOCK_UTIL_RESOURCES & S_UNLOCK_UTIL_RESOURCES are called from SLOG, */ +/* the gs_mutex_get and gs_mutex_free (code handling unnamed mutexes) */ +/* should not be logging to avoid infinite loop (i.e. lock funct calling */ +/* log funct which calls lock funct again). */ +#define S_LOCK_UTIL_RESOURCES() gs_mutex_get (&gs_util_mutex) +#define S_UNLOCK_UTIL_RESOURCES() gs_mutex_free (&gs_util_mutex) + +#else /* MT support, no debug */ + +#define S_LOCK_COMMON_RESOURCES() gs_mutex_get (&gs_glb_mutex) +#define S_UNLOCK_COMMON_RESOURCES() gs_mutex_free (&gs_glb_mutex) + +#define S_LOCK_UTIL_RESOURCES() gs_mutex_get (&gs_util_mutex) +#define S_UNLOCK_UTIL_RESOURCES() gs_mutex_free (&gs_util_mutex) + +#endif + +#else /* No MT support is compiled in */ +#define S_LOCK_COMMON_RESOURCES() +#define S_UNLOCK_COMMON_RESOURCES() +#define S_LOCK_UTIL_RESOURCES() +#define S_UNLOCK_UTIL_RESOURCES() +#endif + +/* FOR BACKWARD COMPATIBILITY ONLY. Old code may be calling gs_get_sem, */ +/* gs_free_sem directly. These calls should be replaced with S_LOCK_.. */ +#define gs_get_sem() S_LOCK_UTIL_RESOURCES() +#define gs_free_sem() S_UNLOCK_UTIL_RESOURCES() + +/************************************************************************/ + +#define MAX_SEM_NEST_TRACK 20 +extern ST_MUTEX_SEM gs_glb_mutex; /* the global mutex semaphore */ +extern ST_MUTEX_SEM gs_util_mutex;/* UTILITY MUTEX semaphore: for "low-level"*/ + /* util functs (slog,mem_chk,stime,etc.)*/ +extern ST_BOOLEAN gs_already_inited; +extern ST_UINT gs_track; /* This variable when set to value >0 */ + /* during an application startup allows */ + /* tracking of MUTEX or EVENT sem. */ +extern ST_INT gs_currSemOwnerIndex; +extern ST_CHAR gs_currSemOwnerFile[MAX_SEM_NEST_TRACK][SLOG_MAX_FNAME+1]; +extern ST_INT gs_currSemOwnerLine[MAX_SEM_NEST_TRACK]; + +extern ST_DOUBLE gs_hwMutexTime; +extern ST_DOUBLE gs_hwEventTime; + + /*---*---*---*---*---*---*---*---*---*---*---*---*---*--*/ + /* */ + /* Timer functions */ + /* */ + /*---*---*---*---*---*---*---*---*---*---*---*---*---*--*/ + + /* Note: On AIX the real-time support is not implemented. */ + /* Functions such as timer_create, sleep, or nanosleep are*/ + /* not available (in AIX version 4.3.2 or 4.3.3). */ + /* This implementation of timers is using the GLBSEM */ + /* gs_wait_event_sem function implemented with phtreads */ + /* to support the timer functionality. */ + +/* The timer support will be initialized automatically when the function*/ +/* gs_timer_start is called for the first time. */ + +/* If the timer is of type SD_TIMER_ONESHOT then the timer resources */ +/* will be automatically deleted after the first time the timer is */ +/* serviced. For the SD_TIMER_PERIODIC timer the user needs to call */ +/* the gs_timer_end function to stop the timer and release resources. */ + +/* Before application exits the function gs_timer_cleanup should be */ +/* called to cleanup all resources associates with timers. */ + +/* NOTE: Since Windows is limiting number of timers to 16 per process */ +/* we have to use the UNIX timer implementation on Windows. */ +/* If the _WIN32_timers is defined then the Windows implementation*/ +/* of timers will be in effect for Windows. */ +#if defined _WIN32 +/* #define _WIN32_timers */ +#endif + +#define SD_TIMER_ONESHOT 1 +#define SD_TIMER_PERIODIC 2 + +#define GS_TIMER_WORKER_MIN 4 /* def min number of timer worker threads */ +#define GS_TIMER_WORKER_MAX 10 /* def max number of timer worker threads */ + +struct gs_timer_tag; /* forward definition */ + +typedef struct gs_timer_tag + { + DBL_LNK link; /* link list */ +#if defined (_WIN32_timers) + UINT timerID; /* timer id returned from timeSetEvent */ + ST_DOUBLE delay_start; /* time when delete timer delay started */ +#endif + ST_BOOLEAN terminate; /* set if timer should be terminated */ + ST_BOOLEAN pending; /* shows if timer processing is already pending */ + ST_ULONG interval; /* milliseconds, time between servicing */ + ST_DOUBLE expiration; /* milliseconds, next expiration time */ + ST_UINT type; /* timer type: oneshot or periodic */ + ST_VOID (*callback_fun)(ST_VOID *); + ST_VOID *arg; /* argument for the callback_fun. */ + ST_EVENT_SEM event; /* user can set this if it wants to be notified */ + /* when the timer object is destroyed */ + } GS_TIMER; + +/* The timer resolution could be set to the lowest value required by an */ +/* application before calling the gs_timer_start function. */ +/* On Windows system if the timer resolution is changed while the */ +/* application is running, only timers started afterwards will be */ +/* affected. On UNIX system all timers will be affected. */ + +ST_RET gs_timer_init (ST_UINT min_workers, ST_UINT max_workers); +ST_RET gs_timer_set_resolution (ST_ULONG timer_resolution); +ST_ULONG gs_timer_get_resolution (ST_VOID); + +GS_TIMER *gs_timer_start (ST_UINT type, + ST_ULONG interval, + ST_VOID (*callback_fun)(ST_VOID *), + ST_VOID *arg); +ST_RET gs_timer_end (GS_TIMER *timer_id); +ST_RET gs_timer_cleanup (ST_LONG timeout); + + +/************************************************************************/ +/* Logging macro's used internally by glbsem.c */ + +#define GLBSEM_LOG_ERR0(a) \ + SLOG_0 (gs_debug_sel & GS_LOG_ERR,_glbem_err_logstr,a) +#define GLBSEM_LOG_ERR1(a,b) \ + SLOG_1 (gs_debug_sel & GS_LOG_ERR,_glbem_err_logstr,a,b) +#define GLBSEM_LOG_ERR2(a,b,c) \ + SLOG_2 (gs_debug_sel & GS_LOG_ERR,_glbem_err_logstr,a,b,c) +#define GLBSEM_LOG_ERR3(a,b,c,d) \ + SLOG_3 (gs_debug_sel & GS_LOG_ERR,_glbem_err_logstr,a,b,c,d) + +#define GLBSEM_LOG_CERR0(a) \ + SLOGC_0 (gs_debug_sel & GS_LOG_ERR,a) +#define GLBSEM_LOG_CERR1(a,b) \ + SLOGC_1 (gs_debug_sel & GS_LOG_ERR,a,b) +#define GLBSEM_LOG_CERR2(a,b,c) \ + SLOGC_2 (gs_debug_sel & GS_LOG_ERR,a,b,c) +#define GLBSEM_LOG_CERR3(a,b,c,d) \ + SLOGC_3 (gs_debug_sel & GS_LOG_ERR,a,b,c,d) + +#define GLBSEM_LOG_NERR0(a) \ + SLOG_0 (gs_debug_sel & GS_LOG_NERR,_glbem_nerr_logstr,a) +#define GLBSEM_LOG_NERR1(a,b) \ + SLOG_1 (gs_debug_sel & GS_LOG_NERR,_glbem_nerr_logstr,a,b) +#define GLBSEM_LOG_NERR2(a,b,c) \ + SLOG_2 (gs_debug_sel & GS_LOG_NERR,_glbem_nerr_logstr,a,b,c) +#define GLBSEM_LOG_NERR3(a,b,c,d) \ + SLOG_3 (gs_debug_sel & GS_LOG_NERR,_glbem_nerr_logstr,a,b,c,d) + +#define GLBSEM_LOG_FLOW0(a) \ + SLOG_0 (gs_debug_sel & GS_LOG_FLOW,_glbem_flow_logstr,a) +#define GLBSEM_LOG_FLOW1(a,b) \ + SLOG_1 (gs_debug_sel & GS_LOG_FLOW,_glbem_flow_logstr,a,b) +#define GLBSEM_LOG_FLOW2(a,b,c) \ + SLOG_2 (gs_debug_sel & GS_LOG_FLOW,_glbem_flow_logstr,a,b,c) +#define GLBSEM_LOG_FLOW3(a,b,c,d) \ + SLOG_3 (gs_debug_sel & GS_LOG_FLOW,_glbem_flow_logstr,a,b,c,d) + +#define GLBSEM_LOG_CFLOW0(a) \ + SLOGC_0 (gs_debug_sel & GS_LOG_FLOW,a) +#define GLBSEM_LOG_CFLOW1(a,b) \ + SLOGC_1 (gs_debug_sel & GS_LOG_FLOW,a,b) +#define GLBSEM_LOG_CFLOW2(a,b,c) \ + SLOGC_2 (gs_debug_sel & GS_LOG_FLOW,a,b,c) +#define GLBSEM_LOG_CFLOW3(a,b,c,d) \ + SLOGC_3 (gs_debug_sel & GS_LOG_FLOW,a,b,c,d) + +/************************************************************************/ +#define gs_install() /* OBSOLETE: for backward compat. only */ +#define S_GS_INSTALL() /* OBSOLETE: for backward compat. only. */ +#define S_GS_INIT() /* OBSOLETE: for backward compat. only. */ + + +#ifdef __cplusplus +} +#endif + +#endif /* #ifndef GBLSEM_INCLUDED */ + diff --git a/include/inc/glbtypes.h b/include/inc/glbtypes.h new file mode 100644 index 0000000..97e2156 --- /dev/null +++ b/include/inc/glbtypes.h @@ -0,0 +1,691 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2006, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : glbtypes.h */ +/* PRODUCT(S) : MMSEASE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/18/08 JRB 30 Use endian.h to set SD_BYTE_ORDER on linux. */ +/* 01/27/06 EJV 29 _WIN32: chg ST_UINT64 to unsigned __int64. */ +/* 08/01/05 JRB 28 Disable SD_CONST for ALL platforms. */ +/* 02/12/04 JRB 27 Disable ST_CONST for LINUX. */ +/* 01/08/04 EJV 26 Checked SD_BIG_ENDIAN on sun, rem pragma msg.*/ +/* 12/09/03 JRB 25 Add LYNX, don't def ST_CONST for LYNX. */ +/* 02/19/03 JRB 24 Define SD_BYTE_ORDER for each system. */ +/* 02/19/03 JRB 23 Del VAX-VMS & PSOS code. */ +/* 02/17/03 CRM 22 Added "defined(linux)" code. */ +/* 02/17/03 JRB 21 Del unsupported __IC86__ */ +/* Del obsolete DEBUG_MMS, DEBUG_SUIC, etc. */ +/* Del NEW_SYSTEM.. defines (not very useful). */ +/* 02/27/02 JRB 20 Include compiler option file "glbopt.h". */ +/* 10/05/01 EJV 19 sun supports ST_INT64 (long long) */ +/* 01/02/01 EJV 18 disabled SD_CONST macro for _AIX */ +/* enabled SD_CONST macro for QNX */ +/* 06/16/00 JRB 17 Define "*INT64" only if INT64_SUPPORT defined*/ +/* 03/13/00 MDE 16 disabled SD_CONST macro for WIN32 */ +/* 09/24/99 JRB 15 disabled SD_CONST macro for QNX */ +/* 09/13/99 MDE 14 Added SD_CONST modifiers */ +/* 04/14/99 MDE 13 Changed SYSTEM_SEL defines */ +/* 01/19/99 EJV 12 AIX: Added 64 bit integer support */ +/* 08/26/98 EJV 11 Deleted CPU_SEL and all releated defines. */ +/* __hpux supports 64-bit integers. */ +/* Eliminated spaces at the end of lines. */ +/* 02/09/98 RKR 10 Removed PRODUCT_ONLY_VMS_ALPHA */ +/* 01/23/98 EJV 09 Digital UNIX: revised. */ +/* 12/11/97 JRB 08 Cleaned up PSOS ifdefs. Define PSOS_SYSTEM */ +/* to compile. Use new SYSTEM_SEL=SYS_PSOS. */ +/* 12/11/97 JRB 07 Deleted _MRI ifdef (for Modicon/MICROTEC) */ +/* Deleted EMBEDDED_6800 SYSTEM_SEL. */ +/* 10/27/97 EJV 06 AIX: revised types, deleted pragma message() */ +/* 09/23/97 JRB 05 QNX: pragma stops unused symbol warnings. */ +/* 08/16/97 EJV 04 For QNX corrected ST_INT16, ST_UINT16. */ +/* 08/15/97 JRB 03 Use MOTO_68000 consistently. */ +/* 08/13/97 EJV 02 Changed #if (A && B) statements to avoid */ +/* warning if A or B has not been defined. */ +/* 06/20/97 MDE 01 Added 64 bit integer support for 95/NT */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef GBLTYPES_INCLUDED +#define GBLTYPES_INCLUDED + +#include "glbopt.h" /* Global compiler options. */ + +#ifdef __cplusplus +extern "C" { +#endif +void logprint(char * fmt,...); +/* +#define VXWORKS + +#define DEBUG_SISCO +#define MOSI +#define LEAN_T +#define MVL_UCA +#define MMS_LITE +#define TP0_ENABLED*/ +//lnk20260611 +#if defined(_WIN32) || defined(__WIN32__) +#ifndef WIN32 +#define WIN32 +#endif +#endif + + + + +/**/ + + + + + + + + + + + +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ +/* General purpose defines, same for all platforms */ + +#define SD_TRUE 1 +#define SD_FALSE 0 +#define SD_SUCCESS 0 +#define SD_FAILURE 1 +#define SD_BIG_ENDIAN 0 +#define SD_LITTLE_ENDIAN 1 + +/* Define used for 'const' modifier */ +/* DEBUG: someday if all code is changed to consistently use SD_CONST, */ +/* this define may be replaced with the following: */ +/* #define SD_CONST const */ +#define SD_CONST + +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ + +/* SYSTEM_SEL defines - bit masked */ +#define SYSTEM_SEL_MSOFT 0x0001 +#define SYSTEM_SEL_OS2 0x0008 +#define SYSTEM_SEL_OPEN_VMS 0x0010 +#define SYSTEM_SEL_SYS_5 0x0020 +#define SYSTEM_SEL_SYS_BSD 0x0040 +#define SYSTEM_SEL_QNX_C86 0x0100 +#define SYSTEM_SEL_SYSVXWORKS 0x0800 +#define SYSTEM_SEL_SYS_QNX4 0x1000 + +/* For backwards compatibility only, do not use. Will be deleted soon. */ +#if !defined(MSOFT) +#define MSOFT SYSTEM_SEL_MSOFT +#endif +#if !defined(OS2) +#define OS2 SYSTEM_SEL_OS2 +#endif +#if !defined(OPEN_VMS) +#define OPEN_VMS SYSTEM_SEL_OPEN_VMS +#endif +#if !defined(SYS_5) +#define SYS_5 SYSTEM_SEL_SYS_5 +#endif +#if !defined(SYS_BSD) +#define SYS_BSD SYSTEM_SEL_SYS_BSD +#endif +#if !defined(QNX_C86) +#define QNX_C86 SYSTEM_SEL_QNX_C86 +#endif +#if !defined(SYSVXWORKS) +#define SYSVXWORKS SYSTEM_SEL_SYSVXWORKS +#endif +#if !defined(SYS_QNX4) +#define SYS_QNX4 SYSTEM_SEL_SYS_QNX4 +#endif + +/************************************************************************/ +/************************************************************************/ +/* SYSTEM and CPU select defines. These are based on built in compiler */ +/* defines which allow automatic detection of the compiler. */ +/************************************************************************/ + +/************************************************************************/ +/* MS-DOS and WINDOWS */ +/************************************************************************/ +#if defined(MSDOS) || defined(__MSDOS__) /* Microsoft or Borland */ + +#if !defined(_WINDOWS) && !defined(_Windows) +#define PLAIN_DOS /* straight and pure DOS */ +#endif + +#define SD_BYTE_ORDER SD_LITTLE_ENDIAN +#define SYSTEM_SEL SYSTEM_SEL_MSOFT +#define SD_END_STRUCT + +/* We can tolerate machine-dependent sizes for these types */ +#define ST_CHAR char +#define ST_INT signed int +#define ST_LONG signed long int +#define ST_UCHAR unsigned char +#define ST_UINT unsigned int +#define ST_ULONG unsigned long +#define ST_VOID void +#define ST_DOUBLE double +#define ST_FLOAT float + +/* General purpose return code */ +#define ST_RET signed int + +/* We need specific sizes for these types */ +#define ST_INT8 signed char +#define ST_INT16 signed short +#define ST_INT32 signed long +#define ST_UINT8 unsigned char +#define ST_UINT16 unsigned short +#define ST_UINT32 unsigned long + +/* SD_TRUE or SD_FALSE only */ +#define ST_BOOLEAN unsigned char + + +/* This define shows that we have supplied all required */ +#define _SISCOTYPES_DEFINED + +#endif + +/************************************************************************/ +/* WINDOWS 95/NT */ +/************************************************************************/ +#if defined(_WIN32) /* VC++, 32-Bit */ + +#define SD_BYTE_ORDER SD_LITTLE_ENDIAN +#define SYSTEM_SEL SYSTEM_SEL_MSOFT +#define SD_END_STRUCT + +/* We can tolerate machine-dependent sizes for these types */ +#define ST_CHAR char +#define ST_INT signed int +#define ST_LONG signed long int +#define ST_UCHAR unsigned char +#define ST_UINT unsigned int +#define ST_ULONG unsigned long +#define ST_VOID void +#define ST_DOUBLE double +#define ST_FLOAT float + +/* General purpose return code */ +#define ST_RET signed int + +/* We need specific sizes for these types */ +#define ST_INT8 signed char +#define ST_INT16 signed short +#define ST_INT32 signed long +#define ST_INT64 __int64 +#define ST_UINT8 unsigned char +#define ST_UINT16 unsigned short +#define ST_UINT32 unsigned long +#define ST_UINT64 unsigned __int64 +#define ST_BOOLEAN unsigned char + +/* This define shows that we really have support for 64 bit integers */ +#define INT64_SUPPORT + +/* This define shows that we have supplied all required */ +#define _SISCOTYPES_DEFINED + +#endif + +/************************************************************************/ +/* OS/2 - IBM C/SET2 and C/SET++ */ +/************************************************************************/ +#if defined(__OS2__) /* IBM C Set/2 */ + +#pragma message("Please look over the OS/2 system detect & defines") + +#pragma data_seg(alldata) + +#define SD_BYTE_ORDER SD_LITTLE_ENDIAN +#define SYSTEM_SEL SYSTEM_SEL_OS2 +#define SD_END_STRUCT + +/* We can tolerate machine-dependent sizes for these types */ +#define ST_CHAR char +#define ST_INT signed int +#define ST_LONG signed long int +#define ST_UCHAR unsigned char +#define ST_UINT unsigned int +#define ST_ULONG unsigned long +#define ST_VOID void +#define ST_DOUBLE double +#define ST_FLOAT float + +/* General purpose return code */ +#define ST_RET signed int + +/* We need specific sizes for these types */ +#define ST_INT8 signed char +#define ST_INT16 signed short +#define ST_INT32 signed long +#define ST_UINT8 unsigned char +#define ST_UINT16 unsigned short +#define ST_UINT32 unsigned long +#define ST_BOOLEAN unsigned char + +/* This define shows that we have supplied all required */ +#define _SISCOTYPES_DEFINED + +#endif + +/************************************************************************/ +/* SUN */ +/************************************************************************/ +#if defined(sun) /* SUN */ + +#define SD_BYTE_ORDER SD_BIG_ENDIAN +#define SYSTEM_SEL SYS_5 +#define SD_END_STRUCT long end_of; /* force struct to quad word allign */ + +/* We can tolerate machine-dependent sizes for these types */ +#define ST_CHAR char +#define ST_INT signed int +#define ST_LONG signed long int +#define ST_UCHAR unsigned char +#define ST_UINT unsigned int +#define ST_ULONG unsigned long +#define ST_VOID void +#define ST_DOUBLE double +#define ST_FLOAT float + +/* General purpose return code */ +#define ST_RET signed int + +/* We need specific sizes for these types */ +#define ST_INT8 signed char +#define ST_INT16 signed short +#define ST_INT32 signed long +#define ST_INT64 signed long long +#define ST_UINT8 unsigned char +#define ST_UINT16 unsigned short +#define ST_UINT32 unsigned long +#define ST_UINT64 unsigned long long +#define ST_BOOLEAN unsigned char + +/* This define shows that we really have support for 64 bit integers */ +#define INT64_SUPPORT + +/* This define shows that we have supplied all required */ +#define _SISCOTYPES_DEFINED + +#endif + +/************************************************************************/ +/* AIX */ +/************************************************************************/ +#if defined(_AIX) /* AIX */ + +#define SD_BYTE_ORDER SD_BIG_ENDIAN +#define SYSTEM_SEL SYS_5 +#define SD_END_STRUCT long end_of; /* force struct to quad word allign */ + +/* We can tolerate machine-dependent sizes for these types */ +#define ST_CHAR char +#define ST_INT signed int +#define ST_LONG signed long int +#define ST_UCHAR unsigned char +#define ST_UINT unsigned int +#define ST_ULONG unsigned long +#define ST_VOID void +#define ST_DOUBLE double +#define ST_FLOAT float + +/* General purpose return code */ +#define ST_RET signed int + +/* We need specific sizes for these types */ +#define ST_INT8 signed char +#define ST_INT16 signed short +#define ST_INT32 signed long +#define ST_INT64 signed long long +#define ST_UINT8 unsigned char +#define ST_UINT16 unsigned short +#define ST_UINT32 unsigned long +#define ST_UINT64 unsigned long long +#define ST_BOOLEAN unsigned char + +/* This define shows that we really have support for 64 bit integers */ +#define INT64_SUPPORT + +/* This define shows that we have supplied all required */ +#define _SISCOTYPES_DEFINED + +#endif + +/************************************************************************/ +/* OpenVMS AXP */ +/************************************************************************/ +#if defined(__ALPHA) && defined(__VMS) /* OpenVMS AXP uses DECC*/ + +#define SD_BYTE_ORDER SD_LITTLE_ENDIAN +#define SYSTEM_SEL SYSTEM_SEL_OPEN_VMS +#define SD_END_STRUCT long end_of; + +/* We can tolerate machine-dependent sizes for these types */ +#define ST_CHAR char +#define ST_INT signed int +#define ST_LONG signed long int +#define ST_UCHAR unsigned char +#define ST_UINT unsigned int +#define ST_ULONG unsigned long +#define ST_VOID void +#define ST_DOUBLE double +#define ST_FLOAT float + +/* General purpose return code */ +#define ST_RET signed int + +/* We need specific sizes for these types */ +#define ST_INT8 signed char +#define ST_INT16 signed short +#define ST_INT32 signed long +#define ST_UINT8 unsigned char +#define ST_UINT16 unsigned short +#define ST_UINT32 unsigned long +#define ST_BOOLEAN unsigned char + + +/* This define shows that we have supplied all required */ +#define _SISCOTYPES_DEFINED + +#endif + +/************************************************************************/ +/* Digital UNIX */ +/************************************************************************/ + +#if defined(__alpha) && !defined(__VMS) + +#define SD_BYTE_ORDER SD_LITTLE_ENDIAN +#define SYSTEM_SEL SYSTEM_SEL_SYS_5 +#define SD_END_STRUCT long end_of; + +/* We can tolerate machine-dependent sizes for these types */ +#define ST_CHAR char +#define ST_INT signed int +#define ST_LONG signed long int +#define ST_UCHAR unsigned char +#define ST_UINT unsigned int +#define ST_ULONG unsigned long +#define ST_VOID void +#define ST_DOUBLE double +#define ST_FLOAT float + +/* General purpose return code */ +#define ST_RET signed int + +/* We need specific sizes for these types */ +#define ST_INT8 signed char +#define ST_INT16 signed short +#define ST_INT32 signed int +#define ST_INT64 signed long +#define ST_UINT8 unsigned char +#define ST_UINT16 unsigned short +#define ST_UINT32 unsigned int +#define ST_UINT64 unsigned long +#define ST_BOOLEAN unsigned char + +/* This define shows that we really have support for 64 bit integers */ +#define INT64_SUPPORT + +/* This define shows that we have supplied all required */ +#define _SISCOTYPES_DEFINED + +#endif + +/************************************************************************/ +/* ECOS */ +/************************************************************************/ + +#if defined(__ECOS) + +#define SD_BYTE_ORDER SD_BIG_ENDIAN +#define SYSTEM_SEL SYSTEM_SEL_SYSVXWORKS +#define SD_END_STRUCT + +/* We can tolerate machine-dependent sizes for these types */ +#define ST_CHAR char +#define ST_INT signed int +#define ST_LONG signed long int +#define ST_UCHAR unsigned char +#define ST_UINT unsigned int +#define ST_ULONG unsigned long +#define ST_VOID void +#define ST_DOUBLE double +#define ST_FLOAT float + +/* General purpose return code */ +#define ST_RET signed int + +/* We need specific sizes for these types */ +#define ST_INT8 signed char +#define ST_INT16 signed short +#define ST_INT32 signed int +#define ST_UINT8 unsigned char +#define ST_UINT16 unsigned short +#define ST_UINT32 unsigned int +#define ST_BOOLEAN unsigned char + +/* This define shows that we have supplied all required */ +#define _SISCOTYPES_DEFINED + +#endif /* __ECOS */ + +/************************************************************************/ +/* VXWORKS - VXWORKS on Motorola 680x0 processor */ +/************************************************************************/ + +#if defined(VXWORKS) + +#define SD_BYTE_ORDER SD_BIG_ENDIAN +#define SYSTEM_SEL SYSTEM_SEL_SYSVXWORKS +#define SD_END_STRUCT + +/* We can tolerate machine-dependent sizes for these types */ +#define ST_CHAR char +#define ST_INT signed int +#define ST_LONG signed long int +#define ST_UCHAR unsigned char +#define ST_UINT unsigned int +#define ST_ULONG unsigned long +#define ST_VOID void +#define ST_DOUBLE double +#define ST_FLOAT float + +/* General purpose return code */ +#define ST_RET signed int + +/* We need specific sizes for these types */ +#define ST_INT8 signed char +#define ST_INT16 signed short +#define ST_INT32 signed long +#define ST_UINT8 unsigned char +#define ST_UINT16 unsigned short +#define ST_UINT32 unsigned long +#define ST_BOOLEAN unsigned char + +/* This define shows that we have supplied all required */ +#define _SISCOTYPES_DEFINED + +#endif + +/************************************************************************/ +/* QNX */ +/************************************************************************/ +#ifdef __QNX__ /* This should be defined automatically by compiler. */ + +#pragma off (unreferenced) /* don't warn about unused symbols. */ + +#define SD_BYTE_ORDER SD_LITTLE_ENDIAN +#define SYSTEM_SEL SYSTEM_SEL_SYS_QNX4 +#define SD_END_STRUCT + +/* We can tolerate machine-dependent sizes for these types */ +#define ST_CHAR char +#define ST_INT signed int +#define ST_LONG signed long int +#define ST_UCHAR unsigned char +#define ST_UINT unsigned int +#define ST_ULONG unsigned long +#define ST_VOID void +#define ST_DOUBLE double +#define ST_FLOAT float + +/* General purpose return code */ +#define ST_RET signed int + +/* We need specific sizes for these types */ +#define ST_INT8 signed char +#define ST_INT16 signed short +#define ST_INT32 signed long +#define ST_UINT8 unsigned char +#define ST_UINT16 unsigned short +#define ST_UINT32 unsigned long +#define ST_BOOLEAN unsigned char + +/* This define shows that we have supplied all required */ +#define _SISCOTYPES_DEFINED + +#endif + +/************************************************************************/ +/* HP-UX */ +/************************************************************************/ +#if defined(__hpux) /* HP-UX */ + +#define SD_BYTE_ORDER SD_BIG_ENDIAN +#define SYSTEM_SEL SYS_5 +#define SD_END_STRUCT long end_of; /* force struct to quad word allign */ + + +/* We can tolerate machine-dependent sizes for these types */ +#define ST_CHAR char +#define ST_INT signed int +#define ST_LONG signed long int +#define ST_UCHAR unsigned char +#define ST_UINT unsigned int +#define ST_ULONG unsigned long +#define ST_VOID void +#define ST_DOUBLE double +#define ST_FLOAT float + +/* General purpose return code */ +#define ST_RET signed int + +/* We need specific sizes for these types */ +#define ST_INT8 signed char +#define ST_INT16 signed short +#define ST_INT32 signed long +#define ST_INT64 signed long long +#define ST_UINT8 unsigned char +#define ST_UINT16 unsigned short +#define ST_UINT32 unsigned long +#define ST_UINT64 unsigned long long +#define ST_BOOLEAN unsigned char + +/* This define shows that we really have support for 64 bit integers */ +#define INT64_SUPPORT + +/* This define shows that we have supplied all required */ +#define _SISCOTYPES_DEFINED + +#endif + +/************************************************************************/ +/* LINUX SYSTEM */ +/* OR LYNXOS SYSTEM (same types) */ +/************************************************************************/ +#if defined(linux) || defined(__LYNX) + +/* NOTE: this may also work for setting SD_BYTE_ORDER on other */ +/* platforms that use the GNU C Library */ +#include +#if (__BYTE_ORDER ==__LITTLE_ENDIAN) + #define SD_BYTE_ORDER SD_LITTLE_ENDIAN +#elif (__BYTE_ORDER ==__BIG_ENDIAN) + #define SD_BYTE_ORDER SD_BIG_ENDIAN +#else + #error unsupported byte order +#endif + +#define SD_END_STRUCT + +/* We can tolerate machine-dependent sizes for these types */ +#define ST_CHAR char +#define ST_INT signed int +#define ST_LONG signed long int +#define ST_UCHAR unsigned char +#define ST_UINT unsigned int +#define ST_ULONG unsigned long +#define ST_VOID void +#define ST_DOUBLE double +#define ST_FLOAT float + +/* General purpose return code */ +#define ST_RET signed int + +/* We need specific sizes for these types */ +#define ST_INT8 signed char +#define ST_INT16 signed short +//renxiaobao +#define ST_INT32 signed int +//#define ST_INT32 signed long +#define ST_INT64 signed long long +#define ST_UINT8 unsigned char +#define ST_UINT16 unsigned short +//renxiaobao +#define ST_UINT32 unsigned int +//#define ST_UINT32 unsigned long +#define ST_UINT64 unsigned long +//#define ST_UINT64 unsigned long long +#define ST_BOOLEAN unsigned char + +/* This define shows that we really have support for 64 bit integers */ +#define INT64_SUPPORT + +/* This define shows that we have supplied all required */ +#define _SISCOTYPES_DEFINED + +#endif /* linux */ + +/************************************************************************/ +/************************************************************************/ +/* Make sure that this module has identified the target system */ + +#if !defined(_SISCOTYPES_DEFINED) +#error Warning: System not correctly identified by glbtypes.h +#endif + +#if !defined(SD_BYTE_ORDER) +#error SD_BYTE_ORDER not defined +#endif + +/************************************************************************/ +#ifdef __cplusplus +} +#endif + + +#endif /* #ifndef GBLTYPES_INCLUDED */ diff --git a/include/inc/gse_mgmt.h b/include/inc/gse_mgmt.h new file mode 100644 index 0000000..4c6c97f --- /dev/null +++ b/include/inc/gse_mgmt.h @@ -0,0 +1,252 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1999-2002, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : gse_mgmt.h */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 11/03/06 CRM 01 Created */ +/************************************************************************/ + +#ifndef GSE_MGMT_INCLUDED +#define GSE_MGMT_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "acse2usr.h" +#include "asn1r.h" +#include "ethertyp.h" + + + +#define MAX_GSE_MGMT_ENCODE_BUF 1540 +#define MAX_VSTRING_BUF 65 +#define NUM_ELEMENTS 500 + +#define GET_GO_REF_REQ_TAG 1 +#define GET_GOOSE_ELE_NUM_REQ_TAG 2 +#define GET_GS_REF_REQ_TAG 3 +#define GET_GSSE_DATA_OFF_REQ_TAG 4 + +#define GET_GO_REF_RSP_TAG 1 +#define GET_GOOSE_ELE_NUM_RSP_TAG 2 +#define GET_GS_REF_RSP_TAG 3 +#define GET_GSSE_DATA_OFF_RSP_TAG 4 + +#define RSP_OTHER 0 +#define RSP_NOT_FOUND 1 + +#define GLB_ERROR 2 +#define GLB_ERR_OTHER 0 +#define GLB_ERR_UNKNOWN_CTRL_BLK 1 +#define GLB_ERR_RSP_TOO_LARGE 2 +#define GLB_ERR_CTRL_BLK_CONFIG_ERR 3 + + +#define GSE_MSG_TYPE_GO_REF_REQ 1 +#define GSE_MSG_TYPE_GOOSE_ELE_REQ 2 +#define GSE_MSG_TYPE_GS_REF_REQ 3 +#define GSE_MSG_TYPE_GSSE_DATA_OFF_REQ 4 + +#define GSE_MSG_TYPE_GLOBAL_ERROR_RSP 10 +#define GSE_MSG_TYPE_GO_REF_RSP 11 +#define GSE_MSG_TYPE_GOOSE_ELE_RSP 12 +#define GSE_MSG_TYPE_GS_REF_RSP 13 +#define GSE_MSG_TYPE_GSSE_DATA_OFF_RSP 14 + + + +/************************************************************************/ +/* BEGIN GSE MGMT DEFINITIONS */ +/************************************************************************/ +typedef struct + { + ST_UINT32 stateID; + ST_CHAR ident[MAX_VSTRING_BUF+1]; + ST_INT numIntegers; + ST_UINT32 *offset; + } GSE_REF_REQ; + +typedef struct + { + ST_UINT32 stateID; + ST_CHAR ident[MAX_VSTRING_BUF+1]; + ST_INT numVStrings; + ST_CHAR **references; + } GSE_OFFSET_REQ; + +/* Global error response sturcture */ +typedef struct + { + ST_UINT32 stateID; + ST_CHAR ident[MAX_VSTRING_BUF+1]; + ST_UINT32 confRev; + ST_UINT32 glbError; + } GSE_GLB_ERR_RSP; + + +/* Offset response sturctures */ +typedef struct + { + ST_INT rsp_type; + ST_UINT32 offset; + ST_UINT32 error; + } OFFSET_REQ_RESULTS; + +typedef struct + { + ST_UINT32 stateID; + ST_CHAR ident[MAX_VSTRING_BUF+1]; + ST_UINT32 confRev; + ST_CHAR datSet[MAX_VSTRING_BUF+1]; + ST_INT numResults; + OFFSET_REQ_RESULTS *result; + } GSE_OFFSET_RSP; + + +/* Reference response sturctures */ +typedef struct + { + ST_INT rsp_type; + ST_CHAR reference[MAX_VSTRING_BUF+1]; + ST_UINT32 error; + } REF_REQ_RESULTS; + + +typedef struct + { + ST_UINT32 stateID; + ST_CHAR ident[MAX_VSTRING_BUF+1]; + ST_UINT32 confRev; + ST_CHAR datSet[MAX_VSTRING_BUF+1]; + ST_INT numResults; + REF_REQ_RESULTS *result; + } GSE_REF_RSP; + + + +/************************************************************************/ +/* STRUCTURE DEFINITIONS */ +/************************************************************************/ + +typedef struct + { + ST_UINT32 stateID; + ST_INT msgType; + + union GSE_MSG + { + GSE_REF_REQ refReq; + GSE_OFFSET_REQ offReq; + GSE_OFFSET_RSP offRsp; + GSE_REF_RSP refRsp; + GSE_GLB_ERR_RSP glbErrRsp; + } msg; + } GSE_MGMT_MSG; + + + + +ST_UCHAR *getGoRefReqEncode (GSE_REF_REQ *ctrl, + ST_UCHAR *asn1DataBuf, /* buffer to encode in */ + ST_INT asn1DataBufLen, /* len of buffer */ + ST_INT *asn1DataLenOut, /* ptr to len encoded */ + ETYPE_INFO *etype_info, /* ptr to Ethertype info */ + ST_UINT8 *dstMac, /* destination MAC address */ + ST_UINT8 *srcMac); /* source MAC address */ +ST_UCHAR *getGOOSEEleNumReqEncode (GSE_OFFSET_REQ *ctrl, + ST_UCHAR *asn1DataBuf, /* buffer to encode in */ + ST_INT asn1DataBufLen, /* len of buffer */ + ST_INT *asn1DataLenOut, /* ptr to len encoded */ + ETYPE_INFO *etype_info, /* ptr to Ethertype info */ + ST_UINT8 *dstMac, /* destination MAC address */ + ST_UINT8 *srcMac); /* source MAC address */ +ST_UCHAR *getGsRefReqEncode (GSE_REF_REQ *ctrl, + ST_UCHAR *asn1DataBuf, /* buffer to encode in */ + ST_INT asn1DataBufLen, /* len of buffer */ + ST_INT *asn1DataLenOut, /* ptr to len encoded */ + ETYPE_INFO *etype_info, /* ptr to Ethertype info */ + ST_UINT8 *dstMac, /* destination MAC address */ + ST_UINT8 *srcMac); /* source MAC address */ +ST_UCHAR *getGSSEDataOffsetReqEncode (GSE_OFFSET_REQ *ctrl, + ST_UCHAR *asn1DataBuf, /* buffer to encode in */ + ST_INT asn1DataBufLen, /* len of buffer */ + ST_INT *asn1DataLenOut, /* ptr to len encoded */ + ETYPE_INFO *etype_info, /* ptr to Ethertype info */ + ST_UINT8 *dstMac, /* destination MAC address */ + ST_UINT8 *srcMac); /* source MAC address */ + + + +ST_UCHAR *gse_mgmt_NotSupported (ST_VOID); +ST_UCHAR *getGlbErrorRspEncode (GSE_GLB_ERR_RSP *ctrl, + ST_UCHAR *asn1DataBuf, /* buffer to encode in */ + ST_INT asn1DataBufLen, /* len of buffer */ + ST_INT *asn1DataLenOut, /* ptr to len encoded */ + ETYPE_INFO *etype_info, /* ptr to Ethertype info */ + ST_UINT8 *dstMac, /* destination MAC address */ + ST_UINT8 *srcMac); /* source MAC address */ +ST_UCHAR *getGoRefRspEncode (GSE_REF_RSP *ctrl, + ST_UCHAR *asn1DataBuf, /* buffer to encode in */ + ST_INT asn1DataBufLen, /* len of buffer */ + ST_INT *asn1DataLenOut, /* ptr to len encoded */ + ETYPE_INFO *etype_info, /* ptr to Ethertype info */ + ST_UINT8 *dstMac, /* destination MAC address */ + ST_UINT8 *srcMac); /* source MAC address */ +ST_UCHAR *getGOOSEEleNumRspEncode (GSE_OFFSET_RSP *ctrl, + ST_UCHAR *asn1DataBuf, /* buffer to encode in */ + ST_INT asn1DataBufLen, /* len of buffer */ + ST_INT *asn1DataLenOut, /* ptr to len encoded */ + ETYPE_INFO *etype_info, /* ptr to Ethertype info */ + ST_UINT8 *dstMac, /* destination MAC address */ + ST_UINT8 *srcMac); /* source MAC address */ +ST_UCHAR *getGsRefRspEncode (GSE_REF_RSP *ctrl, + ST_UCHAR *asn1DataBuf, /* buffer to encode in */ + ST_INT asn1DataBufLen, /* len of buffer */ + ST_INT *asn1DataLenOut, /* ptr to len encoded */ + ETYPE_INFO *etype_info, /* ptr to Ethertype info */ + ST_UINT8 *dstMac, /* destination MAC address */ + ST_UINT8 *srcMac); /* source MAC address */ +ST_UCHAR *getGSSEDataOffsetRspEncode (GSE_OFFSET_RSP *ctrl, + ST_UCHAR *asn1DataBuf, /* buffer to encode in */ + ST_INT asn1DataBufLen, /* len of buffer */ + ST_INT *asn1DataLenOut, /* ptr to len encoded */ + ETYPE_INFO *etype_info, /* ptr to Ethertype info */ + ST_UINT8 *dstMac, /* destination MAC address */ + ST_UINT8 *srcMac); /* source MAC address */ + + + +/************************************************************************/ +/* Functions for receiving GSE_MGMT messages. */ +/* Decode GSE_MGMT message and fill in GSE_MGMT_MSG struct. */ +/************************************************************************/ +GSE_MGMT_MSG *gse_mgmt_msg_decode ( + SN_UNITDATA *sn_req, /* message to decode */ + ETYPE_INFO *etypeInfo); /* where to store decoded Ethertype info*/ + +/* Must be called to free structure returned from gse_mgmt_msg_decode. */ +ST_VOID gse_mgmt_msg_free (GSE_MGMT_MSG *gseMgmtMsg); + + +/************************************************************************/ +/* END GSE MGMT DEFINITIONS */ +/************************************************************************/ +#ifdef __cplusplus +} +#endif + +#endif /* GSE_MGMT_INCLUDED */ diff --git a/include/inc/gvaldefs.h b/include/inc/gvaldefs.h new file mode 100644 index 0000000..cc8e9cb --- /dev/null +++ b/include/inc/gvaldefs.h @@ -0,0 +1,48 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986-1997 All Rights Reserved */ +/* */ +/* MODULE NAME : gvaldefs.h */ +/* PRODUCT(S) : MMSEASE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This include file contains common declarations used throughout */ +/* the user application code. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef GVALDEFS_INCLUDED +#define GVALDEFS_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#define STRGETSTRINGSIZE 256 + +ST_BOOLEAN floatget (ST_FLOAT *dest); +ST_BOOLEAN doubleget( ST_DOUBLE *dest); +ST_BOOLEAN intget (ST_INT *dest); /* int get function */ +ST_BOOLEAN hexget (ST_INT *dest); /* int get function */ +ST_BOOLEAN longget (ST_LONG *dest); /* long int get function */ +ST_BOOLEAN longhexget (ST_LONG *dest); /* long int get function */ +ST_BOOLEAN strget (ST_CHAR *dest); /* string get function */ +ST_INT input_hex (ST_UCHAR *dest_str, ST_INT maxbytes); + +ST_VOID entry1 (ST_INT maxlen, ST_CHAR *str_ptr); + +#ifdef __cplusplus +} +#endif + +#endif + diff --git a/include/inc/lean_a.h b/include/inc/lean_a.h new file mode 100644 index 0000000..d7ab0ee --- /dev/null +++ b/include/inc/lean_a.h @@ -0,0 +1,145 @@ +#ifndef LEAN_A_H +#define LEAN_A_H +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1996 - 2005 All Rights Reserved */ +/* */ +/* MODULE NAME : lean_a.h */ +/* PRODUCT(S) : Lean-T Stack SUIC */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* NONE */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 05/13/05 EJV 11 MMSEASE_MOSI: added extern domsock_listener */ +/* 03/15/05 EJV 10 MMSEASE_MOSI: set MAX_SUIC_CHAN to 1000 */ +/* Added mms_event_fd. */ +/* 02/08/02 JRB 09 Move osicfgx prototype to mvl_acse.h. */ +/* 11/27/00 JRB 08 Add osicfgx proto. */ +/* 12/10/97 JRB 07 Add MMSEventName and hMMSEvent for OS2. */ +/* 08/14/97 JRB 06 #include "acse2usr.h" and use PRES_ADDR in */ +/* DIB_ENTRY. */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 05/02/97 JRB 05 Del MAX_?_SEL defines. Use suicacse.h defs. */ +/* 05/01/97 JRB 04 Move MAX_SUIC_CHAN define to here. */ +/* 01/02/96 JRB 03 Add MMSEventName and hMMSEvent. */ +/* 10/04/96 JRB 02 #ifdef MCGW, add adlcAddr to DIB_ENTRY. */ +/* Add *_clt7 function prototypes. */ +/* 05/29/96 MDE 01 Changed DIB_ENTRY - name is now a pointer */ +/* 03/27/96 MDE Created */ +/************************************************************************/ + +#ifdef __cplusplus +extern "C" { +#endif + +#if defined (_WIN32) +#include +#endif /* _WIN32 */ + +#if defined (__OS2__) +#define INCL_BASE +#include +#endif /* __OS2__ */ + +#include "asn1defs.h" /* for MMS_OBJ_ID definition */ +#include "acse2usr.h" /* for PRES_ADDR definition */ + +#if defined(MMSEASE_MOSI) +#define MAX_SUIC_CHAN 1024 /* number of channels <=TP_MAX_NUM_CONNS*/ +#include "gensock2.h" /* defines SOCKET */ +extern SOCKET mms_event_fd; /* wakeup socket, indicating TCP Events */ +extern SOCKET domsock_listener; /* domain socket connected to the */ + /* RFC1006_LISTENER task. */ +#else +#define MAX_SUIC_CHAN 256 /* number of channels */ +#endif + +/************************************************************************/ +/* The structure below is used to save Directory and other information */ +/* about local and remote AE's read in from SUIC.DIB */ +/************************************************************************/ + +#define DIB_ENTRY_DEFINED + +struct dib_entry +{ + ST_LONG reserved; /* reserved field */ + ST_CHAR *name; /* user-defined ASCII character string */ + ST_CHAR local; /* local or remote name */ + ST_UCHAR AP_title_pres; /* present flag */ + MMS_OBJ_ID AP_title; /* AP title */ + ST_UCHAR AP_inv_id_pres; /* present flag */ + ST_INT32 AP_invoke_id; /* AP invocation ID */ + ST_UCHAR AE_qual_pres; /* present flag */ + ST_INT32 AE_qual; /* AE qualifier */ + ST_UCHAR AE_inv_id_pres; /* present flag */ + ST_INT32 AE_invoke_id; /* AE invocation ID */ + PRES_ADDR pres_addr; /* Presentation address. */ +} ; +typedef struct dib_entry DIB_ENTRY; + +/************************************************************************/ +/* Channel-oriented control structure used to hold connection-specific */ +/* information */ +/************************************************************************/ + +#define MAX_TX_OUT 10 /* max. outstanding TX requests allowed */ + +struct chanctrl + { + DIB_ENTRY *loc_de; /* Pointer to Local DIB Entry */ + DIB_ENTRY *rem_de; /* Pointer to Remote DIB Entry */ + } ; +extern struct chanctrl *s_chan_ctrl; + +/************************************************************************/ +/* Structure to store incoming associate indication in case no listen */ +/* channel is available */ +/************************************************************************/ + +extern ST_INT num_loc_dib_entries; +extern ST_INT num_rem_dib_entries; +extern DIB_ENTRY *loc_dib_table; +extern DIB_ENTRY *rem_dib_table; + +/************************************************************************/ +/* Event handling variables for WIN32 & OS2. */ +/************************************************************************/ +#ifdef _WIN32 +extern ST_CHAR *MMSEventName; /* Pointer to the globally unique name of Event Object */ +extern HANDLE hMMSEvent; /* Handle to Event Object to be signalled when */ + /* s_serve () needs to be called */ +#endif /* _WIN32 */ +#ifdef __OS2__ +extern ST_CHAR *MMSEventName; /* Pointer to the globally unique name of Event Object */ +extern HEV hMMSEvent; /* Handle to Event Object to be signalled when */ + /* s_serve () needs to be called */ +#endif /* __OS2__ */ + +/************************************************************************/ +/* Prototypes */ +/************************************************************************/ +ST_VOID s_reset_ctrl (ST_INT); +ST_RET init_dirser (ST_VOID); +DIB_ENTRY *find_dib_entry (ST_CHAR *); +DIB_ENTRY *find_loc_dib_entry (ST_CHAR *ar_name); +DIB_ENTRY *find_rem_dib_entry (ST_CHAR *ar_name); + +ST_RET init_dirser_clt7 (ST_VOID); +DIB_ENTRY *find_dib_entry_clt7 (ST_CHAR *); +DIB_ENTRY *find_loc_dib_entry_clt7 (ST_CHAR *ar_name); + +#ifdef __cplusplus +} +#endif + +#endif /* !LEAN_A_H */ + + diff --git a/include/inc/llcio.h b/include/inc/llcio.h new file mode 100644 index 0000000..284435f --- /dev/null +++ b/include/inc/llcio.h @@ -0,0 +1,337 @@ +#ifndef _LLCIO_H +#define _LLCIO_H + +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1994, All Rights Reserved */ +/* */ +/* MODULE NAME : llcio.h */ +/* PRODUCT(S) : osillc.sys */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 05/21/98 IKE 03 Converted to 7.0 Data types, removed */ +/* underscores so it can be compiled */ +/* 11/02/95 DSF 02 Enhanced to retrieve stats information */ +/* 12/08/94 DSF 01 Added SET_OFFSET */ +/* 03/10/94 DSF Initial Release */ +/************************************************************************/ + +/* +** User Functions +*/ + +int LlcOpen (char *Name); +int LlcClose (int fd); +int LlcWrite (int fd, char *buffer, int size); +int LlcRead (int fd, char *buffer, int size); +int LlcIoctl (int fd, void *pArg, int size); + + + + +/* +** IOCTL Management +*/ + +/* +** LLC Driver IOCTL requests +*/ + + +#define LLC_ADD_MULTI 1 +#define LLC_DEL_MULTI 2 +#define LLC_GET_HW_ADDR 3 +#define LLC_SET_FRAME_FILTER 4 +#define LLC_BIND_LSAP 5 +#define LLC_UNBIND_LSAP 6 +#define LLC_TRACE_ON 7 +#define LLC_TRACE_OFF 8 +#define LLC_DEBUG_ON 9 +#define LLC_DEBUG_OFF 10 +#define LLC_GET_PROTO_STATS 11 +#define LLC_GET_MAC_STATS 12 +#define LLC_ARM_SIGNAL 13 +#define LLC_ARM_POST 15 +#define LLC_GET_EMB_PHYS_ADDR 16 +#define LLC_SET_WRITE_CONFIRM_FLAG 17 +#define LLC_GET_DEBUG 18 +#define LLC_POST_BUFS 19 +#define LLC_SET_OFFSET 20 +#define LLC_GET_MAC_CHARS 21 +#define LLC_CLEAR_MAC_STATS 22 +#define LLC_CLEAR_PROTO_STATS 23 + + +/* +** LLC Driver IOCTL Errors +*/ + +#define LLCERR_NO_ERROR 0 +#define LLCERR_LSAP_BOUND 1 +#define LLCERR_LSAP_NOTBOUND 2 +#define LLCERR_ILLEGAL_OPERATION 3 +#define LLCERR_UNKNOWN_COMMAND 4 + +#define MAX_HWADDR_SIZE 12 + +typedef struct + { + int Opcode; + int Status; + } LLCGENERICIOCTL; + + +typedef struct + { + int Opcode; + int Status; + int cSize; + char Multicast[MAX_HWADDR_SIZE]; + } LLCADDMULTI; + +typedef struct + { + int Opcode; + int Status; + int cSize; + char Multicast[MAX_HWADDR_SIZE]; + } LLCDELMULTI; + +typedef struct + { + int Opcode; + int Status; + int cSize; + char HwAddr[MAX_HWADDR_SIZE]; + } LLCGETHWADDR; + +typedef struct + { + int Opcode; + int Status; + unsigned Lsap; + } LLCBINDLSAP; + +typedef struct + { + int Opcode; + int Status; + } LLCUNBINDLSAP; + +typedef struct + { + int Opcode; + int Status; + long EmbPhysAddr; + long EmbSize; + } LLCGETEMBPHYSADDR; + +typedef struct + { + int Opcode; + int Status; + char far *pfWriteConfirm; + } LLCSETWRITECONFIRMFLAG; + +typedef struct + { + int Opcode; + int Status; + int VxDID; + } LLCARMPOST; + +typedef struct + { + int Opcode; + int Status; + long offset; + } LLCSETOFFSET; + + +typedef struct tagUSERBUFDESC + { + struct tagUSERBUFDESC far *Next; + char far *pBuf; + int cBufSize; + int cDataSize; + } USERBUFDESC; + +typedef struct + { + int Opcode; + int Status; + USERBUFDESC far *pBufDesc; + } LLCPOSTBUFS; + +typedef struct + { + int Opcode; + int Status; + int MessageNum; + int Parm1; + int Parm2; + int Parm3; + } LLCGETDEBUG; + + +/* +** NDIS Protocol Driver Stats +*/ + +typedef struct + { + long nFramesReceived; + long nReceiveLookaheadReceived; + long nReceiveChainReceived; + long nFramesDiscardedNotRecognized; + long nFramesDiscardedOutOfResources; + long nTransferDataFailed; + long nTransmitChainIssued; + long nTransmitChainFailed; + long nFramesDelivered; /* DOS only */ + } LLCPROTOSTATS; + +typedef struct + { + int Opcode; + int Status; + LLCPROTOSTATS ProtoStats; + } LLCGETPROTOSTATS; + +typedef struct + { + int Opcode; + int Status; + } LLCCLEARPROTOSTATS; + +/* +** NDIS MAC Driver Characteristics +*/ + +typedef struct /* structure for MAC service specific info */ + { + int cSize; /* length of the characteristic table */ + char TypeName[16]; /* name of the MAC type (eg. 802.3...) */ + int cStationAddr; /* length of station address (MAC) */ + char PermMACAddr[16]; /* hardware default MAC address */ + char CurrMACAddr[16]; /* current MAC address in use */ + long FunctionAddr; /* current functional address of adapter */ + long reserved; /* pointer to multicast table */ + long LinkSpeed; /* link speed bits/sec */ + long fMAC; /* flags of capabilities */ + int MaxFrameSize; /* maximum MAC frame which can be sent */ + long TotalTxSpace; /* total transmit buffer space */ + int cTxBlockSize; /* size of allocated transmission blocks */ + long TotalRxSpace; /*total reception buffer space */ + int cRxBlockSize; /*reception buffer alloc blk size */ + char VendorID[3]; /*vendor IEEE ID */ + char VendorAdapterDesc; /*vendor adapter description */ + long reserved2; /*pointer to vendor serial number */ + int IRQLevel; /*interrupt level */ + int TransmitQueueDepth; + int nMaxDataBlocks; + } LLCMACCHARS; + +typedef struct + { + int Opcode; + int Status; + LLCMACCHARS MacChars; + } LLCGETMACCHARS; + +typedef struct + { + int cSize; /*size of table */ + long LastDiagTime; /*seconds since 1-1-1970 of diags */ + long MACStatus; /*mac status, this is a bit mask */ + /* Bits 0-2: 0 - Hardware Not Installed */ + /* 1 - Hardware Failed Pwrup Diags */ + /* 2 - Hardware Failed CNFG Prob */ + /* 3 - Hardware Faulted */ + /* 4 - Hardware Marginally Operat */ + /* 7 - Fully Operational */ + /* Bit 3: MAC BOUND */ + /* Bit 4: MAC OPEN */ + /* Bit 5: DIAG_IN_PROGRESS */ + int CurrPacketFilter; /* Bit 1: Directed and Multicast Group */ + /* Bit 2: Broadcast */ + /* Bit 3: Promiscuous */ + /* Bit 4: All Source Routing */ + long reserved; /*pointer to media specific stats */ + long LastClearTime; /*seconds since 1-1-1970 */ + long nOkFramesReceived; /*total frames received ok */ + long nCrcErrorFrames; /*total frames received with crc errors */ + long nBytesReceived; /*total number of bytes recieved */ + long nFramesDiscarded; /*total number of frames discarded */ + long nMulticastFramesReceived; /*total number of multicast frames rxd OK */ + long nBroadcastFramesReceived; /*total number of broadcast frames rxd OK */ + long reserved1; + long reserved2; + long reserved3; + long reserved4; + long reserved5; + long nFramesDiscardedHwError; /*total number of frames discarded due to HW err*/ + long nFramesTransmittedOk; /*total number of frames transmitted OK */ + long nBytesTransimittedOk; /*total number of bytes transmitted OK */ + long nMulticastFramesTransmitted; /*total number of multicast transmitted */ + long nBroadcastFramesTransmitted; /*total broadcast frame transmitted */ + long reserved6; + long reserved7; + long nFramesNotTransmittedTimeout; /*total frames not transmitted due to timeout */ + long nFramesNotTransmittedHwError; /*total frames not transmitted due to HW ERR */ + } LLCMACSTATS; + +typedef struct + { + int Opcode; + int Status; + LLCMACSTATS MacStats; + } LLCGETMACSTATS; + +typedef struct + { + int Opcode; + int Status; + } LLCCLEARMACSTATS; + +typedef union + { + LLCADDMULTI AddMulti; + LLCDELMULTI DelMulti; + LLCGETHWADDR GetHwAddr; + LLCBINDLSAP BindLsap; + LLCUNBINDLSAP UnBindLsap; + LLCGETEMBPHYSADDR GetEmbPhysAddr; + LLCSETWRITECONFIRMFLAG SetWriteConfirmFlag; + LLCPOSTBUFS PostBufs; + LLCARMPOST ArmPost; + LLCGETDEBUG GetDebug; + LLCSETOFFSET SetOffset; + LLCGETMACCHARS GetMacChars; + LLCGETMACSTATS GetMacStats; + LLCCLEARMACSTATS ClearMacStats; + LLCGETPROTOSTATS GetProtoStats; + LLCCLEARPROTOSTATS ClearProtoStats; + } LLCIOCTL; + + + +/* +** Function prototypes +*/ + +int llc_getstats (LLCMACCHARS *MacChars, + LLCMACSTATS *MacStats, + LLCPROTOSTATS *ProtoStats); +void llc_clearstats (); + + +#endif diff --git a/include/inc/llcioctl.h b/include/inc/llcioctl.h new file mode 100644 index 0000000..995fac0 --- /dev/null +++ b/include/inc/llcioctl.h @@ -0,0 +1,121 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1996, All Rights Reserved */ +/* */ +/* MODULE NAME : llcioctl.c */ +/* PRODUCT(S) : OSI LLC NDIS 3.1 VxD */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 06/16/97 DSF 05 Added stats */ +/* 09/10/96 DSF 04 Added Length field to SET_MULTI */ +/* 09/05/96 DSF 03 Added SET_FILTER */ +/* 08/14/96 DSF 02 Added Transmit Completion object */ +/* 04/01/96 DSF 01 Initial Release */ +/* */ +/************************************************************************/ + +#define IOCTL_BASE 0x8100 +#define IOCTL_GET_PHYS_ADDR (IOCTL_BASE + 1) +#define IOCTL_SET_MULTI (IOCTL_BASE + 2) +#define IOCTL_ARM_EVENT (IOCTL_BASE + 3) +#define IOCTL_SEND (IOCTL_BASE + 4) +#define IOCTL_RECEIVE (IOCTL_BASE + 5) +#define IOCTL_ARM_COMPLETE (IOCTL_BASE + 6) +#define IOCTL_SET_FILTER (IOCTL_BASE + 7) +#define IOCTL_GET_STATS (IOCTL_BASE + 8) + + +#define PHYS_ADDR_LENGTH 6 +typedef struct _GET_PHYS_ADDR + { + UINT Status; + char PhysAddr[PHYS_ADDR_LENGTH]; + } GET_PHYS_ADDR; + + +typedef struct _SET_MULTI + { + UINT Status; + UINT Length; + char MultiAddr[2 * PHYS_ADDR_LENGTH]; + } SET_MULTI; + +typedef struct _SET_FILTER + { + UINT Status; + } SET_FILTER; + +typedef struct _ARM_EVENT + { + UINT Status; + HANDLE EventHandle; + } ARM_EVENT; + +typedef struct _ARM_COMPLETE + { + UINT Status; + HANDLE CompleteHandle; + } ARM_COMPLETE; + +#if !defined (GET_STATS_DEFINED) +typedef struct _MAC_STATS + { + ULONG HardwareStatus; + ULONG MaxLookahead; + ULONG MaxFrameSize; + ULONG LinkSpeed; + ULONG TransmitBufferSpace; + ULONG ReceiveBufferSpace; + ULONG TransmitBlockSize; + ULONG ReceiveBlockSize; + ULONG MaximumTotalSize; + ULONG MacOptions; + ULONG ConnectStatus; + ULONG XmitOk; + ULONG RcvOk; + ULONG XmitError; + ULONG RcvError; + ULONG RcvNoBuffer; + ULONG RcvCrcError; + ULONG TransmitQueueLength; + } MAC_STATS; + +typedef struct _PROTO_STATS + { + ULONG XmitOk; + ULONG RcvOk; + ULONG XmitError; + ULONG RcvError; + ULONG RcvUnknown; + ULONG XmitInd; + ULONG RcvInd; + ULONG AllocError; + } PROTO_STATS; + +typedef struct _USER_STATS + { + ULONG XmitOk; + ULONG RcvOk; + ULONG XmitError; + ULONG RcvError; + ULONG RcvUnknown; + } USER_STATS; + +typedef struct _GET_STATS + { + UINT Status; + MAC_STATS mac; + PROTO_STATS proto; + USER_STATS user; + } GET_STATS; + +#define GET_STATS_DEFINED +#endif diff --git a/include/inc/mem_chk.h b/include/inc/mem_chk.h new file mode 100644 index 0000000..ff264cf --- /dev/null +++ b/include/inc/mem_chk.h @@ -0,0 +1,339 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986-2004 All Rights Reserved */ +/* */ +/* MODULE NAME : mem_chk.h */ +/* PRODUCT(S) : General Use */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the declarations of the dynamic memory */ +/* handling functions. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 02/06/04 EJV 16 Added dyn_mem_ptr_status2. */ +/* 04/14/03 DSF 15 Cleanup */ +/* 04/08/03 DSF 14 added m_mem_crt_debug */ +/* 04/04/03 DSF 13 new/delete checks for MFC */ +/* 08/20/01 JRB 12 chk_* functions chged to nd_chk_*. */ +/* chk_* names are now ALWAYS macros. */ +/* Make 4 sets of macros depending on whether */ +/* DEBUG_SISCO and/or SMEM_ENABLE defined. */ +/* Don't define SMEM_ENABLE, do from makefiles. */ +/* Remove logging backward compatibility stuff. */ +/* 08/06/01 RKR 11 S_THISFILE was removed, need a thisFileName */ +/* 03/19/01 JRB 10 Move SMEM context defs to "smem.h". */ +/* 01/25/01 DSF 09 new/delete checks */ +/* 11/01/00 MDE 08 Additional SMEM work */ +/* 01/21/00 MDE 07 Added SMEM support */ +/* 09/13/99 MDE 06 Added SD_CONST modifiers */ +/* 01/26/98 MDE 05 Added 'chk_strdup' */ +/* 12/08/98 MDE 04 Added 'ST_BOOLEAN m_auto_hw_log' */ +/* 10/08/98 MDE 03 Migrated to updated SLOG interface */ +/* 10/14/97 DSF 02 m_bad_ptr_val is now a pointer */ +/* 09/16/97 DSF 01 chk_debug_en is UINT */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef MEM_CHK_INCLUDED +#define MEM_CHK_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include + +#ifdef SMEM_ENABLE +#include "smem.h" +#endif + +/************************************************************************/ +/* MEM_CHK MACROS and FUNCTION PROTOTYPES */ +/* Memory allocation macros. There are 4 sets of macros depending on */ +/* DEBUG_SISCO and SMEM_ENABLE. Each set of macros calls a unique set */ +/* of functions. */ +/* The DEBUG macros use thisFileName (instead of __FILE__) to reduce */ +/* memory usage. Any file using these macros MUST contain the following */ +/* statement: */ +/* static char *thisFileName = __FILE__; */ +/************************************************************************/ + +#if defined(SMEM_ENABLE) + #if defined(DEBUG_SISCO) + #define M_MALLOC(ctx,x) x_m_malloc (ctx,x, thisFileName,__LINE__) + #define M_CALLOC(ctx,x,y) x_m_calloc (ctx,x,y,thisFileName,__LINE__) + #define M_REALLOC(ctx,x,y) x_m_realloc (ctx,x,y,thisFileName,__LINE__) + #define M_STRDUP(ctx,x) x_m_strdup (ctx,x, thisFileName,__LINE__) + #define M_FREE(ctx,x) x_m_free (ctx,x, thisFileName,__LINE__) + + #define chk_malloc(x) x_m_malloc (MSMEM_GEN,x, thisFileName,__LINE__) + #define chk_calloc(x,y) x_m_calloc (MSMEM_GEN,x,y,thisFileName,__LINE__) + #define chk_realloc(x,y) x_m_realloc (MSMEM_GEN,x,y,thisFileName,__LINE__) + #define chk_strdup(x) x_m_strdup (MSMEM_GEN,x, thisFileName,__LINE__) + #define chk_free(x) x_m_free (MSMEM_GEN,x, thisFileName,__LINE__) + + ST_VOID *x_m_malloc (SMEM_CONTEXT *smem_ctx, ST_UINT size, + SD_CONST ST_CHAR *SD_CONST file, + SD_CONST ST_INT line); + + ST_VOID *x_m_calloc (SMEM_CONTEXT *smem_ctx, ST_UINT num, + ST_UINT size, + SD_CONST ST_CHAR *SD_CONST file, + SD_CONST ST_INT line); + + ST_VOID *x_m_realloc (SMEM_CONTEXT *smem_ctx, ST_VOID *old, + ST_UINT size, + SD_CONST ST_CHAR *SD_CONST file, + SD_CONST ST_INT line); + ST_VOID x_m_free (SMEM_CONTEXT *smem_ctx, ST_VOID *ptr, + SD_CONST ST_CHAR *SD_CONST file, + SD_CONST ST_INT line); + ST_CHAR *x_m_strdup (SMEM_CONTEXT *smem_ctx, ST_CHAR *str, + SD_CONST ST_CHAR *SD_CONST file, + SD_CONST ST_INT line); + + #else /* !DEBUG_SISCO */ + + #define M_MALLOC(ctx,x) nd_m_malloc (ctx,x) + #define M_CALLOC(ctx,x,y) nd_m_calloc (ctx,x,y) + #define M_REALLOC(ctx,x,y) nd_m_realloc (ctx,x,y) + #define M_STRDUP(ctx,x) nd_m_strdup (ctx,x) + #define M_FREE(ctx,x) nd_m_free (ctx,x) + + #define chk_malloc(x) nd_m_malloc (MSMEM_GEN,x) + #define chk_calloc(x,y) nd_m_calloc (MSMEM_GEN,x,y) + #define chk_realloc(x,y) nd_m_realloc (MSMEM_GEN,x,y) + #define chk_strdup(x) nd_m_strdup (MSMEM_GEN,x) + #define chk_free(x) nd_m_free (MSMEM_GEN,x) + + ST_VOID *nd_m_malloc (SMEM_CONTEXT *smem_ctx, ST_UINT size); + ST_VOID *nd_m_calloc (SMEM_CONTEXT *smem_ctx, ST_UINT num, ST_UINT size); + ST_VOID *nd_m_realloc (SMEM_CONTEXT *smem_ctx, ST_VOID *old, ST_UINT size); + ST_VOID nd_m_free (SMEM_CONTEXT *smem_ctx, ST_VOID *ptr); + ST_CHAR *nd_m_strdup (SMEM_CONTEXT *smem_ctx, ST_CHAR *str); + + #endif /* !DEBUG_SISCO */ +#else /* !SMEM_ENABLE */ + #if defined(DEBUG_SISCO) + + #define M_MALLOC(ctx,x) x_chk_malloc (x, thisFileName,__LINE__) + #define M_CALLOC(ctx,x,y) x_chk_calloc (x,y,thisFileName,__LINE__) + #define M_REALLOC(ctx,x,y) x_chk_realloc (x,y,thisFileName,__LINE__) + #define M_STRDUP(ctx,x) x_chk_strdup (x, thisFileName,__LINE__) + #define M_FREE(ctx,x) x_chk_free (x, thisFileName,__LINE__) + + #define chk_malloc(x) x_chk_malloc (x, thisFileName,__LINE__) + #define chk_calloc(x,y) x_chk_calloc (x,y,thisFileName,__LINE__) + #define chk_realloc(x,y) x_chk_realloc (x,y,thisFileName,__LINE__) + #define chk_strdup(x) x_chk_strdup (x, thisFileName,__LINE__) + #define chk_free(x) x_chk_free (x, thisFileName,__LINE__) + + ST_VOID *x_chk_realloc (ST_VOID *old, + ST_UINT size, + SD_CONST ST_CHAR *SD_CONST file, + SD_CONST ST_INT line); + ST_VOID *x_chk_malloc (ST_UINT size, + SD_CONST ST_CHAR *SD_CONST file, + SD_CONST ST_INT line); + ST_VOID *x_chk_calloc (ST_UINT num, + ST_UINT size, + SD_CONST ST_CHAR *SD_CONST file, + SD_CONST ST_INT line); + ST_CHAR *x_chk_strdup (ST_CHAR *str, + SD_CONST ST_CHAR *SD_CONST file, + SD_CONST ST_INT line); + ST_VOID x_chk_free (ST_VOID *old, + SD_CONST ST_CHAR *SD_CONST file, + SD_CONST ST_INT line); + + #else /* !DEBUG_SISCO */ + + #define M_MALLOC(ctx,x) nd_chk_malloc (x) + #define M_CALLOC(ctx,x,y) nd_chk_calloc (x,y) + #define M_REALLOC(ctx,x,y) nd_chk_realloc (x,y) + #define M_STRDUP(ctx,x) nd_chk_strdup (x) + #define M_FREE(ctx,x) nd_chk_free (x) + + #define chk_malloc(x) nd_chk_malloc (x) + #define chk_calloc(x,y) nd_chk_calloc (x,y) + #define chk_realloc(x,y) nd_chk_realloc (x,y) + #define chk_strdup(x) nd_chk_strdup (x) + #define chk_free(x) nd_chk_free (x) + + ST_VOID *nd_chk_malloc (ST_UINT size); + ST_VOID *nd_chk_calloc (ST_UINT num, ST_UINT size); + ST_VOID *nd_chk_realloc (ST_VOID *old, ST_UINT size); + ST_CHAR *nd_chk_strdup (ST_CHAR *str); + ST_VOID nd_chk_free (ST_VOID *ptr); + + #endif /* !DEBUG_SISCO */ +#endif /* !SMEM_ENABLE */ + + +/************************************************************************/ +/* chk_debug_en bit assignments */ +/* These are the defines to be used by all new applications */ +#define MEM_LOG_ERR 0x0001 +#define MEM_LOG_CALLOC 0x0002 +#define MEM_LOG_MALLOC 0x0004 +#define MEM_LOG_REALLOC 0x0008 +#define MEM_LOG_FREE 0x0010 + +extern ST_UINT chk_debug_en; + +/************************************************************************/ +/* Replacement Memory allocation functions. */ +/************************************************************************/ + +ST_VOID init_mem_chk (ST_VOID); +ST_VOID dyn_mem_ptr_status (ST_VOID); +ST_UINT dyn_mem_ptr_status2 (ST_VOID *marker_ptr); +ST_VOID dyn_mem_ptr_statistics (ST_BOOLEAN log_to_screen); +ST_VOID check_mem_list (ST_VOID); +ST_RET chk_alloc_ptr (ST_VOID *ptr); + + +/************************************************************************/ +/* fatal error service function pointers, used for unrecoverable errors */ +/************************************************************************/ +#define MEM_ERR_EXIT_CODE 2001 + +extern ST_VOID *(*m_memerr_fun)(ST_UINT size); /* for malloc */ +extern ST_VOID *(*c_memerr_fun)(ST_UINT num, ST_UINT size); /* for calloc */ +extern ST_VOID *(*r_memerr_fun)(ST_VOID *old, ST_UINT size); /* for realloc*/ + +/************************************************************************/ +/* statistics */ +/************************************************************************/ +extern ST_UINT32 chk_curr_mem_count; +extern ST_UINT32 chk_max_dyn_mem_ptrs; +extern ST_UINT32 chk_max_mem_allocated; +extern ST_UINT32 chk_curr_mem_size; + + +/************************************************************************/ +/************************************************************************/ +/* HEAP checking functions and macros */ + +/* These defines are used to control the level or print in chk_hp */ +#define DEBUG_HEAP_SUM 0x0001 +#define DEBUG_HEAP_ENTRY 0x0002 +#define DEBUG_HEAP_ALL 0x0003 + +#ifdef HEAP_CHECK_ENABLE +#define HEAP_CHECK() chk_hp (0, (ST_CHAR *) __FILE__, __LINE__) +#else +#define HEAP_CHECK() +#endif + +ST_RET msoft_heap_check (ST_INT16); +ST_RET chk_hp (ST_INT16 prt_mask,ST_CHAR *file,ST_INT line); + +/************************************************************************/ + +extern ST_VOID *m_bad_ptr_val; + +/* This variable used to enable MSOFT heap check calls on every alloc */ +/* and free call. Also sets the unused heap memory to 0x55's */ +extern ST_BOOLEAN m_heap_check_enable; + +/* This variable used to enable list validation and overwrite checking */ +/* on every alloc and free call. */ +extern ST_BOOLEAN m_check_list_enable; + +/* Set this = SD_FALSE to speed up the debug version. When SD_TRUE, it */ +/* enables searching the memory list for the element before accessing */ +/* the memory during chk_realloc and chk_free calls */ +extern ST_BOOLEAN m_find_node_enable; + +/* This variable will cause chk_realloc to not realloc when the new */ +/* size is smaller than the old size */ +extern ST_BOOLEAN m_no_realloc_smaller; + +/* Dump memory table whenever high water mark is advanced */ +extern ST_BOOLEAN m_auto_hw_log; + +extern ST_CHAR *m_pad_string; +extern ST_INT m_num_pad_bytes; + +extern ST_BOOLEAN m_fill_en; +extern ST_UCHAR m_fill_byte; + +extern ST_BOOLEAN m_mem_debug; + +extern ST_BOOLEAN m_mem_crt_debug; + +/* This function pointer can be set to select a function to be called */ +/* in case of memory error. */ + +extern ST_VOID (*mem_chk_err)(ST_VOID); + +/* Read only */ +extern ST_UINT m_mem_overhead; + + +/************************************************************************/ +/************************************************************************/ +#ifdef __cplusplus +} +#endif + + + +#ifdef __cplusplus +/************************************************************************/ +/* deal with new and delete */ +/************************************************************************/ +#if defined (DEBUG_SISCO) && defined (DEBUG_NEW_SISCO) + +#include + +void * operator new(size_t nSize) throw (std::bad_alloc); +void * operator new(size_t nSize, const char *fileName, const int lineNum) throw (std::bad_alloc); +void * operator new(size_t nSize, const std::nothrow_t&) throw (); +void * operator new[](size_t nSize) throw (std::bad_alloc); +void * operator new[](size_t nSize, const char *fileName, const int lineNum) throw (std::bad_alloc); +void * operator new[](size_t nSize, const std::nothrow_t&) throw (); +void operator delete(void *p) throw (); +void operator delete(void *p, const char *fileName, const int lineNum) throw (); +void operator delete[](void *p) throw (); +void operator delete[](void *p, const char *fileName, const int lineNum) throw (); + +#ifndef MEM_CHK +#define new new(thisFileName, __LINE__) +#endif + +#endif + +#if defined (DEBUG_SISCO) && defined (DEBUG_NEW_MFC) + +#include + +#if !defined (__AFX_H__) + +#include + +#define THIS_FILE __FILE__ + +void* __cdecl operator new(size_t nSize, LPCSTR lpszFileName, int nLine); +#define DEBUG_NEW new(THIS_FILE, __LINE__) +void __cdecl operator delete(void* p, LPCSTR lpszFileName, int nLine); + +void * __cdecl operator new[](size_t); +void* __cdecl operator new[](size_t nSize, LPCSTR lpszFileName, int nLine); +void __cdecl operator delete[](void* p, LPCSTR lpszFileName, int nLine); +void __cdecl operator delete[](void *); + +#endif /* AFX */ + +#endif /* DEBUG_NEW_MFC */ + +#endif /* __cplusplus */ + + +#endif /* mem_chk.h already included */ diff --git a/include/inc/memlog.h b/include/inc/memlog.h new file mode 100644 index 0000000..ecdb3a3 --- /dev/null +++ b/include/inc/memlog.h @@ -0,0 +1,201 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986, 1987, 1988, 1989, 1990, All Rights Reserved */ +/* */ +/* MODULE NAME : memlog.h */ +/* PRODUCT(S) : General Use */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the declarations of the dynamic memory */ +/* handling functions. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/13/02 JRB 08 MEMLOG_PAUSE*, MEMLOG_LF macros do nothing. */ +/* 09/13/99 MDE 07 Added SD_CONST modifiers */ +/* 10/08/98 MDE 06 Migrated to updated SLOG interface */ +/* 04/17/96 JRB 05 Del #define THISFILE thisFileName. */ +/* 04/17/96 JRB 04 Del mem_sLogCtrl. Use new sLogCtrl in slog.c */ +/* 04/01/94 MDE 03 Removed THISFILE defines, changed THISFILE */ +/* to thisFileName */ +/* 03/29/94 DSF 02 Corrected definition for THISFILE */ +/* 12/10/93 DSF 01 Added MEMLOG_CHERR macro */ +/************************************************************************/ + +#ifndef MEMLOG_INCLUDED +#define MEMLOG_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "slog.h" + +/************************************************************************/ +/************************************************************************/ + +extern SD_CONST ST_CHAR *SD_CONST _mem_log_err_logstr; +extern SD_CONST ST_CHAR *SD_CONST _mem_log_calloc_logstr; +extern SD_CONST ST_CHAR *SD_CONST _mem_log_malloc_logstr; +extern SD_CONST ST_CHAR *SD_CONST _mem_log_realloc_logstr; +extern SD_CONST ST_CHAR *SD_CONST _mem_log_free_logstr; +extern SD_CONST ST_CHAR *SD_CONST _mem_log_nerr_logstr; +extern SD_CONST ST_CHAR *SD_CONST _mem_log_dump_logstr; + + +#define MEMLOG_LF() + +#define MEMLOG_CALLSTACK(a) slogCallStack (sLogCtrl,a); + +#define MEMLOG_PAUSE(msg) +#define MEMLOG_PAUSEERR(msg) + +#define MEMLOG_MALLOC2(a,b,c) {\ + if (chk_debug_en & MEM_LOG_MALLOC)\ + _slog (sLogCtrl,_mem_log_malloc_logstr,\ + thisFileName,__LINE__,a,b,c);\ + } +#define MEMLOG_CMALLOC1(a,b) {\ + if (chk_debug_en & MEM_LOG_MALLOC)\ + _slogc (sLogCtrl,a,b);\ + } +#define MEMLOG_CMALLOC2(a,b,c) {\ + if (chk_debug_en & MEM_LOG_MALLOC)\ + _slogc (sLogCtrl,a,b,c);\ + } +#define MEMLOG_CMALLOC3(a,b,c,d) {\ + if (chk_debug_en & MEM_LOG_MALLOC)\ + _slogc (sLogCtrl,a,b,c,d);\ + } + +#define MEMLOG_CALLOC3(a,b,c,d) {\ + if (chk_debug_en & MEM_LOG_CALLOC)\ + _slog (sLogCtrl,_mem_log_calloc_logstr,\ + thisFileName,__LINE__,a,b,c,d);\ + } +#define MEMLOG_CCALLOC1(a,b) {\ + if (chk_debug_en & MEM_LOG_CALLOC)\ + _slogc (sLogCtrl,a,b);\ + } +#define MEMLOG_CCALLOC2(a,b,c) {\ + if (chk_debug_en & MEM_LOG_CALLOC)\ + _slogc (sLogCtrl,a,b,c);\ + } +#define MEMLOG_CCALLOC3(a,b,c,d) {\ + if (chk_debug_en & MEM_LOG_CALLOC)\ + _slogc (sLogCtrl,a,b,c,d);\ + } +#define MEMLOG_REALLOC3(a,b,c,d) {\ + if (chk_debug_en & MEM_LOG_REALLOC)\ + _slog (sLogCtrl,_mem_log_realloc_logstr,\ + thisFileName,__LINE__,a,b,c,d);\ + } +#define MEMLOG_CREALLOC1(a,b) {\ + if (chk_debug_en & MEM_LOG_REALLOC)\ + _slogc (sLogCtrl,a,b);\ + } +#define MEMLOG_CREALLOC2(a,b,c) {\ + if (chk_debug_en & MEM_LOG_REALLOC)\ + _slogc (sLogCtrl,a,b,c);\ + } +#define MEMLOG_CREALLOC3(a,b,c,d) {\ + if (chk_debug_en & MEM_LOG_REALLOC)\ + _slogc (sLogCtrl,a,b,c,d);\ + } + +#define MEMLOG_FREE1(a,b) {\ + if (chk_debug_en & MEM_LOG_FREE)\ + _slog (sLogCtrl,_mem_log_free_logstr,\ + thisFileName,__LINE__,a,b);\ + } +#define MEMLOG_CFREE2(a,b,c) {\ + if (chk_debug_en & MEM_LOG_FREE)\ + _slogc (sLogCtrl,a,b,c);\ + } +#define MEMLOG_CFREE3(a,b,c,d) {\ + if (chk_debug_en & MEM_LOG_FREE)\ + _slogc (sLogCtrl,a,b,c,d);\ + } + +#define MEMLOG_ERR0(a) {\ + if (chk_debug_en & MEM_LOG_ERR)\ + _slog (sLogCtrl,_mem_log_err_logstr,\ + thisFileName,__LINE__,a);\ + } +#define MEMLOG_ERR1(a,b) {\ + if (chk_debug_en & MEM_LOG_ERR)\ + _slog (sLogCtrl,_mem_log_err_logstr,\ + thisFileName,__LINE__,a,b);\ + } +#define MEMLOG_ERR2(a,b,c) {\ + if (chk_debug_en & MEM_LOG_ERR)\ + _slog (sLogCtrl,_mem_log_err_logstr,\ + thisFileName,__LINE__,a,b,c);\ + } +#define MEMLOG_CERR0(a) {\ + if (chk_debug_en & MEM_LOG_ERR)\ + _slogc (sLogCtrl,a);\ + } +#define MEMLOG_CERR1(a,b) {\ + if (chk_debug_en & MEM_LOG_ERR)\ + _slogc (sLogCtrl,a,b);\ + } +#define MEMLOG_CERR2(a,b,c) {\ + if (chk_debug_en & MEM_LOG_ERR)\ + _slogc (sLogCtrl,a,b,c);\ + } +#define MEMLOG_CERR3(a,b,c,d) {\ + if (chk_debug_en & MEM_LOG_ERR)\ + _slogc (sLogCtrl,a,b,c,d);\ + } +#define MEMLOG_CERR5(a,b,c,d,e,f) {\ + if (chk_debug_en & MEM_LOG_ERR)\ + _slogc (sLogCtrl,a,b,c,d,e,f);\ + } +#define MEMLOG_CERR6(a,b,c,d,e,f,g) {\ + if (chk_debug_en & MEM_LOG_ERR)\ + _slogc (sLogCtrl,a,b,c,d,e,f,g);\ + } +#define MEMLOG_CHERR(a,b) {\ + if (chk_debug_en & MEM_LOG_ERR)\ + _slogHex (sLogCtrl,a,b);\ + } + +#define MEMLOG_DUMP0(a) {\ + _slog (sLogCtrl,_mem_log_dump_logstr,\ + thisFileName,__LINE__,a);\ + } +#define MEMLOG_DUMP1(a,b) {\ + _slog (sLogCtrl,_mem_log_dump_logstr,\ + thisFileName,__LINE__,a,b);\ + } +#define MEMLOG_CDUMP4(a,b,c,d,e) {\ + _slogc (sLogCtrl,a,b,c,d,e);\ + } +#define MEMLOG_CDUMP5(a,b,c,d,e,f) {\ + _slogc (sLogCtrl,a,b,c,d,e,f);\ + } +#define MEMLOG_CDUMP0(a) {\ + _slogc (sLogCtrl,a);\ + } +#define MEMLOG_CDUMP1(a,b) {\ + _slogc (sLogCtrl,a,b);\ + } +#define MEMLOG_CDUMP2(a,b,c) {\ + _slogc (sLogCtrl,a,b,c);\ + } +#define MEMLOG_CDUMP3(a,b,c,d) {\ + _slogc (sLogCtrl,a,b,c,d);\ + } + + +#ifdef __cplusplus +} +#endif + + +#endif /* memlog.h already included */ + diff --git a/include/inc/mloguser.h b/include/inc/mloguser.h new file mode 100644 index 0000000..eb55381 --- /dev/null +++ b/include/inc/mloguser.h @@ -0,0 +1,297 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2008 All Rights Reserved */ +/* */ +/* MODULE NAME : mloguser.h */ +/* PRODUCT(S) : MMS-EASE 250-001 */ +/* */ +/* MODULE DESCRIPTION : */ +/* ANSI Protytped Logging Functions for MMS-EASE user code. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/01/08 JRB 16 Del commented code. */ +/* 10/30/06 JRB 15 Add mlog_arb_log_ctrl extern. */ +/* 03/23/05 JRB 14 Del unused m_log_mllp* & m_log_llp* protos. */ +/* 06/10/04 EJV 13 Removed suicacse.h - lber.h conflict on AIX. */ +/* 04/05/02 MDE 12 Cleaned up MMS Lite use of MLOG */ +/* 11/04/98 DSF 11 Added m_get_mms_rej_text () */ +/* 08/13/98 MDE 10 Added m_log_tdl */ +/* 07/16/98 MDE 09 Added ml_log_dec_rslt declaration */ +/* 06/15/98 MDE 08 Changes to allow compile under C++ */ +/* 03/20/98 JRB 07 Del mmsop_en.h. Only user code needs it now. */ +/* 09/29/97 MDE 06 Don't need mlog_en.h */ +/* 08/15/97 MDE 05 BTOD handling changes */ +/* 08/14/97 MDE 04 Removed unused 'm_log_info_print' */ +/* 08/04/97 MDE 03 Added 'no log' function declarations */ +/* 08/04/97 MDE 02 Changes towards breakup */ +/* 06/09/97 MDE 01 Removed several mmv_v???.h includes */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef MLOGUSER_INCLUDED +#define MLOGUSER_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "mmslog.h" +#include "mms_pcon.h" +#include "mms_pdom.h" +#include "mms_pevn.h" +#include "mms_pfil.h" +#include "mms_pjou.h" +#include "mms_pocs.h" +#include "mms_pprg.h" +#include "mms_psem.h" +#include "mms_pvar.h" +#include "mms_pvmd.h" +#include "mms_vvar.h" +#if defined(MMS_LITE) +#include "mmsintr2.h" +#endif +#include "sx_arb.h" /* needed for SXD_ARB_DATA_CTRL */ + + +/************************************************************************/ +/************************************************************************/ + +extern ST_VOID (*m_req_log_fun_tbl [MAX_MMSOP_DIS+1]) (ST_VOID *v); +extern ST_VOID (*m_resp_log_fun_tbl [MAX_MMSOP_DIS+1]) (ST_VOID *v); + +/* Request / Response Data Logging Functions */ +ST_VOID m_log_ackevnot_req (ACKEVNOT_REQ_INFO *info); +ST_VOID m_log_altecm_req (ALTECM_REQ_INFO *info); +ST_VOID m_log_altee_resp (ALTEE_RESP_INFO *info); +ST_VOID m_log_altee_req (ALTEE_REQ_INFO *info); +ST_VOID m_log_crepi_req (CREPI_REQ_INFO *info); +ST_VOID m_log_cancel_req (ST_VOID); +ST_VOID m_log_cancel_resp (ST_VOID); +ST_VOID m_log_defea_req (DEFEA_REQ_INFO *info); +ST_VOID m_log_defec_req (DEFEC_REQ_INFO *info); +ST_VOID m_log_defee_req (DEFEE_REQ_INFO *info); +ST_VOID m_log_defscat_req (DEFSCAT_REQ_INFO *info); +ST_VOID m_log_defsem_req (DEFSEM_REQ_INFO *info); +ST_VOID m_log_deftype_req (DEFTYPE_REQ_INFO *info); +ST_VOID m_log_defvar_req (DEFVAR_REQ_INFO *info); +ST_VOID m_log_defvlist_req (DEFVLIST_REQ_INFO *info); +ST_VOID m_log_deldom_req (DELDOM_REQ_INFO *info); +ST_VOID m_log_delea_resp (DELEA_RESP_INFO *info); +ST_VOID m_log_delea_req (DELEA_REQ_INFO *info); +ST_VOID m_log_delec_req (DELEC_REQ_INFO *info); +ST_VOID m_log_delec_resp (DELEC_RESP_INFO *info); +ST_VOID m_log_delee_resp (DELEE_RESP_INFO *info); +ST_VOID m_log_delee_req (DELEE_REQ_INFO *info); +ST_VOID m_log_delpi_req (DELPI_REQ_INFO *info); +ST_VOID m_log_delsem_req (DELSEM_REQ_INFO *info); +ST_VOID m_log_deltype_resp (DELTYPE_RESP_INFO *info); +ST_VOID m_log_deltype_req (DELTYPE_REQ_INFO *info); +ST_VOID m_log_delvar_resp (DELVAR_RESP_INFO *info); +ST_VOID m_log_delvar_req (DELVAR_REQ_INFO *info); +ST_VOID m_log_delvlist_resp (DELVLIST_RESP_INFO *info); +ST_VOID m_log_delvlist_req (DELVLIST_REQ_INFO *info); +ST_VOID m_log_download_resp (DOWNLOAD_RESP_INFO *info); +ST_VOID m_log_download_req (DOWNLOAD_REQ_INFO *info); +ST_VOID m_log_evnot_req (EVNOT_REQ_INFO *info); +ST_VOID m_log_fclose_req (FCLOSE_REQ_INFO *info); +ST_VOID m_log_fdelete_req (FDELETE_REQ_INFO *info); +ST_VOID m_log_fdir_resp (FDIR_RESP_INFO *info); +ST_VOID m_log_fdir_req (FDIR_REQ_INFO *info); +ST_VOID m_log_fopen_resp (FOPEN_RESP_INFO *info); +ST_VOID m_log_fopen_req (FOPEN_REQ_INFO *info); +ST_VOID m_log_fread_resp (FREAD_RESP_INFO *info); +ST_VOID m_log_fread_req (FREAD_REQ_INFO *info); +ST_VOID m_log_frename_req (FRENAME_REQ_INFO *info); +ST_VOID m_log_getaes_resp (GETAES_RESP_INFO *info); +ST_VOID m_log_getaes_req (GETAES_REQ_INFO *info); +ST_VOID m_log_getas_resp (GETAS_RESP_INFO *info); +ST_VOID m_log_getas_req (GETAS_REQ_INFO *info); +ST_VOID m_log_getcl_resp (GETCL_RESP_INFO *info); +ST_VOID m_log_getcl_req (GETCL_REQ_INFO *info); +ST_VOID m_log_getdom_resp (GETDOM_RESP_INFO *info); +ST_VOID m_log_getdom_req (GETDOM_REQ_INFO *info); +ST_VOID m_log_geteaa_resp (GETEAA_RESP_INFO *info); +ST_VOID m_log_geteaa_req (GETEAA_REQ_INFO *info); +ST_VOID m_log_geteca_resp (GETECA_RESP_INFO *info); +ST_VOID m_log_geteca_req (GETECA_REQ_INFO *info); +ST_VOID m_log_geteea_resp (GETEEA_RESP_INFO *info); +ST_VOID m_log_geteea_req (GETEEA_REQ_INFO *info); +ST_VOID m_log_getpi_resp (GETPI_RESP_INFO *info); +ST_VOID m_log_getpi_req (GETPI_REQ_INFO *info); +ST_VOID m_log_getscat_resp (GETSCAT_RESP_INFO *info); +ST_VOID m_log_getscat_req (GETSCAT_REQ_INFO *info); +ST_VOID m_log_gettype_resp (GETTYPE_RESP_INFO *info); +ST_VOID m_log_gettype_req (GETTYPE_REQ_INFO *info); +ST_VOID m_log_getvar_resp (GETVAR_RESP_INFO *info); +ST_VOID m_log_getvar_req (GETVAR_REQ_INFO *info); +ST_VOID m_log_getvlist_resp (GETVLIST_RESP_INFO *info); +ST_VOID m_log_getvlist_req (GETVLIST_REQ_INFO *info); +ST_VOID m_log_ident_resp (IDENT_RESP_INFO *info); +ST_VOID m_log_info_req (INFO_REQ_INFO *info); +ST_VOID m_log_initdown_req (INITDOWN_REQ_INFO *info); +ST_VOID m_log_initupl_resp (INITUPL_RESP_INFO *info); +ST_VOID m_log_initupl_req (INITUPL_REQ_INFO *info); +ST_VOID m_log_init_info (INIT_INFO *info); +ST_VOID m_log_input_resp (INPUT_RESP_INFO *info); +ST_VOID m_log_input_req (INPUT_REQ_INFO *info); +ST_VOID m_log_jcreate_req (JCREATE_REQ_INFO *info); +ST_VOID m_log_jdelete_req (JDELETE_REQ_INFO *info); +ST_VOID m_log_jinit_resp (JINIT_RESP_INFO *info); +ST_VOID m_log_jinit_req (JINIT_REQ_INFO *info); +ST_VOID m_log_jread_resp (JREAD_RESP_INFO *info); +ST_VOID m_log_jread_req (JREAD_REQ_INFO *info); +ST_VOID m_log_jstat_resp (JSTAT_RESP_INFO *info); +ST_VOID m_log_jstat_req (JSTAT_REQ_INFO *info); +ST_VOID m_log_jwrite_req (JWRITE_REQ_INFO *info); +ST_VOID m_log_kill_req (KILL_REQ_INFO *info); +ST_VOID m_log_loaddom_req (LOADDOM_REQ_INFO *info); +ST_VOID m_log_namelist_resp (NAMELIST_RESP_INFO *info); +ST_VOID m_log_namelist_req (NAMELIST_REQ_INFO *info); +ST_VOID m_log_obtfile_req (OBTFILE_REQ_INFO *info); +ST_VOID m_log_output_req (OUTPUT_REQ_INFO *info); +ST_VOID m_log_rddwn_req (RDDWN_REQ_INFO *info); +ST_VOID m_log_rdupl_req (RDUPL_REQ_INFO *info); +ST_VOID m_log_read_resp (READ_RESP_INFO *info); +ST_VOID m_log_read_req (READ_REQ_INFO *info); +ST_VOID m_log_relctrl_req (RELCTRL_REQ_INFO *info); +ST_VOID m_log_rename_req (RENAME_REQ_INFO *info); +ST_VOID m_log_repeas_resp (REPEAS_RESP_INFO *info); +ST_VOID m_log_repeas_req (REPEAS_REQ_INFO *info); +ST_VOID m_log_repecs_resp (REPECS_RESP_INFO *info); +ST_VOID m_log_repecs_req (REPECS_REQ_INFO *info); +ST_VOID m_log_repees_resp (REPEES_RESP_INFO *info); +ST_VOID m_log_repees_req (REPEES_REQ_INFO *info); +ST_VOID m_log_reset_req (RESET_REQ_INFO *info); +ST_VOID m_log_resume_req (RESUME_REQ_INFO *info); +ST_VOID m_log_rsentry_resp (RSENTRY_RESP_INFO *info); +ST_VOID m_log_rsentry_req (RSENTRY_REQ_INFO *info); +ST_VOID m_log_rspool_resp (RSPOOL_RESP_INFO *info); +ST_VOID m_log_rspool_req (RSPOOL_REQ_INFO *info); +ST_VOID m_log_rsstat_resp (RSSTAT_RESP_INFO *info); +ST_VOID m_log_rsstat_req (RSSTAT_REQ_INFO *info); +ST_VOID m_log_start_req (START_REQ_INFO *info); +ST_VOID m_log_status_resp (STATUS_RESP_INFO *info); +ST_VOID m_log_status_req (STATUS_REQ_INFO *info); +ST_VOID m_log_stop_req (STOP_REQ_INFO *info); +ST_VOID m_log_storedom_req (STOREDOM_REQ_INFO *info); +ST_VOID m_log_takectrl_resp (TAKECTRL_RESP_INFO *info); +ST_VOID m_log_takectrl_req (TAKECTRL_REQ_INFO *info); +ST_VOID m_log_termdown_req (TERMDOWN_REQ_INFO *info); +ST_VOID m_log_termupl_req (TERMUPL_REQ_INFO *info); +ST_VOID m_log_trige_req (TRIGE_REQ_INFO *info); +ST_VOID m_log_upload_resp (UPLOAD_RESP_INFO *info); +ST_VOID m_log_upload_req (UPLOAD_REQ_INFO *info); +ST_VOID m_log_ustatus_req (USTATUS_REQ_INFO *info); +ST_VOID m_log_write_resp (WRITE_RESP_INFO *info); +ST_VOID m_log_write_req (WRITE_REQ_INFO *info); + +/* common component logging */ +ST_VOID m_log_app_ref (APP_REF *info); +ST_VOID m_log_asn1_app_ref (ST_UCHAR *buf_ptr, ST_INT buf_len); +ST_VOID m_log_modifier (MODIFIER *info); +ST_VOID m_log_tdl (ST_UCHAR *asn1, ST_INT asn1_len); + +ST_VOID m_log_error_info (ERR_INFO *err_ptr); +#if !defined(MMS_LITE) +ST_VOID m_log_err_info (MMSREQ_PEND *req_ptr); +#endif + +ST_VOID m_no_log_resp (ST_VOID *resp); +ST_VOID m_no_log_req (ST_VOID *req); + +/************************************************************************/ + +ST_VOID m_get_mms_err_text (ST_INT eclass, ST_INT code, + ST_CHAR *dest, ST_INT dest_len); + +ST_VOID m_get_mms_rej_text (ST_INT rclass, ST_INT code, + ST_CHAR *dest, ST_INT dest_len); + +ST_VOID m_log_reject_info (REJECT_RESP_INFO *rej_ptr); + +ST_VOID m_log_evtime (EVENT_TIME *info); +ST_VOID m_log_evt_tod (MMS_BTOD *info); +ST_VOID m_log_external (EXTERN_INFO *info); + +ST_VOID m_log_objname (OBJECT_NAME *info); +ST_VOID m_log_pi_state (ST_INT state); +ST_VOID m_log_address (VAR_ACC_ADDR *info); +ST_VOID m_log_var_list (VARIABLE_LIST *vl_ptr, ST_INT num_of_vars); +ST_VOID m_log_var_spec (VARIABLE_SPEC *info); +ST_VOID m_log_vaspec (VAR_ACC_SPEC *info); +ST_VOID m_log_data (ST_INT asn1_data_len, ST_UCHAR *asn1_data); + +/************************************************************************/ +/************************************************************************/ +#if defined(MMS_LITE) +/************************************************************************/ + +ST_RET ml_log_dec_rslt (MMSDEC_INFO *rslt); + +ST_VOID _ml_log_req_info (ST_INT invokeId, ST_INT op, ST_VOID *info); +ST_VOID _ml_log_ind_info (ST_INT invokeId, ST_INT op, ST_VOID *info); +ST_VOID _ml_log_resp_info (ST_INT invokeId, ST_INT op, ST_VOID *info); +ST_VOID _ml_log_conf_info (ST_INT invokeId, ST_INT op, ST_VOID *info); +ST_VOID _ml_log_unsol_req_info (ST_INT op, ST_VOID *info); +ST_VOID _ml_log_unsol_ind_info (ST_INT op, ST_VOID *info); +ST_VOID _ml_log_error_resp (ST_INT invokeId, ST_VOID *info); +ST_VOID _ml_log_error_conf (ST_INT invokeId, ST_VOID *info); +ST_VOID _ml_log_reject_send (ST_VOID *info); +ST_VOID _ml_log_reject_recv (ST_VOID *info); + + +/* MLOG integration */ +extern ST_VOID (*ml_log_req_info_fun) (ST_INT invokeId, ST_INT op, ST_VOID *info); +extern ST_VOID (*ml_log_ind_info_fun) (ST_INT invokeId, ST_INT op, ST_VOID *info); + +extern ST_VOID (*ml_log_resp_info_fun) (ST_INT invokeId, ST_INT op, ST_VOID *info); +extern ST_VOID (*ml_log_conf_info_fun) (ST_INT invokeId, ST_INT op, ST_VOID *info); + +extern ST_VOID (*ml_log_unsol_req_info_fun) (ST_INT op, ST_VOID *info); +extern ST_VOID (*ml_log_unsol_ind_info_fun) (ST_INT op, ST_VOID *info); + +extern ST_VOID (*ml_log_error_conf_fun) (ST_INT invokeId, ST_VOID *info); +extern ST_VOID (*ml_log_error_resp_fun) (ST_INT invokeId, ST_VOID *info); + +extern ST_VOID (*ml_log_reject_send_fun) (ST_VOID *info); +extern ST_VOID (*ml_log_reject_recv_fun) (ST_VOID *info); + +ST_VOID ml_mlog_install (ST_VOID); + +/************************************************************************/ +#endif /* MMS_LITE */ +/************************************************************************/ + +/************************************************************************/ +#if !defined(MMS_LITE) +/************************************************************************/ +ST_VOID m_log_ureq_info (ST_INT chan, ST_INT op, ST_VOID *info); +ST_VOID m_log_req_info (MMSREQ_PEND *req, ST_VOID *info); +ST_VOID m_log_resp_info (MMSREQ_IND *ind, ST_VOID *info); +ST_VOID m_log_ind_info (MMSREQ_IND *ind); +ST_VOID m_log_conf_info (MMSREQ_PEND *conf); +ST_VOID m_log_error_resp (MMSREQ_IND *ind, ST_INT16 eclass, ST_INT16 code); +ST_RET m_mlog_install (ST_VOID); +#endif + +/************************************************************************/ +/* Global variables. */ +/************************************************************************/ +extern SXD_ARB_DATA_CTRL mlog_arb_log_ctrl; + +/************************************************************************/ +#ifdef __cplusplus +} +#endif +/************************************************************************/ + + +#endif /* MLOGUSER_INCLUDED */ + diff --git a/include/inc/mms_def2.h b/include/inc/mms_def2.h new file mode 100644 index 0000000..c29ab15 --- /dev/null +++ b/include/inc/mms_def2.h @@ -0,0 +1,308 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1993 - 1997, All Rights Reserved. */ +/* */ +/* MODULE NAME : mms_def2.h */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains miscellaneous definitions and variables. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 11/12/07 MDE 11 Added MMSOP_RD_USR_HANDLED, etc.. */ +/* 04/24/03 JRB 10 Increase MAX_IDENT_LEN from 32 to 64. */ +/* 07/09/02 MDE 09 Fixed up opcode defines */ +/* 02/24/00 DSF 08 Bumped up MAX_FILES_OPEN to 100 */ +/* 10/06/99 GLB 07 Added file Rename and Obtain File */ +/* 09/13/99 MDE 06 Added SD_CONST modifiers */ +/* 04/14/98 JRB 05 Del MPARAM* defs. Still needed in mmsop_en.h */ +/* 04/03/98 JRB 04 Add check for obsolete version of mmsop_en.h */ +/* 03/20/98 JRB 03 Move defs from "mmsop_en.h" to here. */ +/* 08/15/97 MDE 02 Added xxx_DATA_SUPPORT defines, cleanup */ +/* 08/14/97 RKR 01 Format changes */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef MMS_DEF2_INCLUDED +#define MMS_DEF2_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#if defined (REQ_RESP_DIS) || defined (MAX_MMS_OPCODE) +#error May have obsolete version of "mmsop_en.h". See Release Notes. +#endif + +/************************************************************************/ +/************************************************************************/ +/* define the operation enable switches used by "mmsop_en.h" */ +/************************************************************************/ +#define REQ_RESP_DIS 0x00 /* no support for req or resp */ +#define REQ_EN 0x01 /* support for request */ +#define RESP_EN 0x02 /* support for response */ +#define REQ_RESP_EN 0x03 /* support for resp and req */ + +/************************************************************************/ +/************************************************************************/ +/* The following character array is used to check if a MMS operation is */ +/* to be supported as requestor and/or responder, and whether to expect */ +/* a constructor or primitive after the invoke ID. The operation opcode */ +/* is used as an index into the table. */ +/************************************************************************/ + +#define MAX_MMS_OPCODE 77 /* highest MMS opcode */ +#define MAX_MMSOP_DIS 85 /* highest mmsop_en[] entry */ + +extern SD_CONST ST_UCHAR mmsop_en [MAX_MMSOP_DIS+1]; + +/************************************************************************/ +/************************************************************************/ +/* The following array is used to print the opcode description. The */ +/* operation opcode is used as an index into the table. */ +/************************************************************************/ + +extern ST_CHAR *mms_op_string[106]; +extern ST_INT m_num_mms_op_string; + +/************************************************************************/ +/************************************************************************/ +/* Define the MMS operation opcodes */ +/************************************************************************/ +#define MMSOP_STATUS 0 /* status */ +#define MMSOP_GET_NAMLIST 1 /* get name list */ +#define MMSOP_IDENTIFY 2 /* identify */ +#define MMSOP_RENAME 3 /* rename */ +#define MMSOP_READ 4 /* read */ +#define MMSOP_WRITE 5 /* write */ +#define MMSOP_GET_VAR 6 /* get variable name definition */ +#define MMSOP_DEF_VAR 7 /* define variable name */ +#define MMSOP_DEF_SCAT 8 /* define scattered access */ +#define MMSOP_GET_SCAT 9 /* get scattered access attributes */ +#define MMSOP_DEL_VAR 10 /* delete variable name definition */ +#define MMSOP_DEF_VLIST 11 /* define named variable list */ +#define MMSOP_GET_VLIST 12 /* get named variable list */ +#define MMSOP_DEL_VLIST 13 /* delete named variable list */ +#define MMSOP_DEF_TYPE 14 /* define type name */ +#define MMSOP_GET_TYPE 15 /* get type name definition */ +#define MMSOP_DEL_TYPE 16 /* delete type name */ + +#define MMSOP_INPUT 17 /* input */ +#define MMSOP_OUTPUT 18 /* output */ + +#define MMSOP_TAKE_CONTROL 19 /* take control */ +#define MMSOP_REL_CONTROL 20 /* relinquish control */ +#define MMSOP_DEFINE_SEM 21 /* define semaphore */ +#define MMSOP_DELETE_SEM 22 /* delete semaphore */ +#define MMSOP_REP_SEMSTAT 23 /* report semaphore status */ +#define MMSOP_REP_SEMPOOL 24 /* report semaphore pool status */ +#define MMSOP_REP_SEMENTRY 25 /* report semaphore entry status */ + +#define MMSOP_INIT_DOWNLOAD 26 /* initiate download sequence */ +#define MMSOP_DOWN_LOAD 27 /* download segment */ +#define MMSOP_TERM_DOWNLOAD 28 /* terminate download sequence */ +#define MMSOP_INIT_UPLOAD 29 /* initiate upload sequence */ +#define MMSOP_UP_LOAD 30 /* upload segment */ +#define MMSOP_TERM_UPLOAD 31 /* terminate upload sequence */ +#define MMSOP_REQ_DOM_DOWN 32 /* request domain download */ +#define MMSOP_REQ_DOM_UPL 33 /* request domain upload */ +#define MMSOP_LOAD_DOMAIN 34 /* load domain content */ +#define MMSOP_STORE_DOMAIN 35 /* store domain content */ +#define MMSOP_DELETE_DOMAIN 36 /* delete domain */ +#define MMSOP_GET_DOM_ATTR 37 /* get domain attribute */ + +#define MMSOP_CREATE_PI 38 /* create program invocation */ +#define MMSOP_DELETE_PI 39 /* delete program invocation */ +#define MMSOP_START 40 /* start */ +#define MMSOP_STOP 41 /* stop */ +#define MMSOP_RESUME 42 /* resume */ +#define MMSOP_RESET 43 /* reset */ +#define MMSOP_KILL 44 /* kill */ +#define MMSOP_GET_PI_ATTR 45 /* get program invocation attribute */ + +#define MMSOP_OBTAIN_FILE 46 /* obtain file */ + +#define MMSOP_DEF_EC 47 /* define event condition */ +#define MMSOP_DEL_EC 48 /* delete event condition */ +#define MMSOP_GET_EC_ATTR 49 /* get event condition attributes */ +#define MMSOP_REP_EC_STAT 50 /* report event condition status */ +#define MMSOP_ALT_EC_MON 51 /* alter event condition monitoring */ +#define MMSOP_TRIGGER_EV 52 /* trigger event */ +#define MMSOP_DEF_EA 53 /* define event action status */ +#define MMSOP_DEL_EA 54 /* delete event action */ +#define MMSOP_GET_EA_ATTR 55 /* get event action attributes */ +#define MMSOP_REP_EA_STAT 56 /* report event action status */ +#define MMSOP_DEF_EE 57 /* define event enrollment */ +#define MMSOP_DEL_EE 58 /* delete event enrollment */ +#define MMSOP_ALT_EE 59 /* alter event enrollment */ +#define MMSOP_REP_EE_STAT 60 /* report event enrollment status */ +#define MMSOP_GET_EE_ATTR 61 /* get event enrollment attributes */ +#define MMSOP_ACK_EVENT_NOT 62 /* acknowledge event notification */ +#define MMSOP_GET_ALARM_SUM 63 /* get alarm summary */ +#define MMSOP_GET_ALARM_ESUM 64 /* get alarm enrollment summary */ + +#define MMSOP_READ_JOURNAL 65 /* read journal */ +#define MMSOP_WRITE_JOURNAL 66 /* write journal */ +#define MMSOP_INIT_JOURNAL 67 /* initialize journal */ +#define MMSOP_STAT_JOURNAL 68 /* report journal status */ +#define MMSOP_CREATE_JOURNAL 69 /* create journal */ +#define MMSOP_DELETE_JOURNAL 70 /* delete journal */ + +#define MMSOP_GET_CAP_LIST 71 /* get capability list */ + +#define MMSOP_FILE_OPEN 72 /* file open */ +#define MMSOP_FILE_READ 73 /* file read */ +#define MMSOP_FILE_CLOSE 74 /* file close */ +#define MMSOP_FILE_RENAME 75 /* file rename */ +#define MMSOP_FILE_DELETE 76 /* file delete */ +#define MMSOP_FILE_DIR 77 /* file directory */ + + +/************************************************************************/ +/* The opcodes below are reserved for the unconfirmed services and are */ +/* NOT used on the wire. */ +/************************************************************************/ +#define MMSOP_USTATUS 78 /* unsolicited status, ucs 1 */ +#define MMSOP_INFO_RPT 79 /* information report, ucs 0 */ +#define MMSOP_EVENT_NOT 80 /* unsolicited status, ucs 2 */ + + +/************************************************************************/ +/* These are not really opcodes at all, but simply represent the bit */ +/* positions in the services supported bitstring */ + +#define _MMSOP_ATTACH_TO_EC 81 /* Attach to event condition */ +#define _MMSOP_ATTACH_TO_SEM 82 /* Attach to semaphore */ + +/************************************************************************/ +/* These opcodes are reserved for Initiate, Conclude, etc. and are */ +/* NOT used on the wire, since these operations do not take op codes. */ +/************************************************************************/ + +#define MMSOP_CONCLUDE 83 /* conclude */ +#define MMSOP_CANCEL 84 /* cancel */ + + +/************************************************************************/ +/* MVLU Internal Use */ +#define MMSOP_MVLU_RPT_VA 200 +#define MMSOP_MVLU_GOOSE_UPDATE 201 +#define MMSOP_RD_USR_HANDLED 202 + +/************************************************************************/ +/* The opcodes below are NOT used on the wire, only for completed */ +/* 'Macro' function complete flags. */ +/************************************************************************/ +#define MMSOP_INITIATE 85 /* initiate operation */ + +#define MMSOP_NAMED_READ 90 /* Named Read */ +#define MMSOP_NAMED_WRITE 91 /* Named Write */ +#define MMSOP_REM_FILE_OPEN 93 /* Remote File Open */ +#define MMSOP_REM_FILE_READ 94 /* Remote File Read */ +#define MMSOP_REM_FILE_CLOSE 95 /* Remote File Close */ +#define MMSOP_INIT_CONN 96 /* Initiate */ +#define MMSOP_REM_FILE_COPY 98 /* Remote file copy */ +#define MMSOP_MV_DOWNLOAD 99 /* VM Domain Download */ +#define MMSOP_MV_UPLOAD 100 /* VM Domain Upload */ +#define MMSOP_VM_VAR_READ 101 /* Var Read */ +#define MMSOP_VM_VAR_WRITE 102 /* Var Write */ + +/************************************************************************/ +/************************************************************************/ +/* Various MMS limitations, parameters, etc. */ +/************************************************************************/ + +#define SERVICE_RESP_SIZE 11 /* BYTE size of service resp array */ + +#define MAX_FILES_OPEN 100 /* maximum files open locally/remotely */ +#define MAX_FILE_NAME 255 /* maximum length of a file pathname */ +#define MAX_IDENT_LEN 64 /* length of an Identifier variable */ +#define MAX_AR_LEN 64 /* length of a AR name */ + +/************************************************************************/ +/************************************************************************/ +/* This structure is used to support modifier handling. */ +/************************************************************************/ + +struct list_of_mods + { + ST_BOOLEAN info_pres; /* must be set to get info encoded */ + ST_INT num_of_mods; /* tells how many mods in the list */ + struct modifier *mod_list_ptr;/* ptr to array of contiguous modifiers */ + }; +typedef struct list_of_mods LIST_OF_MODS; + +extern struct list_of_mods modifier_list; +extern ST_INT m_max_mods; + +/************************************************************************/ +/************************************************************************/ +/* COMPANION STANDARD HANDLING */ +/************************************************************************/ +/* This structure is used as a global input parameter to all MMS */ +/* requests and responses sent by the application. To send CS info, the */ +/* 'cs_pres' flag must be set SD_TRUE, the other components refer to the*/ +/* ASN.1 CS INFO to be sent. 'cs_pres' is reset after being used. */ +/************************************************************************/ + + +struct csi + { + ST_BOOLEAN cs_pres; /* SD_TRUE if CS info was received */ + ST_INT cs_len; /* length of ASN.1 */ + ST_UCHAR *cs_ptr; /* pointer to ASN.1 */ + }; +typedef struct csi CSI ; + +extern struct csi cs_send; /* SEND CS info structure */ + +/************************************************************************/ +/************************************************************************/ +/* These defines can be commented out to exclude support for some data */ +/* types if they are not required. */ + +#ifndef MMS_LITE +#define FLOAT_DATA_SUPPORT +#define TIME_DATA_SUPPORT +#define BTOD_DATA_SUPPORT +#else +#define FLOAT_DATA_SUPPORT +#define TIME_DATA_SUPPORT +#define BTOD_DATA_SUPPORT +#endif + +/************************************************************************/ +/************************************************************************/ +/* These defines are the values that the domain state attribute */ +/* named_dom_ctrl.state can take on. */ +/************************************************************************/ + +#define DOM_NON_EXISTENT 0 +#define DOM_LOADING 1 +#define DOM_READY 2 +#define DOM_IN_USE 3 +#define DOM_COMPLETE 4 +#define DOM_INCOMPLETE 5 + +#define DOM_D1 7 +#define DOM_D2 8 +#define DOM_D3 9 +#define DOM_D4 10 +#define DOM_D5 11 +#define DOM_D6 12 +#define DOM_D7 13 +#define DOM_D8 14 +#define DOM_D9 15 + +#ifdef __cplusplus +} +#endif + +#endif /* MMS_DEF2_INCLUDED */ + + diff --git a/include/inc/mms_dfun.h b/include/inc/mms_dfun.h new file mode 100644 index 0000000..b5c0a78 --- /dev/null +++ b/include/inc/mms_dfun.h @@ -0,0 +1,212 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* MODULE NAME : mms_dfun.h */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This file has the function declarations required to interface */ +/* with the primitive level decode routines. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 01 Convert to use ASN1R. */ +/* Add mms_err_invoke_fun proto. */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef MMS_DFUN_INCLUDED +#define MMS_DFUN_INCLUDED + +#include "asn1r.h" /* need ASN1_DEC_CTXT */ + +#ifdef __cplusplus +extern "C" { +#endif + +/************************************************************************/ +/************************************************************************/ +/* MMS service decode functions */ +/************************************************************************/ + +ST_VOID mms_reject (ASN1_DEC_CTXT *ac, ST_UINT16 id_code); +ST_VOID mms_err_invoke_fun (ASN1_DEC_CTXT *aCtx, ST_UINT16); +ST_VOID mms_status_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_status_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_status (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_ustatus_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_namelist_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_namelist_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_identify_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_identify_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_rename_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_getcl_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_getcl_rsp (ASN1_DEC_CTXT *aCtx); + +ST_VOID mms_init_download_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_init_download_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_download_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_download_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_term_download_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_term_download_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_init_upload_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_init_upload_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_upload_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_upload_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_term_upload_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_term_upload_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_rddwn_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_rddwn_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_rdupl_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_rdupl_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_load_domain_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_load_domain_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_store_domain_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_store_domain_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_delete_domain_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_delete_domain_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_get_dom_attr_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_get_dom_attr_rsp (ASN1_DEC_CTXT *aCtx); + +ST_VOID mms_create_pi_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_create_pi_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_delete_pi_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_delete_pi_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_start_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_stop_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_stop_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_resume_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_resume_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_reset_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_reset_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_kill_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_kill_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_get_pi_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_get_pi_rsp (ASN1_DEC_CTXT *aCtx); + +ST_VOID mms_read_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_read_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_write_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_write_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_info_rpt_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_get_var_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_get_var_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_def_var_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_def_var_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_del_var_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_del_var_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_def_scat_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_get_scat_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_get_scat_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_def_vlist_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_get_vlist_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_get_vlist_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_del_vlist_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_del_vlist_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_get_type_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_get_type_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_def_type_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_def_type_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_del_type_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_del_type_rsp (ASN1_DEC_CTXT *aCtx); + +ST_VOID mms_takectrl_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_takectrl_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_relctrl_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_relctrl_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_rsstat_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_rsstat_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_rspool_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_rspool_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_rsentry_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_rsentry_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_defsem_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_defsem_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_delsem_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_delsem_rsp (ASN1_DEC_CTXT *aCtx); + +ST_VOID mms_output_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_output_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_input_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_input_rsp (ASN1_DEC_CTXT *aCtx); + +ST_VOID mms_defec_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_delec_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_delec_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_geteca_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_geteca_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_repecs_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_repecs_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_altecm_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_trige_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_defea_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_delea_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_delea_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_geteaa_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_geteaa_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_repeas_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_repeas_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_defee_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_delee_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_delee_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_altee_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_altee_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_repees_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_repees_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_geteea_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_geteea_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_evnot_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_ackevnot_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_ackevnot_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_getas_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_getas_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_getaes_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_getaes_rsp (ASN1_DEC_CTXT *aCtx); + +ST_VOID mms_jwrite_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_jwrite_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_jread_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_jread_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_jinit_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_jinit_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_jstat_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_jstat_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_jcreate_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_jdelete_req (ASN1_DEC_CTXT *aCtx); + +ST_VOID mms_obtain_file_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_obtain_file_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_file_open_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_file_open_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_file_read_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_file_read_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_file_close_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_file_close_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_file_rename_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_file_rename_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_file_delete_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_file_delete_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_file_dir_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_file_dir_rsp (ASN1_DEC_CTXT *aCtx); + +ST_VOID mms_conclude_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_conclude_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_cancel_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_cancel_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_init_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_init_rsp (ASN1_DEC_CTXT *aCtx); + +ST_VOID mms_rsp_not_supp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_req_not_supp (ASN1_DEC_CTXT *aCtx); +ST_VOID _mms_null_pdu_dec (ASN1_DEC_CTXT *aCtx); + +#ifdef __cplusplus +} +#endif + +#endif /* MMS_DFUN_INCLUDED */ diff --git a/include/inc/mms_err.h b/include/inc/mms_err.h new file mode 100644 index 0000000..38f8bc8 --- /dev/null +++ b/include/inc/mms_err.h @@ -0,0 +1,213 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* MODULE NAME : mms_err.h */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains structure & function definitions used for */ +/* decoding and encoding an error response. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 11/03/06 CRM 03 Add MMS_ERRCLASS_* and MMS_ERRCODE_*. */ +/* 12/20/01 JRB 02 Convert to use ASN1R. */ +/* 08/14/97 RKR 01 Format changes */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef MMS_ERR_INCLUDED +#define MMS_ERR_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "mms_mp.h" + +/************************************************************************/ +/* MMS Error Codes: */ +/************************************************************************/ + +#define MMS_ERRCODE_OTHER 0 /* same for all classes */ + +/* Defines for "VMD State" error class. */ +#define MMS_ERRCLASS_VMD_STATE 0 +#define MMS_ERRCODE_VMD_STATE_CONFLICT 1 +#define MMS_ERRCODE_VMD_OPERATIONAL_PROBLEM 2 +#define MMS_ERRCODE_DOMAIN_TRANSFER_PROBLEM 3 +#define MMS_ERRCODE_STATE_MACHINE_ID_INVALID 4 + +/* Defines for "Application Reference" error class.*/ +#define MMS_ERRCLASS_APP_REF 1 +#define MMS_ERRCODE_APP_UNREACHABLE 1 +#define MMS_ERRCODE_CONNECTION_LOST 2 +#define MMS_ERRCODE_APP_REF_INVALID 3 +#define MMS_ERRCODE_CONTEXT_UNSUPPORTED 4 + +/* Defines for "Definition" error class. */ +#define MMS_ERRCLASS_DEFINITION 2 +#define MMS_ERRCODE_OBJ_UNDEFINED 1 +#define MMS_ERRCODE_INVALID_ADDRESS 2 +#define MMS_ERRCODE_TYPE_UNSUPPORTED 3 +#define MMS_ERRCODE_TYPE_INCONSISTENT 4 +#define MMS_ERRCODE_OBJ_EXISTS 5 +#define MMS_ERRCODE_OBJ_ATTRIBUTE_INCONSISTENT 6 + +/* Defines for "Resource" error class. */ +#define MMS_ERRCLASS_RESOURCE 3 +#define MMS_ERRCODE_MEM_UNAVAILABLE 1 +#define MMS_ERRCODE_PROCESSOR_RESOURCE_UNAVAILABLE 2 +#define MMS_ERRCODE_MASS_STORAGE_UNAVAILABLE 3 +#define MMS_ERRCODE_CAPABILITY_UNAVAILABLE 4 +#define MMS_ERRCODE_CAPABILITY_UNKOWN 5 + +/* Defines for "Service" error class. */ +#define MMS_ERRCLASS_SERVICE 4 +#define MMS_ERRCODE_PRIMITIVES_OUT_OF_SEQ 1 +#define MMS_ERRCODE_OBJ_STATE_CONFLICT 2 +/* Value 3 reserved for further definition */ +#define MMS_ERRCODE_CONTINUATION_INVALID 4 +#define MMS_ERRCODE_OBJ_CONSTRAINT_CONFLICT 5 + +/* Defines for "Service Preempt" error class. */ +#define MMS_ERRCLASS_SERVICE_PREEMPT 5 +#define MMS_ERRCODE_TIMEOUT 1 +#define MMS_ERRCODE_DEADLOCK 2 +#define MMS_ERRCODE_CANCEL 3 + +/* Defines for "Time Resolution" error class. */ +#define MMS_ERRCLASS_TIME_RESOLUTION 6 +#define MMS_ERRCODE_UNSUPPORTABLE_TIME_RESOLUTION 1 + +/* Defines for "Access" error class. */ +#define MMS_ERRCLASS_ACCESS 7 +#define MMS_ERRCODE_OBJ_ACCESS_UNSUPPORTED 1 +#define MMS_ERRCODE_OBJ_NON_EXISTENT 2 +#define MMS_ERRCODE_OBJ_ACCESS_DENIED 3 +#define MMS_ERRCODE_OBJ_INVALIDATED 4 + +/* Defines for "Initiate" error class. */ +#define MMS_ERRCLASS_INITIATE 8 +/* Value 1 reserved for further definition */ +/* Value 2 reserved for further definition */ +#define MMS_ERRCODE_MAX_SRV_OUTSTD_CALLING_INSUFF 3 +#define MMS_ERRCODE_MAX_SRV_OUTSTD_CALLED_INSUFF 4 +#define MMS_ERRCODE_SERVICE_CBB_INSUFF 5 +#define MMS_ERRCODE_PARAM_CBB_INSUFF 6 +#define MMS_ERRCODE_NESTING_LEVEL_INSUFF 7 + +/* Defines for "Conclude" error class. */ +#define MMS_ERRCLASS_CONCLUDE 9 +#define MMS_ERRCODE_FURTHER_COMM_REQUIRED 1 + +/* Defines for "Cancel" error class. */ +#define MMS_ERRCLASS_CANCEL 10 +#define MMS_ERRCODE_INVOKE_ID_UNKNOWN 1 +#define MMS_ERRCODE_CANCEL_NOT_POSSIBLE 2 + +/* Defines for "File" error class. */ +#define MMS_ERRCLASS_FILE 11 +#define MMS_ERRCODE_FILENAME_AMBIGUOUS 1 +#define MMS_ERRCODE_FILE_BUSY 2 +#define MMS_ERRCODE_FILENAME_SYNTAX_ERROR 3 +#define MMS_ERRCODE_CONTENT_TYPE_INVALID 4 +#define MMS_ERRCODE_POSITION_INVALID 5 +#define MMS_ERRCODE_FILE_ACCESS_DENIED 6 +#define MMS_ERRCODE_FILE_NON_EXISTENT 7 +#define MMS_ERRCODE_DUPLICATE_FILENAME 8 +#define MMS_ERRCODE_INSUFF_SPACE_IN_FILESTORE 9 + +/************************************************************************/ +/* Additional Error Response Information - */ +/* This information is set whenever there is optional additional */ +/* error response information. */ +/************************************************************************/ + +struct adtnl_err_resp_info + { + ST_BOOLEAN mod_pos_pres;/* Confirmed-ErrorPDU only: modifier pos pres */ + ST_INT32 mod_pos; /* Confirmed-ErrorPDU only: modifier position */ + ST_BOOLEAN info_pres; /* global additional info present indicator */ + ST_BOOLEAN code_pres; /* additional code present indicator */ + ST_INT32 code; /* additional code */ + ST_BOOLEAN descr_pres;/* additional description present indicator */ + ST_CHAR *descr; /* pointer to the additional description */ + ST_BOOLEAN ssi_pres; /* service specific info present indicator */ + ST_INT16 service; /* number indicating the service (0-10) */ + ST_UINT32 ss_error_val; /* service specific error value, when service */ + /* is 0-7, or 9 (IS) */ + /* service specific object name, when service */ + /* is 8 (IS-Define Event Enrollment) */ + OBJECT_NAME ss_error_oname; + /* service specific additional service error, */ + /* when service is 10 (IS-Companion Standard) */ + ST_INT ss_error_len; /* service specific additional service length */ + ST_UCHAR *ss_error_data;/* service specific additional service data ptr */ + }; +typedef struct adtnl_err_resp_info ADTNL_ERR_RESP_INFO; + + +/************************************************************************/ +/* RECEIVED ERROR RESPONSE INFORMATION */ +/************************************************************************/ +/* The structure below is filled in when an error message is received, */ +/* before the u_xxxx_conf function is invoked. */ +/************************************************************************/ + +struct err_info + { + ST_INT16 eclass; /* error class */ + ST_INT16 code; /* error code */ + ADTNL_ERR_RESP_INFO adtnl; /* additional error information */ + }; +typedef struct err_info ERR_INFO; + +/************************************************************************/ +/* Error Response Decode Function - */ +/* This routine is called to decode an error response PDU. */ +/************************************************************************/ + +ST_VOID mms_err_rsp (ASN1_DEC_CTXT *aCtx); + +/************************************************************************/ +/* SEND ERROR RESPONSE INFORMATION */ +/************************************************************************/ +/* The structure below is filled in when an error response is to be */ +/* sent that includes the optional additional error information. */ +/* Note : this information must be set prior to issuing the call to */ +/* mp_err_resp, if it is to be included in the response. */ +/************************************************************************/ + +extern ADTNL_ERR_RESP_INFO adtnl_err_info; + +/************************************************************************/ +/* Error Response Encode & Send Functions - */ +/* These routines are called to build and send error response PDU's, */ +/* one for the case of a Cancel indication, the other for all other */ +/* cases. The parameters are : a pointer to the request information, */ +/* the error class, and the error code. */ +/************************************************************************/ + +#ifndef MMS_LITE +ST_RET mp_err_resp (MMSREQ_IND *ind, ST_INT16 err_class, ST_INT16 code); +ST_RET mp_init_err (MMSREQ_IND *ind, ST_INT16 err_class, ST_INT16 code); +ST_RET mp_conclude_err (MMSREQ_IND *ind, ST_INT16 err_class, ST_INT16 code); +ST_RET mp_cancel_err (MMSREQ_IND *ind, ST_INT16 err_class, ST_INT16 code); +#else +ST_RET mpl_err_resp (ST_INT op, ST_UINT32 invoke, ST_INT16 err_class, ST_INT16 code); +ST_RET mpl_init_err (ST_INT16 err_class, ST_INT16 code); +ST_RET mpl_conclude_err (ST_INT16 err_class, ST_INT16 code); +ST_RET mpl_cancel_err (ST_UINT32 invoke, ST_INT16 err_class, ST_INT16 code); +#endif + +#ifdef __cplusplus +} +#endif + +#endif /* MMS_ERR_INCLUDED */ diff --git a/include/inc/mms_log.h b/include/inc/mms_log.h new file mode 100644 index 0000000..7260b0e --- /dev/null +++ b/include/inc/mms_log.h @@ -0,0 +1,109 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1993 - 2003, All Rights Reserved. */ +/* */ +/* MODULE NAME : mms_log.h */ +/* PRODUCT(S) : MMSEASE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains MMS-EASE logging definitions */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 09/04/03 EJV 04 Chg mms_debug_sel to ST_UINT, and deleted */ +/* L suffix from MMS_LOG_... masks. */ +/* 03/15/01 JRB 03 Added user_debug_sel to control USER logging.*/ +/* 10/08/98 MDE 02 Migrated to updated SLOG interface */ +/* 06/09/97 MDE 01 Added 2 new Log macros */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef MMS_LOG_INCLUDED +#define MMS_LOG_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +/************************************************************************/ + +#include "slog.h" + +/************************************************************************/ +/* mms_debug_sel bit assignments */ +#define MMS_LOG_DEC 0x00000001 +#define MMS_LOG_ENC 0x00000002 +#define MMS_LOG_ACSE 0x00000004 +#define MMS_LOG_LLC 0x00000008 +#define MMS_LOG_IQUE 0x00000010 +#define MMS_LOG_RQUE 0x00000020 + +/* Keep the next two reserved for the user (not used internally) */ +#define MMS_LOG_USR_IND 0x00000040 +#define MMS_LOG_USR_CONF 0x00000080 + +#define MMS_LOG_VM 0x00000100 +#define MMS_LOG_DATA 0x00000200 + +/* Defines used for selecting MMSEASE que servicing debug levels. */ +#define MMSREQQUE_HOLD 0x00004000 +#define MMSINDQUE_HOLD 0x00008000 + +#define MMS_LOG_ERR 0x00010000 +#define MMS_LOG_NERR 0x00020000 +#define MMS_LOG_PDU 0x00040000 +#define MMS_LOG_CONFIG 0x00080000 + +#define MMS_LOG_RT 0x00100000 +#define MMS_LOG_RTAA 0x00200000 +#define MMS_LOG_AA 0x00400000 + +#define MMS_LOG_REQ 0x01000000 +#define MMS_LOG_RESP 0x02000000 +#define MMS_LOG_IND 0x04000000 +#define MMS_LOG_CONF 0x08000000 + +/************************************************************************/ +/* These are S_LOG control items for MMS-EASE logging */ + +extern ST_UINT mms_debug_sel; + +/************************************************************************/ +/* user_debug_sel bit assignments */ +#define USER_LOG_ERR 0x00000001 +#define USER_LOG_CLIENT 0x00000002 +#define USER_LOG_SERVER 0x00000004 + +extern ST_UINT user_debug_sel; /* global var to control USER logging */ + +/************************************************************************/ +/* User selectable function to log MMS actions (MLOG, for instance) */ + +#ifndef MMS_LITE +extern ST_VOID (*m_log_ureq_info_fun) (ST_INT chan, ST_INT op, ST_VOID *info); +extern ST_VOID (*m_log_req_info_fun) (MMSREQ_PEND *req, ST_VOID *info); +extern ST_VOID (*m_log_resp_info_fun) (MMSREQ_IND *ind, ST_VOID *info); +extern ST_VOID (*m_log_ind_info_fun) (MMSREQ_IND *ind); +extern ST_VOID (*m_log_conf_info_fun) (MMSREQ_PEND *conf); +extern ST_VOID (*m_log_error_resp_fun) (MMSREQ_IND *ind, ST_INT16 err_class, ST_INT16 code); +#endif + +/************************************************************************/ +/* Some SLOG Logging control macros */ + +#define MLOG_CLOSE_FILE() {slogCloseFile (sLogCtrl);} +#define MLOG_DUMP_MEM_LOG() {slogDumpMem (sLogCtrl);} +#define MLOG_STOP_FILE_LOGGING() {sLogCtrl->logCtrl &= ~LOG_FILE_EN;} +#define MLOG_START_FILE_LOGGING() {sLogCtrl->logCtrl |= LOG_FILE_EN;} + +#ifdef __cplusplus +} +#endif + +/************************************************************************/ +#endif /* End of MMS_LOG_INCLUDED */ +/************************************************************************/ diff --git a/include/inc/mms_mp.h b/include/inc/mms_mp.h new file mode 100644 index 0000000..26d2682 --- /dev/null +++ b/include/inc/mms_mp.h @@ -0,0 +1,234 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* MODULE NAME : mms_mp.h */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This file has the common data structures and general function */ +/* declarations required to interface with MMS at the primitive */ +/* level. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 05 Convert to use ASN1R. */ +/* 08/15/97 MDE 04 BTOD handling changes */ +/* 08/14/97 RKR 03 Format changes */ +/* 06/11/97 RKR 02 Added constants for EXTERNAL encoding tag */ +/* 06/09/97 MDE 01 MMS-LITE define changes */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef MMS_MP_INCLUDED +#define MMS_MP_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "asn1defs.h" +#ifndef MMS_LITE +#include "mms_defs.h" +#endif + +/************************************************************************/ +/* MMS-LITE specific defines */ + +#if defined(MMS_LITE) +/* For MMS-LITE, we will use 'lite' versions of some data structures */ +#define USE_COMPACT_MMS_STRUCTS + +/* For MMS-LITE, we will supply a single static decode info buffer */ +#define M_USR_DEC_BUF +#endif + +/************************************************************************/ +/* Common default values for priority and severity */ +/************************************************************************/ + +#define MMS_NORM_PRIORITY 64 +#define MMS_NORM_SEVERITY 64 + +/************************************************************************/ +/* Object Name - This structure is used to reference MMS objects */ +/************************************************************************/ + +/* These defines may be used for the object_tag element selector */ +#define VMD_SPEC 0 +#define DOM_SPEC 1 +#define AA_SPEC 2 + +#if !defined (USE_COMPACT_MMS_STRUCTS) + +/* Standard form of object name */ +struct object_name + { + ST_INT object_tag; /* See above for legal values */ + union + { + ST_CHAR vmd_spec [MAX_IDENT_LEN+1]; /* vmd specific identifier */ + ST_CHAR item_id [MAX_IDENT_LEN+1]; /* item identifier */ + ST_CHAR aa_spec [MAX_IDENT_LEN+1]; /* aa specific identifier */ + } obj_name; + ST_CHAR domain_id [MAX_IDENT_LEN+1]; /* domain identifier */ + SD_END_STRUCT + }; + +#else /* Use compact form */ + +/* Compact form of object name */ +struct object_name + { + ST_INT object_tag; /* See above for legal values */ + union + { + ST_CHAR *vmd_spec; /* vmd specific identifier */ + ST_CHAR *item_id; /* item identifier */ + ST_CHAR *aa_spec; /* aa specific identifier */ + } obj_name; + ST_CHAR *domain_id; /* domain identifier */ + SD_END_STRUCT + }; +#endif + +typedef struct object_name OBJECT_NAME; + + +/************************************************************************/ +/* timeofday, event_time, attach_to_evcon, attach_to_semaphore and */ +/* modifier structure definitions. */ +/************************************************************************/ + +struct event_time + { + ST_INT16 evtime_tag; /* event time tag */ + /* 0: time of day */ + /* 1: time sequence identifier */ + /* 2: undefined */ + union + { + MMS_BTOD time_of_day; /* time of day */ + ST_UINT32 time_seq_id; /* time sequence identifier */ + } evtime; + }; +typedef struct event_time EVENT_TIME; + +struct attach_to_evcon + { + OBJECT_NAME evenroll_name; /* event enrollment name */ + OBJECT_NAME evcon_name; /* event condition name */ + ST_UCHAR causing_transitions; /* causing transitions: */ + /* bitstring */ + /* 0 : idle to disabled */ + /* 1 : active to disabled */ + /* 2 : disabled to idle */ + /* 3 : active to idle */ + /* 4 : disabled to active */ + /* 5 : idle to active */ + /* 6 : any to deleted */ + ST_BOOLEAN acc_delay_pres; /* acceptable delay present */ + ST_UINT32 acc_delay; /* acceptable delay */ + SD_END_STRUCT + }; +typedef struct attach_to_evcon ATTACH_TO_EVCON; + +struct attach_to_semaphore + { + OBJECT_NAME sem_name; /* semaphore name */ + ST_BOOLEAN named_token_pres; /* named token present ind */ + ST_CHAR named_token[MAX_IDENT_LEN+1];/* named token */ + ST_UCHAR priority; /* priority */ + /* 0 - highest */ + /* 64 - normal (default) */ + /* 127 - lowest */ + ST_BOOLEAN acc_delay_pres; /* acceptable delay present */ + ST_UINT32 acc_delay; /* acceptable delay */ + ST_BOOLEAN ctrl_timeout_pres; /* control timeout present */ + ST_UINT32 ctrl_timeout; /* control timeout */ + ST_BOOLEAN abrt_on_timeout_pres; /* Abort On Timeout present */ + ST_BOOLEAN abrt_on_timeout; /* Abort On Timeout */ + ST_BOOLEAN rel_conn_lost; /* relinquish if connection */ + SD_END_STRUCT + }; /* lost (default = true) */ +typedef struct attach_to_semaphore ATTACH_TO_SEMAPHORE; + +struct modifier + { + ST_INT modifier_tag; /* modifier tag */ + /* 0:attach to event condition */ + /* 1:attach to semaphore */ + union + { + ATTACH_TO_EVCON atec; /* attach to event condition */ + ATTACH_TO_SEMAPHORE atsem; /* attach to semaphore */ + } mod; + SD_END_STRUCT + }; +typedef struct modifier MODIFIER; + +/************************************************************************/ +/* File Name */ +/************************************************************************/ + +struct file_name + { + ST_INT fn_len; /* The length of the string */ + ST_CHAR *fname; /* pointer to actual filename string */ + SD_END_STRUCT + }; +typedef struct file_name FILE_NAME; + +/************************************************************************/ +/* Values for the encoding_tag of an EXTERN_INFO */ +/************************************************************************/ + +#define M_EXT_TAG_ANY 0 +#define M_EXT_TAG_OCT_ALIGNED 1 +#define M_EXT_TAG_ARB 2 + +/************************************************************************/ +/* EXTERNAL */ +/* The structure below is used to store ASN.1 type EXTERNAL in "C" */ +/* format. */ +/************************************************************************/ + +struct extern_info + { + ST_BOOLEAN dir_ref_pres; /* direct reference present */ + MMS_OBJ_ID dir_ref; + + ST_BOOLEAN indir_ref_pres; /* indirect reference present */ + ST_INT32 indir_ref; /* indirect reference value */ + + ST_BOOLEAN dv_descr_pres; /* data value descript pres */ + ST_INT dv_descr_len; /* data value descr. len */ + ST_UCHAR *dv_descr; /* data value descr. ptr */ + + ST_CHAR encoding_tag; /* type of encoding */ + ST_INT num_bits; /* for arbitrary only */ + ST_INT data_len; /* # bytes of data */ + ST_UCHAR *data_ptr; /* data pointer */ + SD_END_STRUCT + }; +typedef struct extern_info EXTERN_INFO; + + +ST_RET ms_encode_extern (EXTERN_INFO *src, + ST_UCHAR *asn1dest, ST_INT destlen, + ST_INT *len_out, ST_UCHAR **asn1_start_out); + +ST_RET ms_decode_extern (ST_UCHAR *asn1, ST_INT asn1len, EXTERN_INFO *dest); + +ST_VOID wr_external (ASN1_ENC_CTXT *aCtx, EXTERN_INFO *ext); + + +#ifdef __cplusplus +} +#endif + +#endif /* MMS_MP_INCLUDED */ diff --git a/include/inc/mms_pcon.h b/include/inc/mms_pcon.h new file mode 100644 index 0000000..4a8fb07 --- /dev/null +++ b/include/inc/mms_pcon.h @@ -0,0 +1,294 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 1997, All Rights Reserved. */ +/* */ +/* MODULE NAME : mms_pcon.h */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This file has the data structures and function definitions */ +/* required to interface with MMS context management services */ +/* at the primitive level. */ +/* */ +/* Parameters : In general, the first parameter is the channel */ +/* that the request or response is to be sent over. */ +/* For Responses, the second parameter is the Invoke */ +/* ID to be used. The last parameter is used to pass */ +/* operation specific information by pointer. */ +/* */ +/* Return */ +/* Values : Request functions return a pointer to the pending */ +/* request tracking structure, of type MMSREQ_PEND. */ +/* In case of error, the pointer is returned == 0 */ +/* and mms_op_err is written with the err code. */ +/* Response functions return 0 if OK, else an error */ +/* code. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 07/13/05 MDE 07 Added defines for reject class and code */ +/* 03/23/05 JRB 06 Include asn1r instead of suicacse because */ +/* APP_REF moved to asn1r. */ +/* 07/10/02 JRB 05 Clarify description of maxreq_calling/called.*/ +/* 12/10/97 MDE 04 Changed max_nest to ST_INT8 */ +/* 11/06/97 MDE 03 Added suicacse.h, use APP_REF typedef */ +/* 08/13/97 RKR 02 Format changes */ +/* 07/29/97 DSF 01 Moved APP_REF to SUIC */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef MMS_PCON_INCLUDED +#define MMS_PCON_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "mms_err.h" +#include "mms_mp.h" +#include "asn1r.h" /* need APP_REF */ + +/************************************************************************/ +/************************************************************************/ +/* CONTEXT MANAGEMENT SERVICES */ +/************************************************************************/ +/* The structures below are used to pass CONTEXT MANAGEMENT information */ +/* to/from the MMS primitives. */ +/************************************************************************/ + +/************************************************************************/ +/* INITIATE */ +/************************************************************************/ + +struct init_rslt + { + ST_BOOLEAN accept_context; /* SD_TRUE if not error */ + ST_BOOLEAN err_info_pres; /* error information available */ + ERR_INFO err; /* otherwise look here */ + }; +typedef struct init_rslt INIT_RSLT; + + +/* This structure is used for non-core MMS-EASE P-Context's. */ +/* It is attached to the primary initiate info structure as an array */ + +struct cs_init_info + { + ST_UINT p_context; /* P-Context for this init */ + ST_BOOLEAN local_detail_pres; /* flag if local_detail is present */ + ST_INT32 local_detail; /* local detail */ + ST_INT16 maxreq_calling; /* max outst. "ind" allowed at "calling" app*/ + /* DEBUG: chg name to max_ind_calling? */ + ST_INT16 maxreq_called; /* max outst. "ind" allowed at "called" app*/ + /* DEBUG: chg name to max_ind_called? */ + ST_BOOLEAN max_nest_pres; /* indicates if max_nest is present */ + ST_INT8 max_nest; /* maximum data nesting */ + ST_INT init_detail_len; /* init detail */ + ST_UCHAR *init_detail; /* this is an ASN.1 encoded sequence */ + INIT_RSLT rslt; + }; +typedef struct cs_init_info CS_INIT_INFO; + + +/* REQUEST & RESPONSE : */ + +struct init_info + { /* Proposed (req) / Negiotiated (resp) */ + ST_BOOLEAN mms_p_context_pres;/* MMS Core context used */ + ST_BOOLEAN max_segsize_pres; /* flag if max_segsize is present */ + ST_INT32 max_segsize; /* maximum segment size */ + ST_INT16 maxreq_calling; /* max outst. "ind" allowed at "calling" app*/ + /* DEBUG: chg name to max_ind_calling? */ + ST_INT16 maxreq_called; /* max outst. "ind" allowed at "called" app*/ + /* DEBUG: chg name to max_ind_called? */ + ST_BOOLEAN max_nest_pres; /* indicates if max_nest is present */ + ST_INT8 max_nest; /* maximum data nesting */ + ST_BOOLEAN mms_detail_pres; /* mms init detail enable */ + ST_INT16 version; /* version */ + ST_UCHAR param_supp[2]; /* parameter support options: bitstring */ + ST_UCHAR serv_supp[11]; /* service support options: bitstring */ + INIT_RSLT rslt; /* success/failure & error info */ + ST_INT num_cs_init; /* number of CS init info's attached */ + ST_INT core_position; /* Position for CORE CONTEXT in list */ + /* (0 = first, num_cs_init = last, etc. */ +/* followed by CS_INIT_INFO cs_init[num_cs_init] */ + SD_END_STRUCT + }; +typedef struct init_info INIT_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_init (ST_INT chan, ST_CHAR *partner, INIT_INFO *info_ptr); +ST_RET mp_init_resp (MMSREQ_IND *indptr, INIT_INFO *info); +#else +ST_RET mpl_init (INIT_INFO *info); +ST_RET mpl_cs_init (CS_INIT_INFO *info); +ST_RET mpl_init_resp (INIT_INFO *info); +ST_RET mpl_cs_init_resp (CS_INIT_INFO *info); +#endif + +/************************************************************************/ +/* CONCLUDE */ +/************************************************************************/ + +/* REQUEST : NULL */ +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_conclude (ST_INT chan); +ST_RET mp_conclude_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_conclude (ST_VOID); +ST_RET mpl_conclude_resp (ST_VOID); +#endif + +/************************************************************************/ +/* CANCEL */ +/************************************************************************/ + +/* REQUEST : NULL */ +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_cancel (MMSREQ_PEND *req); +ST_RET mp_cancel_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_cancel (ST_VOID); +ST_RET mpl_cancel_resp (ST_VOID); +#endif + +/************************************************************************/ +/* REJECT */ +/************************************************************************/ + + +#define MMS_REJ_CLASS_CONFIRMED_REQUEST_PDU 1 +#define MMS_REJ_CODE_CONFIRMED_REQUEST_PDU_OTHER 0 +#define MMS_REJ_CODE_CONFIRMED_REQUEST_PDU_UNRECOGNIZED_SERVICE 1 +#define MMS_REJ_CODE_CONFIRMED_REQUEST_PDU_UNRECOGNIZED_MODIFIER 2 +#define MMS_REJ_CODE_CONFIRMED_REQUEST_PDU_INVALID_INVOKEID 3 +#define MMS_REJ_CODE_CONFIRMED_REQUEST_PDU_INVALID_ARGUMENT 4 +#define MMS_REJ_CODE_CONFIRMED_REQUEST_PDU_INVALID_MODIFIER 5 +#define MMS_REJ_CODE_CONFIRMED_REQUEST_PDU_MAX_SERV_OUTSTANDING_EXCEEDED 6 +#define MMS_REJ_CODE_CONFIRMED_REQUEST_PDU_MAX_RECURSION_EXCEEDED 8 +#define MMS_REJ_CODE_CONFIRMED_REQUEST_PDU_VALUE_OUT_OF_RANGE 9 + +#define MMS_REJ_CLASS_CONFIRMED_RESPONSE_PDU 2 +#define MMS_REJ_CODE_CONFIRMED_RESPONSE_PDU_OTHER 0 +#define MMS_REJ_CODE_CONFIRMED_RESPONSE_PDU_UNRECOGNIZED_SERVICE 1 +#define MMS_REJ_CODE_CONFIRMED_RESPONSE_PDU_INVALID_INVOKEID 2 +#define MMS_REJ_CODE_CONFIRMED_RESPONSE_PDU_INVALID_RESULT 3 +#define MMS_REJ_CODE_CONFIRMED_RESPONSE_PDU_MAX_RECURSION_EXCEEDED 5 +#define MMS_REJ_CODE_CONFIRMED_RESPONSE_PDU_VALUE_OUT_OF_RANGE 6 + +#define MMS_REJ_CLASS_CONFIRMED_ERROR_PDU 3 +#define MMS_REJ_CODE_CONFIRMED_ERROR_PDU_OTHER 0 +#define MMS_REJ_CODE_CONFIRMED_ERROR_PDU_UNRECOGNIZED_SERVICE 1 +#define MMS_REJ_CODE_CONFIRMED_ERROR_PDU_INVALID_INVOKEID 2 +#define MMS_REJ_CODE_CONFIRMED_ERROR_PDU_INVALID_SERVICEERROR 3 +#define MMS_REJ_CODE_CONFIRMED_ERROR_PDU_VALUE_OUT_OF_RANGE 4 + +#define MMS_REJ_CLASS_UNCONFIRMED_PDU 4 +#define MMS_REJ_CODE_UNCONFIRMED_PDU_OTHER 0 +#define MMS_REJ_CODE_UNCONFIRMED_PDU_UNRECOGNIZED_SERVICE 1 +#define MMS_REJ_CODE_UNCONFIRMED_PDU_INVALID_ARGUMENT 2 +#define MMS_REJ_CODE_UNCONFIRMED_PDU_MAX_RECURSION_EXCEEDED 3 +#define MMS_REJ_CODE_UNCONFIRMED_PDU_VALUE_OUT_OF_RANGE 4 + +#define MMS_REJ_CLASS_PDU_ERROR 5 +#define MMS_REJ_CODE_PDU_ERROR_UNKNOWN_PDU_TYPE 0 +#define MMS_REJ_CODE_PDU_ERROR_INVALID_PDU 1 +#define MMS_REJ_CODE_PDU_ERROR_ILLEGAL_ACSE_MAPPING 2 + +#define MMS_REJ_CLASS_CANCEL_REQUEST_PDU 6 +#define MMS_REJ_CODE_CANCEL_REQUEST_PDU_OTHER 0 +#define MMS_REJ_CODE_CANCEL_REQUEST_PDU_INVALID_INVOKEID 1 + +#define MMS_REJ_CLASS_CANCEL_RESPONSE_PDU 7 +#define MMS_REJ_CODE_CANCEL_RESPONSE_PDU_OTHER 0 +#define MMS_REJ_CODE_CANCEL_RESPONSE_PDU_INVALID_INVOKEID 1 + +#define MMS_REJ_CLASS_CANCEL_ERROR_PDU 8 +#define MMS_REJ_CODE_CANCEL_ERROR_PDU_OTHER 0 +#define MMS_REJ_CODE_CANCEL_ERROR_PDU_INVALID_INVOKEID 1 +#define MMS_REJ_CODE_CANCEL_ERROR_PDU_INVALID_SERVICEERROR 2 +#define MMS_REJ_CODE_CANCEL_ERROR_PDU_VALUE_OUT_OF_RANGE 3 + +#define MMS_REJ_CLASS_CONCLUDE_REQUEST_PDU 9 +#define MMS_REJ_CODE_CONCLUDE_REQUEST_PDU_OTHER 0 +#define MMS_REJ_CODE_CONCLUDE_REQUEST_PDU_INVALID_ARGUMENT 1 + +#define MMS_REJ_CLASS_CONCLUDE_RESPONSE_PDU 10 +#define MMS_REJ_CODE_CONCLUDE_RESPONSE_PDU_OTHER 0 +#define MMS_REJ_CODE_CONCLUDE_RESPONSE_PDU_INVALID_RESULT 1 + +#define MMS_REJ_CLASS_CONCLUDE_ERROR_PDU 11 +#define MMS_REJ_CODE_CONCLUDE_ERROR_PDU_OTHER 0 +#define MMS_REJ_CODE_CONCLUDE_ERROR_PDU_INVALID_SERVICEERROR 1 +#define MMS_REJ_CODE_CONCLUDE_ERROR_PDU_VALUE_OUT_OF_RANGE 2 + + +struct reject_resp_info + { + ST_BOOLEAN detected_here; /* flag indicating where error occurred */ + ST_BOOLEAN invoke_known; /* flag indicating if invoke ID known */ + ST_UINT32 invoke; /* invoke ID of service rejected */ + ST_INT pdu_type; /* pdu type of service rejected */ + ST_INT16 rej_class; /* reject class */ + ST_INT16 rej_code; /* reject code */ + }; +typedef struct reject_resp_info REJECT_RESP_INFO; + +#ifndef MMS_LITE +ST_RET mp_reject_resp (ST_INT chan, REJECT_RESP_INFO *info); +ST_RET mp_reject_ind (MMSREQ_IND *ind,REJECT_RESP_INFO *info); +ST_RET mp_reject_conf (MMSREQ_PEND *req,REJECT_RESP_INFO *info); +#else +ST_RET mpl_reject_resp (REJECT_RESP_INFO *info); +#endif + +/************************************************************************/ +/* ABORT REQUEST FUNCTION */ +/************************************************************************/ + +ST_RET mp_abort (ST_INT chan, ST_INT reason); + +/************************************************************************/ +/************************************************************************/ +/* This function is used to convert convert an AR Name into an ASN.1 */ +/* encoded ApplicationReference based on the TPY DIB information */ +/************************************************************************/ + +ST_RET ms_arname_to_asn1 (ST_CHAR *arname, ST_UCHAR *asn1_buf, ST_INT asn1_buf_len, + ST_UCHAR **asn1_out, ST_INT *asn1_len_out); + +/* This function is used to convert an ASN.1 encoded */ +/* ApplicationReference to the AR Name */ +ST_RET ms_asn1_to_arname (ST_CHAR *arname, ST_UCHAR *asn1, ST_INT asn1len); + +/* This function is used to find an AR Name based on the app_ref */ +/* information. */ +ST_RET ms_appref_to_arname (ST_CHAR *arname, APP_REF *appref); + +/* This function is used to transition between an AR Name and its' */ +/* corresponding app_ref information. */ +ST_RET ms_arname_to_appref (ST_CHAR *arname, APP_REF **appref_out); + +/* This function is used to convert to an ApplicationReference to ASN.1 */ +ST_RET ms_appref_to_asn1 (APP_REF *appref, ST_UCHAR *dest, ST_INT dest_len, + ST_UCHAR **asn1_out, ST_INT *asn1_len_out); + +/* This function is used to convert ASN.1 encoded ApplicationReference */ +/* data to an intermediate form. */ +ST_RET ms_asn1_to_appref (APP_REF *appref, ST_UCHAR *asn1, ST_INT asn1len); + + +#ifdef __cplusplus +} +#endif + +#endif /* MMS_PCON_INCLUDED */ + diff --git a/include/inc/mms_pdom.h b/include/inc/mms_pdom.h new file mode 100644 index 0000000..5562993 --- /dev/null +++ b/include/inc/mms_pdom.h @@ -0,0 +1,419 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 1997, All Rights Reserved. */ +/* */ +/* MODULE NAME : mms_pdom.h */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This file has the data structures and function definitions */ +/* required to interface with MMS domain management services */ +/* at the primitive level. */ +/* */ +/* Parameters : In general, the first parameter is the channel */ +/* that the request or response is to be sent over. */ +/* For Responses, the second parameter is the Invoke */ +/* ID to be used. The last parameter is used to pass */ +/* operation specific information by pointer. */ +/* */ +/* Return */ +/* Values : Request functions return a pointer to the pending */ +/* request tracking structure, of type MMSREQ_PEND. */ +/* In case of error, the pointer is returned == 0 */ +/* and mms_op_err is written with the err code. */ +/* Response functions return 0 if OK, else an error */ +/* code. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 08/13/97 RKR 01 Format changes */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef MMS_PDOM_INCLUDED +#define MMS_PDOM_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "mms_err.h" /* need for service error definition */ +#include "mms_mp.h" + +/************************************************************************/ +/************************************************************************/ +/* DOMAIN MANAGEMENT SERVICES */ +/************************************************************************/ +/* The structures below are used to pass DOMAIN MANAGEMENT information */ +/* to/from the MMS primitives. */ +/************************************************************************/ + +/* use these defines to determine whether load data is coded or not */ +/* If coded, the data pointer points to a complete ASN.1 EXTERNAL */ + +#define LOAD_DATA_NON_CODED 0 +#define LOAD_DATA_CODED 1 + + +/************************************************************************/ +/* INITIATE DOWNLOAD SEQUENCE */ +/************************************************************************/ + +/* REQUEST : */ + +struct initdown_req_info + { + ST_CHAR dname [MAX_IDENT_LEN +1]; /* domain name */ + ST_BOOLEAN sharable; /* boolean, no default */ + ST_INT num_of_capab; /* number of capabilities */ +/* list of capabilities */ +/* ST_CHAR * capab_list [num_of_capab]; */ + SD_END_STRUCT + }; +typedef struct initdown_req_info INITDOWN_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_initdown (ST_INT chan, INITDOWN_REQ_INFO *info); +ST_RET mp_initdown_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_initdown (INITDOWN_REQ_INFO *info); +ST_RET mpl_initdown_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* DOWNLOAD SEGMENT */ +/************************************************************************/ + +/* REQUEST : */ + +struct download_req_info + { + ST_CHAR dname [MAX_IDENT_LEN +1]; /* domain name */ + }; +typedef struct download_req_info DOWNLOAD_REQ_INFO; + +/* RESPONSE : */ + + +struct download_resp_info + { + ST_INT load_data_type; /* coded/non-coded */ + ST_INT load_data_len; /* number of load data octets */ + ST_UCHAR *load_data; /* pointer to load data octets */ + ST_BOOLEAN more_follows; /* boolean, default to true */ + }; +typedef struct download_resp_info DOWNLOAD_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_download (ST_INT chan, DOWNLOAD_REQ_INFO *info); +ST_RET mp_download_resp (MMSREQ_IND *ind, DOWNLOAD_RESP_INFO *info); +#else +ST_RET mpl_download (DOWNLOAD_REQ_INFO *info); +ST_RET mpl_download_resp (ST_UINT32 invoke, DOWNLOAD_RESP_INFO *info); +#endif + +/************************************************************************/ +/* TERMINATE DOWNLOAD SEQUENCE */ +/************************************************************************/ + +/* REQUEST : */ + +struct termdown_req_info + { + ST_CHAR dname [MAX_IDENT_LEN +1]; /* domain name */ + ST_BOOLEAN discarded; /* boolean, default to false */ + ERR_INFO *err; /* points to service error */ + }; /* (IS only, for discarded != 0 */ +typedef struct termdown_req_info TERMDOWN_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_termdown (ST_INT chan, TERMDOWN_REQ_INFO *info); +ST_RET mp_termdown_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_termdown (TERMDOWN_REQ_INFO *info); +ST_RET mpl_termdown_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* INITIATE UPLOAD SEQUENCE */ +/************************************************************************/ + +/* REQUEST : */ + +struct initupl_req_info + { + ST_CHAR dname [MAX_IDENT_LEN +1]; /* domain name */ + }; +typedef struct initupl_req_info INITUPL_REQ_INFO; + +/* RESPONSE : */ + +struct initupl_resp_info + { + ST_INT32 ulsmid; /* upload state machine id */ + ST_INT num_of_capab; /* number of capabilities */ +/* list of capabilities */ +/* ST_CHAR *capab_list [num_of_capab]; */ + SD_END_STRUCT + }; +typedef struct initupl_resp_info INITUPL_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_initupl (ST_INT chan, INITUPL_REQ_INFO *info); +ST_RET mp_initupl_resp (MMSREQ_IND *ind, INITUPL_RESP_INFO *info); +#else +ST_RET mpl_initupl (INITUPL_REQ_INFO *info); +ST_RET mpl_initupl_resp (ST_UINT32 invoke, INITUPL_RESP_INFO *info); +#endif + +/************************************************************************/ +/* UPLOAD SEGMENT */ +/************************************************************************/ + +/* REQUEST : */ + +struct upload_req_info + { + ST_INT32 ulsmid; /* upload state machine id */ + }; +typedef struct upload_req_info UPLOAD_REQ_INFO; + +/* RESPONSE : */ + +struct upload_resp_info + { + ST_INT load_data_type; /* coded/non-coded */ + ST_INT load_data_len; /* number of load data octets */ + ST_UCHAR *load_data; /* pointer to load data octets */ + ST_BOOLEAN more_follows; /* boolean, default to true */ + }; +typedef struct upload_resp_info UPLOAD_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_upload (ST_INT chan, UPLOAD_REQ_INFO *info); +ST_RET mp_upload_resp (MMSREQ_IND *ind, UPLOAD_RESP_INFO *info); +#else +ST_RET mpl_upload (UPLOAD_REQ_INFO *info); +ST_RET mpl_upload_resp (ST_UINT32 invoke, UPLOAD_RESP_INFO *info); +#endif + +/************************************************************************/ +/* TERMINATE UPLOAD SEQUENCE */ +/************************************************************************/ + +/* REQUEST : */ + +struct termupl_req_info + { + ST_INT32 ulsmid; /* upload state machine id */ + }; +typedef struct termupl_req_info TERMUPL_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_termupl (ST_INT chan, TERMUPL_REQ_INFO *info); +ST_RET mp_termupl_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_termupl (TERMUPL_REQ_INFO *info); +ST_RET mpl_termupl_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* REQUEST DOMAIN DOWNLOAD */ +/************************************************************************/ + +/* REQUEST : */ + +struct rddwn_req_info + { + ST_CHAR dname [MAX_IDENT_LEN +1]; /* domain name */ + ST_BOOLEAN sharable; /* boolean, no default */ + ST_INT num_of_capab; /* number of capabilities */ + ST_INT num_of_fname; /* num of fname elements */ +/* list of capabilities */ +/* ST_CHAR * capab_list [num_of_capab]; */ +/* list of file names */ +/* FILE_NAME fname_list[ num_of_fname ]; */ + SD_END_STRUCT + }; +typedef struct rddwn_req_info RDDWN_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_rddwn (ST_INT chan, RDDWN_REQ_INFO *info); +ST_RET mp_rddwn_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_rddwn (RDDWN_REQ_INFO *info); +ST_RET mpl_rddwn_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* REQUEST DOMAIN UPLOAD */ +/************************************************************************/ + +/* REQUEST : */ + +struct rdupl_req_info + { + ST_CHAR dname [MAX_IDENT_LEN +1]; /* domain name */ + ST_INT num_of_fname; /* num of fname elements */ +/* list of file names */ +/* FILE_NAME fname_list[ num_of_fname ]; */ + SD_END_STRUCT + }; +typedef struct rdupl_req_info RDUPL_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_rdupl (ST_INT chan, RDUPL_REQ_INFO *info); +ST_RET mp_rdupl_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_rdupl (RDUPL_REQ_INFO *info); +ST_RET mpl_rdupl_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* LOAD DOMAIN CONTENT */ +/************************************************************************/ + +/* REQUEST : */ + +struct loaddom_req_info + { + ST_CHAR dname [MAX_IDENT_LEN +1]; /* domain name */ + ST_BOOLEAN sharable; /* boolean, no default */ + ST_BOOLEAN third_pty_pres; /* third party used */ + ST_INT third_pty_len; /* the length of third party */ + ST_UCHAR *third_pty; /* ptr to third party ASN.1 */ + ST_INT num_of_capab; /* number of capabilities */ + ST_INT num_of_fname; /* num of fname elements */ +/* list of capabilities */ +/* ST_CHAR *capab_list [num_of_capab]; */ +/* list of file names */ +/* FILE_NAME fname_list[ num_of_fname ]; */ + SD_END_STRUCT + }; +typedef struct loaddom_req_info LOADDOM_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_loaddom (ST_INT chan, LOADDOM_REQ_INFO *info); +ST_RET mp_loaddom_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_loaddom (LOADDOM_REQ_INFO *info); +ST_RET mpl_loaddom_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* STORE DOMAIN CONTENT */ +/************************************************************************/ + +/* REQUEST : */ + +struct storedom_req_info + { + ST_CHAR dname [MAX_IDENT_LEN +1]; /* domain name */ + ST_INT num_of_fname; /* num of fname elements */ + ST_BOOLEAN third_pty_pres; /* third party used */ + ST_INT third_pty_len; /* the length of third party */ + ST_UCHAR *third_pty; /* ptr to third party ASN.1 */ +/* list of file names */ +/* FILE_NAME fname_list[ num_of_fname ]; */ + SD_END_STRUCT + }; +typedef struct storedom_req_info STOREDOM_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_storedom (ST_INT chan, STOREDOM_REQ_INFO *info); +ST_RET mp_storedom_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_storedom (STOREDOM_REQ_INFO *info); +ST_RET mpl_storedom_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* DELETE DOMAIN */ +/************************************************************************/ + +/* REQUEST : */ + +struct deldom_req_info + { + ST_CHAR dname [MAX_IDENT_LEN +1]; /* domain name */ + }; +typedef struct deldom_req_info DELDOM_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_deldom (ST_INT chan, DELDOM_REQ_INFO *info); +ST_RET mp_deldom_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_deldom (DELDOM_REQ_INFO *info); +ST_RET mpl_deldom_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* GET DOMAIN ATTRIBUTE */ +/************************************************************************/ + +/* REQUEST : */ + +struct getdom_req_info + { + ST_CHAR dname [MAX_IDENT_LEN +1]; /* domain name */ + }; +typedef struct getdom_req_info GETDOM_REQ_INFO; + +/* RESPONSE : */ + +struct getdom_resp_info + { + ST_INT num_of_capab; /* number of capabilities */ + ST_BOOLEAN mms_deletable; /* MMS deletable, no default */ + ST_BOOLEAN sharable; /* boolean, no default */ + ST_INT num_of_pinames; /* number of pi names */ + ST_INT16 state; /* 0 : non-existent */ + /* 1 : loaded */ + /* 2 : ready */ + /* 3 : in use */ + /* 4 : complete */ + /* 5 : incomplete */ + /* 6-15 : d1-d8 (IS) */ + ST_INT8 upload_in_progress; /* upload in progress */ +/* list of pointers to capabilities */ +/* ST_CHAR *capab_list [num_of_capab]; */ +/* list of pointers to program invocation names */ +/* ST_CHAR *pinames_list [num_of_pinames]; */ + SD_END_STRUCT + }; +typedef struct getdom_resp_info GETDOM_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_getdom (ST_INT chan, GETDOM_REQ_INFO *info); +ST_RET mp_getdom_resp (MMSREQ_IND *ind, GETDOM_RESP_INFO *info); +#else +ST_RET mpl_getdom (GETDOM_REQ_INFO *info); +ST_RET mpl_getdom_resp (ST_UINT32 invoke, GETDOM_RESP_INFO *info); +#endif + +#ifdef __cplusplus +} +#endif + +#endif /* #define MMS_PDOM_INCLUDED */ + diff --git a/include/inc/mms_perr.h b/include/inc/mms_perr.h new file mode 100644 index 0000000..d387f91 --- /dev/null +++ b/include/inc/mms_perr.h @@ -0,0 +1,248 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2007, All Rights Reserved. */ +/* */ +/* MODULE NAME : mms_perr.h */ +/* PRODUCT(S) : MMSEASE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains structure & function definitions used for */ +/* decoding and encoding an error response. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 09/05/07 EJV 03 Removed obsolete LLC30_LLP Type code. */ +/* 07/02/98 NAV 02 Add MVE_JOURNAL_NAME error code */ +/* 06/09/97 MDE 01 Fixed indenting */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef MMS_PERR_INCLUDED +#define MMS_PERR_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +/************************************************************************/ +/* Global MMS operation error code, written when error is detected in */ +/* functions which return pointers. */ +/************************************************************************/ + +extern ST_RET mms_op_err; + +/************************************************************************/ +/* Error Codes */ +/* MMSEASE error codes start at E_MMS_GEN(found in glberror.h). */ +/* When the return valus from a user accessable function is a pointer, */ +/* an error is indicated by a pointer value of 0L. In this case the */ +/* error code may be found in the global variable 'mms_op_err'. */ +/* */ +/* Note that SUIC error codes are passed through, and are in the range */ +/* 1 - 99. Refer to SUIC documentation for specific error definitions. */ +/* */ +/* */ +/* Error codes returned from any request or response function */ +/************************************************************************/ + +#define ME_CHAN_STATE 0x6401 +#define ME_CHAN_NUM 0x6402 +#define ME_TITLE_LEN 0x6403 +#define ME_SEND_SIZE 0x6404 +#define ME_REQ_PEND_COUNT 0x6405 +#define ME_INACTIVE_IND 0x6406 +#define ME_PARTNER_NAME 0x6407 +#define ME_AR_NAME 0x6408 +#define ME_OBJ_ID_ERR 0x6409 +#define ME_SEND_ERROR 0x640A +#define ME_ACSE_CHAN_RANGE 0x640B +#define ME_LLC_CHAN_RANGE 0x640D +#define ME_LLP_TYPE 0x640E +#define ME_TRANS_ID_UNAVAILABLE 0x640F +#define ME_CHAN_TYPE 0x6410 +#define ME_TOO_MANY_CONTEXTS 0x6411 +#define ME_UNKNOWN_P_CONTEXT 0x6412 +#define ME_P_CONTEXT_ERROR 0x6413 +#define ME_ASN1_ENCODE_OVERRUN 0x6414 + +/************************************************************************/ +/* Error codes returned from mp_xxx_req functions */ +/* Values begin from E_MMS_PPI(found in glberror.h). */ +/************************************************************************/ + +#define ME_QUEFULL 0x6501 + +/************************************************************************/ +/* Error codes found in resp_err */ +/* Values begin from E_MMS_RESP(found in glberror.h). */ +/************************************************************************/ + +#define CNF_RESP_OK 0 +#define CNF_PARSE_ERR 0x6601 +#define CNF_REJ_ERR 0x6602 +#define CNF_ERR_OK 0x6603 +#define CNF_DISCONNECTED 0x6604 +#define CNF_CHAN_OP_ERR 0x6605 +#define CNF_CANST_ERR 0x6606 +#define CNF_ASS_REQ_REJECTED 0x6607 +#define CNF_ASS_RESP_PARAM 0x6608 +#define CNF_ASS_USER_REJ_CONF 0x6609 +#define CNF_REM_FOPEN 0x660A +#define CNF_INIT_PARAM 0x660B +#define CNF_REM_FREAD 0x660C +#define CNF_LOC_FWRITE 0x660D +#define CNF_REM_FCLOSE 0x660E +#define CNF_LOC_FCLOSE 0x660F +#define CNF_MVREAD_RESP_PARAM 0x6610 +#define CNF_VM_RESP_ERR 0x6611 +#define CNF_LLC_SEND_ERROR 0x6612 +#define CNF_REQ_NOT_DONE 0x6613 + +/************************************************************************/ +/* Error codes returned from 'mv_xxxx_resp' functions. */ +/* Values begin from E_MMS_VMI(found in glberror.h). */ +/************************************************************************/ + +#define MVE_VARNAME 0x6701 +#define MVE_TYPENAME 0x6702 +#define MVE_ADDR 0x6703 +#define MVE_FOPEN 0x6704 +#define MVE_REM_FILE_COUNT 0x6705 +#define MVE_LOC_FILE_COUNT 0x6706 +#define MVE_FILE_REFNUM 0x6707 +#define MVE_FRENAME 0x6708 +#define MVE_FDELETE 0x6709 +#define MVE_FDIR 0x670A +#define MVE_LOC_FOPEN 0x670B +#define MVE_CANCEL_STATE 0x670C +#define MVE_DOM_ERR 0x670D +#define MVE_RT_TYPE 0x670E +#define MVE_DOM_STATE 0x670F +#define MVE_AT_UPPER_LIMIT 0x6710 +#define MVE_DATA_CONVERT 0x6711 +#define MVE_VM_SERVICE_NOTSUPP 0x6712 +#define MVE_MVWRITE_REQ_PARAM 0x6713 +#define MVE_DOMAIN_NAME 0x6714 +#define MVE_OBJECT_SCOPE 0x6715 +#define MVE_VAR_LIST 0x6716 +#define MVE_VAR_NUMBER 0x6717 +#define MVE_NOT_NAMED_VAR 0x6718 +#define MVE_WRONG_OP 0x6719 +#define MVE_MVINFO_ACCESS_ERR 0x671A +#define MVE_TYPEDEF_LEN0 0x671B +#define MVE_TYPEDEF_SYM_GT 0x671C +#define MVE_TYPEDEF_SYM_LT 0x671D +#define MVE_TYPEDEF_OBJNAME 0x671E +#define MVE_TYPEDEF_SYM_RBRACE 0x671F +#define MVE_TYPEDEF_SYM_LBRACE 0x6720 +#define MVE_TYPEDEF_SYM_COMMA 0x6721 +#define MVE_TYPEDEF_SYM_RPAREN 0x6722 +#define MVE_TYPEDEF_SYM_LPAREN 0x6723 +#define MVE_TYPEDEF_SYM_P 0x6724 +#define MVE_TYPEDEF_SYM_PLUS 0x6725 +#define MVE_TYPEDEF_SYM_MINUS 0x6726 +#define MVE_TYPEDEF_SYM_T 0x6727 +#define MVE_TYPEDEF_BADLEN3 0x6728 +#define MVE_TYPEDEF_BADLEN4 0x6729 +#define MVE_TYPEDEF_BADLEN5 0x672A +#define MVE_TYPEDEF_BADLEN7 0x672B +#define MVE_TYPEDEF_BADTYPE 0x672C +#define MVE_TYPEDEF_SYM_COLON 0x672D +#define MVE_TYPEDEF_SYM_RBRACKET 0x672E +#define MVE_TYPEDEF_SYM_LBRACKET 0x672F +#define MVE_TYPEDEF_NUM_ELTS 0x6730 +#define MVE_TYPEDEF_SYM_DIGIT 0x6731 +#define MVE_TYPEDEF_SYM_OTHER 0x6732 +#define MVE_DATA_SPACE 0x6733 +#define MVE_VM_REQ_ERR 0x6734 +#define MVE_VMD_NOT_EMPTY 0x6735 +#define MVE_BAD_APP_REF_FORM 0x6736 +#define MVE_ASN1_TO_RT 0x6737 +#define MVE_ASN1_ENCODE_ERR 0x6738 +#define MVE_ASN1_DECODE_ERR 0x6739 +#define MVE_FP_SAVE_REQ_ERR 0x673A +#define MVE_FP_REQ_DONE_ERR 0x673B +#define MVE_LLP_DIB_FOPEN_ERR 0x673C +#define MVE_ADD_APPREF_ERR 0x673D +#define MVE_RESP_NOT_SUPP 0x673E +#define MVE_REQ_NOT_SUPP 0x673F +#define MVE_INVALID_PDU 0x6740 +#define MVE_DOM_DISCARDED 0x6741 +#define MVE_DOM_PROTECTED 0x6742 +#define MVE_DOM_DEL_ERR 0x6743 +#define MVE_DEL_PI_ERR 0x6744 +#define MVE_RTAA_TYPE 0x6745 +#define MVE_RTAA_SIZE 0x6746 +#define MVE_AA_SELECT 0x6747 +#define MVE_INVALID_ADL 0x6748 +#define MVE_DATA_TO_RT 0x6749 +#define MVE_LOC_FILE_READ 0x6750 + +/************************************************************************/ +/* Errors related to VM Program Invocation handling */ + +#define PI_NAME 0x6770 +#define PI_STATE 0x6771 +#define PI_NOT_REUSABLE 0x6772 +#define PI_NOT_DELETABLE 0x6773 +#define ME_PI_PROTECTION 0x6774 +#define ME_PI_INVALID_ID 0x6775 + +/************************************************************************/ +/* Errors related to VM Journal handling */ + +#define MVE_JOURNAL_NAME 0x6776 +#define MVE_INVALID_DOMAIN_OBJ 0x6777 + +/************************************************************************/ +/* ACSE ERROR CODES */ +/* The codes below are used in the info.ACSE.err_code in the case where */ +/* the event is an ACSE_ERROR. The user defined function */ +/* 'u_llp_error_ind' is called with these codes when this occurs. */ +/* Values begin from E_LLP_ACSE(found in glberror.h). */ +/************************************************************************/ + +#define ACSE_RECEIVE_ERR 0x6901L +#define ACSE_LISTEN_ERR 0x6902L +#define ACSE_DISCONNECT_RCV_ERR 0x6903L +#define ACSE_STOP_LISTEN_ERR 0x6904L +#define ACSE_ASS_REQ_ERR 0x6905L +#define ACSE_ASS_RESP_ERR 0x6906L +#define ACSE_REL_RESP_ERR 0x6907L +#define ACSE_REL_REQ_ERR 0x6908L +#define ACSE_SEND_REQ_ERR 0x6909L +#define ACSE_SET_DEBUG_ERR 0x690AL +#define ACSE_ABORT_ERR 0x690BL + + +/************************************************************************/ +/* MMS Exception Codes */ +/* These codes are passed to the user when the user exception function */ +/* (u_mmsexcept_ind) is called. */ +/* Values begin from E_MMS_EXCPT(found in glberror.h). */ +/************************************************************************/ + +#define MX_REJECT 0x6801 +#define MX_BOARD_ERR 0x6802 +#define MX_LLP_EVENT_ERROR 0x6803 +#define MX_MEMORY_ALLOC 0x6804 +#define MX_RUNTIME_TDEF 0x6805 +#define MX_LLP_QUE_OVERFLOW 0x6806 +#define MX_MMSIND_QUE 0x6807 +#define MX_MMSCONF_QUE 0x6808 +#define MX_INTERNAL_ERROR 0x6809 +#define MX_LLP_ADD_INFO_ALLOC 0x680A + + +#ifdef __cplusplus +} +#endif + +#endif /* #define MMS_PERR_INCLUDED */ + + + diff --git a/include/inc/mms_pevn.h b/include/inc/mms_pevn.h new file mode 100644 index 0000000..f32f230 --- /dev/null +++ b/include/inc/mms_pevn.h @@ -0,0 +1,956 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 1997, All Rights Reserved. */ +/* */ +/* MODULE NAME : mms_pevn.h */ +/* PRODUCT(S) : MMSEASE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This file has the data structures and function definitions */ +/* required to interface with MMS event management services */ +/* at the primitive level. */ +/* */ +/* Parameters : In general, the first parameter is the channel */ +/* that the request or response is to be sent over. */ +/* For Responses, the second parameter is the Invoke */ +/* ID to be used. The last parameter is used to pass */ +/* operation specific information by pointer. */ +/* */ +/* Return */ +/* Values : Request functions return a pointer to the pending */ +/* request tracking structure, of type MMSREQ_PEND. */ +/* In case of error, the pointer is returned == 0 */ +/* and mms_op_err is written with the err code. */ +/* Response functions return 0 if OK, else an error */ +/* code. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/12/02 JRB 03 Add ASN1_ENC_CTXT arg to mpl_evnot */ +/* 07/15/97 MDE 02 Added cur_state defines */ +/* 08/14/97 RKR 01 Format changes */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef MMS_PEVN_INCLUDED +#define MMS_PEVN_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "mms_pvar.h" /* needed for variable specification defs */ +#include "mms_err.h" /* needed for service error definitions */ +#include "mms_mp.h" + + +/************************************************************************/ +/* Event cur_state defines */ + +#define EC_STATE_DISABLED 0 +#define EC_STATE_IDLE 1 +#define EC_STATE_ACTIVE 2 + +#define EC_STATE_ACTIVE_NOACK_A 3 +#define EC_STATE_IDLE_NOACK_I 4 +#define EC_STATE_IDLE_NOACK_A 5 +#define EC_STATE_IDLE_ACKED 6 +#define EC_STATE_ACTIVE_ACKED 7 + +/************************************************************************/ +/* EVENT MANAGEMENT FUNCTIONS */ +/************************************************************************/ +/* The structures below are used to pass EVENT MANAGEMENT operation */ +/* information to/from the MMS primitives. */ +/************************************************************************/ + +struct event_enrollment + { + OBJECT_NAME evenroll_name; /* event enrollment name */ + ST_CHAR evcon_name_tag; /* 0 : event condition name */ + /* 1 : undefined */ + OBJECT_NAME evcon_name; /* event condition name - for */ + /* evcon_name_tag = 0 only */ + ST_BOOLEAN evact_name_pres; /* event action name present */ + ST_CHAR evact_name_tag; /* 0 : event action name */ + /* 1 : undefined */ + OBJECT_NAME evact_name; /* event action name - for */ + /* evact_name_tag = 0 only */ + ST_BOOLEAN client_app_pres; /* client application present */ + ST_INT client_app_len; /* client application length */ + ST_UCHAR *client_app; /* client application reference */ + ST_BOOLEAN mms_deletable; /* mms deletable (def = false) */ + ST_INT16 ee_class; /* event enrollment class: */ + /* 0 - modifier */ + /* 1 - notification */ + ST_INT16 duration; /* duration: */ + /* 0 - current (default) */ + /* 1 - permanent */ + ST_BOOLEAN invoke_id_pres; /* invoke id present */ + ST_UINT32 invoke_id; /* invoke id */ + ST_BOOLEAN rem_acc_delay_pres; /* rem acceptable delay present */ + ST_UINT32 rem_acc_delay; /* remaining acceptable delay */ + ST_BOOLEAN addl_detail_pres; /* additional detail present */ + ST_INT addl_detail_len; /* length of additional detail */ + ST_UCHAR *addl_detail; /* pointer to additional detail */ + ST_BOOLEAN ackec_name_pres; /* ack event cond name present */ + ST_CHAR ackec_name_tag; /* 0 : ack event condition name */ + /* 1 : undefined */ + OBJECT_NAME ackec_name; /* ack event cond name - for */ + /* ackec_name_tag = 0 only */ + SD_END_STRUCT + }; +typedef struct event_enrollment EVENT_ENROLLMENT; + +struct alarm_summary + { + OBJECT_NAME evcon_name; /* event condition name */ + ST_UCHAR severity; /* severity */ + ST_INT16 cur_state; /* current state */ + /* 0 : disabled */ + /* 1 : idle */ + /* 2 : active */ + ST_INT16 unack_state; /* unacknowledged state */ + /* 0 : none */ + /* 1 : active */ + /* 2 : idle */ + /* 3 : both */ + ST_BOOLEAN addl_detail_pres; /* additional detail present */ + ST_INT addl_detail_len; /* length of additional detail */ + ST_UCHAR *addl_detail; /* pointer to additional detail */ + ST_BOOLEAN tta_time_pres; /* transition to active time */ + /* present */ + EVENT_TIME tta_time; /* transition to active time */ + ST_BOOLEAN tti_time_pres; /* transition to idle time */ + /* present */ + EVENT_TIME tti_time; /* transition to idle time */ + SD_END_STRUCT + }; +typedef struct alarm_summary ALARM_SUMMARY; + +struct alarm_enroll_summary + { + OBJECT_NAME evenroll_name; /* event enrollment name */ + ST_BOOLEAN client_app_pres; /* client application present */ + ST_INT client_app_len; /* client application length */ + ST_UCHAR *client_app; /* client application reference */ + ST_UCHAR severity; /* severity */ + ST_INT16 cur_state; /* current state */ + /* 0 : disabled */ + /* 1 : idle */ + /* 2 : active */ + ST_BOOLEAN addl_detail_pres; /* additional detail present */ + ST_INT addl_detail_len; /* length of additional detail */ + ST_UCHAR *addl_detail; /* pointer to additional detail */ + ST_BOOLEAN not_lost; /* notification lost */ + /* (default = false) */ + ST_INT16 alarm_ack_rule; /* alarm acknowledgment rule */ + /* 0 : none */ + /* 1 : simple */ + /* 2 : ack active */ + /* 3 : ack all */ + ST_BOOLEAN ee_state_pres; /* enrollment state present */ + ST_INT16 ee_state; /* enrollment state */ + /* 0 : disabled */ + /* 1 : idle */ + /* 2 : active */ + /* 3 : active, no ack a */ + /* 4 : idle, no ack i */ + /* 5 : idle, no ack a */ + /* 6 : idle, acked */ + /* 7 : active, acked */ + ST_BOOLEAN tta_time_pres; /* transition to active time */ + /* present */ + EVENT_TIME tta_time; /* transition to active time */ + ST_BOOLEAN aack_time_pres; /* active acknowledgment time */ + /* present */ + EVENT_TIME aack_time; /* active acknowledgment time */ + ST_BOOLEAN tti_time_pres; /* transition to idle time */ + /* present */ + EVENT_TIME tti_time; /* transition to idle time */ + ST_BOOLEAN iack_time_pres; /* idle acknowledgment time */ + /* present */ + EVENT_TIME iack_time; /* idle acknowledgment time */ + SD_END_STRUCT + }; +typedef struct alarm_enroll_summary ALARM_ENROLL_SUMMARY; + + +/************************************************************************/ +/************************************************************************/ +/* DEFINE EVENT CONDITION */ +/************************************************************************/ + +/* REQUEST : */ + +struct defec_req_info + { + OBJECT_NAME evcon_name; /* event condition name */ + ST_INT16 eclass; /* event condition class: */ + ST_UCHAR priority; /* priority */ + /* 0 - highest */ + /* 64 - normal (default) */ + /* 127 - lowest */ + ST_UCHAR severity; /* severity (default = 64) */ + ST_BOOLEAN as_reports_pres; /* alarm summaray rpts present */ + ST_BOOLEAN as_reports; /* alarm summaray reports */ + ST_BOOLEAN mon_var_pres; /* monitored variable present */ + VARIABLE_SPEC var_ref; /* variable reference */ + ST_BOOLEAN eval_int_pres; /* evaluation interval present */ + ST_UINT32 eval_interval; /* evaluation interval */ + SD_END_STRUCT + }; +typedef struct defec_req_info DEFEC_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_defec (ST_INT chan, DEFEC_REQ_INFO *info); +ST_RET mp_defec_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_defec (DEFEC_REQ_INFO *info); +ST_RET mpl_defec_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* DELETE EVENT CONDITION */ +/************************************************************************/ + +/* REQUEST : */ + +struct delec_req_info + { + ST_INT16 req_tag; /* request tag */ + /* 0 : specific */ + /* 1 : aa specific */ + /* 2 : domain */ + /* 3 : vmd */ + ST_CHAR dname [MAX_IDENT_LEN+1]; /* domain name, if req_tag = 2 */ + ST_INT num_of_names; /* number of names, if tag = 0 */ +/* list of object names */ +/* OBJECT_NAME name_list [num_of_names]; */ + SD_END_STRUCT + }; +typedef struct delec_req_info DELEC_REQ_INFO; + +/* RESPONSE : */ + +struct delec_resp_info + { + ST_UINT32 cand_not_deleted; /* canditates not deleted */ + }; +typedef struct delec_resp_info DELEC_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_delec (ST_INT chan, DELEC_REQ_INFO *info); +ST_RET mp_delec_resp (MMSREQ_IND *ind, DELEC_RESP_INFO *info); +#else +ST_RET mpl_delec (DELEC_REQ_INFO *info); +ST_RET mpl_delec_resp (ST_UINT32 invoke, DELEC_RESP_INFO *info); +#endif + +/************************************************************************/ +/* GET EVENT CONDITION ATTRIBUTES */ +/************************************************************************/ + +/* REQUEST : */ + +struct geteca_req_info + { + OBJECT_NAME evcon_name; /* event condition name */ + }; +typedef struct geteca_req_info GETECA_REQ_INFO; + +/* RESPONSE : */ + +struct geteca_resp_info + { + ST_BOOLEAN mms_deletable; /* mms deletable */ + ST_INT16 eclass; /* event condition class: */ + ST_UCHAR priority; /* priority */ + /* 0 - highest */ + /* 64 - normal (default) */ + /* 127 - lowest */ + ST_UCHAR severity; /* severity */ + /* 0 - highest */ + /* 64 - normal (default) */ + /* 127 - lowest */ + ST_BOOLEAN as_reports; /* alarm summaray reports */ + ST_BOOLEAN mon_var_pres; /* monitored variable present */ + ST_INT16 mon_var_tag; /* monitored variable tag */ + /* 0 : variable reference */ + /* 1 : undefined (NULL) */ + VARIABLE_SPEC var_ref; /* variable reference */ + ST_BOOLEAN eval_int_pres; /* evaluation interval present */ + ST_UINT32 eval_interval; /* evaluation interval */ + SD_END_STRUCT + }; +typedef struct geteca_resp_info GETECA_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_geteca (ST_INT chan, GETECA_REQ_INFO *info); +ST_RET mp_geteca_resp (MMSREQ_IND *ind, GETECA_RESP_INFO *info); +#else +ST_RET mpl_geteca (GETECA_REQ_INFO *info); +ST_RET mpl_geteca_resp (ST_UINT32 invoke, GETECA_RESP_INFO *info); +#endif + +/************************************************************************/ +/* REPORT EVENT CONDITION STATUS */ +/************************************************************************/ + +/* REQUEST : */ + +struct repecs_req_info + { + OBJECT_NAME evcon_name; /* event condition name */ + }; +typedef struct repecs_req_info REPECS_REQ_INFO; + +/* RESPONSE : */ + +struct repecs_resp_info + { + ST_INT16 cur_state; /* event condition state: */ + /* 0 - disabled */ + /* 1 - idle */ + /* 2 - active */ + ST_UINT32 num_of_ev_enroll; /* number of event enrollments */ + ST_BOOLEAN enabled_pres; /* enabled indicator present */ + ST_BOOLEAN enabled; /* enabled indicator */ + ST_BOOLEAN tta_time_pres; /* transition to active present */ + EVENT_TIME tta_time; /* transition to active time */ + ST_BOOLEAN tti_time_pres; /* transition to idle present */ + EVENT_TIME tti_time; /* transition to idle time */ + SD_END_STRUCT + }; +typedef struct repecs_resp_info REPECS_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_repecs (ST_INT chan, REPECS_REQ_INFO *info); +ST_RET mp_repecs_resp (MMSREQ_IND *ind, REPECS_RESP_INFO *info); +#else +ST_RET mpl_repecs (REPECS_REQ_INFO *info); +ST_RET mpl_repecs_resp (ST_UINT32 invoke, REPECS_RESP_INFO *info); +#endif + +/************************************************************************/ +/* ALTER EVENT CONDITION MONITORING */ +/************************************************************************/ + +/* REQUEST : */ + +struct altecm_req_info + { + OBJECT_NAME evcon_name; /* event condition name */ + ST_BOOLEAN enabled_pres; /* enabled present */ + ST_BOOLEAN enabled; /* enabled */ + ST_BOOLEAN priority_pres; /* priority present */ + ST_UCHAR priority; /* priority */ + /* 0 - highest */ + /* 64 - normal */ + /* 127 - lowest */ + ST_BOOLEAN as_reports_pres; /* alarm summaray rpts present */ + ST_BOOLEAN as_reports; /* alarm summaray reports */ + ST_BOOLEAN eval_int_pres; /* evaluation interval present */ + ST_UINT32 eval_int; /* evaluation interval */ + SD_END_STRUCT + }; +typedef struct altecm_req_info ALTECM_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_altecm (ST_INT chan, ALTECM_REQ_INFO *info); +ST_RET mp_altecm_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_altecm (ALTECM_REQ_INFO *info); +ST_RET mpl_altecm_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* TRIGGER EVENT */ +/************************************************************************/ + +/* REQUEST : */ + +struct trige_req_info + { + OBJECT_NAME evcon_name; /* event condition name */ + ST_BOOLEAN priority_pres; /* priority present */ + ST_UCHAR priority; /* priority */ + /* 0 - highest */ + /* 64 - normal */ + /* 127 - lowest */ + SD_END_STRUCT + }; +typedef struct trige_req_info TRIGE_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_trige (ST_INT chan, TRIGE_REQ_INFO *info); +ST_RET mp_trige_resp (MMSREQ_IND *info); +#else +ST_RET mpl_trige (TRIGE_REQ_INFO *info); +ST_RET mpl_trige_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* DEFINE EVENT ACTION */ +/************************************************************************/ + +/* REQUEST : */ + +struct defea_req_info + { + OBJECT_NAME evact_name; /* event action name */ + ST_INT conf_serv_req_len; /* confirmed service req length */ + ST_UCHAR *conf_serv_req; /* confirmed service request */ + ST_BOOLEAN modlist_pres; /* list of modifiers present */ + ST_INT num_of_modifiers; /* number of modifiers */ + ST_BOOLEAN cs_rdetail_pres; /* CS request detail present */ + ST_INT cs_rdetail_len; /* CS request detail length */ + ST_UCHAR *cs_rdetail; /* CS request detail pointer */ +/* list of modifiers */ +/* MODIFIER mod_list [num_of_modifiers]; */ + SD_END_STRUCT + }; +typedef struct defea_req_info DEFEA_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_defea (ST_INT chan, DEFEA_REQ_INFO *info); +ST_RET mp_defea_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_defea (DEFEA_REQ_INFO *info); +ST_RET mpl_defea_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* DELETE EVENT ACTION */ +/************************************************************************/ + +/* REQUEST : */ + +struct delea_req_info + { + ST_INT16 req_tag; /* request tag */ + /* 0 : specific */ + /* 1 : aa specific */ + /* 2 : domain */ + /* 3 : vmd */ + ST_CHAR dname [MAX_IDENT_LEN+1]; /* domain name, if req_tag = 2 */ + ST_INT num_of_names; /* number of names, if tag = 0 */ +/* list of object names */ +/* OBJECT_NAME name_list [num_of_names]; */ + SD_END_STRUCT + }; +typedef struct delea_req_info DELEA_REQ_INFO; + +/* RESPONSE : */ + +struct delea_resp_info + { + ST_UINT32 cand_not_deleted; /* canditates not deleted */ + }; +typedef struct delea_resp_info DELEA_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_delea (ST_INT chan, DELEA_REQ_INFO *info); +ST_RET mp_delea_resp (MMSREQ_IND *ind, DELEA_RESP_INFO *info); +#else +ST_RET mpl_delea (DELEA_REQ_INFO *info); +ST_RET mpl_delea_resp (ST_UINT32 invoke, DELEA_RESP_INFO *info); +#endif + +/************************************************************************/ +/* GET EVENT ACTION ATTRIBUTES */ +/************************************************************************/ + +/* REQUEST : */ + +struct geteaa_req_info + { + OBJECT_NAME evact_name; /* event action name */ + }; +typedef struct geteaa_req_info GETEAA_REQ_INFO; + +/* RESPONSE : */ + +struct geteaa_resp_info + { + ST_BOOLEAN mms_deletable; /* mms deletable (def = false) */ + ST_INT conf_serv_req_len; /* confirmed service req length */ + ST_UCHAR *conf_serv_req; /* confirmed service request */ + ST_BOOLEAN cs_rdetail_pres; /* CS request detail present */ + ST_INT cs_rdetail_len; /* CS request detail length */ + ST_UCHAR *cs_rdetail; /* CS request detail pointer */ + ST_INT num_of_modifiers; /* number of modifiers */ +/* list of modifiers */ +/* MODIFIER mod_list [num_of_modifiers]; */ + SD_END_STRUCT + }; +typedef struct geteaa_resp_info GETEAA_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_geteaa (ST_INT chan, GETEAA_REQ_INFO *info); +ST_RET mp_geteaa_resp (MMSREQ_IND *ind, GETEAA_RESP_INFO *info); +#else +ST_RET mpl_geteaa (GETEAA_REQ_INFO *info); +ST_RET mpl_geteaa_resp (ST_UINT32 invoke, GETEAA_RESP_INFO *info); +#endif + +/************************************************************************/ +/* REPORT EVENT ACTION STATUS */ +/************************************************************************/ + +/* REQUEST : */ + +struct repeas_req_info + { + OBJECT_NAME evact_name; /* event action name */ + }; +typedef struct repeas_req_info REPEAS_REQ_INFO; + +/* RESPONSE : */ + +struct repeas_resp_info + { + ST_UINT32 num_of_ev_enroll; /* number of event enrollments */ + }; +typedef struct repeas_resp_info REPEAS_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_repeas (ST_INT chan, REPEAS_REQ_INFO *info); +ST_RET mp_repeas_resp (MMSREQ_IND *ind, REPEAS_RESP_INFO *info); +#else +ST_RET mpl_repeas (REPEAS_REQ_INFO *info); +ST_RET mpl_repeas_resp (ST_UINT32 invoke, REPEAS_RESP_INFO *info); +#endif + +/************************************************************************/ +/* DEFINE EVENT ENROLLMENT */ +/************************************************************************/ + +/* REQUEST : */ + +struct defee_req_info + { + OBJECT_NAME evenroll_name; /* event enrollment name */ + OBJECT_NAME evcon_name; /* event condition name */ + ST_UCHAR ec_transitions; /* causing transitions: */ + /* bitstring */ + /* 0 : idle to disabled */ + /* 1 : active to disabled */ + /* 2 : disabled to idle */ + /* 3 : active to idle */ + /* 4 : disabled to active */ + /* 5 : idle to active */ + /* 6 : any to deleted */ + ST_INT16 alarm_ack_rule; /* alarm acknowledgment rule */ + /* 0 : none */ + /* 1 : simple */ + /* 2 : ack active */ + /* 3 : ack all */ + ST_BOOLEAN evact_name_pres; /* event action name present */ + OBJECT_NAME evact_name; /* event action name */ + ST_BOOLEAN client_app_pres; /* client application present */ + ST_INT client_app_len; /* client application length */ + ST_UCHAR *client_app; /* client application reference */ + ST_BOOLEAN ackec_name_pres; /* ack event cond name present */ + OBJECT_NAME ackec_name; /* acknowledge event cond name */ + SD_END_STRUCT + }; +typedef struct defee_req_info DEFEE_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_defee (ST_INT chan, DEFEE_REQ_INFO *info); +ST_RET mp_defee_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_defee (DEFEE_REQ_INFO *info); +ST_RET mpl_defee_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* DELETE EVENT ENROLLMENT */ +/************************************************************************/ + +/* REQUEST : */ + +struct delee_req_info + { + ST_INT16 req_tag; /* request tag */ + /* 0 : specific */ + /* 1 : event condition */ + /* 2 : event action */ + union + { + OBJECT_NAME evcon_name; /* event condition name */ + OBJECT_NAME evact_name; /* event action name */ + ST_INT num_of_names; /* number of object names */ + } sod; +/* list of object names */ +/* OBJECT_NAME name_list [num_of_names]; */ + SD_END_STRUCT + }; +typedef struct delee_req_info DELEE_REQ_INFO; + +/* RESPONSE : */ + +struct delee_resp_info + { + ST_UINT32 cand_not_deleted; /* canditates not deleted */ + }; +typedef struct delee_resp_info DELEE_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_delee (ST_INT chan, DELEE_REQ_INFO *info); +ST_RET mp_delee_resp (MMSREQ_IND *ind, DELEE_RESP_INFO *info); +#else +ST_RET mpl_delee (DELEE_REQ_INFO *info); +ST_RET mpl_delee_resp (ST_UINT32 invoke, DELEE_RESP_INFO *info); +#endif + +/************************************************************************/ +/* GET EVENT ENROLLMENT ATTRIBUTES */ +/************************************************************************/ + +/* REQUEST : */ + +struct geteea_req_info + { + ST_INT16 scope_of_req; /* scope of request */ + /* 0 : specific */ + /* 1 : client (default) */ + /* 2 : event condition */ + /* 3 : event action */ + ST_BOOLEAN client_app_pres; /* client application present */ + ST_INT client_app_len; /* client application length */ + ST_UCHAR *client_app; /* client application reference */ + ST_BOOLEAN evcon_name_pres; /* event condition name present */ + OBJECT_NAME evcon_name; /* event condition name */ + ST_BOOLEAN evact_name_pres; /* event action name present */ + OBJECT_NAME evact_name; /* event action name */ + ST_BOOLEAN ca_name_pres; /* continue after name present */ + OBJECT_NAME ca_name; /* continue after name */ + ST_BOOLEAN eenames_pres; /* event enroll names present */ + ST_INT num_of_eenames; /* number of event enroll names */ +/* list of event enroll names */ +/* OBJECT_NAME name_list [num_of_eenames]; */ + SD_END_STRUCT + }; +typedef struct geteea_req_info GETEEA_REQ_INFO; + +/* RESPONSE : */ + +struct geteea_resp_info + { + ST_BOOLEAN more_follows; /* default = false */ + ST_INT num_of_evenroll; /* number of event enrollments */ +/* list of event enrollments */ +/* EVENT_ENROLLMENT evenroll_list [num_of_evenroll]; */ + SD_END_STRUCT + }; +typedef struct geteea_resp_info GETEEA_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_geteea (ST_INT chan, GETEEA_REQ_INFO *info); +ST_RET mp_geteea_resp (MMSREQ_IND *ind, GETEEA_RESP_INFO *info); +#else +ST_RET mpl_geteea (GETEEA_REQ_INFO *info); +ST_RET mpl_geteea_resp (ST_UINT32 invoke, GETEEA_RESP_INFO *info); +#endif + +/************************************************************************/ +/* REPORT EVENT ENROLLMENT STATUS */ +/************************************************************************/ + +/* REQUEST : */ + +struct repees_req_info + { + OBJECT_NAME evenroll_name; /* event enrollment name */ + }; +typedef struct repees_req_info REPEES_REQ_INFO; + +/* RESPONSE : */ + +struct repees_resp_info + { + ST_UCHAR ec_transitions; /* event condition transitions: */ + /* bitstring */ + /* 0 : idle to disabled */ + /* 1 : active to disabled */ + /* 2 : disabled to idle */ + /* 3 : active to idle */ + /* 4 : disabled to active */ + /* 5 : idle to active */ + /* 6 : any to deleted */ + ST_UCHAR not_lost; /* notification lost */ + /* (default = false) */ + ST_INT16 duration; /* duration: */ + /* 0 - current (default) */ + /* 1 - permanent */ + ST_BOOLEAN alarm_ack_rule_pres; /* alarm ack rule present */ + ST_INT16 alarm_ack_rule; /* alarm acknowledgment rule */ + /* 0 : none */ + /* 1 : simple */ + /* 2 : ack active */ + /* 3 : ack all */ + ST_INT16 cur_state; /* current state */ + /* 0 : disabled */ + /* 1 : idle */ + /* 2 : active */ + /* 3 : active, no ack a */ + /* 4 : idle, no ack i */ + /* 5 : idle, no ack a */ + /* 6 : idle, acked */ + /* 7 : active, acked */ + }; +typedef struct repees_resp_info REPEES_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_repees (ST_INT chan, REPEES_REQ_INFO *info); +ST_RET mp_repees_resp (MMSREQ_IND *ind, REPEES_RESP_INFO *info); +#else +ST_RET mpl_repees (REPEES_REQ_INFO *info); +ST_RET mpl_repees_resp (ST_UINT32 invoke, REPEES_RESP_INFO *info); +#endif + +/************************************************************************/ +/* ALTER EVENT ENROLLMENT */ +/************************************************************************/ + +/* REQUEST : */ + +struct altee_req_info + { + OBJECT_NAME evenroll_name; /* event enrollment name */ + ST_BOOLEAN ec_transitions_pres; /* ec transitions present */ + ST_UCHAR ec_transitions; /* event condition transitions: */ + /* bitstring */ + /* 0 : idle to disabled */ + /* 1 : active to disabled */ + /* 2 : disabled to idle */ + /* 3 : active to idle */ + /* 4 : disabled to active */ + /* 5 : idle to active */ + /* 6 : any to deleted */ + ST_BOOLEAN alarm_ack_rule_pres; /* alarm ack rule present */ + ST_INT16 alarm_ack_rule; /* alarm acknowledgment rule */ + /* 0 : none */ + /* 1 : simple */ + /* 2 : ack active */ + /* 3 : ack all */ + SD_END_STRUCT + }; +typedef struct altee_req_info ALTEE_REQ_INFO; + +/* RESPONSE : */ + +struct altee_resp_info + { + ST_INT16 cur_state_tag; /* current state tag */ + /* 0 : state */ + /* 1 : undefined */ + ST_INT16 state; /* state, if cur_state_tag = 0 */ + /* 0 : disabled */ + /* 1 : idle */ + /* 2 : active */ + /* 3 : active, no ack a */ + /* 4 : idle, no ack i */ + /* 5 : idle, no ack a */ + /* 6 : idle, acked */ + /* 7 : active, acked */ + EVENT_TIME trans_time; /* transition time */ + SD_END_STRUCT + }; +typedef struct altee_resp_info ALTEE_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_altee (ST_INT chan, ALTEE_REQ_INFO *info); +ST_RET mp_altee_resp (MMSREQ_IND *ind, ALTEE_RESP_INFO *info); +#else +ST_RET mpl_altee (ALTEE_REQ_INFO *info); +ST_RET mpl_altee_resp (ST_UINT32 invoke, ALTEE_RESP_INFO *info); +#endif + +/************************************************************************/ +/* EVENT NOTIFICATION, Conformance: MCW1 (EVN3) */ +/************************************************************************/ + +/* REQUEST : */ + +struct evnot_req_info + { + OBJECT_NAME evenroll_name; /* event enrollment name */ + OBJECT_NAME evcon_name; /* event condition name */ + ST_UCHAR severity; /* severity */ + ST_BOOLEAN cur_state_pres; /* current state enable */ + ST_INT16 cur_state; /* current state */ + /* 0 : disabled */ + /* 1 : idle */ + /* 2 : active */ + EVENT_TIME trans_time; /* transition time */ + ST_UCHAR not_lost; /* notification lost */ + /* (default = false) */ + ST_BOOLEAN alarm_ack_rule_pres; /* alarm acknowledge rule pres */ + ST_INT16 alarm_ack_rule; /* alarm acknowledgment rule */ + /* 0 : none */ + /* 1 : simple */ + /* 2 : ack-active */ + /* 3 : ack-all */ + ST_BOOLEAN evact_result_pres; /* action result present */ + OBJECT_NAME evact_name; /* event action name */ + ST_INT16 evact_result_tag; /* event action result tag */ + /* 0 : success */ + /* 1 : failure */ + ST_INT conf_serv_resp_len; /* success: conf serv resp len */ + ST_UCHAR *conf_serv_resp; /* success: conf serv resp ptr */ + ST_BOOLEAN cs_rdetail_pres; /* success: CS resp detail pres */ + ST_INT cs_rdetail_len; /* success: CS resp detail len */ + ST_UCHAR *cs_rdetail; /* success: CS resp detail ptr */ + + ST_BOOLEAN mod_pos_pres; /* failure: mod pos present */ + ST_UINT32 mod_pos; /* failure: modifier position */ + ERR_INFO *serv_err; /* failure: service error ptr */ + + SD_END_STRUCT + }; +typedef struct evnot_req_info EVNOT_REQ_INFO; + +/* RESPONSE : NONE (unconfirmed) */ + +#ifndef MMS_LITE +ST_RET mp_evnot (ST_INT chan, EVNOT_REQ_INFO *info); +#else +ST_RET mpl_evnot (ASN1_ENC_CTXT *aCtx, EVNOT_REQ_INFO *info); +#endif + +/************************************************************************/ +/* ACKNOWLEDGE EVENT NOTIFICATION, Conformance: MCW1 (EVN3) */ +/************************************************************************/ + +/* REQUEST : */ + +struct ackevnot_req_info + { + OBJECT_NAME evenroll_name; /* event enrollment name */ + ST_INT16 ack_state; /* acknowledge state */ + EVENT_TIME evtime; /* event time */ + ST_BOOLEAN ackec_name_pres; /* ack event cond name present */ + OBJECT_NAME ackec_name; /* acknowledge event cond name */ + }; +typedef struct ackevnot_req_info ACKEVNOT_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_ackevnot (ST_INT chan, ACKEVNOT_REQ_INFO *info); +ST_RET mp_ackevnot_resp (MMSREQ_IND *info); +#else +ST_RET mpl_ackevnot (ACKEVNOT_REQ_INFO *info); +ST_RET mpl_ackevnot_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* GET ALARM SUMMARY, Conformance: EVN5 */ +/************************************************************************/ + +/* REQUEST : */ + +struct getas_req_info + { + ST_BOOLEAN enroll_only; /* enrollments only */ + /* (default = true) */ + ST_BOOLEAN act_alarms_only; /* active alarms only */ + /* (default = true) */ + ST_INT16 ack_filter; /* acknowledgement filter */ + /* 0 : not acked (default) */ + /* 1 : acked */ + /* 2 : all */ + /* severity filter */ + ST_UCHAR most_sev_filter; /* most severe (default=0) */ + ST_UCHAR least_sev_filter; /* least severe (default=127) */ + ST_BOOLEAN ca_pres; /* continue after name present */ + OBJECT_NAME ca_name; /* continue after name */ + }; +typedef struct getas_req_info GETAS_REQ_INFO; + +/* RESPONSE : */ + +struct getas_resp_info + { + ST_BOOLEAN more_follows; /* default = false */ + ST_INT num_of_alarm_sum; /* number of alarm summary */ +/* list of alarm summary data */ +/* ALARM_SUMMARY alarm_sum [num_of_alarm_sum]; */ + SD_END_STRUCT + }; +typedef struct getas_resp_info GETAS_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_getas (ST_INT chan, GETAS_REQ_INFO *info); +ST_RET mp_getas_resp (MMSREQ_IND *ind, GETAS_RESP_INFO *info); +#else +ST_RET mpl_getas (GETAS_REQ_INFO *info); +ST_RET mpl_getas_resp (ST_UINT32 invoke, GETAS_RESP_INFO *info); +#endif + +/************************************************************************/ +/* GET ALARM ENROLLMENT SUMMARY */ +/************************************************************************/ + +/* REQUEST : */ + +struct getaes_req_info + { + ST_BOOLEAN enroll_only; /* enrollments only */ + /* (default = true) */ + ST_BOOLEAN act_alarms_only; /* active alarms only */ + /* (default = true) */ + ST_INT16 ack_filter; /* acknowledgement filter */ + /* 0 : not acked (default) */ + /* 1 : acked */ + /* 2 : all */ + /* severity filter */ + ST_UCHAR most_sev_filter; /* most severe (default=0) */ + ST_UCHAR least_sev_filter; /* least severe (default=127) */ + ST_BOOLEAN ca_name_pres; /* continue after name present */ + OBJECT_NAME ca_name; /* continue after name */ + }; +typedef struct getaes_req_info GETAES_REQ_INFO; + +/* RESPONSE : */ + +struct getaes_resp_info + { + ST_BOOLEAN more_follows; /* default = false */ + ST_INT num_of_alarm_esum; /* # of alarm enroll summary */ +/* list of alarm enroll summary */ +/* ALARM_ENROLL_SUMMARY alarm_enroll_sum [num_of_alarm_esum]; */ + SD_END_STRUCT + }; +typedef struct getaes_resp_info GETAES_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_getaes (ST_INT chan, GETAES_REQ_INFO *info); +ST_RET mp_getaes_resp (MMSREQ_IND *ind, GETAES_RESP_INFO *info); +#else +ST_RET mpl_getaes (GETAES_REQ_INFO *info); +ST_RET mpl_getaes_resp (ST_UINT32 invoke, GETAES_RESP_INFO *info); +#endif + +#ifdef __cplusplus +} +#endif + +#endif /* #define MMS_PEVN_INCLUDED */ diff --git a/include/inc/mms_pfil.h b/include/inc/mms_pfil.h new file mode 100644 index 0000000..f1cf773 --- /dev/null +++ b/include/inc/mms_pfil.h @@ -0,0 +1,297 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 1997, All Rights Reserved. */ +/* */ +/* MODULE NAME : mms_pfil.h */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This file has the data structures and function definitions */ +/* required to interface with MMS file services at the primitive */ +/* level. */ +/* */ +/* Parameters : In general, the first parameter is the channel */ +/* that the request or response is to be sent over. */ +/* For Responses, the second parameter is the Invoke */ +/* ID to be used. The last parameter is used to pass */ +/* operation specific information by pointer. */ +/* */ +/* Return */ +/* Values : Request functions return a pointer to the pending */ +/* request tracking structure, of type MMSREQ_PEND. */ +/* In case of error, the pointer is returned == 0 */ +/* and mms_op_err is written with the err code. */ +/* Response functions return 0 if OK, else an error */ +/* code. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 08/14/97 RKR 01 Format changes */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef MMS_PFIL_INCLUDED +#define MMS_PFIL_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "mms_mp.h" + +/************************************************************************/ +/************************************************************************/ +/* FILE MANAGEMENT SERVICES */ +/************************************************************************/ +/* The structures below are used to pass FILE MANAGEMENT information */ +/* to/from the MMS primitives. */ +/************************************************************************/ + +#define MFSTAT_NO_ACT 0 +#define MFSTAT_PEND_OPEN 1 +#define MFSTAT_OPENED 2 +#define MFSTAT_PEND_CLOSE 3 + +/************************************************************************/ +/* OBTAIN FILE, Conformance: FIL1 */ +/************************************************************************/ + +/* REQUEST : */ + +struct obtfile_req_info + { + ST_BOOLEAN ar_title_pres; /* application title present */ + ST_INT ar_len; /* length of app proc title */ + ST_UCHAR *ar_title; /* application process title */ + ST_INT num_of_src_fname; /* num of source fname elements */ + ST_INT num_of_dest_fname; /* num of dest. fname elements */ +/* list of source file names */ +/* FILE_NAME src_fname_list[ num_of_src_fname ]; */ +/* list of dest. file names */ +/* FILE_NAME dest_fname_list[ num_of_dest_fname ]; */ + SD_END_STRUCT + }; +typedef struct obtfile_req_info OBTFILE_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_obtfile (ST_INT chan, OBTFILE_REQ_INFO *info); +ST_RET mp_obtfile_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_obtfile (OBTFILE_REQ_INFO *info); +ST_RET mpl_obtfile_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* FILE OPEN, Conformance: FIL2 */ +/************************************************************************/ + +/* REQUEST : */ + +struct fopen_req_info + { + ST_INT num_of_fname; /* num of fname elements */ + ST_UINT32 init_pos; /* initial position */ +/* list of file names */ +/* FILE_NAME fname_list[ num_of_fname ]; */ + SD_END_STRUCT + }; +typedef struct fopen_req_info FOPEN_REQ_INFO; + +/* RESPONSE : */ + +struct file_attr + { + ST_UINT32 fsize; /* file size (# bytes) */ + ST_BOOLEAN mtimpres; /* last modified time present */ + time_t mtime; /* last modified time */ + }; +typedef struct file_attr FILE_ATTR; + +struct fopen_resp_info + { + ST_INT32 frsmid; /* file read state machine ID */ + FILE_ATTR ent; /* file attributes */ + }; +typedef struct fopen_resp_info FOPEN_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_fopen (ST_INT chan, FOPEN_REQ_INFO *info); +ST_RET mp_fopen_resp (MMSREQ_IND *ind, FOPEN_RESP_INFO *info); +#else +ST_RET mpl_fopen (FOPEN_REQ_INFO *info); +ST_RET mpl_fopen_resp (ST_UINT32 invoke, FOPEN_RESP_INFO *info); +#endif + +/************************************************************************/ +/* FILE READ, Conformance: FIL2 */ +/************************************************************************/ + +/* REQUEST : */ + +struct fread_req_info + { + ST_INT32 frsmid; /* file read state maching ID */ + }; +typedef struct fread_req_info FREAD_REQ_INFO; + +/* RESPONSE : */ + +struct fread_resp_info + { + ST_INT fd_len; /* length of file data octets */ + ST_UCHAR *filedata; /* pointer to file data octets */ + ST_BOOLEAN more_follows; /* additional file content */ + /* default: SD_TRUE */ + SD_END_STRUCT + }; +typedef struct fread_resp_info FREAD_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_fread (ST_INT chan,FREAD_REQ_INFO *info); +ST_RET mp_fread_resp (MMSREQ_IND *ind, FREAD_RESP_INFO *info); +#else +ST_RET mpl_fread (FREAD_REQ_INFO *info); +ST_RET mpl_fread_resp (ST_UINT32 invoke, FREAD_RESP_INFO *info); +#endif + +/************************************************************************/ +/* FILE CLOSE, Conformance: FIL2 */ +/************************************************************************/ + +/* REQUEST : */ + +struct fclose_req_info + { + ST_INT32 frsmid; /* file read state maching ID */ + }; +typedef struct fclose_req_info FCLOSE_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_fclose (ST_INT chan, FCLOSE_REQ_INFO *info); +ST_RET mp_fclose_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_fclose (FCLOSE_REQ_INFO *info); +ST_RET mpl_fclose_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* FILE RENAME, Conformance: FIL3 */ +/************************************************************************/ + +/* REQUEST : */ + +struct frename_req_info + { + ST_INT num_of_cur_fname; /* num of current fname elements*/ + ST_INT num_of_new_fname; /* num of new fname elements */ +/* list of current file names */ +/* FILE_NAME cur_fname_list[ num_of_cur_fname ]; */ +/* list of new file names */ +/* FILE_NAME new_fname_list[ num_of_new_fname ]; */ + SD_END_STRUCT + }; +typedef struct frename_req_info FRENAME_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_frename (ST_INT chan, FRENAME_REQ_INFO *info); +ST_RET mp_frename_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_frename (FRENAME_REQ_INFO *info); +ST_RET mpl_frename_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* FILE DELETE, Conformance: FIL3 */ +/************************************************************************/ + +/* REQUEST : */ + +struct fdelete_req_info + { + ST_INT num_of_fname; /* num of fname elements */ +/* list of file names */ +/* FILE_NAME fname_list[ num_of_fname ]; */ + SD_END_STRUCT + }; +typedef struct fdelete_req_info FDELETE_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_fdelete (ST_INT chan, FDELETE_REQ_INFO *info); +ST_RET mp_fdelete_resp (MMSREQ_IND *info); +#else +ST_RET mpl_fdelete (FDELETE_REQ_INFO *info); +ST_RET mpl_fdelete_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* FILE DIRECTORY, Conformance: FIL3 */ +/************************************************************************/ + +/* REQUEST : */ + +struct fdir_req_info + { + ST_BOOLEAN filespec_pres; /* file specification present */ + ST_BOOLEAN cont_after_pres; /* continue after name present */ + ST_INT num_of_fs_fname; /* num of fname elements */ + ST_INT num_of_ca_fname; /* num of cont after elements */ +/* list of current file names */ +/* FILE_NAME fs_fname_list[ num_of_fs_fname ]; */ +/* list of new file names */ +/* FILE_NAME ca_fname_list[ num_of_ca_fname ]; */ + SD_END_STRUCT + }; +typedef struct fdir_req_info FDIR_REQ_INFO; + +/* RESPONSE : */ + +struct fdir_dir_ent + { + ST_UINT32 fsize; /* file size (# bytes) */ + ST_BOOLEAN mtimpres; /* last modified time present */ + time_t mtime; /* last modified time */ + ST_INT num_of_fname; /* num of fname elements */ +/* list of file names */ +/* FILE_NAME fname_list[ num_of_fname ]; */ + SD_END_STRUCT + }; +typedef struct fdir_dir_ent FDIR_DIR_ENT; + +struct fdir_resp_info + { + ST_INT num_dir_ent; /* number of directory entries */ + ST_BOOLEAN more_follows; /* more dir entries follow */ + /* default: SD_FALSE */ +/* list of directory entries */ +/* FDIR_DIR_ENT dir_ent_list [num_dir_ent] */ + SD_END_STRUCT + }; +typedef struct fdir_resp_info FDIR_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_fdir (ST_INT chan,FDIR_REQ_INFO *info); +ST_RET mp_fdir_resp (MMSREQ_IND *ind, FDIR_RESP_INFO *info); +#else +ST_RET mpl_fdir (FDIR_REQ_INFO *info); +ST_RET mpl_fdir_resp (ST_UINT32 invoke, FDIR_RESP_INFO *info); +#endif + +#ifdef __cplusplus +} +#endif + +#endif /* #define MMS_PFIL_INCLUDED */ + + diff --git a/include/inc/mms_pjou.h b/include/inc/mms_pjou.h new file mode 100644 index 0000000..3c7ea62 --- /dev/null +++ b/include/inc/mms_pjou.h @@ -0,0 +1,299 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 1997, All Rights Reserved. */ +/* */ +/* MODULE NAME : mms_pjou.h */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This file has the data structures and function definitions */ +/* required to interface with MMS journal management services */ +/* at the primitive level. */ +/* */ +/* Parameters : In general, the first parameter is the channel */ +/* that the request or response is to be sent over. */ +/* For Responses, the second parameter is the Invoke */ +/* ID to be used. The last parameter is used to pass */ +/* operation specific information by pointer. */ +/* */ +/* Return */ +/* Values : Request functions return a pointer to the pending */ +/* request tracking structure, of type MMSREQ_PEND. */ +/* In case of error, the pointer is returned == 0 */ +/* and mms_op_err is written with the err code. */ +/* Response functions return 0 if OK, else an error */ +/* code. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 07/15/98 MDE 03 Added entry_form_tag defines */ +/* 08/15/97 MDE 02 BTOD handling changes */ +/* 08/14/97 RKR 01 Format changes */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef MMS_PJOU_INCLUDED +#define MMS_PJOU_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "mms_pvar.h" +#include "mms_mp.h" + +/************************************************************************/ +/************************************************************************/ +/* JOURNAL MANAGEMENT SERVICES */ +/************************************************************************/ +/* The structures below are used to pass JOURNAL MANAGEMENT information */ +/* to/from the MMS primitives. */ +/************************************************************************/ + +/* entry_form_tag value defines */ +#define JE_FORM_DATA 2 +#define JE_FORM_ANNOTATION 3 + +struct var_info + { + ST_CHAR *var_tag; /* variable tag */ + VAR_ACC_DATA value_spec; /* value specification data */ + }; +typedef struct var_info VAR_INFO; + +struct entry_content + { + MMS_BTOD occur_time; /* occurrence time */ + ST_BOOLEAN addl_detail_pres; /* additional detail present */ + ST_INT addl_detail_len; /* length of additional detail */ + ST_UCHAR *addl_detail; /* pointer to additional detail */ + ST_INT16 entry_form_tag; /* entry form tag */ + union + { + struct /* entry form is DATA */ + { + ST_BOOLEAN event_pres; /* event present */ + OBJECT_NAME evcon_name; /* event condition name */ + ST_INT16 cur_state; /* current state */ + /* 0 : disabled */ + /* 1 : idle */ + /* 2 : active */ + ST_BOOLEAN list_of_var_pres; /* list of variables present */ + ST_INT num_of_var; /* number of variables */ + } data; + ST_CHAR *annotation; /* pointer to annotation */ + }ef; +/* for form == DATA, need a */ +/* list of variables */ +/* VAR_INFO list_of_var [num_of_var]; */ + SD_END_STRUCT + }; +typedef struct entry_content ENTRY_CONTENT; + +struct journal_entry + { + ST_INT entry_id_len; /* length of entry identifier */ + ST_UCHAR *entry_id; /* ptr to entry identifier */ + ST_INT orig_ae_len; /* originating app entity len */ + ST_UCHAR *orig_ae; /* originating app entity */ + ENTRY_CONTENT ent_content; /* entry content */ + }; +typedef struct journal_entry JOURNAL_ENTRY; + +/************************************************************************/ +/* READ JOURNAL, Conformance: JOU2 */ +/************************************************************************/ + +/* REQUEST : */ + +struct jread_req_info + { + OBJECT_NAME jou_name; /* journal name */ + ST_BOOLEAN range_start_pres; /* range start spec present */ + ST_INT16 start_tag; /* start tag */ + /* 0 - starting time */ + /* 1 - starting entry */ + MMS_BTOD start_time; /* range starting time */ + ST_INT start_entry_len; /* length of starting entry */ + ST_UCHAR *start_entry; /* pointer to starting entry */ + ST_BOOLEAN range_stop_pres; /* range stop spec present */ + ST_INT16 stop_tag; /* stop tag */ + /* 0 - ending time */ + /* 1 - number of entries */ + MMS_BTOD end_time; /* range ending time */ + ST_INT32 num_of_entries; /* number of entries */ + ST_BOOLEAN list_of_var_pres; /* list of variables present */ + ST_INT num_of_var; /* number of variables */ + ST_BOOLEAN sa_entry_pres; /* start after entry present */ + MMS_BTOD time_spec; /* time specification */ + ST_INT entry_spec_len; /* entry specification length */ + ST_UCHAR *entry_spec; /* entry specification */ +/* list of pointers to variables*/ +/* ST_CHAR *list_of_var [num_of_var]; */ + SD_END_STRUCT + }; +typedef struct jread_req_info JREAD_REQ_INFO; + +/* RESPONSE : */ + +struct jread_resp_info + { + ST_INT num_of_jou_entry; /* number of journal entries */ + ST_BOOLEAN more_follows; /* default = false */ +/* list of journal entries */ +/* JOURNAL_ENTRY list_of_jou_entry [num_of_jou_entry]; */ + SD_END_STRUCT + }; +typedef struct jread_resp_info JREAD_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_jread (ST_INT chan, JREAD_REQ_INFO *info); +ST_RET mp_jread_resp (MMSREQ_IND *ind, JREAD_RESP_INFO *info); +#else +ST_RET mpl_jread (JREAD_REQ_INFO *info); +ST_RET mpl_jread_resp (ST_UINT32 invoke, JREAD_RESP_INFO *info); +#endif + +/************************************************************************/ +/* WRITE JOURNAL, Conformance: JOU1 */ +/************************************************************************/ + +/* REQUEST : */ + +struct jwrite_req_info + { + OBJECT_NAME jou_name; /* journal name */ + ST_INT num_of_jou_entry; /* number of journal entries */ +/* list of journal entries */ +/* ENTRY_CONTENT list_of_jou_entry [num_of_jou_entry]; */ + SD_END_STRUCT + }; +typedef struct jwrite_req_info JWRITE_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_jwrite (ST_INT chan, JWRITE_REQ_INFO *info); +ST_RET mp_jwrite_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_jwrite (JWRITE_REQ_INFO *info); +ST_RET mpl_jwrite_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* INITIALIZE JOURNAL, Conformance: JOU2 */ +/************************************************************************/ + +/* REQUEST : */ + +struct jinit_req_info + { + OBJECT_NAME jou_name; /* journal name */ + ST_BOOLEAN limit_spec_pres; /* limit specification present */ + MMS_BTOD limit_time; /* limiting time */ + ST_BOOLEAN limit_entry_pres; /* limiting entry present */ + ST_INT limit_entry_len; /* length of limiting entry */ + ST_UCHAR *limit_entry; /* pointer to limiting entry */ + SD_END_STRUCT + }; +typedef struct jinit_req_info JINIT_REQ_INFO; + +/* RESPONSE : */ + +struct jinit_resp_info + { + ST_UINT32 del_entries; /* deleted entries */ + }; +typedef struct jinit_resp_info JINIT_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_jinit (ST_INT chan, JINIT_REQ_INFO *info); +ST_RET mp_jinit_resp (MMSREQ_IND *ind, JINIT_RESP_INFO *info); +#else +ST_RET mpl_jinit (JINIT_REQ_INFO *info); +ST_RET mpl_jinit_resp (ST_UINT32 invoke, JINIT_RESP_INFO *info); +#endif + +/************************************************************************/ +/* REPORT JOURNAL STATUS, Conformance: JOU2 */ +/************************************************************************/ + +/* REQUEST : */ + +struct jstat_req_info + { + OBJECT_NAME jou_name; /* journal name */ + }; +typedef struct jstat_req_info JSTAT_REQ_INFO; + +/* RESPONSE : */ + +struct jstat_resp_info + { + ST_UINT32 cur_entries; /* current entries */ + ST_BOOLEAN mms_deletable; /* MMS deletable */ + SD_END_STRUCT + }; +typedef struct jstat_resp_info JSTAT_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_jstat (ST_INT chan, JSTAT_REQ_INFO *info); +ST_RET mp_jstat_resp (MMSREQ_IND *ind, JSTAT_RESP_INFO *info); +#else +ST_RET mpl_jstat (JSTAT_REQ_INFO *info); +ST_RET mpl_jstat_resp (ST_UINT32 invoke, JSTAT_RESP_INFO *info); +#endif + +/************************************************************************/ +/* CREATE JOURNAL */ +/************************************************************************/ + +/* REQUEST : */ + +struct jcreate_req_info + { + OBJECT_NAME jou_name; /* journal name */ + }; +typedef struct jcreate_req_info JCREATE_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_jcreate (ST_INT chan, JCREATE_REQ_INFO *info); +ST_RET mp_jcreate_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_jcreate (JCREATE_REQ_INFO *info); +ST_RET mpl_jcreate_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* DELETE JOURNAL */ +/************************************************************************/ + +/* REQUEST : */ + +struct jdelete_req_info + { + OBJECT_NAME jou_name; /* journal name */ + }; +typedef struct jdelete_req_info JDELETE_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_jdelete (ST_INT chan, JDELETE_REQ_INFO *info); +ST_RET mp_jdelete_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_jdelete (JDELETE_REQ_INFO *info); +ST_RET mpl_jdelete_resp (ST_UINT32 invoke); +#endif + +#ifdef __cplusplus +} +#endif + +#endif /* #define MMS_PJOU_INCLUDED */ diff --git a/include/inc/mms_pocs.h b/include/inc/mms_pocs.h new file mode 100644 index 0000000..b52bff2 --- /dev/null +++ b/include/inc/mms_pocs.h @@ -0,0 +1,120 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 1997, All Rights Reserved. */ +/* */ +/* MODULE NAME : mms_pocs.h */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This file has the data structures and function definitions */ +/* required to interface with MMS operator communication services */ +/* at the primitive level. */ +/* */ +/* Parameters : In general, the first parameter is the channel */ +/* that the request or response is to be sent over. */ +/* For Responses, the second parameter is the Invoke */ +/* ID to be used. The last parameter is used to pass */ +/* operation specific information by pointer. */ +/* */ +/* Return */ +/* Values : Request functions return a pointer to the pending */ +/* request tracking structure, of type MMSREQ_PEND. */ +/* In case of error, the pointer is returned == 0 */ +/* and mms_op_err is written with the err code. */ +/* Response functions return 0 if OK, else an error */ +/* code. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 08/14/97 RKR 01 Format changes */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef MMS_POCS_INCLUDED +#define MMS_POCS_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "mms_mp.h" + +/************************************************************************/ +/************************************************************************/ +/* OPERATOR COMMUNICATION FUNCTIONS */ +/************************************************************************/ +/* The structures below are used to pass OPERATOR COMMUNICATION */ +/* operation information to/from the MMS primitives. */ +/************************************************************************/ + +/************************************************************************/ +/* OUTPUT OPERATION, Conformance: OCS1 */ +/************************************************************************/ + +/* REQUEST : */ + +struct output_req_info + { + ST_CHAR station_name [MAX_IDENT_LEN+1]; /* operator station name */ + ST_INT data_count; /* number of data strings */ +/* list of pointers to the output data */ +/* ST_CHAR *output_data [data_count]; */ + SD_END_STRUCT + }; +typedef struct output_req_info OUTPUT_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_output (ST_INT chan, OUTPUT_REQ_INFO *info); +ST_RET mp_output_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_output (OUTPUT_REQ_INFO *info); +ST_RET mpl_output_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* INPUT OPERATION, Conformance: OCS2 */ +/************************************************************************/ + +/* REQUEST : */ + +struct input_req_info + { + ST_CHAR station_name [MAX_IDENT_LEN+1]; /* operator station name */ + ST_BOOLEAN echo; /* echo, default: SD_TRUE */ + ST_BOOLEAN timeout_pres; /* input timeout present ind */ + ST_UINT32 timeout; /* input timeout */ + ST_BOOLEAN prompt_pres; /* prompt data present ind */ + ST_INT prompt_count; /* number of prompt strings */ +/* list of pointers to the prompt data */ +/* ST_CHAR *prompt_data [prompt_count]; */ + SD_END_STRUCT + }; +typedef struct input_req_info INPUT_REQ_INFO; + +/* RESPONSE : */ + +struct input_resp_info + { + ST_CHAR *input_resp; /* input response */ + }; +typedef struct input_resp_info INPUT_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_input (ST_INT chan, INPUT_REQ_INFO *info); +ST_RET mp_input_resp (MMSREQ_IND *ind, INPUT_RESP_INFO *info); +#else +ST_RET mpl_input (INPUT_REQ_INFO *info); +ST_RET mpl_input_resp (ST_UINT32 invoke, INPUT_RESP_INFO *info); +#endif + +#ifdef __cplusplus +} +#endif + +#endif /* #define MMS_POCS_INCLUDED */ diff --git a/include/inc/mms_pprg.h b/include/inc/mms_pprg.h new file mode 100644 index 0000000..b2259c1 --- /dev/null +++ b/include/inc/mms_pprg.h @@ -0,0 +1,287 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 1997, All Rights Reserved. */ +/* */ +/* MODULE NAME : mms_pprg.h */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This file has the data structures and function definitions */ +/* required to interface with MMS program invocation management */ +/* services at the primitive level. */ +/* */ +/* Parameters : In general, the first parameter is the channel */ +/* that the request or response is to be sent over. */ +/* For Responses, the second parameter is the Invoke */ +/* ID to be used. The last parameter is used to pass */ +/* operation specific information by pointer. */ +/* */ +/* Return */ +/* Values : Request functions return a pointer to the pending */ +/* request tracking structure, of type MMSREQ_PEND. */ +/* In case of error, the pointer is returned == 0 */ +/* and mms_op_err is written with the err code. */ +/* Response functions return 0 if OK, else an error */ +/* code. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 08/14/97 RKR 02 Format changes */ +/* 06/09/97 MDE 01 Added PI State defines (from mms_vprg.h) */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef MMS_PPRG_INCLUDED +#define MMS_PPRG_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +/************************************************************************/ +/************************************************************************/ +/* PROGRAM INVOCATION MANAGEMENT SERVICES */ +/************************************************************************/ +/* The structures below are used to pass PROGRAM INVOCATION MANAGEMENT */ +/* information to/from the MMS primitives. */ +/************************************************************************/ +/* use these defines to determine whether string is simple or encoded */ +/* If encoded, the data pointer points to a complete ASN.1 EXTERNAL */ + +#define ARG_TYPE_SIMPLE 0 +#define ARG_TYPE_ENCODED 1 + +/************************************************************************/ +/* CREATE PROGRAM INVOCATION */ +/************************************************************************/ + +/* REQUEST : */ + +struct crepi_req_info + { + ST_CHAR piname [MAX_IDENT_LEN+1]; /* program invocation name */ + ST_INT num_of_dnames; /* number of domain names */ + ST_BOOLEAN reusable; + ST_BOOLEAN monitor_pres; /* monitoring present */ + ST_BOOLEAN monitor; /* SD_TRUE : permanent monitoring */ + /* SD_FALSE: current monitoring */ + +/* list of ptrs to domain names */ +/* ST_CHAR *dnames_list [num_of_dnames]; */ + SD_END_STRUCT + }; +typedef struct crepi_req_info CREPI_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_crepi (ST_INT chan, CREPI_REQ_INFO *info); +ST_RET mp_crepi_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_crepi (CREPI_REQ_INFO *info); +ST_RET mpl_crepi_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* DELETE PROGRAM INVOCATION */ +/************************************************************************/ + +/* REQUEST : */ + +struct delpi_req_info + { + ST_CHAR piname [MAX_IDENT_LEN+1]; /* program invocation name */ + }; +typedef struct delpi_req_info DELPI_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_delpi (ST_INT chan, DELPI_REQ_INFO *info); +ST_RET mp_delpi_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_delpi (DELPI_REQ_INFO *info); +ST_RET mpl_delpi_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* START */ +/************************************************************************/ + +/* REQUEST : */ + +struct start_req_info + { + ST_CHAR piname [MAX_IDENT_LEN+1]; /* program invocation name */ + + ST_INT16 start_arg_type; /* start argument present */ + ST_BOOLEAN start_arg_pres; /* start argument present */ + ST_INT start_arg_len; /* Only used for ENCODED */ + ST_UCHAR *start_arg; /* pointer to start argument */ + SD_END_STRUCT + }; +typedef struct start_req_info START_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_start (ST_INT chan, START_REQ_INFO *info); +ST_RET mp_start_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_start (START_REQ_INFO *info); +ST_RET mpl_start_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* STOP */ +/************************************************************************/ + +/* REQUEST : */ + +struct stop_req_info + { + ST_CHAR piname [MAX_IDENT_LEN+1]; /* program invocation name */ + }; +typedef struct stop_req_info STOP_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_stop (ST_INT chan, STOP_REQ_INFO *info); +ST_RET mp_stop_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_stop (STOP_REQ_INFO *info); +ST_RET mpl_stop_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* RESUME */ +/************************************************************************/ + +/* REQUEST : */ + +struct resume_req_info + { + ST_CHAR piname [MAX_IDENT_LEN+1]; /* program invocation name */ + + ST_INT16 resume_arg_type; /* resume argument present */ + ST_BOOLEAN resume_arg_pres; /* resume argument present */ + ST_INT resume_arg_len; /* Only used for ENCODED */ + ST_UCHAR *resume_arg; /* pointer to resume argument */ + }; +typedef struct resume_req_info RESUME_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_resume (ST_INT chan, RESUME_REQ_INFO *info); +ST_RET mp_resume_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_resume (RESUME_REQ_INFO *info); +ST_RET mpl_resume_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* RESET */ +/************************************************************************/ + +/* REQUEST : */ + +struct reset_req_info + { + ST_CHAR piname [MAX_IDENT_LEN+1]; /* program invocation name */ + }; +typedef struct reset_req_info RESET_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_reset (ST_INT chan, RESET_REQ_INFO *info); +ST_RET mp_reset_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_reset (RESET_REQ_INFO *info); +ST_RET mpl_reset_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* KILL */ +/************************************************************************/ + +/* REQUEST : */ + +struct kill_req_info + { + ST_CHAR piname [MAX_IDENT_LEN+1]; /* program invocation name */ + }; +typedef struct kill_req_info KILL_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_kill (ST_INT chan, KILL_REQ_INFO *info); +ST_RET mp_kill_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_kill (KILL_REQ_INFO *info); +ST_RET mpl_kill_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* GET PROGRAM INVOCATION ATTRIBUTE */ +/************************************************************************/ + +#define PI_NON_EXISTENT 0 +#define PI_UNRUNNABLE 1 +#define PI_IDLE 2 +#define PI_RUNNING 3 +#define PI_STOPPED 4 +#define PI_STARTING 5 +#define PI_STOPPING 6 +#define PI_RESUMING 7 +#define PI_RESETTING 8 + +/* REQUEST : */ + +struct getpi_req_info + { + ST_CHAR piname [MAX_IDENT_LEN+1]; /* program invocation name */ + }; +typedef struct getpi_req_info GETPI_REQ_INFO; + +/* RESPONSE : */ + +struct getpi_resp_info + { + ST_INT16 state; /* program invocation state */ + ST_BOOLEAN mms_deletable; /* MMS deletable */ + ST_BOOLEAN reusable; /* Reusable */ + ST_BOOLEAN monitor; /* SD_TRUE : permanent monitoring */ + /* SD_FALSE: current monitoring */ + + ST_INT16 start_arg_type; /* start argument present */ + ST_INT start_arg_len; /* Only used for ENCODED */ + ST_UCHAR *start_arg; /* pointer to start argument */ + + ST_INT num_of_dnames; /* number of domain names */ +/* list of ptrs to domain names */ +/* ST_CHAR *dnames_list [num_of_dnames]; */ + SD_END_STRUCT + }; +typedef struct getpi_resp_info GETPI_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_getpi (ST_INT chan, GETPI_REQ_INFO *info); +ST_RET mp_getpi_resp (MMSREQ_IND *ind, GETPI_RESP_INFO *info); +#else +ST_RET mpl_getpi (GETPI_REQ_INFO *info); +ST_RET mpl_getpi_resp (ST_UINT32 invoke, GETPI_RESP_INFO *info); +#endif + +#ifdef __cplusplus +} +#endif + +#endif /* #define MMS_PPRG_INCLUDED */ diff --git a/include/inc/mms_psem.h b/include/inc/mms_psem.h new file mode 100644 index 0000000..bdca016 --- /dev/null +++ b/include/inc/mms_psem.h @@ -0,0 +1,338 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 1997, All Rights Reserved. */ +/* */ +/* MODULE NAME : mms_psem.h */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This file has the data structures and function definitions */ +/* required to interface with MMS semaphore management services */ +/* at the primitive level. */ +/* */ +/* Parameters : In general, the first parameter is the channel */ +/* that the request or response is to be sent over. */ +/* For Responses, the second parameter is the Invoke */ +/* ID to be used. The last parameter is used to pass */ +/* operation specific information by pointer. */ +/* */ +/* Return */ +/* Values : Request functions return a pointer to the pending */ +/* request tracking structure, of type MMSREQ_PEND. */ +/* In case of error, the pointer is returned == 0 */ +/* and mms_op_err is written with the err code. */ +/* Response functions return 0 if OK, else an error */ +/* code. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/10/97 MDE 02 Changed entry_class to ST_INT8 */ +/* 08/14/97 RKR 01 Format changes */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef MMS_PSEM_INCLUDED +#define MMS_PSEM_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "mms_mp.h" + +/************************************************************************/ +/************************************************************************/ +/* SEMAPHORE MANAGEMENT FUNCTIONS */ +/************************************************************************/ +/* The structures below are used to pass SEMAPHORE MANAGEMENT operation */ +/* information to/from the MMS primitives. */ +/************************************************************************/ + +/************************************************************************/ +/* TAKE CONTROL, Conformance: SEM1/SEM3 */ +/************************************************************************/ + +/* REQUEST : */ + +struct takectrl_req_info + { + OBJECT_NAME sem_name; /* semaphore name */ + ST_BOOLEAN named_token_pres; /* named token present ind */ + ST_CHAR named_token[MAX_IDENT_LEN+1]; /* named token */ + ST_UCHAR priority; /* priority */ + /* 0 - highest */ + /* 64 - normal (default) */ + /* 127 - lowest */ + ST_BOOLEAN acc_delay_pres; /* acceptable delay present ind */ + ST_UINT32 acc_delay; /* acceptable delay */ + ST_BOOLEAN ctrl_timeout_pres; /* control timeout present */ + ST_UINT32 ctrl_timeout; /* control timeout */ + ST_BOOLEAN abrt_on_timeout_pres; /* Abort on Timeout present */ + ST_BOOLEAN abrt_on_timeout; /* Abort on Timeout */ + ST_BOOLEAN rel_conn_lost; /* relenquish if connection lost*/ + ST_BOOLEAN app_preempt_pres; /* app preempt present ind */ + ST_INT app_len; /* length of app. to preempt */ + ST_UCHAR *app_preempt; /* application to preempt */ + SD_END_STRUCT + }; +typedef struct takectrl_req_info TAKECTRL_REQ_INFO; + +/* RESPONSE : */ + +struct takectrl_resp_info + { + ST_INT16 resp_tag; /* response tag */ + /* 0 : NULL response */ + /* 1 : named token response */ + ST_CHAR named_token [MAX_IDENT_LEN+1]; /* named token identifier */ + SD_END_STRUCT + }; +typedef struct takectrl_resp_info TAKECTRL_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_takectrl (ST_INT chan, TAKECTRL_REQ_INFO *info); +ST_RET mp_takectrl_resp (MMSREQ_IND *ind, TAKECTRL_RESP_INFO *info); +#else +ST_RET mpl_takectrl (TAKECTRL_REQ_INFO *info); +ST_RET mpl_takectrl_resp (ST_UINT32 invoke, TAKECTRL_RESP_INFO *info); +#endif + +/************************************************************************/ +/* RELINQUISH CONTROL, Conformance: SEM1/SEM3 */ +/************************************************************************/ + +/* REQUEST : */ + +struct relctrl_req_info + { + OBJECT_NAME sem_name; /* semaphore name */ + ST_BOOLEAN named_token_pres; /* named token present ind */ + ST_CHAR named_token [MAX_IDENT_LEN+1];/* named token */ + SD_END_STRUCT + }; +typedef struct relctrl_req_info RELCTRL_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_relctrl (ST_INT chan, RELCTRL_REQ_INFO *info); +ST_RET mp_relctrl_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_relctrl (RELCTRL_REQ_INFO *info); +ST_RET mpl_relctrl_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* REPORT SEMAPHORE STATUS, Conformance: SEM1/SEM3 */ +/************************************************************************/ + +/* REQUEST : */ + +struct rsstat_req_info + { + OBJECT_NAME sem_name; /* semaphore name */ + }; +typedef struct rsstat_req_info RSSTAT_REQ_INFO; + +/* RESPONSE : */ + +struct rsstat_resp_info + { + ST_BOOLEAN mms_deletable; /* mms deletable */ + ST_INT16 tclass; /* class: token (0) or pool (1) */ + ST_UINT16 num_of_tokens; /* number of tokens */ + ST_UINT16 num_of_owned; /* number of owned tokens */ + ST_UINT16 num_of_hung; /* number of hung tokens */ + SD_END_STRUCT + }; +typedef struct rsstat_resp_info RSSTAT_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_rsstat (ST_INT chan, RSSTAT_REQ_INFO *info); +ST_RET mp_rsstat_resp (MMSREQ_IND *ind, RSSTAT_RESP_INFO *info); +#else +ST_RET mpl_rsstat (RSSTAT_REQ_INFO *info); +ST_RET mpl_rsstat_resp (ST_UINT32 invoke, RSSTAT_RESP_INFO *info); +#endif + +/************************************************************************/ +/* REPORT POOL SEMAPHORE STATUS, Conformance: SEM1/SEM3 */ +/************************************************************************/ + +/* REQUEST : */ + +struct rspool_req_info + { + OBJECT_NAME sem_name; /* semaphore name */ + ST_BOOLEAN start_after_pres; /* start after name present ind */ + ST_CHAR start_after [MAX_IDENT_LEN+1]; /* name to start after */ + SD_END_STRUCT + }; +typedef struct rspool_req_info RSPOOL_REQ_INFO; + +/* RESPONSE : */ + +#if !defined (USE_COMPACT_MMS_STRUCTS) + +struct token_id + { + ST_INT16 token_tag; /* named token tag */ + /* 0 : free named token */ + /* 1 : owned named token */ + /* 2 : hung named token */ + ST_CHAR named_token[MAX_IDENT_LEN+1];/* named token id */ + SD_END_STRUCT + }; + +#else /* Use compact form */ + +struct token_id + { + ST_INT16 token_tag; /* named token tag */ + /* 0 : free named token */ + /* 1 : owned named token */ + /* 2 : hung named token */ + ST_CHAR *named_token; /* named token id */ + SD_END_STRUCT + }; +#endif + +typedef struct token_id TOKEN_ID; + +struct rspool_resp_info + { + ST_INT16 num_of_tokens; /* number of named tokens */ + ST_BOOLEAN more_follows; /* more follows indicator */ +/* list of named tokens */ +/* TOKEN_ID named_token_list [num_of_tokens]; */ + SD_END_STRUCT + }; +typedef struct rspool_resp_info RSPOOL_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_rspool (ST_INT chan, RSPOOL_REQ_INFO *info); +ST_RET mp_rspool_resp (MMSREQ_IND *ind, RSPOOL_RESP_INFO *info); +#else +ST_RET mpl_rspool (RSPOOL_REQ_INFO *info); +ST_RET mpl_rspool_resp (ST_UINT32 invoke, RSPOOL_RESP_INFO *info); +#endif + + +/************************************************************************/ +/* REPORT SEMAPHORE ENTRY STATUS, Conformance: SEM1/SEM3 */ +/************************************************************************/ + +/* REQUEST : */ + +struct rsentry_req_info + { + OBJECT_NAME sem_name; /* semaphore name */ + ST_INT16 state; /* state: 0 : queued */ + /* 1 : owner */ + /* 2 : hung */ + ST_BOOLEAN start_after_pres; /* start after id present ind */ + ST_INT sa_len; /* length of entry id to start */ + /* after */ + ST_UCHAR *start_after; /* pointer to entry id to start */ + /* after */ + SD_END_STRUCT + }; +typedef struct rsentry_req_info RSENTRY_REQ_INFO; + +/* RESPONSE : */ + +struct semaphore_entry + { + ST_INT ei_len; /* entry id length */ + ST_UCHAR *entry_id; /* entry id */ + ST_INT8 entry_class; /* entry class */ + ST_INT app_ref_len; /* app ref length (obj ident) */ + ST_UCHAR *app_ref; /* application reference */ + ST_BOOLEAN named_token_pres; /* named token present ind */ + ST_CHAR named_token[MAX_IDENT_LEN+1];/* named token */ + ST_UCHAR priority; /* priority */ + /* 0 - highest */ + /* 64 - normal (default) */ + /* 127 - lowest */ + ST_BOOLEAN rem_timeout_pres; /* relinquish timeout present */ + ST_UINT32 rem_timeout; /* relinquish timeout */ + ST_BOOLEAN abrt_on_timeout_pres; /* Abort On Timeout present */ + ST_BOOLEAN abrt_on_timeout; /* Abort On Timeout */ + ST_BOOLEAN rel_conn_lost; /* relenquish if connection lost*/ + SD_END_STRUCT + }; +typedef struct semaphore_entry SEMAPHORE_ENTRY; + +struct rsentry_resp_info + { + ST_INT num_of_sent; /* number of semaphore entries */ + ST_BOOLEAN more_follows; /* more follows indicator */ +/* list of semaphore entries */ +/* SEMAPHORE_ENTRY sent_list [num_of_sent]; */ + SD_END_STRUCT + }; +typedef struct rsentry_resp_info RSENTRY_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_rsentry (ST_INT chan, RSENTRY_REQ_INFO *info); +ST_RET mp_rsentry_resp (MMSREQ_IND *ind, RSENTRY_RESP_INFO *info); +#else +ST_RET mpl_rsentry (RSENTRY_REQ_INFO *info); +ST_RET mpl_rsentry_resp (ST_UINT32 invoke, RSENTRY_RESP_INFO *info); +#endif + +/************************************************************************/ +/* DEFINE SEMAPHORE, Conformance: SEM3 */ +/************************************************************************/ + +/* REQUEST : */ + +struct defsem_req_info + { + OBJECT_NAME sem_name; /* semaphore name */ + ST_UINT16 num_of_tokens; /* number of tokens */ + SD_END_STRUCT + }; +typedef struct defsem_req_info DEFSEM_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_defsem (ST_INT chan, DEFSEM_REQ_INFO *info); +ST_RET mp_defsem_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_defsem (DEFSEM_REQ_INFO *info); +ST_RET mpl_defsem_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* DELETE SEMAPHORE, Conformance: SEM3 */ +/************************************************************************/ + +/* REQUEST : */ + +struct delsem_req_info + { + OBJECT_NAME sem_name; /* semaphore name */ + }; +typedef struct delsem_req_info DELSEM_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_delsem (ST_INT chan, DELSEM_REQ_INFO *info); +ST_RET mp_delsem_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_delsem (DELSEM_REQ_INFO *info); +ST_RET mpl_delsem_resp (ST_UINT32 invoke); +#endif + +#ifdef __cplusplus +} +#endif + +#endif /* #define MMS_PSEM_INCLUDED */ diff --git a/include/inc/mms_pvar.h b/include/inc/mms_pvar.h new file mode 100644 index 0000000..1043150 --- /dev/null +++ b/include/inc/mms_pvar.h @@ -0,0 +1,683 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 1997, All Rights Reserved. */ +/* */ +/* MODULE NAME : mms_pvar.h */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This file has the data structures and function definitions */ +/* required to interface with MMS variable access services */ +/* at the primitive level. */ +/* */ +/* Parameters : In general, the first parameter is the channel */ +/* that the request or response is to be sent over. */ +/* For Responses, the second parameter is the Invoke */ +/* ID to be used. The last parameter is used to pass */ +/* operation specific information by pointer. */ +/* */ +/* Return */ +/* Values : Request functions return a pointer to the pending */ +/* request tracking structure, of type MMSREQ_PEND. */ +/* In case of error, the pointer is returned == 0 */ +/* and mms_op_err is written with the err code. */ +/* Response functions return 0 if OK, else an error */ +/* code. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/04/06 JRB 03 Add ARE_OBJ_VALUE_INVALID (new in MMS V2). */ +/* 12/12/02 JRB 02 Add ASN1_ENC_CTXT arg to mpl_info */ +/* 08/13/97 RKR 01 format changes */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef MMS_PVAR_INCLUDED +#define MMS_PVAR_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "mms_mp.h" + +/************************************************************************/ +/************************************************************************/ +/* DEFINES FOR THE VARIABLE ACCESS SERVICES */ +/************************************************************************/ + +/* defines to be used for addr_tag */ +#define NUM_ADDR 0 /* numeric address */ +#define SYM_ADDR 1 /* symbolic address */ +#define UNCON_ADDR 2 /* unconstrained address */ + +/* #defines to be used for var_spec_tag */ +#define VA_SPEC_NAMED 0 +#define VA_SPEC_ADDRESSED 1 +#define VA_SPEC_DESCRIBED 2 +#define VA_SPEC_SCATTERED 3 +#define VA_SPEC_INVALIDATED 4 + +/* #defines to be used for var_acc_tag */ +#define VAR_ACC_VARLIST 0 /* list of variables */ +#define VAR_ACC_NAMEDLIST 1 /* variable list name */ + +/* defines to be used for 'access result' */ +#define ACC_RSLT_SUCCESS 1 +#define ACC_RSLT_FAILURE 0 + +/* defines to be used for DataAccessError codes */ +#define ARE_OBJ_INVALIDATED 0 +#define ARE_HW_FAULT 1 +#define ARE_TEMP_UNAVAIL 2 +#define ARE_OBJ_ACCESS_DENIED 3 +#define ARE_OBJ_UNDEFINED 4 +#define ARE_INVAL_ADDR 5 +#define ARE_TYPE_UNSUPPORTED 6 +#define ARE_TYPE_INCONSISTENT 7 +#define ARE_OBJ_ATTR_INCONSISTENT 8 +#define ARE_OBJ_ACC_UNSUPPORTED 9 +#define ARE_OBJ_NONEXISTENT 10 +#define ARE_OBJ_VALUE_INVALID 11 + +/* #defines to be used for 'resp_tag' (write response) */ +#define WR_RSLT_SUCCESS 1 +#define WR_RSLT_FAILURE 0 + +/* #defines to be used for 'scope' selector (used for delete var, */ +/* varlist, type requests) */ +#define SPECIFIC_SCOPE 0 +#define ALL_AA_SCOPE 1 +#define ALL_DOM_SCOPE 2 +#define ALL_VMD_SCOPE 3 + + +/************************************************************************/ +/************************************************************************/ +/* The structures below are used to pass VARIABLE ACCESS information */ +/* to/from the MMS primitives. */ +/************************************************************************/ + +struct unconst_addr + { + ST_INT unc_len; /* unconstrained address length */ + ST_UCHAR *unc_ptr; /* unconstrained address ptr */ + SD_END_STRUCT + }; +typedef struct unconst_addr UNCONST_ADDR; + +struct var_acc_addr + { + ST_INT16 addr_tag; /* address tag */ + union + { + ST_UINT32 num_addr; /* numeric address */ + ST_CHAR *sym_addr; /* symbolic address */ + UNCONST_ADDR unc_addr; /* unconstrained address */ + } addr; + }; +typedef struct var_acc_addr VAR_ACC_ADDR; + +struct var_acc_data + { + ST_INT len; /* len of variable access data */ + ST_UCHAR *data; /* ptr to variable access data */ + }; +typedef struct var_acc_data VAR_ACC_DATA; + +struct var_acc_tspec + { + ST_INT len; /* len of type specification */ + ST_UCHAR *data; /* ptr to type specification */ + }; +typedef struct var_acc_tspec VAR_ACC_TSPEC; + +struct scattered_access + { + ST_INT len; /* len of scattered access descr*/ + ST_UCHAR *data; /* ptr to scattered access descr*/ + }; +typedef struct scattered_access SCATTERED_ACCESS; + +struct alternate_access + { + ST_INT len; /* len of alternate access data */ + ST_UCHAR *data; /* ptr to alternate access data */ + }; +typedef struct alternate_access ALTERNATE_ACCESS; + +struct variable_descr + { + VAR_ACC_ADDR address; /* variable address */ + VAR_ACC_TSPEC type; /* variable type */ + }; +typedef struct variable_descr VARIABLE_DESCR; + +struct variable_spec + { + ST_INT16 var_spec_tag; /* variable specification tag */ + union + { + OBJECT_NAME name; /* name */ + VAR_ACC_ADDR address; /* address */ + VARIABLE_DESCR var_descr; /* variable description */ + SCATTERED_ACCESS sa_descr; /* scattered access description */ + } vs; + }; +typedef struct variable_spec VARIABLE_SPEC; + +struct variable_list + { + VARIABLE_SPEC var_spec; /* variable access specification*/ + ST_BOOLEAN alt_access_pres; /* alternate access present */ + ALTERNATE_ACCESS alt_access; /* alternate access */ + }; +typedef struct variable_list VARIABLE_LIST; + +struct var_acc_spec + { + ST_INT16 var_acc_tag; /* variable access tag */ + OBJECT_NAME vl_name; /* variable list name */ + ST_INT num_of_variables; /* number of variables */ +/* list of variables */ +/* VARIABLE_LIST var_list [num_of_variables]; */ + SD_END_STRUCT + }; +typedef struct var_acc_spec VAR_ACC_SPEC; + +struct access_result + { + ST_INT16 acc_rslt_tag; /* access result tag */ + ST_INT16 failure; /* data access error */ + VAR_ACC_DATA va_data; /* success data */ + }; +typedef struct access_result ACCESS_RESULT; + +struct write_result + { + ST_INT16 resp_tag; /* response tag */ + ST_INT16 failure; /* data access error */ + SD_END_STRUCT + }; +typedef struct write_result WRITE_RESULT; + + +/************************************************************************/ +/************************************************************************/ +/* VARIABLE READ */ +/************************************************************************/ + +/* REQUEST : */ + +struct read_req_info + { + ST_BOOLEAN spec_in_result; /* specification with result, */ + /* default to false */ + VAR_ACC_SPEC va_spec; /* variable access spec */ +/* which "includes" */ +/* a list of variables */ +/* VARIABLE_LIST var_list [va_spec.num_of_variables]; */ +/* SD_END_STRUCT */ + }; +typedef struct read_req_info READ_REQ_INFO; + +/* RESPONSE : */ + +struct read_resp_info + { + ST_BOOLEAN va_spec_pres; /* variable access spec present */ + ST_INT num_of_acc_result; /* number of access result */ + ACCESS_RESULT *acc_rslt_list; /* ptr to list of access result */ + VAR_ACC_SPEC va_spec; /* variable access spec */ +/* which "includes" */ +/* a list of variables */ +/* VARIABLE_LIST var_list [va_spec.num_of_variables]; */ +/* list of access result */ +/* ACCESS_RESULT acc_result_list [num_of_acc_result]; */ +/* SD_END_STRUCT */ + }; +typedef struct read_resp_info READ_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_read (ST_INT chan, READ_REQ_INFO *info); +ST_RET mp_read_resp (MMSREQ_IND *ind, READ_RESP_INFO *info); +#else +ST_RET mpl_read (READ_REQ_INFO *info); +ST_RET mpl_read_resp (ST_UINT32 invoke, READ_RESP_INFO *info); +#endif + +/************************************************************************/ +/* VARIABLE WRITE */ +/************************************************************************/ + +/* REQUEST : */ + +struct write_req_info + { + ST_INT num_of_data; /* number of data */ + VAR_ACC_DATA *va_data; /* ptr to list of variable data */ + VAR_ACC_SPEC va_spec; /* variable access spec */ +/* which "includes" */ +/* a list of variables */ +/* VARIABLE_LIST var_list [va_spec.num_of_variables]; */ +/* list of variable data */ +/* VAR_ACC_DATA var_data_list [num_of_data]; */ + }; +typedef struct write_req_info WRITE_REQ_INFO; + +/* RESPONSE : */ + +struct write_resp_info + { + ST_INT num_of_result; +/* WRITE_RESULT wr_result[num_of_result] */ + SD_END_STRUCT + }; +/* Where: */ +/* num_of_result = The number of members in wr_result. This */ +/* number should match the number of */ +/* variables included in the Write request. */ +/* */ +/* wr_result = Array of structures of type write_result */ +/* containing the results of the write */ +/* (success or failure) for each variable */ +/* written. The result array members should */ +/* align with the var_list members that were */ +/* included in the Write request. */ +typedef struct write_resp_info WRITE_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_write (ST_INT chan, WRITE_REQ_INFO *info); +ST_RET mp_write_resp (MMSREQ_IND *ind, WRITE_RESP_INFO *info); +#else +ST_RET mpl_write (WRITE_REQ_INFO *info); +ST_RET mpl_write_resp (ST_UINT32 invoke, WRITE_RESP_INFO *info); +#endif + +/************************************************************************/ +/* INFORMATION REPORT */ +/************************************************************************/ + +/* REQUEST : */ + +struct info_req_info + { + ST_INT num_of_acc_result; /* number of access result */ + ACCESS_RESULT *acc_rslt_list; /* ptr to list of access result */ + VAR_ACC_SPEC va_spec; /* variable access spec */ +/* which "includes" */ +/* a list of variables */ +/* VARIABLE_LIST var_list [va_spec.num_of_variables]; */ +/* list of access result */ +/* ACCESS_RESULT acc_result_list [num_of_acc_result]; */ +/* SD_END_STRUCT */ + }; +typedef struct info_req_info INFO_REQ_INFO; + +/* No Response : (unsolicited) */ + +#ifndef MMS_LITE +ST_RET mp_info (ST_INT chan, INFO_REQ_INFO *info); +#else +ST_RET mpl_info (ASN1_ENC_CTXT *aCtx, INFO_REQ_INFO *info); +#endif + +/************************************************************************/ +/* DEFINE VARIABLE NAME */ +/************************************************************************/ + +/* REQUEST : */ + +struct defvar_req_info + { + OBJECT_NAME name; /* object name */ + VAR_ACC_ADDR address; /* address */ + ST_BOOLEAN type_spec_pres; /* type specification present */ + VAR_ACC_TSPEC type_spec; /* type specification */ + }; +typedef struct defvar_req_info DEFVAR_REQ_INFO; + + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_defvar (ST_INT chan, DEFVAR_REQ_INFO *info); +ST_RET mp_defvar_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_defvar (DEFVAR_REQ_INFO *info); +ST_RET mpl_defvar_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* GET VARIABLE NAME DEFINITION */ +/************************************************************************/ + +/* REQUEST : */ + +#define GETVAR_NAME 0 +#define GETVAR_ADDR 1 + +struct getvar_req_info + { + ST_INT16 req_tag; /* request tag */ + /* 0 : object name request */ + /* 1 : address request */ + OBJECT_NAME name; /* object name */ + VAR_ACC_ADDR address; /* address */ + }; +typedef struct getvar_req_info GETVAR_REQ_INFO; + +/* RESPONSE : */ + +struct getvar_resp_info + { + ST_BOOLEAN mms_deletable; /* MMS deletable */ + ST_BOOLEAN address_pres; /* address present */ + VAR_ACC_ADDR address; /* address */ + VAR_ACC_TSPEC type_spec; /* type specification */ + }; +typedef struct getvar_resp_info GETVAR_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_getvar (ST_INT chan, GETVAR_REQ_INFO *info); +ST_RET mp_getvar_resp (MMSREQ_IND *ind, GETVAR_RESP_INFO *info); +#else +ST_RET mpl_getvar (GETVAR_REQ_INFO *info); +ST_RET mpl_getvar_resp (ST_UINT32 invoke, GETVAR_RESP_INFO *info); +#endif + +/************************************************************************/ +/* DELETE VARIABLE NAME */ +/************************************************************************/ + +/* REQUEST : */ + +#define DELVAR_SPEC 0 +#define DELVAR_AA 1 +#define DELVAR_DOM 2 +#define DELVAR_VMD 3 + +struct delvar_req_info + { + ST_INT16 scope; /* scope of delete (see above) */ + ST_BOOLEAN dname_pres; /* domain name present */ + ST_CHAR dname [MAX_IDENT_LEN+1]; /* domain name */ + ST_BOOLEAN vnames_pres; /* variable names present */ + ST_INT num_of_vnames; /* number of variable names */ +/* list of variable names */ +/* OBJECT_NAME vname_list [num_of_vnames]; */ + SD_END_STRUCT + }; +typedef struct delvar_req_info DELVAR_REQ_INFO; + + +/* RESPONSE : */ + +struct delvar_resp_info + { + ST_UINT32 num_matched; /* Number matched */ + ST_UINT32 num_deleted; /* Number deleted */ + }; +typedef struct delvar_resp_info DELVAR_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_delvar (ST_INT chan, DELVAR_REQ_INFO *info); +ST_RET mp_delvar_resp (MMSREQ_IND *ind,DELVAR_RESP_INFO *info); +#else +ST_RET mpl_delvar (DELVAR_REQ_INFO *info); +ST_RET mpl_delvar_resp (ST_UINT32 invoke, DELVAR_RESP_INFO *info); +#endif + +/************************************************************************/ +/* DEFINE SCATTERED ACCESS */ +/************************************************************************/ + +/* REQUEST : */ + +struct defscat_req_info + { + OBJECT_NAME sa_name; /* scattered access name */ + SCATTERED_ACCESS sa_descr; /* scattered access description */ + }; +typedef struct defscat_req_info DEFSCAT_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_defscat (ST_INT chan, DEFSCAT_REQ_INFO *info); +ST_RET mp_defscat_resp (MMSREQ_IND *info); +#else +ST_RET mpl_defscat (DEFSCAT_REQ_INFO *info); +ST_RET mpl_defscat_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* GET SCATTERED ACCESS ATTRIBUTES */ +/************************************************************************/ + +/* REQUEST : */ + +struct getscat_req_info + { + OBJECT_NAME sa_name; /* scattered access name */ + }; +typedef struct getscat_req_info GETSCAT_REQ_INFO; + +/* RESPONSE : */ + +struct getscat_resp_info + { + ST_BOOLEAN mms_deletable; /* MMS deletable */ + SCATTERED_ACCESS sa_descr; /* scattered access description */ + }; +typedef struct getscat_resp_info GETSCAT_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_getscat (ST_INT chan, GETSCAT_REQ_INFO *info); +ST_RET mp_getscat_resp (MMSREQ_IND *ind, GETSCAT_RESP_INFO *info); +#else +ST_RET mpl_getscat (GETSCAT_REQ_INFO *info); +ST_RET mpl_getscat_resp (ST_UINT32 invoke, GETSCAT_RESP_INFO *info); +#endif + +/************************************************************************/ +/* DEFINE NAMED VARIABLE LIST */ +/************************************************************************/ + +/* REQUEST : */ + +struct defvlist_req_info + { + OBJECT_NAME vl_name; /* variable list name */ + ST_INT num_of_variables; /* number of variables */ +/* list of variables */ +/* VARIABLE_LIST var_list [num_of_variables]; */ + SD_END_STRUCT + }; +typedef struct defvlist_req_info DEFVLIST_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_defvlist (ST_INT chan, DEFVLIST_REQ_INFO *info); +ST_RET mp_defvlist_resp (MMSREQ_IND *info); +#else +ST_RET mpl_defvlist (DEFVLIST_REQ_INFO *info); +ST_RET mpl_defvlist_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* GET NAMED VARIABLE LIST ATTRIBUTES */ +/************************************************************************/ + +/* REQUEST : */ + +struct getvlist_req_info + { + OBJECT_NAME vl_name; /* variable list name */ + }; +typedef struct getvlist_req_info GETVLIST_REQ_INFO; + +/* RESPONSE : */ + +struct getvlist_resp_info + { + ST_BOOLEAN mms_deletable; /* MMS deletable */ + ST_INT num_of_variables; /* number of variables */ +/* list of variables */ +/* VARIABLE_LIST var_list [num_of_variables]; */ + SD_END_STRUCT + }; +typedef struct getvlist_resp_info GETVLIST_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_getvlist (ST_INT chan, GETVLIST_REQ_INFO *info); +ST_RET mp_getvlist_resp (MMSREQ_IND *ind, GETVLIST_RESP_INFO *info); +#else +ST_RET mpl_getvlist (GETVLIST_REQ_INFO *info); +ST_RET mpl_getvlist_resp (ST_UINT32 invoke, GETVLIST_RESP_INFO *info); +#endif + +/************************************************************************/ +/* DELETE NAMED VARIABLE LIST */ +/************************************************************************/ + +/* REQUEST : */ + +#define DELVL_SPEC 0 +#define DELVL_AA 1 +#define DELVL_DOM 2 +#define DELVL_VMD 3 + +struct delvlist_req_info + { + ST_INT16 scope; /* scope of delete (see above) */ + ST_BOOLEAN dname_pres; /* domain name present */ + ST_CHAR dname [MAX_IDENT_LEN+1]; /* domain name */ + ST_BOOLEAN vnames_pres; /* variable names present */ + ST_INT num_of_vnames; /* number of var list names */ +/* list of var list names */ +/* OBJECT_NAME vname_list [num_of_vnames]; */ + SD_END_STRUCT + }; +typedef struct delvlist_req_info DELVLIST_REQ_INFO; + +/* RESPONSE : */ + +struct delvlist_resp_info + { + ST_UINT32 num_matched; /* Number matched */ + ST_UINT32 num_deleted; /* Number deleted */ + }; +typedef struct delvlist_resp_info DELVLIST_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_delvlist (ST_INT chan, DELVLIST_REQ_INFO *info); +ST_RET mp_delvlist_resp (MMSREQ_IND *ind, DELVLIST_RESP_INFO *info); +#else +ST_RET mpl_delvlist (DELVLIST_REQ_INFO *info); +ST_RET mpl_delvlist_resp (ST_UINT32 invoke, DELVLIST_RESP_INFO *info); +#endif + +/************************************************************************/ +/* DEFINE TYPE */ +/************************************************************************/ + +/* REQUEST : */ + +struct deftype_req_info + { + OBJECT_NAME type_name; /* object name */ + VAR_ACC_TSPEC type_spec; /* type specification */ + }; +typedef struct deftype_req_info DEFTYPE_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_deftype (ST_INT chan, DEFTYPE_REQ_INFO *info); +ST_RET mp_deftype_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_deftype (DEFTYPE_REQ_INFO *info); +ST_RET mpl_deftype_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* GET TYPE NAME DEFINITION */ +/************************************************************************/ + +/* REQUEST : */ + +struct gettype_req_info + { + OBJECT_NAME type_name; /* object name */ + }; +typedef struct gettype_req_info GETTYPE_REQ_INFO; + +/* RESPONSE : */ + +struct gettype_resp_info + { + ST_BOOLEAN mms_deletable; /* MMS deletable */ + VAR_ACC_TSPEC type_spec; /* type specification */ + }; +typedef struct gettype_resp_info GETTYPE_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_gettype (ST_INT chan, GETTYPE_REQ_INFO *info); +ST_RET mp_gettype_resp (MMSREQ_IND *ind, GETTYPE_RESP_INFO *info); +#else +ST_RET mpl_gettype (GETTYPE_REQ_INFO *info); +ST_RET mpl_gettype_resp (ST_UINT32 invoke, GETTYPE_RESP_INFO *info); +#endif + +/************************************************************************/ +/* DELETE TYPE NAME */ +/************************************************************************/ + +/* REQUEST : */ + +#define DELTYPE_SPEC 0 +#define DELTYPE_AA 1 +#define DELTYPE_DOM 2 +#define DELTYPE_VMD 3 + +struct deltype_req_info + { + ST_INT16 scope; /* scope of delete (see above) */ + ST_BOOLEAN dname_pres; /* domain name present */ + ST_CHAR dname [MAX_IDENT_LEN+1]; /* domain name */ + ST_BOOLEAN tnames_pres; /* type names present */ + ST_INT num_of_tnames; /* number of type names */ +/* list of type names */ +/* OBJECT_NAME tname_list [num_of_tnames]; */ + SD_END_STRUCT + }; +typedef struct deltype_req_info DELTYPE_REQ_INFO; + +/* RESPONSE : */ + +struct deltype_resp_info + { + ST_UINT32 num_matched; /* Number matched */ + ST_UINT32 num_deleted; /* Number deleted */ + }; +typedef struct deltype_resp_info DELTYPE_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_deltype (ST_INT chan, DELTYPE_REQ_INFO *info); +ST_RET mp_deltype_resp (MMSREQ_IND *ind, DELTYPE_RESP_INFO *info); +#else +ST_RET mpl_deltype (DELTYPE_REQ_INFO *info); +ST_RET mpl_deltype_resp (ST_UINT32 invoke, DELTYPE_RESP_INFO *info); +#endif + +#ifdef __cplusplus +} +#endif + +#endif /* #define MMS_PVAR_INCLUDED */ diff --git a/include/inc/mms_pvmd.h b/include/inc/mms_pvmd.h new file mode 100644 index 0000000..6024d16 --- /dev/null +++ b/include/inc/mms_pvmd.h @@ -0,0 +1,291 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 1997, All Rights Reserved. */ +/* */ +/* MODULE NAME : mms_pvmd.h */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This file has the data structures and function definitions */ +/* required to interface with MMS vmd management services */ +/* at the primitive level. */ +/* */ +/* Parameters : In general, the first parameter is the channel */ +/* that the request or response is to be sent over. */ +/* For Responses, the second parameter is the Invoke */ +/* ID to be used. The last parameter is used to pass */ +/* operation specific information by pointer. */ +/* */ +/* Return */ +/* Values : Request functions return a pointer to the pending */ +/* request tracking structure, of type MMSREQ_PEND. */ +/* In case of error, the pointer is returned == 0 */ +/* and mms_op_err is written with the err code. */ +/* Response functions return 0 if OK, else an error */ +/* code. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/12/02 JRB 02 Add ASN1_ENC_CTXT arg to mpl_ustatus */ +/* 09/09/97 MDE 02 Added 'mms_class' defines */ +/* 08/14/97 RKR 01 Format changes */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef MMS_PVMD_INCLUDED +#define MMS_PVMD_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "mms_mp.h" + +/************************************************************************/ +/************************************************************************/ +/* VMD MANAGEMENT SERVICES */ +/************************************************************************/ +/* The structures below are used to pass VMD MANAGEMENT information */ +/* to/from the MMS primitives. */ +/************************************************************************/ + +/* Defines for 'mms_class' for GNL and RENAME */ +#define MMS_CLASS_VAR 0 +#define MMS_CLASS_SCAT_ACC 1 +#define MMS_CLASS_VARLIST 2 +#define MMS_CLASS_TYPE 3 +#define MMS_CLASS_SEM 4 +#define MMS_CLASS_EV_COND 5 +#define MMS_CLASS_EV_ACT 6 +#define MMS_CLASS_EV_ENROLL 7 +#define MMS_CLASS_JOU 8 +#define MMS_CLASS_DOM 9 +#define MMS_CLASS_PI 10 +#define MMS_CLASS_OPER_STA 11 + +/************************************************************************/ +/************************************************************************/ +/* STATUS */ +/************************************************************************/ + +/* REQUEST : */ + +#define MAX_STAT_DTL_LEN 16 + +struct status_req_info + { + ST_BOOLEAN extended; /* flag indicating if extended status */ + }; /* is desired */ +typedef struct status_req_info STATUS_REQ_INFO; + +/* RESPONSE : */ + +struct status_resp_info + { + ST_INT16 logical_stat; /* logical status - not optional */ + ST_INT16 physical_stat; /* physical status - not optional */ + ST_BOOLEAN local_detail_pres; /* flag if logical detail is present */ + ST_INT local_detail_len; /* length of logical detail (in bits) */ + ST_UCHAR local_detail[MAX_STAT_DTL_LEN]; /* vendor-specific detailed info*/ + }; +typedef struct status_resp_info STATUS_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_status (ST_INT chan,STATUS_REQ_INFO *info); +ST_RET mp_status_resp (MMSREQ_IND *ind,STATUS_RESP_INFO *info); +#else +ST_RET mpl_status (STATUS_REQ_INFO *info); +ST_RET mpl_status_resp (ST_UINT32 invoke, STATUS_RESP_INFO *info); +#endif + +/************************************************************************/ +/* UNSOLICITED STATUS */ +/************************************************************************/ + +/* REQUEST : */ + +struct ustatus_req_info + { + ST_INT16 logical_stat; /* logical status - not optional */ + ST_INT16 physical_stat; /* physical status - not optional */ + ST_BOOLEAN local_detail_pres; /* flag if logical detail is present */ + ST_INT local_detail_len; /* length of logical detail (in bits) */ + ST_UCHAR local_detail[MAX_STAT_DTL_LEN]; /* vendor-specific detailed info*/ + }; +typedef struct ustatus_req_info USTATUS_REQ_INFO; + +/* RESPONSE : No response (unsolicited) */ + +#ifndef MMS_LITE +ST_RET mp_ustatus (ST_INT chan,USTATUS_REQ_INFO *info); +#else +ST_RET mpl_ustatus (ASN1_ENC_CTXT *aCtx, USTATUS_REQ_INFO *info); +#endif + +/************************************************************************/ +/* GET NAME LIST */ +/************************************************************************/ + +/* REQUEST : */ + +struct namelist_req_info + { + ST_BOOLEAN cs_objclass_pres; /* set for use CS object class */ + union + { + ST_INT16 mms_class; /* object class */ + struct /* CS context object sel */ + { + ST_INT len; /* length of ASN.1 CS class */ + ST_UCHAR *cs_class; /* CS object class ASN.1 */ + } cs; + } obj; + + ST_INT16 objscope; /* object scope */ + ST_CHAR dname[MAX_IDENT_LEN+1]; /* domain name, for scope = dom */ + ST_BOOLEAN cont_after_pres; /* flag if continue param pres. */ + ST_CHAR continue_after[MAX_IDENT_LEN+1]; /* continue-after name */ + SD_END_STRUCT + }; +typedef struct namelist_req_info NAMELIST_REQ_INFO; + +/* RESPONSE : */ + +struct namelist_resp_info + { + ST_BOOLEAN more_follows; /* end of list boolean value */ + ST_INT num_names; /* number of names */ + SD_END_STRUCT + }; +/* ST_CHAR *name_list[]; */ /* array of pointers to object names */ + +/* NOTE: Immediately below this structure (contiguous in memory) is a */ +/* list of character pointers, one for each name in the name list. */ +/* Essentially the structure and name pointers are allocated in a */ +/* single call to malloc of size: (sizeof(NAMELIST_RESP_INFO) */ +/* + num_names * sizeof(ST_CHAR *)). The requesting user makes use of */ +/* the contiguous list of pointers as appropriate. The responding */ +/* user must pass the mp_namelist_resp function a pointer to a contig- */ +/* uous block of memory containing the namelist_resp_info structure at */ +/* the top and the list of character pointers below it. */ +typedef struct namelist_resp_info NAMELIST_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_namelist (ST_INT chan,NAMELIST_REQ_INFO *info); +ST_RET mp_namelist_resp (MMSREQ_IND *ind,NAMELIST_RESP_INFO *info); +#else +ST_RET mpl_namelist (NAMELIST_REQ_INFO *info); +ST_RET mpl_namelist_resp (ST_UINT32 invoke, NAMELIST_RESP_INFO *info); +#endif + +/************************************************************************/ +/* IDENTIFY */ +/************************************************************************/ + +/* REQUEST : NULL */ +/* RESPONSE : */ + +/* This is the structure used for the info pass to/from the MMS prims */ + +#define MAX_VEND_LEN 64 /* vendor name max len */ +#define MAX_REV_LEN 16 /* revision max len */ +#define MAX_MOD_LEN 16 /* model max len */ + +struct ident_resp_info + { + ST_CHAR vend[MAX_VEND_LEN+1]; /* vendor */ + ST_CHAR model[MAX_MOD_LEN+1]; /* model */ + ST_CHAR rev[MAX_REV_LEN+1]; /* revision */ + ST_INT num_as; /* number abstract syntax's */ +/* this structure may be followed by the abstract syntax's */ +/* MMS_OBJ_ID as[num_as]; */ + SD_END_STRUCT + }; +typedef struct ident_resp_info IDENT_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_ident (ST_INT chan); +ST_RET mp_ident_resp (MMSREQ_IND *ind,IDENT_RESP_INFO *info); +#else +ST_RET mpl_ident (ST_VOID); +ST_RET mpl_ident_resp (ST_UINT32 invoke, IDENT_RESP_INFO *info); +#endif + +/************************************************************************/ +/* RENAME */ +/************************************************************************/ + +/* REQUEST : */ + +struct rename_req_info + { + ST_BOOLEAN cs_objclass_pres; /* set for use CS object class */ + union + { + ST_INT16 mms_class; /* object class */ + struct /* CS context object sel */ + { + ST_INT len; /* length of ASN.1 CS class */ + ST_UCHAR *cs_class; /* CS object class ASN.1 */ + } cs; + } obj; + + OBJECT_NAME cur_name; /* current name */ + ST_CHAR new_ident [MAX_IDENT_LEN+1]; /* new identifier */ + SD_END_STRUCT + }; +typedef struct rename_req_info RENAME_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_rename (ST_INT chan,RENAME_REQ_INFO *info); +ST_RET mp_rename_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_rename (RENAME_REQ_INFO *info); +ST_RET mpl_rename_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* GET CAPABILITY LIST */ +/************************************************************************/ + +/* REQUEST : */ + +struct getcl_req_info + { + ST_BOOLEAN cont_after_pres; /* flag if continue param pres. */ + ST_CHAR *continue_after; /* pointer continue-after name */ + }; +typedef struct getcl_req_info GETCL_REQ_INFO; + +/* RESPONSE : */ + +struct getcl_resp_info + { + ST_BOOLEAN more_follows; /* end of list boolean value */ + ST_INT num_of_capab; /* number of capabilities */ +/* list of capabilities */ +/* ST_CHAR * capab_list [num_of_capab]; */ + SD_END_STRUCT + }; +typedef struct getcl_resp_info GETCL_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_getcl (ST_INT chan,GETCL_REQ_INFO *info); +ST_RET mp_getcl_resp (MMSREQ_IND *ind,GETCL_RESP_INFO *info); +#else +ST_RET mpl_getcl (GETCL_REQ_INFO *info); +ST_RET mpl_getcl_resp (ST_UINT32 invoke, GETCL_RESP_INFO *info); +#endif + +#ifdef __cplusplus +} +#endif + +#endif /* #define MMS_PVMD_INCLUDED */ + diff --git a/include/inc/mms_vvar.h b/include/inc/mms_vvar.h new file mode 100644 index 0000000..1896958 --- /dev/null +++ b/include/inc/mms_vvar.h @@ -0,0 +1,1090 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2006, All Rights Reserved. */ +/* */ +/* MODULE NAME : mms_vvar.h */ +/* PRODUCT(S) : MMSEASE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains data and function definitions associated */ +/* with the MMS virtual machine variable access operations. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 08/02/07 JRB 58 Add elements to RUNTIME_BUILD_CTXT to allow */ +/* 2 pass build process. Add more ms_rt_bld*. */ +/* 05/10/07 JRB 57 Chg el_size, etc. to ST_INT to avoid warnings*/ +/* 04/30/07 JRB 56 Chg el_size, el_len, etc. in RUNTIME_TYPE to */ +/* ST_INT32 to allow larger primitives, arrays. */ +/* 04/17/07 JRB 55 Add prim_count to MVLU_TYPE_INFO. */ +/* 10/30/06 JRB 54 Add reserved_1 to RUNTIME_CTRL. */ +/* Add "ms_rt_bld_*" prototypes. */ +/* 08/09/06 JRB 53 Add ms_local_to_asn1_2. */ +/* Add ms_adl_to_asn1_2, ms_aa_to_asn1_2. */ +/* 03/22/06 EJV 52 Added GENERAL_TIME_ALGN (time_t is 64-bits in VS 2005)*/ +/* 07/29/05 MDE 51 Select USE_RT_TYPE_3 for USPS_IOS */ +/* 05/09/05 JRB 50 Default to USE_RT_TYPE_2 (was USE_RT_TYPE_3).*/ +/* 03/10/05 JRB 49 Add ms_rt_el_tag_text proto. */ +/* 02/22/05 JRB 48 ms_is_rt_prim: add SD_CONST to arg. */ +/* 01/27/05 JRB 47 Add m_lite_data_algn_tbl extern. */ +/* 07/22/04 JRB 46 Add rt_index_q, rt_index_t, data_offset to */ +/* RUNTIME_TYPE if !MMS_LITE. */ +/* 07/12/04 JRB 45 Chg RT_UTF8_STRING tag from 18 to 16 to */ +/* match latest 61850-8-1. */ +/* 01/22/04 JRB 44 Add ms_local_to_text. */ +/* 10/03/03 JRB 43 Chg offset_to_last & offSet to ST_INT32 in */ +/* RUNTIME_TYPE to handle BIG IEC-61850 types. */ +/* 03/31/03 JRB 42 Add UTF8string support (see RT_UTF8_STRING). */ +/* Add "utf8" to M_ARB_DATA_CTRL. */ +/* 03/13/03 JRB 41 u_ml_get_rt_type: Chg from "func ptr" to func.*/ +/* 01/02/03 JRB 40 Add arg to u_ml_get_rt_type. */ +/* Add ASN1_TO_RT_DEC_INFO struct. */ +/* 12/27/02 MDE 39 Allow use of ms_asn1_to_runtime */ +/* 12/17/02 JRB 38 Del SD_CONST from numMvlRtNames. */ +/* 12/16/02 JRB 37 Chg ms_is_rt_prim from macro to function. */ +/* 11/27/02 MDE 36 Added ms_is_rt_prim */ +/* 11/11/02 JRB 35 Add RUNTIME_CTRL, chg ms_runtime_create & */ +/* ms_runtime_destroy to use it. */ +/* Del ms_asn1_to_runtime (use ms_runtime_create)*/ +/* Add ms_tdl_to_runtime proto. */ +/* 03/01/02 JRB 34 Add SD_CONST to (RUNTIME_TYPE *) in RT_AA_CTRL.*/ +/* 02/06/02 JRB 33 Deleted unused MMS_ALTA_DATA */ +/* 12/20/01 JRB 32 Convert to use ASN1R. */ +/* Add ASN1_ENC_CTXT arg to ms_*_to_asn1*. */ +/* Add new function ms_local_to_asn1_easy. */ +/* 11/13/01 EJV 31 Added support for new MMS type UtcTime: */ +/* Added RT_UTC_TIME, chg RT_STR_END, RT_ARR_END*/ +/* M_ARB_DATA_CTRL: added utc fun proto. */ +/* 06/20/01 EJV 30 Added () around rt in ms_comp_name_xxx macros*/ +/* to handle rt+1, rt-1 arguments. */ +/* 04/11/01 MDE 29 Added ms_comp_name_pres macros */ +/* 01/21/01 EJV 28 M_ARB_DATA_CTRL: changed bool to booln, */ +/* to avoid conflict w/ bool type in C++ files. */ +/* 11/02/00 JRB 27 Del #if MVL_UCA. Use #if MMS_LITE instead. */ +/* 10/25/00 JRB 26 Del MVL_UCA define (define in makefile). */ +/* Move ST_RTREF typedef so always defined. */ +/* 08/29/00 JRB 25 Chg ms_comp_name_find from funct to macro. */ +/* 07/28/00 JRB 24 Simplify RT_TYPE ifdefs. */ +/* Fix SD_CONST in some prototypes. */ +/* Del m_type_nam* externs, only used in 1 file.*/ +/* 07/13/00 JRB 23 Add "#ifdef USE_RT_TYPE_2". */ +/* Add ms_runtime_create, ms_runtime_destroy, */ +/* ms_comp_name_find. */ +/* 06/22/00 MDE 22 Added numMvlRtNames declaration */ +/* 06/16/00 JRB 21 Add #if INT64_SUPP... */ +/* 04/20/00 JRB 20 Del SD_CONST from (RUNTIME_TYPE **) args. */ +/* 09/13/99 MDE 19 Added SD_CONST modifiers */ +/* 09/10/98 MDE 18 Added 'mvlRtNames' declaration */ +/* 08/11/98 MDE 17 Minor changes for Foundry */ +/* 06/30/98 MDE 16 Changed ST_REF to ST_VOID * */ +/* 04/07/98 MDE 15 Added struct/arr start/end alignment mode */ +/* 03/23/98 MDE 14 Now let user supply AA derived type (RD/WR) */ +/* 03/12/98 MDE 13 MMS-Lite related runtime type changes */ +/* 03/11/98 MDE 12 Removed NEST_RT_TYPES */ +/* 02/10/98 MDE 11 Changed runtime type */ +/* 12/29/97 MDE 10 Added 'typeCtrl' to RUNTIME_TYPE for use */ +/* with 'mktypes.exe' only. */ +/* 09/11/97 MDE 09 MMS ARB user funs now return ST_RET */ +/* 09/04/97 NAV 08 Split ARB Btime functions & add */ +/* have them return a ST_BOOLEAN */ +/* 08/15/97 MDE 07 BTOD handling comments */ +/* 08/14/97 RKR 06 Format changes */ +/* 07/16/97 RKR 05 Added more 64 bit integer support */ +/* 06/23/97 RKR 04 Added arbitrary data handling */ +/* 06/20/97 MDE 03 Added 64 bit integer support */ +/* 06/09/97 MDE 02 Changed Runtime Type and it's use */ +/* 06/05/97 RKR 01 Removed AA_OUTER_NEST rearranged AA constants*/ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef MMS_VVAR_INCLUDED +#define MMS_VVAR_INCLUDED + +#ifndef MMS_LITE +#include "mms_mv.h" +#endif + +#ifdef __cplusplus +extern "C" { +#endif + + +/************************************************************************/ +/************************************************************************/ +/* BINARY TIME OF DAY NOTES */ +/* There are two forms of TimeOfDay, 4 byte and 6 byte. */ +/* The 6 byte form contains the number of milliseconds since midnight */ +/* and the number of days since Jan 1, 1984. The 4 byte form contains */ +/* only the millisecond number. */ +/* */ +/* In memory, the Btime6 data looks like a pair of 32 bit integers: */ +/* ST_INT32 ms; Number of milliseconds since midnight */ +/* ST_INT32 day; Number of days since Jan 1, 1984 */ +/* */ +/* and the Btime4 data looks like a single 32 bit integer: */ +/* ST_INT32 ms; Number of milliseconds since midnight */ +/* */ +/* Data alignment for either form is that of a ST_INT32. */ +/* Note that MMS-EASE simply encodes/decodes the values to/from the */ +/* MMS PDU and does not perform any local time localization. */ +/************************************************************************/ + +/************************************************************************/ +/************************************************************************/ +/* MMS-LITE */ +/************************************************************************/ + +/* Default to USE_RT_TYPE_2 for MMS Lite (allows dynamic type creation).*/ +/* NOTE: define USE_RT_TYPE_3 only if you need to store RUNTIME_TYPES */ +/* in ROM, and you DO NOT need dynamic type creation. */ + +#if defined(MMS_LITE) && (!defined(USE_RT_TYPE_3)) +#define USE_RT_TYPE_2 +#endif + +/* The IOS Toolkit requires RT_TYPE_3 */ +#ifdef USPS_IOS +#undef USE_RT_TYPE_2 +#define USE_RT_TYPE_3 +#endif + +#if defined(FOUNDRY) /* Overwride defines when compiling Foundry */ +#undef USE_RT_TYPE_2 +#undef USE_RT_TYPE_3 +#endif + +/* RUNTIME TYPE INTEGER FORM */ +/* In MMS-LITE the size of the RUNTIME_TYPE must be minimized, so we */ +/* will use 16 bit integers for the compoments. This puts a 32K limit */ +/* on the size of a variable. */ + +#if !defined(MMS_LITE) +#define ST_RTINT ST_INT +#else +#define ST_RTINT ST_INT16 +#endif + +/************************************************************************/ +/* MMS-LITE UCA SPECIFIC SECTION */ +/************************************************************************/ +/* MMS-LITE uses an extended RUNTIME_TYPE for use with the MVL UCA */ +/* object handling extensions. */ +/* To use the UCA extensions, MVL_UCA must be defined. */ +/* NOTE: MVL_UCA is NOT defined by default. */ + +/* This typedef is for the application use only and can be changed as */ +/* required. Normally it is used to allow the applcation to consolidate */ +/* MVL_UCA read and write indication handler functions. */ +typedef ST_VOID * ST_RTREF; + +/* These elements are designed to be used to assist in implementing the */ +/* UCA device models in MMS-EASE Lite. Note that 'MVL_UCA' must be */ +/* defined when creating the MMS-EASE libraries if these features are */ +/* to be used. */ + +/* You may comment out the defines for those components that will not */ +/* bs used in the target application to reduce the size of the */ +/* RUNTIME_TYPE table. */ +#define MVLU_USE_REF + +typedef struct mvluTypeStruct + { + ST_RTINT prim_count; /* number of prims in this ARR, STRUCT, or prim */ + ST_RTINT sortedNum; /* For use by MVLU GNL code */ + ST_INT32 offSet; /* Offset from start of mother structure */ + ST_RTINT rdIndFunIndex; + ST_RTINT wrIndFunIndex; + +/* These elements can be used by the application as needed, and are */ +/* copied into the derived variable association. MVLU does not use them */ +/* directly. */ +#if defined(MVLU_USE_REF) + ST_RTREF ref; /* set to 'XXX$YYY_REF' by foundry */ +#endif + } MVLU_TYPE_INFO; + +/************************************************************************/ +/* RUNTIME TYPE DEFINITION STRUCTURE */ +/************************************************************************/ +/* The following defines specify the various data parameters */ +/************************************************************************/ + +#define RT_ARR_START 1 +#define RT_STR_START 2 +#define RT_BOOL 3 +#define RT_BIT_STRING 4 +#define RT_INTEGER 5 +#define RT_UNSIGNED 6 +#define RT_FLOATING_POINT 7 +#define RT_OCTET_STRING 9 +#define RT_VISIBLE_STRING 10 +#define RT_GENERAL_TIME 11 +#define RT_BINARY_TIME 12 +#define RT_BCD 13 +#define RT_BOOLEANARRAY 14 +#define RT_UTC_TIME 17 +#define RT_UTF8_STRING 16 /* specified in IEC-61850-8-1 */ +/* ADD new tags here and bump up RT_MAX_PRIM_TAG accordingly. */ +#define RT_MAX_PRIM_TAG 18 /* use when looking for max tag val*/ +#define RT_STR_END (RT_MAX_PRIM_TAG+1) +#define RT_ARR_END (RT_MAX_PRIM_TAG+2) + +struct runtime_type + { + ST_UCHAR el_tag; /* ID tag expected for this element, or special */ + /* values for end of array, end of struct */ + /* or nested runtime types */ + + ST_INT el_size; /* number of bytes occupied by this element */ + ST_INT32 offset_to_last; /* offset in bytes from the start of the */ + /* data to the last element */ + union + { + /* CRITICAL: element types in each structure in this union must */ + /* match. If not, the Foundry would misalign data in this union. */ + struct /* primitive element */ + { + ST_INT el_len; /* precision, in bytes except bitstr, time */ + ST_RTINT pad; /* included to allow aggregate initialization */ + } p; + struct /* structure (top or bottom) */ + { + ST_INT num_rt_blks; /* # runtime blks to get to strt/end elmnt */ + ST_RTINT pad; /* included to allow aggregate initialization */ +#if !defined(USE_RT_TYPE_2) && !defined(USE_RT_TYPE_3) + ST_BOOLEAN packd; /* Indicates if packed or not. */ +#endif + } str; + struct /* Array (top or bottom) */ + { + ST_INT num_elmnts; /* # array elements (index limit) */ + ST_RTINT num_rt_blks; /* # runtime blks to get to strt/end elmnt */ +#if !defined(USE_RT_TYPE_2) && !defined(USE_RT_TYPE_3) + ST_BOOLEAN packd; /* Indicates if packed or not. */ +#endif + } arr; + } u; + +#if defined(USE_RT_TYPE_2) + ST_CHAR *comp_name_ptr; /* ptr to comp name string */ +#elif defined(USE_RT_TYPE_3) + ST_RTINT name_index; /* Index into mvlRtNames table */ +#else /* Default */ + ST_CHAR name[MAX_IDENT_LEN+1]; +#endif + +#if defined(MMS_LITE) + MVLU_TYPE_INFO mvluTypeInfo; /* MMS-LITE UCA handler use */ +#endif +#if defined(FOUNDRY) + ST_CHAR *refBuf; + ST_CHAR *rdIndexBuf; + ST_CHAR *wrIndexBuf; +#endif +#if !defined (MMS_LITE) + ST_RTINT rt_index_q; /* index into RUNTIME_TYPE array for 'q'*/ + /* attribute of IEC-61850 type */ + ST_RTINT rt_index_t; /* index into RUNTIME_TYPE array for 't'*/ + /* attribute of IEC-61850 type */ + ST_INT32 data_offset; /* offset in bytes from start of data */ + /* NOTE: should be same as offSet in */ + /* mvluTypeInfo above for MMS_LITE */ +#endif + }; +typedef struct runtime_type RUNTIME_TYPE; + +/* Runtime type HEAD struct contains info about RUNTIME_TYPE array. */ +typedef struct + { + RUNTIME_TYPE *rt_first; /* ptr to first in array of structs */ + ST_INT rt_num; /* num entries in RUNTIME_TYPE array */ + ST_VOID *reserved_1; /* ptr to any optional info for this type*/ + } RUNTIME_CTRL; + +/************************************************************************/ +/* ASN1_TO_RT_DEC_INFO - structure to store temporary decode info. */ +/************************************************************************/ +typedef struct + { +#if defined(USE_RT_TYPE_2) +/* These are used for saving component names. */ + ST_CHAR *comp_name_buf; /* Alloc'd buf to store ALL component names.*/ + ST_INT comp_name_size; /* Buffer size (in bytes) */ + ST_INT comp_name_used; /* Running count of bytes needed OR used.*/ + + ST_CHAR *comp_name_ptr; /* current position in buffer. */ +#endif + RUNTIME_TYPE *rt_start; /* ptr to runtime table start */ + ST_BOOLEAN calc_only; /* flag to calculate num rt blocks */ + /* DEBUG: add rt_ptr, rt_count, rt_limit, etc. & delete global vars.*/ + } ASN1_TO_RT_DEC_INFO; + +/************************************************************************/ +/* RUNTIME_BUILD_CTXT: info for dynamic building of runtime type defs. */ +/************************************************************************/ +typedef struct + { + RUNTIME_CTRL *rt_ctrl; /* type definition being built */ + RUNTIME_TYPE *rt_type; /* ptr to current type */ + RUNTIME_TYPE *max_rt_type; /* ptr after last RUNTIME_TYPE struct */ + ST_INT nest_level; /* index into "nest_start_ptr" array */ + RUNTIME_TYPE *nest_start_ptr [ASN1_MAX_LEVEL]; /* array of ptrs to*/ + /* STR_START or ARR_START */ + ST_CHAR *comp_name_buf; /* allocated buf to store comp names */ + /* [MAX_IDENT_LEN+1] for each */ + ST_RET errcode; /* Set when first error detected */ + /* Initialized to SD_SUCCESS. */ + + ST_BOOLEAN do_count; /* If SD_TRUE, bld functions just count */ + /* num of RUNTIME_TYPE elements needed */ + /* (nothing allocated or initialized) */ + ST_INT curr_count; /* current count of RUNTIME_TYPE elems */ + /* (used only when do_count=SD_TRUE) */ + ST_INT max_count; /* max count of RUNTIME_TYPE elems */ + /* (used only when do_count=SD_TRUE) */ + } RUNTIME_BUILD_CTXT; + +#if defined(MMS_LITE) +ST_RET u_ml_get_rt_type (ASN1_DEC_CTXT *aCtx, OBJECT_NAME *type_name, + RUNTIME_TYPE **rt_out, ST_INT *num_rt_out); + +extern ST_INT maxMvlRtNames; +extern ST_INT numMvlRtNames; +extern ST_CHAR **mvlRtNames; +#endif + +ST_BOOLEAN ms_is_rt_prim (SD_CONST RUNTIME_TYPE *rt); +ST_CHAR *ms_rt_el_tag_text (SD_CONST RUNTIME_TYPE *rt_type); + +/************************************************************************/ +/* ALTERNATE ACCESS DEFINITION STRUCTURE */ +/************************************************************************/ + +/* Possible values for sel_type */ +#define AA_COMP 0 +#define AA_INDEX 1 +#define AA_INDEX_RANGE 2 +#define AA_ALL 3 +#define AA_COMP_NEST 4 +#define AA_INDEX_NEST 5 +#define AA_INDEX_RANGE_NEST 6 +#define AA_ALL_NEST 7 +#define AA_END_NEST 8 + +#define MAX_NUM_AA_EL 100 + +struct alt_acc_el + { + ST_BOOLEAN comp_name_pres; + ST_CHAR comp_name[MAX_IDENT_LEN+1];/* named component for derived */ + /* type */ + ST_INT sel_type; /* type of access selection */ + union + { + ST_CHAR component[MAX_IDENT_LEN+1]; /* Used for AA_COMP */ + ST_UINT32 index; /* Used for AA_INDEX */ + struct /* Used for AA_INDEX_RANGE */ + { + ST_UINT32 low_index; + ST_UINT32 num_elmnts; + } ir; + } u; + }; +typedef struct alt_acc_el ALT_ACC_EL; + +struct alt_access + { + ST_INT num_aa; + ALT_ACC_EL *aa; + }; +typedef struct alt_access ALT_ACCESS; + + +/* This data structure is used in table form to implement alternate */ +/* access from the server perspective (NEWDATA <-> ASN1DATA) */ +/* It allows re-ordering of elements as well as limited selection */ + +struct rt_aa_ctrl + { + SD_CONST RUNTIME_TYPE *rt; + ST_UINT offset_to_data; /* offset to data element */ + ST_INT el_size; /* Size of the element in memory */ + }; +typedef struct rt_aa_ctrl RT_AA_CTRL; + +ST_RET ms_adl_to_aa (ST_CHAR *adl_str,ALT_ACCESS *alt_acc); +ST_RET ms_adl_to_asn1_2 (ST_CHAR *adl_str, + ST_UCHAR *buf_ptr, + ST_INT buf_len, + ST_UCHAR **asn1_ptr_out, + ST_INT *asn1_len_out); + +ST_RET ms_aa_to_adl (ALT_ACCESS *alt_acc, + ST_CHAR *adl_str, + ST_INT max_adl_len); + +ST_RET ms_local_to_asn1_aa (ASN1_ENC_CTXT *aCtx, SD_CONST RUNTIME_TYPE *rt_head, + ST_INT rt_num, + ALT_ACCESS *alt_acc, + ST_CHAR *dptr); + +ST_RET ms_asn1_to_local_aa (SD_CONST RUNTIME_TYPE *rt_head, + ST_INT rt_num, + ALT_ACCESS *alt_acc, + ST_UCHAR *asn1ptr, + ST_INT asn1len, + ST_CHAR *dptr); + + +ST_VOID ms_log_alt_access (ALT_ACCESS *alt_acc); + + +ST_RET ms_aa_to_asn1 (ASN1_ENC_CTXT *aCtx, ALT_ACCESS *alt_acc); +/* ms_aa_to_asn1_2 usually easier to use than ms_aa_to_asn1. */ +ST_RET ms_aa_to_asn1_2 (ALT_ACCESS *alt_acc, + ST_UCHAR *buf_ptr, + ST_INT buf_len, + ST_UCHAR **asn1_ptr_out, + ST_INT *asn1_len_out); +ST_RET ms_asn1_to_aa (ST_UCHAR *asn1ptr, ST_INT asn1len, + ALT_ACCESS *alt_acc_out); + + +/************************************************************************/ +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* Type definition structures and manipulation functions */ +/************************************************************************/ + +struct named_type /* type definition table structure */ + { + DBL_LNK link; /* generic list links */ + ST_CHAR type_name[MAX_IDENT_LEN+1]; /* name of data type */ + ST_BOOLEAN deletable; /* set != 0 if deletable */ + ST_UCHAR protection; /* protection afforded for type */ + ST_BOOLEAN erased; /* flags if deleted, but nref !=0 */ + ST_INT nref; /* number of var def'ns referencing this*/ + RUNTIME_CTRL *rt_ctrl; /* May be NULL */ + RUNTIME_TYPE *rt_head; /* ptr to runtime type def head */ + ST_INT rt_num; /* # of rt_blocks in runtime type def */ + ST_INT asn1len; /* # bytes in ASN.1 definition */ + ST_UCHAR *asn1ptr; /* pointer to ASN.1 definition */ + ST_INT blocked_len; /* length of blocked (packed) data type */ + ST_CHAR *(*read_ind_fun)(ST_CHAR *src, ST_INT len); /* std read ind function ptr */ + ST_INT (*write_ind_fun)(ST_CHAR *src, ST_CHAR *dest, ST_INT len); /* std write ind */ + }; +typedef struct named_type NAMED_TYPE; + +ST_RET ms_locl_to_asn1_aa (ASN1_ENC_CTXT *aCtx, NAMED_TYPE *tptr, + ALT_ACCESS *alt_acc, + ST_CHAR *dptr); + +ST_RET ms_asn1_to_locl_aa (NAMED_TYPE *tptr, + ALT_ACCESS *alt_acc, + ST_UCHAR *asn1ptr, + ST_INT asn1len, + ST_CHAR *dptr); + +extern ST_INT max_mmsease_types; /* max number allowed */ +extern ST_INT mms_type_count; /* number currently defined */ + +NAMED_TYPE *ms_add_named_type (DOMAIN_OBJS *dom, ST_CHAR *name, + ST_UCHAR *asn1, ST_INT asn1len); +NAMED_TYPE *ms_find_named_type_obj (OBJECT_NAME *obj, + ST_INT chan); +NAMED_TYPE *ms_find_named_type (DOMAIN_OBJS *dom,ST_CHAR *name); +ST_RET ms_del_named_type (DOMAIN_OBJS *dom,ST_CHAR *name); +ST_RET ms_del_type (DOMAIN_OBJS *dom, NAMED_TYPE *name); +ST_VOID ms_del_all_named_types (DOMAIN_OBJS *dom_objs); +ST_RET ms_del_named_type_obj (OBJECT_NAME *obj, ST_INT chan); +ST_RET ms_add_std_types (DOMAIN_OBJS *dom); + +ST_CHAR *rdind_fun (ST_CHAR *addr, ST_INT len); +ST_RET wrind_fun (ST_CHAR *data, ST_CHAR *addr, ST_INT len); + +ST_RET mv_gettype_resp (MMSREQ_IND *ind); +ST_RET mv_gettype_resp (MMSREQ_IND *ind); +ST_RET mv_deltype_resp (MMSREQ_IND *ind); +ST_RET mv_deftype_resp (MMSREQ_IND *ind); + + +/************************************************************************/ +/* Variable definition structures and manipulation functions */ +/************************************************************************/ + +struct named_var /* name table structure */ + { + DBL_LNK link; /* generic list links */ + ST_CHAR varname[MAX_IDENT_LEN+1];/* variable name */ + ST_BOOLEAN invalid; /* variable invalidated due */ + /* to type or addr deleted */ + NAMED_TYPE *type; /* type name/domain */ + ST_BOOLEAN deletable; /* != 0 if deletable */ + ST_UCHAR rd_pro; /* read protection */ + ST_UCHAR wr_pro; /* write protection */ + VAR_ACC_ADDR addr; /* address */ + ST_CHAR *(*read_ind_fun)(ST_CHAR *src, ST_INT len); /* std read ind function ptr */ + ST_INT (*write_ind_fun)(ST_CHAR *src, ST_CHAR *dest, ST_INT len); /* std write ind */ +/* Followed by the address, for symbolic or unconstrained address */ +/* types. The length of this address is determined when the var added */ + SD_END_STRUCT + }; +typedef struct named_var NAMED_VAR; + +struct named_var_list /* name variable list structure */ + { + DBL_LNK link; /* generic list links */ + ST_CHAR name[MAX_IDENT_LEN+1]; /* variable list name */ + ST_BOOLEAN deletable; /* != 0 if deletable */ + ST_INT num_vars; /* # of vars in Named Variable List. */ + /* VARIABLE_LIST var_list [num_of_variables]; */ + SD_END_STRUCT + }; +typedef struct named_var_list NAMED_VAR_LIST; + +extern ST_INT max_mmsease_vars; /* max number allowed */ +extern ST_INT mms_var_count; /* number currently defined */ +extern ST_INT max_mmsease_nvlists; +extern ST_INT mms_nvlist_count; + +/************************************************************************/ +/* This function selects the binary search mechansisms (default) */ +ST_VOID ms_bs_init (ST_VOID); + +/* This function selects the linked list search mechansisms */ +ST_VOID ms_ll_init (ST_VOID); + +NAMED_VAR *ms_add_named_var (DOMAIN_OBJS *dom, ST_CHAR *name, + OBJECT_NAME *type, VAR_ACC_ADDR *addr, + ST_INT chan); +NAMED_VAR *ms_add_var (DOMAIN_OBJS *dom, ST_CHAR *name, + NAMED_TYPE *type, VAR_ACC_ADDR *addr, ST_INT chan); + +NAMED_VAR *ms_find_named_var (DOMAIN_OBJS *dom, ST_CHAR *name); +NAMED_VAR *ms_find_named_var_obj (OBJECT_NAME *obj, ST_INT chan); + +ST_RET ms_del_named_var (DOMAIN_OBJS *dom, ST_CHAR *name); +ST_RET ms_del_named_var_obj (OBJECT_NAME *obj, ST_INT chan); + +ST_VOID ms_del_all_named_vars (DOMAIN_OBJS *dom); + +NAMED_VAR_LIST *ms_add_nvlist (DOMAIN_OBJS *dom, ST_CHAR *name, + ST_INT num_vars, VARIABLE_LIST *var_list); +NAMED_VAR_LIST *ms_find_nvlist (DOMAIN_OBJS *dom, ST_CHAR *name); +NAMED_VAR_LIST *ms_find_nvlist_obj (OBJECT_NAME *obj, ST_INT chan); + +ST_RET ms_del_nvlist (DOMAIN_OBJS *dom, ST_CHAR *name); +ST_RET ms_del_nvlist_obj (OBJECT_NAME *obj, ST_INT chan); + +ST_VOID ms_del_all_nvlists (DOMAIN_OBJS *dom); + +ST_RET mv_getvar_resp (MMSREQ_IND *ind); +ST_RET mv_delvar_resp (MMSREQ_IND *ind); +ST_RET mv_defvar_resp (MMSREQ_IND *ind); +ST_RET mv_namelist_resp (MMSREQ_IND *ind); + +ST_RET mv_getvlist_resp (MMSREQ_IND *ind); +ST_RET mv_delvlist_resp (MMSREQ_IND *ind); +ST_RET mv_defvlist_resp (MMSREQ_IND *ind); + +/************************************************************************/ +/* VIRTUAL MACHINE READ, WRITE, INFORMATION REPORT */ +/* The structure below are used for most variable access VM req funs, */ +/* and allows multiple variables per transaction. */ +/************************************************************************/ +/* VM defines to be used for DataAccessError codes */ +#define ERROR_RESPONSE 20 /* for error response only */ +#define NUM_VAR_MISMATCH 21 + + +struct mv_vardesc /* virtual machine variable description */ + { + OBJECT_NAME name; /* name of variable */ + OBJECT_NAME type; /* type of variable */ + ST_CHAR *data; /* destination/source pointer */ + }; +typedef struct mv_vardesc MV_VARDESC; + +/* This structure is provided as request information for a MV read req. */ +/* If desired, this info may be examined in the user confirm function. */ + +struct readvars_req_info + { /* virtual machine read req structure */ + ST_INT num_of_vars; /* number of variables */ +/* list of variables */ +/* MV_VARDESC vardesc_list [num_of_vars]; */ + SD_END_STRUCT + }; +typedef struct readvars_req_info READVARS_REQ_INFO; + + +/***** READ REQUEST **** */ + +/* a pointer to an array of these structures are passed into the */ +/* 'mv_read_variables' function */ + +struct mv_read_req_info + { + struct /* input (request) information */ + { + ST_CHAR *data_ptr; /* Dest data buffer (for success) */ + NAMED_TYPE *type; /* pointer to associated type */ + ST_BOOLEAN alt_acc_pres; /* set SD_TRUE if Alt Access is present */ + ST_BOOLEAN alt_acc_type_aa; /* set SD_TRUE if type is Alt Acc ready */ + ST_BOOLEAN alt_acc_data_packed; /* set SD_TRUE if local data is packed */ + ALT_ACCESS alt_acc; /* Alternate Access specification */ + }i; + struct /* output (result) information */ + { + ST_RET result; /* !=0 for success, else SD_FAILURE */ + ST_INT16 err_code; /* DataAccessError (for failure) */ + +/* If a named type is not supplied, and the read was a success, this */ +/* is the derived runtime type. It was allocated using 'chk_calloc' */ +/* and must be free'd using 'chk_free' */ + + ST_INT num_rt; + RUNTIME_TYPE *rt_out; + +/* If a data_ptr is not supplied, and the read was a success, this */ +/* is the buffer allocated for the data. It was allocated using */ +/* 'chk_calloc' and must be free'd using 'chk_free' */ + + ST_CHAR *data_ptr_out; /* Dest data buffer (for success) */ + }o; + }; +typedef struct mv_read_req_info MV_READ_REQ_INFO; + +MMSREQ_PEND *mv_read (ST_INT chan, OBJECT_NAME *name, + OBJECT_NAME *type, ST_CHAR *dest); +MMSREQ_PEND *mv_readvars (ST_INT chan, ST_INT num_var, MV_VARDESC *info); +MMSREQ_PEND *mv_read_variables (ST_INT chan, ST_INT num_var, + READ_REQ_INFO *prim, + MV_READ_REQ_INFO *vminfo); + +/***** READ RESPONSE ***** */ + +/* a pointer to an array of these structures are passed into the */ +/* 'mv_read_response' function */ + +struct mv_read_resp_info + { + ST_INT16 result; /* ACC_RSLT_SUCCESS, ACC_RSLT_FAILURE */ + ST_INT16 err_code; /* DataAccessError (for failure) */ + ST_CHAR *data_ptr; /* Source data buffer (for success) */ + NAMED_TYPE *type; /* pointer to associated type */ + ST_BOOLEAN alt_acc_pres; /* set SD_TRUE if Alt Access is present */ + ST_BOOLEAN alt_acc_data_packed;/* set SD_TRUE if local data is packed */ + ALT_ACCESS alt_acc; /* Alternate Access specification */ + }; +typedef struct mv_read_resp_info MV_READ_RESP_INFO; + +ST_RET mv_read_resp (MMSREQ_IND *ind); +ST_RET mv_read_response (MMSREQ_IND *ind, ST_INT num_var, + MV_READ_RESP_INFO *info); + +/***** WRITE REQUEST **** */ + +/* a pointer to an array of these structures are passed into the */ +/* 'mv_write_variables' function */ + +struct mv_write_req_info + { + ST_CHAR *data_ptr; /* Source data buffer */ + NAMED_TYPE *type; /* pointer to associated type */ + ST_BOOLEAN alt_acc_pres; /* set SD_TRUE if Alt Access is present */ + ST_BOOLEAN alt_acc_type_aa; /* set SD_TRUE if type is Alt Acc ready */ + ST_BOOLEAN alt_acc_data_packed;/* set SD_TRUE if local data is packed */ + ALT_ACCESS alt_acc; /* Alternate Access specification */ + }; +typedef struct mv_write_req_info MV_WRITE_REQ_INFO; + +MMSREQ_PEND *mv_write (ST_INT chan, OBJECT_NAME *var, + OBJECT_NAME *type, ST_CHAR *src); +MMSREQ_PEND *mv_writevars (ST_INT chan, ST_INT num_var, MV_VARDESC *info); +MMSREQ_PEND *mv_write_variables (ST_INT chan, ST_INT num_data, + VAR_ACC_SPEC *reqinfo, + MV_WRITE_REQ_INFO *vminfo); + +/***** WRITE RESPONSE **** */ + +ST_RET mv_write_resp (MMSREQ_IND *ind); +WRITE_RESP_INFO *mv_write_decode (MMSREQ_IND *indptr); +ST_RET ms_extract_write_data (MMSREQ_IND *ind, ST_INT index, + NAMED_TYPE *type, + ST_CHAR *dest, ST_BOOLEAN alt_acc_packed); + +ST_RET ms_extract_wr_data (MMSREQ_IND *indptr, ST_INT i, + NAMED_TYPE *type, ST_CHAR *dest, + ST_BOOLEAN alt_acc_packed, ALT_ACCESS *alt_acc_ptr); + +/***** INFORMATION REPORT REQUEST ***** */ + +/* a pointer to an array of these structures are passed into the */ +/* 'mv_info_req' function */ + +struct mv_info_req_info + { + ST_CHAR *data_ptr; /* Source data buffer */ + NAMED_TYPE *type; /* pointer to associated type */ + ST_BOOLEAN alt_acc_pres; /* set SD_TRUE if Alt Access is present */ + ST_BOOLEAN alt_acc_data_packed;/* set SD_TRUE if local data is packed */ + ALT_ACCESS alt_acc; /* Alternate Access specification */ + }; +typedef struct mv_info_req_info MV_INFO_REQ_INFO; + +ST_RET mv_info (ST_INT chan, OBJECT_NAME *var, OBJECT_NAME *type, + ST_CHAR *src); +ST_RET mv_infovars (ST_INT chan, ST_INT num_vars, MV_VARDESC *vminfo); +ST_RET mv_info_report (ST_INT chan, VAR_ACC_SPEC *req, + ST_INT num_var, MV_INFO_REQ_INFO *vminfo); +ST_RET mv_info_nvlist (ST_INT chan, OBJECT_NAME *obj); + +ST_RET ms_extract_info_data (MMSREQ_IND *ind, ST_INT index, + NAMED_TYPE *type, ST_CHAR *dest, + ST_BOOLEAN alt_acc_packed); + +ST_RET ms_extract_inf_data (MMSREQ_IND *indptr, ST_INT i, + NAMED_TYPE *type, ST_CHAR *dest, + ST_BOOLEAN alt_acc_packed, + ALT_ACCESS *alt_acc_ptr); + +/************************************************************************/ + +OBJECT_NAME *ms_extract_varname (ST_CHAR *reqinfo, ST_INT op, ST_INT indx); + +/************************************************************************/ +/************************************************************************/ +#endif /* end of MMS_LITE not defined */ +/************************************************************************/ +/************************************************************************/ + +#define MMS_EASE_BUILDER 0 +#define UNKNOWN_BUILDER 1 + +extern ST_INT ms_req_bld_id; +extern ST_INT ms_resp_bld_id; + +ST_RET ms_init_va_size (ST_INT chan, ST_UCHAR spec_in_rslt, + ST_INT16 var_acc_tag, OBJECT_NAME *vl_name, + ST_LONG *req_size_out, ST_LONG *resp_size_out); + +#ifndef MMS_LITE +ST_RET ms_va_size (ST_INT op, ST_UCHAR spec_in_rslt, ST_INT16 var_acc_tag, + VARIABLE_LIST *vl, NAMED_TYPE *type, + ST_LONG *req_size_out, ST_LONG *resp_size_out); +#else +ST_RET ms_va_size (ST_INT op, ST_UCHAR spec_in_rslt, ST_INT16 var_acc_tag, + VARIABLE_LIST *vl_ptr, ST_INT type_id, + ST_LONG *req_size, ST_LONG *resp_size); +#endif + +/************************************************************************/ +/************************************************************************/ + +extern ST_INT m_rt_type_limit; /* max num of runtime blks per def */ + + +#ifndef MMS_LITE +ST_INT ms_get_blocked_len (NAMED_TYPE *type); +#endif + +ST_INT ms_get_blocked_length (SD_CONST RUNTIME_TYPE *rt, ST_INT num_rt); + +ST_RET ms_runtime_to_asn1 (ASN1_ENC_CTXT *aCtx, SD_CONST RUNTIME_TYPE *rt, ST_INT num_rt); + +ST_UCHAR *ms_mk_asn1_type (ST_INT *asn1_len, ST_UCHAR *asn1_buf, + ST_CHAR *tdl); + +ST_VOID ms_log_runtime (SD_CONST RUNTIME_TYPE *rt, ST_INT num_rt); + +ST_CHAR *ms_asn1_to_tdl (ST_UCHAR *asn1_ptr, ST_INT asn1_len, + ST_INT max_tdl_len); +ST_INT ms_runtime_to_tdl (SD_CONST RUNTIME_TYPE *rt, ST_INT rt_num, + ST_CHAR *tdl_buf, ST_INT max_tdl_len); + +RUNTIME_CTRL *ms_tdl_to_runtime (ST_CHAR *tdl, /* TDL string */ + ST_UCHAR *asn1_buf, /* ASN.1 buffer */ + ST_INT asn1_buf_len); /* buffer len */ + +ST_RET ms_rt_to_typedef (ST_CHAR *typedefName, SD_CONST RUNTIME_TYPE *rt, + ST_INT numRt, ST_CHAR *dest, ST_INT destSize); + +RUNTIME_CTRL *ms_runtime_create (ST_UCHAR *asn1_data, + ST_UINT asn1_len, + ST_INT max_num_rt); +ST_VOID ms_runtime_destroy (RUNTIME_CTRL *rt_head); + +#if !defined(MMS_LITE) +/* For backward compatibility only. */ +/* New programs should use ms_runtime_create. */ + +ST_INT ms_asn1_to_runtime_x (ST_UCHAR *asn1_data, ST_UINT asn1_len, + RUNTIME_TYPE *rt_table, ST_INT rt_len, + ST_BOOLEAN calc_only); + +#define ms_asn1_to_runtime(asn1,asn1_len,rt,num_rt)\ + ms_asn1_to_runtime_x(asn1,asn1_len,rt, num_rt,m_calc_rt_size) + +/* Note: This variable is no longer used internally by MMS-EASE, but */ +/* can be used in the application space for the following: */ +/* 1. Is used in the macro 'ms_asn1_to_runtime' for the */ +/* 'ms_asn1_to_runtime_x' calc_only parameter. This is done to */ +/* maintain backward compatibility, and users are encouraged to */ +/* use 'ms_runtime_create' instead. */ +extern ST_BOOLEAN m_calc_rt_size; /* flag to calculate num rt blocks */ + /* in ms_asn1_to_runtime */ +#endif /* !MMS_LITE */ + +/************************************************************************/ +/* ms_comp_name_find */ +/* These macros find the component name in a runtime type structure. */ +/* There are different macros for different RUNTIME_TYPE structures. */ +/* Macro argument = ptr to RUNTIME_TYPE struct. */ +/* RETURN: pointer to component name string */ +/************************************************************************/ +#if defined(USE_RT_TYPE_2) + +/* rt->comp_name_ptr = pointer to string */ +/* NOTE: ptr may be NULL. If so return empty string (i.e. "") instead */ +/* of NULL. Caller might not handle NULL. */ +#define ms_comp_name_find(rt) ((rt)->comp_name_ptr ? (rt)->comp_name_ptr : "") +#define ms_comp_name_pres(rt) ((rt)->comp_name_ptr ? SD_TRUE : SD_FALSE) + +#elif defined(USE_RT_TYPE_3) + +/* rt->name_index = index to global array of strings "mvlRtNames" */ +#define ms_comp_name_find(rt) (mvlRtNames[(rt)->name_index]) +#define ms_comp_name_pres(rt) ((rt)->name_index > 0 ? SD_TRUE : SD_FALSE) + +#else /* Default */ + +/* rt->name = character array. */ +#define ms_comp_name_find(rt) ((rt)->name) +#define ms_comp_name_pres(rt) ((rt)->name[0] != 0 ? SD_TRUE : SD_FALSE) + +#endif /* Default */ + + +/************************************************************************/ +/* VIRTUAL MACHINE ASN.1 TO?FROM LOCAL REPRESENTATION FUNCTIONS */ +/* These functions are used to translate ASN.1 encoded data to/from */ +/* local format */ +/************************************************************************/ + +#ifndef MMS_LITE +ST_RET ms_asn1_to_locl (NAMED_TYPE *type, + ST_UCHAR *asn1, ST_INT asn1_len, ST_CHAR *dest); +ST_RET ms_locl_to_asn1 (ASN1_ENC_CTXT *aCtx, NAMED_TYPE *type, ST_CHAR *src); +#endif + +/* These 2 are Re-entrant functions. Based on ASN1R tools. */ +ST_RET ms_asn1_to_local (SD_CONST RUNTIME_TYPE *rt, ST_INT num_rt, + ST_UCHAR *asn1, ST_INT asn1_len, ST_CHAR *dest); +ST_RET ms_local_to_asn1 (ASN1_ENC_CTXT *aCtx, + SD_CONST RUNTIME_TYPE *rt_head, + ST_INT rt_num, + ST_CHAR *dptr); +/* "ms_local_to_asn1_2" is almost the same as "ms_local_to_asn1_easy" */ +/* but its arguments are more consistent with other encoding functions. */ +ST_RET ms_local_to_asn1_2 (SD_CONST RUNTIME_TYPE *rt_head, ST_INT rt_num, + ST_CHAR *dptr, + ST_UCHAR *buf_ptr, + ST_INT buf_len, + ST_UCHAR **asn1_ptr_out, + ST_INT *asn1_len_out); +ST_UCHAR *ms_local_to_asn1_easy (SD_CONST RUNTIME_TYPE *rt_head, ST_INT rt_num, + ST_CHAR *dptr, + ST_UCHAR *asn1Buf, + ST_INT asn1BufLen, + ST_INT *asn1LenOut); +ST_CHAR *ms_local_to_text (ST_CHAR *datptr, SD_CONST RUNTIME_TYPE *rt_head, ST_INT rt_num, + ST_CHAR *textBuf, ST_UINT textBufSize); + + + +/* Index definitions into the alignment table */ +#define ARRSTRT_ALGN 0 +#define ARREND_ALGN 1 +#define STRSTRT_ALGN 2 +#define STREND_ALGN 3 +#define INT8_ALGN 4 +#define INT16_ALGN 5 +#define INT32_ALGN 6 +#define INT64_ALGN 7 +#define FLOAT_ALGN 8 +#define DOUBLE_ALGN 9 +#define OCT_ALGN 10 +#define BOOL_ALGN 11 +#define BCD1_ALGN 12 +#define BCD2_ALGN 13 +#define BCD4_ALGN 14 +#define BIT_ALGN 15 +#define VIS_ALGN 16 + +#define NUM_ALGN_TYPES 17 + +/* define alignment for Generalized Time (in VS 2005 time_t is 64-bits) */ +#define GENERAL_TIME_ALGN (sizeof(time_t) == 8 ? INT64_ALGN : INT32_ALGN) + + +extern SD_CONST ST_INT *m_data_algn_tbl; +extern SD_CONST ST_INT m_packed_data_algn_tbl[NUM_ALGN_TYPES]; +extern SD_CONST ST_INT m_def_data_algn_tbl[NUM_ALGN_TYPES]; +extern ST_INT m_lite_data_algn_tbl[NUM_ALGN_TYPES]; /* created by Foundry */ + +#define M_STRSTART_MODE_NONE 0 +#define M_STRSTART_MODE_FIRST 1 +#define M_STRSTART_MODE_LARGEST 2 +extern ST_INT m_struct_start_algn_mode; + +#define M_STREND_MODE_NONE 0 +#define M_STREND_MODE_LARGEST 1 +extern ST_INT m_struct_end_algn_mode; + +/* User defined runtime type post processing function */ +extern ST_VOID (*u_rt_type_process) (SD_CONST RUNTIME_TYPE *rt, ST_INT num_rt); + + +/************************************************************************/ +/************************************************************************/ + +/* For encoding and decoding 'alternateAccess', the outer constructor */ +/* usually has a value of 5. If a different value is required (for */ +/* scattered access, for instance), this value can be modified. */ +/* Used in both encoding and decode of alternateAccess */ +extern ST_INT16 m_alt_acc_outer_tag; + +/* When decoding an ASN.1 alternateAccess, this variable determines the */ +/* size of the table that is allocated for the decoded AA (and so */ +/* limits the complexity of the alternate access that can be handled */ +/* The default value is 50. */ +extern ST_INT m_max_dec_aa; + +/* This variable is the 'high water' mark of how many AA were actually */ +/* required. This can be used to tune memory usage if desired. */ +extern ST_INT m_hw_dec_aa; + +/* When performing ASN1 <-> local data format, the runtime type is */ +/* 'unrolled', and one element is required for each data element and */ +/* structure/array start/end. This variable determines the size of the */ +/* of the table that is allocated for this operation (and so limits the */ +/* size and complexity of the data types that can be handled. */ +/* The default value is 1000. */ +extern ST_INT m_max_rt_aa_ctrl; + +/* This variable is the 'high water' mark of how many elements were */ +/* actually required for m_max_rt_aa_ctrl. This can be used to tune */ +/* memory usage if desired. */ +extern ST_INT m_hw_rt_aa_ctrl; + +/* This variable is used to determine whether the local data format is */ +/* in 'packed type' or 'original type' form. Used in all conversions */ +/* to/from local data form when the AA_DATA library is used. */ +/* Temporarily set to SD_FALSE for the non-AA data conversion functions. */ +extern ST_BOOLEAN m_alt_acc_packed; + +/************************************************************************/ + +extern ST_RET (*ms_asn1_data_to_runtime_fun) (RUNTIME_TYPE **tptr, + ST_INT *t_len, + ST_UCHAR *asn1ptr, + ST_INT asn1_len); + +ST_RET ms_asn1_data_to_runtime (RUNTIME_TYPE **tptr, + ST_INT *t_len, + ST_UCHAR *asn1ptr, + ST_INT asn1_len); + +ST_RET ms_asn1_data_to_locl (ST_UCHAR *asn1_data, + ST_INT asn1_data_len, + ST_VOID **data_dest, + ST_INT *data_dest_len, + RUNTIME_TYPE **rt, + ST_INT *t_len); + +ST_VOID ms_rt_size_calc (RUNTIME_TYPE *rt_head, ST_INT rt_num); + +/************************************************************************/ +/* ARBITRARY DATA HANDLING */ +/************************************************************************/ + +typedef struct m_arb_data_ctrl + { + ST_RET (*arrStart) (RT_AA_CTRL *rtaa); + ST_RET (*arrEnd) (RT_AA_CTRL *rtaa); + ST_RET (*strStart) (RT_AA_CTRL *rtaa); + ST_RET (*strEnd) (RT_AA_CTRL *rtaa); + ST_RET (*int8) (ST_INT8 *data_dest, RT_AA_CTRL *rtaa); + ST_RET (*int16) (ST_INT16 *data_dest, RT_AA_CTRL *rtaa); + ST_RET (*int32) (ST_INT32 *data_dest, RT_AA_CTRL *rtaa); +#ifdef INT64_SUPPORT + ST_RET (*int64) (ST_INT64 *data_dest, RT_AA_CTRL *rtaa); +#endif + ST_RET (*uint8) (ST_UINT8 *data_dest, RT_AA_CTRL *rtaa); + ST_RET (*uint16) (ST_UINT16 *data_dest, RT_AA_CTRL *rtaa); + ST_RET (*uint32) (ST_UINT32 *data_dest, RT_AA_CTRL *rtaa); +#ifdef INT64_SUPPORT + ST_RET (*uint64) (ST_UINT64 *data_dest, RT_AA_CTRL *rtaa); +#endif + ST_RET (*flt) (ST_FLOAT *data_dest, RT_AA_CTRL *rtaa); + ST_RET (*dbl) (ST_DOUBLE *data_dest, RT_AA_CTRL *rtaa); + ST_RET (*oct) (ST_UCHAR *data_dest, RT_AA_CTRL *rtaa); + ST_RET (*booln) (ST_BOOLEAN *data_dest, RT_AA_CTRL *rtaa); + ST_RET (*bcd1) (ST_INT8 *data_dest, RT_AA_CTRL *rtaa); + ST_RET (*bcd2) (ST_INT16 *data_dest, RT_AA_CTRL *rtaa); + ST_RET (*bcd4) (ST_INT32 *data_dest, RT_AA_CTRL *rtaa); + ST_RET (*bs) (ST_UCHAR *data_dest, RT_AA_CTRL *rtaa); + ST_RET (*vis) (ST_CHAR *data_dest, RT_AA_CTRL *rtaa); + ST_RET (*bt4) (ST_INT32 *data_dest, RT_AA_CTRL *rtaa); + ST_RET (*bt6) (ST_INT32 *data_dest, RT_AA_CTRL *rtaa); + ST_RET (*gt) (time_t *data_dest, RT_AA_CTRL *rtaa); + ST_RET (*utc) (MMS_UTC_TIME *data_dest, RT_AA_CTRL *rtaa); + ST_RET (*utf8) (ST_UCHAR *data_dest, RT_AA_CTRL *rtaa); + } M_ARB_DATA_CTRL; + +ST_RET ms_process_arb_data (ST_CHAR *data_base, + SD_CONST RUNTIME_TYPE *rt_head, ST_INT rt_num, + ST_BOOLEAN alt_acc_pres, ST_BOOLEAN alt_acc_packed, + ALT_ACCESS *alt_acc, + M_ARB_DATA_CTRL *ac); + +/************************************************************************/ +/* Functions for building a type definition one component at a time. */ +/************************************************************************/ +ST_VOID ms_rt_bld_start (RUNTIME_BUILD_CTXT *rt_ctxt, ST_INT max_rt_num); +ST_VOID ms_rt_bld_cancel (RUNTIME_BUILD_CTXT *rt_ctxt); +ST_VOID ms_rt_bld_finish (RUNTIME_BUILD_CTXT *rt_ctxt); +ST_RET ms_rt_bld_add_str_start (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name); +ST_RET ms_rt_bld_add_str_end (RUNTIME_BUILD_CTXT *ctxt); +ST_RET ms_rt_bld_add_arr_start (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name, ST_INT array_count); +ST_RET ms_rt_bld_add_arr_end (RUNTIME_BUILD_CTXT *ctxt); +ST_RET ms_rt_bld_add_bool (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name); +ST_RET ms_rt_bld_add_int (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name, ST_INT el_len); +ST_RET ms_rt_bld_add_uint (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name, ST_INT el_len); +ST_RET ms_rt_bld_add_float (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name, ST_INT el_len); +ST_RET ms_rt_bld_add_bstring (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name, ST_INT el_len); +ST_RET ms_rt_bld_add_bvstring (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name, ST_INT el_len); +ST_RET ms_rt_bld_add_vstring (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name, ST_INT el_len); +ST_RET ms_rt_bld_add_utctime (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name); +ST_RET ms_rt_bld_add_btime6 (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name); +ST_RET ms_rt_bld_add_ostring (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name, ST_INT el_len); +ST_RET ms_rt_bld_add_ovstring (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name, ST_INT el_len); +ST_RET ms_rt_bld_add_utf8vstring (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name, ST_INT el_len); +ST_RET ms_rt_bld_add_special (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name, RUNTIME_TYPE *special); +ST_RET ms_rt_bld_remove_last (RUNTIME_BUILD_CTXT *ctxt); +ST_RET ms_rt_bld_chk_state (RUNTIME_BUILD_CTXT *ctxt); +ST_INT ms_rt_bld_get_count (RUNTIME_BUILD_CTXT *ctxt); +ST_INT ms_rt_bld_get_max_count (RUNTIME_BUILD_CTXT *ctxt); + +#ifdef __cplusplus +} +#endif + +#endif + diff --git a/include/inc/mmsdefs.h b/include/inc/mmsdefs.h new file mode 100644 index 0000000..5caa0c4 --- /dev/null +++ b/include/inc/mmsdefs.h @@ -0,0 +1,235 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2004, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : mmsdefs.h */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This include file is for MMS-EASE or SMALL-MMS programmer use, */ +/* and calls out all needed include files. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 05/09/07 JRB 14 Add forward references. */ +/* 04/09/07 MDE 13 Enhanced filtered logging */ +/* 09/17/04 EJV 12 Added mms_chk_resource. */ +/* 10/13/03 EJV 11 Moved MMSEASE_VERSION define to mms_defs.h. */ +/* 10/07/03 EJV 10 Added MMSEASE_VERSION define. */ +/* 12/12/02 JRB 09 Add ASN1_ENC_CTXT arg to _mms_unconf_req_fin */ +/* 01/18/02 JRB 08 Replace _ms_fin_pdu_debug with _ms_fin_pdu */ +/* and _ms_fin_pdu_log. */ +/* 12/20/01 JRB 07 Convert to use ASN1R. */ +/* 09/26/00 JRB 06 Add SD_CONST on ms_mk_rt_aa* */ +/* 06/01/00 RKR 05 Removed prot mms_null_pdu_dec use mms_dfun.h */ +/* 03/23/99 MDE 04 Changes to decode buffer allocation scheme */ +/* 06/15/98 MDE 03 More changes to allow compile under C++ */ +/* 06/15/98 MDE 02 Changes to allow compile under C++ */ +/* 03/20/98 JRB 01 Del mmsop_en.h. Only user code needs it now. */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef MMSDEFS_INCLUDED +#define MMSDEFS_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "glberror.h" + +#ifndef MMS_LITE +#include "gen_list.h" +#include "mem_chk.h" +#include "mms_defs.h" +#include "mms_pvar.h" +#include "mms_vvar.h" +#include "mmsintrn.h" +#include "mms_mp.h" +#include "mms_mv.h" +#include "mms_err.h" +#else +#include "mem_chk.h" +#include "mms_def2.h" +#include "mms_pvar.h" +#include "mms_vvar.h" +#include "mmsintr2.h" +#include "mms_mp.h" +#include "mmsldefs.h" +#endif + +#include "mms_dfun.h" +#include "mms_perr.h" +#include "mms_log.h" +#include "mmslog.h" + +#include "mms_pcon.h" +#include "mms_pdom.h" +#include "mms_pevn.h" +#include "mms_pfil.h" +#include "mms_pjou.h" +#include "mms_pocs.h" +#include "mms_pprg.h" +#include "mms_psem.h" +#include "mms_pvmd.h" + +/************************************************************************/ +/* For use when global variables cannot be initialized at compile time */ + +#if defined (NO_GLB_VAR_INIT) +ST_VOID m_init_glb_vars (ST_VOID); +#endif + +/************************************************************************/ +ST_VOID _ms_wr_service_err (ASN1_ENC_CTXT *ac, ST_INT16 eclass, ST_INT16 code, + ADTNL_ERR_RESP_INFO *adtnl_info); + +/************************************************************************/ +/* Variable Access Functions. */ +/************************************************************************/ + +ST_VOID _mms_get_service_err (ASN1_DEC_CTXT *ac, ERR_INFO *dest); +ST_VOID _ms_get_mms_fname (ASN1_DEC_CTXT *ac, FILE_NAME *dest, ST_INT max_fnames, ST_INT *num_out); +ST_VOID _ms_get_mms_app_ref (ASN1_DEC_CTXT *ac, ST_UCHAR **dest, ST_INT *dest_size, ST_VOID (*done)(ASN1_DEC_CTXT *ac)); +ST_VOID _ms_get_mms_evtime (ASN1_DEC_CTXT *ac, EVENT_TIME *dest, ST_VOID (*done)(ASN1_DEC_CTXT *ac)); +ST_VOID _ms_get_mms_modlist (ASN1_DEC_CTXT *ac, MODIFIER *dest, ST_INT *num_out, ST_INT max_mods, ST_VOID (*done)(ASN1_DEC_CTXT *ac)); +ST_VOID _ms_get_mms_objname (ASN1_DEC_CTXT *ac, OBJECT_NAME *dest, ST_VOID (*done)(ASN1_DEC_CTXT *ac)); +ST_VOID _ms_get_jou_ent_cont (ASN1_DEC_CTXT *ac, ENTRY_CONTENT *dest, ST_INT dest_size, ST_VOID (*done)(ASN1_DEC_CTXT *ac)); +ST_VOID _ms_get_va_address (ASN1_DEC_CTXT *ac, VAR_ACC_ADDR *dest, ST_VOID (*done)(ASN1_DEC_CTXT *ac)); +ST_VOID _ms_get_va_access_rslt (ASN1_DEC_CTXT *ac, ACCESS_RESULT *dest, ST_VOID (*done)(ASN1_DEC_CTXT *ac)); +ST_VOID _ms_get_va_data (ASN1_DEC_CTXT *ac, VAR_ACC_DATA *dest, ST_VOID (*done)(ASN1_DEC_CTXT *ac)); +ST_VOID _ms_get_va_type_spec (ASN1_DEC_CTXT *ac, VAR_ACC_TSPEC *dest, ST_VOID (*done)(ASN1_DEC_CTXT *ac)); +ST_VOID _ms_get_va_scat_access (ASN1_DEC_CTXT *ac, SCATTERED_ACCESS *dest, ST_VOID (*done)(ASN1_DEC_CTXT *ac)); +ST_VOID _ms_get_va_alt_access (ASN1_DEC_CTXT *ac, ALTERNATE_ACCESS *dest, ST_VOID (*done)(ASN1_DEC_CTXT *ac)); +ST_VOID _ms_get_va_var_spec (ASN1_DEC_CTXT *ac, VARIABLE_SPEC *dest, ST_VOID (*done)(ASN1_DEC_CTXT *ac)); +ST_VOID _ms_get_va_var_list (ASN1_DEC_CTXT *ac, VARIABLE_LIST *dest, ST_INT *num_out, ST_INT max_num, ST_VOID (*done)(ASN1_DEC_CTXT *ac)); +ST_VOID _ms_get_va_spec (ASN1_DEC_CTXT *ac, VAR_ACC_SPEC *dest, ST_INT max_vars, ST_VOID (*done)(ASN1_DEC_CTXT *ac)); + +ST_VOID _ms_wr_mms_fname (ASN1_ENC_CTXT *ac, FILE_NAME *src, ST_INT num); +ST_VOID _ms_wr_mms_evtime (ASN1_ENC_CTXT *ac, EVENT_TIME *src); +ST_VOID _ms_wr_mms_modlist (ASN1_ENC_CTXT *ac, MODIFIER *src, ST_INT num); +ST_VOID _ms_wr_mms_objname (ASN1_ENC_CTXT *ac, OBJECT_NAME *src); +ST_VOID _ms_wr_jou_ent_cont (ASN1_ENC_CTXT *ac, ENTRY_CONTENT *src); +ST_VOID _ms_wr_va_address (ASN1_ENC_CTXT *ac, VAR_ACC_ADDR *src); +ST_VOID _ms_wr_va_access_rslt (ASN1_ENC_CTXT *ac, ACCESS_RESULT *src); +ST_VOID _ms_wr_va_data (ASN1_ENC_CTXT *ac, VAR_ACC_DATA *src); +ST_VOID _ms_wr_va_type_spec (ASN1_ENC_CTXT *ac, VAR_ACC_TSPEC *src); +ST_VOID _ms_wr_va_scat_access (ASN1_ENC_CTXT *ac, SCATTERED_ACCESS *src); +ST_VOID _ms_wr_va_alt_access (ASN1_ENC_CTXT *ac, ALTERNATE_ACCESS *src); +ST_VOID _ms_wr_va_var_spec (ASN1_ENC_CTXT *ac, VARIABLE_SPEC *src); +ST_VOID _ms_wr_va_var_list (ASN1_ENC_CTXT *ac, VARIABLE_LIST *src, ST_INT num); +ST_VOID _ms_wr_va_spec (ASN1_ENC_CTXT *ac, VAR_ACC_SPEC *src); + +ST_VOID _mms_init_dec (ASN1_DEC_CTXT *ac, ST_BOOLEAN req); + +/************************************************************************/ +/* Alternate Access Functions */ +/************************************************************************/ +ST_VOID _ms_log_runtime_aa (RT_AA_CTRL *rt_aa, ST_INT num_aa); + +ST_RET _ms_mk_rt_aa_all (SD_CONST RUNTIME_TYPE *rt_head, ST_INT rt_num, + RT_AA_CTRL **rt_aa_out, ST_INT *num_aa_out); + +ST_RET _ms_mk_rt_aa (SD_CONST RUNTIME_TYPE *rt, ST_INT rt_num, + ALT_ACCESS *alt_acc, + RT_AA_CTRL **rt_aa_out, ST_INT *num_aa_out); + +ST_INT _ms_get_rtaa_data_size (RT_AA_CTRL *runtime_aa, ST_INT num_rt_aa); + +/************************************************************************/ +/* Special ASN.1 buffer handling functions for VM operations where */ +/* a series of ASN.1 encoded AA must be created. */ + +ST_UCHAR *_m_get_aa_asn1_buf (ST_INT *size_out); +ST_VOID _m_free_aa_asn1_buf (ST_VOID); +ST_VOID _m_set_aa_asn1_buf_end (ST_UCHAR *new_end); + +/************************************************************************/ +/************************************************************************/ +/* General function declarations used by the mp_xxx series. */ +/* These are not of general use to the application programmer. */ +/************************************************************************/ + +ST_VOID _ms_chk_for_extern (ASN1_DEC_CTXT *ac, ST_INT *len_ptr, ST_UCHAR **buf_ptr, ST_VOID (*done)(ASN1_DEC_CTXT *ac)); +ST_VOID _ms_set_cs_check (ASN1_DEC_CTXT *ac); +ST_VOID _ms_set_cs_check2 (ASN1_DEC_CTXT *ac); +ST_VOID _mms_dec_done_ok (ASN1_DEC_CTXT *ac); + +ST_UCHAR *_ms_fin_pdu (ASN1_ENC_CTXT *aCtx, ST_INT type, ST_INT *pPduLen); +#ifdef DEBUG_SISCO +ST_VOID _ms_fin_pdu_log (ST_INT type, ST_CHAR *txt, + ST_UCHAR *pduPtr, ST_INT pduLen); +#endif + +ST_VOID _mms_dec_buf_free (ASN1_DEC_CTXT *ac, ST_RET err_code); +#ifndef MMS_LITE +ST_RET _mms_send_null_resp (MMSREQ_IND *indptr, ST_INT opcode); +MMSREQ_PEND *_mms_send_null_req (ST_INT chan, ST_INT opcode); + +MMSREQ_PEND *_mms_req_send (ST_INT opcode, + ST_VOID (*mk_ptr)(ASN1_ENC_CTXT *, ST_CHAR *), + ST_INT chan, + ST_CHAR *info_ptr); + +ST_INT _mms_chk_resource (ST_INT chan); +ST_RET _mms_unconf_req_send (ST_INT opcode, + ST_VOID (*mk_ptr)(ASN1_ENC_CTXT *, ST_CHAR *), + ST_INT chan, + ST_CHAR *info_ptr); + +ST_RET _mms_resp_send (ST_INT opcode, + MMSREQ_IND *indptr, + ST_VOID (*mk_fun)(ASN1_ENC_CTXT *, ST_CHAR *), + ST_CHAR *info_ptr); + +#else +ST_RET _mms_fin_null_resp (ST_UINT32 invoke_id, ST_INT opcode); +ST_RET _mms_fin_null_req (ST_INT opcode); + +ST_RET _mms_resp_fin (ST_INT opcode, ST_UINT32 invoke_id, + ST_VOID (*mk_fun)(ASN1_ENC_CTXT *, ST_CHAR *), + ST_CHAR *info_ptr); + +ST_RET _mms_req_fin (ST_INT opcode, + ST_VOID (*mk_ptr)(ASN1_ENC_CTXT *, ST_CHAR *), + ST_CHAR *info_ptr); + +ST_RET _mms_unconf_req_fin (ASN1_ENC_CTXT *aCtx, ST_INT opcode, + ST_VOID (*mk_ptr)(ASN1_ENC_CTXT *, ST_CHAR *), + ST_CHAR *info_ptr); + +struct mvl_req_pend; /* forward reference */ +struct mvl_ind_pend; /* forward reference */ +struct mvl_net_info; /* forward reference */ + +ST_VOID mpl_req_log (struct mvl_req_pend *reqCtrl, ST_VOID *reqInfo); +ST_VOID mpl_resp_log (struct mvl_ind_pend *indCtrl, ST_VOID *respInfo); +ST_VOID mpl_unsol_req_log (struct mvl_net_info *netInfo, ST_INT op, ST_VOID *reqInfo); + +#endif + +/* A casting aid ... */ +#define M_CAST_MK_FUN(x) ((ST_VOID(*)(ASN1_ENC_CTXT *, ST_CHAR *)) x) + + +#ifndef MMS_LITE +#include "mms_llp.h" +#include "mmsllp.h" +#endif + +#include "mmsefun.h" /* Bruder moved this here */ +#ifdef __cplusplus +} +#endif + +#endif /* MMSDEFS_INCLUDED */ + + diff --git a/include/inc/mmsefun.h b/include/inc/mmsefun.h new file mode 100644 index 0000000..4db5135 --- /dev/null +++ b/include/inc/mmsefun.h @@ -0,0 +1,188 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : mmsefun.h */ +/* PRODUCT(S) : MMSEASE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This file has the function declarations used by the primitive */ +/* level encode routines (mp_xxxx). */ +/* */ +/* Parameters : pointer to the operation specific data structure. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 02 Convert to use ASN1R. */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef MMSEFUN_INCLUDED +#define MMSEFUN_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +/************************************************************************/ +/* primitive encode functions */ +/************************************************************************/ + +ST_UCHAR *_ms_mk_init (ASN1_ENC_CTXT *ac, ST_UCHAR *buf_ptr, ST_INT buf_len, + INIT_INFO *info_ptr, ST_INT pdutype, + ST_BOOLEAN cs_init); + +ST_UCHAR *_ms_mk_conclude (ASN1_ENC_CTXT *ac, ST_UCHAR *buf_ptr,ST_INT buf_len,ST_INT pdutype); + +ST_UCHAR *_ms_mk_cancel (ASN1_ENC_CTXT *ac, ST_BOOLEAN request, ST_UCHAR *msg_ptr, + ST_INT buf_len, ST_UINT32 id); + +ST_UCHAR *_ms_mk_reject (ASN1_ENC_CTXT *ac, ST_UCHAR *msg_ptr, ST_INT buf_len, + REJECT_RESP_INFO *info_ptr); + +ST_UCHAR *_ms_mk_err_resp (ASN1_ENC_CTXT *ac, ST_UCHAR *buf_ptr, ST_INT buf_len, ST_INT op, + ST_UINT32 id, ST_INT16 err_class, ST_INT16 code); + +ST_VOID _ms_mk_stat_req (ASN1_ENC_CTXT *ac, STATUS_REQ_INFO *info); +ST_VOID _ms_mk_stat_resp (ASN1_ENC_CTXT *ac, STATUS_RESP_INFO *info); +ST_VOID _ms_mk_ustat_req (ASN1_ENC_CTXT *ac, USTATUS_REQ_INFO *info); +ST_VOID _ms_mk_namel_req (ASN1_ENC_CTXT *ac, NAMELIST_REQ_INFO *info); +ST_VOID _ms_mk_namel_resp (ASN1_ENC_CTXT *ac, NAMELIST_RESP_INFO *info); +ST_VOID _ms_mk_ident_resp (ASN1_ENC_CTXT *ac, IDENT_RESP_INFO *info); +ST_VOID _ms_mk_rename_req (ASN1_ENC_CTXT *ac, RENAME_REQ_INFO *info); +ST_VOID _ms_mk_getcl_req (ASN1_ENC_CTXT *ac, GETCL_REQ_INFO *info); +ST_VOID _ms_mk_getcl_resp (ASN1_ENC_CTXT *ac, GETCL_RESP_INFO *info); + +ST_VOID _ms_mk_initdown_req (ASN1_ENC_CTXT *ac, INITDOWN_REQ_INFO *info); +ST_VOID _ms_mk_initdown_resp (ASN1_ENC_CTXT *ac, ST_VOID *dummy_info); +ST_VOID _ms_mk_download_req (ASN1_ENC_CTXT *ac, DOWNLOAD_REQ_INFO *info); +ST_VOID _ms_mk_download_resp (ASN1_ENC_CTXT *ac, DOWNLOAD_RESP_INFO *info); +ST_VOID _ms_mk_termdown_req (ASN1_ENC_CTXT *ac, TERMDOWN_REQ_INFO *info); +ST_VOID _ms_mk_initupl_req (ASN1_ENC_CTXT *ac, INITUPL_REQ_INFO *info); +ST_VOID _ms_mk_initupl_resp (ASN1_ENC_CTXT *ac, INITUPL_RESP_INFO *info); +ST_VOID _ms_mk_upload_req (ASN1_ENC_CTXT *ac, UPLOAD_REQ_INFO *info); +ST_VOID _ms_mk_upload_resp (ASN1_ENC_CTXT *ac, UPLOAD_RESP_INFO *info); +ST_VOID _ms_mk_termupl_req (ASN1_ENC_CTXT *ac, TERMUPL_REQ_INFO *info); +ST_VOID _ms_mk_rddwn_req (ASN1_ENC_CTXT *ac, RDDWN_REQ_INFO *info); +ST_VOID _ms_mk_rdupl_req (ASN1_ENC_CTXT *ac, RDUPL_REQ_INFO *info); +ST_VOID _ms_mk_loaddom_req (ASN1_ENC_CTXT *ac, LOADDOM_REQ_INFO *info); +ST_VOID _ms_mk_storedom_req (ASN1_ENC_CTXT *ac, STOREDOM_REQ_INFO *info); +ST_VOID _ms_mk_deldom_req (ASN1_ENC_CTXT *ac, DELDOM_REQ_INFO *info); +ST_VOID _ms_mk_getdom_req (ASN1_ENC_CTXT *ac, GETDOM_REQ_INFO *info); +ST_VOID _ms_mk_getdom_resp (ASN1_ENC_CTXT *ac, GETDOM_RESP_INFO *info); + +ST_VOID _ms_mk_crepi_req (ASN1_ENC_CTXT *ac, CREPI_REQ_INFO *info); +ST_VOID _ms_mk_delpi_req (ASN1_ENC_CTXT *ac, DELPI_REQ_INFO *info); +ST_VOID _ms_mk_start_req (ASN1_ENC_CTXT *ac, START_REQ_INFO *info); +ST_VOID _ms_mk_stop_req (ASN1_ENC_CTXT *ac, STOP_REQ_INFO *info); +ST_VOID _ms_mk_resume_req (ASN1_ENC_CTXT *ac, RESUME_REQ_INFO *info); +ST_VOID _ms_mk_reset_req (ASN1_ENC_CTXT *ac, RESET_REQ_INFO *info); +ST_VOID _ms_mk_kill_req (ASN1_ENC_CTXT *ac, KILL_REQ_INFO *info); +ST_VOID _ms_mk_getpi_req (ASN1_ENC_CTXT *ac, GETPI_REQ_INFO *info); +ST_VOID _ms_mk_getpi_resp (ASN1_ENC_CTXT *ac, GETPI_RESP_INFO *info); + +ST_VOID _ms_mk_read_req (ASN1_ENC_CTXT *ac, READ_REQ_INFO *info); +ST_VOID _ms_mk_read_resp (ASN1_ENC_CTXT *ac, READ_RESP_INFO *info); +ST_VOID _ms_mk_write_req (ASN1_ENC_CTXT *ac, WRITE_REQ_INFO *info); +ST_VOID _ms_mk_write_resp (ASN1_ENC_CTXT *ac, WRITE_RESP_INFO *info); +ST_VOID _ms_mk_info_req (ASN1_ENC_CTXT *ac, INFO_REQ_INFO *info); +ST_VOID _ms_mk_getvar_req (ASN1_ENC_CTXT *ac, GETVAR_REQ_INFO *info); +ST_VOID _ms_mk_getvar_resp (ASN1_ENC_CTXT *ac, GETVAR_RESP_INFO *info); +ST_VOID _ms_mk_defvar_req (ASN1_ENC_CTXT *ac, DEFVAR_REQ_INFO *info); +ST_VOID _ms_mk_delvar_req (ASN1_ENC_CTXT *ac, DELVAR_REQ_INFO *info); +ST_VOID _ms_mk_delvar_resp (ASN1_ENC_CTXT *ac, DELVAR_RESP_INFO *info); +ST_VOID _ms_mk_defscat_req (ASN1_ENC_CTXT *ac, DEFSCAT_REQ_INFO *info); +ST_VOID _ms_mk_getscat_req (ASN1_ENC_CTXT *ac, GETSCAT_REQ_INFO *info); +ST_VOID _ms_mk_getscat_resp (ASN1_ENC_CTXT *ac, GETSCAT_RESP_INFO *info); +ST_VOID _ms_mk_defvlist_req (ASN1_ENC_CTXT *ac, DEFVLIST_REQ_INFO *info); +ST_VOID _ms_mk_getvlist_req (ASN1_ENC_CTXT *ac, GETVLIST_REQ_INFO *info); +ST_VOID _ms_mk_getvlist_resp (ASN1_ENC_CTXT *ac, GETVLIST_RESP_INFO *info); +ST_VOID _ms_mk_delvlist_req (ASN1_ENC_CTXT *ac, DELVLIST_REQ_INFO *info); +ST_VOID _ms_mk_delvlist_resp (ASN1_ENC_CTXT *ac, DELVLIST_RESP_INFO *info); +ST_VOID _ms_mk_gettype_req (ASN1_ENC_CTXT *ac, GETTYPE_REQ_INFO *info); +ST_VOID _ms_mk_gettype_resp (ASN1_ENC_CTXT *ac, GETTYPE_RESP_INFO *info); +ST_VOID _ms_mk_deftype_req (ASN1_ENC_CTXT *ac, DEFTYPE_REQ_INFO *info); +ST_VOID _ms_mk_deltype_req (ASN1_ENC_CTXT *ac, DELTYPE_REQ_INFO *info); +ST_VOID _ms_mk_deltype_resp (ASN1_ENC_CTXT *ac, DELTYPE_RESP_INFO *info); + +ST_VOID _ms_mk_takectrl_req (ASN1_ENC_CTXT *ac, TAKECTRL_REQ_INFO *info); +ST_VOID _ms_mk_takectrl_resp (ASN1_ENC_CTXT *ac, TAKECTRL_RESP_INFO *info); +ST_VOID _ms_mk_relctrl_req (ASN1_ENC_CTXT *ac, RELCTRL_REQ_INFO *info); +ST_VOID _ms_mk_rsstat_req (ASN1_ENC_CTXT *ac, RSSTAT_REQ_INFO *info); +ST_VOID _ms_mk_rsstat_resp (ASN1_ENC_CTXT *ac, RSSTAT_RESP_INFO *info); +ST_VOID _ms_mk_rspool_req (ASN1_ENC_CTXT *ac, RSPOOL_REQ_INFO *info); +ST_VOID _ms_mk_rspool_resp (ASN1_ENC_CTXT *ac, RSPOOL_RESP_INFO *info); +ST_VOID _ms_mk_rsentry_req (ASN1_ENC_CTXT *ac, RSENTRY_REQ_INFO *info); +ST_VOID _ms_mk_rsentry_resp (ASN1_ENC_CTXT *ac, RSENTRY_RESP_INFO *info); +ST_VOID _ms_mk_defsem_req (ASN1_ENC_CTXT *ac, DEFSEM_REQ_INFO *info); +ST_VOID _ms_mk_delsem_req (ASN1_ENC_CTXT *ac, DELSEM_REQ_INFO *info); + +ST_VOID _ms_mk_output_req (ASN1_ENC_CTXT *ac, OUTPUT_REQ_INFO *info); +ST_VOID _ms_mk_input_req (ASN1_ENC_CTXT *ac, INPUT_REQ_INFO *info); +ST_VOID _ms_mk_input_resp (ASN1_ENC_CTXT *ac, INPUT_RESP_INFO *info); + +ST_VOID _ms_mk_defec_req (ASN1_ENC_CTXT *ac, DEFEC_REQ_INFO *info); +ST_VOID _ms_mk_delec_req (ASN1_ENC_CTXT *ac, DELEC_REQ_INFO *info); +ST_VOID _ms_mk_delec_resp (ASN1_ENC_CTXT *ac, DELEC_RESP_INFO *info); +ST_VOID _ms_mk_geteca_req (ASN1_ENC_CTXT *ac, GETECA_REQ_INFO *info); +ST_VOID _ms_mk_geteca_resp (ASN1_ENC_CTXT *ac, GETECA_RESP_INFO *info); +ST_VOID _ms_mk_repecs_req (ASN1_ENC_CTXT *ac, REPECS_REQ_INFO *info); +ST_VOID _ms_mk_repecs_resp (ASN1_ENC_CTXT *ac, REPECS_RESP_INFO *info); +ST_VOID _ms_mk_altecm_req (ASN1_ENC_CTXT *ac, ALTECM_REQ_INFO *info); +ST_VOID _ms_mk_trige_req (ASN1_ENC_CTXT *ac, TRIGE_REQ_INFO *info); +ST_VOID _ms_mk_defea_req (ASN1_ENC_CTXT *ac, DEFEA_REQ_INFO *info); +ST_VOID _ms_mk_delea_req (ASN1_ENC_CTXT *ac, DELEA_REQ_INFO *info); +ST_VOID _ms_mk_delea_resp (ASN1_ENC_CTXT *ac, DELEA_RESP_INFO *info); +ST_VOID _ms_mk_geteaa_req (ASN1_ENC_CTXT *ac, GETEAA_REQ_INFO *info); +ST_VOID _ms_mk_geteaa_resp (ASN1_ENC_CTXT *ac, GETEAA_RESP_INFO *info); +ST_VOID _ms_mk_repeas_req (ASN1_ENC_CTXT *ac, REPEAS_REQ_INFO *info); +ST_VOID _ms_mk_repeas_resp (ASN1_ENC_CTXT *ac, REPEAS_RESP_INFO *info); +ST_VOID _ms_mk_defee_req (ASN1_ENC_CTXT *ac, DEFEE_REQ_INFO *info); +ST_VOID _ms_mk_delee_req (ASN1_ENC_CTXT *ac, DELEE_REQ_INFO *info); +ST_VOID _ms_mk_delee_resp (ASN1_ENC_CTXT *ac, DELEE_RESP_INFO *info); +ST_VOID _ms_mk_altee_req (ASN1_ENC_CTXT *ac, ALTEE_REQ_INFO *info); +ST_VOID _ms_mk_altee_resp (ASN1_ENC_CTXT *ac, ALTEE_RESP_INFO *info); +ST_VOID _ms_mk_repees_req (ASN1_ENC_CTXT *ac, REPEES_REQ_INFO *info); +ST_VOID _ms_mk_repees_resp (ASN1_ENC_CTXT *ac, REPEES_RESP_INFO *info); +ST_VOID _ms_mk_geteea_req (ASN1_ENC_CTXT *ac, GETEEA_REQ_INFO *info); +ST_VOID _ms_mk_geteea_resp (ASN1_ENC_CTXT *ac, GETEEA_RESP_INFO *info); +ST_VOID _ms_mk_evnot_req (ASN1_ENC_CTXT *ac, EVNOT_REQ_INFO *info); +ST_VOID _ms_mk_ackevnot_req (ASN1_ENC_CTXT *ac, ACKEVNOT_REQ_INFO *info); +ST_VOID _ms_mk_getas_req (ASN1_ENC_CTXT *ac, GETAS_REQ_INFO *info); +ST_VOID _ms_mk_getas_resp (ASN1_ENC_CTXT *ac, GETAS_RESP_INFO *info); +ST_VOID _ms_mk_getaes_req (ASN1_ENC_CTXT *ac, GETAES_REQ_INFO *info); +ST_VOID _ms_mk_getaes_resp (ASN1_ENC_CTXT *ac, GETAES_RESP_INFO *info); + +ST_VOID _ms_mk_jwrite_req (ASN1_ENC_CTXT *ac, JWRITE_REQ_INFO *info); +ST_VOID _ms_mk_jread_req (ASN1_ENC_CTXT *ac, JREAD_REQ_INFO *info); +ST_VOID _ms_mk_jread_resp (ASN1_ENC_CTXT *ac, JREAD_RESP_INFO *info); +ST_VOID _ms_mk_jinit_req (ASN1_ENC_CTXT *ac, JINIT_REQ_INFO *info); +ST_VOID _ms_mk_jinit_resp (ASN1_ENC_CTXT *ac, JINIT_RESP_INFO *info); +ST_VOID _ms_mk_jstat_req (ASN1_ENC_CTXT *ac, JSTAT_REQ_INFO *info); +ST_VOID _ms_mk_jstat_resp (ASN1_ENC_CTXT *ac, JSTAT_RESP_INFO *info); +ST_VOID _ms_mk_jcreate_req (ASN1_ENC_CTXT *ac, JCREATE_REQ_INFO *info); +ST_VOID _ms_mk_jdelete_req (ASN1_ENC_CTXT *ac, JDELETE_REQ_INFO *info); + +ST_VOID _ms_mk_obtfile_req (ASN1_ENC_CTXT *ac, OBTFILE_REQ_INFO *info); +ST_VOID _ms_mk_fopen_req (ASN1_ENC_CTXT *ac, FOPEN_REQ_INFO *info); +ST_VOID _ms_mk_fopen_resp (ASN1_ENC_CTXT *ac, FOPEN_RESP_INFO *info); +ST_VOID _ms_mk_fread_req (ASN1_ENC_CTXT *ac, FREAD_REQ_INFO *info); +ST_VOID _ms_mk_fread_resp (ASN1_ENC_CTXT *ac, FREAD_RESP_INFO *info); +ST_VOID _ms_mk_fclose_req (ASN1_ENC_CTXT *ac, FCLOSE_REQ_INFO *info); +ST_VOID _ms_mk_frename_req (ASN1_ENC_CTXT *ac, FRENAME_REQ_INFO *info); +ST_VOID _ms_mk_fdelete_req (ASN1_ENC_CTXT *ac, FDELETE_REQ_INFO *info); +ST_VOID _ms_mk_fdir_req (ASN1_ENC_CTXT *ac, FDIR_REQ_INFO *info); +ST_VOID _ms_mk_fdir_resp (ASN1_ENC_CTXT *ac, FDIR_RESP_INFO *info); + +#ifdef __cplusplus +} +#endif + +#endif /* MMSEFUN_INCLUDED */ diff --git a/include/inc/mmsintr2.h b/include/inc/mmsintr2.h new file mode 100644 index 0000000..5215103 --- /dev/null +++ b/include/inc/mmsintr2.h @@ -0,0 +1,317 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1993 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : mmsintr2.h */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* Functions and variables below this point are typically not */ +/* used by the application, and need not be exposed. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/04/02 JRB 11 Use SD_CONST on ALL (RUNTIME_TYPE *) vars. */ +/* 12/20/01 JRB 10 Convert to use ASN1R. */ +/* 04/19/00 JRB 09 Fix SD_CONST for decode funct ptr arrays. */ +/* 09/13/99 MDE 08 Added SD_CONST modifiers */ +/* 03/23/99 MDE 07 Changes to decode buffer allocation scheme */ +/* 03/19/98 JRB 06 Move ASN.1 error codes to "asn1defs.h". */ +/* 03/12/98 MDE 05 '_ms_m_get_rt_info' use change */ +/* 02/10/98 MDE 04 Removed unused 'm_cl_max_event_attributes' */ +/* 07/16/97 MDE 03 Added m_param, m_service_resp for MMS_LITE */ +/* 07/03/97 MDE 02 Removed CALLOC_OS */ +/* 06/09/97 MDE 01 Added decode buffer size control variables */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef MMSINTR2_INCLUDED +#define MMSINTR2_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +/************************************************************************/ +/************************************************************************/ +/* Defines for Modifier and Companion Standard support. */ +/* MMSEASE defaults to supporting both, MMSEASE-LITE defaults to */ +/* supporting neither. */ +/************************************************************************/ + +#ifndef MMS_LITE +#define MOD_SUPPORT /* MMSEASE - support modifiers */ +#define CS_SUPPORT /* MMSEASE - support companion standards */ +#endif + +/************************************************************************/ +/************************************************************************/ +/* Operation Specific Decode Buffer Management */ + +extern ST_VOID *(*m_calloc_os_fun)(ST_UINT num, ST_UINT size); +extern ST_VOID *(*m_realloc_os_fun)(ST_VOID *old, ST_UINT new_size); +extern ST_VOID (*m_free_os_fun)(ST_VOID *buf); + +ST_VOID *_m_get_dec_buf (ASN1_DEC_CTXT *aCtx, ST_UINT size); + +/************************************************************************/ +/************************************************************************/ +/* Defines for the fourteen types of MMS PDUs */ +/************************************************************************/ + +#define MMSREQ 0 /* MMS request PDU for normal confirmed services */ +#define MMSRESP 1 /* MMS response PDU for normal confirmed services*/ +#define MMSERROR 2 /* MMS error PDU for normal confirmed services */ +#define MMSUNREQ 3 /* MMS response PDU for unconfirmed services */ +#define MMSREJECT 4 /* MMS reject PDU */ +#define MMSCANREQ 5 /* MMS request PDU for Cancel service */ +#define MMSCANRESP 6 /* MMS response PDU for Cancel service */ +#define MMSCANERR 7 /* MMS error PDU for Cancel service */ +#define MMSINITREQ 8 /* MMS request PDU for Initiate service */ +#define MMSINITRESP 9 /* MMS response PDU for Initiate service */ +#define MMSINITERR 10 /* MMS error PDU for Initiate service */ +#define MMSCNCLREQ 11 /* MMS request PDU for Conclude service */ +#define MMSCNCLRESP 12 /* MMS response PDU for Conclude service */ +#define MMSCNCLERR 13 /* MMS error PDU for Conclude service */ +#define UNKNOWNTYPE 14 /* not known - used in reject info structure */ + +/************************************************************************/ +/************************************************************************/ +/* Define base reserved invoke IDs for the Initiate and Conclude */ +/* services. Allows for up to 4096 associations with reserved */ +/* invoke IDs. */ +/************************************************************************/ + +#define INIT_INVOKE_ID 0x8000 /* base invoke ID for Initiate requests */ +#define CONCL_INVOKE_ID 0x9000 /* base invoke ID for Conclude requests */ + +/************************************************************************/ +/* Define the reserved invoke ID for unconfirmed requests. */ +/************************************************************************/ + +#define UNREQ_INVOKE 0xFFFF /* reserved invoke ID for unconf req's */ + +/************************************************************************/ +/************************************************************************/ +/* The following function pointer arrays are used for the request and */ +/* response decode functions. The operation opcode is used as the index */ +/* into the table. */ +/************************************************************************/ + +#define MAX_REQ_DFUN 85 /* highest request decode array entry */ +#define MAX_RSP_DFUN 85 /* highest response decode array entry */ + + +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ +/* This structure is used to return the results of a MMS PDU decode. */ +/* The user passes a pointer to a struct of this type to decode_mms, */ +/* and when the decode is complete, the struct info will be filled in. */ +/* */ +/* dec_level : */ +/* 0 - Nothing valid */ +/* 1 - type valid */ +/* 2 - type, invoke ID valid */ +/* 3 - type, invoke ID, op valid */ +/************************************************************************/ + +struct mmsdec_info + { + ST_RET err_code; /* decode error code (NO_DECODE_ERR) */ + ST_INT dec_level; /* indicates valid members */ + ST_INT type; /* MMS pdu type (req,resp,err,rej) */ + ST_INT op; /* operation opcode */ + ST_UINT32 id; /* invoke ID */ + struct list_of_mods mods; /* tracking of modifiers */ + struct csi cs; /* Companion Standard Info */ + ST_BOOLEAN data_pres; /* flag to indicate data buffer present */ + ST_VOID *data_ptr; /* pointer to data if present */ + }; +typedef struct mmsdec_info MMSDEC_INFO; + +extern ST_VOID (* SD_CONST mms_req_decode_fun [MAX_REQ_DFUN+1]) (ASN1_DEC_CTXT *aCtx); +extern ST_VOID (* SD_CONST mms_rsp_decode_fun [MAX_RSP_DFUN+1]) (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mms_decode is used at MMS decode level, not generally used by */ +/* application directly. */ +/************************************************************************/ + +ST_RET _ms_mms_decode (ST_UCHAR *ptr, ST_INT len, MMSDEC_INFO *rslt); + +extern MMSDEC_INFO *_mmsdec_rslt; +extern ST_UINT _mmsdec_ctxt; /* default to core context */ +extern ST_INT _mmsdec_msglen; /* MMS decode message length */ +extern ST_UCHAR *_mmsdec_msgptr; /* MMS decode message ptr */ +extern ST_BOOLEAN _mms_dec_info_pres; +extern ST_VOID *_mms_dec_info; /* operation specific info */ + + +/************************************************************************/ +/************************************************************************/ +/* These variables are used help control decode operation specific data */ +/* structure allocation. For MMS-LITE (M_USR_DEC_BUF), these variables */ +/* are used to tell the decode system how many objects the allocated */ +/* buffer (_mms_dec_info). For MMS-EASE, these are normally not used; */ +/* if they are set non-zero, they will be used in calculating the size */ +/* of the dec info buffer to be allocated. */ + +/* Client Decode Limits. */ +extern ST_INT m_cl_read_spec_in_result; +extern ST_INT m_cl_max_read_var_spec; +extern ST_INT m_cl_max_read_acc_rslt; +extern ST_INT m_cl_max_info_var_spec; +extern ST_INT m_cl_max_info_acc_rslt; +extern ST_INT m_cl_max_getvla_vars; +extern ST_INT m_cl_max_write_rslts; +extern ST_INT m_cl_max_namel_names; +extern ST_INT m_cl_max_getcl_cap; +extern ST_INT m_cl_max_getpi_doms; +extern ST_INT m_cl_max_getdom_cap; +extern ST_INT m_cl_max_getdom_pi; +extern ST_INT m_cl_max_initupl_cap; +extern ST_INT m_cl_max_alarm_summary; +extern ST_INT m_cl_max_journal_entries; +extern ST_INT m_cl_max_entry_content; +extern ST_INT m_cl_max_semaphore_entries; +extern ST_INT m_cl_max_named_tokens; +extern ST_INT m_cl_max_file_directory; +extern ST_INT m_cl_max_event_enrollment; +extern ST_INT m_cl_max_enrollment_summary; + +/* Server Decode Limits. */ +extern ST_INT m_sv_max_loadd_cap; +extern ST_INT m_sv_max_read_var_spec; +extern ST_INT m_sv_max_write_var_spec; +extern ST_INT m_sv_max_write_data; +extern ST_INT m_sv_max_rqdlnl_cap; +extern ST_INT m_sv_max_initdnld_cap; +extern ST_INT m_sv_max_vstr; +extern ST_INT m_sv_max_file_names; +extern ST_INT m_sv_max_obj_name; +extern ST_INT m_sv_max_prompt_count; +extern ST_INT m_sv_max_num_vars; +extern ST_INT m_sv_max_data_count; +extern ST_INT m_sv_max_entry_content; +extern ST_INT m_sv_max_data_vars; +extern ST_INT m_sv_max_jread_vars; + +/************************************************************************/ +/* These bitstrings are located in mmsop_en.c and indicate which */ +/* services and CBB's are supported by this application. */ +#ifdef MMS_LITE +extern SD_CONST ST_UCHAR m_param[2]; /* parameter support */ + /* services supported as responder */ +extern SD_CONST ST_UCHAR m_service_resp[11]; +#endif + +/************************************************************************/ +/************************************************************************/ +/* This variable can be set to force use of the DIS MMS floating point */ +/* type protocol (used in any over the wire and internal ASN.1 type */ +/* definitions). */ + +extern ST_BOOLEAN m_use_dis_float; /* = SD_FALSE; */ + +/************************************************************************/ +/************************************************************************/ +/* ALTERNATE ACCESS */ + +/* This structure is used to control the creation of RTAA types */ +/* and contains state information for the various functions to use */ +/* during the process. */ + +struct aa_apply_ctrl + { +/* Alternate Access spec */ + ST_INT num_aa; /* # elements in AA table */ + struct alt_acc_el *aa_head; /* Head of AA table */ + struct alt_acc_el *aa_end; /* Last element in AA table */ + struct alt_acc_el *curr_aa; /* Current location in table */ + +/* 'All'runtime aa */ + ST_INT num_all_rtaa; + struct rt_aa_ctrl *all_rtaa_head; + struct rt_aa_ctrl *all_rtaa_end; + +/* New (output) runtime aa */ + ST_INT num_rtaa; + struct rt_aa_ctrl *rtaa_head; + struct rt_aa_ctrl *curr_rtaa; + +/* Nest Level */ + ST_INT nest; + }; +typedef struct aa_apply_ctrl AA_APPLY_CTRL; + +/************************************************************************/ +/* Floating point type ASN.1 definition values */ + +#define SNGL_WHOLE 32 +#define SNGL_FRACT 23 +#define SNGL_EXP 8 + +#define DOUBL_WHOLE 64 +#define DOUBL_FRACT 52 +#define DOUBL_EXP 11 + +/* Used to determine number of bytes required to hold a number of bits */ +#define CALC_BIT_LEN(x) (((x)+7)/8) + +/************************************************************************/ +ST_RET _ms_m_get_rt_info (SD_CONST RUNTIME_TYPE *rt, + ST_INT *algn_out, + ST_INT *ellen_out); + +/************************************************************************/ +/* Function pointers for Variable manipulation functions. */ +/* User exposed functions (i.e. ms_add_named_var, etc.) call these */ +/* function pointers which should point to "linked list" functions */ +/* by default (see "_ms_ll_*" functions below). If the "ms_bs_init" */ +/* function is called, these will point to "binary search" functions */ +/* (see "_ms_bs_*" functions below). */ +/************************************************************************/ +#ifndef MMS_LITE + +extern NAMED_VAR *(*_ms_fp_add_named_var) (DOMAIN_OBJS *dom, ST_CHAR *name, + OBJECT_NAME *type, VAR_ACC_ADDR *addr, ST_INT chan); +extern NAMED_VAR *(*_ms_fp_add_var) (DOMAIN_OBJS *dom, ST_CHAR *name, + NAMED_TYPE *type_ptr, VAR_ACC_ADDR *addr, ST_INT chan); +extern NAMED_VAR *(*_ms_fp_find_named_var) + (DOMAIN_OBJS *dom, ST_CHAR *name); +extern ST_RET (*_ms_fp_del_named_var) (DOMAIN_OBJS *dom, ST_CHAR *name); +extern ST_VOID (*_ms_fp_del_all_named_vars) (DOMAIN_OBJS *dom); +extern ST_VOID (*_ms_fp_del_deletable_named_vars) (DOMAIN_OBJS *, DELVAR_RESP_INFO *); +extern NAMED_VAR_LIST *(*_ms_fp_add_nvlist) (DOMAIN_OBJS *dom, + ST_CHAR *name, ST_INT num_vars, VARIABLE_LIST *var_list); +extern NAMED_VAR_LIST *(*_ms_fp_find_nvlist) (DOMAIN_OBJS *dom, ST_CHAR *name); +extern ST_RET (*_ms_fp_del_nvlist) (DOMAIN_OBJS *dom, ST_CHAR *name); +extern ST_VOID (*_ms_fp_del_all_nvlists) (DOMAIN_OBJS *dom); +extern ST_VOID (*_ms_fp_del_deletable_nvlists) (DOMAIN_OBJS *, DELVLIST_RESP_INFO *); + +extern NAMED_DOM_CTRL *(*_ms_fp_add_named_domain) (INITDOWN_REQ_INFO *dom_info, + ST_UCHAR pro); +extern NAMED_DOM_CTRL *(*_ms_fp_find_named_dom)(ST_CHAR dname[MAX_IDENT_LEN+1]); +extern ST_RET (*_ms_fp_del_named_dom) (ST_CHAR *dname); +extern ST_VOID (*_ms_fp_del_all_named_doms)(NAMED_DOM_CTRL *head_of_dom_list); + +extern ST_VOID (*_ms_fp_write_object_names) (ST_VOID *dom_or_vmd, + NAMELIST_REQ_INFO *reqinfo, NAMELIST_RESP_INFO *respinfo, + ST_INT max_names); +#endif + + +#ifdef __cplusplus +} +#endif + +#endif /* MMSINTR2_INCLUDED */ diff --git a/include/inc/mmsldefs.h b/include/inc/mmsldefs.h new file mode 100644 index 0000000..fe8b2c8 --- /dev/null +++ b/include/inc/mmsldefs.h @@ -0,0 +1,94 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1993 - 2005, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : mmsldefs.h */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* Functions and variables below this point are used by the */ +/* application. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 07/27/09 JRB 26 Updated version. */ +/* 02/18/09 RKR 25 Updated version. */ +/* 01/19/09 RKR 24 Updated version. */ +/* 12/01/08 GLB 23 Updated version. */ +/* 11/10/08 GLB 22 Updated version. */ +/* 04/23/08 GLB 21 Updated version. */ +/* 01/02/07 JRB 20 Updated version. */ +/* 04/10/06 RKR 19 Updated copyright and version for SMV Beta */ +/* 10/28/05 EJV 18 Update ver to 5.0250 for MMS-LITE-SECURE rel.*/ +/* 09/09/05 JRB 17 Update ver to 5.02 & Copyright info. */ +/* BUILD_NUM is OBSOLETE. */ +/* 04/28/05 PLM 16 Update ver to 5.01 Build 1 */ +/* 07/21/04 DWL 15 Update to 5.0052 */ +/* 02/20/04 ASK 14 Chg ver to 5.0051 for USPS release */ +/* 01/26/04 DWL 13 Update copyright date to 2004. */ +/* 09/10/03 EJV 12 Chg ver to 5.0050 (Security ready MMS-LITE) */ +/* 04/29/03 DWL 11 Updated build number */ +/* 04/08/03 DWL 10 Updated copyright/version/build number */ +/* 12/20/02 DWL 09 Updated version/build number */ +/* 03/22/02 DWL 08 Updated build number */ +/* 03/12/02 DWL 07 Updated version */ +/* 02/25/02 MDE 06 Removed mmsl_max_msg_size */ +/* 10/09/01 JRB 05 Add MMSLITE_* product identification defines.*/ +/* 02/20/98 MDE 04 Fixed __cplusplus problem */ +/* 11/05/97 MDE 03 Changed mmsl_msg_start to ST_UCHAR * */ +/* 08/24/97 MDE 02 Added 'mmsl_max_msg_size', 'ml_init_buffers' */ +/* 11/10/93 DGE 01 Initial MMSEASE-LITE Release. */ +/************************************************************************/ + +#ifndef LMMSDEFS_INCLUDED +#define LMMSDEFS_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +/************************************************************************/ +/* Defines for Product Identification. */ +/* Write these parameters on screen and in log file at startup. */ +/* Use MMSLITE_NAME & MMSLITE_VERSION in MMS Identify response. */ +/************************************************************************/ +#define MMSLITE_COPYRIGHT "Copyright (c) 1986-2008 SISCO, Inc. All Rights Reserved." +#define MMSLITE_NAME "MMS-LITE-80X-001" +#define MMSLITE_VERSION "5.1005" +#define MMSLITE_BUILD_NUM 0 /* OBSOLETE: for backward compatibility only*/ + +/************************************************************************/ +/************************************************************************/ +/* MMSEASE-LITE specific Global Variables */ +/************************************************************************/ +#define MMS_PCI 0x0001 + +extern ST_INT mmsl_enc_buf_size; +extern ST_UCHAR *mmsl_enc_buf; +extern ST_INT mmsl_dec_info_size; + +extern ST_INT16 mmsl_version; +extern ST_UINT32 mmsl_invoke_id; + +extern ST_UCHAR *mmsl_msg_start; +extern ST_INT mmsl_msg_len; + + +/************************************************************************/ +/* This function initializes the encode/decode buffers and the decode */ +/* object limitations, and is normally generated using the 'mbufcalc' */ +/* utility program. */ + +ST_VOID ml_init_buffers (ST_VOID); + + +#ifdef __cplusplus +} +#endif + +#endif /* MMSLDEFS_INCLUDED */ diff --git a/include/inc/mmslog.h b/include/inc/mmslog.h new file mode 100644 index 0000000..cfa0e38 --- /dev/null +++ b/include/inc/mmslog.h @@ -0,0 +1,735 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1993 - 2007, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : mmslog.h */ +/* PRODUCT(S) : MMSEASE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains MMS-EASE logging macros used */ +/* internally by MMS-EASE for SLOGGING */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 09/05/07 EJV 07 Removed obsolete LLC30_LLP code. */ +/* 11/01/04 JRB 06 Use new "Base" macros SLOG_*, SLOGC_*, SLOGH.*/ +/* Change MLOG_ALWAYS* like SLOGALWAYS*. */ +/* 03/13/02 JRB 05 MLOG_PAUSE* macros do nothing. */ +/* 10/05/01 EJV 04 Corrected comment. */ +/* 03/15/01 JRB 03 Added USER log macros. */ +/* 09/13/99 MDE 02 Added SD_CONST modifiers */ +/* 10/08/98 MDE 01 Migrated to updated SLOG interface */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef MMSLOG_INCLUDED +#define MMSLOG_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +extern SD_CONST ST_CHAR *SD_CONST _mms_log_dec_logstr; +extern SD_CONST ST_CHAR *SD_CONST _mms_log_enc_logstr; +extern SD_CONST ST_CHAR *SD_CONST _mms_log_acse_logstr; +extern SD_CONST ST_CHAR *SD_CONST _mms_log_ique_logstr; +extern SD_CONST ST_CHAR *SD_CONST _mms_log_rque_logstr; +extern SD_CONST ST_CHAR *SD_CONST _mms_log_ind_logstr; +extern SD_CONST ST_CHAR *SD_CONST _mms_log_conf_logstr; +extern SD_CONST ST_CHAR *SD_CONST _mms_log_vm_logstr; +extern SD_CONST ST_CHAR *SD_CONST _mms_log_err_logstr; +extern SD_CONST ST_CHAR *SD_CONST _mms_log_nerr_logstr; +extern SD_CONST ST_CHAR *SD_CONST _mms_log_pdu_logstr; +extern SD_CONST ST_CHAR *SD_CONST _mms_log_config_logstr; +extern SD_CONST ST_CHAR *SD_CONST _mms_log_always_logstr; + +extern SD_CONST ST_CHAR *SD_CONST _user_err_logstr; +extern SD_CONST ST_CHAR *SD_CONST _user_client_logstr; +extern SD_CONST ST_CHAR *SD_CONST _user_server_logstr; + +/*********************** PAUSE Macros ***********************************/ +#define MLOG_PAUSEDEC(msg) +#define MLOG_PAUSEENC(msg) +#define MLOG_PAUSEIQUE(msg) +#define MLOG_PAUSERQUE(msg) +#define MLOG_PAUSEPDU(msg) + +/*********************** DECODE Macros **********************************/ +#define MLOG_DEC0(a) \ + SLOG_0 (mms_debug_sel & MMS_LOG_DEC,_mms_log_dec_logstr,a) +#define MLOG_DEC1(a,b) \ + SLOG_1 (mms_debug_sel & MMS_LOG_DEC,_mms_log_dec_logstr,a,b) +#define MLOG_DEC2(a,b,c) \ + SLOG_2 (mms_debug_sel & MMS_LOG_DEC,_mms_log_dec_logstr,a,b,c) +#define MLOG_DEC3(a,b,c,d) \ + SLOG_3 (mms_debug_sel & MMS_LOG_DEC,_mms_log_dec_logstr,a,b,c,d) +#define MLOG_DEC4(a,b,c,d,e) \ + SLOG_4 (mms_debug_sel & MMS_LOG_DEC,_mms_log_dec_logstr,a,b,c,d,e) +#define MLOG_DEC5(a,b,c,d,e,f) \ + SLOG_5 (mms_debug_sel & MMS_LOG_DEC,_mms_log_dec_logstr,a,b,c,d,e,f) +#define MLOG_DEC6(a,b,c,d,e,f,g) \ + SLOG_6 (mms_debug_sel & MMS_LOG_DEC,_mms_log_dec_logstr,a,b,c,d,e,f,g) +#define MLOG_DEC7(a,b,c,d,e,f,g,h) \ + SLOG_7 (mms_debug_sel & MMS_LOG_DEC,_mms_log_dec_logstr,a,b,c,d,e,f,g,h) +#define MLOG_DEC8(a,b,c,d,e,f,g,h,i) \ + SLOG_8 (mms_debug_sel & MMS_LOG_DEC,_mms_log_dec_logstr,a,b,c,d,e,f,g,h,i) + +/* Continuation log macros */ +#define MLOG_CDEC0(a) \ + SLOGC_0 (mms_debug_sel & MMS_LOG_DEC,a) +#define MLOG_CDEC1(a,b) \ + SLOGC_1 (mms_debug_sel & MMS_LOG_DEC,a,b) +#define MLOG_CDEC2(a,b,c) \ + SLOGC_2 (mms_debug_sel & MMS_LOG_DEC,a,b,c) +#define MLOG_CDEC3(a,b,c,d) \ + SLOGC_3 (mms_debug_sel & MMS_LOG_DEC,a,b,c,d) +#define MLOG_CDEC4(a,b,c,d,e) \ + SLOGC_4 (mms_debug_sel & MMS_LOG_DEC,a,b,c,d,e) +#define MLOG_CDEC5(a,b,c,d,e,f) \ + SLOGC_5 (mms_debug_sel & MMS_LOG_DEC,a,b,c,d,e,f) +#define MLOG_CDEC6(a,b,c,d,e,f,g) \ + SLOGC_6 (mms_debug_sel & MMS_LOG_DEC,a,b,c,d,e,f,g) +#define MLOG_CDEC7(a,b,c,d,e,f,g,h) \ + SLOGC_7 (mms_debug_sel & MMS_LOG_DEC,a,b,c,d,e,f,g,h) +#define MLOG_CDEC8(a,b,c,d,e,f,g,h,i) \ + SLOGC_8 (mms_debug_sel & MMS_LOG_DEC,a,b,c,d,e,f,g,h,i) + +/* Hex log macro */ +#define MLOG_DECH(a,b) \ + +/*********************** ENCODE Macros **********************************/ +#define MLOG_ENC0(a) \ + SLOG_0 (mms_debug_sel & MMS_LOG_ENC,_mms_log_enc_logstr,a) +#define MLOG_ENC1(a,b) \ + SLOG_1 (mms_debug_sel & MMS_LOG_ENC,_mms_log_enc_logstr,a,b) +#define MLOG_ENC2(a,b,c) \ + SLOG_2 (mms_debug_sel & MMS_LOG_ENC,_mms_log_enc_logstr,a,b,c) +#define MLOG_ENC3(a,b,c,d) \ + SLOG_3 (mms_debug_sel & MMS_LOG_ENC,_mms_log_enc_logstr,a,b,c,d) +#define MLOG_ENC4(a,b,c,d,e) \ + SLOG_4 (mms_debug_sel & MMS_LOG_ENC,_mms_log_enc_logstr,a,b,c,d,e) +#define MLOG_ENC5(a,b,c,d,e,f) \ + SLOG_5 (mms_debug_sel & MMS_LOG_ENC,_mms_log_enc_logstr,a,b,c,d,e,f) +#define MLOG_ENC6(a,b,c,d,e,f,g) \ + SLOG_6 (mms_debug_sel & MMS_LOG_ENC,_mms_log_enc_logstr,a,b,c,d,e,f,g) +#define MLOG_ENC7(a,b,c,d,e,f,g,h) \ + SLOG_7 (mms_debug_sel & MMS_LOG_ENC,_mms_log_enc_logstr,a,b,c,d,e,f,g,h) +#define MLOG_ENC8(a,b,c,d,e,f,g,h,i) \ + SLOG_8 (mms_debug_sel & MMS_LOG_ENC,_mms_log_enc_logstr,a,b,c,d,e,f,g,h,i) + +/* Continuation log macros */ +#define MLOG_CENC0(a) \ + SLOGC_0 (mms_debug_sel & MMS_LOG_ENC,a) +#define MLOG_CENC1(a,b) \ + SLOGC_1 (mms_debug_sel & MMS_LOG_ENC,a,b) +#define MLOG_CENC2(a,b,c) \ + SLOGC_2 (mms_debug_sel & MMS_LOG_ENC,a,b,c) +#define MLOG_CENC3(a,b,c,d) \ + SLOGC_3 (mms_debug_sel & MMS_LOG_ENC,a,b,c,d) +#define MLOG_CENC4(a,b,c,d,e) \ + SLOGC_4 (mms_debug_sel & MMS_LOG_ENC,a,b,c,d,e) +#define MLOG_CENC5(a,b,c,d,e,f) \ + SLOGC_5 (mms_debug_sel & MMS_LOG_ENC,a,b,c,d,e,f) +#define MLOG_CENC6(a,b,c,d,e,f,g) \ + SLOGC_6 (mms_debug_sel & MMS_LOG_ENC,a,b,c,d,e,f,g) +#define MLOG_CENC7(a,b,c,d,e,f,g,h) \ + SLOGC_7 (mms_debug_sel & MMS_LOG_ENC,a,b,c,d,e,f,g,h) +#define MLOG_CENC8(a,b,c,d,e,f,g,h,i) \ + SLOGC_8 (mms_debug_sel & MMS_LOG_ENC,a,b,c,d,e,f,g,h,i) + +/* Hex log macro */ +#define MLOG_ENCH(a,b) \ + SLOGH (mms_debug_sel & MMS_LOG_ENC,a,b) + +/*********************** ACSE Macros ***********************************/ +#define MLOG_ACSE0(a) \ + SLOG_0 (mms_debug_sel & MMS_LOG_ACSE,_mms_log_acse_logstr,a) +#define MLOG_ACSE1(a,b) \ + SLOG_1 (mms_debug_sel & MMS_LOG_ACSE,_mms_log_acse_logstr,a,b) +#define MLOG_ACSE2(a,b,c) \ + SLOG_2 (mms_debug_sel & MMS_LOG_ACSE,_mms_log_acse_logstr,a,b,c) +#define MLOG_ACSE3(a,b,c,d) \ + SLOG_3 (mms_debug_sel & MMS_LOG_ACSE,_mms_log_acse_logstr,a,b,c,d) +#define MLOG_ACSE4(a,b,c,d,e) \ + SLOG_4 (mms_debug_sel & MMS_LOG_ACSE,_mms_log_acse_logstr,a,b,c,d,e) +#define MLOG_ACSE5(a,b,c,d,e,f) \ + SLOG_5 (mms_debug_sel & MMS_LOG_ACSE,_mms_log_acse_logstr,a,b,c,d,e,f) +#define MLOG_ACSE6(a,b,c,d,e,f,g) \ + SLOG_6 (mms_debug_sel & MMS_LOG_ACSE,_mms_log_acse_logstr,a,b,c,d,e,f,g) +#define MLOG_ACSE7(a,b,c,d,e,f,g,h) \ + SLOG_7 (mms_debug_sel & MMS_LOG_ACSE,_mms_log_acse_logstr,a,b,c,d,e,f,g,h) +#define MLOG_ACSE8(a,b,c,d,e,f,g,h,i) \ + SLOG_8 (mms_debug_sel & MMS_LOG_ACSE,_mms_log_acse_logstr,a,b,c,d,e,f,g,h,i) + +/* Continuation log macros */ +#define MLOG_CACSE0(a) \ + SLOGC_0 (mms_debug_sel & MMS_LOG_ACSE,a) +#define MLOG_CACSE1(a,b) \ + SLOGC_1 (mms_debug_sel & MMS_LOG_ACSE,a,b) +#define MLOG_CACSE2(a,b,c) \ + SLOGC_2 (mms_debug_sel & MMS_LOG_ACSE,a,b,c) +#define MLOG_CACSE3(a,b,c,d) \ + SLOGC_3 (mms_debug_sel & MMS_LOG_ACSE,a,b,c,d) +#define MLOG_CACSE4(a,b,c,d,e) \ + SLOGC_4 (mms_debug_sel & MMS_LOG_ACSE,a,b,c,d,e) +#define MLOG_CACSE5(a,b,c,d,e,f) \ + SLOGC_5 (mms_debug_sel & MMS_LOG_ACSE,a,b,c,d,e,f) +#define MLOG_CACSE6(a,b,c,d,e,f,g) \ + SLOGC_6 (mms_debug_sel & MMS_LOG_ACSE,a,b,c,d,e,f,g) +#define MLOG_CACSE7(a,b,c,d,e,f,g,h) \ + SLOGC_7 (mms_debug_sel & MMS_LOG_ACSE,a,b,c,d,e,f,g,h) +#define MLOG_CACSE8(a,b,c,d,e,f,g,h,i) \ + SLOGC_8 (mms_debug_sel & MMS_LOG_ACSE,a,b,c,d,e,f,g,h,i) + +/* Hex log macro */ +#define MLOG_ACSEH(a,b) \ + +/*********************** IQUE Macros **************************************/ +#define MLOG_IQUE0(a) \ + SLOG_0 (mms_debug_sel & MMS_LOG_IQUE,_mms_log_ique_logstr,a) +#define MLOG_IQUE1(a,b) \ + SLOG_1 (mms_debug_sel & MMS_LOG_IQUE,_mms_log_ique_logstr,a,b) +#define MLOG_IQUE2(a,b,c) \ + SLOG_2 (mms_debug_sel & MMS_LOG_IQUE,_mms_log_ique_logstr,a,b,c) +#define MLOG_IQUE3(a,b,c,d) \ + SLOG_3 (mms_debug_sel & MMS_LOG_IQUE,_mms_log_ique_logstr,a,b,c,d) +#define MLOG_IQUE4(a,b,c,d,e) \ + SLOG_4 (mms_debug_sel & MMS_LOG_IQUE,_mms_log_ique_logstr,a,b,c,d,e) +#define MLOG_IQUE5(a,b,c,d,e,f) \ + SLOG_5 (mms_debug_sel & MMS_LOG_IQUE,_mms_log_ique_logstr,a,b,c,d,e,f) +#define MLOG_IQUE6(a,b,c,d,e,f,g) \ + SLOG_6 (mms_debug_sel & MMS_LOG_IQUE,_mms_log_ique_logstr,a,b,c,d,e,f,g) +#define MLOG_IQUE7(a,b,c,d,e,f,g,h) \ + SLOG_7 (mms_debug_sel & MMS_LOG_IQUE,_mms_log_ique_logstr,a,b,c,d,e,f,g,h) +#define MLOG_IQUE8(a,b,c,d,e,f,g,h,i) \ + SLOG_8 (mms_debug_sel & MMS_LOG_IQUE,_mms_log_ique_logstr,a,b,c,d,e,f,g,h,i) + +/* Continuation log macros */ +#define MLOG_CIQUE0(a) \ + SLOGC_0 (mms_debug_sel & MMS_LOG_IQUE,a) +#define MLOG_CIQUE1(a,b) \ + SLOGC_1 (mms_debug_sel & MMS_LOG_IQUE,a,b) +#define MLOG_CIQUE2(a,b,c) \ + SLOGC_2 (mms_debug_sel & MMS_LOG_IQUE,a,b,c) +#define MLOG_CIQUE3(a,b,c,d) \ + SLOGC_3 (mms_debug_sel & MMS_LOG_IQUE,a,b,c,d) +#define MLOG_CIQUE4(a,b,c,d,e) \ + SLOGC_4 (mms_debug_sel & MMS_LOG_IQUE,a,b,c,d,e) +#define MLOG_CIQUE5(a,b,c,d,e,f) \ + SLOGC_5 (mms_debug_sel & MMS_LOG_IQUE,a,b,c,d,e,f) +#define MLOG_CIQUE6(a,b,c,d,e,f,g) \ + SLOGC_6 (mms_debug_sel & MMS_LOG_IQUE,a,b,c,d,e,f,g) +#define MLOG_CIQUE7(a,b,c,d,e,f,g,h) \ + SLOGC_7 (mms_debug_sel & MMS_LOG_IQUE,a,b,c,d,e,f,g,h) +#define MLOG_CIQUE8(a,b,c,d,e,f,g,h,i) \ + SLOGC_8 (mms_debug_sel & MMS_LOG_IQUE,a,b,c,d,e,f,g,h,i) + +/* Hex log macro */ +#define MLOG_IQUEH(a,b) \ + SLOGH (mms_debug_sel & MMS_LOG_IQUE,a,b) + +/*********************** RQUE Macros **************************************/ +#define MLOG_RQUE0(a) \ + SLOG_0 (mms_debug_sel & MMS_LOG_RQUE,_mms_log_rque_logstr,a) +#define MLOG_RQUE1(a,b) \ + SLOG_1 (mms_debug_sel & MMS_LOG_RQUE,_mms_log_rque_logstr,a,b) +#define MLOG_RQUE2(a,b,c) \ + SLOG_2 (mms_debug_sel & MMS_LOG_RQUE,_mms_log_rque_logstr,a,b,c) +#define MLOG_RQUE3(a,b,c,d) \ + SLOG_3 (mms_debug_sel & MMS_LOG_RQUE,_mms_log_rque_logstr,a,b,c,d) +#define MLOG_RQUE4(a,b,c,d,e) \ + SLOG_4 (mms_debug_sel & MMS_LOG_RQUE,_mms_log_rque_logstr,a,b,c,d,e) +#define MLOG_RQUE5(a,b,c,d,e,f) \ + SLOG_5 (mms_debug_sel & MMS_LOG_RQUE,_mms_log_rque_logstr,a,b,c,d,e,f) +#define MLOG_RQUE6(a,b,c,d,e,f,g) \ + SLOG_6 (mms_debug_sel & MMS_LOG_RQUE,_mms_log_rque_logstr,a,b,c,d,e,f,g) +#define MLOG_RQUE7(a,b,c,d,e,f,g,h) \ + SLOG_7 (mms_debug_sel & MMS_LOG_RQUE,_mms_log_rque_logstr,a,b,c,d,e,f,g,h) +#define MLOG_RQUE8(a,b,c,d,e,f,g,h,i) \ + SLOG_8 (mms_debug_sel & MMS_LOG_RQUE,_mms_log_rque_logstr,a,b,c,d,e,f,g,h,i) + +/* Continuation log macros */ +#define MLOG_CRQUE0(a) \ + SLOGC_0 (mms_debug_sel & MMS_LOG_RQUE,a) +#define MLOG_CRQUE1(a,b) \ + SLOGC_1 (mms_debug_sel & MMS_LOG_RQUE,a,b) +#define MLOG_CRQUE2(a,b,c) \ + SLOGC_2 (mms_debug_sel & MMS_LOG_RQUE,a,b,c) +#define MLOG_CRQUE3(a,b,c,d) \ + SLOGC_3 (mms_debug_sel & MMS_LOG_RQUE,a,b,c,d) +#define MLOG_CRQUE4(a,b,c,d,e) \ + SLOGC_4 (mms_debug_sel & MMS_LOG_RQUE,a,b,c,d,e) +#define MLOG_CRQUE5(a,b,c,d,e,f) \ + SLOGC_5 (mms_debug_sel & MMS_LOG_RQUE,a,b,c,d,e,f) +#define MLOG_CRQUE6(a,b,c,d,e,f,g) \ + SLOGC_6 (mms_debug_sel & MMS_LOG_RQUE,a,b,c,d,e,f,g) +#define MLOG_CRQUE7(a,b,c,d,e,f,g,h) \ + SLOGC_7 (mms_debug_sel & MMS_LOG_RQUE,a,b,c,d,e,f,g,h) +#define MLOG_CRQUE8(a,b,c,d,e,f,g,h,i) \ + SLOGC_8 (mms_debug_sel & MMS_LOG_RQUE,a,b,c,d,e,f,g,h,i) + +/* Hex log macro */ +#define MLOG_RQUEH(a,b) \ + SLOGH (mms_debug_sel & MMS_LOG_RQUE,a,b) + +/*********************** REQ Macros **************************************/ +#define MLOG_REQ0(a) \ + SLOG_0 (mms_debug_sel & MMS_LOG_REQ,_mms_log_req_logstr,a) +#define MLOG_REQ1(a,b) \ + SLOG_1 (mms_debug_sel & MMS_LOG_REQ,_mms_log_req_logstr,a,b) +#define MLOG_REQ2(a,b,c) \ + SLOG_2 (mms_debug_sel & MMS_LOG_REQ,_mms_log_req_logstr,a,b,c) +#define MLOG_REQ3(a,b,c,d) \ + SLOG_3 (mms_debug_sel & MMS_LOG_REQ,_mms_log_req_logstr,a,b,c,d) +#define MLOG_REQ4(a,b,c,d,e) \ + SLOG_4 (mms_debug_sel & MMS_LOG_REQ,_mms_log_req_logstr,a,b,c,d,e) +#define MLOG_REQ5(a,b,c,d,e,f) \ + SLOG_5 (mms_debug_sel & MMS_LOG_REQ,_mms_log_req_logstr,a,b,c,d,e,f) +#define MLOG_REQ6(a,b,c,d,e,f,g) \ + SLOG_6 (mms_debug_sel & MMS_LOG_REQ,_mms_log_req_logstr,a,b,c,d,e,f,g) +#define MLOG_REQ7(a,b,c,d,e,f,g,h) \ + SLOG_7 (mms_debug_sel & MMS_LOG_REQ,_mms_log_req_logstr,a,b,c,d,e,f,g,h) +#define MLOG_REQ8(a,b,c,d,e,f,g,h,i) \ + SLOG_8 (mms_debug_sel & MMS_LOG_REQ,_mms_log_req_logstr,a,b,c,d,e,f,g,h,i) + +/* DEBUG: Add Continuation log macros? */ + +/* Hex log macro */ +#define MLOG_REQH(a,b) \ + SLOGH (mms_debug_sel & MMS_LOG_REQ,a,b) + +/*********************** IND Macros **************************************/ +#define MLOG_IND0(a) \ + SLOG_0 (mms_debug_sel & MMS_LOG_IND,_mms_log_ind_logstr,a) +#define MLOG_IND1(a,b) \ + SLOG_1 (mms_debug_sel & MMS_LOG_IND,_mms_log_ind_logstr,a,b) +#define MLOG_IND2(a,b,c) \ + SLOG_2 (mms_debug_sel & MMS_LOG_IND,_mms_log_ind_logstr,a,b,c) +#define MLOG_IND3(a,b,c,d) \ + SLOG_3 (mms_debug_sel & MMS_LOG_IND,_mms_log_ind_logstr,a,b,c,d) +#define MLOG_IND4(a,b,c,d,e) \ + SLOG_4 (mms_debug_sel & MMS_LOG_IND,_mms_log_ind_logstr,a,b,c,d,e) +#define MLOG_IND5(a,b,c,d,e,f) \ + SLOG_5 (mms_debug_sel & MMS_LOG_IND,_mms_log_ind_logstr,a,b,c,d,e,f) +#define MLOG_IND6(a,b,c,d,e,f,g) \ + SLOG_6 (mms_debug_sel & MMS_LOG_IND,_mms_log_ind_logstr,a,b,c,d,e,f,g) +#define MLOG_IND7(a,b,c,d,e,f,g,h) \ + SLOG_7 (mms_debug_sel & MMS_LOG_IND,_mms_log_ind_logstr,a,b,c,d,e,f,g,h) +#define MLOG_IND8(a,b,c,d,e,f,g,h,i) \ + SLOG_8 (mms_debug_sel & MMS_LOG_IND,_mms_log_ind_logstr,a,b,c,d,e,f,g,h,i) + +/* DEBUG: Add Continuation log macros? */ + +/* Hex log macro */ +#define MLOG_INDH(a,b) \ + SLOGH (mms_debug_sel & MMS_LOG_IND,a,b) + +/*********************** RESP Macros **************************************/ +#define MLOG_RESP0(a) \ + SLOG_0 (mms_debug_sel & MMS_LOG_RESP,_mms_log_resp_logstr,a) +#define MLOG_RESP1(a,b) \ + SLOG_1 (mms_debug_sel & MMS_LOG_RESP,_mms_log_resp_logstr,a,b) +#define MLOG_RESP2(a,b,c) \ + SLOG_2 (mms_debug_sel & MMS_LOG_RESP,_mms_log_resp_logstr,a,b,c) +#define MLOG_RESP3(a,b,c,d) \ + SLOG_3 (mms_debug_sel & MMS_LOG_RESP,_mms_log_resp_logstr,a,b,c,d) +#define MLOG_RESP4(a,b,c,d,e) \ + SLOG_4 (mms_debug_sel & MMS_LOG_RESP,_mms_log_resp_logstr,a,b,c,d,e) +#define MLOG_RESP5(a,b,c,d,e,f) \ + SLOG_5 (mms_debug_sel & MMS_LOG_RESP,_mms_log_resp_logstr,a,b,c,d,e,f) +#define MLOG_RESP6(a,b,c,d,e,f,g) \ + SLOG_6 (mms_debug_sel & MMS_LOG_RESP,_mms_log_resp_logstr,a,b,c,d,e,f,g) +#define MLOG_RESP7(a,b,c,d,e,f,g,h) \ + SLOG_7 (mms_debug_sel & MMS_LOG_RESP,_mms_log_resp_logstr,a,b,c,d,e,f,g,h) +#define MLOG_RESP8(a,b,c,d,e,f,g,h,i) \ + SLOG_8 (mms_debug_sel & MMS_LOG_RESP,_mms_log_resp_logstr,a,b,c,d,e,f,g,h,i) + +/* DEBUG: Add Continuation log macros? */ + +/* Hex log macro */ +#define MLOG_RESPH(a,b) \ + SLOGH (mms_debug_sel & MMS_LOG_RESP,a,b) + +/*********************** CONF Macros **************************************/ +#define MLOG_CONF0(a) \ + SLOG_0 (mms_debug_sel & MMS_LOG_CONF,_mms_log_conf_logstr,a) +#define MLOG_CONF1(a,b) \ + SLOG_1 (mms_debug_sel & MMS_LOG_CONF,_mms_log_conf_logstr,a,b) +#define MLOG_CONF2(a,b,c) \ + SLOG_2 (mms_debug_sel & MMS_LOG_CONF,_mms_log_conf_logstr,a,b,c) +#define MLOG_CONF3(a,b,c,d) \ + SLOG_3 (mms_debug_sel & MMS_LOG_CONF,_mms_log_conf_logstr,a,b,c,d) +#define MLOG_CONF4(a,b,c,d,e) \ + SLOG_4 (mms_debug_sel & MMS_LOG_CONF,_mms_log_conf_logstr,a,b,c,d,e) +#define MLOG_CONF5(a,b,c,d,e,f) \ + SLOG_5 (mms_debug_sel & MMS_LOG_CONF,_mms_log_conf_logstr,a,b,c,d,e,f) +#define MLOG_CONF6(a,b,c,d,e,f,g) \ + SLOG_6 (mms_debug_sel & MMS_LOG_CONF,_mms_log_conf_logstr,a,b,c,d,e,f,g) +#define MLOG_CONF7(a,b,c,d,e,f,g,h) \ + SLOG_7 (mms_debug_sel & MMS_LOG_CONF,_mms_log_conf_logstr,a,b,c,d,e,f,g,h) +#define MLOG_CONF8(a,b,c,d,e,f,g,h,i) \ + SLOG_8 (mms_debug_sel & MMS_LOG_CONF,_mms_log_conf_logstr,a,b,c,d,e,f,g,h,i) + + +/* DEBUG: Add Continuation log macros? */ + +/* Hex log macro */ +#define MLOG_CONFH(a,b) \ + SLOGH (mms_debug_sel & MMS_LOG_CONF,a,b) + +/*********************** VM Macros **************************************/ +#define MLOG_VM0(a) \ + SLOG_0 (mms_debug_sel & MMS_LOG_VM,_mms_log_vm_logstr,a) +#define MLOG_VM1(a,b) \ + SLOG_1 (mms_debug_sel & MMS_LOG_VM,_mms_log_vm_logstr,a,b) +#define MLOG_VM2(a,b,c) \ + SLOG_2 (mms_debug_sel & MMS_LOG_VM,_mms_log_vm_logstr,a,b,c) +#define MLOG_VM3(a,b,c,d) \ + SLOG_3 (mms_debug_sel & MMS_LOG_VM,_mms_log_vm_logstr,a,b,c,d) +#define MLOG_VM4(a,b,c,d,e) \ + SLOG_4 (mms_debug_sel & MMS_LOG_VM,_mms_log_vm_logstr,a,b,c,d,e) +#define MLOG_VM5(a,b,c,d,e,f) \ + SLOG_5 (mms_debug_sel & MMS_LOG_VM,_mms_log_vm_logstr,a,b,c,d,e,f) +#define MLOG_VM6(a,b,c,d,e,f,g) \ + SLOG_6 (mms_debug_sel & MMS_LOG_VM,_mms_log_vm_logstr,a,b,c,d,e,f,g) +#define MLOG_VM7(a,b,c,d,e,f,g,h) \ + SLOG_7 (mms_debug_sel & MMS_LOG_VM,_mms_log_vm_logstr,a,b,c,d,e,f,g,h) +#define MLOG_VM8(a,b,c,d,e,f,g,h,i) \ + SLOG_8 (mms_debug_sel & MMS_LOG_VM,_mms_log_vm_logstr,a,b,c,d,e,f,g,h,i) + +/* DEBUG: Add Continuation log macros? */ + +/* Hex log macro */ +#define MLOG_VMH(a,b) \ + SLOGH (mms_debug_sel & MMS_LOG_VM,a,b) + +/*********************** ERR Macros **************************************/ +#define MLOG_ERR0(a) \ + SLOG_0 (mms_debug_sel & MMS_LOG_ERR,_mms_log_err_logstr,a) +#define MLOG_ERR1(a,b) \ + SLOG_1 (mms_debug_sel & MMS_LOG_ERR,_mms_log_err_logstr,a,b) +#define MLOG_ERR2(a,b,c) \ + SLOG_2 (mms_debug_sel & MMS_LOG_ERR,_mms_log_err_logstr,a,b,c) +#define MLOG_ERR3(a,b,c,d) \ + SLOG_3 (mms_debug_sel & MMS_LOG_ERR,_mms_log_err_logstr,a,b,c,d) +#define MLOG_ERR4(a,b,c,d,e) \ + SLOG_4 (mms_debug_sel & MMS_LOG_ERR,_mms_log_err_logstr,a,b,c,d,e) +#define MLOG_ERR5(a,b,c,d,e,f) \ + SLOG_5 (mms_debug_sel & MMS_LOG_ERR,_mms_log_err_logstr,a,b,c,d,e,f) +#define MLOG_ERR6(a,b,c,d,e,f,g) \ + SLOG_6 (mms_debug_sel & MMS_LOG_ERR,_mms_log_err_logstr,a,b,c,d,e,f,g) +#define MLOG_ERR7(a,b,c,d,e,f,g,h) \ + SLOG_7 (mms_debug_sel & MMS_LOG_ERR,_mms_log_err_logstr,a,b,c,d,e,f,g,h) +#define MLOG_ERR8(a,b,c,d,e,f,g,h,i) \ + SLOG_8 (mms_debug_sel & MMS_LOG_ERR,_mms_log_err_logstr,a,b,c,d,e,f,g,h,i) + +/* Continuation log macros */ +#define MLOG_CERR0(a) \ + SLOGC_0 (mms_debug_sel & MMS_LOG_ERR,a) +#define MLOG_CERR1(a,b) \ + SLOGC_1 (mms_debug_sel & MMS_LOG_ERR,a,b) +#define MLOG_CERR2(a,b,c) \ + SLOGC_2 (mms_debug_sel & MMS_LOG_ERR,a,b,c) +#define MLOG_CERR3(a,b,c,d) \ + SLOGC_3 (mms_debug_sel & MMS_LOG_ERR,a,b,c,d) +#define MLOG_CERR4(a,b,c,d,e) \ + SLOGC_4 (mms_debug_sel & MMS_LOG_ERR,a,b,c,d,e) +#define MLOG_CERR5(a,b,c,d,e,f) \ + SLOGC_5 (mms_debug_sel & MMS_LOG_ERR,a,b,c,d,e,f) +#define MLOG_CERR6(a,b,c,d,e,f,g) \ + SLOGC_6 (mms_debug_sel & MMS_LOG_ERR,a,b,c,d,e,f,g) +#define MLOG_CERR7(a,b,c,d,e,f,g,h) \ + SLOGC_7 (mms_debug_sel & MMS_LOG_ERR,a,b,c,d,e,f,g,h) +#define MLOG_CERR8(a,b,c,d,e,f,g,h,i) \ + SLOGC_8 (mms_debug_sel & MMS_LOG_ERR,a,b,c,d,e,f,g,h,i) + +/* Hex log macro */ +#define MLOG_ERRH(a,b) \ + SLOGH (mms_debug_sel & MMS_LOG_ERR,a,b) + +/*********************** NERR Macros *************************************/ +#define MLOG_NERR0(a) \ + SLOG_0 (mms_debug_sel & MMS_LOG_NERR,_mms_log_nerr_logstr,a) +#define MLOG_NERR1(a,b) \ + SLOG_1 (mms_debug_sel & MMS_LOG_NERR,_mms_log_nerr_logstr,a,b) +#define MLOG_NERR2(a,b,c) \ + SLOG_2 (mms_debug_sel & MMS_LOG_NERR,_mms_log_nerr_logstr,a,b,c) +#define MLOG_NERR3(a,b,c,d) \ + SLOG_3 (mms_debug_sel & MMS_LOG_NERR,_mms_log_nerr_logstr,a,b,c,d) +#define MLOG_NERR4(a,b,c,d,e) \ + SLOG_4 (mms_debug_sel & MMS_LOG_NERR,_mms_log_nerr_logstr,a,b,c,d,e) +#define MLOG_NERR5(a,b,c,d,e,f) \ + SLOG_5 (mms_debug_sel & MMS_LOG_NERR,_mms_log_nerr_logstr,a,b,c,d,e,f) +#define MLOG_NERR6(a,b,c,d,e,f,g) \ + SLOG_6 (mms_debug_sel & MMS_LOG_NERR,_mms_log_nerr_logstr,a,b,c,d,e,f,g) +#define MLOG_NERR7(a,b,c,d,e,f,g,h) \ + SLOG_7 (mms_debug_sel & MMS_LOG_NERR,_mms_log_nerr_logstr,a,b,c,d,e,f,g,h) +#define MLOG_NERR8(a,b,c,d,e,f,g,h,i) \ + SLOG_8 (mms_debug_sel & MMS_LOG_NERR,_mms_log_nerr_logstr,a,b,c,d,e,f,g,h,i) + +/* Continuation log macros */ +#define MLOG_CNERR0(a) \ + SLOGC_0 (mms_debug_sel & MMS_LOG_NERR,a) +#define MLOG_CNERR1(a,b) \ + SLOGC_1 (mms_debug_sel & MMS_LOG_NERR,a,b) +#define MLOG_CNERR2(a,b,c) \ + SLOGC_2 (mms_debug_sel & MMS_LOG_NERR,a,b,c) +#define MLOG_CNERR3(a,b,c,d) \ + SLOGC_3 (mms_debug_sel & MMS_LOG_NERR,a,b,c,d) +#define MLOG_CNERR4(a,b,c,d,e) \ + SLOGC_4 (mms_debug_sel & MMS_LOG_NERR,a,b,c,d,e) +#define MLOG_CNERR5(a,b,c,d,e,f) \ + SLOGC_5 (mms_debug_sel & MMS_LOG_NERR,a,b,c,d,e,f) +#define MLOG_CNERR6(a,b,c,d,e,f,g) \ + SLOGC_6 (mms_debug_sel & MMS_LOG_NERR,a,b,c,d,e,f,g) +#define MLOG_CNERR7(a,b,c,d,e,f,g,h) \ + SLOGC_7 (mms_debug_sel & MMS_LOG_NERR,a,b,c,d,e,f,g,h) +#define MLOG_CNERR8(a,b,c,d,e,f,g,h,i) \ + SLOGC_8 (mms_debug_sel & MMS_LOG_NERR,a,b,c,d,e,f,g,h,i) + +/* Hex log macro */ +#define MLOG_NERRH(a,b) \ + SLOGH (mms_debug_sel & MMS_LOG_NERR,a,b) + +/*********************** PDU Macros **************************************/ +#define MLOG_PDU0(a) \ + SLOG_0 (mms_debug_sel & MMS_LOG_PDU,_mms_log_pdu_logstr,a) +#define MLOG_PDU1(a,b) \ + SLOG_1 (mms_debug_sel & MMS_LOG_PDU,_mms_log_pdu_logstr,a,b) +#define MLOG_PDU2(a,b,c) \ + SLOG_2 (mms_debug_sel & MMS_LOG_PDU,_mms_log_pdu_logstr,a,b,c) +#define MLOG_PDU3(a,b,c,d) \ + SLOG_3 (mms_debug_sel & MMS_LOG_PDU,_mms_log_pdu_logstr,a,b,c,d) +#define MLOG_PDU4(a,b,c,d,e) \ + SLOG_4 (mms_debug_sel & MMS_LOG_PDU,_mms_log_pdu_logstr,a,b,c,d,e) +#define MLOG_PDU5(a,b,c,d,e,f) \ + SLOG_5 (mms_debug_sel & MMS_LOG_PDU,_mms_log_pdu_logstr,a,b,c,d,e,f) +#define MLOG_PDU6(a,b,c,d,e,f,g) \ + SLOG_6 (mms_debug_sel & MMS_LOG_PDU,_mms_log_pdu_logstr,a,b,c,d,e,f,g) +#define MLOG_PDU7(a,b,c,d,e,f,g,h) \ + SLOG_7 (mms_debug_sel & MMS_LOG_PDU,_mms_log_pdu_logstr,a,b,c,d,e,f,g,h) +#define MLOG_PDU8(a,b,c,d,e,f,g,h,i) \ + SLOG_8 (mms_debug_sel & MMS_LOG_PDU,_mms_log_pdu_logstr,a,b,c,d,e,f,g,h,i) + +/* Continuation log macros */ +#define MLOG_CPDU0(a) \ + SLOGC_0 (mms_debug_sel & MMS_LOG_PDU,a) +#define MLOG_CPDU1(a,b) \ + SLOGC_1 (mms_debug_sel & MMS_LOG_PDU,a,b) +#define MLOG_CPDU2(a,b,c) \ + SLOGC_2 (mms_debug_sel & MMS_LOG_PDU,a,b,c) +#define MLOG_CPDU3(a,b,c,d) \ + SLOGC_3 (mms_debug_sel & MMS_LOG_PDU,a,b,c,d) +#define MLOG_CPDU4(a,b,c,d,e) \ + SLOGC_4 (mms_debug_sel & MMS_LOG_PDU,a,b,c,d,e) +#define MLOG_CPDU5(a,b,c,d,e,f) \ + SLOGC_5 (mms_debug_sel & MMS_LOG_PDU,a,b,c,d,e,f) +#define MLOG_CPDU6(a,b,c,d,e,f,g) \ + SLOGC_6 (mms_debug_sel & MMS_LOG_PDU,a,b,c,d,e,f,g) +#define MLOG_CPDU7(a,b,c,d,e,f,g,h) \ + SLOGC_7 (mms_debug_sel & MMS_LOG_PDU,a,b,c,d,e,f,g,h) +#define MLOG_CPDU8(a,b,c,d,e,f,g,h,i) \ + SLOGC_8 (mms_debug_sel & MMS_LOG_PDU,a,b,c,d,e,f,g,h,i) + +/* Hex log macro */ +#define MLOG_PDUH(a,b) \ + SLOGH (mms_debug_sel & MMS_LOG_PDU,a,b) + + +/*********************** ALWAYS Macros *********************************/ +/* DEBUG: these are same as "SLOGALWAYS*" except header txt */ +/* "mms_log_always_logstr". If text is not important, just remap */ +/* "MLOG_ALWAYS*" like this (#define MLOG_ALWAYS0 SLOGALWAYS0). */ +#if defined(DEBUG_SISCO) +#define MLOG_ALWAYS0(a) \ + _slog (sLogCtrl,_mms_log_always_logstr, thisFileName,__LINE__,a) +#define MLOG_ALWAYS1(a,b) \ + _slog (sLogCtrl,_mms_log_always_logstr, thisFileName,__LINE__,a,b) +#define MLOG_ALWAYS2(a,b,c) \ + _slog (sLogCtrl,_mms_log_always_logstr, thisFileName,__LINE__,a,b,c) +#define MLOG_ALWAYS3(a,b,c,d) \ + _slog (sLogCtrl,_mms_log_always_logstr, thisFileName,__LINE__,a,b,c,d) +#define MLOG_ALWAYS4(a,b,c,d,e) \ + _slog (sLogCtrl,_mms_log_always_logstr, thisFileName,__LINE__,a,b,c,d,e) +#define MLOG_ALWAYS5(a,b,c,d,e,f) \ + _slog (sLogCtrl,_mms_log_always_logstr, thisFileName,__LINE__,a,b,c,d,e,f) +#define MLOG_ALWAYS6(a,b,c,d,e,f,g) \ + _slog (sLogCtrl,_mms_log_always_logstr, thisFileName,__LINE__,a,b,c,d,e,f,g) +#define MLOG_ALWAYS7(a,b,c,d,e,f,g,h) \ + _slog (sLogCtrl,_mms_log_always_logstr, thisFileName,__LINE__,a,b,c,d,e,f,g,h) +#define MLOG_ALWAYS8(a,b,c,d,e,f,g,h,i) \ + _slog (sLogCtrl,_mms_log_always_logstr, thisFileName,__LINE__,a,b,c,d,e,f,g,h,i) +#else /* !DEBUG_SISCO */ +#define MLOG_ALWAYS0(a) +#define MLOG_ALWAYS1(a,b) +#define MLOG_ALWAYS2(a,b,c) +#define MLOG_ALWAYS3(a,b,c,d) +#define MLOG_ALWAYS4(a,b,c,d,e) +#define MLOG_ALWAYS5(a,b,c,d,e,f) +#define MLOG_ALWAYS6(a,b,c,d,e,f,g) +#define MLOG_ALWAYS7(a,b,c,d,e,f,g,h) +#define MLOG_ALWAYS8(a,b,c,d,e,f,g,h,i) +#endif /* !DEBUG_SISCO */ + +/* Continuation & Hex macros are exactly the same as "SLOG*" macros, so just remap to them.*/ +#define MLOG_CALWAYS0 SLOGCALWAYS0 +#define MLOG_CALWAYS1 SLOGCALWAYS1 +#define MLOG_CALWAYS2 SLOGCALWAYS2 +#define MLOG_CALWAYS3 SLOGCALWAYS3 +#define MLOG_CALWAYS4 SLOGCALWAYS4 +#define MLOG_CALWAYS5 SLOGCALWAYS5 +#define MLOG_CALWAYS6 SLOGCALWAYS6 +#define MLOG_CALWAYS7 SLOGCALWAYS7 +#define MLOG_CALWAYS8 SLOGCALWAYS8 + +#define MLOG_ALWAYSH SLOGALWAYSH + + +/*********************** USER ERR Macros********************************/ +#define USER_LOG_ERR0(a) \ + SLOG_0 (user_debug_sel & USER_LOG_ERR,_user_err_logstr,a) +#define USER_LOG_ERR1(a,b) \ + SLOG_1 (user_debug_sel & USER_LOG_ERR,_user_err_logstr,a,b) +#define USER_LOG_ERR2(a,b,c) \ + SLOG_2 (user_debug_sel & USER_LOG_ERR,_user_err_logstr,a,b,c) +#define USER_LOG_ERR3(a,b,c,d) \ + SLOG_3 (user_debug_sel & USER_LOG_ERR,_user_err_logstr,a,b,c,d) +#define USER_LOG_ERR4(a,b,c,d,e) \ + SLOG_4 (user_debug_sel & USER_LOG_ERR,_user_err_logstr,a,b,c,d,e) +#define USER_LOG_ERR5(a,b,c,d,e,f) \ + SLOG_5 (user_debug_sel & USER_LOG_ERR,_user_err_logstr,a,b,c,d,e,f) +#define USER_LOG_ERR6(a,b,c,d,e,f,g) \ + SLOG_6 (user_debug_sel & USER_LOG_ERR,_user_err_logstr,a,b,c,d,e,f,g) +#define USER_LOG_ERR7(a,b,c,d,e,f,g,h) \ + SLOG_7 (user_debug_sel & USER_LOG_ERR,_user_err_logstr,a,b,c,d,e,f,g,h) +#define USER_LOG_ERR8(a,b,c,d,e,f,g,h,i) \ + SLOG_8 (user_debug_sel & USER_LOG_ERR,_user_err_logstr,a,b,c,d,e,f,g,h,i) + +/* Continuation log macros */ +#define USER_LOG_ERRC0(a) \ + SLOGC_0 (user_debug_sel & USER_LOG_ERR,a) +#define USER_LOG_ERRC1(a,b) \ + SLOGC_1 (user_debug_sel & USER_LOG_ERR,a,b) +#define USER_LOG_ERRC2(a,b,c) \ + SLOGC_2 (user_debug_sel & USER_LOG_ERR,a,b,c) +#define USER_LOG_ERRC3(a,b,c,d) \ + SLOGC_3 (user_debug_sel & USER_LOG_ERR,a,b,c,d) +#define USER_LOG_ERRC4(a,b,c,d,e) \ + SLOGC_4 (user_debug_sel & USER_LOG_ERR,a,b,c,d,e) +#define USER_LOG_ERRC5(a,b,c,d,e,f) \ + SLOGC_5 (user_debug_sel & USER_LOG_ERR,a,b,c,d,e,f) +#define USER_LOG_ERRC6(a,b,c,d,e,f,g) \ + SLOGC_6 (user_debug_sel & USER_LOG_ERR,a,b,c,d,e,f,g) +#define USER_LOG_ERRC7(a,b,c,d,e,f,g,h) \ + SLOGC_7 (user_debug_sel & USER_LOG_ERR,a,b,c,d,e,f,g,h) +#define USER_LOG_ERRC8(a,b,c,d,e,f,g,h,i) \ + SLOGC_8 (user_debug_sel & USER_LOG_ERR,a,b,c,d,e,f,g,h,i) + +/* Hex log macro */ +#define USER_LOG_ERRH(a,b) \ + SLOGH (user_debug_sel & USER_LOG_ERR,a,b) + +/*********************** USER Client Macros ****************************/ +#define USER_LOG_CLIENT0(a) \ + SLOG_0 (user_debug_sel & USER_LOG_CLIENT,_user_client_logstr,a) +#define USER_LOG_CLIENT1(a,b) \ + SLOG_1 (user_debug_sel & USER_LOG_CLIENT,_user_client_logstr,a,b) +#define USER_LOG_CLIENT2(a,b,c) \ + SLOG_2 (user_debug_sel & USER_LOG_CLIENT,_user_client_logstr,a,b,c) +#define USER_LOG_CLIENT3(a,b,c,d) \ + SLOG_3 (user_debug_sel & USER_LOG_CLIENT,_user_client_logstr,a,b,c,d) +#define USER_LOG_CLIENT4(a,b,c,d,e) \ + SLOG_4 (user_debug_sel & USER_LOG_CLIENT,_user_client_logstr,a,b,c,d,e) +#define USER_LOG_CLIENT5(a,b,c,d,e,f) \ + SLOG_5 (user_debug_sel & USER_LOG_CLIENT,_user_client_logstr,a,b,c,d,e,f) +#define USER_LOG_CLIENT6(a,b,c,d,e,f,g) \ + SLOG_6 (user_debug_sel & USER_LOG_CLIENT,_user_client_logstr,a,b,c,d,e,f,g) +#define USER_LOG_CLIENT7(a,b,c,d,e,f,g,h) \ + SLOG_7 (user_debug_sel & USER_LOG_CLIENT,_user_client_logstr,a,b,c,d,e,f,g,h) +#define USER_LOG_CLIENT8(a,b,c,d,e,f,g,h,i) \ + SLOG_8 (user_debug_sel & USER_LOG_CLIENT,_user_client_logstr,a,b,c,d,e,f,g,h,i) + +/* Continuation log macros */ +#define USER_LOG_CLIENTC0(a) \ + SLOGC_0 (user_debug_sel & USER_LOG_CLIENT,a) +#define USER_LOG_CLIENTC1(a,b) \ + SLOGC_1 (user_debug_sel & USER_LOG_CLIENT,a,b) +#define USER_LOG_CLIENTC2(a,b,c) \ + SLOGC_2 (user_debug_sel & USER_LOG_CLIENT,a,b,c) +#define USER_LOG_CLIENTC3(a,b,c,d) \ + SLOGC_3 (user_debug_sel & USER_LOG_CLIENT,a,b,c,d) +#define USER_LOG_CLIENTC4(a,b,c,d,e) \ + SLOGC_4 (user_debug_sel & USER_LOG_CLIENT,a,b,c,d,e) +#define USER_LOG_CLIENTC5(a,b,c,d,e,f) \ + SLOGC_5 (user_debug_sel & USER_LOG_CLIENT,a,b,c,d,e,f) +#define USER_LOG_CLIENTC6(a,b,c,d,e,f,g) \ + SLOGC_6 (user_debug_sel & USER_LOG_CLIENT,a,b,c,d,e,f,g) +#define USER_LOG_CLIENTC7(a,b,c,d,e,f,g,h) \ + SLOGC_7 (user_debug_sel & USER_LOG_CLIENT,a,b,c,d,e,f,g,h) +#define USER_LOG_CLIENTC8(a,b,c,d,e,f,g,h,i) \ + SLOGC_8 (user_debug_sel & USER_LOG_CLIENT,a,b,c,d,e,f,g,h,i) + +/* Hex log macro */ +#define USER_LOG_CLIENTH(a,b) \ + SLOGH (user_debug_sel & USER_LOG_CLIENT,a,b) + +/*********************** USER Server Macros ****************************/ +#define USER_LOG_SERVER0(a) \ + SLOG_0 (user_debug_sel & USER_LOG_SERVER,_user_server_logstr,a) +#define USER_LOG_SERVER1(a,b) \ + SLOG_1 (user_debug_sel & USER_LOG_SERVER,_user_server_logstr,a,b) +#define USER_LOG_SERVER2(a,b,c) \ + SLOG_2 (user_debug_sel & USER_LOG_SERVER,_user_server_logstr,a,b,c) +#define USER_LOG_SERVER3(a,b,c,d) \ + SLOG_3 (user_debug_sel & USER_LOG_SERVER,_user_server_logstr,a,b,c,d) +#define USER_LOG_SERVER4(a,b,c,d,e) \ + SLOG_4 (user_debug_sel & USER_LOG_SERVER,_user_server_logstr,a,b,c,d,e) +#define USER_LOG_SERVER5(a,b,c,d,e,f) \ + SLOG_5 (user_debug_sel & USER_LOG_SERVER,_user_server_logstr,a,b,c,d,e,f) +#define USER_LOG_SERVER6(a,b,c,d,e,f,g) \ + SLOG_6 (user_debug_sel & USER_LOG_SERVER,_user_server_logstr,a,b,c,d,e,f,g) +#define USER_LOG_SERVER7(a,b,c,d,e,f,g,h) \ + SLOG_7 (user_debug_sel & USER_LOG_SERVER,_user_server_logstr,a,b,c,d,e,f,g,h) +#define USER_LOG_SERVER8(a,b,c,d,e,f,g,h,i) \ + SLOG_8 (user_debug_sel & USER_LOG_SERVER,_user_server_logstr,a,b,c,d,e,f,g,h,i) + +/* Continuation log macros */ +#define USER_LOG_SERVERC0(a) \ + SLOGC_0 (user_debug_sel & USER_LOG_SERVER,a) +#define USER_LOG_SERVERC1(a,b) \ + SLOGC_1 (user_debug_sel & USER_LOG_SERVER,a,b) +#define USER_LOG_SERVERC2(a,b,c) \ + SLOGC_2 (user_debug_sel & USER_LOG_SERVER,a,b,c) +#define USER_LOG_SERVERC3(a,b,c,d) \ + SLOGC_3 (user_debug_sel & USER_LOG_SERVER,a,b,c,d) +#define USER_LOG_SERVERC4(a,b,c,d,e) \ + SLOGC_4 (user_debug_sel & USER_LOG_SERVER,a,b,c,d,e) +#define USER_LOG_SERVERC5(a,b,c,d,e,f) \ + SLOGC_5 (user_debug_sel & USER_LOG_SERVER,a,b,c,d,e,f) +#define USER_LOG_SERVERC6(a,b,c,d,e,f,g) \ + SLOGC_6 (user_debug_sel & USER_LOG_SERVER,a,b,c,d,e,f,g) +#define USER_LOG_SERVERC7(a,b,c,d,e,f,g,h) \ + SLOGC_7 (user_debug_sel & USER_LOG_SERVER,a,b,c,d,e,f,g,h) +#define USER_LOG_SERVERC8(a,b,c,d,e,f,g,h,i) \ + SLOGC_8 (user_debug_sel & USER_LOG_SERVER,a,b,c,d,e,f,g,h,i) + +/* Hex log macro */ +#define USER_LOG_SERVERH(a,b) \ + SLOGH (user_debug_sel & USER_LOG_SERVER,a,b) + +#define USER_LOG_SERVER_HEX USER_LOG_SERVERH /* for backward compatibility*/ + +#ifdef __cplusplus +} +#endif + +/************************************************************************/ +#endif /* End of MMS_LOG_INCLUDED */ +/************************************************************************/ + diff --git a/include/inc/mmslusec.h b/include/inc/mmslusec.h new file mode 100644 index 0000000..f0f4b4f --- /dev/null +++ b/include/inc/mmslusec.h @@ -0,0 +1,58 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2003 - 2004, All Rights Reserved. */ +/* */ +/* MODULE NAME : mmslusec.h */ +/* PRODUCT(S) : MMS-EASE Lite with LITESECURE */ +/* */ +/* MODULE DESCRIPTION : */ +/* Prototypes for Security related user functions. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 01/20/04 EJV 03 ulFreeAssocSecurity: del cc param. */ +/* 01/06/04 EJV 02 Merged with MMS-EASE mms_usec.h. */ +/* 07/08/03 EJV 01 Adopted from MMS-EASE mms_usec.h. */ +/************************************************************************/ +#ifndef MMS_USEC_H +#define MMS_USEC_H + +#ifdef __cplusplus +extern "C" { +#endif + +/*----------------------------------------------------------------------*/ +/* NOTE: The MMS-EASE Lite Secured applications (Client, Server) */ +/* are designed to work with Security Toolkit for MMS-EASE Lite */ +/* (LITESECURE-000-001). */ +/*----------------------------------------------------------------------*/ + +#if defined(S_SEC_ENABLED) + +#include "acseauth.h" +#include "ssec.h" + + +ST_RET ulSetSecurityCalling (ST_CHAR *locArName, + ST_CHAR *remArName, + S_SEC_LOC_AR **locArSecOut, + S_SEC_REM_AR **remArSecOut, + ACSE_AUTH_INFO *locAuthInfo, + S_SEC_ENCRYPT_CTRL *encryptCtrl); +ST_RET ulCheckSecureAssocConf (MVL_NET_INFO *cc); +ST_RET ulCheckSecureAssocInd (MVL_NET_INFO *cc, ACSE_AUTH_INFO *rspAuthInfo); +ST_RET ulFreeAssocSecurity (ACSE_AUTH_INFO *authInfo); +ST_RET ulCheckSecurityConfiguration (ST_VOID); + +#endif /* defined(S_SEC_ENABLED) */ + +#ifdef __cplusplus +} +#endif + +#endif /* MMS_USEC_H */ diff --git a/include/inc/mmsop_en/mmsop_en.h b/include/inc/mmsop_en/mmsop_en.h new file mode 100644 index 0000000..8a9038a --- /dev/null +++ b/include/inc/mmsop_en/mmsop_en.h @@ -0,0 +1,185 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 1997, All Rights Reserved. */ +/* */ +/* MODULE NAME : mmsop_en.h */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the operation enable switches used to */ +/* configure the decode system, the user service system, & the */ +/* supported services bit strings. */ +/* */ +/* Note that by enabling (or disabling) only the desired MMS */ +/* operations, a limited subset may be created (the subset */ +/* creation module is mmsop_en.c), thus allowing the creation of */ +/* a smaller executable because: */ +/* 1) references to the various MMS-EASE functions are removed */ +/* and therefore are not included from the library, and */ +/* 2) operation specific user application code is eliminated. */ +/* */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/14/98 JRB 04 Put "MPARAM*" defines back. */ +/* Only user code needs them. */ +/* 03/20/98 JRB 03 Move defines used by libraries to mms_def2.h */ +/* Only user code needs this file now. */ +/* 09/16/97 DSF 02 Fixed comments */ +/* 08/18/97 MDE 01 Added parameter support defines */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef MMSOP_EN_INCLUDED +#define MMSOP_EN_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "mms_def2.h" /* for REQ_RESP_EN, etc. */ + +/************************************************************************/ +/* define the opcode enable switches */ +/************************************************************************/ +#define MMS_INIT_EN REQ_RESP_EN +#define MMS_CONCLUDE_EN REQ_RESP_EN +#define MMS_CANCEL_EN REQ_RESP_EN + +#define MMS_STATUS_EN REQ_RESP_EN +#define MMS_USTATUS_EN REQ_RESP_EN +#define MMS_GETNAMES_EN REQ_RESP_EN +#define MMS_IDENT_EN REQ_RESP_EN +#define MMS_RENAME_EN REQ_RESP_EN +#define MMS_GETCL_EN REQ_RESP_EN +#define MMS_VMD_EN 0 + +#define MMS_NAMED_DOM_EN 0 +#define MMS_MV_DWN_EN REQ_RESP_EN /* VM download */ +#define MMS_INIT_DWN_EN REQ_RESP_EN +#define MMS_DWN_LOAD_EN REQ_RESP_EN +#define MMS_TERM_DWN_EN REQ_RESP_EN +#define MMS_MV_UPL_EN REQ_RESP_EN /* VM upload */ +#define MMS_INIT_UPL_EN REQ_RESP_EN +#define MMS_UP_LOAD_EN REQ_RESP_EN +#define MMS_TERM_UPL_EN REQ_RESP_EN +#define MMS_RDDWN_EN REQ_RESP_EN +#define MMS_RDUPL_EN REQ_RESP_EN +#define MMS_LOAD_DOM_EN REQ_RESP_EN +#define MMS_STR_DOM_EN REQ_RESP_EN +#define MMS_DEL_DOM_EN REQ_RESP_EN +#define MMS_GET_DOM_EN REQ_RESP_EN + +#define MMS_CRE_PI_EN REQ_RESP_EN +#define MMS_DEL_PI_EN REQ_RESP_EN +#define MMS_START_EN REQ_RESP_EN +#define MMS_STOP_EN REQ_RESP_EN +#define MMS_RESUME_EN REQ_RESP_EN +#define MMS_RESET_EN REQ_RESP_EN +#define MMS_KILL_EN REQ_RESP_EN +#define MMS_GET_PI_EN REQ_RESP_EN + +#define MMS_VA_EN 1 +#define MMS_MV_READ_EN REQ_RESP_EN /* VM Read variable(s) */ +#define MMS_MV_RDVARS_EN REQ_RESP_EN /* General VM Rd var's */ +#define MMS_READ_EN REQ_RESP_EN +#define MMS_MV_WRITE_EN REQ_RESP_EN /* VM Write variable(s) */ +#define MMS_MV_WRVARS_EN REQ_RESP_EN /* General VM WR var's */ +#define MMS_WRITE_EN REQ_RESP_EN +#define MMS_INFO_EN REQ_RESP_EN +#define MMS_GETVAR_EN REQ_RESP_EN +#define MMS_DEFVAR_EN REQ_RESP_EN +#define MMS_DEFSCAT_EN REQ_RESP_EN +#define MMS_GETSCAT_EN REQ_RESP_EN +#define MMS_DELVAR_EN REQ_RESP_EN +#define MMS_DEFVLIST_EN REQ_RESP_EN +#define MMS_GETVLIST_EN REQ_RESP_EN +#define MMS_DELVLIST_EN REQ_RESP_EN +#define MMS_MV_DEFTYPE_EN REQ_RESP_EN /* VM DefineType */ +#define MMS_DEFTYPE_EN REQ_RESP_EN +#define MMS_GETTYPE_EN REQ_RESP_EN +#define MMS_DELTYPE_EN REQ_RESP_EN + +#define MMS_TAKECTRL_EN REQ_RESP_EN +#define MMS_RELCTRL_EN REQ_RESP_EN +#define MMS_DEFINE_SEM_EN REQ_RESP_EN +#define MMS_DELETE_SEM_EN REQ_RESP_EN +#define MMS_REP_SEMSTAT_EN REQ_RESP_EN +#define MMS_REP_SEMPOOL_EN REQ_RESP_EN +#define MMS_REP_SEMENTRY_EN REQ_RESP_EN + +#define MMS_JREAD_EN REQ_RESP_EN +#define MMS_JWRITE_EN REQ_RESP_EN +#define MMS_JINIT_EN REQ_RESP_EN +#define MMS_JSTAT_EN REQ_RESP_EN +#define MMS_JCREATE_EN REQ_RESP_EN +#define MMS_JDELETE_EN REQ_RESP_EN + +#define MMS_DEFEC_EN REQ_RESP_EN +#define MMS_DELEC_EN REQ_RESP_EN +#define MMS_GETECA_EN REQ_RESP_EN +#define MMS_REPECS_EN REQ_RESP_EN +#define MMS_ALTECM_EN REQ_RESP_EN +#define MMS_TRIGE_EN REQ_RESP_EN +#define MMS_DEFEA_EN REQ_RESP_EN +#define MMS_DELEA_EN REQ_RESP_EN +#define MMS_GETEAA_EN REQ_RESP_EN +#define MMS_REPEAS_EN REQ_RESP_EN +#define MMS_DEFEE_EN REQ_RESP_EN +#define MMS_DELEE_EN REQ_RESP_EN +#define MMS_GETEEA_EN REQ_RESP_EN +#define MMS_REPEES_EN REQ_RESP_EN +#define MMS_ALTEE_EN REQ_RESP_EN +#define MMS_EVNOT_EN REQ_RESP_EN +#define MMS_ACKEVNOT_EN REQ_RESP_EN +#define MMS_GETAS_EN REQ_RESP_EN +#define MMS_GETAES_EN REQ_RESP_EN + +#define MMS_INPUT_EN REQ_RESP_EN +#define MMS_OUTPUT_EN REQ_RESP_EN + +#define MMS_MV_FOPEN_EN REQ_RESP_EN /* VM FileOpen */ +#define MMS_MV_FREAD_EN REQ_RESP_EN /* VM FileRead */ +#define MMS_MV_FCLOSE_EN REQ_RESP_EN /* VM FileClose */ +#define MMS_MV_FCOPY_EN REQ_RESP_EN /* VM FileCopy */ +#define MMS_OBTAINFILE_EN REQ_RESP_EN +#define MMS_FOPEN_EN REQ_RESP_EN +#define MMS_FREAD_EN REQ_RESP_EN +#define MMS_FCLOSE_EN REQ_RESP_EN +#define MMS_FRENAME_EN REQ_RESP_EN +#define MMS_FDELETE_EN REQ_RESP_EN +#define MMS_FDIR_EN REQ_RESP_EN + + +/************************************************************************/ +/************************************************************************/ +/* PARAMETER SUPPORTED BITSTRING VALUES */ +/************************************************************************/ + +#define MPARAM_STR1 0x80 /* 0x80 arrays */ +#define MPARAM_STR2 0x40 /* 0x40 structures */ +#define MPARAM_VNAM 0x20 /* 0x20 named variables */ +#define MPARAM_VALT 0x10 /* 0x10 alternate access */ +#define MPARAM_VADR 0x08 /* 0x08 address formed variables */ +#define MPARAM_VSCA 0x00 /* 0x04 scattered access */ +#define MPARAM_TPY 0x02 /* 0x02 third party */ +#define MPARAM_VLIS 0x01 /* 0x01 variable list */ +#define MPARAM_REAL 0x00 /* 0x80 real data type */ +#define MPARAM_AKEC 0x00 /* 0x40 ack event cond. */ +#define MPARAM_CEI 0x00 /* 0x20 cond. eval. interval */ + +#define MPARAM0 MPARAM_STR1 | MPARAM_STR2 | MPARAM_VNAM | MPARAM_VALT |\ + MPARAM_VADR | MPARAM_VSCA | MPARAM_TPY | MPARAM_VLIS +#define MPARAM1 MPARAM_REAL | MPARAM_AKEC | MPARAM_CEI + + +#ifdef __cplusplus +} +#endif + +#endif /* MMSOP_EN_INCLUDED */ + diff --git a/include/inc/mvl_acse.h b/include/inc/mvl_acse.h new file mode 100644 index 0000000..0a79fbb --- /dev/null +++ b/include/inc/mvl_acse.h @@ -0,0 +1,234 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2005, All Rights Reserved */ +/* */ +/* MODULE NAME : mvl_acse.h */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* NONE */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 05/10/05 EJV 26 Moved up osicfgx proto. */ +/* 04/06/05 EJV 25 Added MMSEASE_MOSI. */ +/* 03/28/05 JRB 24 Del suicacse header. */ +/* 08/11/04 JRB 23 Del global funct ptr u_mvl_connect_ind_fun. */ +/* Fix mvl_abort_req_ex return (ST_RET). */ +/* 07/08/04 JRB 22 Del unused global var mvl_local_cl_ar_name. */ +/* 07/23/03 MDE 21 Removed ACSE_AUTH_ENABLED */ +/* 06/16/03 EJV 20 Removed m_match.h, s_match.h includes */ +/* Chg M_MATCH_CTRL to DIB_MATCH_CTRL. */ +/* 06/10/03 MDE 19 Added address matching */ +/* 10/11/02 ASK 18 Added mvla_initiate_req_ex and */ +/* u_mvl_connect_*_ex */ +/* 05/13/02 MDE 17 Added structure element comments */ +/* 05/03/02 MDE 16 Added mvl_add_bind_ctrl, associated changes */ +/* 02/25/02 MDE 15 More changes to MVL_CFG_INFO */ +/* 02/20/02 MDE 14 Changes to new MVL_CFG_INFO, for mult. bind */ +/* 02/07/02 JRB 13 Define MVL_CFG_INFO & pass to mvl_start_acse.*/ +/* Move osicfgx proto here, add MVL_CFG_INFO arg*/ +/* Del global var mvl_local_ar_name. */ +/* 01/29/02 JRB 12 Replace mvl_init_cl_netinfo funct with */ +/* mvl_init_audt_addr. */ +/* 11/28/01 MDE 11 mvl_set_num_connections,mvl_set_max_msg_size */ +/* 01/05/01 MDE 10 Changes for use over Marben */ +/* 06/26/00 JRB 09 Del "#define MVL_ACSE". Not used. */ +/* Move "#define COACSE" to mvl_defs.h (avoids */ +/* mvl_defs.h dependence on mvl_acse.h). */ +/* 03/09/00 MDE 08 Added _mvl_init_conn_ctrl */ +/* 07/30/99 JRB 07 Chg ma_clbind_ctrl from static to global. */ +/* 04/13/99 MDE 06 Added '_mvla_initiate_locDe' */ +/* 03/18/99 MDE 05 Made connection limits runtime settable */ +/* 11/16/98 MDE 04 Removed mvl_release, mvla_release (obsolete) */ +/* 07/16/98 MDE 03 Addded 'mvl_dib_entry_to_app_ref' */ +/* 06/19/98 JRB 02 Add tp_type, etc. to NET_BIND_CTRL. */ +/* 09/10/97 MDE 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +#ifndef MVL_ACSE_INCLUDED +#define MVL_ACSE_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#if defined(MMSEASE_MOSI) +/* min includes */ +#include "mms_def2.h" +#else +#include "acse2usr.h" +#include "mvl_defs.h" + +/************************************************************************/ +/* Some error return codes */ +#define REQ_INCOMPLETE 0x100 +#define LOCAL_NAME_NOT_FOUND 0x101 +#define REMOTE_NAME_NOT_FOUND 0x102 + +#define MVLE_LOCAL_NAME 0x101 +#define MVLE_REMOTE_NAME 0x102 +#define MVLE_NUM_CONNECTIONS 0x103 + +/************************************************************************/ +/* Bind and Connection control structures */ + +struct dib_entry; /* Forward declaration */ +#endif /* !defined(MMSEASE_MOSI) */ + +typedef struct net_bind_ctrl + { +/* These parameters must be set before using in mvl_start_acse */ + ST_CHAR ar_name[MAX_AR_LEN+1]; + ST_INT num_calling; + ST_INT num_called; + +/* Internal */ + ST_VOID *user_info; +#ifdef LEAN_T + ST_INT tp_type; + ST_INT32 copp_bind_id_tcp; + ST_INT32 copp_bind_id_tp4; +#else + ST_INT32 copp_bind_id; +#endif + ST_INT32 clpp_bind_id; + struct dib_entry *de; + } NET_BIND_CTRL; + +/************************************************************************/ +/* MVL configuration information. Filled in by user or configuration */ +/* and passed to mvl_start_acse. */ +/************************************************************************/ + +typedef struct + { + ST_INT max_msg_size; /* Max MMS message size */ + ST_INT num_calling; /* total number of calling connections */ + ST_INT num_called; /* total number of called connections */ + +/* Used for single local address binding (LEAN-T) */ + ST_CHAR local_ar_name[MAX_AR_LEN+1]; + +/* Used for multiple local address binding only (MARBEN) */ +#ifdef MAP30_ACSE /* Select bind mode */ + ST_BOOLEAN use_bind_ctrl; /* Set to 0 for single local */ +#endif + +/* User sets these only when use_bind_ctrl is SD_TRUE (MARBEN) */ + ST_INT max_bind_ctrl; /* Max allowed */ + ST_INT num_bind_ctrl; /* Active bindings */ + NET_BIND_CTRL *bind_ctrl; /* Array of NET_BIND_CTRL */ + +/* Internal use */ + ST_INT calling_used; /* Number mvl_calling_conn_ctrl bound */ + ST_INT called_used; /* Number mvl_called_conn_ctrl bound */ + } MVL_CFG_INFO; + +/* Persistant config information; set by MVL during mvl_start_acse */ +extern MVL_CFG_INFO *mvl_cfg_info; + +ST_RET osicfgx (ST_CHAR *xml_filename, MVL_CFG_INFO *mvlCfg); + +#if !defined(MMSEASE_MOSI) + +/************************************************************************/ +/* Global configuration variables */ + +extern INIT_INFO *mvl_init_resp_info; +extern NET_BIND_CTRL ma_clbind_ctrl; /* to save clpp_bind info. */ + +#if defined(MAP30_ACSE) +extern ST_INT mvl_num_bind_ctrl; +extern NET_BIND_CTRL *mvl_bind_ctrl; +#endif +ST_RET mvla_set_init_ar (ST_CHAR *ar_name); + +/************************************************************************/ +/* ACSE interface related MVL ACSE functions */ + +ST_VOID mvl_set_max_msg_size (ST_INT max_msg_size); + +ST_RET mvl_start_acse (MVL_CFG_INFO *cfgInfo); +ST_RET mvl_end_acse (ST_VOID); + + +ST_VOID _mvl_init_conn_ctrl (ST_VOID); + +ST_RET mvl_initiate_req (ST_CHAR *remAr, + INIT_INFO *req_info, + INIT_INFO *resp_info, + MVL_NET_INFO **net_info_out); + +ST_RET mvla_initiate_req (ST_CHAR *remAr, + INIT_INFO *req_info, + INIT_INFO *resp_info, + MVL_NET_INFO **net_info_out, + MVL_REQ_PEND **req_out); + +ST_INT mvla_initiate_req_ex (ST_CHAR *remAr, + INIT_INFO *req_info, + INIT_INFO *resp_info, + MVL_NET_INFO **net_info_out, + MVL_REQ_PEND **req_out, + ACSE_AUTH_INFO *auth_info, + S_SEC_ENCRYPT_CTRL *encrypt_info); + +/* If this variable is not NULL, MVL will use it as the source for the */ +/* local dib entry for an initiate request. */ +extern struct dib_entry *_mvla_initiate_locDe; + +ST_RET mvl_abort_req (MVL_NET_INFO *cc); +ST_RET mvl_abort_req_ex (MVL_NET_INFO *cc, + ST_BOOLEAN diagnostic_pres, + ST_ACSE_AUTH diagnostic); + +ST_RET mvl_init_audt_addr (AUDT_APDU *audt, ST_CHAR *locArName, ST_CHAR *remArName); +ST_VOID mvl_dib_entry_to_app_ref (struct dib_entry *de, struct app_ref *appRef); +ST_RET mvl_add_bind_ctrl (NET_BIND_CTRL *bc); + +/************************************************************************/ +/* User defined function pointer to handle disconnect indications */ + +#define MVL_ACSE_RELEASE_IND 1 +#define MVL_ACSE_ABORT_IND 2 +extern ST_VOID (*u_mvl_disc_ind_fun) (MVL_NET_INFO *cc, ST_INT discType); + +/************************************************************************/ +/* User defined functions to handle connect indications & confirms. */ +/* User must supply these functions. */ + +extern ST_ACSE_AUTH u_mvl_connect_ind_ex (MVL_NET_INFO *cc, INIT_INFO *init_info, ACSE_AUTH_INFO *req_auth_info, ACSE_AUTH_INFO *rsp_auth_info); +extern ST_ACSE_AUTH u_mvl_connect_cnf_ex (MVL_NET_INFO *cc, AARE_APDU *ass_rsp_info); + +/************************************************************************/ + +/* MVL level address matching functions */ +ST_RET mvl_match_remote_ar (DIB_MATCH_CTRL *matchCtrl, struct mvl_net_info *cc, + struct dib_entry **dib_entry_out); +ST_RET mvl_match_local_ar (DIB_MATCH_CTRL *matchCtrl, struct mvl_net_info *cc, + struct dib_entry **dib_entry_out); +ST_INT mvl_cmp_local_addr (DIB_MATCH_CTRL *matchCtrl, struct mvl_net_info *cc, + struct dib_entry *dib_entry); +ST_INT mvl_cmp_remote_addr (DIB_MATCH_CTRL *matchCtrl, struct mvl_net_info *cc, + struct dib_entry *dib_entry); + +#if defined(MAP30_ACSE) +ST_RET mvl_net_info_to_chan (MVL_NET_INFO *cc, ST_INT *chanOut); +#endif + +#endif /* !defined(MMSEASE_MOSI) */ + +/************************************************************************/ +#ifdef __cplusplus +} +#endif + +#endif /* MVL_ACSE_INCLUDED */ +/************************************************************************/ + diff --git a/include/inc/mvl_defs.h b/include/inc/mvl_defs.h new file mode 100644 index 0000000..3c047f5 --- /dev/null +++ b/include/inc/mvl_defs.h @@ -0,0 +1,2552 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1994 - 2003, All Rights Reserved */ +/* */ +/* MODULE NAME : mvl_defs.h */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* NONE */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 01/27/09 JRB 132 MVLAS_WRITE_CTRL: add ind_funct_done. */ +/* 09/25/08 MDE 131 Added MMS result info for READ/WRITE */ +/* 07/23/08 JRB 130 Move defs from mvl_uca.h to here (need earlier).*/ +/* Fix CntrlObj size. */ +/* 06/24/08 MDE 129 Added _mvl_persist_aa_objs */ +/* 06/04/08 JRB 128 Add file_list to MVL_NET_INFO. */ +/* Add mplas_concl_err. */ +/* Del mvl_type_ctrl from typedef (global var */ +/* with same name confused some debuggers). */ +/* 04/08/08 JRB 127 Chg () to (ST_VOID) in 2 prototypes. */ +/* 02/26/08 JRB 126 Add mvl_var_add_alloc, mvl_var_create_alloc. */ +/* Add mvl_var_create_derived. */ +/* mvl_dom_destroy: chg ret to void (can't fail)*/ +/* Add _mvl_clear_aa_objs. */ +/* 11/12/07 MDE 125 Added _mvl_getpath, changed _mvl_tmpnam */ +/* 04/16/07 JRB 124 Add prim_num to MVL_VAR_ASSOC. */ +/* 03/19/07 JRB 123 Del obsolete "mvl_vmd_*" macros. */ +/* 12/04/06 JRB 122 mvl_vmd_destroy: add arg to specify which VMD.*/ +/* 11/21/06 JRB 121 Move ..LAST_APPL_ERROR struct def to here */ +/* and add it to MVLAS_WR_VA_CTRL. */ +/* 10/30/06 JRB 120 Del #ifdef in structs so they do not change */ +/* with compiler options. */ +/* Del MVL_DYN_ASN1_TYPES option, always use */ +/* dynamic ASN1. Del asn1 from MVL_TYPE_CTRL. */ +/* 10/30/06 JRB 119 New object handling functions take VMD arg */ +/* & have "mvl_vmd_" prefix. Macros provided */ +/* for backward compatibility only. */ +/* mvl_nvl_create: change args. */ +/* Add "mvl_vmd_type_id_*". */ +/* Add mvl_vmd_create, */ +/* mvlu_rpt_ctrl_destroy_all, */ +/* mvl61850_rpt_ctrl_destroy_all. */ +/* u_mvl_get_va_aa: add vmd_ctrl arg. */ +/* u_gnl_ind_*: add net_info arg. */ +/* _mvl_objname_to_va: add vmd_ctrl, net_info args*/ +/* Del global var _mvl_curr_net_info. */ +/* Del global var _mvl_curr_usr_ind_ctrl. */ +/* 10/17/06 MDE 118 Added mvlas_obtfile_resp_ex */ +/* 07/21/06 JRB 117 Add rpt_reason & type_ctrl to MVL_VAR_ASSOC. */ +/* Add already_scanned to MVL_NVLIST_CTRL. */ +/* 07/13/05 MDE 116 Added u_mvl_reject_ind */ +/* 06/29/05 CRM 115 Add mvl_vmd_destroy. */ +/* 06/27/05 JRB 114 MVL_VAR_ASSOC: del mvl_internal, add last_data.*/ +/* 06/27/05 CRM 113 Added mvl_dom_find_last and */ +/* mvl_type_id_destroy_all_dyn. */ +/* 05/04/05 MDE 112 Added mvl_init_ind_hold */ +/* 03/28/05 JRB 111 Del suicacse header. */ +/* 03/14/05 CRM 110 Add mvl_max_dyn global variable. */ +/* Del _mvlu_num_dyn_types, add backward compat def*/ +/* 03/08/05 CRM 109 Add mvlas_fdir_resp(MVL_IND_PEND *ind) */ +/* 03/07/05 MDE 108 Added startTime to stats */ +/* 09/20/04 JRB 107 Add comments. */ +/* 08/30/04 JRB 106 Add sboCtrl to MVLAS_WR_VA_CTRL. */ +/* 06/29/04 JRB 105 Add mvl_type_id_create_from_tdl proto. */ +/* Add use_static_data flag to MVL_VAR_ASSOC. */ +/* Increase MAX_JREAD_RESP_ENTRIES define. */ +/* 07/10/03 EJV 104 Chg loc_ar_sec/rem_ar_sec to (S_SEC_LOC_AR *)*/ +/* 04/11/03 MDE 103 Added security elements */ +/* 04/11/03 MDE 102 Added _mvl_tmpnam */ +/* 04/04/03 JRB 101 MVL_IND_PEND: Add scan_va_done_fun for */ +/* IEC/UCA integrity scan. */ +/* 03/13/03 JRB 100 mvl_type_id_create: Add type_name arg. */ +/* MVL_TYPE_CTRL: Chg type_name to array. */ +/* MVL_TYPE_CTRL: Add rt_ctrl for dynamic types.*/ +/* Add mvl_type_ctrl_find_dyn. */ +/* Add mvl_scope_set proto. */ +/* Del mvlu_add_rt_type_x (not needed). */ +/* 12/12/02 JRB 99 Add usr_resp_fun to MVL_IND_PEND */ +/* Add mvl_internal to MVL_VAR_ASSOC */ +/* Chg acse_conn_id to ST_LONG to match ACSE */ +/* Add net_info arg to mvl_get_va_asn1_data */ +/* Add mvl_encode_info_rpt proto */ +/* Add enc_buf allocation macros. */ +/* 12/10/02 JRB 98 Moved UCA defs to new mvl_uca.h */ +/* 12/09/02 MDE 96 Added mvlu_find_uca_var */ +/* 12/09/02 MDE 96 Changed SBO reference handling */ +/* 11/27/02 MDE 95 Addded runtime leaf parameter manipulation */ +/* Added type_name to MVL_TYPE_CTRL */ +/* Added mvlu_add_rt_type_x */ +/* Added mvlu_proc_rt_type */ +/* 07/17/02 JRB 94 Del _mvla_send_write.. proto. Use static fct.*/ +/* 07/09/02 JRB 93 Add mvl_(u)req_bufs_avail functions. */ +/* 07/09/02 MDE 92 Add maxpend_ind support */ +/* 05/13/02 MDE 91 Added 'skip' arg to _mvl_set_net_req_done */ +/* 03/25/02 MDE 90 Moved error/reject elements outside union */ +/* 02/27/02 JRB 89 Fix mvl_print... proto. */ +/* 02/25/02 MDE 88 Deleted mvl_num_call* vars */ +/* 01/29/02 JRB 87 Del use of MVL_NUM_CALL* & COACSE. */ +/* Del a_unit_data_info,stack_sel from MVL_NET_INFO.*/ +/* 01/23/02 EJV 86 Added journals to MVL_DOM_CTRL */ +/* mvl_init_dom - added max_jou param */ +/* mvl_dom_resize - added max_jou param */ +/* mvl_dom_create - added max_num_jou param */ +/* mvl_dom_add - added max_num_jou param */ +/* 12/20/01 HSF 85 Added usr field to MVLU_RPT_SCAN_CTRL */ +/* 12/12/01 MDE 84 Moved acse_conn_id outside ifdef */ +/* 11/31/01 MDE 83 Added GOOSE scan support */ +/* 11/01/01 JRB 82 Chg mvl_wait_req_done return to ST_RET. */ +/* Add wait_any_event proto (user must supply). */ +/* 07/31/01 MDE 81 Added mvl_conn_filtered_logging support */ +/* 03/19/01 JRB 80 Move SMEM context defs to "smem.h". */ +/* 03/15/01 JRB 79 Add clientUstatus, serverUstatus statistics. */ +/* 03/13/01 JRB 78 Add mvl_ustatus, _mvl_process_ustatus_ind, */ +/* u_mvl_ustatus_ind prototypes. */ +/* 01/19/00 MDE 77 Removed SMEM idx defines (now in mem_chk.h) */ +/* 01/05/01 MDE 76 Changes for use over Marben */ +/* 10/25/00 JRB 75 Del u_mvl*, u_gnl* & _ml_* funct ptrs. */ +/* Add u_mvl_concl_ind, mplas_concl_resp. */ +/* Add req_pend_list to mvl_net_info. */ +/* Del usrNvl from MVLAS_READ_CTRL (not needed).*/ +/* Add "Server" support for Upl/Downl. */ +/* 10/06/00 MDE 74 Added _mvlu_num_dyn_types */ +/* 09/05/00 JRB 73 Add mvl_get_runtime_dyn. */ +/* 08/18/00 JRB 72 Fixed mvl_type_id_cre.. proto. */ +/* 08/18/00 RKR 71 Added rt field to MVLU_ typedefs */ +/* 07/26/00 MDE 70 Added user field to MVL_FGET_REQ_INFO */ +/* 07/12/00 JRB 69 Add dynamic type creation prototypes. */ +/* 07/11/00 MDE 68 Changed seqNum to sqNum, made INT8U */ +/* 06/26/00 JRB 67 Move "#define COACSE" from mvl_acse.h to */ +/* here (avoids dependence on mvl_acse.h). */ +/* 06/12/00 GLB 66 Added info for asynchronous File Get */ +/* 06/01/00 RKR 65 Removed some prototypes redundant in MMS-EASE*/ +/* 05/01/00 JRB 64 Del mvl_init_type_ctrl proto; now it's static*/ +/* 04/14/00 JRB 63 Fix SD_CONST for ??IndFunTbl, mvl_get_run... */ +/* Delete remnants of MVL_REQ_BUF_ENABLED. */ +/* 04/12/00 MDE 62 Added MVL_STATISTICS, _mvl_resize_ptr_tbl */ +/* 04/05/00 RKR 61 Made MVL_XNAME a compile time option */ +/* 04/04/00 RKR 60 Added expanded UCA variable name to RD and WR*/ +/* 03/10/00 JRB 59 Add scan_va_scope to MVLU_RPT_SCAN_CTRL. */ +/* 03/07/00 MDE 58 Added type_id to string declarations */ +/* 01/21/00 MDE 57 Now use MEM_SMEM for dynamic memory */ +/* 10/20/99 NAV 56 Add maxpend_req support */ +/* 09/28/99 NAV 55 Modified UCA Report REASON Bits */ +/* 09/13/99 MDE 54 Added SD_CONST modifiers */ +/* 11/04/99 RKR 53 Removed action_required from MVL_NET_INFO */ +/* 11/03/99 RKR 52 Added MVL error constants */ +/* 10/28/99 RKR 51 Added pending indications to MVL_NET_INFO */ +/* 10/07/99 GLB 50 Added support for file rename & obtain file. */ +/* 10/05/99 RKR 49 Added prototypes for deriving types */ +/* 09/30/99 JRB 48 Added forward declaration to reduce warnings.*/ +/* 09/30/99 RKR 47 Changed the Reason for Inclusion bit strings */ +/* 09/24/99 JRB 46 Added extern to mvlu_rpt_scan_list */ +/* 09/13/99 MDE 45 Added SD_CONST modifiers */ +/* 09/07/99 MDE 44 Revised and enhanced the UCA report system */ +/* 09/07/99 MDE 43 Changed MVL_VA_SCOPE to MVL_SCOPE, added */ +/* scope to MVL_NVLIST_CTRL */ +/* 07/30/99 MDE 42 Removed unused defines */ +/* 04/01/99 MDE 41 Changes to decode buffer allocation scheme */ +/* 03/18/99 MDE 40 Enhanced dynamic object facilities */ +/* 03/18/99 MDE 39 Changes to support runtime connection limits */ +/* 03/09/99 MDE 38 Added ICCP Lite support */ +/* 01/22/99 JRB 37 Chg all objects to array of ptrs so bsearch */ +/* can be used. Add bsearch functs (mvl_obj_*). */ +/* Use "mvl_nvl" prefix on all NVL obj functs. */ +/* Add "flags" to MVL_VAR_ASSOC for UCA. */ +/* 12/08/98 MDE 36 Added client alternate access support */ +/* 12/08/98 MDE 35 Added dynamic object handling */ +/* 11/17/98 MDE 34 Added _mvl_destroy_nvl_entries */ +/* 11/16/98 MDE 33 Cleanup and rearrange for readability */ +/* 11/16/98 MDE 32 Added 'locl_init_info' to MVL_NET_CTRL' */ +/* 11/16/98 MDE 30 Renamed MVL interal functions ('_'prefix) */ +/* 11/16/98 MDE 29 Added mvl_concl, mvla_concl */ +/* 11/16/98 MDE 28 Removed 'wait_any_event', 'read_log_cfg_file'*/ +/* 11/13/98 JRB 27 Add wait_any_event proto. */ +/* 10/12/98 MDE 26 Merged JRB's and MDE's changes */ +/* 10/09/98 JRB 25 Chg MVL_JOURNAL_ENTRY to use VAR_INFO. */ +/* Del MVL_CLI_JOURNAL_ENTRY, use only */ +/* MVL_JOURNAL_ENTRY everywhere. */ +/* Add 'read_log_cfg_file' prototype. */ +/* 10/09/98 DWL 24 Added get_dom stuff */ +/* Added get_nam stuff */ +/* Added status stuff */ +/* 10/09/98 DWL 23 Added get_var stuff */ +/* 10/01/98 MDE 22 Changed 'SD_CONST' define */ +/* 10/01/98 MDE 21 Changed rcb to ptr, removed MVL_NUM_CALLED */ +/* 10/01/98 MDE 20 Changed MVL_JOURNAL_ENTRY entry_id to */ +/* ST_UCHAR[8] */ +/* 09/21/98 MDE 19 Minor lint cleanup */ +/* 09/16/98 MDE 18 Fixed possible UCA report 'reason' overwrite */ +/* Added 'mvlu_rpt_ctrl_ptrs[MVLU_NUM_RPT_CTRL]'*/ +/* Added SBO support */ +/* 09/10/98 MDE 17 Added 'SD_CONST' declaration */ +/* 08/13/98 MDE 16 Removed USE_RT_DATA stuff */ +/* 08/11/98 MDE 15 Added UCA variable array support */ +/* 08/10/98 MDE 14 Changes to UCA report handling */ +/* 07/28/98 MDE 13 Added USE_RT_DATA define, related changes */ +/* 07/16/98 MDE 12 More journal work */ +/* 07/15/98 MDE 11 Changed Journal Read user functions */ +/* 07/13/98 MDE 10 Report and Journal work */ +/* 06/30/98 MDE 09 Added more flexable CLient Info Rpt code */ +/* 06/22/98 MDE 08 SeqNum now ST_UINT16 */ +/* 06/15/98 MDE 07 Changes to allow compile under C++ */ +/* 05/14/98 JRB 06 Add support for more services. */ +/* Add u_mvl_read_ind, u_mvl_write_ind, and */ +/* delete corresponding function ptrs. */ +/* Del mvl_ident_resp_info, mvl_status_resp_info*/ +/* Chg "Conf" function arg to (MVL_REQ_PEND *). */ +/* Chg "Ind" function arg to (MVL_IND_PEND *). */ +/* Add (MVL_REQ_PEND**) to sync client functs. */ +/* 03/15/98 MDE 05 Added support for user loaded Runtime Types, */ +/* dynamic NVL's */ +/* 02/10/98 MDE 04 Always support AA, added 'index' to conn */ +/* control, added UCA support, more. */ +/* 12/22/97 MDE 03 Changed '_mvl_net_service', 'mvl_comm_serv' */ +/* 12/29/97 MDE 02 Added Journal stuff, general cleanup */ +/* 09/10/97 MDE 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +#ifndef MVL_DEFS_INCLUDED +#define MVL_DEFS_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "mmsdefs.h" +#include "gen_list.h" + +#include "acse2usr.h" + +/************************************************************************/ +/* This define adds items to the MVL_NET_INFO and MVL_REQ_PEND data */ +/* structures. This small memory cost may be eliminated by commenting */ +/* out this define (when ICCP-Lite is not to be used). */ +/* This is being done so we can build a single MVL library for use with */ +/* both ICCP and non-ICCP implementations. */ + +#define ICCP_LITE_SUPP + +/************************************************************************/ +/* COMPILE TIME OPTIONS */ + +/* Comment this out to save code when using only the Async interface */ +/* for client applications. Used in making the MVL library. */ +#define MVL_SYNC_REQ_INTERFACE + +/* These values are used in the MVL object initialization code to allow */ +/* the user to dynamically add additional objects. */ + +#define MVL_NUM_DYN_DOMS 10 + +#if !defined(MVL_NUM_DYN_VMD_VARS) +#define MVL_NUM_DYN_VMD_VARS 0 +#endif + +#define MVL_NUM_DYN_VMD_NVLS 10 +#define MVL_NUM_DYN_JOUS 10 +#define MVL_NUM_DYN_DOM_VARS 10 +#define MVL_NUM_DYN_DOM_NVLS 10 +#define MVL_NUM_DYN_AA_VARS 10 +#define MVL_NUM_DYN_AA_NVLS 10 + +/* MVL_UCA requires dynamic types to function */ +#define MVLU_NUM_DYN_TYPES 100 + +typedef struct + { + ST_INT aa_nvls; + ST_INT aa_vars; + ST_INT doms; + ST_INT dom_nvls; + ST_INT dom_vars; + ST_INT journals; + ST_INT types; + ST_INT vmd_nvls; + ST_INT vmd_vars; + } MVL_MAX_DYN; + +extern MVL_MAX_DYN mvl_max_dyn; + +/* OBSOLETE: For backward compatibility only */ +#define _mvlu_num_dyn_types mvl_max_dyn.types + +/* Comment this out to use statically allocated buffers */ +/* Note that dynamic buffers are required for async server responses. */ +#define MVL_DYN_MEM + +/* This define can be uncomented in order to use binary search for */ +/* MMS-LITE object searches (variables, named variable lists, etc.). */ +/* #define MVL_USE_BSEARCH */ + +/* Define this to support receiving Information Reports */ +#define MVL_INFO_RPT_CLIENT + +/* Uncomment this to enable support for described access as server */ +/* #define MVL_DESCR_SUPP */ /* Warning, not currently supported */ + +/* Uncomment this to enable support for expanded UCA variable names */ +/* This will save some processing and a small bit of code. */ +/* #define MVL_XNAME */ + +/* Comment this to disable Alternate Access support for as server */ +/* This will save a small bit of code. */ +#define MVL_AA_SUPP + +/************************************************************************/ +/* Miscellaneous defines. */ +/************************************************************************/ +/* Max size of some IEC 61850 objects. */ +#define MVL61850_MAX_OBJREF_LEN 129 /* Value specified by Tissue 141*/ +#define MVL61850_MAX_RPTID_LEN 65 + +/************************************************************************/ +/* MMS OBJECT INITIALIZATION */ +/* This function must be called to initialize all MVL types and other */ +/* MMS objects. */ + +ST_VOID mvl_init (ST_VOID); +ST_VOID mvl_init_mms_objs (ST_VOID); + +/* COMMUNICATION SERVICE */ +/* This is the high level function to be called periodicly by the */ +/* application. It will check for communications events and act on them,*/ +/* which will include decoding MMS PDU's and calling service functions. */ +/* The mechanism used to determine when this function should be called */ +/* will depend on the lower layer service provider. */ + +ST_BOOLEAN mvl_comm_serve (ST_VOID); + +/* SYNCHRONOUS REQUEST USER SERVICE/TIMEOUT */ +/* User defined function, called repetitively by MVL client functions */ +/* while waiting for confirm. If this function returns SD_TRUE, the */ +/* request will timeout and return SD_FAILURE. */ + +extern ST_BOOLEAN (*u_mvl_check_timeout)(ST_VOID); + + +/* For use when global variables cannot be initialized at compile time */ +#if defined(NO_GLB_VAR_INIT) +ST_VOID mvl_init_glb_vars (ST_VOID); + +/* Internal use only */ +ST_VOID _mvlop_en_init (ST_VOID); +ST_VOID _s_getnam_init_glb_vars (ST_VOID); +#endif + +/* If set == SD_TRUE, MVL will not delete AA objects when connection */ +/* terminates */ +extern ST_BOOLEAN _mvl_persist_aa_objs; + +/************************************************************************/ +/* CAPACITY/STACK USAGE CONTROL DEFINES */ +/* These defines work along with the MMS PDU buffer sizes to control */ +/* the maximum number of MMS objects and the size of the objects that */ +/* can be handled per MMS PDU. */ + +#define MAX_JREAD_RESP_ENTRIES 10 +/*renxiaobao ÈÕÖ¾¸ü¸Ä*/ +/*#define MAX_JREAD_RESP_VARS 100*/ +#define MAX_JREAD_RESP_VARS 512 + +#define MVL_MAX_GNL_NAMES 100 + +/************************************************************************/ +/* MVL ERROR CODES */ + +/* #define E_MMS_LITE 0x6A00 */ +#define MVL_ERR_USR_TIMEOUT 0x6A01 +#define MVL_ERR_REQ_CONTROL 0x6A02 +#define MVL_ERR_UNKNOWN_PDU_TYPE 0x6A03 +#define MVL_ERR_RUNTIME_TYPE_ID 0x6A04 +#define MVL_ERR_ASN1_TO_RUNTIME 0x6A05 +#define MVL_ERR_NOT_SYM_ADDR 0x6A06 +#define MVL_ERR_ARRAY_ELEMENT_CNT 0x6A07 +#define MVL_ERR_LOCAL_ADDRESS 0x6A08 +#define MVL_ERR_BUFFER_SIZE 0x6A09 +#define MVL_ERR_DOM_CONTROL 0x6A0A +#define MVL_ERR_AA_CONTROL 0x6A0B +#define MVL_ERR_AA_SPECIFIC 0x6A0C +#define MVL_ERR_NVL_NOT_FOUND 0x6A0D +#define MVL_ERR_ALT_ACCESS 0x6A0E +#define MVL_ERR_VA_NOT_FOUND 0x6A0F +#define MVL_ERR_VA_SPEC 0x6A10 +#define MVL_ERR_NO_REQ_CTRL 0x6A11 +#define MVL_ERR_NO_CONN_CTRL 0x6A12 +#define MVL_ERR_ASSOC_REQ 0x6A13 +#define MVL_ERR_COMM_SERVE_ACTIVE 0x6A14 +#define MVL_ERR_REQ_PEND_COUNT 0x6A15 +#define MVL_ERR_CNF_REJ_ERR 0x6A16 +#define MVL_ERR_CNF_ERR_OK 0x6A17 +#define MVL_ERR_CNF_DISCONNECTED 0x6A18 +#define MVL_ERR_BAD_TYPE 0x6A19 +#define MVL_ERR_RESOURCE_NOT_AVAIL 0x6A1A + +/************************************************************************/ +/* Structure used to create linked list of all open files for one */ +/* connection (see connection structure MVL_NET_INFO). */ +typedef struct mvl_net_file + { + /* CRITICAL: First 2 parameters used to add this struct to linked */ + /* lists using list_add_last, etc. */ + struct mvl_net_file *next; /* CRITICAL: DON'T MOVE. */ + struct mvl_net_file *prev; /* CRITICAL: DON'T MOVE. */ + FILE *fp; /* file pointer from fopen */ + } MVL_NET_FILE; + +/************************************************************************/ +/************************************************************************/ +/* NETWORK CONNECTION CONTROL */ +/* MVL_NET_INFO is used to specify the remote node to which the PDU is */ +/* to be sent, or from which the PDU was received. This element and */ +/* it's use are implementation specific. */ + +struct mvl_ind_pend; /* Forward declare this to eliminate warnings. */ +struct mvl_req_pend; /* Forward declare this to eliminate warnings. */ + +typedef struct mvl_net_info + { + struct mvl_aa_obj_ctrl *aa_objs; /* AA object ctrl */ + struct mvl_vmd_ctrl *rem_vmd; /* Remote VMD */ + struct mvl_ind_pend *pend_ind; + struct mvl_req_pend *req_pend_list; /* link list of pending reqs*/ + + ST_BOOLEAN conn_active; /* Set SD_TRUE when the connection is up */ + ST_INT max_pdu_size; + ST_INT index; /* NET_INFO table index for this elmnt */ + + ST_INT maxpend_req; /* num outstanding reqs negotiated */ + ST_INT numpend_req; /* num reqs currently outstanding */ + + ST_INT maxpend_ind; /* num outstanding inds negotiated */ + ST_INT numpend_ind; /* num inds currently outstanding */ + + ST_BOOLEAN log_enable; /* For use w/mvl_conn_filtered_logging */ + + ST_LONG acse_conn_id; /* ACSE's connection ID, internal */ + + ST_BOOLEAN mi_in_use; /* used only for ICCP_LITE_SUPP */ + struct _mi_conn *mi_conn; /* used only for ICCP_LITE_SUPP */ + + INIT_INFO rem_init_info; /* Services supported by remote device */ + INIT_INFO locl_init_info; /* Initiate info we sent */ + AARQ_APDU ass_ind_info; + /* Items below are used by MVL only */ + ST_BOOLEAN in_use; /* Flag that this 'NET_INFO' is in use */ + struct net_bind_ctrl *bind_ctrl; + + S_SEC_LOC_AR *loc_ar_sec; + S_SEC_REM_AR *rem_ar_sec; + + ST_VOID *user_info; /* MVL user can use this for 'whatever' */ + MVL_NET_FILE *file_list; /* linked list of open files on this conn*/ + } MVL_NET_INFO; + +/* Our connection control structures */ +extern MVL_NET_INFO *mvl_calling_conn_ctrl; +extern MVL_NET_INFO *mvl_called_conn_ctrl; + +/************************************************************************/ +/* MMS COMMUNICATIONS EVENT */ +/* MMS_COMM_EVENT is the data structure used to pass a communication */ +/* event from the lower layer provider to the MVL communication service */ +/* subsystem. This structure may be expanded to fit the needs of the */ +/* application. */ + +#define MMS_MSG_RCVD 1 +#define RECEIVE_ERROR 2 +#define COMM_LINK_UP 3 +#define COMM_LINK_DOWN 4 +#define MVLU_RPT_COMM_EVENT 5 + +typedef struct mvl_comm_event + { + DBL_LNK l; /* For linked list */ + MVL_NET_INFO *net_info; + ST_INT event_type; + union + { + struct /* used for MMS_MSG_RCVD event types */ + { + ST_UCHAR *pdu; + ST_INT pdu_len; + MMSDEC_INFO dec_rslt; + } mms; + struct /* possibly add more structs to handle other event types*/ + { + ST_RET code; + } error; + }u; + } MVL_COMM_EVENT; + +/************************************************************************/ +/************************************************************************/ +/* MVL TYPE HANDLING */ +/* Runtime type handling functions and structures */ +/* Note that the source code to create this table can be generated */ +/* using the 'mktypes' utility */ + +typedef struct + { + RUNTIME_CTRL *rt_ctrl; /* For dyn types ONLY, otherwise = NULL */ + ST_INT num_rt; /* Runtime type table */ + SD_CONST RUNTIME_TYPE *rt; + ST_INT data_size; /* size of data element */ + ST_CHAR type_name [MAX_IDENT_LEN+1]; /* name passed to Foundry (1st after :T)*/ + struct mvl_vmd_ctrl *vmd_ctrl; /* ptr to VMD which uses this type*/ + } MVL_TYPE_CTRL; + +/* These variables can be provided via the source code generated by */ +/* the 'foundry' utility program */ +extern MVL_TYPE_CTRL *mvl_type_ctrl; +extern ST_INT mvl_num_types; + +/* This function takes the type ID and provides a pointer to the runtime*/ +/* type and it's size as output. It returns SD_SUCCESS for success. */ +/* The type information is currently stored internally as ASN.1 encoded */ +/* types. */ + +ST_RET mvl_get_runtime (ST_INT type_id, + RUNTIME_TYPE **rt_ptr_out, + ST_INT *num_rt_out); + +/* Same function but only succeeds if type was dynamically created. */ +ST_RET mvl_get_runtime_dyn (ST_INT type_id, + RUNTIME_TYPE **rt_ptr_out, + ST_INT *num_rt_out); + + + +/* If USR_SUPPLIED_RT is defined (and not USE_RT_DATA) then the user */ +/* will supply the runtime table data structures using local means. */ +ST_VOID u_mvl_start_init_rt_tbl (ST_INT numTypes, ST_INT totalNumRt); +ST_VOID u_mvl_end_init_rt_tbl (ST_VOID); +RUNTIME_TYPE *u_mvl_get_rt_tbl (ST_INT typeId, ST_INT numRt); + +/* global variables in Foundry Object Realization File */ +extern SD_CONST RUNTIME_TYPE * SD_CONST mvl_rt_tables[]; +extern ST_INT rt_table_index; + +/************************************************************************/ +/* This function can be used to modify the number of elements */ +/* in an array runtime type. */ + +ST_VOID mvl_mod_arr_size (RUNTIME_TYPE *rt, ST_RTINT num_elmnts); + +/* This function converts an ASN.1 type definition to a runtime type. */ +/* The runtime type is allocated by chk_calloc and the user must free */ +/* the runtime type when done with it (using chk_free). */ + +ST_RET mvl_mk_rt_from_asn1 (ST_UCHAR *asn1ptr, ST_INT asn1len, + RUNTIME_TYPE **rt_out, ST_INT *num_rt_out); + +/************************************************************************/ +/************************************************************************/ +/* MMS OBJECT CONTROL ELEMENTS */ +/* Functions and structures used to map MMS objects to local elements */ +/************************************************************************/ +/* VARIABLE ASSOCIATION */ +/************************************************************************/ + +/* This structure is used in the Variable Association for use by */ +/* MVL_UCA in handling array alternate access */ + +typedef struct mvl_arr_ctrl + { + ST_BOOLEAN arrAltAccPres; + ST_BOOLEAN nested; /* Furter nesting is done on this arr */ + ST_RTINT low_index; + ST_RTINT num_elmnts; + ST_RTINT curr_index; + ALT_ACCESS alt_acc; /* Nested AA on the array */ + } MVL_ARR_CTRL; + + +/* MVL_VAR_PROC */ +/* The functions selected by these pointers will be called during */ +/* read/write indication processing (NULL pointers are not called, of */ +/* course!). The 'pre' funs must return SD_SUCCESS or SD_FAILURE, which */ +/* will be reflected in the MMS response. */ + +/* Values for 'aa_mode_out' */ +#define MVL_USE_NO_AA 1 +#define MVL_USE_PACKED_AA 2 +#define MVL_USE_UNPACKED_AA 3 + +struct mvl_var_assoc; /* Forward declare this to eliminate warnings. */ + +typedef struct mvl_var_proc + { + ST_RET (*pre_read_aa)(struct mvl_var_assoc **va, + ST_BOOLEAN alt_acc_pres, + ALT_ACCESS *alt_acc, + MVL_NET_INFO *ni, + ST_INT *aa_mode_out); + ST_VOID (*post_read_aa)(struct mvl_var_assoc *va, + ST_BOOLEAN alt_acc_pres, + ALT_ACCESS *alt_acc, + MVL_NET_INFO *ni); + + ST_RET (*proc_write_aa)(struct mvl_var_assoc **va, + ALT_ACCESS *alt_acc, + MVL_NET_INFO *ni, + ST_INT *aa_mode_out); + + ST_RET (*pre_write_aa) (struct mvl_var_assoc *va, + ST_BOOLEAN alt_acc_pres, + ALT_ACCESS *alt_acc, + MVL_NET_INFO *ni, + ST_CHAR *write_data, + ST_INT write_data_size); + ST_VOID (*post_write_aa)(struct mvl_var_assoc *va, + ST_BOOLEAN alt_acc_pres, + ALT_ACCESS *alt_acc, + MVL_NET_INFO *ni); + + ST_RET (*pre_info) (struct mvl_var_assoc *va, MVL_NET_INFO *ni); + ST_VOID (*post_info) (struct mvl_var_assoc *va, MVL_NET_INFO *ni); + } MVL_VAR_PROC; + +#define MVL_VAR_FLAG_UCA 0x01 /* for "flags" of MVL_VAR_ASSOC */ + +/* MVL_VAR_ASSOC */ +typedef struct mvl_var_assoc + { + ST_CHAR *name; /* variable name */ + ST_VOID *data; /* pointer to local data */ + ST_VOID *last_data; /* to save last value of this variable */ + /* only allocated if va is in nvl */ + /* used by IEC/UCA rpt code. */ + /*renxiaobao ÈÕÖ¾ + ST_VOID *last_log_data;*/ + ST_INT type_id; /* type of variable */ + MVL_TYPE_CTRL *type_ctrl; /* type of variable details */ + /* set by mvl_var_create */ + ST_UCHAR flags; /* MVL_VAR_FLAG_UCA, etc. */ + MVL_VAR_PROC *proc; /* User defined pre/post processing */ + ST_VOID *user_info; /* MVL user can use this for 'whatever' */ + ST_VOID *usr_ind_ctrl; + + struct mvl_var_assoc *va_to_free; /* Used in NVL processing */ + + struct mvl_var_assoc *base_va; /* VA from which this was derived */ + ST_INT offset_from_base; /* Used only for static data buffer */ + ST_RTINT prim_num; /* Index to first prim in RUNTIME_TYPE */ + /* (used only when MVL_UCA defined) */ + ST_RTREF ref; + MVL_ARR_CTRL arrCtrl; + + ST_BOOLEAN use_static_data; /* "data" in this struct points to */ + /* permanent data. */ + ST_UCHAR rpt_reason; /* 61850 RPT reason bitstring */ + ST_RET result; /* Used only if MVL_INFO_RPT_CLIENT */ + } MVL_VAR_ASSOC; + + +ST_RET mvl_get_va_asn1_data (MVL_NET_INFO *net_info, + MVL_VAR_ASSOC *va, + ST_BOOLEAN alt_acc_pres, + ALT_ACCESS *alt_acc, + ST_UCHAR *asn1_dest_buffer, + ST_INT asn1_buffer_len, + ST_INT *asn1_len_out); + + +/************************************************************************/ +/* DESCRIBED VARIABLE SUPPORT: Warning, not currently supported */ + +#if defined (MVL_DESCR_SUPP) +typedef struct mvl_descr_addr_assoc + { + ST_CHAR *base_name; /* base part of address */ + ST_VOID *data; /* pointer to local data base */ + ST_INT data_size; /* size of data element */ + ST_INT max_elmnts; + ST_VOID *user_info; /* MVL user can use this for 'whatever' */ + } MVL_DESCR_ADDR_ASSOC; + +ST_RET mvl_get_descr_local_addr (VAR_ACC_ADDR *addr, + RUNTIME_TYPE *rt, + ST_INT mum_rt, + ST_CHAR **data_out, + ST_INT *data_size_out); + +ST_RET mvl_get_descr_asn1_data (VARIABLE_LIST *vl, + ST_UCHAR *asn1_dest_buffer, + ST_INT asn1_buffer_len, + ST_INT *asn1_len_out); +#endif + +/************************************************************************/ +/* NAMED VARIABLE LISTS */ + +typedef struct mvl_scope + { + ST_INT16 scope; + struct mvl_dom_ctrl *dom; + } MVL_SCOPE; + +/* For backward compatibility only */ +#define MVL_VA_SCOPE MVL_SCOPE + +typedef struct mvl_nvlist_ctrl + { + ST_CHAR *name; /* name of the named variable list */ + ST_INT num_of_entries; /* number of variables in the list */ + MVL_VAR_ASSOC **entries; + MVL_SCOPE nvl_scope; /* scope of this NVL */ + MVL_SCOPE *va_scope; + ALT_ACCESS **altAcc; /* Alternate Access array for var's */ + ST_BOOLEAN mms_deletable; + ST_VOID *user_info; /* MVL user can use this for 'whatever' */ + ST_BOOLEAN already_scanned; /* flag to indicate this NVL already */ + /* scanned for rpt changes. Avoids */ + /* scanning same data multiple times. */ + } MVL_NVLIST_CTRL; + + +/************************************************************************/ +/* JOURNALS */ + +typedef struct mvlJouVar + { + ST_CHAR *varTag; /* variable tag */ + MVL_VAR_ASSOC *va; + } MVL_JOU_VAR; + +/* entry_form_tag value defines are in mms_pjou.h */ +/* #define JE_FORM_DATA 2 */ +/* #define JE_FORM_ANNOTATION 3 */ + +/* cur_state value defines are in mms_pevn.h */ +/* #define EC_STATE_DISABLED 0 */ +/* #define EC_STATE_IDLE 1 */ +/* #define EC_STATE_ACTIVE 2 */ + +typedef struct mvlJournalEntry + { + DBL_LNK l; /* for user, not used by MVL */ + + ST_INT entry_id_len; /* Octet string ID, size 1-8 */ + ST_UCHAR entry_id[8]; + + APP_REF orig_app; + MMS_BTOD occur_time; /* occurrence time */ + + ST_INT16 entry_form_tag; /* entry form tag */ + union + { + struct /* entry form is DATA */ + { + ST_BOOLEAN event_pres; /* event present */ + OBJECT_NAME evcon_name; /* event condition name */ + ST_INT16 cur_state; /* current state */ + ST_BOOLEAN list_of_var_pres; /* list of variables present */ + ST_INT num_of_var; /* number of variables */ + VAR_INFO *list_of_var; /* ptr to array */ + } data; + ST_CHAR *annotation; /* pointer to annotation */ + }ef; + } MVL_JOURNAL_ENTRY; + +/* MVL Journal control structure. Used by MVL for GNL response */ +typedef struct mvlJournal + { + ST_CHAR *name; /* journal name */ + ST_BOOLEAN mms_deletable; + ST_INT numEntries; + MVL_JOURNAL_ENTRY *entries; + } MVL_JOURNAL_CTRL; + +/************************************************************************/ +/* MMS OBJECT CONTROL */ +/************************************************************************/ + +/* Application Association Scope Objects */ +typedef struct mvl_aa_obj_ctrl + { + ST_INT max_num_var_assoc; + ST_INT num_var_assoc; + MVL_VAR_ASSOC **var_assoc_tbl; + + ST_INT max_num_nvlist; + ST_INT num_nvlist; + MVL_NVLIST_CTRL **nvlist_tbl; + + ST_INT max_num_jou; + ST_INT num_jou; + MVL_JOURNAL_CTRL **jou_tbl; + + ST_BOOLEAN foundry_objects; /* Flag for internal use */ + ST_VOID *user_info; /* MVL user can use this for 'whatever' */ + } MVL_AA_OBJ_CTRL; + + +/* Domain Scope Objects */ +typedef struct mvl_dom_ctrl + { + ST_CHAR *name; + + ST_INT max_num_var_assoc; + ST_INT num_var_assoc; + MVL_VAR_ASSOC **var_assoc_tbl; + + ST_INT max_num_nvlist; + ST_INT num_nvlist; + MVL_NVLIST_CTRL **nvlist_tbl; + + ST_INT max_num_jou; + ST_INT num_jou; + MVL_JOURNAL_CTRL **jou_tbl; + + GETDOM_RESP_INFO *get_dom_resp_info; /* Optional */ + + ST_BOOLEAN foundry_objects; /* Flag for internal use */ + ST_VOID *user_info; /* MVL user can use this for 'whatever' */ + } MVL_DOM_CTRL; + + +/* VMD Scope Objects */ +typedef struct mvl_vmd_ctrl + { + ST_INT max_num_var_assoc; + ST_INT num_var_assoc; + MVL_VAR_ASSOC **var_assoc_tbl; + +#if defined (MVL_DESCR_SUPP) + ST_INT num_descr_addr; + MVL_DESCR_ADDR_ASSOC *descr_addr_assoc_tbl; +#endif + + ST_INT max_num_nvlist; + ST_INT num_nvlist; + MVL_NVLIST_CTRL **nvlist_tbl; + + ST_INT max_num_dom; + ST_INT num_dom; + MVL_DOM_CTRL **dom_tbl; + + ST_INT max_num_jou; + ST_INT num_jou; + MVL_JOURNAL_CTRL **jou_tbl; + + ST_BOOLEAN foundry_objects; /* Flag for internal use */ + + ST_VOID *user_info; /* MVL user can use this for 'whatever' */ + } MVL_VMD_CTRL; +extern MVL_VMD_CTRL mvl_vmd; + + +/************************************************************************/ +/************************************************************************/ +/* MMS OBJECT CONTROL MANIPULUATION */ +/************************************************************************/ +/************************************************************************/ +/* Naming Conventions */ +/* */ +/* Find: Locate the object, given the object name */ +/* */ +/* Init: Delete all sub objects and resize tables */ +/* Clear: Delete all sub objects */ +/* Resize: Adjust table sizes */ +/* */ +/* Add: Create and Insert */ +/* Create: Allocate & initialize the object */ +/* Insert: Insert into tables */ +/* */ +/* Remove: Delete and Destroy */ +/* Delete: Delete from tables */ +/* Destroy: Free object and sub objects as approptiate */ +/* */ +/* Pairs - Add/Remove, Insert/Delete, Create/Destroy */ +/* */ +/* Usages: */ +/* All dynamic, startup and reconfigure, online object changes */ +/* * Use Foundry for types only */ +/* * Use 'mvl_init_vmd' for startup/reconfigure */ +/* * Use Add/Insert to construct object set */ +/* * Use Remove/Delete to remove unwanted objects */ +/* * Use Resize to modify storage as appropriate */ +/* */ +/* Both Foundry & Dynamic, startup & reconfigure, online changes */ +/* * Use Foundry for types and other objects */ +/* * Use Resize to modify storage for dynamic objects */ +/* * Use Add/Insert to add to object set */ +/* * Use Remove/Delete to remove unwanted objects */ +/* */ +/* Renaming an object */ +/* * Delete, change the name, and insert. Be careful of the name */ +/* buffer handling. */ +/* */ +/************************************************************************/ + +/**** OBJECT BULK UPDATE */ + +/* These defines can be used to speed loading of multiple objects. */ +/* After the 'start' call, MVL stops sorting objects as they are */ +/* inserted. When the 'end' call is made, all objects are sorted. */ + +/* NOTE: The 'end' call must be made before NVL's are added, so that */ +/* the variable associations can be resolved. This rule can be ignored */ +/* if domains and variable associations are added in sorted order. */ + +extern ST_BOOLEAN mvl_obj_nosort; +ST_VOID mvl_sort_objs (ST_VOID); +#define MVL_START_BULK_OBJ_UPDATE() {mvl_obj_nosort = SD_TRUE;} +#define MVL_END_BULK_OBJ_UPDATE() {if (mvl_obj_nosort == SD_TRUE){\ + mvl_obj_nosort = SD_FALSE;\ + mvl_sort_objs ();\ + }}\ + +/**** SCOPE LEVEL - VMD, DOMAIN */ + +/* Deletes all objects in the scope, allocates new object ctrl tables */ +/* NOTE: Works only on scopes with NO foundry objects. */ +ST_RET mvl_init_vmd (ST_INT max_dom, ST_INT max_var, + ST_INT max_nvl, ST_INT max_jou); +ST_RET mvl_init_dom (MVL_DOM_CTRL *dom, ST_INT max_var, + ST_INT max_nvl, ST_INT max_jou); +ST_RET mvl_init_aa (ST_INT max_var, ST_INT max_nvl, ST_INT max_jou); + +/* Deletes all objects in the scope */ +/* NOTE: Works only on scopes with NO foundry objects. */ +ST_RET mvl_clear_vmd_objs (ST_VOID); +ST_RET mvl_clear_dom_objs (MVL_DOM_CTRL *dom); +ST_RET mvl_clear_aa_objs (ST_VOID); +ST_VOID _mvl_clear_aa_objs (MVL_AA_OBJ_CTRL *aa_objs); + +/* Resize scope capacities, w/o affecting objects */ +ST_VOID mvl_vmd_resize (ST_INT max_dom, ST_INT max_var, + ST_INT max_nvl, ST_INT max_jou); +ST_VOID mvl_dom_resize (MVL_DOM_CTRL *dom, ST_INT max_var, + ST_INT max_nvl, ST_INT max_jou); +ST_VOID mvl_aa_resize (ST_INT max_var, ST_INT max_nvl, ST_INT max_jou); +ST_VOID mvl_aa_resize_conn (MVL_AA_OBJ_CTRL *aa_objs, ST_INT max_num_var, ST_INT max_num_nvl, + ST_INT max_num_jou); + +/**** DOMAINS */ + +MVL_DOM_CTRL *mvl_dom_create (ST_CHAR *name, ST_INT max_var, + ST_INT max_nvl, ST_INT max_jou, ST_BOOLEAN copy_name); +ST_VOID mvl_dom_destroy (MVL_DOM_CTRL *dom); + +/* User can be notified when domain is being destroyed */ +extern ST_VOID (*u_mvl_dom_destroy) (MVL_DOM_CTRL *dom); + + +/**** VARIABLE ASSOCIATIONS */ + +MVL_VAR_ASSOC *mvl_var_create (OBJECT_NAME *obj, ST_INT type_id, /* NEW */ + ST_VOID *data, MVL_VAR_PROC *proc, + ST_BOOLEAN copy_name); +MVL_VAR_ASSOC *mvl_var_create_alloc (ST_CHAR *name, + ST_INT type_id, + MVL_VAR_PROC *proc); +MVL_VAR_ASSOC *mvl_var_create_derived (ST_CHAR *name, + ST_INT type_id, + MVL_VAR_ASSOC *baseVa, /* base variable from which to derive */ + ST_INT offset_from_base, + ST_RTINT prim_num); +ST_VOID mvl_var_destroy (MVL_VAR_ASSOC *va); + +/* User can be notified when VA is being destroyed */ +extern ST_VOID (*u_mvl_var_destroy)(MVL_VAR_ASSOC *va); + +/**** NAMED VARIABLE LISTS */ + +MVL_NVLIST_CTRL *mvl_nvl_create (MVL_VMD_CTRL *vmd_ctrl, + ST_CHAR *nvlName, + ST_INT numNames, + OBJECT_NAME *var_obj, /* array of var obj names*/ + MVL_NET_INFO *net_info, /* where to find var_obj*/ + /* if it is AA_SPEC */ + ST_BOOLEAN copy_name); +ST_VOID mvl_nvl_destroy (MVL_NVLIST_CTRL *nvl); + +/* User can be notified when NVL is being destroyed */ +extern ST_VOID (*u_mvl_nvl_destroy) (MVL_NVLIST_CTRL *nvl); + + +/**** JOURNALS */ + +MVL_JOURNAL_CTRL *mvl_jou_create (OBJECT_NAME *obj, MVL_NET_INFO *net_info, + ST_BOOLEAN copy_name); +ST_VOID mvl_jou_destroy (MVL_JOURNAL_CTRL *jou); + +/* User can be notified when journal is being destroyed */ +extern ST_VOID (*u_mvl_jou_destroy) (MVL_JOURNAL_CTRL *jou); + +MVL_VMD_CTRL *mvl_vmd_create (ST_INT max_num_dom, ST_INT max_num_var, ST_INT max_num_nvl, ST_INT max_num_journal); +/* NOTE: old mvl_vmd_destroy function destroyed the global VMD and all */ +/* report controls. If that's what you want, you must now do like this: */ +/* mvlu_rpt_ctrl_destroy_all (); */ +/* mvl61850_rpt_ctrl_destroy_all (); */ +/* mvl_vmd_destroy (&mvl_vmd); */ +ST_RET mvl_vmd_destroy (MVL_VMD_CTRL *vmd_ctrl); +ST_VOID mvlu_rpt_ctrl_destroy_all (ST_VOID); +ST_VOID mvl61850_rpt_ctrl_destroy_all (ST_VOID); + +/************************************************************************/ +/************************************************************************/ +/* MANUFACTURED VARIABLE SUPPORT */ +/* Handlers for manufactured server variable names && lists */ +/************************************************************************/ + +/* This function will be called when an */ +/* undefined object is being accessed using alternate access. */ +/* If '*alt_access_done_out' is set SD_TRUE, MVL will assume that the */ +/* alternate access operation has been addressed by the called function */ + +MVL_VAR_ASSOC *u_mvl_get_va_aa (struct mvl_vmd_ctrl *vmd_ctrl, + ST_INT service, + OBJECT_NAME *obj, + MVL_NET_INFO *netInfo, + ST_BOOLEAN alt_access_pres, + ALT_ACCESS *alt_acc, + ST_BOOLEAN *alt_access_done_out); +ST_VOID u_mvl_free_va (ST_INT service, + MVL_VAR_ASSOC *va, + MVL_NET_INFO *netInfo); + +MVL_NVLIST_CTRL *u_mvl_get_nvl (ST_INT service, + OBJECT_NAME *obj, + MVL_NET_INFO *netInfo); +ST_VOID u_mvl_free_nvl (ST_INT service, + MVL_NVLIST_CTRL *nvl, + MVL_NET_INFO *netInfo); + +/************************************************************************/ +/************************************************************************/ +/* GET NAME LIST INDICATION HANDLERS */ +/* Default versions of these functs are found in s_getnam.c. They may */ +/* be replaced with customized functs (e.g. for UCA, see mvl_uca.c). */ + +ST_INT u_gnl_ind_vars(MVL_NET_INFO *net_info, NAMELIST_REQ_INFO *req_info, + ST_CHAR **ptr, ST_BOOLEAN *moreFollowsOut, + ST_INT maxNames); + +ST_INT u_gnl_ind_nvls(MVL_NET_INFO *net_info, NAMELIST_REQ_INFO *req_info, + ST_CHAR **ptr, ST_BOOLEAN *moreFollowsOut, + ST_INT maxNames); + +ST_INT u_gnl_ind_doms(NAMELIST_REQ_INFO *req_info, + ST_CHAR **ptr, ST_BOOLEAN *moreFollowsOut, + ST_INT maxNames); + +ST_INT u_gnl_ind_jous(MVL_NET_INFO *net_info, NAMELIST_REQ_INFO *req_info, + ST_CHAR **ptr, ST_BOOLEAN *moreFollowsOut, + ST_INT maxNames); + +ST_VOID u_gnl_done(ST_INT16 mms_class, + NAMELIST_RESP_INFO *resp_info); + + +/************************************************************************/ +/************************************************************************/ +/* MVL SERVER SERVICE SUPPORT */ +/************************************************************************/ +/************************************************************************/ +/* Type for IEC 61850 "LastApplError" var (sent in report when control fails).*/ +/* NOTE: must be before MVLAS_WR_VA_CTRL. */ +/************************************************************************/ +typedef struct + { + ST_CHAR CntrlObj [MVL61850_MAX_OBJREF_LEN+1]; + ST_INT8 Error; + struct + { + ST_INT8 orCat; + struct + { + ST_INT16 len; + ST_UINT8 data[64]; + } orIdent; /* OVstring64 */ + } Origin; + ST_UINT8 ctlNum; + ST_INT8 AddCause; + } MVL61850_LAST_APPL_ERROR; + +/************************************************************************/ +/* INDICATION CONTROL */ +/************************************************************************/ +/* The data structure 'MVL_IND_PEND' is used to keep track of MMS */ +/* indications pending. */ + +/* Identify */ +typedef struct + { + IDENT_RESP_INFO *resp_info; + } MVLAS_IDENT_CTRL; + +/* Status */ +typedef struct + { + STATUS_REQ_INFO *req_info; + STATUS_RESP_INFO *resp_info; + } MVLAS_STATUS_CTRL; + +/* GetNameList */ +typedef struct + { + NAMELIST_REQ_INFO *req_info; + NAMELIST_RESP_INFO *resp_info; + } MVLAS_NAMELIST_CTRL; + +/* Read */ +/* This structure represents one Variable Association being read. The */ +/* user can set the 'acc_rslt_tag' to 'ACC_RSLT_FAILURE' if the read */ +/* does not succeed. */ + +typedef struct mvlas_rd_va_ctrl + { + MVL_VAR_ASSOC *va; + MVL_SCOPE va_scope; + + ST_INT16 acc_rslt_tag; /* ACC_RSLT_SUCCESS or ACC_RSLT_FAILURE */ + ST_INT16 failure; /* DataAccessError code for failure */ + ST_BOOLEAN alt_access_pres; + ALT_ACCESS alt_acc; + + ST_INT numPrimData; /* Total primitive elements for var */ + ST_INT numPrimDataDone; /* Number complete */ + + ST_VOID *usr; /* For user to use as she sees fit */ + } MVLAS_RD_VA_CTRL; + +typedef struct mvlas_read_ctrl + { + ST_INT16 var_acc_tag; /* VAR_ACC_NAMEDLIST or VAR_ACC_VARLIST */ + + ST_INT numVar; /* Variables being read */ + MVLAS_RD_VA_CTRL *vaCtrlTbl; + + MVL_NVLIST_CTRL *nvList; + } MVLAS_READ_CTRL; + + +/* Write */ +/* This structure represents one Variable Assoc being written. The */ +/* user can set the 'acc_rslt_tag' to 'ACC_RSLT_FAILURE' if the read */ +/* does not succeed. */ +struct mvl_sbo_ctrl; /* Forward declaration (defined in mvl_uca.h) */ +typedef struct mvlas_wr_va_ctrl + { + MVL_VAR_ASSOC *va; + MVL_SCOPE va_scope; + ST_INT16 resp_tag; /* WR_RSLT_FAILURE or WR_RSLT_SUCCESS */ + ST_INT16 failure; /* DataAccessError code for failure */ + ST_BOOLEAN alt_access_pres; + ALT_ACCESS alt_acc; /* Alternate Access specification */ + + ST_INT numPrimData; /* Total primitive elements for var */ + ST_INT numPrimDataDone; /* Number complete */ + struct mvl_sbo_ctrl *sboCtrl; /* SBO Control Info. */ + /* NOTE: "sboCtrl" used when writing IEC 61850 "Oper" or "Cancel". */ + /* Not used (i.e. NULL) for all other writes. */ + + ST_UCHAR *oldData; + + /* Used only when writing Oper, Cancel, SBOw (for IEC 61850). */ + MVL61850_LAST_APPL_ERROR LastApplError; + + ST_VOID *usr; /* For user to use as she sees fit */ + } MVLAS_WR_VA_CTRL; + +typedef struct mvlas_write_ctrl + { + ST_INT numVar; /* Variables being written */ + MVLAS_WR_VA_CTRL *vaCtrlTbl; + ST_BOOLEAN ind_funct_done; /* indication function completed? */ + } MVLAS_WRITE_CTRL; + + +/* GetVariableAccessAttributes */ +typedef struct + { + GETVAR_REQ_INFO *req_info; + GETVAR_RESP_INFO *resp_info; + } MVLAS_GETVAR_CTRL; + +/* DefineNamedVariableList */ +typedef struct + { + DEFVLIST_REQ_INFO *req_info; + } MVLAS_DEFVLIST_CTRL; + +/* GetNamedVariableListAttributes */ +typedef struct + { + GETVLIST_REQ_INFO *req_info; + GETVLIST_RESP_INFO *resp_info; /* allocate appropriate size */ + } MVLAS_GETVLIST_CTRL; + +/* DeleteNamedVariableList */ +typedef struct + { + DELVLIST_REQ_INFO *req_info; + DELVLIST_RESP_INFO *resp_info; + } MVLAS_DELVLIST_CTRL; + +/* GetDomainAttributes */ +typedef struct + { + GETDOM_REQ_INFO *req_info; + GETDOM_RESP_INFO *resp_info; + } MVLAS_GETDOM_CTRL; + +/* File Open */ +typedef struct + { + ST_CHAR filename [MAX_FILE_NAME+1]; /* array (not ptr) so always valid*/ + ST_UINT32 init_pos; + FOPEN_RESP_INFO *resp_info; + } MVLAS_FOPEN_CTRL; + +/* File Read */ +typedef struct + { + FREAD_REQ_INFO *req_info; + ST_INT max_size; + FREAD_RESP_INFO *resp_info; + } MVLAS_FREAD_CTRL; + +/* File Close */ +typedef struct + { + FCLOSE_REQ_INFO *req_info; + } MVLAS_FCLOSE_CTRL; + +/* File Directory */ +typedef struct + { + ST_UINT32 fsize; /* file size (# bytes) */ + ST_BOOLEAN mtimpres; /* last modified time present */ + time_t mtime; /* last modified time */ + ST_CHAR filename [MAX_FILE_NAME+1]; + } MVL_DIR_ENT; + +typedef struct + { + ST_INT num_dir_ent; /* number of directory entries */ + ST_BOOLEAN more_follows; /* more dir entries follow */ + /* default: SD_FALSE */ + MVL_DIR_ENT *dir_ent; /* ptr to array of dir entries */ + } MVL_FDIR_RESP_INFO; + +typedef struct + { + ST_CHAR fs_filename[MAX_FILE_NAME+1]; /* array (not ptr) so always valid*/ + ST_CHAR ca_filename[MAX_FILE_NAME+1]; /* array (not ptr) so always valid*/ + MVL_FDIR_RESP_INFO *resp_info; + } MVLAS_FDIR_CTRL; + +/* ObtainFile */ +typedef struct + { + ST_CHAR srcfilename [MAX_FILE_NAME+1]; /* array (not ptr) so always valid*/ + ST_CHAR destfilename [MAX_FILE_NAME+1]; /* array (not ptr) so always valid*/ + } MVLAS_OBTFILE_CTRL; + +/* File Delete */ +typedef struct + { + ST_CHAR filename [MAX_FILE_NAME+1]; /* array (not ptr) so always valid*/ + } MVLAS_FDELETE_CTRL; + +/* File Rename */ +typedef struct + { + ST_CHAR curfilename [MAX_FILE_NAME+1]; /* array (not ptr) so always valid*/ + ST_CHAR newfilename [MAX_FILE_NAME+1]; /* array (not ptr) so always valid*/ + } MVLAS_FRENAME_CTRL; + +/* InitializeJournal */ +typedef struct + { + JINIT_REQ_INFO *req_info; + JINIT_RESP_INFO *resp_info; + } MVLAS_JINIT_CTRL; + +/* ReadJournal */ +typedef struct + { + JREAD_REQ_INFO *req_info; + JREAD_RESP_INFO *resp_info; /* Variable size. User or mvlas_* must alloc.*/ + } MVLAS_JREAD_CTRL; + +/* JournalStatus */ +typedef struct + { + JSTAT_REQ_INFO *req_info; + JSTAT_RESP_INFO *resp_info; + } MVLAS_JSTAT_CTRL; + +typedef struct + { + INITUPL_REQ_INFO *req_info; + INITUPL_RESP_INFO *resp_info; + } MVLAS_INITUPL_CTRL; + +typedef struct + { + UPLOAD_REQ_INFO *req_info; + UPLOAD_RESP_INFO *resp_info; + } MVLAS_UPLOAD_CTRL; + +typedef struct + { + TERMUPL_REQ_INFO *req_info; + } MVLAS_TERMUPL_CTRL; + +typedef struct + { + INITDOWN_REQ_INFO *req_info; + } MVLAS_INITDOWN_CTRL; + +typedef struct + { + DELDOM_REQ_INFO *req_info; + } MVLAS_DELDOM_CTRL; + +typedef struct + { + CREPI_REQ_INFO *req_info; + } MVLAS_CREPI_CTRL; + +typedef struct + { + DELPI_REQ_INFO *req_info; + } MVLAS_DELPI_CTRL; + +typedef struct + { + GETPI_REQ_INFO *req_info; + GETPI_RESP_INFO *resp_info; + } MVLAS_GETPI_CTRL; + +typedef struct + { + START_REQ_INFO *req_info; + } MVLAS_START_CTRL; + +typedef struct + { + STOP_REQ_INFO *req_info; + } MVLAS_STOP_CTRL; + +typedef struct + { + RESUME_REQ_INFO *req_info; + } MVLAS_RESUME_CTRL; + +typedef struct + { + RESET_REQ_INFO *req_info; + } MVLAS_RESET_CTRL; + +typedef struct + { + GETCL_REQ_INFO *req_info; + GETCL_RESP_INFO *resp_info; + } MVLAS_GETCL_CTRL; + +/* MVL Indication Control */ +typedef struct mvl_ind_pend + { + DBL_LNK l; + MVL_COMM_EVENT *event; + ST_INT op; /* MMS Opcode (MMSOP_READ, etc.) */ + union + { + MVLAS_READ_CTRL rd; + MVLAS_WRITE_CTRL wr; + MVLAS_IDENT_CTRL ident; + MVLAS_STATUS_CTRL status; + MVLAS_NAMELIST_CTRL namelist; + MVLAS_GETVAR_CTRL getvar; + MVLAS_GETDOM_CTRL getdom; + MVLAS_FOPEN_CTRL fopen; + MVLAS_FREAD_CTRL fread; + MVLAS_FCLOSE_CTRL fclose; + MVLAS_FDIR_CTRL fdir; + MVLAS_OBTFILE_CTRL obtfile; + MVLAS_FDELETE_CTRL fdelete; + MVLAS_FRENAME_CTRL frename; + MVLAS_DEFVLIST_CTRL defvlist; + MVLAS_GETVLIST_CTRL getvlist; + MVLAS_DELVLIST_CTRL delvlist; + MVLAS_JINIT_CTRL jinit; + MVLAS_JREAD_CTRL jread; + MVLAS_JSTAT_CTRL jstat; + MVLAS_INITUPL_CTRL initupl; + MVLAS_UPLOAD_CTRL upload; + MVLAS_TERMUPL_CTRL termupl; + MVLAS_INITDOWN_CTRL initdown; + MVLAS_DELDOM_CTRL deldom; + MVLAS_CREPI_CTRL crepi; + MVLAS_DELPI_CTRL delpi; + MVLAS_GETPI_CTRL getpi; + MVLAS_START_CTRL start; + MVLAS_STOP_CTRL stop; + MVLAS_RESUME_CTRL resume; + MVLAS_RESET_CTRL reset; + MVLAS_GETCL_CTRL getcl; + } u; + /* For IEC/UCA Report scanning: */ + /* This function is called when scan completes for "one" variable */ + /* (i.e. all primitive reads complete for "one" variable of rpt). */ + ST_VOID (*scan_va_done_fun)(struct mvl_ind_pend *ind, MVL_VAR_ASSOC *va); + + /* User function to call INSTEAD of default Response function. */ + /* Currently only allowed for Read service (i.e. replaces call to */ + /* mvlas_read_resp). */ + ST_RET (*usr_resp_fun) (struct mvl_ind_pend *ind_pend); + + ST_VOID *usr_ind_ctrl; + ST_VOID *usr; /* For user to use as she sees fit */ + } MVL_IND_PEND; + +/************************************************************************/ +/* USER INDICATION and MVL RESPONSE FUNCTIONS */ +/* MVL calls the 'u_mvl_xxx_ind' function from within 'mvl_comm_serve' */ +/* to notify the user of the indication. The user must call a response */ +/* function ('mvlas_xxx_resp or 'mplas_xxx_resp') either from within */ +/* the user indication function or some time later. */ + +/* Identify */ +ST_VOID u_mvl_ident_ind (MVL_IND_PEND *ind); +ST_VOID mplas_ident_resp (MVL_IND_PEND *ind); /* Primitive */ + +/* Status */ +ST_VOID u_mvl_status_ind (MVL_IND_PEND *ind); +ST_VOID mplas_status_resp (MVL_IND_PEND *ind); /* Primitive */ + +/* Unsolicited Status */ +ST_VOID u_mvl_ustatus_ind (MVL_COMM_EVENT *event); /* NOTE: different arg*/ + +/* GetNameList */ +ST_VOID u_mvl_namelist_ind (MVL_IND_PEND *ind); +ST_VOID mplas_namelist_resp (MVL_IND_PEND *ind);/* Primitive */ +ST_VOID mvlas_namelist_resp (MVL_IND_PEND *ind);/* Virtual Machine */ + +/* Read */ +ST_VOID u_mvl_read_ind (MVL_IND_PEND *indCtrl); +ST_RET mvlas_read_resp (MVL_IND_PEND *indCtrl); + +/* Write */ +ST_VOID u_mvl_write_ind (MVL_IND_PEND *indCtrl); +ST_VOID mvlas_write_resp (MVL_IND_PEND *indCtrl); + +/* GetVariableAccessAttributes */ +ST_VOID u_mvl_getvar_ind (MVL_IND_PEND *ind); +ST_VOID mplas_getvar_resp (MVL_IND_PEND *ind); /* Primitive */ +ST_VOID mvlas_getvar_resp (MVL_IND_PEND *ind); /* Virtual Machine */ + +/* DefineNamedVariableList */ +ST_VOID u_mvl_defvlist_ind (MVL_IND_PEND *ind); +ST_VOID mplas_defvlist_resp (MVL_IND_PEND *ind);/* Primitive */ +ST_VOID mvlas_defvlist_resp (MVL_IND_PEND *ind);/* Virtual Machine */ + +/* GetNamedVariableListAttributes */ +ST_VOID u_mvl_getvlist_ind (MVL_IND_PEND *ind); +ST_VOID mplas_getvlist_resp (MVL_IND_PEND *ind);/* Primitive */ +ST_VOID mvlas_getvlist_resp (MVL_IND_PEND *ind);/* Virtual Machine */ + +/* DeleteNamedVariableList */ +ST_VOID u_mvl_delvlist_ind (MVL_IND_PEND *ind); +ST_VOID mplas_delvlist_resp (MVL_IND_PEND *ind);/* Primitive */ +ST_VOID mvlas_delvlist_resp (MVL_IND_PEND *ind);/* Virtual Machine */ + +/* GetDomainAttributes */ +ST_VOID u_mvl_getdom_ind (MVL_IND_PEND *ind); +ST_VOID mplas_getdom_resp (MVL_IND_PEND *ind); /* Primitive */ +ST_VOID mvlas_getdom_resp (MVL_IND_PEND *ind); /* Virtual Machine */ + +/* FileOpen */ +ST_VOID u_mvl_fopen_ind (MVL_IND_PEND *ind); +ST_VOID mplas_fopen_resp (MVL_IND_PEND *ind); /* Primitive */ + +/* FileRead */ +ST_VOID u_mvl_fread_ind (MVL_IND_PEND *ind); +ST_VOID mplas_fread_resp (MVL_IND_PEND *ind); /* Primitive */ + +/* FileClose */ +ST_VOID u_mvl_fclose_ind (MVL_IND_PEND *ind); +ST_VOID mplas_fclose_resp (MVL_IND_PEND *ind); /* Primitive */ + +/* FileDirectory */ +ST_VOID u_mvl_fdir_ind (MVL_IND_PEND *ind); +ST_VOID mvlas_fdir_resp (MVL_IND_PEND *ind); +ST_VOID mplas_fdir_resp (MVL_IND_PEND *ind); /* Primitive */ + +/* ObtainFile */ +ST_VOID u_mvl_obtfile_ind (MVL_IND_PEND *ind); +ST_VOID mplas_obtfile_resp (MVL_IND_PEND *ind); /* Primitive */ +ST_VOID mvlas_obtfile_resp (MVL_IND_PEND *ind); /* VirtualMachine */ +ST_VOID mvlas_obtfile_resp_ex (MVL_IND_PEND *indCtrl, ST_UINT32 fileSizeLimit); + +/* FileDelete */ +ST_VOID u_mvl_fdelete_ind (MVL_IND_PEND *ind); +ST_VOID mplas_fdelete_resp (MVL_IND_PEND *ind); /* Primitive */ + +/* FileRename */ +ST_VOID u_mvl_frename_ind (MVL_IND_PEND *ind); +ST_VOID mplas_frename_resp (MVL_IND_PEND *ind); /* Primitive */ + +/* InitializeJournal */ +ST_VOID u_mvl_jinit_ind (MVL_IND_PEND *ind); +ST_VOID mplas_jinit_resp (MVL_IND_PEND *ind); /* Primitive */ + +/* ReadJournal */ +ST_VOID u_mvl_jread_ind (MVL_IND_PEND *ind); +ST_VOID mplas_jread_resp (MVL_IND_PEND *ind); /* Primitive */ +ST_VOID mvlas_jread_resp (MVL_IND_PEND *ind); /* Virtual Machine */ + +/* ReportJournalStatus */ +ST_VOID u_mvl_jstat_ind (MVL_IND_PEND *ind); +ST_VOID mplas_jstat_resp (MVL_IND_PEND *ind); /* Primitive */ + +/* Conclude */ +ST_VOID u_mvl_concl_ind (MVL_COMM_EVENT *event); +ST_VOID mplas_concl_resp (MVL_COMM_EVENT *event); /* Primitive */ +ST_RET mplas_concl_err (MVL_COMM_EVENT *event, ST_INT16 err_class, ST_INT16 err_code); + +ST_VOID u_mvl_initupl_ind (MVL_IND_PEND *ind); +ST_VOID mplas_initupl_resp (MVL_IND_PEND *ind); /* Primitive */ + +ST_VOID u_mvl_upload_ind (MVL_IND_PEND *ind); +ST_VOID mplas_upload_resp (MVL_IND_PEND *ind); /* Primitive */ + +ST_VOID u_mvl_termupl_ind (MVL_IND_PEND *ind); +ST_VOID mplas_termupl_resp (MVL_IND_PEND *ind); /* Primitive */ + +ST_VOID u_mvl_initdown_ind (MVL_IND_PEND *ind); +ST_VOID mplas_initdown_resp (MVL_IND_PEND *ind);/* Primitive */ + +ST_VOID u_mvl_deldom_ind (MVL_IND_PEND *ind); +ST_VOID mplas_deldom_resp (MVL_IND_PEND *ind); /* Primitive */ + +ST_VOID u_mvl_crepi_ind (MVL_IND_PEND *ind); +ST_VOID mplas_crepi_resp (MVL_IND_PEND *ind); /* Primitive */ + +ST_VOID u_mvl_delpi_ind (MVL_IND_PEND *ind); +ST_VOID mplas_delpi_resp (MVL_IND_PEND *ind); /* Primitive */ + +ST_VOID u_mvl_getpi_ind (MVL_IND_PEND *ind); +ST_VOID mplas_getpi_resp (MVL_IND_PEND *ind); /* Primitive */ + +ST_VOID u_mvl_start_ind (MVL_IND_PEND *ind); +ST_VOID mplas_start_resp (MVL_IND_PEND *ind); /* Primitive */ + +ST_VOID u_mvl_stop_ind (MVL_IND_PEND *ind); +ST_VOID mplas_stop_resp (MVL_IND_PEND *ind); /* Primitive */ + +ST_VOID u_mvl_reset_ind (MVL_IND_PEND *ind); +ST_VOID mplas_reset_resp (MVL_IND_PEND *ind); /* Primitive */ + +ST_VOID u_mvl_resume_ind (MVL_IND_PEND *ind); +ST_VOID mplas_resume_resp (MVL_IND_PEND *ind); /* Primitive */ + +ST_VOID u_mvl_getcl_ind (MVL_IND_PEND *ind); +ST_VOID mplas_getcl_resp (MVL_IND_PEND *ind); /* Primitive */ + +/************************************************************************/ +/* Server Read/Write Start and End Function Pointers */ + +/* These function pointers are invoked to allow the user application */ +/* to prepare for handling the indication. */ +extern ST_RET (*u_mvl_rd_ind_start) (MVL_IND_PEND *indCtrl); +extern ST_RET (*u_mvl_wr_ind_start) (MVL_IND_PEND *indCtrl); + +/* These function pointers are invoked to allow the user application */ +/* to free resources used in VA data buffer management. */ +extern ST_VOID (*u_mvl_rd_resp_sent) (MVL_IND_PEND *indCtrl); +extern ST_VOID (*u_mvl_wr_resp_sent) (MVL_IND_PEND *indCtrl); + + +/************************************************************************/ +/* Server Information Report */ +/* This function is used to send an information report. */ + +ST_RET mvl_info_variables (MVL_NET_INFO *net_info, MVL_NVLIST_CTRL *nvl, + ST_BOOLEAN listOfVariables); + +/************************************************************************/ +/* Server Journal Read */ + +/* Jread User Interaction */ +/* 1. A Journal Read indication is received by MVL. */ +/* 2. MVL calls 'u_mvl_start_jread'. User applies filter to it's journal */ +/* data and returns the number of entries and variables that meet */ +/* the filter as well as JREAD buffer control information and a */ +/* user handle. */ +/* Note that the defines: */ +/* MAX_JREAD_RESP_ENTRIES */ +/* MAX_JREAD_RESP_VARS */ +/* are used to limit the amount of information that MVL will return */ +/* in the MMS response. */ +/* The buffer control allows the user to supply MVL with data buffers */ +/* to be used to save the volitile Journal information (Entry ID, */ +/* Variable Tag, Annotation). */ +/* 3. MVL calls 'u_mvl_get_next_jread_entry' and 'u_mvl_free_jread_entry' */ +/* repetitively until the max MMS PDU size is reached or the number of */ +/* user entries is reached. */ +/* 4. MVL sends the JREAD response. */ +/* 5. MVL calls 'u_mvl_end_jread' and the user may then free resources */ +/* as necessary. */ + +/* These defines control the way that MVL handles the potentially */ +/* volitile information presented by the user via MVL_JOURNAL_ENTRY. */ +/* If these defines are defined, MVL will assume that the pointers */ +/* in MVL_JOURNAL_ENTRY will become invalid after the free call and */ +/* so it must copy the data into a buffer. These buffers are to be */ +/* supplied by the user, and must be large enough for the data. */ + +/* #define MVL_JREAD_ENTRYID_DYNAMIC */ +/* #define MVL_JREAD_VARTAG_DYNAMIC */ +/* #define MVL_JREAD_ANNOTATION_DYNAMIC */ + +typedef struct mvlJreadBufCtrl + { + ST_INT numUsrEntries; /* User must supply */ + ST_INT numVarInfo; /* User must supply */ + +#if defined (MVL_JREAD_ENTRYID_DYNAMIC) + ST_UCHAR *entryIdBuf; /* User must supply */ + ST_UCHAR *nextEntryId; /* MVL use only */ +#endif + +#if defined (MVL_JREAD_VARTAG_DYNAMIC) + ST_CHAR *varTagBuf; /* User must supply */ + ST_CHAR *nextVarTag; /* MVL use only */ +#endif + +#if defined (MVL_JREAD_ANNOTATION_DYNAMIC) + ST_CHAR *annotationBuf; /* User must supply */ + ST_CHAR *nextAnnotation; /* MVL use only */ +#endif + + } MVL_JREAD_BUF_CTRL; + + +/* User defined Journal Read response functions. These functions are */ +/* to be supplied by the application in order to get the information */ +/* required for a Journal Read response. */ + +/* This function should be used to apply the filter and returns the */ +/* total number of Journal Entries and Journal Variables that meet */ +/* the filter criteria. */ +ST_RET u_mvl_start_jread (MVL_JOURNAL_CTRL *jCtrl, + JREAD_REQ_INFO *reqInfo, + MVL_JREAD_BUF_CTRL *bufCtrl, + ST_VOID **usrHandleOut); + +/* MVL calls this function repetitively to get entries from the app. */ +/* MVL will use the entry then will call the free function below to */ +/* allow the application free the resources as required. */ +ST_RET u_mvl_get_next_jread_entry (MVL_JOURNAL_CTRL *jCtrl, + ST_VOID *usrHandle, + ST_BOOLEAN *moreFollowsOut, + MVL_JOURNAL_ENTRY **mvlJeDest); +ST_VOID u_mvl_free_jread_entry (MVL_JOURNAL_CTRL *jCtrl, + ST_VOID *usrHandle, + MVL_JOURNAL_ENTRY *mvlJe); + +/* When complete, MVL will call this function. */ +ST_VOID u_mvl_end_jread (MVL_JOURNAL_CTRL *jCtrl, + ST_VOID *usrHandle, + MVL_JREAD_BUF_CTRL *bufCtrl, + JREAD_REQ_INFO *reqInfo); + +/************************************************************************/ +/************************************************************************/ +/* Temporary file name */ + +/* User can supply path for temp files, prefix for file name */ +/* Typical forms are: */ +/* "/temp/" */ +/* "S:/temp/" */ +/* "//mike/temp/" */ +/* "X:" */ + +#define MVL_MAX_TMPFILE_PATH MAX_FILE_NAME +//extern ST_CHAR *mvl_tmpfile_path; + +/* Users should have a buffer at least this big, unless they can */ +/* control the temp filename path to be used. */ +#define MVL_MAX_TMPNAM_LEN (MVL_MAX_TMPFILE_PATH + 12) +ST_RET _mvl_tmpnam (ST_CHAR *dest, ST_CHAR *tmpfile_path); +ST_VOID _mvl_getpath (ST_CHAR *file_spec, ST_CHAR *dest); + + +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ +/* MVL CLIENT SERVICE SUPPORT */ +/************************************************************************/ +/* conf_process_mode defines */ +/* When the confirm is received (and ICCP support is enabled) this flag */ +/* is used to tell MVL how to process the confirm. */ +#define MI_CONF_ICCP_DV 0x0001 + + +/* Read */ +typedef struct mvl_read_resp_parse_info + { + ST_RET result; /* SD_SUCCESS for OK */ + + /* MMS level result information */ + ST_INT16 acc_rslt_tag; /* access result tag */ + ST_INT16 failure; /* data access error */ + + ST_VOID *dest; /* Where data is to be put */ + ST_INT type_id; /* type of variable */ + + ST_BOOLEAN alt_acc_pres; + ALT_ACCESS *alt_acc; + ST_BOOLEAN alt_acc_type_aa; /* type_id is derived type */ + ST_BOOLEAN alt_acc_data_packed; + + ST_BOOLEAN descr_arr; /* for described read of array */ + ST_RTINT arr_size; /* number of elements */ + } MVL_READ_RESP_PARSE_INFO; + +/* Write */ +typedef struct mvl_write_req_info + { + ST_RET result; /* SD_SUCCESS for OK */ + + /* MMS level result detail */ + ST_INT16 resp_tag; /* response tag */ + ST_INT16 failure; /* data access error */ + + ST_VOID *local_data; /* Source of local data */ + ST_INT type_id; /* type of variable */ + + ST_BOOLEAN alt_acc_pres; + ALT_ACCESS *alt_acc; + ST_BOOLEAN alt_acc_type_aa; /* type_id is derived type */ + ST_BOOLEAN alt_acc_data_packed; + + ST_BOOLEAN arr; /* SD_TRUE if type is array and the # */ + ST_RTINT num_el; /* elements needs to be set */ + } MVL_WRITE_REQ_INFO ; + +/* JournalRead */ +typedef struct + { + ST_INT num_of_jou_entry; /* number of journal entries */ + ST_BOOLEAN more_follows; /* default = false */ + MVL_JOURNAL_ENTRY *jou_entry; /* ptr to array of entries */ + } MVL_JREAD_RESP_INFO; + +/* Outstanding Request Control */ +typedef struct mvl_req_pend + { + DBL_LNK l; /* For linked list */ + ST_UINT32 invoke_id; + time_t request_time; + MVL_NET_INFO *net_info; /* Who it was sent to */ + ST_INT op; /* MMS Opcode */ + union + { + struct + { + MVL_READ_RESP_PARSE_INFO *parse_info; + ST_INT num_data; + } rd; + struct + { + MVL_WRITE_REQ_INFO *w_info; + ST_INT num_data; + } wr; + struct + { + IDENT_RESP_INFO *resp_info; + } ident; + struct + { + INIT_INFO *resp_info; + } init; + struct + { + FOPEN_RESP_INFO *resp_info; + } fopen; + struct + { + FREAD_RESP_INFO *resp_info; + } fread; + struct + { + MVL_FDIR_RESP_INFO *resp_info; + } fdir; + struct + { + JINIT_RESP_INFO *resp_info; + } jinit; + struct + { + JSTAT_RESP_INFO *resp_info; + } jstat; + struct + { + MVL_JREAD_RESP_INFO *resp_info; + } jread; + struct + { + GETVLIST_RESP_INFO *resp_info; + } getvlist; + struct + { + DELVLIST_RESP_INFO *resp_info; + } delvlist; + struct + { + GETVAR_RESP_INFO *resp_info; + } getvar; + struct + { + GETDOM_RESP_INFO *resp_info; + } getdom; + struct + { + NAMELIST_RESP_INFO *resp_info; + } getnam; + struct + { + STATUS_RESP_INFO *resp_info; + } status; + struct + { + DOWNLOAD_RESP_INFO *resp_info; + } download; /* DownloadSegment resp info */ + } u; + MVL_COMM_EVENT *event; /* save event ptr to free later.*/ + ST_BOOLEAN done; + ST_RET result; /* SD_SUCCESS or error code */ + ERR_INFO *error_info; /* When result == MVL_ERR_CNF_ERR_OK */ + REJECT_RESP_INFO *reject_info; /* When result == MVL_ERR_CNF_REJ_ERR */ + + + /* User done function for async functions */ + ST_VOID (*u_req_done) (struct mvl_req_pend *req); + ST_VOID *v; /* For MVL user's use */ + + struct _mi_req_ctrl *mi_req; /* used for ICCP_LITE_SUPP */ + } MVL_REQ_PEND; + + +struct mvl_fget_req_info; /* forward declaration */ + +typedef struct mvl_fget_req_info + { + ST_BOOLEAN fget_done; + ST_INT fget_error; + /* pointer to user's fget confirm function */ + ST_VOID (*fget_cnf_ptr)(struct mvl_fget_req_info *state); + ST_CHAR srcfilename[MAX_FILE_NAME+1]; + ST_CHAR destfilename[MAX_FILE_NAME+1]; + + ST_VOID *v; /* For MVL user's use */ + + /* The rest of this structure is not normally accessed by the user. */ + char tempfilename[MVL_MAX_TMPNAM_LEN+1]; + FILE *fp; + ST_INT32 frsmid; + ST_UINT32 fsize; + } MVL_FGET_REQ_INFO; + + +ST_RET _mvla_send_status (MVL_NET_INFO *net_info, + STATUS_REQ_INFO *req_info, + MVL_REQ_PEND *req_pend); +ST_RET _mvla_send_getname (MVL_NET_INFO *net_info, + NAMELIST_REQ_INFO *req_info, + MVL_REQ_PEND *req_pend); +ST_RET _mvla_send_read_variables (MVL_NET_INFO *net_info, + READ_REQ_INFO *read_info, + ST_INT num_data, + MVL_READ_RESP_PARSE_INFO *parse_info, + MVL_REQ_PEND *req_pend); +ST_RET _mvla_send_getvar (MVL_NET_INFO *net_info, + GETVAR_REQ_INFO *req_info, + MVL_REQ_PEND *req_pend); +ST_RET _mvla_send_defvlist (MVL_NET_INFO *net_info, + DEFVLIST_REQ_INFO *req_info, + MVL_REQ_PEND *req_pend); +ST_RET _mvla_send_getvlist (MVL_NET_INFO *net_info, + GETVLIST_REQ_INFO *req_info, + MVL_REQ_PEND *req_pend); +ST_RET _mvla_send_delvlist (MVL_NET_INFO *net_info, + DELVLIST_REQ_INFO *req_info, + MVL_REQ_PEND *req_pend); +ST_RET _mvla_send_getdom (MVL_NET_INFO *net_info, + GETDOM_REQ_INFO *req_info, + MVL_REQ_PEND *req_pend); +ST_RET _mvla_send_fopen (MVL_NET_INFO *net_info, + ST_CHAR *filename, + ST_UINT32 init_pos, + MVL_REQ_PEND *req_pend); +ST_RET _mvla_send_fread (MVL_NET_INFO *net_info, + FREAD_REQ_INFO *req_info, + MVL_REQ_PEND *req_pend); +ST_RET _mvla_send_fclose (MVL_NET_INFO *net_info, + FCLOSE_REQ_INFO *req_info, + MVL_REQ_PEND *req_pend); +ST_RET _mvla_send_fdir (MVL_NET_INFO *net_info, + ST_CHAR *filename, + ST_CHAR *ca_filename, + MVL_REQ_PEND *req_pend); +ST_RET _mvla_send_fdelete (MVL_NET_INFO *net_info, + ST_CHAR *filename, + MVL_REQ_PEND *req_pend); +ST_RET _mvla_send_jinit (MVL_NET_INFO *net_info, + JINIT_REQ_INFO *req_info, + MVL_REQ_PEND *req_pend); +ST_RET _mvla_send_jread (MVL_NET_INFO *net_info, + JREAD_REQ_INFO *req_info, + MVL_REQ_PEND *req_pend); +ST_RET _mvla_send_jstat (MVL_NET_INFO *net_info, + JSTAT_REQ_INFO *req_info, + MVL_REQ_PEND *req_pend); + +/* Function to make async function sync */ +ST_RET mvl_wait_req_done (MVL_REQ_PEND *req); + +/* Use this to free a request contrl after the confirm has been rx'd */ +ST_VOID mvl_free_req_ctrl (MVL_REQ_PEND *pend_req); + +/* Use this to free any pending Indication Ctrl structures */ +ST_VOID mvl_clr_ind_que (MVL_NET_INFO *net_info); + +/************************************************************************/ +/* CLIENT REQUEST FUNCTIONS */ +/* Most client request functions come in two versions - synchronous */ +/* and asynchronous. Both have identical arguments - the only */ +/* difference is that the synchronous versions do not return until */ +/* the confirm/error has been received, or the user gives up (via */ +/* the 'u_mvl_check_timeout' function). */ + +/* Identify */ +ST_RET mvl_identify (MVL_NET_INFO *net_info, MVL_REQ_PEND **req_out); +ST_RET mvla_identify (MVL_NET_INFO *net_info, MVL_REQ_PEND **req_out); + +/* Status */ +ST_RET mvl_status (MVL_NET_INFO *net_info, STATUS_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); +ST_RET mvla_status (MVL_NET_INFO *net_info, STATUS_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); + +/* Unsolicited Status */ +ST_RET mvl_ustatus (MVL_NET_INFO *net_info, USTATUS_REQ_INFO *req_info); + +/* GetNameList */ +ST_RET mvl_getnam (MVL_NET_INFO *net_info, NAMELIST_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); +ST_RET mvla_getnam (MVL_NET_INFO *net_info, NAMELIST_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); + + +/* Read */ +ST_RET mvl_read_variables (MVL_NET_INFO *net_info, READ_REQ_INFO *read_info, + ST_INT num_data, + MVL_READ_RESP_PARSE_INFO *parse_info, + MVL_REQ_PEND **req_out); +ST_RET mvla_read_variables (MVL_NET_INFO *net_info, READ_REQ_INFO *read_info, + ST_INT num_data, + MVL_READ_RESP_PARSE_INFO *parse_info, + MVL_REQ_PEND **req_out); + + +/* Write */ +ST_RET mvl_write_variables (MVL_NET_INFO *net_info, WRITE_REQ_INFO *write_info, + ST_INT num_data, MVL_WRITE_REQ_INFO *w_info, + MVL_REQ_PEND **req_out); +ST_RET mvla_write_variables (MVL_NET_INFO *net_info, WRITE_REQ_INFO *write_info, + ST_INT num_data, MVL_WRITE_REQ_INFO *w_info, + MVL_REQ_PEND **req_out); + +/* GetVariableAccessAttributes */ +ST_RET mvl_getvar (MVL_NET_INFO *net_info, GETVAR_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); +ST_RET mvla_getvar (MVL_NET_INFO *net_info, GETVAR_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); + +/* DefineNamedVariableList */ +ST_RET mvl_defvlist (MVL_NET_INFO *net_info, DEFVLIST_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); +ST_RET mvla_defvlist (MVL_NET_INFO *net_info, DEFVLIST_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); + +/* GetNamedVariableListAttributes */ +ST_RET mvl_getvlist (MVL_NET_INFO *net_info, GETVLIST_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); +ST_RET mvla_getvlist (MVL_NET_INFO *net_info, GETVLIST_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); + +/* DeleteNamedVariableList */ +ST_RET mvl_delvlist (MVL_NET_INFO *net_info, DELVLIST_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); +ST_RET mvla_delvlist (MVL_NET_INFO *net_info, DELVLIST_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); + +/* GetDomainAttributes */ +ST_RET mvl_getdom (MVL_NET_INFO *net_info, GETDOM_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); +ST_RET mvla_getdom (MVL_NET_INFO *net_info, GETDOM_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); + +/* File Open */ +ST_RET mvl_fopen (MVL_NET_INFO *net_info, ST_CHAR *filename, + ST_UINT32 init_pos, MVL_REQ_PEND **req_out); +ST_RET mvla_fopen (MVL_NET_INFO *net_info, ST_CHAR *filename, + ST_UINT32 init_pos, MVL_REQ_PEND **req_out); + +/* File Read */ +ST_RET mvl_fread (MVL_NET_INFO *net_info, FREAD_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); +ST_RET mvla_fread (MVL_NET_INFO *net_info, FREAD_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); + +/* File Close */ +ST_RET mvl_fclose (MVL_NET_INFO *net_info, FCLOSE_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); +ST_RET mvla_fclose (MVL_NET_INFO *net_info, FCLOSE_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); + +/* File Directory */ +ST_RET mvl_fdir (MVL_NET_INFO *net_info, ST_CHAR *filename, + ST_CHAR *ca_filename, MVL_REQ_PEND **req_out); +ST_RET mvla_fdir (MVL_NET_INFO *net_info, ST_CHAR *filename, + ST_CHAR *ca_filename, MVL_REQ_PEND **req_out); + +/* File Delete */ +ST_RET mvl_fdelete (MVL_NET_INFO *net_info, ST_CHAR *filename, + MVL_REQ_PEND **req_out); +ST_RET mvla_fdelete (MVL_NET_INFO *net_info, ST_CHAR *filename, + MVL_REQ_PEND **req_out); + +/* File Rename */ +ST_RET mvl_frename (MVL_NET_INFO *net_info, ST_CHAR *curfilename, + ST_CHAR *newfilename, MVL_REQ_PEND **req_out); +ST_RET mvla_frename (MVL_NET_INFO *net_info, ST_CHAR *curfilename, + ST_CHAR *newfilename, MVL_REQ_PEND **req_out); + +/* Obtainfile */ +ST_RET mvl_obtfile (MVL_NET_INFO *net_info, ST_CHAR *srcfilename, + ST_CHAR *destfilename, MVL_REQ_PEND **req_out); +ST_RET mvla_obtfile (MVL_NET_INFO *net_info, ST_CHAR *srcfilename, + ST_CHAR *destfilename, MVL_REQ_PEND **req_out); + +/* File Get */ +/* No synchronous File Get function "mvl_fget". Requires multiple reqs, */ +/* so cannot be synchronous. */ +ST_RET mvla_fget (MVL_NET_INFO *net_info, ST_CHAR *srcfilename, + ST_CHAR *destfilename, MVL_FGET_REQ_INFO *fget_req_info); + +/* InitializeJournal */ +ST_RET mvl_jinit (MVL_NET_INFO *net_info, JINIT_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); +ST_RET mvla_jinit (MVL_NET_INFO *net_info, JINIT_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); + +/* ReadJournal */ +ST_RET mvl_jread (MVL_NET_INFO *net_info, JREAD_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); +ST_RET mvla_jread (MVL_NET_INFO *net_info, JREAD_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); + +/* WriteJournal */ +ST_RET mvl_jwrite (MVL_NET_INFO *net_info, JWRITE_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); +ST_RET mvla_jwrite (MVL_NET_INFO *net_info, JWRITE_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); + +/* JournalStatus */ +ST_RET mvl_jstat (MVL_NET_INFO *net_info, JSTAT_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); +ST_RET mvla_jstat (MVL_NET_INFO *net_info, JSTAT_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); + +/* InitiateDownload */ +/* NOT YET IMPLEMENTED! ONLY NEEDED FOR CLIENT */ + +/* DownloadSegment */ +ST_RET mvl_download (MVL_NET_INFO *net_info, DOWNLOAD_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); +ST_RET mvla_download (MVL_NET_INFO *net_info, DOWNLOAD_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); + +/* TerminateDownload */ +ST_RET mvl_termdown (MVL_NET_INFO *net_info, TERMDOWN_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); +ST_RET mvla_termdown (MVL_NET_INFO *net_info, TERMDOWN_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); + +/* Conclude */ +ST_RET mvl_concl (MVL_NET_INFO *net_info, MVL_REQ_PEND **req_out); +ST_RET mvla_concl (MVL_NET_INFO *net_info, MVL_REQ_PEND **req_out); +ST_RET _mvla_send_concl (MVL_NET_INFO *net_info, MVL_REQ_PEND *req_pend); + +/* Obsolete function, please use mvl_conc or mvla_conc */ +/* ST_RET mvl_conclude (MVL_NET_INFO *net_info ); */ + +/************************************************************************/ +/* ENCODE FUNCTIONS - each encodes a req or resp but does NOT send it. */ +/************************************************************************/ +/* Information Report Request */ +ST_RET mvl_encode_info_rpt (MVL_NET_INFO *net_info, + MVL_NVLIST_CTRL *nvl, + ST_BOOLEAN listOfVariables, + ASN1_ENC_CTXT *aCtx); + +/* NOTE: other encode functions not currently needed. */ + +/************************************************************************/ +/* Client Info Rpt indication */ + +/* This function is called when thje client application received an */ +/* information report */ +extern ST_VOID u_mvl_info_rpt_ind (MVL_COMM_EVENT *event); + +/* This function is used to convert Info Report data to local format */ +/* The user supplies a table of variable associations, which speify the */ +/* data type, destination, and pre/post processing functions. */ +/* This function free's the info report resources when the conversion */ +/* are complete. */ + +ST_VOID mvl_info_data_to_local (MVL_COMM_EVENT *event, + ST_INT num_va, + MVL_VAR_ASSOC **info_va); + +#if defined(MVL_REM_VMD_SUPPORT) +extern MVL_VMD_CTRL *(*u_mvl_get_rem_vmd_fun) (MVL_NET_INFO *net_info); +ST_VOID mvl_info_rpt_rem_process (MVL_COMM_EVENT *event); +#endif + +ST_RET mvlu_add_rt_type (RUNTIME_TYPE *rt, ST_INT numRt, ST_INT *typeIdOut); +ST_VOID mvlu_free_rt_type (ST_INT typeId); + +/* Type to String and visa-versa */ +ST_INT mvl_typename_to_typeid (ST_CHAR *type_id_string); +ST_CHAR *mvl_typeid_to_typename (ST_INT type_id); + + +/************************************************************************/ +/************************************************************************/ + +typedef struct + { + ST_DOUBLE startTime; + ST_INT32 callingConn; /* Calling Connections */ + ST_INT32 callingConnOk; /* Calling Connections Succesful*/ + ST_INT32 callingConnFail; /* Calling Connections Failed */ + ST_INT32 calledConn; /* Called Connections */ + ST_INT32 calledConnOK; /* Called Connections Succesful */ + ST_INT32 calledConnFail; /* Called Connections Failed */ + ST_INT32 clientConcl; /* Client Concludes */ + ST_INT32 serverConcl; /* Server Concludes */ + ST_INT32 localAbort; /* Local Aborts */ + ST_INT32 remoteAbort; /* Remote Aborts */ + ST_INT32 rejectsSent; /* Rejects Sent */ + ST_INT32 rejectsRcvd; /* Rejects Received */ + ST_INT32 clientReq; /* Client Requests */ + ST_INT32 clientReqOk; /* Client Requests OK */ + ST_INT32 clientReqErr; /* Client Requests Error */ + ST_INT32 clientVarRdOk; /* Client Variables Read OK */ + ST_INT32 clientVarRdFail; /* Client Variables Read Error */ + ST_INT32 clientVarWrOk; /* Client Variables Write OK */ + ST_INT32 clientVarWrErr; /* Client Variables Write Error */ + ST_INT32 clientInfoRpt; /* Client Information Reports */ + ST_INT32 clientUstatus; /* Client Unsolicited Status */ + ST_INT32 serverInd; /* Server Indications */ + ST_INT32 serverRespOk; /* Server Responses OK */ + ST_INT32 serverRespErr; /* Server Responses Error */ + ST_INT32 serverVarRdOk; /* Server Variables Read OK */ + ST_INT32 serverVarRdErr; /* Server Variables Read Error */ + ST_INT32 serverVarWrOk; /* Server Variables Write OK */ + ST_INT32 serverVarWrErr; /* Server Variables Write Error */ + ST_INT32 serverInfoRpt; /* Server Information Reports */ + ST_INT32 serverUstatus; /* Server Unsolicited Status */ + } MVL_MMS_STATISTICS; + +extern MVL_MMS_STATISTICS mvl_mms_statistics; + +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ +/* MVL INTERNAL DECLARATIONS */ +/************************************************************************/ +/************************************************************************/ + +/* Built in MVL Indication and Confirm functions, typically called */ +/* from "mvlop_en.c" if service is enabled. */ + +ST_VOID _mvl_process_read_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_write_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_ident_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_info_ind (MVL_COMM_EVENT *event); +ST_VOID _mvl_process_status_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_ustatus_ind (MVL_COMM_EVENT *event); +ST_VOID _mvl_process_getnam_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_getvaa_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_getvla_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_getdom_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_fopen_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_fread_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_fclose_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_fdir_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_obtfile_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_fdelete_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_frename_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_jinit_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_jread_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_concl_ind (MVL_COMM_EVENT *event); +ST_VOID _mvl_process_cancel_ind (MVL_COMM_EVENT *event); +ST_VOID _mvl_process_defvlist_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_delvlist_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_jstat_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_initdown_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_download_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_termdown_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_initupl_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_upload_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_termupl_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_deldom_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_crepi_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_delpi_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_start_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_stop_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_resume_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_reset_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_kill_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_getpi_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_getcl_ind (MVL_IND_PEND *ind_pend); + +ST_VOID _mvl_process_read_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_write_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_ident_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_getvar_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_getnam_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_status_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_getdom_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_fopen_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_fread_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_fclose_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_fdir_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_obtfile_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_fdelete_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_frename_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_jinit_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_jread_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_jwrite_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_jstat_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_defvlist_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_getvlist_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_delvlist_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_initdown_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_download_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_termdown_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_initupl_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_upload_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_termupl_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_deldom_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_crepi_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_delpi_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_start_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_stop_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_resume_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_reset_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_kill_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_getpi_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_getcl_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_concl_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_release (MVL_REQ_PEND *req); + +/************************************************************************/ + +ST_VOID mvl_ind_rcvd (MVL_COMM_EVENT *event); +ST_VOID mvl_conf_rcvd (MVL_COMM_EVENT *event); +ST_VOID mvl_cancel_ind_rcvd (MVL_COMM_EVENT *event); +ST_VOID mvl_concl_ind_rcvd (MVL_COMM_EVENT *event); +ST_VOID mvl_concl_conf_rcvd (MVL_REQ_PEND *req_pend); + +ST_VOID _mvl_ind_reject (MVL_IND_PEND *ind); +ST_VOID _mvl_conf_reject (MVL_REQ_PEND *req); +ST_VOID _mvl_send_reject (MVL_COMM_EVENT *event); +ST_RET _mvl_send_error (MVL_COMM_EVENT *event, ST_INT16 eClass, ST_INT16 code); +ST_RET _mvl_send_err_f (MVL_COMM_EVENT *event, ST_INT16 eClass, ST_INT16 code); + +#define mplas_err_resp(indCtrl, eClass, code) _mplas_err_resp(indCtrl, eClass, code) +ST_RET _mplas_err_resp (MVL_IND_PEND *indCtrl, ST_INT16 eClass, ST_INT16 code); + +ST_VOID _mvl_send_resp (MVL_COMM_EVENT *event, ST_RET build_rc); +ST_VOID _mvl_send_resp_i (MVL_IND_PEND *indCtrl, ST_RET build_rc); +ST_RET _mvl_send_req (MVL_NET_INFO *net_info, + MVL_REQ_PEND *req, ST_RET build_rc); + +MVL_VAR_ASSOC *_mvl_objname_to_va (MVL_VMD_CTRL *vmd_ctrl, + MVL_NET_INFO *net_info, + ST_INT service, + OBJECT_NAME *obj, + MVL_SCOPE *va_scope_out, + ST_BOOLEAN alt_access_pres, + ALT_ACCESS *alt_acc, + ST_BOOLEAN *alt_access_done_out); + +/* This function does everything required to send a MMS message - */ +/* adds CLNP/CLTP/HDLC components then does whatever is required to send*/ +/* the complete message. Does not return until done, returns SD_SUCCESS */ +/* or an error code. */ +ST_RET _mvl_send_msg (ST_UCHAR *mms_msg, ST_INT mms_msg_len, MVL_NET_INFO *net_info); + + +/* This function is called to get MMS PDU's that have been received, */ +/* as well as other communications events. Returns a pointer to a */ +/* MMS Comm Event control structure that must be free'd via the */ +ST_BOOLEAN _mvl_net_service (MVL_COMM_EVENT **eventOut); +ST_VOID _mvl_free_comm_event (MVL_COMM_EVENT *event); + +extern ST_BOOLEAN mvl_init_ind_hold; + +/* Functions to manipulate request control list */ +MVL_REQ_PEND *_mvl_get_req_ctrl (MVL_NET_INFO *net_info, ST_INT16 op); +MVL_REQ_PEND *_mvl_find_req_ctrl (MVL_NET_INFO *net_info, + ST_INT op, ST_UINT32 id); +ST_VOID _mvl_set_net_req_done (MVL_REQ_PEND *skip, + MVL_NET_INFO *net_info, ST_RET result); +ST_VOID _mvl_set_req_done (MVL_REQ_PEND *req, ST_RET result); + +/* Alternate Access creation buffer management */ +ST_RET _mvl_get_asn1_aa (ALT_ACCESS *alt_acc, VARIABLE_LIST *vl); + +ST_RET _mvl_concat_filename (ST_CHAR *good_name, ST_INT num_of_fname, + FILE_NAME *fname_arr, ST_INT max_len); + +ST_VOID mvl_log_req (ST_INT opcode, ST_VOID *info); +ST_VOID mvl_log_resp (ST_INT opcode, ST_VOID *info); + +ST_VOID mvl_scope_set (OBJECT_NAME *obj, MVL_SCOPE *mvl_scope_out); + + +/************************************************************************/ + +extern ST_BOOLEAN _mvl_comm_serve_active; + +/************************************************************************/ +/* MVL_OBJ (generic MVL object) */ +/* This structure is used by all the MVL object manipulation functions */ +/* (mvl_obj_insert, mvl_obj_delete, mvl_obj_find, etc.) to represent */ +/* any named object (i.e. Named Variable, Named Variable List, */ +/* Domain, Journal, etc.). */ +/* A pointer to a "real" structure must be cast to (MVL_OBJ *) */ +/* for any call to the functions. */ +/* WARNING: It is assumed that the first item in the "real" structure */ +/* is a pointer to the "name" of the object. */ +/************************************************************************/ + +typedef struct + { + ST_CHAR *name; + } MVL_OBJ; + +/************************************************************************/ + +ST_VOID *_mvl_calloc_os (ST_UINT num, ST_UINT size); +ST_VOID *_mvl_realloc_os (ST_VOID *old, ST_UINT new_size); +ST_VOID _mvl_free_os (ST_VOID *buf); + +/************************************************************************/ +/* MVL object manipulation function prototypes. */ +/************************************************************************/ + +ST_RET mvl_obj_insert (MVL_OBJ **ObjTable, ST_INT *numObj, ST_INT maxObj, + MVL_OBJ *newObj); +MVL_OBJ *mvl_obj_delete (MVL_OBJ **ObjTable, ST_INT *numObj, + ST_CHAR *ObjName); +MVL_OBJ *mvl_obj_find (MVL_OBJ **ObjTable, ST_INT numObj, + ST_CHAR *ObjName); +MVL_OBJ ** mvl_obj_find_key (MVL_OBJ **ObjTable, ST_INT numObj, + ST_CHAR *ObjName); +ST_VOID _mvl_resize_ptr_tbl (ST_INT *p_max_num, + ST_VOID ***p_ptr_tbl, ST_INT new_size); +/************************************************************************/ +/* MVL type derivation functions */ +/************************************************************************/ + +ST_RET mvl_derive_new_type (ST_CHAR *base_name, ST_INT typeIdIn, + ST_INT *typeIdOut, ST_CHAR *handle); +ST_RET mvl_derive_type_members (ST_CHAR *base_name, ST_INT typeIdIn, + ST_UCHAR **membership, ST_RTREF *refs, ST_CHAR *handle); +ST_VOID mvl_print_derived_type( ST_CHAR *base_name, ST_INT typeIdIn, + ST_UCHAR *membership, ST_UCHAR **labels); +ST_RET mvl_add_derived_type( ST_CHAR *base_name, ST_INT typeIdIn, + ST_UCHAR *membership, ST_RTREF *refs, + ST_INT *typeIdOut); +#ifndef __ECOS +ST_BOOLEAN u_mvl_rt_element_supported( RUNTIME_TYPE *rt, + ST_CHAR *element_name, + ST_RTREF *ui, ST_CHAR *handle); +#endif +/************************************************************************/ + +ST_INT mi_connect_ind_fun (MVL_NET_INFO *net_info, + INIT_INFO *init_ind_info, + ACSE_AUTH_INFO *rsp_auth_info); +ST_VOID mi_release_ind_fun (MVL_NET_INFO *mvl_net_info); +ST_VOID mi_abort_ind_fun (MVL_NET_INFO *mvl_net_info); + +ST_VOID _mvl_free_req_pend (ST_VOID); +ST_VOID u_mvl_reject_ind (MVL_NET_INFO *net_info, REJECT_RESP_INFO *rej_info); + +/************************************************************************/ +/* Dynamic type creation functions. */ +/************************************************************************/ +MVL_TYPE_CTRL *mvl_type_ctrl_find (ST_INT TypeId); +MVL_TYPE_CTRL *mvl_type_ctrl_find_dyn (ST_INT TypeId); +ST_INT mvl_type_id_create (ST_CHAR *type_name, ST_UCHAR *asn1_data, ST_UINT asn1_len); +ST_INT mvl_type_id_create_from_tdl (ST_CHAR *type_name, ST_CHAR *tdl); +ST_VOID mvl_type_id_destroy (ST_INT TypeId); +ST_RET mvl_type_id_destroy_all_dyn (ST_VOID); +ST_INT mvl_type_count (ST_VOID); + +/* These take additional "vmd_ctrl" argument. */ +ST_INT mvl_vmd_type_id_create (MVL_VMD_CTRL *vmd_ctrl, ST_CHAR *type_name, RUNTIME_CTRL *rt_ctrl); +ST_RET mvl_vmd_type_id_destroy (MVL_VMD_CTRL *vmd_ctrl, ST_INT TypeId); +ST_RET mvl_vmd_type_id_destroy_all (MVL_VMD_CTRL *vmd_ctrl); +MVL_TYPE_CTRL *mvl_vmd_type_ctrl_find (MVL_VMD_CTRL *vmd_ctrl, ST_INT type_id); + +#define mvlu_install() /* OBSOLETE: For backward compatibility only */ + +/************************************************************************/ +/* Allocation functions/macros. */ +/************************************************************************/ +#define mvl_enc_buf_alloc(size) M_MALLOC (MSMEM_PDU_ENC, size) +#define mvl_enc_buf_free(ptr) M_FREE (MSMEM_PDU_ENC, ptr) + +/************************************************************************/ +/* Miscellaneous functions. */ +/************************************************************************/ +ST_VOID wait_any_event (ST_LONG max_ms_delay); /* called by sync fcts */ + /* user MUST supply this fct*/ +ST_INT mvl_req_bufs_avail (MVL_NET_INFO *net_info); +ST_INT mvl_ureq_bufs_avail (MVL_NET_INFO *net_info); + +/************************************************************************/ +/* Object add/remove functions. */ +/************************************************************************/ +MVL_DOM_CTRL *mvl_vmd_dom_add (MVL_VMD_CTRL *vmd_ctrl, + ST_CHAR *name, + ST_INT max_num_var, + ST_INT max_num_nvl, + ST_INT max_num_jou, + ST_BOOLEAN copy_name); +ST_RET mvl_vmd_dom_remove (MVL_VMD_CTRL *vmd_ctrl, ST_CHAR *dom_name); + +MVL_VAR_ASSOC *mvl_vmd_var_add (MVL_VMD_CTRL *vmd_ctrl, + OBJECT_NAME *obj, + MVL_NET_INFO *net_info, + ST_INT type_id, + ST_VOID *data, + MVL_VAR_PROC *proc, + ST_BOOLEAN copy_name); +MVL_VAR_ASSOC *mvl_var_add_alloc (MVL_VMD_CTRL *vmd_ctrl, + OBJECT_NAME *obj, + MVL_NET_INFO *net_info, + ST_INT type_id, + MVL_VAR_PROC *proc); +ST_RET mvl_vmd_var_remove (MVL_VMD_CTRL *vmd_ctrl, + OBJECT_NAME *obj, + MVL_NET_INFO *net_info); + +MVL_NVLIST_CTRL *mvl_vmd_nvl_add (MVL_VMD_CTRL *vmd_ctrl, + OBJECT_NAME *nvl_obj, + MVL_NET_INFO *net_info, + ST_INT num_var, + OBJECT_NAME *var_obj, /* array of var names */ + ST_BOOLEAN copy_name); +ST_RET mvl_vmd_nvl_remove (MVL_VMD_CTRL *vmd_ctrl, + OBJECT_NAME *obj, + MVL_NET_INFO *net_info); + +MVL_JOURNAL_CTRL *mvl_vmd_jou_add (MVL_VMD_CTRL *vmd_ctrl, + OBJECT_NAME *obj, + MVL_NET_INFO *net_info, + ST_BOOLEAN copy_name); +ST_RET mvl_vmd_jou_remove (MVL_VMD_CTRL *vmd_ctrl, + OBJECT_NAME *obj, + MVL_NET_INFO *net_info); + +/************************************************************************/ +/* Object insert/delete functions. */ +/************************************************************************/ +ST_RET mvl_vmd_dom_insert (MVL_VMD_CTRL *vmd_ctrl, + MVL_DOM_CTRL *dom); +MVL_DOM_CTRL *mvl_vmd_dom_delete (MVL_VMD_CTRL *vmd_ctrl, ST_CHAR *dom_name); + +ST_RET mvl_vmd_var_insert (MVL_VMD_CTRL *vmd_ctrl, + MVL_VAR_ASSOC *va, + OBJECT_NAME *obj, + MVL_NET_INFO *net_info); /* Only used if AA_SPEC */ +MVL_VAR_ASSOC *mvl_vmd_var_delete (MVL_VMD_CTRL *vmd_ctrl, + OBJECT_NAME *obj, + MVL_NET_INFO *net_info); + +ST_RET mvl_vmd_nvl_insert (MVL_VMD_CTRL *vmd_ctrl, + MVL_NVLIST_CTRL *nvl, + OBJECT_NAME *obj, + MVL_NET_INFO *net_info); /* Only used if AA_SPEC */ +MVL_NVLIST_CTRL *mvl_vmd_nvl_delete (MVL_VMD_CTRL *vmd_ctrl, + OBJECT_NAME *obj, + MVL_NET_INFO *net_info); /* Only used if AA_SPEC */ + +ST_RET mvl_vmd_jou_insert (MVL_VMD_CTRL *vmd_ctrl, + MVL_JOURNAL_CTRL *jou, + OBJECT_NAME *obj, + MVL_NET_INFO *net_info); /* Only used if AA_SPEC */ +MVL_JOURNAL_CTRL *mvl_vmd_jou_delete (MVL_VMD_CTRL *vmd_ctrl, + OBJECT_NAME *obj, + MVL_NET_INFO *net_info); + + +/************************************************************************/ +/* Object "find" functions. */ +/************************************************************************/ +MVL_DOM_CTRL *mvl_vmd_find_dom (MVL_VMD_CTRL *vmd_ctrl, + ST_CHAR *name); +MVL_DOM_CTRL *mvl_vmd_dom_find_last (MVL_VMD_CTRL *vmd_ctrl); +MVL_VAR_ASSOC *mvl_vmd_find_var (MVL_VMD_CTRL *vmd_ctrl, + OBJECT_NAME *obj, + MVL_NET_INFO *net_info); /* Only used if AA_SPEC */ +MVL_NVLIST_CTRL *mvl_vmd_find_nvl (MVL_VMD_CTRL *vmd_ctrl, + OBJECT_NAME *obj, + MVL_NET_INFO *net_info); /* Only used if AA_SPEC */ +MVL_JOURNAL_CTRL *mvl_vmd_find_jou (MVL_VMD_CTRL *vmd_ctrl, + OBJECT_NAME *obj, + MVL_NET_INFO *net_info); /* Only used if AA_SPEC */ + +/************************************************************************/ +#ifdef __cplusplus +} +#endif + +#endif /* MVL_DEFS_INCLUDED */ +/************************************************************************/ + diff --git a/include/inc/mvl_log.h b/include/inc/mvl_log.h new file mode 100644 index 0000000..49f092b --- /dev/null +++ b/include/inc/mvl_log.h @@ -0,0 +1,198 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1996-2002, All Rights Reserved. */ +/* */ +/* MODULE NAME : mvl_log.h */ +/* PRODUCT(S) : Tool */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/22/08 JRB 14 Del unused MVLULOG_TIMING macros. */ +/* 04/09/07 MDE 13 Enhanced filtered logging */ +/* 09/12/05 JRB 12 Added more ERR, NERR macros */ +/* 07/13/05 MDE 11 Added more CNERR macros */ +/* 08/12/04 JRB 10 Fix MVLU_LOG_CTIMING.. macros. */ +/* 12/12/02 JRB 09 Use new "Base" macros SLOG_*, SLOGC_*, SLOGH.*/ +/* 07/31/01 MDE 08 Added mvl_conn_filtered_logging */ +/* 03/28/01 JRB 07 Add ..ACSEDATA3 macro. */ +/* 03/22/01 GLB 06 Added: MVLULOG_DEBUG, MVLULOG_TIMING */ +/* 12/13/99 JRB 05 Delete ";" from non-debug macros. Get extra */ +/* ";" when expanded (doesn't always compile). */ +/* 09/13/99 MDE 04 Added SD_CONST modifiers */ +/* 09/07/99 MDE 03 Added FLOW3, CFLOW3 macros */ +/* 10/08/98 MDE 02 Migrated to updated SLOG interface */ +/* 09/10/97 MDE 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +#ifndef MVL_LOG_INCLUDED +#define MVL_LOG_INCLUDED + +#include "slog.h" + +#ifdef __cplusplus +extern "C" { +#endif + +/************************************************************************/ +/* MMS-EASE Lite logging control */ + +#define MVLLOG_ERR 0x00000001 +#define MVLLOG_NERR 0x00000002 +#define MVLLOG_ACSE 0x00000040 +#define MVLLOG_ACSEDATA 0x00000080 +#define MVLULOG_FLOW 0x00000200 +#define MVLULOG_DEBUG 0x00000400 + + +/* For backward compatability only */ +#define mvl_log_mask mvl_debug_sel +extern ST_UINT mvl_debug_sel; + +/* Allows filtering of ACSE data logging by connection */ +extern ST_BOOLEAN mvl_conn_filtered_logging; + +/* Log type strings */ +extern SD_CONST ST_CHAR *SD_CONST _mvllog_err_logstr; +extern SD_CONST ST_CHAR *SD_CONST _mvllog_nerr_logstr; +extern SD_CONST ST_CHAR *SD_CONST _mvllog_acse_logstr; +extern SD_CONST ST_CHAR *SD_CONST _mvllog_acsedata_logstr; +extern SD_CONST ST_CHAR *SD_CONST _mvlulog_flow_logstr; +extern SD_CONST ST_CHAR *SD_CONST _mvlulog_debug_logstr; + + +/*********************** ERR Macros *************************************/ +#define MVL_LOG_ERR0(a) \ + SLOG_0 (mvl_debug_sel & MVLLOG_ERR,_mvllog_err_logstr,a) +#define MVL_LOG_ERR1(a,b) \ + SLOG_1 (mvl_debug_sel & MVLLOG_ERR,_mvllog_err_logstr,a,b) +#define MVL_LOG_ERR2(a,b,c) \ + SLOG_2 (mvl_debug_sel & MVLLOG_ERR,_mvllog_err_logstr,a,b,c) +#define MVL_LOG_ERR3(a,b,c,d) \ + SLOG_3 (mvl_debug_sel & MVLLOG_ERR,_mvllog_err_logstr,a,b,c,d) +#define MVL_LOG_ERR4(a,b,c,d,e) \ + SLOG_4 (mvl_debug_sel & MVLLOG_ERR,_mvllog_err_logstr,a,b,c,d,e) +#define MVL_LOG_ERR5(a,b,c,d,e,f) \ + SLOG_5 (mvl_debug_sel & MVLLOG_ERR,_mvllog_err_logstr,a,b,c,d,e,f) + +#define MVL_LOG_CERR0(a) \ + SLOGC_0 (mvl_debug_sel & MVLLOG_ERR,a) +#define MVL_LOG_CERR1(a,b) \ + SLOGC_1 (mvl_debug_sel & MVLLOG_ERR,a,b) +#define MVL_LOG_CERR2(a,b,c) \ + SLOGC_2 (mvl_debug_sel & MVLLOG_ERR,a,b,c) +#define MVL_LOG_CERR3(a,b,c,d) \ + SLOGC_3 (mvl_debug_sel & MVLLOG_ERR,a,b,c,d) +#define MVL_LOG_CERR4(a,b,c,d,e) \ + SLOGC_4 (mvl_debug_sel & MVLLOG_ERR,a,b,c,d,e) +#define MVL_LOG_CERR5(a,b,c,d,e,f) \ + SLOGC_5 (mvl_debug_sel & MVLLOG_ERR,a,b,c,d,e,f) + + +/*********************** NERR Macros *************************************/ + +#define MVL_LOG_NERR0(a) \ + SLOG_0 (mvl_debug_sel & MVLLOG_NERR,_mvllog_nerr_logstr,a) +#define MVL_LOG_NERR1(a,b) \ + SLOG_1 (mvl_debug_sel & MVLLOG_NERR,_mvllog_nerr_logstr,a,b) +#define MVL_LOG_NERR2(a,b,c) \ + SLOG_2 (mvl_debug_sel & MVLLOG_NERR,_mvllog_nerr_logstr,a,b,c) +#define MVL_LOG_NERR3(a,b,c,d) \ + SLOG_3 (mvl_debug_sel & MVLLOG_NERR,_mvllog_nerr_logstr,a,b,c,d) +#define MVL_LOG_NERR4(a,b,c,d,e) \ + SLOG_4 (mvl_debug_sel & MVLLOG_NERR,_mvllog_nerr_logstr,a,b,c,d,e) +#define MVL_LOG_NERR5(a,b,c,d,e,f) \ + SLOG_5 (mvl_debug_sel & MVLLOG_NERR,_mvllog_nerr_logstr,a,b,c,d,e,f) + +#define MVL_LOG_CNERR0(a) \ + SLOGC_0 (mvl_debug_sel & MVLLOG_NERR,a) +#define MVL_LOG_CNERR1(a,b) \ + SLOGC_1 (mvl_debug_sel & MVLLOG_NERR,a,b) +#define MVL_LOG_CNERR2(a,b,c) \ + SLOGC_2 (mvl_debug_sel & MVLLOG_NERR,a,b,c) +#define MVL_LOG_CNERR3(a,b,c,d) \ + SLOGC_3 (mvl_debug_sel & MVLLOG_NERR,a,b,c,d) +#define MVL_LOG_CNERR4(a,b,c,d,e) \ + SLOGC_4 (mvl_debug_sel & MVLLOG_NERR,a,b,c,d,e) +#define MVL_LOG_CNERR5(a,b,c,d,e,f) \ + SLOGC_5 (mvl_debug_sel & MVLLOG_NERR,a,b,c,d,e,f) + +/*********************** ACSE Macros *************************************/ + +#define MVL_LOG_ACSE0(a) \ + SLOG_0 (mvl_debug_sel & MVLLOG_ACSE,_mvllog_acse_logstr,a) +#define MVL_LOG_ACSE1(a,b) \ + SLOG_1 (mvl_debug_sel & MVLLOG_ACSE,_mvllog_acse_logstr,a,b) + + +#define MVL_LOG_CACSE0(a) \ + SLOGC_0 (mvl_debug_sel & MVLLOG_ACSE,a) +#define MVL_LOG_CACSE1(a,b) \ + SLOGC_1 (mvl_debug_sel & MVLLOG_ACSE,a,b) + + +#define MVL_LOG_ACSEDATA1(a,b) \ + SLOG_1 (mvl_debug_sel & MVLLOG_ACSEDATA,_mvllog_acsedata_logstr,a,b) +#define MVL_LOG_ACSEDATA2(a,b,c) \ + SLOG_2 (mvl_debug_sel & MVLLOG_ACSEDATA,_mvllog_acsedata_logstr,a,b,c) +#define MVL_LOG_ACSEDATA3(a,b,c,d) \ + SLOG_3 (mvl_debug_sel & MVLLOG_ACSEDATA,_mvllog_acsedata_logstr,a,b,c,d) + + +#define MVL_LOG_ACSEDATAH(a,b) \ + SLOGH (mvl_debug_sel & MVLLOG_ACSEDATA,a,b) + + +/*********************** MVLU FLOW Macros *******************************/ + +#define MVLU_LOG_FLOW0(a) \ + SLOG_0 (mvl_debug_sel & MVLULOG_FLOW,_mvlulog_flow_logstr,a) +#define MVLU_LOG_FLOW1(a,b) \ + SLOG_1 (mvl_debug_sel & MVLULOG_FLOW,_mvlulog_flow_logstr,a,b) +#define MVLU_LOG_FLOW2(a,b,c) \ + SLOG_2 (mvl_debug_sel & MVLULOG_FLOW,_mvlulog_flow_logstr,a,b,c) +#define MVLU_LOG_FLOW3(a,b,c,d) \ + SLOG_3 (mvl_debug_sel & MVLULOG_FLOW,_mvlulog_flow_logstr,a,b,c,d) + + +#define MVLU_LOG_CFLOW0(a) \ + SLOGC_0 (mvl_debug_sel & MVLULOG_FLOW,a) +#define MVLU_LOG_CFLOW1(a,b) \ + SLOGC_1 (mvl_debug_sel & MVLULOG_FLOW,a,b) +#define MVLU_LOG_CFLOW2(a,b,c) \ + SLOGC_2 (mvl_debug_sel & MVLULOG_FLOW,a,b,c) +#define MVLU_LOG_CFLOW3(a,b,c,d) \ + SLOGC_3 (mvl_debug_sel & MVLULOG_FLOW,a,b,c,d) + + +/*********************** MVLU DEBUG Macros *******************************/ + +#define MVLU_LOG_DEBUG0(a) \ + SLOG_0 (mvl_debug_sel & MVLULOG_DEBUG,_mvlulog_debug_logstr,a) +#define MVLU_LOG_DEBUG1(a,b) \ + SLOG_1 (mvl_debug_sel & MVLULOG_DEBUG,_mvlulog_debug_logstr,a,b) +#define MVLU_LOG_DEBUG2(a,b,c) \ + SLOG_2 (mvl_debug_sel & MVLULOG_DEBUG,_mvlulog_debug_logstr,a,b,c) +#define MVLU_LOG_DEBUG3(a,b,c,d) \ + SLOG_3 (mvl_debug_sel & MVLULOG_DEBUG,_mvlulog_debug_logstr,a,b,c,d) + + +#define MVLU_LOG_CDEBUG0(a) \ + SLOGC_0 (mvl_debug_sel & MVLULOG_DEBUG,a) +#define MVLU_LOG_CDEBUG1(a,b) \ + SLOGC_1 (mvl_debug_sel & MVLULOG_DEBUG,a,b) +#define MVLU_LOG_CDEBUG2(a,b,c) \ + SLOGC_2 (mvl_debug_sel & MVLULOG_DEBUG,a,b,c) +#define MVLU_LOG_CDEBUG3(a,b,c,d) \ + SLOGC_3 (mvl_debug_sel & MVLULOG_DEBUG,a,b,c,d) + +#ifdef __cplusplus +} +#endif + +#endif + diff --git a/include/inc/mvl_uca.h b/include/inc/mvl_uca.h new file mode 100644 index 0000000..df3aa8d --- /dev/null +++ b/include/inc/mvl_uca.h @@ -0,0 +1,898 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1994 - 2002, All Rights Reserved */ +/* */ +/* MODULE NAME : mvl_uca.h */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* NONE */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 01/27/09 JRB 39 Add funct ptrs u_mvl_wr_ind_var_start/end. */ +/* 07/23/08 JRB 38 Move some defs to mvl_defs.h (need earlier). */ +/* Add mvl61850_objref_create. */ +/* 06/30/08 JRB 37 MVL_SBO_CTRL: repl cmd_executing w/ ctlState.*/ +/* Add MVL61850_CTLSTATE_* for setting ctlState.*/ +/* Increase size of sbo_var for IEC 61850. */ +/* MVL61850_BRCB_CTRL: Add lastSentTimeOfEntry. */ +/* 05/15/08 JRB 36 Add mvl61850_integrity_timeout for 61850 only*/ +/* 05/08/08 JRB 35 Add ctlModel to MVL_SBO_CTRL. */ +/* 05/06/08 JRB 34 Add cmd_executing to MVL_SBO_CTRL. */ +/* 03/03/08 JRB 33 Add mvl61850_ctl_req_done. */ +/* Add sboClass to MVL_SBO_CTRL. */ +/* Add MVL61850_SBOCLASS_* defines. */ +/* 11/12/07 MDE 32 Moved MMSOP_RDWR_USR_HANDLED to mms_def2.h */ +/* 03/07/07 JRB 31 Add mvlu_get_leaf_val_int_any. */ +/* 02/26/07 JRB 30 initSboCtrl: add use_ms_timer arg. */ +/* MVL_SBO_CTRL: add millisecond timer support. */ +/* 02/13/07 JRB 29 mvl61850_get_rcb: del unused net_info arg. */ +/* Add scan timers to MVL_RPT_CTRL. Add helper fct*/ +/* 11/30/06 JRB 28 Fix *_brcb_entryid_init so user can call it. */ +/* 11/21/06 JRB 27 Add mvl61850_ctl_lastapplerror_send. */ +/* Move ..LAST_APPL_ERROR def to mvl_defs.h. */ +/* 10/10/06 JRB 26 Add mvlu_set_leaf_param_name2. */ +/* 09/27/06 MDE 25 Added MMSOP_RDWR_USR_HANDLED for IOS */ +/* 08/09/06 JRB 24 MVL61850_BRCB_CTRL, BUFLIST_ENTRY: big changes.*/ +/* Add mvl61850_create(free)_rpt_ctrl, */ +/* mvl61850_rpt_service, */ +/* mvl61850_rpt_dataset_create(destroy). */ +/* Chg EntryID storage from ST_INT to Ostring. */ +/* Del obsolete MVLU_RPT_VA_CTRL. */ +/* Chg/add/del several internal report functions.*/ +/* Add vstring129 to MVLU_RPT_TYPEIDS. */ +/* 08/09/06 JRB 23 Fix MVL61850_MAX_OBJREF_LEN per Tissue 141. */ +/* 03/27/06 JRB 22 Add more mvlu_get_leaf_* functions. */ +/* 09/12/05 JRB 21 Add mvl61850_ctl_chk_sbow. */ +/* 07/11/05 JRB 20 Add more "mvl61850_ctl_*" functions. */ +/* 06/27/05 JRB 19 Del mvlu_rpt_nvl_add/destroy. */ +/* 06/27/05 JRB 18 _mvlu_get_rd_rcb: add (MVLU_RPT_CLIENT **) arg.*/ +/* MVL61850_BRCB_CTRL: Add lastSentEntryID. */ +/* 05/27/05 CRM 17 Add mvlu_rpt_destroy_scan_ctrl. */ +/* 05/09/05 JRB 16 Define MVLU_LEAF_FUN_LOOKUP_ENABLE by default*/ +/* 12/09/04 JRB 15 Add "MVL61850_CTLMODEL_*" defines. */ +/* Add MVL61850_LAST_APPL.. struct. */ +/* Add mvlu_trim_branch_name, mvlu_find_comp_type,*/ +/* mvlu_get_leaf_val_*. */ +/* Add mvl61850_ctl_chk_sbo, mvl61850_ctl_chk_state.*/ +/* Add initSboCtrl. */ +/* 09/20/04 JRB 14 More SBO changes for IEC 61850. */ +/* 08/30/04 JRB 13 Add mvlu_sbo_chk_* prototypes. */ +/* 07/06/04 JRB 12 Add mvlu_rpt_create_scan_ctrl2 proto. */ +/* 06/30/04 JRB 11 Add "prim_num", "prim_offset_base" to */ +/* MVLU_RD_VA_CTRL, MVLU_WR_VA_CTRL. */ +/* Del global var mvluUseStaticData. */ +/* Del SCL parsing functions & related structs: */ +/* mvl61850_ln_create_start, mvl61850_do_create,*/ +/* mvl61850_da_create, mvl61850_ln_create_finish,*/ +/* & mvl61850_ln_destroy. New SCL standard */ +/* makes these obsolete. */ +/* 05/13/04 JRB 10 Add SqNumInt16u to MVLU_BASRCB. */ +/* Add define MVL61850_MAX_OBJREF_LEN. */ +/* 04/20/04 JRB 09 Add TRGOPS_BITNUM_* defines. */ +/* 12/17/03 JRB 08 61850-8-1 FDIS changes: */ +/* MVLU_BASRCB: Add TimeofEntry for 61850 BRCB. */ +/* Add OPTFLD_BITNUM_CONFREV = 8. */ +/* Chg OPTFLD_BITNUM_SUBSEQNUM from 8 to 9. */ +/* Increase MVLU_MAX_RPT_OPTS to 11. */ +/* 04/22/03 JRB 07 Add comments to dynamic 61850 type functs. */ +/* 04/17/03 JRB 06 Add mvlu_setup_scan_read. */ +/* 04/04/03 JRB 05 Fix integrity/GI scan code so multiple */ +/* concurrent scans don't corrupt one another. */ +/* u_mvlu_rpt_scan_done deleted. */ +/* 03/13/03 JRB 04 Add funcs for 61850 dynamic type creation. */ +/* Add 61850 URCB support. */ +/* MVLU_RPT_TYPEIDS: Use clearer member names. */ +/* MVLU_RPT_CTRL: Del inclusion_data & all */ +/* MVL_VAR_ASSOC vars. */ +/* MVLU_BASRCB: Add "Resv". */ +/* ucaName: Chg from ptr to array. */ +/* mvlu_proc_rt_type: Chg to use RUNTIME_CTRL. */ +/* TrgOps: Chg to Bvstring (variable len). */ +/* MVLU_RPT_CLIENT: add/delete members. */ +/* Add mvlu_integrity_timeout funct. */ +/* 12/17/02 JRB 03 Chg prefix to "MVLU_STR:" */ +/* Del all *typeId globals, use MVLU_RPT_TYPEIDS*/ +/* 12/14/02 JRB 02 Chg mvlu_create_rpt_ctrl, mvlu_send_report args*/ +/* Add mvlu_integrity_scan_* functions. */ +/* Add callback funct u_mvlu_rpt_time_get. */ +/* Chg OptFlds to BVstring9, add "bitnum" defines*/ +/* Add defs, protos, etc. fof IEC-61850. */ +/* Add ConfRev, EntryID to MVLU_BASRCB */ +/* Add scan_read_ind to MVLU_RPT_CLIENT */ +/* Add MVLU_RPT_TYPEIDS */ +/* Del rptTim_data, rptTim_va, rptTim_typeId */ +/* Del outDat_data, outDat_va, outDat_typeId */ +/* 12/10/02 JRB 01 Created from defs moved here from mvl_defs.h */ +/************************************************************************/ +#ifndef MVL_UCA_INCLUDED +#define MVL_UCA_INCLUDED + +#include "mvl_defs.h" /* This uses many common MVL definitions. */ + +#ifdef __cplusplus +extern "C" { +#endif + +/* Max number of mandatory and optional variables in IEC/UCA report. + * IEC & UCA share RPT code, so max must accomodate both. + * Includes RptID, OptFlds, SqNum, RptTim, OutDat (DataSetNa), + * & InclusionBitstring (plus BufOvfl, SubSeqNum, MoreSegmentsFollow, + * EntryId, & ConfRev for IEC only). + */ +#define MVLU_MAX_RPT_OPTS 11 + +/* Defines for IEC 61850 control model. */ +#define MVL61850_CTLMODEL_STATUS_ONLY 0 +#define MVL61850_CTLMODEL_DIRECT_NORMAL 1 +#define MVL61850_CTLMODEL_SBO_NORMAL 2 +#define MVL61850_CTLMODEL_DIRECT_ENHANCED 3 +#define MVL61850_CTLMODEL_SBO_ENHANCED 4 + +#define MVL61850_SBOCLASS_OPERATE_ONCE 0 +#define MVL61850_SBOCLASS_OPERATE_MANY 1 + +#define MVL61850_CTLSTATE_UNSELECTED 0 /* SBO only */ +#define MVL61850_CTLSTATE_READY 1 +#define MVL61850_CTLSTATE_WAIT_ACTIVATION_TIME 2 +#define MVL61850_CTLSTATE_WAIT_CHANGE 3 /* enhanced only*/ + +/* renxiaobao ±¨¸æ + ¿ØÖÆ´íÎ󱨸æµÄ¸½¼ÓÔ­ÒòÕï¶Ï(AddCause) + #define NO_ERROR 0 +*/ +#define ServiceError_type 1 /* 7-2±í5Öж¨ÒåµÄ²î´í*/ +#define Blocked_CB 2 /* ±»¿ª¹Ø±ÕËø (Blocked-by-switching-hierarchy) */ +#define Select_fail 3 /* Ñ¡Ôñʧ°Ü (Select-failed)*/ +#define Invalid_Pos 4 /* ²»ÕýȷλÖà (Invalid-position) */ +#define Position_reached 5 /* ¿ª¹ØÒÑ´¦ÓÚÆÚÍûµÄλÖà (Position-reached) */ +#define Parameter_change 6 /* Ö´ÐÐÖвÎÊý¸Ä±ä (Parameter-change-in-execution) */ +#define Step_limit 7 /* ²½ÏÞÖÆ,·Ö½ÓÍ·µÄλÖÃÒÑ´ïµ½ÉÏ/ÏÂÏÞ (Step-limit) */ +#define Blocked_by_Mode 8 /* LN(CSWI¡¢XCBRµÈ)´¦ÓÚ²»ÔÊÐíµÄ²Ù×÷ģʽ (Blocked-by-Mode)*/ +#define Blocked_by_process 9 /* ÓÉÓÚ¹ý³Ì²ãµÄÍⲿʼþ×èÖ¹³É¹¦²Ù×÷ (Blocked-by-process) */ +#define Blocked_by_interlocking 10 /* ÓÉÓÚ¿ª¹ØÉ豸»¥Ëø,±ÕËø¿ØÖƶ¯×÷ (Blocked-by-interlocking) */ +#define Blocked_by_synchrocheck 11 /* ÓÉÓÚ³¬Ê±»òͬÆÚÌõ¼þ²»Âú×ã,ÖÕÖ¹¿ØÖÆ (Blocked-by-synchrocheck) */ +#define Command_already 12 /* ÃüÁîÒѾ­ÔÚÖ´ÐÐÖÐ (Command-already-in-execution)*/ +#define Blocked_by_health 13 /* ±»½¡¿µ×´¿öËù±ÕËø (Blocked-by-health) */ +#define n_of_1_control 14 /* ÓÉÓÚÆäËû¿ØÖƶ¯×÷ÒÑÔËÐÐ,±ÕËø¿ØÖÆ (1-of-n-control) */ +#define Abortion_by_cancel 15 /* ±»Cancel·þÎñÖÐÖ¹ (Abortion-by-cancel) */ +#define Time_limit_over 16 /* ÓÉÓÚ³¬Ê±,ÖÕÖ¹¿ØÖƶ¯×÷ (Time-limit-over) */ +#define Abortion_by_trip 17 /* ÓÉÓÚ±£»¤ÌøÕ¢,ÖÕÖ¹¿ØÖÆ (Abortion-by-trip) */ +#define Object_not_selected 18 /* ¶ÔÏóδ±»Ñ¡Ôñ (Object-not-selected) */ +/*À뿪WaitForChange״̬֮ºó*/ +#define OPERATE_ONCE 0 /* Èç¹ûsboClassΪoperate_once,ÐÂ״̬ΪδѡÔñµÄ*/ +#define OPERATE_MANY 1 /* Èç¹ûsboClassΪoperate_many,ÐÂ״̬Ϊ׼±¸¾ÍÐ÷*/ + +#define WaitForChangeTimer 5000 +/************************************************************************/ +/* UCA SPECIFIC DATA ELEMENTS */ +/************************************************************************/ + +typedef struct mvlu_rd_va_ctrl + { + MVL_IND_PEND *indCtrl; + MVLAS_RD_VA_CTRL *rdVaCtrl; + RUNTIME_TYPE *rt; +#if defined(MVL_UCA) +#if defined(MVL_XNAME) + ST_CHAR xName[MAX_IDENT_LEN+1]; +#endif + ST_CHAR *primData; + ST_RTREF primRef; + ST_UINT prim_num; /* index to data */ + ST_UINT prim_offset_base; /* mem offset from start of "base" var */ +#endif /* defined(MVL_UCA) */ + } MVLU_RD_VA_CTRL; + +typedef struct mvlu_wr_va_ctrl + { + MVL_IND_PEND *indCtrl; + MVLAS_WR_VA_CTRL *wrVaCtrl; + RUNTIME_TYPE *rt; +#if defined(MVL_UCA) +#if defined(MVL_XNAME) + ST_CHAR xName[MAX_IDENT_LEN+1]; +#endif + ST_CHAR *primData; + ST_RTREF primRef; + ST_UINT prim_num; /* index to data */ + ST_UINT prim_offset_base; /* mem offset from start of "base" var */ +#endif /* defined(MVL_UCA) */ + } MVLU_WR_VA_CTRL; + +ST_VOID mvlu_wr_prim_done (MVLU_WR_VA_CTRL *mvluWrVaCtrl, ST_RET rc); +ST_VOID mvlu_rd_prim_done (MVLU_RD_VA_CTRL *mvluRdVaCtrl, ST_RET rc); +ST_VOID mvlu_read_ind (MVL_IND_PEND *indCtrl); + +/* These function pointers are invoked to initialize the va->data */ +/* element for each VariableAssociation required to handle the MMS */ +/* indication. */ + +extern ST_VOID(*mvluAsyncWrIndFun)(struct mvlu_wr_va_ctrl *mvluWrVaCtrl); + +/* Alternate leaf handler function pointers */ +extern ST_VOID (*u_mvlu_leaf_rd_ind_fun)(MVLU_RD_VA_CTRL *mvluRdVaCtrl); +extern ST_VOID (*u_mvlu_leaf_wr_ind_fun)(MVLU_WR_VA_CTRL *mvluWrVaCtrl); + +/* Finding and setting leaf access parameters */ +RUNTIME_TYPE *mvlu_find_rt_leaf (ST_INT type_id, ST_CHAR *leafName); + +#define MVLU_SET_RD_FUN 0x01 +#define MVLU_SET_WR_FUN 0x02 +#define MVLU_SET_REF 0x04 +#define MVLU_SET_ALL (MVLU_SET_RD_FUN | MVLU_SET_WR_FUN | MVLU_SET_REF) + +ST_RET mvlu_set_leaf_param (ST_INT setFlags, ST_CHAR *leafName, + ST_RTINT rdIndFunIndex, ST_RTINT wrIndFunIndex, + ST_RTREF ref); + + +/************************************************************************/ +/************************************************************************/ +/* Leaf Access Function Tables. To be supplied by the user. */ + +/* Comment the following line out to compile out the Foundry supplied */ +/* Leaf Access function pointer tables, so custom tables can be used */ +/*#define MVLU_USR_FUN_TBLS */ + +/* Remove this MVLU_LEAF_FUN_LOOKUP_ENABLE define to save memory, + * but ONLY IF NOT mapping leaf functions at run-time (i.e. not calling + * mvlu_set_leaf_param_name or mvlu_find_rd(wr)_ind_fun_index). + * NOTE: this define is required if SCL configuration is used. + */ +#define MVLU_LEAF_FUN_LOOKUP_ENABLE + +typedef struct + { +#if defined MVLU_LEAF_FUN_LOOKUP_ENABLE + ST_CHAR *fun_name; +#endif + ST_VOID (*fun_ptr) (MVLU_RD_VA_CTRL *rdCtrl); + } MVLU_RD_FUN_INFO; +extern MVLU_RD_FUN_INFO mvluRdFunInfoTbl[]; +extern ST_INT mvluNumRdFunEntries; + +typedef struct + { +#if defined MVLU_LEAF_FUN_LOOKUP_ENABLE + ST_CHAR *fun_name; +#endif + ST_VOID (*fun_ptr) (MVLU_WR_VA_CTRL *wrCtrl); + } MVLU_WR_FUN_INFO; +extern MVLU_WR_FUN_INFO mvluWrFunInfoTbl[]; +extern ST_INT mvluNumWrFunEntries; + +/* Useful for flexible initialization of leaf function tables */ +#if defined MVLU_LEAF_FUN_LOOKUP_ENABLE +#define _MVLU_LEAF_FUN_INIT(_funName) #_funName, _funName +#else +#define _MVLU_LEAF_FUN_INIT(_funName) _funName +#endif +ST_RTINT mvlu_find_rd_ind_fun_index (ST_CHAR *funName); +ST_RTINT mvlu_find_wr_ind_fun_index (ST_CHAR *funName); + + +/************************************************************************/ + +ST_RET mvlu_set_leaf_param_name (ST_INT setFlags, ST_CHAR *leafName, + ST_CHAR *rdIndFunName, ST_CHAR *wrIndFunName, + ST_CHAR *refString); +ST_RET mvlu_set_leaf_param_name2 (ST_INT base_var_type_id, + ST_INT setFlags, + ST_CHAR *leafName, + ST_CHAR *rdIndFunName, + ST_CHAR *wrIndFunName, + ST_CHAR *refString); +ST_RET mvlu_load_xml_leaf_file (ST_CHAR *fileName); +ST_RET u_mvlu_resolve_leaf_ref (ST_CHAR *leafName, ST_INT *setFlags, + ST_CHAR *refText, ST_RTREF *refOut); + +/* Prefix to use in XML LAP file, or when calling "mvlu_set_leaf_param_name" + * if you want a quoted string to be saved as the Reference. + * Following this is the string to be saved. + * This is used for SBO select, in which case the saved string must be + * the name of the protected element. Foundry and the sample "reference + * resolve leaf" function look for this prefix. + */ +#define MVLU_STRING_REF_PREFIX "MVLU_STR:" + +/* Internal */ +ST_VOID _mvlu_null_read_ind (MVLU_RD_VA_CTRL *mvluRdVaCtrl); +ST_VOID _mvlu_null_write_ind (MVLU_WR_VA_CTRL *mvluWrVaCtrl); + + + +typedef struct + { + ST_CHAR ucaName [MAX_IDENT_LEN+1]; + RUNTIME_TYPE *rt; + ST_INT sortedNum; + ST_INT rtIndex; + } MVLU_UCA_NAME_CTRL; + +ST_RET mvlu_proc_rt_type (ST_CHAR *typeName, RUNTIME_CTRL *rtCtrl, + MVLU_UCA_NAME_CTRL **ucaNamesOut); + +/************************************************************************/ +/************************************************************************/ +/* UCA REPORT CONTROL */ +/************************************************************************/ + +#define MVLU_RPT_NUM_VA_DATA_BUF 3 + +/* TrgOpsvalues, also used as Reason values */ +#define MVLU_TRGOPS_DATA 0x40 +#define MVLU_TRGOPS_QUALITY 0x20 +#define MVLU_TRGOPS_FREEZE 0x10 +#define MVLU_TRGOPS_INTEGRITY 0x08 /* Bit 4 */ +#define MVLU_TRGOPS_GI 0x04 /* Bit 5 */ + +/* OptFlds bit masks */ +#define MVLU_SQNUM_MASK 0x40 +#define MVLU_RPTTIM_MASK 0x20 +#define MVLU_REASONS_MASK 0x10 +#define MVLU_OUTDAT_MASK 0x08 + +/* TrgOps bit numbers for IEC-61850. */ +/* Use "bit" macros (BSTR_BIT_*) to access each individual bit. */ +#define TRGOPS_BITNUM_RESERVED 0 +#define TRGOPS_BITNUM_DATA_CHANGE 1 /* "dchg" in some specs */ +#define TRGOPS_BITNUM_QUALITY_CHANGE 2 /* "qchg" in some specs */ +#define TRGOPS_BITNUM_DATA_UPDATE 3 /* "dupd" in some specs */ +#define TRGOPS_BITNUM_INTEGRITY 4 /* "period" in 61850-6 */ +#define TRGOPS_BITNUM_GENERAL_INTERROGATION 5 + +/* OptFlds bit numbers for IEC-61850. */ +/* Use "bit" macros (BSTR_BIT_*) to access each individual bit. */ +/* NOTE: DATSETNAME in IEC-61850 same as OUTDAT in UCA. */ +/* NOTE: bit numbers 1 thru 4 correspond to the masks MVLU_SQNUM_MASK, */ +/* MVLU_RPTTIM_MASK, MVLU_REASONS_MASK, MVLU_OUTDAT_MASK above. */ +/* Bit masks don't work well beyond 8 bits. */ +#define OPTFLD_BITNUM_RESERVED 0 +#define OPTFLD_BITNUM_SQNUM 1 +#define OPTFLD_BITNUM_TIMESTAMP 2 +#define OPTFLD_BITNUM_REASON 3 +#define OPTFLD_BITNUM_DATSETNAME 4 +#define OPTFLD_BITNUM_DATAREF 5 +#define OPTFLD_BITNUM_BUFOVFL 6 +#define OPTFLD_BITNUM_ENTRYID 7 +#define OPTFLD_BITNUM_CONFREV 8 +#define OPTFLD_BITNUM_SUBSEQNUM 9 /* segmentation in 61850-8-1*/ + +/* Flags to pass as "rcb_type" arg to mvlu_create_rpt_ctrl. */ +/* Saved in "rcb_type" parameter of MVLU_RPT_CTRL. */ +#define RCB_TYPE_UCA 0 +#define RCB_TYPE_IEC_BRCB 1 +#define RCB_TYPE_IEC_URCB 2 + +/* Flags to pass as "buftim_action" arg to mvlu_create_rpt_ctrl. */ +/* Saved in "buftim_action" parameter of MVLU_RPT_CTRL. */ +#define MVLU_RPT_BUFTIM_REPLACE 0 +#define MVLU_RPT_BUFTIM_SEND_NOW 1 + +/* Basic Report Control Block data */ +typedef struct + { + ST_BOOLEAN RptEna; + ST_BOOLEAN Resv; /* Used only for 61850 URCB. */ + ST_CHAR RptID[MVL61850_MAX_RPTID_LEN+1]; + /* NOTE: DatSetNa is shorter for UCA, but bigger buffer shouldn't hurt.*/ + ST_CHAR DatSetNa[MVL61850_MAX_OBJREF_LEN+1]; + struct /* BVstring */ + { + ST_INT16 len_1; + ST_UCHAR data_1[2]; /* BVstring9 - need 2 bytes */ + } OptFlds; + ST_UINT32 BufTim; + ST_UINT16 Trgs; + ST_UINT8 SqNum; /* Used for UCA & 61850 URCB */ + ST_UINT16 SqNumInt16u; /* Used for 61850 BRCB */ + struct /* BVstring */ + { + ST_INT16 len; + ST_UCHAR data[1]; /* BVstring8 - need 1 byte */ + } TrgOps; + ST_UINT32 RBEPd; + ST_UINT32 IntgPd; + ST_UINT32 ConfRev; /* Used only for 61850 BRCB/URCB. */ + ST_UCHAR EntryID[8]; /* Used only for 61850 BRCB (Ostring8). */ + MMS_BTIME6 TimeofEntry; /* Used only for 61850 BRCB. */ + } MVLU_BASRCB; + +/* UCA Report Client control */ +typedef struct + { + DBL_LNK l; /* Internal use */ + MVL_NET_INFO *netInfo; + struct mvlu_rpt_ctrl *rpt_ctrl; /* report control */ + MVLU_BASRCB basrcb; /* report data */ + +/* Transmit timing control */ + ST_DOUBLE next_integ_rpt_time; + ST_DOUBLE next_rbe_rpt_time; + ST_DOUBLE buf_time_done; + ST_BOOLEAN integ_scan_in_progress; + +/* Data state control */ + ST_UINT16 numTrgs; + ST_UINT8 *reasons_data; /* array of reasons */ + ST_UINT8 *changed_flags; /* bitstring */ + ST_UINT8 *segmented_inclusion;/* inclusion bitstring for segmented rpt*/ + MVL_IND_PEND *scan_read_ind; /* Indication to pass to u_mvl_read_ind for scan*/ + } MVLU_RPT_CLIENT; + +/************************************************************************/ +/* Structures for saving Buffered report data. */ +/************************************************************************/ +/* VAR_DATA - data for one variable of a Report Dataset. */ +typedef struct var_data + { + ST_VOID *data_ptr; /* ptr to raw MMS Variable data */ + /* (allocated) */ + ST_INT data_len; /* length of raw MMS Variable data */ + ST_UINT8 reason_for_incl; /* reason for inclusion */ + } VAR_DATA; + +/* BUFLIST_ENTRY - data for one buffered rpt (stored on linked list). */ +/* Data in this struct usually changes with each Report, so must be */ +/* saved in the buffer. Other data may be taken directly from the RCB */ +/* when a Report is sent. */ +typedef struct buflist_entry + { + /* CRITICAL: First 2 parameters used to add this struct to linked */ + /* lists using list_add_last, etc. */ + struct buflist_entry *next; /* CRITICAL: DON'T MOVE. */ + struct buflist_entry *prev; /* CRITICAL: DON'T MOVE. */ + ST_UCHAR EntryID[8]; /* Rpt EntryID (Ostring8) */ + MMS_BTIME6 TimeOfEntry; /* Rpt TimeOfEntry */ + ST_INT num_var; /* Num of var in var_data array */ + VAR_DATA *var_data; /* Ptr to array of structs, one for each*/ + /* var (allocated) */ + ST_INT *asn1_len_array; /* Array of ASN.1 lengths, one for each */ + /* var in Dataset (allocated) */ + ST_INT cur_va_index; /* Index to next var in Dataset to send */ + /* (used when segmenting) */ + ST_UINT16 SubSeqNum; /* SubSeqNum of next segment to send */ + } BUFLIST_ENTRY; + +/* MVL61850_BRCB_CTRL */ +typedef struct + { + /* Optional parameters to send in rpt (if appropriate OptFlds bit set).*/ + ST_BOOLEAN BufOvfl; + /* Internal parameters */ + BUFLIST_ENTRY *rpt_list; /* Linked list of buffered reports */ + BUFLIST_ENTRY *rpt_list_next; /* Next rpt to send from "rpt_list" */ + /* (NULL if list empty or all sent) */ + ST_INT rpt_count; /* count of entries in "rpt_list" */ + /* once buffer's full, shouldn't change much*/ + ST_UINT rpts_lost_count; /* # rpts lost because of overflow */ + ST_INT rpts_sent_total;/*renxiaobao ±¨¸æ*/ + ST_INT brcb_bufsize; + ST_INT cur_bufsize; + ST_BOOLEAN enabled_once; /* TRUE if BRCB was enabled at least once*/ + ST_UCHAR lastSentEntryID[8]; + MMS_BTIME6 lastSentTimeOfEntry; + } MVL61850_BRCB_CTRL; + +/* TypeIDs for special report types created by mvlu_rpt_init_types. */ +typedef struct + { + ST_INT mmsbool; /* named so not confused with C++ 'bool' type */ + ST_INT int8u; /* for SqNum */ + ST_INT int16u; + ST_INT int32u; + ST_INT vstring65; /* for RptID */ + ST_INT btime6; /* for EntryTime */ + ST_INT ostring8; /* for EntryID */ + ST_INT vstring32; /* for RptId */ + ST_INT bvstring6; /* for TrgOps (IEC) */ + ST_INT bvstring8; /* for OptFlds,TrgOps (UCA) */ + ST_INT bvstring10; /* for OptFlds (IEC) */ + ST_INT bstr6; /* for Reason (IEC) */ + ST_INT bstr8; /* for Reason (UCA) */ + ST_INT vstring129; /* for ObjectReference (IEC) */ + } MVLU_RPT_TYPEIDS; + +/* For backward compatibility ... do not use */ +#define MVLU_SEQNUM_MASK MVLU_SQNUM_MASK + +#define MVLU_MAX_RPTID_LEN 65 +#define MVLU_MAX_OUTDAT_LEN 65 + + +/* MVLU_RPT_CTRL */ +typedef struct mvlu_rpt_ctrl + { + DBL_LNK l; /* Internal use */ + +/* Active clients */ + +/* NOTE: "only_client" for 61850 only. */ + MVLU_RPT_CLIENT only_client; /* exactly 1. Don't need list */ + +/* NOTE: "num_rpt_clients", "rpt_client_list", "common_basrcb" for UCA only.*/ + ST_INT num_rpt_clients; + MVLU_RPT_CLIENT *rpt_client_list; + +/* basrcb data for passive read clients */ + MVLU_BASRCB common_basrcb; + ST_CHAR *basrcb_name; + +/* Used in read/write indication functions in finding the report ctrl */ + RUNTIME_TYPE *rcbRtHead; + MVL_VAR_ASSOC *base_va; + +/* Used to support different report schemes */ + ST_INT rcb_type; /* RCB_TYPE_UCA, RCB_TYPE_IEC_BRCB, etc. */ + +/* Action to be taken if var changes twice before buftim expires */ + ST_INT buftim_action; /* MVLU_RPT_BUFTIM_REPLACE/SEND_NOW */ + +/* The information below is used internally by MVLU */ + MVL_NVLIST_CTRL *dsNvl; /* The base dataSet for the report */ + MVL_NVLIST_CTRL rptNvl; /* The NVL used to send the InfoRpt */ + RUNTIME_TYPE incRt; /* Used in building the inclusion_va */ + ST_INT maxNumRptVars; /* Max vars allowed in report. */ + MVLU_RPT_TYPEIDS rpt_typeids; /* Types needed for reports. */ + ST_INT inclusion_typeid; /* One more special type. */ + MVL61850_BRCB_CTRL brcbCtrl; /* Used only for 61850 BRCB. */ + ST_DOUBLE scan_rate; /* Scan rate in milliseconds */ + ST_DOUBLE next_scan_start; /* Time for next scan */ + } MVLU_RPT_CTRL; + +extern MVLU_RPT_CTRL *mvlu_rpt_ctrl_list; /* List of only UCA RCBs.*/ +extern MVLU_RPT_CTRL *mvl61850_rpt_ctrl_list; /* List of only 61850 RCBs.*/ + +/* UCA VA Scan Control */ +typedef struct + { + DBL_LNK l; /* Internal use */ + ST_BOOLEAN enable; + ST_DOUBLE scan_period; + ST_DOUBLE next_scan_start; + ST_BOOLEAN saturated; + ST_INT num_va_changes; + + ST_INT num_scan_va; + MVL_VAR_ASSOC **scan_va; + ST_INT num_va_read_pend; + + MVL_IND_PEND indCtrl; + MVL_COMM_EVENT commEvent; + MVL_SCOPE *scan_va_scope; /* ptr to array of structs. */ + ST_VOID *usr; /* user assignable pointer to use in scan callbacks*/ + } MVLU_RPT_SCAN_CTRL; +extern MVLU_RPT_SCAN_CTRL *mvlu_rpt_scan_list; + + +/* Report Service */ +ST_VOID mvlu_rpt_service (ST_VOID); + +/* Report Variable Scanning */ +MVLU_RPT_SCAN_CTRL *mvlu_rpt_create_scan_ctrl (ST_INT numScanVa); +MVLU_RPT_SCAN_CTRL *mvlu_rpt_create_scan_ctrl2 ( + MVL_NVLIST_CTRL *nvl, + ST_RET (*scan_done_fun) (struct mvl_ind_pend *ind_pend), + ST_UINT report_scan_rate); /* report scan rate (millisec) */ +ST_VOID mvlu_rpt_destroy_scan_ctrl (MVLU_RPT_SCAN_CTRL *scanCtrl); +ST_VOID mvlu_rpt_va_scan (ST_VOID); +ST_VOID mvlu_rpt_scan_read (MVLU_RPT_SCAN_CTRL *scanCtrl); + +/* Asynchronous Change Reporting */ +ST_VOID mvlu_rpt_va_change (MVL_VAR_ASSOC *va, + ST_UCHAR reason, + ST_VOID *new_data); + +/* Creating Report Dataset NVL's */ +MVL_NVLIST_CTRL *mvlu_derive_rpt_ds (ST_CHAR *domName, ST_CHAR *nvlName, + ST_INT numNodes, ST_CHAR **nodeNames); + +/* Structure Element name derivation */ +ST_RET mvlu_derive_ds_va_names (ST_CHAR *domName, + ST_INT numNodes, ST_CHAR **nodeNames, + ST_INT *numObjNamesOut, + OBJECT_NAME **objNameTblOut, + ST_CHAR **nameBufOut); + + +/* Report Control Create/Free */ +/* NOTE: The "buftim_action" arg may be set to + * MVLU_RPT_BUFTIM_REPLACE or MVLU_RPT_BUFTIM_SEND_NOW. + * This arg is only used in the case when buffer + * time (BufTim) is used, and a second data change is detected for the + * same "va", before the BufTim expires. To satisfy the requirements of + * IEC61850-7-2, the caller must set this flag to indicate whether to + * replace the buffered value with the new value and continue timing + * (MVLU_RPT_BUFTIM_REPLACE), OR to send a report immediately with the + * buffered value, save the new value in the buffer, and restart the timer + * (MVLU_RPT_BUFTIM_SEND_NOW). + */ +MVLU_RPT_CTRL *mvlu_create_rpt_ctrl (ST_CHAR *basrcbName, + MVL_NVLIST_CTRL *dsNvl, + MVL_VAR_ASSOC *base_va, + ST_INT rcb_type, + ST_INT buftim_action, /* MVLU_RPT_BUFTIM_* */ + ST_INT brcb_bufsize, /* for BRCB only */ + ST_UINT32 ConfRev); /* for BRCB/URCB only */ +ST_VOID mvlu_free_rpt_ctrl (MVLU_RPT_CTRL *rptCtrl); + +/* Main reporting functions for IEC 61850 only. */ +MVLU_RPT_CTRL *mvl61850_create_rpt_ctrl (ST_CHAR *basrcbName, + MVL_NVLIST_CTRL *dsNvl, + MVL_VAR_ASSOC *base_va, + ST_INT rcb_type, + ST_INT buftim_action, /* MVLU_RPT_BUFTIM_* */ + ST_INT brcb_bufsize, /* for BRCB only */ + ST_UINT32 ConfRev); /* for BRCB/URCB only */ +ST_VOID mvl61850_free_rpt_ctrl (MVLU_RPT_CTRL *rptCtrl); +ST_VOID mvl61850_rpt_service (char *dom,char CHG); +ST_RET mvl61850_rpt_dataset_create (MVLU_RPT_CTRL *rptCtrl, + MVL_NVLIST_CTRL *dsNvl); +ST_VOID mvl61850_rpt_dataset_destroy (MVLU_RPT_CTRL *rptCtrl); + +/************************************************************************/ +/* mvlu_integrity_scan_destroy */ +/* Free temporary MVL_IND_PEND allocated by mvlu_integrity_scan_read. */ +/************************************************************************/ +ST_VOID mvlu_integrity_scan_destroy (MVL_IND_PEND *indCtrl); + +/* + * mvlu_integrity_scan_read + * This function "BEGINS" the scan of ALL data for one Report DataSet (NVL). + * It is called automatically when an Integrity Report or a + * General Interrogation Report needs to be sent. This is much more + * efficient than constantly scanning. + * - It allocates & initializes a temporary MVL_IND_PEND structure. + * - It calls "u_mvl_read_ind" to begin the scan. + * - The scan may complete synchronously or asynchronously. + * - When the scan completes, the funct pointed to by "scan_done_fun" arg + * is called to build the report and cleanup. + * CRITICAL: Function pointed to by "scan_done_fun" must call + * "mvlu_integrity_scan_destroy" to free temporary MVL_IND_PEND struct. + */ + +ST_VOID mvlu_integrity_scan_read (MVLU_RPT_CLIENT *rptClient, + ST_VOID (*scan_va_done_fun)(MVL_IND_PEND *indCtrl, + MVL_VAR_ASSOC *va), + ST_RET (*scan_done_fun)(MVL_IND_PEND *indCtrl) + ); + +MVL_IND_PEND *mvlu_setup_scan_read (MVL_NVLIST_CTRL *nvl, + ST_VOID (*scan_va_done_fun)(MVL_IND_PEND *indCtrl, + MVL_VAR_ASSOC *va), + ST_RET (*scan_done_fun)(MVL_IND_PEND *indCtrl) + ); + +/************************************************************************/ +/* mvlu_integrity_timeout */ +/* Check for Integrity period timeout. If timeout occurred, start */ +/* integrity scan. */ +/* RETURNS: SD_TRUE if IntgPd is set and timeout occurred */ +/* SD_FALSE otherwise */ +/************************************************************************/ +ST_RET mvlu_integrity_timeout (MVLU_RPT_CLIENT *rptClient, ST_DOUBLE timeNow); + +/* Pointer to one of these functions passed to "mvlu_integrity_scan_read", + * saved in "usr_done_fun" in MVL_IND_PEND struct. Called when scan completes. + */ +ST_RET mvlu_integrity_scan_done (MVL_IND_PEND *indCtrl); +ST_RET mvlu_gi_scan_done (MVL_IND_PEND *indCtrl); + +/* Pointer to one of these functions passed to "mvlu_integrity_scan_read", + * stored in global var. Called when each va read completes. + */ +ST_VOID mvlu_integrity_scan_va_done (MVL_IND_PEND *indCtrl, MVL_VAR_ASSOC *va); +ST_VOID mvlu_gi_scan_va_done (MVL_IND_PEND *indCtrl, MVL_VAR_ASSOC *va); + +extern ST_VOID (*_mvlu_rpt_disconnect_rcvd_fun)(MVL_NET_INFO *netInfo); + +MVL_NVLIST_CTRL *mvlu_resolve_uca_nvl (MVL_NVLIST_CTRL *ucaNvl, + OBJECT_NAME *scopeSel); + +/* Defines for UCA/IEC report type, "rpt_type" arg to "mvlu_send_report"*/ +#define MVLU_RPT_TYPE_INTEGRITY_OR_GI 0 +#define MVLU_RPT_TYPE_RBE 1 + +ST_RET mvlu_send_report (MVLU_RPT_CLIENT *rptClient, ST_INT rpt_type); + +/* u_mvlu_rpt_time_get - User callback function to set accurate time + * that UCA/IEC report is built, called by "mvlu_send_report" or + * "mvl61850_rcb_build" when report is being built. + */ +ST_VOID u_mvlu_rpt_time_get (MMS_BTIME6 *TimeOfEntry); + +/* Misc. Helper Functions */ +ST_INT mvlu_rpt_get_va_index (MVLU_RPT_CTRL *rptCtrl, MVL_VAR_ASSOC *va); +MVLU_BASRCB *_mvlu_get_rd_rcb (MVLU_RD_VA_CTRL *mvluRdVaCtrl, + MVLU_RPT_CLIENT **rptClientOut); +MVLU_BASRCB *_mvlu_get_wr_rcb (MVLU_WR_VA_CTRL *mvluWrVaCtrl, + MVLU_RPT_CLIENT **rptClientOut); +MVLU_BASRCB *mvl61850_get_rcb (MVL_VAR_ASSOC *baseVa, + RUNTIME_TYPE *rt, + MVLU_RPT_CLIENT **rptClientOut); + +ST_VOID _mvlu_rpt_disconnect_rcvd (MVL_NET_INFO *netInfo); +ST_RET mvlu_rpt_find_typeids (MVLU_RPT_TYPEIDS *rpt_typeids); +ST_RET mvlu_rpt_rcb_type_find (ST_INT type_id, ST_CHAR *basrcbName, + RUNTIME_TYPE **rcbHeadOut, ST_INT *numRtOut); + + +ST_RET mvlu_find_uca_var (RUNTIME_TYPE **rtIo, ST_INT *numRtIo, + ST_CHAR *varName); + + +/************************************************************************/ +/************************************************************************/ +/* SBO HANDLING ELEMENTS */ + +#define SBO_SELECT_TIMEOUT 30 /* seconds */ +#define MAX_NUM_SBO_PEND 10 /* Number of SBOs to be pending */ +#define MAX_SBO_NAME_SIZE 66 + +typedef struct mvl_sbo_ctrl + { + ST_BOOLEAN in_use; /* control element management */ + ST_INT ctlState; /* Control state (MVL61850_CTLSTATE_*) */ + ST_BOOLEAN use_ms_timer; /* if TRUE, use expire_time_ms below*/ + ST_CHAR sbo_var[MVL61850_MAX_OBJREF_LEN+1]; /* ObjRef of "Oper" attr*/ + MVL_NET_INFO *net_info; /* Connection ID */ + time_t expire_time; /* SELECT expiration time */ + ST_DOUBLE expire_time_ms; /* SELECT expiration time in ms */ + ST_INT8 ctlModel; /* sbo-with-normal-security, etc*/ + ST_INT8 sboClass; /* operate-once or operate-many */ + /* renxiaobao ¿ØÖÆ*/ + double Oper_WaitForChangeTimer; + short Oper_data_len; + void *Oper_map_entry; + void *Oper_ctlVal; + void *Oper_stVal; + MVL61850_LAST_APPL_ERROR LastApplError; + } MVL_SBO_CTRL; + + +ST_VOID u_mvl_sbo_operate (MVL_SBO_CTRL *sboSelect, + MVLU_WR_VA_CTRL *mvluWrVaCtrl); + +ST_VOID mvlu_clr_pend_sbo (MVL_NET_INFO *net_info); + +MVL_SBO_CTRL *mvlu_sbo_chk_state (ST_CHAR *sboName, + MVL_NET_INFO *net_info); +ST_VOID mvlu_sbo_chk_timers (ST_VOID); +ST_VOID mvlu_sbo_ctrl_free (MVL_SBO_CTRL *sboCtrl); +MVL_SBO_CTRL *initSboCtrl (MVL_NET_INFO *net_info, + ST_CHAR *sbo_name, + ST_UINT32 sboTimeout, + ST_BOOLEAN use_ms_timer); + + +/************************************************************************/ +/************************************************************************/ +/* IEC-61850 functions */ +/************************************************************************/ + +/* + * mvl61850_brcb_client_service + * + * Check the BRCB state and, if necessary, + * encode, queue, AND/OR send IEC "Buffered" reports. + */ +ST_VOID mvl61850_brcb_client_service (MVLU_RPT_CTRL *rptCtrl, + MVLU_RPT_CLIENT *rptClient, + ST_DOUBLE timeNow); + +/** + * mvl61850_urcb_client_service + * + * Check the URCB state and, if necessary, + * encode AND send IEC "Unbuffered" reports. + */ +ST_VOID mvl61850_urcb_client_service (MVLU_RPT_CTRL *rptCtrl, + MVLU_RPT_CLIENT *rptClient, + ST_DOUBLE timeNow); + +ST_RET mvlu_rpt_ready (MVLU_RPT_CLIENT *rptClient, ST_INT rpt_type); +ST_RET mvl61850_urcb_rpt_send (MVLU_RPT_CTRL *rptCtrl, + MVLU_RPT_CLIENT *rptClient, + ST_INT rpt_type); +ST_RET mvl61850_brcb_rpt_save (MVLU_RPT_CLIENT *rptClient); +ST_RET mvl61850_brcb_rpt_send (MVLU_RPT_CTRL *rptCtrl, + MVLU_RPT_CLIENT *rptClient, + BUFLIST_ENTRY *buflist_entry, + ST_BOOLEAN *all_seg_done); +ST_VOID mvl61850_brcb_entryid_init (MVLU_RPT_CTRL *rptCtrl, ST_UINT8 *EntryID); + +ST_VOID mvl61850_brcb_rpt_lists_clean (MVL61850_BRCB_CTRL *brcbCtrl); + +/* Internal IEC 61850 reporting functions (not called by user). */ +ST_RET mvl61850_mk_rptid (MVLU_RPT_CTRL *rptCtrl, ST_CHAR *RptID, size_t max_len); +ST_VOID mvl61850_mk_dataref (MVL_VAR_ASSOC *va, MVL_SCOPE *va_scope, + ST_CHAR *databuf, ST_INT maxlen); +ST_VOID mvl61850_rcb_cleanup (MVLU_RPT_CLIENT *rptClient); +ST_RET mvl61850_brcb_rpt_set_entryid (MVLU_RPT_CLIENT *rptClient, ST_UCHAR *EntryID); +ST_VOID mvl61850_rcb_chk_state (MVLU_RPT_CTRL *rptCtrl, + MVLU_RPT_CLIENT *rptClient, + ST_DOUBLE timeNow); +ST_RET mvl61850_integrity_timeout (MVLU_RPT_CLIENT *rptClient, ST_DOUBLE timeNow); +ST_BOOLEAN chk_seg_needed (MVLU_RPT_CLIENT *rptClient, + ST_INT *asn1_len_array, + ST_INT cur_va_index, /* input arg */ + ST_INT *next_va_index); /* output arg */ + +/************************************************************************/ +/* IEC 61850 "Control Model" functions. */ +/************************************************************************/ +ST_VOID mvl61850_sbo_create_sboname (MVL_VAR_ASSOC *va, MVL_SCOPE *va_scope, + ST_CHAR *sboName); + +MVL_SBO_CTRL *mvl61850_ctl_chk_sbo (MVLU_RD_VA_CTRL *mvluRdVaCtrl); +MVL_SBO_CTRL *mvl61850_ctl_chk_sbow (MVLU_WR_VA_CTRL *mvluWrVaCtrl); + +ST_RET mvl61850_ctl_chk_state (MVLU_WR_VA_CTRL *mvluWrVaCtrl); + +ST_RET mvl61850_ctl_lastapplerror_create (ST_VOID); +ST_RET mvl61850_ctl_lastapplerror_send (MVL_NET_INFO *net_info, + MVL61850_LAST_APPL_ERROR *last_appl_error); +ST_RET mvl61850_ctl_command_termination (MVL_NET_INFO *net_info, ST_CHAR *oper_ref, + ST_RET status, MVL61850_LAST_APPL_ERROR *last_appl_error); +ST_VOID mvl61850_ctl_req_done (MVLAS_WR_VA_CTRL *wrVaCtrl, MVL_NET_INFO *net_info); + +/* These callback functions must be supplied by user. */ +ST_VOID u_mvl61850_ctl_oper_begin (ST_CHAR *oper_ref); +/*renxiaobao ¿ØÖÆ*/ +/*ST_VOID u_mvl61850_ctl_oper_end (MVL_NET_INFO *net_info, ST_CHAR *oper_ref, MVL_VAR_ASSOC *base_var);*/ +ST_VOID u_mvl61850_ctl_oper_end (MVL_NET_INFO *net_info, ST_CHAR *oper_ref, MVL_VAR_ASSOC *base_var, + void *ctlVal,void *stVal,short len,void *map_entry,MVL61850_LAST_APPL_ERROR *LastApplError); + +ST_RET mvl61850_mkname_ctlmodel (ST_CHAR *var_name, ST_CHAR *flatname, size_t flatname_len); + +/************************************************************************/ +/* Miscellaneous helper functions */ +/************************************************************************/ +ST_VOID mvlu_trim_branch_name (ST_CHAR *branch_name); +ST_RET mvlu_find_comp_type (ST_INT base_type_id, ST_CHAR *flat_name, + RUNTIME_TYPE **sub_rt_type, /* out */ + ST_INT *sub_rt_num); /* out */ + +ST_RET mvlu_get_leaf_val_int8 (MVL_VAR_ASSOC *base_va, ST_CHAR *flatname, ST_INT8 *data); +ST_RET mvlu_get_leaf_val_int32 (MVL_VAR_ASSOC *base_va, ST_CHAR *flatname, ST_INT32 *data); +ST_RET mvlu_get_leaf_val_int_any (MVL_VAR_ASSOC *base_va, ST_CHAR *flatname, ST_INT32 *data); +ST_RET mvlu_get_leaf_val_uint32 (MVL_VAR_ASSOC *base_va, ST_CHAR *flatname, ST_UINT32 *data); +ST_RET mvlu_get_leaf_val_boolean (MVL_VAR_ASSOC *base_va, ST_CHAR *flatname, ST_BOOLEAN *data); +ST_RET mvlu_get_leaf_val_bvstring (MVL_VAR_ASSOC *base_va, ST_CHAR *flatname, + MMS_BVSTRING *data, ST_INT max_num_bits); +ST_VOID *mvlu_get_leaf_data_ptr (MVL_VAR_ASSOC *base_va, ST_CHAR *flatname, RUNTIME_TYPE **rt_type); +ST_RET _rcb_writable (MVLU_BASRCB *rcb, MVLU_RPT_CLIENT *rptClient, + MVLU_WR_VA_CTRL *mvluWrVaCtrl); +ST_RET mvl61850_objref_create (ST_CHAR *objName, + MVL_SCOPE *objScope, + ST_CHAR *objRef); /* ptr to ObjectReference */ + +/************************************************************************/ +/* Global variables. */ +/************************************************************************/ +extern MVL_SBO_CTRL sbo_pool[]; /* array of SBO control structures. */ + +/* This function pointer called BEFORE all write leaf functions. */ +/* NOTE: called only for complex variables (struct or array). */ +extern ST_RET (*u_mvl_wr_ind_var_start)(MVL_IND_PEND *indCtrl, + MVLAS_WR_VA_CTRL *wrVaCtrl); /* current var in list of var */ + +/* This function pointer called AFTER all write leaf functions. */ +/* NOTE: called only for complex variables (struct or array). */ +extern ST_RET (*u_mvl_wr_ind_var_end)(MVL_IND_PEND *indCtrl, + MVLAS_WR_VA_CTRL *wrVaCtrl); /* current var in list of var */ + +/************************************************************************/ +#ifdef __cplusplus +} +#endif + +#endif /* MVL_UCA_INCLUDED */ + diff --git a/include/inc/ntddosi.h b/include/inc/ntddosi.h new file mode 100644 index 0000000..0cf01a6 --- /dev/null +++ b/include/inc/ntddosi.h @@ -0,0 +1,114 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1996, All Rights Reserved */ +/* */ +/* MODULE NAME : osillc.h */ +/* PRODUCT(S) : OSI LLC NDIS 3.0 Device Driver for NT */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 05/13/98 DSF 05 Added SeqNumber field to PACKET_BLOCK */ +/* 05/07/98 DSF 04 The size of PACKET_BLOCK is now user-settable*/ +/* 06/19/97 DSF 03 Added Stats */ +/* 09/10/96 DSF 02 Used Length field in SET_MULTI */ +/* 05/22/96 DSF 01 Initial Release */ +/* */ +/************************************************************************/ + +#ifndef __NTDDOSILLC +#define __NTDDOSILLC + +#if defined (_NTDDK_) +#include +#else +#include +#endif + +#pragma pack(1) + +// +// standard 802.3 defines (not defined elsewhere) +// +#define ETH_LENGTH_OF_HEADER 14 +#define ETH_MINIMUM_LENGTH_OF_DATA 46 +#define ETH_MAXIMUM_LENGTH_OF_DATA 1500 +#define ETH_LENGTH_OF_FRAME 1514 + + +// max number of packets that will be returned at a time +#define OSILLC_MAX_RXPACKETS 10 + +typedef struct _NT_PACKET_DATA +{ + ULONG Length; + UCHAR Data[ETH_LENGTH_OF_FRAME]; +} NT_PACKET_DATA, * PNT_PACKET_DATA; + +typedef struct _NT_PACKET_BLOCK +{ + ULONG NumberOfPackets; + ULONG SeqNumber; + NT_PACKET_DATA PacketData[1]; +} NT_PACKET_BLOCK, * PNT_PACKET_BLOCK; + + +#if 0 +typedef struct _NT_ARM_EVENT +{ + UINT Status; +} NT_ARM_EVENT; +#endif + + +typedef struct _PACKET_OID_DATA +{ + ULONG Oid; + ULONG Length; + UCHAR Data[1]; +} PACKET_OID_DATA, * PPACKET_OID_DATA; + + +#if !defined (GET_STATS_DEFINED) +typedef struct _GET_STATS +{ + ULONG XmitOk; + ULONG RcvOk; + ULONG XmitError; + ULONG RcvError; + ULONG RcvUnknown; + ULONG XmitInd; + ULONG RcvInd; + ULONG AllocError; +} GET_STATS; + +#define GET_STATS_DEFINED +#endif + +// base for IOCTLs +#define FILE_DEVICE_PROTOCOL 0x8000 + +#define OSILLC_CONTROL_CODE(request, method) \ + CTL_CODE(FILE_DEVICE_PROTOCOL, request, method, FILE_ANY_ACCESS) + +#define IOCTL_OSILLC_QUERY_OID OSILLC_CONTROL_CODE(0, METHOD_BUFFERED) +#define IOCTL_OSILLC_SET_OID OSILLC_CONTROL_CODE(1, METHOD_BUFFERED) +#define IOCTL_OSILLC_GET_STATS OSILLC_CONTROL_CODE(2, METHOD_BUFFERED) +#define IOCTL_OSILLC_SET_EVENT OSILLC_CONTROL_CODE(3, METHOD_BUFFERED) +#define IOCTL_OSILLC_CLEAR_EVENT OSILLC_CONTROL_CODE(4, METHOD_BUFFERED) +#define IOCTL_OSILLC_GET_MACNAME OSILLC_CONTROL_CODE(5, METHOD_BUFFERED) +#define IOCTL_OSILLC_ARM_EVENT OSILLC_CONTROL_CODE(6, METHOD_BUFFERED) +#define IOCTL_OSILLC_RESET OSILLC_CONTROL_CODE(7, METHOD_BUFFERED) + +#define IOCTL_OSILLC_GET_PACKETS OSILLC_CONTROL_CODE(8, METHOD_OUT_DIRECT) +#define IOCTL_OSILLC_SEND_PACKETS OSILLC_CONTROL_CODE(9, METHOD_IN_DIRECT) + +#endif + +#pragma pack() diff --git a/include/inc/osillc.h b/include/inc/osillc.h new file mode 100644 index 0000000..b433d5c --- /dev/null +++ b/include/inc/osillc.h @@ -0,0 +1,97 @@ +//--------------------------------------------------------------------------- +// +// File: osillc.h +// +// Copyright (c) 1998,1999 SISCO, Inc. All rights reserved. +// +// Description: Driver external definitions. +// +// Author: A. Shajenko/Stratos Technology, Inc. +// +// History: +// 13-Sep-98 A. Shajenko Implemented. +// +//--------------------------------------------------------------------------- + +#ifndef _OSILLC_H +#define _OSILLC_H + +#if defined (_NTDDK_) +#include +#else +#include +#endif + +//////////////////////////////////////////////////////////////////////////////////// + +#pragma pack(1) + +// +// standard 802.3 defines (not defined elsewhere) +// +#define ETH_LENGTH_OF_HEADER 14 +#define ETH_MINIMUM_LENGTH_OF_DATA 46 +#define ETH_MAXIMUM_LENGTH_OF_DATA 1500 +#define ETH_LENGTH_OF_FRAME 1514 + + +// max number of packets that will be returned at a time +#define OSILLC_MAX_RXPACKETS 10 + +typedef struct _OSILLC_PACKET_DATA +{ + ULONG Length; + UCHAR Data[ETH_LENGTH_OF_FRAME]; +} OSILLC_PACKET_DATA, * POSILLC_PACKET_DATA; + +typedef struct _OSILLC_PACKET_BLOCK +{ + ULONG NumberOfPackets; + ULONG SeqNumber; + OSILLC_PACKET_DATA PacketData[OSILLC_MAX_RXPACKETS]; +} OSILLC_PACKET_BLOCK, * POSILLC_PACKET_BLOCK; + + +typedef struct _OSILLC_OID_DATA +{ + ULONG Oid; + ULONG Length; + ULONG BytesProcessed; + ULONG BytesNeeded; + ULONG Status; + UCHAR Data[1]; +} OSILLC_OID_DATA, * POSILLC_OID_DATA; + +typedef struct _OSILLC_GET_STATS +{ + ULONG XmitOk; + ULONG RcvOk; + ULONG XmitError; + ULONG RcvError; + ULONG RcvUnknown; + ULONG XmitInd; + ULONG RcvInd; + ULONG AllocError; +} OSILLC_GET_STATS, * POSILLC_GET_STATS; + +// base for IOCTLs +#define FILE_DEVICE_PROTOCOL 0x8000 + +#define OSILLC_CONTROL_CODE(request, method) \ + CTL_CODE(FILE_DEVICE_PROTOCOL, request, method, FILE_ANY_ACCESS) + +#define IOCTL_OSILLC_QUERY_OID OSILLC_CONTROL_CODE(0, METHOD_BUFFERED) +#define IOCTL_OSILLC_SET_OID OSILLC_CONTROL_CODE(1, METHOD_BUFFERED) +#define IOCTL_OSILLC_GET_STATS OSILLC_CONTROL_CODE(2, METHOD_BUFFERED) +#define IOCTL_OSILLC_GET_MACNAME OSILLC_CONTROL_CODE(3, METHOD_BUFFERED) +#define IOCTL_OSILLC_RESET OSILLC_CONTROL_CODE(4, METHOD_BUFFERED) + +#define IOCTL_OSILLC_BIND OSILLC_CONTROL_CODE(10, METHOD_BUFFERED) +#define IOCTL_OSILLC_UNBIND OSILLC_CONTROL_CODE(11, METHOD_BUFFERED) +#define IOCTL_OSILLC_WRITE OSILLC_CONTROL_CODE(12, METHOD_BUFFERED) +#define IOCTL_OSILLC_READ OSILLC_CONTROL_CODE(13, METHOD_BUFFERED) + +#pragma pack() + +#endif _OSILLC_H + diff --git a/include/inc/qmem.h b/include/inc/qmem.h new file mode 100644 index 0000000..a9bdcbc --- /dev/null +++ b/include/inc/qmem.h @@ -0,0 +1,35 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1997, All Rights Reserved */ +/* */ +/* MODULE NAME : qmem.h */ +/* PRODUCT(S) : Quick Memory Allocator */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifdef __cplusplus +extern "C" { +#endif + +ST_RET qMemInit (ST_INT NumElem); +ST_VOID *qMemAlloc (ST_INT size); +ST_VOID qMemFree (ST_VOID *ptr); + +extern ST_INT qMemElemSize; /* default = 126 (must be power */ + /* of 2 - 2) */ + + +#ifdef __cplusplus +} +#endif diff --git a/include/inc/rs_a.h b/include/inc/rs_a.h new file mode 100644 index 0000000..3eec10c --- /dev/null +++ b/include/inc/rs_a.h @@ -0,0 +1,119 @@ +#ifndef RS_A_H +#define RS_A_H + +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1993, 1994, All Rights Reserved */ +/* */ +/* MODULE NAME : rs_a.h */ +/* PRODUCT(S) : REDUCED STACK SUIC */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* NONE */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/09/98 JRB 02 Chg MAX_SUIC_CHAN from 256 to 1024. */ +/* 10/20/97 JRB 01 Added #include "asn1defs.h" for MMS_OBJ_ID. */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 05/01/97 JRB 03 Move MAX_SUIC_CHAN define to here. */ +/* 01/02/96 JRB 02 Add MMSEventName and hMMSEvent. */ +/* 05/29/96 MDE 01 Changed DIB_ENTRY - name is now a pointer */ +/* 03/27/96 MDE Created */ +/************************************************************************/ + +#ifdef __cplusplus +extern "C" { +#endif + +#if defined (_WIN32) +#include +#endif /* _WIN32 */ + +#if defined (__OS2__) +#define INCL_BASE +#include +#endif /* __OS2__ */ + +#include "asn1defs.h" /* for MMS_OBJ_ID definition */ + +#define MAX_SUIC_CHAN 1024 /* number of channels */ + +/************************************************************************/ +/* The structure below is used to save Directory and other information */ +/* about local and remote AE's read in from SUIC.DIB */ +/************************************************************************/ + +#define DIB_ENTRY_DEFINED + +struct dib_entry +{ + ST_LONG reserved; /* reserved field */ + ST_CHAR *name; /* user-defined ASCII character string */ + ST_CHAR local; /* local or remote name */ + ST_UCHAR AP_title_pres; /* present flag */ + MMS_OBJ_ID AP_title; /* AP title */ + ST_UCHAR AP_inv_id_pres; /* present flag */ + ST_INT32 AP_invoke_id; /* AP invocation ID */ + ST_UCHAR AE_qual_pres; /* present flag */ + ST_INT32 AE_qual; /* AE qualifier */ + ST_UCHAR AE_inv_id_pres; /* present flag */ + ST_INT32 AE_invoke_id; /* AE invocation ID */ + ST_UINT16 adlcAddr; +} ; +typedef struct dib_entry DIB_ENTRY; + +/************************************************************************/ +/* Channel-oriented control structure used to hold connection-specific */ +/* information */ +/************************************************************************/ + +#define MAX_TX_OUT 10 /* max. outstanding TX requests allowed */ + +struct chanctrl + { + DIB_ENTRY *loc_de; /* Pointer to Local DIB Entry */ + DIB_ENTRY *rem_de; /* Pointer to Remote DIB Entry */ + } ; +extern struct chanctrl *s_chan_ctrl; + +/************************************************************************/ +/* Structure to store incoming associate indication in case no listen */ +/* channel is available */ +/************************************************************************/ + +extern ST_INT num_loc_dib_entries; +extern ST_INT num_rem_dib_entries; +extern DIB_ENTRY *loc_dib_table; +extern DIB_ENTRY *rem_dib_table; + +/************************************************************************/ +/* Event handling variables for WIN32. */ +/************************************************************************/ +#ifdef _WIN32 +extern ST_CHAR *MMSEventName; /* Pointer to the globally unique name of Event Object */ +extern HANDLE hMMSEvent; /* Handle to Event Object to be signalled when */ + /* s_serve () needs to be called */ +#endif /* _WIN32 */ + +/************************************************************************/ +/* Prototypes */ +/************************************************************************/ +ST_VOID s_reset_ctrl (ST_INT); +ST_RET init_dirser (ST_VOID); +DIB_ENTRY *find_dib_entry (ST_CHAR *); +DIB_ENTRY *find_loc_dib_entry (ST_CHAR *ar_name); +DIB_ENTRY *find_rem_dib_entry (ST_CHAR *ar_name); + +#ifdef __cplusplus +} +#endif + +#endif + + diff --git a/include/inc/rs_defs.h b/include/inc/rs_defs.h new file mode 100644 index 0000000..bbdb66c --- /dev/null +++ b/include/inc/rs_defs.h @@ -0,0 +1,241 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1994 All Rights Reserved */ +/* */ +/* MODULE NAME : rs_defs.h */ +/* PRODUCT(S) : TP4/RS API internal include file */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 09/13/99 MDE 13 Added SD_CONST modifiers */ +/* 02/05/99 JRB 12 Del get_rs_event proto. It is now "static". */ +/* 10/08/98 MDE 11 Migrated to updated SLOG interface */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 01/02/96 EJV 10 Added RS_DEFS_INCLUDED */ +/* 11/12/96 MDE 09 Changed to DEBUG_SISCO */ +/* 07/22/96 MDE 08 Changes towards A-Unit Data support */ +/* 03/26/96 MDE 07 Added REDUCED_STACK support */ +/* 02/16/96 JRB 06 Use thisFileName. */ +/* 01/02/96 JRB 05 Removed ipcuptyp for __OS2__ */ +/* 12/28/95 KCW 04 Removed ipcuptyp for AIX */ +/* 12/14/95 DSF 03 Changes for CONN list management */ +/* 10/06/95 JRB 02 For _DOS16M, add hVipcTp4 global */ +/* so that multiple Stack users allowed. */ +/* 04/17/95 DSF 01 Created */ +/* */ +/************************************************************************/ + +#ifndef RS_DEFS_INCLUDED +#define RS_DEFS_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "glbtypes.h" +#include "sysincs.h" +#include "mem_chk.h" +#include "gen_list.h" +#include "slog.h" + +/****************************************************************/ + +#undef local + +/****************************************************************/ +/****************************************************************/ +/* Local ADLC Address control variables */ +extern ST_UINT16 rsBaseSrcAdlcAddr; +extern ST_UINT16 rsNumSrcAdlcAddr; + +/****************************************************************/ +/* Internal structure definitions */ +/****************************************************************/ + +typedef struct + { + DBL_LNK *l; + TP4_ADDR localTp4Addr; + ST_LONG user_bind_id; /* User-supplied Bind ID */ + } REGINFO; + +typedef struct + { + DBL_LNK lnk; /* linkage */ + REGINFO *reginfo; /* pointer to Bind Control Info */ + ST_LONG user_conn_id; /* User-supplied Connection ID */ + ST_LONG osi_conn_id; /* Connection ID returned by OSIAM */ + ST_UINT16 localAddr; /* ADLC addresses, which define the */ + ST_UINT16 remAddr; /* ADLC connection. */ + ST_BOOLEAN connFlag; + } CONNINFO; + +extern CONNINFO *conn_list; /* pointer to list of conn structs */ + +/****************************************************************/ +extern REGINFO *reg_list; /* pointer to list of REG structs */ + +/****************************************************************/ + +extern SD_CONST ST_UCHAR rs_co_dest; +extern SD_CONST ST_UCHAR rs_co_src; +extern SD_CONST ST_UCHAR rs_co_qos; + +extern SD_CONST ST_UCHAR rs_cl_dest; +extern SD_CONST ST_UCHAR rs_cl_src; +extern SD_CONST ST_UCHAR rs_cl_qos; + +/****************************************************************/ + +extern ST_VOID *co_rs_event; +extern ST_INT co_rs_op; +extern ST_RET co_rs_rslt; + +extern ST_VOID *cl_rs_event; +extern ST_INT cl_rs_op; +extern ST_RET cl_rs_rslt; + +/****************************************************************/ +/* Log Control macros */ +/****************************************************************/ + +extern SD_CONST ST_CHAR *SD_CONST _tp4_err_logstr; +extern SD_CONST ST_CHAR *SD_CONST _tp4_flowup_logstr; +extern SD_CONST ST_CHAR *SD_CONST _tp4_flowdown_logstr; + +/****************************************************************/ +#ifdef DEBUG_SISCO + +#define SFLOWUP0(a) {\ + if ((tp4_debug_sel & TP4_LOG_FLOWUP) && sLogCtrl)\ + _slog (sLogCtrl,_tp4_flowup_logstr,\ + thisFileName,__LINE__,a);\ + } +#define SFLOWUP0C(a) {\ + if ((tp4_debug_sel & TP4_LOG_FLOWUP) && sLogCtrl)\ + _slogc (sLogCtrl,a);\ + } +#define SFLOWUP1(a,b) {\ + if ((tp4_debug_sel & TP4_LOG_FLOWUP) && sLogCtrl)\ + _slog (sLogCtrl,_tp4_flowup_logstr,\ + thisFileName,__LINE__,a,b);\ + } +#define SFLOWUP1C(a,b) {\ + if ((tp4_debug_sel & TP4_LOG_FLOWUP) && sLogCtrl)\ + _slogc (sLogCtrl,a,b);\ + } +#define SFLOWUP2(a,b,c) {\ + if ((tp4_debug_sel & TP4_LOG_FLOWUP) && sLogCtrl)\ + _slog (sLogCtrl,_tp4_flowup_logstr,\ + thisFileName,__LINE__,a,b,c);\ + } +#define SFLOWUP2C(a,b,c) {\ + if ((tp4_debug_sel & TP4_LOG_FLOWUP) && sLogCtrl)\ + _slogc (sLogCtrl,a,b,c);\ + } +#define SFLOWUPH(a,b) {\ + if ((tp4_debug_sel & TP4_LOG_FLOWUP) && sLogCtrl)\ + _slogHex (sLogCtrl,a,b);\ + } +#define SFLOWDOWN0(a) {\ + if ((tp4_debug_sel & TP4_LOG_FLOWDOWN) && sLogCtrl)\ + _slog (sLogCtrl,_tp4_flowup_logstr,\ + thisFileName,__LINE__,a);\ + } +#define SFLOWDOWN0C(a) {\ + if ((tp4_debug_sel & TP4_LOG_FLOWDOWN) && sLogCtrl)\ + _slogc (sLogCtrl,a);\ + } +#define SFLOWDOWN1(a,b) {\ + if ((tp4_debug_sel & TP4_LOG_FLOWDOWN) && sLogCtrl)\ + _slog (sLogCtrl,_tp4_flowdown_logstr,\ + thisFileName,__LINE__,a,b);\ + } +#define SFLOWDOWN1C(a,b) {\ + if ((tp4_debug_sel & TP4_LOG_FLOWDOWN) && sLogCtrl)\ + _slogc (sLogCtrl,a,b);\ + } +#define SFLOWDOWN2(a,b,c) {\ + if ((tp4_debug_sel & TP4_LOG_FLOWDOWN) && sLogCtrl)\ + _slog (sLogCtrl,_tp4_flowdown_logstr,\ + thisFileName,__LINE__,a,b,c);\ + } +#define SFLOWDOWN2C(a,b,c) {\ + if ((tp4_debug_sel & TP4_LOG_FLOWDOWN) && sLogCtrl)\ + _slogc (sLogCtrl,a,b,c);\ + } +#define SFLOWDOWNH(a,b) {\ + if ((tp4_debug_sel & TP4_LOG_FLOWDOWN) && sLogCtrl)\ + _slogHex (sLogCtrl,a,b);\ + } +#define SERR0(a) {\ + if ((tp4_debug_sel & TP4_LOG_ERR) && sLogCtrl)\ + _slog (sLogCtrl,_tp4_err_logstr,\ + thisFileName,__LINE__,a);\ + } +#define SERR0C(a) {\ + if ((tp4_debug_sel & TP4_LOG_ERR) && sLogCtrl)\ + _slogc (sLogCtrl,a);\ + } +#define SERR1(a,b) {\ + if ((tp4_debug_sel & TP4_LOG_ERR) && sLogCtrl)\ + _slog (sLogCtrl,_tp4_err_logstr,\ + thisFileName,__LINE__,a,b);\ + } +#define SERR1C(a,b) {\ + if ((tp4_debug_sel & TP4_LOG_ERR) && sLogCtrl)\ + _slogc (sLogCtrl,a,b);\ + } +#define SERR2(a,b,c) {\ + if ((tp4_debug_sel & TP4_LOG_ERR) && sLogCtrl)\ + _slog (sLogCtrl,_tp4_err_logstr,\ + thisFileName,__LINE__,a,b,c);\ + } +#define SERR2C(a,b,c) {\ + if ((tp4_debug_sel & TP4_LOG_ERR) && sLogCtrl)\ + _slogc (sLogCtrl,a,b,c);\ + } +#define SERRH(a,b) {\ + if ((tp4_debug_sel & TP4_LOG_ERR) && sLogCtrl)\ + _slogHex (sLogCtrl,a,b);\ + } + +#else /* Not DEBUG_SISCO */ + +#define SFLOWUP0(a) +#define SFLOWUP0C(a) +#define SFLOWUP1(a,b) +#define SFLOWUP1C(a,b) +#define SFLOWUP2(a,b,c) +#define SFLOWUP2C(a,b,c) +#define SFLOWUPH(a,b) +#define SFLOWDOWN0(a) +#define SFLOWDOWN0C(a) +#define SFLOWDOWN1(a,b) +#define SFLOWDOWN1C(a,b) +#define SFLOWDOWN2(a,b,c) +#define SFLOWDOWN2C(a,b,c) +#define SFLOWDOWNH(a,b) +#define SERR0(a) +#define SERR0C(a) +#define SERR1(a,b) +#define SERR1C(a,b) +#define SERR2(a,b,c) +#define SERR2C(a,b,c) +#define SERRH(a,b) +#endif + + +#ifdef __cplusplus +} +#endif + +#endif /* RS_DEFS_INCLUDED */ + diff --git a/include/inc/scl.h b/include/inc/scl.h new file mode 100644 index 0000000..bd32cef --- /dev/null +++ b/include/inc/scl.h @@ -0,0 +1,715 @@ +#ifndef SCL_INCLUDED +#define SCL_INCLUDED +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2004-2004 All Rights Reserved */ +/* */ +/* MODULE NAME : scl.h */ +/* PRODUCT(S) : MMS-EASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* SCL main header file. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 07/24/08 JRB 17 Fix len of appID in SCL_GCB (maps to GoID). */ +/* 04/23/08 JRB 16 Add SCL_SGCB, scl_sgcb_add. */ +/* 07/03/07 JRB 15 Add scl_gse_find. */ +/* 06/12/07 JRB 14 Add VLANID in SCL_GSE & SCL_SMV. */ +/* 05/21/07 RKR 13 Changed MAC type to ST_UCHAR for GSE and SMV */ +/* 10/30/06 JRB 12 scl2_datatype_create_all: all args changed. */ +/* scl2_ld_create_all: add vmd_ctrl, is_client args.*/ +/* Add type_id to SCL_LN, SCL_LNTYPE. */ +/* Chg SCL2_BTYPE. */ +/* 08/04/06 MDE 11 Added scl_debug_mode, scl2_add_btype, etc. */ +/* 07/26/06 JRB 10 Add structs,functs for parsing Communication.*/ +/* 04/19/06 JRB 09 Add maxClient to SCL_RCB for "RptEnabled max".*/ +/* 03/16/06 JRB 08 Add SCL_SVCB struct & scl_svcb_add proto. */ +/* 03/15/06 JRB 07 Chg almost all function prototypes. */ +/* Del scl_dotype_add_da_val, */ +/* scl_datype_add_bda_val, scl_header_save. */ +/* Add sGroup to SCL_DAI. */ +/* Chg desc to ptr (allocated during parse). */ +/* Increase MAX_CDC_LEN for user-defined CDCs. */ +/* 07/25/05 JRB 12 scl2_ld_create_all: Add brcb_bufsize arg. */ +/* SCL_INFO: add brcb_bufsize element. */ +/* 06/28/05 JRB 11 Del scl2_ld_destroy_all. Use mvl_vmd_destroy.*/ +/* 06/24/05 JRB 10 Chg "ord" from unsigned to signed value. */ +/* 05/27/05 CRM 09 Add scl_info_destroy & scl2_ld_destroy_all. */ +/* 03/22/05 JRB 08 Add ifdef __cplusplus to work with C++ code. */ +/* 02/15/05 JRB 07 Add iedName to SCL_INFO. */ +/* Add domName to SCL_LD & SCL_FCDA. */ +/* Add varName to SCL_LN. */ +/* Define SCL_HEADER struct & add it to SCL_INFO.*/ +/* Add scl_header_save. */ +/* 08/06/04 JRB 06 Add scl_parse. */ +/* Move mapping functions to user header. */ +/* 07/19/04 JRB 05 Add out_filename arg to datamap_cfg_read. */ +/* Add any_cfg_count proto. */ +/* 07/15/04 JRB 04 Clean up SCL_GCB, scl_gcb_add. */ +/* 07/09/04 JRB 03 scl2_ld_create_all: add reportScanRate arg. */ +/* 07/02/04 JRB 02 Add SCL_LCB, SCL_GCB, scl_lcb_add, scl_gcb_add.*/ +/* 06/08/04 JRB 01 Initial Revision. */ +/************************************************************************/ +#include "gen_list.h" +#include "mms_def2.h" /* need MAX_IDENT_LEN */ +#include "mvl_defs.h" /* need MVL_VAR_ASSOC, etc. */ + +#ifdef __cplusplus +extern "C" { +#endif + +#define MAX_VALKIND_LEN 4 /* Spec, Conf, RO, or Set */ +#define MAX_CDC_LEN 50 /* SPS, DPS, etc. (CURVE is longest */ + /* predefined CDC but user may define others)*/ +#define MAX_FC_LEN 2 /* ST, MX, etc. */ + +/* These defines used in SCL_DA struct to differentiate between structs */ +/* containing DA info and structs containing SDO info. */ +#define SCL_OBJTYPE_DA 0 +#define SCL_OBJTYPE_SDO 1 + +/* This def used for flattened leaf names (longer to allow array indices)*/ +#define MAX_FLAT_LEN (MAX_IDENT_LEN*2) + +/************************************************************************/ +/* Structures to contain information from "Header" section of SCL. */ +/************************************************************************/ +typedef struct + { + /* NOTE: only required elements included here. Add optional elements as needed.*/ + ST_CHAR id [MAX_IDENT_LEN+1]; + + /* Defined values for "nameStructure" attribute */ + #define SCL_NAMESTRUCTURE_IEDNAME 0 /* value="IEDName" */ + #define SCL_NAMESTRUCTURE_FUNCNAME 1 /* value="FuncName" */ + ST_INT nameStructure; + } SCL_HEADER; + +/************************************************************************/ +/* Structures to contain information from "Communications" section of SCL.*/ +/************************************************************************/ +/* Data from "GSE" element (inside "ConnectedAP" element) */ +typedef struct scl_gse + { + /* CRITICAL: First 2 parameters used to add this struct to linked */ + /* lists using list_add_last, etc. */ + struct scl_gse *next; /* CRITICAL: DON'T MOVE. */ + struct scl_gse *prev; /* CRITICAL: DON'T MOVE. */ + ST_CHAR ldInst[MAX_IDENT_LEN+1]; + ST_CHAR cbName[MAX_IDENT_LEN+1]; + ST_UCHAR MAC[CLNP_MAX_LEN_MAC]; /* Multicast MAC address */ + ST_UINT APPID; + ST_UINT VLANPRI; + ST_UINT VLANID; + /* renxiaobao GSE ½âÎö*/ + ST_UINT MinTime; + ST_UINT MaxTime; + } SCL_GSE; + +/* Data from "SMV" element (inside "ConnectedAP" element) */ +typedef struct scl_smv + { + /* CRITICAL: First 2 parameters used to add this struct to linked */ + /* lists using list_add_last, etc. */ + struct scl_smv *next; /* CRITICAL: DON'T MOVE. */ + struct scl_smv *prev; /* CRITICAL: DON'T MOVE. */ + ST_CHAR ldInst[MAX_IDENT_LEN+1]; + ST_CHAR cbName[MAX_IDENT_LEN+1]; + ST_UCHAR MAC[CLNP_MAX_LEN_MAC]; /* Multicast MAC address */ + ST_UINT APPID; + ST_UINT VLANPRI; + ST_UINT VLANID; + } SCL_SMV; + +/* Data from "ConnectedAP" element */ +typedef struct scl_cap + { + /* CRITICAL: First 2 parameters used to add this struct to linked */ + /* lists using list_add_last, etc. */ + struct scl_cap *next; /* CRITICAL: DON'T MOVE. */ + struct scl_cap *prev; /* CRITICAL: DON'T MOVE. */ + ST_CHAR iedName[MAX_IDENT_LEN+1]; + ST_CHAR *desc; /* description (optional)*/ + /* may be long so allocate if present*/ + ST_CHAR apName[MAX_IDENT_LEN+1]; + SCL_GSE *gseHead; /* head of list of GSE defs */ + SCL_SMV *smvHead; /* head of list of SMV defs */ + } SCL_CAP; + +/* Data from "Subnetwork" element */ +typedef struct scl_subnet + { + /* CRITICAL: First 2 parameters used to add this struct to linked */ + /* lists using list_add_last, etc. */ + struct scl_subnet *next; /* CRITICAL: DON'T MOVE. */ + struct scl_subnet *prev; /* CRITICAL: DON'T MOVE. */ + ST_CHAR name[MAX_IDENT_LEN+1]; + ST_CHAR *desc; /* description (optional)*/ + /* may be long so allocate if present*/ + ST_CHAR type[MAX_IDENT_LEN+1]; + SCL_CAP *capHead; /* head of list of ConnectedAP defs */ + } SCL_SUBNET; + +/************************************************************************/ +/* Structures to contain information from "AccessPoint" section of SCL.*/ +/************************************************************************/ + +/* "scl_fcda_add" allocates this struct, fills it in, */ +/* and adds it to the linked list "fcdaHead" in SCL_DATASET. */ +typedef struct + { + DBL_LNK l; + ST_CHAR domName[MAX_IDENT_LEN+1]; /* domain name (constructed) */ + ST_CHAR ldInst [MAX_IDENT_LEN+1]; + ST_CHAR prefix [MAX_IDENT_LEN+1]; + ST_CHAR lnInst [MAX_IDENT_LEN+1]; + ST_CHAR lnClass [MAX_IDENT_LEN+1]; + ST_CHAR doName [MAX_IDENT_LEN+1]; + ST_CHAR daName [MAX_IDENT_LEN+1]; + ST_CHAR fc [MAX_FC_LEN+1]; /* ST, MX, etc. */ + } SCL_FCDA; + +/* "scl_dai_add" allocates this struct, fills it in, */ +/* and adds it to the linked list "daiHead" in SCL_LN. */ +/* The "flattened" name must be constructed from the "name" & "ix" */ +/* attribute of the DOI and DAI and possibly the intervening SDI, */ +/* where "ix" is an array index (we'll need some new flattened name */ +/* syntax to handle the array index). */ +/* The "accessControl" attr of DOI is ignored (don't know what it means).*/ +/* The "desc" attr of DOI, SDI, & DAI are ignored (not useful). */ +typedef struct + { + DBL_LNK l; + ST_CHAR flattened[MAX_FLAT_LEN+1]; /* flattened attribute name */ + /* constructed from "name" & "ix"*/ + /* from DOI, SDI, & DAI */ + ST_CHAR *Val; /* attribute value text */ + /* allocate appropriate size buffer*/ + ST_UINT sGroup; /* optional Setting Group Number*/ + ST_CHAR sAddr[MAX_IDENT_LEN+1]; /* from DAI */ + ST_CHAR valKind[MAX_VALKIND_LEN+1]; /* from DAI */ + } SCL_DAI; + +/*renxiaobao Êý¾ÝÓ³Éä*/ +typedef struct +{ + DBL_LNK l; + ST_CHAR ldevice[MAX_IDENT_LEN+1]; + ST_CHAR leaf[MAX_IDENT_LEN+1]; + ST_CHAR usr_data_info[MAX_IDENT_LEN+1]; +}DATA_MAP_LINK; +extern DATA_MAP_LINK *DATA_MAP_saddr; + + +/* "scl_dataset_add" allocates this struct, */ +/* and adds it to the linked list "datasetHead" in SCL_LN. */ +typedef struct + { + DBL_LNK l; + ST_CHAR name[MAX_IDENT_LEN+1]; /* dataset name */ + ST_CHAR *desc; /* description (optional)*/ + /* may be long so allocate if present*/ + SCL_FCDA *fcdaHead; /* head of list of FCDA */ + } SCL_DATASET; + +/* "scl_rcb_add" allocates this struct, fills it in, */ +/* and adds it to the linked list "rcbHead" in SCL_LN. */ +typedef struct + { + DBL_LNK l; + ST_CHAR name[MAX_IDENT_LEN+1]; + ST_CHAR *desc; /* description (optional)*/ + /* may be long so allocate if present*/ + ST_CHAR datSet[MAX_IDENT_LEN+1]; + ST_UINT intgPd; + ST_CHAR rptID[MAX_IDENT_LEN+1]; + ST_UINT confRev; + ST_BOOLEAN buffered; /* TRUE if this is buffered RCB */ + ST_UINT bufTime; + ST_UINT8 TrgOps [1]; /* 8-bit bitstring */ + /* Boolean vals from SCL file */ + /* (dchg, qchg, dupd, & period) */ + /* used to set bits in TrgOps bitstring */ + ST_UINT8 OptFlds [2]; /* 9-bit bitstring */ + /* Boolean vals from SCL file */ + /* (seqNum, timeStamp, dataSet, */ + /* reasonCode, dataRef, bufOvfl, */ + /* entryID, configRef) */ + /* segmentation boolean is ignored */ + /* used to set bits in OptFlds bitstring*/ + ST_UINT maxClient; /* value of "RptEnabled max" attr. */ + } SCL_RCB; /* Report Control Block */ + +typedef struct + { + /* Counters of different types of BRCB. */ + ST_UINT brcb_count_complex; + ST_UINT brcb_count_ST; + ST_UINT brcb_count_MX; + ST_UINT brcb_count_CO; + ST_UINT brcb_count_SP; + ST_UINT brcb_count_SG; + ST_UINT brcb_count_SE; + ST_UINT brcb_count_SV; + ST_UINT brcb_count_CF; + ST_UINT brcb_count_DC; + ST_UINT brcb_count_EX; + + /* Counters of different types of URCB. */ + ST_UINT urcb_count_complex; + ST_UINT urcb_count_ST; + ST_UINT urcb_count_MX; + ST_UINT urcb_count_CO; + ST_UINT urcb_count_SP; + ST_UINT urcb_count_SG; + ST_UINT urcb_count_SE; + ST_UINT urcb_count_SV; + ST_UINT urcb_count_CF; + ST_UINT urcb_count_DC; + ST_UINT urcb_count_EX; + } SCL_RCB_COUNTERS; + +/************************************************************************/ +/* LOG Control Block */ +/* "scl_lcb_add" allocates this struct, fills it in, */ +/* and adds it to the linked list "lcbHead" in SCL_LN. */ +typedef struct + { + DBL_LNK l; + ST_CHAR name[MAX_IDENT_LEN+1]; + ST_CHAR *desc; /* description (optional)*/ + /* may be long so allocate if present*/ + ST_CHAR datSet[MAX_IDENT_LEN+1]; + ST_UINT intgPd; + ST_CHAR logName[MAX_IDENT_LEN+1]; + ST_BOOLEAN logEna; + ST_BOOLEAN reasonCode; + ST_UINT8 TrgOps [1]; /* 8-bit bitstring */ + /* Boolean vals from SCL file */ + /* (dchg, qchg, dupd, & period) */ + /* used to set bits in TrgOps bitstring */ + } SCL_LCB; + +/************************************************************************/ +/* GOOSE Control Block */ +/* "scl_gcb_add" allocates this struct, fills it in, */ +/* and adds it to the linked list "gcbHead" in SCL_LN. */ +typedef struct + { + DBL_LNK l; + ST_CHAR name[MAX_IDENT_LEN+1]; /* Name of CB. Used to construct*/ + /* GoCBRef or GsCBRef */ + ST_CHAR *desc; /* description (optional)*/ + /* may be long so allocate if present*/ + ST_CHAR datSet[MAX_IDENT_LEN+1]; /* for GOOSE only */ + /* used to construct GOOSE DatSet*/ + ST_UINT confRev; /* for GOOSE only */ + ST_BOOLEAN isGoose; /* SD_TRUE if "GOOSE", SD_FALSE if "GSSE"*/ + ST_CHAR appID[MVL61850_MAX_RPTID_LEN+1]; /* for GOOSE only */ + /* maps to GoID in 61850-7-2 */ + /* The SCL file may also contain one or more "IEDName" elements to */ + /* indicate IEDs that should subscribe for GOOSE data. We have no */ + /* way to use this information, so it is ignored. */ + } SCL_GCB; + +/************************************************************************/ +/* Sampled Value Control Block */ +/* "scl_parse" allocates this struct and fills it in. */ +/* "scl_svcb_add" adds it to the linked list "svcbHead" in SCL_LN. */ +typedef struct + { + DBL_LNK l; + ST_CHAR name[MAX_IDENT_LEN+1]; + ST_CHAR *desc; /* description (optional)*/ + /* may be long so allocate if present*/ + ST_CHAR datSet[MAX_IDENT_LEN+1]; + ST_CHAR smvID[MAX_IDENT_LEN+1]; + ST_UINT smpRate; + ST_UINT nofASDU; + ST_UINT confRev; + ST_BOOLEAN multicast; /* TRUE if this is MsvCB */ + ST_UINT8 OptFlds [1]; /* 8-bit bitstring */ + /* Boolean vals from "SmvOpts" in SCL */ + /* (sampleRate, etc.) */ + /* used to set bits in this bitstring */ + ST_BOOLEAN securityPres; /* SmvOpts security flag */ + ST_BOOLEAN dataRefPres; /* SmvOpts dataRef flag */ + } SCL_SVCB; /* Sampled Value Control Block */ + +/************************************************************************/ +/* Setting Group Control Block */ +typedef struct + { + /* NOTE: no DBL_LNK here. Only 2 allowed so never put on a linked list.*/ + ST_CHAR *desc; /* description (optional) */ + /* may be long so allocate if present */ + ST_UINT numOfSGs; /* mandatory */ + ST_UINT actSG; /* optional */ + } SCL_SGCB; + +/************************************************************************/ +/* Logical Node structure */ +/* "scl_ln_add" allocates this struct, fills it in, */ +/* and adds it to the linked list "lnHead" in SCL_LD. */ +typedef struct + { + DBL_LNK l; + ST_CHAR varName[MAX_IDENT_LEN+1]; /* variable name (constructed) */ + ST_CHAR *desc; /* description (optional)*/ + /* may be long so allocate if present*/ + ST_CHAR lnType[MAX_IDENT_LEN+1]; /* LN Type name */ + ST_CHAR lnClass[MAX_IDENT_LEN+1]; /* LN Class name */ + /* for LN0, must be "LLN0" */ + ST_CHAR inst[MAX_IDENT_LEN+1]; /* LN inst name */ + /* for LN0, must be "" (empty string)*/ + ST_CHAR prefix[MAX_IDENT_LEN+1]; /* LN prefix name */ + /* for LNO, ignored */ + SCL_DAI *daiHead; /* head of list of DAI */ + SCL_DATASET *datasetHead; /* head of list of DataSet */ + SCL_RCB *rcbHead; /* head of list of RCB (Report Control) */ + SCL_LCB *lcbHead; /* head of list of LCB (Log Control) */ + SCL_GCB *gcbHead; /* head of list of GCB (GOOSE Control) */ + SCL_SVCB *svcbHead; /* head of list of SVCB (Sampled Value Control)*/ + SCL_SGCB *sgcb; /* SGCB (Setting Group Control)(only 1 allowed)*/ + /* NOTE: In LN or LN0: Inputs ignored */ + /* NOTE: In LN0: SCLControl ignored */ + + ST_INT type_id; /* Initialized by "scl2_datatype_create_all"*/ + MVL_VAR_ASSOC *mvl_var_assoc; /* MVL Variable Association created from LN info*/ + } SCL_LN; /* Logical Node (LN or LN0 in SCL) */ + +/************************************************************************/ +/* Logical Device structure */ +/* "scl_ld_create" allocates this struct */ +/* and adds it to the linked list "ldHead" in SCL_INFO. */ +typedef struct + { + DBL_LNK l; + ST_CHAR domName[MAX_IDENT_LEN+1]; /* domain name (constructed) */ + ST_CHAR *desc; /* description (optional)*/ + /* may be long so allocate if present*/ + ST_CHAR inst[MAX_IDENT_LEN+1]; /* LD inst name */ + SCL_LN *lnHead; /* head of list of LN */ + /* NOTE: AccessControl in LDevice is ignored */ + } SCL_LD; /* Logical Device (LDevice in SCL)*/ + +/************************************************************************/ +/* Structures to contain information from "DataTypeTemplates" section of SCL.*/ +/************************************************************************/ +/* This structure should be allocated and filled in by the function */ +/* "scl_lntype_add_do". */ +typedef struct scl_do + { + /* CRITICAL: First 2 parameters used to add this struct to linked */ + /* lists using list_add_last, etc. */ + struct scl_do *next; /* CRITICAL: DON'T MOVE. */ + struct scl_do *prev; /* CRITICAL: DON'T MOVE. */ + ST_CHAR name[MAX_IDENT_LEN+1]; /* data object name */ + ST_CHAR type[MAX_IDENT_LEN+1]; /* data object type */ + } SCL_DO; + +typedef struct scl_lntype + { + /* CRITICAL: First 2 parameters used to add this struct to linked */ + /* lists using list_add_last, etc. */ + struct scl_lntype *next; /* CRITICAL: DON'T MOVE. */ + struct scl_lntype *prev; /* CRITICAL: DON'T MOVE. */ + ST_CHAR id[MAX_IDENT_LEN+1]; /* name used to reference this LN Type*/ + ST_CHAR lnClass[MAX_IDENT_LEN+1]; /* logical node class */ + SCL_DO *doHead; /* head of list of DO */ + /* scl_lntype_add_do adds to list */ + ST_INT type_id; /* Initialized by "scl2_datatype_create_all"*/ + } SCL_LNTYPE; + + +/* This structure should be allocated and filled in by the function */ +/* "scl_dotype_add_da" OR "scl_dotype_add_sdo", and possibly modified by the optional */ +/* function "scl_dotype_add_da_val". */ +/* NOTE: the same structure must be used for DA or SDO because each must */ +/* be put on the same linked list in the order they are read from the SCL file.*/ +/* Most of the parameters are relevant only for DA elements. They are */ +/* ignored if this is an SDO (i.e. objtype=SCL_OBJTYPE_SDO). */ +typedef struct + { + DBL_LNK l; + ST_INT objtype; /* SCL_OBJTYPE_DA or SCL_OBJTYPE_SDO */ + ST_CHAR name[MAX_IDENT_LEN+1]; /* DA or SDO name */ + ST_CHAR *desc; /* description (optional)*/ + /* may be long so allocate if present*/ + ST_CHAR sAddr[MAX_IDENT_LEN+1]; /* for DA only: DA sAddr */ + ST_CHAR bType[MAX_IDENT_LEN+1]; /* for DA only: DA bType */ + ST_CHAR valKind[MAX_VALKIND_LEN+1]; /* for DA only: Spec, Conf, RO, or Set */ + ST_CHAR type[MAX_IDENT_LEN+1]; /* for DA: needed if bType="Struct" or "Enum"*/ + /* for SDO: required */ + ST_UINT count; /* for DA only: num array entries*/ + ST_CHAR fc[MAX_FC_LEN+1]; /* for DA only: functional constraint */ + ST_BOOLEAN dchg; /* for DA only: TrgOp (data change) */ + ST_BOOLEAN qchg; /* for DA only: TrgOp (quality change) */ + ST_BOOLEAN dupd; /* for DA only: TrgOp (data update) */ + + /* The "Val" and "sGroup" parameters are only set if the SCL file contains the + * optional "Val" element, in which case "scl_dotype_add_da_val" is called. + */ + ST_CHAR *Val; /* for DA only: attribute value text */ + /* allocate appropriate size buffer*/ + ST_UINT sGroup; /* for DA only: optional Setting Group Number*/ + } SCL_DA; + +typedef struct scl_dotype + { + /* CRITICAL: First 2 parameters used to add this struct to linked */ + /* lists using list_add_last, etc. */ + struct scl_dotype *next; /* CRITICAL: DON'T MOVE. */ + struct scl_dotype *prev; /* CRITICAL: DON'T MOVE. */ + ST_CHAR id[MAX_IDENT_LEN+1]; /* name used to reference this DO Type */ + ST_CHAR cdc[MAX_CDC_LEN+1]; /* CDC name */ + SCL_DA *daHead; /* head of list of DA or SDO */ + /* scl_dotype_add_da OR */ + /* scl_dotype_add_sdo adds to list */ + } SCL_DOTYPE; + +/* This structure should be allocated and filled in by the function */ +/* "scl_datype_add_bda". */ +typedef struct + { + DBL_LNK l; + ST_CHAR name[MAX_IDENT_LEN+1]; /* data attribute name */ + ST_CHAR *desc; /* description (optional)*/ + /* may be long so allocate if present*/ + ST_CHAR sAddr[MAX_IDENT_LEN+1]; /* for DA only: DA sAddr */ + ST_CHAR bType[MAX_IDENT_LEN+1]; /* data attribute type */ + ST_CHAR valKind[MAX_VALKIND_LEN+1]; /* Spec, Conf, RO, or Set */ + ST_CHAR type[MAX_IDENT_LEN+1]; /* only used if btype="Struct" or "Enum"*/ + ST_UINT count; /* for DA only: num array entries*/ + + /* The "Val" and "sGroup" parameters are only set if the SCL file contains the + * optional "Val" element, in which case "scl_datype_add_bda_val" is called. + */ + ST_CHAR *Val; /* attribute value text */ + /* allocate appropriate size buffer*/ + ST_UINT sGroup; /* optional Setting Group Number*/ + } SCL_BDA; /* Basic Data Attribute */ +typedef struct + { + DBL_LNK l; + ST_CHAR id[MAX_IDENT_LEN+1]; /* name used to reference this DA Type*/ + SCL_BDA *bdaHead; /* head of list of BDA */ + /* scl_datype_add_bda adds to list */ + } SCL_DATYPE; + + +/* This structure should be allocated and filled in by the function */ +/* "scl_enumtype_add_enumval". */ +typedef struct + { + DBL_LNK l; + ST_INT ord; /* ord attribute */ + ST_CHAR EnumVal[MAX_IDENT_LEN+1]; /* EnumVal element */ + /* TRUNCATED if longer than buffer */ + } SCL_ENUMVAL; +typedef struct + { + DBL_LNK l; + ST_CHAR id[MAX_IDENT_LEN+1]; /* name used to reference this DA Type*/ + SCL_ENUMVAL *enumvalHead; /* head of list of EnumVal */ + /* scl_enumtype_add_enumval adds to list*/ + } SCL_ENUMTYPE; + +/************************************************************************/ +/* SCL_INFO */ +/* This structure contains all information extracted from the SCL file */ +/* to be used for MMS-EASE Lite initialization. */ +/************************************************************************/ +typedef struct + { + ST_CHAR iedName [MAX_IDENT_LEN+1]; /* passed to scl_parse */ + + SCL_HEADER Header; /* Info from "Header" section of SCL file*/ + + /* SubNetwork definitions from (from Communication section) */ + SCL_SUBNET *subnetHead; /* head of list of SubNetwork defs */ + + /* Logical Node Type definitions (from DataTypeTemplates section) */ + SCL_LNTYPE *lnTypeHead; /* head of list of LNodeType defs */ + SCL_DOTYPE *doTypeHead; /* head of list of DOType defs */ + SCL_DATYPE *daTypeHead; /* head of list of DAType defs */ + SCL_ENUMTYPE *enumTypeHead; /* head of list of EnumType defs */ + + /* Logical Device (MMS Domain) definitions (from AccessPoint section) */ + SCL_LD *ldHead; /* head of list of LDevice defs */ + + ST_INT brcb_bufsize; /* BRCB buffer size */ + /* scl2_ld_create_all uses arg to set it*/ + ST_BOOLEAN datatype_create_done; /* flag set by scl2_datatype_create_all*/ + ST_BOOLEAN ld_create_done; /* flag set by scl2_ld_create_all*/ + } SCL_INFO; + + +/************************************************************************/ +/************************************************************************/ +/* FUNCTIONS to store SCL info in "SCL_INFO" structure. */ +/************************************************************************/ +/************************************************************************/ + +SCL_LNTYPE *scl_lntype_create ( + SCL_INFO *scl_info); + +SCL_DO *scl_lntype_add_do ( + SCL_INFO *scl_info); + +SCL_DOTYPE *scl_dotype_create ( + SCL_INFO *scl_info); + +SCL_DA *scl_dotype_add_da ( + SCL_INFO *scl_info); + +SCL_DA *scl_dotype_add_sdo ( + SCL_INFO *scl_info); + +SCL_DATYPE *scl_datype_create ( + SCL_INFO *scl_info); + +SCL_BDA *scl_datype_add_bda ( + SCL_INFO *scl_info); + +SCL_ENUMTYPE *scl_enumtype_create ( + SCL_INFO *scl_info); + +SCL_ENUMVAL *scl_enumtype_add_enumval ( + SCL_INFO *scl_info); + +SCL_FCDA *scl_fcda_add ( + SCL_INFO *scl_info); + +SCL_DAI *scl_dai_add ( + SCL_INFO *scl_info); + +SCL_DATASET *scl_dataset_add ( + SCL_INFO *scl_info); + +SCL_RCB *scl_rcb_add ( + SCL_INFO *scl_info); + +SCL_LCB *scl_lcb_add ( + SCL_INFO *scl_info); + +SCL_GCB *scl_gcb_add ( + SCL_INFO *scl_info); + +SCL_SGCB *scl_sgcb_add ( + SCL_INFO *scl_info); + +SCL_SVCB *scl_svcb_add ( + SCL_INFO *scl_info); + +SCL_LN *scl_ln_add ( + SCL_INFO *scl_info); + +SCL_LD *scl_ld_create ( + SCL_INFO *scl_info); + +SCL_SUBNET *scl_subnet_add ( + SCL_INFO *scl_info); + +SCL_CAP *scl_cap_add ( + SCL_INFO *scl_info); + +SCL_GSE *scl_gse_add ( + SCL_INFO *scl_info); + +SCL_SMV *scl_smv_add ( + SCL_INFO *scl_info); + +/************************************************************************/ +/* scl_parse */ +/* Parses SCL file and stores extracted info in SCL_INFO structure. */ +/************************************************************************/ +ST_RET scl_parse (ST_CHAR *xmlFileName, ST_CHAR *iedName, + ST_CHAR *accessPointName, SCL_INFO *sclInfo); +ST_VOID scl_log_all (SCL_INFO *scl_info); + +/************************************************************************/ +/* scl_info_destroy */ +/* Destroy all info stored in the SCL_INFO structure by "scl_parse". */ +/************************************************************************/ +ST_VOID scl_info_destroy (SCL_INFO *scl_info); + +/************************************************************************/ +/* scl2_datatype_create_all */ +/* Create MMS Data types for all Logical Node Types (LNodeType) */ +/* defined in SCL. */ +/* RETURNS: SD_SUCCESS or error code */ +/************************************************************************/ +ST_RET scl2_datatype_create_all ( + MVL_VMD_CTRL *vmd_ctrl, /* VMD in which to add types. */ + SCL_INFO *sclInfo, /* main struct where all SCL info stored*/ + ST_INT max_rt_num, /* max num of RUNTIME_TYPE for each LNodeType*/ + ST_BOOLEAN use_names, /* if SD_TRUE, generate a name for each type*/ + ST_CHAR *name_prefix); /* unique prefix to add to each type name*/ + /* only used if "use_names==SD_TRUE". */ + +/************************************************************************/ +/* scl2_ld_create_all */ +/* Create all Logical Devices from SCL info saved in "sclInfo". */ +/* RETURNS: SD_SUCCESS or error code */ +/************************************************************************/ +ST_RET scl2_ld_create_all ( + MVL_VMD_CTRL *vmd_ctrl, /* VMD in which to add Logical Devices. */ + SCL_INFO *sclInfo, /* main struct where all SCL info stored*/ + ST_UINT reportScanRate, /* report scan rate (millisec) */ + ST_INT brcb_bufsize, /* BRCB buffer size */ + ST_BOOLEAN is_client); /* If this flag is set, Client model is */ + /* created (i.e. Control Blocks NOT created).*/ + +/************************************************************************/ +/* u_set_all_leaf_functions */ +/* User customizable function to set all leaf functions for a data type.*/ +/************************************************************************/ +ST_RET u_set_all_leaf_functions (RUNTIME_CTRL *rt_ctrl); + + +/************************************************************************/ +/************************************************************************/ + +extern ST_BOOLEAN scl_debug_mode; +extern ST_INT scl_debug_mode_error_count; + +typedef struct + { + DBL_LNK l; + ST_CHAR *btype; + RUNTIME_CTRL *rt_ctrl; + } SCL2_BTYPE; +extern SCL2_BTYPE *scl2_btype_list; +SCL2_BTYPE *scl2_add_btype (ST_CHAR *btype, ST_CHAR *tdl); + + + +typedef struct + { + SCL_INFO *scl_info; + SCL_LD *scl_ld; + SCL_LN *scl_ln; + ST_CHAR *valText; + ST_CHAR *attrib; + ST_VOID *dest; + ST_INT numRt; + SD_CONST RUNTIME_TYPE *rtHead; + } SCL2_IV_TRANSLATE_CTRL; + +ST_RET u_mvl_scl_set_initial_value (SCL2_IV_TRANSLATE_CTRL *sclXlateIv); + +/************************************************************************/ +/* Functions to find objects in SCL_INFO. */ +/************************************************************************/ +SCL_GSE *scl_gse_find (SCL_INFO *scl_info, SCL_LD *scl_ld, SCL_GCB *scl_gcb); + +#ifdef __cplusplus +} +#endif + +#endif /* !SCL_INCLUDED */ diff --git a/include/inc/scrndefs.h b/include/inc/scrndefs.h new file mode 100644 index 0000000..bd1d40b --- /dev/null +++ b/include/inc/scrndefs.h @@ -0,0 +1,97 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2005, All Rights Reserved */ +/* */ +/* MODULE NAME : scrndefs.h */ +/* PRODUCT(S) : MMSEASE */ +/* */ +/* MODULE DESCRIPTION : This include file contains definitions needed */ +/* for screen handling */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/06/05 EJV 20 linux: no fancy screen. */ +/* 03/31/03 EJV 19 Removed _WINDOWS code. */ +/* 03/18/03 JRB 18 Fix QNX #ifdefs. */ +/* 02/17/03 CRM 17 Added "defined(linux)" code. */ +/* 02/17/03 JRB 16 Stop using SYSTEM_SEL define. */ +/* Del QNX_C86 support. */ +/* 08/24/98 EJV 15 Eliminated semicoln in some macros. */ +/* 04/29/98 EJV 14 CLEARSCR on sparc beeps. */ +/* 01/08/98 EJV 13 Deleted CLEARSCR specific to sun sparc */ +/* 05/16/97 RKR 12 Changes for HP-UX */ +/* 12/07/95 DSF 11 Minor corrections */ +/* 11/08/95 MDE 10 Tweaked WINDOWS defines a bit */ +/* 05/04/95 JRB 09 Added SYS_QNX4 for QNX 4.x port. */ +/* 05/04/95 JRB 08 Simplified macros: removed LINE?COL?, */ +/* added GOTOLINE(line) an CLEARLINE(line). */ +/* 04/20/95 KCW 07 Changes for SUN Solaris */ +/* 01/05/95 JRB 06 Change BSD to SYS_BSD. */ +/* 12/09/94 JRB 05 Disable ANSI escape sequences for VXWORKS. */ +/* 10/12/93 DSF 04 Changed MMSWIN to _WINDOWS */ +/* 04/08/93 WEO 03 Added MMSWIN defines for screen formatting */ +/* 12/03/92 JRB 02 Added LINE9COL0 for QNX. */ +/* 04/16/92 WEO 01 Added CLEARSCR for SUN */ +/* 06/25/91 5.00 MMSEASE 5.0 release. See UTILML50.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef SCRNDEFS_INCLUDED +#define SCRNDEFS_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#if defined(__QNX__) + +#define CLEARSCR printf( "\33H\33J" ) +#define SAVESCR printf( "\33S" ) +#define BOTTOMSCR printf( "\33=7 " ) /* "7" means row 23, " " means col 0 */ +#define CLEAREOL printf( "\33K" ) +#define GOTOLINE(line) printf("\33=%c ",line+0x1f) /* line=1 thru 24*/ +#define CLEARLINE(line) printf("\33=%c \33K",line+0x1f) /* line=1 thru 24*/ + +#else /* non QNX system */ + +#if defined (_WIN32) || defined (VXWORKS) || \ + defined(__hpux) || defined(sparc) || defined(linux) +#define CLEARSCR printf("\n") +#define RESTORESCR +#define SAVESCR +#define BOTTOMSCR +#define CLEAREOL +#define GOTOLINE(line) printf("\n") +#define CLEARLINE(line) +#else +#define CLEARSCR printf( "\33[2J\33[0;0H" ) +#define RESTORESCR printf( "\33[u" ) +#define SAVESCR printf( "\33[s" ) +#define BOTTOMSCR printf( "\33[23;0H" ) +#define CLEAREOL printf( "\33[K" ) +#define GOTOLINE(line) printf( "\33[%d;1H", line) /* line= 1 thru 24*/ +#define CLEARLINE(line) printf( "\33[%d;1H\33[K", line) /* line= 1 thru 24*/ +#endif +#endif + +#define PRINTSTR printf( "%s", str_ptr ) +#define ADD_LF printf( "\n" ) + +#if defined(_AIX) || defined(sun) || defined(__hpux) || defined(linux) \ + || (defined(__alpha) && !defined(__VMS)) \ + || defined(VXWORKS) || defined(__QNX__) +#define CR '\012' +#else +#define CR '\015' +#endif + +#ifdef __cplusplus +} +#endif + +#endif diff --git a/include/inc/slog.h b/include/inc/slog.h new file mode 100644 index 0000000..3fccaf8 --- /dev/null +++ b/include/inc/slog.h @@ -0,0 +1,1599 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1993 - 2008, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : slog.h */ +/* PRODUCT(S) : SLOG */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/01/08 JRB 82 Move forward references to top of file. */ +/* 11/07/08 MDE 82 Added 'Get Log Masks' feature support */ +/* 10/08/08 MDE 81 Added SEAL */ +/* 08/22/08 RKR 80 Added ICCP Lite */ +/* 08/11/08 MDE 79 Added 'initialized' */ +/* 08/04/08 MDE 78 Added slogIpcEventEx */ +/* 07/30/08 DWL 77 Added COMTRADE listening port */ +/* 07/25/08 MDE 76 Moved slogIpcCtx into LOG_CTRL */ +/* 07/07/08 MDE 75 Added slogIpcActiveCount */ +/* 05/09/08 RKR 74 Added new IPC Commands for Clone and Reset */ +/* 03/27/08 EJV 73 slog_get_index_file_name: added destLen param*/ +/* and changed to return result. */ +/* 03/04/08 EJV 72 Added IPC_LOG_PORT_SNAP_LITE_* ports. */ +/* Removed MMSEASE_MOSI def in description. */ +/* Added LogMaskMapCtrl for 142-XXX products, */ +/* revised comments. */ +/* 03/10/08 MDE 71 Added slog_ipc_std_cmd_service */ +/* 03/04/08 RWM 70 Changed MAX_LOG_SIZE to 5000 */ +/* 12/14/07 DSF 69 Added sNonStandardLogMode to support .NET */ +/* Logger class */ +/* 11/30/07 DSF 68 Added IPC_LOG_IOS_GATEWAY */ +/* 11/08/07 MDE 67 Added IPC_LOG_PORT_SDE_OPCUA_SERVER */ +/* 10/23/07 MDE 66 Added ElapsedTime option for Windows */ +/* 10/11/07 MDE 65 Added UAP ports */ +/* 09/20/07 MDE 64 Added slogIpcCallingEnable, listen port */ +/* 03/01/07 MDE 63 Tweaks to SLOGIPC command message types */ +/* 02/20/07 CRM 62 Added SLOGIPCCALLING_NAME */ +/* 01/22/07 MDE 61 Added Standard command message types */ +/* 01/08/07 EJV 60 slogIpcStop: added lc param. */ +/* 04/07/06 MDE 59 Added IPC_LOG_PORT_ICCPCFG */ +/* 03/14/06 MDE 58 Increased SLOG_MAX_FNAME to 64 (was 32) */ +/* 03/30/06 CRM 57 Added _slogXML, and macros */ +/* 02/17/06 MDE 56 Added logcfg_exx, preferredTag, etc.. */ +/* 02/15/06 EJV 55 IPC_LOG_PORT_MMS_EASE - changed comment. */ +/* 02/02/06 EJV 54 LOGCFGX_TAG_VAL: added/changed fields. */ +/* 12/05/05 EJV 53 Added IPC_LOG_PORT_MMS_EASE. Changed comment.*/ +/* 10/28/05 EJV 52 Added MMS-LITE ports */ +/* 10/14/05 EJV 51 Add SLOGIPC_NAME def & slogIpcEvent proto */ +/* 08/10/05 MDE 50 Added slog_start, slog_end, index file */ +/* 08/05/05 EJV 49 Added extern ssleLogMaskMapCtrl. */ +/* 08/02/05 MDE 48 Added IOS ports */ +/* 06/30/05 EJV 47 Added extern genlistDebugMapCtrl. */ +/* Arranged xxxMaskMapCtrl in alphabetical order*/ +/* Del duplicate logCfgAddMaskGroup proto. */ +/* Del logCfgAddAll proto (user must add all). */ +/* Del logcfgx (use logcfgx_ex instead) */ +/* 04/29/05 EJV 46 Added IPC_LOG_PORT_RFC1006_LISTENER def. */ +/* 03/31/05 MDE 45 Added more SLOGALWAYS macros */ +/* 02/22/05 JRB 44 slogIpc: add SD_CONST to some args. */ +/* 02/16/05 JRB 43 Del #if around forward references. */ +/* 02/10/05 MDE 42 Added STRINGBUF and DOUBLE DATATYPE's */ +/* 02/02/05 MDE 41 Smart mode work */ +/* 01/27/05 MDE 40 LINUX warning cleanup */ +/* 01/19/05 MDE 39 Added LogCfg defines, etc.. */ +/* 01/19/05 EJV 38 AIX:del extern in struct tag_GEN_SOCK,C++ err*/ +/* 12/06/04 ASK 37 Added SLOG IPC "smart" client features. Added*/ +/* RUINT define for new logcfgx. */ +/* 11/22/04 JRB 36 Add max_msg_size & msg_buf to LOG_CTRL. */ +/* Add slog_max_msg_size_set proto. */ +/* Add slog_max_msg_size_get macro. */ +/* slogDelBuf: add (LOG_CTRL *) arg. */ +/* 10/12/04 MDE 35 Added logcfgx mask extension mechanism */ +/* 08/04/04 EJV 34 LOGMEM_ITEM: chg log time,related to prev chg*/ +/* Del slogTime, slogMs global variables. */ +/* 07/09/04 EJV 33 Del DATETIME_MILLI_EN,add 'obsolete' comments*/ +/* 06/24/04 DSF 32 Added DATETIME_MILLI_EN */ +/* 06/24/04 EJV 31 IPC_LOG_CTRL: add portUsed. */ +/* 06/21/04 EJV 30 IPC_LOG_CTRL: add portCnt, appId fields. */ +/* 05/26/04 EJV 29 Added comment to keep track on used IPC ports*/ +/* 05/20/04 EJV 28 IPC_LOG_CTRL: limited log message queue. */ +/* 05/18/04 MDE 27 Removed LOG_IPC_SUPPORT #ifdef's */ +/* 05/11/04 EJV 26 Revised LOG_IPC_SUPPORT code to use gensock2.*/ +/* Added SLOG_MAX_LOGTYPESTR, SLOG_MAX_HDR. */ +/* Added slogSetHdr() proto. */ +/* 02/10/04 KCR 25 Added slogDelBuf() */ +/* 10/24/03 JRB 24 Move gs_debug_sel from glbsem.h to here. */ +/* Move clnp_debug_sel from clnp_usr.h to here. */ +/* Del windows.h (see sysincs.h). */ +/* 06/20/03 JRB 23 Del ; from SLOGALWAYS* too. */ +/* 05/08/03 JRB 22 Del {} from SLOGALWAYS* so they work in */ +/* almost any context. */ +/* 05/07/03 DSF 21 Increased the value of SLOG_MAX_FNAME */ +/* Added support for sErrLogCtrl */ +/* 10/17/02 JRB 20 Add "Base" macros SLOG_*, SLOGC_*, SLOGH. */ +/* 03/11/02 JRB 19 SLOG_PAUSE, SLOG_LF, SLOG_CLRSCR do nothing. */ +/* 04/26/01 DSF 18 Define SOCKET if not yet defined */ +/* 04/16/01 DSF 17 Include windows.h instead of including */ +/* winsock.h directly */ +/* 03/23/01 MDE 16 Added _slogStr, SLOGALWAYSS */ +/* 11/27/00 JRB 15 Added read_log_cfg_file, logcfgx protos. */ +/* 08/22/00 KCR 14 Added FIL_CTRL_NO_LOG_HDR */ +/* 03/09/00 MDE 13 Added SD_CONST modifiers to LOGMEM_ITEM */ +/* 09/13/99 MDE 12 Added SD_CONST modifiers */ +/* 11/11/98 DSF 11 Minor changes to _slog_dyn_log_fun */ +/* 10/16/98 DSF 10 Spelling */ +/* 10/08/98 MDE 09 Migrated to updated SLOG interface */ +/* 06/15/98 NAV 08 Conditionally include winsock.h or winsock2.h*/ +/* 06/03/98 MDE 07 Replaced 'winsock.h' with 'windows.h' */ +/* 12/12/97 MDE 06 Added DEBUG_SISCO versions of SLOGALWAYSx */ +/* 11/05/97 DSF 05 Added SYSTIME_EN */ +/* 09/12/97 DSF 04 Expose slogSetTimeText () */ +/* 06/11/97 MDE 03 Include time.h for all */ +/* 05/27/97 DSF 02 Added IPC logging capability */ +/* 05/27/97 DSF 01 Include time.h for sun */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef SLOG_INCLUDED +#define SLOG_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + + +/*#define SLOGIPC_SEAL Disable for now, phase in ... */ + +#include "gen_list.h" +#ifdef SLOGIPC_SEAL +#include "sseal.h" +#endif + +#include +#include /* for time_t */ + +#define TIME_BUF_LEN 30 + +/************************************************************************/ +struct tag_GEN_SOCK; /* forward reference */ +struct tag_GEN_SOCK_DATA; /* forward reference */ +struct log_ctrl; /* forward reference */ + +/************************************************************************/ +/* Memory logging string buffer size limit */ +/* NOTE : Do not change this lightly! QMEM.C should be looked at */ +/************************************************************************/ + +#define SLOG_MEM_BUF_SIZE 125 + +/* Memory logging item control */ +/* A table of these is established at initialization time */ + +#define LMF_USED 0x0001 +#define LMF_HEADER 0x0002 +#define LMF_HEX 0x0004 + + +typedef struct logmem_item + { + ST_UINT flags; /* see LMF_xxx flags */ + ST_INT logType; /* log type storage */ + SD_CONST ST_CHAR *logTypeStr; /* log type string */ + ST_INT lineNum; /* source file line number */ + SD_CONST ST_CHAR *sourceFile; /* source file name, NULL for none */ + ST_CHAR slogTimeText[TIME_BUF_LEN]; + ST_CHAR *string; /* text */ + } LOGMEM_ITEM; + + +/************************************************************************/ +/* File Logging State flags */ +/************************************************************************/ + +#define FIL_STATE_OPEN 0x0001 +#define FIL_STATE_NEED_WIPE 0x0002 + +/* File Logging Control flags */ + +#define FIL_CTRL_WIPE_EN 0x0001 +#define FIL_CTRL_WRAP_EN 0x0002 +#define FIL_CTRL_MSG_HDR_EN 0x0004 +#define FIL_CTRL_NO_LOG_HDR 0x0040 + +/* File output mode flags */ + +#define FIL_CTRL_NO_APPEND 0x0008 +#define FIL_CTRL_HARD_FLUSH 0x0010 +#define FIL_CTRL_SETBUF_EN 0x0020 + +typedef struct file_log_ctrl + { +/* User sets these elements */ + ST_ULONG maxSize; + ST_CHAR *fileName; /* destination filename */ + ST_UINT ctrl; /* see FIL_CTRL_xxx flags */ + ST_LONG wipeFilePos; + +/* Internal use only */ + ST_UINT state; /* see FIL_STATE_xxx flags */ + FILE *fp; + } FILE_LOG_CTRL; + +/* Memory Logging State flags */ + +#define MEM_STATE_INIT 0x0001 + +/* Memory Logging Control flags */ + +#define MEM_CTRL_MSG_HDR_EN 0x0001 +#define MEM_CTRL_AUTODUMP_EN 0x0002 +#define MEM_CTRL_HEX_LOG 0x0004 + +typedef struct mem_log_ctrl + { +/* User sets these elements */ + ST_INT maxItems; /* # items to allocate at powerup */ + ST_CHAR *dumpFileName; /* where memory dump goes */ + ST_UINT ctrl; /* see MEM_CTRL_xxx flags */ + +/* Internal use only */ + ST_UINT state; /* see MEM_STATE_xxx flags */ + LOGMEM_ITEM *item; /* Item table */ + ST_INT nextPut; /* Current position (where last was put */ + } MEM_LOG_CTRL; + +/************************************************************************/ +/* Socket Slogging Subsystem */ +/************************************************************************/ + +#define SLOGIPC_NAME "SLOGIPC" /* used in GEN_SOCK */ +#define SLOGIPCCALLING_NAME "SLOGIPCCALLING" /* used in GEN_SOCK */ + +/* Default listen port for LogViewer */ +#define IPC_LOG_LOGVIEWER_PORT 55146 + +/* default parameters for socket logging subsystem */ +#define IPC_LOG_BASE_PORT 55147 + +/* ports below are taken by following SISCO applications: */ +#define IPC_LOG_PORT_AXS4ICCP IPC_LOG_BASE_PORT+1 /* 55148 */ +#define IPC_LOG_PORT_OSILL2 IPC_LOG_BASE_PORT+2 /* 55149 */ +#define IPC_LOG_PORT_OSILL2_IPC IPC_LOG_BASE_PORT+3 /* 55150 */ +#define IPC_LOG_PORT_AXS4MMS IPC_LOG_BASE_PORT+4 /* 55151 */ +#define IPC_LOG_PORT_AXS4IEC61850 IPC_LOG_BASE_PORT+5 /* 55152 */ +#define IPC_LOG_PORT_AXS4GOOSE_OLD IPC_LOG_BASE_PORT+6 /* 55153 */ +#define IPC_LOG_PORT_RFC1006_LISTENER IPC_LOG_BASE_PORT+7 /* 55154 */ +#define IPC_LOG_PORT_ICCPCFG IPC_LOG_BASE_PORT+8 /* 55155 */ + +/* UIB ports: reserve 10: 55157-55167 */ +#define IPC_LOG_PORT_UIBBASE IPC_LOG_BASE_PORT+10 /* 55157 */ +#define IPC_LOG_NUMPORTS_UIB 10 + +#define IPC_LOG_PORT_SNAP_LITE_DAEMON IPC_LOG_BASE_PORT+33 /* 55180 */ +#define IPC_LOG_PORT_SNAP_LITE_UTIL IPC_LOG_BASE_PORT+34 /* 55181 */ + +/* MMS-EASE demo programs: reserve 10 55190-55199 */ +#define IPC_LOG_PORT_MMS_EASE IPC_LOG_BASE_PORT+43 /* 55190 */ + +/* MMS-LITE demo programs: reserve 10 55200-55209 */ +#define IPC_LOG_PORT_MMS_LITE IPC_LOG_BASE_PORT+53 /* 55200 */ + +/* ICCP-LITE demo programs: reserve 5 55210-55214 */ +#define IPC_LOG_PORT_ICCP_LITE IPC_LOG_BASE_PORT+63 /* 55210 */ + +/* USPS IOS ports: reserve 100 : 55347-55447 */ +#define IPC_LOG_IOS_MPECOM IPC_LOG_BASE_PORT+200 /* 55347 */ +#define IPC_LOG_IOS_MPE IPC_LOG_BASE_PORT+201 /* 55348 */ +#define IPC_LOG_IOS_GATEWAY IPC_LOG_BASE_PORT+202 /* 55349 */ + +/* UAP related elements */ +#define IPC_LOG_PORT_AXS4GOOSE IPC_LOG_BASE_PORT+300 /* 55447 */ +#define IPC_LOG_PORT_DSPI IPC_LOG_BASE_PORT+301 /* 55448 */ +#define IPC_LOG_PORT_SCLDEVLOADEX IPC_LOG_BASE_PORT+302 /* 55449 */ +#define IPC_LOG_PORT_UAPPC IPC_LOG_BASE_PORT+303 /* 55450 */ +#define IPC_LOG_PORT_GOOSEBLASTER IPC_LOG_BASE_PORT+304 /* 55451 */ +#define IPC_LOG_PORT_GOOSEBLASTERCONTROL IPC_LOG_BASE_PORT+305 /* 55452 */ +#define IPC_LOG_PORT_SDE_ATM IPC_LOG_BASE_PORT+306 /* 55453 */ +#define IPC_LOG_PORT_SDE_MONITOR IPC_LOG_BASE_PORT+307 /* 55454 */ +#define IPC_LOG_PORT_SDE_DRIVER IPC_LOG_BASE_PORT+308 /* 55455 */ +#define IPC_LOG_PORT_SDE_OPCUA_SERVER IPC_LOG_BASE_PORT+309 /* 55456 */ + +/* COMTRADE Utility ports */ +#define IPC_LOG_PORT_COMTRADE_UTILITY IPC_LOG_BASE_PORT+350 /* 55497 */ + + +#define IPC_LOG_MAX_CONNECTIONS 10 +#define IPC_LOG_MAX_QUEUE_CNT 100 + +/* SMART MODE */ +/* Format of smart message is 3 unsigned long integers: */ +/* unsigned long magicNumber = SLOGIPC_MAGIC_NUMBER; */ +/* unsigned long messageType = SLOGIPC_MSG_TYPE_XXX */ +/* unsigned long messageLen = dataLength */ + +/* Followed by one of: */ +/* nothing */ +/* char[messageLen] */ +/* unsigned long missedMessageCount */ + +#define SLOGIPC_MAGIC_NUMBER_SEAL 0x1F2E3D4D +#define SLOGIPC_MAGIC_NUMBER_NOSEAL 0x1F2E3D4C + +typedef struct + { + ST_UINT32 magicNumber; + ST_UINT32 messageType; + ST_UINT32 messageLen; + } SLOGIPC_SMART_MSG_HDR; + +ST_VOID _slogIpcInitHdr (struct tag_GEN_SOCK *pSock, + struct tag_GEN_SOCK_DATA *sockData, + ST_UINT32 msgType, ST_INT dataLen); + +#ifdef SLOGIPC_SEAL +typedef struct + { + ST_UINT32 magicNumber; + ST_UINT32 messageType; + ST_UINT32 messageLen; + S_SEAL seal; + } SLOGIPC_SMART_MSG_HDRS; +ST_VOID _slogIpcSetSeal (SLOGIPC_SMART_MSG_HDRS *sHdrS); +ST_RET _slogIpcCheckSeal (struct log_ctrl *lc, SLOGIPC_SMART_MSG_HDRS *sHdrS); +#endif + +/* message types */ +#define SLOGIPC_MSG_TYPE_LOG 0x00000000 +#define SLOGIPC_MSG_TYPE_RESERVED 0x00000001 +#define SLOGIPC_MSG_TYPE_APPID 0x00000002 +#define SLOGIPC_MSG_TYPE_START 0x00000003 +#define SLOGIPC_MSG_TYPE_STOP 0x00000004 + +/* Standard command message response types */ +#define SLOGIPC_MSG_TYPE_RESP_SUCCESS 0x00000005 +#define SLOGIPC_MSG_TYPE_RESP_FAILURE 0x00000006 + +/* Standard command message types */ +#define SLOGIPC_MSG_TYPE_OPTIONS 0x00000007 +#define SLOGIPC_MSG_TYPE_READ_LOGCFG 0x00000008 +#define SLOGIPC_MSG_TYPE_WRITE_LOGCFG 0x00000009 + +/* IF we missed log messages ... */ +#define SLOGIPC_MSG_TYPE_LOG_MISSED 0x0000000A + +#define SLOGIPC_MSG_TYPE_CLONE_LOG 0x00000010 +#define SLOGIPC_MSG_TYPE_RESET_LOG 0x00000020 +#define SLOGIPC_MSG_TYPE_WRITE_MSGDATA 0x00000030 +#define SLOGIPC_MSG_TYPE_GET_LOGMASKS 0x00000040 + + +/* General application specific command */ +#define SLOGIPC_MSG_TYPE_CMD 0x00000100 + +/* Defines for options (bitmasked) */ +#define LOG_IPC_EDIT_LOGCFG 0x00000001 + +/* configuration parameters for socket logging & command subsystem */ +typedef struct ipc_log_ctrl_tag + { + /* Used for client (calling) connections */ + ST_CHAR *callingIp; /* IP or host name of host to connect to*/ + ST_UINT16 callingPort; /* port of host to connect to */ + ST_ULONG callingBackoff; /* ms */ + ST_INT sealMode; + ST_INT sealTimeWindow; + + /* Used for server (called) connections */ + ST_UINT16 port; /* listening port number */ + ST_UINT16 portCnt; /* num of listening ports starting with */ + /* base port, for multiple app instances*/ + + ST_UINT16 portUsed; /* this the listening port actually used*/ + ST_UINT maxConns; /* max connections that can be accepted */ + + /* Misc parameters */ + ST_UINT maxQueCnt; /* max num of logs that can be queued */ + + ST_CHAR *appId; /* pointer to NULL terminated string */ + /* identifying the application, sent to */ + /* IPC Logging Client in first message */ + + ST_UINT32 options; /* Options supported by the app */ + + /* command processing function pointer - to be set by user application */ + ST_VOID (*slog_ipc_cmd_fun) (struct tag_GEN_SOCK *pSock, struct tag_GEN_SOCK_DATA *sockData, + ST_UINT32 msgType, ST_UINT32 msgDataLen, ST_CHAR *msgData); + + } IPC_LOG_CTRL; + + +/* Standard command handling support */ +typedef struct + { + DBL_LNK l; + struct tag_GEN_SOCK *pSock; + struct tag_GEN_SOCK_DATA *sockData; + ST_UINT32 msgType; + ST_UINT32 msgDataLen; + ST_CHAR *msgData; + } SLOGIPC_CMD; + +extern SLOGIPC_CMD *slogIpcCmdList; +extern ST_INT slogIpcMaxCmdPend; + +ST_VOID slog_ipc_std_cmd_fun (struct tag_GEN_SOCK *pSock, + struct tag_GEN_SOCK_DATA *sockData, + ST_UINT32 msgType, ST_UINT32 msgDataLen, + ST_CHAR *msgData); + +ST_VOID slog_ipc_std_cmd_service (ST_CHAR *logCfgFile, /* As used in logcfgx_exx */ + ST_CHAR *fileNamePrefix, /* ditto */ + ST_CHAR *cName, /* ditto */ + ST_BOOLEAN callingEnable, + ST_RET (*logReloadHandler) (ST_VOID), + ST_RET (*extendedCmdHandler) (SLOGIPC_CMD *slogIpcCmd)); + +ST_VOID slog_ipc_std_cmd_service_ex (struct log_ctrl *lc, + ST_CHAR *logCfgFile, /* As used in logcfgx_exx */ + ST_CHAR *fileNamePrefix, /* ditto */ + ST_CHAR *cName, /* ditto */ + ST_BOOLEAN callingEnable, + ST_RET (*logReloadHandler) (ST_VOID), + ST_RET (*extendedCmdHandler) (SLOGIPC_CMD *slogIpcCmd)); + +ST_VOID slogIpcCallingEnable (ST_BOOLEAN enable); +ST_VOID slogIpcCallingEnableEx (struct log_ctrl *lc, ST_BOOLEAN enable); + +ST_INT slogIpcActiveCount (struct log_ctrl *lc); + +/************************************************************************/ +/* SLOG IPC Context */ + +/* connection states */ +#define SLOGIPC_CON_IDLE 0 +#define SLOGIPC_CONNECTED 1 +#define SLOGIPC_CON_CLOSING 2 + +/* Remote connection info */ +typedef struct slogipc_con_ctrl_tag + { + DBL_LNK link; /* link list */ + struct tag_GEN_SOCK *conSock; /* pointer to socket info */ + ST_UINT conState; /* connection state */ + ST_BOOLEAN txEnable; /* Used in smart mode */ + struct tag_GEN_SOCK_DATA *sendQue; /* Pending send queue to the Remote */ + ST_UINT sendQueCnt; /* number of messages to send in queue */ + struct tag_GEN_SOCK_DATA *rcvBuf; /* alloc buf to drain any rcvd bytes */ + } SLOGIPC_CON_CTRL; + + +/* SLOGIPC context states */ +#define SLOGIPC_CTX_IDLE 0 +#define SLOGIPC_CTX_ACTIVE 1 +#define SLOGIPC_CTX_TERMINATING 2 + +/* This structure holds core parameters */ +typedef struct slogipc_ctx_tag + { + ST_UINT state; /* SLOGIPC_CTX_* */ + ST_BOOLEAN smartMode; /* SD_TRUE if smart mode enabled, SD_FALSE otherwise */ + + ST_INT sealMode; + + SLOGIPC_CON_CTRL *conCtrlList; /* list of connect CTRLs */ + struct tag_GEN_SOCK *listenSock; /* listen socket for conns from remote slog Clients */ + struct tag_GEN_SOCK *callingSock; /* calling socket for conns to remote slog Client */ + struct log_ctrl *lc; /* save to access appId when connected */ + struct tag_GEN_SOCK_CTXT *sockCtx; /* this is gensock2 context for slogipc.c */ + + ST_INT hdrSize; /* Calculated at startup */ + ST_INT magicNumber; + + ST_BOOLEAN callingEnabled; + ST_DOUBLE nextCallingConnectTime; + } SLOGIPC_CTX; + + +/************************************************************************/ +/* LOG CONTROL */ +/* A structure of this type is used for each independent logging entity */ +/************************************************************************/ + +/* Log control mask values */ +#define LOG_MEM_EN 0x0001L +#define LOG_FILE_EN 0x0002L +#define LOG_TIME_EN 0x0008L +#define LOG_ELAPSEDTIME_EN 0x0020L /* Windows only */ + +#define LOG_TIMEDATE_EN 0x0010L /* obsolete - ignored */ +#define LOG_DIFFTIME_EN 0x0020L /* obsolete - ignored */ +#define LOG_TIME_INITIALIZED 0x0040L /* obsolete - ignored */ +#define LOG_SYSTIME_EN 0x0100L /* obsolete - ignored */ + +#define LOG_NO_HEADER_CR 0x0200L +#define LOG_FILENAME_SUPPRESS 0x0400L +#define LOG_LOGTYPE_SUPPRESS 0x0800L + +#define LOG_IPC_LISTEN_EN 0x1000L +#define LOG_IPC_CALL_EN 0x2000L +#define LOG_IPC_SMART 0x4000L +#define LOG_IPC_EN (LOG_IPC_LISTEN_EN|LOG_IPC_CALL_EN) + +#define SLOG_NORMAL 0 +#define SLOG_CONT -1 +/* Dynamic logging standard command definitions */ +#define SLOG_DYN_PAUSE -10 /* OBSOLETE */ +#define SLOG_DYN_LF -11 /* OBSOLETE */ +#define SLOG_DYN_CLRSCR -12 /* OBSOLETE */ + +typedef struct log_ctrl + { +/* User sets these elements */ + ST_UINT32 logCtrl; /* Logging Control flags - see LOG_xxx defines */ + FILE_LOG_CTRL fc; /* File logging control */ + MEM_LOG_CTRL mc; /* Memory logging control */ + IPC_LOG_CTRL ipc; /* IPC logging control */ + + +/* Application specific information */ + ST_UINT32 logMask1; /* These bit masked variables are used by the */ + ST_UINT32 logMask2; /* user application to determine whether a item */ + ST_UINT32 logMask3; /* is to be logged. 6 ST_INT32's == 192 bits */ + ST_UINT32 logMask4; + ST_UINT32 logMask5; + ST_UINT32 logMask6; + +/* Internal variables. */ + ST_BOOLEAN initialized; /* Set when LOG_CTRL has been initializled */ + ST_INT max_msg_size; /* max allowed log msg size. */ + ST_CHAR *msg_buf; /* buffer for log msg */ + +/* static vars */ + SLOGIPC_CTX slogIpcCtx; + } LOG_CTRL; + + +/* Max size of any single log statement (sprintf) */ + +#define MAX_LOG_SIZE 5000 + +/* Set the following variable to a number larger than the default of */ +/* MAX_LOG_SIZE if you want to log more than 500 bytes in a single */ +/* message. */ + +extern ST_INT sl_max_msg_size; + +/************************************************************************/ +/* Main entry points into the SLOG library */ +/************************************************************************/ + +ST_VOID slog (LOG_CTRL *lc, + SD_CONST ST_INT logType, + SD_CONST ST_CHAR *SD_CONST sourceFile, + SD_CONST ST_INT lineNum, + SD_CONST ST_CHAR *format, ...); + +ST_VOID slogx (ST_UINT32 doit, LOG_CTRL *lc, + SD_CONST ST_INT logType, + SD_CONST ST_CHAR *SD_CONST sourceFile, + SD_CONST ST_INT lineNum, + SD_CONST ST_CHAR *format, ...); + +ST_VOID slogHex (LOG_CTRL *lc, + SD_CONST ST_INT logType, + SD_CONST ST_CHAR *SD_CONST fileName, + SD_CONST ST_INT lineNum, + SD_CONST ST_INT numBytes, + SD_CONST ST_VOID *hexData); + + +ST_VOID _slog (LOG_CTRL *lc, + SD_CONST ST_CHAR *SD_CONST logTypeStr, + SD_CONST ST_CHAR *SD_CONST sourceFile, + SD_CONST ST_INT lineNum, + SD_CONST ST_CHAR *format, ...); +ST_VOID _slogc (LOG_CTRL *lc, SD_CONST ST_CHAR *format, ...); + +ST_VOID _slogx (ST_UINT32 doit, LOG_CTRL *lc, + SD_CONST ST_CHAR *SD_CONST logTypeStr, + SD_CONST ST_CHAR *SD_CONST sourceFile, + SD_CONST ST_INT lineNum, + SD_CONST ST_CHAR *format, ...); + +ST_VOID _slogHex (LOG_CTRL *lc, + ST_INT numBytes, + SD_CONST ST_VOID *hexData); + +ST_VOID _slogXML (LOG_CTRL *lc, + SD_CONST ST_CHAR *SD_CONST logTypeStr, + SD_CONST ST_CHAR *SD_CONST sourceFile, + SD_CONST ST_INT lineNum, + ST_UINT numBytes, + SD_CONST ST_CHAR *textData); + +ST_VOID _slogStr (LOG_CTRL *lc, ST_CHAR *strData); + +ST_RET slog_start (LOG_CTRL *lc, ST_INT max_msg_size); +ST_RET slog_end (LOG_CTRL *lc); + +ST_RET slog_max_msg_size_set (LOG_CTRL *lc, ST_INT max_msg_size); +/* Use macro to get max msg size. Faster. */ +#define slog_max_msg_size_get(log_ctrl) (log_ctrl->max_msg_size) + +ST_VOID slogIpcSendData (struct tag_GEN_SOCK *pSock, ST_UINT32 msgType, + ST_INT dataLen, ST_UCHAR *data); +ST_VOID slogIpcSendRawData (LOG_CTRL *lc, ST_INT bufLen, ST_CHAR *buf, ST_BOOLEAN sendAlways); + + +/************************************************************************/ +/* Main entry points into the SLOG library */ +/************************************************************************/ + +/* File Logging Utility Functions */ + +ST_VOID slogCloseFile (LOG_CTRL *lc); +ST_VOID slogCloneFile (LOG_CTRL *lc, SD_CONST ST_CHAR *newfile); +ST_VOID slogCloneFileEx (LOG_CTRL *lc, SD_CONST ST_CHAR *newFile); +ST_VOID slogDeleteFile (LOG_CTRL *lc); +ST_VOID slogCallStack (LOG_CTRL *lc, SD_CONST ST_CHAR *txt); +ST_VOID slogDelBuf (LOG_CTRL *lc); + +/* Memory Logging Utility Functions */ + +ST_VOID slogDumpMem (LOG_CTRL *lc); +ST_VOID slogResetMem (LOG_CTRL *lc); +ST_CHAR *slogGetMemMsg (LOG_CTRL *lc, SD_CONST ST_INT msgNum); +ST_INT slogGetMemCount (LOG_CTRL *lc); + +/* Internal functions */ + +ST_VOID slogFile (LOG_CTRL *lc, SD_CONST ST_INT logType, + SD_CONST ST_CHAR *SD_CONST logTypeStr, + SD_CONST ST_CHAR *SD_CONST sourceFile, + SD_CONST ST_INT lineNum, + SD_CONST ST_INT bufLen, SD_CONST ST_CHAR *buf); + +ST_VOID slogMem (LOG_CTRL *lc, + SD_CONST ST_INT logType, + SD_CONST ST_CHAR *SD_CONST logTypeStr, + SD_CONST ST_CHAR *SD_CONST sourceFile, + SD_CONST ST_INT lineNum, + ST_INT bufLen, SD_CONST ST_CHAR *buf); + +ST_RET slogIpcInit (LOG_CTRL *lc); +ST_RET slogIpcStop (LOG_CTRL *lc); +ST_RET slogIpcEvent (ST_VOID); +ST_RET slogIpcEventEx (LOG_CTRL *lc); + +ST_VOID slogIpc (LOG_CTRL *lc, ST_INT logType, + SD_CONST ST_CHAR *SD_CONST logTypeStr, + SD_CONST ST_CHAR *SD_CONST sourceFile, + ST_INT lineNum, ST_INT bufLen, + ST_CHAR *buf); + +ST_VOID slogMemInit (LOG_CTRL *lc); +ST_RET read_log_cfg_file (ST_CHAR *cfg_filename); +ST_RET slog_get_index_file_name (LOG_CTRL *lc, ST_CHAR *dest, ST_INT destLen); + +/************************************************************************/ + +/* dataType defines */ +#define _LOGCFG_DATATYPE_UINT_MASK 0 +#define _LOGCFG_DATATYPE_UINT32_MASK 1 +#define _LOGCFG_DATATYPE_RUINT32_MASK 2 +#define _LOGCFG_DATATYPE_BOOLEAN 3 +#define _LOGCFG_DATATYPE_INT 4 +#define _LOGCFG_DATATYPE_LONG 5 +#define _LOGCFG_DATATYPE_INT16 6 +#define _LOGCFG_DATATYPE_INT32 7 +#define _LOGCFG_DATATYPE_UINT 8 +#define _LOGCFG_DATATYPE_ULONG 9 +#define _LOGCFG_DATATYPE_UINT16 10 +#define _LOGCFG_DATATYPE_UINT32 11 +#define _LOGCFG_DATATYPE_STRING 12 +#define _LOGCFG_DATATYPE_STRINGBUF 13 +#define _LOGCFG_DATATYPE_DOUBLE 14 +#define _LOGCFG_DATATYPE_FILENAME 15 +#define _LOGCFG_DATATYPE_CALLBACK 16 + + +typedef struct + { + ST_CHAR *tag; /* NULL if must use perferredTag field */ + ST_UINT mask; + ST_VOID *addr; + ST_INT dataType; + ST_CHAR *description; /* NULL for no description */ + ST_CHAR *preferredTag; /* NULL if must use tag field */ + } LOGCFGX_VALUE_MAP; + +typedef struct + { + DBL_LNK l; + ST_CHAR *name; + ST_INT numMaskMap; + LOGCFGX_VALUE_MAP *maskMapTbl; + } LOGCFG_VALUE_GROUP; + + +ST_RET logcfgx_exx (LOG_CTRL *destLogCtrl, ST_CHAR *logFileName, ST_CHAR *fileNamePrefix, + ST_BOOLEAN masksOnly, ST_BOOLEAN saveTagVals, ST_CHAR *compName); +ST_RET logcfgx_ex (LOG_CTRL *destLogCtrl, ST_CHAR *logFileName, ST_CHAR *fileNamePrefix, + ST_BOOLEAN masksOnly, ST_BOOLEAN saveTagVals); +ST_VOID logCfgAddMaskGroup (LOGCFG_VALUE_GROUP *logMaskGroup); +ST_VOID logCfgRemoveMaskGroup (LOGCFG_VALUE_GROUP *logMaskGroup); +ST_VOID logCfgRemoveAllMaskGroups (ST_VOID); +ST_RET _logcfg_get_logmasks (ST_CHAR *xmlBuf, ST_INT *xmlSizeIo); +ST_INT _logcfg_get_logmasks_size (ST_VOID); + +/* ST_VOID (*logCfgCallbackFun) (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *tag, LOGCFGX_VALUE_MAP *valMap); */ + + +extern LOGCFG_VALUE_GROUP acseLogMaskMapCtrl; /* MMS-LITE, ICCP-LITE, MMS-EASE */ +extern LOGCFG_VALUE_GROUP adlcLogMaskMapCtrl; /* MMS-LITE */ +extern LOGCFG_VALUE_GROUP asn1LogMaskMapCtrl; /* MMS-LITE, ICCP-LITE, MMS-EASE */ +extern LOGCFG_VALUE_GROUP clnpLogMaskMapCtrl; /* MMS-LITE, ICCP-LITE */ +extern LOGCFG_VALUE_GROUP genlistDebugMapCtrl; /* MMS-LITE, ICCP-LITE, MMS-EASE */ +extern LOGCFG_VALUE_GROUP gsLogMaskMapCtrl; /* MMS-LITE, ICCP-LITE, MMS-EASE */ +extern LOGCFG_VALUE_GROUP icfgLogMaskMapCtrl; /* ICCP-LITE */ +extern LOGCFG_VALUE_GROUP logcfgMaskMapCtrl; /* MMS-LITE, ICCP-LITE, MMS-EASE */ +extern LOGCFG_VALUE_GROUP logCfgLogCtrlMapCtrl; /* MMS-LITE, ICCP-LITE, MMS-EASE */ +extern LOGCFG_VALUE_GROUP memDebugMapCtrl; /* MMS-LITE, ICCP-LITE, MMS-EASE */ +extern LOGCFG_VALUE_GROUP memLogMaskMapCtrl; /* MMS-LITE, ICCP-LITE, MMS-EASE */ +extern LOGCFG_VALUE_GROUP miLogMaskMapCtrl; /* ICCP-LITE */ +extern LOGCFG_VALUE_GROUP mmsLogMaskMapCtrl; /* MMS-LITE, ICCP-LITE, MMS-EASE */ +extern LOGCFG_VALUE_GROUP mvlLogMaskMapCtrl; /* MMS-LITE, ICCP-LITE */ +extern LOGCFG_VALUE_GROUP secLogMaskMapCtrl; /* MMS-LITE, ICCP-LITE, MMS-EASE */ +extern LOGCFG_VALUE_GROUP ssleLogMaskMapCtrl; /* MMS-LITE, ICCP-LITE, MMS-EASE */ +extern LOGCFG_VALUE_GROUP ssleASN1LogMaskMapCtrl; +extern LOGCFG_VALUE_GROUP smpLogMaskMapCtrl; /* MMS-LITE */ +extern LOGCFG_VALUE_GROUP sockLogMaskMapCtrl; /* MMS-LITE, ICCP-LITE, MMS-EASE */ +extern LOGCFG_VALUE_GROUP suicLogMaskMapCtrl; /* MMS-EASE */ +extern LOGCFG_VALUE_GROUP sxLogMaskMapCtrl; /* MMS-LITE, ICCP-LITE, MMS-EASE */ +extern LOGCFG_VALUE_GROUP tp4LogMaskMapCtrl; /* MMS-LITE, ICCP-LITE, MMS-EASE */ +extern LOGCFG_VALUE_GROUP usrLogMaskMapCtrl; /* MMS-LITE */ +/* For 142-XXX products (MMS_EASE over Lite Stack) */ +extern LOGCFG_VALUE_GROUP ipcLogMaskMapCtrl; +extern LOGCFG_VALUE_GROUP sscLogMaskMapCtrl; + + +typedef struct + { + DBL_LNK l; + ST_CHAR *tag; + ST_CHAR *tagPath; + ST_INT dataType; + union + { + ST_BOOLEAN b; + ST_INT sInt; + ST_LONG sLong; + ST_INT16 sInt16; + ST_INT32 sInt32; + ST_UINT uInt; + ST_ULONG uLong; + ST_UINT16 uInt16; + ST_UINT32 uInt32; + ST_DOUBLE dbl; + ST_CHAR *str; + }u; + } LOGCFGX_TAG_VAL; + +LOGCFGX_TAG_VAL *logCfgFindTagVal (ST_CHAR *tag); +ST_VOID logCfgClearTagVals (ST_VOID); + + +/************************************************************************/ +/************************************************************************/ +/* logcfg_debug_sel bit assignments */ +#define LOGCFG_ERR 0x0001 +#define LOGCFG_NERR 0x0002 +#define LOGCFG_FLOW 0x0004 + +extern ST_UINT logcfg_debug_sel; + +/* Log type strings */ +extern SD_CONST ST_CHAR *SD_CONST _logcfg_log_err_logstr; +extern SD_CONST ST_CHAR *SD_CONST _logcfg_log_nerr_logstr; +extern SD_CONST ST_CHAR *SD_CONST _logcfg_log_flow_logstr; + +/************************************************************************/ +/* Err log macros */ +#define LOGCFG_ERR0(a) \ + SLOG_0 (logcfg_debug_sel & LOGCFG_ERR,_logcfg_log_err_logstr,a) +#define LOGCFG_ERR1(a,b) \ + SLOG_1 (logcfg_debug_sel & LOGCFG_ERR,_logcfg_log_err_logstr,a,b) +#define LOGCFG_ERR2(a,b,c) \ + SLOG_2 (logcfg_debug_sel & LOGCFG_ERR,_logcfg_log_err_logstr,a,b,c) +#define LOGCFG_ERR3(a,b,c,d) \ + SLOG_3 (logcfg_debug_sel & LOGCFG_ERR,_logcfg_log_err_logstr,a,b,c,d) +#define LOGCFG_ERR4(a,b,c,d,e) \ + SLOG_4 (logcfg_debug_sel & LOGCFG_ERR,_logcfg_log_err_logstr,a,b,c,d,e) + +/* Err continuation log macros */ +#define LOGCFG_CERR0(a) \ + SLOGC_0 (logcfg_debug_sel & LOGCFG_ERR,a) +#define LOGCFG_CERR1(a,b) \ + SLOGC_1 (logcfg_debug_sel & LOGCFG_ERR,a,b) +#define LOGCFG_CERR2(a,b,c) \ + SLOGC_2 (logcfg_debug_sel & LOGCFG_ERR,a,b,c) +#define LOGCFG_CERR3(a,b,c,d) \ + SLOGC_3 (logcfg_debug_sel & LOGCFG_ERR,a,b,c,d) +#define LOGCFG_CERR4(a,b,c,d,e) \ + SLOGC_4 (logcfg_debug_sel & LOGCFG_ERR,a,b,c,d,e) + +/************************************************************************/ +/* NErr log macros */ +#define LOGCFG_NERR0(a) \ + SLOG_0 (logcfg_debug_sel & LOGCFG_NERR,_logcfg_log_nerr_logstr,a) +#define LOGCFG_NERR1(a,b) \ + SLOG_1 (logcfg_debug_sel & LOGCFG_NERR,_logcfg_log_nerr_logstr,a,b) +#define LOGCFG_NERR2(a,b,c) \ + SLOG_2 (logcfg_debug_sel & LOGCFG_NERR,_logcfg_log_nerr_logstr,a,b,c) +#define LOGCFG_NERR3(a,b,c,d) \ + SLOG_3 (logcfg_debug_sel & LOGCFG_NERR,_logcfg_log_nerr_logstr,a,b,c,d) +#define LOGCFG_NERR4(a,b,c,d,e) \ + SLOG_4 (logcfg_debug_sel & LOGCFG_NERR,_logcfg_log_nerr_logstr,a,b,c,d,e) + +/* NErr continuation log macros */ +#define LOGCFG_CNERR0(a) \ + SLOGC_0 (logcfg_debug_sel & LOGCFG_NERR,a) +#define LOGCFG_CNERR1(a,b) \ + SLOGC_1 (logcfg_debug_sel & LOGCFG_NERR,a,b) +#define LOGCFG_CNERR2(a,b,c) \ + SLOGC_2 (logcfg_debug_sel & LOGCFG_NERR,a,b,c) +#define LOGCFG_CNERR3(a,b,c,d) \ + SLOGC_3 (logcfg_debug_sel & LOGCFG_NERR,a,b,c,d) +#define LOGCFG_CNERR4(a,b,c,d,e) \ + SLOGC_4 (logcfg_debug_sel & LOGCFG_NERR,a,b,c,d,e) + +/************************************************************************/ +/* Flow log macros */ +#define LOGCFG_FLOW0(a) \ + SLOG_0 (logcfg_debug_sel & LOGCFG_FLOW,_logcfg_log_flow_logstr,a) +#define LOGCFG_FLOW1(a,b) \ + SLOG_1 (logcfg_debug_sel & LOGCFG_FLOW,_logcfg_log_flow_logstr,a,b) +#define LOGCFG_FLOW2(a,b,c) \ + SLOG_2 (logcfg_debug_sel & LOGCFG_FLOW,_logcfg_log_flow_logstr,a,b,c) +#define LOGCFG_FLOW3(a,b,c,d) \ + SLOG_3 (logcfg_debug_sel & LOGCFG_FLOW,_logcfg_log_flow_logstr,a,b,c,d) +#define LOGCFG_FLOW4(a,b,c,d,e) \ + SLOG_4 (logcfg_debug_sel & LOGCFG_FLOW,_logcfg_log_flow_logstr,a,b,c,d,e) + +/* Flow continuation log macros */ +#define LOGCFG_CFLOW0(a) \ + SLOGC_0 (logcfg_debug_sel & LOGCFG_FLOW,a) +#define LOGCFG_CFLOW1(a,b) \ + SLOGC_1 (logcfg_debug_sel & LOGCFG_FLOW,a,b) +#define LOGCFG_CFLOW2(a,b,c) \ + SLOGC_2 (logcfg_debug_sel & LOGCFG_FLOW,a,b,c) +#define LOGCFG_CFLOW3(a,b,c,d) \ + SLOGC_3 (logcfg_debug_sel & LOGCFG_FLOW,a,b,c,d) +#define LOGCFG_CFLOW4(a,b,c,d,e) \ + SLOGC_4 (logcfg_debug_sel & LOGCFG_FLOW,a,b,c,d,e) + + +/************************************************************************/ +/************************************************************************/ +/* Global variables for the SLOG library. */ +/************************************************************************/ + +/* Log masks for different components of SISCO products. */ +extern ST_UINT gs_debug_sel; +extern ST_UINT clnp_debug_sel; + + +extern LOG_CTRL *sLogCtrl; +extern LOG_CTRL *sErrLogCtrl; + +extern ST_BOOLEAN sNonStandardLogMode; + +/************************************************************************/ +/* These elements are used for creating time strings */ +/************************************************************************/ + +extern ST_CHAR slogTimeText[TIME_BUF_LEN]; +ST_VOID slogSetTimeText (LOG_CTRL *lc); + +/************************************************************************/ +/* slog header defines and buffer */ +/************************************************************************/ + +#define SLOG_MAX_FNAME 64 +#define SLOG_MAX_LOGTYPESTR 40 /* logTypeStr cutoff if too long*/ +#define SLOG_MAX_HDR (2 + \ + TIME_BUF_LEN + \ + SLOG_MAX_LOGTYPESTR+1 + \ + SLOG_MAX_FNAME+14 + \ + 1 + 2) + +/* (2 NL , NL */ +/* TIME_BUF_LEN + slogTimeText buf size */ +/* SLOG_MAX_LOGTYPESTR+1 + limit for logTypeStr */ +/* SLOG_MAX_FNAME+14 + fName & lineNum formatting */ +/* 1 + 2) NL + 2 spaces before msg */ + +ST_VOID slogTrimFileName (ST_CHAR *dest, SD_CONST ST_CHAR *fullName); +ST_VOID slogSetHdr (LOG_CTRL *lc, SD_CONST ST_INT logType, + SD_CONST ST_CHAR *SD_CONST logTypeStr, + SD_CONST ST_CHAR *SD_CONST sourceFile, + SD_CONST ST_INT lineNum, + ST_CHAR *slogHdr, ST_CHAR *lineBreak); + +/************************************************************************/ +/* dynamic loging function */ +/************************************************************************/ + +extern ST_VOID (*slog_dyn_log_fun) (LOG_CTRL *lc, + SD_CONST ST_INT logType, + SD_CONST ST_CHAR *SD_CONST sourceFile, + SD_CONST ST_INT lineNum, + SD_CONST ST_INT bufLen, + SD_CONST ST_CHAR *buf); +extern ST_VOID (*_slog_dyn_log_fun) (LOG_CTRL *lc, + SD_CONST ST_CHAR *timeStr, + SD_CONST ST_INT logType, + SD_CONST ST_CHAR *SD_CONST logTypeStr, + SD_CONST ST_CHAR *SD_CONST sourceFile, + SD_CONST ST_INT lineNum, + SD_CONST ST_INT bufLen, + SD_CONST ST_CHAR *buf); + +/************************************************************************/ +/* This function pointer is invoked during slow SLOG operations, such */ +/* as 'clone' and 'find oldest message' */ + +extern ST_VOID (*slog_service_fun) (ST_VOID); + +/************************************************************************/ +/* Remote logging function */ +/************************************************************************/ + +extern ST_VOID (*slog_remote_fun) (ST_UINT32 slog_remote_flags, + LOG_CTRL *lc, + SD_CONST ST_INT logType, + SD_CONST ST_CHAR *SD_CONST sourceFile, + SD_CONST ST_INT lineNum, + SD_CONST ST_INT bufLen, + SD_CONST ST_CHAR *buf); + +extern ST_VOID (*_slog_remote_fun) (ST_UINT32 slog_remote_flags, + LOG_CTRL *lc, + SD_CONST ST_INT logType, + SD_CONST ST_CHAR *SD_CONST logTypeStr, + SD_CONST ST_CHAR *SD_CONST sourceFile, + SD_CONST ST_INT lineNum, + SD_CONST ST_INT bufLen, + SD_CONST ST_CHAR *buf); + +/* Parameter for use with remote logging function pointer */ +/* SLOG will pass this global variable to the slog_remote_fun function */ +extern ST_UINT32 slogRemoteFlags; + +/************************************************************************/ +/* Standard dynamic logging control definitions */ +/************************************************************************/ +/* These macros are OBSOLETE. They now do nothing. Previously they */ +/* passed logType values of SLOG_DYN_PAUSE, SLOG_DYN_LF, SLOG_DYN_CLRSCR*/ +/* respectively to slog. */ + +#define SLOG_PAUSE(lc,msg) +#define SLOG_LF(lc) +#define SLOG_CLRSCR(lc) + +/************************************************************************/ +/* Base macro types, useful for typical user logging, to reduce user */ +/* macro verbosity */ +/************************************************************************/ + +#define SLOGH1(lc,mask,id,x,y) {\ + if (lc->logMask1 & mask)\ + slogHex (sLogCtrl,id, thisFileName,__LINE__,x,y);} + + +#define SLOGH2(lc,mask,id,x,y) {\ + if (lc->logMask2 & mask)\ + slogHex (sLogCtrl,id, thisFileName,__LINE__,x,y);} + +#define SLOGH3(lc,mask,id,x,y) {\ + if (lc->logMask3 & mask)\ + slogHex (sLogCtrl,id, thisFileName,__LINE__,x,y);} + +#define SLOGH4(lc,mask,id,x,y) {\ + if (lc->logMask4 & mask)\ + slogHex (sLogCtrl,id, thisFileName,__LINE__,x,y);} + +#define SLOGH5(lc,mask,id,x,y) {\ + if (lc->logMask5 & mask)\ + slogHex (sLogCtrl,id, thisFileName,__LINE__,x,y);} + +#define SLOGH6(lc,mask,id,x,y) {\ + if (lc->logMask6 & mask)\ + slogHex (sLogCtrl,id, thisFileName,__LINE__,x,y);} + + + +/* ******************* LOG MASK 1 MACROS ************************* */ + +#define SLOG1_0(lc,mask,id,a) {\ + if (lc->logMask1 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a);\ + } + +#define SLOG1_1(lc,mask,id,a,b) {\ + if (lc->logMask1 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b);\ + } + +#define SLOG1_2(lc,mask,id,a,b,c) {\ + if (lc->logMask1 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c);\ + } + +#define SLOG1_3(lc,mask,id,a,b,c,d) {\ + if (lc->logMask1 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d);\ + } + +#define SLOG1_4(lc,mask,id,a,b,c,d,e) {\ + if (lc->logMask1 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e);\ + } + +#define SLOG1_5(lc,mask,id,a,b,c,d,e,f) {\ + if (lc->logMask1 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e,f);\ + } + +#define SLOG1_6(lc,mask,id,a,b,c,d,e,f,g) {\ + if (lc->logMask1 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e,f,g);\ + } + +#define SLOG1_7(lc,mask,id,a,b,c,d,e,f,g,h) {\ + if (lc->logMask1 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e,f,g,h);\ + } + +#define SLOG1_8(lc,mask,id,a,b,c,d,e,f,g,h,i) {\ + if (lc->logMask1 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e,f,g,h,i);\ + } + + + +/* ******************* LOG MASK 2 MACROS ************************* */ +#define SLOG2_0(lc,mask,id,a) {\ + if (lc->logMask2 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a);\ + } + +#define SLOG2_1(lc,mask,id,a,b) {\ + if (lc->logMask2 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b);\ + } + +#define SLOG2_2(lc,mask,id,a,b,c) {\ + if (lc->logMask2 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c);\ + } + +#define SLOG2_3(lc,mask,id,a,b,c,d) {\ + if (lc->logMask2 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d);\ + } + +#define SLOG2_4(lc,mask,id,a,b,c,d,e) {\ + if (lc->logMask2 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e);\ + } + +#define SLOG2_5(lc,mask,id,a,b,c,d,e,f) {\ + if (lc->logMask2 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e,f);\ + } + +#define SLOG2_6(lc,mask,id,a,b,c,d,e,f,g) {\ + if (lc->logMask2 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e,f,g);\ + } + +#define SLOG2_7(lc,mask,id,a,b,c,d,e,f,g,h) {\ + if (lc->logMask2 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e,f,g,h);\ + } + +#define SLOG2_8(lc,mask,id,a,b,c,d,e,f,g,h,i) {\ + if (lc->logMask2 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e,f,g,h,i);\ + } + + + +/* ******************* LOG MASK 3 MACROS ************************* */ +#define SLOG3_0(lc,mask,id,a) {\ + if (lc->logMask3 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a);\ + } + +#define SLOG3_1(lc,mask,id,a,b) {\ + if (lc->logMask3 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b);\ + } + +#define SLOG3_2(lc,mask,id,a,b,c) {\ + if (lc->logMask3 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c);\ + } + +#define SLOG3_3(lc,mask,id,a,b,c,d) {\ + if (lc->logMask3 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d);\ + } + +#define SLOG3_4(lc,mask,id,a,b,c,d,e) {\ + if (lc->logMask3 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e);\ + } + +#define SLOG3_5(lc,mask,id,a,b,c,d,e,f) {\ + if (lc->logMask3 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e,f);\ + } + +#define SLOG3_6(lc,mask,id,a,b,c,d,e,f,g) {\ + if (lc->logMask3 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e,f,g);\ + } + +#define SLOG3_7(lc,mask,id,a,b,c,d,e,f,g,h) {\ + if (lc->logMask3 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e,f,g,h);\ + } + +#define SLOG3_8(lc,mask,id,a,b,c,d,e,f,g,h,i) {\ + if (lc->logMask3 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e,f,g,h,i);\ + } + + + +/* ******************* LOG MASK 4 MACROS ************************* */ +#define SLOG4_0(lc,mask,id,a) {\ + if (lc->logMask4 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a);\ + } + +#define SLOG4_1(lc,mask,id,a,b) {\ + if (lc->logMask4 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b);\ + } + +#define SLOG4_2(lc,mask,id,a,b,c) {\ + if (lc->logMask4 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c);\ + } + +#define SLOG4_3(lc,mask,id,a,b,c,d) {\ + if (lc->logMask4 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d);\ + } + +#define SLOG4_4(lc,mask,id,a,b,c,d,e) {\ + if (lc->logMask4 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e);\ + } + +#define SLOG4_5(lc,mask,id,a,b,c,d,e,f) {\ + if (lc->logMask4 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e,f);\ + } + +#define SLOG4_6(lc,mask,id,a,b,c,d,e,f,g) {\ + if (lc->logMask4 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e,f,g);\ + } + +#define SLOG4_7(lc,mask,id,a,b,c,d,e,f,g,h) {\ + if (lc->logMask4 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e,f,g,h);\ + } + +#define SLOG4_8(lc,mask,id,a,b,c,d,e,f,g,h,i) {\ + if (lc->logMask4 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e,f,g,h,i);\ + } + + + + +/* ******************* LOG MASK 5 MACROS ************************* */ +#define SLOG5_0(lc,mask,id,a) {\ + if (lc->logMask5 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a);\ + } + +#define SLOG5_1(lc,mask,id,a,b) {\ + if (lc->logMask5 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b);\ + } + +#define SLOG5_2(lc,mask,id,a,b,c) {\ + if (lc->logMask5 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c);\ + } + +#define SLOG5_3(lc,mask,id,a,b,c,d) {\ + if (lc->logMask5 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d);\ + } + +#define SLOG5_4(lc,mask,id,a,b,c,d,e) {\ + if (lc->logMask5 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e);\ + } + +#define SLOG5_5(lc,mask,id,a,b,c,d,e,f) {\ + if (lc->logMask5 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e,f);\ + } + +#define SLOG5_6(lc,mask,id,a,b,c,d,e,f,g) {\ + if (lc->logMask5 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e,f,g);\ + } + +#define SLOG5_7(lc,mask,id,a,b,c,d,e,f,g,h) {\ + if (lc->logMask5 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e,f,g,h);\ + } + +#define SLOG5_8(lc,mask,id,a,b,c,d,e,f,g,h,i) {\ + if (lc->logMask5 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e,f,g,h,i);\ + } + + + +/* ******************* LOG MASK 6 MACROS ************************* */ +#define SLOG6_0(lc,mask,id,a) {\ + if (lc->logMask6 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a);\ + } + +#define SLOG6_1(lc,mask,id,a,b) {\ + if (lc->logMask6 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b);\ + } + +#define SLOG6_2(lc,mask,id,a,b,c) {\ + if (lc->logMask6 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c);\ + } + +#define SLOG6_3(lc,mask,id,a,b,c,d) {\ + if (lc->logMask6 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d);\ + } + +#define SLOG6_4(lc,mask,id,a,b,c,d,e) {\ + if (lc->logMask6 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e);\ + } + +#define SLOG6_5(lc,mask,id,a,b,c,d,e,f) {\ + if (lc->logMask6 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e,f);\ + } + +#define SLOG6_6(lc,mask,id,a,b,c,d,e,f,g) {\ + if (lc->logMask6 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e,f,g);\ + } + +#define SLOG6_7(lc,mask,id,a,b,c,d,e,f,g,h) {\ + if (lc->logMask6 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e,f,g,h);\ + } + +#define SLOG6_8(lc,mask,id,a,b,c,d,e,f,g,h,i) {\ + if (lc->logMask6 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e,f,g,h,i);\ + } + + + +/************************************************************************/ +/************************************************************************/ +#if defined(DEBUG_SISCO) +/************************************************************************/ + +extern ST_CHAR *_slogAlwaysLogTypeStr; +extern ST_CHAR *_slogXMLLogTypeStr; + +#define SLOGALWAYS0(a) \ + _slog (sLogCtrl,_slogAlwaysLogTypeStr, thisFileName,__LINE__,a) +#define SLOGALWAYS1(a,b) \ + _slog (sLogCtrl,_slogAlwaysLogTypeStr, thisFileName,__LINE__,a,b) +#define SLOGALWAYS2(a,b,c) \ + _slog (sLogCtrl,_slogAlwaysLogTypeStr, thisFileName,__LINE__,a,b,c) +#define SLOGALWAYS3(a,b,c,d) \ + _slog (sLogCtrl,_slogAlwaysLogTypeStr, thisFileName,__LINE__,a,b,c,d) +#define SLOGALWAYS4(a,b,c,d,e) \ + _slog (sLogCtrl,_slogAlwaysLogTypeStr, thisFileName,__LINE__,a,b,c,d,e) +#define SLOGALWAYS5(a,b,c,d,e,f) \ + _slog (sLogCtrl,_slogAlwaysLogTypeStr, thisFileName,__LINE__,a,b,c,d,e,f) +#define SLOGALWAYS6(a,b,c,d,e,f,g) \ + _slog (sLogCtrl,_slogAlwaysLogTypeStr, thisFileName,__LINE__,a,b,c,d,e,f,g) +#define SLOGALWAYS7(a,b,c,d,e,f,g,h) \ + _slog (sLogCtrl,_slogAlwaysLogTypeStr, thisFileName,__LINE__,a,b,c,d,e,f,g,h) +#define SLOGALWAYS8(a,b,c,d,e,f,g,h,i) \ + _slog (sLogCtrl,_slogAlwaysLogTypeStr, thisFileName,__LINE__,a,b,c,d,e,f,g,h,i) +#define SLOGALWAYS9(a,b,c,d,e,f,g,h,i,j) \ + _slog (sLogCtrl,_slogAlwaysLogTypeStr, thisFileName,__LINE__,a,b,c,d,e,f,g,h,i,j) +#define SLOGALWAYS10(a,b,c,d,e,f,g,h,i,j,k) \ + _slog (sLogCtrl,_slogAlwaysLogTypeStr, thisFileName,__LINE__,a,b,c,d,e,f,g,h,i,j,k) +#define SLOGALWAYS11(a,b,c,d,e,f,g,h,i,j,k,l) \ + _slog (sLogCtrl,_slogAlwaysLogTypeStr, thisFileName,__LINE__,a,b,c,d,e,f,g,h,i,j,k,l) + +#define SLOGCALWAYS0(a) \ + _slogc (sLogCtrl,a) +#define SLOGCALWAYS1(a,b) \ + _slogc (sLogCtrl,a,b) +#define SLOGCALWAYS2(a,b,c) \ + _slogc (sLogCtrl,a,b,c) +#define SLOGCALWAYS3(a,b,c,d) \ + _slogc (sLogCtrl,a,b,c,d) +#define SLOGCALWAYS4(a,b,c,d,e) \ + _slogc (sLogCtrl,a,b,c,d,e) +#define SLOGCALWAYS5(a,b,c,d,e,f) \ + _slogc (sLogCtrl,a,b,c,d,e,f) +#define SLOGCALWAYS6(a,b,c,d,e,f,g) \ + _slogc (sLogCtrl,a,b,c,d,e,f,g) +#define SLOGCALWAYS7(a,b,c,d,e,f,g,h) \ + _slogc (sLogCtrl,a,b,c,d,e,f,g,h) +#define SLOGCALWAYS8(a,b,c,d,e,f,g,h,i) \ + _slogc (sLogCtrl,a,b,c,d,e,f,g,h,i) + +#define SLOGALWAYSH(numBytes,dataPtr) \ + _slogHex (sLogCtrl, numBytes, dataPtr) + +#define SLOGALWAYSS(dataPtr) \ + _slogStr (sLogCtrl, dataPtr) + +#define SLOGALWAYSX(numBytes, dataPtr) \ + _slogXML (sLogCtrl, _slogXMLLogTypeStr, thisFileName, __LINE__, numBytes, dataPtr) + +/************************************************************************/ +#else /* #if defined(DEBUG_SISCO) */ +/************************************************************************/ + +#define SLOGALWAYS0(a) +#define SLOGALWAYS1(a,b) +#define SLOGALWAYS2(a,b,c) +#define SLOGALWAYS3(a,b,c,d) +#define SLOGALWAYS4(a,b,c,d,e) +#define SLOGALWAYS5(a,b,c,d,e,f) +#define SLOGALWAYS6(a,b,c,d,e,f,g) +#define SLOGALWAYS7(a,b,c,d,e,f,g,h) +#define SLOGALWAYS8(a,b,c,d,e,f,g,h,i) +#define SLOGALWAYS9(a,b,c,d,e,f,g,h,i,j) +#define SLOGALWAYS10(a,b,c,d,e,f,g,h,i,j,k) +#define SLOGALWAYS11(a,b,c,d,e,f,g,h,i,j,k,l) +#define SLOGCALWAYS0(a) +#define SLOGCALWAYS1(a,b) +#define SLOGCALWAYS2(a,b,c) +#define SLOGCALWAYS3(a,b,c,d) +#define SLOGCALWAYS4(a,b,c,d,e) +#define SLOGCALWAYS5(a,b,c,d,e,f) +#define SLOGCALWAYS6(a,b,c,d,e,f,g) +#define SLOGCALWAYS7(a,b,c,d,e,f,g,h) +#define SLOGCALWAYS8(a,b,c,d,e,f,g,h,i) +#define SLOGALWAYSH(numBytes,dataPtr) +#define SLOGALWAYSS(dataPtr) +#define SLOGALWAYSX(numBytes,dataPtr) + +#endif +/************************************************************************/ + +/************************************************************************/ +/* "Base" set of macros. */ +/* All other LOG macros should call these macros. */ +/* TRICK: These macros all use "do{...}while(0)". */ +/* This works in any context without adding extra {}. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +/* Basic log macros (all call _slog) */ +#define SLOG_0(ena,str,fmt) \ + do {if (ena) _slog (sLogCtrl,str,thisFileName,__LINE__,fmt);} while(0) + +#define SLOG_1(ena,str,fmt,a) \ + do {if (ena) _slog (sLogCtrl,str,thisFileName,__LINE__,fmt,a);} while(0) + +#define SLOG_2(ena,str,fmt,a,b) \ + do {if (ena) _slog (sLogCtrl,str,thisFileName,__LINE__,fmt,a,b);} while(0) + +#define SLOG_3(ena,str,fmt,a,b,c) \ + do {if (ena) _slog (sLogCtrl,str,thisFileName,__LINE__,fmt,a,b,c);} while(0) + +#define SLOG_4(ena,str,fmt,a,b,c,d) \ + do {if (ena) _slog (sLogCtrl,str,thisFileName,__LINE__,fmt,a,b,c,d);} while(0) + +#define SLOG_5(ena,str,fmt,a,b,c,d,e) \ + do {if (ena) _slog (sLogCtrl,str,thisFileName,__LINE__,fmt,a,b,c,d,e);} while(0) + +#define SLOG_6(ena,str,fmt,a,b,c,d,e,f) \ + do {if (ena) _slog (sLogCtrl,str,thisFileName,__LINE__,fmt,a,b,c,d,e,f);} while(0) + +#define SLOG_7(ena,str,fmt,a,b,c,d,e,f,g) \ + do {if (ena) _slog (sLogCtrl,str,thisFileName,__LINE__,fmt,a,b,c,d,e,f,g);} while(0) + +#define SLOG_8(ena,str,fmt,a,b,c,d,e,f,g,h) \ + do {if (ena) _slog (sLogCtrl,str,thisFileName,__LINE__,fmt,a,b,c,d,e,f,g,h);} while(0) + +/* Continuation macros (all call _slogc). */ +#define SLOGC_0(ena,fmt) \ + do {if (ena) _slogc (sLogCtrl,fmt);} while(0) + +#define SLOGC_1(ena,fmt,a) \ + do {if (ena) _slogc (sLogCtrl,fmt,a);} while(0) + +#define SLOGC_2(ena,fmt,a,b) \ + do {if (ena) _slogc (sLogCtrl,fmt,a,b);} while(0) + +#define SLOGC_3(ena,fmt,a,b,c) \ + do {if (ena) _slogc (sLogCtrl,fmt,a,b,c);} while(0) + +#define SLOGC_4(ena,fmt,a,b,c,d) \ + do {if (ena) _slogc (sLogCtrl,fmt,a,b,c,d);} while(0) + +#define SLOGC_5(ena,fmt,a,b,c,d,e) \ + do {if (ena) _slogc (sLogCtrl,fmt,a,b,c,d,e);} while(0) + +#define SLOGC_6(ena,fmt,a,b,c,d,e,f) \ + do {if (ena) _slogc (sLogCtrl,fmt,a,b,c,d,e,f);} while(0) + +#define SLOGC_7(ena,fmt,a,b,c,d,e,f,g) \ + do {if (ena) _slogc (sLogCtrl,fmt,a,b,c,d,e,f,g);} while(0) + +#define SLOGC_8(ena,fmt,a,b,c,d,e,f,g,h) \ + do {if (ena) _slogc (sLogCtrl,fmt,a,b,c,d,e,f,g,h);} while(0) + +/* Hex logging macro (calls _slogHex) */ +#define SLOGH(ena,num,ptr) \ + do {if (ena) _slogHex (sLogCtrl,num,ptr);} while(0) + +/* XML logging macro (calls _slogXML) */ +#define SLOGX(ena,num,ptr) \ + do {if (ena) _slogXML (sLogCtrl, _slogXMLLogTypeStr, thisFileName, __LINE__, num, ptr);} while(0) + +#else /* !DEBUG_SISCO */ + +/* Non-DEBUG macros for EVERYONE! Yeah!! Never have to create another one.*/ +/* Basic log macros (do nothing) */ +#define SLOG_0(ena,str,fmt) +#define SLOG_1(ena,str,fmt,a) +#define SLOG_2(ena,str,fmt,a,b) +#define SLOG_3(ena,str,fmt,a,b,c) +#define SLOG_4(ena,str,fmt,a,b,c,d) +#define SLOG_5(ena,str,fmt,a,b,c,d,e) +#define SLOG_6(ena,str,fmt,a,b,c,d,e,f) +#define SLOG_7(ena,str,fmt,a,b,c,d,e,f,g) +#define SLOG_8(ena,str,fmt,a,b,c,d,e,f,g,h) + +/* Continuation macros (do nothing). */ +#define SLOGC_0(ena,fmt) +#define SLOGC_1(ena,fmt,a) +#define SLOGC_2(ena,fmt,a,b) +#define SLOGC_3(ena,fmt,a,b,c) +#define SLOGC_4(ena,fmt,a,b,c,d) +#define SLOGC_5(ena,fmt,a,b,c,d,e) +#define SLOGC_6(ena,fmt,a,b,c,d,e,f) +#define SLOGC_7(ena,fmt,a,b,c,d,e,f,g) +#define SLOGC_8(ena,fmt,a,b,c,d,e,f,g,h) + +/* Hex logging macro (do nothing) */ +#define SLOGH(ena,num,ptr) +/* XML logging macro (do nothing) */ +#define SLOGX(ena,num,ptr) +#endif /* !DEBUG_SISCO */ + + +/************************************************************************/ +/* "Base" set of macros for error log */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +/* Basic log macros (all call _slog) */ +#define SELOG_0(ena,str,fmt) \ + do {if (ena) _slog (sErrLogCtrl,str,thisFileName,__LINE__,fmt);} while(0) + +#define SELOG_1(ena,str,fmt,a) \ + do {if (ena) _slog (sErrLogCtrl,str,thisFileName,__LINE__,fmt,a);} while(0) + +#define SELOG_2(ena,str,fmt,a,b) \ + do {if (ena) _slog (sErrLogCtrl,str,thisFileName,__LINE__,fmt,a,b);} while(0) + +#define SELOG_3(ena,str,fmt,a,b,c) \ + do {if (ena) _slog (sErrLogCtrl,str,thisFileName,__LINE__,fmt,a,b,c);} while(0) + +#define SELOG_4(ena,str,fmt,a,b,c,d) \ + do {if (ena) _slog (sErrLogCtrl,str,thisFileName,__LINE__,fmt,a,b,c,d);} while(0) + +#define SELOG_5(ena,str,fmt,a,b,c,d,e) \ + do {if (ena) _slog (sErrLogCtrl,str,thisFileName,__LINE__,fmt,a,b,c,d,e);} while(0) + +#define SELOG_6(ena,str,fmt,a,b,c,d,e,f) \ + do {if (ena) _slog (sErrLogCtrl,str,thisFileName,__LINE__,fmt,a,b,c,d,e,f);} while(0) + +#define SELOG_7(ena,str,fmt,a,b,c,d,e,f,g) \ + do {if (ena) _slog (sErrLogCtrl,str,thisFileName,__LINE__,fmt,a,b,c,d,e,f,g);} while(0) + +#define SELOG_8(ena,str,fmt,a,b,c,d,e,f,g,h) \ + do {if (ena) _slog (sErrLogCtrl,str,thisFileName,__LINE__,fmt,a,b,c,d,e,f,g,h);} while(0) + +/* Continuation macros (all call _slogc). */ +#define SELOGC_0(ena,fmt) \ + do {if (ena) _slogc (sErrLogCtrl,fmt);} while(0) + +#define SELOGC_1(ena,fmt,a) \ + do {if (ena) _slogc (sErrLogCtrl,fmt,a);} while(0) + +#define SELOGC_2(ena,fmt,a,b) \ + do {if (ena) _slogc (sErrLogCtrl,fmt,a,b);} while(0) + +#define SELOGC_3(ena,fmt,a,b,c) \ + do {if (ena) _slogc (sErrLogCtrl,fmt,a,b,c);} while(0) + +#define SELOGC_4(ena,fmt,a,b,c,d) \ + do {if (ena) _slogc (sErrLogCtrl,fmt,a,b,c,d);} while(0) + +#define SELOGC_5(ena,fmt,a,b,c,d,e) \ + do {if (ena) _slogc (sErrLogCtrl,fmt,a,b,c,d,e);} while(0) + +#define SELOGC_6(ena,fmt,a,b,c,d,e,f) \ + do {if (ena) _slogc (sErrLogCtrl,fmt,a,b,c,d,e,f);} while(0) + +#define SELOGC_7(ena,fmt,a,b,c,d,e,f,g) \ + do {if (ena) _slogc (sErrLogCtrl,fmt,a,b,c,d,e,f,g);} while(0) + +#define SELOGC_8(ena,fmt,a,b,c,d,e,f,g,h) \ + do {if (ena) _slogc (sErrLogCtrl,fmt,a,b,c,d,e,f,g,h);} while(0) + +/* Hex logging macro (calls _slogHex) */ +#define SELOGH(ena,num,ptr) \ + do {if (ena) _slogHex (sErrLogCtrl,num,ptr);} while(0) + +/* XML logging macro (calls _slogXML) */ +#define SELOGX(ena,num,ptr) \ + do {if (ena) _slogXML (sErrLogCtrl, _slogXMLLogTypeStr, thisFileName, __LINE__, num, ptr);} while(0) + +#else /* !DEBUG_SISCO */ + +/* Non-DEBUG macros for EVERYONE! Yeah!! Never have to create another one.*/ +/* Basic log macros (do nothing) */ +#define SELOG_0(ena,str,fmt) +#define SELOG_1(ena,str,fmt,a) +#define SELOG_2(ena,str,fmt,a,b) +#define SELOG_3(ena,str,fmt,a,b,c) +#define SELOG_4(ena,str,fmt,a,b,c,d) +#define SELOG_5(ena,str,fmt,a,b,c,d,e) +#define SELOG_6(ena,str,fmt,a,b,c,d,e,f) +#define SELOG_7(ena,str,fmt,a,b,c,d,e,f,g) +#define SELOG_8(ena,str,fmt,a,b,c,d,e,f,g,h) + +/* Continuation macros (do nothing). */ +#define SELOGC_0(ena,fmt) +#define SELOGC_1(ena,fmt,a) +#define SELOGC_2(ena,fmt,a,b) +#define SELOGC_3(ena,fmt,a,b,c) +#define SELOGC_4(ena,fmt,a,b,c,d) +#define SELOGC_5(ena,fmt,a,b,c,d,e) +#define SELOGC_6(ena,fmt,a,b,c,d,e,f) +#define SELOGC_7(ena,fmt,a,b,c,d,e,f,g) +#define SELOGC_8(ena,fmt,a,b,c,d,e,f,g,h) + +/* Hex logging macro (do nothing) */ +#define SELOGH(ena,num,ptr) +/* XML logging macro (do nothing) */ +#define SELOGX(ena,num,ptr) +#endif /* !DEBUG_SISCO */ + + +#ifdef __cplusplus +} +#endif + +#endif /* end of 'already included' */ + diff --git a/include/inc/smp.h b/include/inc/smp.h new file mode 100644 index 0000000..739c156 --- /dev/null +++ b/include/inc/smp.h @@ -0,0 +1,110 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1997, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : smp.h */ +/* PRODUCT(S) : UCA Station Management Protocol (UCA SMP). */ +/* */ +/* MODULE DESCRIPTION : */ +/* This header file specifies internal defines and function */ +/* prototypes for UCA Station Management Protocol (UCA SMP). */ +/* */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 09/09/96 EJV 01 Created */ +/************************************************************************/ + +#ifndef SMP_INCLUDED +#define SMP_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + + /*--------------------------------------*/ + /* LLC level encoding values */ + /*--------------------------------------*/ + + /* (same in clnp_llc.h) */ +#define LLC_LSAP_SMP (ST_UCHAR) 0xFB /* For UCA SMP (Station Mgt Prot) */ +#define LLC_CONTROL_SMP (ST_UCHAR) 0x03 /* For UCA SMP (Station Mgt Prot) */ + + /*--------------------------------------*/ + /* Max size of Autorization field */ + /*--------------------------------------*/ + +#define SMP_SIZE_OF_AUTH 8 + + /*----------------------------------------------*/ + /* Valid codes SMP UCA PDU type */ + /*----------------------------------------------*/ + +#define SMP_UCA_PDU_ERROR 0 +#define SMP_UCA_PDU_TIMESYNC 1 + +#define SMP_PDU_INVALID_TYPE 255 + + /*----------------------------------------------*/ + /* Valid codes for TimeSync PDU type */ + /*----------------------------------------------*/ + +#define SMP_TIMESYNC_PDU_MEASURE_REQ 0 +#define SMP_TIMESYNC_PDU_MEASURE_RSP 1 +#define SMP_TIMESYNC_PDU_SYNC_REQ 2 +#define SMP_TIMESYNC_PDU_SYNC_RSP 3 +#define SMP_TIMESYNC_PDU_ERROR 4 +#define SMP_TIMESYNC_PDU_PREPARE 5 + + + /*----------------------------------------------*/ + /* Valid error codes in the UCA ErrorPDU */ + /*----------------------------------------------*/ + +#define SMP_ERR_NO_ERROR 0 +#define SMP_ERR_UNSUPPORTED 1 +#define SMP_ERR_UNRECOGNIZED_SERVICE 2 +#define SMP_ERR_PDU_ERROR 3 +#define SMP_ERR_OUT_OF_RESOURCES 4 + + /*----------------------------------------------*/ + /* Valid error codes in the Sync-ErrorPDU */ + /*----------------------------------------------*/ + +#define SMP_SYNC_ERR_NO_ERROR 0 +#define SMP_SYNC_ERR_LOCALLY_SYNCED 1 +#define SMP_SYNC_ERR_NOT_AUTHORIZED 2 +#define SMP_SYNC_ERR_NOT_MEASURED 3 +#define SMP_SYNC_ERR_SEQUENCE_PROBLEM 4 + + /*--------------------------------------*/ + /* globals in smp_dec.c module */ + /*--------------------------------------*/ + +extern ST_UCHAR smp_uca_pdu_type; +extern ST_UCHAR smp_err_code; +extern ST_UCHAR smp_timesync_pdu_type; +extern SMP_TIME smp_time_req; +extern SMP_TIME smp_time_rsp; +extern ST_UCHAR smp_auth [SMP_SIZE_OF_AUTH]; /* authentication */ +extern SMP_TIME smp_delta_time; +extern ST_UCHAR smp_sync_err_code; + +ST_RET smp_dec_uca_pdu (ST_UCHAR *pdu_buf, ST_UINT16 pdu_len); + + +#ifdef __cplusplus +} +#endif + +#endif /* end of 'already included' */ + + diff --git a/include/inc/smp_log.h b/include/inc/smp_log.h new file mode 100644 index 0000000..0b60ca4 --- /dev/null +++ b/include/inc/smp_log.h @@ -0,0 +1,286 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1997, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : smp_log.h */ +/* PRODUCT(S) : UCA Station Management Protocol (UCA SMP). */ +/* */ +/* MODULE DESCRIPTION : */ +/* This header file contains logging macros for SMP. */ +/* Note: To compile logging functions use the DEBUG_SISCO define */ +/* in the project make file. */ +/* */ +/* MODIFICATION LOG : */ +/* */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 09/13/99 MDE 06 Added SD_CONST modifiers */ +/* 10/08/98 MDE 05 Migrated to updated SLOG interface */ +/* 02/20/98 EJV 04 Corrected non-debug macro def */ +/* 11/17/97 EJV 03 Added check for HEX logging mask */ +/* 10/15/97 MDE 02 Added missing no debug macros */ +/* 09/09/97 EJV 01 Created */ +/************************************************************************/ + +#ifndef SMP_LOG_INCLUDED +#define SMP_LOG_INCLUDED + +#include "slog.h" + +#ifdef __cplusplus +extern "C" { +#endif + + +/* NOTE: SMP uses log masks defined in the smp_usr.h set in the smp_debug_sel */ + + +#if defined(DEBUG_SISCO) + +/* Log type strings */ +extern SD_CONST ST_CHAR *SD_CONST _smp_err_logstr; +extern SD_CONST ST_CHAR *SD_CONST _smp_req_logstr; +extern SD_CONST ST_CHAR *SD_CONST _smp_ind_logstr; +extern SD_CONST ST_CHAR *SD_CONST _smp_deb_logstr; +extern SD_CONST ST_CHAR *SD_CONST _smp_hex_logstr; + + /*--------------------------------------------*/ + /* hard errors logging */ + /*--------------------------------------------*/ + + #define SMP_LOG_ERR0(a) {\ + if (smp_debug_sel & SMP_LOG_ERR)\ + _slog (sLogCtrl,_smp_err_logstr,thisFileName,__LINE__,a);\ + } + #define SMP_LOG_ERR1(a,b) {\ + if (smp_debug_sel & SMP_LOG_ERR)\ + _slog (sLogCtrl,_smp_err_logstr,thisFileName,__LINE__,a,b);\ + } + #define SMP_LOG_ERR2(a,b,c) {\ + if (smp_debug_sel & SMP_LOG_ERR)\ + _slog (sLogCtrl,_smp_err_logstr,thisFileName,__LINE__,a,b,c);\ + } + #define SMP_LOG_ERR3(a,b,c,d) {\ + if (smp_debug_sel & SMP_LOG_ERR)\ + _slog (sLogCtrl,_smp_err_logstr,thisFileName,__LINE__,a,b,c,d);\ + } + + /*--------------------------------------------*/ + /* SMP-user request logging */ + /*--------------------------------------------*/ + + #define SMP_LOG_REQ0(a) {\ + if (smp_debug_sel & SMP_LOG_REQ)\ + _slog (sLogCtrl,_smp_req_logstr,thisFileName,__LINE__,a);\ + } + #define SMP_LOG_REQ1(a,b) {\ + if (smp_debug_sel & SMP_LOG_REQ)\ + _slog (sLogCtrl,_smp_req_logstr,thisFileName,__LINE__,a,b);\ + } + #define SMP_LOG_REQ2(a,b,c) {\ + if (smp_debug_sel & SMP_LOG_REQ)\ + _slog (sLogCtrl,_smp_req_logstr,thisFileName,__LINE__,a,b,c);\ + } + #define SMP_LOG_REQ3(a,b,c,d) {\ + if (smp_debug_sel & SMP_LOG_REQ)\ + _slog (sLogCtrl,_smp_req_logstr,thisFileName,__LINE__,a,b,c,d);\ + } + #define SMP_LOG_REQ6(a,b,c,d,e,f,g) {\ + if (smp_debug_sel & SMP_LOG_REQ)\ + _slog (sLogCtrl,_smp_req_logstr,thisFileName,__LINE__,a,b,c,d,e,f,g);\ + } + + /* continuation log */ + #define SMP_LOGC_REQ0(a) {\ + if (smp_debug_sel & SMP_LOG_REQ)\ + _slogc (sLogCtrl,a);\ + } + #define SMP_LOGC_REQ1(a,b) {\ + if (smp_debug_sel & SMP_LOG_REQ)\ + _slogc (sLogCtrl,a,b);\ + } + #define SMP_LOGC_REQ2(a,b,c) {\ + if (smp_debug_sel & SMP_LOG_REQ)\ + _slogc (sLogCtrl,a,b,c);\ + } + #define SMP_LOGC_REQ6(a,b,c,d,e,f,g) {\ + if (smp_debug_sel & SMP_LOG_REQ)\ + _slogc (sLogCtrl,a,b,c,d,e,f,g);\ + } + + /* hex logging */ + #define SMP_LOGH_REQ(a,b) {\ + if (smp_debug_sel & SMP_LOG_REQ && \ + smp_debug_sel & SMP_LOG_HEX)\ + _slogHex (sLogCtrl,a,b);\ + } + + /* hex continuation logging */ + #define SMP_LOGHC_REQ(a,b) {\ + if (smp_debug_sel & SMP_LOG_REQ && \ + smp_debug_sel & SMP_LOG_HEX)\ + _slogHex (sLogCtrl,a,b);\ + } + /*--------------------------------------------*/ + /* SMP_user indication logging */ + /*--------------------------------------------*/ + + #define SMP_LOG_IND0(a) {\ + if (smp_debug_sel & SMP_LOG_IND)\ + _slog (sLogCtrl,_smp_ind_logstr,thisFileName,__LINE__,a);\ + } + #define SMP_LOG_IND1(a,b) {\ + if (smp_debug_sel & SMP_LOG_IND)\ + _slog (sLogCtrl,_smp_ind_logstr,thisFileName,__LINE__,a,b);\ + } + #define SMP_LOG_IND2(a,b,c) {\ + if (smp_debug_sel & SMP_LOG_IND)\ + _slog (sLogCtrl,_smp_ind_logstr,thisFileName,__LINE__,a,b,c);\ + } + #define SMP_LOG_IND3(a,b,c,d) {\ + if (smp_debug_sel & SMP_LOG_IND)\ + _slog (sLogCtrl,_smp_ind_logstr,thisFileName,__LINE__,a,b,c,d);\ + } + #define SMP_LOG_IND6(a,b,c,d,e,f,g) {\ + if (smp_debug_sel & SMP_LOG_IND)\ + _slog (sLogCtrl,_smp_ind_logstr,thisFileName,__LINE__,a,b,c,d,e,f,g);\ + } + /* continuation log */ + #define SMP_LOGC_IND0(a) {\ + if (smp_debug_sel & SMP_LOG_IND)\ + _slogc (sLogCtrl,a);\ + } + #define SMP_LOGC_IND1(a,b) {\ + if (smp_debug_sel & SMP_LOG_IND)\ + _slogc (sLogCtrl,a,b);\ + } + #define SMP_LOGC_IND2(a,b,c) {\ + if (smp_debug_sel & SMP_LOG_IND)\ + _slogc (sLogCtrl,a,b,c);\ + } + #define SMP_LOGC_IND6(a,b,c,d,e,f,g) {\ + if (smp_debug_sel & SMP_LOG_IND)\ + _slogc (sLogCtrl,a,b,c,d,e,f,g);\ + } + + /* hex logging */ + #define SMP_LOGH_IND(a,b) {\ + if (smp_debug_sel & SMP_LOG_IND && \ + smp_debug_sel & SMP_LOG_HEX)\ + _slogHex (sLogCtrl,a,b);\ + } + + /* hex continuation logging */ + #define SMP_LOGHC_IND(a,b) {\ + if (smp_debug_sel & SMP_LOG_IND && \ + smp_debug_sel & SMP_LOG_HEX)\ + _slogHex (sLogCtrl,a,b);\ + } + + /*--------------------------------------------*/ + /* debugging app logging */ + /*--------------------------------------------*/ + + #define SMP_LOG_DEB0(a) {\ + if (smp_debug_sel & SMP_LOG_DEB)\ + _slog (sLogCtrl,_smp_deb_logstr,thisFileName,__LINE__,a);\ + } + #define SMP_LOG_DEB1(a,b) {\ + if (smp_debug_sel & SMP_LOG_DEB)\ + _slog (sLogCtrl,_smp_deb_logstr,thisFileName,__LINE__,a,b);\ + } + #define SMP_LOG_DEB2(a,b,c) {\ + if (smp_debug_sel & SMP_LOG_DEB)\ + _slog (sLogCtrl,_smp_deb_logstr,thisFileName,__LINE__,a,b,c);\ + } + #define SMP_LOG_DEB3(a,b,c,d) {\ + if (smp_debug_sel & SMP_LOG_DEB)\ + _slog (sLogCtrl,_smp_deb_logstr,thisFileName,__LINE__,a,b,c,d);\ + } + + #define SMP_LOGC_DEB0(a) {\ + if (smp_debug_sel & SMP_LOG_DEB)\ + _slogc (sLogCtrl,a);\ + } + #define SMP_LOGC_DEB1(a,b) {\ + if (smp_debug_sel & SMP_LOG_DEB)\ + _slogc (sLogCtrl,a,b);\ + } + #define SMP_LOGC_DEB2(a,b,c) {\ + if (smp_debug_sel & SMP_LOG_DEB)\ + _slogc (sLogCtrl,a,b,c);\ + } + #define SMP_LOGC_DEB3(a,b,c,d) {\ + if (smp_debug_sel & SMP_LOG_DEB)\ + _slogc (sLogCtrl,a,b,c,d);\ + } + +#else + + /* this are empty macros for compilation without the DEBUG_SISCO define */ + + /*--------------------------------------------*/ + /* hard errors logging */ + /*--------------------------------------------*/ + #define SMP_LOG_ERR0(a) + #define SMP_LOG_ERR1(a,b) + #define SMP_LOG_ERR2(a,b,c) + #define SMP_LOG_ERR3(a,b,c,d) + + /*--------------------------------------------*/ + /* SMP-user request (write) logging */ + /*--------------------------------------------*/ + + #define SMP_LOG_REQ0(a) + #define SMP_LOG_REQ1(a,b) + #define SMP_LOG_REQ2(a,b,c) + #define SMP_LOG_REQ3(a,b,c,d) + #define SMP_LOG_REQ6(a,b,c,d,e,f,g) + #define SMP_LOGC_REQ0(a) + #define SMP_LOGC_REQ1(a,b) + #define SMP_LOGC_REQ2(a,b,c) + #define SMP_LOGC_REQ6(a,b,c,d,e,f,g) + #define SMP_LOGH_REQ(a,b) + #define SMP_LOGHC_REQ(a,b) + + /*--------------------------------------------*/ + /* SMP-user indication (read) logging */ + /*--------------------------------------------*/ + + #define SMP_LOG_IND0(a) + #define SMP_LOG_IND1(a,b) + #define SMP_LOG_IND2(a,b,c) + #define SMP_LOG_IND3(a,b,c,d) + #define SMP_LOG_IND6(a,b,c,d,e,f,g) + #define SMP_LOGC_IND0(a) + #define SMP_LOGC_IND1(a,b) + #define SMP_LOGC_IND2(a,b,c) + #define SMP_LOGC_IND6(a,b,c,d,e,f,g) + #define SMP_LOGH_IND(a,b) + #define SMP_LOGHC_IND(a,b) + + /*--------------------------------------------*/ + /* debugging app logging */ + /*--------------------------------------------*/ + + #define SMP_LOG_DEB0(a) + #define SMP_LOG_DEB1(a,b) + #define SMP_LOG_DEB2(a,b,c) + #define SMP_LOG_DEB3(a,b,c,d) + #define SMP_LOGC_DEB0(a) + #define SMP_LOGC_DEB1(a,b) + #define SMP_LOGC_DEB2(a,b,c) + #define SMP_LOGC_DEB3(a,b,c,d) + +#endif + + +#ifdef __cplusplus +} +#endif + +#endif /* end of 'already included' */ diff --git a/include/inc/smp_usr.h b/include/inc/smp_usr.h new file mode 100644 index 0000000..dc3030e --- /dev/null +++ b/include/inc/smp_usr.h @@ -0,0 +1,344 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1997 - 1998, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : smp_usr.h */ +/* PRODUCT(S) : UCA Station Management Protocol (UCA SMP). */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module provides interface function to the SLAVE/MASTER */ +/* side of the UCA Station Management Protocol. */ +/* */ +/* Implemented Services: */ +/* Time Synchronization */ +/* */ +/* */ +/* MODIFICATION LOG : */ +/* */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 02/18/98 EJV 04 Added smp_init function. */ +/* 11/17/97 EJV 03 Added HEX logging. Added par to smp_hc_config*/ +/* 10/13/97 EJV 02 Added defs for DLL. */ +/* 09/09/97 EJV 01 Created */ +/************************************************************************/ + +#ifndef SMP_USR_INCLUDED +#define SMP_USR_INCLUDED + + +#ifdef __cplusplus +extern "C" { +#endif + + /*--------------------------------------*/ + /* Max size of MAC and NSAP */ + /* (same in clnp_llc.h) */ + /*--------------------------------------*/ + +#define SMP_MAX_LEN_MAC 6 +#define SMP_MAX_LEN_NSAP 20 + + + /*--------------------------------------*/ + /* SMP logging types (for debugging) */ + /*--------------------------------------*/ + +#define SMP_LOG_ERR 0x00000001L +#define SMP_LOG_REQ 0x00000010L +#define SMP_LOG_IND 0x00000020L +#define SMP_LOG_DEB 0x00000040L +#define SMP_LOG_HEX 0x00000080L + +extern ST_UINT smp_debug_sel; + + /*--------------------------------------*/ + /* SMP_TIME struct */ + /*--------------------------------------*/ + +#define SMP_SIZE_OF_REC_TIME 32 /* buf size used to record binary time */ + +#define SMP_SIZE_OF_TIME 6 /* TimeOfDay size, see ISO/IEC 9506-2, clause 7.6.1 */ + +typedef struct + { + ST_INT32 days; /* number of days since January 1, 1984 */ + ST_INT32 msec; /* milliseconds since midnight for the current date */ + ST_INT32 usec; /* microseconds whithin current msec, if implemented */ + } SMP_TIME; + +/* This struct is used also to pass the time difference returned from */ +/* remote node after time synchronization */ + + /*--------------------------------------------------------------*/ + /* SLAVE application may disallow Time Synchronization from */ + /* Master by setting the smp_time_locally_sync to SD_TRUE. */ + /*--------------------------------------------------------------*/ + +extern ST_BOOLEAN smp_time_locally_sync; + + + /*======================================================*/ + /* Initialization functions */ + /*======================================================*/ + +/************************************************************************/ +/* smp_init */ +/*----------------------------------------------------------------------*/ +/* This function is called from the user code to initialize all global */ +/* variables used in SMP modules. */ +/* */ +/* Return: */ +/* ST_RET SD_SUCCESS or SD_FAILURE. */ +/************************************************************************/ +ST_RET smp_init (ST_VOID); + + + /*======================================================*/ + /* SMP MASTER functions */ + /*======================================================*/ + +/************************************************************************/ +/* smp_time_sync_req_ar_name */ +/*----------------------------------------------------------------------*/ +/* Function called by Master to request Time Synchronization with */ +/* remote node. Implemented for TRIM7 stack . */ +/* This function will map remote rem_ar_name into a MAC address and call*/ +/* the smp_time_sync_req function. */ +/* */ +/* Parameters: */ +/* ST_LONG user_id */ +/* ST_UCHAR *rem_ar_name */ +/* ST_VOID (*callBackFun) */ +/* (ST_LONG user_id, ST_RET result, SMP_TIME *delta_time));*/ +/* */ +/* Return: */ +/* ST_RET SD_SUCCESS or SD_FAILURE. */ +/************************************************************************/ +ST_RET smp_time_sync_req_ar_name ( + ST_LONG user_id, + ST_UCHAR *rem_ar_name, + ST_VOID (*callBackFun)(ST_LONG user_id, ST_RET result, SMP_TIME *delta_time)); + + + +/************************************************************************/ +/* smp_time_sync_req_chan */ +/*----------------------------------------------------------------------*/ +/* Function called by Master to request Time Synchronization with */ +/* remote node. Implemented for REDUCED STACK (only for ADLC subnet). */ +/* This function will map chan_num into a loc,rem MAC address pair and */ +/* call the smp_time_sync_req function. */ +/* */ +/* Note: A MMS connection must be established before calling this func. */ +/* */ +/* Parameters: */ +/* ST_LONG user_id */ +/* ST_INT chan_num */ +/* ST_VOID (*callBackFun) */ +/* (ST_LONG user_id, ST_RET result, SMP_TIME *delta_time));*/ +/* */ +/* Return: */ +/* ST_RET SD_SUCCESS or SD_FAILURE. */ +/************************************************************************/ +ST_RET smp_time_sync_req_chan ( + ST_LONG user_id, + ST_INT chan_num, + ST_VOID (*callBackFun)(ST_LONG user_id, ST_RET result, SMP_TIME *delta_time)); + + +/************************************************************************/ +/* smp_time_sync_req */ +/*----------------------------------------------------------------------*/ +/* Function called by Master to request Time Synchronization with */ +/* remote node. */ +/* When the time synchronization has been completed or error occurred, */ +/* then the callBackFun will be used to notify the Master application */ +/* about the result of time synchronization request. */ +/* */ +/* !Note: This function requires that the application establishes */ +/* ADLC connection (for REDUCED_STACK) with given node before */ +/* calling this function. For TRIM7 stack ADLC connections are */ +/* maintained by ADLC_ML. */ +/* On the Ethernet there is no need to establish connection. */ +/* */ +/* Parameters: */ +/* ST_LONG user_id; for user to use */ +/* ST_UCHAR *loc_mac; Ptr to Local MAC address */ +/* ST_UCHAR *rem_mac; Ptr to Remote MAC address */ +/* ST_VOID (*callBackFun) */ +/* (ST_LONG user_id, ST_RET result, SMP_TIME *delta_time); */ +/* */ +/* Return: */ +/* ST_RET SD_SUCCESS or SD_FAILURE. */ +/************************************************************************/ +ST_RET smp_time_sync_req ( + ST_LONG user_id, /* for user to use */ + ST_UCHAR *loc_mac, /* Ptr to Local MAC address */ + ST_UCHAR *rem_mac, /* Ptr to Remote MAC address */ + ST_VOID (*callBackFun)(ST_LONG user_id, ST_RET result, SMP_TIME *delta_time)); + + + + /*======================================================*/ + /* SMP common SLAVE/MASTER functions */ + /*======================================================*/ + +typedef struct + { + ST_UCHAR *pdu_buf; + ST_UINT16 pdu_len; + ST_UCHAR *loc_mac; + ST_UCHAR *rem_mac; + ST_UCHAR *rec_time; + } SMP_DATAUNIT; + + +/************************************************************************/ +/* smp_decode_uca_pdu */ +/*----------------------------------------------------------------------*/ +/* Function called by Slave application to decode received UCA Station */ +/* Management Protocol PDU after LLC header has been decoded (dest=0xFB)*/ +/* If the Slave application is a TRIM7 or Reduced Stack application */ +/* this function will be called automatically from proper decoding */ +/* functions. */ +/* */ +/* Parameters: */ +/* */ +/* Return: */ +/* ST_RET SD_SUCCESS or SD_FAILURE. */ +/************************************************************************/ +ST_RET smp_decode_uca_pdu (SMP_DATAUNIT *smp_du); + + +/************************************************************************/ +/* smp_send_pdu_callback */ +/*----------------------------------------------------------------------*/ +/* This callback function called by ADLC sub-network layer when a PDU */ +/* has been sent. Saves time stamp of Measure-Response PDU only. */ +/* */ +/* Parameters: */ +/* */ +/* Return: */ +/* ST_VOID */ +/************************************************************************/ +ST_VOID smp_send_pdu_callback (ST_RET result, ST_LONG user_id, + ST_UCHAR *rec_time, ST_UINT rec_time_len); + + + /*======================================================*/ + /* SMP time SLAVE/MASTER functions implemented by user */ + /*======================================================*/ + + +#if defined(SMP_DLL) +#include +#define DllImport __declspec (dllimport) +#define DllExport __declspec (dllexport) +#endif + +/************************************************************************/ +/* u_smp_record_time */ +/*----------------------------------------------------------------------*/ +/* Function implemented by user to record time. */ +/* The rec_time is a buffer of rec_time_len bytes (SMP_SIZE_OF_REC_TIME)*/ +/* */ +/* Parameters: */ +/* */ +/* Return: */ +/* ST_RET SD_SUCCESS or SD_FAILURE. */ +/************************************************************************/ +#if defined(SMP_DLL) +DllExport ST_RET WINAPI u_smp_record_time (ST_UCHAR *rec_time, ST_UINT rec_time_len); +#else +ST_RET u_smp_record_time (ST_UCHAR *rec_time, ST_UINT rec_time_len); +#endif + + +/************************************************************************/ +/* u_smp_convert_time */ +/*----------------------------------------------------------------------*/ +/* Function implemented by user converting recorded time in rec_time */ +/* buffer to the SMP_TIME struct the application uses. */ +/* The rec_time is a buffer of rec_time_len bytes (SMP_SIZE_OF_REC_TIME)*/ +/* */ +/* Parameters: */ +/* */ +/* Return: */ +/* ST_RET SD_SUCCESS or SD_FAILURE. */ +/************************************************************************/ +#if defined(SMP_DLL) +DllExport ST_RET WINAPI u_smp_convert_time (ST_UCHAR *rec_time, + ST_UINT rec_time_len, + SMP_TIME *smp_time); +#else +ST_RET u_smp_convert_time (ST_UCHAR *rec_time, + ST_UINT rec_time_len, + SMP_TIME *smp_time); +#endif + + + /*======================================================*/ + /* SMP SLAVE functions implemented by user */ + /*======================================================*/ + + +/************************************************************************/ +/* u_smp_time_sync_ind */ +/*----------------------------------------------------------------------*/ +/* SLAVE function implemented by user to synchronize time. */ +/* */ +/* Parameters: */ +/* SLAVE side: */ +/* SMP_TIME *a1 recorded time of Measure-RequestPDU reception */ +/* SMP_TIME *a2 recorded time of Measure-ResponsePDU sending */ +/* MASTER side: */ +/* SMP_TIME *b1 recorded time of Measure-RequestPDU sending */ +/* SMP_TIME *b2 recorded time of Measure-ResponsePDU arrival */ +/* SMP_TIME *delta_time return the local_adjustement. */ +/* */ +/* Return: */ +/* ST_RET SD_SUCCESS or SD_FAILURE. */ +/************************************************************************/ +ST_RET u_smp_time_sync_ind (SMP_TIME *a1, SMP_TIME *a2, + SMP_TIME *b1, SMP_TIME *b2, + SMP_TIME *delta_time); + + + + + /*======================================================*/ + /* For applications which do not link with TRIM7 or */ + /* Reduced Stack the smp_hc_config function may be */ + /* called to initialize needed parameters. */ + /*======================================================*/ + +/************************************************************************/ +/* smp_hc_config */ +/*----------------------------------------------------------------------*/ +/* This USER's func provides hard coded initialization of few parameters*/ +/* for applications which DO NOT link to TRIM7 or REDUCED STACK. */ +/* */ +/* Parameters: */ +/* ST_VOID *loc_addr Local ADLC address */ +/* (ignored for other subnet) */ +/* ST_CHAR *smpLogFile Pointer log file name buffer */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if initialization successful */ +/* error code otherwise */ +/************************************************************************/ +ST_RET smp_hc_config (ST_VOID *loc_addr, ST_CHAR *smpLogFile); + + +#ifdef __cplusplus +} +#endif + +#endif /* end of 'already included' */ + + diff --git a/include/inc/smpval.h b/include/inc/smpval.h new file mode 100644 index 0000000..c7c2535 --- /dev/null +++ b/include/inc/smpval.h @@ -0,0 +1,138 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2006-2006, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : smpval.h */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : */ +/* Structures, functions for sending/receiving IEC 61850 Sampled */ +/* Value messages (according to IEC 61850-9-2). */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 02/15/08 JRB 03 Fix securityLen type (ST_UINT -> ST_INT). */ +/* 08/09/06 JRB 02 Fix svID len (Vstring65). */ +/* Change DatSet to Vstring129 (ObjectReference)*/ +/* 03/17/05 JRB 01 Created */ +/************************************************************************/ +#ifndef SMPVAL_INCLUDED +#define SMPVAL_INCLUDED + +#include "asn1r.h" /* need MMS_UTC_TIME */ +#include "ethertyp.h" /* need ETYPE_INFO */ + +#ifdef __cplusplus +extern "C" { +#endif + +#define MAX_SMPVAL_SVID_LEN 65 /* 61850 MsvID, UsvID len */ +#define MAX_SMPVAL_OBJREF_LEN 129 /* 61850 ObjectReference len */ +#define MAX_SMPVAL_SECURITY_LEN 20 /* max len of security info */ + +/* Bit numbers in OptFlds bitstring (configured by SmvOpts in SCL file) */ +#define SVOPT_BITNUM_SMPRATE 0 +#define SVOPT_BITNUM_REFRTM 1 +#define SVOPT_BITNUM_SMPSYNCH 2 + +/************************************************************************/ +/* STRUCTURE DEFINITIONS */ +/************************************************************************/ +typedef struct + { + ST_UINT8 *SamplePtr; /* pointer to "Sample" data */ + ST_INT SampleLen; /* length of "Sample" data in bytes */ + ST_CHAR svID [MAX_SMPVAL_SVID_LEN+1]; /* MsvID or UsvID - Vstring65 */ + ST_BOOLEAN DatSetPres; /* is "DatSet" present in ASDU? */ + ST_CHAR DatSet [MAX_SMPVAL_OBJREF_LEN+1]; /* Vstring129 (ObjectReference)*/ + /* (Optional) */ + ST_UINT16 SmpCnt; + ST_UINT32 ConfRev; + ST_BOOLEAN SmpSynch; + ST_BOOLEAN RefrTmPres; /* is "RefrTm" present in ASDU? */ + MMS_UTC_TIME RefrTm; /* Optional */ + ST_BOOLEAN SmpRatePres; /* is "SmpRate" present in ASDU? */ + ST_UINT16 SmpRate; /* Optional */ + } SMPVAL_ASDU; + +typedef struct + { + ST_UINT16 numASDU; /* Num of ASDU concatenated into one APDU */ + SMPVAL_ASDU *asduArray; /* array of "numASDU" structs */ + /* allocated by smpval_msg_create OR */ + /* allocated during decode */ + ST_UCHAR securityBuf [MAX_SMPVAL_SECURITY_LEN]; /* security info*/ + ST_INT securityLen; /* len of security info */ + }SMPVAL_MSG; + + +/************************************************************************/ +/* Functions for sending SMPVAL messages. */ +/************************************************************************/ +SMPVAL_MSG *smpval_msg_create ( + ST_UINT numASDU); /* Num of ASDU concatenated into one APDU*/ + +ST_VOID smpval_msg_destroy (SMPVAL_MSG *smpvalMsg); + +/* Updates data stored for one ASDU to be sent in a SMPVAL message */ +ST_RET smpval_asdu_data_update ( + SMPVAL_MSG *smpvalMsg, /* SMPVAL msg info structure */ + ST_INT asduIdx, /* index into array of ASDU for this SMPVAL msg*/ + ST_UINT8 *SamplePtr, /* pointer to data */ + ST_INT SampleLen, /* length of data in bytes */ + ST_CHAR *svID, + ST_INT SmpCnt, + ST_BOOLEAN DatSetPres, /* SD_TRUE if optional DatSet should be sent*/ + ST_CHAR *DatSet, /* Optional (chk DatSetPres arg) */ + ST_UINT32 ConfRev, + ST_BOOLEAN SmpSynch, + ST_BOOLEAN RefrTmPres, /* SD_TRUE if optional RefrTm should be sent*/ + MMS_UTC_TIME *RefrTm, /* Optional (chk_RefrTmPres arg) */ + ST_BOOLEAN SmpRatePres, /* SD_TRUE if optional SmpRate should be sent*/ + ST_UINT16 SmpRate); /* Optional (chk SmpRatePres arg) */ + +/* Encodes complete SMPVAL message (APDU plus Ethertype header). */ +/* RETURNS: ptr to start of encoded message (or NULL on error) */ +ST_UCHAR *smpval_msg_encode ( + SMPVAL_MSG *smpvalMsg, /* SMPVAL msg info structure */ + ETYPE_INFO *etypeInfo, /* Ethertype info */ + ST_UCHAR *asn1DataBuf, /* buffer to encode in */ + ST_INT asn1DataBufLen, /* len of buffer */ + ST_INT *asn1DataLenOut);/* ptr to len encoded */ +ST_RET smpval_msg_send ( + SMPVAL_MSG *smpvalMsg, /* SMPVAL msg info structure */ + ETYPE_INFO *etypeInfo, /* Ethertype info */ + ST_UCHAR *dstMac); /* Destination (Multicast) MAC address */ + +/************************************************************************/ +/* Functions for receiving SMPVAL messages. */ +/************************************************************************/ +/* Decode SMPVAL message and fill in SMPVAL_MSG struct.*/ +SMPVAL_MSG *smpval_msg_decode ( + SN_UNITDATA *sn_req, /* message to decode */ + ETYPE_INFO *etypeInfo); /* where to store decoded Ethertype info*/ + +/* Must be called to free structure returned from smpval_msg_decode. */ +ST_VOID smpval_msg_free (SMPVAL_MSG *smpvalMsg); + +/************************************************************************/ +/* Utility functions */ +/************************************************************************/ +/* Copies data from source to destination but reverses the order of the */ +/* bytes (i.e. converts Big-Endian to Little-Endian or vice versa). */ +ST_VOID reverse_bytes ( + ST_UINT8 *dst, /* ptr to destination buffer */ + ST_UINT8 *src, /* ptr to source buffer */ + ST_INT numbytes); /* number of bytes to copy */ + +#ifdef __cplusplus +} +#endif +#endif /* included */ diff --git a/include/inc/sock_log.h b/include/inc/sock_log.h new file mode 100644 index 0000000..67c1ebb --- /dev/null +++ b/include/inc/sock_log.h @@ -0,0 +1,210 @@ +/************************************************************************/ +/* SOFTWARE MODULE HEADER ***********************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2002 - 2003, All Rights Reserved */ +/* */ +/* MODULE NAME : sock_log.h */ +/* PRODUCT(S) : General Sockets Interface logging */ +/* */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 09/20/07 MDE 02 Modified macros to take ctx, log_disable */ +/* 06/25/03 JRB 01 Move log macros from "gensock2.h". */ +/************************************************************************/ +#ifndef SOCK_LOG_INCLUDED +#define SOCK_LOG_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + + + +#define SOCK_LOG_ERR 0x0001 +#define SOCK_LOG_NERR 0x0002 +#define SOCK_LOG_FLOW 0x0004 +#define SOCK_LOG_RX 0x0008 +#define SOCK_LOG_TX 0x0010 + +extern ST_UINT sock_debug_sel; + +/* Log type strings */ +extern SD_CONST ST_CHAR *SD_CONST SOCK_LOG_ERR_TEXT; +extern SD_CONST ST_CHAR *SD_CONST SOCK_LOG_NERR_TEXT; +extern SD_CONST ST_CHAR *SD_CONST SOCK_LOG_FLOW_TEXT; +extern SD_CONST ST_CHAR *SD_CONST SOCK_LOG_RX_TEXT; +extern SD_CONST ST_CHAR *SD_CONST SOCK_LOG_TX_TEXT; + +/*********************** SOCK_LOG_ERR Macros *****************************/ + +#define SOCK_LOG_ERR0(ctx,a) \ + SLOG_0 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_ERR),SOCK_LOG_ERR_TEXT,a) +#define SOCK_LOG_ERR1(ctx,a,b) \ + SLOG_1 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_ERR),SOCK_LOG_ERR_TEXT,a,b) +#define SOCK_LOG_ERR2(ctx,a,b,c) \ + SLOG_2 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_ERR),SOCK_LOG_ERR_TEXT,a,b,c) +#define SOCK_LOG_ERR3(ctx,a,b,c,d) \ + SLOG_3 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_ERR),SOCK_LOG_ERR_TEXT,a,b,c,d) +#define SOCK_LOG_ERR4(ctx,a,b,c,d,e) \ + SLOG_4 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_ERR),SOCK_LOG_ERR_TEXT,a,b,c,d,e) +#define SOCK_LOG_ERR5(ctx,a,b,c,d,e,f) \ + SLOG_5 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_ERR),SOCK_LOG_ERR_TEXT,a,b,c,d,e,f) + +/* Continuation log macros */ +#define SOCK_LOG_ERRC0(ctx,a) \ + SLOGC_0 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_ERR),a) +#define SOCK_LOG_ERRC1(ctx,a,b) \ + SLOGC_1 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_ERR),a,b) +#define SOCK_LOG_ERRC2(ctx,a,b,c) \ + SLOGC_2 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_ERR),a,b,c) +#define SOCK_LOG_ERRC3(ctx,a,b,c,d) \ + SLOGC_3 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_ERR),a,b,c,d) +#define SOCK_LOG_ERRC4(ctx,a,b,c,d,e) \ + SLOGC_4 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_ERR),a,b,c,d,e) +#define SOCK_LOG_ERRC5(ctx,a,b,c,d,e,f) \ + SLOGC_5 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_ERR),a,b,c,d,e,f) + +/* Hex log macro */ +#define SOCK_LOG_ERRH(ctx,a,b) \ + SLOGH ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_ERR),a,b) + +/*********************** SOCK_LOG_NERR Macros *****************************/ + +#define SOCK_LOG_NERR0(ctx,a) \ + SLOG_0 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_NERR),SOCK_LOG_NERR_TEXT,a) +#define SOCK_LOG_NERR1(ctx,a,b) \ + SLOG_1 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_NERR),SOCK_LOG_NERR_TEXT,a,b) +#define SOCK_LOG_NERR2(ctx,a,b,c) \ + SLOG_2 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_NERR),SOCK_LOG_NERR_TEXT,a,b,c) +#define SOCK_LOG_NERR3(ctx,a,b,c,d) \ + SLOG_3 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_NERR),SOCK_LOG_NERR_TEXT,a,b,c,d) +#define SOCK_LOG_NERR4(ctx,a,b,c,d,e) \ + SLOG_4 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_NERR),SOCK_LOG_NERR_TEXT,a,b,c,d,e) +#define SOCK_LOG_NERR5(ctx,a,b,c,d,e,f) \ + SLOG_5 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_NERR),SOCK_LOG_NERR_TEXT,a,b,c,d,e,f) + +/* Continuation log macros */ +#define SOCK_LOG_NERRC0(ctx,a) \ + SLOGC_0 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_NERR),a) +#define SOCK_LOG_NERRC1(ctx,a,b) \ + SLOGC_1 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_NERR),a,b) +#define SOCK_LOG_NERRC2(ctx,a,b,c) \ + SLOGC_2 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_NERR),a,b,c) +#define SOCK_LOG_NERRC3(ctx,a,b,c,d) \ + SLOGC_3 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_NERR),a,b,c,d) +#define SOCK_LOG_NERRC4(ctx,a,b,c,d,e) \ + SLOGC_4 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_NERR),a,b,c,d,e) +#define SOCK_LOG_NERRC5(ctx,a,b,c,d,e,f) \ + SLOGC_5 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_NERR),a,b,c,d,e,f) + +/* Hex log macro */ +#define SOCK_LOG_NERRH(ctx,a,b) \ + SLOGH ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_NERR),a,b) + +/*********************** SOCK_LOG_FLOW Macros *****************************/ + +#define SOCK_LOG_FLOW0(ctx,a) \ + SLOG_0 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_FLOW),SOCK_LOG_FLOW_TEXT,a) +#define SOCK_LOG_FLOW1(ctx,a,b) \ + SLOG_1 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_FLOW),SOCK_LOG_FLOW_TEXT,a,b) +#define SOCK_LOG_FLOW2(ctx,a,b,c) \ + SLOG_2 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_FLOW),SOCK_LOG_FLOW_TEXT,a,b,c) +#define SOCK_LOG_FLOW3(ctx,a,b,c,d) \ + SLOG_3 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_FLOW),SOCK_LOG_FLOW_TEXT,a,b,c,d) +#define SOCK_LOG_FLOW4(ctx,a,b,c,d,e) \ + SLOG_4 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_FLOW),SOCK_LOG_FLOW_TEXT,a,b,c,d,e) +#define SOCK_LOG_FLOW5(ctx,a,b,c,d,e,f) \ + SLOG_5 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_FLOW),SOCK_LOG_FLOW_TEXT,a,b,c,d,e,f) + +/* Continuation log macros */ +#define SOCK_LOG_FLOWC0(ctx,a) \ + SLOGC_0 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_FLOW),a) +#define SOCK_LOG_FLOWC1(ctx,a,b) \ + SLOGC_1 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_FLOW),a,b) +#define SOCK_LOG_FLOWC2(ctx,a,b,c) \ + SLOGC_2 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_FLOW),a,b,c) +#define SOCK_LOG_FLOWC3(ctx,a,b,c,d) \ + SLOGC_3 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_FLOW),a,b,c,d) +#define SOCK_LOG_FLOWC4(ctx,a,b,c,d,e) \ + SLOGC_4 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_FLOW),a,b,c,d,e) +#define SOCK_LOG_FLOWC5(ctx,a,b,c,d,e,f) \ + SLOGC_5 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_FLOW),a,b,c,d,e,f) + +/* Hex log macro */ +#define SOCK_LOG_FLOWH(ctx,a,b) \ + SLOGH ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_FLOW),a,b) + +/*********************** SOCK_LOG_RX Macros *****************************/ + +#define SOCK_LOG_RX0(ctx,a) \ + SLOG_0 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_RX),SOCK_LOG_RX_TEXT,a) +#define SOCK_LOG_RX1(ctx,a,b) \ + SLOG_1 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_RX),SOCK_LOG_RX_TEXT,a,b) +#define SOCK_LOG_RX2(ctx,a,b,c) \ + SLOG_2 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_RX),SOCK_LOG_RX_TEXT,a,b,c) +#define SOCK_LOG_RX3(ctx,a,b,c,d) \ + SLOG_3 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_RX),SOCK_LOG_RX_TEXT,a,b,c,d) +#define SOCK_LOG_RX4(ctx,a,b,c,d,e) \ + SLOG_4 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_RX),SOCK_LOG_RX_TEXT,a,b,c,d,e) +#define SOCK_LOG_RX5(ctx,a,b,c,d,e,f) \ + SLOG_5 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_RX),SOCK_LOG_RX_TEXT,a,b,c,d,e,f) + +/* Continuation log macros */ +#define SOCK_LOG_RXC0(ctx,a) \ + SLOGC_0 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_RX),a) +#define SOCK_LOG_RXC1(ctx,a,b) \ + SLOGC_1 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_RX),a,b) +#define SOCK_LOG_RXC2(ctx,a,b,c) \ + SLOGC_2 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_RX),a,b,c) +#define SOCK_LOG_RXC3(ctx,a,b,c,d) \ + SLOGC_3 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_RX),a,b,c,d) +#define SOCK_LOG_RXC4(ctx,a,b,c,d,e) \ + SLOGC_4 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_RX),a,b,c,d,e) +#define SOCK_LOG_RXC5(ctx,a,b,c,d,e,f) \ + SLOGC_5 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_RX),a,b,c,d,e,f) + +/* Hex log macro */ +#define SOCK_LOG_RXH(ctx,a,b) \ + SLOGH ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_RX),a,b) + +/*********************** SOCK_LOG_TX Macros *****************************/ + +#define SOCK_LOG_TX0(ctx,a) \ + SLOG_0 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_TX),SOCK_LOG_TX_TEXT,a) +#define SOCK_LOG_TX1(ctx,a,b) \ + SLOG_1 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_TX),SOCK_LOG_TX_TEXT,a,b) +#define SOCK_LOG_TX2(ctx,a,b,c) \ + SLOG_2 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_TX),SOCK_LOG_TX_TEXT,a,b,c) +#define SOCK_LOG_TX3(ctx,a,b,c,d) \ + SLOG_3 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_TX),SOCK_LOG_TX_TEXT,a,b,c,d) +#define SOCK_LOG_TX4(ctx,a,b,c,d,e) \ + SLOG_4 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_TX),SOCK_LOG_TX_TEXT,a,b,c,d,e) +#define SOCK_LOG_TX5(ctx,a,b,c,d,e,f) \ + SLOG_5 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_TX),SOCK_LOG_TX_TEXT,a,b,c,d,e,f) + +/* Continuation log macros */ +#define SOCK_LOG_TXC0(ctx,a) \ + SLOGC_0 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_TX),a) +#define SOCK_LOG_TXC1(ctx,a,b) \ + SLOGC_1 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_TX),a,b) +#define SOCK_LOG_TXC2(ctx,a,b,c) \ + SLOGC_2 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_TX),a,b,c) +#define SOCK_LOG_TXC3(ctx,a,b,c,d) \ + SLOGC_3 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_TX),a,b,c,d) +#define SOCK_LOG_TXC4(ctx,a,b,c,d,e) \ + SLOGC_4 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_TX),a,b,c,d,e) +#define SOCK_LOG_TXC5(ctx,a,b,c,d,e,f) \ + SLOGC_5 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_TX),a,b,c,d,e,f) + +/* Hex log macro */ +#define SOCK_LOG_TXH(ctx,a,b) \ + SLOGH ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_TX),a,b) + +#ifdef __cplusplus +} +#endif + +#endif /* SOCK_LOG_INCLUDED */ diff --git a/include/inc/ssec.h b/include/inc/ssec.h new file mode 100644 index 0000000..123907c --- /dev/null +++ b/include/inc/ssec.h @@ -0,0 +1,1182 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2003 - 2008, All Rights Reserved */ +/* */ +/* MODULE NAME : ssec.h */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : This module provides user defines for SISCO's */ +/* Security Extensions for MMS-EASE, MMS-EASE Lite,*/ +/* ICCP, AXS4-MMS, AXS4-ICCP products. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 07/01/08 EJV 87 Chg S_SEC_VERSION_STR to 1.20 (for Win Vista)*/ +/* 05/14/08 EJV 86 Merged with non-Marben version. */ +/* 03/27/08 EJV 85 Use S_MAX_PATH instead of MAX_PATH. */ +/* 02/18/08 EJV 84 Changed to V2.00 for Sun Solaris. */ +/* 02/01/08 EJV 83 Added tags to typedef structs */ +/* 12/04/07 EJV 82 Added updateCRLists, ssleLoadCRLists (sh lib)*/ +/* 11/21/07 EJV 81 Added ssleSetCertStorePath */ +/* 09/05/07 EJV 80 Port to SNAP-Lite and LEAN-T stack. Cleanup. */ +/* cfgId is now CRC-32 computed on S_CERT_ID. */ +/* Merged S_SEC_LOC_AR and S_SEC_REM_AR into */ +/* S_SEC_LOC_REM_AR struct. */ +/* Merged sslLocalCertList and sslRemoteCertList*/ +/* into locRemCertList in S_SEC_CFG. */ +/* Del secManGetDebugSel (secman.dll eliminated)*/ +/* 03/06/07 EJV 79 Moved extern ssle_debug_sel from sslelog.h. */ +/* Changed to V1.9950 for MMS-SECURE-145-015. */ +/* 04/08/08 JRB 79 Chg () to (ST_VOID) in several prototypes. */ +/* 08/28/06 EJV 78 MMS-LITE SECURE: chg version to 1.10. */ +/* 03/02/06 EJV 77 Chg S_SEC_VERSION_STR to 1.10 (VS .NET 2005) */ +/* 01/04/06 EJV 76 Added DLLs incompatibility comments. */ +/* 10/25/05 EJV 75 Chg S_SEC_LITESECURE_NAME to fit identify */ +/* 09/22/05 EJV 74 Any new build use S_SEC_VERSION_STR 1.04 */ +/* 08/09/05 EJV 73 MMS-LITE SECURE: chg version to 1.0050. */ +/* Add extern LocalCertStorePath,CACertStorePath*/ +/* 02/25/05 MDE 72 Added sSecAssocConfChkEx */ +/* 01/31/05 ASK 71 Fix ST_MUTEX_SEM_SSEC to compile on QNX */ +/* 01/18/05 ASK 70 Chg ver back to 1.03 for (Win release) */ +/* 01/11/05 ASK 69 Added ST_MUTEX_SEM_SSEC for non-Windows */ +/* 01/10/05 ASK 68 Added ST_MUTEX_SEM_SSEC struct to ensure */ +/* alignment between S_SEC_CFG between */ +/* secman.dll and calling application */ +/* 01/06/05 ASK 67 Temporarily Chg ver to 1.0260 for Symantec */ +/* release. */ +/* 09/29/04 EJV 66 Chg ver to 1.03 for (Win release) */ +/* 09/02/04 EJV 65 Added S_SEC_PATH for sun. */ +/* 08/24/04 EJV 64 Chg from WIN32 to _WIN32. */ +/* Chg ver to 1.0251 for Windows ICCP-SECURE. */ +/* 04/08/04 EJV 63 _AIX: added S_SEC_PATH. */ +/* Chg ver to 1.02 for (AIX release) */ +/* 04/01/04 EJV 62 Chg ver to 1.0051 for (AIX beta) */ +/* 03/30/04 ASK 61 Added secManLckEnd proto */ +/* Added ssleCertFileToText proto for AIX */ +/* 03/12/04 ASK 60 Added ssleCertFileToXml proto for AIX */ +/* 03/10/04 EJV 59 Corr ver to 1.0050 for (AIX beta) */ +/* 03/05/04 MDE 58 Added AE Title for AR Security mode */ +/* 02/16/04 EJV 57 Chg S_SEC_DEF_SSL_PORT to 3782. */ +/* Added S_SEC_PORT_DELIM_CHAR. */ +/* Chg ver to 1.0150 for (AIX beta) */ +/* 02/09/04 EJV 56 Changed S_SEC_LITESECURE_NAME. */ +/* 01/16/04 EJV 55 Del forward reference to DIB_MATCH_CTRL. */ +/* Added _WIN32 for dllimport secManCfgChange. */ +/* 01/12/04 EJV 54 Added secManCfgChange proto for MMS_LITE */ +/* 12/04/03 ASK 53 Added secManCfgChange proto */ +/* 10/31/03 ASK 52 Rem CName type 'Unknown' */ +/* 10/21/03 EJV 51 Rem sSecFreeSecParam, sSecFreePartSecParam */ +/* 10/20/03 ASK 50 Added params to sSecUpdate, added */ +/* secManGetDebugSel proto, added */ +/* crlDropExisting to cfg */ +/* 10/16/03 ASK 49 Added sSecEnd and stopSSLEngine protos, */ +/* Chg ver to 1.00 */ +/* 10/10/03 MDE 48 Added crlCheckTime */ +/* 09/30/03 EJV 47 MMS-LITE: added S_SEC_LITESECURE_VERSION_STR */ +/* and S_SEC_LITESECURE_NAME. */ +/* Redefined macros SECLOG..._ to SEC_LOG_... */ +/* Added S_SEC_SSLE_LOG_DATA, S_SEC_SOCK_LOG_TX,*/ +/* S_SEC_SOCK_LOG_RX (reworked numbers). */ +/* Chg secLogMasks from ST_ULONG to ST_UINT. */ +/* MMS_LITE: Added global secManCfgXmlFile */ +/* 09/29/03 EJV 46 Chg ver to 0.9955 (snap.exe fix) */ +/* 08/25/03 EJV 45 Moved protos with GEN_SOCK to ssec_int.h */ +/* 08/21/03 ASK 44 Add clearTime to S_MACE_INFO struct. Chg some*/ +/* protos to pass this to verify time sig */ +/* 08/21/03 EJV 43 Added setGenSockSSL, ssecGetCipherSuite, */ +/* sSecGetCertId, sSecGetCertCtrl protos. */ +/* Chg ver to 0.9954 */ +/* 07/28/03 EJV 42 Chg MMS_LITE protos. */ +/* 07/18/03 ASK 41 Add software lock protos from secmanlck.c */ +/* 07/16/03 MDE 40 Changes to appAuthRequired values */ +/* 07/14/03 ASK 39 Add sSecUpdate and sslUpdate protos */ +/* 06/30/03 ASK 38 Added secManAccessCfg and secManReleaseCfg */ +/* protos. #include glbsem.h. Add mutex to */ +/* S_SEC_CONFIG struct. */ +/* 06/26/03 EJV 37 Chg GSOCK_... to SOCK_... log macros */ +/* 06/25/03 EJV 36 Chg ver to 0.9953 */ +/* 06/24/03 ASK 35 Added dynamic config API func protos */ +/* 06/20/03 EJV 34 Added SNAP_EXIT_EVENT_NAME. */ +/* 06/20/03 ASK 33 add S_SEC_EVENT_REKEY_FAILURE define */ +/* 06/19/03 MDE 32 Added rekeying to S_CERT_CTRL */ +/* 06/16/03 EJV 31 Del m_match.h, s_match.h; added suicacse.h; */ +/* Changed M_MATCH_CTRL to DIB_MATCH_CTRL. */ +/* 06/12/03 MDE 30 sSecAssocConfChk added srcChkDest parameter. */ +/* 06/12/03 MDE 29 Fixed up MMS_LITE over Marben */ +/* 06/12/03 MDE 28 Added M_MATCH support */ +/* 05/27/03 EJV 27 Chg ver to 0.9952 */ +/* 05/27/03 EJV 26 sSecAssocIndChk added parameter srcChkDest. */ +/* 05/27/03 EJV 25 S_SEC_PORT_DELIM_STR chg to '+' for compatib.*/ +/* 05/23/03 ASK 24 Changed secManLog to secManEventLog. Added */ +/* event define S_SEC_EVENT_SSL_FAILURE. Change */ +/* sSecPrintSrlNum to secManPrintSrlNum. */ +/* 05/14/03 MDE 23 Fixed up rekey parameters */ +/* 05/09/03 MDE 22 Corrected S_CIPHER_0C04xx, _0D02xx to use MD5*/ +/* 05/06/03 ASK 21 Add sSecUsrStart proto, changed secManStart */ +/* and startSSLEngine protos for new logging. */ +/* 05/01/03 ASK 20 Change to use S_SEC_SPARAMS for SUIC */ +/* 04/30/03 ASK 19 Add public key to S_CERT_INFO. Changed */ +/* S_SEC_MAX_SIGNED_TIME_LEN to 128 bytes. */ +/* Added protos for new signing time functions. */ +/* Added sSecCmpIssuer proto. */ +/* 04/29/03 EJV 18 Added S_SEC_MAX_IP_ADDR_LEN */ +/* Chg ver to 0.9951 */ +/* 04/21/03 MDE 17 Added cipher suites */ +/* 04/18/03 MDE 16 S_SEC_CONFIG changes */ +/* 04/18/03 MDE 15 Added S_APP_AUTHREQ_xxx defines */ +/* 04/18/03 MDE 14 Added Masks for Cipher Suite elements */ +/* 04/17/03 EJV 13 Moved asn1log.h. */ +/* 04/16/03 EJV 12 Added version string. */ +/* 04/15/03 JRB 11 Add forward ref for mvl_net_info. */ +/* 04/15/03 ASK 10 Added sSecPrintSrlNum proto. */ +/* 04/11/03 EJV 09 sSecAuthChk: changed ret to ST_RET */ +/* 04/10/03 EJV 08 Added sSecCmpCertId proto. */ +/* 04/10/03 MDE 07 Added ArSec support */ +/* 04/09/03 MDE 06 Merged ssecusr.c function protos */ +/* 04/09/03 MDE 05 Added AR security context declarations */ +/* 04/08/03 EJV 05 Added defs for all log masks in secLogMasks. */ +/* Changed secLogMasks to ST_ULONG. */ +/* 04/07/03 EJV 04 Added protos from ssecusr.c */ +/* 04/04/03 ASK 03 Changed serial number format. Added */ +/* SECLOG_DATA and SECLOG_DEBUG masks. Added */ +/* startSSLEngine proto. */ +/* 03/04/03 EJV 02 Added IPAddr string parsing tokens */ +/* 02/21/03 MDE 01 Created */ +/************************************************************************/ + +#ifndef S_SEC_INCLUDED +#define S_SEC_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "glbsem.h" +#include "acseauth.h" +#include "gen_list.h" +#include "asn1r.h" +#include "dibmatch.h" + +#if !defined(MMS_LITE) || defined(MAP30_ACSE) +/* for MMS-EASE, MMS-EASE Lite based products over Marben Stack */ +#define S_SEC_VERSION_STR "1.20" +#else +/* for MMS-EASE Lite products over LEAN-T Stack */ +#define S_SEC_LITESECURE_NAME "MMS-LITE-SECURE" +#define S_SEC_LITESECURE_VERSION_STR "1.10" +#endif + +#if !defined(MMS_LITE) || defined(MAP30_ACSE) +/* for MMS-EASE, MMS-EASE Lite based products over Marben Stack */ +#if !defined(_WIN32) +/* Security installation path on UNIX systems is fixed but diff on each system */ +#if defined(_AIX) +#define S_SEC_PATH "/usr/lpp/osill2/security" +#else /* other UNIX systems */ +#define S_SEC_PATH "/usr/osill2/security" +#endif +#endif /* !defined(_WIN32) */ +#endif /* !defined(MMS_LITE) || defined(MAP30_ACSE) */ + +#if defined(_WIN32) + #if defined(MMS_LITE) + #define SISCO_REGISTRY_SECURITY "SOFTWARE\\SISCO\\Secure MMS-EASE Lite\\CurrentVersion" + #else /* !defined(MMS_LITE) */ + #define SISCO_REGISTRY_SECURITY "SOFTWARE\\SISCO\\Security\\CurrentVersion" + #endif /* !defined(MMS_LITE) */ +#endif /* defined(_WIN32) */ + + + +/************************************************************************/ +/************************************************************************/ +/* NOTES ON CERTIFICATE NAME MATCHING */ +/* This sSec API has a number of functions that must match certificates */ +/* based on a S_CERT_ID data structure. In all cases the matching */ +/* process works as follows: */ +/* */ +/* The matching can be based on certificate number, subject, */ +/* issuer, or any combination of these as specified in the certId. */ +/* For instance, the following specifications are valid: */ +/* 1. Serial Number only */ +/* 2. Subject only */ +/* 3. Issuer only */ +/* 4. Subject and Issuer */ +/* 5. Subject and Serial Number */ +/* 6. Issuer and Serial Number */ +/* 7. Subject, Issuer, Serial Number */ + +/* Note that the all elements of the input 'certId' must be present and */ +/* match exactly in the local certificate. That is, all elements of the */ +/* certificate name must be present and in the specified order. */ + +/************************************************************************/ +/************************************************************************/ +#define SEC_LOG_ERR 0x00000001 +#define SEC_LOG_NERR 0x00000002 +#define SEC_LOG_FLOW 0x00000004 +#define SEC_LOG_DATA 0x00000008 +#define SEC_LOG_DEBUG 0x00000010 + +extern ST_UINT sec_debug_sel; + +/************************************************************************/ +/* LOGGING */ +/* The logging masks defined here are used to set the secLogMasks field */ +/* in the S_SEC_CONFIG (defined below). The application can set the */ +/* proper module logging masks by examining the secLogMasks. */ +/* Note that ERR logging is set by default to ON in all modules. */ +/* The name of masks have been copied here and prefixed with S_SEC_... */ +/* for easy reference. */ + +/* log masks for sec_debug_sel (ssec.h) */ +#define S_SEC_SEC_LOG_NERR 0x00000001 +#define S_SEC_SEC_LOG_FLOW 0x00000002 +#define S_SEC_SEC_LOG_DATA 0x00000004 +#define S_SEC_SEC_LOG_DEBUG 0x00000008 +/* log masks for ssle_debug_sel (sslEngine.h) */ +#define S_SEC_SSLE_LOG_NERR 0x00000010 +#define S_SEC_SSLE_LOG_FLOW 0x00000020 +#define S_SEC_SSLE_LOG_DATA 0x00000040 +#define S_SEC_SSLE_LOG_DEBUG 0x00000080 +/* log masks for snap_debug_sel (snaplog.h) */ +#define S_SEC_SNAP_LOG_NERR 0x00000100 +#define S_SEC_SNAP_LOG_FLOW 0x00000200 +/* log masks for sock_debug_sel (gensock2.h) */ +#define S_SEC_SOCK_LOG_NERR 0x00000400 +#define S_SEC_SOCK_LOG_FLOW 0x00000800 +#define S_SEC_SOCK_LOG_TX 0x00001000 +#define S_SEC_SOCK_LOG_RX 0x00002000 +/* log masks for sx_debug_sel (sx_defs.h) */ +#define S_SEC_SX_LOG_NERR 0x00004000 +#define S_SEC_SX_LOG_DEC 0x00008000 +#define S_SEC_SX_LOG_ENC 0x00010000 +#define S_SEC_SX_LOG_FLOW 0x00020000 +#define S_SEC_SX_LOG_DEBUG 0x00040000 +/* log masks for asn1_debug_sel (asn1r.h) */ +#define S_SEC_ASN1_LOG_NERR 0x00080000 +#define S_SEC_ASN1_LOG_DEC 0x00100000 +#define S_SEC_ASN1_LOG_ENC 0x00200000 +/* log masks for gs_debug_sel (glbsem.h) */ +#define S_SEC_GS_LOG_NERR 0x00400000 +#define S_SEC_GS_LOG_FLOW 0x00800000 +/* log masks for chk_debug_en (mem_chk.h) */ +#define S_SEC_MEM_LOG_CALLOC 0x01000000 +#define S_SEC_MEM_LOG_MALLOC 0x02000000 +#define S_SEC_MEM_LOG_REALLOC 0x04000000 +#define S_SEC_MEM_LOG_FREE 0x08000000 +/* the rest of bits are used for memory debugging flags: */ +#define S_SEC_m_check_list_enable 0x10000000 +#define S_SEC_m_find_node_enable 0x20000000 +#define S_SEC_m_no_realloc_smaller 0x40000000 +/* 0x80000000 free */ + +/************************************************************************/ +/* SNAP Startup Event Names */ + +#if defined(_WIN32) +#define SNAP_STARTED_EVENT_NAME "snap.started" +#define SNAP_RUNNING_EVENT_NAME "snap.running" +#define SNAP_EXIT_EVENT_NAME "snap.exit" +#endif + +/************************************************************************/ +/* Allowed authType values */ + +#define S_SEC_AUTHTYPE_NONE 0 +#define S_SEC_AUTHTYPE_CERTIFICATE 1 +#define S_SEC_AUTHTYPE_SYMMETRIC 2 + +/************************************************************************/ +/* General Defines */ + +/* Maximum signed time data size */ +#define S_SEC_MAX_SIGNED_TIME_LEN 128 + +/* Help in sizing the asn1 buffer (really more like 25 ...) */ +#define S_SEC_ASN1_BUF_OH 50 + +/* Maximum size of the certificate serial number (in bytes) */ +#define S_SEC_MAX_SERIAL_LEN 64 + +/************************************************************************/ +/* MACE decode error codes */ + +#define MACE_ASN1_INCOMPLETE 0x9102 +#define MACE_ASN1_SYMMETRIC_NOT_SUPPORTED 0x9103 + +/************************************************************************/ +/* Default Ports */ + +/* SSL Port */ +#define S_SEC_DEF_SSL_PORT 3782 + +/* IPC Ports */ +#define S_SEC_DEF_STACK_PORT 10042 +#define S_SEC_DEF_SNAP_PORT 10043 +#define S_SEC_DEF_SNAP_CONTROL_PORT 10044 +#define S_SEC_DEF_SNAP_MONITOR_PORT 10045 + + +/************************************************************************/ +/* Remote address and security info formatting tokens */ + +#define S_SEC_IP_ADDR_DELIM_STR "SSL:" +#define S_SEC_PORT_DELIM_STR "+" +#define S_SEC_PORT_DELIM_CHAR '+' /* same as above but in ' ' */ +#define S_SEC_CIPHER_DELIM_STR "+" +#define S_SEC_CERT_ID_DELIM_STR "," + +#define S_SEC_MAX_IP_ADDR_LEN 20 + +/************************************************************************/ +/* Security Subsystem Error Codes */ + +#define S_SEC_ERR_VALIDITY_TOOSOON 0xA001 /* 40961 */ +#define S_SEC_ERR_VALIDITY_EXPIRED 0xA002 /* 40962 */ +#define S_SEC_ERR_CNAME_TYPE_UNKNOWN 0xA003 /* 40963 */ +#define S_SEC_ERR_CNAME_MISSING 0xA004 /* 40964 */ +#define S_SEC_ERR_CNAME_EXTRA 0xA005 /* 40965 */ +#define S_SEC_ERR_CNAME_MISMATCH 0xA006 /* 40966 */ +#define S_SEC_ERR_TIME_SEAL_INVALID 0xA007 /* 40967 */ +#define S_SEC_ERR_TIME_SEAL_TIME_WINDOW 0xA008 /* 40968 */ +#define S_SEC_ERR_READ_INSTALL_PATH 0xA009 /* 40969 */ +/* DEBUG: these codes are not appearing anywhere */ + +/************************************************************************/ +/* Cipher Suite Selection Defines */ + +#define S_MAX_ALLOWED_CIPHER_SUITES 49 + +/* Masks for Cipher Suite elements */ +#define S_KEYX_MASK 0xff0000 +#define S_CRYPT_MASK 0x00ff00 +#define S_HASH_MASK 0x0000ff + + +/* Key Exchange Algorithms */ +#define S_KEYX_NONE 0x000000 +#define S_KEYX_NULL 0x010000 +#define S_KEYX_RSA 0x020000 +#define S_KEYX_RSA_EX 0x030000 +#define S_KEYX_DH_DSS 0x040000 +#define S_KEYX_DH_DSS_EX 0x050000 +#define S_KEYX_DH_RSA 0x060000 +#define S_KEYX_DH_RSA_EX 0x070000 +#define S_KEYX_DHE_DSS 0x080000 +#define S_KEYX_DHE_DSS_EX 0x090000 +#define S_KEYX_DHE_RSA 0x0A0000 +#define S_KEYX_DHE_RSA_EX 0x0B0000 +#define S_KEYX_DH_ANON 0x0C0000 +#define S_KEYX_DH_ANON_EX 0x0D0000 +#define S_KEYX_FORTEZZA_DMS 0x0E0000 + +/* Encryption Algorithms */ +#define S_CRYPT_NONE 0x000000 +#define S_CRYPT_NULL 0x000100 +#define S_CRYPT_RC4_40 0x000200 +#define S_CRYPT_RC4_56 0x000300 +#define S_CRYPT_RC4_128 0x000400 +#define S_CRYPT_RC2_CBC_40 0x000500 +#define S_CRYPT_IDEA_CBC 0x000600 +#define S_CRYPT_DES40_CBC 0x000700 +#define S_CRYPT_DES_CBC 0x000800 +#define S_CRYPT_3DES_EDE_CBC 0x000900 +#define S_CRYPT_FORTEZZA_CBC 0x000A00 +#define S_CRYPT_AES_128_CBC 0x000B00 +#define S_CRYPT_AES_256_CBC 0x000C00 + +/* Hash Algorithms */ +#define S_HASH_NONE 0x000000 +#define S_HASH_NULL 0x000001 +#define S_HASH_MD5 0x000002 +#define S_HASH_SHA 0x000003 + +/* Cipher Suite Seletion */ +#define S_CIPHER_NOSSL 0x000000 +#define S_CIPHER_ANY 0xFFFFFF + +/* 49 Cipher Suites are defined by SSL 3.0 and TLS 1.0 */ +/* Bit fields: Key Exchange Encryption Hash */ +#define S_CIPHER_NONE (S_KEYX_NONE | S_CRYPT_NONE | S_HASH_NONE) +#define S_CIPHER_010103 (S_KEYX_NULL | S_CRYPT_NULL | S_HASH_SHA) +#define S_CIPHER_020102 (S_KEYX_RSA | S_CRYPT_NULL | S_HASH_MD5) +#define S_CIPHER_020103 (S_KEYX_RSA | S_CRYPT_NULL | S_HASH_SHA) +#define S_CIPHER_020402 (S_KEYX_RSA | S_CRYPT_RC4_128 | S_HASH_MD5) +#define S_CIPHER_020403 (S_KEYX_RSA | S_CRYPT_RC4_128 | S_HASH_SHA) +#define S_CIPHER_020603 (S_KEYX_RSA | S_CRYPT_IDEA_CBC | S_HASH_SHA) +#define S_CIPHER_020803 (S_KEYX_RSA | S_CRYPT_DES_CBC | S_HASH_SHA) +#define S_CIPHER_020903 (S_KEYX_RSA | S_CRYPT_3DES_EDE_CBC | S_HASH_SHA) +#define S_CIPHER_020B03 (S_KEYX_RSA | S_CRYPT_AES_128_CBC | S_HASH_SHA) +#define S_CIPHER_020C03 (S_KEYX_RSA | S_CRYPT_AES_256_CBC | S_HASH_SHA) +#define S_CIPHER_030202 (S_KEYX_RSA_EX | S_CRYPT_RC4_40 | S_HASH_MD5) +#define S_CIPHER_030303 (S_KEYX_RSA_EX | S_CRYPT_RC4_56 | S_HASH_SHA) +#define S_CIPHER_030502 (S_KEYX_RSA_EX | S_CRYPT_RC2_CBC_40 | S_HASH_MD5) +#define S_CIPHER_030703 (S_KEYX_RSA_EX | S_CRYPT_DES40_CBC | S_HASH_SHA) +#define S_CIPHER_030803 (S_KEYX_RSA_EX | S_CRYPT_DES_CBC | S_HASH_SHA) +#define S_CIPHER_040803 (S_KEYX_DH_DSS | S_CRYPT_DES_CBC | S_HASH_SHA) +#define S_CIPHER_040903 (S_KEYX_DH_DSS | S_CRYPT_3DES_EDE_CBC | S_HASH_SHA) +#define S_CIPHER_040B03 (S_KEYX_DH_DSS | S_CRYPT_AES_128_CBC | S_HASH_SHA) +#define S_CIPHER_040C03 (S_KEYX_DH_DSS | S_CRYPT_AES_256_CBC | S_HASH_SHA) +#define S_CIPHER_050703 (S_KEYX_DH_DSS_EX | S_CRYPT_DES40_CBC | S_HASH_SHA) +#define S_CIPHER_060803 (S_KEYX_DH_RSA | S_CRYPT_DES_CBC | S_HASH_SHA) +#define S_CIPHER_060903 (S_KEYX_DH_RSA | S_CRYPT_3DES_EDE_CBC | S_HASH_SHA) +#define S_CIPHER_060B03 (S_KEYX_DH_RSA | S_CRYPT_AES_128_CBC | S_HASH_SHA) +#define S_CIPHER_060C03 (S_KEYX_DH_RSA | S_CRYPT_AES_256_CBC | S_HASH_SHA) +#define S_CIPHER_070703 (S_KEYX_DH_RSA_EX | S_CRYPT_DES40_CBC | S_HASH_SHA) +#define S_CIPHER_080403 (S_KEYX_DHE_DSS | S_CRYPT_RC4_128 | S_HASH_SHA) +#define S_CIPHER_080803 (S_KEYX_DHE_DSS | S_CRYPT_DES_CBC | S_HASH_SHA) +#define S_CIPHER_080903 (S_KEYX_DHE_DSS | S_CRYPT_3DES_EDE_CBC | S_HASH_SHA) +#define S_CIPHER_090303 (S_KEYX_DHE_DSS_EX | S_CRYPT_RC4_56 | S_HASH_SHA) +#define S_CIPHER_090703 (S_KEYX_DHE_DSS_EX | S_CRYPT_DES40_CBC | S_HASH_SHA) +#define S_CIPHER_090803 (S_KEYX_DHE_DSS_EX | S_CRYPT_DES_CBC | S_HASH_SHA) +#define S_CIPHER_080B03 (S_KEYX_DHE_DSS | S_CRYPT_AES_128_CBC | S_HASH_SHA) +#define S_CIPHER_080C03 (S_KEYX_DHE_DSS | S_CRYPT_AES_256_CBC | S_HASH_SHA) +#define S_CIPHER_0A0803 (S_KEYX_DHE_RSA | S_CRYPT_DES_CBC | S_HASH_SHA) +#define S_CIPHER_0A0903 (S_KEYX_DHE_RSA | S_CRYPT_3DES_EDE_CBC | S_HASH_SHA) +#define S_CIPHER_0A0B03 (S_KEYX_DHE_RSA | S_CRYPT_AES_128_CBC | S_HASH_SHA) +#define S_CIPHER_0A0C03 (S_KEYX_DHE_RSA | S_CRYPT_AES_256_CBC | S_HASH_SHA) +#define S_CIPHER_0B0703 (S_KEYX_DHE_RSA_EX | S_CRYPT_DES40_CBC | S_HASH_SHA) +#define S_CIPHER_0C0402 (S_KEYX_DH_ANON | S_CRYPT_RC4_128 | S_HASH_MD5) +#define S_CIPHER_0C0803 (S_KEYX_DH_ANON | S_CRYPT_DES_CBC | S_HASH_SHA) +#define S_CIPHER_0C0903 (S_KEYX_DH_ANON | S_CRYPT_3DES_EDE_CBC | S_HASH_SHA) +#define S_CIPHER_0C0B03 (S_KEYX_DH_ANON | S_CRYPT_AES_128_CBC | S_HASH_SHA) +#define S_CIPHER_0C0C03 (S_KEYX_DH_ANON | S_CRYPT_AES_256_CBC | S_HASH_SHA) +#define S_CIPHER_0D0202 (S_KEYX_DH_ANON_EX | S_CRYPT_RC4_40 | S_HASH_MD5) +#define S_CIPHER_0D0703 (S_KEYX_DH_ANON_EX | S_CRYPT_DES40_CBC | S_HASH_SHA) +#define S_CIPHER_0E0103 (S_KEYX_FORTEZZA_DMS | S_CRYPT_NULL | S_HASH_SHA) +#define S_CIPHER_0E0403 (S_KEYX_FORTEZZA_DMS | S_CRYPT_RC4_128 | S_HASH_SHA) +#define S_CIPHER_0E0A03 (S_KEYX_FORTEZZA_DMS | S_CRYPT_FORTEZZA_CBC | S_HASH_SHA) + +/************************************************************************/ +/* Certificate Names */ + +/* nameType defines */ +#define S_CERT_NAME_TYPE_ANY 0 +#define S_CERT_NAME_TYPE_COMMON_NAME 1 +#define S_CERT_NAME_TYPE_COUNTRY 2 +#define S_CERT_NAME_TYPE_STATE_OR_PROVINCE 3 +#define S_CERT_NAME_TYPE_LOCALITY 4 +#define S_CERT_NAME_TYPE_ORGANIZATION 5 +#define S_CERT_NAME_TYPE_EMAIL 6 +#define S_CERT_NAME_TYPE_ORGANIZATIONAL_UNIT 7 + +#define S_CERT_NAME_MAX_LEN 255 + +/* A name in a certificate is a list of names and nane types */ +typedef struct S_CERT_NAME_tag + { + DBL_LNK l; + ST_INT nameType; + ST_CHAR *nameText; + } S_CERT_NAME; + + +/************************************************************************/ +/* Identifying a Certificate */ + +#define S_SERIAL_NUM_NONE -1 + +typedef struct S_CERT_ID_tag + { + /* Note: adding/removing fields to/from this struct will make older */ + /* !!! applications incompatible with new security DLLs. */ + ST_INT serialLen; /* 0 == wildcard */ + ST_UCHAR serialNumber[S_SEC_MAX_SERIAL_LEN]; /* reverse from mmc */ + S_CERT_NAME *issuerCName; /* NULL == wildcard */ + S_CERT_NAME *subjectCName; /* NULL == wildcard */ + } S_CERT_ID; + + +/************************************************************************/ +/* Certificate BLOB, X.509 format */ + +typedef struct S_CERT_BLOB_tag + { + /* Note: adding/removing fields to/from this struct will make older */ + /* !!! applications incompatible with new security DLLs. */ + ST_INT certDataLen; + ST_UCHAR *certData; + } S_CERT_BLOB; + +/************************************************************************/ +/* Signed Time */ + +typedef struct S_SIGNED_TIME_tag + { + /* Note: adding/removing fields to/from this struct will make older */ + /* !!! applications incompatible with new security DLLs. */ + ST_INT signedTimeLen; + ST_UCHAR *signedTimeData; + } S_SIGNED_TIME; + +/************************************************************************/ +/* MACE authentication information */ + +typedef struct S_MACE_INFO_tag + { + ST_INT authType; + union + { + struct + { + S_CERT_BLOB certBlob; + time_t signedTimeT; + + /* UTC NULL-terminated time string to be verified */ + ST_UCHAR clearTime[S_SEC_MAX_SIGNED_TIME_LEN]; + /* UTC time string signed by the sender */ + S_SIGNED_TIME signedTime; + + } certBased; + struct + { + ST_INT placeHolder; + } symmetric; + } u; + } S_MACE_INFO; + + +/************************************************************************/ +/************************************************************************/ +/* Certificate Content Information */ + +typedef struct S_CERT_INFO_tag + { + /* Note: adding/removing fields to/from this struct will make older */ + /* applications incompatible with new security DLLs. */ + ST_INT version; + S_CERT_ID certId; + struct + { + time_t validNotBefore; + time_t validNotAfter; + } validity; + +#if 0 + struct + { + ST_INT publicKeyAlgorithm; + ST_INT algorithmIdentifier; + } algorithms; +#endif + + ST_UCHAR *publicKey; + ST_INT publicKeyLen; + } S_CERT_INFO; + + +/************************************************************************/ +/************************************************************************/ +/* Security Configuration */ +/************************************************************************/ + +/* List of Certificate ID's */ +typedef struct S_CERT_CTRL_tag + { + DBL_LNK l; + ST_CHAR *certName; /* Null if no associated name */ + S_CERT_ID certId; + +/* Rekey Control. These override the global rekey parameters if != 0 */ +/* They apply only to remote certificates */ + ST_UINT32 maxTransactionsPerKey; + ST_UINT32 maxTimePerKey; /* in seconds */ + ST_INT rekeyTimeout; /* In seconds */ + +/* Internal use */ + ST_UINT32 cfgId; /* computed 32-bit CRC on certId */ + /* enabled fields (for matching) */ + } S_CERT_CTRL; + +/************************************************************************/ +/* AR Security Mapping Defines */ + +/* appAuthRequired defines */ +/* These defines come into play only if 'Remote AR Security' is not */ +/* found for an incoming connection */ + +/* 'Remote AR Security' is required; reject all other indications */ +#define S_APP_AUTHREQ_AR_SEC 0 +/* A configured MACE certificate is required */ +#define S_APP_AUTHREQ_MACE 1 +/* A configured MACE certificate is required and encryption is required */ +#define S_APP_AUTHREQ_MACE_ENCRYPTED 2 +/* Encryption is required */ +#define S_APP_AUTHREQ_ENCRYPTED 3 +/* There are no requirements; all connections are acceptable */ +#define S_APP_AUTHREQ_NONE 4 + + + +#define S_AR_AUTH_MODE_AETITLE 0 +#define S_AR_AUTH_MODE_MACE 1 +#define S_AR_AUTH_MODE_SSL 2 +/* For backward compatibility only */ +#define S_AR_AUTH_MODE_NONE S_AR_AUTH_MODE_AETITLE + +/* Note that the Local is used to select the local MACE certificate for */ +/* connections to a remote with arAuthMode == S_AR_AUTH_MODE_MACE */ +typedef struct S_SEC_LOC_AR_tag + { + DBL_LNK l; + ST_CHAR *arName; /* Local or Remote AR Name */ + S_CERT_CTRL *maceCert; /* NULL if none configured */ + +/* User */ + ST_VOID *usr; + } S_SEC_LOC_AR; + +/* Remote AR Security Configuration */ +/* Note that the Remote is used to determine the ACSE authentication */ +/* and encryption to be used for both calling and called connections, */ +/* and is used in identifying the remote for called connections */ +typedef struct S_SEC_REM_AR_tag + { + DBL_LNK l; + ST_CHAR *arName; /* Local or Remote AR Name */ + + /* Authentication */ + ST_INT arAuthMode; + +/* Authentication Certificate: */ +/* arAuthMode == S_AR_AUTH_MODE_MACE : Remote MACE cert */ +/* arAuthMode == S_AR_AUTH_MODE_SSL : Remote SSL cert */ +/* arAuthMode == S_AR_AUTH_MODE_NONE : NULL */ + S_CERT_CTRL *authCert; + +/* Encryption */ + ST_INT encryptMode; + ST_UINT16 sslPort; /* For S_SEC_ENCRYPT_SSL */ + +/* User */ + ST_VOID *usr; + } S_SEC_REM_AR; + +#if defined(_WIN32) +/* Placeholder struct kept only for compatibility purposes with older + * applications. Used in main S_SEC_CFG struct below. + */ +typedef struct + { + ST_INT mutexType; /* GS_MUTEX_UNNAMED (_NAMED) */ + union + { + HANDLE hMutex; /* for named mutex */ + CRITICAL_SECTION cs; /* for unnamed mutex */ + } u; + } ST_MUTEX_SEM_SSEC; +#else +#define ST_MUTEX_SEM_SSEC ST_MUTEX_SEM +#endif + +/************************************************************************/ +/**** Main Configuration Structure ****/ + +#define S_SSL_MAX_LISTEN_PORTS 10 +typedef struct + { + /* Note: adding/removing fields to/from this struct will make older */ + /* !!! applications incompatible with new security DLLs. */ + + /****** General Configuration ******/ + ST_BOOLEAN secureModeEnabled; + + /* Old struct kept around for alignment purposes with old(er) apps */ + ST_MUTEX_SEM_SSEC obsoleteCfgMutex; + + /****** MACE Level Configuration ******/ + /* Time Signature Window */ + ST_UINT32 timeSealWindow; + + /****** Certificate Lists ******/ + /* Remote Certificates and associated AR Names */ + S_CERT_CTRL *sslRemoteCertList; + + /* Local Certificates and associated AR Names */ + S_CERT_CTRL *sslLocalCertList; + + /* Acceptable CA Certificates */ + S_CERT_CTRL *sslTrustedCaCertList; + + /****** SSL Configuration ******/ + /* Local Certificate to be used */ + S_CERT_CTRL *sslLocalCertCtrl; + + /* Listen Port Numbers */ + ST_INT numSslListenPorts; + ST_UINT16 sslListenPorts[S_SSL_MAX_LISTEN_PORTS]; + + /* Allowed Ciphers, ordered by preference */ + ST_INT numAllowedCipherSuites; + ST_INT allowedCipherSuites[S_MAX_ALLOWED_CIPHER_SUITES]; + + /* Flags */ + ST_BOOLEAN certAuthCalling; /* verify that peer certificate is configured */ + ST_BOOLEAN certAuthCalled; /* verify that peer certificate is configured */ + ST_BOOLEAN encryptReqCalling; /* encryption required on calling connection */ + ST_BOOLEAN encryptReqCalled; /* encryption required on called connection */ + + /* Rekey Control */ + ST_UINT32 maxTransactionsPerKey; + ST_UINT32 maxTimePerKey; /* in seconds */ + ST_INT rekeyTimeout; /* In seconds */ + + /* CRL Control */ + ST_INT crlCheckTime; /* In minutes */ + ST_BOOLEAN crlDropExisting; + + /****** Application Configuation */ + ST_INT appAuthRequired; + DIB_MATCH_CTRL dibMatch; + + /* Well Known AR Names */ + S_SEC_LOC_AR *secLocArList; + S_SEC_REM_AR *secRemArList; + + /****** SNAP Configuation */ + ST_UINT16 defCallingSslPort; /* Default SSL Calling Port Number */ + + /* Misc */ + ST_UINT maxCalling; + ST_UINT maxCalled; + + ST_INT cpuAffinity; + + /* Calling connection timeout, used by SNAP. Default 10000ms */ + ST_INT callingConnectTimeout; /* In milliseconds */ + + /****** IPC: SNAP/Stack Ports & IP Addresses */ + ST_CHAR *stackIPAddress; + ST_UINT16 stackListenPort; + + ST_CHAR *snapIPAddress; + ST_UINT16 snapListenPort; + ST_UINT16 snapControlListenPort; + ST_UINT16 snapMonitorListenPort; + + /* SNAP/STACK Connect-to-Ctrl timeout, bidirectional. Default 500ms */ + ST_INT snapStackCtrlTimeout; /* In milliseconds */ + + /****** Security Logging ******/ + ST_INT secEventLogTimeStampMode; + ST_INT secEventLogFileSize; + ST_CHAR *secEventLogFile; + ST_INT diagLogTimeStampMode; + ST_INT diagLogFileSize; + ST_CHAR *diagLogFileName; + ST_UINT secLogMasks; + } S_SEC_CONFIG; + + +/************************************************************************/ +/************************************************************************/ + +#define S_SEC_ENCRYPT_NONE 0 +#define S_SEC_ENCRYPT_SSL 1 +typedef struct S_SEC_ENCRYPT_CTRL_tag + { + ST_INT encryptMode; + union + { + struct + { + ST_UINT16 port; + ST_BOOLEAN sslCertMatched; /* The Subject-to-CertId succeded */ + S_CERT_CTRL *sslCert; /* The matched SSL cert ctrl */ + ST_INT cipherSuite; /* Cipher suite in use */ + } ssl; + } u; + } S_SEC_ENCRYPT_CTRL; + +/* Struct passed back and forth to SUIC */ +typedef struct S_SEC_SPARAMS_tag + { + ACSE_AUTH_INFO *authInfo; + ACSE_AUTH_INFO *partAuthInfo; + S_SEC_ENCRYPT_CTRL *encryptCtrl; + } S_SEC_SPARAMS; + +/************************************************************************/ + +/* Application Level Authentication Check Result */ +typedef struct S_SEC_AUTHCHK_RSLT_tag + { +/* Encryption in use */ + S_SEC_ENCRYPT_CTRL encryptInfo; + +/* Authentication in use */ + ST_INT authPres; + ST_INT mechType; + union + { + struct + { + ST_BOOLEAN timeSealOk; /* Timeseal not reused, in window */ + ST_BOOLEAN maceCertTimeValid; /* Certificate validity times OK */ + ST_BOOLEAN maceCertIssuerOk; /* The issuer is in the OK list */ + ST_BOOLEAN maceCertMatched; /* The Subject-to-CertId succeded */ + S_CERT_CTRL *maceCert; /* The matched MACE cert ctrl */ + } certBased; + struct + { + ST_INT placeHolder; + } symmetric; + struct + { + ST_INT placeHolder2; + } passsword; + } u; + } S_SEC_AUTHCHK_RSLT; + +/************************************************************************/ +/* Look up configured security information by AR Name */ +ST_RET sSecRemArNameToArSec (ST_CHAR *arName, S_SEC_REM_AR **arSecOut); +ST_RET sSecLocArNameToArSec (ST_CHAR *arName, S_SEC_LOC_AR **arSecOut); + +/************************************************************************/ +/* These functions can be used to select and examine SSL level info */ +/* for the selected connection */ +#if defined(MMS_LITE) && !defined(MAP30_ACSE) +/* ssecusr.c functions */ +struct mvl_net_info; /* forward reference */ +ST_RET sSecAssocIndChk (struct mvl_net_info *cc, DIB_MATCH_CTRL *matchCtrl, + S_SEC_REM_AR **arSecOut, S_SEC_AUTHCHK_RSLT *srcChkDest); +ST_RET sSecAssocConfChkEx (struct mvl_net_info *cc, DIB_MATCH_CTRL *matchCtrl, + S_SEC_REM_AR *remArSec, S_SEC_AUTHCHK_RSLT *srcChkDest); +ST_RET sSecAuthChk (struct mvl_net_info *cc, S_SEC_AUTHCHK_RSLT *srcChkDest); +ST_RET sSecGetSecParam (struct mvl_net_info *cc, S_SEC_SPARAMS *secParams); +ST_RET sSecFreeSecParam (ACSE_AUTH_INFO *authInfo); +ST_RET sSecFreePartSecParam (struct mvl_net_info *cc); + +/* For backward compatability */ +#define sSecAssocConfChk(cc,remArSec,secChkDest) sSecAssocConfChkEx(cc,NULL,remArSec,secChkDest) +#else /* !defined(MMS_LITE) || defined(MAP30_ACSE) */ +/* ssecusr.c functions */ +ST_RET sSecAssocIndChk (ST_INT chan, DIB_MATCH_CTRL *matchCtrl, + S_SEC_REM_AR **arSecOut, S_SEC_AUTHCHK_RSLT *srcChkDest); +ST_RET sSecAssocConfChkEx (ST_INT chan, DIB_MATCH_CTRL *matchCtrl, + S_SEC_REM_AR *remArSec, S_SEC_AUTHCHK_RSLT *srcChkDest); +ST_INT sSecAuthChk (ST_INT chan, S_SEC_AUTHCHK_RSLT *srcChkDest); +ST_RET sSecSetSecParam (ST_INT chan, S_SEC_SPARAMS *secParams); +ST_RET sSecGetSecParam (ST_INT chan, S_SEC_SPARAMS *secParams); + +/* For backward compatability */ +#define sSecAssocConfChk(chan,remArSec,secChkDest) sSecAssocConfChkEx(chan,NULL,remArSec,secChkDest) +#endif /* !defined(MMS_LITE) || defined(MAP30_ACSE) */ + + + +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ +/* Initialize/Terminate */ + +ST_RET sSecUsrStart (S_SEC_CONFIG **secCfgOut); +ST_RET sSecUsrEnd (ST_VOID); +ST_RET sSecStart (S_SEC_CONFIG **secCfg); +ST_RET sSecEnd (ST_VOID); + +/************************************************************************/ +/* Configuration */ + +/* Used by configuration app to get SEC_MAN config information */ +ST_CHAR *secManGetXmlCfg (ST_VOID); +ST_RET secManSetXmlCfg (ST_CHAR *pw, ST_CHAR *xmlCfg); +ST_RET secManExportLocalCerts (ST_CHAR *pw, ST_INT *destFile); + +/* Used by app to reload security components */ +ST_RET sSecUpdate(S_SEC_CONFIG *currCfg, S_SEC_CONFIG *newCfg); + +/************************************************************************/ +/* MACE Authentication */ + +/* Create/Free MACE Authentication Information for a local CertId */ +ST_RET sSecMaceAuthInfoCreate (S_CERT_ID *certId, ACSE_AUTH_INFO *authInfo); + +ST_VOID sSecMaceAuthInfoFree (ACSE_AUTH_INFO *auth_info); + +/* Decode MACE Authentication Information */ +ST_RET sSecMaceAuthInfoDec (ACSE_AUTH_INFO *authInfo, + S_MACE_INFO **maceInfoOut, + S_CERT_INFO **certInfoOut); +ST_VOID sSecFreeCertInfo (S_CERT_INFO *certInfo); + +/************************************************************************/ +/************************************************************************/ +/* Finding things in the Security Configuration */ + +/**** Find configured local CertCtrl for given certName ****/ +ST_RET sSecCertNameToLocCertCtrl (ST_CHAR *certName, S_CERT_CTRL **certCtrlOut); + +/**** Find configured remote CertCtrl for given certName ****/ +ST_RET sSecCertNameToRemCertCtrl (ST_CHAR *certName, S_CERT_CTRL **certCtrlOut); + +/**** Find configured remote CertCtrl for given CertId ****/ +ST_RET sSecCertIdToRemCertCtrl (S_CERT_ID *certId, S_CERT_CTRL **certCtrlOut); + +/**** Find configured remote CertCtrl for given cfgId ****/ +ST_RET sSecCertCfgIdToRemCertCtrl (ST_INT cfgId, S_CERT_CTRL **CertCtrlOut); + +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ +/**** Certificate Blob Handling ****/ + +/* Retrieve local Certificate Blob from Certifcate Store */ +ST_RET sSecGetLocalCert (S_CERT_ID *certId, S_CERT_BLOB *certDataOut); + +/* Decoding a Certificate blob */ +ST_RET sSecCertDec (S_CERT_BLOB *certBlob, S_CERT_INFO **certInfoOut); + +/************************************************************************/ +/**** Signed Time Handling ****/ + +/* Verify a Signed Time signature */ +ST_RET sSecSignedTimeVerify (S_CERT_INFO *remCert, S_SIGNED_TIME *signedTime, ST_UCHAR *clearTime); + +/* Sign a time_t */ +ST_RET sSecSignTimeT (S_CERT_ID *localCert, S_SIGNED_TIME *signedTime, time_t timeToSign); + +/************************************************************************/ +/**** MACE ASN.1 Encode/Decode ****/ + +/* Encode MACE ACSE Authentication */ +ST_RET sSecMaceAsn1Enc (S_MACE_INFO *maceInfo, + ST_CHAR *asn1Buf, ST_INT asn1BufLen, + ST_CHAR **maceAsn1Out, ST_INT *maceAsn1LenOut); + +/* Decode Certificate based ACSE Authentication */ +ST_RET sSecMaceAsn1Dec (ST_CHAR *maceAsn1, ST_INT maceAsn1Len, + S_MACE_INFO **maceInfoOut); + +/************************************************************************/ +/**** Remote Certificate Validity Checking ****/ + +/* Make sure the certificate issuer is OK */ +ST_RET sSecChkIssuer (S_CERT_INFO *certInfo); + +/* Make sure the certificate validity times are OK */ +ST_RET sSecChkValidityTimes (S_CERT_INFO *certInfo); + +/* Validate a MACE time seal */ +ST_RET sSecChkTimeSeal (S_CERT_INFO *remCert, + time_t signedTimeT, + ST_UCHAR *clearTime, + S_SIGNED_TIME *signedTime); + + +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ +/* Common functions declarations */ + +/**** Compare remote cert issuer names with ones that we trust ****/ +ST_BOOLEAN sSecCmpIssuer (S_CERT_ID *remCert, S_CERT_ID *trustedCert); +/**** Compare two CertIds ****/ +ST_BOOLEAN sSecCmpCertId (S_CERT_ID *certId1, S_CERT_ID *certId2); + +/* Export a certificate to XML */ +#if !defined(_WIN32) +ST_INT ssleCertFileToXml (ST_CHAR *fileName, ST_CHAR *buf, ST_INT bufLen, ST_CHAR *pass); +/* Export a certificate to Text */ +ST_INT ssleCertFileToText (ST_CHAR *fileName, ST_CHAR *buf, ST_INT bufLen, ST_CHAR *pass); +#endif /* !defined(_WIN32) */ + +ST_RET ssleLoadCRLists(ST_VOID *ssl_ctx, ST_BOOLEAN *newCrlOut); + +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ +/* secMan Declarations */ +/************************************************************************/ + +/* Set log masks */ +ST_UINT* secManGetDebugSel(ST_VOID); + +/* Start/Stop */ +ST_RET secManStart (S_SEC_CONFIG **secCfg, ST_VOID *secLog); +ST_RET secManEnd (ST_VOID); + +/* Start the SSL Engine in ssec.lib (genssl.c) */ +ST_RET startSSLEngine(S_SEC_CONFIG *sSecCfg, ST_VOID *secLog); +/* Stop the SSL Engine in ssec.lib (genssl.c) */ +ST_RET stopSSLEngine(ST_VOID); +/* Called by SNAP to reload the security configuration (genssl.c) */ +ST_RET sslUpdate(ST_VOID); +/* Called by SNAP-Lite to reload the CRLs (genssl.c) */ +ST_RET updateCRLists (ST_VOID); + +/* Used by SNAP and user apps to get the configuration. + * The release function MUST be called when the app is done using the + * configuration. + */ +ST_RET secManAccessCfg (S_SEC_CONFIG **secCfgOut); +ST_RET secManReleaseCfg (ST_VOID); + +/* Used by the stack to get the configuration */ +ST_RET secManAccessCfgByStack (S_SEC_CONFIG **secCfgOut); + +/* Dynamic Configuration functions */ +ST_BOOLEAN secManChkNewCfgAvail(ST_VOID); +ST_RET secManLoadCfg(S_SEC_CONFIG *secCfgOut); +ST_RET secManUpdateCfg(S_SEC_CONFIG *currCfg, S_SEC_CONFIG *newCfg); +ST_RET secManFreeCfg(S_SEC_CONFIG *secCfg); + +#if !defined(MMS_LITE) || defined(MAP30_ACSE) +#if defined (_WIN32) +/* Called by app or SecCfg to signal change in configuration file */ +__declspec(dllimport) ST_VOID WINAPI secManCfgChange(ST_VOID); +/* __declspec(dllexport) ST_VOID WINAPI secManCfgChange(ST_VOID);*/ +#endif +#else /* MMS_LITE */ +ST_VOID secManCfgChange(ST_VOID); +#endif /* MMS_LITE */ + +#if !defined(MMS_LITE) || defined(MAP30_ACSE) +/* Software Lock access */ +ST_RET secManLckStart(ST_VOID); +ST_VOID secManLckEnd(ST_VOID); +ST_RET secManLckCheck(ST_VOID); +#else +/* MMS_LITE */ +extern ST_CHAR *secManCfgXmlFile; +#endif + +#if !defined(_WIN32) +/* --- For UNIX & LINUX define default path to Certificate Stores --- */ +/* --- under the SISCO_PATH_INSTALL/SISCO_PATH_SECURITY directory --- */ +#define CERT_STORE_LOCAL "certstore/local" +#define CERT_STORE_CA "certstore/ca" +#define CERT_STORE_REMOTE "certstore/remote" + +/* If needed these paths can be changed by app before sSecStart() is called */ +extern ST_CHAR LocalCertStorePath[S_MAX_PATH]; /* defaults to CERT_STORE_LOCAL */ +extern ST_CHAR CACertStorePath[S_MAX_PATH]; /* defaults to CERT_STORE_CA */ + +/* Exported function from libsecpass shared library (provided by the user) */ +ST_RET secPassGetPassword(S_CERT_ID *certId, ST_CHAR *certPass, ST_INT certPassLen); +#endif /* !defined(_WIN32) */ + +/* Logging */ +/* destLog defines */ +#define S_SEC_LOGTYPE_NONE 0 +#define S_SEC_LOGTYPE_DIAG 1 +#define S_SEC_LOGTYPE_SECURITY 2 + +/* eventType defines */ +#define S_SEC_EVENT_NO_CIPHERS 1 +#define S_SEC_EVENT_UNKNOWN_CA 2 +#define S_SEC_EVENT_UNKNOWN_REMOTE 3 +#define S_SEC_EVENT_SSL_FAILURE 4 +#define S_SEC_EVENT_REKEY_FAILURE 5 + +typedef struct S_SEC_EVENT_tag + { + /* Note: adding/removing fields to/from this struct will make older */ + /* !!! applications incompatible with new security DLLs. */ + ST_INT destLog; /* Select Diagnoistic or Security log */ + + /* This section needs work */ + ST_BOOLEAN logSystemEvent; /* Log to System event system */ + ST_INT eventType; + ST_INT8 numArgs; + ST_CHAR *eventArgs[32]; + + ST_BOOLEAN logToSlog; /* Log to SLOG file */ + ST_INT logType; /* Standard SLOG information */ + ST_CHAR *SD_CONST logTypeStr; + ST_CHAR *SD_CONST sourceFile; + ST_INT lineNum; + ST_INT bufLen; + ST_CHAR *buf; + } S_SEC_EVENT; + +/* Logging to Event Viewer via secman.dll */ +ST_VOID secManEventLog (S_SEC_EVENT *secEvent, S_CERT_INFO *cert); + +/**** Output the serial number as a string ****/ +ST_VOID secManPrintSrlNum (S_CERT_ID *certId, ST_CHAR *outBuf, ST_INT outBufLen); + +/* Log configuration to diagnostic log */ +ST_VOID secManLogCfg (ST_VOID); + +/* Clone the log file */ +ST_VOID secManCloneLog (ST_INT logType); + +/************************************************************************/ +/************************************************************************/ +/* Log Macros */ + +/* Log type strings */ +extern SD_CONST ST_CHAR *SD_CONST _sec_err_logstr; +extern SD_CONST ST_CHAR *SD_CONST _sec_nerr_logstr; +extern SD_CONST ST_CHAR *SD_CONST _sec_flow_logstr; +extern SD_CONST ST_CHAR *SD_CONST _sec_data_logstr; +extern SD_CONST ST_CHAR *SD_CONST _sec_debug_logstr; + +#define SECLOG_ERR0(a) \ + SLOG_0 (sec_debug_sel & SEC_LOG_ERR, _sec_err_logstr, a) +#define SECLOG_ERR1(a,b) \ + SLOG_1 (sec_debug_sel & SEC_LOG_ERR, _sec_err_logstr, a,b) +#define SECLOG_ERR2(a,b,c) \ + SLOG_2 (sec_debug_sel & SEC_LOG_ERR, _sec_err_logstr, a,b,c) +#define SECLOG_ERR3(a,b,c,d) \ + SLOG_3 (sec_debug_sel & SEC_LOG_ERR, _sec_err_logstr, a,b,c,d) + +#define SECLOG_CERR0(a) \ + SLOGC_0 (sec_debug_sel & SEC_LOG_ERR,a) +#define SECLOG_CERR1(a,b) \ + SLOGC_1 (sec_debug_sel & SEC_LOG_ERR,a,b) +#define SECLOG_CERR2(a,b,c) \ + SLOGC_2 (sec_debug_sel & SEC_LOG_ERR,a,b,c) + +#define SECLOG_NERR0(a) \ + SLOG_0 (sec_debug_sel & SEC_LOG_NERR, _sec_nerr_logstr, a) +#define SECLOG_NERR1(a,b) \ + SLOG_1 (sec_debug_sel & SEC_LOG_NERR, _sec_nerr_logstr, a,b) +#define SECLOG_NERR2(a,b,c) \ + SLOG_2 (sec_debug_sel & SEC_LOG_NERR, _sec_nerr_logstr, a,b,c) +#define SECLOG_NERR3(a,b,c,d) \ + SLOG_3 (sec_debug_sel & SEC_LOG_NERR, _sec_nerr_logstr, a,b,c,d) + +#define SECLOG_FLOW0(a) \ + SLOG_0 (sec_debug_sel & SEC_LOG_FLOW, _sec_flow_logstr, a) +#define SECLOG_FLOW1(a,b) \ + SLOG_1 (sec_debug_sel & SEC_LOG_FLOW, _sec_flow_logstr, a,b) +#define SECLOG_FLOW2(a,b,c) \ + SLOG_2 (sec_debug_sel & SEC_LOG_FLOW, _sec_flow_logstr, a,b,c) +#define SECLOG_FLOW3(a,b,c,d) \ + SLOG_3 (sec_debug_sel & SEC_LOG_FLOW, _sec_flow_logstr, a,b,c,d) + +#define SECLOG_CFLOW0(a) \ + SLOGC_0 (sec_debug_sel & SEC_LOG_FLOW,a) +#define SECLOG_CFLOW1(a,b) \ + SLOGC_1 (sec_debug_sel & SEC_LOG_FLOW,a,b) + +#define SECLOG_DEBUG0(a) \ + SLOG_0 (sec_debug_sel & SEC_LOG_DEBUG, _sec_debug_logstr, a) +#define SECLOG_DEBUG1(a,b) \ + SLOG_1 (sec_debug_sel & SEC_LOG_DEBUG, _sec_debug_logstr, a,b) +#define SECLOG_DEBUG2(a,b,c) \ + SLOG_2 (sec_debug_sel & SEC_LOG_DEBUG, _sec_debug_logstr, a,b,c) +#define SECLOG_DEBUG3(a,b,c,d) \ + SLOG_3 (sec_debug_sel & SEC_LOG_DEBUG, _sec_debug_logstr, a,b,c,d) + +#define SECLOG_CDEBUG0(a) \ + SLOGC_0 (sec_debug_sel & SEC_LOG_DEBUG,a) +#define SECLOG_CDEBUG1(a,b) \ + SLOGC_1 (sec_debug_sel & SEC_LOG_DEBUG,a,b) + +/************************************************************************/ +#ifdef __cplusplus +} +#endif + +#endif /* S_SEC_INCLUDED */ +/************************************************************************/ diff --git a/include/inc/ssec_int.h b/include/inc/ssec_int.h new file mode 100644 index 0000000..b8445d4 --- /dev/null +++ b/include/inc/ssec_int.h @@ -0,0 +1,56 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2003 - 2007, All Rights Reserved */ +/* */ +/* MODULE NAME : ssec_int.h */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains internal security functions, defines,... */ +/* that are not exposed to user. */ +/* It also contains function that are passing GEN_SOCK parameter. */ +/* Having these protos in ssec.h caused compile conflicts in */ +/* project using old gensock.h */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 11/06/07 EJV 02 Chg sSecGetCertId param to ST_UINT32. */ +/* Added few prototypes. */ +/* 08/25/03 EJV 01 Moved protos with GEN_SOCK from ssec.h */ +/************************************************************************/ + +#ifndef SSEC_INT_INCLUDED +#define SSEC_INT_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "gensock2.h" + + +/* internal functions for secure socket interface */ +ST_RET setGenSockSSL (GEN_SOCK_CONFIG *sockCfg); +ST_RET sSecGetCipherSuite (GEN_SOCK *pSock, ST_INT *cipherSuiteOut); +ST_RET sSecGetCertId (GEN_SOCK *pSock, ST_UINT32 *cfgIdOut); +ST_RET sSecGetCertCtrl (GEN_SOCK *pSock, S_CERT_CTRL **certCtrlOut); + +ST_RET _secManGetCfg (S_SEC_CONFIG **secCfgOut); + +ST_INT sslGetCipherSuite (GEN_SOCK *pSock); +S_CERT_INFO *sslGetPeerCert (GEN_SOCK *pSock); +ST_VOID sslFreePeerCert (S_CERT_INFO *remCert); + + +/************************************************************************/ +#ifdef __cplusplus +} +#endif + +#endif /* SSEC_INT_INCLUDED */ +/************************************************************************/ diff --git a/include/inc/ssleLog.h b/include/inc/ssleLog.h new file mode 100644 index 0000000..76490b9 --- /dev/null +++ b/include/inc/ssleLog.h @@ -0,0 +1,154 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2003 - 2008, All Rights Reserved */ +/* */ +/* MODULE NAME : sslLog.h */ +/* PRODUCT(S) : Sisco MMS Security Toolkit */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* SSL Toolkit logging macros */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 05/28/08 EJV 24 Merged with non-Marben code. */ +/* 04/08/08 JRB 05 Chg () to (ST_VOID) in prototype. */ +/* 10/20/03 ASK 04 Added ssleGetDebugSel proto. Modlog cleanup. */ +/* 09/03/03 EJV 03 Made ssle_debug_sel ST_UINT */ +/* Moved SSLE_LOG_* masks from sslEngine.h */ +/* 08/21/03 EJV 02 Made ssle_debug_sel extern */ +/* 08/21/02 ASK 01 Created */ +/************************************************************************/ + +#ifndef SSLE_LOG_INCLUDED +#define SSLE_LOG_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "slog.h" + +/* Log control masks */ +#define SSLE_LOG_ERR 0x00000001 +#define SSLE_LOG_NERR 0x00000002 +#define SSLE_LOG_FLOW 0x00000004 +#define SSLE_LOG_DATA 0x00000008 +#define SSLE_LOG_DEBUG 0x00000010 + +extern ST_UINT ssle_debug_sel; + +/* Function so user can set log masks */ +ST_UINT* ssleGetDebugSel(ST_VOID); +ST_UINT *ssleGetASN1DebugSel(ST_VOID); +/* Function so user can set memory debug flag */ +ST_BOOLEAN *ssleGetMemDebug (ST_VOID); + +/* Internal SSL Toolkit Utility Functions */ +ST_VOID _ssleLogError(ST_ULONG err); + +/* The log macros */ +#define SSLE_LOG_ERR0(a) \ + SLOG_0 (ssle_debug_sel & SSLE_LOG_ERR, "SSLE_LOG_ERR", a) +#define SSLE_LOG_ERR1(a,b) \ + SLOG_1 (ssle_debug_sel & SSLE_LOG_ERR, "SSLE_LOG_ERR", a,b) +#define SSLE_LOG_ERR2(a,b,c) \ + SLOG_2 (ssle_debug_sel & SSLE_LOG_ERR, "SSLE_LOG_ERR", a,b,c) +#define SSLE_LOG_ERR3(a,b,c,d) \ + SLOG_3 (ssle_debug_sel & SSLE_LOG_ERR, "SSLE_LOG_ERR", a,b,c,d) +#define SSLE_LOG_ERR4(a,b,c,d,e) \ + SLOG_4 (ssle_debug_sel & SSLE_LOG_ERR, "SSLE_LOG_ERR", a,b,c,d,e) + +#define SSLE_LOG_NERR0(a) \ + SLOG_0 (ssle_debug_sel & SSLE_LOG_NERR, "SSLE_LOG_NERR", a) +#define SSLE_LOG_NERR1(a,b) \ + SLOG_1 (ssle_debug_sel & SSLE_LOG_NERR, "SSLE_LOG_NERR", a,b) +#define SSLE_LOG_NERR2(a,b,c) \ + SLOG_2 (ssle_debug_sel & SSLE_LOG_NERR, "SSLE_LOG_NERR", a,b,c) +#define SSLE_LOG_NERR3(a,b,c,d) \ + SLOG_3 (ssle_debug_sel & SSLE_LOG_NERR, "SSLE_LOG_NERR", a,b,c,d) +#define SSLE_LOG_NERR4(a,b,c,d,e) \ + SLOG_4 (ssle_debug_sel & SSLE_LOG_NERR, "SSLE_LOG_NERR", a,b,c,d,e) + +#define SSLE_LOG_FLOW0(a) \ + SLOG_0 (ssle_debug_sel & SSLE_LOG_FLOW, "SSLE_LOG_FLOW", a) +#define SSLE_LOG_FLOW1(a,b) \ + SLOG_1 (ssle_debug_sel & SSLE_LOG_FLOW, "SSLE_LOG_FLOW", a,b) +#define SSLE_LOG_FLOW2(a,b,c) \ + SLOG_2 (ssle_debug_sel & SSLE_LOG_FLOW, "SSLE_LOG_FLOW", a,b,c) +#define SSLE_LOG_FLOW3(a,b,c,d) \ + SLOG_3 (ssle_debug_sel & SSLE_LOG_FLOW, "SSLE_LOG_FLOW", a,b,c,d) +#define SSLE_LOG_FLOW4(a,b,c,d,e) \ + SLOG_4 (ssle_debug_sel & SSLE_LOG_FLOW, "SSLE_LOG_FLOW", a,b,c,d,e) + +#define SSLE_LOG_DEBUG0(a) \ + SLOG_0 (ssle_debug_sel & SSLE_LOG_DEBUG, "SSLE_LOG_DEBUG", a) +#define SSLE_LOG_DEBUG1(a,b) \ + SLOG_1 (ssle_debug_sel & SSLE_LOG_DEBUG, "SSLE_LOG_DEBUG", a,b) +#define SSLE_LOG_DEBUG2(a,b,c) \ + SLOG_2 (ssle_debug_sel & SSLE_LOG_DEBUG, "SSLE_LOG_DEBUG", a,b,c) +#define SSLE_LOG_DEBUG3(a,b,c,d) \ + SLOG_3 (ssle_debug_sel & SSLE_LOG_DEBUG, "SSLE_LOG_DEBUG", a,b,c,d) +#define SSLE_LOG_DEBUG4(a,b,c,d,e) \ + SLOG_4 (ssle_debug_sel & SSLE_LOG_DEBUG, "SSLE_LOG_DEBUG", a,b,c,d,e) + +#define SSLE_LOG_DATAH(a,b) \ + SLOGH (ssle_debug_sel & SSLE_LOG_DATA,a,b) + +/* 'C' macros stand for 'Continuation' */ +#define SSLE_LOG_CERR0(a) \ + SLOGC_0 (ssle_debug_sel & SSLE_LOG_ERR, a) +#define SSLE_LOG_CERR1(a,b) \ + SLOGC_1 (ssle_debug_sel & SSLE_LOG_ERR, a,b) +#define SSLE_LOG_CERR2(a,b,c) \ + SLOGC_2 (ssle_debug_sel & SSLE_LOG_ERR, a,b,c) +#define SSLE_LOG_CERR3(a,b,c,d) \ + SLOGC_3 (ssle_debug_sel & SSLE_LOG_ERR, a,b,c,d) +#define SSLE_LOG_CERR4(a,b,c,d,e) \ + SLOGC_4 (ssle_debug_sel & SSLE_LOG_ERR, a,b,c,d,e) + +#define SSLE_LOG_CNERR0(a) \ + SLOGC_0 (ssle_debug_sel & SSLE_LOG_NERR, a) +#define SSLE_LOG_CNERR1(a,b) \ + SLOGC_1 (ssle_debug_sel & SSLE_LOG_NERR, a,b) +#define SSLE_LOG_CNERR2(a,b,c) \ + SLOGC_2 (ssle_debug_sel & SSLE_LOG_NERR, a,b,c) +#define SSLE_LOG_CNERR3(a,b,c,d) \ + SLOGC_3 (ssle_debug_sel & SSLE_LOG_NERR, a,b,c,d) +#define SSLE_LOG_CNERR4(a,b,c,d,e) \ + SLOGC_4 (ssle_debug_sel & SSLE_LOG_NERR, a,b,c,d,e) + +#define SSLE_LOG_CFLOW0(a) \ + SLOGC_0 (ssle_debug_sel & SSLE_LOG_FLOW, a) +#define SSLE_LOG_CFLOW1(a,b) \ + SLOGC_1 (ssle_debug_sel & SSLE_LOG_FLOW, a,b) +#define SSLE_LOG_CFLOW2(a,b,c) \ + SLOGC_2 (ssle_debug_sel & SSLE_LOG_FLOW, a,b,c) +#define SSLE_LOG_CFLOW3(a,b,c,d) \ + SLOGC_3 (ssle_debug_sel & SSLE_LOG_FLOW, a,b,c,d) +#define SSLE_LOG_CFLOW4(a,b,c,d,e) \ + SLOGC_4 (ssle_debug_sel & SSLE_LOG_FLOW, a,b,c,d,e) + +#define SSLE_LOG_CDEBUG0(a) \ + SLOGC_0 (ssle_debug_sel & SSLE_LOG_DEBUG, a) +#define SSLE_LOG_CDEBUG1(a,b) \ + SLOGC_1 (ssle_debug_sel & SSLE_LOG_DEBUG, a,b) +#define SSLE_LOG_CDEBUG2(a,b,c) \ + SLOGC_2 (ssle_debug_sel & SSLE_LOG_DEBUG, a,b,c) +#define SSLE_LOG_CDEBUG3(a,b,c,d) \ + SLOGC_3 (ssle_debug_sel & SSLE_LOG_DEBUG, a,b,c,d) +#define SSLE_LOG_CDEBUG4(a,b,c,d,e) \ + SLOGC_4 (ssle_debug_sel & SSLE_LOG_DEBUG, a,b,c,d,e) + +/************************************************************************/ +#ifdef __cplusplus +} +#endif + +#endif /* SSLE_LOG_INCLUDED */ +/************************************************************************/ diff --git a/include/inc/stdtime.h b/include/inc/stdtime.h new file mode 100644 index 0000000..5cb2504 --- /dev/null +++ b/include/inc/stdtime.h @@ -0,0 +1,1446 @@ +/*****************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER **********************************************/ +/*****************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2005 All Rights Reserved */ +/* */ +/* MODULE NAME : stdtime.h */ +/* PRODUCT(S) : Standard Time Management Library */ +/* */ +/* MODULE DESCRIPTION: */ +/* Header file for Standard Time Management Library Functions */ +/* */ +/* Note: most functions a produce a return-code value STDTIME_RC. */ +/* the return code is zero if successful, otherwise it is a structured */ +/* value in which the low-order 10 bits enumerates an error reason, */ +/* and the upper 20 bits enumerates the high-level and low-level */ +/* functions where the error was detected. */ +/* */ +/* MODIFICATION LOG: */ +/* Date Who Rev Comments */ +/* -------- --- --- ----------------------------------------------------- */ +/* 04/08/08 JRB 15 Chg () to (ST_VOID) in several prototypes. */ +/* 03/13/08 JRB 14 Chg #error to #warning for STDTIME_UNICODE. */ +/* 02/28/08 JRB 13 Incl "timeb.h" only in "sysincs.h". */ +/* 02/20/08 JRB 12 Chg STDTIME same as FILETIME (simplifies a lot). */ +/* Delete MANY unused functions and definitions. */ +/* Simplify TimeTypeEx, StrucTmEx args. */ +/* 04/03/07 RLH 11 Additional conversion functions to/from FILETIME. */ +/* 03/18/07 RLH 10 Remove tabs from source code inadvertantly added. */ +/* 03/16/07 RLH 09 Normalize struct tm, SYSTEMTIME, and STDTIME_FIELDS */ +/* after rounding is applied; no rounding for formatting */ +/* functions. */ +/* 02/16/07 RLH 08 Clean up minor warnings under Linux */ +/* 01/10/07 RLH 07 Add TruncStdTimeString functions */ +/* 11/29/06 RLH 06 Correction to STDTIME_TIME_T64_ENABLED setting */ +/* 10/18/06 RLH 05 Enhanced capabilities for timezone rules */ +/* 10/27/06 RLH 04 Change STDTIME_RET, STDTIME_IF, STDTIME_IFNOT macros */ +/* 09/13/06 RLH 03 Ensure local time conversions work when TZ not set */ +/* 06/07/06 RLH 02 Numerous features added, see stdtime.doc */ +/* 01/18/06 RLH 01 Created */ +/*****************************************************************************/ + +#ifndef _STDTIME_H_7583ECB2_DB3F_48B3_8A97_2D1D2A38C84A_ +#define _STDTIME_H_7583ECB2_DB3F_48B3_8A97_2D1D2A38C84A_ + +#define SECONDS_FROM_1601_TO_1970_HIGH 2 +#define SECONDS_FROM_1601_TO_1970_LOW 0xB6109100 + +#define FILETIME_1970_HIGH 0x019DB1DE +#define FILETIME_1970_LOW 0xD53E8000 + +#undef STDTIME_MSVC6 +#undef STDTIME_MSVC7 +#undef STDTIME_MSVC8 + +#ifdef _MSC_VER + +#ifndef _CRT_SECURE_NO_DEPRECATE +#define _CRT_SECURE_NO_DEPRECATE +#endif + + +#if (_MSC_VER >= 1400) +#define STDTIME_MSVC8 +#elif (_MSC_VER >= 1300) +#define STDTIME_MSVC7 +#elif (_MSC_VER >= 1200) +#define STDTIME_MSVC6 +#endif + + +#if 0 + +#if (_MSC_VER >= 1400) +#pragma comment(lib, "stdtimelib.lib") +#elif (_MSC_VER >= 1300) +#pragma comment(lib, "stdtimelib.lib") +#elif (_MSC_VER >= 1200) +#pragma comment(lib, "stdtimelib.lib") +#endif + +#endif /* 0 */ + + +#endif /* _MSC_VER */ + +/* to test for STDTIME library being used */ +#undef STDTIME_DEFINED +#define STDTIME_DEFINED 1 + +/*****************************************************************************/ +/* LIBRARY HEADERS */ +/*****************************************************************************/ + +/* UNICODE or ANSI, but not both */ + +#if defined(STDTIME_UNICODE) && defined(STDTIME_ANSI) +#error Both STDTIME_UNICODE and STDTIME_ANSI defined +#undef STDTIME_UNICODE +#endif + +/* UNICODE or _UNICODE implies STDTIME_UNICODE, but not if ANSI defined */ + +#if (!defined(STDTIME_UNICODE)) && (!defined(STDTIME_ANSI)) +#if defined(UNICODE) || defined(_UNICODE) +#define STDTIME_UNICODE +#endif +#endif + +#if defined(STDTIME_UNICODE) +#pragma message("Warning: STDTIME_UNICODE option no longer supported. Try using ANSI functions mbstowcs and wcstombs.") +#undef STDTIME_UNICODE +#endif + +/* DEBUG: system include should come from "sysincs.h". Fix that later */ +#ifdef _WIN32 +#include +#endif + +#include +#include +#include +#include +#include +#include + +/*****************************************************************************/ +/* with support for gmtime_r and localtime_r if possible */ +/*****************************************************************************/ + +#undef STDTIME_REENTRANT_GMTIME_LOCALTIME + +#undef STDTIME_DEFINED_LINUX__USE_POSIX +#if defined(linux) +#define STDTIME_REENTRANT_GMTIME_LOCALTIME +#ifndef __USE_POSIX +#define __USE_POSIX +#define STDTIME_DEFINED_LINUX__USE_POSIX +#endif +#endif + +#undef STDTIME_DEFINED_SOLARIS_REENTRANT +#if defined(sun) +#define STDTIME_REENTRANT_GMTIME_LOCALTIME +#ifndef _REENTRANT +#define _REENTRANT +#define STDTIME_DEFINED_SOLARIS_REENTRANT +#endif +#endif + +#undef STDTIME_DEFINED_SOLARIS_POSIX_PTHREAD_SEMANTICS +#if defined(sun) +#ifndef _POSIX_PTHREAD_SEMANTICS +#define _POSIX_PTHREAD_SEMANTICS +#define STDTIME_DEFINED_SOLARIS_POSIX_PTHREAD_SEMANTICS +#endif +#endif + +#undef STDTIME_DEFINED_AIX_THREAD_SAFE +#if defined(_AIX) +#define STDTIME_REENTRANT_GMTIME_LOCALTIME +#ifndef _THREAD_SAFE +#define _THREAD_SAFE +#define STDTIME_DEFINED_AIX_THREAD_SAFE +#endif +#endif + +#undef STDTIME_DEFINED_DEC_UNIX_REENTRANT +#if defined(__alpha) && !defined(__VMS) +#define STDTIME_REENTRANT_GMTIME_LOCALTIME +#ifndef _REENTRANT +#define _REENTRANT +#define STDTIME_DEFINED_DEC_UNIX_REENTRANT +#endif +#endif + + +#include + + +#if defined(sun) +struct tm * gmtime_r (const time_t * pTimeT, struct tm * pStructTm); +struct tm * localtime_r (const time_t * pTimeT, struct tm * pStructTm); +#endif + + +/* clean up macro namespace */ + +#ifdef STDTIME_DEFINED_LINUX__USE_POSIX +#undef STDTIME_DEFINED_LINUX__USE_POSIX +#undef __USE_POSIX +#endif + +#ifdef STDTIME_DEFINED_SOLARIS_REENTRANT +#undef STDTIME_DEFINED_SOLARIS_REENTRANT +#undef _REENTRANT +#endif + +#ifdef STDTIME_DEFINED_SOLARIS_POSIX_PTHREAD_SEMANTICS +#undef STDTIME_DEFINED_SOLARIS_POSIX_PTHREAD_SEMANTICS +#undef _POSIX_PTHREAD_SEMANTICS +#endif + +#ifdef STDTIME_DEFINED_DEC_UNIX_REENTRANT +#undef STDTIME_DEFINED_DEC_UNIX_REENTRANT +#undef _REENTRANT +#endif + +#ifdef STDTIME_DEFINED_AIX_THREAD_SAFE +#undef STDTIME_DEFINED_AIX_THREAD_SAFE +#undef _THREAD_SAFE +#endif + + +/*****************************************************************************/ +/* support _T notation on non-Windows platforms */ +/*****************************************************************************/ + +#if (!defined(_T)) && (!defined(__T)) +#ifdef STDTIME_UNICODE +#define __T(x) L##x +#define _T(x) __T(x) +#else +#define __T(x) x +#define _T(x) x +#endif +#endif /* not defined _T and __T */ + +#include "stdtime_config.h" + + +/*****************************************************************************/ +/* determine if "stdtime_timezone_csv.h" file is "merged" or not. */ +/* */ +/* the csv file gets "merged" if there is no comma separating one line */ +/* from the next. a "merged" file is the normal format for a csv data */ +/* file, but when used as part of a C program, the lack of a comma causes */ +/* the last string value on one line to get concatenated by the compiler */ +/* to the first string value on the next line. we need to know if the */ +/* file is "merged" or "unmerged" to know how to 'undo' the merging. */ +/* */ +/* an unmerged file is easier and faster to process, while a merged file */ +/* maintains source compatibility with the original Boost.org timezone */ +/* database file from which it originated. */ +/* */ +/*****************************************************************************/ + +#if defined(STDTIME_MERGED_CSV) && defined(STDTIME_UNMERGED_CSV) +#error Both STDTIME_MERGED_CSV and STDTIME_UNMERGED_CSV defined +#undef STDTIME_UNMERGED_CSV +#endif + +#if !defined(STDTIME_MERGED_CSV) && !defined(STDTIME_UNMERGED_CSV) +#define STDTIME_MERGED_CSV /* default */ +#endif + + +/*****************************************************************************/ +/* determine how GMT is converted to local time, and vice-versa. */ +/* */ +/* using a system API for a definition of what "local" is will be faster, */ +/* but if the SYSTEMTIMEZONE or TZ environment variable does not agree */ +/* with the OS's understanding of what "local" is, there will be a */ +/* conflict. if the time library is likely to be used for a non-local */ +/* time zone, defining STDTIME_LOCAL_USES_TZDB is necessary. */ +/* otherwise, define STDTIME_LOCAL_USES_SYSAPI for speed. */ +/* */ +/*****************************************************************************/ + +#if defined(STDTIME_LOCAL_USES_TZDB) && defined(STDTIME_LOCAL_USES_SYSAPI) +#error Both STDTIME_LOCAL_USES_TZDB and STDTIME_LOCAL_USES_SYSAPI defined +#undef STDTIME_LOCAL_USES_SYSAPI +#endif + +#if !defined(STDTIME_LOCAL_USES_TZDB) && !defined(STDTIME_LOCAL_USES_SYSAPI) +#define STDTIME_LOCAL_USES_SYSAPI /* default */ +#endif + + +/*****************************************************************************/ +/* C++ ONLY ENABLED OR DISABLED */ +/* */ +/* use StdTimeConfig.h to set STDTIME_CPP_ONLY_ENABLED/DISABLED */ +/*****************************************************************************/ + + +#ifdef __cplusplus + +#if defined(STDTIME_CPP_ONLY_ENABLED) && defined(STDTIME_CPP_ONLY_DISABLED) +#error Both STDTIME_CPP_ONLY_ENABLED and STDTIME_CPP_ONLY_DISABLED defined +#undef STDTIME_CPP_ONLY_ENABLED +#endif + +#if !defined(STDTIME_CPP_ONLY_ENABLED) && !defined(STDTIME_CPP_ONLY_DISABLED) +#define STDTIME_CPP_ONLY_ENABLED /* default */ +#endif + +#else /* not __cplusplus */ + +#undef STDTIME_CPP_ONLY_ENABLED +#undef STDTIME_CPP_ONLY_DISABLED +#define STDTIME_CPP_ONLY_DISABLED + +#endif /* __cplusplus */ + + +/* StdTimeW32.h needs the bool definition */ + + +#define STDTIME_BOOL int +#define STDTIME_TRUE 1 +#define STDTIME_FALSE 0 + +typedef int32_t STDTIME_RC; + +/* STDTIME return codes are divided as follows: */ +/* 2 bits unused */ +/* 10 bits = highest level function where error detected */ +/* 10 bits = lowest level function where error detected */ +/* 10 bits = error reason code (nature of problem) */ + + +/* create error code enumeration from enum_stdtime_func.h */ +/* this is done by temporary macro and include file */ + +#define STDTIME_ENUM_FUNC(x) STDTIME_FUNC__##x, + +enum + { + STDTIME_FUNC__0000, /* dummy 0 entry */ +#include "stdtime_enum_func.h" + STDTIME_FUNC__SIZE + }; + +/* temporary macro has served its purpose, so undefine it */ +#undef STDTIME_ENUM_FUNC + + +/* now redefine macro for main purpose, to declare 'rc' and 'func' */ +/* within each function that returns a STDTIME_RC return code. */ + + +#define STDTIME_ENUM_FUNC(x) \ + STDTIME_RC rc; \ + STDTIME_RC func; \ + rc = -1; \ + func = (STDTIME_RC) STDTIME_FUNC__##x; + + +/* create error code enumeration from enum_stdtime_err.h */ +/* this is done by temporary macro and include file */ + +#define STDTIME_ENUM_ERR(x) STDTIME_ERR__##x, + +enum + { + STDTIME_ERR__0000, /* dummy 0 entry */ +#include "stdtime_enum_err.h" + STDTIME_ERR__SIZE + }; + +/* temporary macro has served its purpose, so undefine it */ +#undef STDTIME_ENUM_ERR + + +#define STDTIME_10_BITS 0x3FF +#define STDTIME_20_BITS 0xFFFFF + +#define STDTIME_OK 0 +#define STDTIME_RET(x) return StdTimeRet (func, x) + +#define STDTIME_RET_RC STDTIME_RET(rc) +#define STDTIME_RET_OK return STDTIME_OK + +#define STDTIME_EC(x) ((func << 10) | (STDTIME_ERR__##x)) + +#define STDTIME_RET_EC(x) STDTIME_RET(STDTIME_EC(x)) + +#include "stdtime_quadlib.h" +#include "stdtime_w32.h" + + +#ifdef __cplusplus +extern "C" { +#endif + + +/*****************************************************************************/ +/* TYPES AND STRUCTURES */ +/*****************************************************************************/ + + +#if defined(_MSC_VER) && defined(_WCHAR_T_DEFINED) +typedef wchar_t STDTIME_WCHAR; +#elif defined(sun) && defined(_WCHAR_T) +typedef wchar_t STDTIME_WCHAR; +#else +typedef unsigned short STDTIME_WCHAR; +#endif + +#ifndef STDTIME_TIME_T64_WIN +#if defined(_TIME_T_DEFINED) && defined(_WIN64) +#define STDTIME_TIME_T64_WIN +#endif +#endif + +#ifndef STDTIME_TIME_T64_WIN +#ifdef _TIME64_T_DEFINED +#define STDTIME_TIME_T64_WIN +#endif +#endif + + +#ifndef STDTIME_TIME_T64_ENABLED +#ifdef STDTIME_TIME_T64_WIN +#define STDTIME_TIME_T64_ENABLED +#endif +#endif + + +#ifdef STDTIME_TIME_T64_ENABLED +#ifdef STDTIME_TIME_T64_WIN + +#ifdef _TIME64_T_DEFINED +typedef __time64_t STDTIME_WIN_TIME_T; +#else +typedef time_t STDTIME_WIN_TIME_T; +#endif /* _TIME64_T_DEFINED */ + +#else /* not STDTIME_TIME_T64_WIN */ +typedef QUADLIB_I64N STDTIME_WIN_TIME_T; +#endif /* STDTIME_TIME_T64_WIN */ + + + + +#else /* not STDTIME_TIME_T64_ENABLED */ +typedef time_t STDTIME_WIN_TIME_T; +#endif /* STDTIME_TIME_T64_ENABLED */ + + +#define STDTIME_SCALE_NSEC 100 /* only 1 digit of nsec precision */ +#define STDTIME_PREC_NSEC 10 /* only 1 digit of nsec precision */ + +#define STDTIME_WIN_EPOCH_YEAR 1601 +#define STDTIME_UNIX_EPOCH_YEAR 1970 +#define STDTIME_DST_CUTOFF_YEAR 1945 + +#define STDTIME_YEAR_MIN STDTIME_WIN_EPOCH_YEAR /* base/epoch year */ +#define STDTIME_YEAR_MAX 9999 /* to avoid overflow in STDTIME_STRING */ + +#define STDTIME_INVALID {0,0} +#define STDTIME_FIELDS_INVALID {0,0,0,0,0,0,0,0,0} +#define STDTIME_STRING_INVALID {0} + +#define STDTIME_SPAN_INVALID QUADLIB_I64_MAX + +#define STDTIME_DELTA_DAY_MAX (8400*366) + + +#define STDTIME_DELTA_INVALID { 0x7FFFFFFF, 0x7FFFFFFF, 0x7FFFFFFF, \ + 0x7FFFFFFF, 0x7FFFFFFF, 0x7FFFFFFF, 0x7FFFFFFF } /**/ + + +/* an invalid span exceeds +/- 2,656,281,600,000,000,000 */ +/* which is 8400*366 days in terms of 100-nanosecond intervals */ +/* the pos value in hex is 24DD 020A A768 0000 */ +/* the neg value in hex is DB22 FDF5 5898 0000 */ + +#define STDTIME_SPAN_MAX_HI 0x24DD020A +#define STDTIME_SPAN_MAX_LO 0xA7680000 + +#define STDTIME_SPAN_MIN_HI 0xDB22FDF5 +#define STDTIME_SPAN_MIN_LO 0x58980000 + +#define STDTIME_ERR (-2) +#define STDTIME_LT (-1) +#define STDTIME_EQ 0 +#define STDTIME_GT 1 + +/* Main StdTime structure identical to Windows FILETIME. */ +typedef STDTIME_WIN_FILETIME STDTIME; + +typedef struct + { + int32_t year; + int32_t mon; + int32_t day; + int32_t hour; + int32_t min; + int32_t sec; + int32_t msec; /* milliseconds */ + int32_t usec; /* microseconds */ + int32_t nsec; /* nanoseconds */ + } +STDTIME_FIELDS; + + +typedef struct + { + int32_t day; + int32_t hour; + int32_t min; + int32_t sec; + int32_t msec; + int32_t usec; + int32_t nsec; + } +STDTIME_DELTA; + + +typedef struct + { + QUADLIB_I64 value; + } +STDTIME_SPAN; + + +/* 1 2 3 */ +/* 0123456789012345678901234567890123456 */ +/* STRING format: yyyy-mm-ddThh:mi:ss.fffffff# */ +/* TZO format: +hh:mm:ss# */ +/* 0123456789 */ + +#define STDTIME_STRING_DATE_LEN 10 +#define STDTIME_STRING_TIME_LEN 8 +#define STDTIME_STRING_FRAC_LEN 7 + +#define STDTIME_STRING_DATE_POS 0 +#define STDTIME_STRING_TIME_POS 11 +#define STDTIME_STRING_FRAC_POS 20 + +#define STDTIME_STRING_DLM_D1 4 +#define STDTIME_STRING_DLM_D2 7 +#define STDTIME_STRING_DLM_S1 10 +#define STDTIME_STRING_DLM_T1 13 +#define STDTIME_STRING_DLM_T2 16 +#define STDTIME_STRING_DLM_F1 19 + +#define STDTIME_STRING_LEN 27 +#define STDTIME_TZO_LEN 9 +#define STDTIME_STRING_MAXLEN (STDTIME_STRING_LEN+STDTIME_TZO_LEN) + + +typedef struct + { + char str [STDTIME_TZO_LEN + 1]; + } +STDTIME_TZOA; + +/* embTzo represents an 'embedded' timezone offset, a suffix to the time */ +/* string 'str' in STDTIME_STRINGA and STDTIME_STRINGW. */ +/* embTzo may be a null string, the letter Z or an offset like -05:00 */ + +/* extTzo represents an 'external' timezone offset, created as an output */ +/* value by the STDTIME library. the library creates, but does not */ +/* directly use, the extTzo field. */ + +typedef struct + { + char str [STDTIME_STRING_LEN]; + char embTzo [STDTIME_TZO_LEN + 1]; + STDTIME_TZOA extTzo; /* external TimeZone Offset */ + } +STDTIME_STRINGA; + +#ifdef STDTIME_UNICODE +#else +#define STDTIME_STRING STDTIME_STRINGA +#define STDTIME_TZO STDTIME_TZOA +#endif /* STDTIME_UNICODE */ + +typedef struct + { + STDTIME_WIN_TIME_T t; + } +STDTIME_TIMETYPE; + +#define STDTIME_API_MKTIME mktime + +/* Round/Trunc field selectors */ + +#define STDTIME_FIELD_DAY 0 +#define STDTIME_FIELD_HOUR 1 +#define STDTIME_FIELD_MIN 2 +#define STDTIME_FIELD_SEC 3 +#define STDTIME_FIELD_MSEC 4 +#define STDTIME_FIELD_USEC 5 +#define STDTIME_FIELD_NSEC 6 + + +#define STDTIME_ERRCODE_LEN 27 + +/* an error code has the form 0xNNNNNNNN = HHHH.LLLL.RRRR# */ +/* 0123456789012345678901234567 */ +/* this holds a raw hex RC value, and the RC as subfields */ + +#define STDTIME_ERRMSG_LEN 80 + +typedef struct + { + char errcode [STDTIME_ERRCODE_LEN+1]; + char hilevel [STDTIME_ERRMSG_LEN+1]; + char lolevel [STDTIME_ERRMSG_LEN+1]; + char reason [STDTIME_ERRMSG_LEN+1]; + } +STDTIME_ERRMSGA; + +#define STDTIME_IF(x) ((rc=(x)) == STDTIME_OK) +#define STDTIME_IFNOT(x) ((rc=(x)) != STDTIME_OK) + + +/*** helper function to assemble a STDTIME return code ***********************/ + +STDTIME_RC StdTimeRet ( + const STDTIME_RC /*I*/ func, + const STDTIME_RC /*I*/ ec); + + +/*** StdTime/StdTimeFields conversions ***************************************/ + + +STDTIME_RC StdTimeToStdTimeFields ( + const STDTIME * /*I*/ pStdTime, + STDTIME_FIELDS * /*O*/ pStdTimeFields); + +STDTIME_RC StdTimeFieldsToStdTime ( + const STDTIME_FIELDS * /*I*/ pStdTimeFields, + STDTIME * /*O*/ pStdTime); + + +/*** StdTime/external conversions ********************************************/ + + +STDTIME_RC StdTimeToStdTimeStringA ( + const STDTIME * /*I*/ pStdTime, + STDTIME_STRINGA * /*O*/ pStdTimeString); + +#ifdef STDTIME_UNICODE +#else +#define StdTimeToStdTimeString StdTimeToStdTimeStringA +#endif /* STDTIME_UNICODE */ + + +/*** external/StdTime conversions ********************************************/ + + +STDTIME_RC StdTimeStringAToStdTime ( + const STDTIME_STRINGA * /*I*/ pStdTimeString, + STDTIME * /*O*/ pStdTime); + +#ifdef STDTIME_UNICODE +#else +#define StdTimeStringToStdTime StdTimeStringAToStdTime +#endif /* STDTIME_UNICODE */ + + +/*** StdTimeFields/external conversions **************************************/ + + +STDTIME_RC StdTimeFieldsToStdTimeStringA ( + const STDTIME_FIELDS * /*I*/ pStdTimeFields, + STDTIME_STRINGA * /*O*/ pStdTimeString); + +#ifdef STDTIME_UNICODE +#else +#define StdTimeFieldsToStdTimeString StdTimeFieldsToStdTimeStringA +#endif /* STDTIME_UNICODE */ + + +/*** external/StdTimeFields conversions **************************************/ + + +STDTIME_RC StdTimeStringAToStdTimeFields ( + const STDTIME_STRINGA * /*I*/ pStdTimeString, + STDTIME_FIELDS * /*O*/ pStdTimeFields); + +#ifdef STDTIME_UNICODE +#else +#define StdTimeStringToStdTimeFields StdTimeStringAToStdTimeFields +#endif /* STDTIME_UNICODE */ + +/*** StdTime to/from Local ***************************************************/ + + +STDTIME_RC StdTimeToLocalStdTime ( + const STDTIME * /*I*/ pStdTime, + STDTIME * /*O*/ pStdTimeLocal); + +STDTIME_RC LocalStdTimeToStdTime ( + const STDTIME * /*I*/ pStdTimeLocal, + STDTIME * /*O*/ pStdTime); + + +/*** StdTimeFields to/from Local *********************************************/ + + +STDTIME_RC StdTimeFieldsToLocalStdTimeFields ( + const STDTIME_FIELDS * /*I*/ pStdTimeFields, + STDTIME_FIELDS * /*O*/ pStdTimeFieldsLocal); + +STDTIME_RC LocalStdTimeFieldsToStdTimeFields ( + const STDTIME_FIELDS * /*I*/ pStdTimeFieldsLocal, + STDTIME_FIELDS * /*O*/ pStdTimeFields); + + +/*** StdTimeString to/from Local *********************************************/ + + +STDTIME_RC StdTimeStringAToLocalStdTimeStringA ( + const STDTIME_STRINGA * /*I*/ pStdStdTimeString, + STDTIME_STRINGA * /*O*/ pLocStdTimeString); + +STDTIME_RC LocalStdTimeStringAToStdTimeStringA ( + const STDTIME_STRINGA * /*I*/ pLocStdTimeString, + STDTIME_STRINGA * /*O*/ pStdStdTimeString); + +#define StdTimeStringToLocalStdTimeStringA StdTimeStringAToLocalStdTimeStringA +#define LocalStdTimeStringToStdTimeStringA LocalStdTimeStringAToStdTimeStringA + + +#ifdef STDTIME_UNICODE +#else +#define StdTimeStringToLocalStdTimeString StdTimeStringAToLocalStdTimeStringA +#define LocalStdTimeStringToStdTimeString LocalStdTimeStringAToStdTimeStringA +#endif /* STDTIME_UNICODE */ + +/*** Get (current UTC/GMT time) functions ************************************/ + + +STDTIME_RC GetStdTime ( + STDTIME * /*O*/ pStdTime); + +STDTIME_RC GetStdTimeFields ( + STDTIME_FIELDS * /*O*/ pStdTimeFields); + +STDTIME_RC GetStdTimeStringA ( + STDTIME_STRINGA * /*O*/ pStdTimeString); + +#ifdef STDTIME_UNICODE +#else +#define GetStdTimeString GetStdTimeStringA +#endif /* STDTIME_UNICODE */ + + +/*** GetLocal (current time) functions ***************************************/ + + +STDTIME_RC GetLocalStdTime ( + STDTIME * /*O*/ pStdTime); + +STDTIME_RC GetLocalStdTimeFields ( + STDTIME_FIELDS * /*O*/ pStdTimeFields); + +STDTIME_RC GetLocalStdTimeStringA ( + STDTIME_STRINGA * /*O*/ pStdTimeString); + +#ifdef STDTIME_UNICODE +#else +#define GetLocalStdTimeString GetLocalStdTimeStringA +#endif /* STDTIME_UNICODE */ + + +/*** validation functions ****************************************************/ + + +STDTIME_RC ValidStdTime ( + const STDTIME * /*I*/ pStdTime); + +STDTIME_RC ValidStdTimeFields ( + const STDTIME_FIELDS * /*I*/ pStdTimeFields); + +STDTIME_RC ValidStdTimeStringA ( + const STDTIME_STRINGA * /*I*/ pStdTimeString); + +STDTIME_RC ValidStdTimeDelta ( + const STDTIME_DELTA * /*I*/ pDelta); + +STDTIME_RC ValidStdTimeSpan ( + const STDTIME_SPAN * /*I*/ pSpan); + + +#ifdef STDTIME_UNICODE +#else +#define ValidStdTimeString ValidStdTimeStringA +#endif /* STDTIME_UNICODE */ + + +/*** Format functions ********************************************************/ + + +STDTIME_RC FormatStdTimeA ( + char * /*O*/ pTarget, + size_t /*I*/ nMaxsize, + const char * /*I*/ pFormat, + const STDTIME * /*I*/ pStdTime); + +STDTIME_RC FormatStdTimeFieldsA ( + char * /*O*/ pTarget, + size_t /*I*/ nMaxsize, + const char * /*I*/ pFormat, + const STDTIME_FIELDS * /*I*/ pStdTimeFields); + +STDTIME_RC FormatStdTimeStringA ( + char * /*O*/ pTarget, + size_t /*I*/ nMaxsize, + const char * /*I*/ pFormat, + const STDTIME_STRINGA * /*I*/ pStdTimeString); + +STDTIME_RC TrimStdTimeStringA ( + STDTIME_STRINGA * /*IO*/ pStdTimeString, + int32_t /*I*/ nSize); + +STDTIME_RC TruncStdTimeStringA ( + STDTIME_STRINGA * /*IO*/ pStdTimeString, + int32_t /*I*/ nSize); + +#ifdef STDTIME_UNICODE +#else +#define FormatStdTime FormatStdTimeA +#define FormatStdTimeFields FormatStdTimeFieldsA +#define FormatStdTimeString FormatStdTimeStringA + +#define TrimStdTimeString TrimStdTimeStringA +#define TruncStdTimeString TruncStdTimeStringA + +#endif /* STDTIME_UNICODE */ + + +/*** delimiter functions *****************************************************/ + + +STDTIME_RC SetStdTimeStringDelimitersA ( + const char * /*I*/ pDelimiters); + +STDTIME_RC RepairStdTimeStringA ( + STDTIME_STRINGA * /*O*/ pStdTimeString); + +STDTIME_RC DelimitStdTimeStringA ( + STDTIME_STRINGA * /*O*/ pStdTimeString, + const char * /*I*/ pDelim); + +#ifdef STDTIME_UNICODE +#else +#define SetStdTimeStringDelimiters SetStdTimeStringDelimitersA +#define RepairStdTimeString RepairStdTimeStringA +#define DelimitStdTimeString DelimitStdTimeStringA +#endif /* STDTIME_UNICODE */ + + +/*** AddFraction adjustment function *****************************************/ + + +STDTIME_RC StdTimeFields_AddFraction ( + STDTIME_FIELDS * /*IO*/ pStdTimeFields, + int32_t /*I*/ nMsec, + int32_t /*I*/ nUsec, + int32_t /*I*/ nNsec); + + +/*** AddSpan functions *******************************************************/ + + +STDTIME_RC StdTime_AddSpan ( + STDTIME * /*IO*/ pStdTime, + const STDTIME_SPAN * /*I*/ pSpan); + +STDTIME_RC StdTimeFields_AddSpan ( + STDTIME_FIELDS * /*IO*/ pStdTimeFields, + const STDTIME_SPAN * /*I*/ pSpan); + +STDTIME_RC StdTimeStringA_AddSpan ( + STDTIME_STRINGA * /*IO*/ pStdTimeString, + const STDTIME_SPAN * /*I*/ pSpan); + +#ifdef STDTIME_UNICODE +#else +#define StdTimeString_AddSpan StdTimeStringA_AddSpan +#endif /* STDTIME_UNICODE */ + + +/*** SubSpan functions *******************************************************/ + + +STDTIME_RC StdTime_SubSpan ( + STDTIME * /*IO*/ pStdTime, + const STDTIME_SPAN * /*I*/ pSpan); + +STDTIME_RC StdTimeFields_SubSpan ( + STDTIME_FIELDS * /*IO*/ pStdTimeFields, + const STDTIME_SPAN * /*I*/ pSpan); + +STDTIME_RC StdTimeStringA_SubSpan ( + STDTIME_STRINGA * /*IO*/ pStdTimeString, + const STDTIME_SPAN * /*I*/ pSpan); + +#ifdef STDTIME_UNICODE +#else +#define StdTimeString_SubSpan StdTimeStringA_SubSpan +#endif /* STDTIME_UNICODE */ + + +/*** GetSpan functions *******************************************************/ + + +STDTIME_RC StdTime_GetSpan ( + const STDTIME * /*I*/ pStdTimeOne, + const STDTIME * /*I*/ pStdTimeTwo, + STDTIME_SPAN * /*O*/ pSpan); + +STDTIME_RC StdTimeFields_GetSpan ( + const STDTIME_FIELDS * /*I*/ pStdTimeFieldsOne, + const STDTIME_FIELDS * /*I*/ pStdTimeFieldsTwo, + STDTIME_SPAN * /*O*/ pSpan); + +STDTIME_RC StdTimeStringA_GetSpan ( + const STDTIME_STRINGA * /*I*/ pStdTimeStringOne, + const STDTIME_STRINGA * /*I*/ pStdTimeStringTwo, + STDTIME_SPAN * /*O*/ pSpan); + +#ifdef STDTIME_UNICODE +#else +#define StdTimeString_GetSpan StdTimeStringA_GetSpan +#endif /* STDTIME_UNICODE */ + + +/*** AddDelta functions ******************************************************/ + +STDTIME_RC StdTime_AddDelta ( + STDTIME * /*IO*/ pStdTime, + const STDTIME_DELTA * /*I*/ pDelta); + +STDTIME_RC StdTimeFields_AddDelta ( + STDTIME_FIELDS * /*IO*/ pStdTimeFields, + const STDTIME_DELTA * /*I*/ pDelta); + +STDTIME_RC StdTimeStringA_AddDelta ( + STDTIME_STRINGA * /*IO*/ pStdTimeString, + const STDTIME_DELTA * /*I*/ pDelta); + +#ifdef STDTIME_UNICODE +#else +#define StdTimeString_AddDelta StdTimeStringA_AddDelta +#endif /* STDTIME_UNICODE */ + + +/*** SubDelta functions ******************************************************/ + + +STDTIME_RC StdTime_SubDelta ( + STDTIME * /*IO*/ pStdTime, + const STDTIME_DELTA * /*I*/ pDelta); + +STDTIME_RC StdTimeFields_SubDelta ( + STDTIME_FIELDS * /*IO*/ pStdTimeFields, + const STDTIME_DELTA * /*I*/ pDelta); + +STDTIME_RC StdTimeStringA_SubDelta ( + STDTIME_STRINGA * /*IO*/ pStdTimeString, + const STDTIME_DELTA * /*I*/ pDelta); + +#ifdef STDTIME_UNICODE +#else +#define StdTimeString_SubDelta StdTimeStringA_SubDelta +#endif /* STDTIME_UNICODE */ + + +/*** GetDelta functions ******************************************************/ + + +STDTIME_RC StdTime_GetDelta ( + const STDTIME * /*I*/ pStdTimeOne, + const STDTIME * /*I*/ pStdTimeTwo, + STDTIME_DELTA * /*O*/ pDelta); + +STDTIME_RC StdTimeFields_GetDelta ( + const STDTIME_FIELDS * /*I*/ pStdTimeFieldsOne, + const STDTIME_FIELDS * /*I*/ pStdTimeFieldsTwo, + STDTIME_DELTA * /*O*/ pDelta); + +STDTIME_RC StdTimeStringA_GetDelta ( + const STDTIME_STRINGA * /*I*/ pStdTimeStringOne, + const STDTIME_STRINGA * /*I*/ pStdTimeStringTwo, + STDTIME_DELTA * /*O*/ pDelta); + +#ifdef STDTIME_UNICODE +#else +#define StdTimeString_GetDelta StdTimeStringA_GetDelta +#endif /* STDTIME_UNICODE */ + + +/*** Delta/Span conversion functions *****************************************/ + + +STDTIME_RC StdTimeDeltaToStdTimeSpan ( + const STDTIME_DELTA * /*I*/ pDelta, + STDTIME_SPAN * /*O*/ pSpan); + +STDTIME_RC StdTimeSpanToStdTimeDelta ( + const STDTIME_SPAN * /*I*/ pSpan, + STDTIME_DELTA * /*O*/ pDelta); + + +/*** Delta/Span sign-related functions ***************************************/ + + +int32_t SgnStdTimeDelta ( + const STDTIME_DELTA * /*I*/ pDelta); + +STDTIME_RC AbsStdTimeDelta ( + STDTIME_DELTA * /*IO*/ pDelta); + +STDTIME_RC NegStdTimeDelta ( + STDTIME_DELTA * /*IO*/ pDelta); + + +int32_t SgnStdTimeSpan ( + const STDTIME_SPAN * /*I*/ pSpan); + +STDTIME_RC AbsStdTimeSpan ( + STDTIME_SPAN * /*IO*/ pSpan); + +STDTIME_RC NegStdTimeSpan ( + STDTIME_SPAN * /*IO*/ pSpan); + + +/*** Compare functions *******************************************************/ + + +int32_t CompareStdTime ( + const STDTIME * /*I*/ pStdTimeOne, + const STDTIME * /*I*/ pStdTimeTwo); + +int32_t CompareStdTimeFields ( + const STDTIME_FIELDS * /*I*/ pStdTimeFieldsOne, + const STDTIME_FIELDS * /*I*/ pStdTimeFieldsTwo); + +int32_t CompareStdTimeStringA ( + const STDTIME_STRINGA * /*I*/ pStdTimeStringOne, + const STDTIME_STRINGA * /*I*/ pStdTimeStringTwo); + +#ifdef STDTIME_UNICODE +#else +#define CompareStdTimeString CompareStdTimeStringA +#endif /* STDTIME_UNICODE */ + + +/*** FileTime functions ******************************************************/ + + + +STDTIME_RC StdTimeToFileTime ( + const STDTIME * /*I*/ pStdTime, + STDTIME_WIN_FILETIME * /*O*/ pFileTime); + +STDTIME_RC FileTimeToStdTime ( + const STDTIME_WIN_FILETIME * /*I*/ pFileTime, + STDTIME * /*O*/ pStdTime); + + + +STDTIME_RC StdTimeFieldsToFileTime ( + const STDTIME_FIELDS * /*I*/ pStdTimeFields, + STDTIME_WIN_FILETIME * /*O*/ pFileTime); + +STDTIME_RC FileTimeToStdTimeFields ( + const STDTIME_WIN_FILETIME * /*I*/ pFileTime, + STDTIME_FIELDS * /*O*/ pStdTimeFields); + + + +STDTIME_RC StdTimeStringAToFileTime ( + const STDTIME_STRINGA * /*I*/ pStdTimeString, + STDTIME_WIN_FILETIME * /*O*/ pFileTime); + +STDTIME_RC FileTimeToStdTimeStringA ( + const STDTIME_WIN_FILETIME * /*I*/ pFileTime, + STDTIME_STRINGA * /*O*/ pStdTimeString); + +#ifdef STDTIME_UNICODE +#else +#define StdTimeStringToFileTime StdTimeStringAToFileTime +#define FileTimeToStdTimeString FileTimeToStdTimeStringA +#endif /* STDTIME_UNICODE */ + + +/*** SystemTimeEx functions **************************************************/ + + +STDTIME_RC StdTimeToSystemTimeEx ( + const STDTIME * /*I*/ pStdTime, + STDTIME_WIN_SYSTEMTIME * /*O*/ pSystemTime, + int32_t * /*O*/ pUsec, /* optional */ + int32_t * /*O*/ pNsec); /* optional */ + + +STDTIME_RC SystemTimeExToStdTime ( + const STDTIME_WIN_SYSTEMTIME * /*I*/ pSystemTime, + int32_t /*I*/ nUsec, + int32_t /*I*/ nNsec, + STDTIME * /*O*/ pStdTime); + + +STDTIME_RC StdTimeFieldsToSystemTimeEx ( + const STDTIME_FIELDS * /*I*/ pStdTimeFields, + STDTIME_WIN_SYSTEMTIME * /*O*/ pSystemTime, + int32_t * /*O*/ pUsec, /* optional */ + int32_t * /*O*/ pNsec); /* optional */ + + +STDTIME_RC SystemTimeExToStdTimeFields ( + const STDTIME_WIN_SYSTEMTIME * /*I*/ pSystemTime, + int32_t /*I*/ nUsec, + int32_t /*I*/ nNsec, + STDTIME_FIELDS * /*O*/ pStdTimeFields); + + +/*** SystemTime functions ****************************************************/ + + +STDTIME_RC StdTimeToSystemTime ( + const STDTIME * /*I*/ pStdTime, + STDTIME_WIN_SYSTEMTIME * /*O*/ pSystemTime); + + +STDTIME_RC SystemTimeToStdTime ( + const STDTIME_WIN_SYSTEMTIME * /*I*/ pSystemTime, + STDTIME * /*O*/ pStdTime); + + +STDTIME_RC StdTimeFieldsToSystemTime ( + const STDTIME_FIELDS * /*I*/ pStdTimeFields, + STDTIME_WIN_SYSTEMTIME * /*O*/ pSystemTime); + + +STDTIME_RC SystemTimeToStdTimeFields ( + const STDTIME_WIN_SYSTEMTIME * /*I*/ pSystemTime, + STDTIME_FIELDS * /*O*/ pStdTimeFields); + +#ifdef _WIN32 /* DbTimeStamp functions only for _WIN32 */ +/*** DbTimeStamp functions ***************************************************/ + +/* NOTE: can't include "oledb.h" for DBTIMESTAMP so just define our own struct here.*/ +typedef struct + { + STDTIME_WIN_SHORT year; + STDTIME_WIN_USHORT month; + STDTIME_WIN_USHORT day; + STDTIME_WIN_USHORT hour; + STDTIME_WIN_USHORT minute; + STDTIME_WIN_USHORT second; + STDTIME_WIN_ULONG fraction; + } STDTIME_WIN_DBTIMESTAMP; + +STDTIME_WIN_DBTIMESTAMP StdTimeApiZeroDbTimeStamp (ST_VOID); + +STDTIME_RC StdTimeToDbTimeStamp ( + const STDTIME * /*I*/ pStdTime, + STDTIME_WIN_DBTIMESTAMP * /*O*/ pDbTimeStamp); + +STDTIME_RC DbTimeStampToStdTime ( + const STDTIME_WIN_DBTIMESTAMP * /*I*/ pDbTimeStamp, + STDTIME * /*O*/ pStdTime); + +STDTIME_RC StdTimeFieldsToDbTimeStamp ( + const STDTIME_FIELDS * /*I*/ pStdTimeFields, + STDTIME_WIN_DBTIMESTAMP * /*O*/ pDbTimeStamp); + +STDTIME_RC DbTimeStampToStdTimeFields ( + const STDTIME_WIN_DBTIMESTAMP * /*I*/ pDbTimeStamp, + STDTIME_FIELDS * /*O*/ pStdTimeFields); +#endif /* DbTimeStamp functions only for _WIN32 */ + + +/*** StructTmEx functions ****************************************************/ + + +STDTIME_RC StdTimeToStructTmEx ( + const STDTIME * /*I*/ pStdTime, + struct tm * /*O*/ pStructTm, + int32_t * /*O*/ pNsec); /* optional */ + +STDTIME_RC StructTmExToStdTime ( + const struct tm * /*I*/ pStructTm, + int32_t /*I*/ nNsec, + STDTIME * /*O*/ pStdTime); + +/*** TimeTypeEx functions ****************************************************/ + + +STDTIME_RC StdTimeToTimeTypeEx ( + const STDTIME * /*I*/ pStdTime, + time_t * /*O*/ pTimeT, + int32_t * /*O*/ pNsec); /* optional */ + +STDTIME_RC TimeTypeExToStdTime ( + time_t /*I*/ timet, + int32_t /*I*/ nsec, + STDTIME * /*O*/ pStdTime); + +/*** Constructor-like functions **********************************************/ + + +STDTIME_FIELDS StdTimeFields ( + int32_t /*I*/ year, + int32_t /*I*/ mon, + int32_t /*I*/ day, + int32_t /*I*/ hour, + int32_t /*I*/ min, + int32_t /*I*/ sec, + int32_t /*I*/ msec, + int32_t /*I*/ usec, + int32_t /*I*/ nsec); + + +STDTIME_STRINGA StdTimeStringA ( + const char * /*I*/ str); + +#ifdef STDTIME_UNICODE +#else +#define StdTimeString StdTimeStringA +#endif /* STDTIME_UNICODE */ + + +STDTIME_DELTA StdTimeDelta ( + int32_t /*I*/ day, + int32_t /*I*/ hour, + int32_t /*I*/ min, + int32_t /*I*/ sec, + int32_t /*I*/ msec, + int32_t /*I*/ usec, + int32_t /*I*/ nsec); + + +STDTIME_SPAN StdTimeSpan ( + QUADLIB_I64 /*I*/ value); + + +/*** Initializer functions ***************************************************/ + + +STDTIME ZeroStdTime (ST_VOID); +STDTIME_FIELDS ZeroStdTimeFields (ST_VOID); +STDTIME_DELTA ZeroStdTimeDelta (ST_VOID); +STDTIME_SPAN ZeroStdTimeSpan (ST_VOID); + +STDTIME_STRINGA ZeroStdTimeStringA (ST_VOID); + +STDTIME_TZOA ZeroStdTimeTzoA (ST_VOID); + +STDTIME_ERRMSGA ZeroStdTimeErrMsgA (ST_VOID); + +#ifdef STDTIME_UNICODE +#else +#define ZeroStdTimeString ZeroStdTimeStringA +#define ZeroStdTimeTzo ZeroStdTimeTzoA +#define ZeroStdTimeErrMsg ZeroStdTimeErrMsgA +#endif /* STDTIME_UNICODE */ + +/* initializers for outside types use 'StdTimeApi' prefix */ + +STDTIME_TIMETYPE StdTimeApiZeroTimeType (ST_VOID); +STDTIME_WIN_FILETIME StdTimeApiZeroFileTime (ST_VOID); +STDTIME_WIN_SYSTEMTIME StdTimeApiZeroSystemTime (ST_VOID); +struct tm StdTimeApiZeroStructTm (ST_VOID); + + +/*****************************************************************************/ +/* NORMALIZE, ROUND, TRUNC */ +/*****************************************************************************/ + + +STDTIME_RC NormalizeStdTimeDelta ( + STDTIME_DELTA * /*IO*/ pDelta); + + +STDTIME_RC TruncStdTimeDelta ( + STDTIME_DELTA * /*IO*/ pDelta, + int32_t /*I*/ field); + + +STDTIME_RC RoundStdTimeDelta ( + STDTIME_DELTA * /*IO*/ pDelta, + int32_t /*I*/ field); + + +/*** convenience calendar functions ******************************************/ + + +STDTIME_RC StdTimeGetDayofWeekAndYear ( + int32_t /*I*/ nYear, + int32_t /*I*/ nMon, + int32_t /*I*/ nDayofMon, + int32_t * /*O*/ pDayofWeek, + int32_t * /*O*/ pDayofYear); + + +int32_t StdTimeYearIsLeap ( + int32_t /*I*/ year); + + +int32_t StdTimeDaysInYearMon ( + int32_t /*I*/ year, + int32_t /*I*/ mon); + + +/*** DateEx functions ********************************************************/ + + +STDTIME_RC StdTimeToDateEx ( + const STDTIME * /*I*/ pStdTime, + STDTIME_WIN_DATE * /*O*/ pDate, + int32_t * /*O*/ pMsec, /* optional */ + int32_t * /*O*/ pUsec, /* optional */ + int32_t * /*O*/ pNsec); /* optional */ + + +STDTIME_RC DateExToStdTime ( + const STDTIME_WIN_DATE * /*I*/ pDate, + int32_t /*I*/ nMsec, + int32_t /*I*/ nUsec, + int32_t /*I*/ nNsec, + STDTIME * /*O*/ pStdTime); + + +STDTIME_RC StdTimeFieldsToDateEx ( + const STDTIME_FIELDS * /*I*/ pStdTimeFields, + STDTIME_WIN_DATE * /*O*/ pDate, + int32_t * /*O*/ pMsec, /* optional */ + int32_t * /*O*/ pUsec, /* optional */ + int32_t * /*O*/ pNsec); /* optional */ + + +STDTIME_RC DateExToStdTimeFields ( + const STDTIME_WIN_DATE * /*I*/ pDate, + int32_t /*I*/ nMsec, + int32_t /*I*/ nUsec, + int32_t /*I*/ nNsec, + STDTIME_FIELDS * /*O*/ pStdTimeFields); + + +/*** Date functions ***************************************************/ + + +STDTIME_RC StdTimeToDate ( + const STDTIME * /*I*/ pStdTime, + STDTIME_WIN_DATE * /*O*/ pDate); + + +STDTIME_RC DateToStdTime ( + const STDTIME_WIN_DATE * /*I*/ pDate, + STDTIME * /*O*/ pStdTime); + + +STDTIME_RC StdTimeFieldsToDate ( + const STDTIME_FIELDS * /*I*/ pStdTimeFields, + STDTIME_WIN_DATE * /*O*/ pDate); + + +STDTIME_RC DateToStdTimeFields ( + const STDTIME_WIN_DATE * /*I*/ pDate, + STDTIME_FIELDS * /*O*/ pStdTimeFields); + + +/*** timezone-offset support functions ***************************************/ + + +STDTIME_RC StdTimeStringAToTzoA ( + const STDTIME_STRINGA * /*I*/ pStdTimeString, + STDTIME_TZOA * /*O*/ pTzo); + +STDTIME_RC TzoAToStdTimeStringA ( + const STDTIME_TZOA * /*I*/ pTzo, + STDTIME_STRINGA * /*O*/ pStdTimeString); + +STDTIME_RC ValidStdTimeTzoA ( + const STDTIME_TZOA * /*I*/ pTzo); + +STDTIME_RC NormalizeStdTimeTzoA ( + STDTIME_TZOA * /*I*/ pTzo); + +STDTIME_RC GetLocalStdTimeTzoA ( + STDTIME_TZOA * /*O*/ pTzo); + +#define StdTimeStringToTzoA StdTimeStringAToTzoA +#define TzoToStdTimeStringA TzoAToStdTimeStringA + + +#ifdef STDTIME_UNICODE +#else +#define StdTimeStringToTzo StdTimeStringAToTzoA +#define TzoToStdTimeString TzoAToStdTimeStringA +#define ValidStdTimeTzo ValidStdTimeTzoA +#define NormalizeStdTimeTzo NormalizeStdTimeTzoA +#define GetLocalStdTimeTzo GetLocalStdTimeTzoA +#endif /* STDTIME_UNICODE */ + + +/*** error message decoding functions ****************************************/ + + +STDTIME_RC StdTimeRcToErrMsgA ( + const STDTIME_RC /*I*/ stdTimeRc, + STDTIME_ERRMSGA * /*O*/ pErrMsg); + +#ifdef STDTIME_UNICODE +#else +#define StdTimeRcToErrMsg StdTimeRcToErrMsgA +#endif /* STDTIME_UNICODE */ + + +/*** normalization functions; primarily private functions ********************/ + + +STDTIME_RC Rc_NormalizeStdTimeFields ( + STDTIME_FIELDS * pFields); + +STDTIME_RC Rc_StdTime_NormalizeSystemTimeEx ( + STDTIME_WIN_SYSTEMTIME * /*IO*/ pSystemTime, + int32_t * /*IO*/ pUsec, + int32_t * /*IO*/ pNsec); + +STDTIME_RC Rc_StdTime_NormalizeStructTmEx ( + struct tm * /*IO*/ pStructTm, + int32_t * /*IO*/ pMsec, + int32_t * /*IO*/ pUsec, + int32_t * /*IO*/ pNsec); + + +/* Utility functions */ +STDTIME_BOOL Bool_StdTimeGmTimeR ( + time_t * pTimeT, + struct tm * pStructTm); + +/*****************************************************************************/ +/* END */ +/*****************************************************************************/ + + +#ifdef __cplusplus +} +#endif + + +#endif /* _STDTIME_H_7583ECB2_DB3F_48B3_8A97_2D1D2A38C84A_ */ + diff --git a/include/inc/stdtime_config.h b/include/inc/stdtime_config.h new file mode 100644 index 0000000..2be7639 --- /dev/null +++ b/include/inc/stdtime_config.h @@ -0,0 +1,153 @@ +/*****************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER **********************************************/ +/*****************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2005 All Rights Reserved */ +/* */ +/* MODULE NAME : stdtimeconfig.h */ +/* PRODUCT(S) : Standard Time Management Library */ +/* */ +/* MODULE DESCRIPTION: */ +/* Configuration of Standard Time Management Library Functions */ +/* This file is used to set the required symbols to generate a STDTIME */ +/* Library for a desired environment */ +/* */ +/* MODIFICATION LOG: */ +/* Date Who Rev Comments */ +/* -------- --- --- ----------------------------------------------------- */ +/* 02/22/08 JRB 05 Add glbtypes.h for SD_BYTE_ORDER & del stdtime_endian.h*/ +/* 03/18/07 RLH 04 Add QNX support. */ +/* 01/10/07 RLH 03 Add STDTIME_HPDATE_MSEC_ROUNDED define */ +/* 06/07/06 RLH 02 Numerous features added, see stdtime.doc */ +/* 01/18/06 RLH 01 Created */ +/*****************************************************************************/ + + +#ifndef _STDTIME_CONFIG_H_7BF1A3F7_495B_4EEE_A2B3_02D65FDF88B6_ +#define _STDTIME_CONFIG_H_7BF1A3F7_495B_4EEE_A2B3_02D65FDF88B6_ + +#include "glbtypes.h" /* Need this for SD_BYTE_ORDER */ + +#if 0 /* put disabled option inside the #if/#endif block */ + + +#define STDTIME_UNICODE /* default time strings are UNICODE */ +#define STDTIME_UNICODE_SUBSTITUTE_CHAR '\x1A' /* a value instead of '\x1A' */ +#define STDTIME_TIME_T64_ENABLED /* if system time_t is 64 bits */ +#define STDTIME_CPP_ONLY_DISABLED /* if library may be compiled as C */ +#define STDTIME_CPP_ONLY_ENABLED /* if library only compiled as C++ */ +#define STDTIME_MERGED_CSV /* csv has NO commas between records */ +#define STDTIME_LOCAL_USES_SYSAPI /* how to get local time from GMT */ + + +#define STDTIME_ISO_DLM_STR "-T:." /* default STDTIME_STRING delimiters */ +/* STDTIME_ISO_DLM_STR must be exactly 4 Ansi characters */ + + +#define QUADLIB_ENABLED /* if 64-bit math is simulated */ +#define QUADLIB_DISABLED /* if 64-bit math done in hardware */ +#define QUADLIB_NATIVE64_DISABLED /* if compiler has no 64-bit support */ +#define QUADLIB_STATIC static /* to make QUADLIB functions local */ +#define QUADLIB_I64N myI64Type /* explicit 64-bit signed int type */ +#define QUADLIB_U64N myUnsignedI64Type /* explicit 64-bit unsigned int type */ + + +#define STDTIMEW32_STATIC /* makes STDTIMEW32 functions local */ +#define STDTIMEW32_USE_CLOCKGETTIME /* to use clock_gettime() on Unix */ +#define STDTIMEW32_USE_GETTIMEOFDAY /* to use gettimeofday() on Unix */ +#define STDTIMEW32_USE_TIMEB /* to use ftime() and timeb on Unix */ + +#endif /* disabled */ + +/* put enabled options after this point */ + +#define STDTIME_TM_ISDST_DEFAULT (-1) /* struct tm_isdst default setting */ + +#define STDTIME_UNMERGED_CSV /* csv HAS commas between records */ + +#undef STDTIME_LOCAL_USES_TZDB /* how to get local time from GMT */ + +#define QUADLIB_NATIVE64_ENABLED /* if compiler has 64-bit support */ +#define STDTIME_HPDATE_MSEC_ROUNDED /* if HpDate msec are rounded */ + +/* include appropriate stdint.h header for target system */ + +#ifdef _AIX +#define STDTIMEW32_USE_CLOCKGETTIME /* to use clock_gettime() on Unix */ +#define STDTIMEW32_ENABLED /* enable WIN32 compatibility layer */ +#define QUADLIB_DISABLED /* if 64-bit math done in hardware */ +#include "stdint.h" + +#elif defined(linux) +#define STDTIMEW32_USE_CLOCKGETTIME /* to use clock_gettime() on Unix */ +#define STDTIMEW32_ENABLED /* enable WIN32 compatibility layer */ +#define QUADLIB_DISABLED /* if 64-bit math done in hardware */ +#include "stdint.h" + +#elif defined(__ECOS) +#define STDTIMEW32_USE_CLOCKGETTIME /* to use clock_gettime() on Unix */ +#define STDTIMEW32_ENABLED /* enable WIN32 compatibility layer */ +#define QUADLIB_DISABLED /* if 64-bit math done in hardware */ +//#include "stdint.h" + +/*renxiaobao add*/ +#elif defined(VXWORKS) +#define STDTIMEW32_USE_CLOCKGETTIME /* to use clock_gettime() on Unix */ +#define STDTIMEW32_ENABLED /* enable WIN32 compatibility layer */ +#define QUADLIB_DISABLED /* if 64-bit math done in hardware */ + + + + + + + + + +#elif defined(sun) +#define STDTIMEW32_USE_CLOCKGETTIME /* to use clock_gettime() on Unix */ +#define STDTIMEW32_ENABLED /* enable WIN32 compatibility layer */ +#define QUADLIB_DISABLED /* if 64-bit math done in hardware */ +#include + +#elif defined(__alpha) && !defined(__VMS) /* digital unix */ +#define STDTIMEW32_USE_CLOCKGETTIME /* to use clock_gettime() on Unix */ +#define STDTIMEW32_ENABLED /* enable WIN32 compatibility layer */ +#define QUADLIB_DISABLED /* if 64-bit math done in hardware */ +#include + +#elif defined(_WIN32) +#define STDTIMEW32_DISABLED /* disable WIN32 compatibility layer */ +#define QUADLIB_DISABLED /* if 64-bit math done in hardware */ +#include "stdtime_stdint.h" + +#elif defined(__QNX__) +#define STDTIMEW32_USE_CLOCKGETTIME /* to use clock_gettime() on QNX */ +#define STDTIMEW32_ENABLED /* enable WIN32 compatibility layer */ +#undef QUADLIB_DISABLED /* if 64-bit math done in hardware */ +#define QUADLIB_ENABLED /* if 64-bit math is simulated */ +#undef QUADLIB_NATIVE64_ENABLED /* if compiler has 64-bit support */ +#define QUADLIB_NATIVE64_DISABLED /* if compiler has no 64-bit support */ + +/* QNX has no stdint.h or equivalent */ +/* bare minimum definitions located here */ + + +typedef char int8_t; +typedef short int16_t; +typedef int int32_t; + +typedef unsigned char uint8_t; +typedef unsigned short uint16_t; +typedef unsigned int uint32_t; + + +#else + +#define STDTIMEW32_DISABLED /* disable WIN32 compatibility layer */ +#include "stdtime_stdint.h" + +#endif + +#endif /* _STDTIME_CONFIG_H_7BF1A3F7_495B_4EEE_A2B3_02D65FDF88B6_ */ + diff --git a/include/inc/stdtime_endian.h b/include/inc/stdtime_endian.h new file mode 100644 index 0000000..221adb9 --- /dev/null +++ b/include/inc/stdtime_endian.h @@ -0,0 +1,90 @@ +/* + * Copyright (c) 1997 + * Silicon Graphics Computer Systems, Inc. + * + * Permission to use, copy, modify, distribute and sell this software + * and its documentation for any purpose is hereby granted without fee, + * provided that the above copyright notice appear in all copies and + * that both that copyright notice and this permission notice appear + * in supporting documentation. Silicon Graphics makes no + * representations about the suitability of this software for any + * purpose. It is provided "as is" without express or implied warranty. + */ + +/* + * Copyright notice reproduced from , from + * which this code was originally taken. + * + * Modified by Caleb Epstein to use with GNU libc and to + * define the BOOST_ENDIAN macro. + */ + +/* + * Modified 2006-02-25 By SISCO, Inc. from Boost source. + * source code simplified, made C compliant, and BOOST_BYTE_ORDER removed + */ + + +#ifndef _STDTIME_ENDIAN_H_9F8D5A2A_B2F9_4F41_A9A0_D2D3912E3082_ +#define _STDTIME_ENDIAN_H_9F8D5A2A_B2F9_4F41_A9A0_D2D3912E3082_ + + +#undef HOST_BIG_ENDIAN +#undef HOST_LITTLE_ENDIAN + +/* GNU libc offers the helpful header which defines __BYTE_ORDER */ + +#ifdef __GLIBC__ +#include + +#if (__BYTE_ORDER == __LITTLE_ENDIAN) /* 1234 */ +#define HOST_LITTLE_ENDIAN +#elif (__BYTE_ORDER == __BIG_ENDIAN) /* 4321 */ +#define HOST_BIG_ENDIAN +#elif (__BYTE_ORDER == __PDP_ENDIAN) +#error PDP_ENDIAN order not supported +#else +#error unknown machine endian order +#endif + + +#elif defined(_MIPSEB) \ + || defined(_POWER) \ + || defined(__hppa) \ + || defined(__powerpc__) \ + || defined(__ppc__) \ + || defined(__s390__) \ + || defined(__sparc) \ + || defined(__sparc__) \ + || defined(sun) \ + || defined(_AIX) \ + || defined(VXWORKS) \ + || defined(__hpux) /**/ +#define HOST_BIG_ENDIAN + + +#elif defined(_M_ALPHA) \ + || defined(_M_IA64) \ + || defined(_M_IX86) \ + || defined(__alpha__) \ + || defined(__i386__) \ + || defined(__ia64) \ + || defined(__ia64__) \ + || defined(MSDOS) \ + || defined(_WIN32) \ + || defined(__LYNX) \ + || defined(__MSDOS__) \ + || defined(__OS2__) \ + || defined(__QNX__) \ + || defined(linux) \ + || (defined(__ALPHA) && defined(__VMS)) \ + || (defined(__alpha) && !defined(__VMS)) /**/ +#define HOST_LITTLE_ENDIAN + + +#else +#error the file host_endian.h needs to be configured for your CPU type +#endif + +#endif /* _STDTIME_ENDIAN_H_9F8D5A2A_B2F9_4F41_A9A0_D2D3912E3082_ */ + diff --git a/include/inc/stdtime_enum_err.h b/include/inc/stdtime_enum_err.h new file mode 100644 index 0000000..34671a2 --- /dev/null +++ b/include/inc/stdtime_enum_err.h @@ -0,0 +1,65 @@ + STDTIME_ENUM_ERR (BTOD_form_code_not_4_or_6) + STDTIME_ENUM_ERR (CComSpan_range_is_invalid) + STDTIME_ENUM_ERR (COleDateTimeSpan_status_is_invalid) + STDTIME_ENUM_ERR (COleDateTimeSpan_status_is_null) + STDTIME_ENUM_ERR (MMS_year_LT_1984) + STDTIME_ENUM_ERR (VARIANT_BYREF_type_not_DATE) + STDTIME_ENUM_ERR (VARIANT_type_not_DATE) + STDTIME_ENUM_ERR (argument_out_of_range) + STDTIME_ENUM_ERR (buffer_size_exceeded) + STDTIME_ENUM_ERR (cannot_determine_local_timezone) + STDTIME_ENUM_ERR (cannot_determine_local_timezone_offset) + STDTIME_ENUM_ERR (cannot_extract_timezone_field) + STDTIME_ENUM_ERR (cannot_find_timezone_entry) + STDTIME_ENUM_ERR (cannot_find_timezone_name) + STDTIME_ENUM_ERR (cannot_open_timezone_file) + STDTIME_ENUM_ERR (conflicting_sign_delta) + STDTIME_ENUM_ERR (data_out_of_range) + STDTIME_ENUM_ERR (day_out_of_range) + STDTIME_ENUM_ERR (failure_in_api_FileTimeToLocalFileTime) + STDTIME_ENUM_ERR (failure_in_api_FileTimeToSystemTime) + STDTIME_ENUM_ERR (failure_in_api_LocalFileTimeToFileTime) + STDTIME_ENUM_ERR (failure_in_api_SetStdTimeStringDelimitersA) + STDTIME_ENUM_ERR (failure_in_api_SetStdTimeStringDelimitersW) + STDTIME_ENUM_ERR (failure_in_api_SgnStdTimeDelta) + STDTIME_ENUM_ERR (failure_in_api_StdTimeGetDayofWeekAndYear) + STDTIME_ENUM_ERR (failure_in_api_StdTimeW32GetDayofWeekAndYear) + STDTIME_ENUM_ERR (failure_in_api_SystemTimeToFileTime) + STDTIME_ENUM_ERR (failure_in_api_strftime) + STDTIME_ENUM_ERR (field_selector_out_of_range) + STDTIME_ENUM_ERR (invalid_FileTime) + STDTIME_ENUM_ERR (invalid_StdTime) + STDTIME_ENUM_ERR (invalid_day) + STDTIME_ENUM_ERR (invalid_delimiter) + STDTIME_ENUM_ERR (invalid_hh_mm) + STDTIME_ENUM_ERR (invalid_hour) + STDTIME_ENUM_ERR (invalid_min) + STDTIME_ENUM_ERR (invalid_mon) + STDTIME_ENUM_ERR (invalid_msec) + STDTIME_ENUM_ERR (invalid_nsec) + STDTIME_ENUM_ERR (invalid_sec) + STDTIME_ENUM_ERR (invalid_sign) + STDTIME_ENUM_ERR (invalid_ss) + STDTIME_ENUM_ERR (invalid_stdtime_rc_value) + STDTIME_ENUM_ERR (invalid_timezone_offset) + STDTIME_ENUM_ERR (invalid_timezone_rule) + STDTIME_ENUM_ERR (invalid_usec) + STDTIME_ENUM_ERR (invalid_year) + STDTIME_ENUM_ERR (length_out_of_range) + STDTIME_ENUM_ERR (missing_timezone_name) + STDTIME_ENUM_ERR (negative_dst_end_time) + STDTIME_ENUM_ERR (negative_dst_start_time) + STDTIME_ENUM_ERR (null_VARIANT_pdate) + STDTIME_ENUM_ERR (null_argument) + STDTIME_ENUM_ERR (overflow_in_delta_day) + STDTIME_ENUM_ERR (overflow_in_delta_hour) + STDTIME_ENUM_ERR (overflow_in_delta_min) + STDTIME_ENUM_ERR (overflow_in_delta_msec) + STDTIME_ENUM_ERR (overflow_in_delta_nsec) + STDTIME_ENUM_ERR (overflow_in_delta_sec) + STDTIME_ENUM_ERR (overflow_in_delta_usec) + STDTIME_ENUM_ERR (span_out_of_range) + STDTIME_ENUM_ERR (time_GT_2038_01_18__19_14_07) + STDTIME_ENUM_ERR (time_LT_1970_01_01) + STDTIME_ENUM_ERR (unexpected_condition) + STDTIME_ENUM_ERR (year_out_of_range) diff --git a/include/inc/stdtime_enum_func.h b/include/inc/stdtime_enum_func.h new file mode 100644 index 0000000..ea9943b --- /dev/null +++ b/include/inc/stdtime_enum_func.h @@ -0,0 +1,425 @@ + STDTIME_ENUM_FUNC (AbsStdTimeDelta) + STDTIME_ENUM_FUNC (AbsStdTimeSpan) + STDTIME_ENUM_FUNC (CComDateExToStdTime) + STDTIME_ENUM_FUNC (CComDateExToStdTimeFields) + STDTIME_ENUM_FUNC (CComDateToStdTime) + STDTIME_ENUM_FUNC (CComDateToStdTimeFields) + STDTIME_ENUM_FUNC (CComSpanExToStdTime) + STDTIME_ENUM_FUNC (CComSpanExToStdTimeDelta) + STDTIME_ENUM_FUNC (CComSpanExToStdTimeFields) + STDTIME_ENUM_FUNC (CComSpanExToStdTimeSpan) + STDTIME_ENUM_FUNC (CComSpanToStdTime) + STDTIME_ENUM_FUNC (CComSpanToStdTimeDelta) + STDTIME_ENUM_FUNC (CComSpanToStdTimeFields) + STDTIME_ENUM_FUNC (CComSpanToStdTimeSpan) + STDTIME_ENUM_FUNC (CFileTimeSpanToStdTime) + STDTIME_ENUM_FUNC (CFileTimeSpanToStdTimeDelta) + STDTIME_ENUM_FUNC (CFileTimeSpanToStdTimeFields) + STDTIME_ENUM_FUNC (CFileTimeSpanToStdTimeSpan) + STDTIME_ENUM_FUNC (CFileTimeToStdTime) + STDTIME_ENUM_FUNC (CFileTimeToStdTimeFields) + STDTIME_ENUM_FUNC (COleDateTimeExToStdTime) + STDTIME_ENUM_FUNC (COleDateTimeExToStdTimeFields) + STDTIME_ENUM_FUNC (COleDateTimeSpanExToStdTime) + STDTIME_ENUM_FUNC (COleDateTimeSpanExToStdTimeDelta) + STDTIME_ENUM_FUNC (COleDateTimeSpanExToStdTimeFields) + STDTIME_ENUM_FUNC (COleDateTimeSpanExToStdTimeSpan) + STDTIME_ENUM_FUNC (COleDateTimeSpanToStdTime) + STDTIME_ENUM_FUNC (COleDateTimeSpanToStdTimeDelta) + STDTIME_ENUM_FUNC (COleDateTimeSpanToStdTimeFields) + STDTIME_ENUM_FUNC (COleDateTimeSpanToStdTimeSpan) + STDTIME_ENUM_FUNC (COleDateTimeToStdTime) + STDTIME_ENUM_FUNC (COleDateTimeToStdTimeFields) + STDTIME_ENUM_FUNC (CTimeExToStdTime) + STDTIME_ENUM_FUNC (CTimeExToStdTimeFields) + STDTIME_ENUM_FUNC (CTimeSpanExToStdTime) + STDTIME_ENUM_FUNC (CTimeSpanExToStdTimeDelta) + STDTIME_ENUM_FUNC (CTimeSpanExToStdTimeFields) + STDTIME_ENUM_FUNC (CTimeSpanExToStdTimeSpan) + STDTIME_ENUM_FUNC (CTimeSpanToStdTime) + STDTIME_ENUM_FUNC (CTimeSpanToStdTimeDelta) + STDTIME_ENUM_FUNC (CTimeSpanToStdTimeFields) + STDTIME_ENUM_FUNC (CTimeSpanToStdTimeSpan) + STDTIME_ENUM_FUNC (CTimeToStdTime) + STDTIME_ENUM_FUNC (CTimeToStdTimeFields) + STDTIME_ENUM_FUNC (DateExToStdTime) + STDTIME_ENUM_FUNC (DateExToStdTimeFields) + STDTIME_ENUM_FUNC (DateToStdTime) + STDTIME_ENUM_FUNC (DateToStdTimeFields) + STDTIME_ENUM_FUNC (DbTimeStampToStdTime) + STDTIME_ENUM_FUNC (DbTimeStampToStdTimeFields) + STDTIME_ENUM_FUNC (DelimitStdTimeStringA) + STDTIME_ENUM_FUNC (DelimitStdTimeStringW) + STDTIME_ENUM_FUNC (FileTimeToStdTime) + STDTIME_ENUM_FUNC (FileTimeToStdTimeFields) + STDTIME_ENUM_FUNC (FileTimeToStdTimeHexStrA) + STDTIME_ENUM_FUNC (FileTimeToStdTimeHexStrW) + STDTIME_ENUM_FUNC (FileTimeToStdTimeStringA) + STDTIME_ENUM_FUNC (FileTimeToStdTimeStringW) + STDTIME_ENUM_FUNC (FormatStdTimeA) + STDTIME_ENUM_FUNC (FormatStdTimeFieldsA) + STDTIME_ENUM_FUNC (FormatStdTimeFieldsW) + STDTIME_ENUM_FUNC (FormatStdTimeHexStrA) + STDTIME_ENUM_FUNC (FormatStdTimeHexStrW) + STDTIME_ENUM_FUNC (FormatStdTimeStringA) + STDTIME_ENUM_FUNC (FormatStdTimeStringW) + STDTIME_ENUM_FUNC (FormatStdTimeW) + STDTIME_ENUM_FUNC (GetLocalStdTime) + STDTIME_ENUM_FUNC (GetLocalStdTimeFields) + STDTIME_ENUM_FUNC (GetLocalStdTimeHexStrA) + STDTIME_ENUM_FUNC (GetLocalStdTimeHexStrW) + STDTIME_ENUM_FUNC (GetLocalStdTimeStringA) + STDTIME_ENUM_FUNC (GetLocalStdTimeStringW) + STDTIME_ENUM_FUNC (GetLocalStdTimeTzoA) + STDTIME_ENUM_FUNC (GetLocalStdTimeTzoW) + STDTIME_ENUM_FUNC (GetStdTime) + STDTIME_ENUM_FUNC (GetStdTimeFields) + STDTIME_ENUM_FUNC (GetStdTimeHexStrA) + STDTIME_ENUM_FUNC (GetStdTimeHexStrW) + STDTIME_ENUM_FUNC (GetStdTimeStringA) + STDTIME_ENUM_FUNC (GetStdTimeStringW) + STDTIME_ENUM_FUNC (GetStdTimeZoneInfo) + STDTIME_ENUM_FUNC (HpCComDateExToStdTime) + STDTIME_ENUM_FUNC (HpCComDateExToStdTimeFields) + STDTIME_ENUM_FUNC (HpCComDateToStdTime) + STDTIME_ENUM_FUNC (HpCComDateToStdTimeFields) + STDTIME_ENUM_FUNC (HpCComSpanExToStdTime) + STDTIME_ENUM_FUNC (HpCComSpanExToStdTimeDelta) + STDTIME_ENUM_FUNC (HpCComSpanExToStdTimeFields) + STDTIME_ENUM_FUNC (HpCComSpanExToStdTimeSpan) + STDTIME_ENUM_FUNC (HpCComSpanToStdTime) + STDTIME_ENUM_FUNC (HpCComSpanToStdTimeDelta) + STDTIME_ENUM_FUNC (HpCComSpanToStdTimeFields) + STDTIME_ENUM_FUNC (HpCComSpanToStdTimeSpan) + STDTIME_ENUM_FUNC (HpCOleDateTimeExToStdTime) + STDTIME_ENUM_FUNC (HpCOleDateTimeExToStdTimeFields) + STDTIME_ENUM_FUNC (HpCOleDateTimeSpanExToStdTime) + STDTIME_ENUM_FUNC (HpCOleDateTimeSpanExToStdTimeDelta) + STDTIME_ENUM_FUNC (HpCOleDateTimeSpanExToStdTimeFields) + STDTIME_ENUM_FUNC (HpCOleDateTimeSpanExToStdTimeSpan) + STDTIME_ENUM_FUNC (HpCOleDateTimeSpanToStdTime) + STDTIME_ENUM_FUNC (HpCOleDateTimeSpanToStdTimeDelta) + STDTIME_ENUM_FUNC (HpCOleDateTimeSpanToStdTimeFields) + STDTIME_ENUM_FUNC (HpCOleDateTimeSpanToStdTimeSpan) + STDTIME_ENUM_FUNC (HpCOleDateTimeToStdTime) + STDTIME_ENUM_FUNC (HpCOleDateTimeToStdTimeFields) + STDTIME_ENUM_FUNC (HpDateExToStdTime) + STDTIME_ENUM_FUNC (HpDateExToStdTimeFields) + STDTIME_ENUM_FUNC (HpDateToStdTime) + STDTIME_ENUM_FUNC (HpDateToStdTimeFields) + STDTIME_ENUM_FUNC (IccpTimeStampExToStdTime) + STDTIME_ENUM_FUNC (IccpTimeStampExToStdTimeFields) + STDTIME_ENUM_FUNC (IccpTimeStampToStdTime) + STDTIME_ENUM_FUNC (IccpTimeStampToStdTimeFields) + STDTIME_ENUM_FUNC (LocalStdTimeFieldsToStdTimeFields) + STDTIME_ENUM_FUNC (LocalStdTimeHexStrAToStdTimeHexStrA) + STDTIME_ENUM_FUNC (LocalStdTimeHexStrWToStdTimeHexStrW) + STDTIME_ENUM_FUNC (LocalStdTimeStringAToStdTimeStringA) + STDTIME_ENUM_FUNC (LocalStdTimeStringWToStdTimeStringW) + STDTIME_ENUM_FUNC (LocalStdTimeToStdTime) + STDTIME_ENUM_FUNC (MmsBtodExToStdTime) + STDTIME_ENUM_FUNC (MmsBtodExToStdTimeFields) + STDTIME_ENUM_FUNC (MmsBtodToStdTime) + STDTIME_ENUM_FUNC (MmsBtodToStdTimeFields) + STDTIME_ENUM_FUNC (MmsTimeOfDay4ExToStdTime) + STDTIME_ENUM_FUNC (MmsTimeOfDay4ExToStdTimeFields) + STDTIME_ENUM_FUNC (MmsTimeOfDay4ToStdTime) + STDTIME_ENUM_FUNC (MmsTimeOfDay4ToStdTimeFields) + STDTIME_ENUM_FUNC (MmsTimeOfDay6ExToStdTime) + STDTIME_ENUM_FUNC (MmsTimeOfDay6ExToStdTimeFields) + STDTIME_ENUM_FUNC (MmsTimeOfDay6ToStdTime) + STDTIME_ENUM_FUNC (MmsTimeOfDay6ToStdTimeFields) + STDTIME_ENUM_FUNC (MmsUtcTimeToStdTime) + STDTIME_ENUM_FUNC (MmsUtcTimeToStdTimeFields) + STDTIME_ENUM_FUNC (NegStdTimeDelta) + STDTIME_ENUM_FUNC (NegStdTimeSpan) + STDTIME_ENUM_FUNC (NormalizeStdTimeDelta) + STDTIME_ENUM_FUNC (NormalizeStdTimeTzoA) + STDTIME_ENUM_FUNC (NormalizeStdTimeTzoW) + STDTIME_ENUM_FUNC (Rc_ArgDateExToStdTime) + STDTIME_ENUM_FUNC (Rc_ArgDateExToStdTimeFields) + STDTIME_ENUM_FUNC (Rc_FixStdTimeZoneRules) + STDTIME_ENUM_FUNC (Rc_NormalizeStdTimeFields) + STDTIME_ENUM_FUNC (Rc_ParseStdTimeZoneData) + STDTIME_ENUM_FUNC (Rc_QuadLibI64ToStdTime) + STDTIME_ENUM_FUNC (Rc_StdTimeFieldsToArgDateEx) + STDTIME_ENUM_FUNC (Rc_StdTimeToArgDateEx) + STDTIME_ENUM_FUNC (Rc_StdTimeToQuadLibI64) + STDTIME_ENUM_FUNC (Rc_StdTimeTz_GetRule) + STDTIME_ENUM_FUNC (Rc_StdTimeTz_GetTime) + STDTIME_ENUM_FUNC (Rc_StdTime_DateToVariant) + STDTIME_ENUM_FUNC (Rc_StdTime_FileTimeSplit) + STDTIME_ENUM_FUNC (Rc_StdTime_FileTimeToSystemTimeEx) + STDTIME_ENUM_FUNC (Rc_StdTime_Formatter) + STDTIME_ENUM_FUNC (Rc_StdTime_NormalizeStructTmEx) + STDTIME_ENUM_FUNC (Rc_StdTime_NormalizeSystemTimeEx) + STDTIME_ENUM_FUNC (Rc_StdTime_SystemTimeExToFileTime) + STDTIME_ENUM_FUNC (Rc_StdTime_TimeTBase) + STDTIME_ENUM_FUNC (Rc_StdTime_TimeTypeToFileTime) + STDTIME_ENUM_FUNC (Rc_StdTime_ValidFileTime) + STDTIME_ENUM_FUNC (Rc_StdTime_VariantToDate) + STDTIME_ENUM_FUNC (ReadStdTimeZoneInfo) + STDTIME_ENUM_FUNC (RepairStdTimeStringA) + STDTIME_ENUM_FUNC (RepairStdTimeStringW) + STDTIME_ENUM_FUNC (RoundStdTimeDelta) + STDTIME_ENUM_FUNC (SetStdTimeStringDelimitersA) + STDTIME_ENUM_FUNC (SetStdTimeStringDelimitersW) + STDTIME_ENUM_FUNC (StdTimeApiFileTimeIsDST) + STDTIME_ENUM_FUNC (StdTimeApiFileTimeToZonedFileTime) + STDTIME_ENUM_FUNC (StdTimeApiZonedFileTimeIsDST) + STDTIME_ENUM_FUNC (StdTimeApiZonedFileTimeToFileTime) + STDTIME_ENUM_FUNC (StdTimeDeltaToCComSpan) + STDTIME_ENUM_FUNC (StdTimeDeltaToCComSpanEx) + STDTIME_ENUM_FUNC (StdTimeDeltaToCFileTimeSpan) + STDTIME_ENUM_FUNC (StdTimeDeltaToCOleDateTimeSpan) + STDTIME_ENUM_FUNC (StdTimeDeltaToCOleDateTimeSpanEx) + STDTIME_ENUM_FUNC (StdTimeDeltaToCTimeSpan) + STDTIME_ENUM_FUNC (StdTimeDeltaToCTimeSpanEx) + STDTIME_ENUM_FUNC (StdTimeDeltaToHpCComSpan) + STDTIME_ENUM_FUNC (StdTimeDeltaToHpCComSpanEx) + STDTIME_ENUM_FUNC (StdTimeDeltaToHpCOleDateTimeSpan) + STDTIME_ENUM_FUNC (StdTimeDeltaToHpCOleDateTimeSpanEx) + STDTIME_ENUM_FUNC (StdTimeDeltaToStdTimeSpan) + STDTIME_ENUM_FUNC (StdTimeDelta_AddDelta) + STDTIME_ENUM_FUNC (StdTimeDelta_AddSpan) + STDTIME_ENUM_FUNC (StdTimeDelta_SubDelta) + STDTIME_ENUM_FUNC (StdTimeDelta_SubSpan) + STDTIME_ENUM_FUNC (StdTimeFieldsToCComDate) + STDTIME_ENUM_FUNC (StdTimeFieldsToCComDateEx) + STDTIME_ENUM_FUNC (StdTimeFieldsToCComSpan) + STDTIME_ENUM_FUNC (StdTimeFieldsToCComSpanEx) + STDTIME_ENUM_FUNC (StdTimeFieldsToCFileTime) + STDTIME_ENUM_FUNC (StdTimeFieldsToCFileTimeSpan) + STDTIME_ENUM_FUNC (StdTimeFieldsToCOleDateTime) + STDTIME_ENUM_FUNC (StdTimeFieldsToCOleDateTimeEx) + STDTIME_ENUM_FUNC (StdTimeFieldsToCOleDateTimeSpan) + STDTIME_ENUM_FUNC (StdTimeFieldsToCOleDateTimeSpanEx) + STDTIME_ENUM_FUNC (StdTimeFieldsToCTime) + STDTIME_ENUM_FUNC (StdTimeFieldsToCTimeEx) + STDTIME_ENUM_FUNC (StdTimeFieldsToCTimeSpan) + STDTIME_ENUM_FUNC (StdTimeFieldsToCTimeSpanEx) + STDTIME_ENUM_FUNC (StdTimeFieldsToDate) + STDTIME_ENUM_FUNC (StdTimeFieldsToDateEx) + STDTIME_ENUM_FUNC (StdTimeFieldsToDbTimeStamp) + STDTIME_ENUM_FUNC (StdTimeFieldsToFileTime) + STDTIME_ENUM_FUNC (StdTimeFieldsToHpCComDate) + STDTIME_ENUM_FUNC (StdTimeFieldsToHpCComDateEx) + STDTIME_ENUM_FUNC (StdTimeFieldsToHpCComSpan) + STDTIME_ENUM_FUNC (StdTimeFieldsToHpCComSpanEx) + STDTIME_ENUM_FUNC (StdTimeFieldsToHpCOleDateTime) + STDTIME_ENUM_FUNC (StdTimeFieldsToHpCOleDateTimeEx) + STDTIME_ENUM_FUNC (StdTimeFieldsToHpCOleDateTimeSpan) + STDTIME_ENUM_FUNC (StdTimeFieldsToHpCOleDateTimeSpanEx) + STDTIME_ENUM_FUNC (StdTimeFieldsToHpDate) + STDTIME_ENUM_FUNC (StdTimeFieldsToHpDateEx) + STDTIME_ENUM_FUNC (StdTimeFieldsToIccpTimeStamp) + STDTIME_ENUM_FUNC (StdTimeFieldsToIccpTimeStampEx) + STDTIME_ENUM_FUNC (StdTimeFieldsToLocalStdTimeFields) + STDTIME_ENUM_FUNC (StdTimeFieldsToMmsBtod) + STDTIME_ENUM_FUNC (StdTimeFieldsToMmsBtodEx) + STDTIME_ENUM_FUNC (StdTimeFieldsToMmsTimeOfDay4) + STDTIME_ENUM_FUNC (StdTimeFieldsToMmsTimeOfDay4Ex) + STDTIME_ENUM_FUNC (StdTimeFieldsToMmsTimeOfDay6) + STDTIME_ENUM_FUNC (StdTimeFieldsToMmsTimeOfDay6Ex) + STDTIME_ENUM_FUNC (StdTimeFieldsToMmsUtcTime) + STDTIME_ENUM_FUNC (StdTimeFieldsToStdTime) + STDTIME_ENUM_FUNC (StdTimeFieldsToStdTimeHexStrA) + STDTIME_ENUM_FUNC (StdTimeFieldsToStdTimeHexStrW) + STDTIME_ENUM_FUNC (StdTimeFieldsToStdTimeStringA) + STDTIME_ENUM_FUNC (StdTimeFieldsToStdTimeStringW) + STDTIME_ENUM_FUNC (StdTimeFieldsToStructTm) + STDTIME_ENUM_FUNC (StdTimeFieldsToStructTmEx) + STDTIME_ENUM_FUNC (StdTimeFieldsToSystemTime) + STDTIME_ENUM_FUNC (StdTimeFieldsToSystemTimeEx) + STDTIME_ENUM_FUNC (StdTimeFieldsToTimeType) + STDTIME_ENUM_FUNC (StdTimeFieldsToTimeTypeEx) + STDTIME_ENUM_FUNC (StdTimeFieldsToUdate) + STDTIME_ENUM_FUNC (StdTimeFieldsToUdateEx) + STDTIME_ENUM_FUNC (StdTimeFieldsToVariant) + STDTIME_ENUM_FUNC (StdTimeFieldsToVariantEx) + STDTIME_ENUM_FUNC (StdTimeFieldsToZonedStdTimeFields) + STDTIME_ENUM_FUNC (StdTimeFields_AddDelta) + STDTIME_ENUM_FUNC (StdTimeFields_AddFraction) + STDTIME_ENUM_FUNC (StdTimeFields_AddSpan) + STDTIME_ENUM_FUNC (StdTimeFields_GetDelta) + STDTIME_ENUM_FUNC (StdTimeFields_GetSpan) + STDTIME_ENUM_FUNC (StdTimeFields_SubDelta) + STDTIME_ENUM_FUNC (StdTimeFields_SubSpan) + STDTIME_ENUM_FUNC (StdTimeGetDayofWeekAndYear) + STDTIME_ENUM_FUNC (StdTimeHexStrAToFileTime) + STDTIME_ENUM_FUNC (StdTimeHexStrAToLocalStdTimeHexStrA) + STDTIME_ENUM_FUNC (StdTimeHexStrAToStdTime) + STDTIME_ENUM_FUNC (StdTimeHexStrAToStdTimeFields) + STDTIME_ENUM_FUNC (StdTimeHexStrAToStdTimeStringA) + STDTIME_ENUM_FUNC (StdTimeHexStrAToZonedStdTimeHexStrA) + STDTIME_ENUM_FUNC (StdTimeHexStrA_AddDelta) + STDTIME_ENUM_FUNC (StdTimeHexStrA_AddSpan) + STDTIME_ENUM_FUNC (StdTimeHexStrA_GetDelta) + STDTIME_ENUM_FUNC (StdTimeHexStrA_GetSpan) + STDTIME_ENUM_FUNC (StdTimeHexStrA_SubDelta) + STDTIME_ENUM_FUNC (StdTimeHexStrA_SubSpan) + STDTIME_ENUM_FUNC (StdTimeHexStrWToFileTime) + STDTIME_ENUM_FUNC (StdTimeHexStrWToLocalStdTimeHexStrW) + STDTIME_ENUM_FUNC (StdTimeHexStrWToStdTime) + STDTIME_ENUM_FUNC (StdTimeHexStrWToStdTimeFields) + STDTIME_ENUM_FUNC (StdTimeHexStrWToStdTimeStringW) + STDTIME_ENUM_FUNC (StdTimeHexStrWToZonedStdTimeHexStrW) + STDTIME_ENUM_FUNC (StdTimeHexStrW_AddDelta) + STDTIME_ENUM_FUNC (StdTimeHexStrW_AddSpan) + STDTIME_ENUM_FUNC (StdTimeHexStrW_GetDelta) + STDTIME_ENUM_FUNC (StdTimeHexStrW_GetSpan) + STDTIME_ENUM_FUNC (StdTimeHexStrW_SubDelta) + STDTIME_ENUM_FUNC (StdTimeHexStrW_SubSpan) + STDTIME_ENUM_FUNC (StdTimeRcToErrMsgA) + STDTIME_ENUM_FUNC (StdTimeRcToErrMsgW) + STDTIME_ENUM_FUNC (StdTimeSpanToCComSpan) + STDTIME_ENUM_FUNC (StdTimeSpanToCComSpanEx) + STDTIME_ENUM_FUNC (StdTimeSpanToCFileTimeSpan) + STDTIME_ENUM_FUNC (StdTimeSpanToCOleDateTimeSpan) + STDTIME_ENUM_FUNC (StdTimeSpanToCOleDateTimeSpanEx) + STDTIME_ENUM_FUNC (StdTimeSpanToCTimeSpan) + STDTIME_ENUM_FUNC (StdTimeSpanToCTimeSpanEx) + STDTIME_ENUM_FUNC (StdTimeSpanToHpCComSpan) + STDTIME_ENUM_FUNC (StdTimeSpanToHpCComSpanEx) + STDTIME_ENUM_FUNC (StdTimeSpanToHpCOleDateTimeSpan) + STDTIME_ENUM_FUNC (StdTimeSpanToHpCOleDateTimeSpanEx) + STDTIME_ENUM_FUNC (StdTimeSpanToStdTimeDelta) + STDTIME_ENUM_FUNC (StdTimeSpan_AddDelta) + STDTIME_ENUM_FUNC (StdTimeSpan_AddSpan) + STDTIME_ENUM_FUNC (StdTimeSpan_SubDelta) + STDTIME_ENUM_FUNC (StdTimeSpan_SubSpan) + STDTIME_ENUM_FUNC (StdTimeStringAToFileTime) + STDTIME_ENUM_FUNC (StdTimeStringAToLocalStdTimeStringA) + STDTIME_ENUM_FUNC (StdTimeStringAToStdTime) + STDTIME_ENUM_FUNC (StdTimeStringAToStdTimeFields) + STDTIME_ENUM_FUNC (StdTimeStringAToStdTimeHexStrA) + STDTIME_ENUM_FUNC (StdTimeStringAToTzoA) + STDTIME_ENUM_FUNC (StdTimeStringAToZonedStdTimeStringA) + STDTIME_ENUM_FUNC (StdTimeStringA_AddDelta) + STDTIME_ENUM_FUNC (StdTimeStringA_AddSpan) + STDTIME_ENUM_FUNC (StdTimeStringA_GetDelta) + STDTIME_ENUM_FUNC (StdTimeStringA_GetSpan) + STDTIME_ENUM_FUNC (StdTimeStringA_SubDelta) + STDTIME_ENUM_FUNC (StdTimeStringA_SubSpan) + STDTIME_ENUM_FUNC (StdTimeStringWToFileTime) + STDTIME_ENUM_FUNC (StdTimeStringWToLocalStdTimeStringW) + STDTIME_ENUM_FUNC (StdTimeStringWToStdTime) + STDTIME_ENUM_FUNC (StdTimeStringWToStdTimeFields) + STDTIME_ENUM_FUNC (StdTimeStringWToStdTimeHexStrW) + STDTIME_ENUM_FUNC (StdTimeStringWToTzoW) + STDTIME_ENUM_FUNC (StdTimeStringWToZonedStdTimeStringW) + STDTIME_ENUM_FUNC (StdTimeStringW_AddDelta) + STDTIME_ENUM_FUNC (StdTimeStringW_AddSpan) + STDTIME_ENUM_FUNC (StdTimeStringW_GetDelta) + STDTIME_ENUM_FUNC (StdTimeStringW_GetSpan) + STDTIME_ENUM_FUNC (StdTimeStringW_SubDelta) + STDTIME_ENUM_FUNC (StdTimeStringW_SubSpan) + STDTIME_ENUM_FUNC (StdTimeToCComDate) + STDTIME_ENUM_FUNC (StdTimeToCComDateEx) + STDTIME_ENUM_FUNC (StdTimeToCComSpan) + STDTIME_ENUM_FUNC (StdTimeToCComSpanEx) + STDTIME_ENUM_FUNC (StdTimeToCFileTime) + STDTIME_ENUM_FUNC (StdTimeToCFileTimeSpan) + STDTIME_ENUM_FUNC (StdTimeToCOleDateTime) + STDTIME_ENUM_FUNC (StdTimeToCOleDateTimeEx) + STDTIME_ENUM_FUNC (StdTimeToCOleDateTimeSpan) + STDTIME_ENUM_FUNC (StdTimeToCOleDateTimeSpanEx) + STDTIME_ENUM_FUNC (StdTimeToCTime) + STDTIME_ENUM_FUNC (StdTimeToCTimeEx) + STDTIME_ENUM_FUNC (StdTimeToCTimeSpan) + STDTIME_ENUM_FUNC (StdTimeToCTimeSpanEx) + STDTIME_ENUM_FUNC (StdTimeToDate) + STDTIME_ENUM_FUNC (StdTimeToDateEx) + STDTIME_ENUM_FUNC (StdTimeToDbTimeStamp) + STDTIME_ENUM_FUNC (StdTimeToFileTime) + STDTIME_ENUM_FUNC (StdTimeToHpCComDate) + STDTIME_ENUM_FUNC (StdTimeToHpCComDateEx) + STDTIME_ENUM_FUNC (StdTimeToHpCComSpan) + STDTIME_ENUM_FUNC (StdTimeToHpCComSpanEx) + STDTIME_ENUM_FUNC (StdTimeToHpCOleDateTime) + STDTIME_ENUM_FUNC (StdTimeToHpCOleDateTimeEx) + STDTIME_ENUM_FUNC (StdTimeToHpCOleDateTimeSpan) + STDTIME_ENUM_FUNC (StdTimeToHpCOleDateTimeSpanEx) + STDTIME_ENUM_FUNC (StdTimeToHpDate) + STDTIME_ENUM_FUNC (StdTimeToHpDateEx) + STDTIME_ENUM_FUNC (StdTimeToIccpTimeStamp) + STDTIME_ENUM_FUNC (StdTimeToIccpTimeStampEx) + STDTIME_ENUM_FUNC (StdTimeToLocalStdTime) + STDTIME_ENUM_FUNC (StdTimeToMmsBtod) + STDTIME_ENUM_FUNC (StdTimeToMmsBtodEx) + STDTIME_ENUM_FUNC (StdTimeToMmsTimeOfDay4) + STDTIME_ENUM_FUNC (StdTimeToMmsTimeOfDay4Ex) + STDTIME_ENUM_FUNC (StdTimeToMmsTimeOfDay6) + STDTIME_ENUM_FUNC (StdTimeToMmsTimeOfDay6Ex) + STDTIME_ENUM_FUNC (StdTimeToMmsUtcTime) + STDTIME_ENUM_FUNC (StdTimeToStdTimeField) + STDTIME_ENUM_FUNC (StdTimeToStdTimeHexStrA) + STDTIME_ENUM_FUNC (StdTimeToStdTimeHexStrW) + STDTIME_ENUM_FUNC (StdTimeToStdTimeStringA) + STDTIME_ENUM_FUNC (StdTimeToStdTimeStringW) + STDTIME_ENUM_FUNC (StdTimeToStructTm) + STDTIME_ENUM_FUNC (StdTimeToStructTmEx) + STDTIME_ENUM_FUNC (StdTimeToSystemTime) + STDTIME_ENUM_FUNC (StdTimeToSystemTimeEx) + STDTIME_ENUM_FUNC (StdTimeToTimeType) + STDTIME_ENUM_FUNC (StdTimeToTimeTypeEx) + STDTIME_ENUM_FUNC (StdTimeToUdate) + STDTIME_ENUM_FUNC (StdTimeToUdateEx) + STDTIME_ENUM_FUNC (StdTimeToVariant) + STDTIME_ENUM_FUNC (StdTimeToVariantEx) + STDTIME_ENUM_FUNC (StdTimeToZonedStdTime) + STDTIME_ENUM_FUNC (StdTimeTzTimeToDelta) + STDTIME_ENUM_FUNC (StdTimeW32GetDayofWeekAndYear) + STDTIME_ENUM_FUNC (StdTimeZoneDataToInfo) + STDTIME_ENUM_FUNC (StdTimeZoneDayOfRule) + STDTIME_ENUM_FUNC (StdTime_AddDelta) + STDTIME_ENUM_FUNC (StdTime_AddSpan) + STDTIME_ENUM_FUNC (StdTime_GetDelta) + STDTIME_ENUM_FUNC (StdTime_GetSpan) + STDTIME_ENUM_FUNC (StdTime_SubDelta) + STDTIME_ENUM_FUNC (StdTime_SubSpan) + STDTIME_ENUM_FUNC (StructTmExToStdTime) + STDTIME_ENUM_FUNC (StructTmExToStdTimeFields) + STDTIME_ENUM_FUNC (StructTmToStdTime) + STDTIME_ENUM_FUNC (StructTmToStdTimeFields) + STDTIME_ENUM_FUNC (SystemTimeExToStdTime) + STDTIME_ENUM_FUNC (SystemTimeExToStdTimeFields) + STDTIME_ENUM_FUNC (SystemTimeToStdTime) + STDTIME_ENUM_FUNC (SystemTimeToStdTimeFields) + STDTIME_ENUM_FUNC (TimeTypeExToStdTime) + STDTIME_ENUM_FUNC (TimeTypeExToStdTimeFields) + STDTIME_ENUM_FUNC (TimeTypeToStdTime) + STDTIME_ENUM_FUNC (TimeTypeToStdTimeFields) + STDTIME_ENUM_FUNC (TranslateStdTimeWinZoneName) + STDTIME_ENUM_FUNC (TranslateStdTimeZoneName) + STDTIME_ENUM_FUNC (TrimStdTimeStringA) + STDTIME_ENUM_FUNC (TrimStdTimeStringW) + STDTIME_ENUM_FUNC (TruncStdTimeDelta) + STDTIME_ENUM_FUNC (TruncStdTimeStringA) + STDTIME_ENUM_FUNC (TruncStdTimeStringW) + STDTIME_ENUM_FUNC (TzoAToStdTimeStringA) + STDTIME_ENUM_FUNC (TzoWToStdTimeStringW) + STDTIME_ENUM_FUNC (UdateExToStdTime) + STDTIME_ENUM_FUNC (UdateExToStdTimeFields) + STDTIME_ENUM_FUNC (UdateToStdTime) + STDTIME_ENUM_FUNC (UdateToStdTimeFields) + STDTIME_ENUM_FUNC (ValidStdTime) + STDTIME_ENUM_FUNC (ValidStdTimeDelta) + STDTIME_ENUM_FUNC (ValidStdTimeFields) + STDTIME_ENUM_FUNC (ValidStdTimeHexStrA) + STDTIME_ENUM_FUNC (ValidStdTimeHexStrW) + STDTIME_ENUM_FUNC (ValidStdTimeSpan) + STDTIME_ENUM_FUNC (ValidStdTimeStringA) + STDTIME_ENUM_FUNC (ValidStdTimeStringW) + STDTIME_ENUM_FUNC (ValidStdTimeTzoA) + STDTIME_ENUM_FUNC (ValidStdTimeTzoW) + STDTIME_ENUM_FUNC (VariantExToStdTime) + STDTIME_ENUM_FUNC (VariantExToStdTimeFields) + STDTIME_ENUM_FUNC (VariantToStdTime) + STDTIME_ENUM_FUNC (VariantToStdTimeFields) + STDTIME_ENUM_FUNC (ZonedStdTimeFieldsToStdTimeFields) + STDTIME_ENUM_FUNC (ZonedStdTimeHexStrAToStdTimeHexStrA) + STDTIME_ENUM_FUNC (ZonedStdTimeHexStrWToStdTimeHexStrW) + STDTIME_ENUM_FUNC (ZonedStdTimeStringAToStdTimeStringA) + STDTIME_ENUM_FUNC (ZonedStdTimeStringWToStdTimeStringW) + STDTIME_ENUM_FUNC (ZonedStdTimeToStdTime) diff --git a/include/inc/stdtime_mms_btime.h b/include/inc/stdtime_mms_btime.h new file mode 100644 index 0000000..e1b09c0 --- /dev/null +++ b/include/inc/stdtime_mms_btime.h @@ -0,0 +1,81 @@ +/*****************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER **********************************************/ +/*****************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2006 All Rights Reserved */ +/* */ +/* MODULE NAME : stdtime_mms_btime.h */ +/* PRODUCT(S) : Standard Time Management Library */ +/* */ +/* MODULE DESCRIPTION: */ +/* Support for MMS Btime4, BTime6 and BTOD conversions to/from STDTIME */ +/* */ +/* MODIFICATION LOG: */ +/* Date Who Rev Comments */ +/* -------- --- --- ----------------------------------------------------- */ +/* 04/08/08 JRB 03 Chg () to (ST_VOID) in prototype. */ +/* 02/20/08 JRB 02 Add T84_* defines. */ +/* Del TimeOfDay4, Btod, and StdTimeFields functions. */ +/* 10/05/06 RLH 01 Created */ +/*****************************************************************************/ + +#ifdef __cplusplus +extern "C" { +#endif + +#define T84_HIGHDATETIME 0x01ad63ae /* high word of 1984 FILETIME*/ +#define T84_LOWDATETIME 0xef5a4000 /* low word of 1984 FILETIME*/ + +#if defined(ASN1R_INCLUDED) && defined(MMS_BTOD4) && defined(MMS_BTOD6) +#define STDTIME_MMS_TIMEOFDAY6 MMS_BTIME6 + +#else + +typedef struct + { + int32_t ms; /* milliseconds since midnight */ + int32_t day; /* days since January 1, 1984 */ + } +STDTIME_MMS_TIMEOFDAY6; + +#endif + + + +/*** MmsTimeOfDay4/6 initialization functions ********************************/ + +STDTIME_MMS_TIMEOFDAY6 StdTimeApiZeroMmsTimeOfDay6 (ST_VOID); + +/*** MmsTimeOfDay6Ex functions ***********************************************/ + + +STDTIME_RC StdTimeToMmsTimeOfDay6Ex ( + const STDTIME * /*I*/ pStdTime, + STDTIME_MMS_TIMEOFDAY6 * /*O*/ pMmsTimeOfDay6, + int32_t * /*O*/ pUsec, /* optional */ + int32_t * /*O*/ pNsec); /* optional */ + + +STDTIME_RC MmsTimeOfDay6ExToStdTime ( + const STDTIME_MMS_TIMEOFDAY6 * /*I*/ pMmsTimeOfDay6, + int32_t /*I*/ nUsec, + int32_t /*I*/ nNsec, + STDTIME * /*O*/ pStdTime); + + +/*** MmsTimeOfDay6 functions *************************************************/ + + +STDTIME_RC StdTimeToMmsTimeOfDay6 ( + const STDTIME * /*I*/ pStdTime, + STDTIME_MMS_TIMEOFDAY6 * /*O*/ pMmsTimeOfDay6); + + +STDTIME_RC MmsTimeOfDay6ToStdTime ( + const STDTIME_MMS_TIMEOFDAY6 * /*I*/ pMmsTimeOfDay6, + STDTIME * /*O*/ pStdTime); + +#ifdef __cplusplus +} +#endif + diff --git a/include/inc/stdtime_mms_utctime.h b/include/inc/stdtime_mms_utctime.h new file mode 100644 index 0000000..1ea703e --- /dev/null +++ b/include/inc/stdtime_mms_utctime.h @@ -0,0 +1,61 @@ +/*****************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER **********************************************/ +/*****************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2006 All Rights Reserved */ +/* */ +/* MODULE NAME : stdtime_mms_utctime.h */ +/* PRODUCT(S) : Standard Time Management Library */ +/* */ +/* MODULE DESCRIPTION: */ +/* Support for MMS UTC TIME conversions to/from STDTIME */ +/* */ +/* MODIFICATION LOG: */ +/* Date Who Rev Comments */ +/* -------- --- --- ----------------------------------------------------- */ +/* 04/08/08 JRB 03 Chg () to (ST_VOID) in prototype. */ +/* 02/20/08 JRB 02 Delete StdTimeFields functions. */ +/* 10/05/06 RLH 01 Created */ +/*****************************************************************************/ + +#ifdef __cplusplus +extern "C" { +#endif + +#if defined(ASN1R_INCLUDED) +#define STDTIME_MMS_UTC_TIME MMS_UTC_TIME + +#else + +typedef struct + { + int32_t secs; /* seconds since January 1, 1970 */ + int32_t fraction; /* 24-bit binary fraction of second */ + int32_t qflags; /* 8-bit quality flags */ + } +STDTIME_MMS_UTC_TIME; + +#endif + + +/*** MmsUtcTime initialization function **************************************/ + +STDTIME_MMS_UTC_TIME StdTimeApiZeroMmsUtcTime (ST_VOID); + + +/*** MmsUtcTime functions *************************************************/ + + +STDTIME_RC StdTimeToMmsUtcTime ( + const STDTIME * /*I*/ pStdTime, + STDTIME_MMS_UTC_TIME * /*O*/ pMmsUtcTime); + + +STDTIME_RC MmsUtcTimeToStdTime ( + const STDTIME_MMS_UTC_TIME * /*I*/ pMmsUtcTime, + STDTIME * /*O*/ pStdTime); + +#ifdef __cplusplus +} +#endif + diff --git a/include/inc/stdtime_quadlib.h b/include/inc/stdtime_quadlib.h new file mode 100644 index 0000000..fa45097 --- /dev/null +++ b/include/inc/stdtime_quadlib.h @@ -0,0 +1,1081 @@ +/*****************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER **********************************************/ +/*****************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2005 All Rights Reserved */ +/* */ +/* MODULE NAME : QuadLib.h */ +/* PRODUCT(S) : Standard Time Management Library */ +/* */ +/* MODULE DESCRIPTION: */ +/* 64-bit Math Simulation Library - header file */ +/* Provided for platforms without native 64-bit support. */ +/* */ +/* When QUADLIB_ENABLED is defined, definitions relevant to the */ +/* simulations library are generated. Otherwise, definitions are */ +/* selected to develop code on 64-bit enabled platforms without going */ +/* through the QuadLib library. */ +/* */ +/* Define QUADLIB_STATIC as 'static' to make the declarations local. */ +/* */ +/* Define QUADLIB_I64N as the native signed 64-bit data type. */ +/* Define QUADLIB_U64N as the native unsigned 64-bit data type. */ +/* If not defined, an assumption is made based on existence of _WIN32. */ +/* */ +/* The include file "host_endian.h" defines the native host endian order. */ +/* */ +/* MODIFICATION LOG: */ +/* Date Who Rev Comments */ +/* -------- --- --- ----------------------------------------------------- */ +/* 02/22/08 JRB 03 Use SD_BYTE_ORDER like all other SISCO code. */ +/* 06/07/06 RLH 02 Numerous features added, see stdtime.doc */ +/* 01/18/06 RLH 01 Created */ +/*****************************************************************************/ + + +#ifndef _STDTIME_QUADLIB_H_B07CB807_8BFC_41B3_872E_EDD251FD6AEB_ +#define _STDTIME_QUADLIB_H_B07CB807_8BFC_41B3_872E_EDD251FD6AEB_ + + +#ifdef __cplusplus +extern "C" { +#endif + +/*****************************************************************************/ +/* ENABLED or DISABLED: SUPPORT FOR 64-BIT EMULATION */ +/* */ +/* use StdTimeConfig.h to set QUADLIB_ENABLED or QUADLIB_DISABLED */ +/*****************************************************************************/ + +#if defined(QUADLIB_ENABLED) && defined(QUADLIB_DISABLED) +#error Both QUADLIB_ENABLED and QUADLIB_DISABLED defined +#undef QUADLIB_ENABLED +#endif + +#if !defined(QUADLIB_ENABLED) && !defined(QUADLIB_DISABLED) +#define QUADLIB_DISABLED /* default */ +#endif + +/*****************************************************************************/ +/* ENABLED or DISABLED: EXISTENCE OF 64-BIT SUPPORT IN COMPILER */ +/* */ +/* use StdTimeConfig.h to set QUADLIB_NATIVE64_ENABLED or */ +/* QUADLIB_NATIVE64_DISABLED */ +/*****************************************************************************/ + +/* these defines are used mainly to avoid compile errors on platforms */ +/* that have no support at all for 64-bit types */ + +#if defined(QUADLIB_NATIVE64_ENABLED) && defined(QUADLIB_NATIVE64_DISABLED) +#error Both QUADLIB_NATIVE64_ENABLED and QUADLIB_NATIVE64_DISABLED defined +#undef QUADLIB_NATIVE64_ENABLED +#undef QUADLIB_NATIVE64_DISABLED +#endif + +#if !defined(QUADLIB_NATIVE64_ENABLED) && !defined(QUADLIB_NATIVE64_DISABLED) +#ifdef _WIN32 +#define QUADLIB_NATIVE64_ENABLED +#else +#define QUADLIB_NATIVE64_DISABLED +#endif +#endif + +/*****************************************************************************/ +/* VALIDATE NATIVE SUPPORT VS. EMULATION SUPPORT */ +/*****************************************************************************/ + +/* either the host must support 64-bit mode or we must emulate it */ +/* otherwise, the code that manages 64-bit FILETIME values will not work */ + +#if defined(QUADLIB_DISABLED) && defined(QUADLIB_NATIVE64_DISABLED) +#error QUADLIB_DISABLED and QUADLIB_NATIVE64_DISABLED, cannot generate code +#endif + + +/*****************************************************************************/ +/* STATIC (LOCAL) FUNCTION QUALIFIER */ +/* */ +/* use StdTimeConfig.h to set QUADLIB_STATIC */ +/*****************************************************************************/ + +#ifndef QUADLIB_STATIC +#define QUADLIB_STATIC +#endif + +/* stdtimeconfig.h includes appropriate stdint.h header for 32/64 bit types */ + +#define QUADLIB_U32_HIGHBIT 0x80000000 + +/*****************************************************************************/ +/* NATIVE 64 BIT TYPES */ +/*****************************************************************************/ + +#ifdef QUADLIB_NATIVE64_ENABLED +#define QUADLIB_I64N int64_t +#define QUADLIB_U64N uint64_t + +#else /* not QUADLIB_NATIVE64_ENABLED */ + +/* host has NO 64-bit data types */ +/* the following defines are just for compatibility */ +/* but lack 64-bit capacity. _WIN32 always supports I64 */ +/* so this is just a non-Windows issue. */ + +#ifndef QUADLIB_I64N +#define QUADLIB_I64N int32_t /* 32-bit */ +#endif + +#ifndef QUADLIB_U64N +#define QUADLIB_U64N uint32_t /* 32-bit */ +#endif + +#endif /* QUADLIB_NATIVE64_ENABLED */ + +/*****************************************************************************/ +/* QUADLIB_I64 - hi/lo member ordering based on ENDIAN definition above */ +/* QUADLIB_U64 has the same representation as QUADLIB_I64 */ +/* two names are used mainly to document the intended usage */ +/*****************************************************************************/ + +/* Make sure SD_BYTE_ORDER is defined (in glbtypes.h) */ +#if !defined(SD_BYTE_ORDER) +#error SD_BYTE_ORDER not defined +#endif +#if (SD_BYTE_ORDER==SD_LITTLE_ENDIAN) + +typedef struct + { + union + { + int32_t i; + uint32_t u; + } lo; + + union + { + int32_t i; + uint32_t u; + } hi; + } + QUADLIB_I64_TYPE; + +#else /* BIG_ENDIAN */ + +typedef struct + { + union + { + int32_t i; + uint32_t u; + } hi; + + union + { + int32_t i; + uint32_t u; + } lo; + } + QUADLIB_I64_TYPE; + +#endif /* BIG_ENDIAN */ + +#define QUADLIB_U64_TYPE QUADLIB_I64_TYPE + +#ifdef QUADLIB_ENABLED + +/* enabled means 64-bit operations are simulated in software */ + +#define QUADLIB_I64 QUADLIB_I64_TYPE +#define QUADLIB_U64 QUADLIB_I64_TYPE +#define QUADLIB_ZERO {0,0} +#define QUADLIB_U64_MAX {0xFFFFFFFF, 0xFFFFFFFF} + +#if (SD_BYTE_ORDER==SD_LITTLE_ENDIAN) + +#define QUADLIB_I64_MAX {0xFFFFFFFF, 0x7FFFFFFF} +#define QUADLIB_I64_MIN {0x00000000, 0x80000000} + +#else /* BIG_ENDIAN */ + +#define QUADLIB_I64_MAX {0x7FFFFFFF, 0xFFFFFFFF} +#define QUADLIB_I64_MIN {0x00000000, 0x00000000} + +#endif /* BIG_ENDIAN */ + +#else /* not QUADLIB_ENABLED */ + +/* use native 64-bit values for a few compatibility functions */ + +#define QUADLIB_I64 QUADLIB_I64N +#define QUADLIB_U64 QUADLIB_U64N +#define QUADLIB_ZERO 0 +#define QUADLIB_U64_MAX (QUADLIB_U64)0xFFFFFFFFFFFFFFFF +#define QUADLIB_I64_MAX (QUADLIB_I64)0x7FFFFFFFFFFFFFFF +#define QUADLIB_I64_MIN (QUADLIB_I64)0x8000000000000000 + +#endif /* QUADLIB_ENABLED */ + + +#ifdef _WCHAR_T_DEFINED +typedef wchar_t QUADLIB_WCHAR; +#else +typedef unsigned short QUADLIB_WCHAR; +#endif + +#define QUADLIB_STRING_LEN 20 + + +typedef struct + { + char str [QUADLIB_STRING_LEN+1]; + } +QUADLIB_STRINGA; + + +typedef struct + { + QUADLIB_WCHAR str [QUADLIB_STRING_LEN+1]; + } +QUADLIB_STRINGW; + + +/*****************************************************************************/ +/* NOT */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +#define QUADLIB_I64_NOT(x) QuadLibI64Not(x) +#define QUADLIB_U64_NOT(x) QuadLibU64Not(x) + +#define QuadLibI64Not(x) QuadLibU64Not(x) + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64Not (QUADLIB_U64 x); + +#else /* not QUADLIB_ENABLED */ + +#define QUADLIB_I64_NOT(x) (~x) +#define QUADLIB_U64_NOT(x) (~x) + +#endif /* QUADLIB_ENABLED */ + +/*****************************************************************************/ +/* AND */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +#define QUADLIB_I64_AND(x,y) QuadLibI64And(x,y) +#define QUADLIB_U64_AND(x,y) QuadLibU64And(x,y) +#define QUADLIB_I64_AND_EQ(x,y) x = QuadLibI64And(x,y) +#define QUADLIB_U64_AND_EQ(x,y) x = QuadLibU64And(x,y) + +#define QUADLIB_I64_ANDNOT(x,y) QuadLibI64AndNot(x,y) +#define QUADLIB_U64_ANDNOT(x,y) QuadLibU64AndNot(x,y) +#define QUADLIB_I64_ANDNOT_EQ(x,y) x = QuadLibI64AndNot(x,y) +#define QUADLIB_U64_ANDNOT_EQ(x,y) x = QuadLibU64AndNot(x,y) + +#define QuadLibI64And(x,y) QuadLibU64And(x,y) +#define QuadLibI64AndNot(x) QuadLibU64AndNot(x) + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64And ( + QUADLIB_U64 /*I*/ one, + QUADLIB_U64 /*I*/ two); + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64AndNot ( + QUADLIB_U64 /*I*/ one, + QUADLIB_U64 /*I*/ two); + +#else /* not QUADLIB_ENABLED */ + +#define QUADLIB_I64_AND(x,y) (x & y) +#define QUADLIB_U64_AND(x,y) (x & y) +#define QUADLIB_I64_AND_EQ(x,y) x &= y +#define QUADLIB_U64_AND_EQ(x,y) x &= y + +#define QUADLIB_I64_ANDNOT(x,y) (x & (~y)) +#define QUADLIB_U64_ANDNOT(x,y) (x & (~y)) +#define QUADLIB_I64_ANDNOT_EQ(x,y) x = x & (~y) +#define QUADLIB_U64_ANDNOT_EQ(x,y) x = x & (~y) + +#endif /* QUADLIB_ENABLED */ + +/*****************************************************************************/ +/* OR */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +#define QUADLIB_I64_OR(x,y) QuadLibI64Or(x,y) +#define QUADLIB_U64_OR(x,y) QuadLibU64Or(x,y) +#define QUADLIB_I64_OR_EQ(x,y) x = QuadLibI64Or(x,y) +#define QUADLIB_U64_OR_EQ(x,y) x = QuadLibU64Or(x,y) + +#define QUADLIB_I64_ORNOT(x,y) QuadLibI64OrNot(x,y) +#define QUADLIB_U64_ORNOT(x,y) QuadLibU64OrNot(x,y) +#define QUADLIB_I64_ORNOT_EQ(x,y) x = QuadLibI64OrNot(x,y) +#define QUADLIB_U64_ORNOT_EQ(x,y) x = QuadLibU64OrNot(x,y) + +#define QuadLibI64Or(x,y) QuadLibU64Or(x,y) +#define QuadLibI64OrNot(x) QuadLibU64OrNot(x) + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64Or ( + QUADLIB_U64 /*I*/ one, + QUADLIB_U64 /*I*/ two); + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64OrNot ( + QUADLIB_U64 /*I*/ one, + QUADLIB_U64 /*I*/ two); + +#else /* not QUADLIB_ENABLED */ + +#define QUADLIB_I64_OR(x,y) (x | y) +#define QUADLIB_U64_OR(x,y) (x | y) +#define QUADLIB_I64_OR_EQ(x,y) x |= y +#define QUADLIB_U64_OR_EQ(x,y) x |= y + +#define QUADLIB_I64_ORNOT(x,y) (x | (~y)) +#define QUADLIB_U64_ORNOT(x,y) (x | (~y)) +#define QUADLIB_I64_ORNOT_EQ(x,y) x = x | (~y) +#define QUADLIB_U64_ORNOT_EQ(x,y) x = x | (~y) + +#endif /* QUADLIB_ENABLED */ + +/*****************************************************************************/ +/* XOR */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +#define QUADLIB_I64_XOR(x,y) QuadLibI64Xor(x,y) +#define QUADLIB_U64_XOR(x,y) QuadLibU64Xor(x,y) +#define QUADLIB_I64_XOR_EQ(x,y) x = QuadLibI64Xor(x,y) +#define QUADLIB_U64_XOR_EQ(x,y) x = QuadLibU64Xor(x,y) + +#define QUADLIB_I64_XORNOT(x,y) QuadLibI64XorNot(x,y) +#define QUADLIB_U64_XORNOT(x,y) QuadLibU64XorNot(x,y) +#define QUADLIB_I64_XORNOT_EQ(x,y) x = QuadLibI64XorNot(x,y) +#define QUADLIB_U64_XORNOT_EQ(x,y) x = QuadLibU64XorNot(x,y) + +#define QuadLibI64Xor(x,y) QuadLibU64Xor(x,y) +#define QuadLibI64XorNot(x) QuadLibU64XorNot(x) + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64Xor ( + QUADLIB_U64 /*I*/ one, + QUADLIB_U64 /*I*/ two); + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64XorNot ( + QUADLIB_U64 /*I*/ one, + QUADLIB_U64 /*I*/ two); + +#else /* not QUADLIB_ENABLED */ + +#define QUADLIB_I64_XOR(x,y) (x ^ y) +#define QUADLIB_U64_XOR(x,y) (x ^ y) +#define QUADLIB_I64_XOR_EQ(x,y) x ^= y +#define QUADLIB_U64_XOR_EQ(x,y) x ^= y + +#define QUADLIB_I64_XORNOT(x,y) (x ^ (~y)) +#define QUADLIB_U64_XORNOT(x,y) (x ^ (~y)) +#define QUADLIB_I64_XORNOT_EQ(x,y) x = x ^ (~y) +#define QUADLIB_U64_XORNOT_EQ(x,y) x = x ^ (~y) + +#endif /* QUADLIB_ENABLED */ + +/*****************************************************************************/ +/* ADD */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +#define QUADLIB_I64_ADD(x,y) QuadLibI64Add(x,y) +#define QUADLIB_U64_ADD(x,y) QuadLibU64Add(x,y) +#define QUADLIB_I64_ADD_EQ(x,y) x = QuadLibI64Add(x,y) +#define QUADLIB_U64_ADD_EQ(x,y) x = QuadLibU64Add(x,y) + +#define QUADLIB_I64_ADD1(x) QuadLibI64Add1(x) +#define QUADLIB_U64_ADD1(x) QuadLibU64Add1(x) +#define QUADLIB_I64_ADD1_EQ(x) x = QuadLibI64Add1(x) +#define QUADLIB_U64_ADD1_EQ(x) x = QuadLibU64Add1(x) + +#define QuadLibI64Add(x,y) QuadLibU64Add(x,y) +#define QuadLibI64Add1(x) QuadLibU64Add1(x) + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64Add ( + QUADLIB_U64 /*I*/ one, + QUADLIB_U64 /*I*/ two); + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64Add1 ( + QUADLIB_U64 /*I*/ x); + +#else /* not QUADLIB_ENABLED */ + +#define QUADLIB_I64_ADD(x,y) (x + y) +#define QUADLIB_U64_ADD(x,y) (x + y) +#define QUADLIB_I64_ADD_EQ(x,y) x += y +#define QUADLIB_U64_ADD_EQ(x,y) x += y + +#define QUADLIB_I64_ADD1(x) (x + y) +#define QUADLIB_U64_ADD1(x) (x + y) +#define QUADLIB_I64_ADD1_EQ(x) x++ +#define QUADLIB_U64_ADD1_EQ(x) x++ + +#endif /* QUADLIB_ENABLED */ + +/*****************************************************************************/ +/* SUB */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +#define QUADLIB_I64_SUB(x,y) QuadLibI64Sub(x,y) +#define QUADLIB_U64_SUB(x,y) QuadLibU64Sub(x,y) +#define QUADLIB_I64_SUB_EQ(x,y) x = QuadLibI64Sub(x,y) +#define QUADLIB_U64_SUB_EQ(x,y) x = QuadLibU64Sub(x,y) + +#define QUADLIB_I64_SUB1(x) QuadLibI64Sub1(x) +#define QUADLIB_U64_SUB1(x) QuadLibU64Sub1(x) +#define QUADLIB_I64_SUB1_EQ(x) x = QuadLibI64Sub1(x) +#define QUADLIB_U64_SUB1_EQ(x) x = QuadLibU64Sub1(x) + +#define QuadLibI64Sub(x,y) QuadLibU64Sub(x,y) +#define QuadLibI64Sub1(x) QuadLibU64Sub1(x) + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64Sub ( + QUADLIB_U64 /*I*/ one, + QUADLIB_U64 /*I*/ two); + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64Sub1 ( + QUADLIB_U64 /*I*/ x); + +#else /* not QUADLIB_ENABLED */ + +#define QUADLIB_I64_SUB(x,y) (x - y) +#define QUADLIB_U64_SUB(x,y) (x - y) +#define QUADLIB_I64_SUB_EQ(x,y) x -= y +#define QUADLIB_U64_SUB_EQ(x,y) x -= y + +#define QUADLIB_I64_SUB1(x) (x - y) +#define QUADLIB_U64_SUB1(x) (x - y) +#define QUADLIB_I64_SUB1_EQ(x) x-- +#define QUADLIB_U64_SUB1_EQ(x) x-- + +#endif /* QUADLIB_ENABLED */ + +/*****************************************************************************/ +/* NEG */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +#define QUADLIB_I64_NEG(x) QuadLibI64Neg(x) +#define QUADLIB_U64_NEG(x) QuadLibU64Neg(x) + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64Neg (QUADLIB_U64 x); + +#else /* not QUADLIB_ENABLED */ + +#define QUADLIB_I64_NEG(x) (-x) +#define QUADLIB_U64_NEG(x) (-x) + +#endif /* QUADLIB_ENABLED */ + +#define QuadLibI64Neg(x) QuadLibU64Neg(x) + +/*****************************************************************************/ +/* ABS */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +#define QUADLIB_I64_ABS(x) QuadLibI64Abs(x) +#define QUADLIB_U64_ABS(x) QuadLibU64Abs(x) + +#else /* not QUADLIB_ENABLED */ + +#define QUADLIB_I64_ABS(x) ((x) >= 0 ? (x) : -(x)) +#define QUADLIB_U64_ABS(x) ((x) >= 0 ? (x) : -(x)) + +#endif /* QUADLIB_ENABLED */ + +#define QuadLibI64Abs(x) QuadLibU64Abs(x) + +/* quad abs function always defined */ + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64Abs (QUADLIB_U64 x); + +/*****************************************************************************/ +/* CMP */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +#define QUADLIB_I64_EQ(x,y) QuadLibI64EQ(x,y) +#define QUADLIB_I64_NE(x,y) QuadLibI64NE(x,y) +#define QUADLIB_I64_GT(x,y) QuadLibI64GT(x,y) +#define QUADLIB_I64_GE(x,y) QuadLibI64GE(x,y) +#define QUADLIB_I64_LT(x,y) QuadLibI64LT(x,y) +#define QUADLIB_I64_LE(x,y) QuadLibI64LE(x,y) + +#define QUADLIB_U64_EQ(x,y) QuadLibU64EQ(x,y) +#define QUADLIB_U64_NE(x,y) QuadLibU64NE(x,y) +#define QUADLIB_U64_GT(x,y) QuadLibU64GT(x,y) +#define QUADLIB_U64_GE(x,y) QuadLibU64GE(x,y) +#define QUADLIB_U64_LT(x,y) QuadLibU64LT(x,y) +#define QUADLIB_U64_LE(x,y) QuadLibU64LE(x,y) + +#define QuadLibI64EQ(x,y) (QuadLibI64Cmp(x,y)==0) +#define QuadLibI64NE(x,y) (QuadLibI64Cmp(x,y)!=0) +#define QuadLibI64GT(x,y) (QuadLibI64Cmp(x,y)> 0) +#define QuadLibI64GE(x,y) (QuadLibI64Cmp(x,y)>=0) +#define QuadLibI64LT(x,y) (QuadLibI64Cmp(x,y)< 0) +#define QuadLibI64LE(x,y) (QuadLibI64Cmp(x,y)<=0) + +#define QuadLibU64EQ(x,y) (QuadLibU64Cmp(x,y)==0) +#define QuadLibU64NE(x,y) (QuadLibU64Cmp(x,y)!=0) +#define QuadLibU64GT(x,y) (QuadLibU64Cmp(x,y)> 0) +#define QuadLibU64GE(x,y) (QuadLibU64Cmp(x,y)>=0) +#define QuadLibU64LT(x,y) (QuadLibU64Cmp(x,y)< 0) +#define QuadLibU64LE(x,y) (QuadLibU64Cmp(x,y)<=0) + +QUADLIB_STATIC int32_t QuadLibU64Cmp ( + /*I*/ QUADLIB_U64 x, + /*I*/ QUADLIB_U64 y); + +QUADLIB_STATIC int32_t QuadLibI64Cmp ( + /*I*/ QUADLIB_I64 x, + /*I*/ QUADLIB_I64 y); + +#define QUADLIB_I64_EQ_0(x) (! QUADLIB_I64_NE_0(x)) +#define QUADLIB_I64_NE_0(x) (QUADLIB_U64_HI(x) | QUADLIB_U64_LO(x)) +#define QUADLIB_I64_GT_0(x) (QUADLIB_I64_GE_0(x) && QUADLIB_I64_NE_0(x)) +#define QUADLIB_I64_GE_0(x) (QUADLIB_I64_HI(x) >= 0) +#define QUADLIB_I64_LT_0(x) (QUADLIB_I64_HI(x) < 0) +#define QUADLIB_I64_LE_0(x) (QUADLIB_I64_LT_0(x) || QUADLIB_I64_EQ_0(x)) + +#define QUADLIB_U64_EQ_0(x) (! QUADLIB_U64_NE_0(x)) +#define QUADLIB_U64_NE_0(x) (QUADLIB_U64_HI(x) | QUADLIB_U64_LO(x)) +#define QUADLIB_U64_GT_0(x) (QUADLIB_U64_GE_0(x) && QUADLIB_U64_NE_0(x)) +#define QUADLIB_U64_GE_0(x) (QUADLIB_U64_HI(x) >= 0) + +#if 0 +#define QUADLIB_U64_LT_0(x) (QUADLIB_U64_HI(x) < 0) +#define QUADLIB_U64_LE_0(x) (QUADLIB_U64_LT_0(x) || QUADLIB_U64_EQ_0(x)) +#endif + +#else /* not QUADLIB_ENABLED */ + +#define QUADLIB_I64_EQ(x,y) ((x) == (y)) +#define QUADLIB_I64_NE(x,y) ((x) != (y)) +#define QUADLIB_I64_GT(x,y) ((x) > (y)) +#define QUADLIB_I64_GE(x,y) ((x) >= (y)) +#define QUADLIB_I64_LT(x,y) ((x) < (y)) +#define QUADLIB_I64_LE(x,y) ((x) <= (y)) + +#define QUADLIB_U64_EQ(x,y) ((x) == (y)) +#define QUADLIB_U64_NE(x,y) ((x) != (y)) +#define QUADLIB_U64_GT(x,y) ((x) > (y)) +#define QUADLIB_U64_GE(x,y) ((x) >= (y)) +#define QUADLIB_U64_LT(x,y) ((x) < (y)) +#define QUADLIB_U64_LE(x,y) ((x) <= (y)) + +#define QUADLIB_I64_EQ_0(x) ((x) == 0) +#define QUADLIB_I64_NE_0(x) ((x) != 0) +#define QUADLIB_I64_GT_0(x) ((x) > 0) +#define QUADLIB_I64_GE_0(x) ((x) >= 0) +#define QUADLIB_I64_LT_0(x) ((x) < 0) +#define QUADLIB_I64_LE_0(x) ((x) <= 0) + +#define QUADLIB_U64_EQ_0(x) ((x) == 0) +#define QUADLIB_U64_NE_0(x) ((x) != 0) +#define QUADLIB_U64_GT_0(x) ((x) > 0) +#define QUADLIB_U64_GE_0(x) ((x) >= 0) + +#if 0 +#define QUADLIB_U64_LT_0(x) ((x) < 0) +#define QUADLIB_U64_LE_0(x) ((x) <= 0) +#endif + +#endif /* QUADLIB_ENABLED */ + + +/*****************************************************************************/ +/* I32 OVERFLOW CHECK */ +/*****************************************************************************/ + + +#define QUADLIB_I64_NOT_OVERFLOW_I32(x) \ + ( ((QUADLIB_I64_HI(x) == 0) && (QUADLIB_I64_LO(x) >= 0)) \ + || ((QUADLIB_I64_HI(x) == -1) && (QUADLIB_I64_LO(x) < 0)) ) /**/ + + +#define QUADLIB_I64_OVERFLOW_I32(x) (! QUADLIB_I64_NOT_OVERFLOW_I32(x)) + + +#define QUADLIB_U64_NOT_OVERFLOW_I32(x) \ + ((QUADLIB_I64_HI(x) == 0) && (QUADLIB_I64_LO(x) >= 0)) /**/ + + +#define QUADLIB_U64_OVERFLOW_I32(x) (! QUADLIB_U64_NOT_OVERFLOW_I32(x)) + + +#define QUADLIB_I64_OVERFLOW_U32(x) (QUADLIB_I64_HI(x) != 0) +#define QUADLIB_U64_OVERFLOW_U32(x) (QUADLIB_I64_HI(x) != 0) + + +/*****************************************************************************/ +/* SHL */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +#define QUADLIB_I64_SHL(x,n) QuadLibU64SHL(x,n) +#define QUADLIB_U64_SHL(x,n) QuadLibU64SHL(x,n) + +#define QUADLIB_I64_SHL1(x) QuadLibU64SHL1(x) +#define QUADLIB_U64_SHL1(x) QuadLibU64SHL1(x) + +#define QUADLIB_I64_SHL4(x) QuadLibU64SHL4(x) +#define QUADLIB_U64_SHL4(x) QuadLibU64SHL4(x) + +#define QUADLIB_I64_SHL_EQ(x,n) x = QUADLIB_I64_SHL(x,n) +#define QUADLIB_U64_SHL_EQ(x,n) x = QUADLIB_U64_SHL(x,n) + +#define QUADLIB_I64_SHL1_EQ(x) x = QUADLIB_I64_SHL1(x) +#define QUADLIB_U64_SHL1_EQ(x) x = QUADLIB_U64_SHL1(x) + +#define QUADLIB_I64_SHL4_EQ(x) x = QUADLIB_I64_SHL4(x) +#define QUADLIB_U64_SHL4_EQ(x) x = QUADLIB_U64_SHL4(x) + +#define QUADLIB_I64_SHL1_EQ_INLINE(x) QUADLIB_U64_SHL1_EQ_INLINE(x) + + +#define QUADLIB_U64_SHL1_EQ_INLINE(x) \ + { \ + x.hi.u <<= 1; \ + if (x.lo.i < 0) \ + { \ + x.hi.u++; \ + } \ + x.lo.u <<= 1; \ + } /**/ + + +#define QUADLIB_I64_SHL4_EQ_INLINE(x) QUADLIB_U64_SHL4_EQ_INLINE(x) + + +#define QUADLIB_U64_SHL4_EQ_INLINE(x) \ + { \ + x.hi.u = (x.hi.u << 4) | (x.lo.u >> 28); \ + x.lo.u <<= 4; \ + } /**/ + + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64SHL ( + QUADLIB_U64 /*I*/ value, + int32_t /*I*/ shift); + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64SHL1 ( + QUADLIB_U64 /*I*/ value); + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64SHL4 ( + QUADLIB_U64 /*I*/ value); + +#else /* not QUADLIB_ENABLED */ + +#define QUADLIB_I64_SHL(x,n) ((x) << n) +#define QUADLIB_U64_SHL(x,n) ((x) << n) + +#define QUADLIB_I64_SHL1(x) ((x) << 1) +#define QUADLIB_U64_SHL1(x) ((x) << 1) + +#define QUADLIB_I64_SHL4(x) ((x) << 4) +#define QUADLIB_U64_SHL4(x) ((x) << 4) + +#define QUADLIB_I64_SHL_EQ(x,n) x = ((x) << n) +#define QUADLIB_U64_SHL_EQ(x,n) x = ((x) << n) + +#define QUADLIB_I64_SHL1_EQ(x) x <<= 1 +#define QUADLIB_U64_SHL1_EQ(x) x <<= 1 + +#define QUADLIB_I64_SHL1_EQ_INLINE(x) QUADLIB_I64_SHL1_EQ(x) +#define QUADLIB_U64_SHL1_EQ_INLINE(x) QUADLIB_U64_SHL1_EQ(x) + +#define QUADLIB_I64_SHL4_EQ(x) x <<= 4 +#define QUADLIB_U64_SHL4_EQ(x) x <<= 4 + +#define QUADLIB_I64_SHL4_EQ_INLINE(x) QUADLIB_I64_SHL4_EQ(x) +#define QUADLIB_U64_SHL4_EQ_INLINE(x) QUADLIB_U64_SHL4_EQ(x) + +#endif /* QUADLIB_ENABLED */ + +/*****************************************************************************/ +/* SHR */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +#define QUADLIB_I64_SHR(x,n) QuadLibI64SHR(x,n) +#define QUADLIB_U64_SHR(x,n) QuadLibU64SHR(x,n) + +#define QUADLIB_I64_SHR1(x) QuadLibI64SHR1(x) +#define QUADLIB_U64_SHR1(x) QuadLibU64SHR1(x) + +#define QUADLIB_I64_SHR4(x) QuadLibI64SHR4(x) +#define QUADLIB_U64_SHR4(x) QuadLibU64SHR4(x) + +#define QUADLIB_I64_SHR_EQ(x,n) x = QUADLIB_I64_SHR(x,n) +#define QUADLIB_U64_SHR_EQ(x,n) x = QUADLIB_U64_SHR(x,n) + +#define QUADLIB_I64_SHR1_EQ(x) x = QUADLIB_I64_SHR1(x) +#define QUADLIB_U64_SHR1_EQ(x) x = QUADLIB_U64_SHR1(x) + +#define QUADLIB_I64_SHR4_EQ(x) x = QUADLIB_I64_SHR4(x) +#define QUADLIB_U64_SHR4_EQ(x) x = QUADLIB_U64_SHR4(x) + + +#define QUADLIB_I64_SHR1_EQ_INLINE(x) \ + { \ + x.lo.u >>= 1; \ + if (x.hi.u & 1) \ + { \ + x.lo.u |= QUADLIB_U32_HIGHBIT; \ + } \ + x.hi.i >>= 1; /* signed */ \ + } /**/ + + +#define QUADLIB_U64_SHR1_EQ_INLINE(x) \ + { \ + x.lo.u >>= 1; \ + if (x.hi.u & 1) \ + { \ + x.lo.u |= QUADLIB_U32_HIGHBIT; \ + } \ + x.hi.u >>= 1; /* unsigned */ \ + } /**/ + + +#define QUADLIB_I64_SHR4_EQ_INLINE(x) \ + { \ + x.lo.u = (x.lo.u >> 4) | (x.hi.u << 28); \ + x.hi.i >>= 4; /* signed */ \ + } /**/ + + +#define QUADLIB_U64_SHR4_EQ_INLINE(x) \ + { \ + x.lo.u = (x.lo.u >> 4) | (x.hi.u << 28); \ + x.hi.u >>= 4; /* unsigned */ \ + } /**/ + + +QUADLIB_STATIC QUADLIB_I64 QuadLibI64SHR ( + QUADLIB_U64 /*I*/ value, + int32_t /*I*/ shift); + +QUADLIB_STATIC QUADLIB_I64 QuadLibI64SHR1 ( + QUADLIB_U64 /*I*/ value); + +QUADLIB_STATIC QUADLIB_I64 QuadLibI64SHR4 ( + QUADLIB_U64 /*I*/ value); + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64SHR ( + QUADLIB_U64 /*I*/ value, + int32_t /*I*/ shift); + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64SHR1 ( + QUADLIB_U64 /*I*/ value); + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64SHR4 ( + QUADLIB_U64 /*I*/ value); + +#else /* not QUADLIB_ENABLED */ + +#define QUADLIB_I64_SHR(x,n) ((QUADLIB_I64)x) >> n +#define QUADLIB_U64_SHR(x,n) ((QUADLIB_U64)x) >> n + +#define QUADLIB_I64_SHR1(x) ((QUADLIB_I64)x) >> 1 +#define QUADLIB_U64_SHR1(x) ((QUADLIB_U64)x) >> 1 + +#define QUADLIB_I64_SHR4(x) ((QUADLIB_I64)x) >> 4 +#define QUADLIB_U64_SHR4(x) ((QUADLIB_U64)x) >> 4 + +#define QUADLIB_I64_SHR_EQ(x,n) x = ((QUADLIB_I64)x) >> n +#define QUADLIB_U64_SHR_EQ(x,n) x = ((QUADLIB_U64)x) >> n + +#define QUADLIB_I64_SHR1_EQ(x) x = ((QUADLIB_I64)x) >> 1 +#define QUADLIB_U64_SHR1_EQ(x) x = ((QUADLIB_U64)x) >> 1 + +#define QUADLIB_I64_SHR4_EQ(x) x = ((QUADLIB_I64)x) >> 4 +#define QUADLIB_U64_SHR4_EQ(x) x = ((QUADLIB_U64)x) >> 4 + +#define QUADLIB_I64_SHR1_EQ_INLINE(x) QUADLIB_I64_SHR1_EQ(x) +#define QUADLIB_U64_SHR1_EQ_INLINE(x) QUADLIB_U64_SHR1_EQ(x) + +#define QUADLIB_I64_SHR4_EQ_INLINE(x) QUADLIB_I64_SHR4_EQ(x) +#define QUADLIB_U64_SHR4_EQ_INLINE(x) QUADLIB_U64_SHR4_EQ(x) + +#endif /* QUADLIB_ENABLED */ + +/*****************************************************************************/ +/* CONVERT */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +#define QUADLIB_I64_CASTI64N(x) QuadLibI64CastI64N(&x,sizeof(x)) +#define QUADLIB_U64_CASTU64N(x) QuadLibU64CastU64N(&x,sizeof(x)) + +QUADLIB_STATIC QUADLIB_I64 QuadLibI64CastI64N(void * x, size_t n); +QUADLIB_STATIC QUADLIB_U64 QuadLibU64CastU64N(void * x, size_t n); + +#define QUADLIB_I64N_CASTI64(x) QuadLibI64NCastI64(x) +#define QUADLIB_U64N_CASTU64(x) QuadLibU64NCastU64(x) + +QUADLIB_STATIC QUADLIB_I64N QuadLibI64NCastI64(QUADLIB_I64 x); +QUADLIB_STATIC QUADLIB_U64N QuadLibU64NCastU64(QUADLIB_U64 x); + + +#else /* not QUADLIB_ENABLED */ + +#define QUADLIB_I64_CASTI64N(x) ((QUADLIB_I64)x) +#define QUADLIB_U64_CASTU64N(x) ((QUADLIB_U64)x) +#define QUADLIB_I64N_CASTI64(x) ((QUADLIB_I64N)x) +#define QUADLIB_U64N_CASTU64(x) ((QUADLIB_U64N)x) + +#endif /* QUADLIB_ENABLED */ + + +/*****************************************************************************/ +/* CAST */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +#define QUADLIB_I64_CASTI32(x) QuadLibI64CastI32((int32_t)x) +#define QUADLIB_I64_CASTU32(x) QuadLibI64CastI32((uint32_t)x) + +QUADLIB_STATIC QUADLIB_I64 QuadLibI64CastI32 (int32_t x); + +#define QUADLIB_U64_CASTU32(x) QuadLibU64CastU32((uint32_t)x) +#define QUADLIB_U64_CASTI32(x) QuadLibU64CastU32((int32_t)x) + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64CastU32 (uint32_t x); + +#define QUADLIB_I32_CASTI64(x) QuadLibI32CastI64(x) +#define QUADLIB_U32_CASTI64(x) ((QUADLIB_U64) QuadLibI32CastI64(x)) + +QUADLIB_STATIC int32_t QuadLibI32CastI64 (QUADLIB_I64 x); + +#define QUADLIB_U32_CASTU64(x) QuadLibU32CastU64(x) +#define QUADLIB_I32_CASTU64(x) ((int32_t) QuadLibU32CastU64(x)) + +QUADLIB_STATIC uint32_t QuadLibU32CastU64 (QUADLIB_U64 x); + +#else /* not QUADLIB_ENABLED */ + +#define QUADLIB_I64_CASTI32(x) ((QUADLIB_I64) (x)) +#define QUADLIB_I64_CASTU32(x) ((QUADLIB_I64) (x)) + +#define QUADLIB_U64_CASTI32(x) ((QUADLIB_U64) (x)) +#define QUADLIB_U64_CASTU32(x) ((QUADLIB_U64) (x)) + +#define QUADLIB_I32_CASTI64(x) ((int32_t) (x)) +#define QUADLIB_I32_CASTU64(x) ((int32_t) (x)) + +#define QUADLIB_U32_CASTI64(x) ((uint32_t) (x)) +#define QUADLIB_U32_CASTU64(x) ((uint32_t) (x)) + +#endif /* QUADLIB_ENABLED */ + +/*****************************************************************************/ +/* GET/SET */ +/*****************************************************************************/ + +#define QUADLIB_I64_HI(x) (*(QUADLIB_I64_TYPE *)(&x)).hi.i +#define QUADLIB_U64_HI(x) (*(QUADLIB_U64_TYPE *)(&x)).hi.u +#define QUADLIB_I64_LO(x) (*(QUADLIB_I64_TYPE *)(&x)).lo.i +#define QUADLIB_U64_LO(x) (*(QUADLIB_U64_TYPE *)(&x)).lo.u + +#define FILETIME_TO_QUADLIB_I64 FILETIME_TO_QUADLIB_U64 + + +#define FILETIME_TO_QUADLIB_U64(f,q) \ + (*(QUADLIB_U64_TYPE *)(q)).lo.u = (f)->dwLowDateTime; \ + (*(QUADLIB_U64_TYPE *)(q)).hi.u = (f)->dwHighDateTime /**/ + + +#define QUADLIB_I64_TO_FILETIME QUADLIB_U64_TO_FILETIME + + +#define QUADLIB_U64_TO_FILETIME(q,f) \ + (f)->dwLowDateTime = (*(QUADLIB_U64_TYPE *)(q)).lo.u; \ + (f)->dwHighDateTime = (*(QUADLIB_U64_TYPE *)(q)).hi.u /**/ + + +/*****************************************************************************/ +/* MUL */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +#define QUADLIB_I64_MUL(x,y) QuadLibI64Mul(x,y) +#define QUADLIB_U64_MUL(x,y) QuadLibU64Mul(x,y) +#define QUADLIB_I64_MUL_EQ(x,y) x = QuadLibI64Mul(x,y) +#define QUADLIB_U64_MUL_EQ(x,y) x = QuadLibU64Mul(x,y) + +#define QUADLIB_I64_MUL10(x) QuadLibI64Mul10(x) +#define QUADLIB_U64_MUL10(x) QuadLibU64Mul10(x) +#define QUADLIB_I64_MUL10_EQ(x) x = QuadLibI64Mul10(x) +#define QUADLIB_U64_MUL10_EQ(x) x = QuadLibU64Mul10(x) + +#define QuadLibI64Mul(x,y) QuadLibU64Mul(x,y) +#define QuadLibI64Mul10(x) QuadLibU64Mul10(x) + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64Mul ( + QUADLIB_U64 /*I*/ one, + QUADLIB_U64 /*I*/ two); + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64Mul10 ( + QUADLIB_U64 /*I*/ x); + +#else /* not QUADLIB_ENABLED */ + +#define QUADLIB_I64_MUL(x,y) (x * y) +#define QUADLIB_U64_MUL(x,y) (x * y) +#define QUADLIB_I64_MUL_EQ(x,y) x *= y +#define QUADLIB_U64_MUL_EQ(x,y) x *= y + +#define QUADLIB_I64_MUL10(x) (x * ((QUADLIB_I64) 10)) +#define QUADLIB_U64_MUL10(x) (x * ((QUADLIB_U64) 10)) +#define QUADLIB_I64_MUL10_EQ(x) x *= ((QUADLIB_I64) 10) +#define QUADLIB_U64_MUL10_EQ(x) x *= ((QUADLIB_U64) 10) + +#endif /* QUADLIB_ENABLED */ + +/*****************************************************************************/ +/* STR TO I64/U64 */ +/*****************************************************************************/ + +QUADLIB_STATIC QUADLIB_I64 StrAToQuadLibI64 ( + char * /*I*/ str); + +QUADLIB_STATIC QUADLIB_U64 StrAToQuadLibU64 ( + char * /*I*/ str); + +#ifdef QUADLIB_NATIVE64_ENABLED + +#define QUADLIB_I64_NUM(x) (x) +#define QUADLIB_U64_NUM(x) (x) + +#else /* not QUADLIB_NATIVE64_ENABLED */ + +#define QUADLIB_I64_NUM(x) StrAToQuadLibI64 (#x) +#define QUADLIB_U64_NUM(x) StrAToQuadLibU64 (#x) + +#endif /* QUADLIB_NATIVE64_ENABLED */ + + +/*****************************************************************************/ +/* I64/U64 TO STR */ +/*****************************************************************************/ + + +QUADLIB_STATIC void QuadLibU64ToFixedStrA ( + QUADLIB_U64 /*I*/ qValue, + QUADLIB_STRINGA * /*O*/ pString); + + +QUADLIB_STATIC void QuadLibI64ToFixedStrA ( + QUADLIB_I64 /*I*/ qValue, + QUADLIB_STRINGA * /*O*/ pString); + + +QUADLIB_STATIC void QuadLibU64ToStrA ( + QUADLIB_U64 /*I*/ qValue, + QUADLIB_STRINGA * /*O*/ pString); + + +QUADLIB_STATIC void QuadLibI64ToStrA ( + QUADLIB_I64 /*I*/ qValue, + QUADLIB_STRINGA * /*O*/ pString); + + +/*****************************************************************************/ +/* DIV/MOD */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +#define QUADLIB_I64_DIV(x,y) QuadLibI64Div(x,y) +#define QUADLIB_U64_DIV(x,y) QuadLibU64Div(x,y) +#define QUADLIB_I64_DIV_EQ(x,y) x = QuadLibI64Div(x,y) +#define QUADLIB_U64_DIV_EQ(x,y) x = QuadLibU64Div(x,y) + +#define QUADLIB_I64_MOD(x,y) QuadLibI64Mod(x,y) +#define QUADLIB_U64_MOD(x,y) QuadLibU64Mod(x,y) +#define QUADLIB_I64_MOD_EQ(x,y) x = QuadLibI64Mod(x,y) +#define QUADLIB_U64_MOD_EQ(x,y) x = QuadLibU64Mod(x,y) + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64DivMod ( + QUADLIB_U64 u64Dividend, + QUADLIB_U64 u64Divisor, + QUADLIB_U64 *pu64Remainder); + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64Div ( + QUADLIB_U64 u64Dividend, + QUADLIB_U64 u64Divisor); + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64Mod ( + QUADLIB_U64 u64Dividend, + QUADLIB_U64 u64Divisor); + +QUADLIB_STATIC QUADLIB_I64 QuadLibI64DivMod ( + QUADLIB_I64 s64Dividend, + QUADLIB_I64 s64Divisor, + QUADLIB_I64 *ps64Remainder); + +QUADLIB_STATIC QUADLIB_I64 QuadLibI64Div ( + QUADLIB_I64 s64Dividend, + QUADLIB_I64 s64Divisor); + +QUADLIB_STATIC QUADLIB_I64 QuadLibI64Mod ( + QUADLIB_I64 s64Dividend, + QUADLIB_I64 s64Divisor); + +#else /* not QUADLIB_ENABLED */ + +#define QUADLIB_I64_DIV(x,y) (x / y) +#define QUADLIB_U64_DIV(x,y) (x / y) +#define QUADLIB_I64_DIV_EQ(x,y) x /= y +#define QUADLIB_U64_DIV_EQ(x,y) x /= y + +#define QUADLIB_I64_MOD(x,y) (x % y) +#define QUADLIB_U64_MOD(x,y) (x % y) +#define QUADLIB_I64_MOD_EQ(x,y) x %= y +#define QUADLIB_U64_MOD_EQ(x,y) x %= y + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64DivMod ( + QUADLIB_U64 u64Dividend, + QUADLIB_U64 u64Divisor, + QUADLIB_U64 *pu64Remainder); + +QUADLIB_STATIC QUADLIB_I64 QuadLibI64DivMod ( + QUADLIB_I64 s64Dividend, + QUADLIB_I64 s64Divisor, + QUADLIB_I64 *ps64Remainder); + +#endif /* QUADLIB_ENABLED */ + +/*****************************************************************************/ +/* END */ +/*****************************************************************************/ + +#ifdef __cplusplus +} +#endif + + +#endif /* _STDTIME_QUADLIB_H_B07CB807_8BFC_41B3_872E_EDD251FD6AEB_ */ + diff --git a/include/inc/stdtime_stdint.h b/include/inc/stdtime_stdint.h new file mode 100644 index 0000000..8aab3e8 --- /dev/null +++ b/include/inc/stdtime_stdint.h @@ -0,0 +1,237 @@ +/*****************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER **********************************************/ +/*****************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2005 All Rights Reserved */ +/* */ +/* MODULE NAME : stdint.h */ +/* PLATFORM : Microsoft Windows W32 platform */ +/* PRODUCT(S) : general usage */ +/* */ +/* MODULE DESCRIPTION: */ +/* Implementation of C99 standard header file "stdint.h" */ +/* */ +/* Implementation is based on ISO/IEC 9899:1999 TC2 Programming Language C */ +/* */ +/* MODIFICATION LOG: */ +/* Date Who Rev Comments */ +/* -------- --- --- ----------------------------------------------------- */ +/* 06/07/06 RLH 02 Numerous features added, see stdtime.doc */ +/* 02/25/06 RLH 01 Created */ +/*****************************************************************************/ + +/* STDINT.H for Microsoft Windows */ + + +#ifndef _STDTIME_STDINT_H_1BA49070_CC19_4880_8283_69F38C4F8F59_ +#define _STDTIME_STDINT_H_1BA49070_CC19_4880_8283_69F38C4F8F59_ + + +#include +#include +#include + +#ifdef __cplusplus +extern "C" { +#endif +#if 1 /*defined() */ +/* +// typedef int8_t char; +// typedef int16_t short; +// typedef int32_t int; + +// typedef uint8_t unsigned char; +// typedef uint16_t unsigned short ; +// typedef uint32_t unsigned int; +*/ +/* exact-wide integer types */ + +typedef __int8 int8_t; +typedef __int16 int16_t; +typedef __int32 int32_t; +typedef __int64 int64_t; + +typedef unsigned __int8 uint8_t; +typedef unsigned __int16 uint16_t; +typedef unsigned __int32 uint32_t; +typedef unsigned __int64 uint64_t; + +/* minimum-wide integer types */ + +typedef __int8 int_least8_t; +typedef __int16 int_least16_t; +typedef __int32 int_least32_t; +typedef __int64 int_least64_t; + +typedef unsigned __int8 uint_least8_t; +typedef unsigned __int16 uint_least16_t; +typedef unsigned __int32 uint_least32_t; +typedef unsigned __int64 uint_least64_t; + +/* fastest minimum-wide integer types */ + +typedef __int8 int_fast8_t; +typedef __int16 int_fast16_t; +typedef __int32 int_fast32_t; +typedef __int64 int_fast64_t; + +typedef unsigned __int8 uint_fast8_t; +typedef unsigned __int16 uint_fast16_t; +typedef unsigned __int32 uint_fast32_t; +typedef unsigned __int64 uint_fast64_t; + +/* integer types capable of holding object pointers */ + +/* intptr_t, uintptr_t : see stddef.h */ + +/* greatest-width integer types */ + +typedef __int64 intmax_t; +typedef unsigned __int64 uintmax_t; + +#endif +/* macros for limits of exact-width integer types */ +/* only define in C++ if user-requested per C99 standard */ + +#if (!defined(__cplusplus)) || defined(__STDC_LIMIT_MACROS) + +/* fundamental limits : see limits.h */ + +#define INT8_MIN ((int8_t)(SCHAR_MIN)) +#define INT8_MAX ((int8_t)(SCHAR_MAX)) +#define UINT8_MAX ((uint8_t)(UCHAR_MAX)) + +#define INT16_MIN ((int16_t)(SHRT_MIN)) +#define INT16_MAX ((int16_t)(SHRT_MAX)) +#define UINT16_MAX ((uint16_t)(USHRT_MAX)) + +#define INT32_MIN ((int32_t)(INT_MIN)) +#define INT32_MAX ((int32_t)(INT_MAX)) +#define UINT32_MAX ((uint32_t)(UINT_MAX)) + +#define INT64_MIN ((int64_t)(_I64_MIN)) +#define INT64_MAX ((int64_t)(_I64_MAX)) +#define UINT64_MAX ((uint64_t)(_UI64_MAX)) + +/* limits of minimum-width integer types */ + +#define INT_LEAST8_MIN INT8_MIN +#define INT_LEAST8_MAX INT8_MAX +#define UINT_LEAST8_MAX UINT8_MAX + +#define INT_LEAST16_MIN INT16_MIN +#define INT_LEAST16_MAX INT16_MAX +#define UINT_LEAST16_MAX UINT16_MAX + +#define INT_LEAST32_MIN INT32_MIN +#define INT_LEAST32_MAX INT32_MAX +#define UINT_LEAST32_MAX UINT32_MAX + +#define INT_LEAST64_MIN INT64_MIN +#define INT_LEAST64_MAX INT64_MAX +#define UINT_LEAST64_MAX UINT64_MAX + +/* limits of fastest minimum-width integer types */ + +#define INT_FAST8_MIN INT8_MIN +#define INT_FAST8_MAX INT8_MAX +#define UINT_FAST8_MAX UINT8_MAX + +#define INT_FAST16_MIN INT16_MIN +#define INT_FAST16_MAX INT16_MAX +#define UINT_FAST16_MAX UINT16_MAX + +#define INT_FAST32_MIN INT32_MIN +#define INT_FAST32_MAX INT32_MAX +#define UINT_FAST32_MAX UINT32_MAX + +#define INT_FAST64_MIN INT64_MIN +#define INT_FAST64_MAX INT64_MAX +#define UINT_FAST64_MAX UINT64_MAX + +/* limits of greatest-width integer types */ + +#define INTMAX_MIN INT64_MIN +#define INTMAX_MAX INT64_MAX +#define UINTMAX_MAX UINT64_MAX + +/* limits of other integer types */ + +#ifndef PTRDIFF_MIN +#ifdef _WIN64 +#define PTRDIFF_MIN INT64_MIN +#else +#define PTRDIFF_MIN INT32_MIN +#endif +#endif + +#ifndef PTRDIFF_MAX +#ifdef _WIN64 +#define PTRDIFF_MAX INT64_MAX +#else +#define PTRDIFF_MAX INT32_MAX +#endif +#endif + +#ifndef SIG_ATOMIC_MIN +#define SIG_ATOMIC_MIN INT32_MIN +#endif + +#ifndef SIG_ATOMIC_MAX +#define SIG_ATOMIC_MAX INT32_MAX +#endif + +#ifndef SIZE_MAX +#ifdef _WIN64 +#define SIZE_MAX UINT64_MAX +#else +#define SIZE_MAX UINT32_MAX +#endif +#endif + +#ifndef WCHAR_MIN +#define WCHAR_MIN ((wchar_t)(0)) +#endif + +#ifndef WCHAR_MAX +#define WCHAR_MAX ((wchar_t)(USHRT_MAX)) +#endif + +#ifndef WINT_MIN +#define WINT_MIN ((wint_t)(0)) +#endif + +#ifndef WINT_MAX +#define WINT_MAX ((wint_t)(USHRT_MAX)) +#endif + +#endif /* (!defined(__cplusplus)) || defined(__STDC_LIMIT_MACROS) */ + + +/* macros for minimum-width integer constants */ +/* only define in C++ if user-requested per C99 standard */ + +#if (!defined(__cplusplus)) || defined(__STDC_CONSTANT_MACROS) + +#define INT8_C(x) (int8_t)(x) +#define INT16_C(x) (int16_t)(x) +#define INT32_C(x) (int32_t)(x) +#define INT64_C(x) (int64_t)(x##i64) + +#define UINT8_C(x) (uint8_t)(x##u) +#define UINT16_C(x) (uint16_t)(x##u) +#define UINT32_C(x) (uint32_t)(x##u) +#define UINT64_C(x) (uint64_t)(x##ui64) + +#define INTMAX_C(x) INT64_C(x) +#define UINTMAX_C(x) UINT64_C(x) + +#endif /* (!defined(__cplusplus)) || defined(__STDC_CONSTANT_MACROS) */ + + +#ifdef __cplusplus +} +#endif + +#endif /* _STDTIME_STDINT_H_1BA49070_CC19_4880_8283_69F38C4F8F59_ */ + diff --git a/include/inc/stdtime_timezone_csv.h b/include/inc/stdtime_timezone_csv.h new file mode 100644 index 0000000..cdf2c26 --- /dev/null +++ b/include/inc/stdtime_timezone_csv.h @@ -0,0 +1,381 @@ +{{"ID;CC","STDABBR","STDNAME","DSTABBR","DSTNAME","GMToffset","DSTadjustment","DSTStartDaterule","Starttime","DSTEnddaterule","Endtime"}}, +{{"Africa/Abidjan;CI","GMT","GMT","","","+00:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Accra;GH","GMT","GMT","","","+00:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Addis_Ababa;ET","EAT","EAT","","","+03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Algiers;DZ","CET","CET","","","+01:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Asmera;ER","EAT","EAT","","","+03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Bamako;ML","GMT","GMT","","","+00:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Bangui;CF","WAT","WAT","","","+01:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Banjul;GM","GMT","GMT","","","+00:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Bissau;GW","GMT","GMT","","","+00:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Blantyre;MW","CAT","CAT","","","+02:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Brazzaville;CG","WAT","WAT","","","+01:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Bujumbura;BI","CAT","CAT","","","+02:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Cairo;EG","EET","EET","EEST","EEST","+02:00:00","+01:00:00","-1;5;4","+00:00:00","-1;5;9","+00:00:00"}}, +{{"Africa/Casablanca;MA","WET","WET","","","+00:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Ceuta;ES","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Africa/Conakry;GN","GMT","GMT","","","+00:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Dakar;SN","GMT","GMT","","","+00:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Dar_es_Salaam;TZ","EAT","EAT","","","+03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Djibouti;DJ","EAT","EAT","","","+03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Douala;CM","WAT","WAT","","","+01:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/El_Aaiun;EH","WET","WET","","","+00:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Freetown;SL","GMT","GMT","","","+00:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Gaborone;BW","CAT","CAT","","","+02:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Harare;ZW","CAT","CAT","","","+02:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Johannesburg;ZA","SAST","SAST","","","+02:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Kampala;UG","EAT","EAT","","","+03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Khartoum;SD","EAT","EAT","","","+03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Kigali;RW","CAT","CAT","","","+02:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Kinshasa;CF","WAT","WAT","","","+01:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Lagos;NG","WAT","WAT","","","+01:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Libreville;GA","WAT","WAT","","","+01:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Lome;TG","GMT","GMT","","","+00:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Luanda;AO","WAT","WAT","","","+01:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Lubumbashi;CF","CAT","CAT","","","+02:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Lusaka;ZM","CAT","CAT","","","+02:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Malabo;GQ","WAT","WAT","","","+01:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Maputo;MZ","CAT","CAT","","","+02:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Maseru;LS","SAST","SAST","","","+02:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Mbabane;SZ","SAST","SAST","","","+02:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Mogadishu;SO","EAT","EAT","","","+03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Monrovia;LR","GMT","GMT","","","+00:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Nairobi;KE","EAT","EAT","","","+03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Ndjamena;TD","WAT","WAT","","","+01:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Niamey;NE","WAT","WAT","","","+01:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Nouakchott;MR","GMT","GMT","","","+00:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Ouagadougou;BF","GMT","GMT","","","+00:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Porto-Novo;BJ","WAT","WAT","","","+01:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Sao_Tome;ST","GMT","GMT","","","+00:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Timbuktu;ML","GMT","GMT","","","+00:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Tripoli;LY","EET","EET","","","+02:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Tunis;TN","CET","CET","","","+01:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Windhoek;NA","WAT","WAT","WAST","WAST","+01:00:00","+01:00:00","1;0;9","+02:00:00","1;0;4","+02:00:00"}}, +{{"America/Adak;US/AK","HAST","HAST","HADT","HADT","-10:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Anchorage;US/AK","AKST","AKST","AKDT","AKDT","-09:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Anguilla;AI","AST","AST","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Antigua;AG","AST","AST","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Araguaina;BR","BRT","BRT","BRST","BRST","-03:00:00","+01:00:00","1;0;11","+00:00:00","-1;0;2","+00:00:00"}}, +{{"America/Aruba;AW","AST","AST","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Asuncion;PY","PYT","PYT","PYST","PYST","-04:00:00","+01:00:00","1;0;10","+00:00:00","1;0;3","+00:00:00"}}, +{{"America/Barbados;BB","AST","AST","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Belem;BR","BRT","BRT","","","-03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Belize;BZ","CST","CST","","","-06:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Boa_Vista;BR","AMT","AMT","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Bogota;CO","COT","COT","","","-05:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Boise;US/ID","MST","MST","MDT","MDT","-07:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Buenos_Aires;AR","ART","ART","","","-03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Cambridge_Bay;CA/NU","MST","MST","MDT","MDT","-07:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Cancun;MX","CST","CST","CDT","CDT","-06:00:00","+01:00:00","1;0;5","+02:00:00","-1;0;9","+02:00:00"}}, +{{"America/Caracas;VE","VET","VET","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Catamarca;AR","ART","ART","","","-03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Cayenne;GF","GFT","GFT","","","-03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Cayman;KY","EST","EST","","","-05:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Chicago;US/IL","CST","Central Standard Time","CDT","Central Daylight Time","-06:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Chihuahua;MX","MST","MST","MDT","MDT","-07:00:00","+01:00:00","1;0;5","+02:00:00","-1;0;9","+02:00:00"}}, +{{"America/Cordoba;AR","ART","ART","","","-03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Costa_Rica;CR","CST","CST","","","-06:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Cuiaba;BR","AMT","AMT","AMST","AMST","-04:00:00","+01:00:00","1;0;11","+00:00:00","-1;0;2","+00:00:00"}}, +{{"America/Curacao;AN","AST","AST","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Danmarkshavn;GL","GMT","GMT","","","+00:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Dawson;CA/YT","PST","PST","PDT","PDT","-08:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Dawson_Creek;CA/BC","MST","MST","","","-07:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Denver;US/CO","MST","Mountain Standard Time","MDT","Mountain Daylight Time","-07:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Detroit;US/MI","EST","EST","EDT","EDT","-05:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Dominica;DM","AST","AST","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Edmonton;CA/AB","MST","MST","MDT","MDT","-07:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Eirunepe;BR","ACT","ACT","","","-05:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/El_Salvador;SV","CST","CST","","","-06:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Fortaleza;BR","BRT","BRT","BRST","BRST","-03:00:00","+01:00:00","1;0;11","+00:00:00","-1;0;2","+00:00:00"}}, +{{"America/Glace_Bay;CA/NS","AST","AST","ADT","ADT","-04:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Godthab;GL","WGT","WGT","WGST","WGST","-03:00:00","+01:00:00","-1;6;3","+22:00:00","-1;6;10","+23:00:00"}}, +{{"America/Goose_Bay;CA/NL","AST","AST","ADT","ADT","-04:00:00","+01:00:00","1;0;4","+00:01:00","-1;0;10","+00:01:00"}}, +{{"America/Grand_Turk;TC","EST","EST","EDT","EDT","-05:00:00","+01:00:00","1;0;4","+00:00:00","-1;0;10","+00:00:00"}}, +{{"America/Grenada;GD","AST","AST","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Guadeloupe;GP","AST","AST","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Guatemala;GT","CST","CST","","","-06:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Guayaquil;EC","ECT","ECT","","","-05:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Guyana;GY","GYT","GYT","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Halifax;CA/NS","AST","AST","ADT","ADT","-04:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Havana;CU","CST","CST","CDT","CDT","-05:00:00","+01:00:00","1;0;4","+00:00:00","-1;0;10","+01:00:00"}}, +{{"America/Hermosillo;MX","MST","MST","","","-07:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Indiana/Indianapolis;US/IN","EST","EST","","","-05:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Indiana/Knox;US/IN","EST","EST","","","-05:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Indiana/Marengo;US/IN","EST","EST","","","-05:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Indiana/Vevay;US/IN","EST","EST","","","-05:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Indianapolis;US/IN","EST","EST","","","-05:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Inuvik;CA/NT","MST","MST","MDT","MDT","-07:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Iqaluit;CA/NU","EST","EST","EDT","EDT","-05:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Jamaica;JM","EST","EST","","","-05:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Jujuy;AR","ART","ART","","","-03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Juneau;US/AK","AKST","AKST","AKDT","AKDT","-09:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Kentucky/Louisville;US/KY","EST","EST","EDT","EDT","-05:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Kentucky/Monticello;US/KY","EST","EST","EDT","EDT","-05:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/La_Paz;BO","BOT","BOT","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Lima;PE","PET","PET","","","-05:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Los_Angeles;US/CA","PST","Pacific Standard Time","PDT","Pacific Daylight Time","-08:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Louisville;US/KY","EST","EST","EDT","EDT","-05:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Maceio;BR","BRT","BRT","BRST","BRST","-03:00:00","+01:00:00","1;0;11","+00:00:00","-1;0;2","+00:00:00"}}, +{{"America/Managua;NI","CST","CST","","","-06:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Manaus;BR","AMT","AMT","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Martinique;MQ","AST","AST","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Mazatlan;MX","MST","MST","MDT","MDT","-07:00:00","+01:00:00","1;0;5","+02:00:00","-1;0;9","+02:00:00"}}, +{{"America/Mendoza;AR","ART","ART","","","-03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Menominee;US/MI","CST","CST","CDT","CDT","-06:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Merida;MX","CST","CST","CDT","CDT","-06:00:00","+01:00:00","1;0;5","+02:00:00","-1;0;9","+02:00:00"}}, +{{"America/Mexico_City;MX","CST","CST","","","-06:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Miquelon;PM","PMST","PMST","PMDT","PMDT","-03:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Monterrey;MX","CST","CST","CDT","CDT","-06:00:00","+01:00:00","1;0;5","+02:00:00","-1;0;9","+02:00:00"}}, +{{"America/Montevideo;UY","UYT","UYT","","","-03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Montreal;CA/QC","EST","EST","EDT","EDT","-05:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Montserrat;MS","AST","AST","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Nassau;BS","EST","EST","EDT","EDT","-05:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/New_York;US/NY","EST","Eastern Standard Time","EDT","Eastern Daylight Time","-05:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Nipigon;CA/ON","EST","EST","EDT","EDT","-05:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Nome;US/AK","AKST","AKST","AKDT","AKDT","-09:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Noronha;BR","FNT","FNT","","","-02:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/North_Dakota/Center;US/ND","CST","CST","CDT","CDT","-06:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Panama;PA","EST","EST","","","-05:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Pangnirtung;CA/NU","EST","EST","EDT","EDT","-05:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Paramaribo;SR","SRT","SRT","","","-03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Phoenix;US/AZ","MST","Mountain Standard Time","","","-07:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Port-au-Prince;HT","EST","EST","","","-05:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Port_of_Spain;TT","AST","AST","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Porto_Velho;BR","AMT","AMT","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Puerto_Rico;PR","AST","AST","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Rainy_River;CA/ON","CST","CST","CDT","CDT","-06:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Rankin_Inlet;CA/NU","CST","CST","CDT","CDT","-06:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Recife;BR","BRT","BRT","BRST","BRST","-03:00:00","+01:00:00","1;0;11","+00:00:00","-1;0;2","+00:00:00"}}, +{{"America/Regina;CA/SK","CST","CST","","","-06:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Rio_Branco;BR","ACT","ACT","","","-05:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Rosario;AR","ART","ART","","","-03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Santiago;CL","CLT","CLT","CLST","CLST","-04:00:00","+01:00:00","+9;0;10","+00:00:00","+9;0;3","+00:00:00"}}, +{{"America/Santo_Domingo;DO","AST","AST","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Sao_Paulo;BR","BRT","BRT","BRST","BRST","-03:00:00","+01:00:00","1;0;11","+00:00:00","-1;0;2","+00:00:00"}}, +{{"America/Scoresbysund;GL","EGT","EGT","EGST","EGST","-01:00:00","+01:00:00","-1;0;3","+00:00:00","-1;0;10","+01:00:00"}}, +{{"America/Shiprock;US/NM","MST","MST","MDT","MDT","-07:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/St_Johns;CA/NL","NST","NST","NDT","NDT","-03:30:00","+01:00:00","1;0;4","+00:01:00","-1;0;10","+00:01:00"}}, +{{"America/St_Kitts;KN","AST","AST","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/St_Louis;US/MO","CST","Central Standard Time","CDT","Central Daylight Time","-06:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/St_Lucia;LC","AST","AST","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/St_Thomas;VI","AST","AST","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/St_Vincent;VC","AST","AST","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Swift_Current;CA/SK","CST","CST","","","-06:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Tegucigalpa;HN","CST","CST","","","-06:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Thule;GL","AST","AST","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Thunder_Bay;CA/ON","EST","EST","EDT","EDT","-05:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Tijuana;MX","PST","PST","PDT","PDT","-08:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Toronto;CA/ON","EST","EST","EDT","EDT","-05:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Tortola;VG","AST","AST","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Vancouver;CA/BC","PST","PST","PDT","PDT","-08:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Whitehorse;CA/YT","PST","PST","PDT","PDT","-08:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Winnipeg;CA/MB","CST","CST","CDT","CDT","-06:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+03:00:00"}}, +{{"America/Yakutat;US/AK","AKST","AKST","AKDT","AKDT","-09:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Yellowknife;CA/NT","MST","MST","MDT","MDT","-07:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"Antarctica/Casey;AQ","WST","WST","","","+08:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Antarctica/Davis;AQ","DAVT","DAVT","","","+07:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Antarctica/DumontDUrville;AQ","DDUT","DDUT","","","+10:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Antarctica/Mawson;AQ","MAWT","MAWT","","","+06:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Antarctica/McMurdo;AQ","NZST","NZST","NZDT","NZDT","+12:00:00","+01:00:00","1;0;10","+02:00:00","3;0;3","+03:00:00"}}, +{{"Antarctica/Palmer;AQ","CLT","CLT","CLST","CLST","-04:00:00","+01:00:00","2;0;10","+00:00:00","2;0;3","+00:00:00"}}, +{{"Antarctica/South_Pole;AQ","NZST","NZST","NZDT","NZDT","+12:00:00","+01:00:00","1;0;10","+02:00:00","3;0;3","+03:00:00"}}, +{{"Antarctica/Syowa;AQ","SYOT","SYOT","","","+03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Antarctica/Vostok;AQ","VOST","VOST","","","+06:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Arctic/Longyearbyen;SJ","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Asia/Aden;YE","AST","AST","","","+03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Almaty;KZ","ALMT","ALMT","ALMST","ALMST","+06:00:00","+01:00:00","-1;0;3","+00:00:00","-1;0;10","+00:00:00"}}, +{{"Asia/Amman;JO","EET","EET","EEST","EEST","+02:00:00","+01:00:00","-1;4;3","+00:00:00","-1;4;9","+01:00:00"}}, +{{"Asia/Anadyr;RU","ANAT","ANAT","ANAST","ANAST","+12:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Asia/Aqtau;KZ","AQTT","AQTT","AQTST","AQTST","+04:00:00","+01:00:00","-1;0;3","+00:00:00","-1;0;10","+00:00:00"}}, +{{"Asia/Aqtobe;KZ","AQTT","AQTT","AQTST","AQTST","+05:00:00","+01:00:00","-1;0;3","+00:00:00","-1;0;10","+00:00:00"}}, +{{"Asia/Ashgabat;TM","TMT","TMT","","","+05:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Baghdad;IQ","AST","AST","ADT","ADT","+03:00:00","+01:00:00","1;0;4","+03:00:00","1;0;10","+04:00:00"}}, +{{"Asia/Bahrain;BH","AST","AST","","","+03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Baku;AZ","AZT","AZT","AZST","AZST","+04:00:00","+01:00:00","-1;0;3","+01:00:00","-1;0;10","+01:00:00"}}, +{{"Asia/Bangkok;TH","ICT","ICT","","","+07:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Beirut;LB","EET","EET","EEST","EEST","+02:00:00","+01:00:00","-1;0;3","+00:00:00","-1;0;10","+00:00:00"}}, +{{"Asia/Bishkek;KG","KGT","KGT","KGST","KGST","+05:00:00","+01:00:00","-1;0;3","+02:30:00","-1;0;10","+02:30:00"}}, +{{"Asia/Brunei;BN","BNT","BNT","","","+08:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Calcutta;IN","IST","IST","","","+05:30:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Choibalsan;MN","CHOT","CHOT","","","+09:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Chongqing;CN","CST","CST","","","+08:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Colombo;LK","LKT","LKT","","","+06:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Damascus;SY","EET","EET","EEST","EEST","+02:00:00","+01:00:00","1;0;4","+00:00:00","1;0;10","+00:00:00"}}, +{{"Asia/Dhaka;BD","BDT","BDT","","","+06:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Dili;TP","TPT","TPT","","","+09:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Dubai;AE","GST","GST","","","+04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Dushanbe;TJ","TJT","TJT","","","+05:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Gaza;PS","EET","EET","EEST","EEST","+02:00:00","+01:00:00","3;5;4","+00:00:00","3;5;10","+00:00:00"}}, +{{"Asia/Harbin;CN","CST","CST","","","+08:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Hong_Kong;HK","HKT","HKT","","","+08:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Hovd;MN","HOVT","HOVT","","","+07:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Irkutsk;RU","IRKT","IRKT","IRKST","IRKST","+08:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Asia/Istanbul;TR","EET","EET","EEST","EEST","+02:00:00","+01:00:00","-1;0;3","+03:00:00","-1;0;10","+04:00:00"}}, +{{"Asia/Jakarta;ID","WIT","WIT","","","+07:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Jayapura;ID","EIT","EIT","","","+09:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Jerusalem;IL","IST","IST","IDT","IDT","+02:00:00","+01:00:00","1;0;4","+01:00:00","1;0;10","+01:00:00"}}, +{{"Asia/Kabul;AF","AFT","AFT","","","+04:30:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Kamchatka;RU","PETT","PETT","PETST","PETST","+12:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Asia/Karachi;PK","PKT","PKT","","","+05:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Kashgar;CN","CST","CST","","","+08:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Katmandu;NP","NPT","NPT","","","+05:45:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Krasnoyarsk;RU","KRAT","KRAT","KRAST","KRAST","+07:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Asia/Kuala_Lumpur;MY","MYT","MYT","","","+08:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Kuching;MY","MYT","MYT","","","+08:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Kuwait;KW","AST","AST","","","+03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Macao;MO","CST","CST","","","+08:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Magadan;RU","MAGT","MAGT","MAGST","MAGST","+11:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Asia/Manila;PH","PHT","PHT","","","+08:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Muscat;OM","GST","GST","","","+04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Nicosia;EU/CY","EET","EET","EEST","EEST","+02:00:00","+01:00:00","-1;0;3","+03:00:00","-1;0;10","+04:00:00"}}, +{{"Asia/Novosibirsk;RU","NOVT","NOVT","NOVST","NOVST","+06:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Asia/Omsk;RU","OMST","OMST","OMSST","OMSST","+06:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Asia/Phnom_Penh;KH","ICT","ICT","","","+07:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Pontianak;ID","WIT","WIT","","","+07:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Pyongyang;KP","KST","KST","","","+09:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Qatar;QA","AST","AST","","","+03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Rangoon;MM","MMT","MMT","","","+06:30:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Riyadh;SA","AST","AST","","","+03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Saigon;VN","ICT","ICT","","","+07:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Sakhalin;RU","SAKT","SAKT","SAKST","SAKST","+10:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Asia/Samarkand;UZ","UZT","UZT","","","+05:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Seoul;KR","KST","KST","","","+09:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Shanghai;CN","CST","CST","","","+08:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Singapore;SG","SGT","SGT","","","+08:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Taipei;TW","CST","CST","","","+08:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Tashkent;UZ","UZT","UZT","","","+05:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Tbilisi;GE","GET","GET","GEST","GEST","+04:00:00","+01:00:00","-1;0;3","+00:00:00","-1;0;10","+00:00:00"}}, +{{"Asia/Tehran;IR","IRT","IRT","","","+03:30:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Thimphu;BT","BTT","BTT","","","+06:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Tokyo;JP","JST","JST","","","+09:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Ujung_Pandang;ID","CIT","CIT","","","+08:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Ulaanbaatar;MN","ULAT","ULAT","","","+08:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Urumqi;CN","CST","CST","","","+08:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Vientiane;LA","ICT","ICT","","","+07:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Vladivostok;RU","VLAT","VLAT","VLAST","VLAST","+10:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Asia/Yakutsk;RU","YAKT","YAKT","YAKST","YAKST","+09:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Asia/Yekaterinburg;RU","YEKT","YEKT","YEKST","YEKST","+05:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Asia/Yerevan;AM","AMT","AMT","AMST","AMST","+04:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Atlantic/Azores;PT","AZOT","AZOT","AZOST","AZOST","-01:00:00","+01:00:00","-1;0;3","+00:00:00","-1;0;10","+01:00:00"}}, +{{"Atlantic/Bermuda;BM","AST","AST","ADT","ADT","-04:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"Atlantic/Canary;ES","WET","WET","WEST","WEST","+00:00:00","+01:00:00","-1;0;3","+01:00:00","-1;0;10","+02:00:00"}}, +{{"Atlantic/Cape_Verde;CV","CVT","CVT","","","-01:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Atlantic/Faeroe;FO","WET","WET","WEST","WEST","+00:00:00","+01:00:00","-1;0;3","+01:00:00","-1;0;10","+02:00:00"}}, +{{"Atlantic/Jan_Mayen;SJ","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Atlantic/Madeira;PT","WET","WET","WEST","WEST","+00:00:00","+01:00:00","-1;0;3","+01:00:00","-1;0;10","+02:00:00"}}, +{{"Atlantic/Reykjavik;IS","GMT","GMT","","","+00:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Atlantic/South_Georgia;GS","GST","GST","","","-02:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Atlantic/St_Helena;SH","GMT","GMT","","","+00:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Atlantic/Stanley;FK","FKT","FKT","FKST","FKST","-04:00:00","+01:00:00","1;0;9","+02:00:00","3;0;4","+02:00:00"}}, +{{"Australia/Adelaide;AU","CST","CST","CST","CST","+09:30:00","+01:00:00","-1;0;10","+02:00:00","-1;0;3","+03:00:00"}}, +{{"Australia/Brisbane;AU","EST","EST","","","+10:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Australia/Broken_Hill;AU","CST","CST","CST","CST","+09:30:00","+01:00:00","-1;0;10","+02:00:00","-1;0;3","+03:00:00"}}, +{{"Australia/Darwin;AU","CST","CST","","","+09:30:00","+00:00:00","","","","+00:00:00"}}, +{{"Australia/Hobart;AU","EST","EST","EST","EST","+10:00:00","+01:00:00","1;0;10","+02:00:00","-1;0;3","+03:00:00"}}, +{{"Australia/Lindeman;AU","EST","EST","","","+10:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Australia/Lord_Howe;AU","LHST","LHST","LHST","LHST","+10:30:00","+00:30:00","-1;0;10","+02:00:00","-1;0;3","+02:00:00"}}, +{{"Australia/Melbourne;AU","EST","EST","EST","EST","+10:00:00","+01:00:00","-1;0;10","+02:00:00","-1;0;3","+03:00:00"}}, +{{"Australia/Perth;AU","WST","WST","","","+08:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Australia/Sydney;AU","EST","EST","EST","EST","+10:00:00","+01:00:00","-1;0;10","+02:00:00","-1;0;3","+03:00:00"}}, +{{"Europe/Amsterdam;EU/NL","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Andorra;AD","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Athens;EU/GR","EET","EET","EEST","EEST","+02:00:00","+01:00:00","-1;0;3","+03:00:00","-1;0;10","+04:00:00"}}, +{{"Europe/Belfast;IE","GMT","GMT","BST","BST","+00:00:00","+01:00:00","-1;0;3","+01:00:00","-1;0;10","+02:00:00"}}, +{{"Europe/Belgrade;CS","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Berlin;EU/DE","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Bratislava;EU/SK","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Brussels;EU/BE","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Bucharest;RO","EET","EET","EEST","EEST","+02:00:00","+01:00:00","-1;0;3","+03:00:00","-1;0;10","+04:00:00"}}, +{{"Europe/Budapest;EU/HU","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Chisinau;MD","EET","EET","EEST","EEST","+02:00:00","+01:00:00","-1;0;3","+03:00:00","-1;0;10","+04:00:00"}}, +{{"Europe/Copenhagen;EU/DK","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Dublin;EU/IE","GMT","GMT","IST","IST","+00:00:00","+01:00:00","-1;0;3","+01:00:00","-1;0;10","+02:00:00"}}, +{{"Europe/Gibraltar;GI","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Helsinki;EU/FI","EET","EET","EEST","EEST","+02:00:00","+01:00:00","-1;0;3","+03:00:00","-1;0;10","+04:00:00"}}, +{{"Europe/Istanbul;TR","EET","EET","EEST","EEST","+02:00:00","+01:00:00","-1;0;3","+03:00:00","-1;0;10","+04:00:00"}}, +{{"Europe/Kaliningrad;RU","EET","EET","EEST","EEST","+02:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Kiev;UA","EET","EET","EEST","EEST","+02:00:00","+01:00:00","-1;0;3","+03:00:00","-1;0;10","+04:00:00"}}, +{{"Europe/Lisbon;EU/PT","WET","WET","WEST","WEST","+00:00:00","+01:00:00","-1;0;3","+01:00:00","-1;0;10","+02:00:00"}}, +{{"Europe/Ljubljana;EU/SI","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/London;EU/GB","GMT","GMT","BST","BST","+00:00:00","+01:00:00","-1;0;3","+01:00:00","-1;0;10","+02:00:00"}}, +{{"Europe/Luxembourg;EU/LU","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Madrid;EU/ES","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Malta;EU/MT","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Minsk;BY","EET","EET","EEST","EEST","+02:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Monaco;MC","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Moscow;RU","MSK","MSK","MSD","MSD","+03:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Nicosia;CY","EET","EET","EEST","EEST","+02:00:00","+01:00:00","-1;0;3","+03:00:00","-1;0;10","+04:00:00"}}, +{{"Europe/Oslo;NO","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Paris;EU/FR","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Prague;EU/CZ","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Riga;EU/LV","EET","EET","EEST","EEST","+02:00:00","+01:00:00","-1;0;3","+03:00:00","-1;0;10","+04:00:00"}}, +{{"Europe/Rome;EU/IT","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Samara;RU","SAMT","SAMT","SAMST","SAMST","+04:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/San_Marino;SM","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Sarajevo;BA","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Simferopol;UA","EET","EET","EEST","EEST","+02:00:00","+01:00:00","-1;0;3","+03:00:00","-1;0;10","+04:00:00"}}, +{{"Europe/Skopje;MK","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Sofia;BG","EET","EET","EEST","EEST","+02:00:00","+01:00:00","-1;0;3","+03:00:00","-1;0;10","+04:00:00"}}, +{{"Europe/Stockholm;EU/SE","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Tallinn;EU/EE","EET","EET","","","+02:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Europe/Tirane;AL","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Uzhgorod;UA","EET","EET","EEST","EEST","+02:00:00","+01:00:00","-1;0;3","+03:00:00","-1;0;10","+04:00:00"}}, +{{"Europe/Vaduz;LI","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Vatican;VA","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Vienna;EU/AT","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Vilnius;EU/LT","EET","EET","","","+02:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Europe/Warsaw;EU/PL","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Zagreb;HR","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Zaporozhye;UA","EET","EET","EEST","EEST","+02:00:00","+01:00:00","-1;0;3","+03:00:00","-1;0;10","+04:00:00"}}, +{{"Europe/Zurich;CH","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Indian/Antananarivo;MG","EAT","EAT","","","+03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Indian/Chagos;IO","IOT","IOT","","","+06:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Indian/Christmas;CX","CXT","CXT","","","+07:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Indian/Cocos;CC","CCT","CCT","","","+06:30:00","+00:00:00","","","","+00:00:00"}}, +{{"Indian/Comoro;KM","EAT","EAT","","","+03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Indian/Kerguelen;TF","TFT","TFT","","","+05:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Indian/Mahe;SC","SCT","SCT","","","+04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Indian/Maldives;MV","MVT","MVT","","","+05:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Indian/Mauritius;MU","MUT","MUT","","","+04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Indian/Mayotte;YT","EAT","EAT","","","+03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Indian/Reunion;RE","RET","RET","","","+04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Apia;WS","WST","WST","","","-11:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Auckland;NZ","NZST","NZST","NZDT","NZDT","+12:00:00","+01:00:00","1;0;10","+02:00:00","3;0;3","+03:00:00"}}, +{{"Pacific/Chatham;NZ","CHAST","CHAST","CHADT","CHADT","+12:45:00","+01:00:00","1;0;10","+02:45:00","3;0;3","+03:45:00"}}, +{{"Pacific/Easter;CL","EAST","EAST","EASST","EASST","-06:00:00","+01:00:00","2;6;10","+22:00:00","2;6;3","+22:00:00"}}, +{{"Pacific/Efate;VU","VUT","VUT","","","+11:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Enderbury;KI","PHOT","PHOT","","","+13:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Fakaofo;TK","TKT","TKT","","","-10:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Fiji;FJ","FJT","FJT","","","+12:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Funafuti;TV","TVT","TVT","","","+12:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Galapagos;EC","GALT","GALT","","","-06:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Gambier;PF","GAMT","GAMT","","","-09:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Guadalcanal;SB","SBT","SBT","","","+11:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Guam;GU","ChST","ChST","","","+10:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Honolulu;US/HI","HST","HST","","","-10:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Johnston;UM","HST","HST","","","-10:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Kiritimati;KI","LINT","LINT","","","+14:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Kosrae;FM","KOST","KOST","","","+11:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Kwajalein;MH","MHT","MHT","","","+12:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Majuro;MH","MHT","MHT","","","+12:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Marquesas;PF","MART","MART","","","-09:30:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Midway;UM","SST","SST","","","-11:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Nauru;NR","NRT","NRT","","","+12:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Niue;NU","NUT","NUT","","","-11:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Norfolk;NF","NFT","NFT","","","+11:30:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Noumea;NC","NCT","NCT","","","+11:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Pago_Pago;AS","SST","SST","","","-11:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Palau;PW","PWT","PWT","","","+09:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Pitcairn;PN","PST","PST","","","-08:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Ponape;FM","PONT","PONT","","","+11:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Port_Moresby;PG","PGT","PGT","","","+10:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Rarotonga;CK","CKT","CKT","","","-10:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Saipan;MP","ChST","ChST","","","+10:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Tahiti;PF","TAHT","TAHT","","","-10:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Tarawa;KI","GILT","GILT","","","+12:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Tongatapu;TO","TOT","TOT","","","+13:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Truk;FM","TRUT","TRUT","","","+10:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Wake;UM","WAKT","WAKT","","","+12:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Wallis;WF","WFT","WFT","","","+12:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Yap;FM","YAPT","YAPT","","","+10:00:00","+00:00:00","","","","+00:00:00"}}, +{{"US/Michigan;US","EST","EST","EDT","EDT","-05:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}} diff --git a/include/inc/stdtime_tzrules.h b/include/inc/stdtime_tzrules.h new file mode 100644 index 0000000..30548ad --- /dev/null +++ b/include/inc/stdtime_tzrules.h @@ -0,0 +1,58 @@ +/*****************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER **********************************************/ +/*****************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2005 All Rights Reserved */ +/* */ +/* MODULE NAME : stdtime_tzrules.h */ +/* PRODUCT(S) : Standard Time Management Library */ +/* */ +/* MODULE DESCRIPTION: */ +/* Data file to fix historical rules for daylight saving time. */ +/* */ +/* MODIFICATION LOG: */ +/* Date Who Rev Comments */ +/* -------- --- --- ----------------------------------------------------- */ +/* 06/07/06 RLH 01 Created */ +/*****************************************************************************/ + +/* this data is part of a table of type STDTIME_FIX_TZ_RULES */ +/* the struct defining type STDTIME_FIX_TZ_RULES is in stdtime.h */ +/* entries with region codes must appear before entries without them */ + + + {"US", "IN", 2007, 9999, {2,0,3}, {1, 2,0,0}, {1,0,11}, {1, 2,0,0}}, + {"US", "IN", 1945, 2006, {0,0,0}, {0, 0,0,0}, {0,0,00}, {0, 0,0,0}}, + {"US", "HI", 1945, 9999, {0,0,0}, {0, 0,0,0}, {0,0,00}, {0, 0,0,0}}, + {"US", "AZ", 1945, 9999, {0,0,0}, {0, 0,0,0}, {0,0,00}, {0, 0,0,0}}, + + {"US", "", 2007, 9999, {2,0,3}, {1, 2,0,0}, {1,0,11}, {1, 2,0,0}}, + {"US", "", 1987, 2006, {1,0,4}, {1, 2,0,0}, {5,0,10}, {1, 2,0,0}}, + {"US", "", 1976, 1986, {5,0,4}, {1, 2,0,0}, {5,0,10}, {1, 2,0,0}}, + {"US", "", 1975, 1975, {5,0,2}, {1, 2,0,0}, {5,0,10}, {1, 2,0,0}}, + {"US", "", 1974, 1974, {1,0,1}, {1, 2,0,0}, {5,0,10}, {1, 2,0,0}}, + {"US", "", 1967, 1973, {5,0,4}, {1, 2,0,0}, {5,0,10}, {1, 2,0,0}}, + {"US", "", 1945, 1966, {5,0,4}, {1, 2,0,0}, {5,0, 9}, {1, 2,0,0}}, + + + {"CA", "SK", 1945, 9999, {0,0,0}, {0, 0,0,0}, {0,0,00}, {0, 0,0,0}}, + + /* for now, CA and MX just duplicate US rules */ + + {"CA", "", 2007, 9999, {2,0,3}, {1, 2,0,0}, {1,0,11}, {1, 2,0,0}}, + {"CA", "", 1987, 2006, {1,0,4}, {1, 2,0,0}, {5,0,10}, {1, 2,0,0}}, + {"CA", "", 1976, 1986, {5,0,4}, {1, 2,0,0}, {5,0,10}, {1, 2,0,0}}, + {"CA", "", 1975, 1975, {5,0,2}, {1, 2,0,0}, {5,0,10}, {1, 2,0,0}}, + {"CA", "", 1974, 1974, {1,0,1}, {1, 2,0,0}, {5,0,10}, {1, 2,0,0}}, + {"CA", "", 1967, 1973, {5,0,4}, {1, 2,0,0}, {5,0,10}, {1, 2,0,0}}, + {"CA", "", 1945, 1966, {5,0,4}, {1, 2,0,0}, {5,0, 9}, {1, 2,0,0}}, + + + {"MX", "", 2007, 9999, {2,0,3}, {1, 2,0,0}, {1,0,11}, {1, 2,0,0}}, + {"MX", "", 1987, 2006, {1,0,4}, {1, 2,0,0}, {5,0,10}, {1, 2,0,0}}, + {"MX", "", 1976, 1986, {5,0,4}, {1, 2,0,0}, {5,0,10}, {1, 2,0,0}}, + {"MX", "", 1975, 1975, {5,0,2}, {1, 2,0,0}, {5,0,10}, {1, 2,0,0}}, + {"MX", "", 1974, 1974, {1,0,1}, {1, 2,0,0}, {5,0,10}, {1, 2,0,0}}, + {"MX", "", 1967, 1973, {5,0,4}, {1, 2,0,0}, {5,0,10}, {1, 2,0,0}}, + {"MX", "", 1945, 1966, {5,0,4}, {1, 2,0,0}, {5,0, 9}, {1, 2,0,0}} /**/ + diff --git a/include/inc/stdtime_w32.h b/include/inc/stdtime_w32.h new file mode 100644 index 0000000..008f58f --- /dev/null +++ b/include/inc/stdtime_w32.h @@ -0,0 +1,353 @@ +/*****************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER **********************************************/ +/*****************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2005 All Rights Reserved */ +/* */ +/* MODULE NAME : stdtime_w32.h */ +/* PRODUCT(S) : Standard Time Management Library */ +/* */ +/* MODULE DESCRIPTION: */ +/* Header file for Standard Time Management Library Win32 Compatibility */ +/* Layer. This header is compiled with STDTIMEW32_ENABLED on Windows to */ +/* generate debugging code or to run emulation on Unix. To run on */ +/* Windows, compile with STDTIMEW32_DISABLED. STDTIMEW32_ENABLED is */ +/* required on Unix/Linux (that is, non-Windows) platforms. */ +/* */ +/* */ +/* MODIFICATION LOG: */ +/* Date Who Rev Comments */ +/* -------- --- --- ----------------------------------------------------- */ +/* 12/17/07 JRB 04 Del STDTIME_WIN_VARIANT, ..DBTIMESTAMP, ..UDATE */ +/* structs (no longer used). */ +/* 04/03/07 RLH 03 Make UDOT definition compatible with Linux 8.0 */ +/* 06/07/06 RLH 02 Numerous features added, see stdtime.doc */ +/* 01/18/06 RLH 01 Created */ +/*****************************************************************************/ + + +#ifndef _STDTIME_W32_H_29560654_4DD5_47A5_9B07_559DA09B36A3_ +#define _STDTIME_W32_H_29560654_4DD5_47A5_9B07_559DA09B36A3_ + + +#ifdef __cplusplus +extern "C" { +#endif + + +/*****************************************************************************/ +/* ENABLED or DISABLED */ +/*****************************************************************************/ + +#undef STDTIMEW32_DEBUGGING +#undef STDTIMEW32_UNIX + +#if defined(STDTIMEW32_ENABLED) && defined(STDTIMEW32_DISABLED) +#error Both STDTIMEW32_ENABLED and STDTIMEW32_DISABLED defined +#undef STDTIMEW32_ENABLED +#endif + +#if !defined(STDTIMEW32_ENABLED) && !defined(STDTIMEW32_DISABLED) + +#if defined(STDTIMEW32_USE_CLOCKGETTIME) \ + || defined(STDTIMEW32_USE_GETTIMEOFDAY) \ + || defined(STDTIMEW32_USE_TIMEB) /**/ +#define STDTIMEW32_ENABLED +#else +#define STDTIMEW32_DISABLED +#endif + +#endif + +#if defined(STDTIMEW32_DISABLED) && !defined(_WIN32) +#error StdTime Windows Compatibility Layer disabled on non-Windows platform +#endif + +#if defined(STDTIMEW32_ENABLED) && defined(_WIN32) +#define STDTIMEW32_DEBUGGING +#endif + +#if defined(STDTIMEW32_ENABLED) && !defined(_WIN32) +#define STDTIMEW32_UNIX +#endif + + +/*****************************************************************************/ +/* STATIC (LOCAL) FUNCTION QUALIFIER */ +/*****************************************************************************/ + +#ifndef STDTIMEW32_STATIC +#define STDTIMEW32_STATIC +#endif + + +/*****************************************************************************/ +/* PORTABILITY API NAME DEFINITIONS */ +/*****************************************************************************/ + + +#if defined(STDTIMEW32_USE_CLOCKGETTIME) +#define STDTIME_API_GETSYSTEMTIMEASFILETIME StdTimeW32ClockGetTimeToFileTime + +#elif defined(STDTIMEW32_USE_GETTIMEOFDAY) +#define STDTIME_API_GETSYSTEMTIMEASFILETIME StdTimeW32GetTimeOfDayToFileTime + +#elif defined(STDTIMEW32_USE_TIMEB) +#define STDTIME_API_GETSYSTEMTIMEASFILETIME StdTimeW32TimeBToFileTime + +#else + +#ifdef STDTIMEW32_UNIX +#error No API defined for GetSystemTimeAsFileTime Unix interface +#endif + +#endif /* STDTIMEW32_USE_CLOCKGETTIME */ + + +#ifdef STDTIMEW32_ENABLED +#define STDTIME_API_FILETIMETOLOCALFILETIME StdTimeW32FileTimeToLocalFileTime +#define STDTIME_API_LOCALFILETIMETOFILETIME StdTimeW32LocalFileTimeToFileTime +#else +#define STDTIME_API_FILETIMETOLOCALFILETIME FileTimeToLocalFileTime +#define STDTIME_API_LOCALFILETIMETOFILETIME LocalFileTimeToFileTime +#endif /* STDTIMEW32_ENABLED */ + + +#ifdef STDTIMEW32_ENABLED +#define STDTIME_API_FILETIMETOSYSTEMTIME StdTimeW32FileTimeToSystemTime +#define STDTIME_API_SYSTEMTIMETOFILETIME StdTimeW32SystemTimeToFileTime +#else +#define STDTIME_API_SYSTEMTIMETOFILETIME SystemTimeToFileTime +#define STDTIME_API_FILETIMETOSYSTEMTIME FileTimeToSystemTime +#endif /* STDTIMEW32_ENABLED */ + + +/*****************************************************************************/ +/* BASIC DEFINITIONS */ +/*****************************************************************************/ + + +#define STDTIME_WIN_EPOCH_YEAR 1601 +#define STDTIME_UNIX_EPOCH_YEAR 1970 + +#undef STDTIME_WIN_VT_DATE_DEFINED + +#ifdef _WIN32 + +/* if debugging non-Windows code on Windows, use compatibility typedefs */ + +typedef SHORT STDTIME_WIN_SHORT; +typedef USHORT STDTIME_WIN_USHORT; +typedef WORD STDTIME_WIN_WORD; +typedef DWORD STDTIME_WIN_DWORD; +typedef LONG STDTIME_WIN_LONG; +typedef ULONG STDTIME_WIN_ULONG; +typedef LONGLONG STDTIME_WIN_LONGLONG; +typedef ULONGLONG STDTIME_WIN_ULONGLONG; +typedef BOOL STDTIME_WIN_BOOL; + +#define STDTIME_WIN_TRUE TRUE +#define STDTIME_WIN_FALSE FALSE + + +typedef SYSTEMTIME STDTIME_WIN_SYSTEMTIME; +typedef FILETIME STDTIME_WIN_FILETIME; +typedef LARGE_INTEGER STDTIME_WIN_LARGE_INTEGER; +typedef ULARGE_INTEGER STDTIME_WIN_ULARGE_INTEGER; + +#else /* not _WIN32 */ + +typedef int16_t STDTIME_WIN_SHORT; +typedef uint16_t STDTIME_WIN_USHORT; +typedef uint16_t STDTIME_WIN_WORD; +typedef uint32_t STDTIME_WIN_DWORD; +typedef int32_t STDTIME_WIN_LONG; +typedef uint32_t STDTIME_WIN_ULONG; +typedef QUADLIB_I64 STDTIME_WIN_LONGLONG; +typedef QUADLIB_U64 STDTIME_WIN_ULONGLONG; +typedef int32_t STDTIME_WIN_BOOL; + +#define STDTIME_WIN_TRUE 1 +#define STDTIME_WIN_FALSE 0 + + +#endif /* _WIN32 */ + + +/*****************************************************************************/ +/* SYSTEMTIME structure - compatibility definition */ +/*****************************************************************************/ + +#ifdef STDTIMEW32_UNIX + +typedef struct + { + STDTIME_WIN_WORD wYear; + STDTIME_WIN_WORD wMonth; + STDTIME_WIN_WORD wDayOfWeek; + STDTIME_WIN_WORD wDay; + STDTIME_WIN_WORD wHour; + STDTIME_WIN_WORD wMinute; + STDTIME_WIN_WORD wSecond; + STDTIME_WIN_WORD wMilliseconds; + } STDTIME_WIN_SYSTEMTIME; + +#endif /* STDTIMEW32_UNIX */ + + +/*****************************************************************************/ +/* VT_DATE compatibility definitions */ +/*****************************************************************************/ + +#ifndef STDTIME_WIN_VT_DATE_DEFINED + +typedef uint16_t STDTIME_WIN_VARTYPE; +typedef double STDTIME_WIN_DATE; + +enum STDTIME_WIN_VARENUM + { + STDTIME_WIN_VT_EMPTY = 0, + STDTIME_WIN_VT_DATE = 7, + STDTIME_WIN_VT_BYREF = 0x4000 + }; + +#endif /* STDTIME_WIN_VT_DATE_DEFINED */ + +/*****************************************************************************/ +/* FILETIME structure - compatibility definition */ +/*****************************************************************************/ + +#ifdef STDTIMEW32_UNIX + +typedef struct + { + STDTIME_WIN_DWORD dwLowDateTime; + STDTIME_WIN_DWORD dwHighDateTime; + } STDTIME_WIN_FILETIME; + +#endif /* STDTIMEW32_UNIX */ + +/*****************************************************************************/ +/* LARGE_INTEGER structure - compatibility definition */ +/*****************************************************************************/ + +#ifdef STDTIMEW32_UNIX + +typedef union _STDTIME_WIN_LARGE_INTEGER + { + /* to maximize compatibility, the anonymous struct is omitted */ + /* references to LARGE_INTEGER fields will require 'u' qualifier */ + /* use of the anonymous struct is a non-portable Microsoft extension. */ + + /* the order of LowPart and HighPart should agree with endian */ + /* ordering on the host platform */ + + /* if compiled under I64 compatibility, QuadPart is a QuadLib structure */ + /* QUADLIB_I64 and QUADLIB_U64 are the same type, but have different */ + /* names to document their intended usage */ + + struct + { + STDTIME_WIN_DWORD LowPart; + STDTIME_WIN_LONG HighPart; + } u; + + QUADLIB_I64 QuadPart; + + } STDTIME_WIN_LARGE_INTEGER; + +#endif /* STDTIMEW32_UNIX */ + +/*****************************************************************************/ +/* ULARGE_INTEGER structure - compatibility definition */ +/*****************************************************************************/ + +#ifdef STDTIMEW32_UNIX + +typedef union _STDTIME_WIN_ULARGE_INTEGER + { + /* to maximize compatibility, the anonymous struct is omitted */ + /* references to ULARGE_INTEGER fields will require 'u' qualifier */ + /* use of the anonymous struct is a non-portable Microsoft extension. */ + + /* the order of LowPart and HighPart should agree with endian */ + /* ordering on the host platform */ + + /* if compiled under I64 compatibility, QuadPart is a QuadLib structure */ + /* QUADLIB_I64 and QUADLIB_U64 are the same type, but have different */ + /* names to document their intended usage */ + + struct + { + STDTIME_WIN_DWORD LowPart; + STDTIME_WIN_DWORD HighPart; + } u; + + QUADLIB_U64 QuadPart; + + } STDTIME_WIN_ULARGE_INTEGER; + +#endif /* STDTIMEW32_UNIX */ + + +/*****************************************************************************/ +/* compatibility-layer API functions */ +/*****************************************************************************/ + +#ifndef STDTIME_API_GETSYSTEMTIMEASFILETIME +#define STDTIME_API_GETSYSTEMTIMEASFILETIME GetSystemTimeAsFileTime + +#else +STDTIMEW32_STATIC void STDTIME_API_GETSYSTEMTIMEASFILETIME ( + STDTIME_WIN_FILETIME * /*O*/ pFileTime); +#endif + + +#ifdef STDTIMEW32_ENABLED + + +STDTIMEW32_STATIC STDTIME_WIN_BOOL StdTimeW32SystemTimeToFileTime ( + const STDTIME_WIN_SYSTEMTIME * /*I*/ pSystemTime, + STDTIME_WIN_FILETIME * /*O*/ pFileTime); + + +STDTIMEW32_STATIC STDTIME_WIN_BOOL StdTimeW32FileTimeToSystemTime ( + const STDTIME_WIN_FILETIME * /*I*/ pFileTime, + STDTIME_WIN_SYSTEMTIME * /*O*/ pSystemTime); + + +STDTIMEW32_STATIC STDTIME_WIN_BOOL StdTimeW32FileTimeToLocalFileTime ( + const STDTIME_WIN_FILETIME * /*I*/ pGmtFileTime, + STDTIME_WIN_FILETIME * /*O*/ pLocFileTime); + + +STDTIMEW32_STATIC STDTIME_WIN_BOOL StdTimeW32LocalFileTimeToFileTime ( + const STDTIME_WIN_FILETIME * /*I*/ pLocFileTime, + STDTIME_WIN_FILETIME * /*O*/ pGmtFileTime); + + +#endif /* STDTIMEW32_ENABLED */ + + +/*****************************************************************************/ +/* OBTAIN DAY OF WEEK AND DAY OF WEEK */ +/*****************************************************************************/ + +STDTIME_RC StdTimeW32GetDayofWeekAndYear ( + int32_t /*I*/ nYear, + int32_t /*I*/ nMon, + int32_t /*I*/ nDayofMon, + int32_t * /*O*/ pDayofWeek, + int32_t * /*O*/ pDayofYear); + +/*****************************************************************************/ +/* END */ +/*****************************************************************************/ + +#ifdef __cplusplus +} +#endif + + +#endif /* _STDTIME_W32_H_29560654_4DD5_47A5_9B07_559DA09B36A3_ */ + diff --git a/include/inc/stime.h b/include/inc/stime.h new file mode 100644 index 0000000..303d53f --- /dev/null +++ b/include/inc/stime.h @@ -0,0 +1,38 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1997, All Rights Reserved */ +/* */ +/* MODULE NAME : stime.h */ +/* PRODUCT(S) : SLOG */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 06/14/05 EJV 03 Del sGetMsStartTime, sSetMsStartTime */ +/* 11/04/03 JRB 02 Add sMsSleep (replaces gs_sleep). */ +/* 11/05/97 DSF 01 Added sGetSysMsTime () */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifdef __cplusplus +extern "C" { +#endif + +ST_RET stimeInit (ST_VOID); +ST_DOUBLE sGetMsTime (ST_VOID); +ST_DOUBLE sGetSysMsTime (ST_VOID); +ST_VOID sResetMsTime (ST_VOID); +ST_VOID stimeExit (ST_VOID); +ST_VOID sMsSleep (ST_LONG ms); + +#ifdef __cplusplus +} +#endif + diff --git a/include/inc/sx_arb.h b/include/inc/sx_arb.h new file mode 100644 index 0000000..907a8a1 --- /dev/null +++ b/include/inc/sx_arb.h @@ -0,0 +1,119 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1999 - 2004, All Rights Reserved */ +/* */ +/* MODULE NAME : sx_arb.h */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 09/19/07 JRB 04 Add TEXT_FORMAT_COMMA, sxaTextToLocalEx. */ +/* 10/24/06 JRB 03 Add sxaLocalToText2 proto. */ +/* 12/06/04 JRB 02 Add "sx_defs.h". */ +/* 08/30/04 DSF 01 Module created */ +/************************************************************************/ +/************************************************************************/ + +#ifndef SX_ARB_INCLUDED +#define SX_ARB_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + + +/************************************************************************/ + +#include "mms_def2.h" +#include "mms_mp.h" +#include "mms_pvar.h" +#include "mms_vvar.h" +#include "sx_defs.h" /* need SX_ENC_CTRL */ + +ST_RET sxd_decode_rtdata_el (SD_CONST ST_CHAR *elName, + ST_CHAR *xml, ST_INT xmlLen, ST_INT *xmlUsed, + ST_VOID *vdp, SD_CONST RUNTIME_TYPE *rt_head, + ST_INT rt_num, ST_BOOLEAN *elPres, + ST_INT sxdXmlStyle, ST_BOOLEAN checkDt); +ST_RET sxd_wr_rtdata (SX_ENC_CTRL *sxEncCtrl, RUNTIME_TYPE *rt, ST_INT numRt, + ST_CHAR *elName, ST_VOID *data, ST_INT sxdXmlStyle, + ST_BOOLEAN encodeDt, ST_BOOLEAN *elPres); + +/************************************************************************/ +/************************************************************************/ +/* Arbitrary data processing, for use in traversing the RUNTIME_TYPE */ + +typedef struct + { + ST_RET (*arrStart) (ST_VOID *usr, RUNTIME_TYPE *rt); + ST_RET (*arrEnd) (ST_VOID *usr, RUNTIME_TYPE *rt); + ST_RET (*strStart) (ST_VOID *usr, RUNTIME_TYPE *rt, SD_CONST RUNTIME_TYPE *rt_head); + ST_RET (*strEnd) (ST_VOID *usr, RUNTIME_TYPE *rt); + ST_RET (*int8) (ST_VOID *usr, ST_INT8 *data_dest, RUNTIME_TYPE *rt); + ST_RET (*int16) (ST_VOID *usr, ST_INT16 *data_dest, RUNTIME_TYPE *rt); + ST_RET (*int32) (ST_VOID *usr, ST_INT32 *data_dest, RUNTIME_TYPE *rt); +#ifdef INT64_SUPPORT + ST_RET (*int64) (ST_VOID *usr, ST_INT64 *data_dest, RUNTIME_TYPE *rt); +#endif + ST_RET (*uint8) (ST_VOID *usr, ST_UINT8 *data_dest, RUNTIME_TYPE *rt); + ST_RET (*uint16) (ST_VOID *usr, ST_UINT16 *data_dest, RUNTIME_TYPE *rt); + ST_RET (*uint32) (ST_VOID *usr, ST_UINT32 *data_dest, RUNTIME_TYPE *rt); +#ifdef INT64_SUPPORT + ST_RET (*uint64) (ST_VOID *usr, ST_UINT64 *data_dest, RUNTIME_TYPE *rt); +#endif + ST_RET (*flt) (ST_VOID *usr, ST_FLOAT *data_dest, RUNTIME_TYPE *rt); + ST_RET (*dbl) (ST_VOID *usr, ST_DOUBLE *data_dest, RUNTIME_TYPE *rt); + ST_RET (*oct) (ST_VOID *usr, ST_UCHAR *data_dest, RUNTIME_TYPE *rt); + ST_RET (*booln) (ST_VOID *usr, ST_BOOLEAN *data_dest, RUNTIME_TYPE *rt); + ST_RET (*bcd1) (ST_VOID *usr, ST_INT8 *data_dest, RUNTIME_TYPE *rt); + ST_RET (*bcd2) (ST_VOID *usr, ST_INT16 *data_dest, RUNTIME_TYPE *rt); + ST_RET (*bcd4) (ST_VOID *usr, ST_INT32 *data_dest, RUNTIME_TYPE *rt); + ST_RET (*bs) (ST_VOID *usr, ST_UCHAR *data_dest, RUNTIME_TYPE *rt); + ST_RET (*vis) (ST_VOID *usr, ST_CHAR *data_dest, RUNTIME_TYPE *rt); + ST_RET (*bt4) (ST_VOID *usr, ST_INT32 *data_dest, RUNTIME_TYPE *rt); + ST_RET (*bt6) (ST_VOID *usr, ST_INT32 *data_dest, RUNTIME_TYPE *rt); + ST_RET (*gt) (ST_VOID *usr, time_t *data_dest, RUNTIME_TYPE *rt); + ST_RET (*utc) (ST_VOID *usr, MMS_UTC_TIME *data_dest, RUNTIME_TYPE *rt); + ST_RET (*utf8) (ST_VOID *usr, ST_UCHAR *data_dest, RUNTIME_TYPE *rt); + } SXD_ARB_DATA_CTRL; + +ST_RET sxd_process_arb_data (ST_CHAR *datptr, SD_CONST RUNTIME_TYPE *rt_head, + ST_INT rt_num, ST_VOID *usr, + SXD_ARB_DATA_CTRL *ac, ST_BOOLEAN *elPres); + +ST_RET sxaTextToLocal (ST_CHAR *pSource, ST_VOID *pDest, ST_INT numRt, SD_CONST RUNTIME_TYPE *rtHead); +ST_CHAR *sxaLocalToText (ST_VOID *dataPtr, SD_CONST RUNTIME_TYPE *rtHead, ST_INT numRt); +/* sxaLocalToText2 is thread-safe (does not use global buffer). */ +ST_CHAR *sxaLocalToText2 (ST_VOID *dataPtr, SD_CONST RUNTIME_TYPE *rtHead, ST_INT numRt, + ST_CHAR *textBuf, /* User buffer in which to write text */ + ST_UINT textBufSize); /* size of user buffer */ + +/* Defines to use for textFormat argument of sxaTextToLocalEx. */ +/* DEBUG: currently only ONE format supported (TEXT_FORMAT_COMMA), but */ +/* this should make it easier to add other formats later. */ +#define TEXT_FORMAT_COMMA 1 /* Comma-separated text format */ + /* Each value in the text may */ + /* also be surrounded by "". */ + /* Examples of text: */ + /* "0","1.1","2","3.3","4" */ + /* 0,1.1,2,3.3,4 */ +ST_RET sxaTextToLocalEx ( + ST_CHAR *pSource, /* source text */ + ST_VOID *pDest, /* destination data */ + ST_INT numRt, + SD_CONST RUNTIME_TYPE *rtHead, + ST_INT textFormat); /* text format from which to convert */ + +/************************************************************************/ +#ifdef __cplusplus +} +#endif + +#endif /* SX_ARB_INCLUDED */ diff --git a/include/inc/sx_defs.h b/include/inc/sx_defs.h new file mode 100644 index 0000000..e6ee545 --- /dev/null +++ b/include/inc/sx_defs.h @@ -0,0 +1,611 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1999 - 2008, All Rights Reserved */ +/* */ +/* MODULE NAME : sx_defs.h */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 02/01/08 EJV 66 Added SX_PARSING_OK, sx_err_str* (for slogs).*/ +/* 01/14/08 MDE 65 Fixed numOcc multithread problem */ +/* 07/30/07 RWM 64 Added numAlloced4 to sx_dec_ctrl */ +/* For early MODLOGS see previous revision of this file on PVCS. */ +/************************************************************************/ + +#ifndef SX_DEFS_INCLUDED +#define SX_DEFS_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + + +/************************************************************************/ + +#include "glbtypes.h" + +/************************************************************************/ +/* This is the amount of overhead required to ensure no overwrite */ + +#define SX_ENC_BUFFER_OH 20 + +/************************************************************************/ +/* Capacities */ + +#if !defined(SX_MAX_XML_NEST) +#define SX_MAX_XML_NEST 30 +#endif + +#if !defined(SX_MAX_STACK_LEVEL) +#define SX_MAX_STACK_LEVEL 50 +#endif + +#if !defined(SX_MAX_TAG_LEN) +#define SX_MAX_TAG_LEN 100 +#endif + +#if !defined(SX_MAX_ATTRIB) +#define SX_MAX_ATTRIB 20 +#endif + +#if !defined(SX_MAX_ATTR_NAME) +#define SX_MAX_ATTR_NAME 100 +#endif + +#if !defined(SX_MAX_ATTR_VALUE) +#define SX_MAX_ATTR_VALUE 1000 +#endif + +#if !defined(SX_MAX_ELEM_LEN) +#define SX_MAX_ELEM_LEN 2000 +#endif + +#if !defined SX_MAX_ITEMS_PER_TABLE +#define SX_MAX_ITEMS_PER_TABLE 50 +#endif + + +/************************************************************************/ +/* Error codes - stop parsing */ +#define SX_PARSING_OK 0 +#define SX_USER_ERROR 1 +#define SX_STRUCT_NOT_FOUND 2 +#define SX_REQUIRED_TAG_NOT_FOUND 3 +#define SX_DUPLICATE_NOT_ALLOWED 4 +#define SX_EMPTY_TAG_NOT_ALLOWED 5 +#define SX_XML_NEST_TOO_DEEP 6 +#define SX_XML_BUFFER_OVER_MAX 7 +#define SX_XML_MALFORMED 8 +#define SX_FILE_NOT_FOUND 9 +#define SX_END_PARSING 10 /* for partial parsing */ +#define SX_ELEMENT_TBL_TOO_BIG 11 +/* NOTE: when adding more error codes update also the sx_err_str[] in the sx_dec.c */ + +/* Normal errors - continue with parse */ +#define SX_ERR_CONVERT 100 + +#ifdef DEBUG_SISCO +extern ST_CHAR *sx_err_str[]; /* tbl of error strings, used in slogs */ +extern ST_INT sx_err_str_cnt; + +/* macro to get the error string logged */ +#define SX_ERR_STR(errCode) ((errCode < sx_err_str_cnt) ? sx_err_str[errCode] : "UNKNOWN SX ERROR") +#endif /* DEBUG_SISCO */ + +/************************************************************************/ +/************************************************************************/ +/* SX_DURATION */ +/* Duration is an ISO 8601 date/time standard in the following format: */ +/* PnYnMnDTnHnMnS */ +/* where P = period, Y = years, M = months, D = days, T = date/time */ +/* seperator, H = hours, M = minutes, S = seconds. Seconds may be any */ +/* decimal number of arbitrary precision. n represents a number. */ +/* For example: or */ +/* */ +typedef struct sx_duration + { + ST_BOOLEAN negative; /* true = negative duration */ + ST_INT years; /* number of years in duration */ + ST_INT months; /* number of months in duration */ + ST_INT days; /* number of days in duration */ + ST_INT hours; /* number of hours in duration */ + ST_INT minutes; /* number of minutes in duration */ + ST_INT seconds; /* integer part of seconds */ + ST_LONG microseconds; /* decimal part of seconds */ + ST_BOOLEAN inUse; /* easy way to tell if this optional */ + /* attribute is present */ + } SX_DURATION; + +/************************************************************************/ +/************************************************************************/ +/* SX_DATE_TIME */ + +typedef struct sx_date_time + { + time_t dateTime; /* number of local or UTC/GMT/Zule seconds since 1/1/1970 */ + long microseconds; /* decimal fraction or microseconds */ + int tz; /* minutes specified in time zone "+hh:mm or -hh:mm" */ + ST_BOOLEAN useMicroseconds; /* indicates decimal fraction of microseconds is present */ + ST_BOOLEAN useTZ; /* if true "yyyy-mm-ddThh:mm:ss.fffff+/-hh:mm" or */ + /* "yyyy-mm-ddThh:mm:ss+/-hh:mm" or */ + /* "yyyy-mm-ddThh:mm:ss.fffffZ" or */ + /* "yyyy-mm-ddThh:mm:ssZ" */ + /* if false "yyyy-mm-ddThh:mm:ss.fffff or */ + /* "yyyy-mm-ddThh:mm:ss */ + } SX_DATE_TIME; + +/************************************************************************/ +/************************************************************************/ +/* XML <-> Local XML Style Selection */ + +/* Note: Style A must have the value 0 */ +#define SXD_XML_STYLE_A 0 /* Values as attrib, single element/struct */ +#define SXD_XML_STYLE_C 1 /* CDATA value encoding */ +#define SXD_XML_STYLE_V 2 /* Each value has own element, attrib encoded */ + +extern ST_INT sxdDefXmlStyle; /* Note: 0 is style A */ + +/* Examples: */ +/* A: */ +/* A: */ + +/* C: 1248044 */ +/* C: BinFull78Good */ + +/* V: */ +/* V: */ + +/************************************************************************/ +/************************************************************************/ +extern ST_BOOLEAN sxUseSax; +extern ST_BOOLEAN sxUseFormatting; +extern ST_BOOLEAN sxIgnoreNS; +extern ST_BOOLEAN sxLogOverrunAsFlow; + +/* elementFlags defines; bitmasked */ +#define SX_ELF_CSTART 0x0001 +#define SX_ELF_CEND 0x0002 +#define SX_ELF_CSTARTEND 0x0003 + +#define SX_ELF_RPT 0x0008 +#define SX_ELF_OPT 0x0004 +#define SX_ELF_OPTRPT 0x000C + +#define SX_ELF_EMPTYOK 0x0010 + +struct sx_dec_ctrl; /* forward definition */ + +typedef struct sx_element + { + char *tag; + ST_INT elementFlags; + void (*funcPtr)(struct sx_dec_ctrl *sxDecCtrl); + + char *user; + +/* Runtime elements: */ + ST_INT notUsed; + } SX_ELEMENT; + +/************************************************************************/ + +/* defines for string formatting */ +#define CODE_APOS "'" +#define CODE_QUOT """ +#define CODE_AMP "&" +#define CODE_LT "<" +#define CODE_GT ">" + +#define CODE_APOS_LEN (sizeof (CODE_APOS) - 1) +#define CODE_QUOT_LEN (sizeof (CODE_QUOT) - 1) +#define CODE_AMP_LEN (sizeof (CODE_AMP) - 1) +#define CODE_LT_LEN (sizeof (CODE_LT) - 1) +#define CODE_GT_LEN (sizeof (CODE_GT) - 1) + +#define CHAR_APOS '\'' +#define CHAR_QUOT '\"' +#define CHAR_AMP '&' +#define CHAR_LT '<' +#define CHAR_GT '>' + +/************************************************************************/ + +/* defines for 'reason' */ +#define SX_ELEMENT_START 1 +#define SX_ELEMENT_END 2 + + +typedef struct sx_element_tbl_ctrl + { + ST_INT numItems; + SX_ELEMENT *itemTbl; + ST_INT numOccTbl[SX_MAX_ITEMS_PER_TABLE]; + } SX_ELEMENT_TBL_CTRL; + +typedef struct sxe_attr_pair + { + ST_CHAR *name; + ST_CHAR *value; + } SXE_ATTR_PAIR; + +typedef struct sxd_attr_pair + { + ST_CHAR name[SX_MAX_ATTR_NAME]; + ST_CHAR value[SX_MAX_ATTR_VALUE]; + } SXD_ATTR_PAIR; + +typedef struct sx_dec_element_info + { + ST_CHAR tag[SX_MAX_TAG_LEN]; /* start/end */ + ST_CHAR *tagStart; /* tag start pointer */ + /* NOTE: "entityStart" is NOT used if USE_EXPAT defined */ + ST_CHAR *entityStart; /* start (and simple end) */ + ST_UINT attrCount; /* start (and simple end) */ + SXD_ATTR_PAIR attr[SX_MAX_ATTRIB]; /* start (and simple end) */ + /* NOTE: "entityEnd" is NOT used if USE_EXPAT defined */ + ST_CHAR *entityEnd; /* end */ + } SX_DEC_ELEMENT_INFO; + +typedef struct sx_dec_ctrl + { + /* NOTE: the following five params are used ONLY if USE_EXPAT defined */ + ST_VOID *parser; /* save XML_Parser here (cast to (ST_VOID *)) */ + ST_INT skipNestLevel; /* skip tags until back at this nest level */ + ST_INT entityLen; /* len of current entity */ + ST_INT entityBufSize; /* len of entity buffer */ + ST_CHAR *entityBuf; /* ptr to entity buffer */ + +/* XML being decoded */ + ST_CHAR *xmlStart; + ST_INT xmlLen; + + ST_BOOLEAN useFp; + ST_BOOLEAN ignoreNS; + FILE *fp; +/* Decoded element information */ + ST_INT reason; /* SX_ELEMENT_START, SX_ELEMENT_END */ + SX_DEC_ELEMENT_INFO sxDecElInfo; + ST_CHAR elemBuf[SX_MAX_ELEM_LEN+1]; /* tmp buffer for an element */ + +/* Set to != SD_SUCCESS for error */ + ST_RET errCode; /* defined above */ + ST_BOOLEAN termFlag; /* set if you want to terminate decode */ + +/* Set to SD_TRUE to disable numOcc checks */ + ST_BOOLEAN noOccCheck; + +/* Internal use */ + SX_ELEMENT *item; + ST_INT itemStackLevel; + SX_ELEMENT_TBL_CTRL items[SX_MAX_STACK_LEVEL]; + ST_BOOLEAN auto_pop[SX_MAX_STACK_LEVEL]; + + ST_INT xmlNestLevel; + SX_ELEMENT *elTbl[SX_MAX_XML_NEST]; + /* NOTE: "xmlPos" is NOT used if USE_EXPAT defined */ + ST_CHAR *xmlPos; + + ST_INT numAlloced; /* Used to keep track of dynamically allocated message buffers */ + ST_INT numAlloced2; + ST_INT numAlloced3; + ST_INT numAlloced4; + +/* User fields */ + ST_VOID *usr; + ST_VOID *elUser; + ST_VOID *unkElUser; + + /* The initial values for these pointers are passed to the functions */ + /* sx_parse_mt or sx_parseEx_mt. */ + ST_RET (*u_sx_el_start) (struct sx_dec_ctrl *sxDecCtrl, ST_CHAR *tag); + ST_RET (*u_sx_el_end) (struct sx_dec_ctrl *sxDecCtrl, ST_CHAR *tag); + } SX_DEC_CTRL ; + +/************************************************************************/ + +#define SX_PUSH(itemTbl)\ + sx_push (sxDecCtrl, sizeof(itemTbl)/sizeof(SX_ELEMENT), itemTbl, SD_TRUE) + +/* Thread safe versions of XML parsing */ +/* They are using the u_sx_el_xxx defined in the SX_DEC_CTRL) */ +ST_RET sx_parse_mt (ST_LONG lMsgLen, ST_CHAR *xml, ST_INT numItems, + SX_ELEMENT *itemTbl, ST_VOID *usr, + ST_RET (*u_sx_el_start_fun) (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *tag), + ST_RET (*u_sx_el_end_fun) (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *tag)); +ST_RET sx_parseEx_mt (ST_CHAR *fileName, ST_INT numItems, + SX_ELEMENT *itemTbl, ST_VOID *usr, + ST_RET (*u_sx_el_start_fun) (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *tag), + ST_RET (*u_sx_el_end_fun) (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *tag)); +ST_RET sx_parseExx_mt (ST_CHAR *fileName, ST_INT numItems, + SX_ELEMENT *itemTbl, ST_VOID *usr, + ST_RET (*u_sx_el_start_fun) (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *tag), + ST_RET (*u_sx_el_end_fun) (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *tag)); + +ST_VOID sx_push (SX_DEC_CTRL *sxDecCtrl, ST_INT numItems, + SX_ELEMENT *itemTbl, ST_BOOLEAN auto_pop); +ST_VOID sx_pop (SX_DEC_CTRL *sxDecCtrl); + + +ST_RET sx_get_entity (SX_DEC_CTRL *sxDecCtrl, + ST_CHAR *destBuf, ST_INT destLen, + ST_INT *lenOut); +ST_RET sx_get_int (SX_DEC_CTRL *sxDecCtrl, ST_INT *out_ptr); +ST_RET sx_get_float (SX_DEC_CTRL *sxDecCtrl, ST_FLOAT *out_ptr); +ST_RET sx_get_double (SX_DEC_CTRL *sxDecCtrl, ST_DOUBLE *out_ptr); +ST_RET sx_get_uchar (SX_DEC_CTRL *sxDecCtrl, ST_UCHAR *out_ptr); +ST_RET sx_get_int16 (SX_DEC_CTRL *sxDecCtrl, ST_INT16 *out_ptr); +ST_RET sx_get_uint16 (SX_DEC_CTRL *sxDecCtrl, ST_UINT16 *out_ptr); +ST_RET sx_get_int32 (SX_DEC_CTRL *sxDecCtrl, ST_INT32 *out_ptr); +ST_RET sx_get_uint32 (SX_DEC_CTRL *sxDecCtrl, ST_UINT32 *out_ptr); +ST_RET sx_get_uint32_hex (SX_DEC_CTRL *sxDecCtrl, ST_UINT32 *out_ptr); +ST_RET sx_get_long (SX_DEC_CTRL *sxDecCtrl, ST_LONG *out_ptr); +ST_RET sx_get_ulong (SX_DEC_CTRL *sxDecCtrl, ST_ULONG *out_ptr); +ST_RET sx_get_bool (SX_DEC_CTRL *sxDecCtrl, ST_BOOLEAN *out_ptr); +ST_RET sx_get_duration (SX_DEC_CTRL *sxDecCtrl, SX_DURATION *sxDuration); +ST_RET sx_get_xtime (SX_DEC_CTRL *sxDecCtrl, SX_DATE_TIME *sxDateTime); +ST_RET sx_get_tm (SX_DEC_CTRL *sxDecCtrl, struct tm *out_ptr); +ST_RET sx_get_tm_ex (SX_DEC_CTRL *sxDecCtrl, struct tm *out_ptr, ST_LONG *microseconds); +ST_RET sx_get_time (SX_DEC_CTRL *sxDecCtrl, time_t *out_ptr); +ST_RET sx_get_time_ex (SX_DEC_CTRL *sxDecCtrl, time_t *out_ptr, ST_LONG *microseconds); +ST_RET sx_get_uint (SX_DEC_CTRL *sxDecCtrl, ST_UINT *out_ptr); +ST_RET sx_get_alloc_string (SX_DEC_CTRL *sxDecCtrl, ST_CHAR **strOut); +ST_RET sx_get_string_ptr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR **strOut, ST_INT *lenOut); +ST_RET sx_get_string (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *dest, ST_INT *lenOut); +ST_RET sx_get_string_YesNo (SX_DEC_CTRL *sxDecCtrl, ST_BOOLEAN *dest, ST_RET errCode); +ST_RET sx_get_string_OnOff_mask (SX_DEC_CTRL *sxDecCtrl, ST_UINT *mask, ST_UINT maskBit, + ST_RET errCode); +ST_RET sx_get_string_OnOff_bool (SX_DEC_CTRL *sxDecCtrl, ST_BOOLEAN *dest, ST_RET errCode); +ST_VOID sx_format_string_dec (ST_CHAR *dest, ST_CHAR *src); +ST_VOID sx_format_string_enc (ST_CHAR *dest, ST_CHAR *src); +ST_VOID sx_format_nstring_enc (ST_CHAR *dest, ST_CHAR *src, ST_INT len); +ST_RET sx_get_bitstring (SX_DEC_CTRL *sxDecCtrl, ST_INT *dest, ST_INT *lenOut); +ST_RET sx_get_element_contents (SX_DEC_CTRL *sxDecCtrl, + ST_CHAR *destBuf, ST_INT destLen, + ST_INT *lenOut); +ST_RET sx_find_element_contents (SX_DEC_CTRL *sxDecCtrl, + ST_CHAR **elStartOut, ST_INT *lenOut); + +ST_RET sx_get_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *value, ST_CHAR *name); +ST_RET sx_get_attr_ptr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR **ptrOut, ST_CHAR *name); +ST_RET sx_get_bool_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, ST_BOOLEAN *out_ptr); +ST_RET sx_get_int_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, ST_INT *out_ptr); +ST_RET sx_get_float_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, ST_FLOAT *out_ptr); +ST_RET sx_get_double_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, ST_DOUBLE *out_ptr); +ST_RET sx_get_uchar_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, ST_UCHAR *out_ptr); +ST_RET sx_get_int16_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, ST_INT16 *out_ptr); +ST_RET sx_get_uint16_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, ST_UINT16 *out_ptr); +ST_RET sx_get_int32_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, ST_INT32 *out_ptr); +ST_RET sx_get_uint32_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, ST_UINT32 *out_ptr); +ST_RET sx_get_long_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, ST_LONG *out_ptr); +ST_RET sx_get_ulong_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, ST_ULONG *out_ptr); +ST_RET sx_get_uint_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, ST_UINT *out_ptr); +ST_RET sx_get_duration_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, SX_DURATION *out_ptr); +ST_RET sx_get_xtime_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, SX_DATE_TIME *out_ptr); +ST_RET sx_get_tm_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, struct tm *out_ptr); + +#define sxd_decode_data_el(elName,xml,xmlLen,xmlUsed,vdp,typeId,elPres,checkDt)\ + _sxd_decode_data_el(elName,xml,xmlLen,xmlUsed,vdp,typeId,elPres,sxdDefXmlStyle,checkDt) + + +ST_RET _sxd_decode_data_el (ST_CHAR *elName, + ST_CHAR *xml, ST_INT xmlLen, ST_INT *xmlUsed, + ST_VOID *vdp, ST_INT typeId, + ST_BOOLEAN *elPres, ST_INT sxdXmlStyle, ST_BOOLEAN checkDt); + +ST_VOID sxStartElement (SX_DEC_CTRL *sxDecCtrl); +ST_VOID sxEndElement (SX_DEC_CTRL *sxDecCtrl); +ST_RET sx_get_value (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *format_string, ST_VOID *out_ptr); +ST_RET sx_get_attr_value (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, + ST_CHAR *format_string, ST_VOID *out_ptr); + +ST_VOID sx_load_characters (ST_CHAR *lineBuf, ST_BOOLEAN *eof, FILE *fp, ST_INT numToRead); + + + +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ + +/* max prefix length in SXD_XML_STYLE_A */ +#define SXD_MAX_PREFIX 100 + +typedef struct sx_enc_ctrl + { + ST_INT xmlBufLen; + ST_CHAR *xmlBuf; + ST_CHAR *xmlBufEnd; + + ST_BOOLEAN useFp; + FILE *fp; + + ST_CHAR *nextWritePos; + + ST_INT currNestLevel; + ST_CHAR tags[SX_MAX_STACK_LEVEL][SX_MAX_TAG_LEN+1]; + ST_RET errCode; + + ST_BOOLEAN bUseFormatting; + ST_BOOLEAN bOneLineEl; + + ST_BOOLEAN bUnformattedStrings; + +/* Used for data encoding */ + ST_BOOLEAN encDt; + ST_CHAR *outerElement; + ST_INT sxdXmlStyle; + ST_CHAR sxdPrefix[SXD_MAX_PREFIX+1]; /* only for SXD_XML_STYLE_A */ + ST_INT sxdStructNestLevel; /* only for SXD_XML_STYLE_A */ + + ST_VOID *usr; + } SX_ENC_CTRL; + +/* Macro for getting current encoded length */ +#define SX_ENC_LEN(__sxEncCtrl) ((__sxEncCtrl)->nextWritePos - (__sxEncCtrl)->xmlBuf) + +/************************************************************************/ +/************************************************************************/ + +SX_ENC_CTRL *sx_start_encode (ST_CHAR *xmlBuf, ST_INT xmlBufLen); +SX_ENC_CTRL *sx_start_encodeEx (ST_CHAR *fileName); +ST_VOID sx_end_encode (SX_ENC_CTRL *sxEncCtrl); +ST_VOID sx_init_encode (SX_ENC_CTRL *sxEncCtrl, + ST_CHAR *xmlBuf, ST_INT xmlBufLen); +ST_RET sx_init_encodeEx (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *fileName); + +#define sx_start_element(sxEncCtrl,tag,numAttr,attr)\ + sx_write_element(sxEncCtrl,tag,numAttr,attr,SD_FALSE,SD_FALSE); + +#define sx_write_empty_element(sxEncCtrl,tag,numAttr,attr)\ + sx_write_element(sxEncCtrl,tag,numAttr,attr,SD_FALSE,SD_TRUE); + +ST_VOID sx_end_element (SX_ENC_CTRL *sxEncCtrl); +ST_VOID sx_write_element (SX_ENC_CTRL *sxEncCtrl, SD_CONST ST_CHAR *tag, + ST_INT numAttr, SXE_ATTR_PAIR *attr, + ST_BOOLEAN end, ST_BOOLEAN empty); + +/* Defines for 'no attribute' cases */ +#define sx_wr_string_el(sxEncCtrl,tag,str)\ + sx_wrx_string_el(sxEncCtrl,tag,str,0,NULL) + +#define sx_wr_nstring_el(sxEncCtrl,tag,str,len)\ + sx_wrx_nstring_el(sxEncCtrl,tag,str,len,0,NULL) + +#define sx_wr_int_el(sxEncCtrl,tag,val)\ + sx_wrx_int_el(sxEncCtrl,tag,val,0,NULL) + +#define sx_wr_uint_el(sxEncCtrl,tag,val)\ + sx_wrx_uint_el(sxEncCtrl,tag,val,0,NULL) + +#define sx_wr_ulong_el(sxEncCtrl,tag,val)\ + sx_wrx_ulong_el(sxEncCtrl,tag,val,0,NULL) + +#define sx_wr_uint32_hex_el(sxEncCtrl,tag,val)\ + sx_wrx_uint32_hex_el(sxEncCtrl,tag,val,0,NULL) + +#define sx_wr_float_el(sxEncCtrl,tag,val)\ + sx_wrx_float_el(sxEncCtrl,tag,val,0,NULL) + +#define sx_wr_double_el(sxEncCtrl,tag,val)\ + sx_wrx_double_el(sxEncCtrl,tag,val,0,NULL) + +#define sx_wr_long_el(sxEncCtrl,tag,val)\ + sx_wrx_long_el(sxEncCtrl,tag,val,0,NULL) + +#define sx_wr_bool_el(sxEncCtrl,tag,val)\ + sx_wrx_bool_el(sxEncCtrl,tag,val,0,NULL) + +#define sx_wr_tm_el(sxEncCtrl,tag,val)\ + sx_wrx_tm_el(sxEncCtrl,tag,val,0,NULL) + +#define sx_wr_time_el(sxEncCtrl,tag,val)\ + sx_wrx_time_el(sxEncCtrl,tag,val,0,NULL) + +#define sx_wr_duration_el(sxEncCtrl,tag,val)\ + sx_wrx_duration_el(sxEncCtrl,tag,val,0,NULL) + +#define sx_wr_xtime_el(sxEncCtrl,tag,val)\ + sx_wrx_xtime_el(sxEncCtrl,tag,val,0,NULL) + +#define sx_wr_cdata_el(sxEncCtrl,tag,str, len)\ + sx_wrx_cdata_el(sxEncCtrl,tag,str,len,0,NULL) + +/* Functions to write elements and element contents */ +ST_VOID sx_wr_string (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *str); +ST_VOID sx_wrx_string_el (SX_ENC_CTRL *sxEncCtrl, SD_CONST ST_CHAR *tag, ST_CHAR *str, + ST_INT numAttr, SXE_ATTR_PAIR *attr); + +ST_VOID sx_wr_nstring (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *str, ST_INT len); +ST_VOID sx_wrx_nstring_el (SX_ENC_CTRL *sxEncCtrl, SD_CONST ST_CHAR *tag, ST_CHAR *str, ST_INT len, + ST_INT numAttr, SXE_ATTR_PAIR *attr); + +ST_VOID sx_wr_bitstring (SX_ENC_CTRL *sxEncCtrl, ST_INT numBits, + ST_UINT8 *bitStr); +ST_VOID sx_wrx_bitstring_el (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *tag, + ST_INT numBits, ST_UINT8 *bitStr, + ST_INT numAttr, SXE_ATTR_PAIR *attr); + +ST_VOID sx_wr_int (SX_ENC_CTRL *sxEncCtrl, ST_INT val); +ST_VOID sx_wrx_int_el (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *tag, ST_INT val, + ST_INT numAttr, SXE_ATTR_PAIR *attr); + +ST_VOID sx_wr_uint (SX_ENC_CTRL *sxEncCtrl, ST_UINT val); +ST_VOID sx_wrx_uint_el (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *tag, ST_UINT val, + ST_INT numAttr, SXE_ATTR_PAIR *attr); + +ST_VOID sx_wr_ulong (SX_ENC_CTRL *sxEncCtrl, ST_ULONG val); +ST_VOID sx_wrx_ulong_el (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *tag, ST_ULONG val, + ST_INT numAttr, SXE_ATTR_PAIR *attr); + +ST_VOID sx_wr_uint32_hex (SX_ENC_CTRL *sxEncCtrl, ST_UINT32 val); +ST_VOID sx_wrx_uint32_hex_el (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *tag, ST_UINT32 val, + ST_INT numAttr, SXE_ATTR_PAIR *attr); + +ST_VOID sx_wr_float (SX_ENC_CTRL *sxEncCtrl, ST_FLOAT val); +ST_VOID sx_wrx_float_el (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *tag, ST_FLOAT val, + ST_INT numAttr, SXE_ATTR_PAIR *attr); + +ST_VOID sx_wr_double (SX_ENC_CTRL *sxEncCtrl, ST_DOUBLE val); +ST_VOID sx_wrx_double_el (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *tag, ST_DOUBLE val, + ST_INT numAttr, SXE_ATTR_PAIR *attr); + +ST_VOID sx_wr_long (SX_ENC_CTRL *sxEncCtrl, ST_LONG val); +ST_VOID sx_wrx_long_el (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *tag, ST_LONG val, + ST_INT numAttr, SXE_ATTR_PAIR *attr); + +ST_VOID sx_wr_bool (SX_ENC_CTRL *sxEncCtrl, ST_BOOLEAN val); +ST_VOID sx_wrx_bool_el (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *tag, ST_BOOLEAN val, + ST_INT numAttr, SXE_ATTR_PAIR *attr); + +ST_VOID sx_wr_tm (SX_ENC_CTRL *sxEncCtrl, struct tm *val); +ST_VOID sx_wrx_tm_el (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *tag, struct tm *val, + ST_INT numAttr, SXE_ATTR_PAIR *attr); + +ST_VOID sx_wr_time (SX_ENC_CTRL *sxEncCtrl, time_t val); +ST_VOID sx_wrx_time_el (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *tag, time_t val, + ST_INT numAttr, SXE_ATTR_PAIR *attr); + +ST_VOID sx_wr_duration (SX_ENC_CTRL *sxEncCtrl, SX_DURATION *sxDuration); +ST_VOID sx_wrx_duration_el (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *tag, SX_DURATION *val, + ST_INT numAttr, SXE_ATTR_PAIR *attr); + +ST_VOID sx_wr_xtime (SX_ENC_CTRL *sxEncCtrl, SX_DATE_TIME *sxDateTime); +ST_VOID sx_wrx_xtime_el (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *tag, SX_DATE_TIME *val, + ST_INT numAttr, SXE_ATTR_PAIR *attr); + +ST_VOID sx_wr_cdata (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *str, ST_INT len); +ST_VOID sx_wrx_cdata_el (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *tag, + ST_CHAR *str, ST_INT len, + ST_INT numAttr, SXE_ATTR_PAIR *attr); + +#define sxd_wr_data(ec,typeId,elName,data,encodeDt,elPres)\ + _sxd_wr_data(ec,typeId,elName,data,sxdDefXmlStyle,encodeDt,elPres)\ + +ST_RET _sxd_wr_data (SX_ENC_CTRL *sxEncCtrl, ST_INT typeId, + ST_CHAR *elName, ST_VOID *data, ST_INT sxdXmlStyle, + ST_BOOLEAN encodeDt, ST_BOOLEAN *elPres); + + +ST_VOID sx_add_string (SX_ENC_CTRL *sxEncCtrl, SD_CONST ST_CHAR *_src, + ST_CHAR **writePosIo); +ST_RET sx_add_buf (SX_ENC_CTRL *sxEncCtrl, SD_CONST ST_CHAR *_src, ST_INT _srcLen, + ST_CHAR **writePosIo); +ST_VOID sx_wr_comment (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *str); + +ST_RET XmlStringToDuration (ST_CHAR *src, SX_DURATION *out_ptr); +ST_RET XmlDurationToString (ST_CHAR *buffer, ST_LONG size, SX_DURATION *sxDuration); + +/************************************************************************/ +#ifdef __cplusplus +} +#endif + +#endif /* SX_DEFS_INCLUDED */ + diff --git a/include/inc/sx_log.h b/include/inc/sx_log.h new file mode 100644 index 0000000..36a3670 --- /dev/null +++ b/include/inc/sx_log.h @@ -0,0 +1,337 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1999 - 2005, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : sx_log.h */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 11/02/05 EJV 07 Add sx_debug_sel_cfg to save SX masks while */ +/* logging configuration is parsed. */ +/* 05/06/04 DWL 06 Use new "Base" macros SLOG_*, SLOGC_*, SLOGH.*/ +/* 06/06/01 GLB 05 Added SXLOG_CFLOW2 */ +/* 04/26/01 EJV 04 Added/rearranged slog macros for !DEBUG_SISCO*/ +/* 01/25/01 JRB 03 Added SXLOG_ERR2,3 */ +/* 10/30/99 MDE 02 Added SXLOG_NERR3 */ +/* 09/17/99 MDE 01 New */ +/************************************************************************/ + +#ifndef SX_LOG_INCLUDED +#define SX_LOG_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +/************************************************************************/ + +#include "slog.h" + +/************************************************************************/ +/* sx_debug_sel bit assignments */ + +#define SX_LOG_DEC 0x0001 +#define SX_LOG_ENC 0x0002 +#define SX_LOG_FLOW 0x0004 +#define SX_LOG_DEBUG 0x0008 +#define SX_LOG_ERR 0x0010 +#define SX_LOG_NERR 0x0020 + +extern ST_UINT sx_debug_sel; +extern ST_UINT sx_debug_sel_cfg; /* saves SX masks while logging configuration is parsed */ + +/* Log type strings */ +extern SD_CONST ST_CHAR *SD_CONST _sx_log_dec_logstr; +extern SD_CONST ST_CHAR *SD_CONST _sx_log_enc_logstr; +extern SD_CONST ST_CHAR *SD_CONST _sx_log_flow_logstr; +extern SD_CONST ST_CHAR *SD_CONST _sx_log_debug_logstr; +extern SD_CONST ST_CHAR *SD_CONST _sx_log_err_logstr; +extern SD_CONST ST_CHAR *SD_CONST _sx_log_nerr_logstr; + +/************************************************************************/ +/* Decode log macros */ +#define SXLOG_DEC0(a) \ + SLOG_0 (sx_debug_sel & SX_LOG_DEC,_sx_log_dec_logstr,a) +#define SXLOG_DEC1(a,b) \ + SLOG_1 (sx_debug_sel & SX_LOG_DEC,_sx_log_dec_logstr,a,b) +#define SXLOG_DEC2(a,b,c) \ + SLOG_2 (sx_debug_sel & SX_LOG_DEC,_sx_log_dec_logstr,a,b,c) +#define SXLOG_DEC3(a,b,c,d) \ + SLOG_3 (sx_debug_sel & SX_LOG_DEC,_sx_log_dec_logstr,a,b,c,d) +#define SXLOG_DEC4(a,b,c,d,e) \ + SLOG_4 (sx_debug_sel & SX_LOG_DEC,_sx_log_dec_logstr,a,b,c,d,e) +#define SXLOG_DEC5(a,b,c,d,e,f) \ + SLOG_5 (sx_debug_sel & SX_LOG_DEC,_sx_log_dec_logstr,a,b,c,d,e,f) +#define SXLOG_DEC6(a,b,c,d,e,f,g) \ + SLOG_6 (sx_debug_sel & SX_LOG_DEC,_sx_log_dec_logstr,a,b,c,d,e,f,g) +#define SXLOG_DEC7(a,b,c,d,e,f,g,h) \ + SLOG_7 (sx_debug_sel & SX_LOG_DEC,_sx_log_dec_logstr,a,b,c,d,e,f,g,h) +#define SXLOG_DEC8(a,b,c,d,e,f,g,h,i) \ + SLOG_8 (sx_debug_sel & SX_LOG_DEC,_sx_log_dec_logstr,a,b,c,d,e,f,g,h,i) + +/* Decode continuation log macros */ +#define SXLOG_CDEC0(a) \ + SLOGC_0 (sx_debug_sel & SX_LOG_DEC,a) +#define SXLOG_CDEC1(a,b) \ + SLOGC_1 (sx_debug_sel & SX_LOG_DEC,a,b) +#define SXLOG_CDEC2(a,b,c) \ + SLOGC_2 (sx_debug_sel & SX_LOG_DEC,a,b,c) +#define SXLOG_CDEC3(a,b,c,d) \ + SLOGC_3 (sx_debug_sel & SX_LOG_DEC,a,b,c,d) +#define SXLOG_CDEC4(a,b,c,d,e) \ + SLOGC_4 (sx_debug_sel & SX_LOG_DEC,a,b,c,d,e) +#define SXLOG_CDEC5(a,b,c,d,e,f) \ + SLOGC_5 (sx_debug_sel & SX_LOG_DEC,a,b,c,d,e,f) +#define SXLOG_CDEC6(a,b,c,d,e,f,g) \ + SLOGC_6 (sx_debug_sel & SX_LOG_DEC,a,b,c,d,e,f,g) +#define SXLOG_CDEC7(a,b,c,d,e,f,g,h) \ + SLOGC_7 (sx_debug_sel & SX_LOG_DEC,a,b,c,d,e,f,g,h) +#define SXLOG_CDEC8(a,b,c,d,e,f,g,h,i) \ + SLOGC_8 (sx_debug_sel & SX_LOG_DEC,a,b,c,d,e,f,g,h,i) + +/* Decode Hex log macro */ +#define SXLOG_DECH(a,b) \ + SLOGH (sx_debug_sel & SX_LOG_DEC,a,b) + +/************************************************************************/ +/* Encode log macros */ +#define SXLOG_ENC0(a) \ + SLOG_0 (sx_debug_sel & SX_LOG_ENC,_sx_log_enc_logstr,a) +#define SXLOG_ENC1(a,b) \ + SLOG_1 (sx_debug_sel & SX_LOG_ENC,_sx_log_enc_logstr,a,b) +#define SXLOG_ENC2(a,b,c) \ + SLOG_2 (sx_debug_sel & SX_LOG_ENC,_sx_log_enc_logstr,a,b,c) +#define SXLOG_ENC3(a,b,c,d) \ + SLOG_3 (sx_debug_sel & SX_LOG_ENC,_sx_log_enc_logstr,a,b,c,d) +#define SXLOG_ENC4(a,b,c,d,e) \ + SLOG_4 (sx_debug_sel & SX_LOG_ENC,_sx_log_enc_logstr,a,b,c,d,e) +#define SXLOG_ENC5(a,b,c,d,e,f) \ + SLOG_5 (sx_debug_sel & SX_LOG_ENC,_sx_log_enc_logstr,a,b,c,d,e,f) +#define SXLOG_ENC6(a,b,c,d,e,f,g) \ + SLOG_6 (sx_debug_sel & SX_LOG_ENC,_sx_log_enc_logstr,a,b,c,d,e,f,g) +#define SXLOG_ENC7(a,b,c,d,e,f,g,h) \ + SLOG_7 (sx_debug_sel & SX_LOG_ENC,_sx_log_enc_logstr,a,b,c,d,e,f,g,h) +#define SXLOG_ENC8(a,b,c,d,e,f,g,h,i) \ + SLOG_8 (sx_debug_sel & SX_LOG_ENC,_sx_log_enc_logstr,a,b,c,d,e,f,g,h,i) + +/* Encode continuation log macros */ +#define SXLOG_CENC0(a) \ + SLOGC_0 (sx_debug_sel & SX_LOG_ENC,a) +#define SXLOG_CENC1(a,b) \ + SLOGC_1 (sx_debug_sel & SX_LOG_ENC,a,b) +#define SXLOG_CENC2(a,b,c) \ + SLOGC_2 (sx_debug_sel & SX_LOG_ENC,a,b,c) +#define SXLOG_CENC3(a,b,c,d) \ + SLOGC_3 (sx_debug_sel & SX_LOG_ENC,a,b,c,d) +#define SXLOG_CENC4(a,b,c,d,e) \ + SLOGC_4 (sx_debug_sel & SX_LOG_ENC,a,b,c,d,e) +#define SXLOG_CENC5(a,b,c,d,e,f) \ + SLOGC_5 (sx_debug_sel & SX_LOG_ENC,a,b,c,d,e,f) +#define SXLOG_CENC6(a,b,c,d,e,f,g) \ + SLOGC_6 (sx_debug_sel & SX_LOG_ENC,a,b,c,d,e,f,g) +#define SXLOG_CENC7(a,b,c,d,e,f,g,h) \ + SLOGC_7 (sx_debug_sel & SX_LOG_ENC,a,b,c,d,e,f,g,h) +#define SXLOG_CENC8(a,b,c,d,e,f,g,h,i) \ + SLOGC_8 (sx_debug_sel & SX_LOG_ENC,a,b,c,d,e,f,g,h,i) + +/* Encode Hex log macro */ +#define SXLOG_ENCH(a,b) \ + SLOGH (sx_debug_sel & SX_LOG_ENC,a,b) + +/************************************************************************/ +/* Flow log macros */ +#define SXLOG_FLOW0(a) \ + SLOG_0 (sx_debug_sel & SX_LOG_FLOW,_sx_log_flow_logstr,a) +#define SXLOG_FLOW1(a,b) \ + SLOG_1 (sx_debug_sel & SX_LOG_FLOW,_sx_log_flow_logstr,a,b) +#define SXLOG_FLOW2(a,b,c) \ + SLOG_2 (sx_debug_sel & SX_LOG_FLOW,_sx_log_flow_logstr,a,b,c) +#define SXLOG_FLOW3(a,b,c,d) \ + SLOG_3 (sx_debug_sel & SX_LOG_FLOW,_sx_log_flow_logstr,a,b,c,d) +#define SXLOG_FLOW4(a,b,c,d,e) \ + SLOG_4 (sx_debug_sel & SX_LOG_FLOW,_sx_log_flow_logstr,a,b,c,d,e) +#define SXLOG_FLOW5(a,b,c,d,e,f) \ + SLOG_5 (sx_debug_sel & SX_LOG_FLOW,_sx_log_flow_logstr,a,b,c,d,e,f) +#define SXLOG_FLOW6(a,b,c,d,e,f,g) \ + SLOG_6 (sx_debug_sel & SX_LOG_FLOW,_sx_log_flow_logstr,a,b,c,d,e,f,g) +#define SXLOG_FLOW7(a,b,c,d,e,f,g,h) \ + SLOG_7 (sx_debug_sel & SX_LOG_FLOW,_sx_log_flow_logstr,a,b,c,d,e,f,g,h) +#define SXLOG_FLOW8(a,b,c,d,e,f,g,h,i) \ + SLOG_8 (sx_debug_sel & SX_LOG_FLOW,_sx_log_flow_logstr,a,b,c,d,e,f,g,h,i) + +/* Flow continuation log macros */ +#define SXLOG_CFLOW0(a) \ + SLOGC_0 (sx_debug_sel & SX_LOG_FLOW,a) +#define SXLOG_CFLOW1(a,b) \ + SLOGC_1 (sx_debug_sel & SX_LOG_FLOW,a,b) +#define SXLOG_CFLOW2(a,b,c) \ + SLOGC_2 (sx_debug_sel & SX_LOG_FLOW,a,b,c) +#define SXLOG_CFLOW3(a,b,c,d) \ + SLOGC_3 (sx_debug_sel & SX_LOG_FLOW,a,b,c,d) +#define SXLOG_CFLOW4(a,b,c,d,e) \ + SLOGC_4 (sx_debug_sel & SX_LOG_FLOW,a,b,c,d,e) +#define SXLOG_CFLOW5(a,b,c,d,e,f) \ + SLOGC_5 (sx_debug_sel & SX_LOG_FLOW,a,b,c,d,e,f) +#define SXLOG_CFLOW6(a,b,c,d,e,f,g) \ + SLOGC_6 (sx_debug_sel & SX_LOG_FLOW,a,b,c,d,e,f,g) +#define SXLOG_CFLOW7(a,b,c,d,e,f,g,h) \ + SLOGC_7 (sx_debug_sel & SX_LOG_FLOW,a,b,c,d,e,f,g,h) +#define SXLOG_CFLOW8(a,b,c,d,e,f,g,h,i) \ + SLOGC_8 (sx_debug_sel & SX_LOG_FLOW,a,b,c,d,e,f,g,h,i) + +/* Flow Hex log macro */ +#define SXLOG_FLOWH(a,b) \ + SLOGH (sx_debug_sel & SX_LOG_FLOW,a,b) + +/************************************************************************/ +/* Debug log macros */ +#define SXLOG_DEBUG0(a) \ + SLOG_0 (sx_debug_sel & SX_LOG_DEBUG,_sx_log_debug_logstr,a) +#define SXLOG_DEBUG1(a,b) \ + SLOG_1 (sx_debug_sel & SX_LOG_DEBUG,_sx_log_debug_logstr,a,b) +#define SXLOG_DEBUG2(a,b,c) \ + SLOG_2 (sx_debug_sel & SX_LOG_DEBUG,_sx_log_debug_logstr,a,b,c) +#define SXLOG_DEBUG3(a,b,c,d) \ + SLOG_3 (sx_debug_sel & SX_LOG_DEBUG,_sx_log_debug_logstr,a,b,c,d) +#define SXLOG_DEBUG4(a,b,c,d,e) \ + SLOG_4 (sx_debug_sel & SX_LOG_DEBUG,_sx_log_debug_logstr,a,b,c,d,e) +#define SXLOG_DEBUG5(a,b,c,d,e,f) \ + SLOG_5 (sx_debug_sel & SX_LOG_DEBUG,_sx_log_debug_logstr,a,b,c,d,e,f) +#define SXLOG_DEBUG6(a,b,c,d,e,f,g) \ + SLOG_6 (sx_debug_sel & SX_LOG_DEBUG,_sx_log_debug_logstr,a,b,c,d,e,f,g) +#define SXLOG_DEBUG7(a,b,c,d,e,f,g,h) \ + SLOG_7 (sx_debug_sel & SX_LOG_DEBUG,_sx_log_debug_logstr,a,b,c,d,e,f,g,h) +#define SXLOG_DEBUG8(a,b,c,d,e,f,g,h,i) \ + SLOG_8 (sx_debug_sel & SX_LOG_DEBUG,_sx_log_debug_logstr,a,b,c,d,e,f,g,h,i) + +/* Debug continuation log macros */ +#define SXLOG_CDEBUG0(a) \ + SLOGC_0 (sx_debug_sel & SX_LOG_DEBUG,a) +#define SXLOG_CDEBUG1(a,b) \ + SLOGC_1 (sx_debug_sel & SX_LOG_DEBUG,a,b) +#define SXLOG_CDEBUG2(a,b,c) \ + SLOGC_2 (sx_debug_sel & SX_LOG_DEBUG,a,b,c) +#define SXLOG_CDEBUG3(a,b,c,d) \ + SLOGC_3 (sx_debug_sel & SX_LOG_DEBUG,a,b,c,d) +#define SXLOG_CDEBUG4(a,b,c,d,e) \ + SLOGC_4 (sx_debug_sel & SX_LOG_DEBUG,a,b,c,d,e) +#define SXLOG_CDEBUG5(a,b,c,d,e,f) \ + SLOGC_5 (sx_debug_sel & SX_LOG_DEBUG,a,b,c,d,e,f) +#define SXLOG_CDEBUG6(a,b,c,d,e,f,g) \ + SLOGC_6 (sx_debug_sel & SX_LOG_DEBUG,a,b,c,d,e,f,g) +#define SXLOG_CDEBUG7(a,b,c,d,e,f,g,h) \ + SLOGC_7 (sx_debug_sel & SX_LOG_DEBUG,a,b,c,d,e,f,g,h) +#define SXLOG_CDEBUG8(a,b,c,d,e,f,g,h,i) \ + SLOGC_8 (sx_debug_sel & SX_LOG_DEBUG,a,b,c,d,e,f,g,h,i) + +/* Debug Hex log macro */ +#define SXLOG_DEBUGH(a,b) \ + SLOGH (sx_debug_sel & SX_LOG_DEBUG,a,b) + +/************************************************************************/ +/* Err log macros */ +#define SXLOG_ERR0(a) \ + SLOG_0 (sx_debug_sel & SX_LOG_ERR,_sx_log_err_logstr,a) +#define SXLOG_ERR1(a,b) \ + SLOG_1 (sx_debug_sel & SX_LOG_ERR,_sx_log_err_logstr,a,b) +#define SXLOG_ERR2(a,b,c) \ + SLOG_2 (sx_debug_sel & SX_LOG_ERR,_sx_log_err_logstr,a,b,c) +#define SXLOG_ERR3(a,b,c,d) \ + SLOG_3 (sx_debug_sel & SX_LOG_ERR,_sx_log_err_logstr,a,b,c,d) +#define SXLOG_ERR4(a,b,c,d,e) \ + SLOG_4 (sx_debug_sel & SX_LOG_ERR,_sx_log_err_logstr,a,b,c,d,e) +#define SXLOG_ERR5(a,b,c,d,e,f) \ + SLOG_5 (sx_debug_sel & SX_LOG_ERR,_sx_log_err_logstr,a,b,c,d,e,f) +#define SXLOG_ERR6(a,b,c,d,e,f,g) \ + SLOG_6 (sx_debug_sel & SX_LOG_ERR,_sx_log_err_logstr,a,b,c,d,e,f,g) +#define SXLOG_ERR7(a,b,c,d,e,f,g,h) \ + SLOG_7 (sx_debug_sel & SX_LOG_ERR,_sx_log_err_logstr,a,b,c,d,e,f,g,h) +#define SXLOG_ERR8(a,b,c,d,e,f,g,h,i) \ + SLOG_8 (sx_debug_sel & SX_LOG_ERR,_sx_log_err_logstr,a,b,c,d,e,f,g,h,i) + +/* Err continuation log macros */ +#define SXLOG_CERR0(a) \ + SLOGC_0 (sx_debug_sel & SX_LOG_ERR,a) +#define SXLOG_CERR1(a,b) \ + SLOGC_1 (sx_debug_sel & SX_LOG_ERR,a,b) +#define SXLOG_CERR2(a,b,c) \ + SLOGC_2 (sx_debug_sel & SX_LOG_ERR,a,b,c) +#define SXLOG_CERR3(a,b,c,d) \ + SLOGC_3 (sx_debug_sel & SX_LOG_ERR,a,b,c,d) +#define SXLOG_CERR4(a,b,c,d,e) \ + SLOGC_4 (sx_debug_sel & SX_LOG_ERR,a,b,c,d,e) +#define SXLOG_CERR5(a,b,c,d,e,f) \ + SLOGC_5 (sx_debug_sel & SX_LOG_ERR,a,b,c,d,e,f) +#define SXLOG_CERR6(a,b,c,d,e,f,g) \ + SLOGC_6 (sx_debug_sel & SX_LOG_ERR,a,b,c,d,e,f,g) +#define SXLOG_CERR7(a,b,c,d,e,f,g,h) \ + SLOGC_7 (sx_debug_sel & SX_LOG_ERR,a,b,c,d,e,f,g,h) +#define SXLOG_CERR8(a,b,c,d,e,f,g,h,i) \ + SLOGC_8 (sx_debug_sel & SX_LOG_ERR,a,b,c,d,e,f,g,h,i) + +/* Err Hex log macro */ +#define SXLOG_ERRH(a,b) \ + SLOGH (sx_debug_sel & SX_LOG_ERR,a,b) + +/************************************************************************/ +/* NErr log macros */ +#define SXLOG_NERR0(a) \ + SLOG_0 (sx_debug_sel & SX_LOG_NERR,_sx_log_nerr_logstr,a) +#define SXLOG_NERR1(a,b) \ + SLOG_1 (sx_debug_sel & SX_LOG_NERR,_sx_log_nerr_logstr,a,b) +#define SXLOG_NERR2(a,b,c) \ + SLOG_2 (sx_debug_sel & SX_LOG_NERR,_sx_log_nerr_logstr,a,b,c) +#define SXLOG_NERR3(a,b,c,d) \ + SLOG_3 (sx_debug_sel & SX_LOG_NERR,_sx_log_nerr_logstr,a,b,c,d) +#define SXLOG_NERR4(a,b,c,d,e) \ + SLOG_4 (sx_debug_sel & SX_LOG_NERR,_sx_log_nerr_logstr,a,b,c,d,e) +#define SXLOG_NERR5(a,b,c,d,e,f) \ + SLOG_5 (sx_debug_sel & SX_LOG_NERR,_sx_log_nerr_logstr,a,b,c,d,e,f) +#define SXLOG_NERR6(a,b,c,d,e,f,g) \ + SLOG_6 (sx_debug_sel & SX_LOG_NERR,_sx_log_nerr_logstr,a,b,c,d,e,f,g) +#define SXLOG_NERR7(a,b,c,d,e,f,g,h) \ + SLOG_7 (sx_debug_sel & SX_LOG_NERR,_sx_log_nerr_logstr,a,b,c,d,e,f,g,h) +#define SXLOG_NERR8(a,b,c,d,e,f,g,h,i) \ + SLOG_8 (sx_debug_sel & SX_LOG_NERR,_sx_log_nerr_logstr,a,b,c,d,e,f,g,h,i) + +/* NErr continuation log macros */ +#define SXLOG_CNERR0(a) \ + SLOGC_0 (sx_debug_sel & SX_LOG_NERR,a) +#define SXLOG_CNERR1(a,b) \ + SLOGC_1 (sx_debug_sel & SX_LOG_NERR,a,b) +#define SXLOG_CNERR2(a,b,c) \ + SLOGC_2 (sx_debug_sel & SX_LOG_NERR,a,b,c) +#define SXLOG_CNERR3(a,b,c,d) \ + SLOGC_3 (sx_debug_sel & SX_LOG_NERR,a,b,c,d) +#define SXLOG_CNERR4(a,b,c,d,e) \ + SLOGC_4 (sx_debug_sel & SX_LOG_NERR,a,b,c,d,e) +#define SXLOG_CNERR5(a,b,c,d,e,f) \ + SLOGC_5 (sx_debug_sel & SX_LOG_NERR,a,b,c,d,e,f) +#define SXLOG_CNERR6(a,b,c,d,e,f,g) \ + SLOGC_6 (sx_debug_sel & SX_LOG_NERR,a,b,c,d,e,f,g) +#define SXLOG_CNERR7(a,b,c,d,e,f,g,h) \ + SLOGC_7 (sx_debug_sel & SX_LOG_NERR,a,b,c,d,e,f,g,h) +#define SXLOG_CNERR8(a,b,c,d,e,f,g,h,i) \ + SLOGC_8 (sx_debug_sel & SX_LOG_NERR,a,b,c,d,e,f,g,h,i) + +/* NErr Hex log macro */ +#define SXLOG_NERRH(a,b) \ + SLOGH (sx_debug_sel & SX_LOG_NERR,a,b) +/************************************************************************/ + + +#ifdef __cplusplus +} +#endif + +/************************************************************************/ +#endif /* End of SX_LOG_INCLUDED */ +/************************************************************************/ diff --git a/include/inc/sysincs.h b/include/inc/sysincs.h new file mode 100644 index 0000000..bbba924 --- /dev/null +++ b/include/inc/sysincs.h @@ -0,0 +1,468 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2008, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : sysincs.h */ +/* PRODUCT(S) : MMSEASE */ +/* */ +/* MODULE DESCRIPTION : */ +/* The purpose of this include file is to bring in include files */ +/* that come with one of the various C compilers. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/27/08 EJV 48 Defined S_MAX_PATH for all systems. */ +/* 01/15/08 EJV 47 Added S_FMT_* helper macros for (s)printf. */ +/* 11/01/07 EJV UNIX, Linux: added define MAX_PATH. */ +/* 02/28/08 JRB 46 Add timeb.h for _WIN32, linux, QNX. */ +/* 10/03/07 JRB 45 Add winsock2.h BEFORE windows.h */ +/* Add #pragma for _WIN32. */ +/* 11/08/06 EJV 44 HP-UX: use */ +/* 07/10/06 EJV 43 Sun: chg inlude to . */ +/* 06/19/06 EJV 42 VXWORKS, QNX: added . */ +/* UNIX, Linux: added . */ +/* 02/28/06 EJV 41 Added pragma to disable warning C4996 (about */ +/* deprecated functions). */ +/* 01/30/06 GLB 33 Integrated porting changes for VMS */ +/* 02/13/06 DSF 39 Migrate to VS.NET 2005 */ +/* 12/16/05 GLB 38 Added "unix.h" for "ftruncate" */ +/* 11/21/05 DSF 37 Do not enforce definition of ASSERT */ +/* 09/28/05 EJV 36 Moved filio.h for sun (from gensock2.c). */ +/* 08/10/05 JRB 35 Fixed a few newline characters. */ +/* 07/15/05 DSF 34 Fixed SASSERT warnings for release builds */ +/* 05/24/05 EJV 33 UNIX, Linux: added include */ +/* 03/18/05 DSF 32 Log asserts */ +/* 12/07/04 JRB 31 Define larger FD_SETSIZE for QNX. */ +/* 09/22/04 EJV 30 Added INADDR_NONE (needed on sun) */ +/* 07/08/04 DSF 29 Fixed SASSERT macro */ +/* 01/26/04 JRB 28 Fix LYNX includes. */ +/* 01/22/04 DSF 27 Added/modified ASSERT macros */ +/* 01/19/04 EJV 26 __hpux 10.20 does not have sys/select.h. */ +/* 12/09/03 JRB 25 Add LYNX support. Add () to max,min macros. */ +/* 10/23/03 JRB 24 Move socket includes to here. */ +/* For _WIN32, add windows.h, process.h */ +/* Del unused CDECL define. */ +/* 04/28/03 DSF 23 Make sure expression inside VERIFY is always */ +/* executed */ +/* 04/15/03 DSF 22 Don't define/undef NDEBUG */ +/* 03/18/03 JRB 21 Fix QNX #ifdef. */ +/* 02/20/03 JRB 20 Del PSOS code. */ +/* 02/17/03 CRM 19 Added "defined(linux)" code. */ +/* 02/17/03 JRB 18 Stop using SYSTEM_SEL define. */ +/* Add conio.h for WIN32. */ +/* Add sys/time.h, sys/select.h for UNIX. */ +/* Add termio.h for UNIX & QNX. */ +/* 02/27/02 EJV 17 Added limits.h to most of systems. */ +/* Check if LONG_MAX and INT_MAX defined. */ +/* 07/27/01 DSF 16 crtdbg.h should only be included if _DEBUG */ +/* is defined */ +/* 03/16/01 DSF 15 Make sure VERIFY is not defined before */ +/* defining it */ +/* 02/02/01 DSF 14 Added asserts */ +/* 01/19/01 EJV 13 Added for SYSTEM_SEL_SYS_5. */ +/* 01/03/01 EJV 12 Added for SYSTEM_SEL_SYS_5. */ +/* 10/13/00 EJV 11 Added for some SYSTEM_SEL_SYS_5. */ +/* 05/05/00 JRB 10 Added "select.h" for some systems. */ +/* 04/20/00 EJV 09 Added stdarg.h for SYSTEM_SEL_SYS_5. */ +/* 02/04/99 JRB 08 Added types.h & stat.h for most systems. */ +/* 07/01/98 JRB 07 Added stdarg.h & ctype.h for some systems. */ +/* 12/29/97 JRB 06 Cleaned up OS2 (include os2.h). More PSOS. */ +/* 12/11/97 JRB 05 Cleaned up PSOS includes. Use SYS_PSOS. */ +/* 12/11/97 JRB 04 Deleted EMBEDDED_6800 includes. */ +/* 10/29/97 EJV 03 Corrected max maro definition */ +/* 10/28/97 EJV 02 Added *.h files specific for SYS_5 */ +/* 08/15/97 EJV 01 Added *.h files specific for SYS_QNX4 */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef SYSINCS_INCLUDED +#define SYSINCS_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#if defined(__OS2__) +#define INCL_BASE /* include all OS2 definitions. */ +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#ifdef kbhit /* The OS/2 2.0 version is not what we want */ +#undef kbhit +#endif +#include /* for _beginthread, _endthread */ +#include /* for "kill", etc. */ +/* Sockets related includes */ +#include +#include /* IPPROTO_*, etc. */ +#include /* gethostbyname, etc. */ +#include /* defines FIONBIO */ +#endif /* OS2 */ + +#if defined (_WIN32) +#if !defined (_CRT_SECURE_NO_DEPRECATE) +#define _CRT_SECURE_NO_DEPRECATE +#endif +#pragma warning(disable : 4996) +#pragma warning(disable : 4786 4800) + +#if defined (_CRT_SECURE_CPP_OVERLOAD_STANDARD_NAMES) +#undef _CRT_SECURE_CPP_OVERLOAD_STANDARD_NAMES +#define _CRT_SECURE_CPP_OVERLOAD_STANDARD_NAMES 1 +#endif + + + +/* winsock2.h MUST ALWAYS BE BEFORE windows.h to override defs in */ +/* winsock.h (included by windows.h). Any module that includes windows.h*/ +/* before sysincs.h, must also include winsock2.h before windows.h. */ +#include /* must be before windows.h */ +#include +#include /* for _beginthread, _endthread */ +#include /* for ftime, timeb */ +#endif /* defined(_WIN32) */ + +#if defined(_WIN32) || defined(MSDOS) || defined(__MSDOS__) +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#endif + +#if defined(VXWORKS) +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include /* for "kill", etc. */ +/* Sockets related includes */ +#include +#include +#include +#include +#include +/*#include */ +#include /* IPPROTO_*, etc. */ +#include /* inet_addr, etc. */ +#include /* TCP_NODELAY, etc. */ +#include +#endif + +#if defined(__QNX__) +/* FD_SETSIZE default is only 32 on QNX. Must define larger value */ +/* here (before any system includes) to allow more TCP connections. */ +#define FD_SETSIZE 600 +#include +#include +#include +#include +#include +#include +#include +#include /* S_IFIFO, S_IRUSR, S_IWUSR, etc. */ +#include +#include +#include /* mknod, etc. */ +#include /* added for "ftruncate" */ +#include /* open, O_RDONLY, O_WRONLY, etc. */ +#include /* execlp, etc. */ +#include +#include +#include +#include +#include +#include /* for "kill", etc. */ +#include /* for ftime, timeb */ +/* Sockets related includes */ +#include +#include /* gethostbyname, etc. */ +#include /* IPPROTO_*, etc. */ +#include /* inet_addr, etc. */ +#include /* TCP_NODELAY, etc. */ +#include +#endif + +/* UNIX or "UNIX-like" systems */ +#if defined(_AIX) || defined(sun) || defined(__hpux) || defined(linux) \ + || (defined(__alpha) && !defined(__VMS)) || defined(__LYNX) +#include /* SHOULD be before any other include files */ +#include +#include +#include +#include +#if (!defined(__LYNX)) +#include +#include +#endif + +//lnk20260611 +#ifndef __cplusplus +#ifndef max +#define max(a,b) (((a) > (b)) ? (a) : (b)) +#endif + +#ifndef min +#define min(a,b) (((a) < (b)) ? (a) : (b)) +#endif +#endif +#include +#include +#include +#include +#include +#include /* open, O_RDONLY, O_WRONLY, etc. */ +#include +#include + +#if defined(linux) +#include /* for ftime, timeb */ +#endif + +#if defined(__hpux) +#include +#else +#include +#endif + +#if (!defined (__hpux)) && (!defined(__LYNX)) +#include +#endif +#include /* for "kill", etc. */ +#include +#if defined(sun) +#include +#endif +/* Sockets related includes */ +#if defined(__LYNX) +#include +#else +#include +#endif +#include /* gethostbyname, etc. */ +#include /* IPPROTO_*, etc. */ +#include /* for sockaddr_un */ +/* Forward references are supplied to eliminate xlC_r compiler warnings */ +struct ether_addr; /* forward reference */ +struct sockaddr_dl; /* forward reference */ +#include /* inet_addr, etc. */ +#include /* TCP_NODELAY, etc. */ +#ifndef INADDR_NONE +#define INADDR_NONE ((in_addr_t) 0xffffffff) +#endif +#endif /* defined(_AIX) || defined(sun) || defined(__hpux) || defined(linux) ... */ + +#if defined(__ECOS) +#include +#include +#include +#include +#include +#include +#include +#define max(a,b) (((a) > (b)) ? (a) : (b)) +#define min(a,b) (((a) < (b)) ? (a) : (b)) +#endif + +#if defined(__VMS) +#include +#include +#include +#include +#include +#include + +#include /* VMS descriptor stuff */ +#include /* I/O FUNCTION CODE DEFS */ +#include /* LIB$ RTL-routine signatures. */ +#include /* LIB$ RTL-routine signatures. */ +#include /* LIB$ RTL-routine signatures. */ +#include /* SS$_ sys ser return stati <8-) */ +#include /* Sys ser calls */ +#include /* ... */ +#include /* Convert floating-point data type */ +#include /* ... */ +#include /* UNIX style Signal Value Definitions */ +#include +#include +#include + +#include "stdarg.h" +#include "iostream.h" +#include +#include +#include + +#include /* TCP descriptions */ +#include /* internet system Constants and structures. */ +#include /* Network address info. */ +#include /* Network database library info. */ +#include /* TCP/IP socket definitions. */ +#include +#include /* Operations on socket (?) */ + +#define max(a,b) ((a > b) ? a : b) +#define min(a,b) ((a < b) ? a : b) +#endif + +#if (!defined(INT_MAX)) || (!defined(LONG_MAX)) +#error INT_MAX and LONG_MAX must be defined. Usually defined in limits.h +#endif + +#if defined(MAX_PATH) +#define S_MAX_PATH MAX_PATH +#elif defined(PATH_MAX) /* POSIX should have it defined in limits.h */ +#define S_MAX_PATH PATH_MAX +#else +#define S_MAX_PATH 1024 /* default */ +#endif + + /*----------------------------------------------*/ + /* printf, sprintf, sscanf helper macros */ + /*----------------------------------------------*/ + +/* helper macro for 32-bit and 64-bit pointers support */ +/* If pointer "0x%p" format is not supported then something like "0x%x",*/ +/* "0x%lx", or "0x%llx" may be used, depending on the pointer size. */ +#if defined(_WIN32) + #define S_FMT_PTR "0x%p" +#else /* all other systems (e.g. UNIX) */ + #define S_FMT_PTR "0x%p" +#endif /* all other systems (e.g. UNIX) */ + +/* helper macro for time_t */ +#if defined(_WIN32) + #if defined(_USE_32BIT_TIME_T) + #define S_FMT_TIME_T "%d" + #else + #define S_FMT_TIME_T "%I64d" + #endif +#else /* all other systems (e.g. UNIX) */ + #define S_FMT_TIME_T "%d" +#endif /* all other systems (e.g. UNIX) */ + +#ifdef INT64_SUPPORT +#ifdef _WIN32 + #define S_FMT_INT64 "%I64d" + #define S_FMT_UINT64 "%I64u" +#elif defined(_AIX) || defined(__hpux) || defined(linux) || defined(sun) || defined(__LYNX) + #define S_FMT_INT64 "%lld" + #define S_FMT_UINT64 "%llu" +#elif (defined(__alpha) && !defined(__VMS)) + #define S_FMT_INT64 "%ld" + #define S_FMT_UINT64 "%lu" +#else /* all other systems */ + #error Missing S_FMT_INT64 and S_FMT_UINT64 defines for this platform. +#endif /* all other systems */ +#endif /* INT64_SUPPORT */ + +/* helper macro for HANDLE */ +#if defined(_WIN32) + #if (_MSC_VER >= 1300) + #define S_FMT_HANDLE "0x%p" + #define S_FMT_THREAD_HANDLE "0x%p" + #else + #define S_FMT_HANDLE "%d" + #define S_FMT_THREAD_HANDLE "%lu" + #endif +#else /* all other systems (e.g. UNIX) */ + #define S_FMT_THREAD_HANDLE "0x%p" +#endif /* all other systems (e.g. UNIX) */ + + +/************************************************************************/ +/************************************************************************/ +/* Assert stuff */ +/************************************************************************/ +/************************************************************************/ + +#include + +#if defined (_WIN32) && defined (_DEBUG) +#include +#endif + +#if !defined (C_ASSERT) +#define C_ASSERT(e) typedef char __C_ASSERT__[(e)?1:-1] +#endif + +#if !defined (ASSERT) +#define ASSERT _ASSERT +#endif + +#if !defined (ASSERTE) +#define ASSERTE _ASSERTE +#endif + +#if !defined (_SASSERT) +#define _SASSERT(e) \ + { \ + int assertResult = (e) ? 1 : 0; \ + if (!assertResult) {SLOGALWAYS3("Assertion failed: '%s', file %s, line %d", #e, __FILE__, __LINE__);} \ + assert (assertResult); \ + } +#endif + +#if !defined (_SASSERTE) +#define _SASSERTE(e) \ + { \ + int assertResult = (e) ? 1 : 0; \ + if (!assertResult) {SLOGALWAYS3("Assertion failed: '%s', file %s, line %d", #e, __FILE__, __LINE__);} \ + assert (assertResult); \ + } +#endif + +#if !defined (SASSERT) +#define SASSERT _SASSERT +#endif + +#if !defined (SASSERTE) +#define SASSERTE _SASSERTE +#endif + +#if !defined (VERIFY) +#if !defined (NDEBUG) +#define VERIFY(e) _SASSERTE(e) +#else +#define VERIFY(e) ((void) (e)) +#endif +#endif + +#ifdef __cplusplus +} +#endif + +#endif + + diff --git a/include/inc/time_str.h b/include/inc/time_str.h new file mode 100644 index 0000000..ff9d034 --- /dev/null +++ b/include/inc/time_str.h @@ -0,0 +1,137 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1994 - 2003, All Rights Reserved */ +/* */ +/* MODULE NAME : time_str.h */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 02/28/08 JRB 16 Incl "timeb.h" only in "sysincs.h" */ +/* 11/30/06 RLH 15 merge time_str and time_str2 */ +/* 07/13/06 RLH 14 tstrTimeToStringGmt and tstrStringToTimeGmt */ +/* prototypes added */ +/* 03/06/06 RLH 13 add GetTimeAndUsec, tstrTimeToStringGmt, */ +/* tstrStringToTimeGmt */ +/* 07/27/04 DWL 12 Added tstrTmToString (struct tm) */ +/* 07/16/04 DWL 11 Added tstrStringToTm (struct tm) */ +/* 10/30/03 EJV 10 Added dataLen param to UtcValueToXmlString */ +/* 10/15/03 JRB 09 Del _WIN32 ifdef. */ +/* 09/01/03 GLB 08 Added "XmlStringToUtcValue" & */ +/* "UtcValueToXmlString" */ +/* 07/12/02 NAV 07 Add UtcValsToString and UtcStringToVals */ +/* 02/02/01 EJV 06 tstrStringToTime: chg (long *) to (time_t *) */ +/* 07/13/98 NAV 05 Add _cplusplus support */ +/* 10/15/97 NAV 04 Add Btime4 Support Functions */ +/* 10/08/97 NAV 03 Add seconds to TSTR_DEF_TIME_FORMAT */ +/* 09/04/97 NAV 02 Add Btime6 Conversion routines */ +/* 11/08/94 MDE 01 New */ +/************************************************************************/ + +/************************************************************************/ +/* TIME STRING FORM FOR READ DATA */ +/* */ +/* Date{ws}Time */ +/* Time{ws}Date (? should we allow this) */ +/* Time only (uses current time) */ +/* Date only (uses current date) */ +/* */ +/* Date forms : */ +/* 12/01/56 */ +/* 12/01/1956 */ +/* 12-01-56 */ +/* 12-01-1956 */ +/* 12-1-56 */ +/* 12-1-56 */ +/* 26-Aug-1994 */ +/* 26-AUG-1994 */ +/* AUG-26-1993 */ +/* */ +/* Time forms : */ +/* 7:21:43P */ +/* 7:21:43p */ +/* 7:21:43a */ +/* 7:21:43A */ +/* 07:21:43a */ +/* 7:21:43 */ +/* 21:21:43 */ +/* */ +/************************************************************************/ +#include "sx_defs.h" + +#ifdef __cplusplus +extern "C" { +#endif + + +/* parms that control how a date is parsed in terms of field ordering */ + +#define S_DATE_ORDER_ANY 0 /* check system locale for ordering */ +#define S_DATE_ORDER_MDY 1 /* date ordering is month-day-year */ +#define S_DATE_ORDER_DMY 2 /* date ordering is day-month-year */ +#define S_DATE_ORDER_YMD 3 /* date ordering is year-month-day */ + +/* number of seconds difference between 1984-01-01 and 1970-01-01. */ +/* this amounts to 14 years including 3 leap-year days (1972, 1976 */ +/* and 1980) converted to a number of seconds. 1984 is a leap year */ +/* but the span of dates does not include 1984-02-29, so 1984's */ +/* leap-year day is not counted. */ + +/* S_SECS_DIFF_1984_1970 is used to calculate Btime6 values. */ + +#define S_SECS_DIFF_1984_1970 ((((1984-1970)*365)+3) * 86400) + +#define MAX_TIME_STRING_LEN 256 + +#define TSTR_DEF_TIME_FORMAT "%m-%d-%Y %H:%M:%S" + +extern char *tstrTimeFormat; + +ST_RET tstrTimeToStringGmt (time_t t, char *dest); +ST_RET tstrStringToTimeGmt (char *src, time_t *out); + +ST_RET tstrStringToTime (char *src, time_t *out); +ST_RET tstrStringToTm (char *src, struct tm *out); + +ST_RET tstrTimeToString (time_t t, char *dest); +ST_RET tstrTimeToStringGmt (time_t t, char *dest); + +ST_RET tstrTmToString (struct tm *t, char *dest); +ST_RET tstrTmToStringGmt (struct tm *t, char *dest); + +#define BTIME_DEF_TIME_FORMAT "%m-%d-%Y %H:%M:%S" + +ST_RET Btime6StringToVals (char *src, ST_INT32 *numDays, ST_INT32 *numMSec); +ST_RET Btime6ValsToString (char *dest, ST_INT32 numDays, ST_INT32 numMSec); + +ST_RET Btime4StringToVals (char *src, ST_INT32 *numMSec); +ST_RET Btime4ValsToString (char *dest, ST_INT32 numMSec); + +ST_RET UtcStringToVals (char *src, ST_UINT32 *pSecs, ST_UINT32 *pFraction, + ST_UINT32 *pQflags ); +ST_RET UtcValsToString (char *dest, ST_UINT32 secs, ST_UINT32 fraction, + ST_UINT32 qflags); +ST_RET UtcStringToValues (char *src, ST_UINT32 *pSecs, ST_UINT32 *pFraction); +ST_RET UtcValuesToString (char *dest, ST_UINT32 secs, ST_UINT32 fraction); +ST_RET XmlStringToUtcValue (ST_CHAR *src, SX_DATE_TIME *sxDateTime); +ST_RET UtcValueToXmlString (ST_CHAR *dest, ST_UINT destLen, SX_DATE_TIME *sxDateTime); +ST_DOUBLE CalculateTimeZoneOffset (ST_VOID); +#define UTC_DEF_TIME_FORMAT "%Y-%m-%dT%H:%M:%S" + +#define GET_TIME_AND_USEC_DEFINED 1 +time_t GetTimeAndUsec (long *usec); + +time_t usr_mkgmtime (struct tm * t); + +#ifdef __cplusplus +} /* End of 'C' functions */ + +#endif + diff --git a/include/inc/tp0_sock.h b/include/inc/tp0_sock.h new file mode 100644 index 0000000..5375d8c --- /dev/null +++ b/include/inc/tp0_sock.h @@ -0,0 +1,268 @@ +#ifndef TP0_SOCK_INCLUDED +#define TP0_SOCK_INCLUDED +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1997 - 2006 All Rights Reserved */ +/* */ +/* MODULE NAME : tp0_sock.h */ +/* PRODUCT(S) : Lean-T Stack */ +/* */ +/* MODULE DESCRIPTION : */ +/* TP0/RFC1006 header file for "sockets" interface. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 10/26/06 EJV 30 Ported MMSEASE_MOSI code to HP-UX. */ +/* 06/19/06 EJV 29 Ported MMSEASE_MOSI code to Sun. */ +/* 08/03/05 EJV 28 SOCK_INFO: added rekeyTime */ +/* 07/19/05 EJV 27 Added SOCK_STATE_CONNECT_CANCELLED. */ +/* 06/30/05 EJV 26 SOCK_INFO: added recvCnt (for flow control) */ +/* 06/06/05 EJV 25 MMSEASE_MOSE: few more chgs to RFC1006_IPC* */ +/* 05/25/05 EJV 24 Added ssec.h */ +/* 04/25/05 JRB,EJV 23 Add RFC1006_IPC_MSG, RFC1006_LISTENER_.. defs*/ +/* 05/09/05 EJV 22 SOCK_INFO: added port field. sreadd add arg6.*/ +/* 05/05/05 EJV 21 np_connect_req: added rem_port param. */ +/* 03/08/05 JRB 20 Add RFC1006.. define. */ +/* 02/22/05 JRB 19 slistend,sreadd: chg ret from void to int. */ +/* 02/21/05 JRB 18 Del ioctlsocket define. Use def in gensock2.h*/ +/* 01/14/04 EJV 17 np_data_req: added eot param. */ +/* Added np_get_tx_queue_cnt func. */ +/* 10/23/03 JRB 16 Move all system includes to sysincs.h */ +/* 10/16/03 JRB 15 SOCK_INFO: add genSock. */ +/* 09/11/03 EJV 14 Del winsock.h (windows.h gets right winsock) */ +/* Added encrypt_ctrl arg to np_connect_req(). */ +/* SOCK_INFO: Add DBL_LNK l and encrypt_ctrl. */ +/* 07/16/02 JRB 13 Add arg to sreadd proto. */ +/* 06/20/02 JRB 12 Chg np_connect_req 2nd arg to ulong ipAddr. */ +/* 05/08/02 JRB 11 Chg connect_result to int (to store errno). */ +/* 05/03/02 JRB 10 Add ip_addr to SOCK_INFO to pass to Read task.*/ +/* 02/02/01 EJV 09 _AIX: added forward references for inet.h. */ +/* 01/02/01 EJV 08 Ported to _AIX. */ +/* 08/15/00 EJV 07 WIN32: Del pipe_msg_crit_sec, pipe_msg_count.*/ +/* 05/18/00 JRB 06 Del "select.h". See "sysincs.h". */ +/* Add for VXWORKS. */ +/* Improve "ioctlsocket" macros for non-WIN32. */ +/* 08/13/98 JRB 05 Lint cleanup. */ +/* Add for default system. */ +/* 12/09/97 JRB 04 Added __OS2__ support. */ +/* 11/14/97 JRB 03 Make PIPE_MSG for VXWORKS like _WIN32. */ +/* 11/10/97 JRB 02 Add VXWORKS support. */ +/* 08/01/97 JRB 01 Created (compatible with MMS-EASE 7.0). */ +/************************************************************************/ +#ifdef __cplusplus +extern "C" { +#endif + +#include "gensock2.h" /* need GEN_SOCK definition */ +#include "ssec.h" /* need S_SEC_ENCRYPT_CTRL */ + +/* Include sockets defs appropriate for this platform. */ +#if !defined (_WIN32) +#define closesocket close +#define WSAEWOULDBLOCK EWOULDBLOCK +#define WSAEINPROGRESS EINPROGRESS +#if defined (__OS2__) +#define WSAGetLastError() sock_errno() +#define GetLastError() errno +#else /* !__OS2__ */ +#define WSAGetLastError() errno +#endif /* !__OS2__ */ +#define SOCKET int +#define SOCKADDR struct sockaddr +#define SOCKADDR_IN struct sockaddr_in +#define PSOCKADDR struct sockaddr * +#define HOSTENT struct hostent +#define INVALID_SOCKET (-1) + +#if defined(sun) || defined(__hpux) +#if !defined(AF_LOCAL) +#define AF_LOCAL AF_UNIX +#endif +#endif /* defined(sun) */ + +#endif /* !_WIN32 */ + +/************************************************************************/ +/* Constant definitions. */ +/************************************************************************/ +#define IPPORT_RFC1006 102 +#define RFC1006_HEAD_LEN 4 +#define RFC1006_VERSION 3 /* first byte of TPKT is version*/ +#define INVALID_CONN_ID (-1L) +#define LISTEN_TASK_NAME "slistend" /* "Listen" task exe name*/ +#define READ_TASK_NAME "sreadd" /* "Read" task exe name */ +#define PIPE_TO_MAIN_NAME "/tmp/pipetp0main" +#define PIPE_TO_LISTEN_NAME "/tmp/pipetp0list" + +/************************************************************************/ +/* Variable type definitions. */ +/************************************************************************/ + +/* Defines of possible values for "state" in SOCK_INFO struct. */ +#define SOCK_STATE_ACCEPTED 0 +#define SOCK_STATE_CONNECTING 1 +#define SOCK_STATE_CONNECTED 2 +#define SOCK_STATE_DISCONNECTING 3 +#define SOCK_STATE_CONNECT_CANCELLED 4 +typedef struct + { + DBL_LNK l; /* needed to store this struct on linked list */ + GEN_SOCK *genSock; /* Use with gensock2. Otherwise, use "hSock" */ + SOCKET hSock; + ST_INT state; + ST_LONG user_conn_id; /* Received from user on N-CONNECT.req/rsp */ + ST_UINT32 ip_addr; /* IP addr as long int in network byte order. */ + ST_UINT16 port; /* RFC1006 port, defaults to 102 */ +#if !(defined(_WIN32) || defined (__OS2__)) + pid_t pid_read; /* Save READ process PID */ +#endif + S_SEC_ENCRYPT_CTRL encrypt_ctrl; + ST_UINT recvCnt; /* num of received (queued) data msgs */ + ST_DOUBLE rekeyTime; /* next time to check rekey if we are idle */ + } SOCK_INFO; + + +/* Info to pass to spawned thread. Can only pass 1 arg to thread, so */ +/* make it a structure, and put whatever we need in it. */ +typedef struct + { + SOCK_INFO *sock_info; /* to pass back to main in PIPE_MSG. */ + SOCKET hSock; /* copied from "sock_info" */ + ST_INT state; /* copied from "sock_info" */ + ST_UINT16 max_tpkt_len; /* Max len of RFC1006 TPKT. */ + } THREAD_INFO; + +typedef struct + { + SOCK_INFO *sock_info; + ST_INT connect_result; /* errno (WSAGetLastErr() for Windows)*/ + ST_UINT16 tpkt_len; +#if (defined (_WIN32) || defined (VXWORKS) || defined (__OS2__)) + ST_UCHAR *tpkt_ptr; +#else + ST_UCHAR tpkt_buf [1]; /* Beginning of buffer attached to this struct*/ +#endif + } PIPE_MSG; + +/* Use define for Length of PIPE_MSG without tpkt_buf at end. */ +#define PIPE_MSG_HEAD_LEN (sizeof(PIPE_MSG)-1) + +/************************************************************************/ +/* Global variables. */ +/************************************************************************/ +extern ST_UCHAR *g_tpkt_enc_buf; /* Buffer for encoding TPKTs. */ +extern SOCKET hSockListen; /* listen socket handle */ + +#if defined _WIN32 +extern HANDLE hPipeMainRead; /* read handle for pipe */ +extern HANDLE hPipeMainWrite; /* write handle for pipe */ +extern HANDLE hEventListenGo; +#endif +#if defined (__OS2__) +extern HFILE hPipeMainRead; /* read handle for pipe */ +extern HFILE hPipeMainWrite; /* write handle for pipe */ +extern HEV hEventListenGo; +extern ST_INT pipe_msg_count; +#endif /* __OS2__ */ + +/************************************************************************/ +/* Function Prototypes. */ +/************************************************************************/ +ST_RET np_init (ST_INT max_num_conns); +ST_RET np_end (ST_VOID); +ST_BOOLEAN np_event (ST_VOID); + +SOCK_INFO * np_connect_req (ST_LONG user_conn_id, ST_ULONG ipAddr, ST_UINT16 rem_port, + S_SEC_ENCRYPT_CTRL *encrypt_ctrl); +ST_VOID np_connect_cnf_pos (SOCK_INFO *sock_info, ST_LONG user_conn_id); +/* NOTE: np_connect_ind & np_connect_rsp not needed because user only */ +/* cares about Transport conn. Doesn't need to know about Network conn.*/ + +ST_RET np_data_req (SOCK_INFO *sock_info, ST_INT pdu_len, ST_UCHAR *pdu_ptr, ST_BOOLEAN eot); +ST_VOID np_data_ind (SOCK_INFO *sock_info, ST_UCHAR *pdu_ptr, ST_UINT16 pdu_len); +ST_UINT np_get_tx_queue_cnt (SOCK_INFO *sock_info); + +ST_RET np_disconnect_req (SOCK_INFO *sock_info); +ST_VOID np_disconnect_ind (SOCK_INFO *sock_info); + +ST_RET sockets_init (ST_INT max_num_conns); +ST_VOID sockets_end (ST_VOID); +ST_RET spawn_listen (SOCKET hSock); +ST_RET spawn_read (SOCK_INFO *sock_info); +ST_VOID handle_accepted_conn (SOCK_INFO *sock_info); +ST_VOID handle_connect_success (SOCK_INFO *sock_info); +ST_VOID handle_connect_fail (SOCK_INFO *sock_info); +ST_VOID handle_data (SOCK_INFO *sock_info, ST_UCHAR *tpkt_ptr, ST_UINT16 tpkt_len); +ST_VOID handle_disconnect (SOCK_INFO *sock_info); +SOCK_INFO *sock_info_alloc (SOCKET hSock, ST_INT state, ST_LONG user_conn_id); +ST_VOID sock_info_free (SOCK_INFO *sock_info); + +#if defined (_WIN32) +void ThreadSockListen (void *param); +void ThreadSockRead (void *param); +#endif /* _WIN32 */ +#if defined (__OS2__) +void _Optlink ThreadSockListen (void *param); +void _Optlink ThreadSockRead (void *param); +#endif /* __OS2__ */ + +int slistend (int arg1); +int sreadd (int arg1, int arg2, int arg3, int arg4, int arg5, int arg6); + +/************************************************************************/ +/* Code used by MMSEASE_MOSI. */ +/* Defines, etc. for interfacing to "rfc1006_listener" task. */ +/* Only used on LINUX, but the code should be portable to most UNIX-like*/ +/* systems. */ +/************************************************************************/ + +#if defined(MMSEASE_MOSI) +/* use the same task name and the UNIX domain listen socket name to */ +/* easy associate each other when viewing for example network stats */ +#if defined(linux) || defined(sun) +#define RFC1006_LISTENER_EXE_PATH "/usr/sisco/bin" +#define RFC1006_LISTENER_IPC_PATH "/tmp" +#endif +#if defined(__hpux) +#define RFC1006_LISTENER_EXE_PATH "/opt/sisco/bin" +#define RFC1006_LISTENER_IPC_PATH "/tmp" +#endif +#define RFC1006_LISTENER_NAME "rfc1006listenerd" +#define RFC1006_LISTENER_DOMSOCK "rfc1006listenerd.domsock" +#define RFC1006_LISTENER_LOG "rfc1006listenerd.log" + +#define RFC1006_IPC_MAGIC_NUM 0xBADC +/* defines for "opcode" in RFC1006_IPC_MSG. */ +#define RFC1006_IPC_OP_START 1 /* start RFC1006_LISTENER daemon */ +#define RFC1006_IPC_OP_STOP 2 /* stop RFC1006_LISTENER daemon */ +#define RFC1006_IPC_OP_BIND 3 +#define RFC1006_IPC_OP_UNBIND 4 +#define RFC1006_IPC_OP_CONNECT 5 /* TP0 connect indication */ +#define RFC1006_IPC_OP_SET_LOG 6 /* change RFC1006_LISTENER log masks */ + +typedef struct rfc1006_ipc_msg_tag + { + ST_UINT16 magic; /* always == RFC1006_IPC_MAGIC_NUM */ + ST_UINT16 opcode; /* one of RFC1006_IPC_OP.. values */ + ST_UINT16 data_len; /* length of data following this msg */ + } RFC1006_IPC_MSG; + +extern ST_BOOLEAN use_rfc1006_listener_task; +extern SOCKET domsock_listener; /* domain socket connected to the */ + /* RFC1006_LISTENER task. */ +ST_INT recvwait (SOCKET hSock, ST_VOID *buf, ST_INT numBytes, int flags); +ST_INT sendwait (SOCKET hSock, ST_VOID *buf, ST_INT numBytes, int flags); + +ST_RET setListenerIPCDir (ST_CHAR *dirPath); + +#endif /* defined(MMSEASE_MOSI) */ + +#ifdef __cplusplus +} +#endif + +#endif /* !TP0_SOCK_INCLUDED */ + diff --git a/include/inc/tp4.h b/include/inc/tp4.h new file mode 100644 index 0000000..1c2b1cf --- /dev/null +++ b/include/inc/tp4.h @@ -0,0 +1,363 @@ +#ifndef TP4_INCLUDED +#define TP4_INCLUDED +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1996-2005 All Rights Reserved */ +/* */ +/* MODULE NAME : tp4.h */ +/* PRODUCT(S) : Lean-T Stack */ +/* */ +/* MODULE DESCRIPTION : */ +/* TP4 main header file. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 10/22/08 JRB 17 Add TPDU_ER structure. */ +/* 03/29/05 EJV 16 MMSEASE_MOSI: added tp0_check_... protos. */ +/* 01/13/04 EJV 15 Changed tp0_send_... funcs to return value. */ +/* 06/27/02 JRB 14 Add tp_dr_reason to TP_CONN. */ +/* 10/25/01 JRB 13 Move replacement func macros to tp4api.h */ +/* 05/07/01 JRB 12 Add loc_tsap, rem_tsap to TP_CONN, TP0_CONN. */ +/* 07/19/99 RKR 11 Modified a macro so this file will install */ +/* 06/08/99 JRB 10 Allow up to 1024 connections by using new */ +/* macros to compute loc_ref_offset & loc_ref. */ +/* 08/13/98 JRB 09 Lint cleanup. */ +/* 08/14/97 JRB 08 Use MAX_TSEL_LEN defined in tp4api.h */ +/* Add max_tpdu_len (negotiated) to TP_CONN. */ +/* Add TP0/RFC1006 support defines & protos. */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 03/21/97 JRB 07 Add tp_free_spdu_all function. */ +/* 02/20/97 EJV 06 Add session_timer to TP_CONN for MOSI implem.*/ +/* 10/04/96 JRB 05 Add global variable max_tpdu_len_enc. */ +/* Chg TPDU_CX param to max_tpdu_len_enc. */ +/* 10/04/96 JRB 04 Chg send_ak_flag to ak_delay. */ +/* 09/09/96 JRB 03 Add send_ak_flag to TP_CONN. */ +/* 09/09/96 JRB 02 Add tp_send_cr, tp_setup_and_send_??, */ +/* tp_send_dt_and_ak & tp_conn_clean prototypes.*/ +/* 07/17/96 JRB 01 Created */ +/************************************************************************/ +#include "tp4api.h" /* need some TP4 user defs. */ +#include "clnp_usr.h" /* TP4 uses CLNP user interface. */ + +#if defined (TP0_ENABLED) +#include "tp0_sock.h" /* TP0/RFC1006 sockets interface defs. */ +#endif /* TP0_ENABLED */ + +#ifdef __cplusplus +extern "C" { +#endif + +#define TP_MAX_CONN_UDATA 32 +#define TP4_EXCEPT() tp4_except (thisFileName, __LINE__) + +/************************************************************************/ +/* The following defines used in computing "loc_ref" (16-bit value): */ +/* TP_CONN_ID_BITS: number of bits to use for conn_id in loc_ref. */ +/* TP_MAX_NUM_CONNS: max number of connections allowed. */ +/* TP_CONN_ID_MASK: mask used to find conn_id in loc_ref. */ +/* TP_LOC_REF_MOD: modulus to use for loc_ref_offset wrap around. */ +/* When loc_ref_offset incremented to this value, */ +/* go back to 1 (not 0 so loc_ref can never be 0). */ +/* TP_CONN_ID_BITS, TP_CONN_ID_MASK, TP_MAX_NUM_CONNS & TP_LOC_REF_MOD */ +/* are all related. If one changes, they must all change. */ +/************************************************************************/ +#define TP_CONN_ID_BITS 10 +#define TP_CONN_ID_MASK 0x3ff /* 0000 0011 1111 1111 binary */ +#define TP_MAX_NUM_CONNS 0x400 /* conn_id = 0 thru 0x3ff */ +/* If 10 bits used for conn_id, 6 bits left for loc_ref_offset, so it */ +/* must wrap around when it reaches 0100 0000 binary (i.e. 0x40). */ +#define TP_LOC_REF_MOD 0x40 /* modulus for 6-bit value */ + +/************************************************************************/ +/* Structure typedefs. */ +/************************************************************************/ + +/* TPDU_CX - Used for CR or CC TPDU info. */ +typedef struct + { + /* NOTE: the following options not supported: */ + /* Transport Expedited Data. */ + /* Non-use of checksum. */ + /* Use of extended format. */ + /* When sending CR, don't request any. */ + /* When sending CC, don't accept any. */ + + ST_UCHAR loc_tsap [1+MAX_TSEL_LEN]; /* Local len & TSAP addr */ + ST_UCHAR rem_tsap [1+MAX_TSEL_LEN]; /* Remote len & TSAP addr */ + ST_UINT16 loc_ref; /* Local Reference for conn. */ + ST_UINT16 rem_ref; /* Remote Reference for conn. */ + ST_UCHAR max_tpdu_len_enc; /* Negotiated Max TPDU len (encoded). */ + ST_UCHAR preferred_class; /* Preferred Transport Class 0-4 */ + ST_UCHAR cdt; /* CDT */ + ST_UCHAR *rem_mac; /* Remote MAC addr */ + ST_UCHAR *rem_nsap; /* Remote len & NSAP addr */ + ST_UINT16 udata_len; /* Length of CR/CC User Data. */ + ST_CHAR udata_buf [TP_MAX_CONN_UDATA]; /* Buffer for CR/CC User Data. */ +#if defined (TP0_ENABLED) + SOCK_INFO *sock_info; /* socket info for TP0 conns only */ +#endif /* TP0_ENABLED */ + } TPDU_CX; + +typedef struct + { + ST_UINT16 loc_ref; /* Local Reference for conn. */ + ST_UINT16 rem_ref; /* Remote Reference for conn. */ + ST_UCHAR reason; /* Reason for disconnect. */ + ST_UCHAR *rem_mac; /* Remote MAC addr */ + ST_UCHAR *rem_nsap; /* Remote len & NSAP addr */ +#if defined (TP0_ENABLED) + SOCK_INFO *sock_info; /* socket info for TP0 conns only */ +#endif /* TP0_ENABLED */ + } TPDU_DR; + +typedef TPDU_DR TPDU_DC; /* Same as DR but ignore "reason". */ + +typedef struct + { + ST_UINT16 dst_ref; /* Dest Reference for conn. */ + ST_UCHAR sn; + ST_UCHAR cdt; + ST_UCHAR *rem_mac; /* Remote MAC addr */ + ST_UCHAR *rem_nsap; /* Remote len & NSAP addr */ + } TPDU_AK; + +typedef struct + { + ST_UINT16 dst_ref; /* Dest Reference for conn. */ + ST_UCHAR sn; /* Sequence #. */ + ST_BOOLEAN eot; /* DT TPDU contains or should contain EOT flag */ + ST_UCHAR *rem_mac; /* Remote MAC addr */ + ST_UCHAR *rem_nsap; /* Remote len & NSAP addr */ + ST_CHAR *udata_ptr; /* Pointer to DT User Data. */ + ST_UINT16 udata_len; /* Length of DT User Data. */ +#if defined (TP0_ENABLED) + SOCK_INFO *sock_info; /* socket info for TP0 conns only */ +#endif /* TP0_ENABLED */ + } TPDU_DT; + +typedef struct + { + ST_UINT16 dst_ref; /* Dest Reference for conn. */ + ST_UCHAR reject_cause; /* reason for error (0-3) */ + ST_UCHAR *invalid_tpdu_ptr; /* Pointer to TPDU hdr that caused reject*/ + ST_UCHAR invalid_tpdu_len; /* Length of TPDU hdr that caused reject*/ + /* NOTE: <= 255 (must fit in 1 byte). */ + ST_UCHAR *rem_mac; /* Remote MAC addr */ + ST_UCHAR *rem_nsap; /* Remote len & NSAP addr */ +#if defined (TP0_ENABLED) + SOCK_INFO *sock_info; /* socket info for TP0 conns only */ +#endif /* TP0_ENABLED */ + } TPDU_ER; + +typedef struct + { + ST_CHAR *spdu_ptr; /* Pointer to SPDU. */ + ST_UINT spdu_len; /* Length of SPDU. */ + ST_UINT offset; /* Offset into SPDU. */ + } SPDU_INFO; + +typedef struct + { + /* NOTE: "state" is first in this struct because it will be */ + /* accessed most often (every time connection made must scan array */ + /* for a TP_CONN with state == TP_STATE_CLOSED). */ + ST_UCHAR state; /* State of connection (initially CLOSED). */ + ST_UCHAR tp_dr_reason; /* reason for disconnect (0 if connected)*/ + ST_UINT16 loc_ref_offset; /* Used to compute loc_ref (see calc_loc_ref)*/ + ST_UINT16 rem_ref; /* Peer's reference # for this connection. */ + ST_UINT16 window_time; /* Window Time */ + ST_UINT16 inact_time; /* Inactivity Time */ + ST_UINT16 retrans_time; /* Retransmission Time */ + ST_UCHAR lower_tx_sn; /* Sequence # for peer's lower window edge. */ + ST_UCHAR adj_rem_cdt; /* Last CDT received from peer. */ + /* Adjusted to stay within our limits. */ + ST_UCHAR next_tx_sn; /* Sequence # for next TPDU to send to peer. */ + ST_UCHAR next_rx_sn; /* Sequence # for next TPDU to receive from peer*/ + TPDU_DT *tpdu_dt_tx; /* ptr to array of "max_rem_cdt" structs */ + /* Allocated by tp4_initialize (). */ + + ST_UCHAR num_spdu_outst; /* # of SPDUs outstanding */ + ST_UCHAR spdu_cnt_qued; /* Count of SPDUs queued. Goes to 0 on overflow */ + ST_UCHAR spdu_cnt_sent; /* Count of SPDUs sent. Goes to 0 on overflow */ + ST_UCHAR spdu_cnt_done; /* Count of SPDUs done. Goes to 0 on overflow */ + SPDU_INFO *spdu_tx; /* ptr to array of "max_spdu_outst" structs */ + SPDU_INFO spdu_rx; /* Struct for one received SPDU */ + ST_BOOLEAN spdu_rx_start; /* Next TPDU rcvd is start of SPDU. */ + /* Save rem_mac & rem_nsap received from CLNP with CR or CC. */ + ST_UCHAR rem_mac [CLNP_MAX_LEN_MAC]; /* Remote MAC addr */ + ST_UCHAR rem_nsap [1+CLNP_MAX_LEN_NSAP]; /* Remote len & NSAP addr */ + ST_UCHAR num_trans; /* (TX ONLY) # of times a TPDU transmitted */ + ST_LONG user_conn_id; /* User's ID for this conn. */ + TPDU_CX tpdu_cx; /* CR or CC Info to Send/Receive. */ + ST_UCHAR ak_delay; /* # of loops to delay sending AK. */ + + ST_UINT16 session_timer; /* Session timer for MOSI implementation */ + ST_UINT16 max_tpdu_len; /* Negotiated TPDU len on this conn. */ + ST_UCHAR loc_tsap [1+MAX_TSEL_LEN]; /* Local len & TSAP addr */ + ST_UCHAR rem_tsap [1+MAX_TSEL_LEN]; /* Remote len & TSAP addr */ + } TP_CONN; + +typedef struct + { + /* NOTE: "state" is first in this struct because it will be */ + /* accessed most often (every time connection made must scan array */ + /* for a TP_CONN with state == TP_STATE_CLOSED). */ + ST_UCHAR state; /* State of connection (initially CLOSED). */ + ST_UINT16 loc_ref_offset; /* Used to compute loc_ref (see calc_loc_ref)*/ + ST_UINT16 rem_ref; /* Peer's reference # for this connection. */ + + SPDU_INFO spdu_rx; /* Struct for one received SPDU */ + ST_BOOLEAN spdu_rx_start; /* Next TPDU rcvd is start of SPDU. */ + ST_LONG user_conn_id; /* User's ID for this conn. */ + TPDU_CX tpdu_cx; /* CR or CC Info to Send/Receive. */ + + ST_UINT16 session_timer; /* Session timer for MOSI implementation */ + ST_UINT16 max_tpdu_len; /* Negotiated TPDU len on this conn. */ +#if defined (TP0_ENABLED) + SOCK_INFO *sock_info; /* socket info for TP0 conns only */ +#endif /* TP0_ENABLED */ + ST_UCHAR loc_tsap [1+MAX_TSEL_LEN]; /* Local len & TSAP addr */ + ST_UCHAR rem_tsap [1+MAX_TSEL_LEN]; /* Remote len & TSAP addr */ + } TP0_CONN; + +/************************************************************************/ +/* Miscellaneous Defines. */ +/************************************************************************/ +#define MODULUS_SN 128 /* Sequence # Modulus (2**7) */ + +/************************************************************************/ +/* Defines for TP4 connection states. */ +/************************************************************************/ +#define TP_STATE_CLOSED 0 +#define TP_STATE_WFCC 1 +#define TP_STATE_WBCL 2 +#define TP_STATE_OPEN 3 +#define TP_STATE_WFTRESP 4 +#define TP_STATE_AKWAIT 5 +#define TP_STATE_CLOSING 6 +#define TP_STATE_WFNC 7 /* for TP0/RFC1006 only */ + +/************************************************************************/ +/* Defines for types of TPDUs. */ +/************************************************************************/ +#define TPDU_TYPE_CR 0 +#define TPDU_TYPE_CC 1 +#define TPDU_TYPE_DR 2 +#define TPDU_TYPE_DC 3 +#define TPDU_TYPE_DT 4 +#define TPDU_TYPE_AK 5 + +/************************************************************************/ +/* Miscellaneous defines. */ +/************************************************************************/ +#define MIN_TP0_CONN_ID 10000 /* min tp_conn_id for TP0 so */ + /* don't overlap with TP4 id's */ + +/* WARNING: We assume TP_MAX_NUM_CONNS <= MIN_TP0_CONN_ID so TP0 conn */ +/* id's can't overlap with TP4 conn id's. */ +/* Let's just make sure this assumption is valid. */ +#if (TP_MAX_NUM_CONNS > MIN_TP0_CONN_ID) +#error TP_MAX_NUM_CONNS > MIN_TP0_CONN_ID. Definitions incompatible. +#endif + +/************************************************************************/ +/* Global variables. */ +/************************************************************************/ +extern TP_CONN *tp_conn_arr; /* ptr to array of "max_num_conns" structs */ +extern ST_LONG only_tp4_bind_id; /* Only one tp4_bind_id. */ +extern ST_LONG only_user_bind_id; /* Only one user_bind_id. */ +extern ST_UCHAR only_loc_tsap []; /* Local len & TSAP addr */ +extern ST_UCHAR max_tpdu_len_enc; /* Binary encoded MAX TPDU len. */ + +extern TP0_CONN *tp0_conn_arr; /* ptr to array of "max_num_conns" structs */ +extern ST_LONG only_tp0_bind_id; /* Only one tp0_bind_id. */ +extern ST_LONG only_tp0_user_bind_id; /* Only one tp0_user_bind_id. */ +extern ST_UCHAR only_tp0_loc_tsap []; /* Local len & TSAP addr */ + +/************************************************************************/ +/* Prototypes */ +/************************************************************************/ +ST_VOID tp_setup_and_send_ak (TP_CONN *tp_conn); +ST_VOID tp_setup_and_send_dr (TP_CONN *tp_conn); + +ST_VOID tp_send_cr (TPDU_CX *tpdu_cr); +ST_VOID tp_send_cc (TPDU_CX *tpdu_cc); +ST_VOID tp_send_dr (TPDU_DR *tpdu_dr); +ST_VOID tp_send_dc (TPDU_DC *tpdu_dc); +ST_VOID tp_send_dt (TPDU_DT *tpdu_dt); +ST_VOID tp_send_ak (TPDU_AK *tpdu_ak); +ST_VOID tp_send_dt_and_ak (TPDU_DT *tpdu_dt, TPDU_AK *tpdu_ak); + +ST_VOID tp_process_cr (TPDU_CX *tpdu_cr_rx); +ST_VOID tp_process_cc (TPDU_CX *tpdu_cc_rx); +ST_VOID tp_process_dr (TPDU_DR *tpdu_dr_rx); +ST_VOID tp_process_dc (TPDU_DC *tpdu_dc_rx); +ST_VOID tp_process_dt (TPDU_DT *tpdu_dt_rx); +ST_VOID tp_process_ak (TPDU_AK *tpdu_ak_rx); +ST_VOID tp_conn_clean (TP_CONN *tp_conn); +ST_VOID tp_free_spdu_all (TP_CONN *tp_conn); + +ST_RET tp0_send_cr (TPDU_CX *tpdu_cr); +ST_RET tp0_send_cc (TPDU_CX *tpdu_cc); +ST_RET tp0_send_dr (TPDU_DR *tpdu_dr); +ST_RET tp0_send_dt (TPDU_DT *tpdu_dt); + +ST_VOID tp0_process_cr (TPDU_CX *tpdu_cr_rx); +ST_VOID tp0_process_cc (TPDU_CX *tpdu_cc_rx); +ST_VOID tp0_process_dr (TPDU_DR *tpdu_dr_rx); +ST_VOID tp0_process_dt (TPDU_DT *tpdu_dt_rx); + +ST_VOID tp0_conn_clean (TP0_CONN *tp_conn); + +#if defined(MMSEASE_MOSI) +ST_RET tp0_check_tsel (ST_UCHAR *tsel, ST_LONG *user_bind_id); +ST_RET tp0_check_bind_id (ST_LONG bind_id, ST_UCHAR **tsel); +#endif + +/************************************************************************/ +/* Macros. */ +/************************************************************************/ + +/*----------------------------------------------------------------------*/ +/* inc_loc_ref_offset */ +/* Increment "loc_ref_offset". When the value reaches TP_LOC_REF_MOD */ +/* (defined above), wrap around back to 1. */ +/* NOTE: We do not wrap to 0, so "loc_ref_offet" will never be 0. */ +/* "loc_ref_offset" is used to compute "loc_ref", so "loc_ref" */ +/* will also never be 0. */ +/* Arg #1: value (i.e. loc_ref_offset) to be incremented */ +/* Example of usage: */ +/* inc_loc_ref_offset (tp_conn->loc_ref_offset); */ +/*----------------------------------------------------------------------*/ +#define inc_loc_ref_offset(value) {\ + if (++(value) >= TP_LOC_REF_MOD) \ + (value) = 1; } /* comment necessary for DDB installation tool */ + +/*----------------------------------------------------------------------*/ +/* calc_loc_ref */ +/* Calculate loc_ref from conn_id and loc_ref_offset. */ +/* IMPORTANT: loc_ref_offset MUST NEVER be 0, so loc_ref will never be 0.*/ +/* This is accomplished by using ONLY the "inc_loc_ref_offset"*/ +/* macro above to change the value of "loc_ref_offset". */ +/*----------------------------------------------------------------------*/ +#define calc_loc_ref(conn_id,loc_ref_offset) \ + ((conn_id) | ((loc_ref_offset) << TP_CONN_ID_BITS)) + +/*----------------------------------------------------------------------*/ +/* calc_conn_id */ +/* Calculate conn_id from loc_ref. */ +/*----------------------------------------------------------------------*/ +#define calc_conn_id(loc_ref) \ + ((loc_ref) & TP_CONN_ID_MASK) + +#ifdef __cplusplus +} +#endif + +#endif /* !TP4_INCLUDED */ + diff --git a/include/inc/tp4_encd.h b/include/inc/tp4_encd.h new file mode 100644 index 0000000..051d46d --- /dev/null +++ b/include/inc/tp4_encd.h @@ -0,0 +1,407 @@ +#ifndef TP4_ENCD_INCLUDED +#define TP4_ENCD_INCLUDED +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1996 - 2005, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : tp4_encd.h */ +/* PRODUCT(S) : Lean-T Stack */ +/* */ +/* MODULE DESCRIPTION : */ +/* This header file defines structures and functions for */ +/* encoding/decoding of class 4 TPDUs. */ +/* */ +/* Note: The following TP options are NOT supported: */ +/* Transport Expedited Data */ +/* Non-use of checksum */ +/* Use of extended format. */ +/* This is reflected in structures and defines below. */ +/* */ +/* For information see the: */ +/* ISO 8073 "Information processing systems - Open Systems */ +/* Interconnections - Connection oriented transport protocol */ +/* specification. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 10/22/08 JRB 08 tp_decode_ak(_dc,_er): change args. */ +/* Delete tp_decode_rj (not used in TP0 or TP4).*/ +/* 11/01/07 EJV 07 Added comments. */ +/* 05/25/05 EJV 06 Added include tp4.h */ +/* 01/28/99 JRB 05 Move cltp_decode_nsdu proto to ACSE file. */ +/* 12/01/97 JRB 04 CRITICAL: Don't use "sizeof" on structures. */ +/* Caused padding on VXWORKS. */ +/* 08/14/97 JRB 03 Add TP0/RFC1006 support defines & protos. */ +/* Add tp_decode_* protos (were static before). */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 11/22/96 JRB 02 Add TP_PDU_TYPE_UD & cltp_decode_nsdu for CLTP.*/ +/* 06/20/96 EJV 01 Created */ +/************************************************************************/ +#ifdef __cplusplus +extern "C" { +#endif + +#include "tp4.h" + + /* encoding for Transport Protocol class and options */ + +#define TP_CLASS_0 (ST_UCHAR) 0x00 +#define TP_CLASS_1 (ST_UCHAR) 0x10 +#define TP_CLASS_2 (ST_UCHAR) 0x20 +#define TP_CLASS_3 (ST_UCHAR) 0x30 +#define TP_CLASS_4 (ST_UCHAR) 0x40 + +#define TP_OPT_FORMAT_NORMAL (ST_UCHAR) 0x00 +#define TP_OPT_FORMAT_EXTENDED (ST_UCHAR) 0x02 + +#define TP_CLASS_4_NORMAL (ST_UCHAR) (TP_CLASS_4 | TP_OPT_FORMAT_NORMAL) +#define TP_CLASS_4_EXT (ST_UCHAR) (TP_CLASS_4 | TP_OPT_FORMAT_EXTENDED) + +#define TP_CLASS_MASK_OPT (ST_UCHAR) 0xF0 /* for masking opt in ASN1_CLASS_METHOD-OPT in CR */ + + /* encoding for TPDU type code */ + +#define TP_PDU_TYPE_CR (ST_UCHAR) 0xE0 /* 1110 xxxx */ +#define TP_PDU_TYPE_CC (ST_UCHAR) 0xD0 /* 1101 xxxx */ +#define TP_PDU_TYPE_DR (ST_UCHAR) 0x80 /* 1000 0000 */ +#define TP_PDU_TYPE_DC (ST_UCHAR) 0xC0 /* 1100 0000 */ +#define TP_PDU_TYPE_DT (ST_UCHAR) 0xF0 /* 1111 0000 */ +#define TP_PDU_TYPE_ED (ST_UCHAR) 0x10 /* 0001 0000 */ +#define TP_PDU_TYPE_AK (ST_UCHAR) 0x60 /* 0110 zzzz */ +#define TP_PDU_TYPE_EA (ST_UCHAR) 0x20 /* 0010 0000 */ +#define TP_PDU_TYPE_RJ (ST_UCHAR) 0x50 /* 0101 zzzz */ +#define TP_PDU_TYPE_ER (ST_UCHAR) 0x70 /* 0111 0000 */ +#define TP_PDU_TYPE_UD (ST_UCHAR) 0x40 /* 0100 0000 for CLTP */ + +#define TP_PDU_MASK_TYPE (ST_UCHAR) 0x0F /* for masking type to get CDT */ +#define TP_PDU_MASK_CDT (ST_UCHAR) 0xF0 /* for masking CTD to get type */ + +/* encoding for max size of TPDU (parameter in the CR) */ + +#define TP_PDU_MAX_SIZE_65531 (ST_UCHAR) 0x0E /* kluge for TP0/RFC1006 only*/ +#define TP_PDU_MAX_SIZE_8192 (ST_UCHAR) 0x0D +#define TP_PDU_MAX_SIZE_4096 (ST_UCHAR) 0x0C +#define TP_PDU_MAX_SIZE_2048 (ST_UCHAR) 0x0B +#define TP_PDU_MAX_SIZE_1024 (ST_UCHAR) 0x0A +#define TP_PDU_MAX_SIZE_512 (ST_UCHAR) 0x09 +#define TP_PDU_MAX_SIZE_256 (ST_UCHAR) 0x08 +#define TP_PDU_MAX_SIZE_128 (ST_UCHAR) 0x07 + +/* encoding EOT in DT TPDU - bit 8 */ + +#define TP_PDU_EOF (ST_UCHAR) 0x80 + +#define TP_PDU_MASK_EOF (ST_UCHAR) 0x7F /* for masking EOF to get SN (DT)*/ +#define TP_PDU_MASK_SN (ST_UCHAR) 0x80 /* for masking SN to get EOF (DT)*/ + +#define TP_PDU_MASK_BIT8 (ST_UCHAR) 0x7F /* for masking bit 8 to get SN (AK)*/ + +/* encoding for DR reason */ +/* for class 1 - 4 */ +#define TP_DR_NORMAL (ST_UCHAR) 0x80 +#define TP_DR_CONGESTION (ST_UCHAR) 0x81 +#define TP_DR_CLASS_UNSUPPORTED (ST_UCHAR) 0x82 +#define TP_DR_DUPLICATE_SRC_REF (ST_UCHAR) 0x83 +#define TP_DR_INVALID_REF (ST_UCHAR) 0x84 +#define TP_DR_PROT_ERROR (ST_UCHAR) 0x85 +#define TP_DR_REF_OVERFLOW (ST_UCHAR) 0x87 +#define TP_DR_CR_REFUSED (ST_UCHAR) 0x88 +#define TP_DR_HDR_INVALID (ST_UCHAR) 0x8A + +/* for all classes (TP0) */ +#define TP_DR_NO_REASON (ST_UCHAR) 0x00 +#define TP_DR_CONGESTION_AT_TSAP (ST_UCHAR) 0x01 +#define TP_DR_NO_SESSION (ST_UCHAR) 0x02 +#define TP_DR_ADDR_UNKNOWN (ST_UCHAR) 0x03 + + +/* misc defines */ + +#define TP_MAX_CDT (ST_UCHAR) 0x0F + + + + /*----------------------------------------------*/ + /* Encoding and structures for TP parameters */ + /*----------------------------------------------*/ + + /* encoding for TP version */ + +#define TP_VERSION (ST_UCHAR) 0x01 + + /* encoding for the parameter code in CR or CC TPDU variable part */ + +#define TP_PAR_CODE_TSAP_CALLING (ST_UCHAR) 0xC1 +#define TP_PAR_CODE_TSAP_CALLED (ST_UCHAR) 0xC2 +#define TP_PAR_CODE_TPDU_SIZE (ST_UCHAR) 0xC0 +#define TP_PAR_CODE_VERSION (ST_UCHAR) 0xC4 +#define TP_PAR_CODE_ADD_OPTIONS (ST_UCHAR) 0xC6 + + /* encoding for the parameter code in AK TPDU variable part */ + +#define TP_PAR_CODE_AK_SUB_SN (ST_UCHAR) 0x8A +#define TP_PAR_CODE_AK_FLOW_CTRL (ST_UCHAR) 0x8C + + /* encoding for the parameter code in ER TPDU variable part */ + +#define TP_PAR_CODE_ER_INVAL_TPDU (ST_UCHAR) 0xC1 + + /* encoding for the parameter code in variable part (common to */ + /* different TPDU types) */ + +#define TP_PAR_CODE_CHECKSUM (ST_UCHAR) 0xC3 + + + /* encoding for CR TPDU additional options */ + +#define TP_OPT_CHECKSUM_USE (ST_UCHAR) 0x00 +#define TP_OPT_CHECKSUM_NON_USE (ST_UCHAR) 0x02 + +#define TP_OPT_EXPEDITED_NON_USE (ST_UCHAR) 0x00 +#define TP_OPT_EXPEDITED_USE (ST_UCHAR) 0x01 + + +typedef struct + { + ST_UCHAR code; /* parameter code */ + ST_UCHAR len; /* Parameter length */ + ST_UCHAR value [2]; /* parameter value has variable length */ + /* (defined as 2 bytes buffer, the ptr */ + /* will allow us to access any len param*/ + }TP_PAR; + +#define TP_PAR_FIX_LEN 2 + /* define above specifies only the fixed part */ + /* of parameter (code and len) */ + + /* some parameters are fixed in size so we can define them here */ + + /* parameters length in CR or CC */ + +#define TP_PAR_LEN_TPDU_SIZE (TP_PAR_FIX_LEN + 1) +#define TP_PAR_LEN_VERSION (TP_PAR_FIX_LEN + 1) +#define TP_PAR_LEN_ADD_OPTIONS (TP_PAR_FIX_LEN + 1) + + /* parameters length in AK */ + +#define TP_PAR_LEN_AK_SUB_SN (TP_PAR_FIX_LEN + 2) +#define TP_PAR_LEN_AK_FLOW_CTRL (TP_PAR_FIX_LEN + 8) + + /* parameters length (common to different types of TPDU types) */ + +#define TP_PAR_LEN_CHECKSUM (TP_PAR_FIX_LEN + 2) + +/* ! */ +/* NOTE: ! only ST_UCHAR type should be in protocol structs to avoid */ +/* ! packing or problems with sizeof operator. */ +/* ! */ + + + /*----------------------------------------------*/ + /* Struct and defines for CR and CC TPDU */ + /*----------------------------------------------*/ + +typedef struct + { + /* fixed part of header */ + ST_UCHAR hdr_len; /* hdr length (don't count the len byte)*/ + ST_UCHAR type_cdt; /* TPDU type and CDT */ + ST_UCHAR dest_ref [2]; /* Remote connection id (set to 0) */ + ST_UCHAR src_ref [2]; /* Local connection id */ + ST_UCHAR class_opt; /* Class and options */ + }TP_FHDR_CX; + +#define TP_FHDR_CX_LEN 7 + + /* for alloc of n_unitdata purposes the max len will be used */ + /* fixed part of header */ + /* local & remote TSAP */ + /* TPDU size parameter */ + /* TP version parameter */ + /* checksum parameter */ + /* additional opt param */ + /* user data (max allowed)*/ + +#define TP_MAX_LEN_CX (TP_FHDR_CX_LEN + \ + 2*(TP_PAR_FIX_LEN + MAX_TSEL_LEN) + \ + TP_PAR_LEN_TPDU_SIZE + \ + TP_PAR_LEN_VERSION + \ + TP_PAR_LEN_CHECKSUM + \ + TP_PAR_LEN_ADD_OPTIONS + \ + TP_MAX_CONN_UDATA) + + /*--------------------------------------*/ + /* Struct and defines for DR TPDU */ + /*--------------------------------------*/ + +typedef struct + { + /* fixed part of header */ + ST_UCHAR hdr_len; /* hdr length (don't count the len byte)*/ + ST_UCHAR type; /* TPDU type */ + ST_UCHAR dest_ref [2]; /* Remote connection id (set to 0) */ + ST_UCHAR src_ref [2]; /* Local connection id */ + ST_UCHAR reason; /* Reason code for disconnect */ + }TP_FHDR_DR; + +#define TP_FHDR_DR_LEN 7 + + /* for alloc of n_unitdata the max len will be used. */ + +#define TP_MAX_LEN_DR (TP_FHDR_DR_LEN + TP_PAR_LEN_CHECKSUM) + + /* no additional info parameter or user data in DR */ + + /*--------------------------------------*/ + /* Struct and defines for DC TPDU */ + /*--------------------------------------*/ + +typedef struct + { + /* fixed part of header */ + ST_UCHAR hdr_len; /* hdr length (don't count the len byte)*/ + ST_UCHAR type; /* TPDU type */ + ST_UCHAR dest_ref [2]; /* Remote connection id (set to 0) */ + ST_UCHAR src_ref [2]; /* Local connection id */ + }TP_FHDR_DC; + +#define TP_FHDR_DC_LEN 6 + + /* for alloc of n_unitdata the max len will be used. */ + +#define TP_MAX_LEN_DC (TP_FHDR_DC_LEN + TP_PAR_LEN_CHECKSUM) + + + /*--------------------------------------*/ + /* Struct and defines for DT TPDU */ + /*--------------------------------------*/ + +typedef struct + { + ST_UCHAR hdr_len; /* hdr length (don't count the len byte)*/ + ST_UCHAR type; /* TPDU type */ + ST_UCHAR dest_ref [2]; /* Remote connection id */ + ST_UCHAR eot_sn; /* EOT flag and sequence number */ + }TP_FHDR_DT; + +#define TP_FHDR_DT_LEN 5 + + /* for alloc of n_unitdata use TP_HEAD_LEN_DT + udata_len */ + +#define TP_HEAD_LEN_DT (ST_UINT16)(TP_FHDR_DT_LEN + TP_PAR_LEN_CHECKSUM) + +/* TP0 DT same as TP4 except doesn't use DST-REF. */ +typedef struct + { + ST_UCHAR hdr_len; /* hdr length (don't count the len byte)*/ + ST_UCHAR type; /* TPDU type */ + ST_UCHAR eot_sn; /* EOT flag and sequence number */ + }TP0_FHDR_DT; + +#define TP0_FHDR_DT_LEN 3 +#define TP0_HEAD_LEN_DT (ST_UINT16)(TP0_FHDR_DT_LEN) /* no chksum*/ + + + /*--------------------------------------*/ + /* Struct and defines for AK TPDU */ + /*--------------------------------------*/ + + +typedef struct + { + ST_UCHAR hdr_len; /* hdr length (don't count the len byte)*/ + ST_UCHAR type_cdt; /* TPDU type and CDT */ + ST_UCHAR dest_ref [2]; /* Remote connection id */ + ST_UCHAR sn; /* Next expected DT TPDU sequence number*/ + }TP_FHDR_AK; + +#define TP_FHDR_AK_LEN 5 + + /* for alloc of n_unitdata the max len will be used. */ + +#define TP_MAX_LEN_AK (TP_FHDR_AK_LEN + TP_PAR_LEN_CHECKSUM) + + + /*--------------------------------------*/ + /* Struct and defines for RJ TPDU */ + /*--------------------------------------*/ + +typedef struct + { + ST_UCHAR hdr_len; /* hdr length (don't count the len byte)*/ + ST_UCHAR type_cdt; /* TPDU type and CDT */ + ST_UCHAR dest_ref [2]; /* Remote connection id */ + ST_UCHAR sn; /* Next expected DT TPDU sequence number*/ + }TP_FHDR_RJ; + +#define TP_FHDR_RJ_LEN 5 + + /* for alloc of n_unitdata the max len will be used. */ + +#define TP_MAX_LEN_RJ TP_FHDR_RJ_LEN + + /*--------------------------------------*/ + /* Struct and defines for ER TPDU */ + /*--------------------------------------*/ + +typedef struct + { + ST_UCHAR hdr_len; /* hdr length (don't count the len byte)*/ + ST_UCHAR type; /* TPDU type */ + ST_UCHAR dest_ref [2]; /* Remote connection id */ + ST_UCHAR reason; /* Code for reject couse */ + }TP_FHDR_ER; + +#define TP_FHDR_ER_LEN 5 + + /* for alloc of n_unitdata the max len will be used. */ + +#define TP_MAX_LEN_ER (TP_FHDR_ER_LEN + TP_PAR_LEN_CHECKSUM) + + + /*----------------------------------------------*/ + /* Function prototypes for encoding/decoding */ + /*----------------------------------------------*/ + +ST_UINT16 tp_encode_cx (ST_UCHAR *enc_buf, TPDU_CX *tpdu_cx, ST_UCHAR pdu_type); +ST_UINT16 tp_encode_dr (ST_UCHAR *enc_buf, TPDU_DR *tpdu_dr); +ST_UINT16 tp_encode_dc (ST_UCHAR *enc_buf, TPDU_DC *tpdu_dc); +ST_UINT16 tp_encode_dt (ST_UCHAR *enc_buf, TPDU_DT *tpdu_dt); +ST_UINT16 tp0_encode_dt (ST_UCHAR *enc_buf, TPDU_DT *tpdu_dt); +ST_UINT16 tp_encode_ak (ST_UCHAR *enc_buf, TPDU_AK *tpdu_ak); + +ST_RET tp_decode_nsdu (N_UNITDATA *n_unitdata); + +ST_UINT16 tp_decode_cx (TPDU_CX *tpdu_cx_rx, ST_UCHAR *pdu_ptr, + ST_UINT16 pdu_len, ST_UCHAR pdu_type, ST_UCHAR max_tpdu_len_enc); +ST_UINT16 tp_decode_dr (TPDU_DR *tpdu_dr_rx, ST_UCHAR *pdu_ptr, + ST_UINT16 pdu_len); +ST_UINT16 tp_decode_dc (TPDU_DC *tpdu_dc_rx, ST_UCHAR *pdu_ptr, + ST_UINT16 pdu_len); +ST_UINT16 tp_decode_dt (TPDU_DT *tpdu_dt_rx, ST_UCHAR *pdu_ptr, + ST_UINT16 pdu_len); +ST_UINT16 tp0_decode_dt (TPDU_DT *tpdu_dt_rx, ST_UCHAR *pdu_ptr, + ST_UINT16 pdu_len); +ST_UINT16 tp_decode_ak (TPDU_AK *tpdu_ak_rx, ST_UCHAR *pdu_ptr, + ST_UINT16 pdu_len); +ST_UINT16 tp_decode_er (TPDU_ER *tpdu_er_rx, ST_UCHAR *pdu_ptr, + ST_UINT16 pdu_len, + ST_INT tp_class); /* must be 0 or 4 */ + +ST_VOID tp_log_tsdu (ST_VOID *tsdu, ST_UCHAR type, ST_UCHAR mask); + +#ifdef __cplusplus +} +#endif + +#endif /* end of 'already included' */ + + diff --git a/include/inc/tp4_log.h b/include/inc/tp4_log.h new file mode 100644 index 0000000..37694f1 --- /dev/null +++ b/include/inc/tp4_log.h @@ -0,0 +1,228 @@ +#ifndef TP4_LOG_INCLUDED +#define TP4_LOG_INCLUDED +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1996 - 2008, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : tp4_log.h */ +/* PRODUCT(S) : Lean-T Stack */ +/* */ +/* MODULE DESCRIPTION : */ +/* This header file contains logging macros for TP. */ +/* Note: To compile logging functions use the DEBUG_SISCO define */ +/* in the project make file. */ +/* */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 01/30/08 EJV 05 Converted to new SLOG macros. */ +/* 05/10/05 EJV 04 Added TP_LOG_ERR3. */ +/* 09/13/99 MDE 03 Added SD_CONST modifiers */ +/* 10/08/98 MDE 02 Migrated to updated SLOG interface */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 06/24/96 EJV 01 Created */ +/************************************************************************/ +#include "slog.h" +#include "tp4api.h" /* NOTE the masks are defined in tp4api.h, */ + /* should we include it here? */ + +#ifdef __cplusplus +extern "C" { +#endif + +/****************************************************************/ +/* Log Control types */ +/****************************************************************/ + +/* defined for TP_LOG.._RIn macros */ +#define TP_REQ (ST_UCHAR) 0 +#define TP_IND (ST_UCHAR) 1 + +#if defined(DEBUG_SISCO) + +extern SD_CONST ST_CHAR *SD_CONST _tp4_err_logstr; +extern SD_CONST ST_CHAR *SD_CONST _tp4_flowup_logstr; +extern SD_CONST ST_CHAR *SD_CONST _tp4_flowdown_logstr; + + /*--------------------------------------------*/ + /* errors logging */ + /*--------------------------------------------*/ + + #define TP_LOG_ERR0(a) SLOG_0 (tp4_debug_sel & TP4_LOG_ERR,_tp4_err_logstr,a) + #define TP_LOG_ERR1(a,b) SLOG_1 (tp4_debug_sel & TP4_LOG_ERR,_tp4_err_logstr,a,b) + #define TP_LOG_ERR2(a,b,c) SLOG_2 (tp4_debug_sel & TP4_LOG_ERR,_tp4_err_logstr,a,b,c) + #define TP_LOG_ERR3(a,b,c,d) SLOG_3 (tp4_debug_sel & TP4_LOG_ERR,_tp4_err_logstr,a,b,c,d) + + /* continuation log */ + + #define TP_LOGC_ERR0(a) SLOGC_0 (tp4_debug_sel & TP4_LOG_ERR,a) + #define TP_LOGC_ERR1(a,b) SLOGC_1 (tp4_debug_sel & TP4_LOG_ERR,a,b) + #define TP_LOGC_ERR2(a,b,c) SLOGC_2 (tp4_debug_sel & TP4_LOG_ERR,a,b,c) + #define TP_LOGC_ERR3(a,b,c,d) SLOGC_2 (tp4_debug_sel & TP4_LOG_ERR,a,b,c) + + /* hex logging */ + + #define TP_LOGH_ERR(a,b) SLOGH (tp4_debug_sel & TP4_LOG_ERR,a,b) + + /*--------------------------------------------*/ + /* Indication logging */ + /*--------------------------------------------*/ + + #define TP_LOG_IND0(a) SLOG_0 (tp4_debug_sel & TP4_LOG_FLOWUP,_tp4_flowup_logstr,a) + #define TP_LOG_IND1(a,b) SLOG_1 (tp4_debug_sel & TP4_LOG_FLOWUP,_tp4_flowup_logstr,a,b) + #define TP_LOG_IND2(a,b,c) SLOG_2 (tp4_debug_sel & TP4_LOG_FLOWUP,_tp4_flowup_logstr,a,b,c) + #define TP_LOG_IND3(a,b,c,d) SLOG_3 (tp4_debug_sel & TP4_LOG_FLOWUP,_tp4_flowup_logstr,a,b,c,d) + #define TP_LOG_IND4(a,b,c,d,e) SLOG_4 (tp4_debug_sel & TP4_LOG_FLOWUP,_tp4_flowup_logstr,a,b,c,d,e) + #define TP_LOG_IND5(a,b,c,d,e,f) SLOG_5 (tp4_debug_sel & TP4_LOG_FLOWUP,_tp4_flowup_logstr,a,b,c,d,e,f) + #define TP_LOG_IND6(a,b,c,d,e,f,g) SLOG_6 (tp4_debug_sel & TP4_LOG_FLOWUP,_tp4_flowup_logstr,a,b,c,d,e,f,g) + + /* continuation log */ + + #define TP_LOGC_IND0(a) SLOGC_0 (tp4_debug_sel & TP4_LOG_FLOWUP,a) + #define TP_LOGC_IND1(a,b) SLOGC_1 (tp4_debug_sel & TP4_LOG_FLOWUP,a,b) + #define TP_LOGC_IND2(a,b,c) SLOGC_2 (tp4_debug_sel & TP4_LOG_FLOWUP,a,b,c) + + /* hex logging */ + + #define TP_LOGH_IND(a,b) SLOGH (tp4_debug_sel & TP4_LOG_FLOWUP,a,b) + + /* continuation hex logging */ + + #define TP_LOGHC_IND(a,b) SLOGH (tp4_debug_sel & TP4_LOG_FLOWUP,a,b) + + /*--------------------------------------------*/ + /* Request logging */ + /*--------------------------------------------*/ + + #define TP_LOG_REQ0(a) SLOG_0 (tp4_debug_sel & TP4_LOG_FLOWDOWN,_tp4_flowdown_logstr,a) + #define TP_LOG_REQ1(a,b) SLOG_1 (tp4_debug_sel & TP4_LOG_FLOWDOWN,_tp4_flowdown_logstr,a,b) + #define TP_LOG_REQ2(a,b,c) SLOG_2 (tp4_debug_sel & TP4_LOG_FLOWDOWN,_tp4_flowdown_logstr,a,b,c) + #define TP_LOG_REQ3(a,b,c,d) SLOG_3 (tp4_debug_sel & TP4_LOG_FLOWDOWN,_tp4_flowdown_logstr,a,b,c,d) + #define TP_LOG_REQ4(a,b,c,d,e) SLOG_4 (tp4_debug_sel & TP4_LOG_FLOWDOWN,_tp4_flowdown_logstr,a,b,c,d,e) + #define TP_LOG_REQ5(a,b,c,d,e,f) SLOG_5 (tp4_debug_sel & TP4_LOG_FLOWDOWN,_tp4_flowdown_logstr,a,b,c,d,e,f) + #define TP_LOG_REQ6(a,b,c,d,e,f,g) SLOG_6 (tp4_debug_sel & TP4_LOG_FLOWDOWN,_tp4_flowdown_logstr,a,b,c,d,e,f,g) + + /* continuation log */ + + #define TP_LOGC_REQ0(a) SLOGC_0 (tp4_debug_sel & TP4_LOG_FLOWDOWN,a) + #define TP_LOGC_REQ1(a,b) SLOGC_1 (tp4_debug_sel & TP4_LOG_FLOWDOWN,a,b) + #define TP_LOGC_REQ2(a,b,c) SLOGC_2 (tp4_debug_sel & TP4_LOG_FLOWDOWN,a,b,c) + + /* hex logging */ + + #define TP_LOGH_REQ(a,b) SLOGH (tp4_debug_sel & TP4_LOG_FLOWDOWN,a,b) + + /* continuation hex logging */ + + #define TP_LOGHC_REQ(a,b) SLOGH (tp4_debug_sel & TP4_LOG_FLOWDOWN,a,b) + + /*--------------------------------------------------------------------*/ + /* macros below are used to log REQ or IND by passing mask to select */ + /* the logging macro (this is handy in log function so the macros */ + /* do not have to repeated in function for REQ and then for IND) */ + /*--------------------------------------------------------------------*/ + + #define TP_LOG_RI0(m,a) {if (m == TP_REQ) {TP_LOG_REQ0(a);} else {TP_LOG_IND0(a)};} + #define TP_LOG_RI1(m,a,b) {if (m == TP_REQ) {TP_LOG_REQ1(a,b);} else {TP_LOG_IND1(a,b);}} + #define TP_LOG_RI2(m,a,b,c) {if (m == TP_REQ) {TP_LOG_REQ2(a,b,c);} else {TP_LOG_IND2(a,b,c);}} + #define TP_LOG_RI3(m,a,b,c,d) {if (m == TP_REQ) {TP_LOG_REQ3(a,b,c,d);} else {TP_LOG_IND3(a,b,c,d);}} + #define TP_LOG_RI4(m,a,b,c,d,e) {if (m == TP_REQ) {TP_LOG_REQ4(a,b,c,d,e);} else {TP_LOG_IND4(a,b,c,d,e);}} + #define TP_LOG_RI5(m,a,b,c,d,e,f) {if (m == TP_REQ) {TP_LOG_REQ5(a,b,c,d,e,f);} else {TP_LOG_IND5(a,b,c,d,e,f);}} + #define TP_LOG_RI6(m,a,b,c,d,e,f,g) {if (m == TP_REQ) {TP_LOG_REQ6(a,b,c,d,e,f,g);} else {TP_LOG_IND6(a,b,c,d,e,f,g);}} + + #define TP_LOGC_RI0(m,a) {if (m == TP_REQ) {TP_LOGC_REQ0(a);} else {TP_LOGC_IND0(a);}} + #define TP_LOGC_RI1(m,a,b) {if (m == TP_REQ) {TP_LOGC_REQ1(a,b);} else {TP_LOGC_IND1(a,b);}} + #define TP_LOGC_RI2(m,a,b,c) {if (m == TP_REQ) {TP_LOGC_REQ2(a,b,c);} else {TP_LOGC_IND2(a,b,c);}} + + #define TP_LOGH_RI(m,a,b) {if (m == TP_REQ) {TP_LOGH_REQ(a,b);} else {TP_LOGH_IND(a,b);}} + #define TP_LOGHC_RI(m,a,b) {if (m == TP_REQ) {TP_LOGHC_REQ(a,b);} else {TP_LOGHC_IND(a,b);}} + + +#else /* macros if DEBUG_SISCO not defined */ + + /*--------------------------------------------*/ + /* errors logging */ + /*--------------------------------------------*/ + + #define TP_LOG_ERR0(a) + #define TP_LOG_ERR1(a,b) + #define TP_LOG_ERR2(a,b,c) + #define TP_LOG_ERR3(a,b,c,d) + + #define TP_LOGC_ERR0(a) + #define TP_LOGC_ERR1(a,b) + #define TP_LOGC_ERR2(a,b,c) + + #define TP_LOGH_ERR(a,b) + #define TP_LOGHC_ERR(a,b) + + /*--------------------------------------------*/ + /* Indication logging */ + /*--------------------------------------------*/ + + #define TP_LOG_IND0(a) + #define TP_LOG_IND1(a,b) + #define TP_LOG_IND2(a,b,c) + #define TP_LOG_IND3(a,b,c,d) + #define TP_LOG_IND4(a,b,c,d,e) + #define TP_LOG_IND5(a,b,c,d,e,f) + #define TP_LOG_IND6(a,b,c,d,e,f,g) + + #define TP_LOGC_IND0(a) + #define TP_LOGC_IND1(a,b) + #define TP_LOGC_IND2(a,b,c) + + #define TP_LOGH_IND(a,b) + #define TP_LOGHC_IND(a,b) + + /*--------------------------------------------*/ + /* Request logging */ + /*--------------------------------------------*/ + + #define TP_LOG_REQ0(a) + #define TP_LOG_REQ1(a,b) + #define TP_LOG_REQ2(a,b,c) + #define TP_LOG_REQ3(a,b,c,d) + #define TP_LOG_REQ4(a,b,c,d,e) + #define TP_LOG_REQ5(a,b,c,d,e,f) + #define TP_LOG_REQ6(a,b,c,d,e,f,g) + + #define TP_LOGC_REQ0(a) + #define TP_LOGC_REQ1(a,b) + #define TP_LOGC_REQ2(a,b,c) + + #define TP_LOGH_REQ(a,b) + #define TP_LOGHC_REQ(a,b) + + /*--------------------------------------------------------------------*/ + /* macros below are used to log REQ or IND by passing mask */ + /*--------------------------------------------------------------------*/ + + #define TP_LOG_RI0(m,a) + #define TP_LOG_RI1(m,a,b) + #define TP_LOG_RI2(m,a,b,c) + #define TP_LOG_RI3(m,a,b,c,d) + #define TP_LOG_RI4(m,a,b,c,d,e) + #define TP_LOG_RI5(m,a,b,c,d,e,f) + #define TP_LOG_RI6(m,a,b,c,d,e,f,g) + + #define TP_LOGC_RI0(m,a) + #define TP_LOGC_RI1(m,a,b) + #define TP_LOGC_RI2(m,a,b,c) + + #define TP_LOGH_RI(m,a,b) + #define TP_LOGHC_RI(m,a,b) + +#endif + +#ifdef __cplusplus +} +#endif + +#endif /* end of 'already included' */ + diff --git a/include/inc/tp4api.h b/include/inc/tp4api.h new file mode 100644 index 0000000..48543f3 --- /dev/null +++ b/include/inc/tp4api.h @@ -0,0 +1,333 @@ +#ifndef TP4API_INCLUDED +#define TP4API_INCLUDED +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1996-2005 All Rights Reserved */ +/* */ +/* MODULE NAME : tp4api.h */ +/* PRODUCT(S) : TP4 API user include file */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 07/27/05 JRB 23 Del obsolete DS_INFO, tp4_ds_*, odbc_ds_*. */ +/* 05/05/05 EJV 22 TP0_CFG: added rfc1006_listen_port */ +/* TP4_ADDR added port. */ +/* 04/06/05 EJV 21 MMSEASE_MOSI: use 32 for MAX_TSEL_LEN */ +/* 09/17/04 JRB 20 Chg tp?_connect to ret ST_LONG (i.e. conn_id)*/ +/* 01/14/04 EJV 19 TP0_CFG: added max_spdu_outst. */ +/* 08/25/03 EJV 18 Added encrypt_ctrl arg to tp0_connect(). */ +/* Added param to tp4_connect macro. */ +/* 06/20/02 JRB 17 Replace net_addr with union in TP4_ADDR. */ +/* Chg addr args to tp4_connect_ind. */ +/* Add tp0_convert_ip proto. */ +/* 05/08/02 JRB 16 Add tp0_connect_outstanding_count proto. */ +/* 01/22/02 JRB 15 Add max_conns arg to tp*_initialize. */ +/* 05/10/01 JRB 14 Chg TSEL_LEN from 32 to 4. */ +/* 03/14/01 JRB 13 Add global session_cfg w/ disconnect_timeout.*/ +/* 08/05/99 JRB 12 Add hTcp... extern. */ +/* 06/08/99 JRB 11 Change max_num_conns to ST_UINT16 to allow */ +/* many more connections. */ +/* 01/28/99 JRB 10 Addec cltp_decode_nsdu_fun funct ptr. */ +/* 08/13/98 JRB 09 Lint cleanup. */ +/* 06/18/98 JRB 08 Add TP_TYPE_TPX. */ +/* 03/11/98 JRB 07 Del max_spdu_len from TP0_CFG & TP_CFG. */ +/* Add keepalive to TP0_CFG. */ +/* 09/04/07 JRB 06 Add max_spdu_len arg to tp4_initialize. */ +/* 08/14/97 JRB 05 RFC1006 changes: */ +/* - Add "tp0_*" protos. */ +/* - Add "tp_type" to TP4_ADDR. */ +/* - Add "tp0_cfg" config struct for RFC1006. */ +/* - Chg "tp4_data" arg "data_len" to ST_UINT. */ +/* - Replace tp4_reldata proto with dummy macro.*/ +/* - Chg MAX_TP4_SEL to MAX_TSEL_LEN (ACSE uses)*/ +/* - Chg MAX_NET_ADDR to MAX_IP_ADDR_LEN and */ +/* increase to allow IP hostname. */ +/* 08/04/97 JRB 04 Add max_tpdu_len_enc to TP_CFG (use instead */ +/* of global max_tpdu_len_enc). */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 05/07/97 JRB 03 Added Error codes. */ +/* 02/20/97 EJV 02 Added MOSI support: tp4_session_timer and */ +/* tp4_session_timer_expired. */ +/* 11/14/96 JRB 01 Created for LEAN_T only. */ +/************************************************************************/ + +#ifdef __cplusplus +extern "C" { +#endif + +#include "ssec.h" /* for S_SEC_ENCRYPT_CTRL */ +#include "clnp_usr.h" /* Need CLNP_MAX_LEN_NSAP define. */ + +/* Defines for Transport type. Used to set "tp_type" in TP4_ADDR. */ +#define TP_TYPE_TCP 0 +#define TP_TYPE_TP4 1 +#define TP_TYPE_TPX 2 /* allow TP4 and TCP at same time. */ + +/****************************************************************/ +/* Structure definitions */ +/****************************************************************/ + +#if defined(MMSEASE_MOSI) +#define MAX_TSEL_LEN 32 +#else +#define MAX_TSEL_LEN 4 /* GOSIP Ver2 recommends len of 2 */ +#endif +#define MAX_IP_ADDR_LEN 80 /* Big enough for IP hostname */ + +typedef struct tagTP4_ADDR + { +#if !defined(REDUCED_STACK) + ST_INT tp_type; /* Type of transport: TP_TYPE_TP4 or TP_TYPE_TCP.*/ + ST_UINT tp4_sel_len; + char tp4_sel[MAX_TSEL_LEN]; + ST_UINT net_addr_len; + union + { /* If TP_TYPE_TP4, use "nsap". If TP_TYPE_TCP, use "ip". */ + ST_UCHAR nsap [CLNP_MAX_LEN_NSAP]; /* NSAP OR */ + ST_ULONG ip; /* IP Addr (network byte order) */ + }netAddr; + ST_UINT16 port; /* remote port, optional param, */ + /* defaults to 102 if not config*/ +#else + ST_UINT16 adlcAddr; +#endif + } TP4_ADDR; + +/****************************************************************/ +/* API prototypes */ +/****************************************************************/ + +ST_RET tp4_initialize (ST_UINT max_conns, ST_UINT max_spdu_len); +ST_RET tp4_terminate (ST_VOID); + +ST_BOOLEAN tp4_event (ST_VOID); + +ST_RET tp4_bind (ST_LONG user_bind_id, TP4_ADDR *tp4_addr, + ST_INT sharable, ST_INT max_conns); +ST_RET tp4_unbind (ST_LONG tp4_bind_id); + +ST_LONG tp4_connect (ST_LONG tp4_bind_id, ST_LONG user_conn_id, + TP4_ADDR *rem_tp4_addr, + ST_INT conndata_len, + char *conndata, + S_SEC_ENCRYPT_CTRL *encrypt_ctrl); /* connection encryption info */ + +ST_RET tp4_accept (ST_LONG tp4_conn_id, ST_LONG user_conn_id, + ST_INT conndata_len, + char *conndata); +ST_RET tp4_disconnect (ST_LONG tp4_conn_id, + ST_INT conndata_len, + char *conndata); +ST_RET tp4_data (ST_LONG tp4_conn_id, + ST_INT eot, + ST_UINT data_len, + char *data); +ST_RET tp4_expdata (ST_LONG tp4_conn_id, + ST_UINT data_len, + char *data); + +/* The "tp4_reldata" function is not needed in this TP4 implementation, */ +/* so define "tp4_reldata" macro which does nothing. */ +#define tp4_reldata(databuf) + +/* Function for MOSI implementation: */ +ST_RET tp4_session_timer (ST_LONG tp_conn_id, ST_BOOLEAN start); + +ST_RET tp0_initialize (ST_UINT max_conns, ST_UINT max_spdu_len); +ST_RET tp0_terminate (ST_VOID); + +ST_BOOLEAN tp0_event (ST_VOID); + +ST_RET tp0_bind (ST_LONG user_bind_id, TP4_ADDR *tp4_addr, + ST_INT sharable, ST_INT max_conns); +ST_RET tp0_unbind (ST_LONG tp4_bind_id); + +ST_LONG tp0_connect (ST_LONG tp4_bind_id, ST_LONG user_conn_id, + TP4_ADDR *rem_tp4_addr, + ST_INT conndata_len, + char *conndata, + S_SEC_ENCRYPT_CTRL *encrypt_ctrl); +ST_INT tp0_connect_outstanding_count (TP4_ADDR *tp4Addr); +ST_RET tp0_accept (ST_LONG tp4_conn_id, ST_LONG user_conn_id, + ST_INT conndata_len, + char *conndata); +ST_RET tp0_disconnect (ST_LONG tp4_conn_id, + ST_INT conndata_len, + char *conndata); +ST_RET tp0_data (ST_LONG tp4_conn_id, + ST_INT eot, + ST_UINT data_len, + char *data); + +/* Function for MOSI implementation: */ +ST_RET tp0_session_timer (ST_LONG tp_conn_id, ST_BOOLEAN start); + +/****************************************************************/ +/* Event callback function prototypes */ +/****************************************************************/ + +ST_VOID tp4_bind_cnf (ST_LONG user_bind_id, ST_LONG tp4_bind_id, ST_RET result); +ST_VOID tp4_unbind_cnf (ST_LONG user_bind_id); + +ST_VOID tp4_connect_ind (ST_LONG user_bind_id, ST_LONG tp4_conn_id, + ST_UCHAR *loc_tsap, ST_UCHAR *rem_tsap, + ST_UCHAR *rem_nsap, ST_ULONG rem_ip, + ST_INT conndata_len, char *conndata); +ST_VOID tp4_connect_cnf (ST_LONG user_conn_id, ST_LONG tp4_conn_id, + ST_INT conndata_len, char *conndata); +ST_VOID tp4_disconnect_ind (ST_LONG user_conn_id, ST_INT reason, + ST_INT conndata_len, char *conndata); +ST_VOID tp4_data_ind (ST_LONG user_conn_id, ST_INT eot, + ST_UINT data_len, char *data); +ST_VOID tp4_expdata_ind (ST_LONG user_conn_id, + ST_UINT data_len, char *data); + +/* Function for MOSI implementation: */ +ST_VOID tp4_session_timer_expired (ST_LONG user_conn_id); + + +/****************************************************************/ +/* Log Control */ +/****************************************************************/ + +#define TP4_LOG_ERR 0x00000001 +#define TP4_LOG_FLOWUP 0x00000002 +#define TP4_LOG_FLOWDOWN 0x00000004 + +extern ST_UINT tp4_debug_sel; + +/****************************************************************/ +/* Error Codes */ +/****************************************************************/ + +#define TP4E_SHMALLOC 0x1201 +#define TP4E_BADCONN 0x1202 +#define TP4E_QUEUE_FULL 0x1203 +#define TP4E_CONN_STATE 0x1204 +#define TP4E_INVAL_TPDU_LEN 0x1205 +#define TP4E_INVAL_REM_CDT 0x1206 +#define TP4E_INVAL_LOC_CDT 0x1207 +#define TP4E_INVAL_SPDU_OUTST 0x1208 +#define TP4E_INVAL_NUM_CONNS 0x1209 +#define TP4E_INVAL_SPDU_LEN 0x120A +#define TP4E_INVAL_WINDOW_TIME 0x120B +#define TP4E_INVAL_INACT_TIME 0x120C +#define TP4E_INVAL_RETRANS_TIME 0x120D +#define TP4E_INVAL_MAX_TRANS 0x120E +#define TP4E_MALLOC 0x120F +#define TP4E_INVAL_TSEL 0x1210 +#define TP4E_TOO_MANY_BINDS 0x1211 + + +/************************************************************************/ +/* Global Configuration Structure Typedef. */ +/************************************************************************/ +typedef struct + { + ST_UINT16 max_tpdu_len; /* max len of TPDU. Base on SNPDU size.*/ + /* Use to allocate TPDU buffers. */ + ST_UCHAR max_tpdu_len_enc; /* Binary encoded MAX TPDU len. Computed*/ + /* from max_tpdu_len by tp4_initialize. */ + ST_UCHAR max_rem_cdt; /* Max credits we can handle. */ + /* Will allocate this many TPDU_DT */ + /* structs. */ + /* CRITICAL: MUST BE POWER OF 2. */ + ST_UCHAR loc_cdt; /* CDT value we will ALWAYS send in ACK */ + /* We only accept in-sequence TPDUs so */ + /* only purpose of this is to */ + /* allow peer to send ahead. */ + ST_UCHAR max_spdu_outst; /* Max # of SPDUs outstanding per conn. */ + /* Will allocate this many SPDU_INFO */ + /* structs for transmit queue. */ + /* CRITICAL: MUST BE POWER OF 2. */ + ST_UINT16 max_num_conns; /* Max # Connections */ + ST_UINT16 window_time; /* Window Time */ + ST_UINT16 inact_time; /* Inactivity Time */ + ST_UINT16 retrans_time; /* Retransmission Time */ + ST_UCHAR max_trans; /* Max # of transmissions of a TPDU */ + ST_UCHAR ak_delay; /* # of loops to delay sending AK. */ + } TP_CFG; + +typedef struct + { + ST_UINT16 max_tpdu_len; /* max len of TPDU. Base on SNPDU size.*/ + /* Use to allocate TPDU buffers. */ + ST_UCHAR max_tpdu_len_enc; /* Binary encoded MAX TPDU len. Computed*/ + /* from max_tpdu_len by tp0_initialize. */ + ST_UINT max_spdu_outst; /* Max # of SPDUs outstanding per conn. */ + /* that can be queued on the gensock2 */ + ST_UINT16 max_num_conns; /* Max # Connections */ + ST_BOOLEAN keepalive; /* Use KEEPALIVE option on Sockets? */ + ST_UINT16 rfc1006_listen_port;/* RFC1006 listen port, optional param, */ + /* will default to 102 if not configured*/ + } TP0_CFG; /* For TP0/RFC1006 only. */ + +typedef struct + { + ST_UINT16 disconnect_timeout; /* time to wait for T-disconnect. */ + } SESSION_CFG; + +/************************************************************************/ +/* Global Configuration Structure */ +/* This structure must be filled in by user BEFORE tp4_initialize (). */ +/* It MUST NOT change after tp4_initialize (). */ +/************************************************************************/ +extern TP_CFG tp_cfg; +extern TP0_CFG tp0_cfg; /* For TP0/RFC1006 only. */ +extern SESSION_CFG session_cfg; + +/************************************************************************/ +/* Global Variables */ +/************************************************************************/ +/* CLTP decode function pointer. */ +extern ST_VOID (*cltp_decode_nsdu_fun) (N_UNITDATA *n_unitdata); + +/************************************************************************/ +/* Additional Prototypes for LEAN_T only. */ +/************************************************************************/ + +ST_VOID tp4_except (ST_CHAR *filename, ST_INT line); +ST_VOID tp4_timer_tick (ST_VOID); +ST_RET tp4_config (ST_VOID); +ST_VOID tp4_init_timer (ST_VOID); +ST_VOID tp4_check_timer (ST_VOID); +ST_INT tp4_buffers_avail (ST_LONG tp4_conn_id); + +ST_VOID tp0_timer_tick (ST_VOID); +ST_INT tp0_buffers_avail (ST_LONG tp4_conn_id); +ST_ULONG tp0_convert_ip (ST_CHAR *hostname); + +/************************************************************************/ +/* Event semaphore to indicate TCP events. */ +/************************************************************************/ +extern ST_EVENT_SEM hTcpEvent; + +/************************************************************************/ +/* Replacement function macros. If no TP4, call TP0 functions. */ +/************************************************************************/ +#if !defined (TP4_ENABLED) +#define tp4_initialize(a,b) tp0_initialize(a,b) +#define tp4_terminate() tp0_terminate() +#define tp4_event() tp0_event() +#define tp4_bind(a,b,c,d) tp0_bind(a,b,c,d) +#define tp4_unbind(a) tp0_unbind(a) +#define tp4_connect(a,b,c,d,e,f) tp0_connect(a,b,c,d,e,f) +#define tp4_accept(a,b,c,d) tp0_accept(a,b,c,d) +#define tp4_disconnect(a,b,c) tp0_disconnect(a,b,c) +#define tp4_data(a,b,c,d) tp0_data(a,b,c,d) +#define tp4_session_timer(a,b) tp0_session_timer(a,b) +#define tp4_timer_tick() tp0_timer_tick() +#define tp4_buffers_avail(a) tp0_buffers_avail(a) +#endif /* !defined (TP4_ENABLED) */ + +#ifdef __cplusplus +} +#endif +#endif /* !TP4API_INCLUDED */ diff --git a/include/inc/tp4api.h.bak b/include/inc/tp4api.h.bak new file mode 100644 index 0000000..73cf08f --- /dev/null +++ b/include/inc/tp4api.h.bak @@ -0,0 +1,333 @@ +#ifndef TP4API_INCLUDED +#define TP4API_INCLUDED +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1996-2005 All Rights Reserved */ +/* */ +/* MODULE NAME : tp4api.h */ +/* PRODUCT(S) : TP4 API user include file */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 07/27/05 JRB 23 Del obsolete DS_INFO, tp4_ds_*, odbc_ds_*. */ +/* 05/05/05 EJV 22 TP0_CFG: added rfc1006_listen_port */ +/* TP4_ADDR added port. */ +/* 04/06/05 EJV 21 MMSEASE_MOSI: use 32 for MAX_TSEL_LEN */ +/* 09/17/04 JRB 20 Chg tp?_connect to ret ST_LONG (i.e. conn_id)*/ +/* 01/14/04 EJV 19 TP0_CFG: added max_spdu_outst. */ +/* 08/25/03 EJV 18 Added encrypt_ctrl arg to tp0_connect(). */ +/* Added param to tp4_connect macro. */ +/* 06/20/02 JRB 17 Replace net_addr with union in TP4_ADDR. */ +/* Chg addr args to tp4_connect_ind. */ +/* Add tp0_convert_ip proto. */ +/* 05/08/02 JRB 16 Add tp0_connect_outstanding_count proto. */ +/* 01/22/02 JRB 15 Add max_conns arg to tp*_initialize. */ +/* 05/10/01 JRB 14 Chg TSEL_LEN from 32 to 4. */ +/* 03/14/01 JRB 13 Add global session_cfg w/ disconnect_timeout.*/ +/* 08/05/99 JRB 12 Add hTcp... extern. */ +/* 06/08/99 JRB 11 Change max_num_conns to ST_UINT16 to allow */ +/* many more connections. */ +/* 01/28/99 JRB 10 Addec cltp_decode_nsdu_fun funct ptr. */ +/* 08/13/98 JRB 09 Lint cleanup. */ +/* 06/18/98 JRB 08 Add TP_TYPE_TPX. */ +/* 03/11/98 JRB 07 Del max_spdu_len from TP0_CFG & TP_CFG. */ +/* Add keepalive to TP0_CFG. */ +/* 09/04/07 JRB 06 Add max_spdu_len arg to tp4_initialize. */ +/* 08/14/97 JRB 05 RFC1006 changes: */ +/* - Add "tp0_*" protos. */ +/* - Add "tp_type" to TP4_ADDR. */ +/* - Add "tp0_cfg" config struct for RFC1006. */ +/* - Chg "tp4_data" arg "data_len" to ST_UINT. */ +/* - Replace tp4_reldata proto with dummy macro.*/ +/* - Chg MAX_TP4_SEL to MAX_TSEL_LEN (ACSE uses)*/ +/* - Chg MAX_NET_ADDR to MAX_IP_ADDR_LEN and */ +/* increase to allow IP hostname. */ +/* 08/04/97 JRB 04 Add max_tpdu_len_enc to TP_CFG (use instead */ +/* of global max_tpdu_len_enc). */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 05/07/97 JRB 03 Added Error codes. */ +/* 02/20/97 EJV 02 Added MOSI support: tp4_session_timer and */ +/* tp4_session_timer_expired. */ +/* 11/14/96 JRB 01 Created for LEAN_T only. */ +/************************************************************************/ + +#ifdef __cplusplus +extern "C" { +#endif + +#include "ssec.h" /* for S_SEC_ENCRYPT_CTRL */ +#include "clnp_usr.h" /* Need CLNP_MAX_LEN_NSAP define. */ + +/* Defines for Transport type. Used to set "tp_type" in TP4_ADDR. */ +#define TP_TYPE_TCP 0 +#define TP_TYPE_TP4 1 +#define TP_TYPE_TPX 2 /* allow TP4 and TCP at same time. */ + +/****************************************************************/ +/* Structure definitions */ +/****************************************************************/ + +#if defined(MMSEASE_MOSI) +#define MAX_TSEL_LEN 32 +#else +#define MAX_TSEL_LEN 4 /* GOSIP Ver2 recommends len of 2 */ +#endif +#define MAX_IP_ADDR_LEN 80 /* Big enough for IP hostname */ + +typedef struct tagTP4_ADDR + { +#if !defined(REDUCED_STACK) + ST_INT tp_type; /* Type of transport: TP_TYPE_TP4 or TP_TYPE_TCP.*/ + ST_UINT tp4_sel_len; + char tp4_sel[MAX_TSEL_LEN]; + ST_UINT net_addr_len; + union + { /* If TP_TYPE_TP4, use "nsap". If TP_TYPE_TCP, use "ip". */ + ST_UCHAR nsap [CLNP_MAX_LEN_NSAP]; /* NSAP OR */ + ST_ULONG ip; /* IP Addr (network byte order) */ + }netAddr; + ST_UINT16 port; /* remote port, optional param, */ + /* defaults to 102 if not config*/ +#else + ST_UINT16 adlcAddr; +#endif + } TP4_ADDR; + +/****************************************************************/ +/* API prototypes */ +/****************************************************************/ + +ST_RET tp4_initialize (ST_UINT max_conns, ST_UINT max_spdu_len); +ST_RET tp4_terminate (ST_VOID); + +ST_BOOLEAN tp4_event (ST_VOID); + +ST_RET tp4_bind (ST_LONG user_bind_id, TP4_ADDR *tp4_addr, + ST_INT sharable, ST_INT max_conns); +ST_RET tp4_unbind (ST_LONG tp4_bind_id); + +ST_LONG tp4_connect (ST_LONG tp4_bind_id, ST_LONG user_conn_id, + TP4_ADDR *rem_tp4_addr, + ST_INT conndata_len, + char *conndata, + S_SEC_ENCRYPT_CTRL *encrypt_ctrl); /* connection encryption info */ + +ST_RET tp4_accept (ST_LONG tp4_conn_id, ST_LONG user_conn_id, + ST_INT conndata_len, + char *conndata); +ST_RET tp4_disconnect (ST_LONG tp4_conn_id, + ST_INT conndata_len, + char *conndata); +ST_RET tp4_data (ST_LONG tp4_conn_id, + ST_INT eot, + ST_UINT data_len, + char *data); +ST_RET tp4_expdata (ST_LONG tp4_conn_id, + ST_UINT data_len, + char *data); + +/* The "tp4_reldata" function is not needed in this TP4 implementation, */ +/* so define "tp4_reldata" macro which does nothing. */ +#define tp4_reldata(databuf) + +/* Function for MOSI implementation: */ +ST_RET tp4_session_timer (ST_LONG tp_conn_id, ST_BOOLEAN start); + +ST_RET tp0_initialize (ST_UINT max_conns, ST_UINT max_spdu_len); +ST_RET tp0_terminate (ST_VOID); + +ST_BOOLEAN tp0_event (ST_VOID); + +ST_RET tp0_bind (ST_LONG user_bind_id, TP4_ADDR *tp4_addr, + ST_INT sharable, ST_INT max_conns); +ST_RET tp0_unbind (ST_LONG tp4_bind_id); + +ST_LONG tp0_connect (ST_LONG tp4_bind_id, ST_LONG user_conn_id, + TP4_ADDR *rem_tp4_addr, + ST_INT conndata_len, + char *conndata, + S_SEC_ENCRYPT_CTRL *encrypt_ctrl); +ST_INT tp0_connect_outstanding_count (TP4_ADDR *tp4Addr); +ST_RET tp0_accept (ST_LONG tp4_conn_id, ST_LONG user_conn_id, + ST_INT conndata_len, + char *conndata); +ST_RET tp0_disconnect (ST_LONG tp4_conn_id, + ST_INT conndata_len, + char *conndata); +ST_RET tp0_data (ST_LONG tp4_conn_id, + ST_INT eot, + ST_UINT data_len, + char *data); + +/* Function for MOSI implementation: */ +ST_RET tp0_session_timer (ST_LONG tp_conn_id, ST_BOOLEAN start); + +/****************************************************************/ +/* Event callback function prototypes */ +/****************************************************************/ + +ST_VOID tp4_bind_cnf (ST_LONG user_bind_id, ST_LONG tp4_bind_id, ST_RET result); +ST_VOID tp4_unbind_cnf (ST_LONG user_bind_id); + +/*ST_VOID tp4_connect_ind (ST_LONG user_bind_id, ST_LONG tp4_conn_id, + ST_UCHAR *loc_tsap, ST_UCHAR *rem_tsap, + ST_UCHAR *rem_nsap, ST_ULONG rem_ip, + ST_INT conndata_len, char *conndata);*/ +ST_VOID tp4_connect_cnf (ST_LONG user_conn_id, ST_LONG tp4_conn_id, + ST_INT conndata_len, char *conndata); +ST_VOID tp4_disconnect_ind (ST_LONG user_conn_id, ST_INT reason, + ST_INT conndata_len, char *conndata); +ST_VOID tp4_data_ind (ST_LONG user_conn_id, ST_INT eot, + ST_UINT data_len, char *data); +ST_VOID tp4_expdata_ind (ST_LONG user_conn_id, + ST_UINT data_len, char *data); + +/* Function for MOSI implementation: */ +ST_VOID tp4_session_timer_expired (ST_LONG user_conn_id); + + +/****************************************************************/ +/* Log Control */ +/****************************************************************/ + +#define TP4_LOG_ERR 0x00000001 +#define TP4_LOG_FLOWUP 0x00000002 +#define TP4_LOG_FLOWDOWN 0x00000004 + +extern ST_UINT tp4_debug_sel; + +/****************************************************************/ +/* Error Codes */ +/****************************************************************/ + +#define TP4E_SHMALLOC 0x1201 +#define TP4E_BADCONN 0x1202 +#define TP4E_QUEUE_FULL 0x1203 +#define TP4E_CONN_STATE 0x1204 +#define TP4E_INVAL_TPDU_LEN 0x1205 +#define TP4E_INVAL_REM_CDT 0x1206 +#define TP4E_INVAL_LOC_CDT 0x1207 +#define TP4E_INVAL_SPDU_OUTST 0x1208 +#define TP4E_INVAL_NUM_CONNS 0x1209 +#define TP4E_INVAL_SPDU_LEN 0x120A +#define TP4E_INVAL_WINDOW_TIME 0x120B +#define TP4E_INVAL_INACT_TIME 0x120C +#define TP4E_INVAL_RETRANS_TIME 0x120D +#define TP4E_INVAL_MAX_TRANS 0x120E +#define TP4E_MALLOC 0x120F +#define TP4E_INVAL_TSEL 0x1210 +#define TP4E_TOO_MANY_BINDS 0x1211 + + +/************************************************************************/ +/* Global Configuration Structure Typedef. */ +/************************************************************************/ +typedef struct + { + ST_UINT16 max_tpdu_len; /* max len of TPDU. Base on SNPDU size.*/ + /* Use to allocate TPDU buffers. */ + ST_UCHAR max_tpdu_len_enc; /* Binary encoded MAX TPDU len. Computed*/ + /* from max_tpdu_len by tp4_initialize. */ + ST_UCHAR max_rem_cdt; /* Max credits we can handle. */ + /* Will allocate this many TPDU_DT */ + /* structs. */ + /* CRITICAL: MUST BE POWER OF 2. */ + ST_UCHAR loc_cdt; /* CDT value we will ALWAYS send in ACK */ + /* We only accept in-sequence TPDUs so */ + /* only purpose of this is to */ + /* allow peer to send ahead. */ + ST_UCHAR max_spdu_outst; /* Max # of SPDUs outstanding per conn. */ + /* Will allocate this many SPDU_INFO */ + /* structs for transmit queue. */ + /* CRITICAL: MUST BE POWER OF 2. */ + ST_UINT16 max_num_conns; /* Max # Connections */ + ST_UINT16 window_time; /* Window Time */ + ST_UINT16 inact_time; /* Inactivity Time */ + ST_UINT16 retrans_time; /* Retransmission Time */ + ST_UCHAR max_trans; /* Max # of transmissions of a TPDU */ + ST_UCHAR ak_delay; /* # of loops to delay sending AK. */ + } TP_CFG; + +typedef struct + { + ST_UINT16 max_tpdu_len; /* max len of TPDU. Base on SNPDU size.*/ + /* Use to allocate TPDU buffers. */ + ST_UCHAR max_tpdu_len_enc; /* Binary encoded MAX TPDU len. Computed*/ + /* from max_tpdu_len by tp0_initialize. */ + ST_UINT max_spdu_outst; /* Max # of SPDUs outstanding per conn. */ + /* that can be queued on the gensock2 */ + ST_UINT16 max_num_conns; /* Max # Connections */ + ST_BOOLEAN keepalive; /* Use KEEPALIVE option on Sockets? */ + ST_UINT16 rfc1006_listen_port;/* RFC1006 listen port, optional param, */ + /* will default to 102 if not configured*/ + } TP0_CFG; /* For TP0/RFC1006 only. */ + +typedef struct + { + ST_UINT16 disconnect_timeout; /* time to wait for T-disconnect. */ + } SESSION_CFG; + +/************************************************************************/ +/* Global Configuration Structure */ +/* This structure must be filled in by user BEFORE tp4_initialize (). */ +/* It MUST NOT change after tp4_initialize (). */ +/************************************************************************/ +extern TP_CFG tp_cfg; +extern TP0_CFG tp0_cfg; /* For TP0/RFC1006 only. */ +extern SESSION_CFG session_cfg; + +/************************************************************************/ +/* Global Variables */ +/************************************************************************/ +/* CLTP decode function pointer. */ +extern ST_VOID (*cltp_decode_nsdu_fun) (N_UNITDATA *n_unitdata); + +/************************************************************************/ +/* Additional Prototypes for LEAN_T only. */ +/************************************************************************/ + +ST_VOID tp4_except (ST_CHAR *filename, ST_INT line); +ST_VOID tp4_timer_tick (ST_VOID); +ST_RET tp4_config (ST_VOID); +ST_VOID tp4_init_timer (ST_VOID); +ST_VOID tp4_check_timer (ST_VOID); +ST_INT tp4_buffers_avail (ST_LONG tp4_conn_id); + +ST_VOID tp0_timer_tick (ST_VOID); +ST_INT tp0_buffers_avail (ST_LONG tp4_conn_id); +ST_ULONG tp0_convert_ip (ST_CHAR *hostname); + +/************************************************************************/ +/* Event semaphore to indicate TCP events. */ +/************************************************************************/ +extern ST_EVENT_SEM hTcpEvent; + +/************************************************************************/ +/* Replacement function macros. If no TP4, call TP0 functions. */ +/************************************************************************/ +#if !defined (TP4_ENABLED) +#define tp4_initialize(a,b) tp0_initialize(a,b) +#define tp4_terminate() tp0_terminate() +#define tp4_event() tp0_event() +#define tp4_bind(a,b,c,d) tp0_bind(a,b,c,d) +#define tp4_unbind(a) tp0_unbind(a) +#define tp4_connect(a,b,c,d,e,f) tp0_connect(a,b,c,d,e,f) +#define tp4_accept(a,b,c,d) tp0_accept(a,b,c,d) +#define tp4_disconnect(a,b,c) tp0_disconnect(a,b,c) +#define tp4_data(a,b,c,d) tp0_data(a,b,c,d) +#define tp4_session_timer(a,b) tp0_session_timer(a,b) +#define tp4_timer_tick() tp0_timer_tick() +#define tp4_buffers_avail(a) tp0_buffers_avail(a) +#endif /* !defined (TP4_ENABLED) */ + +#ifdef __cplusplus +} +#endif +#endif /* !TP4API_INCLUDED */ diff --git a/lib/libcurl.so.4 b/lib/libcurl.so.4 new file mode 100644 index 0000000..9a73018 Binary files /dev/null and b/lib/libcurl.so.4 differ diff --git a/lib/libcurl.so.4.3.0 b/lib/libcurl.so.4.3.0 new file mode 100644 index 0000000..9409fe2 Binary files /dev/null and b/lib/libcurl.so.4.3.0 differ diff --git a/lib/libcurl.so.4.7.0 b/lib/libcurl.so.4.7.0 new file mode 100644 index 0000000..9a73018 Binary files /dev/null and b/lib/libcurl.so.4.7.0 differ diff --git a/lib/liblog4cplus.so.9 b/lib/liblog4cplus.so.9 new file mode 100644 index 0000000..28ae191 Binary files /dev/null and b/lib/liblog4cplus.so.9 differ diff --git a/lib/libmxml.so.1 b/lib/libmxml.so.1 new file mode 100644 index 0000000..a45fbf6 Binary files /dev/null and b/lib/libmxml.so.1 differ diff --git a/lib/libmxml.so.1.5 b/lib/libmxml.so.1.5 new file mode 100644 index 0000000..a45fbf6 Binary files /dev/null and b/lib/libmxml.so.1.5 differ diff --git a/mms/mms_process.c b/mms/mms_process.c index c9e6060..c6df9dc 100644 --- a/mms/mms_process.c +++ b/mms/mms_process.c @@ -202,7 +202,7 @@ void closeChannel(chnl_usr_t *chnl_usr) mvl_free_req_ctrl(chnl_usr->m_reqCtrl); - chnl_usr->net_info->user_ext = NULL; + chnl_usr->net_info->user_info = NULL; chnl_usr->net_info = NULL; @@ -229,7 +229,7 @@ ST_VOID Callback_channel_disconnect_ind(MVL_NET_INFO * NetInfo, ST_INT discType) { chnl_usr_t *chnl_usr; - chnl_usr = (chnl_usr_t*)NetInfo->user_ext; + chnl_usr = (chnl_usr_t*)NetInfo->user_info; if ( chnl_usr ) { if(chnl_usr->m_state == CHANNEL_CONNECTING) @@ -248,7 +248,7 @@ ST_VOID Callback_channel_disconnect_ind(MVL_NET_INFO * NetInfo, ST_INT discType) chnl_usr->net_info = NULL; - NetInfo->user_ext = NULL; + NetInfo->user_info = NULL; } printf(" Callback_channel_disconnect_ind ,NetInfo = %x",NetInfo); @@ -1703,7 +1703,7 @@ void CheckNextNotConnectedChannel() chnl_usr->m_reqCtrl = NULL; chnl_usr->m_state = CHANNEL_CONNECTED; - chnl_usr->net_info->user_ext = chnl_usr; + chnl_usr->net_info->user_info = chnl_usr; all_rcb_info = (ALL_RCB_INFO *)chk_calloc(1, sizeof (ALL_RCB_INFO)); all_rcb_info->rpt_typeids = &g_rpt_typeids; @@ -1863,7 +1863,7 @@ void CheckNextNotConnectedChannel() echo_warn3( "CHANNEL_DISCONNECTING done %s:%d,NetInfo= %x ",chnl_usr->ip_str,chnl_usr->chnl->port,chnl_usr->net_info); mvl_free_req_ctrl(chnl_usr->m_reqCtrl); if(chnl_usr->net_info) - chnl_usr->net_info->user_ext = NULL; + chnl_usr->net_info->user_info = NULL; chnl_usr->m_reqCtrl = NULL; chnl_usr->net_info = NULL; @@ -1891,7 +1891,7 @@ void CheckNextNotConnectedChannel() echo_warn2( "CHANNEL_DISCONNECTING reqCtrl->done未完æˆ,but time over 180 secs, close channel IP %s,NetInfo= %x ",chnl_usr->ip_str,chnl_usr->net_info); mvl_free_req_ctrl(chnl_usr->m_reqCtrl); - chnl_usr->net_info->user_ext = NULL; + chnl_usr->net_info->user_info = NULL; mms_release_connection(chnl_usr->net_info); chnl_usr->net_info->rem_vmd = NULL; diff --git a/mms/mmscli_rpt.c b/mms/mmscli_rpt.c index 0be6095..d79ad51 100644 --- a/mms/mmscli_rpt.c +++ b/mms/mmscli_rpt.c @@ -844,7 +844,7 @@ ST_VOID u_iec_rpt_ind_data_by_devtype(MVL_VAR_ASSOC** info_va, rptinfo = find_rptinfo_from_net_rpt_info_name(net_info, rcb_info); //rptinfo->m_LastDataTime = sGetMsTime();//WW 2023-08-29 去除 LD_info = rptinfo->LD_info; - chnl_usr = net_info->user_ext; + chnl_usr = net_info->user_info; ied = chnl_usr->chnl->ied; not_set_rpt_TimeID_this = TRUE; @@ -1230,7 +1230,7 @@ ST_VOID u_iec_rpt_ind_data(MVL_VAR_ASSOC** info_va, rptinfo = find_rptinfo_from_net_rcb_info(net_info, rcb_info); //rptinfo->m_LastDataTime = sGetMsTime();//WW 2023-08-29 去除 LD_info = rptinfo->LD_info; - chnl_usr = net_info->user_ext; + chnl_usr = net_info->user_info; ied = chnl_usr->chnl->ied; not_set_rpt_TimeID_this = TRUE; diff --git a/mms/mmsop_en.c b/mms/mmsop_en.c index 3b91cfc..372dfc0 100644 --- a/mms/mmsop_en.c +++ b/mms/mmsop_en.c @@ -2451,16 +2451,16 @@ ST_INT m_cl_max_enrollment_summary; #if (MMS_LOAD_DOM_EN & RESP_EN) ST_INT m_sv_max_loadd_cap; #endif - -#if (MMS_READ_EN & RESP_EN) +//lnk编译，客户端ä¸å—å½±å“ +//#if (MMS_READ_EN & RESP_EN) ST_INT m_sv_max_read_var_spec; -#endif +//#endif -#if (MMS_WRITE_EN & RESP_EN) +//#if (MMS_WRITE_EN & RESP_EN) ST_INT m_sv_max_write_var_spec; ST_INT m_sv_max_write_data; -#endif - +//#endif +//lnk编译，客户端ä¸å—å½±å“ #if (MMS_RDDWN_EN & RESP_EN) ST_INT m_sv_max_rqdlnl_cap; #endif diff --git a/mms/rdb_ext_utils.c b/mms/rdb_ext_utils.c index 52d7e69..e2fa323 100644 --- a/mms/rdb_ext_utils.c +++ b/mms/rdb_ext_utils.c @@ -139,7 +139,7 @@ RCB_INFO* FindRcbInfo(MVL_NET_INFO *net_info,ST_CHAR *dom_name, ST_CHAR *rcb_nam int cpuno,rpt_no; char rpt_inst_name[65]; - chnl_usr = net_info->user_ext; + chnl_usr = net_info->user_info; ied = chnl_usr->chnl->ied; ied_usr = GET_IEDEXT_ADDR(ied); @@ -188,7 +188,7 @@ rptinfo_t* find_rptinfo_from_net_rpt_info_name(MVL_NET_INFO *net_info, RCB_INFO rptinfo_t *rptinfo = NULL; int cpuno,rpt_no; - chnl_usr = net_info->user_ext; + chnl_usr = net_info->user_info; ied = chnl_usr->chnl->ied; ied_usr = GET_IEDEXT_ADDR(ied); @@ -232,7 +232,7 @@ rptinfo_t* find_rptinfo_from_net_rcb_info(MVL_NET_INFO *net_info,RCB_INFO *rcb_i rptinfo_t *rptinfo = NULL; int cpuno,rpt_no; - chnl_usr = net_info->user_ext; + chnl_usr = net_info->user_info; ied = chnl_usr->chnl->ied; ied_usr = GET_IEDEXT_ADDR(ied); diff --git a/mmslib/.vscode/c_cpp_properties.json b/mmslib/.vscode/c_cpp_properties.json new file mode 100644 index 0000000..bfa1cc6 --- /dev/null +++ b/mmslib/.vscode/c_cpp_properties.json @@ -0,0 +1,18 @@ +{ + "configurations": [ + { + "name": "windows-gcc-x64", + "includePath": [ + "${workspaceFolder}/**" + ], + "compilerPath": "C:/Users/lnk/Downloads/mingw32/bin/gcc.exe", + "cStandard": "${default}", + "cppStandard": "${default}", + "intelliSenseMode": "windows-gcc-x64", + "compilerArgs": [ + "" + ] + } + ], + "version": 4 +} \ No newline at end of file diff --git a/mmslib/.vscode/launch.json b/mmslib/.vscode/launch.json new file mode 100644 index 0000000..e3a82da --- /dev/null +++ b/mmslib/.vscode/launch.json @@ -0,0 +1,24 @@ +{ + "version": "0.2.0", + "configurations": [ + { + "name": "C/C++ Runner: Debug Session", + "type": "cppdbg", + "request": "launch", + "args": [], + "stopAtEntry": false, + "externalConsole": true, + "cwd": "d:/canneng/自主å议库/mmslib", + "program": "d:/canneng/自主å议库/mmslib/build/Debug/outDebug", + "MIMode": "gdb", + "miDebuggerPath": "gdb", + "setupCommands": [ + { + "description": "Enable pretty-printing for gdb", + "text": "-enable-pretty-printing", + "ignoreFailures": true + } + ] + } + ] +} \ No newline at end of file diff --git a/mmslib/.vscode/settings.json b/mmslib/.vscode/settings.json new file mode 100644 index 0000000..bb879da --- /dev/null +++ b/mmslib/.vscode/settings.json @@ -0,0 +1,59 @@ +{ + "C_Cpp_Runner.cCompilerPath": "gcc", + "C_Cpp_Runner.cppCompilerPath": "g++", + "C_Cpp_Runner.debuggerPath": "gdb", + "C_Cpp_Runner.cStandard": "", + "C_Cpp_Runner.cppStandard": "", + "C_Cpp_Runner.msvcBatchPath": "C:/Program Files/Microsoft Visual Studio/VR_NR/Community/VC/Auxiliary/Build/vcvarsall.bat", + "C_Cpp_Runner.useMsvc": false, + "C_Cpp_Runner.warnings": [ + "-Wall", + "-Wextra", + "-Wpedantic", + "-Wshadow", + "-Wformat=2", + "-Wcast-align", + "-Wconversion", + "-Wsign-conversion", + "-Wnull-dereference" + ], + "C_Cpp_Runner.msvcWarnings": [ + "/W4", + "/permissive-", + "/w14242", + "/w14287", + "/w14296", + "/w14311", + "/w14826", + "/w44062", + "/w44242", + "/w14905", + "/w14906", + "/w14263", + "/w44265", + "/w14928" + ], + "C_Cpp_Runner.enableWarnings": true, + "C_Cpp_Runner.warningsAsError": false, + "C_Cpp_Runner.compilerArgs": [], + "C_Cpp_Runner.linkerArgs": [], + "C_Cpp_Runner.includePaths": [], + "C_Cpp_Runner.includeSearch": [ + "*", + "**/*" + ], + "C_Cpp_Runner.excludeSearch": [ + "**/build", + "**/build/**", + "**/.*", + "**/.*/**", + "**/.vscode", + "**/.vscode/**" + ], + "C_Cpp_Runner.useAddressSanitizer": false, + "C_Cpp_Runner.useUndefinedSanitizer": false, + "C_Cpp_Runner.useLeakSanitizer": false, + "C_Cpp_Runner.showCompilationTime": false, + "C_Cpp_Runner.useLinkTimeOptimization": false, + "C_Cpp_Runner.msvcSecureNoWarnings": false +} \ No newline at end of file diff --git a/mmslib/Makefile b/mmslib/Makefile new file mode 100644 index 0000000..833ef9e --- /dev/null +++ b/mmslib/Makefile @@ -0,0 +1,151 @@ +############################################################################# +# Makefile for building: libmmslib.a +# Generated by qmake (2.01a) (Qt 4.8.4) on: ?? 10? 12 16:45:38 2025 +# Project: mmslib.pro +# Template: lib +# Command: /qt-4.8.4/bin/qmake -o Makefile mmslib.pro +############################################################################# + +first: release +install: release-install +uninstall: release-uninstall +MAKEFILE = Makefile +QMAKE = /qt-4.8.4/bin/qmake +DEL_FILE = rm -f +CHK_DIR_EXISTS= test -d +MKDIR = mkdir -p +COPY = cp -f +COPY_FILE = $(COPY) +COPY_DIR = $(COPY) -r +INSTALL_FILE = install -m 644 -p +INSTALL_PROGRAM = install -m 755 -p +INSTALL_DIR = $(COPY_DIR) +DEL_FILE = rm -f +SYMLINK = ln -f -s +DEL_DIR = rmdir +MOVE = mv -f +CHK_DIR_EXISTS= test -d +MKDIR = mkdir -p +SUBTARGETS = \ + release \ + debug + +release: $(MAKEFILE).Release FORCE + $(MAKE) -f $(MAKEFILE).Release +release-make_default: $(MAKEFILE).Release FORCE + $(MAKE) -f $(MAKEFILE).Release +release-make_first: $(MAKEFILE).Release FORCE + $(MAKE) -f $(MAKEFILE).Release first +release-all: $(MAKEFILE).Release FORCE + $(MAKE) -f $(MAKEFILE).Release all +release-clean: $(MAKEFILE).Release FORCE + $(MAKE) -f $(MAKEFILE).Release clean +release-distclean: $(MAKEFILE).Release FORCE + $(MAKE) -f $(MAKEFILE).Release distclean +release-install: $(MAKEFILE).Release FORCE + $(MAKE) -f $(MAKEFILE).Release install +release-uninstall: $(MAKEFILE).Release FORCE + $(MAKE) -f $(MAKEFILE).Release uninstall +debug: $(MAKEFILE).Debug FORCE + $(MAKE) -f $(MAKEFILE).Debug +debug-make_default: $(MAKEFILE).Debug FORCE + $(MAKE) -f $(MAKEFILE).Debug +debug-make_first: $(MAKEFILE).Debug FORCE + $(MAKE) -f $(MAKEFILE).Debug first +debug-all: $(MAKEFILE).Debug FORCE + $(MAKE) -f $(MAKEFILE).Debug all +debug-clean: $(MAKEFILE).Debug FORCE + $(MAKE) -f $(MAKEFILE).Debug clean +debug-distclean: $(MAKEFILE).Debug FORCE + $(MAKE) -f $(MAKEFILE).Debug distclean +debug-install: $(MAKEFILE).Debug FORCE + $(MAKE) -f $(MAKEFILE).Debug install +debug-uninstall: $(MAKEFILE).Debug FORCE + $(MAKE) -f $(MAKEFILE).Debug uninstall + +Makefile: mmslib.pro ../../../qt-4.8.4/mkspecs/linux-g++-64/qmake.conf ../../../qt-4.8.4/mkspecs/common/unix.conf \ + ../../../qt-4.8.4/mkspecs/common/linux.conf \ + ../../../qt-4.8.4/mkspecs/common/gcc-base.conf \ + ../../../qt-4.8.4/mkspecs/common/gcc-base-unix.conf \ + ../../../qt-4.8.4/mkspecs/common/g++-base.conf \ + ../../../qt-4.8.4/mkspecs/common/g++-unix.conf \ + ../../../qt-4.8.4/mkspecs/qconfig.pri \ + ../../../qt-4.8.4/mkspecs/features/qt_functions.prf \ + ../../../qt-4.8.4/mkspecs/features/qt_config.prf \ + ../../../qt-4.8.4/mkspecs/features/exclusive_builds.prf \ + ../../../qt-4.8.4/mkspecs/features/default_pre.prf \ + fe_common.pri \ + ../../../qt-4.8.4/mkspecs/features/release.prf \ + ../../../qt-4.8.4/mkspecs/features/debug_and_release.prf \ + ../../../qt-4.8.4/mkspecs/features/default_post.prf \ + ../../../qt-4.8.4/mkspecs/features/warn_off.prf \ + ../../../qt-4.8.4/mkspecs/features/staticlib.prf \ + ../../../qt-4.8.4/mkspecs/features/static.prf \ + ../../../qt-4.8.4/mkspecs/features/unix/gdb_dwarf_index.prf \ + ../../../qt-4.8.4/mkspecs/features/qt.prf \ + ../../../qt-4.8.4/mkspecs/features/unix/thread.prf \ + ../../../qt-4.8.4/mkspecs/features/moc.prf \ + ../../../qt-4.8.4/mkspecs/features/resources.prf \ + ../../../qt-4.8.4/mkspecs/features/uic.prf \ + ../../../qt-4.8.4/mkspecs/features/yacc.prf \ + ../../../qt-4.8.4/mkspecs/features/lex.prf \ + ../../../qt-4.8.4/mkspecs/features/include_source_dir.prf \ + /qt-4.8.4/lib/libQtCore.prl + $(QMAKE) -o Makefile mmslib.pro +../../../qt-4.8.4/mkspecs/common/unix.conf: +../../../qt-4.8.4/mkspecs/common/linux.conf: +../../../qt-4.8.4/mkspecs/common/gcc-base.conf: +../../../qt-4.8.4/mkspecs/common/gcc-base-unix.conf: +../../../qt-4.8.4/mkspecs/common/g++-base.conf: +../../../qt-4.8.4/mkspecs/common/g++-unix.conf: +../../../qt-4.8.4/mkspecs/qconfig.pri: +../../../qt-4.8.4/mkspecs/features/qt_functions.prf: +../../../qt-4.8.4/mkspecs/features/qt_config.prf: +../../../qt-4.8.4/mkspecs/features/exclusive_builds.prf: +../../../qt-4.8.4/mkspecs/features/default_pre.prf: +fe_common.pri: +../../../qt-4.8.4/mkspecs/features/release.prf: +../../../qt-4.8.4/mkspecs/features/debug_and_release.prf: +../../../qt-4.8.4/mkspecs/features/default_post.prf: +../../../qt-4.8.4/mkspecs/features/warn_off.prf: +../../../qt-4.8.4/mkspecs/features/staticlib.prf: +../../../qt-4.8.4/mkspecs/features/static.prf: +../../../qt-4.8.4/mkspecs/features/unix/gdb_dwarf_index.prf: +../../../qt-4.8.4/mkspecs/features/qt.prf: +../../../qt-4.8.4/mkspecs/features/unix/thread.prf: +../../../qt-4.8.4/mkspecs/features/moc.prf: +../../../qt-4.8.4/mkspecs/features/resources.prf: +../../../qt-4.8.4/mkspecs/features/uic.prf: +../../../qt-4.8.4/mkspecs/features/yacc.prf: +../../../qt-4.8.4/mkspecs/features/lex.prf: +../../../qt-4.8.4/mkspecs/features/include_source_dir.prf: +/qt-4.8.4/lib/libQtCore.prl: +qmake: qmake_all FORCE + @$(QMAKE) -o Makefile mmslib.pro + +qmake_all: FORCE + +make_default: release-make_default debug-make_default FORCE +make_first: release-make_first debug-make_first FORCE +all: release-all debug-all FORCE +clean: release-clean debug-clean FORCE +distclean: release-distclean debug-distclean FORCE + -$(DEL_FILE) Makefile + +check: first + +release-mocclean: $(MAKEFILE).Release + $(MAKE) -f $(MAKEFILE).Release mocclean +debug-mocclean: $(MAKEFILE).Debug + $(MAKE) -f $(MAKEFILE).Debug mocclean +mocclean: release-mocclean debug-mocclean + +release-mocables: $(MAKEFILE).Release + $(MAKE) -f $(MAKEFILE).Release mocables +debug-mocables: $(MAKEFILE).Debug + $(MAKE) -f $(MAKEFILE).Debug mocables +mocables: release-mocables debug-mocables +FORCE: + +$(MAKEFILE).Release: Makefile +$(MAKEFILE).Debug: Makefile diff --git a/mmslib/Makefile.Debug b/mmslib/Makefile.Debug new file mode 100644 index 0000000..fa53bd5 --- /dev/null +++ b/mmslib/Makefile.Debug @@ -0,0 +1,1899 @@ +############################################################################# +# Makefile for building: libmmslibd.a +# Generated by qmake (2.01a) (Qt 4.8.4) on: ?? 10? 12 16:45:38 2025 +# Project: mmslib.pro +# Template: lib +############################################################################# + +####### Compiler, tools and options + +CC = gcc +CXX = g++ +DEFINES = -DDEBUG_SISCO -DMOSI -DLEAN_T -DMVL_UCA -DMMS_LITE -DTP0_ENABLED -DSTDTIME_ANSI -DFE_VERSION_64 -DQT_CORE_LIB -DQT_SHARED +CFLAGS = -m64 -pipe -g -w -fPIC -D_REENTRANT $(DEFINES) +CXXFLAGS = -m64 -pipe -g -DDEBUG -w -fPIC -D_REENTRANT $(DEFINES) +INCPATH = -I../../../qt-4.8.4/mkspecs/linux-g++-64 -I. -I../../../qt-4.8.4/include/QtCore -I../../../qt-4.8.4/include -Iinc -Iinc/mmsop_en -Idebug +AR = ar cqs +RANLIB = +QMAKE = /qt-4.8.4/bin/qmake +TAR = tar -cf +COMPRESS = gzip -9f +COPY = cp -f +SED = sed +COPY_FILE = $(COPY) +COPY_DIR = $(COPY) -r +STRIP = strip +INSTALL_FILE = install -m 644 -p +INSTALL_DIR = $(COPY_DIR) +INSTALL_PROGRAM = install -m 755 -p +DEL_FILE = rm -f +SYMLINK = ln -f -s +DEL_DIR = rmdir +MOVE = mv -f +CHK_DIR_EXISTS= test -d +MKDIR = mkdir -p + +####### Output directory + +OBJECTS_DIR = debug/ + +####### Files + +SOURCES = mmslib.cpp \ + asn1/asn1r.c \ + asn1/are_vstr.c \ + asn1/are_utc.c \ + asn1/are_time.c \ + asn1/are_ostr.c \ + asn1/are_objd.c \ + asn1/are_int.c \ + asn1/are_flt.c \ + asn1/are_delm.c \ + asn1/are_btod.c \ + asn1/are_bstr.c \ + asn1/are_bool.c \ + asn1/ard_vstr.c \ + asn1/ard_utc.c \ + asn1/ard_time.c \ + asn1/ard_strn.c \ + asn1/ard_ostr.c \ + asn1/ard_objd.c \ + asn1/ard_int.c \ + asn1/ard_idnt.c \ + asn1/ard_flt.c \ + asn1/ard_delm.c \ + asn1/ard_btod.c \ + asn1/ard_bstr.c \ + asn1/ard_bool.c \ + mem/mem_chks.c \ + mmsl/rs_write.c \ + mmsl/rs_ustat.c \ + mmsl/rs_trige.c \ + mmsl/rs_stat.c \ + mmsl/rs_repee.c \ + mmsl/rs_repec.c \ + mmsl/rs_repea.c \ + mmsl/rs_read.c \ + mmsl/rs_namel.c \ + mmsl/rs_init.c \ + mmsl/rs_info.c \ + mmsl/rs_ident.c \ + mmsl/rs_getvl.c \ + mmsl/rs_getva.c \ + mmsl/rs_getty.c \ + mmsl/rs_getpi.c \ + mmsl/rs_getee.c \ + mmsl/rs_getec.c \ + mmsl/rs_getea.c \ + mmsl/rs_getdo.c \ + mmsl/rs_getcl.c \ + mmsl/rs_evnot.c \ + mmsl/rs_defee.c \ + mmsl/rs_concl.c \ + mmsl/rs_cancl.c \ + mmsl/rs_ackev.c \ + mmsl/rq_write.c \ + mmsl/rq_ustat.c \ + mmsl/rq_trige.c \ + mmsl/rq_stat.c \ + mmsl/rq_repee.c \ + mmsl/rq_repec.c \ + mmsl/rq_repea.c \ + mmsl/rq_read.c \ + mmsl/rq_namel.c \ + mmsl/rq_init.c \ + mmsl/rq_info.c \ + mmsl/rq_ident.c \ + mmsl/rq_getvl.c \ + mmsl/rq_getva.c \ + mmsl/rq_getty.c \ + mmsl/rq_getpi.c \ + mmsl/rq_getee.c \ + mmsl/rq_getec.c \ + mmsl/rq_getea.c \ + mmsl/rq_getdo.c \ + mmsl/rq_getcl.c \ + mmsl/rq_evnot.c \ + mmsl/rq_defee.c \ + mmsl/rq_concl.c \ + mmsl/rq_cancl.c \ + mmsl/rq_ackev.c \ + mmsl/msdataas.c \ + mmsl/ms_tdef4.c \ + mmsl/ms_tdef2.c \ + mmsl/ms_tdef.c \ + mmsl/ms_size.c \ + mmsl/ms_ext.c \ + mmsl/mmsstat.c \ + mmsl/mmslvar.c \ + mmsl/mmsl_fin.c \ + mmsl/mmsinit.c \ + mmsl/mmsdtext.c \ + mmsl/mmsdec.c \ + mmsl/mmsdatat.c \ + mmsl/mmsdata.c \ + mmsl/mmsconcl.c \ + mmsl/mmscancl.c \ + mmsl/mms_tdef.c \ + mmsl/mms_rtaa.c \ + mmsl/mms_rej.c \ + mmsl/mms_err4.c \ + mmsl/mms_err3.c \ + mmsl/mms_err2.c \ + mmsl/mms_err.c \ + mmsl/mms_ced7.c \ + mmsl/mms_ced6.c \ + mmsl/mms_ced5.c \ + mmsl/mms_ced4.c \ + mmsl/mms_ced3.c \ + mmsl/mms_ced.c \ + mmsl/mms_aref.c \ + mmsl/mms_alta.c \ + mmsl/mms_adl.c \ + mmsle/rs_uploa.c \ + mmsle/rs_termu.c \ + mmsle/rs_termd.c \ + mmsle/rs_takec.c \ + mmsle/rs_store.c \ + mmsle/rs_stop.c \ + mmsle/rs_start.c \ + mmsle/rs_rssta.c \ + mmsle/rs_rspoo.c \ + mmsle/rs_rsent.c \ + mmsle/rs_resum.c \ + mmsle/rs_reset.c \ + mmsle/rs_renam.c \ + mmsle/rs_relct.c \ + mmsle/rs_rdupl.c \ + mmsle/rs_rddwn.c \ + mmsle/rs_outpu.c \ + mmsle/rs_obtfi.c \ + mmsle/rs_loadd.c \ + mmsle/rs_kill.c \ + mmsle/rs_jwrit.c \ + mmsle/rs_jstat.c \ + mmsle/rs_jread.c \ + mmsle/rs_jinit.c \ + mmsle/rs_jdele.c \ + mmsle/rs_jcrea.c \ + mmsle/rs_input.c \ + mmsle/rs_initu.c \ + mmsle/rs_initd.c \ + mmsle/rs_getsc.c \ + mmsle/rs_getas.c \ + mmsle/rs_getae.c \ + mmsle/rs_frena.c \ + mmsle/rs_fread.c \ + mmsle/rs_fopen.c \ + mmsle/rs_fdir.c \ + mmsle/rs_fdele.c \ + mmsle/rs_fclos.c \ + mmsle/rs_downl.c \ + mmsle/rs_delvl.c \ + mmsle/rs_delva.c \ + mmsle/rs_delty.c \ + mmsle/rs_delse.c \ + mmsle/rs_delpi.c \ + mmsle/rs_delee.c \ + mmsle/rs_delec.c \ + mmsle/rs_delea.c \ + mmsle/rs_deldo.c \ + mmsle/rs_defvl.c \ + mmsle/rs_defva.c \ + mmsle/rs_defty.c \ + mmsle/rs_defse.c \ + mmsle/rs_defsc.c \ + mmsle/rs_defec.c \ + mmsle/rs_defea.c \ + mmsle/rs_crepi.c \ + mmsle/rs_altee.c \ + mmsle/rs_altec.c \ + mmsle/rq_uploa.c \ + mmsle/rq_termu.c \ + mmsle/rq_termd.c \ + mmsle/rq_takec.c \ + mmsle/rq_store.c \ + mmsle/rq_stop.c \ + mmsle/rq_start.c \ + mmsle/rq_rssta.c \ + mmsle/rq_rspoo.c \ + mmsle/rq_rsent.c \ + mmsle/rq_resum.c \ + mmsle/rq_reset.c \ + mmsle/rq_renam.c \ + mmsle/rq_relct.c \ + mmsle/rq_rdupl.c \ + mmsle/rq_rddwn.c \ + mmsle/rq_outpu.c \ + mmsle/rq_obtfi.c \ + mmsle/rq_loadd.c \ + mmsle/rq_kill.c \ + mmsle/rq_jwrit.c \ + mmsle/rq_jstat.c \ + mmsle/rq_jread.c \ + mmsle/rq_jinit.c \ + mmsle/rq_jdele.c \ + mmsle/rq_jcrea.c \ + mmsle/rq_input.c \ + mmsle/rq_initu.c \ + mmsle/rq_initd.c \ + mmsle/rq_getsc.c \ + mmsle/rq_getas.c \ + mmsle/rq_getae.c \ + mmsle/rq_frena.c \ + mmsle/rq_fread.c \ + mmsle/rq_fopen.c \ + mmsle/rq_fdir.c \ + mmsle/rq_fdele.c \ + mmsle/rq_fclos.c \ + mmsle/rq_downl.c \ + mmsle/rq_delvl.c \ + mmsle/rq_delva.c \ + mmsle/rq_delty.c \ + mmsle/rq_delse.c \ + mmsle/rq_delpi.c \ + mmsle/rq_delee.c \ + mmsle/rq_delec.c \ + mmsle/rq_delea.c \ + mmsle/rq_deldo.c \ + mmsle/rq_defvl.c \ + mmsle/rq_defva.c \ + mmsle/rq_defty.c \ + mmsle/rq_defse.c \ + mmsle/rq_defsc.c \ + mmsle/rq_defec.c \ + mmsle/rq_defea.c \ + mmsle/rq_crepi.c \ + mmsle/rq_altee.c \ + mmsle/rq_altec.c \ + mmsle/mms_ced2.c \ + mmsle/mms_ced1.c \ + mvlu/sclproc.c \ + mvlu/s_write.c \ + mvlu/s_status.c \ + mvlu/s_read.c \ + mvlu/s_obtfi.c \ + mvlu/s_jstat.c \ + mvlu/s_jread.c \ + mvlu/s_jinit.c \ + mvlu/s_info.c \ + mvlu/s_ident.c \ + mvlu/s_getvla.c \ + mvlu/s_getvaa.c \ + mvlu/s_getnam.c \ + mvlu/s_getdom.c \ + mvlu/s_getcl.c \ + mvlu/s_fren.c \ + mvlu/s_fread.c \ + mvlu/s_fopen.c \ + mvlu/s_fdir.c \ + mvlu/s_fdel.c \ + mvlu/s_fclose.c \ + mvlu/s_delvl.c \ + mvlu/s_defvl.c \ + mvlu/s_concl.c \ + mvlu/s_cancel.c \ + mvlu/mvluleaf.c \ + mvlu/mvlu_sbo.c \ + mvlu/mvlu_rt.c \ + mvlu/mvlu_rpt.c \ + mvlu/mvl61850_rpt.c \ + mvlu/mvl61850_ctl.c \ + mvlu/mvl61850.c \ + mvlu/mvl_var.c \ + mvlu/mvl_uca.c \ + mvlu/mvl_type.c \ + mvlu/mvl_typ2.c \ + mvlu/mvl_serv.c \ + mvlu/mvl_send.c \ + mvlu/mvl_objb.c \ + mvlu/mvl_obj.c \ + mvlu/mvl_ijou.c \ + mvlu/mvl_dtyp.c \ + mvlu/mvl_buf.c \ + mvlu/c_write.c \ + mvlu/c_status.c \ + mvlu/c_read.c \ + mvlu/c_obtfi.c \ + mvlu/c_jstat.c \ + mvlu/c_jread.c \ + mvlu/c_jinit.c \ + mvlu/c_info.c \ + mvlu/c_ident.c \ + mvlu/c_getvla.c \ + mvlu/c_getvar.c \ + mvlu/c_getnam.c \ + mvlu/c_getdom.c \ + mvlu/c_fren.c \ + mvlu/c_fread.c \ + mvlu/c_fopen.c \ + mvlu/c_fget.c \ + mvlu/c_fdir.c \ + mvlu/c_fdel.c \ + mvlu/c_fclose.c \ + mvlu/c_delvl.c \ + mvlu/c_defvl.c \ + mvlu/c_concl.c \ + ositcps/tpx_dec.c \ + ositcps/tp4port.c \ + ositcps/tp4_enc.c \ + ositcps/tp0main.c \ + ositcps/tp0callg.c \ + ositcps/tp0calld.c \ + ositcps/tp0_socks.c \ + ositcps/tp0_dec.c \ + ositcps/osicfgx.c \ + ositcps/lean_var.c \ + ositcps/lean_cfg.c \ + ositcps/cospmain.c \ + ositcps/cosp_enc.c \ + ositcps/cosp_dec.c \ + ositcps/coppdcpr.c \ + ositcps/coppdcp.c \ + ositcps/coppdaru.c \ + ositcps/copp_enc.c \ + ositcps/copp_dec.c \ + ositcps/checksum.c \ + ositcps/acse2var.c \ + ositcps/acse2enc.c \ + ositcps/acse2dib.c \ + ositcps/acse2dec.c \ + slog/slogmem.c \ + slog/slogipcs.c \ + slog/sloghex.c \ + slog/slogfil.c \ + slog/slog.c \ + slog/qmem.c \ + ssec0/ssecusr0.c \ + util/time_str.c \ + util/sx_enc.c \ + util/sx_dec.c \ + util/sx_data.c \ + util/sx_axs4d.c \ + util/str_util.c \ + util/stime.c \ + util/stdtime_w32.c \ + util/stdtime_quadlib.c \ + util/stdtime_mms_utctime.c \ + util/stdtime_mms_btime.c \ + util/stdtime.c \ + util/sclstore.c \ + util/sclparse.c \ + util/scl_log.c \ + util/glbsem_unix.c \ + util/glbsem.c \ + util/gensock2.c \ + util/genlists.c \ + util/cfg_util.c +OBJECTS = debug/mmslib.o \ + debug/asn1r.o \ + debug/are_vstr.o \ + debug/are_utc.o \ + debug/are_time.o \ + debug/are_ostr.o \ + debug/are_objd.o \ + debug/are_int.o \ + debug/are_flt.o \ + debug/are_delm.o \ + debug/are_btod.o \ + debug/are_bstr.o \ + debug/are_bool.o \ + debug/ard_vstr.o \ + debug/ard_utc.o \ + debug/ard_time.o \ + debug/ard_strn.o \ + debug/ard_ostr.o \ + debug/ard_objd.o \ + debug/ard_int.o \ + debug/ard_idnt.o \ + debug/ard_flt.o \ + debug/ard_delm.o \ + debug/ard_btod.o \ + debug/ard_bstr.o \ + debug/ard_bool.o \ + debug/mem_chks.o \ + debug/rs_write.o \ + debug/rs_ustat.o \ + debug/rs_trige.o \ + debug/rs_stat.o \ + debug/rs_repee.o \ + debug/rs_repec.o \ + debug/rs_repea.o \ + debug/rs_read.o \ + debug/rs_namel.o \ + debug/rs_init.o \ + debug/rs_info.o \ + debug/rs_ident.o \ + debug/rs_getvl.o \ + debug/rs_getva.o \ + debug/rs_getty.o \ + debug/rs_getpi.o \ + debug/rs_getee.o \ + debug/rs_getec.o \ + debug/rs_getea.o \ + debug/rs_getdo.o \ + debug/rs_getcl.o \ + debug/rs_evnot.o \ + debug/rs_defee.o \ + debug/rs_concl.o \ + debug/rs_cancl.o \ + debug/rs_ackev.o \ + debug/rq_write.o \ + debug/rq_ustat.o \ + debug/rq_trige.o \ + debug/rq_stat.o \ + debug/rq_repee.o \ + debug/rq_repec.o \ + debug/rq_repea.o \ + debug/rq_read.o \ + debug/rq_namel.o \ + debug/rq_init.o \ + debug/rq_info.o \ + debug/rq_ident.o \ + debug/rq_getvl.o \ + debug/rq_getva.o \ + debug/rq_getty.o \ + debug/rq_getpi.o \ + debug/rq_getee.o \ + debug/rq_getec.o \ + debug/rq_getea.o \ + debug/rq_getdo.o \ + debug/rq_getcl.o \ + debug/rq_evnot.o \ + debug/rq_defee.o \ + debug/rq_concl.o \ + debug/rq_cancl.o \ + debug/rq_ackev.o \ + debug/msdataas.o \ + debug/ms_tdef4.o \ + debug/ms_tdef2.o \ + debug/ms_tdef.o \ + debug/ms_size.o \ + debug/ms_ext.o \ + debug/mmsstat.o \ + debug/mmslvar.o \ + debug/mmsl_fin.o \ + debug/mmsinit.o \ + debug/mmsdtext.o \ + debug/mmsdec.o \ + debug/mmsdatat.o \ + debug/mmsdata.o \ + debug/mmsconcl.o \ + debug/mmscancl.o \ + debug/mms_tdef.o \ + debug/mms_rtaa.o \ + debug/mms_rej.o \ + debug/mms_err4.o \ + debug/mms_err3.o \ + debug/mms_err2.o \ + debug/mms_err.o \ + debug/mms_ced7.o \ + debug/mms_ced6.o \ + debug/mms_ced5.o \ + debug/mms_ced4.o \ + debug/mms_ced3.o \ + debug/mms_ced.o \ + debug/mms_aref.o \ + debug/mms_alta.o \ + debug/mms_adl.o \ + debug/rs_uploa.o \ + debug/rs_termu.o \ + debug/rs_termd.o \ + debug/rs_takec.o \ + debug/rs_store.o \ + debug/rs_stop.o \ + debug/rs_start.o \ + debug/rs_rssta.o \ + debug/rs_rspoo.o \ + debug/rs_rsent.o \ + debug/rs_resum.o \ + debug/rs_reset.o \ + debug/rs_renam.o \ + debug/rs_relct.o \ + debug/rs_rdupl.o \ + debug/rs_rddwn.o \ + debug/rs_outpu.o \ + debug/rs_obtfi.o \ + debug/rs_loadd.o \ + debug/rs_kill.o \ + debug/rs_jwrit.o \ + debug/rs_jstat.o \ + debug/rs_jread.o \ + debug/rs_jinit.o \ + debug/rs_jdele.o \ + debug/rs_jcrea.o \ + debug/rs_input.o \ + debug/rs_initu.o \ + debug/rs_initd.o \ + debug/rs_getsc.o \ + debug/rs_getas.o \ + debug/rs_getae.o \ + debug/rs_frena.o \ + debug/rs_fread.o \ + debug/rs_fopen.o \ + debug/rs_fdir.o \ + debug/rs_fdele.o \ + debug/rs_fclos.o \ + debug/rs_downl.o \ + debug/rs_delvl.o \ + debug/rs_delva.o \ + debug/rs_delty.o \ + debug/rs_delse.o \ + debug/rs_delpi.o \ + debug/rs_delee.o \ + debug/rs_delec.o \ + debug/rs_delea.o \ + debug/rs_deldo.o \ + debug/rs_defvl.o \ + debug/rs_defva.o \ + debug/rs_defty.o \ + debug/rs_defse.o \ + debug/rs_defsc.o \ + debug/rs_defec.o \ + debug/rs_defea.o \ + debug/rs_crepi.o \ + debug/rs_altee.o \ + debug/rs_altec.o \ + debug/rq_uploa.o \ + debug/rq_termu.o \ + debug/rq_termd.o \ + debug/rq_takec.o \ + debug/rq_store.o \ + debug/rq_stop.o \ + debug/rq_start.o \ + debug/rq_rssta.o \ + debug/rq_rspoo.o \ + debug/rq_rsent.o \ + debug/rq_resum.o \ + debug/rq_reset.o \ + debug/rq_renam.o \ + debug/rq_relct.o \ + debug/rq_rdupl.o \ + debug/rq_rddwn.o \ + debug/rq_outpu.o \ + debug/rq_obtfi.o \ + debug/rq_loadd.o \ + debug/rq_kill.o \ + debug/rq_jwrit.o \ + debug/rq_jstat.o \ + debug/rq_jread.o \ + debug/rq_jinit.o \ + debug/rq_jdele.o \ + debug/rq_jcrea.o \ + debug/rq_input.o \ + debug/rq_initu.o \ + debug/rq_initd.o \ + debug/rq_getsc.o \ + debug/rq_getas.o \ + debug/rq_getae.o \ + debug/rq_frena.o \ + debug/rq_fread.o \ + debug/rq_fopen.o \ + debug/rq_fdir.o \ + debug/rq_fdele.o \ + debug/rq_fclos.o \ + debug/rq_downl.o \ + debug/rq_delvl.o \ + debug/rq_delva.o \ + debug/rq_delty.o \ + debug/rq_delse.o \ + debug/rq_delpi.o \ + debug/rq_delee.o \ + debug/rq_delec.o \ + debug/rq_delea.o \ + debug/rq_deldo.o \ + debug/rq_defvl.o \ + debug/rq_defva.o \ + debug/rq_defty.o \ + debug/rq_defse.o \ + debug/rq_defsc.o \ + debug/rq_defec.o \ + debug/rq_defea.o \ + debug/rq_crepi.o \ + debug/rq_altee.o \ + debug/rq_altec.o \ + debug/mms_ced2.o \ + debug/mms_ced1.o \ + debug/sclproc.o \ + debug/s_write.o \ + debug/s_status.o \ + debug/s_read.o \ + debug/s_obtfi.o \ + debug/s_jstat.o \ + debug/s_jread.o \ + debug/s_jinit.o \ + debug/s_info.o \ + debug/s_ident.o \ + debug/s_getvla.o \ + debug/s_getvaa.o \ + debug/s_getnam.o \ + debug/s_getdom.o \ + debug/s_getcl.o \ + debug/s_fren.o \ + debug/s_fread.o \ + debug/s_fopen.o \ + debug/s_fdir.o \ + debug/s_fdel.o \ + debug/s_fclose.o \ + debug/s_delvl.o \ + debug/s_defvl.o \ + debug/s_concl.o \ + debug/s_cancel.o \ + debug/mvluleaf.o \ + debug/mvlu_sbo.o \ + debug/mvlu_rt.o \ + debug/mvlu_rpt.o \ + debug/mvl61850_rpt.o \ + debug/mvl61850_ctl.o \ + debug/mvl61850.o \ + debug/mvl_var.o \ + debug/mvl_uca.o \ + debug/mvl_type.o \ + debug/mvl_typ2.o \ + debug/mvl_serv.o \ + debug/mvl_send.o \ + debug/mvl_objb.o \ + debug/mvl_obj.o \ + debug/mvl_ijou.o \ + debug/mvl_dtyp.o \ + debug/mvl_buf.o \ + debug/c_write.o \ + debug/c_status.o \ + debug/c_read.o \ + debug/c_obtfi.o \ + debug/c_jstat.o \ + debug/c_jread.o \ + debug/c_jinit.o \ + debug/c_info.o \ + debug/c_ident.o \ + debug/c_getvla.o \ + debug/c_getvar.o \ + debug/c_getnam.o \ + debug/c_getdom.o \ + debug/c_fren.o \ + debug/c_fread.o \ + debug/c_fopen.o \ + debug/c_fget.o \ + debug/c_fdir.o \ + debug/c_fdel.o \ + debug/c_fclose.o \ + debug/c_delvl.o \ + debug/c_defvl.o \ + debug/c_concl.o \ + debug/tpx_dec.o \ + debug/tp4port.o \ + debug/tp4_enc.o \ + debug/tp0main.o \ + debug/tp0callg.o \ + debug/tp0calld.o \ + debug/tp0_socks.o \ + debug/tp0_dec.o \ + debug/osicfgx.o \ + debug/lean_var.o \ + debug/lean_cfg.o \ + debug/cospmain.o \ + debug/cosp_enc.o \ + debug/cosp_dec.o \ + debug/coppdcpr.o \ + debug/coppdcp.o \ + debug/coppdaru.o \ + debug/copp_enc.o \ + debug/copp_dec.o \ + debug/checksum.o \ + debug/acse2var.o \ + debug/acse2enc.o \ + debug/acse2dib.o \ + debug/acse2dec.o \ + debug/slogmem.o \ + debug/slogipcs.o \ + debug/sloghex.o \ + debug/slogfil.o \ + debug/slog.o \ + debug/qmem.o \ + debug/ssecusr0.o \ + debug/time_str.o \ + debug/sx_enc.o \ + debug/sx_dec.o \ + debug/sx_data.o \ + debug/sx_axs4d.o \ + debug/str_util.o \ + debug/stime.o \ + debug/stdtime_w32.o \ + debug/stdtime_quadlib.o \ + debug/stdtime_mms_utctime.o \ + debug/stdtime_mms_btime.o \ + debug/stdtime.o \ + debug/sclstore.o \ + debug/sclparse.o \ + debug/scl_log.o \ + debug/glbsem_unix.o \ + debug/glbsem.o \ + debug/gensock2.o \ + debug/genlists.o \ + debug/cfg_util.o +DIST = ../../../qt-4.8.4/mkspecs/common/unix.conf \ + ../../../qt-4.8.4/mkspecs/common/linux.conf \ + ../../../qt-4.8.4/mkspecs/common/gcc-base.conf \ + ../../../qt-4.8.4/mkspecs/common/gcc-base-unix.conf \ + ../../../qt-4.8.4/mkspecs/common/g++-base.conf \ + ../../../qt-4.8.4/mkspecs/common/g++-unix.conf \ + ../../../qt-4.8.4/mkspecs/qconfig.pri \ + ../../../qt-4.8.4/mkspecs/features/qt_functions.prf \ + ../../../qt-4.8.4/mkspecs/features/qt_config.prf \ + ../../../qt-4.8.4/mkspecs/features/exclusive_builds.prf \ + ../../../qt-4.8.4/mkspecs/features/default_pre.prf \ + fe_common.pri \ + ../../../qt-4.8.4/mkspecs/features/debug.prf \ + ../../../qt-4.8.4/mkspecs/features/debug_and_release.prf \ + ../../../qt-4.8.4/mkspecs/features/default_post.prf \ + ../../../qt-4.8.4/mkspecs/features/build_pass.prf \ + ../../../qt-4.8.4/mkspecs/features/warn_off.prf \ + ../../../qt-4.8.4/mkspecs/features/staticlib.prf \ + ../../../qt-4.8.4/mkspecs/features/static.prf \ + ../../../qt-4.8.4/mkspecs/features/unix/gdb_dwarf_index.prf \ + ../../../qt-4.8.4/mkspecs/features/qt.prf \ + ../../../qt-4.8.4/mkspecs/features/unix/thread.prf \ + ../../../qt-4.8.4/mkspecs/features/moc.prf \ + ../../../qt-4.8.4/mkspecs/features/resources.prf \ + ../../../qt-4.8.4/mkspecs/features/uic.prf \ + ../../../qt-4.8.4/mkspecs/features/yacc.prf \ + ../../../qt-4.8.4/mkspecs/features/lex.prf \ + ../../../qt-4.8.4/mkspecs/features/include_source_dir.prf \ + mmslib.pro +QMAKE_TARGET = mmslibd +DESTDIR = +TARGET = libmmslibd.a + +first: all +####### Implicit rules + +.SUFFIXES: .o .c .cpp .cc .cxx .C + +.cpp.o: + $(CXX) -c $(CXXFLAGS) $(INCPATH) -o "$@" "$<" + +.cc.o: + $(CXX) -c $(CXXFLAGS) $(INCPATH) -o "$@" "$<" + +.cxx.o: + $(CXX) -c $(CXXFLAGS) $(INCPATH) -o "$@" "$<" + +.C.o: + $(CXX) -c $(CXXFLAGS) $(INCPATH) -o "$@" "$<" + +.c.o: + $(CC) -c $(CFLAGS) $(INCPATH) -o "$@" "$<" + +####### Build rules + +all: Makefile.Debug $(TARGET) + +staticlib: $(TARGET) + +$(TARGET): $(OBJECTS) $(OBJCOMP) + -$(DEL_FILE) $(TARGET) + $(AR) $(TARGET) $(OBJECTS) + + +qmake: FORCE + @$(QMAKE) -o Makefile.Debug mmslib.pro + +dist: + @$(CHK_DIR_EXISTS) debug/mmslibd1.0.0 || $(MKDIR) debug/mmslibd1.0.0 + $(COPY_FILE) --parents $(SOURCES) $(DIST) debug/mmslibd1.0.0/ && $(COPY_FILE) --parents mmslib.h inc/tp4api.h inc/tp4_log.h inc/tp4_encd.h inc/tp4.h inc/tp0_sock.h inc/time_str.h inc/sysincs.h inc/sx_log.h inc/sx_defs.h inc/sx_arb.h inc/STR_UTIL.H inc/stime.h inc/stdtime_w32.h inc/stdtime_tzrules.h inc/stdtime_timezone_csv.h inc/stdtime_stdint.h inc/stdtime_quadlib.h inc/stdtime_mms_utctime.h inc/stdtime_mms_btime.h inc/stdtime_enum_func.h inc/stdtime_enum_err.h inc/stdtime_endian.h inc/stdtime_config.h inc/stdtime.h inc/ssleLog.h inc/ssec_int.h inc/ssec.h inc/sock_log.h inc/smpval.h inc/smp_usr.h inc/smp_log.h inc/smp.h inc/Smem.h inc/slog.h inc/scrndefs.h inc/scl.h inc/rs_defs.h inc/rs_a.h inc/qmem.h inc/osillc.h inc/ntddosi.h inc/mvl_uca.h inc/mvl_log.h inc/mvl_defs.h inc/mvl_acse.h inc/mmslusec.h inc/mmslog.h inc/mmsldefs.h inc/mmsintr2.h inc/mmsefun.h inc/mmsdefs.h inc/mms_vvar.h inc/mms_pvmd.h inc/mms_pvar.h inc/mms_psem.h inc/mms_pprg.h inc/mms_pocs.h inc/mms_pjou.h inc/mms_pfil.h inc/mms_pevn.h inc/mms_perr.h inc/mms_pdom.h inc/mms_pcon.h inc/mms_mp.h inc/mms_log.h inc/mms_err.h inc/mms_dfun.h inc/mms_def2.h inc/mloguser.h inc/memlog.h inc/mem_chk.h inc/llcioctl.h inc/llcio.h inc/lean_a.h inc/gvaldefs.h inc/gse_mgmt.h inc/Goose.h inc/glbtypes.h inc/glbsem.h inc/glbopt.h inc/glberror.h inc/gensock2.h inc/gen_list.h inc/fkeydefs.h inc/ExceptionReport.h inc/ethsub.h inc/ethertyp.h inc/dibmatch.h inc/cosp_usr.h inc/cosp_log.h inc/cosp.h inc/copp_usr.h inc/copp_log.h inc/copp.h inc/conpack.h inc/clnpport.h inc/clnp_usr.h inc/clnp_tnt.h inc/clnp_sta.h inc/clnp_sne.h inc/clnp_log.h inc/clnp_llc.h inc/clnp.h inc/checksum.h inc/cfglog.h inc/cfg_util.h inc/asn1r.h inc/asn1log.h inc/asn1defs.h inc/arg.h inc/adlc_usr.h inc/adlc_sts.h inc/adlc_sm.h inc/adlc_log.h inc/adlc_dsm.h inc/adlc.h inc/acseauth.h inc/acse2usr.h inc/acse2log.h inc/acse2.h inc/mmsop_en/mmsop_en.h debug/mmslibd1.0.0/ && $(COPY_FILE) --parents mmslib.cpp asn1/asn1r.c asn1/are_vstr.c asn1/are_utc.c asn1/are_time.c asn1/are_ostr.c asn1/are_objd.c asn1/are_int.c asn1/are_flt.c asn1/are_delm.c asn1/are_btod.c asn1/are_bstr.c asn1/are_bool.c asn1/ard_vstr.c asn1/ard_utc.c asn1/ard_time.c asn1/ard_strn.c asn1/ard_ostr.c asn1/ard_objd.c asn1/ard_int.c asn1/ard_idnt.c asn1/ard_flt.c asn1/ard_delm.c asn1/ard_btod.c asn1/ard_bstr.c asn1/ard_bool.c mem/mem_chks.c mmsl/rs_write.c mmsl/rs_ustat.c mmsl/rs_trige.c mmsl/rs_stat.c mmsl/rs_repee.c mmsl/rs_repec.c mmsl/rs_repea.c mmsl/rs_read.c mmsl/rs_namel.c mmsl/rs_init.c mmsl/rs_info.c mmsl/rs_ident.c mmsl/rs_getvl.c mmsl/rs_getva.c mmsl/rs_getty.c mmsl/rs_getpi.c mmsl/rs_getee.c mmsl/rs_getec.c mmsl/rs_getea.c mmsl/rs_getdo.c mmsl/rs_getcl.c mmsl/rs_evnot.c mmsl/rs_defee.c mmsl/rs_concl.c mmsl/rs_cancl.c mmsl/rs_ackev.c mmsl/rq_write.c mmsl/rq_ustat.c mmsl/rq_trige.c mmsl/rq_stat.c mmsl/rq_repee.c mmsl/rq_repec.c mmsl/rq_repea.c mmsl/rq_read.c mmsl/rq_namel.c mmsl/rq_init.c mmsl/rq_info.c mmsl/rq_ident.c mmsl/rq_getvl.c mmsl/rq_getva.c mmsl/rq_getty.c mmsl/rq_getpi.c mmsl/rq_getee.c mmsl/rq_getec.c mmsl/rq_getea.c mmsl/rq_getdo.c mmsl/rq_getcl.c mmsl/rq_evnot.c mmsl/rq_defee.c mmsl/rq_concl.c mmsl/rq_cancl.c mmsl/rq_ackev.c mmsl/msdataas.c mmsl/ms_tdef4.c mmsl/ms_tdef2.c mmsl/ms_tdef.c mmsl/ms_size.c mmsl/ms_ext.c mmsl/mmsstat.c mmsl/mmslvar.c mmsl/mmsl_fin.c mmsl/mmsinit.c mmsl/mmsdtext.c mmsl/mmsdec.c mmsl/mmsdatat.c mmsl/mmsdata.c mmsl/mmsconcl.c mmsl/mmscancl.c mmsl/mms_tdef.c mmsl/mms_rtaa.c mmsl/mms_rej.c mmsl/mms_err4.c mmsl/mms_err3.c mmsl/mms_err2.c mmsl/mms_err.c mmsl/mms_ced7.c mmsl/mms_ced6.c mmsl/mms_ced5.c mmsl/mms_ced4.c mmsl/mms_ced3.c mmsl/mms_ced.c mmsl/mms_aref.c mmsl/mms_alta.c mmsl/mms_adl.c mmsle/rs_uploa.c mmsle/rs_termu.c mmsle/rs_termd.c mmsle/rs_takec.c mmsle/rs_store.c mmsle/rs_stop.c mmsle/rs_start.c mmsle/rs_rssta.c mmsle/rs_rspoo.c mmsle/rs_rsent.c mmsle/rs_resum.c mmsle/rs_reset.c mmsle/rs_renam.c mmsle/rs_relct.c mmsle/rs_rdupl.c mmsle/rs_rddwn.c mmsle/rs_outpu.c mmsle/rs_obtfi.c mmsle/rs_loadd.c mmsle/rs_kill.c mmsle/rs_jwrit.c mmsle/rs_jstat.c mmsle/rs_jread.c mmsle/rs_jinit.c mmsle/rs_jdele.c mmsle/rs_jcrea.c mmsle/rs_input.c mmsle/rs_initu.c mmsle/rs_initd.c mmsle/rs_getsc.c mmsle/rs_getas.c mmsle/rs_getae.c mmsle/rs_frena.c mmsle/rs_fread.c mmsle/rs_fopen.c mmsle/rs_fdir.c mmsle/rs_fdele.c mmsle/rs_fclos.c mmsle/rs_downl.c mmsle/rs_delvl.c mmsle/rs_delva.c mmsle/rs_delty.c mmsle/rs_delse.c mmsle/rs_delpi.c mmsle/rs_delee.c mmsle/rs_delec.c mmsle/rs_delea.c mmsle/rs_deldo.c mmsle/rs_defvl.c mmsle/rs_defva.c mmsle/rs_defty.c mmsle/rs_defse.c mmsle/rs_defsc.c mmsle/rs_defec.c mmsle/rs_defea.c mmsle/rs_crepi.c mmsle/rs_altee.c mmsle/rs_altec.c mmsle/rq_uploa.c mmsle/rq_termu.c mmsle/rq_termd.c mmsle/rq_takec.c mmsle/rq_store.c mmsle/rq_stop.c mmsle/rq_start.c mmsle/rq_rssta.c mmsle/rq_rspoo.c mmsle/rq_rsent.c mmsle/rq_resum.c mmsle/rq_reset.c mmsle/rq_renam.c mmsle/rq_relct.c mmsle/rq_rdupl.c mmsle/rq_rddwn.c mmsle/rq_outpu.c mmsle/rq_obtfi.c mmsle/rq_loadd.c mmsle/rq_kill.c mmsle/rq_jwrit.c mmsle/rq_jstat.c mmsle/rq_jread.c mmsle/rq_jinit.c mmsle/rq_jdele.c mmsle/rq_jcrea.c mmsle/rq_input.c mmsle/rq_initu.c mmsle/rq_initd.c mmsle/rq_getsc.c mmsle/rq_getas.c mmsle/rq_getae.c mmsle/rq_frena.c mmsle/rq_fread.c mmsle/rq_fopen.c mmsle/rq_fdir.c mmsle/rq_fdele.c mmsle/rq_fclos.c mmsle/rq_downl.c mmsle/rq_delvl.c mmsle/rq_delva.c mmsle/rq_delty.c mmsle/rq_delse.c mmsle/rq_delpi.c mmsle/rq_delee.c mmsle/rq_delec.c mmsle/rq_delea.c mmsle/rq_deldo.c mmsle/rq_defvl.c mmsle/rq_defva.c mmsle/rq_defty.c mmsle/rq_defse.c mmsle/rq_defsc.c mmsle/rq_defec.c mmsle/rq_defea.c mmsle/rq_crepi.c mmsle/rq_altee.c mmsle/rq_altec.c mmsle/mms_ced2.c mmsle/mms_ced1.c mvlu/sclproc.c mvlu/s_write.c mvlu/s_status.c mvlu/s_read.c mvlu/s_obtfi.c mvlu/s_jstat.c mvlu/s_jread.c mvlu/s_jinit.c mvlu/s_info.c mvlu/s_ident.c mvlu/s_getvla.c mvlu/s_getvaa.c mvlu/s_getnam.c mvlu/s_getdom.c mvlu/s_getcl.c mvlu/s_fren.c mvlu/s_fread.c mvlu/s_fopen.c mvlu/s_fdir.c mvlu/s_fdel.c mvlu/s_fclose.c mvlu/s_delvl.c mvlu/s_defvl.c mvlu/s_concl.c mvlu/s_cancel.c mvlu/mvluleaf.c mvlu/mvlu_sbo.c mvlu/mvlu_rt.c mvlu/mvlu_rpt.c mvlu/mvl61850_rpt.c mvlu/mvl61850_ctl.c mvlu/mvl61850.c mvlu/mvl_var.c mvlu/mvl_uca.c mvlu/mvl_type.c mvlu/mvl_typ2.c mvlu/mvl_serv.c mvlu/mvl_send.c mvlu/mvl_objb.c mvlu/mvl_obj.c mvlu/mvl_ijou.c mvlu/mvl_dtyp.c mvlu/mvl_buf.c mvlu/c_write.c mvlu/c_status.c mvlu/c_read.c mvlu/c_obtfi.c mvlu/c_jstat.c mvlu/c_jread.c mvlu/c_jinit.c mvlu/c_info.c mvlu/c_ident.c mvlu/c_getvla.c mvlu/c_getvar.c mvlu/c_getnam.c mvlu/c_getdom.c mvlu/c_fren.c mvlu/c_fread.c mvlu/c_fopen.c mvlu/c_fget.c mvlu/c_fdir.c mvlu/c_fdel.c mvlu/c_fclose.c mvlu/c_delvl.c mvlu/c_defvl.c mvlu/c_concl.c ositcps/tpx_dec.c ositcps/tp4port.c ositcps/tp4_enc.c ositcps/tp0main.c ositcps/tp0callg.c ositcps/tp0calld.c ositcps/tp0_socks.c ositcps/tp0_dec.c ositcps/osicfgx.c ositcps/lean_var.c ositcps/lean_cfg.c ositcps/cospmain.c ositcps/cosp_enc.c ositcps/cosp_dec.c ositcps/coppdcpr.c ositcps/coppdcp.c ositcps/coppdaru.c ositcps/copp_enc.c ositcps/copp_dec.c ositcps/checksum.c ositcps/acse2var.c ositcps/acse2enc.c ositcps/acse2dib.c ositcps/acse2dec.c slog/slogmem.c slog/slogipcs.c slog/sloghex.c slog/slogfil.c slog/slog.c slog/qmem.c ssec0/ssecusr0.c util/time_str.c util/sx_enc.c util/sx_dec.c util/sx_data.c util/sx_axs4d.c util/str_util.c util/stime.c util/stdtime_w32.c util/stdtime_quadlib.c util/stdtime_mms_utctime.c util/stdtime_mms_btime.c util/stdtime.c util/sclstore.c util/sclparse.c util/scl_log.c util/glbsem_unix.c util/glbsem.c util/gensock2.c util/genlists.c util/cfg_util.c debug/mmslibd1.0.0/ && (cd `dirname debug/mmslibd1.0.0` && $(TAR) mmslibd1.0.0.tar mmslibd1.0.0 && $(COMPRESS) mmslibd1.0.0.tar) && $(MOVE) `dirname debug/mmslibd1.0.0`/mmslibd1.0.0.tar.gz . && $(DEL_FILE) -r debug/mmslibd1.0.0 + + +clean:compiler_clean + -$(DEL_FILE) $(OBJECTS) + -$(DEL_FILE) *~ core *.core + + +####### Sub-libraries + +distclean: clean + -$(DEL_FILE) $(TARGET) + -$(DEL_FILE) Makefile.Debug + + +check: first + +mocclean: compiler_moc_header_clean compiler_moc_source_clean + +mocables: compiler_moc_header_make_all compiler_moc_source_make_all + +compiler_moc_header_make_all: +compiler_moc_header_clean: +compiler_rcc_make_all: +compiler_rcc_clean: +compiler_image_collection_make_all: qmake_image_collection.cpp +compiler_image_collection_clean: + -$(DEL_FILE) qmake_image_collection.cpp +compiler_moc_source_make_all: +compiler_moc_source_clean: +compiler_uic_make_all: +compiler_uic_clean: +compiler_yacc_decl_make_all: +compiler_yacc_decl_clean: +compiler_yacc_impl_make_all: +compiler_yacc_impl_clean: +compiler_lex_make_all: +compiler_lex_clean: +compiler_clean: + +####### Compile + +debug/mmslib.o: mmslib.cpp mmslib.h + $(CXX) -c $(CXXFLAGS) $(INCPATH) -o debug/mmslib.o mmslib.cpp + +debug/asn1r.o: asn1/asn1r.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/asn1r.o asn1/asn1r.c + +debug/are_vstr.o: asn1/are_vstr.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/are_vstr.o asn1/are_vstr.c + +debug/are_utc.o: asn1/are_utc.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/are_utc.o asn1/are_utc.c + +debug/are_time.o: asn1/are_time.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/are_time.o asn1/are_time.c + +debug/are_ostr.o: asn1/are_ostr.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/are_ostr.o asn1/are_ostr.c + +debug/are_objd.o: asn1/are_objd.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/are_objd.o asn1/are_objd.c + +debug/are_int.o: asn1/are_int.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/are_int.o asn1/are_int.c + +debug/are_flt.o: asn1/are_flt.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/are_flt.o asn1/are_flt.c + +debug/are_delm.o: asn1/are_delm.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/are_delm.o asn1/are_delm.c + +debug/are_btod.o: asn1/are_btod.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/are_btod.o asn1/are_btod.c + +debug/are_bstr.o: asn1/are_bstr.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/are_bstr.o asn1/are_bstr.c + +debug/are_bool.o: asn1/are_bool.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/are_bool.o asn1/are_bool.c + +debug/ard_vstr.o: asn1/ard_vstr.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/ard_vstr.o asn1/ard_vstr.c + +debug/ard_utc.o: asn1/ard_utc.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/ard_utc.o asn1/ard_utc.c + +debug/ard_time.o: asn1/ard_time.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/ard_time.o asn1/ard_time.c + +debug/ard_strn.o: asn1/ard_strn.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/ard_strn.o asn1/ard_strn.c + +debug/ard_ostr.o: asn1/ard_ostr.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/ard_ostr.o asn1/ard_ostr.c + +debug/ard_objd.o: asn1/ard_objd.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/ard_objd.o asn1/ard_objd.c + +debug/ard_int.o: asn1/ard_int.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/ard_int.o asn1/ard_int.c + +debug/ard_idnt.o: asn1/ard_idnt.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/ard_idnt.o asn1/ard_idnt.c + +debug/ard_flt.o: asn1/ard_flt.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/ard_flt.o asn1/ard_flt.c + +debug/ard_delm.o: asn1/ard_delm.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/ard_delm.o asn1/ard_delm.c + +debug/ard_btod.o: asn1/ard_btod.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/ard_btod.o asn1/ard_btod.c + +debug/ard_bstr.o: asn1/ard_bstr.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/ard_bstr.o asn1/ard_bstr.c + +debug/ard_bool.o: asn1/ard_bool.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/ard_bool.o asn1/ard_bool.c + +debug/mem_chks.o: mem/mem_chks.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/mem_chks.o mem/mem_chks.c + +debug/rs_write.o: mmsl/rs_write.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_write.o mmsl/rs_write.c + +debug/rs_ustat.o: mmsl/rs_ustat.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_ustat.o mmsl/rs_ustat.c + +debug/rs_trige.o: mmsl/rs_trige.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_trige.o mmsl/rs_trige.c + +debug/rs_stat.o: mmsl/rs_stat.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_stat.o mmsl/rs_stat.c + +debug/rs_repee.o: mmsl/rs_repee.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_repee.o mmsl/rs_repee.c + +debug/rs_repec.o: mmsl/rs_repec.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_repec.o mmsl/rs_repec.c + +debug/rs_repea.o: mmsl/rs_repea.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_repea.o mmsl/rs_repea.c + +debug/rs_read.o: mmsl/rs_read.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_read.o mmsl/rs_read.c + +debug/rs_namel.o: mmsl/rs_namel.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_namel.o mmsl/rs_namel.c + +debug/rs_init.o: mmsl/rs_init.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_init.o mmsl/rs_init.c + +debug/rs_info.o: mmsl/rs_info.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_info.o mmsl/rs_info.c + +debug/rs_ident.o: mmsl/rs_ident.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_ident.o mmsl/rs_ident.c + +debug/rs_getvl.o: mmsl/rs_getvl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_getvl.o mmsl/rs_getvl.c + +debug/rs_getva.o: mmsl/rs_getva.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_getva.o mmsl/rs_getva.c + +debug/rs_getty.o: mmsl/rs_getty.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_getty.o mmsl/rs_getty.c + +debug/rs_getpi.o: mmsl/rs_getpi.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_getpi.o mmsl/rs_getpi.c + +debug/rs_getee.o: mmsl/rs_getee.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_getee.o mmsl/rs_getee.c + +debug/rs_getec.o: mmsl/rs_getec.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_getec.o mmsl/rs_getec.c + +debug/rs_getea.o: mmsl/rs_getea.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_getea.o mmsl/rs_getea.c + +debug/rs_getdo.o: mmsl/rs_getdo.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_getdo.o mmsl/rs_getdo.c + +debug/rs_getcl.o: mmsl/rs_getcl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_getcl.o mmsl/rs_getcl.c + +debug/rs_evnot.o: mmsl/rs_evnot.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_evnot.o mmsl/rs_evnot.c + +debug/rs_defee.o: mmsl/rs_defee.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_defee.o mmsl/rs_defee.c + +debug/rs_concl.o: mmsl/rs_concl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_concl.o mmsl/rs_concl.c + +debug/rs_cancl.o: mmsl/rs_cancl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_cancl.o mmsl/rs_cancl.c + +debug/rs_ackev.o: mmsl/rs_ackev.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_ackev.o mmsl/rs_ackev.c + +debug/rq_write.o: mmsl/rq_write.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_write.o mmsl/rq_write.c + +debug/rq_ustat.o: mmsl/rq_ustat.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_ustat.o mmsl/rq_ustat.c + +debug/rq_trige.o: mmsl/rq_trige.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_trige.o mmsl/rq_trige.c + +debug/rq_stat.o: mmsl/rq_stat.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_stat.o mmsl/rq_stat.c + +debug/rq_repee.o: mmsl/rq_repee.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_repee.o mmsl/rq_repee.c + +debug/rq_repec.o: mmsl/rq_repec.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_repec.o mmsl/rq_repec.c + +debug/rq_repea.o: mmsl/rq_repea.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_repea.o mmsl/rq_repea.c + +debug/rq_read.o: mmsl/rq_read.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_read.o mmsl/rq_read.c + +debug/rq_namel.o: mmsl/rq_namel.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_namel.o mmsl/rq_namel.c + +debug/rq_init.o: mmsl/rq_init.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_init.o mmsl/rq_init.c + +debug/rq_info.o: mmsl/rq_info.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_info.o mmsl/rq_info.c + +debug/rq_ident.o: mmsl/rq_ident.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_ident.o mmsl/rq_ident.c + +debug/rq_getvl.o: mmsl/rq_getvl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_getvl.o mmsl/rq_getvl.c + +debug/rq_getva.o: mmsl/rq_getva.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_getva.o mmsl/rq_getva.c + +debug/rq_getty.o: mmsl/rq_getty.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_getty.o mmsl/rq_getty.c + +debug/rq_getpi.o: mmsl/rq_getpi.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_getpi.o mmsl/rq_getpi.c + +debug/rq_getee.o: mmsl/rq_getee.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_getee.o mmsl/rq_getee.c + +debug/rq_getec.o: mmsl/rq_getec.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_getec.o mmsl/rq_getec.c + +debug/rq_getea.o: mmsl/rq_getea.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_getea.o mmsl/rq_getea.c + +debug/rq_getdo.o: mmsl/rq_getdo.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_getdo.o mmsl/rq_getdo.c + +debug/rq_getcl.o: mmsl/rq_getcl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_getcl.o mmsl/rq_getcl.c + +debug/rq_evnot.o: mmsl/rq_evnot.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_evnot.o mmsl/rq_evnot.c + +debug/rq_defee.o: mmsl/rq_defee.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_defee.o mmsl/rq_defee.c + +debug/rq_concl.o: mmsl/rq_concl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_concl.o mmsl/rq_concl.c + +debug/rq_cancl.o: mmsl/rq_cancl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_cancl.o mmsl/rq_cancl.c + +debug/rq_ackev.o: mmsl/rq_ackev.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_ackev.o mmsl/rq_ackev.c + +debug/msdataas.o: mmsl/msdataas.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/msdataas.o mmsl/msdataas.c + +debug/ms_tdef4.o: mmsl/ms_tdef4.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/ms_tdef4.o mmsl/ms_tdef4.c + +debug/ms_tdef2.o: mmsl/ms_tdef2.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/ms_tdef2.o mmsl/ms_tdef2.c + +debug/ms_tdef.o: mmsl/ms_tdef.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/ms_tdef.o mmsl/ms_tdef.c + +debug/ms_size.o: mmsl/ms_size.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/ms_size.o mmsl/ms_size.c + +debug/ms_ext.o: mmsl/ms_ext.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/ms_ext.o mmsl/ms_ext.c + +debug/mmsstat.o: mmsl/mmsstat.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/mmsstat.o mmsl/mmsstat.c + +debug/mmslvar.o: mmsl/mmslvar.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/mmslvar.o mmsl/mmslvar.c + +debug/mmsl_fin.o: mmsl/mmsl_fin.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/mmsl_fin.o mmsl/mmsl_fin.c + +debug/mmsinit.o: mmsl/mmsinit.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/mmsinit.o mmsl/mmsinit.c + +debug/mmsdtext.o: mmsl/mmsdtext.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/mmsdtext.o mmsl/mmsdtext.c + +debug/mmsdec.o: mmsl/mmsdec.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/mmsdec.o mmsl/mmsdec.c + +debug/mmsdatat.o: mmsl/mmsdatat.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/mmsdatat.o mmsl/mmsdatat.c + +debug/mmsdata.o: mmsl/mmsdata.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/mmsdata.o mmsl/mmsdata.c + +debug/mmsconcl.o: mmsl/mmsconcl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/mmsconcl.o mmsl/mmsconcl.c + +debug/mmscancl.o: mmsl/mmscancl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/mmscancl.o mmsl/mmscancl.c + +debug/mms_tdef.o: mmsl/mms_tdef.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/mms_tdef.o mmsl/mms_tdef.c + +debug/mms_rtaa.o: mmsl/mms_rtaa.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/mms_rtaa.o mmsl/mms_rtaa.c + +debug/mms_rej.o: mmsl/mms_rej.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/mms_rej.o mmsl/mms_rej.c + +debug/mms_err4.o: mmsl/mms_err4.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/mms_err4.o mmsl/mms_err4.c + +debug/mms_err3.o: mmsl/mms_err3.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/mms_err3.o mmsl/mms_err3.c + +debug/mms_err2.o: mmsl/mms_err2.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/mms_err2.o mmsl/mms_err2.c + +debug/mms_err.o: mmsl/mms_err.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/mms_err.o mmsl/mms_err.c + +debug/mms_ced7.o: mmsl/mms_ced7.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/mms_ced7.o mmsl/mms_ced7.c + +debug/mms_ced6.o: mmsl/mms_ced6.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/mms_ced6.o mmsl/mms_ced6.c + +debug/mms_ced5.o: mmsl/mms_ced5.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/mms_ced5.o mmsl/mms_ced5.c + +debug/mms_ced4.o: mmsl/mms_ced4.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/mms_ced4.o mmsl/mms_ced4.c + +debug/mms_ced3.o: mmsl/mms_ced3.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/mms_ced3.o mmsl/mms_ced3.c + +debug/mms_ced.o: mmsl/mms_ced.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/mms_ced.o mmsl/mms_ced.c + +debug/mms_aref.o: mmsl/mms_aref.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/mms_aref.o mmsl/mms_aref.c + +debug/mms_alta.o: mmsl/mms_alta.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/mms_alta.o mmsl/mms_alta.c + +debug/mms_adl.o: mmsl/mms_adl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/mms_adl.o mmsl/mms_adl.c + +debug/rs_uploa.o: mmsle/rs_uploa.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_uploa.o mmsle/rs_uploa.c + +debug/rs_termu.o: mmsle/rs_termu.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_termu.o mmsle/rs_termu.c + +debug/rs_termd.o: mmsle/rs_termd.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_termd.o mmsle/rs_termd.c + +debug/rs_takec.o: mmsle/rs_takec.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_takec.o mmsle/rs_takec.c + +debug/rs_store.o: mmsle/rs_store.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_store.o mmsle/rs_store.c + +debug/rs_stop.o: mmsle/rs_stop.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_stop.o mmsle/rs_stop.c + +debug/rs_start.o: mmsle/rs_start.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_start.o mmsle/rs_start.c + +debug/rs_rssta.o: mmsle/rs_rssta.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_rssta.o mmsle/rs_rssta.c + +debug/rs_rspoo.o: mmsle/rs_rspoo.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_rspoo.o mmsle/rs_rspoo.c + +debug/rs_rsent.o: mmsle/rs_rsent.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_rsent.o mmsle/rs_rsent.c + +debug/rs_resum.o: mmsle/rs_resum.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_resum.o mmsle/rs_resum.c + +debug/rs_reset.o: mmsle/rs_reset.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_reset.o mmsle/rs_reset.c + +debug/rs_renam.o: mmsle/rs_renam.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_renam.o mmsle/rs_renam.c + +debug/rs_relct.o: mmsle/rs_relct.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_relct.o mmsle/rs_relct.c + +debug/rs_rdupl.o: mmsle/rs_rdupl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_rdupl.o mmsle/rs_rdupl.c + +debug/rs_rddwn.o: mmsle/rs_rddwn.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_rddwn.o mmsle/rs_rddwn.c + +debug/rs_outpu.o: mmsle/rs_outpu.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_outpu.o mmsle/rs_outpu.c + +debug/rs_obtfi.o: mmsle/rs_obtfi.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_obtfi.o mmsle/rs_obtfi.c + +debug/rs_loadd.o: mmsle/rs_loadd.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_loadd.o mmsle/rs_loadd.c + +debug/rs_kill.o: mmsle/rs_kill.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_kill.o mmsle/rs_kill.c + +debug/rs_jwrit.o: mmsle/rs_jwrit.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_jwrit.o mmsle/rs_jwrit.c + +debug/rs_jstat.o: mmsle/rs_jstat.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_jstat.o mmsle/rs_jstat.c + +debug/rs_jread.o: mmsle/rs_jread.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_jread.o mmsle/rs_jread.c + +debug/rs_jinit.o: mmsle/rs_jinit.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_jinit.o mmsle/rs_jinit.c + +debug/rs_jdele.o: mmsle/rs_jdele.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_jdele.o mmsle/rs_jdele.c + +debug/rs_jcrea.o: mmsle/rs_jcrea.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_jcrea.o mmsle/rs_jcrea.c + +debug/rs_input.o: mmsle/rs_input.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_input.o mmsle/rs_input.c + +debug/rs_initu.o: mmsle/rs_initu.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_initu.o mmsle/rs_initu.c + +debug/rs_initd.o: mmsle/rs_initd.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_initd.o mmsle/rs_initd.c + +debug/rs_getsc.o: mmsle/rs_getsc.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_getsc.o mmsle/rs_getsc.c + +debug/rs_getas.o: mmsle/rs_getas.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_getas.o mmsle/rs_getas.c + +debug/rs_getae.o: mmsle/rs_getae.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_getae.o mmsle/rs_getae.c + +debug/rs_frena.o: mmsle/rs_frena.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_frena.o mmsle/rs_frena.c + +debug/rs_fread.o: mmsle/rs_fread.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_fread.o mmsle/rs_fread.c + +debug/rs_fopen.o: mmsle/rs_fopen.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_fopen.o mmsle/rs_fopen.c + +debug/rs_fdir.o: mmsle/rs_fdir.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_fdir.o mmsle/rs_fdir.c + +debug/rs_fdele.o: mmsle/rs_fdele.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_fdele.o mmsle/rs_fdele.c + +debug/rs_fclos.o: mmsle/rs_fclos.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_fclos.o mmsle/rs_fclos.c + +debug/rs_downl.o: mmsle/rs_downl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_downl.o mmsle/rs_downl.c + +debug/rs_delvl.o: mmsle/rs_delvl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_delvl.o mmsle/rs_delvl.c + +debug/rs_delva.o: mmsle/rs_delva.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_delva.o mmsle/rs_delva.c + +debug/rs_delty.o: mmsle/rs_delty.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_delty.o mmsle/rs_delty.c + +debug/rs_delse.o: mmsle/rs_delse.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_delse.o mmsle/rs_delse.c + +debug/rs_delpi.o: mmsle/rs_delpi.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_delpi.o mmsle/rs_delpi.c + +debug/rs_delee.o: mmsle/rs_delee.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_delee.o mmsle/rs_delee.c + +debug/rs_delec.o: mmsle/rs_delec.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_delec.o mmsle/rs_delec.c + +debug/rs_delea.o: mmsle/rs_delea.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_delea.o mmsle/rs_delea.c + +debug/rs_deldo.o: mmsle/rs_deldo.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_deldo.o mmsle/rs_deldo.c + +debug/rs_defvl.o: mmsle/rs_defvl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_defvl.o mmsle/rs_defvl.c + +debug/rs_defva.o: mmsle/rs_defva.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_defva.o mmsle/rs_defva.c + +debug/rs_defty.o: mmsle/rs_defty.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_defty.o mmsle/rs_defty.c + +debug/rs_defse.o: mmsle/rs_defse.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_defse.o mmsle/rs_defse.c + +debug/rs_defsc.o: mmsle/rs_defsc.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_defsc.o mmsle/rs_defsc.c + +debug/rs_defec.o: mmsle/rs_defec.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_defec.o mmsle/rs_defec.c + +debug/rs_defea.o: mmsle/rs_defea.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_defea.o mmsle/rs_defea.c + +debug/rs_crepi.o: mmsle/rs_crepi.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_crepi.o mmsle/rs_crepi.c + +debug/rs_altee.o: mmsle/rs_altee.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_altee.o mmsle/rs_altee.c + +debug/rs_altec.o: mmsle/rs_altec.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rs_altec.o mmsle/rs_altec.c + +debug/rq_uploa.o: mmsle/rq_uploa.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_uploa.o mmsle/rq_uploa.c + +debug/rq_termu.o: mmsle/rq_termu.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_termu.o mmsle/rq_termu.c + +debug/rq_termd.o: mmsle/rq_termd.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_termd.o mmsle/rq_termd.c + +debug/rq_takec.o: mmsle/rq_takec.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_takec.o mmsle/rq_takec.c + +debug/rq_store.o: mmsle/rq_store.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_store.o mmsle/rq_store.c + +debug/rq_stop.o: mmsle/rq_stop.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_stop.o mmsle/rq_stop.c + +debug/rq_start.o: mmsle/rq_start.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_start.o mmsle/rq_start.c + +debug/rq_rssta.o: mmsle/rq_rssta.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_rssta.o mmsle/rq_rssta.c + +debug/rq_rspoo.o: mmsle/rq_rspoo.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_rspoo.o mmsle/rq_rspoo.c + +debug/rq_rsent.o: mmsle/rq_rsent.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_rsent.o mmsle/rq_rsent.c + +debug/rq_resum.o: mmsle/rq_resum.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_resum.o mmsle/rq_resum.c + +debug/rq_reset.o: mmsle/rq_reset.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_reset.o mmsle/rq_reset.c + +debug/rq_renam.o: mmsle/rq_renam.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_renam.o mmsle/rq_renam.c + +debug/rq_relct.o: mmsle/rq_relct.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_relct.o mmsle/rq_relct.c + +debug/rq_rdupl.o: mmsle/rq_rdupl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_rdupl.o mmsle/rq_rdupl.c + +debug/rq_rddwn.o: mmsle/rq_rddwn.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_rddwn.o mmsle/rq_rddwn.c + +debug/rq_outpu.o: mmsle/rq_outpu.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_outpu.o mmsle/rq_outpu.c + +debug/rq_obtfi.o: mmsle/rq_obtfi.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_obtfi.o mmsle/rq_obtfi.c + +debug/rq_loadd.o: mmsle/rq_loadd.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_loadd.o mmsle/rq_loadd.c + +debug/rq_kill.o: mmsle/rq_kill.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_kill.o mmsle/rq_kill.c + +debug/rq_jwrit.o: mmsle/rq_jwrit.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_jwrit.o mmsle/rq_jwrit.c + +debug/rq_jstat.o: mmsle/rq_jstat.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_jstat.o mmsle/rq_jstat.c + +debug/rq_jread.o: mmsle/rq_jread.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_jread.o mmsle/rq_jread.c + +debug/rq_jinit.o: mmsle/rq_jinit.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_jinit.o mmsle/rq_jinit.c + +debug/rq_jdele.o: mmsle/rq_jdele.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_jdele.o mmsle/rq_jdele.c + +debug/rq_jcrea.o: mmsle/rq_jcrea.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_jcrea.o mmsle/rq_jcrea.c + +debug/rq_input.o: mmsle/rq_input.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_input.o mmsle/rq_input.c + +debug/rq_initu.o: mmsle/rq_initu.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_initu.o mmsle/rq_initu.c + +debug/rq_initd.o: mmsle/rq_initd.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_initd.o mmsle/rq_initd.c + +debug/rq_getsc.o: mmsle/rq_getsc.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_getsc.o mmsle/rq_getsc.c + +debug/rq_getas.o: mmsle/rq_getas.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_getas.o mmsle/rq_getas.c + +debug/rq_getae.o: mmsle/rq_getae.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_getae.o mmsle/rq_getae.c + +debug/rq_frena.o: mmsle/rq_frena.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_frena.o mmsle/rq_frena.c + +debug/rq_fread.o: mmsle/rq_fread.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_fread.o mmsle/rq_fread.c + +debug/rq_fopen.o: mmsle/rq_fopen.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_fopen.o mmsle/rq_fopen.c + +debug/rq_fdir.o: mmsle/rq_fdir.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_fdir.o mmsle/rq_fdir.c + +debug/rq_fdele.o: mmsle/rq_fdele.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_fdele.o mmsle/rq_fdele.c + +debug/rq_fclos.o: mmsle/rq_fclos.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_fclos.o mmsle/rq_fclos.c + +debug/rq_downl.o: mmsle/rq_downl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_downl.o mmsle/rq_downl.c + +debug/rq_delvl.o: mmsle/rq_delvl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_delvl.o mmsle/rq_delvl.c + +debug/rq_delva.o: mmsle/rq_delva.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_delva.o mmsle/rq_delva.c + +debug/rq_delty.o: mmsle/rq_delty.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_delty.o mmsle/rq_delty.c + +debug/rq_delse.o: mmsle/rq_delse.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_delse.o mmsle/rq_delse.c + +debug/rq_delpi.o: mmsle/rq_delpi.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_delpi.o mmsle/rq_delpi.c + +debug/rq_delee.o: mmsle/rq_delee.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_delee.o mmsle/rq_delee.c + +debug/rq_delec.o: mmsle/rq_delec.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_delec.o mmsle/rq_delec.c + +debug/rq_delea.o: mmsle/rq_delea.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_delea.o mmsle/rq_delea.c + +debug/rq_deldo.o: mmsle/rq_deldo.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_deldo.o mmsle/rq_deldo.c + +debug/rq_defvl.o: mmsle/rq_defvl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_defvl.o mmsle/rq_defvl.c + +debug/rq_defva.o: mmsle/rq_defva.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_defva.o mmsle/rq_defva.c + +debug/rq_defty.o: mmsle/rq_defty.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_defty.o mmsle/rq_defty.c + +debug/rq_defse.o: mmsle/rq_defse.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_defse.o mmsle/rq_defse.c + +debug/rq_defsc.o: mmsle/rq_defsc.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_defsc.o mmsle/rq_defsc.c + +debug/rq_defec.o: mmsle/rq_defec.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_defec.o mmsle/rq_defec.c + +debug/rq_defea.o: mmsle/rq_defea.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_defea.o mmsle/rq_defea.c + +debug/rq_crepi.o: mmsle/rq_crepi.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_crepi.o mmsle/rq_crepi.c + +debug/rq_altee.o: mmsle/rq_altee.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_altee.o mmsle/rq_altee.c + +debug/rq_altec.o: mmsle/rq_altec.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/rq_altec.o mmsle/rq_altec.c + +debug/mms_ced2.o: mmsle/mms_ced2.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/mms_ced2.o mmsle/mms_ced2.c + +debug/mms_ced1.o: mmsle/mms_ced1.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/mms_ced1.o mmsle/mms_ced1.c + +debug/sclproc.o: mvlu/sclproc.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/sclproc.o mvlu/sclproc.c + +debug/s_write.o: mvlu/s_write.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/s_write.o mvlu/s_write.c + +debug/s_status.o: mvlu/s_status.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/s_status.o mvlu/s_status.c + +debug/s_read.o: mvlu/s_read.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/s_read.o mvlu/s_read.c + +debug/s_obtfi.o: mvlu/s_obtfi.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/s_obtfi.o mvlu/s_obtfi.c + +debug/s_jstat.o: mvlu/s_jstat.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/s_jstat.o mvlu/s_jstat.c + +debug/s_jread.o: mvlu/s_jread.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/s_jread.o mvlu/s_jread.c + +debug/s_jinit.o: mvlu/s_jinit.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/s_jinit.o mvlu/s_jinit.c + +debug/s_info.o: mvlu/s_info.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/s_info.o mvlu/s_info.c + +debug/s_ident.o: mvlu/s_ident.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/s_ident.o mvlu/s_ident.c + +debug/s_getvla.o: mvlu/s_getvla.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/s_getvla.o mvlu/s_getvla.c + +debug/s_getvaa.o: mvlu/s_getvaa.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/s_getvaa.o mvlu/s_getvaa.c + +debug/s_getnam.o: mvlu/s_getnam.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/s_getnam.o mvlu/s_getnam.c + +debug/s_getdom.o: mvlu/s_getdom.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/s_getdom.o mvlu/s_getdom.c + +debug/s_getcl.o: mvlu/s_getcl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/s_getcl.o mvlu/s_getcl.c + +debug/s_fren.o: mvlu/s_fren.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/s_fren.o mvlu/s_fren.c + +debug/s_fread.o: mvlu/s_fread.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/s_fread.o mvlu/s_fread.c + +debug/s_fopen.o: mvlu/s_fopen.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/s_fopen.o mvlu/s_fopen.c + +debug/s_fdir.o: mvlu/s_fdir.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/s_fdir.o mvlu/s_fdir.c + +debug/s_fdel.o: mvlu/s_fdel.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/s_fdel.o mvlu/s_fdel.c + +debug/s_fclose.o: mvlu/s_fclose.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/s_fclose.o mvlu/s_fclose.c + +debug/s_delvl.o: mvlu/s_delvl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/s_delvl.o mvlu/s_delvl.c + +debug/s_defvl.o: mvlu/s_defvl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/s_defvl.o mvlu/s_defvl.c + +debug/s_concl.o: mvlu/s_concl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/s_concl.o mvlu/s_concl.c + +debug/s_cancel.o: mvlu/s_cancel.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/s_cancel.o mvlu/s_cancel.c + +debug/mvluleaf.o: mvlu/mvluleaf.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/mvluleaf.o mvlu/mvluleaf.c + +debug/mvlu_sbo.o: mvlu/mvlu_sbo.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/mvlu_sbo.o mvlu/mvlu_sbo.c + +debug/mvlu_rt.o: mvlu/mvlu_rt.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/mvlu_rt.o mvlu/mvlu_rt.c + +debug/mvlu_rpt.o: mvlu/mvlu_rpt.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/mvlu_rpt.o mvlu/mvlu_rpt.c + +debug/mvl61850_rpt.o: mvlu/mvl61850_rpt.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/mvl61850_rpt.o mvlu/mvl61850_rpt.c + +debug/mvl61850_ctl.o: mvlu/mvl61850_ctl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/mvl61850_ctl.o mvlu/mvl61850_ctl.c + +debug/mvl61850.o: mvlu/mvl61850.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/mvl61850.o mvlu/mvl61850.c + +debug/mvl_var.o: mvlu/mvl_var.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/mvl_var.o mvlu/mvl_var.c + +debug/mvl_uca.o: mvlu/mvl_uca.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/mvl_uca.o mvlu/mvl_uca.c + +debug/mvl_type.o: mvlu/mvl_type.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/mvl_type.o mvlu/mvl_type.c + +debug/mvl_typ2.o: mvlu/mvl_typ2.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/mvl_typ2.o mvlu/mvl_typ2.c + +debug/mvl_serv.o: mvlu/mvl_serv.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/mvl_serv.o mvlu/mvl_serv.c + +debug/mvl_send.o: mvlu/mvl_send.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/mvl_send.o mvlu/mvl_send.c + +debug/mvl_objb.o: mvlu/mvl_objb.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/mvl_objb.o mvlu/mvl_objb.c + +debug/mvl_obj.o: mvlu/mvl_obj.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/mvl_obj.o mvlu/mvl_obj.c + +debug/mvl_ijou.o: mvlu/mvl_ijou.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/mvl_ijou.o mvlu/mvl_ijou.c + +debug/mvl_dtyp.o: mvlu/mvl_dtyp.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/mvl_dtyp.o mvlu/mvl_dtyp.c + +debug/mvl_buf.o: mvlu/mvl_buf.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/mvl_buf.o mvlu/mvl_buf.c + +debug/c_write.o: mvlu/c_write.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/c_write.o mvlu/c_write.c + +debug/c_status.o: mvlu/c_status.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/c_status.o mvlu/c_status.c + +debug/c_read.o: mvlu/c_read.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/c_read.o mvlu/c_read.c + +debug/c_obtfi.o: mvlu/c_obtfi.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/c_obtfi.o mvlu/c_obtfi.c + +debug/c_jstat.o: mvlu/c_jstat.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/c_jstat.o mvlu/c_jstat.c + +debug/c_jread.o: mvlu/c_jread.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/c_jread.o mvlu/c_jread.c + +debug/c_jinit.o: mvlu/c_jinit.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/c_jinit.o mvlu/c_jinit.c + +debug/c_info.o: mvlu/c_info.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/c_info.o mvlu/c_info.c + +debug/c_ident.o: mvlu/c_ident.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/c_ident.o mvlu/c_ident.c + +debug/c_getvla.o: mvlu/c_getvla.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/c_getvla.o mvlu/c_getvla.c + +debug/c_getvar.o: mvlu/c_getvar.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/c_getvar.o mvlu/c_getvar.c + +debug/c_getnam.o: mvlu/c_getnam.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/c_getnam.o mvlu/c_getnam.c + +debug/c_getdom.o: mvlu/c_getdom.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/c_getdom.o mvlu/c_getdom.c + +debug/c_fren.o: mvlu/c_fren.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/c_fren.o mvlu/c_fren.c + +debug/c_fread.o: mvlu/c_fread.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/c_fread.o mvlu/c_fread.c + +debug/c_fopen.o: mvlu/c_fopen.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/c_fopen.o mvlu/c_fopen.c + +debug/c_fget.o: mvlu/c_fget.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/c_fget.o mvlu/c_fget.c + +debug/c_fdir.o: mvlu/c_fdir.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/c_fdir.o mvlu/c_fdir.c + +debug/c_fdel.o: mvlu/c_fdel.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/c_fdel.o mvlu/c_fdel.c + +debug/c_fclose.o: mvlu/c_fclose.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/c_fclose.o mvlu/c_fclose.c + +debug/c_delvl.o: mvlu/c_delvl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/c_delvl.o mvlu/c_delvl.c + +debug/c_defvl.o: mvlu/c_defvl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/c_defvl.o mvlu/c_defvl.c + +debug/c_concl.o: mvlu/c_concl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/c_concl.o mvlu/c_concl.c + +debug/tpx_dec.o: ositcps/tpx_dec.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/tpx_dec.o ositcps/tpx_dec.c + +debug/tp4port.o: ositcps/tp4port.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/tp4port.o ositcps/tp4port.c + +debug/tp4_enc.o: ositcps/tp4_enc.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/tp4_enc.o ositcps/tp4_enc.c + +debug/tp0main.o: ositcps/tp0main.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/tp0main.o ositcps/tp0main.c + +debug/tp0callg.o: ositcps/tp0callg.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/tp0callg.o ositcps/tp0callg.c + +debug/tp0calld.o: ositcps/tp0calld.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/tp0calld.o ositcps/tp0calld.c + +debug/tp0_socks.o: ositcps/tp0_socks.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/tp0_socks.o ositcps/tp0_socks.c + +debug/tp0_dec.o: ositcps/tp0_dec.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/tp0_dec.o ositcps/tp0_dec.c + +debug/osicfgx.o: ositcps/osicfgx.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/osicfgx.o ositcps/osicfgx.c + +debug/lean_var.o: ositcps/lean_var.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/lean_var.o ositcps/lean_var.c + +debug/lean_cfg.o: ositcps/lean_cfg.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/lean_cfg.o ositcps/lean_cfg.c + +debug/cospmain.o: ositcps/cospmain.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/cospmain.o ositcps/cospmain.c + +debug/cosp_enc.o: ositcps/cosp_enc.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/cosp_enc.o ositcps/cosp_enc.c + +debug/cosp_dec.o: ositcps/cosp_dec.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/cosp_dec.o ositcps/cosp_dec.c + +debug/coppdcpr.o: ositcps/coppdcpr.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/coppdcpr.o ositcps/coppdcpr.c + +debug/coppdcp.o: ositcps/coppdcp.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/coppdcp.o ositcps/coppdcp.c + +debug/coppdaru.o: ositcps/coppdaru.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/coppdaru.o ositcps/coppdaru.c + +debug/copp_enc.o: ositcps/copp_enc.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/copp_enc.o ositcps/copp_enc.c + +debug/copp_dec.o: ositcps/copp_dec.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/copp_dec.o ositcps/copp_dec.c + +debug/checksum.o: ositcps/checksum.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/checksum.o ositcps/checksum.c + +debug/acse2var.o: ositcps/acse2var.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/acse2var.o ositcps/acse2var.c + +debug/acse2enc.o: ositcps/acse2enc.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/acse2enc.o ositcps/acse2enc.c + +debug/acse2dib.o: ositcps/acse2dib.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/acse2dib.o ositcps/acse2dib.c + +debug/acse2dec.o: ositcps/acse2dec.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/acse2dec.o ositcps/acse2dec.c + +debug/slogmem.o: slog/slogmem.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/slogmem.o slog/slogmem.c + +debug/slogipcs.o: slog/slogipcs.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/slogipcs.o slog/slogipcs.c + +debug/sloghex.o: slog/sloghex.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/sloghex.o slog/sloghex.c + +debug/slogfil.o: slog/slogfil.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/slogfil.o slog/slogfil.c + +debug/slog.o: slog/slog.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/slog.o slog/slog.c + +debug/qmem.o: slog/qmem.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/qmem.o slog/qmem.c + +debug/ssecusr0.o: ssec0/ssecusr0.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/ssecusr0.o ssec0/ssecusr0.c + +debug/time_str.o: util/time_str.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/time_str.o util/time_str.c + +debug/sx_enc.o: util/sx_enc.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/sx_enc.o util/sx_enc.c + +debug/sx_dec.o: util/sx_dec.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/sx_dec.o util/sx_dec.c + +debug/sx_data.o: util/sx_data.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/sx_data.o util/sx_data.c + +debug/sx_axs4d.o: util/sx_axs4d.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/sx_axs4d.o util/sx_axs4d.c + +debug/str_util.o: util/str_util.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/str_util.o util/str_util.c + +debug/stime.o: util/stime.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/stime.o util/stime.c + +debug/stdtime_w32.o: util/stdtime_w32.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/stdtime_w32.o util/stdtime_w32.c + +debug/stdtime_quadlib.o: util/stdtime_quadlib.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/stdtime_quadlib.o util/stdtime_quadlib.c + +debug/stdtime_mms_utctime.o: util/stdtime_mms_utctime.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/stdtime_mms_utctime.o util/stdtime_mms_utctime.c + +debug/stdtime_mms_btime.o: util/stdtime_mms_btime.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/stdtime_mms_btime.o util/stdtime_mms_btime.c + +debug/stdtime.o: util/stdtime.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/stdtime.o util/stdtime.c + +debug/sclstore.o: util/sclstore.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/sclstore.o util/sclstore.c + +debug/sclparse.o: util/sclparse.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/sclparse.o util/sclparse.c + +debug/scl_log.o: util/scl_log.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/scl_log.o util/scl_log.c + +debug/glbsem_unix.o: util/glbsem_unix.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/glbsem_unix.o util/glbsem_unix.c + +debug/glbsem.o: util/glbsem.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/glbsem.o util/glbsem.c + +debug/gensock2.o: util/gensock2.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/gensock2.o util/gensock2.c + +debug/genlists.o: util/genlists.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/genlists.o util/genlists.c + +debug/cfg_util.o: util/cfg_util.c + $(CC) -c $(CFLAGS) $(INCPATH) -o debug/cfg_util.o util/cfg_util.c + +####### Install + +install_target: first FORCE + @$(CHK_DIR_EXISTS) $(INSTALL_ROOT)/usr/lib/ || $(MKDIR) $(INSTALL_ROOT)/usr/lib/ + -$(INSTALL_FILE) "$(TARGET)" "$(INSTALL_ROOT)/usr/lib/$(TARGET)" + +uninstall_target: FORCE + -$(DEL_FILE) "$(INSTALL_ROOT)/usr/lib/$(TARGET)" + -$(DEL_DIR) $(INSTALL_ROOT)/usr/lib/ + + +install: install_target FORCE + +uninstall: uninstall_target FORCE + +FORCE: + diff --git a/mmslib/Makefile.Release b/mmslib/Makefile.Release new file mode 100644 index 0000000..485230f --- /dev/null +++ b/mmslib/Makefile.Release @@ -0,0 +1,1899 @@ +############################################################################# +# Makefile for building: libmmslib.a +# Generated by qmake (2.01a) (Qt 4.8.4) on: ?? 10? 12 16:45:38 2025 +# Project: mmslib.pro +# Template: lib +############################################################################# + +####### Compiler, tools and options + +CC = gcc +CXX = g++ +DEFINES = -DDEBUG_SISCO -DMOSI -DLEAN_T -DMVL_UCA -DMMS_LITE -DTP0_ENABLED -DSTDTIME_ANSI -DFE_VERSION_64 -DQT_NO_DEBUG -DQT_CORE_LIB -DQT_SHARED +CFLAGS = -m64 -pipe -O2 -w -fPIC -D_REENTRANT $(DEFINES) +CXXFLAGS = -m64 -pipe -O2 -w -fPIC -D_REENTRANT $(DEFINES) +INCPATH = -I../../../qt-4.8.4/mkspecs/linux-g++-64 -I. -I../../../qt-4.8.4/include/QtCore -I../../../qt-4.8.4/include -Iinc -Iinc/mmsop_en -Irelease +AR = ar cqs +RANLIB = +QMAKE = /qt-4.8.4/bin/qmake +TAR = tar -cf +COMPRESS = gzip -9f +COPY = cp -f +SED = sed +COPY_FILE = $(COPY) +COPY_DIR = $(COPY) -r +STRIP = strip +INSTALL_FILE = install -m 644 -p +INSTALL_DIR = $(COPY_DIR) +INSTALL_PROGRAM = install -m 755 -p +DEL_FILE = rm -f +SYMLINK = ln -f -s +DEL_DIR = rmdir +MOVE = mv -f +CHK_DIR_EXISTS= test -d +MKDIR = mkdir -p + +####### Output directory + +OBJECTS_DIR = release/ + +####### Files + +SOURCES = mmslib.cpp \ + asn1/asn1r.c \ + asn1/are_vstr.c \ + asn1/are_utc.c \ + asn1/are_time.c \ + asn1/are_ostr.c \ + asn1/are_objd.c \ + asn1/are_int.c \ + asn1/are_flt.c \ + asn1/are_delm.c \ + asn1/are_btod.c \ + asn1/are_bstr.c \ + asn1/are_bool.c \ + asn1/ard_vstr.c \ + asn1/ard_utc.c \ + asn1/ard_time.c \ + asn1/ard_strn.c \ + asn1/ard_ostr.c \ + asn1/ard_objd.c \ + asn1/ard_int.c \ + asn1/ard_idnt.c \ + asn1/ard_flt.c \ + asn1/ard_delm.c \ + asn1/ard_btod.c \ + asn1/ard_bstr.c \ + asn1/ard_bool.c \ + mem/mem_chks.c \ + mmsl/rs_write.c \ + mmsl/rs_ustat.c \ + mmsl/rs_trige.c \ + mmsl/rs_stat.c \ + mmsl/rs_repee.c \ + mmsl/rs_repec.c \ + mmsl/rs_repea.c \ + mmsl/rs_read.c \ + mmsl/rs_namel.c \ + mmsl/rs_init.c \ + mmsl/rs_info.c \ + mmsl/rs_ident.c \ + mmsl/rs_getvl.c \ + mmsl/rs_getva.c \ + mmsl/rs_getty.c \ + mmsl/rs_getpi.c \ + mmsl/rs_getee.c \ + mmsl/rs_getec.c \ + mmsl/rs_getea.c \ + mmsl/rs_getdo.c \ + mmsl/rs_getcl.c \ + mmsl/rs_evnot.c \ + mmsl/rs_defee.c \ + mmsl/rs_concl.c \ + mmsl/rs_cancl.c \ + mmsl/rs_ackev.c \ + mmsl/rq_write.c \ + mmsl/rq_ustat.c \ + mmsl/rq_trige.c \ + mmsl/rq_stat.c \ + mmsl/rq_repee.c \ + mmsl/rq_repec.c \ + mmsl/rq_repea.c \ + mmsl/rq_read.c \ + mmsl/rq_namel.c \ + mmsl/rq_init.c \ + mmsl/rq_info.c \ + mmsl/rq_ident.c \ + mmsl/rq_getvl.c \ + mmsl/rq_getva.c \ + mmsl/rq_getty.c \ + mmsl/rq_getpi.c \ + mmsl/rq_getee.c \ + mmsl/rq_getec.c \ + mmsl/rq_getea.c \ + mmsl/rq_getdo.c \ + mmsl/rq_getcl.c \ + mmsl/rq_evnot.c \ + mmsl/rq_defee.c \ + mmsl/rq_concl.c \ + mmsl/rq_cancl.c \ + mmsl/rq_ackev.c \ + mmsl/msdataas.c \ + mmsl/ms_tdef4.c \ + mmsl/ms_tdef2.c \ + mmsl/ms_tdef.c \ + mmsl/ms_size.c \ + mmsl/ms_ext.c \ + mmsl/mmsstat.c \ + mmsl/mmslvar.c \ + mmsl/mmsl_fin.c \ + mmsl/mmsinit.c \ + mmsl/mmsdtext.c \ + mmsl/mmsdec.c \ + mmsl/mmsdatat.c \ + mmsl/mmsdata.c \ + mmsl/mmsconcl.c \ + mmsl/mmscancl.c \ + mmsl/mms_tdef.c \ + mmsl/mms_rtaa.c \ + mmsl/mms_rej.c \ + mmsl/mms_err4.c \ + mmsl/mms_err3.c \ + mmsl/mms_err2.c \ + mmsl/mms_err.c \ + mmsl/mms_ced7.c \ + mmsl/mms_ced6.c \ + mmsl/mms_ced5.c \ + mmsl/mms_ced4.c \ + mmsl/mms_ced3.c \ + mmsl/mms_ced.c \ + mmsl/mms_aref.c \ + mmsl/mms_alta.c \ + mmsl/mms_adl.c \ + mmsle/rs_uploa.c \ + mmsle/rs_termu.c \ + mmsle/rs_termd.c \ + mmsle/rs_takec.c \ + mmsle/rs_store.c \ + mmsle/rs_stop.c \ + mmsle/rs_start.c \ + mmsle/rs_rssta.c \ + mmsle/rs_rspoo.c \ + mmsle/rs_rsent.c \ + mmsle/rs_resum.c \ + mmsle/rs_reset.c \ + mmsle/rs_renam.c \ + mmsle/rs_relct.c \ + mmsle/rs_rdupl.c \ + mmsle/rs_rddwn.c \ + mmsle/rs_outpu.c \ + mmsle/rs_obtfi.c \ + mmsle/rs_loadd.c \ + mmsle/rs_kill.c \ + mmsle/rs_jwrit.c \ + mmsle/rs_jstat.c \ + mmsle/rs_jread.c \ + mmsle/rs_jinit.c \ + mmsle/rs_jdele.c \ + mmsle/rs_jcrea.c \ + mmsle/rs_input.c \ + mmsle/rs_initu.c \ + mmsle/rs_initd.c \ + mmsle/rs_getsc.c \ + mmsle/rs_getas.c \ + mmsle/rs_getae.c \ + mmsle/rs_frena.c \ + mmsle/rs_fread.c \ + mmsle/rs_fopen.c \ + mmsle/rs_fdir.c \ + mmsle/rs_fdele.c \ + mmsle/rs_fclos.c \ + mmsle/rs_downl.c \ + mmsle/rs_delvl.c \ + mmsle/rs_delva.c \ + mmsle/rs_delty.c \ + mmsle/rs_delse.c \ + mmsle/rs_delpi.c \ + mmsle/rs_delee.c \ + mmsle/rs_delec.c \ + mmsle/rs_delea.c \ + mmsle/rs_deldo.c \ + mmsle/rs_defvl.c \ + mmsle/rs_defva.c \ + mmsle/rs_defty.c \ + mmsle/rs_defse.c \ + mmsle/rs_defsc.c \ + mmsle/rs_defec.c \ + mmsle/rs_defea.c \ + mmsle/rs_crepi.c \ + mmsle/rs_altee.c \ + mmsle/rs_altec.c \ + mmsle/rq_uploa.c \ + mmsle/rq_termu.c \ + mmsle/rq_termd.c \ + mmsle/rq_takec.c \ + mmsle/rq_store.c \ + mmsle/rq_stop.c \ + mmsle/rq_start.c \ + mmsle/rq_rssta.c \ + mmsle/rq_rspoo.c \ + mmsle/rq_rsent.c \ + mmsle/rq_resum.c \ + mmsle/rq_reset.c \ + mmsle/rq_renam.c \ + mmsle/rq_relct.c \ + mmsle/rq_rdupl.c \ + mmsle/rq_rddwn.c \ + mmsle/rq_outpu.c \ + mmsle/rq_obtfi.c \ + mmsle/rq_loadd.c \ + mmsle/rq_kill.c \ + mmsle/rq_jwrit.c \ + mmsle/rq_jstat.c \ + mmsle/rq_jread.c \ + mmsle/rq_jinit.c \ + mmsle/rq_jdele.c \ + mmsle/rq_jcrea.c \ + mmsle/rq_input.c \ + mmsle/rq_initu.c \ + mmsle/rq_initd.c \ + mmsle/rq_getsc.c \ + mmsle/rq_getas.c \ + mmsle/rq_getae.c \ + mmsle/rq_frena.c \ + mmsle/rq_fread.c \ + mmsle/rq_fopen.c \ + mmsle/rq_fdir.c \ + mmsle/rq_fdele.c \ + mmsle/rq_fclos.c \ + mmsle/rq_downl.c \ + mmsle/rq_delvl.c \ + mmsle/rq_delva.c \ + mmsle/rq_delty.c \ + mmsle/rq_delse.c \ + mmsle/rq_delpi.c \ + mmsle/rq_delee.c \ + mmsle/rq_delec.c \ + mmsle/rq_delea.c \ + mmsle/rq_deldo.c \ + mmsle/rq_defvl.c \ + mmsle/rq_defva.c \ + mmsle/rq_defty.c \ + mmsle/rq_defse.c \ + mmsle/rq_defsc.c \ + mmsle/rq_defec.c \ + mmsle/rq_defea.c \ + mmsle/rq_crepi.c \ + mmsle/rq_altee.c \ + mmsle/rq_altec.c \ + mmsle/mms_ced2.c \ + mmsle/mms_ced1.c \ + mvlu/sclproc.c \ + mvlu/s_write.c \ + mvlu/s_status.c \ + mvlu/s_read.c \ + mvlu/s_obtfi.c \ + mvlu/s_jstat.c \ + mvlu/s_jread.c \ + mvlu/s_jinit.c \ + mvlu/s_info.c \ + mvlu/s_ident.c \ + mvlu/s_getvla.c \ + mvlu/s_getvaa.c \ + mvlu/s_getnam.c \ + mvlu/s_getdom.c \ + mvlu/s_getcl.c \ + mvlu/s_fren.c \ + mvlu/s_fread.c \ + mvlu/s_fopen.c \ + mvlu/s_fdir.c \ + mvlu/s_fdel.c \ + mvlu/s_fclose.c \ + mvlu/s_delvl.c \ + mvlu/s_defvl.c \ + mvlu/s_concl.c \ + mvlu/s_cancel.c \ + mvlu/mvluleaf.c \ + mvlu/mvlu_sbo.c \ + mvlu/mvlu_rt.c \ + mvlu/mvlu_rpt.c \ + mvlu/mvl61850_rpt.c \ + mvlu/mvl61850_ctl.c \ + mvlu/mvl61850.c \ + mvlu/mvl_var.c \ + mvlu/mvl_uca.c \ + mvlu/mvl_type.c \ + mvlu/mvl_typ2.c \ + mvlu/mvl_serv.c \ + mvlu/mvl_send.c \ + mvlu/mvl_objb.c \ + mvlu/mvl_obj.c \ + mvlu/mvl_ijou.c \ + mvlu/mvl_dtyp.c \ + mvlu/mvl_buf.c \ + mvlu/c_write.c \ + mvlu/c_status.c \ + mvlu/c_read.c \ + mvlu/c_obtfi.c \ + mvlu/c_jstat.c \ + mvlu/c_jread.c \ + mvlu/c_jinit.c \ + mvlu/c_info.c \ + mvlu/c_ident.c \ + mvlu/c_getvla.c \ + mvlu/c_getvar.c \ + mvlu/c_getnam.c \ + mvlu/c_getdom.c \ + mvlu/c_fren.c \ + mvlu/c_fread.c \ + mvlu/c_fopen.c \ + mvlu/c_fget.c \ + mvlu/c_fdir.c \ + mvlu/c_fdel.c \ + mvlu/c_fclose.c \ + mvlu/c_delvl.c \ + mvlu/c_defvl.c \ + mvlu/c_concl.c \ + ositcps/tpx_dec.c \ + ositcps/tp4port.c \ + ositcps/tp4_enc.c \ + ositcps/tp0main.c \ + ositcps/tp0callg.c \ + ositcps/tp0calld.c \ + ositcps/tp0_socks.c \ + ositcps/tp0_dec.c \ + ositcps/osicfgx.c \ + ositcps/lean_var.c \ + ositcps/lean_cfg.c \ + ositcps/cospmain.c \ + ositcps/cosp_enc.c \ + ositcps/cosp_dec.c \ + ositcps/coppdcpr.c \ + ositcps/coppdcp.c \ + ositcps/coppdaru.c \ + ositcps/copp_enc.c \ + ositcps/copp_dec.c \ + ositcps/checksum.c \ + ositcps/acse2var.c \ + ositcps/acse2enc.c \ + ositcps/acse2dib.c \ + ositcps/acse2dec.c \ + slog/slogmem.c \ + slog/slogipcs.c \ + slog/sloghex.c \ + slog/slogfil.c \ + slog/slog.c \ + slog/qmem.c \ + ssec0/ssecusr0.c \ + util/time_str.c \ + util/sx_enc.c \ + util/sx_dec.c \ + util/sx_data.c \ + util/sx_axs4d.c \ + util/str_util.c \ + util/stime.c \ + util/stdtime_w32.c \ + util/stdtime_quadlib.c \ + util/stdtime_mms_utctime.c \ + util/stdtime_mms_btime.c \ + util/stdtime.c \ + util/sclstore.c \ + util/sclparse.c \ + util/scl_log.c \ + util/glbsem_unix.c \ + util/glbsem.c \ + util/gensock2.c \ + util/genlists.c \ + util/cfg_util.c +OBJECTS = release/mmslib.o \ + release/asn1r.o \ + release/are_vstr.o \ + release/are_utc.o \ + release/are_time.o \ + release/are_ostr.o \ + release/are_objd.o \ + release/are_int.o \ + release/are_flt.o \ + release/are_delm.o \ + release/are_btod.o \ + release/are_bstr.o \ + release/are_bool.o \ + release/ard_vstr.o \ + release/ard_utc.o \ + release/ard_time.o \ + release/ard_strn.o \ + release/ard_ostr.o \ + release/ard_objd.o \ + release/ard_int.o \ + release/ard_idnt.o \ + release/ard_flt.o \ + release/ard_delm.o \ + release/ard_btod.o \ + release/ard_bstr.o \ + release/ard_bool.o \ + release/mem_chks.o \ + release/rs_write.o \ + release/rs_ustat.o \ + release/rs_trige.o \ + release/rs_stat.o \ + release/rs_repee.o \ + release/rs_repec.o \ + release/rs_repea.o \ + release/rs_read.o \ + release/rs_namel.o \ + release/rs_init.o \ + release/rs_info.o \ + release/rs_ident.o \ + release/rs_getvl.o \ + release/rs_getva.o \ + release/rs_getty.o \ + release/rs_getpi.o \ + release/rs_getee.o \ + release/rs_getec.o \ + release/rs_getea.o \ + release/rs_getdo.o \ + release/rs_getcl.o \ + release/rs_evnot.o \ + release/rs_defee.o \ + release/rs_concl.o \ + release/rs_cancl.o \ + release/rs_ackev.o \ + release/rq_write.o \ + release/rq_ustat.o \ + release/rq_trige.o \ + release/rq_stat.o \ + release/rq_repee.o \ + release/rq_repec.o \ + release/rq_repea.o \ + release/rq_read.o \ + release/rq_namel.o \ + release/rq_init.o \ + release/rq_info.o \ + release/rq_ident.o \ + release/rq_getvl.o \ + release/rq_getva.o \ + release/rq_getty.o \ + release/rq_getpi.o \ + release/rq_getee.o \ + release/rq_getec.o \ + release/rq_getea.o \ + release/rq_getdo.o \ + release/rq_getcl.o \ + release/rq_evnot.o \ + release/rq_defee.o \ + release/rq_concl.o \ + release/rq_cancl.o \ + release/rq_ackev.o \ + release/msdataas.o \ + release/ms_tdef4.o \ + release/ms_tdef2.o \ + release/ms_tdef.o \ + release/ms_size.o \ + release/ms_ext.o \ + release/mmsstat.o \ + release/mmslvar.o \ + release/mmsl_fin.o \ + release/mmsinit.o \ + release/mmsdtext.o \ + release/mmsdec.o \ + release/mmsdatat.o \ + release/mmsdata.o \ + release/mmsconcl.o \ + release/mmscancl.o \ + release/mms_tdef.o \ + release/mms_rtaa.o \ + release/mms_rej.o \ + release/mms_err4.o \ + release/mms_err3.o \ + release/mms_err2.o \ + release/mms_err.o \ + release/mms_ced7.o \ + release/mms_ced6.o \ + release/mms_ced5.o \ + release/mms_ced4.o \ + release/mms_ced3.o \ + release/mms_ced.o \ + release/mms_aref.o \ + release/mms_alta.o \ + release/mms_adl.o \ + release/rs_uploa.o \ + release/rs_termu.o \ + release/rs_termd.o \ + release/rs_takec.o \ + release/rs_store.o \ + release/rs_stop.o \ + release/rs_start.o \ + release/rs_rssta.o \ + release/rs_rspoo.o \ + release/rs_rsent.o \ + release/rs_resum.o \ + release/rs_reset.o \ + release/rs_renam.o \ + release/rs_relct.o \ + release/rs_rdupl.o \ + release/rs_rddwn.o \ + release/rs_outpu.o \ + release/rs_obtfi.o \ + release/rs_loadd.o \ + release/rs_kill.o \ + release/rs_jwrit.o \ + release/rs_jstat.o \ + release/rs_jread.o \ + release/rs_jinit.o \ + release/rs_jdele.o \ + release/rs_jcrea.o \ + release/rs_input.o \ + release/rs_initu.o \ + release/rs_initd.o \ + release/rs_getsc.o \ + release/rs_getas.o \ + release/rs_getae.o \ + release/rs_frena.o \ + release/rs_fread.o \ + release/rs_fopen.o \ + release/rs_fdir.o \ + release/rs_fdele.o \ + release/rs_fclos.o \ + release/rs_downl.o \ + release/rs_delvl.o \ + release/rs_delva.o \ + release/rs_delty.o \ + release/rs_delse.o \ + release/rs_delpi.o \ + release/rs_delee.o \ + release/rs_delec.o \ + release/rs_delea.o \ + release/rs_deldo.o \ + release/rs_defvl.o \ + release/rs_defva.o \ + release/rs_defty.o \ + release/rs_defse.o \ + release/rs_defsc.o \ + release/rs_defec.o \ + release/rs_defea.o \ + release/rs_crepi.o \ + release/rs_altee.o \ + release/rs_altec.o \ + release/rq_uploa.o \ + release/rq_termu.o \ + release/rq_termd.o \ + release/rq_takec.o \ + release/rq_store.o \ + release/rq_stop.o \ + release/rq_start.o \ + release/rq_rssta.o \ + release/rq_rspoo.o \ + release/rq_rsent.o \ + release/rq_resum.o \ + release/rq_reset.o \ + release/rq_renam.o \ + release/rq_relct.o \ + release/rq_rdupl.o \ + release/rq_rddwn.o \ + release/rq_outpu.o \ + release/rq_obtfi.o \ + release/rq_loadd.o \ + release/rq_kill.o \ + release/rq_jwrit.o \ + release/rq_jstat.o \ + release/rq_jread.o \ + release/rq_jinit.o \ + release/rq_jdele.o \ + release/rq_jcrea.o \ + release/rq_input.o \ + release/rq_initu.o \ + release/rq_initd.o \ + release/rq_getsc.o \ + release/rq_getas.o \ + release/rq_getae.o \ + release/rq_frena.o \ + release/rq_fread.o \ + release/rq_fopen.o \ + release/rq_fdir.o \ + release/rq_fdele.o \ + release/rq_fclos.o \ + release/rq_downl.o \ + release/rq_delvl.o \ + release/rq_delva.o \ + release/rq_delty.o \ + release/rq_delse.o \ + release/rq_delpi.o \ + release/rq_delee.o \ + release/rq_delec.o \ + release/rq_delea.o \ + release/rq_deldo.o \ + release/rq_defvl.o \ + release/rq_defva.o \ + release/rq_defty.o \ + release/rq_defse.o \ + release/rq_defsc.o \ + release/rq_defec.o \ + release/rq_defea.o \ + release/rq_crepi.o \ + release/rq_altee.o \ + release/rq_altec.o \ + release/mms_ced2.o \ + release/mms_ced1.o \ + release/sclproc.o \ + release/s_write.o \ + release/s_status.o \ + release/s_read.o \ + release/s_obtfi.o \ + release/s_jstat.o \ + release/s_jread.o \ + release/s_jinit.o \ + release/s_info.o \ + release/s_ident.o \ + release/s_getvla.o \ + release/s_getvaa.o \ + release/s_getnam.o \ + release/s_getdom.o \ + release/s_getcl.o \ + release/s_fren.o \ + release/s_fread.o \ + release/s_fopen.o \ + release/s_fdir.o \ + release/s_fdel.o \ + release/s_fclose.o \ + release/s_delvl.o \ + release/s_defvl.o \ + release/s_concl.o \ + release/s_cancel.o \ + release/mvluleaf.o \ + release/mvlu_sbo.o \ + release/mvlu_rt.o \ + release/mvlu_rpt.o \ + release/mvl61850_rpt.o \ + release/mvl61850_ctl.o \ + release/mvl61850.o \ + release/mvl_var.o \ + release/mvl_uca.o \ + release/mvl_type.o \ + release/mvl_typ2.o \ + release/mvl_serv.o \ + release/mvl_send.o \ + release/mvl_objb.o \ + release/mvl_obj.o \ + release/mvl_ijou.o \ + release/mvl_dtyp.o \ + release/mvl_buf.o \ + release/c_write.o \ + release/c_status.o \ + release/c_read.o \ + release/c_obtfi.o \ + release/c_jstat.o \ + release/c_jread.o \ + release/c_jinit.o \ + release/c_info.o \ + release/c_ident.o \ + release/c_getvla.o \ + release/c_getvar.o \ + release/c_getnam.o \ + release/c_getdom.o \ + release/c_fren.o \ + release/c_fread.o \ + release/c_fopen.o \ + release/c_fget.o \ + release/c_fdir.o \ + release/c_fdel.o \ + release/c_fclose.o \ + release/c_delvl.o \ + release/c_defvl.o \ + release/c_concl.o \ + release/tpx_dec.o \ + release/tp4port.o \ + release/tp4_enc.o \ + release/tp0main.o \ + release/tp0callg.o \ + release/tp0calld.o \ + release/tp0_socks.o \ + release/tp0_dec.o \ + release/osicfgx.o \ + release/lean_var.o \ + release/lean_cfg.o \ + release/cospmain.o \ + release/cosp_enc.o \ + release/cosp_dec.o \ + release/coppdcpr.o \ + release/coppdcp.o \ + release/coppdaru.o \ + release/copp_enc.o \ + release/copp_dec.o \ + release/checksum.o \ + release/acse2var.o \ + release/acse2enc.o \ + release/acse2dib.o \ + release/acse2dec.o \ + release/slogmem.o \ + release/slogipcs.o \ + release/sloghex.o \ + release/slogfil.o \ + release/slog.o \ + release/qmem.o \ + release/ssecusr0.o \ + release/time_str.o \ + release/sx_enc.o \ + release/sx_dec.o \ + release/sx_data.o \ + release/sx_axs4d.o \ + release/str_util.o \ + release/stime.o \ + release/stdtime_w32.o \ + release/stdtime_quadlib.o \ + release/stdtime_mms_utctime.o \ + release/stdtime_mms_btime.o \ + release/stdtime.o \ + release/sclstore.o \ + release/sclparse.o \ + release/scl_log.o \ + release/glbsem_unix.o \ + release/glbsem.o \ + release/gensock2.o \ + release/genlists.o \ + release/cfg_util.o +DIST = ../../../qt-4.8.4/mkspecs/common/unix.conf \ + ../../../qt-4.8.4/mkspecs/common/linux.conf \ + ../../../qt-4.8.4/mkspecs/common/gcc-base.conf \ + ../../../qt-4.8.4/mkspecs/common/gcc-base-unix.conf \ + ../../../qt-4.8.4/mkspecs/common/g++-base.conf \ + ../../../qt-4.8.4/mkspecs/common/g++-unix.conf \ + ../../../qt-4.8.4/mkspecs/qconfig.pri \ + ../../../qt-4.8.4/mkspecs/features/qt_functions.prf \ + ../../../qt-4.8.4/mkspecs/features/qt_config.prf \ + ../../../qt-4.8.4/mkspecs/features/exclusive_builds.prf \ + ../../../qt-4.8.4/mkspecs/features/default_pre.prf \ + fe_common.pri \ + ../../../qt-4.8.4/mkspecs/features/release.prf \ + ../../../qt-4.8.4/mkspecs/features/debug_and_release.prf \ + ../../../qt-4.8.4/mkspecs/features/default_post.prf \ + ../../../qt-4.8.4/mkspecs/features/build_pass.prf \ + ../../../qt-4.8.4/mkspecs/features/warn_off.prf \ + ../../../qt-4.8.4/mkspecs/features/staticlib.prf \ + ../../../qt-4.8.4/mkspecs/features/static.prf \ + ../../../qt-4.8.4/mkspecs/features/unix/gdb_dwarf_index.prf \ + ../../../qt-4.8.4/mkspecs/features/qt.prf \ + ../../../qt-4.8.4/mkspecs/features/unix/thread.prf \ + ../../../qt-4.8.4/mkspecs/features/moc.prf \ + ../../../qt-4.8.4/mkspecs/features/resources.prf \ + ../../../qt-4.8.4/mkspecs/features/uic.prf \ + ../../../qt-4.8.4/mkspecs/features/yacc.prf \ + ../../../qt-4.8.4/mkspecs/features/lex.prf \ + ../../../qt-4.8.4/mkspecs/features/include_source_dir.prf \ + mmslib.pro +QMAKE_TARGET = mmslib +DESTDIR = +TARGET = libmmslib.a + +first: all +####### Implicit rules + +.SUFFIXES: .o .c .cpp .cc .cxx .C + +.cpp.o: + $(CXX) -c $(CXXFLAGS) $(INCPATH) -o "$@" "$<" + +.cc.o: + $(CXX) -c $(CXXFLAGS) $(INCPATH) -o "$@" "$<" + +.cxx.o: + $(CXX) -c $(CXXFLAGS) $(INCPATH) -o "$@" "$<" + +.C.o: + $(CXX) -c $(CXXFLAGS) $(INCPATH) -o "$@" "$<" + +.c.o: + $(CC) -c $(CFLAGS) $(INCPATH) -o "$@" "$<" + +####### Build rules + +all: Makefile.Release $(TARGET) + +staticlib: $(TARGET) + +$(TARGET): $(OBJECTS) $(OBJCOMP) + -$(DEL_FILE) $(TARGET) + $(AR) $(TARGET) $(OBJECTS) + + +qmake: FORCE + @$(QMAKE) -o Makefile.Release mmslib.pro + +dist: + @$(CHK_DIR_EXISTS) release/mmslib1.0.0 || $(MKDIR) release/mmslib1.0.0 + $(COPY_FILE) --parents $(SOURCES) $(DIST) release/mmslib1.0.0/ && $(COPY_FILE) --parents mmslib.h inc/tp4api.h inc/tp4_log.h inc/tp4_encd.h inc/tp4.h inc/tp0_sock.h inc/time_str.h inc/sysincs.h inc/sx_log.h inc/sx_defs.h inc/sx_arb.h inc/STR_UTIL.H inc/stime.h inc/stdtime_w32.h inc/stdtime_tzrules.h inc/stdtime_timezone_csv.h inc/stdtime_stdint.h inc/stdtime_quadlib.h inc/stdtime_mms_utctime.h inc/stdtime_mms_btime.h inc/stdtime_enum_func.h inc/stdtime_enum_err.h inc/stdtime_endian.h inc/stdtime_config.h inc/stdtime.h inc/ssleLog.h inc/ssec_int.h inc/ssec.h inc/sock_log.h inc/smpval.h inc/smp_usr.h inc/smp_log.h inc/smp.h inc/Smem.h inc/slog.h inc/scrndefs.h inc/scl.h inc/rs_defs.h inc/rs_a.h inc/qmem.h inc/osillc.h inc/ntddosi.h inc/mvl_uca.h inc/mvl_log.h inc/mvl_defs.h inc/mvl_acse.h inc/mmslusec.h inc/mmslog.h inc/mmsldefs.h inc/mmsintr2.h inc/mmsefun.h inc/mmsdefs.h inc/mms_vvar.h inc/mms_pvmd.h inc/mms_pvar.h inc/mms_psem.h inc/mms_pprg.h inc/mms_pocs.h inc/mms_pjou.h inc/mms_pfil.h inc/mms_pevn.h inc/mms_perr.h inc/mms_pdom.h inc/mms_pcon.h inc/mms_mp.h inc/mms_log.h inc/mms_err.h inc/mms_dfun.h inc/mms_def2.h inc/mloguser.h inc/memlog.h inc/mem_chk.h inc/llcioctl.h inc/llcio.h inc/lean_a.h inc/gvaldefs.h inc/gse_mgmt.h inc/Goose.h inc/glbtypes.h inc/glbsem.h inc/glbopt.h inc/glberror.h inc/gensock2.h inc/gen_list.h inc/fkeydefs.h inc/ExceptionReport.h inc/ethsub.h inc/ethertyp.h inc/dibmatch.h inc/cosp_usr.h inc/cosp_log.h inc/cosp.h inc/copp_usr.h inc/copp_log.h inc/copp.h inc/conpack.h inc/clnpport.h inc/clnp_usr.h inc/clnp_tnt.h inc/clnp_sta.h inc/clnp_sne.h inc/clnp_log.h inc/clnp_llc.h inc/clnp.h inc/checksum.h inc/cfglog.h inc/cfg_util.h inc/asn1r.h inc/asn1log.h inc/asn1defs.h inc/arg.h inc/adlc_usr.h inc/adlc_sts.h inc/adlc_sm.h inc/adlc_log.h inc/adlc_dsm.h inc/adlc.h inc/acseauth.h inc/acse2usr.h inc/acse2log.h inc/acse2.h inc/mmsop_en/mmsop_en.h release/mmslib1.0.0/ && $(COPY_FILE) --parents mmslib.cpp asn1/asn1r.c asn1/are_vstr.c asn1/are_utc.c asn1/are_time.c asn1/are_ostr.c asn1/are_objd.c asn1/are_int.c asn1/are_flt.c asn1/are_delm.c asn1/are_btod.c asn1/are_bstr.c asn1/are_bool.c asn1/ard_vstr.c asn1/ard_utc.c asn1/ard_time.c asn1/ard_strn.c asn1/ard_ostr.c asn1/ard_objd.c asn1/ard_int.c asn1/ard_idnt.c asn1/ard_flt.c asn1/ard_delm.c asn1/ard_btod.c asn1/ard_bstr.c asn1/ard_bool.c mem/mem_chks.c mmsl/rs_write.c mmsl/rs_ustat.c mmsl/rs_trige.c mmsl/rs_stat.c mmsl/rs_repee.c mmsl/rs_repec.c mmsl/rs_repea.c mmsl/rs_read.c mmsl/rs_namel.c mmsl/rs_init.c mmsl/rs_info.c mmsl/rs_ident.c mmsl/rs_getvl.c mmsl/rs_getva.c mmsl/rs_getty.c mmsl/rs_getpi.c mmsl/rs_getee.c mmsl/rs_getec.c mmsl/rs_getea.c mmsl/rs_getdo.c mmsl/rs_getcl.c mmsl/rs_evnot.c mmsl/rs_defee.c mmsl/rs_concl.c mmsl/rs_cancl.c mmsl/rs_ackev.c mmsl/rq_write.c mmsl/rq_ustat.c mmsl/rq_trige.c mmsl/rq_stat.c mmsl/rq_repee.c mmsl/rq_repec.c mmsl/rq_repea.c mmsl/rq_read.c mmsl/rq_namel.c mmsl/rq_init.c mmsl/rq_info.c mmsl/rq_ident.c mmsl/rq_getvl.c mmsl/rq_getva.c mmsl/rq_getty.c mmsl/rq_getpi.c mmsl/rq_getee.c mmsl/rq_getec.c mmsl/rq_getea.c mmsl/rq_getdo.c mmsl/rq_getcl.c mmsl/rq_evnot.c mmsl/rq_defee.c mmsl/rq_concl.c mmsl/rq_cancl.c mmsl/rq_ackev.c mmsl/msdataas.c mmsl/ms_tdef4.c mmsl/ms_tdef2.c mmsl/ms_tdef.c mmsl/ms_size.c mmsl/ms_ext.c mmsl/mmsstat.c mmsl/mmslvar.c mmsl/mmsl_fin.c mmsl/mmsinit.c mmsl/mmsdtext.c mmsl/mmsdec.c mmsl/mmsdatat.c mmsl/mmsdata.c mmsl/mmsconcl.c mmsl/mmscancl.c mmsl/mms_tdef.c mmsl/mms_rtaa.c mmsl/mms_rej.c mmsl/mms_err4.c mmsl/mms_err3.c mmsl/mms_err2.c mmsl/mms_err.c mmsl/mms_ced7.c mmsl/mms_ced6.c mmsl/mms_ced5.c mmsl/mms_ced4.c mmsl/mms_ced3.c mmsl/mms_ced.c mmsl/mms_aref.c mmsl/mms_alta.c mmsl/mms_adl.c mmsle/rs_uploa.c mmsle/rs_termu.c mmsle/rs_termd.c mmsle/rs_takec.c mmsle/rs_store.c mmsle/rs_stop.c mmsle/rs_start.c mmsle/rs_rssta.c mmsle/rs_rspoo.c mmsle/rs_rsent.c mmsle/rs_resum.c mmsle/rs_reset.c mmsle/rs_renam.c mmsle/rs_relct.c mmsle/rs_rdupl.c mmsle/rs_rddwn.c mmsle/rs_outpu.c mmsle/rs_obtfi.c mmsle/rs_loadd.c mmsle/rs_kill.c mmsle/rs_jwrit.c mmsle/rs_jstat.c mmsle/rs_jread.c mmsle/rs_jinit.c mmsle/rs_jdele.c mmsle/rs_jcrea.c mmsle/rs_input.c mmsle/rs_initu.c mmsle/rs_initd.c mmsle/rs_getsc.c mmsle/rs_getas.c mmsle/rs_getae.c mmsle/rs_frena.c mmsle/rs_fread.c mmsle/rs_fopen.c mmsle/rs_fdir.c mmsle/rs_fdele.c mmsle/rs_fclos.c mmsle/rs_downl.c mmsle/rs_delvl.c mmsle/rs_delva.c mmsle/rs_delty.c mmsle/rs_delse.c mmsle/rs_delpi.c mmsle/rs_delee.c mmsle/rs_delec.c mmsle/rs_delea.c mmsle/rs_deldo.c mmsle/rs_defvl.c mmsle/rs_defva.c mmsle/rs_defty.c mmsle/rs_defse.c mmsle/rs_defsc.c mmsle/rs_defec.c mmsle/rs_defea.c mmsle/rs_crepi.c mmsle/rs_altee.c mmsle/rs_altec.c mmsle/rq_uploa.c mmsle/rq_termu.c mmsle/rq_termd.c mmsle/rq_takec.c mmsle/rq_store.c mmsle/rq_stop.c mmsle/rq_start.c mmsle/rq_rssta.c mmsle/rq_rspoo.c mmsle/rq_rsent.c mmsle/rq_resum.c mmsle/rq_reset.c mmsle/rq_renam.c mmsle/rq_relct.c mmsle/rq_rdupl.c mmsle/rq_rddwn.c mmsle/rq_outpu.c mmsle/rq_obtfi.c mmsle/rq_loadd.c mmsle/rq_kill.c mmsle/rq_jwrit.c mmsle/rq_jstat.c mmsle/rq_jread.c mmsle/rq_jinit.c mmsle/rq_jdele.c mmsle/rq_jcrea.c mmsle/rq_input.c mmsle/rq_initu.c mmsle/rq_initd.c mmsle/rq_getsc.c mmsle/rq_getas.c mmsle/rq_getae.c mmsle/rq_frena.c mmsle/rq_fread.c mmsle/rq_fopen.c mmsle/rq_fdir.c mmsle/rq_fdele.c mmsle/rq_fclos.c mmsle/rq_downl.c mmsle/rq_delvl.c mmsle/rq_delva.c mmsle/rq_delty.c mmsle/rq_delse.c mmsle/rq_delpi.c mmsle/rq_delee.c mmsle/rq_delec.c mmsle/rq_delea.c mmsle/rq_deldo.c mmsle/rq_defvl.c mmsle/rq_defva.c mmsle/rq_defty.c mmsle/rq_defse.c mmsle/rq_defsc.c mmsle/rq_defec.c mmsle/rq_defea.c mmsle/rq_crepi.c mmsle/rq_altee.c mmsle/rq_altec.c mmsle/mms_ced2.c mmsle/mms_ced1.c mvlu/sclproc.c mvlu/s_write.c mvlu/s_status.c mvlu/s_read.c mvlu/s_obtfi.c mvlu/s_jstat.c mvlu/s_jread.c mvlu/s_jinit.c mvlu/s_info.c mvlu/s_ident.c mvlu/s_getvla.c mvlu/s_getvaa.c mvlu/s_getnam.c mvlu/s_getdom.c mvlu/s_getcl.c mvlu/s_fren.c mvlu/s_fread.c mvlu/s_fopen.c mvlu/s_fdir.c mvlu/s_fdel.c mvlu/s_fclose.c mvlu/s_delvl.c mvlu/s_defvl.c mvlu/s_concl.c mvlu/s_cancel.c mvlu/mvluleaf.c mvlu/mvlu_sbo.c mvlu/mvlu_rt.c mvlu/mvlu_rpt.c mvlu/mvl61850_rpt.c mvlu/mvl61850_ctl.c mvlu/mvl61850.c mvlu/mvl_var.c mvlu/mvl_uca.c mvlu/mvl_type.c mvlu/mvl_typ2.c mvlu/mvl_serv.c mvlu/mvl_send.c mvlu/mvl_objb.c mvlu/mvl_obj.c mvlu/mvl_ijou.c mvlu/mvl_dtyp.c mvlu/mvl_buf.c mvlu/c_write.c mvlu/c_status.c mvlu/c_read.c mvlu/c_obtfi.c mvlu/c_jstat.c mvlu/c_jread.c mvlu/c_jinit.c mvlu/c_info.c mvlu/c_ident.c mvlu/c_getvla.c mvlu/c_getvar.c mvlu/c_getnam.c mvlu/c_getdom.c mvlu/c_fren.c mvlu/c_fread.c mvlu/c_fopen.c mvlu/c_fget.c mvlu/c_fdir.c mvlu/c_fdel.c mvlu/c_fclose.c mvlu/c_delvl.c mvlu/c_defvl.c mvlu/c_concl.c ositcps/tpx_dec.c ositcps/tp4port.c ositcps/tp4_enc.c ositcps/tp0main.c ositcps/tp0callg.c ositcps/tp0calld.c ositcps/tp0_socks.c ositcps/tp0_dec.c ositcps/osicfgx.c ositcps/lean_var.c ositcps/lean_cfg.c ositcps/cospmain.c ositcps/cosp_enc.c ositcps/cosp_dec.c ositcps/coppdcpr.c ositcps/coppdcp.c ositcps/coppdaru.c ositcps/copp_enc.c ositcps/copp_dec.c ositcps/checksum.c ositcps/acse2var.c ositcps/acse2enc.c ositcps/acse2dib.c ositcps/acse2dec.c slog/slogmem.c slog/slogipcs.c slog/sloghex.c slog/slogfil.c slog/slog.c slog/qmem.c ssec0/ssecusr0.c util/time_str.c util/sx_enc.c util/sx_dec.c util/sx_data.c util/sx_axs4d.c util/str_util.c util/stime.c util/stdtime_w32.c util/stdtime_quadlib.c util/stdtime_mms_utctime.c util/stdtime_mms_btime.c util/stdtime.c util/sclstore.c util/sclparse.c util/scl_log.c util/glbsem_unix.c util/glbsem.c util/gensock2.c util/genlists.c util/cfg_util.c release/mmslib1.0.0/ && (cd `dirname release/mmslib1.0.0` && $(TAR) mmslib1.0.0.tar mmslib1.0.0 && $(COMPRESS) mmslib1.0.0.tar) && $(MOVE) `dirname release/mmslib1.0.0`/mmslib1.0.0.tar.gz . && $(DEL_FILE) -r release/mmslib1.0.0 + + +clean:compiler_clean + -$(DEL_FILE) $(OBJECTS) + -$(DEL_FILE) *~ core *.core + + +####### Sub-libraries + +distclean: clean + -$(DEL_FILE) $(TARGET) + -$(DEL_FILE) Makefile.Release + + +check: first + +mocclean: compiler_moc_header_clean compiler_moc_source_clean + +mocables: compiler_moc_header_make_all compiler_moc_source_make_all + +compiler_moc_header_make_all: +compiler_moc_header_clean: +compiler_rcc_make_all: +compiler_rcc_clean: +compiler_image_collection_make_all: qmake_image_collection.cpp +compiler_image_collection_clean: + -$(DEL_FILE) qmake_image_collection.cpp +compiler_moc_source_make_all: +compiler_moc_source_clean: +compiler_uic_make_all: +compiler_uic_clean: +compiler_yacc_decl_make_all: +compiler_yacc_decl_clean: +compiler_yacc_impl_make_all: +compiler_yacc_impl_clean: +compiler_lex_make_all: +compiler_lex_clean: +compiler_clean: + +####### Compile + +release/mmslib.o: mmslib.cpp mmslib.h + $(CXX) -c $(CXXFLAGS) $(INCPATH) -o release/mmslib.o mmslib.cpp + +release/asn1r.o: asn1/asn1r.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/asn1r.o asn1/asn1r.c + +release/are_vstr.o: asn1/are_vstr.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/are_vstr.o asn1/are_vstr.c + +release/are_utc.o: asn1/are_utc.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/are_utc.o asn1/are_utc.c + +release/are_time.o: asn1/are_time.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/are_time.o asn1/are_time.c + +release/are_ostr.o: asn1/are_ostr.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/are_ostr.o asn1/are_ostr.c + +release/are_objd.o: asn1/are_objd.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/are_objd.o asn1/are_objd.c + +release/are_int.o: asn1/are_int.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/are_int.o asn1/are_int.c + +release/are_flt.o: asn1/are_flt.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/are_flt.o asn1/are_flt.c + +release/are_delm.o: asn1/are_delm.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/are_delm.o asn1/are_delm.c + +release/are_btod.o: asn1/are_btod.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/are_btod.o asn1/are_btod.c + +release/are_bstr.o: asn1/are_bstr.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/are_bstr.o asn1/are_bstr.c + +release/are_bool.o: asn1/are_bool.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/are_bool.o asn1/are_bool.c + +release/ard_vstr.o: asn1/ard_vstr.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/ard_vstr.o asn1/ard_vstr.c + +release/ard_utc.o: asn1/ard_utc.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/ard_utc.o asn1/ard_utc.c + +release/ard_time.o: asn1/ard_time.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/ard_time.o asn1/ard_time.c + +release/ard_strn.o: asn1/ard_strn.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/ard_strn.o asn1/ard_strn.c + +release/ard_ostr.o: asn1/ard_ostr.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/ard_ostr.o asn1/ard_ostr.c + +release/ard_objd.o: asn1/ard_objd.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/ard_objd.o asn1/ard_objd.c + +release/ard_int.o: asn1/ard_int.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/ard_int.o asn1/ard_int.c + +release/ard_idnt.o: asn1/ard_idnt.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/ard_idnt.o asn1/ard_idnt.c + +release/ard_flt.o: asn1/ard_flt.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/ard_flt.o asn1/ard_flt.c + +release/ard_delm.o: asn1/ard_delm.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/ard_delm.o asn1/ard_delm.c + +release/ard_btod.o: asn1/ard_btod.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/ard_btod.o asn1/ard_btod.c + +release/ard_bstr.o: asn1/ard_bstr.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/ard_bstr.o asn1/ard_bstr.c + +release/ard_bool.o: asn1/ard_bool.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/ard_bool.o asn1/ard_bool.c + +release/mem_chks.o: mem/mem_chks.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/mem_chks.o mem/mem_chks.c + +release/rs_write.o: mmsl/rs_write.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_write.o mmsl/rs_write.c + +release/rs_ustat.o: mmsl/rs_ustat.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_ustat.o mmsl/rs_ustat.c + +release/rs_trige.o: mmsl/rs_trige.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_trige.o mmsl/rs_trige.c + +release/rs_stat.o: mmsl/rs_stat.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_stat.o mmsl/rs_stat.c + +release/rs_repee.o: mmsl/rs_repee.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_repee.o mmsl/rs_repee.c + +release/rs_repec.o: mmsl/rs_repec.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_repec.o mmsl/rs_repec.c + +release/rs_repea.o: mmsl/rs_repea.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_repea.o mmsl/rs_repea.c + +release/rs_read.o: mmsl/rs_read.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_read.o mmsl/rs_read.c + +release/rs_namel.o: mmsl/rs_namel.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_namel.o mmsl/rs_namel.c + +release/rs_init.o: mmsl/rs_init.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_init.o mmsl/rs_init.c + +release/rs_info.o: mmsl/rs_info.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_info.o mmsl/rs_info.c + +release/rs_ident.o: mmsl/rs_ident.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_ident.o mmsl/rs_ident.c + +release/rs_getvl.o: mmsl/rs_getvl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_getvl.o mmsl/rs_getvl.c + +release/rs_getva.o: mmsl/rs_getva.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_getva.o mmsl/rs_getva.c + +release/rs_getty.o: mmsl/rs_getty.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_getty.o mmsl/rs_getty.c + +release/rs_getpi.o: mmsl/rs_getpi.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_getpi.o mmsl/rs_getpi.c + +release/rs_getee.o: mmsl/rs_getee.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_getee.o mmsl/rs_getee.c + +release/rs_getec.o: mmsl/rs_getec.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_getec.o mmsl/rs_getec.c + +release/rs_getea.o: mmsl/rs_getea.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_getea.o mmsl/rs_getea.c + +release/rs_getdo.o: mmsl/rs_getdo.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_getdo.o mmsl/rs_getdo.c + +release/rs_getcl.o: mmsl/rs_getcl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_getcl.o mmsl/rs_getcl.c + +release/rs_evnot.o: mmsl/rs_evnot.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_evnot.o mmsl/rs_evnot.c + +release/rs_defee.o: mmsl/rs_defee.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_defee.o mmsl/rs_defee.c + +release/rs_concl.o: mmsl/rs_concl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_concl.o mmsl/rs_concl.c + +release/rs_cancl.o: mmsl/rs_cancl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_cancl.o mmsl/rs_cancl.c + +release/rs_ackev.o: mmsl/rs_ackev.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_ackev.o mmsl/rs_ackev.c + +release/rq_write.o: mmsl/rq_write.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_write.o mmsl/rq_write.c + +release/rq_ustat.o: mmsl/rq_ustat.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_ustat.o mmsl/rq_ustat.c + +release/rq_trige.o: mmsl/rq_trige.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_trige.o mmsl/rq_trige.c + +release/rq_stat.o: mmsl/rq_stat.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_stat.o mmsl/rq_stat.c + +release/rq_repee.o: mmsl/rq_repee.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_repee.o mmsl/rq_repee.c + +release/rq_repec.o: mmsl/rq_repec.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_repec.o mmsl/rq_repec.c + +release/rq_repea.o: mmsl/rq_repea.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_repea.o mmsl/rq_repea.c + +release/rq_read.o: mmsl/rq_read.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_read.o mmsl/rq_read.c + +release/rq_namel.o: mmsl/rq_namel.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_namel.o mmsl/rq_namel.c + +release/rq_init.o: mmsl/rq_init.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_init.o mmsl/rq_init.c + +release/rq_info.o: mmsl/rq_info.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_info.o mmsl/rq_info.c + +release/rq_ident.o: mmsl/rq_ident.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_ident.o mmsl/rq_ident.c + +release/rq_getvl.o: mmsl/rq_getvl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_getvl.o mmsl/rq_getvl.c + +release/rq_getva.o: mmsl/rq_getva.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_getva.o mmsl/rq_getva.c + +release/rq_getty.o: mmsl/rq_getty.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_getty.o mmsl/rq_getty.c + +release/rq_getpi.o: mmsl/rq_getpi.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_getpi.o mmsl/rq_getpi.c + +release/rq_getee.o: mmsl/rq_getee.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_getee.o mmsl/rq_getee.c + +release/rq_getec.o: mmsl/rq_getec.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_getec.o mmsl/rq_getec.c + +release/rq_getea.o: mmsl/rq_getea.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_getea.o mmsl/rq_getea.c + +release/rq_getdo.o: mmsl/rq_getdo.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_getdo.o mmsl/rq_getdo.c + +release/rq_getcl.o: mmsl/rq_getcl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_getcl.o mmsl/rq_getcl.c + +release/rq_evnot.o: mmsl/rq_evnot.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_evnot.o mmsl/rq_evnot.c + +release/rq_defee.o: mmsl/rq_defee.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_defee.o mmsl/rq_defee.c + +release/rq_concl.o: mmsl/rq_concl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_concl.o mmsl/rq_concl.c + +release/rq_cancl.o: mmsl/rq_cancl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_cancl.o mmsl/rq_cancl.c + +release/rq_ackev.o: mmsl/rq_ackev.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_ackev.o mmsl/rq_ackev.c + +release/msdataas.o: mmsl/msdataas.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/msdataas.o mmsl/msdataas.c + +release/ms_tdef4.o: mmsl/ms_tdef4.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/ms_tdef4.o mmsl/ms_tdef4.c + +release/ms_tdef2.o: mmsl/ms_tdef2.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/ms_tdef2.o mmsl/ms_tdef2.c + +release/ms_tdef.o: mmsl/ms_tdef.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/ms_tdef.o mmsl/ms_tdef.c + +release/ms_size.o: mmsl/ms_size.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/ms_size.o mmsl/ms_size.c + +release/ms_ext.o: mmsl/ms_ext.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/ms_ext.o mmsl/ms_ext.c + +release/mmsstat.o: mmsl/mmsstat.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/mmsstat.o mmsl/mmsstat.c + +release/mmslvar.o: mmsl/mmslvar.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/mmslvar.o mmsl/mmslvar.c + +release/mmsl_fin.o: mmsl/mmsl_fin.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/mmsl_fin.o mmsl/mmsl_fin.c + +release/mmsinit.o: mmsl/mmsinit.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/mmsinit.o mmsl/mmsinit.c + +release/mmsdtext.o: mmsl/mmsdtext.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/mmsdtext.o mmsl/mmsdtext.c + +release/mmsdec.o: mmsl/mmsdec.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/mmsdec.o mmsl/mmsdec.c + +release/mmsdatat.o: mmsl/mmsdatat.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/mmsdatat.o mmsl/mmsdatat.c + +release/mmsdata.o: mmsl/mmsdata.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/mmsdata.o mmsl/mmsdata.c + +release/mmsconcl.o: mmsl/mmsconcl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/mmsconcl.o mmsl/mmsconcl.c + +release/mmscancl.o: mmsl/mmscancl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/mmscancl.o mmsl/mmscancl.c + +release/mms_tdef.o: mmsl/mms_tdef.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/mms_tdef.o mmsl/mms_tdef.c + +release/mms_rtaa.o: mmsl/mms_rtaa.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/mms_rtaa.o mmsl/mms_rtaa.c + +release/mms_rej.o: mmsl/mms_rej.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/mms_rej.o mmsl/mms_rej.c + +release/mms_err4.o: mmsl/mms_err4.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/mms_err4.o mmsl/mms_err4.c + +release/mms_err3.o: mmsl/mms_err3.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/mms_err3.o mmsl/mms_err3.c + +release/mms_err2.o: mmsl/mms_err2.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/mms_err2.o mmsl/mms_err2.c + +release/mms_err.o: mmsl/mms_err.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/mms_err.o mmsl/mms_err.c + +release/mms_ced7.o: mmsl/mms_ced7.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/mms_ced7.o mmsl/mms_ced7.c + +release/mms_ced6.o: mmsl/mms_ced6.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/mms_ced6.o mmsl/mms_ced6.c + +release/mms_ced5.o: mmsl/mms_ced5.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/mms_ced5.o mmsl/mms_ced5.c + +release/mms_ced4.o: mmsl/mms_ced4.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/mms_ced4.o mmsl/mms_ced4.c + +release/mms_ced3.o: mmsl/mms_ced3.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/mms_ced3.o mmsl/mms_ced3.c + +release/mms_ced.o: mmsl/mms_ced.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/mms_ced.o mmsl/mms_ced.c + +release/mms_aref.o: mmsl/mms_aref.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/mms_aref.o mmsl/mms_aref.c + +release/mms_alta.o: mmsl/mms_alta.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/mms_alta.o mmsl/mms_alta.c + +release/mms_adl.o: mmsl/mms_adl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/mms_adl.o mmsl/mms_adl.c + +release/rs_uploa.o: mmsle/rs_uploa.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_uploa.o mmsle/rs_uploa.c + +release/rs_termu.o: mmsle/rs_termu.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_termu.o mmsle/rs_termu.c + +release/rs_termd.o: mmsle/rs_termd.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_termd.o mmsle/rs_termd.c + +release/rs_takec.o: mmsle/rs_takec.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_takec.o mmsle/rs_takec.c + +release/rs_store.o: mmsle/rs_store.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_store.o mmsle/rs_store.c + +release/rs_stop.o: mmsle/rs_stop.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_stop.o mmsle/rs_stop.c + +release/rs_start.o: mmsle/rs_start.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_start.o mmsle/rs_start.c + +release/rs_rssta.o: mmsle/rs_rssta.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_rssta.o mmsle/rs_rssta.c + +release/rs_rspoo.o: mmsle/rs_rspoo.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_rspoo.o mmsle/rs_rspoo.c + +release/rs_rsent.o: mmsle/rs_rsent.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_rsent.o mmsle/rs_rsent.c + +release/rs_resum.o: mmsle/rs_resum.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_resum.o mmsle/rs_resum.c + +release/rs_reset.o: mmsle/rs_reset.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_reset.o mmsle/rs_reset.c + +release/rs_renam.o: mmsle/rs_renam.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_renam.o mmsle/rs_renam.c + +release/rs_relct.o: mmsle/rs_relct.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_relct.o mmsle/rs_relct.c + +release/rs_rdupl.o: mmsle/rs_rdupl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_rdupl.o mmsle/rs_rdupl.c + +release/rs_rddwn.o: mmsle/rs_rddwn.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_rddwn.o mmsle/rs_rddwn.c + +release/rs_outpu.o: mmsle/rs_outpu.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_outpu.o mmsle/rs_outpu.c + +release/rs_obtfi.o: mmsle/rs_obtfi.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_obtfi.o mmsle/rs_obtfi.c + +release/rs_loadd.o: mmsle/rs_loadd.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_loadd.o mmsle/rs_loadd.c + +release/rs_kill.o: mmsle/rs_kill.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_kill.o mmsle/rs_kill.c + +release/rs_jwrit.o: mmsle/rs_jwrit.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_jwrit.o mmsle/rs_jwrit.c + +release/rs_jstat.o: mmsle/rs_jstat.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_jstat.o mmsle/rs_jstat.c + +release/rs_jread.o: mmsle/rs_jread.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_jread.o mmsle/rs_jread.c + +release/rs_jinit.o: mmsle/rs_jinit.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_jinit.o mmsle/rs_jinit.c + +release/rs_jdele.o: mmsle/rs_jdele.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_jdele.o mmsle/rs_jdele.c + +release/rs_jcrea.o: mmsle/rs_jcrea.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_jcrea.o mmsle/rs_jcrea.c + +release/rs_input.o: mmsle/rs_input.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_input.o mmsle/rs_input.c + +release/rs_initu.o: mmsle/rs_initu.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_initu.o mmsle/rs_initu.c + +release/rs_initd.o: mmsle/rs_initd.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_initd.o mmsle/rs_initd.c + +release/rs_getsc.o: mmsle/rs_getsc.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_getsc.o mmsle/rs_getsc.c + +release/rs_getas.o: mmsle/rs_getas.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_getas.o mmsle/rs_getas.c + +release/rs_getae.o: mmsle/rs_getae.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_getae.o mmsle/rs_getae.c + +release/rs_frena.o: mmsle/rs_frena.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_frena.o mmsle/rs_frena.c + +release/rs_fread.o: mmsle/rs_fread.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_fread.o mmsle/rs_fread.c + +release/rs_fopen.o: mmsle/rs_fopen.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_fopen.o mmsle/rs_fopen.c + +release/rs_fdir.o: mmsle/rs_fdir.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_fdir.o mmsle/rs_fdir.c + +release/rs_fdele.o: mmsle/rs_fdele.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_fdele.o mmsle/rs_fdele.c + +release/rs_fclos.o: mmsle/rs_fclos.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_fclos.o mmsle/rs_fclos.c + +release/rs_downl.o: mmsle/rs_downl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_downl.o mmsle/rs_downl.c + +release/rs_delvl.o: mmsle/rs_delvl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_delvl.o mmsle/rs_delvl.c + +release/rs_delva.o: mmsle/rs_delva.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_delva.o mmsle/rs_delva.c + +release/rs_delty.o: mmsle/rs_delty.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_delty.o mmsle/rs_delty.c + +release/rs_delse.o: mmsle/rs_delse.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_delse.o mmsle/rs_delse.c + +release/rs_delpi.o: mmsle/rs_delpi.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_delpi.o mmsle/rs_delpi.c + +release/rs_delee.o: mmsle/rs_delee.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_delee.o mmsle/rs_delee.c + +release/rs_delec.o: mmsle/rs_delec.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_delec.o mmsle/rs_delec.c + +release/rs_delea.o: mmsle/rs_delea.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_delea.o mmsle/rs_delea.c + +release/rs_deldo.o: mmsle/rs_deldo.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_deldo.o mmsle/rs_deldo.c + +release/rs_defvl.o: mmsle/rs_defvl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_defvl.o mmsle/rs_defvl.c + +release/rs_defva.o: mmsle/rs_defva.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_defva.o mmsle/rs_defva.c + +release/rs_defty.o: mmsle/rs_defty.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_defty.o mmsle/rs_defty.c + +release/rs_defse.o: mmsle/rs_defse.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_defse.o mmsle/rs_defse.c + +release/rs_defsc.o: mmsle/rs_defsc.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_defsc.o mmsle/rs_defsc.c + +release/rs_defec.o: mmsle/rs_defec.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_defec.o mmsle/rs_defec.c + +release/rs_defea.o: mmsle/rs_defea.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_defea.o mmsle/rs_defea.c + +release/rs_crepi.o: mmsle/rs_crepi.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_crepi.o mmsle/rs_crepi.c + +release/rs_altee.o: mmsle/rs_altee.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_altee.o mmsle/rs_altee.c + +release/rs_altec.o: mmsle/rs_altec.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rs_altec.o mmsle/rs_altec.c + +release/rq_uploa.o: mmsle/rq_uploa.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_uploa.o mmsle/rq_uploa.c + +release/rq_termu.o: mmsle/rq_termu.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_termu.o mmsle/rq_termu.c + +release/rq_termd.o: mmsle/rq_termd.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_termd.o mmsle/rq_termd.c + +release/rq_takec.o: mmsle/rq_takec.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_takec.o mmsle/rq_takec.c + +release/rq_store.o: mmsle/rq_store.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_store.o mmsle/rq_store.c + +release/rq_stop.o: mmsle/rq_stop.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_stop.o mmsle/rq_stop.c + +release/rq_start.o: mmsle/rq_start.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_start.o mmsle/rq_start.c + +release/rq_rssta.o: mmsle/rq_rssta.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_rssta.o mmsle/rq_rssta.c + +release/rq_rspoo.o: mmsle/rq_rspoo.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_rspoo.o mmsle/rq_rspoo.c + +release/rq_rsent.o: mmsle/rq_rsent.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_rsent.o mmsle/rq_rsent.c + +release/rq_resum.o: mmsle/rq_resum.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_resum.o mmsle/rq_resum.c + +release/rq_reset.o: mmsle/rq_reset.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_reset.o mmsle/rq_reset.c + +release/rq_renam.o: mmsle/rq_renam.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_renam.o mmsle/rq_renam.c + +release/rq_relct.o: mmsle/rq_relct.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_relct.o mmsle/rq_relct.c + +release/rq_rdupl.o: mmsle/rq_rdupl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_rdupl.o mmsle/rq_rdupl.c + +release/rq_rddwn.o: mmsle/rq_rddwn.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_rddwn.o mmsle/rq_rddwn.c + +release/rq_outpu.o: mmsle/rq_outpu.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_outpu.o mmsle/rq_outpu.c + +release/rq_obtfi.o: mmsle/rq_obtfi.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_obtfi.o mmsle/rq_obtfi.c + +release/rq_loadd.o: mmsle/rq_loadd.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_loadd.o mmsle/rq_loadd.c + +release/rq_kill.o: mmsle/rq_kill.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_kill.o mmsle/rq_kill.c + +release/rq_jwrit.o: mmsle/rq_jwrit.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_jwrit.o mmsle/rq_jwrit.c + +release/rq_jstat.o: mmsle/rq_jstat.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_jstat.o mmsle/rq_jstat.c + +release/rq_jread.o: mmsle/rq_jread.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_jread.o mmsle/rq_jread.c + +release/rq_jinit.o: mmsle/rq_jinit.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_jinit.o mmsle/rq_jinit.c + +release/rq_jdele.o: mmsle/rq_jdele.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_jdele.o mmsle/rq_jdele.c + +release/rq_jcrea.o: mmsle/rq_jcrea.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_jcrea.o mmsle/rq_jcrea.c + +release/rq_input.o: mmsle/rq_input.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_input.o mmsle/rq_input.c + +release/rq_initu.o: mmsle/rq_initu.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_initu.o mmsle/rq_initu.c + +release/rq_initd.o: mmsle/rq_initd.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_initd.o mmsle/rq_initd.c + +release/rq_getsc.o: mmsle/rq_getsc.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_getsc.o mmsle/rq_getsc.c + +release/rq_getas.o: mmsle/rq_getas.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_getas.o mmsle/rq_getas.c + +release/rq_getae.o: mmsle/rq_getae.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_getae.o mmsle/rq_getae.c + +release/rq_frena.o: mmsle/rq_frena.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_frena.o mmsle/rq_frena.c + +release/rq_fread.o: mmsle/rq_fread.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_fread.o mmsle/rq_fread.c + +release/rq_fopen.o: mmsle/rq_fopen.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_fopen.o mmsle/rq_fopen.c + +release/rq_fdir.o: mmsle/rq_fdir.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_fdir.o mmsle/rq_fdir.c + +release/rq_fdele.o: mmsle/rq_fdele.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_fdele.o mmsle/rq_fdele.c + +release/rq_fclos.o: mmsle/rq_fclos.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_fclos.o mmsle/rq_fclos.c + +release/rq_downl.o: mmsle/rq_downl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_downl.o mmsle/rq_downl.c + +release/rq_delvl.o: mmsle/rq_delvl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_delvl.o mmsle/rq_delvl.c + +release/rq_delva.o: mmsle/rq_delva.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_delva.o mmsle/rq_delva.c + +release/rq_delty.o: mmsle/rq_delty.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_delty.o mmsle/rq_delty.c + +release/rq_delse.o: mmsle/rq_delse.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_delse.o mmsle/rq_delse.c + +release/rq_delpi.o: mmsle/rq_delpi.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_delpi.o mmsle/rq_delpi.c + +release/rq_delee.o: mmsle/rq_delee.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_delee.o mmsle/rq_delee.c + +release/rq_delec.o: mmsle/rq_delec.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_delec.o mmsle/rq_delec.c + +release/rq_delea.o: mmsle/rq_delea.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_delea.o mmsle/rq_delea.c + +release/rq_deldo.o: mmsle/rq_deldo.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_deldo.o mmsle/rq_deldo.c + +release/rq_defvl.o: mmsle/rq_defvl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_defvl.o mmsle/rq_defvl.c + +release/rq_defva.o: mmsle/rq_defva.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_defva.o mmsle/rq_defva.c + +release/rq_defty.o: mmsle/rq_defty.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_defty.o mmsle/rq_defty.c + +release/rq_defse.o: mmsle/rq_defse.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_defse.o mmsle/rq_defse.c + +release/rq_defsc.o: mmsle/rq_defsc.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_defsc.o mmsle/rq_defsc.c + +release/rq_defec.o: mmsle/rq_defec.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_defec.o mmsle/rq_defec.c + +release/rq_defea.o: mmsle/rq_defea.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_defea.o mmsle/rq_defea.c + +release/rq_crepi.o: mmsle/rq_crepi.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_crepi.o mmsle/rq_crepi.c + +release/rq_altee.o: mmsle/rq_altee.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_altee.o mmsle/rq_altee.c + +release/rq_altec.o: mmsle/rq_altec.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/rq_altec.o mmsle/rq_altec.c + +release/mms_ced2.o: mmsle/mms_ced2.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/mms_ced2.o mmsle/mms_ced2.c + +release/mms_ced1.o: mmsle/mms_ced1.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/mms_ced1.o mmsle/mms_ced1.c + +release/sclproc.o: mvlu/sclproc.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/sclproc.o mvlu/sclproc.c + +release/s_write.o: mvlu/s_write.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/s_write.o mvlu/s_write.c + +release/s_status.o: mvlu/s_status.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/s_status.o mvlu/s_status.c + +release/s_read.o: mvlu/s_read.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/s_read.o mvlu/s_read.c + +release/s_obtfi.o: mvlu/s_obtfi.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/s_obtfi.o mvlu/s_obtfi.c + +release/s_jstat.o: mvlu/s_jstat.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/s_jstat.o mvlu/s_jstat.c + +release/s_jread.o: mvlu/s_jread.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/s_jread.o mvlu/s_jread.c + +release/s_jinit.o: mvlu/s_jinit.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/s_jinit.o mvlu/s_jinit.c + +release/s_info.o: mvlu/s_info.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/s_info.o mvlu/s_info.c + +release/s_ident.o: mvlu/s_ident.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/s_ident.o mvlu/s_ident.c + +release/s_getvla.o: mvlu/s_getvla.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/s_getvla.o mvlu/s_getvla.c + +release/s_getvaa.o: mvlu/s_getvaa.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/s_getvaa.o mvlu/s_getvaa.c + +release/s_getnam.o: mvlu/s_getnam.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/s_getnam.o mvlu/s_getnam.c + +release/s_getdom.o: mvlu/s_getdom.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/s_getdom.o mvlu/s_getdom.c + +release/s_getcl.o: mvlu/s_getcl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/s_getcl.o mvlu/s_getcl.c + +release/s_fren.o: mvlu/s_fren.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/s_fren.o mvlu/s_fren.c + +release/s_fread.o: mvlu/s_fread.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/s_fread.o mvlu/s_fread.c + +release/s_fopen.o: mvlu/s_fopen.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/s_fopen.o mvlu/s_fopen.c + +release/s_fdir.o: mvlu/s_fdir.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/s_fdir.o mvlu/s_fdir.c + +release/s_fdel.o: mvlu/s_fdel.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/s_fdel.o mvlu/s_fdel.c + +release/s_fclose.o: mvlu/s_fclose.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/s_fclose.o mvlu/s_fclose.c + +release/s_delvl.o: mvlu/s_delvl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/s_delvl.o mvlu/s_delvl.c + +release/s_defvl.o: mvlu/s_defvl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/s_defvl.o mvlu/s_defvl.c + +release/s_concl.o: mvlu/s_concl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/s_concl.o mvlu/s_concl.c + +release/s_cancel.o: mvlu/s_cancel.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/s_cancel.o mvlu/s_cancel.c + +release/mvluleaf.o: mvlu/mvluleaf.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/mvluleaf.o mvlu/mvluleaf.c + +release/mvlu_sbo.o: mvlu/mvlu_sbo.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/mvlu_sbo.o mvlu/mvlu_sbo.c + +release/mvlu_rt.o: mvlu/mvlu_rt.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/mvlu_rt.o mvlu/mvlu_rt.c + +release/mvlu_rpt.o: mvlu/mvlu_rpt.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/mvlu_rpt.o mvlu/mvlu_rpt.c + +release/mvl61850_rpt.o: mvlu/mvl61850_rpt.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/mvl61850_rpt.o mvlu/mvl61850_rpt.c + +release/mvl61850_ctl.o: mvlu/mvl61850_ctl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/mvl61850_ctl.o mvlu/mvl61850_ctl.c + +release/mvl61850.o: mvlu/mvl61850.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/mvl61850.o mvlu/mvl61850.c + +release/mvl_var.o: mvlu/mvl_var.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/mvl_var.o mvlu/mvl_var.c + +release/mvl_uca.o: mvlu/mvl_uca.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/mvl_uca.o mvlu/mvl_uca.c + +release/mvl_type.o: mvlu/mvl_type.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/mvl_type.o mvlu/mvl_type.c + +release/mvl_typ2.o: mvlu/mvl_typ2.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/mvl_typ2.o mvlu/mvl_typ2.c + +release/mvl_serv.o: mvlu/mvl_serv.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/mvl_serv.o mvlu/mvl_serv.c + +release/mvl_send.o: mvlu/mvl_send.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/mvl_send.o mvlu/mvl_send.c + +release/mvl_objb.o: mvlu/mvl_objb.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/mvl_objb.o mvlu/mvl_objb.c + +release/mvl_obj.o: mvlu/mvl_obj.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/mvl_obj.o mvlu/mvl_obj.c + +release/mvl_ijou.o: mvlu/mvl_ijou.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/mvl_ijou.o mvlu/mvl_ijou.c + +release/mvl_dtyp.o: mvlu/mvl_dtyp.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/mvl_dtyp.o mvlu/mvl_dtyp.c + +release/mvl_buf.o: mvlu/mvl_buf.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/mvl_buf.o mvlu/mvl_buf.c + +release/c_write.o: mvlu/c_write.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/c_write.o mvlu/c_write.c + +release/c_status.o: mvlu/c_status.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/c_status.o mvlu/c_status.c + +release/c_read.o: mvlu/c_read.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/c_read.o mvlu/c_read.c + +release/c_obtfi.o: mvlu/c_obtfi.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/c_obtfi.o mvlu/c_obtfi.c + +release/c_jstat.o: mvlu/c_jstat.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/c_jstat.o mvlu/c_jstat.c + +release/c_jread.o: mvlu/c_jread.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/c_jread.o mvlu/c_jread.c + +release/c_jinit.o: mvlu/c_jinit.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/c_jinit.o mvlu/c_jinit.c + +release/c_info.o: mvlu/c_info.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/c_info.o mvlu/c_info.c + +release/c_ident.o: mvlu/c_ident.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/c_ident.o mvlu/c_ident.c + +release/c_getvla.o: mvlu/c_getvla.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/c_getvla.o mvlu/c_getvla.c + +release/c_getvar.o: mvlu/c_getvar.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/c_getvar.o mvlu/c_getvar.c + +release/c_getnam.o: mvlu/c_getnam.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/c_getnam.o mvlu/c_getnam.c + +release/c_getdom.o: mvlu/c_getdom.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/c_getdom.o mvlu/c_getdom.c + +release/c_fren.o: mvlu/c_fren.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/c_fren.o mvlu/c_fren.c + +release/c_fread.o: mvlu/c_fread.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/c_fread.o mvlu/c_fread.c + +release/c_fopen.o: mvlu/c_fopen.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/c_fopen.o mvlu/c_fopen.c + +release/c_fget.o: mvlu/c_fget.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/c_fget.o mvlu/c_fget.c + +release/c_fdir.o: mvlu/c_fdir.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/c_fdir.o mvlu/c_fdir.c + +release/c_fdel.o: mvlu/c_fdel.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/c_fdel.o mvlu/c_fdel.c + +release/c_fclose.o: mvlu/c_fclose.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/c_fclose.o mvlu/c_fclose.c + +release/c_delvl.o: mvlu/c_delvl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/c_delvl.o mvlu/c_delvl.c + +release/c_defvl.o: mvlu/c_defvl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/c_defvl.o mvlu/c_defvl.c + +release/c_concl.o: mvlu/c_concl.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/c_concl.o mvlu/c_concl.c + +release/tpx_dec.o: ositcps/tpx_dec.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/tpx_dec.o ositcps/tpx_dec.c + +release/tp4port.o: ositcps/tp4port.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/tp4port.o ositcps/tp4port.c + +release/tp4_enc.o: ositcps/tp4_enc.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/tp4_enc.o ositcps/tp4_enc.c + +release/tp0main.o: ositcps/tp0main.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/tp0main.o ositcps/tp0main.c + +release/tp0callg.o: ositcps/tp0callg.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/tp0callg.o ositcps/tp0callg.c + +release/tp0calld.o: ositcps/tp0calld.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/tp0calld.o ositcps/tp0calld.c + +release/tp0_socks.o: ositcps/tp0_socks.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/tp0_socks.o ositcps/tp0_socks.c + +release/tp0_dec.o: ositcps/tp0_dec.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/tp0_dec.o ositcps/tp0_dec.c + +release/osicfgx.o: ositcps/osicfgx.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/osicfgx.o ositcps/osicfgx.c + +release/lean_var.o: ositcps/lean_var.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/lean_var.o ositcps/lean_var.c + +release/lean_cfg.o: ositcps/lean_cfg.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/lean_cfg.o ositcps/lean_cfg.c + +release/cospmain.o: ositcps/cospmain.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/cospmain.o ositcps/cospmain.c + +release/cosp_enc.o: ositcps/cosp_enc.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/cosp_enc.o ositcps/cosp_enc.c + +release/cosp_dec.o: ositcps/cosp_dec.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/cosp_dec.o ositcps/cosp_dec.c + +release/coppdcpr.o: ositcps/coppdcpr.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/coppdcpr.o ositcps/coppdcpr.c + +release/coppdcp.o: ositcps/coppdcp.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/coppdcp.o ositcps/coppdcp.c + +release/coppdaru.o: ositcps/coppdaru.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/coppdaru.o ositcps/coppdaru.c + +release/copp_enc.o: ositcps/copp_enc.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/copp_enc.o ositcps/copp_enc.c + +release/copp_dec.o: ositcps/copp_dec.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/copp_dec.o ositcps/copp_dec.c + +release/checksum.o: ositcps/checksum.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/checksum.o ositcps/checksum.c + +release/acse2var.o: ositcps/acse2var.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/acse2var.o ositcps/acse2var.c + +release/acse2enc.o: ositcps/acse2enc.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/acse2enc.o ositcps/acse2enc.c + +release/acse2dib.o: ositcps/acse2dib.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/acse2dib.o ositcps/acse2dib.c + +release/acse2dec.o: ositcps/acse2dec.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/acse2dec.o ositcps/acse2dec.c + +release/slogmem.o: slog/slogmem.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/slogmem.o slog/slogmem.c + +release/slogipcs.o: slog/slogipcs.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/slogipcs.o slog/slogipcs.c + +release/sloghex.o: slog/sloghex.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/sloghex.o slog/sloghex.c + +release/slogfil.o: slog/slogfil.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/slogfil.o slog/slogfil.c + +release/slog.o: slog/slog.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/slog.o slog/slog.c + +release/qmem.o: slog/qmem.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/qmem.o slog/qmem.c + +release/ssecusr0.o: ssec0/ssecusr0.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/ssecusr0.o ssec0/ssecusr0.c + +release/time_str.o: util/time_str.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/time_str.o util/time_str.c + +release/sx_enc.o: util/sx_enc.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/sx_enc.o util/sx_enc.c + +release/sx_dec.o: util/sx_dec.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/sx_dec.o util/sx_dec.c + +release/sx_data.o: util/sx_data.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/sx_data.o util/sx_data.c + +release/sx_axs4d.o: util/sx_axs4d.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/sx_axs4d.o util/sx_axs4d.c + +release/str_util.o: util/str_util.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/str_util.o util/str_util.c + +release/stime.o: util/stime.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/stime.o util/stime.c + +release/stdtime_w32.o: util/stdtime_w32.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/stdtime_w32.o util/stdtime_w32.c + +release/stdtime_quadlib.o: util/stdtime_quadlib.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/stdtime_quadlib.o util/stdtime_quadlib.c + +release/stdtime_mms_utctime.o: util/stdtime_mms_utctime.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/stdtime_mms_utctime.o util/stdtime_mms_utctime.c + +release/stdtime_mms_btime.o: util/stdtime_mms_btime.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/stdtime_mms_btime.o util/stdtime_mms_btime.c + +release/stdtime.o: util/stdtime.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/stdtime.o util/stdtime.c + +release/sclstore.o: util/sclstore.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/sclstore.o util/sclstore.c + +release/sclparse.o: util/sclparse.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/sclparse.o util/sclparse.c + +release/scl_log.o: util/scl_log.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/scl_log.o util/scl_log.c + +release/glbsem_unix.o: util/glbsem_unix.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/glbsem_unix.o util/glbsem_unix.c + +release/glbsem.o: util/glbsem.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/glbsem.o util/glbsem.c + +release/gensock2.o: util/gensock2.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/gensock2.o util/gensock2.c + +release/genlists.o: util/genlists.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/genlists.o util/genlists.c + +release/cfg_util.o: util/cfg_util.c + $(CC) -c $(CFLAGS) $(INCPATH) -o release/cfg_util.o util/cfg_util.c + +####### Install + +install_target: first FORCE + @$(CHK_DIR_EXISTS) $(INSTALL_ROOT)/usr/lib/ || $(MKDIR) $(INSTALL_ROOT)/usr/lib/ + -$(INSTALL_FILE) "$(TARGET)" "$(INSTALL_ROOT)/usr/lib/$(TARGET)" + +uninstall_target: FORCE + -$(DEL_FILE) "$(INSTALL_ROOT)/usr/lib/$(TARGET)" + -$(DEL_DIR) $(INSTALL_ROOT)/usr/lib/ + + +install: install_target FORCE + +uninstall: uninstall_target FORCE + +FORCE: + diff --git a/mmslib/asn1/ard_bool.c b/mmslib/asn1/ard_bool.c new file mode 100644 index 0000000..327119f --- /dev/null +++ b/mmslib/asn1/ard_bool.c @@ -0,0 +1,65 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : ard_bool.c */ +/* PRODUCT(S) : ASN1DE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 03 Chg ASN1_CTXT to ASN1_DEC_CTXT. */ +/* 09/13/99 MDE 02 Added SD_CONST modifiers */ +/* 07/26/99 MDE 01 New module, derived from ard_bool.c */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "asn1r.h" +#include "asn1log.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ +/* get_bool */ +/* Function to read an ASN.1 ST_BOOLEAN from a message being decoded */ +/* Returns 0 if OK, non-zero if error. */ +/************************************************************************/ + +ST_RET asn1r_get_bool (ASN1_DEC_CTXT *ac, ST_BOOLEAN *ptr) + { +#ifdef DEBUG_ASN1_DECODE + if (!ptr) + { + slogCallStack (sLogCtrl, + "get_bool: attempt to reference through a NULL pointer"); + return(SD_FAILURE); + } +#endif + + if (ac->asn1r_elmnt_len != 1) + { + ALOG_NERR0 ("ASN.1 decode: Boolean length not == 1"); + return (SD_FAILURE); + } + + *ptr = (ST_BOOLEAN) *(ac->asn1r_field_ptr++); + return (SD_SUCCESS); + } + diff --git a/mmslib/asn1/ard_bstr.c b/mmslib/asn1/ard_bstr.c new file mode 100644 index 0000000..c79d91d --- /dev/null +++ b/mmslib/asn1/ard_bstr.c @@ -0,0 +1,242 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : ard_bstr.c */ +/* PRODUCT(S) : ASN1DE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 07/21/09 JRB 12 Set asn1r_bitstr_truncated flag for primitive*/ +/* OR constructed bitstring. */ +/* 07/21/09 JRB 11 Constructed bitstr code: enable it ALWAYS, */ +/* overhaul to make sure segments are multiples */ +/* of 8 bits, fix it to truncate. */ +/* 07/07/09 JRB 10 asn1r_get_bitstr: fix bitcount if truncated. */ +/* 04/21/08 JRB 09 Add cast to fix warning. */ +/* 03/17/04 RKR 08 Changed thisFileName */ +/* 03/11/04 GLB 07 Remove "thisFileName" */ +/* 03/31/03 JRB 06 asn1r_get_bitstr: add max_bits arg & truncate*/ +/* bitstr if max_bits exceeded. */ +/* 03/05/02 JRB 05 Eliminate warnings. */ +/* 12/20/01 JRB 04 Chg ASN1_CTXT to ASN1_DEC_CTXT. */ +/* 12/12/01 JRB 03 Changes to compile MMS-EASE */ +/* 09/13/99 MDE 02 Added SD_CONST modifiers */ +/* 07/26/99 MDE 01 New module, derived from ard_bstr.c */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "asn1r.h" +#include "asn1log.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#if defined(DEBUG_SISCO) +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/************************************************************************/ + +static ST_VOID _dec_bitstr_cstr (ASN1_DEC_CTXT *ac, ST_UINT16 id_code); + +/************************************************************************/ +/* get_bitstr */ +/* Function to read a primitive bitstring from an ASN.1 message. */ +/* Truncate bitstring if it exceeds "max_bits". */ +/************************************************************************/ + +ST_RET asn1r_get_bitstr (ASN1_DEC_CTXT *ac, ST_UCHAR *bit_ptr, ST_INT max_bits) + { +ST_INT i; + +#ifdef DEBUG_ASN1_DECODE + if (!bit_ptr) + { + slogCallStack (sLogCtrl, + "get_: attempt to reference through a NULL pointer"); + return(SD_FAILURE); + } +#endif + + ac->asn1r_bitstr_truncated = SD_FALSE; /* CRITICAL: init "truncated" flag*/ + + if (ac->asn1r_elmnt_len < 1) /* For element length of 0, return error code. */ + return (SD_FAILURE); + + i = *(ac->asn1r_field_ptr++); + if (i>7 || i<0) + return (2); /* Return error code for bad unused-bits value. */ + + if (ac->asn1r_elmnt_len == 1) /* When there is only the unused-bits octet, */ + { /* it must = 0, and there are no data bits. */ + if (i!=0) + return (2); + ac->asn1r_bitcount = 0; + } + + else /* Treat normal case where there are data bits. */ + { + ac->asn1r_bitcount = ((ac->asn1r_elmnt_len-1)*8 - i); /* Compute # data bits. */ + + /* If caller imposed a limit, truncate. */ + if (max_bits != 0 && ac->asn1r_bitcount > max_bits) + { + ac->asn1r_bitcount = max_bits; /* truncated */ + ac->asn1r_bitstr_truncated = SD_TRUE; + } + + /* Copy bitstring to user buffer */ + bstrcpy (bit_ptr, ac->asn1r_field_ptr, ac->asn1r_bitcount); + ac->asn1r_field_ptr += (ac->asn1r_elmnt_len - 1); /* point to next*/ + } + return (SD_SUCCESS); + } + +/************************************************************************/ +/* get_bitstr_cstr */ +/* Function to setup to get a constructed bitstring. */ +/************************************************************************/ + +ST_VOID asn1r_get_bitstr_cstr (ASN1_DEC_CTXT *ac, ST_INT bits, ST_UCHAR *ptr) + { +#ifdef DEBUG_ASN1_DECODE + if (!ptr) + { + slogCallStack (sLogCtrl, + "get_bitstr_cstr: attempt to reference through a NULL pointer"); + return; + } +#endif + + ac->asn1r_max_bits = bits; /* max allowed # bits */ + ac->_ad_bitptr = ptr; /* pointer to bit storage area */ + *ac->_ad_bitptr = 0; /* zero first byte of user's storage area */ + ac->asn1r_bitcount = 0; /* running bit count */ + ac->asn1r_bitstr_truncated = SD_FALSE; /* CRITICAL: init "truncated" flag*/ + + ac->asn1r_u_id_fun = _dec_bitstr_cstr; /* universal until bitstr done */ + ac->asn1r_c_id_fun = asn1r_class_err; /* no more context */ + ac->asn1r_a_id_fun = asn1r_class_err; /* or application */ + ac->asn1r_p_id_fun = asn1r_class_err; /* or private */ + + ac->asn1r_save_method = ac->asn1r_decode_method; + ac->asn1r_decode_method = ASN1_CLASS_METHOD; + ac->_asn1r_fun_save = ac->asn1r_decode_done_fun; /* save the previous done fun */ + ac->asn1r_decode_done_fun = asn1r_done_err; /* can't be done for now */ + ac->_asn1r_cstr_done_save = ac->asn1r_c_done_fun[ac->asn1r_msg_level]; + ac->asn1r_c_done_fun[ac->asn1r_msg_level] = asn1r_chk_getcstr_done; + } + +/************************************************************************/ +/* _dec_bitstr_cstr */ +/* Function to decode asn.1 constructor bitstrings. */ +/* NOTE: last segment may be any length but other segments must be */ +/* multiple of 8 bits. We don't know which segment is last until the */ +/* decode completes. We assume any segment that is NOT a multiple of */ +/* 8 bits must be the last, so if any segment is received after that, */ +/* it is a protocol error. */ +/************************************************************************/ + +static ST_VOID _dec_bitstr_cstr (ASN1_DEC_CTXT *ac, ST_UINT16 id_code) + { +ST_INT numbytes; +ST_INT numbits; +ST_UCHAR unused_bits; /* # of unused bits in last byte */ + + ALOG_DEC0 ("_dec_bitstr_cstr"); + + if ((id_code & BITS_CODE) != BITS_CODE) + { /* Protocol error - invalid ID Code. */ + ALOG_NERR0 ("ASN.1 decode: unexpected tag"); + asn1r_set_dec_err(ac, ASN1E_UNEXPECTED_TAG); + return; + } + + if (ac->asn1r_constr_elmnt) /* Don't do anything for constructors */ + { + ac->asn1r_c_done_fun[ac->asn1r_msg_level] = NULL; + return; + } + + /* Handle primitive bitstrings */ + + if (ac->asn1r_bitstr_truncated) + { + /* Already truncated when earlier segment decoded. Just skip over this data.*/ + ac->asn1r_field_ptr += ac->asn1r_elmnt_len; + return; + } + + /* If bitcount before adding this segment is not multiple of 8, the */ + /* previous segment length was illegal. */ + if (ac->asn1r_bitcount % 8) + { /* Protocol error */ + ALOG_NERR0 ("ASN.1 decode: constructed bitstring previous segment length not multiple of 8"); + asn1r_set_dec_err(ac, ASN1E_INVALID_BITSTR); + return; + } + + /* check length. Handle most common case first. */ + if (ac->asn1r_elmnt_len > 1) + { + unused_bits = *ac->asn1r_field_ptr; /* read the unused-bits byte. */ + if (unused_bits > 7) + { /* Protocol error */ + ALOG_NERR0 ("ASN.1 decode: constructed bitstring unused bits > 7"); + asn1r_set_dec_err(ac, ASN1E_INVALID_BITSTR); + return; + } + + /* # of bytes of data does not include the "unused bits" byte. */ + numbytes = (ST_INT16) (ac->asn1r_elmnt_len - 1); + numbits = numbytes*8 - unused_bits; + if (ac->asn1r_bitcount + numbits > ac->asn1r_max_bits) + { + /* Truncate. Recalculate numbits, numbytes. */ + numbits = ac->asn1r_max_bits - ac->asn1r_bitcount; + numbytes = numbits / 8; + if (numbits % 8) + numbytes++; + ac->asn1r_bitstr_truncated = SD_TRUE; /* set "truncated" flag */ + } + /* Copy bitstring data (at ac->asn1r_field_ptr + 1) to user buffer */ + if (numbits) + bstrcpy (ac->_ad_bitptr, ac->asn1r_field_ptr + 1, numbits); + ac->_ad_bitptr += numbytes; /* adjust pointer */ + ac->asn1r_bitcount += numbits; /* adjust bit count */ + } + else if (ac->asn1r_elmnt_len == 1) /* ONLY unused-bits byte. Must be 0.*/ + { + unused_bits = *ac->asn1r_field_ptr; /* read the unused-bits byte. */ + if (unused_bits != 0) + { /* Protocol error */ + ALOG_NERR0 ("ASN.1 decode: bitstring no data. unused bits != 0"); + asn1r_set_dec_err(ac, ASN1E_INVALID_BITSTR); + return; + } + } + else /* (ac->asn1r_elmnt_len < 1) */ + { /* Protocol error */ + ALOG_NERR1 ("ASN.1 decode: bitstring element length = %d illegal", + ac->asn1r_elmnt_len); + asn1r_set_dec_err(ac, ASN1E_INVALID_BITSTR); + return; + } + /* CRITICAL: update field_ptr only here. */ + ac->asn1r_field_ptr += ac->asn1r_elmnt_len; + return; + } + diff --git a/mmslib/asn1/ard_btod.c b/mmslib/asn1/ard_btod.c new file mode 100644 index 0000000..43f4910 --- /dev/null +++ b/mmslib/asn1/ard_btod.c @@ -0,0 +1,72 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : ard_btod.c */ +/* PRODUCT(S) : ASN1DE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 05 Remove "thisFileName" */ +/* 03/05/02 JRB 04 Eliminate warnings. */ +/* 12/20/01 JRB 03 Chg ASN1_CTXT to ASN1_DEC_CTXT. */ +/* 09/13/99 MDE 02 Added SD_CONST modifiers */ +/* 07/26/99 MDE 01 New module, derived from ard_btod.c */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "asn1r.h" +#include "asn1log.h" + +/************************************************************************/ +/************************************************************************/ +/* get_btod */ +/************************************************************************/ + +ST_RET asn1r_get_btod (ASN1_DEC_CTXT *ac, MMS_BTOD *out) + { +ST_INT32 ms; /* ms time component */ +ST_INT32 day = 0; /* day component of TimeOfDay value */ + +#ifdef DEBUG_ASN1_DECODE + if (!out) + { + slogCallStack (sLogCtrl, + "get_btod: attempt to reference through a NULL pointer"); + return(SD_FAILURE); + } +#endif + + /* Read Time Component (first 4 bytes) */ + ms = (((ST_INT32) *(ac->asn1r_field_ptr++)) << 24) & 0xFF000000L; + ms |= (((ST_INT32) *(ac->asn1r_field_ptr++)) << 16) & 0x00FF0000L; + ms |= (((ST_INT32) *(ac->asn1r_field_ptr++)) << 8) & 0x0000FF00L; + ms |= ((ST_INT32) *(ac->asn1r_field_ptr++)) & 0x000000FFL; + + /* Check to see if TimeOfDay is in long or short form */ + if (ac->asn1r_elmnt_len == 4) + { + out->form = MMS_BTOD4; + } + else + { + out->form = MMS_BTOD6; + day = (((ST_INT32) *(ac->asn1r_field_ptr++)) << 8) & 0xFF00; + day |= ((ST_INT32) *(ac->asn1r_field_ptr++)) & 0x00FF; + } + + out->ms = ms; + out->day = day; + return (SD_SUCCESS); + } + diff --git a/mmslib/asn1/ard_delm.c b/mmslib/asn1/ard_delm.c new file mode 100644 index 0000000..944bf22 --- /dev/null +++ b/mmslib/asn1/ard_delm.c @@ -0,0 +1,274 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : ard_delmn.c */ +/* PRODUCT(S) : ASN1DE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 03 Chg ASN1_CTXT to ASN1_DEC_CTXT. */ +/* 09/13/99 MDE 02 Added SD_CONST modifiers */ +/* 07/26/99 MDE 01 New module, derived from ad_delmn.c */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "asn1r.h" +#include "asn1log.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/* Variable used in skipping over entire data elements. */ + + +static ST_VOID _get_delmnt_all (ASN1_DEC_CTXT *ac, ST_UINT16 id); +static ST_VOID _get_delmnt_done (ASN1_DEC_CTXT *ac); +static ST_VOID _get_delmnt_start (ASN1_DEC_CTXT *ac, ST_UINT16 id); +static ST_VOID _parse_next_done (ASN1_DEC_CTXT *ac); +static ST_VOID _parse_next_all (ASN1_DEC_CTXT *ac, ST_UINT16 id); +static ST_VOID _parse_next_start (ASN1_DEC_CTXT *ac, ST_UINT16 id); +static ST_VOID _parse_cstr_start(ASN1_DEC_CTXT *ac); + +/************************************************************************/ +/************************************************************************/ +/* get_delmnt submodule */ +/* The code below makes up the 'get_delmnt' and 'parse_next' functions, */ +/* which are used to simply ignore (possibly for later parsing) whatever*/ +/* data element is next. A user function is called at the end of the */ +/* data element to continue the parse as necessary. Both functions are */ +/* useful for data elements that require another 'layer' of software to */ +/* parse the data element. The difference is that get_delmnt moves */ +/* the data to a user-designated buffer, whereas parse_next leaves it */ +/* in place. */ +/************************************************************************/ + +/************************************************************************/ +/* get_delmnt */ +/* This function is used to parse the next ASN.1 data element, regard- */ +/* less of type, then call the selected done function. Inputs to */ +/* get_delmnt are the pointer to the user buffer where the data element */ +/* is to be put (as unparsed ASN.1-encoded data), the maximum length of */ +/* the buffer, and the user done function to be called when the end of */ +/* the data element is encountered. The actual length of the data ele- */ +/* ment is available to the user's done function through the global */ +/* variable asn1_octetcount. If there was not enough room in the user */ +/* buffer, a protocol error (OCTCSTR_TOO_BIG) will result. */ +/************************************************************************/ + +ST_VOID asn1r_get_delmnt (ASN1_DEC_CTXT *ac, ST_INT buflen, ST_UCHAR *bufptr, + ST_VOID (*done_fun)(ASN1_DEC_CTXT *ac)) + { + ac->_asn1_maxoctets = buflen; /* save buflen in global var. */ + ac->_asn1_octetptr = bufptr; /* initialize _asn1_octetptr */ + ac->asn1r_octetcount = 0; /* initialize asn1_octetcount */ + ac->_parse_begin_ptr = ac->asn1r_field_ptr; /* save ptr to start of element */ + + ac->_ad_parse_asn1r_fun_save = done_fun; /* save the selected done fun */ + ac->_ad_parse_method_save = ac->asn1r_decode_method; /* save method; restore later */ + ac->asn1r_decode_method = ASN1_CLASS_METHOD; + + ac->asn1r_c_id_fun = _get_delmnt_start; /* select CTX function */ + ac->asn1r_u_id_fun = _get_delmnt_start; /* select UNI function */ + ac->asn1r_p_id_fun = _get_delmnt_start; /* select PRV function */ + ac->asn1r_a_id_fun = _get_delmnt_start; /* select APP function */ + } + +/************************************************************************/ +/* _get_delmnt_start */ +/* This is the first function executed for the get_delmnt operation. */ +/************************************************************************/ + +static ST_VOID _get_delmnt_start (ASN1_DEC_CTXT *ac, ST_UINT16 id) + { + + ALOG_DEC0 ("_get_delmnt_start"); + + _get_delmnt_all (ac, id); /* move current elmnt to user buffer */ + + if (ac->asn1r_constr_elmnt) /* if this is a constructor elment - */ + { /* reset done fun for this msg level */ + ac->asn1r_c_done_fun[ac->asn1r_msg_level] = _get_delmnt_done; + ac->asn1r_c_id_fun = _get_delmnt_all; /* select CTX function */ + ac->asn1r_u_id_fun = _get_delmnt_all; /* select UNI function */ + ac->asn1r_p_id_fun = _get_delmnt_all; /* select PRV function */ + ac->asn1r_a_id_fun = _get_delmnt_all; /* select APP function */ + } + else /* if this is a primitive element - */ + _get_delmnt_done (ac); /* all done with the parse */ + } + +/************************************************************************/ +/* _get_delmnt_all */ +/* Moves the head of the current data element to the user buffer, and */ +/* moves the contents also in the case of a primitive data element. */ +/* Updates asn1_octetcount and leaves asn1_field_ptr pointing to the next elmnt. */ +/************************************************************************/ + +static ST_VOID _get_delmnt_all (ASN1_DEC_CTXT *ac, ST_UINT16 id) + { +ST_INT head_len; +ST_INT i; + + ALOG_DEC0 ("_get_delmnt_all"); + + head_len = ac->asn1r_field_ptr - ac->asn1r_field_start;/* check for room */ + ac->asn1r_octetcount += head_len; /* in the user buffer for */ + if (ac->asn1r_octetcount > ac->_asn1_maxoctets) /* the head of this data elmnt */ + { + ALOG_NERR0 ("ASN.1 decode: constructed octetstring too long"); + asn1r_set_dec_err (ac, ASN1E_OCTSTR_TOO_BIG); + return; + } + ac->asn1r_field_ptr = ac->asn1r_field_start; + for (i=0; i_asn1_octetptr++) = *(ac->asn1r_field_ptr++); /* to the user buffer */ + + if (ac->asn1r_constr_elmnt) /* if a constructor elment - */ + ac->asn1r_c_done_fun[ac->asn1r_msg_level] = NULL; + else /* if a primitive data element */ + { + ac->asn1r_octetcount += ac->asn1r_elmnt_len; /* check that the user buffer */ + if (ac->asn1r_octetcount > ac->_asn1_maxoctets) /* is big enough for the con- */ + { /* tents of this primitive elmnt*/ + ALOG_NERR0 ("ASN.1 decode: constructed octetstring too long"); + asn1r_set_dec_err (ac, ASN1E_OCTSTR_TOO_BIG); + return; + } + for (i=0; iasn1r_elmnt_len; i++) /* move the primitive contents */ + *(ac->_asn1_octetptr++) = *(ac->asn1r_field_ptr++); /* to the user buffer */ + } + } + +/************************************************************************/ +/* _get_delmnt_done */ +/* This function is called when the data element to be parsed is done. */ +/* This is either via a constructor done call or from the start fun. */ +/************************************************************************/ + +static ST_VOID _get_delmnt_done (ASN1_DEC_CTXT *ac) + { + ac->asn1r_decode_method = ac->_ad_parse_method_save; /* restore method */ + (*ac->_ad_parse_asn1r_fun_save)(ac); /* invoke the user function */ + } + + +/************************************************************************/ +/* parse_cstr_contents */ +/************************************************************************/ + +ST_VOID asn1r_parse_cstr_contents (ASN1_DEC_CTXT *ac, ST_VOID (*done_fun)(ASN1_DEC_CTXT *ac)) + { + ac->asn1r_c_done_fun[ac->asn1r_msg_level] = done_fun; + if (ac->asn1r_elmnt_len) + { + ac->_contents_done = ac->asn1r_field_ptr + ac->asn1r_elmnt_len; + _parse_cstr_start(ac); + } + } + +/************************************************************************/ +/* _parse_cstr_start */ +/* Function will indirectly call itself until the original asn1_c_done_fun */ +/* set by parse_cstr_contents expires. */ +/************************************************************************/ + +static ST_VOID _parse_cstr_start (ASN1_DEC_CTXT *ac) + { + ALOG_DEC0 ("_parse_next_start"); + if (ac->asn1r_field_ptr < ac->_contents_done) + asn1r_parse_next (ac, _parse_cstr_start); + } + +/************************************************************************/ +/* parse_next */ +/* This function is used to parse the next ASN.1 data element, regard- */ +/* less of type, then call the selected done function. In the user's */ +/* done function, the length of the data element is given in the global */ +/* variable 'asn1_octetcount', and the pointer to the beginning of the data */ +/* element is 'parse_begin_ptr'. */ +/************************************************************************/ + +ST_VOID asn1r_parse_next (ASN1_DEC_CTXT *ac, ST_VOID (*done_fun)(ASN1_DEC_CTXT *ac)) + { + + ac->_ad_parse_asn1r_fun_save = done_fun; /* save the selected done fun */ + ac->_ad_parse_method_save = ac->asn1r_decode_method; /* save method */ + ac->asn1r_decode_method = ASN1_CLASS_METHOD; + ac->_parse_begin_ptr = ac->asn1r_field_ptr; /* save ptr to start of element */ + + ac->asn1r_c_id_fun = _parse_next_start; /* select CTX function */ + ac->asn1r_u_id_fun = _parse_next_start; /* select UNI function */ + ac->asn1r_p_id_fun = _parse_next_start; /* select PRV function */ + ac->asn1r_a_id_fun = _parse_next_start; /* select APP function */ + } + +/************************************************************************/ +/* _parse_next_start */ +/* First function executed for the parse_next operation. */ +/************************************************************************/ + +static ST_VOID _parse_next_start (ASN1_DEC_CTXT *ac, ST_UINT16 id) + { + ALOG_DEC0 ("_parse_next_start"); + + if (ac->asn1r_constr_elmnt) /* if this is a constructor elment - */ + { + ac->asn1r_c_done_fun[ac->asn1r_msg_level] = _parse_next_done; + ac->asn1r_c_id_fun = _parse_next_all; /* select CTX function */ + ac->asn1r_u_id_fun = _parse_next_all; /* select UNI function */ + ac->asn1r_p_id_fun = _parse_next_all; /* select PRV function */ + ac->asn1r_a_id_fun = _parse_next_all; /* select APP function */ + } + else /* primitive element */ + { + ac->asn1r_field_ptr += ac->asn1r_elmnt_len; /* skip the contents */ + _parse_next_done (ac); /* all done with the parse */ + } + } + +/************************************************************************/ +/* _parse_next_all */ +/* This function is used as the only state function when parsing a */ +/* constructor element. It just lets the ASN.1 tools look it over. */ +/************************************************************************/ + +static ST_VOID _parse_next_all (ASN1_DEC_CTXT *ac, ST_UINT16 id) + { + ALOG_DEC0 ("_parse_next_all"); + + if (ac->asn1r_constr_elmnt) /* if this is a constructor elment - */ + ac->asn1r_c_done_fun[ac->asn1r_msg_level] = NULL; + else /* primitive element */ + ac->asn1r_field_ptr += ac->asn1r_elmnt_len; /* skip the contents */ + } + +/************************************************************************/ +/* _parse_next_done */ +/* This function is called when the data element to be parsed is done. */ +/* This is either via a constructor done call or from the start fun. */ +/************************************************************************/ + +static ST_VOID _parse_next_done (ASN1_DEC_CTXT *ac) + { + ac->asn1r_octetcount = (ST_INT16) (ac->asn1r_field_ptr - ac->_parse_begin_ptr); + ac->asn1r_decode_method = ac->_ad_parse_method_save; /* restore method */ + (*ac->_ad_parse_asn1r_fun_save)(ac); /* invoke the user function */ + } + diff --git a/mmslib/asn1/ard_flt.c b/mmslib/asn1/ard_flt.c new file mode 100644 index 0000000..d92f6e6 --- /dev/null +++ b/mmslib/asn1/ard_flt.c @@ -0,0 +1,572 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : ard_float.c */ +/* PRODUCT(S) : ASN1DE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 10/03/08 JRB 08 Make sure elmnt_len is legal. */ +/* 03/11/04 GLB 07 Remove "thisFileName" */ +/* 02/19/03 JRB 06 Use SD_BYTE_ORDER. */ +/* 02/19/03 JRB 05 Del VAX VMS support. For ALPHA VMS, assume */ +/* compiler option /FLOAT=IEEE_FLOAT is used */ +/* so it behaves like other systems. */ +/* 03/05/02 JRB 04 Eliminate warnings. */ +/* 12/20/01 JRB 03 Chg ASN1_CTXT to ASN1_DEC_CTXT. */ +/* 09/13/99 MDE 02 Added SD_CONST modifiers */ +/* 07/26/99 MDE 01 New module, derived from ad_float.c */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "asn1r.h" +#include "asn1log.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +#ifdef ASN1_ARB_FLOAT +static ST_INT16 _fp_common (ASN1_DEC_CTXT *ac, ST_INT16 *sign, ST_UINT16 *exp, ST_UCHAR *lptr, + ST_INT16 *m, ST_UCHAR *next, ST_INT16 doubl_prec); +#endif +/************************************************************************/ +/************************************************************************/ +/* get_float */ +/* Function to convert the MMS floating point type in the ASN.1 message */ +/* stream to the single precision "float" type of the C programming */ +/* language. This function will handle any size mantissa (which is */ +/* rounded to fit into the local single precision floating point format)*/ +/* and any size exponent width up to 15 bits. Exponents too large or */ +/* small for the local representation translate into + or - infinity or */ +/* zero, as the case may be. The return codes are: */ +/* */ +/* 0 - finite valid floating pt # decoded successfully */ +/* 1 - invalid floating point number */ +/* 2 - exponent length greater than 15 */ +/* -1 - floating point value = NaN */ +/* -2 - floating point value = + infinity */ +/* -3 - floating point value = - infinity */ +/* */ +/************************************************************************/ + +ST_RET asn1r_get_float (ASN1_DEC_CTXT *ac, ST_FLOAT *out) + { +ST_UCHAR n; /* length of the exponent part */ +ST_UCHAR *ptr; /* char ptr to output float variable out*/ +ST_UCHAR *next; /* points to next data element */ +ST_UCHAR *original_asn1_field_ptr; +ST_BOOLEAN float_is_zero; + +#ifdef ASN1_ARB_FLOAT +ST_UINT16 exp; /* local variable to hold exponent part */ +ST_INT i; /* utility variable */ +ST_INT16 sign; /* sign of the floating point quantity */ +ST_INT32 signexp; /* contains sign and exp parts of out */ +ST_INT16 m; /* # of fract bits in 1st 2 exp octets */ +ST_UINT32 *fract; /* contains fraction part of out */ +#endif + +#ifdef DEBUG_ASN1_DECODE + if (!out) + { + slogCallStack (sLogCtrl, + "get_float: attempt to reference through a NULL pointer"); + return(SD_FAILURE); + } +#endif + +/* MMS spec says FloatingPoint must be at least 2 octets */ + if (ac->asn1r_elmnt_len < 2) + { + ALOG_ERR0 ("ASN.1 decode: length < 2 not allowed for FloatingPoint"); + return (SD_FAILURE); + } + + next = ac->asn1r_field_ptr + ac->asn1r_elmnt_len; + n = (ST_UCHAR) *(ac->asn1r_field_ptr++); /* read exponent width */ + +/* check to see if all the octets are 0 */ + + original_asn1_field_ptr = ac->asn1r_field_ptr; + float_is_zero = SD_TRUE; /* assume the float = 0 */ + while(ac->asn1r_field_ptr < next) + { + if (*(ac->asn1r_field_ptr++) != 0) + { + float_is_zero = SD_FALSE; + break; + } + } + if (float_is_zero) + { + ac->asn1r_field_ptr = next; + *out = (ST_FLOAT)0; /* this float = 0 */ + return(SD_SUCCESS); /* return success */ + } + else + ac->asn1r_field_ptr = original_asn1_field_ptr; + + ptr = (ST_UCHAR *) out; + +/* Treat case where MMS floating point format coincides with IEEE 754. */ + if (ac->asn1r_elmnt_len == 5 && n == 8) + { +#if SD_BYTE_ORDER==SD_BIG_ENDIAN /* big-endian (like Motorola) */ + *(ptr++) = (ST_UCHAR) *(ac->asn1r_field_ptr++); + *(ptr++) = (ST_UCHAR) *(ac->asn1r_field_ptr++); + *(ptr++) = (ST_UCHAR) *(ac->asn1r_field_ptr++); +#else + ac->asn1r_field_ptr += 3; + *(ptr++) = (ST_UCHAR) *(ac->asn1r_field_ptr--); + *(ptr++) = (ST_UCHAR) *(ac->asn1r_field_ptr--); + *(ptr++) = (ST_UCHAR) *(ac->asn1r_field_ptr--); +#endif + *ptr = (ST_UCHAR) *ac->asn1r_field_ptr; + + ac->asn1r_field_ptr = next; + return (SD_SUCCESS); + } + + +#ifdef ASN1_ARB_FLOAT + +/* Otherwise, convert arbitrary MMS floating point into local single- */ +/* precision floating point. */ + +/* Get exponent and sign information, and read in the fraction part of */ +/* the floating point number. */ + m = 15 - (ST_INT16)n; + if ((i = _fp_common (ac,&sign,&exp,ptr,&m,next,SD_FALSE)) < 3) + { + *out = (ST_FLOAT)0; + return ((ST_INT16) i); + } + +/* Shift fraction part to bottom 3 bytes, add 1, and then shift one */ +/* more byte. This rounds fraction to local precision and places it */ +/* nine bits into the floating point number, where it's supposed to go. */ + fract = (ST_UINT32 *) out; + *fract = (*fract>>m) & (ST_UINT32)0x00FFFFFFL; + *fract = (*fract + (ST_UINT32)0x00000001L) >> 1; /* add 1 and then shift */ + if (*fract & (ST_UINT32)0x00800000L) + { /* rounding may cause */ + exp++; /* exponent to increment*/ + *fract &= (ST_UINT32)0x007FFFFFL; + } + +/* OR the sign, exponent and fraction parts together to make a valid */ +/* local floating point value. */ + exp <<= 7; /* ready to be ORed with other parts */ + signexp = ((ST_INT32) exp) << 16; + if (sign < 0) + signexp |= 0x80000000L; + *fract |= (ST_UINT32)signexp; + +/* Return to calling routine with success indicated. */ + return (SD_SUCCESS); + +#else /* No arbitrary float format support */ + return (SD_FAILURE); +#endif + } + + +/************************************************************************/ +/* get_double */ +/* Function to convert the MMS floating point type in the ASN.1 message */ +/* stream to the double precision "double" type of the C programming */ +/* language. This function will handle any size mantissa (which is */ +/* rounded to fit into the local double precision floating point format)*/ +/* and any size exponent width up to 15 bits. Exponents too large or */ +/* small for the local representation translate into + or - infinity or */ +/* zero, as the case may be. The return codes are: */ +/* */ +/* 0 - finite valid floating pt # decoded successfully */ +/* 1 - invalid floating point number */ +/* 2 - exponent length greater than 15 */ +/* -1 - floating point value = NaN */ +/* -2 - floating point value = + infinity */ +/* -3 - floating point value = - infinity */ +/* */ +/************************************************************************/ + +ST_RET asn1r_get_double (ASN1_DEC_CTXT *ac, ST_DOUBLE *out) + { +ST_UCHAR n; /* length of the exponent part */ +ST_UCHAR *ptr; /* char ptr to the out variable */ +ST_UCHAR *next; /* points to next data element */ +ST_UINT32 *h_ulong; +ST_UINT32 *l_ulong; +ST_UCHAR *original_asn1_field_ptr; +ST_BOOLEAN float_is_zero; + +#ifdef ASN1_ARB_FLOAT +ST_INT garbage_bits_in_mantissa; +ST_UCHAR round; /* flag indicating rounding, not trunc. */ +ST_UINT32 temp; /* utility variable */ +ST_UINT16 exp; /* value of exponent (biased) */ +ST_INT i; /* utility variable */ +ST_UINT32 signexp; /* contains sign and exp parts of out */ +ST_INT16 sign; /* sign of the floating point quantity */ +ST_INT16 m; /* # of fract bits in 1st fract octet */ +ST_INT16 local_double_exp_width; /* The local exp width of native double */ +ST_UINT32 *fract; /* points to fraction part of out */ +#endif + +#ifdef DEBUG_ASN1_DECODE + if (!out) + { + slogCallStack (sLogCtrl, + "get_double: attempt to reference through a NULL pointer"); + return(SD_FAILURE); + } +#endif + + next = ac->asn1r_field_ptr + ac->asn1r_elmnt_len; + n = (ST_UCHAR) *(ac->asn1r_field_ptr++); /* read exponent width */ + +/* check to see if all the octets are 0 */ + original_asn1_field_ptr = ac->asn1r_field_ptr; + float_is_zero = SD_TRUE; /* assume the float = 0 */ + while(ac->asn1r_field_ptr < next) + { + if (*(ac->asn1r_field_ptr++) != 0) + { + float_is_zero = SD_FALSE; + break; + } + } + if (float_is_zero) + { + ac->asn1r_field_ptr = next; + *out = (ST_FLOAT)0; /* this float = 0 */ + return(SD_SUCCESS); /* return success */ + } + else + ac->asn1r_field_ptr = original_asn1_field_ptr; + + ptr = (ST_UCHAR *) out; + h_ulong = (ST_UINT32 *) out; + l_ulong = h_ulong + 1; + +/* Treat case where MMS floating point format coincides with IEEE 754 */ +/* double precision floating point format. */ + if (ac->asn1r_elmnt_len == 9 && n == 11) + { +#if SD_BYTE_ORDER==SD_BIG_ENDIAN /* big-endian (like Motorola) */ + *(ptr++) = (ST_UCHAR) *(ac->asn1r_field_ptr++); + *(ptr++) = (ST_UCHAR) *(ac->asn1r_field_ptr++); + *(ptr++) = (ST_UCHAR) *(ac->asn1r_field_ptr++); + *(ptr++) = (ST_UCHAR) *(ac->asn1r_field_ptr++); + *(ptr++) = (ST_UCHAR) *(ac->asn1r_field_ptr++); + *(ptr++) = (ST_UCHAR) *(ac->asn1r_field_ptr++); + *(ptr++) = (ST_UCHAR) *(ac->asn1r_field_ptr++); +#else + ac->asn1r_field_ptr += 7; + *(ptr++) = (ST_UCHAR) *(ac->asn1r_field_ptr--); + *(ptr++) = (ST_UCHAR) *(ac->asn1r_field_ptr--); + *(ptr++) = (ST_UCHAR) *(ac->asn1r_field_ptr--); + *(ptr++) = (ST_UCHAR) *(ac->asn1r_field_ptr--); + *(ptr++) = (ST_UCHAR) *(ac->asn1r_field_ptr--); + *(ptr++) = (ST_UCHAR) *(ac->asn1r_field_ptr--); + *(ptr++) = (ST_UCHAR) *(ac->asn1r_field_ptr--); +#endif + *ptr = (ST_UCHAR) *ac->asn1r_field_ptr; + + ac->asn1r_field_ptr = next; + return (SD_SUCCESS); + } + +#ifdef ASN1_ARB_FLOAT + +/* Otherwise, convert arbitrary MMS floating point into local single- */ +/* precision floating point. */ +/* Get exponent and sign information, and read in the fraction part of */ +/* the floating point number. */ + m = 15 - (ST_INT16)n; + if ((i = _fp_common (ac,&sign,&exp,ptr,&m,next,SD_TRUE)) < 3) + { + *out = (ST_DOUBLE)0; + return ((ST_INT16) i); + } + +/* The number of bits used to store the exponent of a double precision */ +/* floating point number varies from machine to machine. The following */ +/* piece of code sets this local exponent width. */ + + /* Assume all systems now use IEEE 754 format */ + local_double_exp_width = 11; + +/* The following piece of code calculates the number of bit positions */ +/* to shift the fraction bits in the mantissa. */ +/* (local_exp_width + sign width) - (non_mantisa_bits) */ + + garbage_bits_in_mantissa = 8 - m; /* num of garb bits in mantissa */ + i = (local_double_exp_width + 1) - garbage_bits_in_mantissa; + /* was i = m + 4 */ + + fract = (ST_UINT32 *) out; + +#if SD_BYTE_ORDER==SD_LITTLE_ENDIAN /* little-endian (like Intel) */ + fract++; /* high half of f.p. */ +#endif + +/* save lowest i bits that will be lost when positioning the fraction */ + + temp =((0x00000001L << (local_double_exp_width + 1)) - 1L); + temp = *fract & (temp >> garbage_bits_in_mantissa); + + *fract <<= garbage_bits_in_mantissa; /* put fract at far left*/ + *fract >>= (local_double_exp_width + 1); /* shift fract in place */ + +/* grt rid of any sign and exponent */ + *fract &= 0x000fffff; /* other ports have 12 */ + + + /* pt at low half of fp */ +#if SD_BYTE_ORDER==SD_BIG_ENDIAN /* big-endian (like Motorola) */ + fract++; +#else + fract--; +#endif + + *fract >>= (i-1); /* low half of f.p. */ + if (*fract & (ST_UINT32)0x00000001L) + round = SD_TRUE; + else + round = SD_FALSE; + temp <<= (32-i); + *fract = (*fract>>1) | temp; /* OR with bits from top half */ + +/* Round off the fraction part to fit into the local 8-byte double- */ +/* precision floating point number. */ + if (round) + { /* if low half is all 1's, then */ + if (*fract == 0xFFFFFFFF) /* rounding affects hi half too */ + { +#if SD_BYTE_ORDER==SD_BIG_ENDIAN /* big-endian (like Motorola) */ + *(fract--) = 0; +#else + *(fract++) = 0; +#endif + *fract += 1; + if (*fract & (ST_UINT32)0xFFF00000L) /* if adding one overflows into */ + { /* exp part, increment exponent */ + exp += 1; + *fract &= (ST_UINT32)0x000FFFFFL; + } +#if SD_BYTE_ORDER==SD_BIG_ENDIAN /* big-endian (like Motorola) */ + fract++; /* end up pointing to low half */ +#else + fract--; /* end up pointing to low half */ +#endif + } + else + *fract += 1; + } + +/* OR the sign, exponent and (high) fraction parts together to make a */ +/* valid local floating point value. */ + exp <<= 4; /* ready to be ORed with other parts */ + signexp = (ST_UINT32)exp << 16; + if (sign < 0) + signexp |= (ST_UINT32)0x80000000L; +#if SD_BYTE_ORDER==SD_BIG_ENDIAN /* big-endian (like Motorola) */ + *(--fract) |= signexp; +#else + *(++fract) |= signexp; +#endif + +/* Return to calling routine with success indicated. */ + return (SD_SUCCESS); +#else + return (SD_FAILURE); +#endif + } + +/************************************************************************/ +/* _fp_common */ +/* Function to read the sign, exp, and fract parts of an MMS floating */ +/* point type into the designated arguments. This function represents */ +/* the common logic of the two functions: get_float and get_double. */ +/* Besides sign, exp, and fract, there are three other outputs from */ +/* this function: */ +/* asn1_field_ptr - global variable set to next data element in msg */ +/* m - modified in this function to be the number of fraction bits */ +/* in the 1st octet containing any fraction bits */ +/* return value - 0 - valid floating pt # with value of 0 */ +/* 1 - invalid floating point number */ +/* 2 - exponent length greater than 15 */ +/* 3 - valid, nonzero, finite floating pt # */ +/* -1 - floating point value = NaN */ +/* -2 - floating point value = + infinity */ +/* -3 - floating point value = - infinity */ +/************************************************************************/ + +#ifdef ASN1_ARB_FLOAT + +static ST_INT16 _fp_common ( + ASN1_DEC_CTXT *ac, /* ASN1 context pointer */ + ST_INT16 *sign, /* sign */ + ST_UINT16 *exp, /* exponent translated to local repr'n */ + ST_UCHAR *lptr, /* pointer to local f.p. # */ + ST_INT16 *m, /* begins as # of fract bits in 1st two */ + /* octets, modified in this function */ + ST_UCHAR *next, /* pointer to next data element */ + ST_INT16 doubl_prec) /* local precision - single or double */ + { +ST_INT16 lbias; /* bias of local floating point type */ +ST_UINT16 lmaxexp; /* max exponent of local f.p. type */ +ST_INT16 lfract; /* local precision length in bytes */ +ST_UINT16 bias; /* bias for MMS f.p. type being decoded */ +ST_UCHAR nonzero; /* flag indicating if fract part is !=0 */ +ST_INT i; /* utility variable */ +ST_UINT16 temp1; /* utility variable */ +ST_UCHAR temp2; /* utility variable */ + +/* Initialize variables dependent on the precision of the local f.p. */ +/* representation (either single or double). */ + if (doubl_prec) + { + lbias = 1023; + lmaxexp = 2047; + lfract = 7; + } + else + { + lbias = 127; + lmaxexp = 255; + lfract = 3; + } + +/* First, check size of exponent and fraction parts based on element */ +/* length and number of fraction bits in 1st two bytes. */ + if (ac->asn1r_elmnt_len < 3) /* must have minimum of */ + { /* 2 bytes for f.p. # */ + ac->asn1r_field_ptr = next; + return (SD_FAILURE); + } + if (*m < 0) /* exp part too big */ + { + ac->asn1r_field_ptr = next; + return (2); + } + if (*m >= 15) /* exp part too small */ + { + ac->asn1r_field_ptr = next; + return (SD_FAILURE); + } + +/* Move exponent and sign parts into *exp variable for manipulation. */ + temp1 = ((ST_UINT16) *(ac->asn1r_field_ptr++)) << 8; + *exp = temp1 | ((ST_UINT16) *(ac->asn1r_field_ptr++) & (ST_UINT16)0x00ff); + +/* Determine sign, and mask out. */ + if (*exp & (ST_UINT16)0x8000) + { + *sign = -1; + *exp = *exp & (ST_UINT16)0x7FFF; /* zero sign bit */ + } + else + *sign = 1; + +/* Reset asn1_field_ptr to point to 1st octet containing any fraction bits. */ + if (*m > 8) + ac->asn1r_field_ptr -= 2; + else if (*m > 0) + ac->asn1r_field_ptr--; + +/* Calculate bias of MMS floating point number before m is changed. */ + bias = (ST_UINT16)0x7FFF >> (*m+1); /* bias = 2**(n-1) - 1 */ + +/* Determine if exponent part is all 1's. In this case, MMS float = NaN */ +/* or infinity, so return with appropriate return code. */ + + *exp = *exp >> *m; /* get rid of fract bits on right */ + temp1 = (ST_UINT16)0x7FFF >> *m; /* prepare comparison bytes */ + *m = *m%8; + if (*m == 0) + *m = 8; /* m = # fract bits in current octet */ + if (*exp == temp1) /* check for all 1's in exponent */ + { + nonzero = SD_FALSE; /* now check for all 0's in fraction */ + temp2 = (ST_UCHAR) (*(ac->asn1r_field_ptr++) & ~(0xFF<<*m)); + while (ac->asn1r_field_ptr <= next) /* if all fract bits = */ + { /* 0, then we have a + */ + if (temp2) /* or - infinity */ + { + nonzero = SD_TRUE; + break; + } + temp2 = (ST_UCHAR) *(ac->asn1r_field_ptr++); + } + ac->asn1r_field_ptr = next; + if (nonzero) + return (-1); /* nonzero fract => NaN */ + else if (*sign > 0) + return (-2); /* case of + infinity */ + else + return (-3); /* case of - infinity */ + } + +/* Now that we know MMS float is a valid finite value, translate its */ +/* exponent part into the exponent for the local representation. */ + if ((i = (ST_INT16)*exp + lbias - (ST_INT16)bias) < 0) + return (SD_SUCCESS); /* Value too small to represent locally.*/ + + *exp = (ST_UINT16) i; + if (*exp > lmaxexp) /* biased local exp */ + { /* value too big to */ + ac->asn1r_field_ptr = next; /* represent locally - */ + if (*sign > 0) /* treat as + or - inf */ + return (-2); + else + return (-3); + } + +/* Move fraction part into local variable. */ +#if SD_BYTE_ORDER==SD_BIG_ENDIAN /* big-endian (like Motorola) */ + for (i=0;iasn1r_field_ptr < next) + *(lptr++) = (ST_UCHAR) *(ac->asn1r_field_ptr++); + else + { + *(lptr++) = (ST_UCHAR) 0; /* zero fill if local precision */ + } + } +#else + ac->asn1r_field_ptr += lfract; + for (i=0;iasn1r_field_ptr < next) + *(lptr++) = (ST_UCHAR) *(ac->asn1r_field_ptr--); + else + { + *(lptr++) = (ST_UCHAR) 0; /* zero fill if local precision */ + ac->asn1r_field_ptr--; /* is greater than MMS f.p. */ + } + } + *lptr = (ST_UCHAR) *ac->asn1r_field_ptr; /* we know last byte < next */ +#endif + + ac->asn1r_field_ptr = next; + return (3); /* normal case */ + } +#endif /* end of ARB FLOAT support */ diff --git a/mmslib/asn1/ard_idnt.c b/mmslib/asn1/ard_idnt.c new file mode 100644 index 0000000..98808c1 --- /dev/null +++ b/mmslib/asn1/ard_idnt.c @@ -0,0 +1,91 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : ard_idnt.c */ +/* PRODUCT(S) : ASN1DE */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/24/03 JRB 04 Del MAX_IDENT_LEN define, get from mms_def2.h*/ +/* 12/20/01 JRB 03 Chg ASN1_CTXT to ASN1_DEC_CTXT. */ +/* 09/13/99 MDE 02 Added SD_CONST modifiers */ +/* 07/26/99 MDE 01 New module, derived from ad_idnt.c */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include +#include "asn1r.h" +#include "asn1log.h" +#include "mms_def2.h" /* need MAX_IDENT_LEN define */ + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/* get_identifier */ +/* Reads visible character data from message into selected buffer. If */ +/* character is encountered which is not valid for ASN.1 VisibleString */ +/* type, error code will be returned as function return value. Other- */ +/* wise, function return value will be zero. This function will verify */ +/* that buffer is big enough. Conversion from ASCII to local character */ +/* representation is not necessary for MS-DOS. */ +/************************************************************************/ + +ST_RET asn1r_get_identifier (ASN1_DEC_CTXT *ac, ST_CHAR *ptr) + { +ST_INT i; + +#ifdef DEBUG_ASN1_DECODE + if (!ptr) + { + slogCallStack (sLogCtrl, + "get_identifier: attempt to reference through a NULL pointer"); + return(SD_FAILURE); + } +#endif + + if (ac->asn1r_elmnt_len > MAX_IDENT_LEN) + { /* if the name is to long return error */ + ALOG_NERR1 ("ASN.1 decode: Identifier too long (%u) ", + (ST_UINT) ac->asn1r_elmnt_len); + return (SD_FAILURE); + } + + if (isdigit(*ac->asn1r_field_ptr)) /* the first letter may not be a digit */ + { + ALOG_NERR0 ("ASN.1 decode: Identifier cannot start with a digit"); + return (SD_FAILURE); + } + + for (i = ac->asn1r_elmnt_len; i; --i) + { + if ((!(isalnum(*ac->asn1r_field_ptr))) && + (!(*ac->asn1r_field_ptr == '_')) && + (!(*ac->asn1r_field_ptr == '$'))) + { + ALOG_NERR1 ("ASN.1 decode: invalid character (0x%02x) in identifier", + (int) *ac->asn1r_field_ptr); + return (SD_FAILURE); + } + + *ptr = (ST_CHAR) *(ac->asn1r_field_ptr++); /* Move character to user buffer. */ + ptr++; + } + *ptr = '\x00'; /* Null terminate the visible string. */ + return(SD_SUCCESS); /* If no problelms, return success. */ + } diff --git a/mmslib/asn1/ard_int.c b/mmslib/asn1/ard_int.c new file mode 100644 index 0000000..0c10340 --- /dev/null +++ b/mmslib/asn1/ard_int.c @@ -0,0 +1,490 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2005, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : ard_int.c */ +/* PRODUCT(S) : ASN1DE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 08/24/09 JRB 09 Fix signed int out of range error detection. */ +/* Use separate signed & unsigned functions. */ +/* Simplify negative value handling. */ +/* 10/03/08 JRB 08 Fix crash by testing for asn1r_elmnt_len < 1.*/ +/* 06/10/05 JRB 07 Use i64 suffix on WIN32, default to LL suffix*/ +/* 03/03/05 EJV 06 Use LL suffix also on linux. */ +/* 03/16/04 EJV 05 Added ST_(U)LONG typecast to logs,on some sys*/ +/* ST_(U)INT32 can be (unsigned) long or int. */ +/* asn1r_get_u8 (_u16): fixed potential problem.*/ +/* 01/08/04 EJV 04 asn1r_get_int64: added define for sun. */ +/* 12/20/01 JRB 03 Chg ASN1_CTXT to ASN1_DEC_CTXT. */ +/* 09/13/99 MDE 02 Added SD_CONST modifiers */ +/* 07/26/99 MDE 01 New module, derived from ad_int.c */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "asn1r.h" +#include "asn1log.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/************************************************************************/ + +static ST_RET asn1r_get_int32 (ASN1_DEC_CTXT *ac, ST_INT32 *ptr); +static ST_RET asn1r_get_uint32 (ASN1_DEC_CTXT *ac, ST_UINT32 *ptr); +#ifdef INT64_SUPPORT +static ST_RET asn1r_get_int64 (ASN1_DEC_CTXT *ac, ST_INT64 *ptr); +static ST_RET asn1r_get_uint64 (ASN1_DEC_CTXT *ac, ST_UINT64 *ptr); +#endif + +/************************************************************************/ +/* get_i8 */ +/* Function to read a short integer from a message being decoded. */ +/* Assumes asn1_field_ptr points to data (content field), and asn1_elmnt_len */ +/* equals exactly one byte. Leaves pointer set to next data element. */ +/* Returns 0 if OK, non-zero if error. */ +/************************************************************************/ + +ST_RET asn1r_get_i8 (ASN1_DEC_CTXT *ac, ST_INT8 *ptr) + { +ST_INT32 value; +ST_RET ret; + + ret = asn1r_get_int32 (ac, &value); + if (ret == SD_SUCCESS && (value > 127 || value < -128)) + { + ALOG_NERR1 ("ASN.1 decode: Signed8 out of range (%ld)", (ST_LONG) value); + return (SD_FAILURE); + } + + *ptr = (ST_CHAR) value; + return (ret); + } + +/************************************************************************/ +/* get_i16 */ +/* Function to read an integer from a message being decoded. */ +/* Assume asn1_field_ptr points to data, and asn1_elmnt_len */ +/* equals one or two bytes. Leaves pointer set to next data element. */ +/* Returns 0 if OK, non-zero if error. */ +/************************************************************************/ + +ST_RET asn1r_get_i16 (ASN1_DEC_CTXT *ac, ST_INT16 *ptr) + { +ST_INT32 value; +ST_RET ret; + + ret = asn1r_get_int32 (ac, &value); + if (ret == SD_SUCCESS && (value > 32767 || value < -32768)) + { + ALOG_NERR1 ("ASN.1 decode: Signed16 out of range (%ld)", (ST_LONG) value); + return (SD_FAILURE); + } + + *ptr = (ST_INT16) value; + return (ret); + } + +/************************************************************************/ +/* get_i32 */ +/* Function to read a long integer from a message being decoded. */ +/* Assumes asn1_field_ptr points to data, and asn1_elmnt_len */ +/* equals one to four bytes. Leaves pointer set to next data element. */ +/* Returns 0 if OK, non-zero if error. */ +/************************************************************************/ + +ST_RET asn1r_get_i32 (ASN1_DEC_CTXT *ac, ST_INT32 *ptr) + { +ST_INT32 value; +ST_RET ret; + + ret = asn1r_get_int32 (ac, &value); + *ptr = value; + return (ret); + } + +/************************************************************************/ +/* get_u8 */ +/* Function to read an ASN.1 INTEGER from a message being decoded */ +/* into a 1-byte unsigned char. Assumes asn1_field_ptr points to data */ +/* field and asn1_elmnt_len has 1 or 2 bytes. Leaves asn1_field_ptr pointing to */ +/* next data element. Returns 0 if OK, non-zero if error. */ +/************************************************************************/ + +ST_RET asn1r_get_u8 (ASN1_DEC_CTXT *ac, ST_UCHAR *ptr) + { +ST_UINT32 value; +ST_RET ret; + + ret = asn1r_get_uint32 (ac, &value); + if (ret == SD_SUCCESS && value > 0xFF) + { + ALOG_NERR1 ("ASN.1 decode: Unsigned16 out of range (%lu)", (ST_ULONG) value); + return (SD_FAILURE); + } + + *ptr = (ST_UCHAR) value; + return (ret); + } + +/************************************************************************/ +/* get_u16 */ +/* Function to read an ASN.1 INTEGER from a message being decoded */ +/* into a 2-byte unsigned integer. Assumes asn1_field_ptr points to data */ +/* field and asn1_elmnt_len has 1 to 3 bytes. Leaves asn1_field_ptr pointing to */ +/* next data element. Returns 0 if OK, non-zero if error. */ +/************************************************************************/ + +ST_RET asn1r_get_u16 (ASN1_DEC_CTXT *ac, ST_UINT16 *ptr) + { +ST_UINT32 value; +ST_RET ret; + + ret = asn1r_get_uint32 (ac, &value); + if (ret == SD_SUCCESS && value > 0xFFFF) + { + ALOG_NERR1 ("ASN.1 decode: Unsigned16 out of range (%lu)", (ST_ULONG) value); + return (SD_FAILURE); + } + + *ptr = (ST_UINT16) value; + return (ret); + } + +/************************************************************************/ +/* get_u32 */ +/* Function to read an ASN.1 INTEGER from a message being decoded */ +/* into a 4-byte unsigned ST_INT32. Assumes asn1_field_ptr points to data */ +/* field and asn1_elmnt_len has 1 to 5 bytes. Leaves asn1_field_ptr pointing */ +/* to next data element. Returns 0 if OK, non-zero if error. */ +/************************************************************************/ + +ST_RET asn1r_get_u32 (ASN1_DEC_CTXT *ac, ST_UINT32 *ptr) + { +ST_UINT32 value; +ST_RET ret; + + ret = asn1r_get_uint32 (ac, &value); + *ptr = value; + return (ret); + } + +/************************************************************************/ +/* Use this function ONLY for "signed" integers. */ +/************************************************************************/ +static ST_RET asn1r_get_int32 (ASN1_DEC_CTXT *ac, ST_INT32 *ptr) + { +/* NOTE: Use all "unsigned" variables so shifting & casting does not */ +/* cause sign extension, then cast final result to ST_INT32. */ +ST_UINT32 value; /* decoded value */ +ST_UINT32 tmp; +ST_BOOLEAN positive; +ST_INT i; + +#ifdef DEBUG_ASN1_DECODE + if (!ptr) + { + slogCallStack (sLogCtrl, + "get_i32: attempt to reference through a NULL pointer"); + return(SD_FAILURE); + } +#endif + +/* ASN.1 spec says 'integer' must be at least 1 octet */ + if (ac->asn1r_elmnt_len < 1) + { + ALOG_ERR0 ("ASN.1 decode: length < 1 not allowed for integer"); + return (SD_FAILURE); + } + +/* Check to see if the ASN.1 data value is positive or negative */ + if (*ac->asn1r_field_ptr & 0x80) + positive = SD_FALSE; + else + positive = SD_TRUE; + + +/* Large 'unsigned' values may be 5 bytes, with a leading 0. */ +/* This value is 'signed', so it should NEVER be more than 4 bytes. */ + i = ac->asn1r_elmnt_len; + if (i > 4) + { + ALOG_NERR0 ("ASN.1 decode: invalid 'signed' integer encoding (more than 4 bytes)"); + return (SD_FAILURE); + } + +/* Read the value into a ST_UINT32, shifting as we go */ + if (!positive) + value = 0xFFFFFF00; /* negative value, start with high bits set */ + else + value = 0; /* positive value, start with 0 */ + while (SD_TRUE) + { + /* asn1r_field_ptr is (ST_UCHAR *), so this cast should NEVER sign extend.*/ + tmp = (ST_UINT32) *(ac->asn1r_field_ptr++); + value |= tmp; + if (--i == 0) + break; + + value <<= 8; /* more bytes to decode. Make room for next byte.*/ + } + +/* Finally, after all shifting & masking, cast it to 'signed' value. */ + *ptr = (ST_INT32) value; + return (SD_SUCCESS); + } + +/************************************************************************/ +/* Use this function ONLY for "unsigned" integers. */ +/************************************************************************/ +static ST_RET asn1r_get_uint32 (ASN1_DEC_CTXT *ac, ST_UINT32 *ptr) + { +ST_UINT32 value; /* decoded value */ +ST_UINT32 tmp; +ST_INT i; + +#ifdef DEBUG_ASN1_DECODE + if (!ptr) + { + slogCallStack (sLogCtrl, + "get_u32: attempt to reference through a NULL pointer"); + return(SD_FAILURE); + } +#endif + +/* ASN.1 spec says 'integer' must be at least 1 octet */ + if (ac->asn1r_elmnt_len < 1) + { + ALOG_ERR0 ("ASN.1 decode: length < 1 not allowed for integer"); + return (SD_FAILURE); + } + +/* ASN.1 data value MUST BE positive. */ + if (*ac->asn1r_field_ptr & 0x80) + { + ALOG_NERR0 ("ASN.1 decode: Negative number received for unsigned integer"); + return (SD_FAILURE); + } + +/* Large 'unsigned' values may be 5 bytes, with a leading 0. */ +/* If so, we strip the leading 0. */ + i = ac->asn1r_elmnt_len; + if (i > 5) + { + ALOG_NERR0 ("ASN.1 decode: invalid UINT32 encoding (more than 5 bytes)"); + return (SD_FAILURE); + } + if (i == 5) /* Large positive number, first byte must be 0. */ + { + if (*ac->asn1r_field_ptr != 0) + { + ALOG_NERR0 ("ASN.1 decode: invalid UINT32 encoding (5 bytes but first byte != 0)"); + return (SD_FAILURE); + } + ++ac->asn1r_field_ptr; /* skip the leading 0 */ + --i; + } + +/* Read the value into a ST_UINT32, shifting as we go */ + value = 0; + while (SD_TRUE) + { + /* asn1r_field_ptr is (ST_UCHAR *), so this cast should NEVER sign extend.*/ + tmp = (ST_UINT32) *(ac->asn1r_field_ptr++); + value |= tmp; + if (--i == 0) + break; + + value <<= 8; /* more bytes to decode. Make room for next byte.*/ + } + + *ptr = value; + return (SD_SUCCESS); + } + +/************************************************************************/ +#ifdef INT64_SUPPORT +/************************************************************************/ +/************************************************************************/ + +ST_RET asn1r_get_u64 (ASN1_DEC_CTXT *ac, ST_UINT64 *ptr) + { +ST_UINT64 value; +ST_RET ret; + + ret = asn1r_get_uint64 (ac, &value); + *ptr = value; + return (ret); + } + +/************************************************************************/ + +ST_RET asn1r_get_i64 (ASN1_DEC_CTXT *ac, ST_INT64 *ptr) + { +ST_INT64 value; +ST_RET ret; + + ret = asn1r_get_int64 (ac, &value); + *ptr = value; + return (ret); + } + +/************************************************************************/ +/* Use this function ONLY for "signed" integers. */ +/************************************************************************/ +static ST_RET asn1r_get_int64 (ASN1_DEC_CTXT *ac, ST_INT64 *ptr) + { +/* NOTE: Use all "unsigned" variables so shifting & casting does not */ +/* cause sign extension, then cast final result to ST_INT64. */ +ST_UINT64 value; /* decoded value */ +ST_UINT64 tmp; +ST_BOOLEAN positive; +ST_INT i; + +#ifdef DEBUG_ASN1_DECODE + if (!ptr) + { + slogCallStack (sLogCtrl, + "get_i64: attempt to reference through a NULL pointer"); + return(SD_FAILURE); + } +#endif + +/* ASN.1 spec says 'integer' must be at least 1 octet */ + if (ac->asn1r_elmnt_len < 1) + { + ALOG_ERR0 ("ASN.1 decode: length < 1 not allowed for integer"); + return (SD_FAILURE); + } + +/* Check to see if the ASN.1 data value is positive or negative */ + if (*ac->asn1r_field_ptr & 0x80) + positive = SD_FALSE; + else + positive = SD_TRUE; + + +/* Large 'unsigned' values may be 9 bytes, with a leading 0. */ +/* This value is 'signed', so it should NEVER be more than 8 bytes. */ + i = ac->asn1r_elmnt_len; + if (i > 8) + { + ALOG_NERR0 ("ASN.1 decode: invalid 'signed' integer encoding (more than 8 bytes)"); + return (SD_FAILURE); + } + +/* Read the value into a ST_UINT64, shifting as we go */ + if (!positive) + { +#if defined(_WIN32) + value = 0xffffffffffffff00i64; /* negative value, start with high bits set*/ +#else + value = 0xffffffffffffff00LL; /* negative value, start with high bits set*/ +#endif + } + else + value = 0; /* positive value, start with 0 */ + while (SD_TRUE) + { + /* asn1r_field_ptr is (ST_UCHAR *), so this cast should NEVER sign extend.*/ + tmp = (ST_UINT64) *(ac->asn1r_field_ptr++); + value |= tmp; + if (--i == 0) + break; + + value <<= 8; /* more bytes to decode. Make room for next byte.*/ + } + +/* Finally, after all shifting & masking, cast it to 'signed' value. */ + *ptr = (ST_INT64) value; + return (SD_SUCCESS); + } + +/************************************************************************/ +/* Use this function ONLY for "unsigned" integers. */ +/************************************************************************/ +static ST_RET asn1r_get_uint64 (ASN1_DEC_CTXT *ac, ST_UINT64 *ptr) + { +ST_UINT64 value; /* decoded value */ +ST_UINT64 tmp; +ST_INT i; + +#ifdef DEBUG_ASN1_DECODE + if (!ptr) + { + slogCallStack (sLogCtrl, + "get_u64: attempt to reference through a NULL pointer"); + return(SD_FAILURE); + } +#endif + +/* ASN.1 spec says 'integer' must be at least 1 octet */ + if (ac->asn1r_elmnt_len < 1) + { + ALOG_ERR0 ("ASN.1 decode: length < 1 not allowed for integer"); + return (SD_FAILURE); + } + +/* ASN.1 data value MUST BE positive. */ + if (*ac->asn1r_field_ptr & 0x80) + { + ALOG_NERR0 ("ASN.1 decode: Negative number received for unsigned integer"); + return (SD_FAILURE); + } + +/* Large 'unsigned' values may be 9 bytes, with a leading 0. */ +/* If so, we strip the leading 0. */ + i = ac->asn1r_elmnt_len; + if (i > 9) + { + ALOG_NERR0 ("ASN.1 decode: invalid UINT64 encoding (more than 9 bytes)"); + return (SD_FAILURE); + } + if (i == 9) /* Large positive number, first byte must be 0. */ + { + if (*ac->asn1r_field_ptr != 0) + { + ALOG_NERR0 ("ASN.1 decode: invalid UINT64 encoding (9 bytes but first byte != 0)"); + return (SD_FAILURE); + } + ++ac->asn1r_field_ptr; /* skip the leading 0 */ + --i; + } + +/* Read the value into a ST_UINT64, shifting as we go */ + value = 0; + while (SD_TRUE) + { + /* asn1r_field_ptr is (ST_UCHAR *), so this cast should NEVER sign extend.*/ + tmp = (ST_UINT64) *(ac->asn1r_field_ptr++); + value |= tmp; + if (--i == 0) + break; + + value <<= 8; /* more bytes to decode. Make room for next byte.*/ + } + + *ptr = value; + return (SD_SUCCESS); + } + +/************************************************************************/ +#endif /* #ifdef INT64_SUPPORT */ +/************************************************************************/ diff --git a/mmslib/asn1/ard_objd.c b/mmslib/asn1/ard_objd.c new file mode 100644 index 0000000..c0a75a6 --- /dev/null +++ b/mmslib/asn1/ard_objd.c @@ -0,0 +1,113 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : ard_objid.c */ +/* PRODUCT(S) : ASN1DE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 03 Chg ASN1_CTXT to ASN1_DEC_CTXT. */ +/* 09/13/99 MDE 02 Added SD_CONST modifiers */ +/* 07/26/99 MDE 01 New module, derived from ard_objid.c */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "asn1r.h" +#include "asn1log.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/************************************************************************/ +/* get_objid */ +/* Function to read an object identifier data element from an ASN.1 msg */ +/* and put sub-identifiers into integer array. */ +/************************************************************************/ + +#define MAX_OBJ_ID_COMPONENTS 16 + +ST_RET asn1r_get_objid (ASN1_DEC_CTXT *ac, ST_INT16 component_list[], ST_INT *num_components) + { +ST_UCHAR c; /* Temporary storage for octets. */ +ST_UCHAR *last_pos; /* One past last position of this data element. */ +ST_UINT16 j; /* Temporarily holds value encoded in 2 octets. */ +ST_INT i; /* Counter for looping through sub-identifiers. */ + +#ifdef DEBUG_ASN1_DECODE + if (!num_components || !component_list) + { + slogCallStack (sLogCtrl, + "get_objid: attempt to reference through a NULL pointer"); + return(SD_FAILURE); + } +#endif + + last_pos = ac->asn1r_field_ptr + ac->asn1r_elmnt_len; + c = *(ac->asn1r_field_ptr++); /* First 2 subIDs reside in 1st octet. */ + + if (c & 0x80) + { + ALOG_NERR0 ("ASN.1 decode: Object ID first octet error"); + return (SD_FAILURE); + } + + if ((component_list[0] = c/40) > 2) + { + ALOG_NERR0 ("ASN.1 decode: Object ID component 0 too big"); + return (SD_FAILURE); + } + + if ((component_list[1] = c%40) > 39) + { + ALOG_NERR0 ("ASN.1 decode: Object ID component 1 too big"); + return (SD_FAILURE); + } + + *num_components = 2; + +/* Decode remaining subIDs in contents of object identifier data el't. */ + + for (i=2; ac->asn1r_field_ptr < last_pos; i++,(*num_components)++) + { + if (i >= MAX_OBJ_ID_COMPONENTS) /* avoid overwrite */ + { + ALOG_NERR0 ("ASN.1 decode: Object ID too many components"); + return (SD_FAILURE); + } + + if ((c = *(ac->asn1r_field_ptr++)) & 0x80) /* if next octet is not last - */ + { + if (*ac->asn1r_field_ptr & 0x80) /* reject if more than 2 octets */ + { + ALOG_NERR0 ("ASN.1 decode: Object ID more than 2 octets for value"); + return (SD_FAILURE); + } + + j = (ST_UINT16) (c & 0x7F) << 7; /* support two octets per subID */ + j |= (*(ac->asn1r_field_ptr++) & 0x7F); /* merge the 14 ID bits */ + component_list[i] = j; + } + else /* only one octet */ + component_list[i] = (ST_UINT16) c; /* write masked ID code */ + } + + return(SD_SUCCESS); + } + diff --git a/mmslib/asn1/ard_ostr.c b/mmslib/asn1/ard_ostr.c new file mode 100644 index 0000000..38f8395 --- /dev/null +++ b/mmslib/asn1/ard_ostr.c @@ -0,0 +1,188 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2006, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : ard_ostr.c */ +/* PRODUCT(S) : ASN1DE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 07/20/09 JRB 10 Enable constructed octetstring code ALWAYS. */ +/* 07/02/07 JRB 09 Chg ..fixlen, ..varlen arg to (ST_UCHAR *). */ +/* 07/10/06 EJV 08 Add casting to elim warnings on Sun. */ +/* 12/05/05 JRB 07 Add asn1r_get_octstr_fixlen,asn1r_get_octstr_varlen*/ +/* 03/17/04 RKR 06 Changed thisFileName */ +/* 03/11/04 GLB 05 Remove "thisFileName" */ +/* 03/05/02 JRB 04 Eliminate warnings. */ +/* 12/20/01 JRB 03 Chg ASN1_CTXT to ASN1_DEC_CTXT. */ +/* 09/13/99 MDE 02 Added SD_CONST modifiers */ +/* 07/26/99 MDE 01 New module, derived from ard_ostr.c */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "asn1r.h" +#include "asn1log.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#if defined(DEBUG_SISCO) +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +static ST_VOID _dec_octstr_cstr (ASN1_DEC_CTXT *ac, ST_UINT16 id_code); + +/************************************************************************/ +/* asn1r_get_octstr_fixlen */ +/* Just like asn1r_get_octstr but checks the length for a */ +/* "fixed length" octet string (len must exactly match expected len). */ +/************************************************************************/ +ST_RET asn1r_get_octstr_fixlen (ASN1_DEC_CTXT *aCtx, ST_UCHAR *ptr, ST_INT len) + { +ST_RET retcode; + if (aCtx->asn1r_elmnt_len != len) + { + ALOG_ERR2("ASN.1 decode: octet string len = %d does not match expected len = %d", + aCtx->asn1r_elmnt_len, len); + retcode = SD_FAILURE; + } + else + retcode = asn1r_get_octstr (aCtx, (ST_UCHAR *) ptr); + return (retcode); + } + +/************************************************************************/ +/* asn1r_get_octstr_varlen */ +/* Just like asn1r_get_octstr but checks the length for a */ +/* "variable length" octet string (len must be "<=" max len). */ +/************************************************************************/ +ST_RET asn1r_get_octstr_varlen (ASN1_DEC_CTXT *aCtx, ST_UCHAR *ptr, ST_INT maxlen, ST_INT *lenout) + { +ST_RET retcode; + if (aCtx->asn1r_elmnt_len > maxlen) + { + ALOG_ERR2("ASN.1 decode: octet string len = %d exceeds max len = %d", + aCtx->asn1r_elmnt_len, maxlen); + retcode = SD_FAILURE; + } + else + { + *lenout = aCtx->asn1r_elmnt_len; + retcode = asn1r_get_octstr (aCtx, (ST_UCHAR *) ptr); + } + return (retcode); + } + +/************************************************************************/ +/* get_octstr */ +/* Function to read a primitive octet string from an ASN.1 message. */ +/************************************************************************/ + +ST_RET asn1r_get_octstr (ASN1_DEC_CTXT *ac, ST_UCHAR *octptr) + { +ST_INT i; + +#ifdef DEBUG_ASN1_DECODE + if (!octptr) + { + slogCallStack (sLogCtrl, + "get_octstr: attempt to reference through a NULL pointer"); + return(SD_FAILURE); + } +#endif + + + if (ac->asn1r_elmnt_len) /* Treat normal case where there are data octets. */ + { + for (i = ac->asn1r_elmnt_len; i; --i) /* Move octets to user storage area. */ + *(octptr++) = *(ac->asn1r_field_ptr++); + } + ac->asn1r_octetcount = ac->asn1r_elmnt_len; /* Compute number of data octets. */ + return (SD_SUCCESS); + } + +/************************************************************************/ +/* get_octstr_cstr */ +/* Function to setup to get a constructed octet string. */ +/************************************************************************/ + +ST_VOID asn1r_get_octstr_cstr (ASN1_DEC_CTXT *ac, ST_INT numoctets, ST_UCHAR *octptr) + { +#ifdef DEBUG_ASN1_DECODE + if (!octptr) + { + slogCallStack (sLogCtrl, + "get_octstr_cstr: attempt to reference through a NULL pointer"); + return; + } +#endif + + + ac->_asn1_maxoctets = numoctets; /* max allowed # octets */ + ac->_asn1_octetptr = octptr; /* pointer to user's storage area */ + ac->asn1r_octetcount = 0; /* running octet count */ + + ac->asn1r_u_id_fun = _dec_octstr_cstr; /* universal until octstr done */ + ac->asn1r_c_id_fun = asn1r_class_err; /* no more context */ + ac->asn1r_a_id_fun = asn1r_class_err; /* or application */ + ac->asn1r_p_id_fun = asn1r_class_err; /* or private */ + + ac->asn1r_save_method = ac->asn1r_decode_method; + ac->asn1r_decode_method = ASN1_CLASS_METHOD; + ac->_asn1r_fun_save = ac->asn1r_decode_done_fun; /* save the previous done fun */ + ac->asn1r_decode_done_fun = asn1r_done_err; /* can't be done for now */ + ac->_asn1r_cstr_done_save = ac->asn1r_c_done_fun[ac->asn1r_msg_level]; + ac->asn1r_c_done_fun[ac->asn1r_msg_level] = asn1r_chk_getcstr_done; + } + +/************************************************************************/ +/* _dec_octstr_cstr */ +/* Function to decode asn.1 constructor octet strings */ +/************************************************************************/ + +static ST_VOID _dec_octstr_cstr (ASN1_DEC_CTXT *ac, ST_UINT16 id_code) + { +ST_INT i; + + ALOG_DEC0 ("_dec_octstr_cstr"); + + if ((id_code & OCT_CODE) != OCT_CODE) + { /* Protocol error - invalid ID Code. */ + ALOG_NERR0 ("ASN.1 decode: constructed octetstring, invalid tag"); + asn1r_set_dec_err(ac, ASN1E_UNEXPECTED_TAG); + return; + } + + if (ac->asn1r_constr_elmnt) /* Don't do anything for constructors. */ + { + ac->asn1r_c_done_fun[ac->asn1r_msg_level] = NULL; + return; + } + + ac->asn1r_octetcount += ac->asn1r_elmnt_len; + if (ac->asn1r_octetcount > ac->_asn1_maxoctets) + { /* User error - overflowed user storage area. */ + ALOG_NERR0 ("ASN.1 decode: constructed octetstring too long"); + asn1r_set_dec_err(ac, ASN1E_OCTSTR_TOO_BIG); + return; + } + + if (ac->asn1r_elmnt_len) /* Treat normal case where there are data octets. */ + { + for (i = ac->asn1r_elmnt_len; i; --i) /* Move octets to user storage area. */ + *(ac->_asn1_octetptr++) = *(ac->asn1r_field_ptr++); + } + return; + } + diff --git a/mmslib/asn1/ard_strn.c b/mmslib/asn1/ard_strn.c new file mode 100644 index 0000000..052638d --- /dev/null +++ b/mmslib/asn1/ard_strn.c @@ -0,0 +1,54 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : ard_strn.c */ +/* PRODUCT(S) : ASN1DE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 04 Remove "thisFileName" */ +/* 12/20/01 JRB 03 Chg ASN1_CTXT to ASN1_DEC_CTXT. */ +/* 09/13/99 MDE 02 Added SD_CONST modifiers */ +/* 07/26/99 MDE 01 New module, derived from ad_strn.c */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "asn1r.h" +#include "asn1log.h" + +/************************************************************************/ +/* get_strn */ +/* Reads character data from message into selected buffer. No error */ +/* checking is done. The calling routine must verify that the buffer */ +/* is big enough. Conversion from ASCII to local character represen- */ +/* tation is not necessary for MS-DOS. */ +/************************************************************************/ + +ST_VOID asn1r_get_strn (ASN1_DEC_CTXT *ac, ST_CHAR *ptr) + { +ST_INT i; + +#ifdef DEBUG_ASN1_DECODE + if (!ptr) + { + slogCallStack (sLogCtrl, + "get_strn: attempt to reference through a NULL pointer"); + return; + } +#endif + + for (i = ac->asn1r_elmnt_len; i; --i) + *(ptr++) = (ST_CHAR) *(ac->asn1r_field_ptr++); + } + diff --git a/mmslib/asn1/ard_time.c b/mmslib/asn1/ard_time.c new file mode 100644 index 0000000..46843a6 --- /dev/null +++ b/mmslib/asn1/ard_time.c @@ -0,0 +1,284 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2006, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : ard_time.c */ +/* PRODUCT(S) : ASN1DE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 01/16/07 JRB 07 Fix err decoding time near "19700101000000Z" */ +/* in timezone east of GMT by using usr_mkgmtime.*/ +/* 03/23/06 EJV 06 Cast time_t var to (ST_ULONG) and use '%lu'. */ +/* 07/26/02 EJV 05 Added code to skip fraction of a second. */ +/* 12/20/01 JRB 04 Chg ASN1_CTXT to ASN1_DEC_CTXT. */ +/* 11/19/01 EJV 03 Made asn1dec_figureDelta func static */ +/* 09/13/99 MDE 02 Added SD_CONST modifiers */ +/* 07/26/99 MDE 01 New module, derived from ad_time.c */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "asn1r.h" +#include "asn1log.h" +#include "time_str.h" /* for usr_mkgmtime */ + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/* get_time */ +/* Function to decode Generalized Time into MS-DOS time (= number of */ +/* seconds since 00:00 Jan 1, 1970, GMT). */ +/************************************************************************/ + +ST_RET asn1r_get_time (ASN1_DEC_CTXT *ac, time_t *decTimeTValue) + { +struct tm breakDown; +struct tm gStruTime; +ST_UCHAR *last_pos; +ST_CHAR time_comp[6]; +ST_BOOLEAN adjustmetPos; +ST_INT adjust; +time_t resultantTimeT; + + /* check to see if the pointer for returning is valid */ + if (!decTimeTValue) + { + ALOG_ERR0 ("Required pointer passed to function is NULL, expecting non NULL time_t pointer"); + return(SD_FAILURE); + } + + ALOG_DEC0("Decode ASN1 generalized time string "); + last_pos = ac->asn1r_field_ptr + ac->asn1r_elmnt_len; /* 1 + last pos'n in data el't */ + + /* Determine the Year in this generalized time string */ + time_comp[0] = (ST_CHAR)*ac->asn1r_field_ptr++; + time_comp[1] = (ST_CHAR)*ac->asn1r_field_ptr++; + time_comp[2] = (ST_CHAR)*ac->asn1r_field_ptr++; + time_comp[3] = (ST_CHAR)*ac->asn1r_field_ptr++; + time_comp[4] = 0; + /* Convert the year to a integer string */ + breakDown.tm_year = (ST_INT16) atoi(time_comp); + breakDown.tm_year = breakDown.tm_year - 1900; + + /* Determine the month in this generalized time string */ + time_comp[0] = (ST_CHAR)*ac->asn1r_field_ptr++; + time_comp[1] = (ST_CHAR)*ac->asn1r_field_ptr++; + time_comp[2] = 0; + /* Convert the month to a integer string */ + breakDown.tm_mon = (ST_INT16) atoi(time_comp); + breakDown.tm_mon = breakDown.tm_mon - 1; + + /* Determine the day of the month in this generalized time string */ + time_comp[0] = (ST_CHAR)*ac->asn1r_field_ptr++; + time_comp[1] = (ST_CHAR)*ac->asn1r_field_ptr++; + time_comp[2] = 0; + /* Convert the day of the month to a integer string */ + breakDown.tm_mday = (ST_INT16) atoi(time_comp); + + /* Determine the hour in this generalized time string */ + time_comp[0] = (ST_CHAR)*ac->asn1r_field_ptr++; + time_comp[1] = (ST_CHAR)*ac->asn1r_field_ptr++; + time_comp[2] = 0; + /* Convert the hour to a integer string */ + breakDown.tm_hour = (ST_INT16) atoi(time_comp); + + /* Determine the min in this generalized time string */ + time_comp[0] = (ST_CHAR)*ac->asn1r_field_ptr++; + time_comp[1] = (ST_CHAR)*ac->asn1r_field_ptr++; + time_comp[2] = 0; + /* Convert the min to a integer string */ + breakDown.tm_min = (ST_INT16) atoi(time_comp); + + /* Determine the sec in this generalized time string */ + time_comp[0] = (ST_CHAR)*ac->asn1r_field_ptr++; + time_comp[1] = (ST_CHAR)*ac->asn1r_field_ptr++; + time_comp[2] = 0; + /* Convert the sec to a integer string */ + breakDown.tm_sec = (ST_INT16) atoi(time_comp); + + /* Check to see if we have overrun */ + if (ac->asn1r_field_ptr > last_pos) + return(SD_FAILURE); + + /* Broken Down Time component's */ + + ALOG_CDEC0(" Broken Down Component's so far"); + ALOG_CDEC1(" tm_sec %d",breakDown.tm_sec); + ALOG_CDEC1(" tm_min %d",breakDown.tm_min); + ALOG_CDEC1(" tm_hour %d",breakDown.tm_hour); + ALOG_CDEC1(" tm_mon %d",breakDown.tm_mon); + ALOG_CDEC1(" tm_year %d",breakDown.tm_year); + ALOG_CDEC1(" tm_mday %d",breakDown.tm_mday); + + /* There maybe be a fraction of a second in the generalized time. */ + /* Ignore the fraction value since we can not pass it currently up. */ + if (*ac->asn1r_field_ptr == '.') + { + ac->asn1r_field_ptr++; + /* skip all digits after the period */ + while (isdigit((ST_INT)(*ac->asn1r_field_ptr)) && ac->asn1r_field_ptr <= last_pos) + ac->asn1r_field_ptr++; + } + + /* Actually break down the date and time as a local time*/ + if (ac->asn1r_field_ptr == last_pos) + { + /* Place the known data into the fields */ + gStruTime.tm_sec = breakDown.tm_sec; + gStruTime.tm_min = breakDown.tm_min; + gStruTime.tm_hour = breakDown.tm_hour; + gStruTime.tm_mon = breakDown.tm_mon; + gStruTime.tm_year = breakDown.tm_year; + gStruTime.tm_mday = breakDown.tm_mday; + + gStruTime.tm_yday = 0; + gStruTime.tm_wday = 0; + gStruTime.tm_isdst = 0; + + /* Ask for a make time */ + resultantTimeT = mktime(&gStruTime); + + if (resultantTimeT == (time_t)-1) + { + ALOG_ERR0 ("mktime function returned -1 for time"); + return(SD_FAILURE); + } + + ALOG_CDEC1("Local time Decode : First Pass %lu ", (ST_ULONG) resultantTimeT); + + /* if the DST flag came up set, re run it with the DST flag */ + if (gStruTime.tm_isdst == 1) + { + gStruTime.tm_sec = breakDown.tm_sec; + gStruTime.tm_min = breakDown.tm_min; + gStruTime.tm_hour = breakDown.tm_hour; + gStruTime.tm_mon = breakDown.tm_mon; + gStruTime.tm_year = breakDown.tm_year; + gStruTime.tm_mday = breakDown.tm_mday; + + gStruTime.tm_yday = 0; + gStruTime.tm_wday = 0; + gStruTime.tm_isdst = 1; + + resultantTimeT = mktime(&gStruTime); + + if (resultantTimeT == (time_t)-1) + { + ALOG_ERR0 ("mktime function returned -1 for time"); + return(SD_FAILURE); + } + + ALOG_CDEC1("Local time Decode : Second Pass %lu ", (ST_ULONG) resultantTimeT); + } + + ALOG_CDEC1("Local time Decode : Result %lu ", (ST_ULONG) resultantTimeT); + + /* Now factor the Difference between GMT and local */ + *decTimeTValue = resultantTimeT; + + return (SD_SUCCESS); + } + + /* Actually break down the date and time as a GMT based time with possible offset */ + if ((*ac->asn1r_field_ptr == 'Z')||(*ac->asn1r_field_ptr == '+')||(*ac->asn1r_field_ptr == '-')) + { + /* Place the known data into the fields */ + gStruTime.tm_sec = breakDown.tm_sec; + gStruTime.tm_min = breakDown.tm_min; + gStruTime.tm_hour = breakDown.tm_hour; + gStruTime.tm_mon = breakDown.tm_mon; + gStruTime.tm_year = breakDown.tm_year; + gStruTime.tm_mday = breakDown.tm_mday; + + gStruTime.tm_yday = 0; + gStruTime.tm_wday = 0; + gStruTime.tm_isdst = 0; + + /* Ask for a make time */ + /* Convert "tm" struct to "time_t" assuming struct represents GMT time.*/ + resultantTimeT = usr_mkgmtime(&gStruTime); + if (resultantTimeT == (time_t)-1) + { + ALOG_ERR0 ("usr_mkgmtime function returned -1 for time"); + return(SD_FAILURE); + } + + ALOG_CDEC1("GMT time Decode : Result %lu ", (ST_ULONG) resultantTimeT); + + /* Now factor the Difference between GMT and local */ + *decTimeTValue = resultantTimeT; + + /* now if there are adjustment's to GMT */ + if ((*ac->asn1r_field_ptr == '+')||(*ac->asn1r_field_ptr == '-')) + { + if (*ac->asn1r_field_ptr == '+') + { + ALOG_CDEC0("Doing a GMT based adjustment of (+) "); + adjustmetPos = SD_TRUE; + } + else + { + ALOG_CDEC0("Doing a GMT based adjustment of (-) "); + adjustmetPos = SD_FALSE; + } + + ac->asn1r_field_ptr++; + time_comp[0] = (ST_CHAR)*ac->asn1r_field_ptr++; + time_comp[1] = (ST_CHAR)*ac->asn1r_field_ptr++; + time_comp[2] = 0; + adjust = atoi(time_comp); + + ALOG_CDEC1("Adjust by Hours %d ",adjust); + + if (adjustmetPos == SD_TRUE) + *decTimeTValue += (time_t) (adjust*(60 * 60)); /* adjust hrs */ + else + *decTimeTValue -= (time_t) (adjust*(60 * 60)); /* adjust hrs */ + + time_comp[0] = (ST_CHAR)*ac->asn1r_field_ptr++; + time_comp[1] = (ST_CHAR)*ac->asn1r_field_ptr++; + time_comp[2] = 0; + adjust = atoi(time_comp); + + ALOG_CDEC1("Adjust by Minutes %d ",adjust); + + if (adjustmetPos == SD_TRUE) + *decTimeTValue += (time_t) (adjust*(60)); /* adjust min */ + else + *decTimeTValue -= (time_t) (adjust*(60)); /* adjust min */ + + ALOG_CDEC1("GMT time Decode with offset : Result %lu ", (ST_ULONG) (*decTimeTValue)); + + return (SD_SUCCESS); + } + else + { + ac->asn1r_field_ptr++; /* Skip the 'Z' */ + return (SD_SUCCESS); + } + } /* end of GMT based Time */ + + /* if the string to decode does not end in nothing, "Z", "+", "-" */ + /* then return failure and dump the string */ + + ALOG_ERR0 ("Time string cannot be decoded by this ASN1 function"); + return(SD_FAILURE); + } + + diff --git a/mmslib/asn1/ard_utc.c b/mmslib/asn1/ard_utc.c new file mode 100644 index 0000000..5778f32 --- /dev/null +++ b/mmslib/asn1/ard_utc.c @@ -0,0 +1,80 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2004, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : ard_utc.c */ +/* PRODUCT(S) : ASN1DE */ +/* */ +/* MODULE DESCRIPTION : Decode MMS UtcTime */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/16/04 EJV 05 Added ST_(U)LONG typecast to logs,on some sys*/ +/* ST_(U)INT32 can be (unsigned) long or int. */ +/* 07/26/02 EJV 04 Time Quality byte chg position to lowest. */ +/* Added logging. */ +/* 07/03/02 EJV 03 MMS_UTC_TIME: chg name usec to fraction. */ +/* 12/20/01 JRB 02 Chg ASN1_CTXT to ASN1_DEC_CTXT. */ +/* 11/09/01 EJV 01 New module, derived from ard_btod.c */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "asn1r.h" +#include "asn1log.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/* asn1r_get_utc_time */ +/************************************************************************/ + +ST_RET asn1r_get_utc_time (ASN1_DEC_CTXT *ac, MMS_UTC_TIME *dest) + { +#ifdef DEBUG_ASN1_DECODE + if (!dest) + { + slogCallStack (sLogCtrl, + "asn1r_get_utc_time: attempt to reference through a NULL pointer"); + return(SD_FAILURE); + } +#endif + + ALOG_DEC0("Decoding UtcTime"); + + /* Read the number of seconds since January 1, 1970 (4 bytes) */ + dest->secs = (((ST_UINT32) *(ac->asn1r_field_ptr++)) << 24) & 0xFF000000L; + dest->secs |= (((ST_UINT32) *(ac->asn1r_field_ptr++)) << 16) & 0x00FF0000L; + dest->secs |= (((ST_UINT32) *(ac->asn1r_field_ptr++)) << 8) & 0x0000FF00L; + dest->secs |= ((ST_UINT32) *(ac->asn1r_field_ptr++)) & 0x000000FFL; + + /* read fraction of a second (3 bytes) */ + dest->fraction = (((ST_UINT32) *(ac->asn1r_field_ptr++)) << 16) & 0x00FF0000L; + dest->fraction |= (((ST_UINT32) *(ac->asn1r_field_ptr++)) << 8) & 0x0000FF00L; + dest->fraction |= ((ST_UINT32) *(ac->asn1r_field_ptr++)) & 0x000000FFL; + + /* read the quality flags (1 byte) */ + dest->qflags = ((ST_UINT32) *(ac->asn1r_field_ptr++)); + + ALOG_CDEC1("seconds: %lu", (ST_ULONG) dest->secs); + ALOG_CDEC1("fraction: %lu", (ST_ULONG) dest->fraction); + ALOG_CDEC1("quality: 0x%lX", (ST_ULONG) dest->qflags); + + return (SD_SUCCESS); + } + + + diff --git a/mmslib/asn1/ard_vstr.c b/mmslib/asn1/ard_vstr.c new file mode 100644 index 0000000..7cffb91 --- /dev/null +++ b/mmslib/asn1/ard_vstr.c @@ -0,0 +1,214 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2004, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : ard_vstr.c */ +/* PRODUCT(S) : ASN1DE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/05/05 JRB 09 Add asn1r_get_vstr_maxlen. */ +/* 03/22/05 JRB 08 Fix cast in log macro. */ +/* 01/16/04 EJV 07 Added typecast to elim warning on AIX. */ +/* 09/24/03 JRB 06 Fix to properly decode 0-length UTF8string. */ +/* 04/22/03 JRB 05 Allow fixed len UTF8 only if local fmt=UTF16.*/ +/* 04/02/03 JRB 04 Add UTF8string support (asn1r_get_utf8) */ +/* 12/20/01 JRB 03 Chg ASN1_CTXT to ASN1_DEC_CTXT. */ +/* 09/13/99 MDE 02 Added SD_CONST modifiers */ +/* 07/26/99 MDE 01 New module, derived from ad_vstr.c */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include +#include "asn1r.h" +#include "asn1log.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/* asn1r_get_vstr_maxlen */ +/* Just like asn1r_get_vstr but checks the string length. */ +/* NOTE: caller's buffer must be 1 byte bigger than max_len to allow */ +/* room for NULL terminator. */ +/************************************************************************/ +ST_RET asn1r_get_vstr_maxlen (ASN1_DEC_CTXT *aCtx, ST_CHAR *ptr, ST_INT max_len) + { + if (aCtx->asn1r_elmnt_len > max_len) + { + ALOG_ERR0("ASN.1 decode: visible string too long"); + return (SD_FAILURE); + } + else + return (asn1r_get_vstr (aCtx, ptr)); + } + +/************************************************************************/ +/* get_vstr */ +/* Reads visible character data from message into selected buffer. If */ +/* character is encountered which is not valid for ASN.1 VisibleString */ +/* type, error code will be returned as function return value. Other- */ +/* wise, function return value will be zero. The calling function must */ +/* verify that buffer is big enough. Conversion from ASCII to local */ +/* character representation is not necessary for MS-DOS. */ +/************************************************************************/ + +ST_RET asn1r_get_vstr (ASN1_DEC_CTXT *ac, ST_CHAR *ptr) + { +ST_INT i; + +#ifdef DEBUG_ASN1_DECODE + if (!ptr) + { + slogCallStack (sLogCtrl, + "get_vstr: attempt to reference through a NULL pointer"); + return(SD_FAILURE); + } +#endif + + for (i = ac->asn1r_elmnt_len; i; --i) + { + *ptr = (ST_CHAR) *(ac->asn1r_field_ptr++); /* Move character to user buffer. */ + + if (*ptr < ' ') /* Check that character is not a control char. */ + { + ALOG_NERR1 ("ASN.1 decode: invalid character (0x%02x) in visible string", + (ST_UINT)(ST_UCHAR) *ptr); /* 2 casts to avoid sign extension*/ + return (SD_FAILURE); + } + ptr++; + } + *ptr = '\x00'; /* Null terminate the visible string. */ + return(SD_SUCCESS); /* If no problelms, return success. */ + } + +/************************************************************************/ +/* asn1r_get_utf8 */ +/* Reads Unicode UTF8 string data from message into selected buffer. If */ +/* character is encountered which is not valid for ASN.1 UTF8string */ +/* type, error code will be returned as function return value. Other- */ +/* wise, function return value will be zero. The calling function must */ +/* verify that buffer is big enough. */ +/************************************************************************/ + +ST_RET asn1r_get_utf8 (ASN1_DEC_CTXT *aCtx, ST_CHAR *ptr, ST_INT el_len) + { +ST_INT dst_len, local_len; + +#ifdef DEBUG_ASN1_DECODE + if (!ptr) + { + slogCallStack (sLogCtrl, + "get_utf8: attempt to reference through a NULL pointer"); + return(SD_FAILURE); + } +#endif + +/* Convert from UTF8 to local format. Input is NOT NULL terminated. + * abs (el_len) = maximum number of Unicode "characters". + * Multiply by the maximum size of each Unicode "character". + */ +#if (UNICODE_LOCAL_FORMAT==UNICODE_UTF16) + dst_len = abs(el_len)*2; +#else /* default is UTF8 */ + dst_len = abs(el_len)*4; +#endif + local_len = asn1r_utf8_to_local (ptr, dst_len, (ST_CHAR *) aCtx->asn1r_field_ptr, aCtx->asn1r_elmnt_len); + if (local_len < 0) + { + ALOG_NERR0 ("ASN.1 decode: UTF8 to local conversion failed"); + return(SD_FAILURE); + } + /* If this is "fixed length" (el_len>0), length must match. */ +#if (UNICODE_LOCAL_FORMAT==UNICODE_UTF16) + if (el_len > 0 && el_len*2 != local_len) /* Fixed len string */ + { + ALOG_NERR2 ("ASN.1 decode: expected UTF8string%d, received UTF8string%d", + el_len, local_len/2); + return (SD_FAILURE); + } + *(ST_UINT16*)(ptr+local_len) = 0; /* add "2 byte" NULL */ +#else /* default is UTF8 */ + if (el_len > 0) /* Fixed len string */ + { + /* This error should never occur because no way to define fixed len UTF8.*/ + ALOG_ERR0 ("ASN.1 decode: 'FIXED LENGTH' UTF8string not supported on this platform"); + return (SD_FAILURE); + } + ptr[local_len] = '\0'; /* add NULL */ +#endif + + aCtx->asn1r_field_ptr += aCtx->asn1r_elmnt_len; /* Update decode ptr*/ + return(SD_SUCCESS); + } + +#if (UNICODE_LOCAL_FORMAT==UNICODE_UTF16) +#if defined(_WIN32) +#include +/************************************************************************/ +/* On Windows, the local format is UTF16, so this function converts */ +/* from UTF8 string to UTF16 string. */ +/* CRITICAL: "dst" is NOT automatically NULL terminated, so calling */ +/* function must do so if necessary. */ +/* dst_len = num bytes in dst "UTF16" string. */ +/* src_len = num bytes in src "UTF8" string. */ +/************************************************************************/ +ST_INT asn1r_utf8_to_local (ST_CHAR *dst, ST_INT dst_len, ST_CHAR *src, ST_INT src_len) + { +int ret; +ST_UINT16 *dst_utf16 = (ST_UINT16 *) dst; + + /* This function expects the max number of UTF16 chars (2 bytes per char) + * in the last arg, so divide "dst_len" by 2. + * It does NOT automatically NULL terminate, so neither does this function. + * It returns the number of UTF16 chars converted, so we multiply the + * return value by 2 to return the number of bytes. + */ +/*renxiaobao UTF8ÖÐÎıàÂëÐÞ¸Ä*/ +#ifdef WIN32 + memcpy(dst,src,src_len); return src_len; +#else + + ret = MultiByteToWideChar (CP_UTF8, 0, + src, src_len, dst_utf16, dst_len/2); + if (ret >= 0) + return (ret*2); /* success */ + return (-1); /* error */ +#endif + } +#else /* All other systems */ +#error Unicode UTF16 currently only supported on Windows +#endif +#else /* UNICODE_LOCAL_FORMAT==UNICODE_UTF8 */ +/************************************************************************/ +/* This function should work on any system where the local Unicode */ +/* format is UTF8. The ASN.1 format is also UTF8, so this function */ +/* basically just copies the string. */ +/* CRITICAL: dst_len must be >= src_len */ +/************************************************************************/ +ST_INT asn1r_utf8_to_local (ST_CHAR *dst, ST_INT dst_len, ST_CHAR *src, ST_INT src_len) + { + if (dst_len >= src_len) /* make sure dst has room */ + { + if (src_len > 0) + memcpy (dst, src, src_len); + return (src_len); /* success */ + } + return (-1); /* error */ + } +#endif /* UNICODE_LOCAL_FORMAT==UNICODE_UTF8 */ diff --git a/mmslib/asn1/are_bool.c b/mmslib/asn1/are_bool.c new file mode 100644 index 0000000..73153f3 --- /dev/null +++ b/mmslib/asn1/are_bool.c @@ -0,0 +1,48 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2002, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : are_bool.c */ +/* PRODUCT(S) : ASN1DE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 01/14/03 JRB 05 Avoid redundant logging of encode overrun. */ +/* 01/22/02 JRB 04 Chg asn1r_end_of_buffer to asn1r_buf_start. */ +/* 12/20/01 JRB 03 Chg ASN1_CTXT to ASN1_ENC_CTXT. */ +/* 09/13/99 MDE 02 Added SD_CONST modifiers */ +/* 07/26/99 MDE 01 New module, derived from ae_bool.c */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "asn1r.h" +#include "asn1log.h" + + +/************************************************************************/ +/************************************************************************/ +/* wr_bool */ +/************************************************************************/ + +ST_VOID asn1r_wr_bool (ASN1_ENC_CTXT *ac, ST_BOOLEAN data) + { + if (ac->asn1r_field_ptr - 1 < ac->asn1r_buf_start) + { + ac->asn1r_encode_overrun = SD_TRUE; + return; + } + *(ac->asn1r_field_ptr--) = (ST_UCHAR) data; + } + + diff --git a/mmslib/asn1/are_bstr.c b/mmslib/asn1/are_bstr.c new file mode 100644 index 0000000..aa5011c --- /dev/null +++ b/mmslib/asn1/are_bstr.c @@ -0,0 +1,74 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2002, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : are_bstr.c */ +/* PRODUCT(S) : ASN1DE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/09/08 JRB 08 Fail encode if Bstring len < 0. */ +/* 03/11/04 GLB 07 Remove "thisFileName" */ +/* 01/14/03 JRB 06 Avoid redundant logging of encode overrun. */ +/* 03/05/02 JRB 05 Eliminate warnings. */ +/* 01/22/02 JRB 04 Chg asn1r_end_of_buffer to asn1r_buf_start. */ +/* 12/20/01 JRB 03 Chg ASN1_CTXT to ASN1_ENC_CTXT. */ +/* 09/13/99 MDE 02 Added SD_CONST modifiers */ +/* 07/26/99 MDE 01 New module, derived from ae_bstr.c */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "asn1r.h" +#include "asn1log.h" +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + + +/************************************************************************/ +/* wr_bitstr */ +/************************************************************************/ + +ST_VOID asn1r_wr_bitstr (ASN1_ENC_CTXT *ac, ST_UCHAR *bitPtr, ST_INT numBits) + { +ST_INT bitsLeft; +ST_INT numBytes; + + if (numBits < 0) + { + ALOG_ERR0 ("ASN.1 Bitstring encode: Length < 0 not allowed"); + /* This is not really an overrun, but the overrun flag is the only */ + /* thing checked by the caller to detect an encoding error. */ + ac->asn1r_encode_overrun = SD_TRUE; + return; + } + + numBytes = numBits/8; /* calculate the total # bytes req'd */ + if ((bitsLeft = numBits % 8)!=0) /* get remainder */ + numBytes++; + + if (ac->asn1r_field_ptr - numBytes < ac->asn1r_buf_start) + { + ac->asn1r_encode_overrun = SD_TRUE; + return; + } + + ac->asn1r_field_ptr -= numBytes; + memcpy (ac->asn1r_field_ptr+1, bitPtr, numBytes); + + if (bitsLeft) /* write the unused-bits octet */ + *(ac->asn1r_field_ptr--) = (ST_UCHAR) (8 - bitsLeft); + else + *(ac->asn1r_field_ptr--) = 0; + } + diff --git a/mmslib/asn1/are_btod.c b/mmslib/asn1/are_btod.c new file mode 100644 index 0000000..8707de6 --- /dev/null +++ b/mmslib/asn1/are_btod.c @@ -0,0 +1,58 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2002, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : are_btod.c */ +/* PRODUCT(S) : ASN1DE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 01/14/03 JRB 05 Avoid redundant logging of encode overrun. */ +/* 01/22/02 JRB 04 Chg asn1r_end_of_buffer to asn1r_buf_start. */ +/* 12/20/01 JRB 03 Chg ASN1_CTXT to ASN1_ENC_CTXT. */ +/* 09/13/99 MDE 02 Added SD_CONST modifiers */ +/* 07/26/99 MDE 01 New module, derived from ae_btod.c */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "asn1r.h" +#include "asn1log.h" + +/************************************************************************/ +/* wr_btod */ +/************************************************************************/ + +ST_VOID asn1r_wr_btod (ASN1_ENC_CTXT *ac, MMS_BTOD *data) + { + /* check for overun of buffer */ + if (ac->asn1r_field_ptr - 6 < ac->asn1r_buf_start) + { + ac->asn1r_encode_overrun = SD_TRUE; + return; + } + + if (data->form == MMS_BTOD6) + { + *(ac->asn1r_field_ptr--) = (ST_UCHAR) (data->day & 0xFF); /* low byte */ + *(ac->asn1r_field_ptr--) = (ST_UCHAR) ((data->day >> 8) & 0xFF);/* high byte */ + } + + /* In any case, calculate and write the time component of the TimeOfDay */ + /* value. */ + *(ac->asn1r_field_ptr--) = (ST_UCHAR) (data->ms & 0xFF); + *(ac->asn1r_field_ptr--) = (ST_UCHAR) ((data->ms >> 8) & 0xFF); + *(ac->asn1r_field_ptr--) = (ST_UCHAR) ((data->ms >> 16) & 0xFF); + *(ac->asn1r_field_ptr--) = (ST_UCHAR) ((data->ms >> 24) & 0xFF); + } + diff --git a/mmslib/asn1/are_delm.c b/mmslib/asn1/are_delm.c new file mode 100644 index 0000000..020494c --- /dev/null +++ b/mmslib/asn1/are_delm.c @@ -0,0 +1,43 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2002, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : are_delmn.c */ +/* PRODUCT(S) : ASN1DE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 05 Remove "thisFileName" */ +/* 01/22/02 JRB 04 Chg asn1r_field_start to asn1r_field_end. */ +/* 12/20/01 JRB 03 Chg ASN1_CTXT to ASN1_ENC_CTXT. */ +/* 09/13/99 MDE 02 Added SD_CONST modifiers */ +/* 07/26/99 MDE 01 New module, derived from ae_delmn.c */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "asn1r.h" +#include "asn1log.h" + + +/************************************************************************/ +/* wr_delmnt */ +/* Function to write an entire data element to a message being built. */ +/* Useful when another layer of software encodes a data element to be */ +/* inserted into the current message. */ +/************************************************************************/ + +ST_VOID asn1r_wr_delmnt (ASN1_ENC_CTXT *ac, ST_UCHAR *bufPtr, ST_INT bufLen) + { + asn1r_wr_octstr (ac, bufPtr, bufLen); + ac->asn1r_field_end = ac->asn1r_field_ptr; + } diff --git a/mmslib/asn1/are_flt.c b/mmslib/asn1/are_flt.c new file mode 100644 index 0000000..964e45c --- /dev/null +++ b/mmslib/asn1/are_flt.c @@ -0,0 +1,122 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2002, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : are_float.c */ +/* PRODUCT(S) : ASN1DE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 08 Remove "thisFileName" */ +/* 01/14/03 JRB 07 Avoid redundant logging of encode overrun. */ +/* 02/19/03 JRB 06 Use SD_BYTE_ORDER. */ +/* 02/19/03 JRB 05 Del VAX VMS support. For ALPHA VMS, assume */ +/* compiler option /FLOAT=IEEE_FLOAT is used */ +/* so it behaves like other systems. */ +/* 01/22/02 JRB 04 Chg asn1r_end_of_buffer to asn1r_buf_start. */ +/* 12/20/01 JRB 03 Chg ASN1_CTXT to ASN1_ENC_CTXT. */ +/* 09/13/99 MDE 02 Added SD_CONST modifiers */ +/* 07/26/99 MDE 01 New module, derived from ae_float.c */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "asn1r.h" +#include "asn1log.h" + + +/************************************************************************/ +/* wr_float */ +/* Function to convert a value of the single precision "float" type to */ +/* the MMS floating point type (of length 5 octets) and write it to the */ +/* message being constructed. The encoded floating point value is in */ +/* the standard IEEE 754 single precision floating point format with */ +/* the additional exponent width octet. */ +/************************************************************************/ + +ST_VOID asn1r_wr_float (ASN1_ENC_CTXT *ac, ST_FLOAT in) + { +ST_UCHAR *ptr; +ST_FLOAT f; + + if (ac->asn1r_field_ptr - 5 < ac->asn1r_buf_start) + { + ac->asn1r_encode_overrun = SD_TRUE; + return; + } + +#if defined(__OS2__) + ptr = (ST_UCHAR *) ∈ +#else + f = (ST_FLOAT) in; + ptr = (ST_UCHAR *) &f; +#endif + +#if SD_BYTE_ORDER==SD_BIG_ENDIAN /* big-endian (like Motorola) */ + f = (ST_FLOAT) in; + ptr = (ST_UCHAR *) &f; + ptr += 3; + *(ac->asn1r_field_ptr--) = *(ptr--); + *(ac->asn1r_field_ptr--) = *(ptr--); + *(ac->asn1r_field_ptr--) = *(ptr--); +#else + *(ac->asn1r_field_ptr--) = *(ptr++); + *(ac->asn1r_field_ptr--) = *(ptr++); + *(ac->asn1r_field_ptr--) = *(ptr++); +#endif + *(ac->asn1r_field_ptr--) = *ptr; + *(ac->asn1r_field_ptr--) = (ST_UCHAR)'\x08'; + } + +/************************************************************************/ +/* wr_double */ +/* Function to convert a value of the double precision "double" type to */ +/* the MMS floating point type (of length 9 octets) and write it to the */ +/* message being constructed. The encoded floating point value is in */ +/* the standard IEEE 754 double precision floating point format with */ +/* the additional exponent width octet. */ +/************************************************************************/ + +ST_VOID asn1r_wr_double (ASN1_ENC_CTXT *ac, ST_DOUBLE in) + { +ST_UCHAR *ptr; + + if (ac->asn1r_field_ptr - 9 < ac->asn1r_buf_start) + { + ac->asn1r_encode_overrun = SD_TRUE; + return; + } + +#if SD_BYTE_ORDER==SD_BIG_ENDIAN /* big-endian (like Motorola) */ + ptr = (ST_UCHAR *) &in + 7; + *(ac->asn1r_field_ptr--) = *(ptr--); + *(ac->asn1r_field_ptr--) = *(ptr--); + *(ac->asn1r_field_ptr--) = *(ptr--); + *(ac->asn1r_field_ptr--) = *(ptr--); + *(ac->asn1r_field_ptr--) = *(ptr--); + *(ac->asn1r_field_ptr--) = *(ptr--); + *(ac->asn1r_field_ptr--) = *(ptr--); +#else + ptr = (ST_UCHAR *) ∈ + *(ac->asn1r_field_ptr--) = *(ptr++); + *(ac->asn1r_field_ptr--) = *(ptr++); + *(ac->asn1r_field_ptr--) = *(ptr++); + *(ac->asn1r_field_ptr--) = *(ptr++); + *(ac->asn1r_field_ptr--) = *(ptr++); + *(ac->asn1r_field_ptr--) = *(ptr++); + *(ac->asn1r_field_ptr--) = *(ptr++); +#endif + *(ac->asn1r_field_ptr--) = *ptr; + *(ac->asn1r_field_ptr--) = (ST_UCHAR)'\x0B'; + } + + diff --git a/mmslib/asn1/are_int.c b/mmslib/asn1/are_int.c new file mode 100644 index 0000000..506f2a4 --- /dev/null +++ b/mmslib/asn1/are_int.c @@ -0,0 +1,241 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2002, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : are_int.c */ +/* PRODUCT(S) : ASN1DE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 08 Remove "thisFileName" */ +/* 01/14/03 JRB 07 Avoid redundant logging of encode overrun. */ +/* 01/22/02 JRB 06 Chg asn1r_end_of_buffer to asn1r_buf_start. */ +/* 12/20/01 JRB 05 Chg ASN1_CTXT to ASN1_ENC_CTXT. */ +/* 11/12/01 EJV 04 Fixed function name asn1r_wr_i64 */ +/* 09/26/00 JRB 03 Add another #ifdef INT64_SUPPORT */ +/* 09/13/99 MDE 02 Added SD_CONST modifiers */ +/* 07/26/99 MDE 01 New module, derived from ae_int.c */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "asn1r.h" +#include "asn1log.h" + + +/************************************************************************/ +/* Local functions in this module */ +/* These are not static because we may want to use them in macro's */ +/* to speed things up some time in the future. */ + +ST_VOID asn1r_wr_int32 (ASN1_ENC_CTXT *ac, ST_INT32 data, ST_BOOLEAN positive); +#ifdef INT64_SUPPORT +ST_VOID asn1r_wr_int64 (ASN1_ENC_CTXT *ac, ST_INT64 data, ST_BOOLEAN positive); +#endif + +/************************************************************************/ +/* wr_i8 */ +/************************************************************************/ + +ST_VOID asn1r_wr_i8 (ASN1_ENC_CTXT *ac, ST_INT8 data) + { + asn1r_wr_int32 (ac, (ST_INT32) data, (ST_BOOLEAN) (data >= 0 ? SD_TRUE : SD_FALSE)); + } + +/************************************************************************/ +/* wr_i16 */ +/* Function to write a 16-bit integer into message being constructed. */ +/* Can handle values to 16 bits. Sets asn1_field_ptr to next position. */ +/************************************************************************/ + +ST_VOID asn1r_wr_i16 (ASN1_ENC_CTXT *ac, ST_INT16 data) + { + asn1r_wr_int32 (ac, (ST_INT32) data, (ST_BOOLEAN) (data >= 0 ? SD_TRUE : SD_FALSE)); + } + +/************************************************************************/ +/* wr_i32 */ +/************************************************************************/ + +ST_VOID asn1r_wr_i32 (ASN1_ENC_CTXT *ac, ST_INT32 data) + { + asn1r_wr_int32 (ac, data, (ST_BOOLEAN) (data >= 0 ? SD_TRUE : SD_FALSE)); + } + +/************************************************************************/ +/* wr_u8 */ +/************************************************************************/ + +ST_VOID asn1r_wr_u8 (ASN1_ENC_CTXT *ac, ST_UINT8 data) + { + asn1r_wr_int32 (ac, (ST_INT32) data, SD_TRUE); + } + +/************************************************************************/ +/* wr_u16 */ +/************************************************************************/ + +ST_VOID asn1r_wr_u16 (ASN1_ENC_CTXT *ac, ST_UINT16 data) + { + asn1r_wr_int32 (ac, (ST_INT32) data, SD_TRUE); + } + +/************************************************************************/ +/* wr_u32 */ +/************************************************************************/ + +ST_VOID asn1r_wr_u32 (ASN1_ENC_CTXT *ac, ST_UINT32 data) + { + asn1r_wr_int32 (ac, (ST_INT32) data, SD_TRUE); + } + +/************************************************************************/ +/* _wr_int32 */ +/************************************************************************/ + +ST_VOID asn1r_wr_int32 (ASN1_ENC_CTXT *ac, ST_INT32 data, ST_BOOLEAN positive) + { +ST_INT i; + + if (ac->asn1r_field_ptr - 5 < ac->asn1r_buf_start) + { + ac->asn1r_encode_overrun = SD_TRUE; + return; + } + +/* First just write all 32 bits into the message */ + *(ac->asn1r_field_ptr--) = (ST_UCHAR) data; + *(ac->asn1r_field_ptr--) = (ST_UCHAR)(data >> 8); + *(ac->asn1r_field_ptr--) = (ST_UCHAR)(data >> 16); + *(ac->asn1r_field_ptr--) = (ST_UCHAR)(data >> 24); + + + if (positive) + { + /* ASN.1 requires us to eliminate redundant leading zero's, and */ + /* we need to make sure the MSB is not set in the high order byte */ + + if (*(ac->asn1r_field_ptr + 1) & 0x80) + *(ac->asn1r_field_ptr--) = 0x00; + else + { + for (i = 0; i < 3; ++i) + { + if ((*(ac->asn1r_field_ptr + 1) == 0x00) && + (!(*(ac->asn1r_field_ptr + 2) & 0x80))) + { + ++ac->asn1r_field_ptr; + } + else + break; + } + } + } + else /* The data value is negative */ + { + /* ASN.1 requires us to eliminate redundant leading 0xFF's, and */ + /* we need to make sure that the MSB is set in the high order byte */ + for (i = 0; i < 3; ++i) + { + if ((*(ac->asn1r_field_ptr + 1) == 0xFF) && + (*(ac->asn1r_field_ptr + 2) & 0x80)) + { + ++ac->asn1r_field_ptr; + } + else + break; + } + } + } + +/************************************************************************/ +/************************************************************************/ +#ifdef INT64_SUPPORT +/************************************************************************/ +/* wr_i64 */ +/************************************************************************/ + +ST_VOID asn1r_wr_i64 (ASN1_ENC_CTXT *ac, ST_INT64 data) + { + asn1r_wr_int64 (ac, (ST_INT64) data, (ST_BOOLEAN) (data >= 0 ? SD_TRUE : SD_FALSE)); + } + +ST_VOID asn1r_wr_u64 (ASN1_ENC_CTXT *ac, ST_UINT64 data) + { + asn1r_wr_int64 (ac, (ST_INT64) data, SD_TRUE); + } + +/************************************************************************/ +/* _wr_int64 */ +/************************************************************************/ + +ST_VOID asn1r_wr_int64 (ASN1_ENC_CTXT *ac, ST_INT64 data, ST_BOOLEAN positive) + { +ST_INT i; + + if (ac->asn1r_field_ptr - 9 < ac->asn1r_buf_start) + { + ac->asn1r_encode_overrun = SD_TRUE; + return; + } + + *(ac->asn1r_field_ptr--) = (ST_UCHAR) data; + *(ac->asn1r_field_ptr--) = (ST_UCHAR)(data >> 8); + *(ac->asn1r_field_ptr--) = (ST_UCHAR)(data >> 16); + *(ac->asn1r_field_ptr--) = (ST_UCHAR)(data >> 24); + *(ac->asn1r_field_ptr--) = (ST_UCHAR)(data >> 32); + *(ac->asn1r_field_ptr--) = (ST_UCHAR)(data >> 40); + *(ac->asn1r_field_ptr--) = (ST_UCHAR)(data >> 48); + *(ac->asn1r_field_ptr--) = (ST_UCHAR)(data >> 56); + + if (positive) + { + /* ASN.1 requires us to eliminate redundant leading zero's, and */ + /* we need to make sure the MSB is not set in the high order byte */ + + if (*(ac->asn1r_field_ptr + 1) & 0x80) + *(ac->asn1r_field_ptr--) = 0x00; + else + { + for (i = 0; i < 7; ++i) + { + if ((*(ac->asn1r_field_ptr + 1) == 0x00) && + (!(*(ac->asn1r_field_ptr + 2) & 0x80))) + { + ++ac->asn1r_field_ptr; + } + else + break; + } + } + } + else /* The data value is negative */ + { + /* ASN.1 requires us to eliminate redundant leading 0xFF's, and */ + /* we need to make sure that the MSB is set in the high order byte */ + for (i = 0; i < 7; ++i) + { + if ((*(ac->asn1r_field_ptr + 1) == 0xFF) && + (*(ac->asn1r_field_ptr + 2) & 0x80)) + { + ++ac->asn1r_field_ptr; + } + else + break; + } + } + } + +/************************************************************************/ +#endif /* #ifdef INT64_SUPPORT */ +/************************************************************************/ + diff --git a/mmslib/asn1/are_objd.c b/mmslib/asn1/are_objd.c new file mode 100644 index 0000000..8ae6252 --- /dev/null +++ b/mmslib/asn1/are_objd.c @@ -0,0 +1,80 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2002, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : are_objid.c */ +/* PRODUCT(S) : ASN1DE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 07 Remove "thisFileName" */ +/* 01/14/03 JRB 06 Avoid redundant logging of encode overrun. */ +/* 03/05/02 JRB 05 Eliminate warnings. */ +/* 01/22/02 JRB 04 Chg asn1r_end_of_buffer to asn1r_buf_start. */ +/* 12/20/01 JRB 03 Chg ASN1_CTXT to ASN1_ENC_CTXT. */ +/* 09/13/99 MDE 02 Added SD_CONST modifiers */ +/* 07/26/99 MDE 01 New module, derived from ae_objid.c */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "asn1r.h" +#include "asn1log.h" + +/************************************************************************/ +/* Static functions in this module */ + +static ST_VOID _wr_component (ASN1_ENC_CTXT *ac, ST_INT16); + +/************************************************************************/ +/* wr_objid */ +/* Function to write an object identifier data element to a message */ +/* being built. */ +/************************************************************************/ + +ST_VOID asn1r_wr_objid (ASN1_ENC_CTXT *ac, ST_INT16 component_list[], ST_INT num_components) + { +ST_INT i; +ST_INT16 icomp; + + for (i = num_components - 1; i > 1; i--) + _wr_component(ac, component_list[i]); + + icomp = component_list[1] + component_list[0]*40; + _wr_component(ac, icomp); + } + +/************************************************************************/ +/* _wr_component */ +/* Function to write an integer to a field of octets in the following */ +/* format: [1xxxxxxx] ... 0xxxxxxx , where all but the last */ +/* octet starts with a 1 bit, and where the x's are the bits of the */ +/* binary integer input to the function (distributed 7 bits per octet).*/ +/************************************************************************/ + +static ST_VOID _wr_component (ASN1_ENC_CTXT *ac, ST_INT16 icomp) + { + if (ac->asn1r_field_ptr -2 < ac->asn1r_buf_start) + { + ac->asn1r_encode_overrun = SD_TRUE; + return; + } + + if (icomp < 0x80) + *(ac->asn1r_field_ptr--) = (ST_UCHAR) icomp; + else + { + *(ac->asn1r_field_ptr--) = (ST_UCHAR) (icomp & 0x7F); + *(ac->asn1r_field_ptr--) = (ST_UCHAR) (((icomp >> 7) & 0x7F) | 0x80); + } + } + diff --git a/mmslib/asn1/are_ostr.c b/mmslib/asn1/are_ostr.c new file mode 100644 index 0000000..1fc28cc --- /dev/null +++ b/mmslib/asn1/are_ostr.c @@ -0,0 +1,61 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2002, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : are_ostr.c */ +/* PRODUCT(S) : ASN1DE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/09/08 JRB 08 Fail encode if Ostring len < 0. */ +/* 08/01/05 JRB 07 Add const on asn1_wr_octstr args. */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 01/14/03 JRB 05 Avoid redundant logging of encode overrun. */ +/* 01/22/02 JRB 04 Chg asn1r_end_of_buffer to asn1r_buf_start. */ +/* 12/20/01 JRB 03 Chg ASN1_CTXT to ASN1_ENC_CTXT. */ +/* 09/13/99 MDE 02 Added SD_CONST modifiers */ +/* 07/26/99 MDE 01 New module, derived from ae_ostr.c */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "asn1r.h" +#include "asn1log.h" +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/* wr_octstr */ +/* Function to write a primitive octet string to a message being built. */ +/************************************************************************/ + +ST_VOID asn1r_wr_octstr (ASN1_ENC_CTXT *ac, const ST_UCHAR *octPtr, ST_INT numOctets) + { + if (numOctets < 0) + { + ALOG_ERR0 ("ASN.1 Octetstring encode: Length < 0 not allowed"); + /* This is not really an overrun, but the overrun flag is the only */ + /* thing checked by the caller to detect an encoding error. */ + ac->asn1r_encode_overrun = SD_TRUE; + return; + } + if (ac->asn1r_field_ptr - numOctets < ac->asn1r_buf_start) + { + ac->asn1r_encode_overrun = SD_TRUE; + return; + } + + ac->asn1r_field_ptr -= numOctets; + memcpy (ac->asn1r_field_ptr+1, octPtr, numOctets); + } + diff --git a/mmslib/asn1/are_time.c b/mmslib/asn1/are_time.c new file mode 100644 index 0000000..3500212 --- /dev/null +++ b/mmslib/asn1/are_time.c @@ -0,0 +1,88 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2006, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : are_time.c */ +/* PRODUCT(S) : ASN1DE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/23/06 EJV 07 Cast time_t var to (ST_ULONG) and use '%lu'. */ +/* 01/14/03 JRB 06 Avoid redundant logging of encode overrun. */ +/* 07/29/02 EJV 05 Log tmp_buf instead of ac->asn1r_field_ptr. */ +/* 01/22/02 JRB 04 Chg asn1r_end_of_buffer to asn1r_buf_start. */ +/* 12/20/01 JRB 03 Chg ASN1_CTXT to ASN1_ENC_CTXT. */ +/* 09/13/99 MDE 02 Added SD_CONST modifiers */ +/* 07/26/99 MDE 01 New module, derived from ae_time.c */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "asn1r.h" +#include "asn1log.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/* for wr_time the length of the string */ +#define ASN1_WR_TIME_ENC_L 15 + +/************************************************************************/ +/* wr_time */ +/* Function to encode date and time from MS-DOS time (= number of */ +/* seconds from 00:00 Jan 1, 1970, GMT) to the ASN.1 Generalized time */ +/************************************************************************/ +ST_VOID asn1r_wr_time (ASN1_ENC_CTXT *ac, time_t toEncodeTime) + { +struct tm *gmtTime; +ST_UCHAR tmp_buf [ASN1_WR_TIME_ENC_L + 1]; + + ALOG_ENC0("Encoding a GMT Zulu based time string"); + + /* check to see if the ASN1 field pointer will overflow the buffer */ + if (ac->asn1r_field_ptr - ASN1_WR_TIME_ENC_L < ac->asn1r_buf_start) + { + ac->asn1r_encode_overrun = SD_TRUE; + return; + } + + /* move the asn1 field ptr backward in the buffer */ + ac->asn1r_field_ptr = ac->asn1r_field_ptr - (ASN1_WR_TIME_ENC_L-1); + + ALOG_CENC1("Passed Unix epoche based GMT time is (in) = %lu", (ST_ULONG) toEncodeTime); + /*renxiaobao Îļþ²Ù×÷*/ + if(toEncodeTime<0x12cea600) toEncodeTime = 0x12cea600; /*1980*/ + gmtTime = gmtime(&toEncodeTime); + if(gmtTime) + { + /* encode a local time string */ + strftime ((ST_CHAR *)tmp_buf,ASN1_WR_TIME_ENC_L + 1,"%Y%m%d%H%M%SZ",gmtTime); + } + else + { + sprintf(tmp_buf,"19800001000000Z"); + printf("gmtime fail toEncodeTime=%lx\n",toEncodeTime); + } + /* encode a local time string */ + /*strftime ((ST_CHAR *)tmp_buf,ASN1_WR_TIME_ENC_L + 1,"%Y%m%d%H%M%SZ",gmtTime);*/ + memcpy (ac->asn1r_field_ptr, tmp_buf, ASN1_WR_TIME_ENC_L); /* no 0x00 copied */ + + ALOG_CENC1("ASN1 encoded String %s", tmp_buf); + + /* move the field pointer 1 more position back in the encode buffer */ + ac->asn1r_field_ptr = ac->asn1r_field_ptr -1; + } diff --git a/mmslib/asn1/are_utc.c b/mmslib/asn1/are_utc.c new file mode 100644 index 0000000..09f2afc --- /dev/null +++ b/mmslib/asn1/are_utc.c @@ -0,0 +1,82 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2004, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : are_utc.c */ +/* PRODUCT(S) : ASN1DE */ +/* */ +/* MODULE DESCRIPTION : Encode MMS UtcTime */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/16/04 EJV 07 Added ST_(U)LONG typecast to logs,on some sys*/ +/* ST_(U)INT32 can be (unsigned) long or int. */ +/* 01/14/03 JRB 06 Avoid redundant logging of encode overrun. */ +/* 07/26/02 EJV 05 Time Quality byte chg position to lowest. */ +/* Added logging. */ +/* 07/03/02 EJV 04 MMS_UTC_TIME: chg name usec to fraction. */ +/* 01/22/02 JRB 03 Chg asn1r_end_of_buffer to asn1r_buf_start. */ +/* 12/20/01 JRB 02 Chg ASN1_CTXT to ASN1_ENC_CTXT. */ +/* 11/08/01 EJV 01 New module, derived from are_btod.c */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "asn1r.h" +#include "asn1log.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/* asn1r_wr_utc_time */ +/************************************************************************/ + +ST_VOID asn1r_wr_utc_time (ASN1_ENC_CTXT *ac, MMS_UTC_TIME *data) + { +#define _ASN1R_UTCTIME_LEN 8 + + ALOG_ENC0("Encoding UtcTime"); + + /* check for overun of buffer (UtcTime is encoded on 8 bytes) */ + if (ac->asn1r_field_ptr - _ASN1R_UTCTIME_LEN < ac->asn1r_buf_start) + { + ac->asn1r_encode_overrun = SD_TRUE; + return; + } + + ALOG_CENC1("seconds: %lu", (ST_ULONG) data->secs); + ALOG_CENC1("fraction: %lu", (ST_ULONG) data->fraction); + ALOG_CENC1("quality: 0x%lX", (ST_ULONG) data->qflags); + + /* write the quality flags */ + *(ac->asn1r_field_ptr--) = (ST_UCHAR) data->qflags; + + /* write fraction of a second (3 bytes) */ + *(ac->asn1r_field_ptr--) = (ST_UCHAR) (data->fraction & 0xFF); + *(ac->asn1r_field_ptr--) = (ST_UCHAR) ((data->fraction >> 8) & 0xFF); + *(ac->asn1r_field_ptr--) = (ST_UCHAR) ((data->fraction >> 16) & 0xFF); + + /* write the number of seconds since January 1, 1970 */ + *(ac->asn1r_field_ptr--) = (ST_UCHAR) (data->secs & 0xFF); + *(ac->asn1r_field_ptr--) = (ST_UCHAR) ((data->secs >> 8) & 0xFF); + *(ac->asn1r_field_ptr--) = (ST_UCHAR) ((data->secs >> 16) & 0xFF); + *(ac->asn1r_field_ptr--) = (ST_UCHAR) ((data->secs >> 24) & 0xFF); + + ALOG_CENC1("Encoded %d bytes:", _ASN1R_UTCTIME_LEN); + ALOG_ENCH(_ASN1R_UTCTIME_LEN, ac->asn1r_field_ptr + 1); + } + + diff --git a/mmslib/asn1/are_vstr.c b/mmslib/asn1/are_vstr.c new file mode 100644 index 0000000..6e0435e --- /dev/null +++ b/mmslib/asn1/are_vstr.c @@ -0,0 +1,162 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2004, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : are_vstr.c */ +/* PRODUCT(S) : ASN1DE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 08/01/05 JRB 09 Add const on asn1_wr_vstr args. */ +/* 03/11/04 GLB 08 Added "ifdef DEBUG_SISCO" to "thisFileName" */ +/* 01/16/04 EJV 07 Added typecast to elim warning on AIX. */ +/* 01/14/03 JRB 06 Avoid redundant logging of encode overrun. */ +/* 09/24/03 JRB 05 Fix to properly encode 0-length UTF8string. */ +/* 04/02/03 JRB 04 Add UTF8string support (asn1r_wr_utf8) */ +/* 12/20/01 JRB 03 Chg ASN1_CTXT to ASN1_ENC_CTXT. */ +/* 09/13/99 MDE 02 Added SD_CONST modifiers */ +/* 07/26/99 MDE 01 New module, derived from ae_vstr.c */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "asn1r.h" +#include "asn1log.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/* wr_vstr */ +/************************************************************************/ + +ST_VOID asn1r_wr_vstr (ASN1_ENC_CTXT *ac, const ST_CHAR *ptr) + { + asn1r_wr_octstr (ac, (ST_UCHAR*)ptr,strlen (ptr)); + } + +/************************************************************************/ +/* asn1r_wr_utf8 */ +/************************************************************************/ + +ST_RET asn1r_wr_utf8 (ASN1_ENC_CTXT *aCtx, ST_CHAR *ptr, ST_INT el_len) + { +ST_CHAR *utf8_ptr; /* temporary place to encode UTF8string. */ +ST_INT utf8_len; + +/* This code is a little tricky. Since we encode backwards, the data must + * be written before the current "ASN1_ENC_PTR". Since we don't know + * the len of the data until after the conversion (asn1r_local_to_utf8), + * we allow for the maximum converted size, then after the conversion, we move + * the data forward to just before "ASN1_ENC_PTR". + */ + + /* Compute maximum converted size. + * abs (el_len) = maximum number of Unicode "characters". + * Multiply by the maximum size of each Unicode "character" (4). + */ + utf8_len = (abs(el_len)*4); /* 4 bytes per char */ + + /* Point to safe spot in ASN.1 encode buffer where maximum size + * UTF8string can be encoded (including NULL terminator). + */ + utf8_ptr = (ST_CHAR *) ASN1_ENC_PTR(aCtx) - utf8_len; + if (utf8_ptr < (ST_CHAR *) aCtx->asn1r_buf_start) + { + aCtx->asn1r_encode_overrun = SD_TRUE; + return (SD_FAILURE); + } + + /* Convert data to UTF8string (NOT NULL terminated). + * NOTE: utf8_len is overwritten with the actual number of encoded bytes. + */ + utf8_len = asn1r_local_to_utf8 (utf8_ptr, utf8_len, ptr); + if (utf8_len < 0) /* 0 len is OK. */ + { + ALOG_NERR0 ("wr_utf8: conversion from local to UTF8 failed"); + return (SD_FAILURE); + } + /* Move data forward in ASN.1 encode buffer. */ + if (utf8_len > 0) + { + memmove (ASN1_ENC_PTR(aCtx)-utf8_len, (ST_UCHAR*)utf8_ptr, utf8_len); + aCtx->asn1r_field_ptr -= utf8_len; /* update ASN.1 encode ptr */ + } + return (SD_SUCCESS); + } +/*renxioabao utf8 UTF8±àÂëÐÞ¸Ä*/ +/*#if (UNICODE_LOCAL_FORMAT==UNICODE_UTF16)*/ +#if 0 +#if defined(_WIN32) +#include +/************************************************************************/ +/* On Windows, the local format is UTF16, so this function converts */ +/* from UTF16 string to UTF8 string. */ +/* The source string (at src_ptr) must be NULL terminated. */ +/* dst_len = num bytes available in dst "UTF8" string. */ +/* RETURN: num bytes in dst (not including NULL). */ +/************************************************************************/ +ST_INT asn1r_local_to_utf8 (ST_CHAR *dst_ptr, ST_INT dst_len, ST_CHAR *src_ptr) + { +ST_INT count; + +/* NOTE: pass (src_len==-1) to WideCharToMultiByte. + * "src_ptr" must be NULL terminated, and chars converted + * up to and including the NULL. + * Return value is len of dst, possibly including NULL terminator. + */ + count = WideCharToMultiByte (CP_UTF8, 0, + (ST_UINT16 *) src_ptr, -1, dst_ptr, dst_len, NULL, NULL); + if (count > 0) + { + /* "count" MAY include the NULL terminator. If so, return 1 less. */ + if (dst_ptr[count-1]=='\0') + return (count-1); /* if count includes NULL, subtract 1 */ + else + return (count); /* if count does not include NULL, return count */ + } + return (-1); /* error */ + } +#else /* All other systems */ +#error Unicode UTF16 currently only supported on Windows +#endif +#else /* UNICODE_LOCAL_FORMAT==UNICODE_UTF8 */ +/************************************************************************/ +/* This function should work on any system where the local Unicode */ +/* format is UTF8. The ASN.1 format is also UTF8, so this function */ +/* basically just copies the string. */ +/* The source string (at src_ptr) must be NULL terminated. */ +/* This function just copies up to (not including the NULL terminator). */ +/* dst_len = num bytes available in dst "UTF8" string. */ +/* CRITICAL: dst_len must be >= src_len */ +/* RETURN: num bytes in dst (not including NULL). */ +/************************************************************************/ +ST_INT asn1r_local_to_utf8 (ST_CHAR *dst_ptr, ST_INT dst_len, ST_CHAR *src_ptr) + { +ST_INT ret = -1; /* assume error */ +ST_INT src_len; + + src_len = strlen(src_ptr); /* compute src_len */ + if (src_len <= dst_len) + { + if (src_len > 0) + strncpy (dst_ptr, src_ptr, src_len); /* not including NULL terminator*/ + ret = src_len; /* success */ + } + return (ret); + } +#endif /* UNICODE_LOCAL_FORMAT==UNICODE_UTF8 */ diff --git a/mmslib/asn1/asn1r.c b/mmslib/asn1/asn1r.c new file mode 100644 index 0000000..33571af --- /dev/null +++ b/mmslib/asn1/asn1r.c @@ -0,0 +1,1693 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2009, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : asn1r.c */ +/* PRODUCT(S) : ASN1DE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the main ASN.1 decode and encode tools. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 07/21/09 JRB 32 Cleanup new asn1r_get_tag. */ +/* 05/29/09 JRB 31 Add asn1r_decode_init, asn1r_get_tag functs. */ +/* For indefinite len constr, increase initial */ +/* byte_count (couldn't handle big constr). */ +/* Add asn1r_strt_constr_indef (FOR TESTING). */ +/* 05/28/09 JRB 30 On decode, don't log constr content(redundant)*/ +/* 01/15/09 MDE 29 Added asn1_peek,made asn1r_head_decode static*/ +/* 11/12/08 MDE 28 Added overreach checks to asn1r_head_decode */ +/* 11/12/08 MDE 27 Removed assert to improve robustness */ +/* 10/03/08 JRB 28 Prevent crashes while decoding by improving */ +/* len checks & doing it BEFORE logging. */ +/* 10/04/07 MDE 27 Tweaked LOGCFG_VALUE_GROUP/LOGCFGX_VALUE_MAP */ +/* 12/20/06 JRB 26 Add bstrcmp. */ +/* 03/17/06 JRB 25 Add asn1r_anytag_fun, ASN1_ANYTAG_METHOD. */ +/* 03/15/06 JRB 24 Add asn1r_skip_elmnt. */ +/* 02/28/06 EJV 23 asn1_convert_...: added typecast from time_t */ +/* 12/19/05 JRB 22 Chg cr to cr_asn1, del static to fix warning.*/ +/* 05/23/05 EJV 21 Add asn1LogMaskMapCtrl for parsing logcfg.xml*/ +/* 07/08/04 JRB 20 Use define TIME_T_1984_JAN_1 instead of mktime*/ +/* Use define SECONDS_PER_DAY from asn1r.h */ +/* Add asn1_convert_timet_to_btime6. */ +/* Use 0x01000000 (2**24) in fraction computations*/ +/* 01/14/03 JRB 19 Avoid redundant logging of encode overrun. */ +/* fin_constr decrement msg_level on encode overrun*/ +/* 11/05/03 EJV 18 Fixed logging. */ +/* 10/13/03 JRB 17 asn1r_decode_asn1: Chg assert to err return. */ +/* 04/28/03 JRB 16 Add assert to asn1r_decode_asn1. */ +/* 04/02/03 JRB 15 On unexpected tag error, log the tag. */ +/* 02/07/03 JRB 14 Add bstrcpy, bvstrcpy. */ +/* 10/29/02 JRB 13 Use new asn1r_magic in ASN1_ENC_CTXT. */ +/* 07/03/02 EJV 12 MMS_UTC_TIME: chg name usec to fraction. */ +/* 03/05/02 JRB 11 Eliminate compiler warnings. */ +/* 01/25/02 JRB 10 Move INT_MAX chk to #if, avoids unreachable */ +/* code. Make SD_CONST match header on *logstr. */ +/* 01/22/02 JRB 09 asn1r_strt_asn1_bld set new "asn1r_buf_end". */ +/* Chg asn1r_end_of_buffer to asn1r_buf_start */ +/* & asn1r_field_start to asn1r_field_end */ +/* & _asn1_constr_start to asn1r_constr_end */ +/* in ENC_CTX (start means start, end means end)*/ +/* 01/07/02 EJV 08 Added asn1_ prefix to convert_... functions. */ +/* 01/04/02 EJV 07 Add convert_btod_to_utc, convert_utc_to_btod */ +/* Cleanup few function header comments. */ +/* Updated cr[] to 2002. */ +/* 12/20/01 JRB 06 Chg ASN1_CTXT to ASN1_DEC_CTXT, ASN1_ENC_CTXT*/ +/* Delete #define USE_WITH_ASN1. */ +/* Del asn1_old_err_fun & *_old_id_fun. */ +/* asn1r_objidcmp chged to asn1_objidcmp (same */ +/* as function in asn1.c). */ +/* Del unused strt_asn1r, asn1r_end_asn_bld. */ +/* 11/28/01 EJV 05 fin_prim: corrected len for logging. */ +/* 11/12/01 EJV 04 asn1r_decode_asn1: removed static variables */ +/* 09/13/99 MDE 03 Added SD_CONST modifiers */ +/* 07/29/99 MDE 02 Added TABLE method */ +/* 07/26/99 MDE 01 New module, derived from asn1.c */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include +#include "asn1r.h" +#include "asn1log.h" +#include "mem_chk.h" + +/************************************************************************/ + +const ST_CHAR cr_asn1[] = + "(c) COPYRIGHT SYSTEMS INTEGRATION SPECIALISTS COMPANY INC., 1986 - 2005. All Rights Reserved."; + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +#if !defined(NO_GLB_VAR_INIT) +ST_UINT asn1_debug_sel = ASN1_LOG_ERR; +#else +ST_UINT asn1_debug_sel; +#endif + +#ifdef DEBUG_SISCO +SD_CONST ST_CHAR *SD_CONST _asn1_log_dec_logstr = "ASN1_LOG_DEC"; +SD_CONST ST_CHAR *SD_CONST _asn1_log_enc_logstr = "ASN1_LOG_ENC"; +SD_CONST ST_CHAR *SD_CONST _asn1_log_err_logstr = "ASN1_LOG_ERR"; +SD_CONST ST_CHAR *SD_CONST _asn1_log_nerr_logstr = "ASN1_LOG_NERR"; + +LOGCFGX_VALUE_MAP asn1LogMaskMaps[] = + { + {"ASN1_LOG_ERR", ASN1_LOG_ERR, &asn1_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "Error"}, + {"ASN1_LOG_NERR", ASN1_LOG_NERR, &asn1_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "Notice"}, + {"ASN1_LOG_DEC", ASN1_LOG_DEC, &asn1_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "Decode"}, + {"ASN1_LOG_ENC", ASN1_LOG_ENC, &asn1_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "Encode"} + }; + +LOGCFG_VALUE_GROUP asn1LogMaskMapCtrl = + { + {NULL,NULL}, + "Asn1LogMasks", /* Parent Tag */ + sizeof(asn1LogMaskMaps)/sizeof(LOGCFGX_VALUE_MAP), + asn1LogMaskMaps + }; +#endif /* DEBUG_SISCO */ + +/************************************************************************/ +/* General variables and pointers used by the ASN1 system. */ +/************************************************************************/ +/************************************************************************/ +/* VMS Float Format select */ + +/* VMS has different forms of float format; select the default here */ +#if !defined(NO_GLB_VAR_INIT) && defined(VAXC) +ST_INT asn1_vax_double_type = A_D_FLOAT; +#endif +#if !defined(NO_GLB_VAR_INIT) && defined( __ALPHA ) +ST_INT asn1_vax_double_type = A_G_FLOAT; +#endif +#if defined(NO_GLB_VAR_INIT) && (defined( VAXC ) || defined( __ALPHA )) +ST_INT asn1_vax_double_type; +#endif + +/************************************************************************/ +/* Static functions in this module */ + +static ST_RET _asn1r_head_decode (ASN1_DEC_CTXT *ac); +static ST_VOID _do_decode_asn1 (ASN1_DEC_CTXT *ac, ST_UCHAR *ptr, ST_INT len); +static ST_BOOLEAN _indef_eoc (ASN1_DEC_CTXT *ac); +static ST_VOID _check_level_done (ASN1_DEC_CTXT *ac); +static ST_VOID _call_user (ASN1_DEC_CTXT *ac); +static ST_VOID _wr_asn1_len (ASN1_ENC_CTXT *ac, ST_INT len); +static ST_VOID _wr_ident (ASN1_ENC_CTXT *ac, ST_UINT16 id_code, ST_UINT16 tag); +#ifdef DEBUG_SISCO +static ST_VOID _list_elmnt (ASN1_DEC_CTXT *ac); +#endif + +/************************************************************************/ +/************************************************************************/ +/* ASN.1 MESSAGE DECODE */ +/************************************************************************/ +/* asn1r_decode_asn1_seq */ +/* This function is used to decode a ASN.1 data element when the outer */ +/* constructor has been stripped. */ +/************************************************************************/ + +ST_VOID asn1r_decode_asn1_seq (ASN1_DEC_CTXT *ac, ST_UCHAR *ptr, ST_INT len) + { + ac->_asn1_indef_track[0] = SD_FALSE; /* level 0 is always definite */ + ac->_asn1_indef_track[1] = SD_FALSE; /* so is level 1 in this case */ + + ac->_asn1_byte_count[0] = 0; /* assumes definite */ + ac->_asn1_byte_count[1] = len; /* contents of missing outer cstr */ + + ac->asn1r_field_ptr = ptr; /* point to first element */ + ac->asn1r_msg_level = 1; /* start at message level 1 */ + ac->asn1r_c_done_fun[ac->asn1r_msg_level] = NULL; + + _do_decode_asn1 (ac, ptr,len); + } + +/************************************************************************/ +/* asn1r_decode_asn1 */ +/* Function to drive the decoding of an ASN.1 encoded message. */ +/* The user must set up the class or tag function ptrs, and the error */ +/* and done function ptrs before calling this function. Pass the length */ +/* and location of the message as inputs. */ +/************************************************************************/ + +ST_VOID asn1r_decode_asn1 (ASN1_DEC_CTXT *ac, ST_UCHAR *ptr, ST_INT len) + { +#if !defined (MMS_LITE) +ST_UCHAR *save_asn1r_ptr = NULL; +#endif + +/* The caller MUST clear ASN1_DEC_CTXT struct before calling this funct.*/ +/* After clearing, caller may set a few params, so chk a param that */ +/* caller would NEVER set. */ + if (ac->asn1r_msg_level != 0) + { + ALOG_ERR0 ("ASN.1 decode context not initialized"); + ac->asn1r_pdu_dec_err = ASN1E_DECODE_OTHER; /* set error code */ + return; + } + +/* initialize flags, counters, pointers for decode */ + + ac->asn1r_indef_flag = SD_FALSE; /* clear flag */ + ac->_asn1_indef_track[0] = SD_FALSE; /* level 0 is always definite */ + ac->_asn1_byte_count[0] = len; /* set # bytes left in level 0 */ + ac->asn1r_msg_level = 0; /* start at message level 0 */ + ac->asn1r_c_done_fun[0] = NULL; + +#if !defined (MMS_LITE) + /* save the data in case we need to log it if decode fails */ + if ( (asn1_debug_sel & ASN1_LOG_NERR) && + !(asn1_debug_sel & ASN1_LOG_DEC)) + { + save_asn1r_ptr = chk_malloc (len); + memcpy (save_asn1r_ptr, ptr, len); + } +#endif + + _do_decode_asn1 (ac, ptr,len); + +#if !defined (MMS_LITE) + if (ac->asn1r_pdu_dec_err != NO_DECODE_ERR) /* if an error was present */ + { + if (save_asn1r_ptr) + { + ALOG_NERR0 ("ASN.1 decode: badly formed PDU:"); + ALOG_NERRH (len, save_asn1r_ptr); + } + } + if (save_asn1r_ptr) + chk_free (save_asn1r_ptr); +#endif + } + +/************************************************************************/ +/* _do_decode_asn1 */ +/************************************************************************/ + +static ST_VOID _do_decode_asn1 (ASN1_DEC_CTXT *ac, ST_UCHAR *ptr, ST_INT len) + { +ST_INT log_len; +ST_INT gone_len; +ST_INT i; +ST_RET rc; + + ac->asn1r_pdu_dec_err = NO_DECODE_ERR; /* reset error flag */ + ac->asn1r_decode_done = SD_FALSE; /* initialize flag */ + ac->asn1r_field_ptr = ptr; /* initialize asn1_field_ptr */ + ac->asn1r_done_ptr = ac->asn1r_field_ptr + len; + +/* Validate length to avoid possible problems */ + if (len <= 0) + { + ALOG_NERR0 ("ASN.1 decode: Length zero or negative"); + asn1r_set_dec_err(ac, ASN1E_END_O_BUFFER); + if (ac->asn1r_err_fun != NULL) + (*ac->asn1r_err_fun)(ac, ac->asn1r_pdu_dec_err); /* call error function */ + ac->_asn1r_ntag = 0; /* set # tags = 0 for next time */ + return; + } + + ALOG_DECLF (); + ALOG_DEC1 ("ASN.1 MESSAGE TO DECODE : len = %d",len); + ALOG_DECH (len,ptr); + +/* Enter the message parse loop. */ +/* Parse the message until all done or asn1_decode_done flag is set. */ +/* asn1_field_ptr points to the start of the data element to be decoded. */ + + while (ac->asn1r_field_ptr < ac->asn1r_done_ptr && !ac->asn1r_decode_done) + { + ALOG_DEC1 ("Current decode offset: 0x%05x", ac->asn1r_field_ptr - ptr); + ac->asn1r_field_start = ac->asn1r_field_ptr; /* save field start address */ + rc = _asn1r_head_decode (ac); /* decodes the data element header */ + if (rc != SD_SUCCESS) + { + ALOG_NERR0 ("ASN.1 decode: header decode error"); + asn1r_set_dec_err(ac, rc); + break; + } + + /* OK, the header looks good and has been validated */ + log_len = ac->asn1r_field_ptr - ac->asn1r_field_start; + /* For primitive, log the whole element */ + if (!ac->asn1r_constr_elmnt) + log_len += ac->asn1r_elmnt_len; + + ALOG_DECH (log_len, ac->asn1r_field_start); + ALOG_PAUSEDEC (""); + +#ifdef DEBUG_SISCO + _list_elmnt (ac); /* print element attributes */ +#endif + + if (_indef_eoc (ac)) /* check for indefinite level EOC elmnt */ + { /* EOC is a primitive */ + _check_level_done (ac); /* primitive complete */ + continue; /* service next field if not done */ + } + /* not indefinite length EOC */ + if (ac->asn1r_decode_done) /* if errors detected in decode */ + break; + + if (ac->asn1r_constr_elmnt) /* if constructor, bump asn1_msg_level */ + { + if (++ac->asn1r_msg_level >= ASN1_MAX_LEVEL) + { + ALOG_ERR0 ("Error : ASN.1 decode exceeded nesting level"); + asn1r_set_dec_err(ac, ASN1E_NEST_TOO_DEEP); + break; + } + ac->asn1r_c_done_fun[ac->asn1r_msg_level] = asn1r_cstr_done_err; + } + +/* Call the user function specified for the given class or tag. The */ +/* user function is expected to parse the contents of this data element */ +/* (when it's primitive) and move asn1_field_ptr to the start of the next */ +/* data element. */ + _call_user (ac); + +/* The user function has been invoked, must set the asn1_decode_done flag */ +/* if the message is complete or in error. The user function must move */ +/* asn1_field_ptr to the start of the next data element. */ + + gone_len = ac->asn1r_field_ptr - ac->asn1r_field_start;/* number of bytes gone */ + /* adjust count */ + +/* For primitive data elements, decrement _asn1_byte_count for current */ +/* message level and jump directly down to _check_level_done at the end */ +/* of the while loop. */ + if (!ac->asn1r_constr_elmnt) + { + if (ac->_asn1_byte_count[ac->asn1r_msg_level] < gone_len) + { + ALOG_NERR0 ("ASN.1 decode: invalid constructor length"); + asn1r_set_dec_err (ac, ASN1E_CSTR_INVALID_LEN); /* call error function */ + break; /* exit parse loop */ + } + ac->_asn1_byte_count[ac->asn1r_msg_level] -= gone_len; + } + +/* Constructors are much more involved. First decrement the _asn1_byte_count */ +/* for the previous message level (the one containing the new constr.), */ +/* then set _asn1_byte_count for this message level. */ + else + { + if (ac->_asn1_byte_count[ac->asn1r_msg_level-1] < gone_len) + { + ALOG_NERR0 ("ASN.1 decode: invalid constructor length"); + asn1r_set_dec_err (ac, ASN1E_CSTR_INVALID_LEN); /* call error function */ + break; /* exit parse loop */ + } + ac->_asn1_byte_count[ac->asn1r_msg_level-1] -= gone_len; + + /* save length type */ + if ((ac->_asn1_indef_track[ac->asn1r_msg_level] = ac->asn1r_indef_flag) + != SD_FALSE) /* if indefinite */ + { /* (INDEF = 0xFF) */ + ac->_asn1_constr_start[ac->asn1r_msg_level] = ac->asn1r_field_ptr; /* save start pointer */ + ac->_asn1_byte_count[ac->asn1r_msg_level] = INT_MAX; + ac->asn1r_indef_flag = SD_FALSE; /* clear flag */ + } + else /* definite length constructor */ + { /* byte count in element known */ + ac->_asn1_byte_count[ac->asn1r_msg_level] = ac->asn1r_elmnt_len; + if (ac->_asn1_byte_count[ac->asn1r_msg_level-1] < (ST_INT) ac->asn1r_elmnt_len) + { + ALOG_NERR0 ("ASN.1 decode: invalid constructor length"); + asn1r_set_dec_err (ac, ASN1E_CSTR_INVALID_LEN); /* call error function */ + break; /* exit parse loop */ + } + ac->_asn1_byte_count[ac->asn1r_msg_level-1] -= ac->asn1r_elmnt_len; + } + } + +/* After decrementing _asn1_byte_count, check to see if this message level is */ +/* done (and if so, check the next msg level, etc...). */ + _check_level_done (ac); + } /* Now return to top of parse loop. */ + +/* End of outer while loop. Message parse is complete. */ +/* At this point the asn1_field_ptr should match the done_ptr, and the */ +/* asn1_pdu_dec_err variable should be = NO_DECODE_ERR, and asn1_msg_level == -1.*/ +/* If any of these conditions are not true, the user error function */ +/* will be executed (typically will return error message). If no */ +/* decode error, the user function pointed to by (*asn1_decode_done_fun) */ +/* is executed. */ + + ALOG_CDEC0 ("Message parse complete"); + ALOG_PAUSEDEC (""); + /* don't overwrite previous err */ + if (ac->asn1r_pdu_dec_err == NO_DECODE_ERR && + (ac->asn1r_field_ptr != ac->asn1r_done_ptr || ac->asn1r_msg_level != -1)) + { /* Check for indef cstr done */ + for (i = ac->asn1r_msg_level; i >= 0; --i) + { + if (ac->_asn1_indef_track[i] == SD_TRUE) /* if indef length cstr */ + { /* check for cstr done (00 00) */ + if ((ac->asn1r_field_ptr+2 > ac->asn1r_done_ptr) || + *(ac->asn1r_field_ptr++) || *(ac->asn1r_field_ptr++)) + { + ALOG_NERR0 ("ASN.1 decode: indefinite length constructor not terminated"); + asn1r_set_dec_err (ac, ASN1E_END_O_BUFFER); /* call error function */ + break; + } + } + } + if (ac->asn1r_field_ptr != ac->asn1r_done_ptr) + { + ALOG_NERR0 ("ASN.1 decode: PDU decode terminated before complete"); + asn1r_set_dec_err (ac, ASN1E_END_O_BUFFER); /* call error function */ + } + } + + if (ac->asn1r_pdu_dec_err != NO_DECODE_ERR) /* if an error was present */ + { + if (ac->asn1r_err_fun != NULL) + (*ac->asn1r_err_fun)(ac, ac->asn1r_pdu_dec_err); /* call error function */ + } + else /* if not - */ + { + if (ac->asn1r_decode_done_fun != NULL) + (*ac->asn1r_decode_done_fun)(ac); /* invoke the done function */ + } + + ac->_asn1r_ntag = 0; /* set # tags = 0 for next time */ + } + + +/************************************************************************/ +/* _check_level_done */ +/* primitive field service complete, check to see if this level is */ +/* complete, and if so, what the next level to service is. */ +/************************************************************************/ + +static ST_VOID _check_level_done (ASN1_DEC_CTXT *ac) + { +ST_INT i; + + while (ac->asn1r_msg_level >= 0 && !ac->_asn1_byte_count[ac->asn1r_msg_level]) + { /* Search for first lower level with bytes left - */ + ALOG_CDEC1 ("Level %d parse complete",ac->asn1r_msg_level); + if (!ac->asn1r_decode_done) /* if user has not terminated */ + { + ac->_asn1r_ntag = 0; /* clear tags, and call user */ + i = ac->asn1r_msg_level--; + if (ac->asn1r_c_done_fun[i] != NULL) + (*ac->asn1r_c_done_fun[i])(ac); /* done fcn for this asn1_msg_level */ + } + else /* decode terminated, just dec. */ + ac->asn1r_msg_level--; + } + + if (ac->asn1r_msg_level < 0) /* if no bytes left at any lvl, */ + ac->asn1r_decode_done = SD_TRUE; /* stop decode */ + } + + +/************************************************************************/ +/* _indef_eoc */ +/* Function to check for universal EOC type, and perform level fixup if */ +/* so. The fix consists of determining the number of bytes that were in */ +/* the element and subtracting this number from the previous level byte */ +/* count. */ +/* Returns 0 if NOT EOC, else != 0 */ +/************************************************************************/ + +static ST_BOOLEAN _indef_eoc (ASN1_DEC_CTXT *ac) + { +ST_INT len; + + if (ac->asn1r_constr_elmnt) /* can only be a primitive */ + return (SD_FALSE); + + if (ac->asn1r_elmnt_class != UNI) /* must be universal */ + return (SD_FALSE); + + if (ac->asn1r_elmnt_id != 0) /* EOC is id_code 0 */ + return (SD_FALSE); + +/* This looks like the EOC from a indefinite length constructor */ + if (ac->_asn1_indef_track[ac->asn1r_msg_level] == SD_TRUE) /* if indef len */ + { + ALOG_CDEC1 ("EOC detected for level %d",ac->asn1r_msg_level); + len = ac->asn1r_field_ptr - ac->_asn1_constr_start[ac->asn1r_msg_level]; + if (ac->_asn1_byte_count[ac->asn1r_msg_level - 1] < len) + { + ALOG_NERR0 ("ASN.1 decode: misplaced end of indefinite length constructor"); + asn1r_set_dec_err(ac, ASN1E_CSTR_INVALID_LEN); /* call error function */ + } + ac->_asn1_byte_count[ac->asn1r_msg_level-1] -= len; + ac->_asn1_byte_count[ac->asn1r_msg_level] = 0; /* set this level count = 0 */ + return (SD_TRUE); /* indicate EOC found */ + } + else + { + ALOG_NERR0 ("ASN.1 decode: unexpected end of indefinite length constructor"); + asn1r_set_dec_err(ac, ASN1E_UNEXPECTED_TAG); /* EOC not allowed here */ + } + return (SD_FALSE); + } + + +/************************************************************************/ +/* asn1r_head_decode */ +/* function to decode the ASN.1 data element identified and length */ +/* components and put the result into the component variables. */ +/* The character ptr asn1r_field_ptr points to the data element start, */ +/* and is left pointing to the start of the contents. */ +/************************************************************************/ + +#define _CHECK_ASN1_LEFT(x) {if((ac->asn1r_field_ptr+x) > ac->asn1r_done_ptr)return(ASN1E_END_O_BUFFER);} + +static ST_RET _asn1r_head_decode (ASN1_DEC_CTXT *ac) + { +ST_UCHAR c; +ST_UINT16 ui16; +ST_INT i, i2, i3; + +/* We don't want to read past end of buffer */ + _CHECK_ASN1_LEFT(1); + c = *(ac->asn1r_field_ptr++); /* read the first byte of the element */ + /* pointer points to next byte */ + + ac->asn1r_constr_elmnt = (ST_UCHAR) (c & CONSTR);/* isolate the constr bit */ + ac->asn1r_elmnt_class = (ST_UCHAR) (c & 0xC0); /* get the class bits */ + + if ((c &= 0x1F) == 0x1F) /* if ID extender - */ + { + _CHECK_ASN1_LEFT(1); + if ((c = *(ac->asn1r_field_ptr++)) & 0x80) /* if next byte is not last - */ + { + _CHECK_ASN1_LEFT(1); + if (*ac->asn1r_field_ptr & 0x80) /* if more than two extention */ + { /* ID octets, reject */ + ALOG_NERR0 ("ASN.1 decode: element id too long"); + return (ASN1E_ID_TOO_BIG); + } + ui16 = (ST_UINT16) (c & 0x7F) << 7; /* support 2 extention bytes */ + + _CHECK_ASN1_LEFT(1); + ui16 |= (*(ac->asn1r_field_ptr++) & 0x7F);/* merge the 14 ID bits (only*/ + ac->asn1r_elmnt_id = ui16; /* 13 usable in this impl'n).*/ + } + else /* one octet extended */ + ac->asn1r_elmnt_id = (ST_UINT16) c; /* write masked ID code */ + } + else /* not extended ID code */ + ac->asn1r_elmnt_id = (ST_UINT16) c; /* write masked ID code */ + +/* asn1_field_ptr points to contents length field start. */ +/* Support all length forms : short, long, and indefinite. */ + + _CHECK_ASN1_LEFT(1); + if ((c = *(ac->asn1r_field_ptr++)) & 0x80) /* check for long,indef forms */ + { + if (c &= 0x7F) /* if long form */ + { + _CHECK_ASN1_LEFT((int) c); + switch (c) /* switch on # bytes in length */ + { + case 1 : /* one byte length */ + ac->asn1r_elmnt_len = *(ac->asn1r_field_ptr++) & 0xFF; + break; + + case 2 : /* two byte length */ + i = (ST_INT) ((ST_UINT) *(ac->asn1r_field_ptr++) << 8); + ac->asn1r_elmnt_len = (ST_INT) + (((ST_UINT) *(ac->asn1r_field_ptr++) & 0xFF) | i); + break; + + case 3 : /* three byte length */ + i = (ST_INT) ((ST_UINT) *(ac->asn1r_field_ptr++) << 16); +#if (INT_MAX <= 0x7FFF) + if (i != 0) + { + ALOG_NERR0 ("ASN.1 decode: element length too long"); + return(ASN1E_INVALID_LENGTH); /* other lengths not supported */ + } +#endif + i2 = (ST_INT) (((ST_UINT) *(ac->asn1r_field_ptr++) << 8) | i); + + ac->asn1r_elmnt_len = (ST_INT) + (((ST_UINT) *(ac->asn1r_field_ptr++) & 0xFF) | i2); + break; + + case 4 : /* four byte length */ + i = (ST_INT) ((ST_UINT) *(ac->asn1r_field_ptr++) << 24); + i2 = (ST_INT) (((ST_UINT) *(ac->asn1r_field_ptr++) << 16) | i); +#if (INT_MAX <= 0x7FFF) + if (i != 0 || i2 != 0) + { + ALOG_NERR0 ("ASN.1 decode: element length too long"); + return (ASN1E_INVALID_LENGTH); /* other lengths not supported */ + } +#endif + i3 = (ST_INT) (((ST_UINT) *(ac->asn1r_field_ptr++) << 8) | i2); + ac->asn1r_elmnt_len = (ST_INT) + (((ST_UINT) *(ac->asn1r_field_ptr++) & 0xFF) | i3); + break; + + default : + ALOG_NERR0 ("ASN.1 decode: length length > 4"); + return (ASN1E_INVALID_LENGTH); /* others not supported */ + break; + } + } + else /* indefinite length */ + { + if (ac->asn1r_constr_elmnt) /* valid only for constructors */ + ac->asn1r_indef_flag = SD_TRUE; /* set 'indefinite len' flag */ + else + { + ALOG_NERR0 ("ASN.1 decode: indefinite length primitive"); + return (ASN1E_INVALID_LENGTH); /* Bad PDU structure */ + } + } + } + else /* short form length */ + ac->asn1r_elmnt_len = (ST_INT) c; /* write length */ + + /* If NOT indefinite length, make sure length is legal. */ + if (!ac->asn1r_indef_flag) + { + if ((ac->asn1r_elmnt_len < 0) || ((ac->asn1r_field_ptr+ac->asn1r_elmnt_len) > ac->asn1r_done_ptr)) + { + ALOG_NERR2 ("ASN.1 decode element length error: ASN.1 length=%d, remaining ASN.1 buffer %d ", + ac->asn1r_elmnt_len, ac->asn1r_done_ptr - ac->asn1r_field_ptr); + return (ASN1E_INVALID_LENGTH); + } + } + + return (SD_SUCCESS); + } /* data element decode complete */ + +/************************************************************************/ +/* _call_user */ +/* Function to call the user function for the particular ID class. */ +/* Passes the id code for the data element to the selected function */ +/* For Universal class, also checks for EOC. */ +/* */ +/* The user functions are responsible for ensuring that the asn1_field_ptr */ +/* is left pointing to the start of the next field. */ +/************************************************************************/ + +static ST_VOID _call_user (ASN1_DEC_CTXT *ac) + { +ST_UINT16 curtag; +ST_INT i; +ST_INT num_tags; +ASN1R_TAG_CTRL_1 *tag_ctrl; +ASN1R_TAG_PAIR *tags; + +/* When parsing is being done on the basis of tag, compare the current */ +/* tag with the list of allowable tags and call the corresponding fcn */ +/* pointer. Error checking was done previously when tag_add was called. */ + + if (ac->asn1r_decode_method == ASN1_TABLE_METHOD) + { + curtag = (ST_UINT16) (ac->asn1r_elmnt_class | ac->asn1r_constr_elmnt) << 8; + curtag |= ac->asn1r_elmnt_id; + + tag_ctrl = (ASN1R_TAG_CTRL_1 *) ac->asn1r_tag_table; + tags = tag_ctrl->tags; + num_tags = tag_ctrl->num_tags; + for (i = 0; i < num_tags; ++i, ++tags) + { + if (curtag == tags->_asn1r_tag) + { + (*tags->_asn1r_tag_fun)(ac); /* Call user-defined function. */ + return; + } + } + ALOG_NERR1 ("ASN.1 decode: unexpected tag 0x%X", (ST_UINT) curtag); + asn1r_set_dec_err(ac, ASN1E_UNEXPECTED_TAG); + return; + } + + if (ac->asn1r_decode_method == ASN1_TAG_METHOD) + { + curtag = (ST_UINT16) (ac->asn1r_elmnt_class | ac->asn1r_constr_elmnt) << 8; + curtag |= ac->asn1r_elmnt_id; + for (i = 0; i < ac->_asn1r_ntag; i++) + { + if (curtag == ac->_asn1r_valid_tags[i]) + { + ac->_asn1r_old_ntag = ac->_asn1r_ntag; /* Tags are deleted once used, */ + ac->_asn1r_ntag = 0; /* but are recoverable. */ + (*ac->_asn1r_tag_fun[i])(ac); /* Call user-defined function. */ + return; + } + } + ALOG_NERR1 ("ASN.1 decode: unexpected tag 0x%X", (ST_UINT) curtag); + asn1r_set_dec_err(ac, ASN1E_UNEXPECTED_TAG); + return; + } + + if (ac->asn1r_decode_method == ASN1_ANYTAG_METHOD) + { + curtag = (ST_UINT16) (ac->asn1r_elmnt_class | ac->asn1r_constr_elmnt) << 8; + curtag |= ac->asn1r_elmnt_id; + (*ac->asn1r_anytag_fun)(ac, curtag); + return; + } + + ac->_asn1r_ntag = 0; /* class method, no valid tags */ + +/* When parsing is being done on the basis of class, switch on the */ +/* class of the current data element and call the corresponding fcn */ +/* pointer. Do error checking where possible. */ + switch (ac->asn1r_elmnt_class) + { + case CTX : /* class = context specific */ + (*ac->asn1r_c_id_fun)(ac, ac->asn1r_elmnt_id); + break; + + case UNI : /* class = universal */ /* Perform additional checks */ + switch (ac->asn1r_elmnt_id) /* for constr/prim allowed */ + { /* check selected types */ + case INT_CODE : /* integer must be primitive */ + if (ac->asn1r_constr_elmnt) + { + ALOG_NERR0 ("ASN.1 decode: invalid INTEGER element"); + asn1r_set_dec_err (ac, ASN1E_UNEXPECTED_FORM); + } + else + { + (*ac->asn1r_u_id_fun)(ac, ac->asn1r_elmnt_id); + } + break; + + case SEQ_CODE : /* sequence valid in constr */ + if (!ac->asn1r_constr_elmnt) + { + ALOG_NERR0 ("ASN.1 decode: invalid SEQ element"); + asn1r_set_dec_err (ac, ASN1E_UNEXPECTED_FORM); + } + else + { + (*ac->asn1r_u_id_fun)(ac, ac->asn1r_elmnt_id); + } + break; + + case SET_CODE : /* set valid in constructor */ + if (!ac->asn1r_constr_elmnt) + { + ALOG_NERR0 ("ASN.1 decode: invalid SET element"); + asn1r_set_dec_err (ac, ASN1E_UNEXPECTED_FORM); + } + else + { + (*ac->asn1r_u_id_fun)(ac, ac->asn1r_elmnt_id); + } + break; + + case BOOL_CODE : /* boolean must be primitive, */ + if (ac->asn1r_constr_elmnt || ac->asn1r_elmnt_len != 1) /* 1 octet */ + { + ALOG_NERR0 ("ASN.1 decode: invalid BOOL element"); + asn1r_set_dec_err (ac, ASN1E_INVALID_BOOLEAN); + } + else + { + (*ac->asn1r_u_id_fun)(ac, ac->asn1r_elmnt_id); + } + break; + + case NULL_CODE : /* null must be primitive */ + if (ac->asn1r_constr_elmnt || ac->asn1r_elmnt_len) + { + ALOG_NERR0 ("ASN.1 decode: invalid NULL element"); + asn1r_set_dec_err (ac, ASN1E_UNEXPECTED_TAG); + } + else + { + (*ac->asn1r_u_id_fun)(ac, ac->asn1r_elmnt_id); + } + break; + + default : /* all others can be either */ + { + (*ac->asn1r_u_id_fun)(ac, ac->asn1r_elmnt_id); + } + break; + } + break; /* end of universal */ + + case APP : /* class = application wide */ + (*ac->asn1r_a_id_fun)(ac, ac->asn1r_elmnt_id); + break; + + case PRV : /* class = private use */ + (*ac->asn1r_p_id_fun)(ac, ac->asn1r_elmnt_id); + break; + } + } + +/************************************************************************/ +/* asn1r_set_all_cstr_done */ +/************************************************************************/ + +ST_VOID asn1r_set_all_cstr_done (ASN1_DEC_CTXT *ac) + { +ST_INT i; + + for (i = 0; i < ASN1_MAX_LEVEL; ++i) + ac->asn1r_c_done_fun[i] = NULL; + } + +/************************************************************************/ +/* asn1r_tag_add */ +/************************************************************************/ + +ST_VOID asn1r_tag_add (ASN1_DEC_CTXT *ac, ST_UINT16 tag, + ST_VOID (*fcn_ptr)(ASN1_DEC_CTXT *ac)) + { +#ifdef DEBUG_SISCO + if (ac->_asn1r_ntag >= MAX_TAG_FUN) /* Array is MAX_TAG_FUN deep */ + { + ALOG_ERR0 ("ASN.1 Decode Internal Error : Tag Table Buffer Overflow"); + return; + } +#endif + + ac->_asn1r_valid_tags[ac->_asn1r_ntag] = tag; + ac->_asn1r_tag_fun[ac->_asn1r_ntag] = (ST_VOID (*)(ASN1_DEC_CTXT *)) fcn_ptr; + ac->_asn1r_ntag++; + return; + } + +/************************************************************************/ +/* asn1r_tag_restore */ +/* This fun restores the el'ts of the tag[] and _asn1_tag_fun[] arrays. */ +/************************************************************************/ + +ST_VOID asn1r_tag_restore (ASN1_DEC_CTXT *ac) + { + ac->_asn1r_ntag = ac->_asn1r_old_ntag; + } + +/************************************************************************/ +/************************************************************************/ +/* asn1_peek */ +/************************************************************************/ + +ST_RET asn1_peek (ASN1_DEC_CTXT *ac, ST_UCHAR *ptr, ST_INT len) + { +ST_RET rc; + + ac->asn1r_pdu_dec_err = NO_DECODE_ERR; /* reset error flag */ + ac->asn1r_field_ptr = ptr; /* initialize asn1_field_ptr */ + ac->asn1r_done_ptr = ac->asn1r_field_ptr + len; + +/* Validate length to avoid possible problems */ + if (len <= 0) + { + ALOG_NERR0 ("ASN.1 peek: Length zero or negative"); + asn1r_set_dec_err(ac, ASN1E_END_O_BUFFER); + return (SD_FAILURE); + } + + rc = _asn1r_head_decode (ac); /* decodes the data element header */ + if (rc != SD_SUCCESS) + { + ALOG_NERR0 ("ASN.1 decode: header decode error"); + return (rc); + } + return (SD_SUCCESS); + } + +/************************************************************************/ +/************************************************************************/ +/* ASN.1 message construct tools. */ +/************************************************************************/ +/************************************************************************/ +/* asn1r_strt_asn1_bld */ +/* Function to initialize the ASN.1 build parameters. Should be called */ +/* before starting construction of each message. */ +/************************************************************************/ + +ST_VOID asn1r_strt_asn1_bld (ASN1_ENC_CTXT *ac, ST_UCHAR *bufptr, ST_INT buflen) + { + ALOG_ENC0 ("Starting ASN.1 message construct"); + +/* Initialize variables in the encode context structure. */ + + ac->asn1r_encode_overrun = SD_FALSE; + ac->asn1r_buf_start = bufptr; + + /* Initialize a bunch of variables to the "end" of buffer. */ + ac->asn1r_constr_end[0] = ac->asn1r_field_ptr = ac->asn1r_field_end = + ac->asn1r_buf_end = bufptr + buflen - 1; + + ac->asn1r_msg_level = 0; /* init current level */ +/* Chk this later to verify that "asn1r_strt_asn1_bld" was called. */ + ac->asn1r_magic = ASN1_ENC_MAGIC_NUMBER; + } + +/************************************************************************/ +/* asn1r_strt_constr */ +/* Function to start a constructor build (from back). */ +/* Simply increments the message level (if notmax) sets the start */ +/* pointer for the level at the current position */ +/************************************************************************/ + +ST_VOID asn1r_strt_constr (ASN1_ENC_CTXT *ac) + { + if (++ac->asn1r_msg_level >= ASN1_MAX_LEVEL) /* increment the level */ + { + ALOG_ERR0 ("Error : ASN.1 encode exceeded nesting level"); + --ac->asn1r_msg_level; /* if at top level */ + } + + ALOG_CENC1 ("Starting constructor @ level %d",ac->asn1r_msg_level); + ac->asn1r_constr_end[ac->asn1r_msg_level] = ac->asn1r_field_ptr; /* save msg ptr */ + } + +/************************************************************************/ +/* asn1r_strt_constr_indef */ +/* FOR TEST APPLICATIONS ONLY. */ +/* SISCO applications never encode Indefinite Length constructors (slow)*/ +/* but this function may be needed by test applications to generate */ +/* ASN.1 messages with Indefinite Length constructors. */ +/************************************************************************/ + +ST_VOID asn1r_strt_constr_indef (ASN1_ENC_CTXT *ac) + { + if (++ac->asn1r_msg_level >= ASN1_MAX_LEVEL) /* increment the level */ + { + ALOG_ERR0 ("Error : ASN.1 encode exceeded nesting level"); + --ac->asn1r_msg_level; /* if at top level */ + } + + ALOG_CENC1 ("Starting 'indefinite length' constructor @ level %d",ac->asn1r_msg_level); + *ac->asn1r_field_ptr-- = 0; /* write 2 zeros for 'end of constructor'*/ + *ac->asn1r_field_ptr-- = 0; + ac->asn1r_constr_end[ac->asn1r_msg_level] = ac->asn1r_field_ptr; + /* CRITICAL: set ..field_end so length of last prim can be computed later.*/ + ac->asn1r_field_end = ac->asn1r_field_ptr; + } + +/************************************************************************/ +/* asn1r_fin_constr */ +/* Function to finish a constructor. */ +/* Writes the constructor length, then the identifier as requested. */ +/* */ +/* Pass the required id_code, the tag bits (upper 3 bits), and flag to */ +/* indicate when the indefinite length is required (indef != 0) */ +/************************************************************************/ + +ST_VOID asn1r_fin_constr (ASN1_ENC_CTXT *ac, ST_UINT16 id_code, ST_UINT16 el_tag, ST_BOOLEAN indef) + { +ST_INT len; + + if (ac->asn1r_field_ptr - ASN1_MAX_ELEMENT_OVERHEAD < ac->asn1r_buf_start) + { + /* Do NOT encode anything, but decrement msg_level to avoid nesting */ + /* errors if user continues trying to encode. */ + --ac->asn1r_msg_level; + ac->asn1r_encode_overrun = SD_TRUE; /* May already be SD_TRUE. */ + return; + } + + + if (!indef) /* write the length field (moves ptr) */ + { + len = ac->asn1r_constr_end[ac->asn1r_msg_level] - ac->asn1r_field_ptr; + _wr_asn1_len (ac, len); + } + else /* if not indefinite length - */ + *(ac->asn1r_field_ptr--) = 0x80; + + /* write identifier (moves ptr) */ + _wr_ident (ac, id_code, (ST_UINT16) (el_tag | CONSTR)); + +#ifdef DEBUG_SISCO + ALOG_CENC1 ("Finish level %d constructor",ac->asn1r_msg_level); + if (indef) + { + ALOG_CENC0 ("Indefinite length"); + } + else + { + ALOG_CENC1 ("Length = %d",ac->asn1r_constr_end[ac->asn1r_msg_level] - ac->asn1r_field_ptr); + } + ALOG_ENCH (ac->asn1r_constr_end[ac->asn1r_msg_level] - ac->asn1r_field_ptr, ac->asn1r_field_ptr + 1); +#endif + + if (--ac->asn1r_msg_level < 0) /* if was level 0 already */ + ac->asn1r_msg_level = 0; /* set = 0 */ + + ac->asn1r_field_end = ac->asn1r_field_ptr; /* reset the field end pointer*/ + } + +/************************************************************************/ +/* asn1r_fin_prim */ +/* Function to finish writing a primitive data element. */ +/* Pass the constructor type (set,sequence) and data element type. */ +/************************************************************************/ + +ST_VOID asn1r_fin_prim (ASN1_ENC_CTXT *ac, ST_UINT16 id_code, ST_UINT16 el_tag) + { +ST_INT len; + + if (ac->asn1r_field_ptr - ASN1_MAX_ELEMENT_OVERHEAD < ac->asn1r_buf_start) + { + ac->asn1r_encode_overrun = SD_TRUE; /* May already be SD_TRUE. */ + return; + } + + len = ac->asn1r_field_end - ac->asn1r_field_ptr; + + /* write the length field (moves ptr) */ + _wr_asn1_len (ac, len); + _wr_ident (ac, id_code, el_tag); /* write the identifier (moves ptr) */ + + len = ac->asn1r_field_end - ac->asn1r_field_ptr; + + ALOG_CENC0 ("Finish primitive"); + ALOG_ENCH (len, ac->asn1r_field_ptr + 1); + + ac->asn1r_field_end = ac->asn1r_field_ptr; /* reset the field end pointer*/ + } + +/************************************************************************/ +/* _wr_ident */ +/* Function to write an ASN.1 identifier field. */ +/* Pass the id code (0 to 0x3FFF), and the tag (class and constr bits) */ +/************************************************************************/ + +static ST_VOID _wr_ident (ASN1_ENC_CTXT *ac, ST_UINT16 id_code, ST_UINT16 el_tag) + { + if (id_code < 0x1F) /* if no extension octets required */ + *(ac->asn1r_field_ptr--) = (ST_UCHAR)(id_code | el_tag); /* one byte identifier */ + else + { + if (id_code < 0x80) /* if just one extension byte - */ + *(ac->asn1r_field_ptr--) = (ST_UCHAR)id_code; /* write id_code */ + else + { /* need two extension bytes */ + *(ac->asn1r_field_ptr--) = (ST_UCHAR)(id_code & 0x7F); /* write low 7 bits */ + *(ac->asn1r_field_ptr--) = (ST_UCHAR)(((id_code >> 7) & 0x7F) | 0x80); + } + *(ac->asn1r_field_ptr--) = (ST_UCHAR)(el_tag | 0x1F); /* indicte extnd'r */ + } + } + +/************************************************************************/ +/* _wr_asn1_len */ +/* Function to write an ASN.1 length field */ +/* Lengths from 0 to INT_MAX are supported. */ +/************************************************************************/ + +static ST_VOID _wr_asn1_len (ASN1_ENC_CTXT *ac, ST_INT len) + { + if (len <= 0x7F) /* see if short form will do */ + *(ac->asn1r_field_ptr--) = (ST_UCHAR)len; + else + { /* need long form */ + if (len <= 0xFF) /* if one byte will do */ + { + *(ac->asn1r_field_ptr--) = (ST_UCHAR)len; /* write length */ + *(ac->asn1r_field_ptr--) = (ST_UCHAR) 0x81; /* write # bytes in len */ + } + else if (len <= 0xFFFF) + { + *(ac->asn1r_field_ptr--) = (ST_UCHAR)(len & 0xFF); /* low byte */ + *(ac->asn1r_field_ptr--) = (ST_UCHAR)((len >> 8) & 0xFF); /* high byte */ + *(ac->asn1r_field_ptr--) = (ST_UCHAR) 0x82; /* #len bytes*/ + } + else if (len <= (ST_INT) 0xFFFFFF) + { + *(ac->asn1r_field_ptr--) = (ST_UCHAR)(len & 0xFF); /* low byte */ + *(ac->asn1r_field_ptr--) = (ST_UCHAR)((len >> 8) & 0xFF); /* mid byte */ + *(ac->asn1r_field_ptr--) = (ST_UCHAR)((len >> 16) & 0xFF); /* high byte */ + *(ac->asn1r_field_ptr--) = (ST_UCHAR) 0x83; /* #len bytes*/ + } + else + { + *(ac->asn1r_field_ptr--) = (ST_UCHAR)(len & 0xFF); /* low byte */ + *(ac->asn1r_field_ptr--) = (ST_UCHAR)((len >> 8) & 0xFF); /* mid log byte */ + *(ac->asn1r_field_ptr--) = (ST_UCHAR)((len >> 16) & 0xFF); /* mid high byte */ + *(ac->asn1r_field_ptr--) = (ST_UCHAR)((len >> 24) & 0xFF); /* high byte */ + *(ac->asn1r_field_ptr--) = (ST_UCHAR) 0x84; /* #len bytes*/ + } + } + } + + + +/************************************************************************/ +/* asn1r_set_dec_err */ +/* Function called from anywhere when an error is detected. Sets the */ +/* passed error code = asn1_pdu_dec_err, and sets asn1_decode_done. */ +/************************************************************************/ + +ST_VOID asn1r_set_dec_err (ASN1_DEC_CTXT *ac, ST_RET err_code) + { + ALOG_NERR1 ("ASN.1 decode error : 0x%X", err_code); + ac->asn1r_pdu_dec_err = err_code; /* set the problem type */ + ac->asn1r_decode_done = SD_TRUE; /* quit parse */ + } + +/************************************************************************/ +/* asn1r_done_err */ +/* function to eliminate premature decode complete, allow release of */ +/* allocated resources by invoking the error function. */ +/* Use as a asn1_decode_done_fun. */ +/************************************************************************/ + +ST_VOID asn1r_done_err (ASN1_DEC_CTXT *ac) + { + ALOG_NERR0 ("ASN1 decode: PDU ended before valid"); + asn1r_set_dec_err (ac, ASN1E_END_OF_MESSAGE); /* set the error */ + if (ac->asn1r_err_fun != NULL) + (*ac->asn1r_err_fun)(ac, ASN1E_END_OF_MESSAGE); /* call the error function */ + } + + +/************************************************************************/ +/* asn1r_class_err */ +/* This function is a nominal function to be invoked when a undesired */ +/* class data element is found during the message parse. */ +/* Just set an error code, stop parse. */ +/************************************************************************/ + +ST_VOID asn1r_class_err (ASN1_DEC_CTXT *ac, ST_UINT16 id_code) + { + ALOG_NERR0 ("CLASS ERROR"); + asn1r_set_dec_err (ac, ASN1E_UNEXPECTED_CLASS); /* just set the error flag */ + } + +/************************************************************************/ +/* asn1_cstr_done_err */ +/* Function to prevent premature constructor completion. */ +/************************************************************************/ + +ST_VOID asn1r_cstr_done_err (ASN1_DEC_CTXT *ac) + { + ALOG_NERR0 ("CONSTRUCTOR DONE ERROR"); + asn1r_set_dec_err(ac, ASN1E_END_OF_CSTR); + } + +/************************************************************************/ +/* asn1r_chk_getcstr_done */ +/* General constructor done function to be used with various pieces */ +/* of code to get information from a constructor inside a message. */ +/* To use, the variables _asn1_save_method and _asn1r_fun_save MUST be */ +/* setup and the ASN.1 function pointer cstr_done_fun must point */ +/* to this function. */ +/************************************************************************/ + +ST_VOID asn1r_chk_getcstr_done (ASN1_DEC_CTXT *ac) + { + ac->asn1r_decode_method = ac->asn1r_save_method; /* restore the decode method */ + ac->asn1r_decode_done_fun = ac->_asn1r_fun_save; /* restore the decode done fun*/ + (*ac->_asn1r_cstr_done_save)(ac); /* call the user selected fun */ + } + +/************************************************************************/ +/* asn1_objidcmp */ +/* Function to compare to OBJECT IDENTIFIERs */ +/* RETURN: 0 if same */ +/* 1 if different */ +/************************************************************************/ + +ST_BOOLEAN asn1_objidcmp (MMS_OBJ_ID *obj1, MMS_OBJ_ID *obj2) + { +ST_INT i; + + if (obj1->num_comps != obj2->num_comps) + return (1); + + for (i = 0; i < obj1->num_comps; i++) + { + if (obj1->comps[i] != obj2->comps[i]) + return (SD_TRUE); + } + + return (SD_FALSE); + } + +/************************************************************************/ +/* asn1r_init_glb_vars */ +/************************************************************************/ + +#if defined(NO_GLB_VAR_INIT) + +ST_VOID asn1r_init_glb_vars (ST_VOID) + { + asn1_debug_sel = ASN1_LOG_ERR; +#if defined( __ALPHA ) + asn1_vax_double_type = A_G_FLOAT; +#endif +#if defined( VAXC ) + asn1_vax_double_type = A_D_FLOAT; +#endif + } + +#endif +/************************************************************************/ +#ifdef DEBUG_SISCO +/************************************************************************/ +/************************************************************************/ +/* _list_elmnt */ +/* Function to print the attributes of a data element */ +/************************************************************************/ + +static ST_VOID _list_elmnt (ASN1_DEC_CTXT *ac) + { +ST_CHAR *ctxt; +ST_CHAR *pc; +ST_CHAR len[50]; + + ctxt ="Bogus"; + if ((asn1_debug_sel & ASN1_LOG_DEC) == 0) + return; + + switch (ac->asn1r_elmnt_class) + { + case (0x00) : + ctxt = "Univ"; + break; + case (0x40) : + ctxt = "App "; + break; + case (0x80) : + ctxt = "Ctxt"; + break; + case (0xC0) : + ctxt = "Priv"; + break; + } + + if (ac->asn1r_constr_elmnt) + pc = "Cstr"; + else + pc = "Prim"; + + if (!ac->asn1r_indef_flag) + sprintf (len,"%u", (unsigned int) ac->asn1r_elmnt_len); + else + strcpy (len,"Indef"); + + ALOG_DECLF (); + ALOG_CDEC4 ("Element : %s, %s, ID = %d, Len = %s", + ctxt, pc, (int) ac->asn1r_elmnt_id, len); + } + +/************************************************************************/ +#endif /* end ifdef DEBUG_SISCO */ +/************************************************************************/ + + + /*------------------------------------------------------*/ + /* MMS_BTOD to/from MMS_UTC_TIME conversion functions */ + /*------------------------------------------------------*/ + +/************************************************************************/ +/* asn1_convert_btod_to_utc */ +/* This function converts MMS_BTOD (time relative to 1/1/1984) to the */ +/* MMS_UTC_TIME (time relative to 1/1/1970). */ +/* The qflags field in the MMS_UTC_TIME need to be set by the calling */ +/* function. */ +/* Only the MMS_BTOD6 form of the MMS_BTOD struct can be converted to */ +/* the MMS_UTC_TIME. */ +/* Parameters: */ +/* btod pointer to MMS_BTOD struct that should be converted to */ +/* the MMS_UTC_TIME */ +/* utc pointer to MMS_UTC_TIME struct where the result of the */ +/* conversion will be placed */ +/* Return: */ +/* SD_SUCCESS if function successful */ +/* SD_FAILURE otherwise */ +/************************************************************************/ +ST_RET asn1_convert_btod_to_utc (MMS_BTOD *btod, MMS_UTC_TIME *utc) + { +time_t tJan84 = TIME_T_1984_JAN_1; + + if (btod->form != MMS_BTOD6) + { + ALOG_NERR0 ("convert_btod_to_utc: MMS_BTOD4 can't be converted to UTC time"); + return (SD_FAILURE); + } + + /* Now compute the MMS_UTC_TIME */ + utc->secs = (ST_UINT32) (tJan84 + + (time_t) (btod->day * SECONDS_PER_DAY) + (time_t) (btod->ms / 1000)); + /* num of seconds since Jan 1, 1970 */ + /* NOTE: use 0x01000000 (2**24) in fraction computations. */ + utc->fraction = (ST_UINT32) ((ST_DOUBLE)(btod->ms % 1000) / 1000.0 * (ST_DOUBLE)0x01000000); + /* fraction of a second on 24-bits */ + + return (SD_SUCCESS); + } + +/************************************************************************/ +/* asn1_convert_utc_to_btod */ +/* This function converts MMS_UTC_TIME (time relative to 1/1/1970) to */ +/* the MMS_BTOD (time relative to 1/1/1984). */ +/* The form field in the MMS_BTOD is set to MMS_BTOD6 by this function. */ +/* Parameters: */ +/* utc pointer to MMS_UTC_TIME struct that should be converted */ +/* to the MMS_BTOD */ +/* btod pointer to MMS_BTOD struct where the result of the */ +/* conversion will be placed */ +/* Return: */ +/* SD_SUCCESS if function successful */ +/* SD_FAILURE otherwise */ +/************************************************************************/ +ST_RET asn1_convert_utc_to_btod (MMS_UTC_TIME *utc, MMS_BTOD *btod) + { +time_t tJan84 = TIME_T_1984_JAN_1; + + /* Now compute the MMS_BTOD time */ + btod->day = (ST_INT32) (utc->secs - tJan84) / SECONDS_PER_DAY; /* num of days since 1/1/1984 */ + btod->ms = (ST_INT32) ((utc->secs - tJan84) % SECONDS_PER_DAY) * 1000; /* num milliseconds since midnight */ + /* NOTE: use 0x01000000 (2**24) in fraction computations. */ + btod->ms += (ST_INT32) ((ST_DOUBLE) utc->fraction * 1000.0/(ST_DOUBLE)0x01000000); + /* add the milliseconds left in a sec */ + btod->form = MMS_BTOD6; + + return (SD_SUCCESS); + } + +/************************************************************************/ +/* asn1_convert_timet_to_btime6 */ +/* Convert time_t value to MMS_BTIME6. */ +/* Input "time_t" value is always based on UTC (GMT). It is compared */ +/* to the define TIME_T_1984_JAN_1 which is also based on UTC (GMT). */ +/* The difference is used to compute the number of seconds elapsed */ +/* since 1984. Then seconds is converted to days & milliseconds. */ +/************************************************************************/ +ST_RET asn1_convert_timet_to_btime6 (time_t tThis, MMS_BTIME6 *btime6) + { +time_t tJan84 = TIME_T_1984_JAN_1; +long elapsed; /* elapsed time since 1984-Jan-1 (in seconds) */ +ldiv_t divResult; +ST_RET retcode; + + /* Find the number of seconds since "1984-Jan-1" and convert to days & msec.*/ + /* NOTE: difftime returns "double" (don't know why), but ldiv needs "long".*/ + elapsed = (long) difftime (tThis, tJan84); + + if (elapsed < 0) + { /* "negative" elapsed time NOT ALLOWED */ + btime6->day = 0; /* days since 1984-Jan-1 */ + btime6->ms = 0; /* milliseconds this day */ + retcode = SD_FAILURE; + } + else + { + divResult = ldiv (elapsed, SECONDS_PER_DAY); + + btime6->day = divResult.quot; /* days since 1984 */ + btime6->ms = (divResult.rem * 1000); /* milliseconds this day */ + retcode = SD_SUCCESS; + } + + return (retcode); + } + +/************************************************************************/ +/* bstrcpy */ +/************************************************************************/ +ST_VOID bstrcpy (ST_UCHAR *dstptr, ST_UCHAR *srcptr, ST_INT numbits) + { +ST_INT num_bytes = numbits/8; /* Number of complete bytes */ +ST_INT extra_bits = numbits%8; /* Number of extra bits */ +ST_UCHAR src_mask; +ST_UCHAR dst_mask; + + if (num_bytes) + memcpy (dstptr, srcptr, num_bytes); + + if (extra_bits) + { + src_mask = 0xFF << (8-extra_bits); /* Use high bits from src */ + dst_mask = 0xFF >> extra_bits; /* Use low bits from dst */ + + dstptr[num_bytes] &= dst_mask; + dstptr[num_bytes] |= (srcptr[num_bytes] & src_mask); + } + } + +/************************************************************************/ +/* bvstrcpy */ +/* Copy one "variable length bitstring" to another. */ +/************************************************************************/ +ST_VOID bvstrcpy (MMS_BVSTRING *dstptr, MMS_BVSTRING *srcptr) + { + dstptr->len = srcptr->len; + bstrcpy (dstptr->data, srcptr->data, srcptr->len); + } + +/************************************************************************/ +/* bstrcmp */ +/* Compare bitstrings. */ +/* RETURNS: 0 if bitstrings identical, 1 if different. */ +/************************************************************************/ +ST_INT bstrcmp (ST_UCHAR *dstptr, ST_UCHAR *srcptr, ST_INT numbits) + { +ST_INT num_bytes = numbits/8; /* Number of complete bytes */ +ST_INT extra_bits = numbits%8; /* Number of extra bits */ +ST_UCHAR mask; + + if (num_bytes) + { + if (memcmp (dstptr, srcptr, num_bytes)) + return (1); /* different */ + } + + if (extra_bits) + { + /* Mask off extra (low order) bits in last byte. */ + mask = 0xFF << (8-extra_bits); /* Use high order bits */ + if ((dstptr[num_bytes] & mask) != (srcptr[num_bytes] & mask)) + return (1); /* different */ + } + return (0); /* same */ + } + +/************************************************************************/ +/* asn1r_skip_elmnt */ +/* Skip over current ASN.1 element without decoding. */ +/* Does not work for indefinite length encoding (returns SD_FAILURE). */ +/* DEBUG: If indefinite len support needed, try using asn1r_parse_next. */ +/************************************************************************/ +ST_RET asn1r_skip_elmnt (ASN1_DEC_CTXT *aCtx) + { +ST_RET retcode = SD_SUCCESS; + + if (aCtx->asn1r_constr_elmnt) + { + if (aCtx->asn1r_indef_flag) + { + ALOG_ERR0 ("asn1r_skip_elmnt: indefinite length encoding not supported"); + asn1r_set_dec_err (aCtx, ASN1E_UNEXPECTED_FORM); + retcode = SD_FAILURE; + } + else + { + aCtx->asn1r_constr_elmnt = 0; /* Make ASN.1 treat it like primitive. */ + --aCtx->asn1r_msg_level; /* Already incremented for constructor */ + /* so decrement to act like primitive. */ + aCtx->asn1r_field_ptr += aCtx->asn1r_elmnt_len; + } + } + else + { /* primitive: just update field_ptr */ + aCtx->asn1r_field_ptr += aCtx->asn1r_elmnt_len; + } + return (retcode); + } + +/*======================================================================*/ +/*======================================================================*/ +/* The following functions are for a new decode method that does */ +/* NOT use any function pointers: */ +/* asn1r_decode_init */ +/* asn1r_byte_count_decrement (static) */ +/* asn1r_get_tag */ +/*======================================================================*/ +/*======================================================================*/ + +/************************************************************************/ +/* asn1r_decode_init */ +/* Initialize the ASN.1 decode context. */ +/* IMPORTANT: Use ONLY with "asn1r_get_tag". */ +/* NOTE: This function does NOT use any of the function pointers in */ +/* ASN1_DEC_CTXT (_asn1r_tag_fun, asn1r_c_done_fun, etc.). */ +/* Also, several other parameters in ASN1_DEC_CTXT are NOT used. */ +/* NOTE: To avoid a slow "memset" call, this function only sets the */ +/* necessary parameters in ASN1_DEC_CTXT (other parameters contain */ +/* random data). */ +/************************************************************************/ +ST_RET asn1r_decode_init (ASN1_DEC_CTXT *ac, + ST_UCHAR *ptr, /* ASN.1 message to decode */ + ST_INT len) /* length of ASN.1 message */ + { + /* Validate length to avoid possible problems */ + if (len <= 0) + { + ALOG_NERR0 ("ASN.1 decode: Length zero or negative"); + return (ASN1E_END_O_BUFFER); + } + +/* initialize flags, counters, pointers for decode */ + + ac->asn1r_indef_flag = SD_FALSE; /* clear flag */ + ac->_asn1_indef_track[0] = SD_FALSE; /* level 0 is always definite */ + ac->_asn1_byte_count[0] = len; /* set # bytes left in level 0 */ + ac->asn1r_msg_level = 0; /* start at message level 0 */ + + ac->asn1r_field_ptr = ptr; + ac->asn1r_done_ptr = ptr + len; + ac->asn1r_msg_start = ptr; /* save start ptr to compute */ + /* offset for logging. */ + + ALOG_DEC1 ("ASN.1 MESSAGE TO DECODE : len = %d",len); + ALOG_DECH (len,ptr); + return (SD_SUCCESS); + } + +/************************************************************************/ +/* asn1r_byte_count_decrement */ +/* If this is a "definite length" constructor, decrement its byte count.*/ +/* NOTE: For "indefinite length" constructor, DO NOTHING. */ +/************************************************************************/ +static ST_RET asn1r_byte_count_decrement (ASN1_DEC_CTXT *ac, + ST_INT msg_level, /* constructor nesting level */ + ST_INT byte_count) /* number of bytes processed */ + { + if ( ! ac->_asn1_indef_track[msg_level]) + { + /* This is "definite length" constructor. Decrement its byte count. */ + if (ac->_asn1_byte_count[msg_level] < byte_count) + { + if (msg_level == 0) + ALOG_ERR0 ("ASN.1 decode: data exceeds message size"); + else + ALOG_ERR1 ("ASN.1 decode: data exceeds constructor length at message level %d", msg_level); + return (ASN1E_CSTR_INVALID_LEN); + } + ac->_asn1_byte_count[msg_level] -= byte_count; + } + return (SD_SUCCESS); + } + +/************************************************************************/ +/* asn1r_get_tag */ +/* Decode the next ASN.1 tag. */ +/* IMPORTANT: Use ONLY with "asn1r_decode_init". */ +/* Must call 'asn1r_decode_init' once before any calls to this function.*/ +/* NOTE: This function does NOT use any of the function pointers in */ +/* ASN1_DEC_CTXT (_asn1r_tag_fun, asn1r_c_done_fun, etc.). */ +/* Also does NOT use several other parameters in ASN1_DEC_CTXT. */ +/************************************************************************/ +ST_RET asn1r_get_tag (ASN1_DEC_CTXT *ac, + ST_UINT16 *tag_out) /* out: decoded tag */ + { +ST_INT head_len; /* num bytes processed by asn1r_head_decode */ +ST_RET rc; + + /* Before decoding the next tag, if current constructor is */ + /* "definite length", check if it is finished. */ + /* NOTE: end of "indefinite length" constructor is a real tag, so */ + /* it is processed AFTER the tag is decoded. */ + if ( ac->asn1r_msg_level > 0 + && ac->_asn1_indef_track[ac->asn1r_msg_level] == SD_FALSE /* definite length*/ + && ac->_asn1_byte_count[ac->asn1r_msg_level] == 0) /* constr done */ + { + /* 0 bytes left at this constructor level (i.e. this constr done). */ + ALOG_CDEC1 ("Level %d parse complete",ac->asn1r_msg_level); + ac->asn1r_msg_level--; + *tag_out = 0; /* 0 always indicates constructor done */ + return (SD_SUCCESS); + } + + if (ac->asn1r_field_ptr >= ac->asn1r_done_ptr) + { + ALOG_ERR0 ("ASN.1 decode: past end of buffer"); + return (ASN1E_END_O_BUFFER); + } + + ALOG_DEC1 ("Current decode offset: 0x%X", + ac->asn1r_field_ptr - ac->asn1r_msg_start); + ac->asn1r_field_start = ac->asn1r_field_ptr; /* save field start address*/ + + /* Clear old asn1r_indef_flag. May be set again by _asn1r_head_decode.*/ + ac->asn1r_indef_flag = SD_FALSE; /* clear flag */ + + /* Decode the ASN.1 element header. */ + rc = _asn1r_head_decode (ac); + if (rc != SD_SUCCESS) + { + ALOG_NERR0 ("ASN.1 decode: header decode error"); + return(rc); + } + + /* Log this element (if enabled). */ +#ifdef DEBUG_SISCO + if (asn1_debug_sel & ASN1_LOG_DEC) + { + ST_INT log_len; + log_len = ac->asn1r_field_ptr - ac->asn1r_field_start; + /* For primitive, log the whole element */ + if (!ac->asn1r_constr_elmnt) + log_len += ac->asn1r_elmnt_len; + + ALOG_DECH (log_len, ac->asn1r_field_start); /* log bytes just processed*/ + + _list_elmnt (ac); /* log element attributes */ + } +#endif + + /* Generate tag to return to caller (*tag_out). */ + /* Our storage of tags in ST_UINT16 can only handle elmnt_id of */ + /* 13 bits (high 3 bits indicate Class and Constructor). */ + /* This should be good enough for anything we need to parse. */ + if (ac->asn1r_elmnt_id > 0x1fff) + { + ALOG_ERR1 ("ASN.1 element id = %u unsupported", ac->asn1r_elmnt_id); + return (SD_FAILURE); /* should NEVER get here */ + } + *tag_out = ((ST_UINT16) (ac->asn1r_elmnt_class | ac->asn1r_constr_elmnt) << 8) + | ac->asn1r_elmnt_id; + + /* Check for Indefinite Length End of Constructor (EOC)(i.e. tag==0) */ + if (*tag_out == 0) + { + /* EOC found. Was constr at this level "indefinite length"? */ + if (ac->_asn1_indef_track[ac->asn1r_msg_level]) + { + ST_INT indef_len; /* Length of this indefinite length constructor */ + ALOG_CDEC1 ("EOC detected for level %d",ac->asn1r_msg_level); + indef_len = ac->asn1r_field_ptr - ac->_asn1_constr_start[ac->asn1r_msg_level]; + + /* Decrement the byte count of the "higher level" constr. */ + rc = asn1r_byte_count_decrement (ac, ac->asn1r_msg_level - 1, indef_len); + if (rc) + return (rc); + + ALOG_CDEC1 ("Level %d parse complete",ac->asn1r_msg_level); + ac->asn1r_msg_level--; + } + else + { + ALOG_NERR0 ("ASN.1 decode: unexpected end of indefinite length constructor"); + return (ASN1E_UNEXPECTED_TAG); /* EOC not allowed here */ + } + /* ALWAYS return when EOC found. */ + /* NOTE: "*tag_out" already set to 0 to indicate constructor done. */ + return (SD_SUCCESS); + } /* end "if (*tag_out == 0)" */ + + /* Compute number of bytes processed by asn1r_head_decode. */ + /* Need this to decrement constructor byte counts below. */ + head_len = ac->asn1r_field_ptr - ac->asn1r_field_start; + + if (ac->asn1r_constr_elmnt) + { + /* Process constructor. */ + if (++ac->asn1r_msg_level >= ASN1_MAX_LEVEL) + { + ALOG_ERR0 ("Error : ASN.1 decode exceeded nesting level"); + return (ASN1E_NEST_TOO_DEEP); + } + + /* Save "indefinite length" flag for this constructor level. */ + ac->_asn1_indef_track[ac->asn1r_msg_level] = ac->asn1r_indef_flag; + + if (ac->asn1r_indef_flag) + { + /* Save start ptr for this constructor. Use to compute len later. */ + ac->_asn1_constr_start[ac->asn1r_msg_level] = ac->asn1r_field_ptr; + /* _asn1_byte_count NOT USED for indef len constructor. Set to 0, */ + /* just so it's easier to see in the debugger. */ + ac->_asn1_byte_count[ac->asn1r_msg_level] = 0; /* NOT USED for indef*/ + + /* Decrement the byte count of the "higher level" constr. */ + /* Use "head_len". Adjust for "data len" later when EOC is found. */ + rc = asn1r_byte_count_decrement (ac, ac->asn1r_msg_level - 1, head_len); + if (rc) + return (rc); + } + else + { + /* definite length constructor. Initialize byte count for it. */ + ac->_asn1_byte_count[ac->asn1r_msg_level] = ac->asn1r_elmnt_len; + /* Decrement the byte count of the "higher level" constr. */ + rc = asn1r_byte_count_decrement (ac, ac->asn1r_msg_level - 1, + head_len+ac->asn1r_elmnt_len); + if (rc) + return (rc); + } + } /* end constructor processing */ + else + { + /* This is a primitive. */ + /* Decrement the byte count of the "current" constr. */ + rc = asn1r_byte_count_decrement (ac, ac->asn1r_msg_level, + head_len+ac->asn1r_elmnt_len); + if (rc) + return (rc); + } + + return (SD_SUCCESS); + } + diff --git a/mmslib/build-ubuntu.sh b/mmslib/build-ubuntu.sh new file mode 100644 index 0000000..7accf0a --- /dev/null +++ b/mmslib/build-ubuntu.sh @@ -0,0 +1,39 @@ +#!/bin/sh + +DEBUG='-f Makefile.Debug' +RELEASE='-f Makefile.Release' + +make_function() +{ + qmake mmslib.pro + make $1 distclean + qmake mmslib.pro + make $1 clean + make $1 -j 2 + make $1 install +} + +echo Usage: "build-xxx.sh release/debug/all/clean/\"\" " +echo " release|\"\" : Make version release " +echo " debug : Make version debug " +echo " all : Make version debug and release" +echo " clean : Make clean " + +if [ "$1" = "" ]; then + make_function "$RELEASE" +fi +if [ "$1" = "release" ]; then + make_function "$RELEASE" +fi +if [ "$1" = "debug" ]; then + make_function "$DEBUG" +fi +if [ "$1" = "all" ]; then + make_function "$RELEASE" + make_function "$DEBUG" +fi +if [ "$1" = "clean" ]; then + qmake + make distclean +fi + diff --git a/mmslib/fe_common.pri b/mmslib/fe_common.pri new file mode 100644 index 0000000..bef10bc --- /dev/null +++ b/mmslib/fe_common.pri @@ -0,0 +1,47 @@ +###################################################################### +# common config for project +###################################################################### + +DEPENDPATH += . + +CONFIG += debug_and_release +CONFIG += warn_off +CONFIG -= warn_on + +CONFIG(debug, debug|release) { + TARGET = $$join(TARGET,,,d) + QMAKE_CXXFLAGS_DEBUG += -DDEBUG +} + +unix { + QMAKE_CXXFLAGS_WARN_ON = -Wall + QMAKE_CXXFLAGS_WARN_OFF = -w + LIBS += -lrt -ldl + OS_VERSION = $$system(uname -a) + contains(OS_VERSION, SunOS) { + #QMAKE_CXXFLAGS +=-D_POSIX_PTHREAD_SEMANTICS + LIBS += -lsocket -lnsl + } + contains(QMAKE_CXXFLAGS, -m64) { + DEFINES +=FE_VERSION_64 + } +} + +win32 { + DEFINES -= UNICODE + QMAKE_INCDIR = $(QTDIR)/include + QMAKE_INCDIR_QT = $(QTDIR)/include + QMAKE_LIBDIR_QT = $(QTDIR)/lib + QMAKE_LFLAGS_RELEASE = /INCREMENTAL:no + QMAKE_LFLAGS_DEBUG += /INCREMENTAL:no + QMAKE_LFLAGS += /MACHINE:X86 + QMAKE_MOC = $$(QTDIR)/bin/moc.exe + QMAKE_RCC = $$(QTDIR)/bin/rcc.exe + QMAKE_UIC = $$(QTDIR)/bin/uic.exe + QMAKE_IDC = $$(QTDIR)/bin/idc.exe + CONFIG -= warn_on + INCLUDEPATH +=$(QTDIR)/mkspecs/win32-msvc2010 + QMAKE_CXXFLAGS +=-DWIN32_LEAN_AND_MEAN + #for remove ACE warning + DEFINES += _CRT_SECURE_NO_DEPRECATE _M_IX86 WIN32 +} diff --git a/mmslib/inc/ExceptionReport.h b/mmslib/inc/ExceptionReport.h new file mode 100644 index 0000000..996f8d4 --- /dev/null +++ b/mmslib/inc/ExceptionReport.h @@ -0,0 +1,135 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2003-2204, All Rights Reserved */ +/* */ +/* MODULE NAME : ExceptionReport.h */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : Unhandled Exception Handler */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 02/13/06 DSF 03 Migrate to VS.NET 2005 */ +/* 06/30/05 DSF 02 Generate a mini dump */ +/* 12/20/04 DSF 01 Minor usability changes */ +/* Stack State recorder */ +/************************************************************************/ + +#pragma once + +#include "glbtypes.h" +#include "sysincs.h" +#include "slog.h" +#include "mem_chk.h" +#include +#include +#include +#include +#include +#include +using namespace std; + +enum BasicType // Stolen from CVCONST.H in the DIA 2.0 SDK +{ + btNoType = 0, + btVoid = 1, + btChar = 2, + btWChar = 3, + btInt = 6, + btUInt = 7, + btFloat = 8, + btBCD = 9, + btBool = 10, + btLong = 13, + btULong = 14, + btCurrency = 25, + btDate = 26, + btVariant = 27, + btComplex = 28, + btBit = 29, + btBSTR = 30, + btHresult = 31 +}; + +class WheatyExceptionReport +{ + public: + + WheatyExceptionReport( ); + WheatyExceptionReport( bool terminate ); + ~WheatyExceptionReport( ); + + void SetLogFileName( PTSTR pszLogFileName ); + + + // entry point where control comes on an unhandled exception + static LONG WINAPI WheatyUnhandledExceptionFilter( + PEXCEPTION_POINTERS pExceptionInfo ); + + static BOOL GetLogicalAddress( PVOID addr, PTSTR szModule, DWORD len, + DWORD& section, DWORD& offset ); + + private: + + // where report info is extracted and generated + static void GenerateExceptionReport( PEXCEPTION_POINTERS pExceptionInfo ); + + // where mini dump is generated + static void GenerateDumpFile( PEXCEPTION_POINTERS pExceptionInfo ); + + // Helper functions + static LPTSTR GetExceptionString( DWORD dwCode ); + static void WriteStackDetails( PCONTEXT pContext, bool bWriteVariables ); + + static BOOL CALLBACK EnumerateSymbolsCallback(PSYMBOL_INFO,ULONG, PVOID); + + static bool FormatSymbolValue( PSYMBOL_INFO, STACKFRAME *, char * pszBuffer, unsigned cbBuffer ); + + static char * DumpTypeIndex( char *, DWORD64, DWORD, unsigned, DWORD_PTR, bool & ); + + static char * FormatOutputValue( char * pszCurrBuffer, BasicType basicType, DWORD64 length, PVOID pAddress ); + + static BasicType GetBasicType( DWORD typeIndex, DWORD64 modBase ); + + static int __cdecl _tprintf(const TCHAR * format, ...); + + // Variables used by the class + static TCHAR m_szLogFileName[MAX_PATH]; + static TCHAR m_szDumpFileName[MAX_PATH]; + static LOG_CTRL m_logCtrl; + static LPTOP_LEVEL_EXCEPTION_FILTER m_previousFilter; + static HANDLE m_hReportFile; + static HANDLE m_hProcess; + static bool m_bTerminate; +}; + + +extern WheatyExceptionReport g_WheatyExceptionReport; // global instance of class + +struct SourceInfo + { + string filename; + long linenum; + }; + +struct StackInfo + { + DWORD threadID; + SYSTEMTIME timestamp; + vector stack; + + void Log (); + }; + +void GetStackInfo (StackInfo& stackInfo); + +extern "C" void ExpInit (); +extern "C" void ExpRaiseDebugException (); +extern "C" void ExpSetLogCtrl (LOG_CTRL *pLogCtrl); + + diff --git a/mmslib/inc/Goose.h b/mmslib/inc/Goose.h new file mode 100644 index 0000000..88af00b --- /dev/null +++ b/mmslib/inc/Goose.h @@ -0,0 +1,223 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1999-2002, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : goose.h */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 07/23/08 JRB 10 Fix len of gcRef, dataSetRef, appID. */ +/* 09/11/07 JRB 09 Add gse_iec_enc_part1, gse_iec_enc_part2. */ +/* Chg gcRef, dataSetRef, appID data type from */ +/* char ptr to char array (reduces allocation). */ +/* Fix type of numDataEntries, confRev. */ +/* 01/08/03 JRB 08 Del obsolete dataRef, elementId from structs */ +/* & from gse_iec_data_init args. */ +/* 12/03/02 ASK 07 Chg Goose structs for new ASN.1 encoding. Chg*/ +/* gse_iec_encode and gse_iec_hdr_decode protos */ +/* for Ethertype. include "ethertyp.h" */ +/* 09/30/02 NAV 06 Add ifdef __cplusplus */ +/* 02/26/02 JRB 05 Chg IEC GOOSE asn1Data args to UCHAR. */ +/* Chg some IEC GOOSE decode params to INT32. */ +/* 01/02/02 JRB 04 Add IEC GOOSE definitions. */ +/* 07/25/00 RKR 03 changed VisibleString SendingIED to ST_CHAR */ +/* 09/10/99 JRB 02 Chg SqNum, StNum, HoldTim, & BackTim */ +/* to UINT32 to match GOMSFE 0.9. */ +/* 06/25/99 MDE 01 Created */ +/************************************************************************/ +#ifndef GOOSE_HDR_INCLUDED +#define GOOSE_HDR_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "asn1r.h" /* need MMS_UTC_TIME */ +#include "clnp_usr.h" +#include "clnp_sne.h" +#include "acse2usr.h" +#include "ethertyp.h" +#include "mvl_defs.h" /* need MVL61850_MAX_* defines. */ +/* NOTE: need runtime_type from "mms_vvar.h" but requires bunch of */ +/* other includes, so just use forward declaration. */ +struct runtime_type; /* forward declaration */ + +/************************************************************************/ + + +#define GOOSE_NAME_MISMATCH 0x112 +#define GOOSE_DONE_TOO_SOON 0x113 + +/************************************************************************/ +#define GOOSE_MAX_NUM_DNA_BITS 128 +#define GOOSE_MAX_NUM_USR_BITS 512 + +#define GOOSE_DEF_NUM_DNA_BITS 64 +#define GOOSE_DEF_NUM_USR_BITS 128 + +typedef struct + { +/* GOOSE Stack addressing information */ + AUDT_APDU audtApdu; + +/* GOOSE MMS values */ + ST_CHAR SendingIED[66]; + MMS_BTOD t; + ST_UINT32 SqNum; + ST_UINT32 StNum; + ST_UINT32 HoldTim; + ST_UINT32 BackTim; + ST_UINT16 PhsID; + + ST_INT num_dna_bits; + ST_UCHAR DNA[GOOSE_MAX_NUM_DNA_BITS/8]; + + ST_INT num_usr_bits; + ST_UCHAR UserSt[GOOSE_MAX_NUM_USR_BITS/8]; + } GOOSE_INFO; + +/************************************************************************/ +/* The user makes use of these functions to send and receive GOOSE */ +/* messages. */ + +ST_RET mmsl_send_goose (GOOSE_INFO *gi); +ST_VOID u_mmsl_goose_received (GOOSE_INFO *goose_info); + +/************************************************************************/ +/* Internal */ + +#define GOOSE_MAX_PDU_SIZE 200 + +/* Define macro so new function just calls old function. */ +#define gse_uca_write(gi) mmsl_send_goose (gi) + +ST_RET gse_uca_decode (SN_UNITDATA *sn_udt, /* input subnet packet */ + GOOSE_INFO *goose_info); /* output GOOSE data */ + +/************************************************************************/ +/* BEGIN IEC GOOSE DEFINITIONS */ +/************************************************************************/ +typedef struct + { + struct runtime_type *runtimeTypeHead; /* Array of Runtime Types */ + ST_INT numRuntimeTypes; /* # of Runtime Types in array */ + ST_CHAR *dataBuf; /* ptr to local data */ + ST_VOID *userInfo; /* To store anything user wants.*/ + /* GSE code does not use it. */ + } GSE_IEC_DATA_ENTRY; + +typedef struct + { + ST_UINT8 *asn1Ptr; + ST_INT asn1Len; + } GSE_IEC_DATA_ENTRY_RX; + +typedef struct + { + ST_CHAR gcRef [MVL61850_MAX_OBJREF_LEN+1]; /* GoCBRef in IEC 61850 */ + ST_UINT32 timeToLive; + ST_CHAR dataSetRef [MVL61850_MAX_OBJREF_LEN+1];/* DatSet in IEC 61850 */ + ST_BOOLEAN appID_pres; + ST_CHAR appID [MVL61850_MAX_RPTID_LEN+1]; /* GoID in IEC 61850 */ + /* (was AppID in Ed 1) */ + MMS_UTC_TIME utcTime; + ST_UINT32 stNum; + ST_UINT32 sqNum; + ST_BOOLEAN test; + ST_UINT32 confRev; + ST_BOOLEAN needsCommissioning; + ST_INT32 numDataEntries; + GSE_IEC_DATA_ENTRY *dataEntries; /* array of data entry structs */ + }GSE_IEC_CTRL; + +typedef struct + { + ST_CHAR *gcRef; + ST_UINT32 timeToLive; + ST_CHAR *dataSetRef; + ST_BOOLEAN appID_pres; + ST_CHAR *appID; + MMS_UTC_TIME utcTime; + ST_UINT32 stNum; + ST_UINT32 sqNum; + ST_BOOLEAN test; + ST_UINT32 confRev; + ST_BOOLEAN needsCommissioning; + ST_INT32 numDataEntries; + ST_INT tmpIndex; /* index to current entry in "dataEntries" array.*/ + /* Used during decode when filling in "dataEntries".*/ + GSE_IEC_DATA_ENTRY_RX *dataEntries; /* array of data entry structs */ + }GSE_IEC_HDR; + +/* Subnet functions (clnp_snet_*) must be used to set multicast filters.*/ +/* The following "gse_*" macros may be used to access these functions. */ +#define gse_set_multicast_filter clnp_snet_set_multicast_filter +#define gse_discovery_start clnp_snet_rx_all_multicast_start +#define gse_discovery_stop clnp_snet_rx_all_multicast_stop + +GSE_IEC_HDR *gse_iec_hdr_decode (ST_UCHAR *apdu, ST_INT apdu_len); +/* After calling "gse_iec_hdr_decode", user can examine "dataEntries" */ +/* array in GSE_IEC_HDR, and call "ms_asn1_to_local" to decode any or */ +/* all dataEntries. */ + +/* User must call this function when they are done with the decoded */ +/* GOOSE info to free up the resources. */ +ST_RET gse_iec_decode_done (GSE_IEC_HDR *hdr); + + +GSE_IEC_CTRL *gse_iec_control_create (ST_CHAR *gcRef, ST_CHAR *dataSetRefRef, ST_CHAR *appId, + ST_INT numDataEntry); +ST_RET gse_iec_control_destroy (GSE_IEC_CTRL *ctrl); + +ST_RET gse_iec_data_init (GSE_IEC_CTRL *ctrl, + ST_INT index, + struct runtime_type *runtimeTypeHead, + ST_INT numRuntimeTypes + ); + +ST_RET gse_iec_data_update (GSE_IEC_CTRL *ctrl, + ST_INT index, + ST_VOID *dataPtr); + +ST_UCHAR *gse_iec_encode (GSE_IEC_CTRL *ctrl, + ST_UCHAR *asn1DataBuf, /* buffer to encode in */ + ST_INT asn1DataBufLen, /* len of buffer */ + ST_INT *asn1DataLenOut, /* ptr to len encoded */ + ETYPE_INFO *etype_info);/* ptr to Ethertype info*/ + +ST_RET gse_iec_send (GSE_IEC_CTRL *ctrl, + ST_UCHAR *dstMac, /* Destination MAC addr */ + ST_UCHAR *asn1Data, /* ptr to ASN.1 encoded data*/ + ST_INT asn1DataLen); /* len of ASN.1 encoded data*/ + +/* Functions to use for 2-part encode. Reduces re-encoding of data. */ +ST_UCHAR *gse_iec_enc_part1 (GSE_IEC_CTRL *ctrl, + ST_UCHAR *buf_ptr, /* buffer in which to encode */ + ST_INT buf_len, /* buffer len */ + ST_INT *asn1_len_out); /* len of ASN.1 encoded data */ +ST_UCHAR *gse_iec_enc_part2 (GSE_IEC_CTRL *ctrl, + ETYPE_INFO *etype_info, /* ptr to Ethertype info */ + ST_UCHAR *buf_ptr, /* buffer in which to encode */ + ST_INT buf_len, /* buffer len */ + ST_INT enc_part1_len, /* len of data encoded by */ + /* gse_iec_enc_part1 */ + /* CRITICAL: must be < buf_len. */ + ST_INT *asn1_len_out); /* len of ASN.1 encoded data */ + +/************************************************************************/ +/* END IEC GOOSE DEFINITIONS */ +/************************************************************************/ +#ifdef __cplusplus +} +#endif +#endif /* included */ diff --git a/mmslib/inc/STR_UTIL.H b/mmslib/inc/STR_UTIL.H new file mode 100644 index 0000000..a9609b0 --- /dev/null +++ b/mmslib/inc/STR_UTIL.H @@ -0,0 +1,158 @@ +#ifndef STR_UTIL_INCLUDED +#define STR_UTIL_INCLUDED +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2000 - 2004 All Rights Reserved */ +/* */ +/* MODULE NAME : str_util.h */ +/* PRODUCT(S) : General Use */ +/* */ +/* MODULE DESCRIPTION : */ +/* General purpose string manipulation functions. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 10/29/07 JRB 23 Add strncat_maxstrlen. Del strncat_safe (len */ +/* was wrong), use strncat or strncat_maxstrlen.*/ +/* 10/11/07 JRB 22 Add asciiToSint32, asciiToUint32 */ +/* 07/28/05 DWL 21 Use const ST_CHAR* in asciiTo* functions. */ +/* 03/14/05 JRB 20 Add get_next_string. */ +/* 12/03/04 JRB 19 Use strcasecmp, strncasecmp if supported. */ +/* 07/09/04 JRB 18 Add strncat_safe, strncpy_safe. */ +/* 03/08/04 EJV 17 Added getKeywordFromFile function. */ +/* 12/12/03 JRB 16 Add LYNX support. */ +/* 12/10/03 MDE 15 Added itoa/ltoa/utoa/ultoa replacements */ +/* 04/10/03 DSF 14 Added strnstr */ +/* 02/20/03 JRB 13 Del PSOS code. */ +/* 12/20/02 CRM 12 Added "defined(linux)" for strcmpi, etc. */ +/* 02/28/02 EJV 11 Added asciiToFloat, asciiToDouble. */ +/* 02/25/02 EJV 10 Replaced ascii_to_ macros with asciiToxxx fun*/ +/* Added asciiToUlong, asciiToUint16, */ +/* asciiToUint8, asciiToSint, asciiToUint */ +/* hex_to_ascii_str: added param hex_no_spaces. */ +/* 12/09/01 GLB 05 Added asciiToSlong, asciiToSint16, */ +/* asciiToSint8, asciiToUchar */ +/* 09/10/01 GLB 08 Added ascii_to_uint & ascii_to_slongint */ +/* 08/06/01 GLB 07 Added ascii_to_sint */ +/* 06/06/01 GLB 06 Added ascii_to_double & ascii_to_float */ +/* 05/21/01 MDE 05 Added bitstring_to_ascii_str */ +/* 01/19/01 EJV 04 UNIX: added strcmpi, stricmp, strnicmp protos*/ +/* 01/05/01 EJV 03 Corrected ascii_to_ushortint, AIX returned 0.*/ +/* ascii_to_ulongint: changed "%ul" to "%lu". */ +/* 11/02/00 MDE 02 Added _hex_no_spaces */ +/* 02/03/00 JRB 01 Created */ +/************************************************************************/ +#ifdef __cplusplus +extern "C" { +#endif + +ST_VOID hex_to_ascii_str ( + ST_CHAR *astr, /* ascii string */ + ST_UCHAR *hstr, /* hex string */ + ST_UINT hlen, /* len of hex string */ + ST_BOOLEAN hex_no_spaces); + +ST_RET ascii_to_hex_str ( + ST_UCHAR *hstr, /* hex string */ + ST_UINT *hlen_out, /* ptr to hex len to be set */ + ST_UINT hlen_max, /* maximum hex len to allow. */ + ST_CHAR *astr); /* ascii string */ + +ST_VOID bitstring_to_ascii_str (ST_CHAR *astr, ST_UCHAR *bstr, + ST_UINT numBits); + + +ST_RET asciiToSlong (const ST_CHAR *astr, + ST_LONG *sLong); +ST_RET asciiToUlong (const ST_CHAR *astr, + ST_ULONG *uLong); + +ST_RET asciiToSint (const ST_CHAR *astr, + ST_INT *sInt); +ST_RET asciiToUint (const ST_CHAR *astr, + ST_UINT *uInt); + +ST_RET asciiToSint32 (const ST_CHAR *astr, /* ascii string */ + ST_INT32 *value); /* ptr to converted value*/ +ST_RET asciiToUint32 (const ST_CHAR *astr, /* ascii string */ + ST_UINT32 *value); /* ptr to converted value*/ + +ST_RET asciiToSint16 (const ST_CHAR *astr, + ST_INT16 *sInt16); +ST_RET asciiToUint16 (const ST_CHAR *astr, + ST_UINT16 *uInt16); + +ST_RET asciiToSint8 (const ST_CHAR *astr, + ST_INT8 *sInt8); +ST_RET asciiToUint8 (const ST_CHAR *astr, + ST_UINT8 *uInt8); + +ST_RET asciiToUchar (const ST_CHAR *astr, + ST_UCHAR *uChar); + +ST_RET asciiToFloat (const ST_CHAR *astr, + ST_FLOAT *floatNum); +ST_RET asciiToDouble (const ST_CHAR *astr, + ST_DOUBLE *doubleNum); + + +char *strnstr (char *str1, char *str2, int len); + +/* SISCO code calls strcmpi, stricmp, strnicmp (Windows functions). */ +/* On systems that support strcasecmp, strncasecmp, remap to use them. */ +#if defined(_AIX) || defined(sun) || defined(__alpha) || defined(__hpux) || \ + defined(linux) +#ifndef strcmpi +#define strcmpi strcasecmp +#endif +#ifndef stricmp +#define stricmp strcasecmp +#endif +#ifndef strnicmp +#define strnicmp strncasecmp +#endif +#endif /* UNIX-like systems that support strcasecmp, strncasecmp. */ + +/* On systems that DON'T support strcasecmp, strncasecmp, use SISCO functions. */ +#if defined(VXWORKS) || defined(__LYNX) +ST_INT strcmpi (ST_CHAR *,ST_CHAR *); +ST_INT stricmp (ST_CHAR *,ST_CHAR *); +ST_INT strnicmp (ST_CHAR *,ST_CHAR *,ST_INT n); +#endif + +/* "strncat_maxstrlen" is like "strncat" but the third arg is the */ +/* maximum length of the destination string. */ +ST_RET strncat_maxstrlen (char *dest, char *src, size_t maxstrlen); + +/* "strncpy_safe" makes sure that the "dest" string is NULL-terminated. */ +/* The standard "strncpy" does NOT always NULL-terminate "dest". */ +ST_VOID strncpy_safe (char *dest, char *src, int max_len); + +ST_CHAR *sInt8ToAscii (ST_INT8 v, ST_CHAR *p); +ST_CHAR *uInt8ToAscii (ST_UINT8 v, ST_CHAR *p); +ST_CHAR *sInt16ToAscii (ST_INT16 v, ST_CHAR *p); +ST_CHAR *uInt16ToAscii (ST_UINT16 v, ST_CHAR *p); +ST_CHAR *sInt32ToAscii (ST_INT32 v, ST_CHAR *p); +ST_CHAR *uInt32ToAscii (ST_UINT32 v, ST_CHAR *p); +ST_CHAR *sIntToAscii (ST_INT v, ST_CHAR *p); +ST_CHAR *uIntToAscii (ST_UINT v, ST_CHAR *p); +ST_CHAR *sLongToAscii (ST_LONG v, ST_CHAR *p); +ST_CHAR *uLongToAscii (ST_ULONG v, ST_CHAR *p); + +/* misc functions */ +ST_BOOLEAN getKeywordFromFile (ST_CHAR *fileStr, ST_CHAR *keywordStr, + ST_CHAR *valBuf, ST_UINT valBufLen); + +ST_CHAR *get_next_string (ST_CHAR **ptrptr, ST_CHAR *delimiters); + +#ifdef __cplusplus +} +#endif + +#endif /* !STR_UTIL_INCLUDED */ + diff --git a/mmslib/inc/Smem.h b/mmslib/inc/Smem.h new file mode 100644 index 0000000..85d1971 --- /dev/null +++ b/mmslib/inc/Smem.h @@ -0,0 +1,467 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1999, All Rights Reserved */ +/* */ +/* MODULE NAME : smem.h */ +/* PRODUCT(S) : Utilities */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/14/03 JRB 10 Eliminate compiler warnings. */ +/* 10/09/01 JRB 09 Add non-debug log macros. */ +/* 10/02/01 JRB 08 Del DBL_LNK from SMEM_CONTEXT (never used). */ +/* Add forward declarations to reduce warnings. */ +/* 09/21/01 JRB 07 Add args to smem_add_pool. */ +/* Chg args to u_smem_*. */ +/* Del unused prototypes. */ +/* Add u_smem_get_buf_detail. */ +/* Pass old & new size to smem_realloc. */ +/* Add m_add_pool proto. */ +/* Del #ifdef ACSE && LEANT. */ +/* Del smemInitialized,smemDefCtxt (not needed).*/ +/* Add more SLOG macros. */ +/* Chg poolName, contextName to (ST_CHAR *). */ +/* 05/21/01 MDE 06 Mode SMEM context management work */ +/* 03/19/01 JEB 05 Moved all SMEM context defs to this file. */ +/* 03/10/01 GLB 04 Added u_smem_get_pool_params */ +/* 03/10/01 GLB 03 Added smemcfgx for parsing memory cfg. file */ +/* 02/26/01 MDE 02 Added clone control to SMEM_POOL_CTRL */ +/* 12/09/99 MDE 01 New */ +/************************************************************************/ +/************************************************************************/ + +#ifndef SMEM_INCLUDED +#define SMEM_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" +#include "gen_list.h" + +/************************************************************************/ + +#define SMEM_MAX_RANGE_TRACK 10 + +typedef struct _smem_range_track + { + ST_UINT lowLimit; + ST_UINT highLimit; + ST_LONG currNum; + ST_LONG maxNum; + } SMEM_RANGE_TRACK; + +typedef struct _smem_rt_ctrl + { + ST_INT numRanges; + SMEM_RANGE_TRACK rt[SMEM_MAX_RANGE_TRACK]; + } SMEM_RT_CTRL; + +/************************************************************************/ +struct _smem_pool_ctrl; /* forward declaration */ +struct _smem_context; /* forward declaration */ + +typedef struct _smem_pool_ctrl + { + struct _smem_pool_ctrl *next; + ST_CHAR *poolName; + ST_UINT bufSize; + ST_UINT8 numBuf; + ST_UINT8 nextAvailBuf; + ST_UINT8 *availIndexStack; /* Index table, size [numBuf] */ + ST_CHAR *firstBuf; + ST_CHAR *lastBuf; + struct _smem_context *smemContext; + + ST_BOOLEAN autoClone; + ST_INT maxClones; + ST_INT cloneCount; + +#ifdef DEBUG_SISCO + ST_UINT8 maxNumUsed; + ST_UINT16 *usedSize; /* usedSize [numBuf] */ +#endif + + ST_VOID *usr; /* SMEM user can use this ... */ + } SMEM_POOL_CTRL; + + +typedef struct _smem_context + { + ST_CHAR *contextName; + ST_INT usrId; /* User */ + ST_VOID *usr; /* User */ + +/* Must be arranged from smallest to largest buffer size */ + SMEM_POOL_CTRL *smemPoolCtrlList; + +/* Optional range tracking */ + SMEM_RT_CTRL *smemRangeTrack; + } SMEM_CONTEXT; + +/************************************************************************/ +/************************************************************************/ + +ST_RET smemcfgx (ST_CHAR *xml_filename); + +ST_VOID u_smem_get_pool_params ( SMEM_CONTEXT *contextName, + ST_UINT8 *numBuf, ST_UINT *bufSize, + ST_BOOLEAN *autoClone, + ST_INT *maxClones, + ST_CHAR **poolName); + +SMEM_POOL_CTRL *u_smem_need_buffers (SMEM_CONTEXT *smemContext, + ST_UINT8 numBuf, ST_UINT bufSize); +ST_CHAR *u_smem_get_buf_detail (ST_VOID *bufptr, ST_INT bufSize); + +SMEM_POOL_CTRL *smem_add_pool (SMEM_CONTEXT *smemContext, + ST_UINT8 numBuf, ST_UINT bufSize, + ST_BOOLEAN autoClone, + ST_INT maxClones, + ST_CHAR *poolName); + +ST_VOID *smem_malloc (SMEM_CONTEXT *smemContext, ST_UINT size); +ST_VOID *smem_calloc (SMEM_CONTEXT *smemContext, ST_UINT num, ST_UINT size); +ST_VOID *smem_realloc (SMEM_CONTEXT *smemContext, ST_VOID *oldptr, + ST_UINT oldsize, ST_UINT newsize); +ST_VOID smem_free (SMEM_CONTEXT *smemContext, ST_VOID *ptr); +ST_VOID smem_log_state (SMEM_CONTEXT *smemContext); + +ST_VOID smem_range_check (SMEM_CONTEXT *smemContext, + ST_UINT size, ST_BOOLEAN add); + + +/************************************************************************/ +/* mem_smem.c function prototypes */ +/************************************************************************/ +SMEM_POOL_CTRL *m_add_pool (SMEM_CONTEXT *smemContext, + ST_UINT8 numBuf, ST_UINT bufSize, + ST_BOOLEAN autoClone, + ST_INT maxClones, + ST_CHAR *poolName); + +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ + +#define SMEM_LOG_ERR 0x0001 +#define SMEM_LOG_NERR 0x0002 +#define SMEM_LOG_FLOW 0x0004 +#define SMEM_LOG_DEBUG 0x0008 + +extern ST_UINT smem_debug_sel; + +/************************************************************************/ +/************************************************************************/ + +extern SD_CONST ST_CHAR *SD_CONST _smem_log_err_logstr; +extern SD_CONST ST_CHAR *SD_CONST _smem_log_flow_logstr; +extern SD_CONST ST_CHAR *SD_CONST _smem_log_nerr_logstr; +extern SD_CONST ST_CHAR *SD_CONST _smem_log_debug_logstr; +extern SD_CONST ST_CHAR *SD_CONST _smem_log_dump_logstr; + +#ifdef DEBUG_SISCO + +#define SMEMLOG_ERR0(a) {\ + _slog (sLogCtrl,_smem_log_err_logstr,\ + thisFileName,__LINE__,a);\ + } +#define SMEMLOG_ERR1(a,b) {\ + _slog (sLogCtrl,_smem_log_err_logstr,\ + thisFileName,__LINE__,a,b);\ + } + +#define SMEMLOG_ERR2(a,b,c) {\ + _slog (sLogCtrl,_smem_log_err_logstr,\ + thisFileName,__LINE__,a,b,c);\ + } + +#define SMEMLOG_CERR0(a) {\ + _slogc (sLogCtrl,a);\ + } +#define SMEMLOG_CERR1(a,b) {\ + _slogc (sLogCtrl,a,b);\ + } + +#define SMEMLOG_CERR2(a,b,c) {\ + _slogc (sLogCtrl,a,b,c);\ + } + +#define SMEMLOG_NERR0(a) {\ + if (smem_debug_sel & SMEM_LOG_NERR)\ + _slog (sLogCtrl,_smem_log_nerr_logstr,\ + thisFileName,__LINE__,a);\ + } +#define SMEMLOG_NERR1(a,b) {\ + if (smem_debug_sel & SMEM_LOG_NERR)\ + _slog (sLogCtrl,_smem_log_nerr_logstr,\ + thisFileName,__LINE__,a,b);\ + } + +#define SMEMLOG_FLOW1(a,b) {\ + if (smem_debug_sel & SMEM_LOG_FLOW)\ + _slog (sLogCtrl,_smem_log_flow_logstr,\ + thisFileName,__LINE__,a,b);\ + } +#define SMEMLOG_CFLOW1(a,b) {\ + if (smem_debug_sel & SMEM_LOG_FLOW)\ + _slogc (sLogCtrl,a,b);\ + } +#define SMEMLOG_CFLOW2(a,b,c) {\ + if (smem_debug_sel & SMEM_LOG_FLOW)\ + _slogc (sLogCtrl,a,b,c);\ + } + +#define SMEMLOG_DUMP0(a) {\ + _slog (sLogCtrl,_smem_log_dump_logstr,\ + thisFileName,__LINE__,a);\ + } +#define SMEMLOG_DUMP1(a,b) {\ + _slog (sLogCtrl,_smem_log_dump_logstr,\ + thisFileName,__LINE__,a,b);\ + } + +#define SMEMLOG_CDUMP0(a) {\ + _slogc (sLogCtrl,a);\ + } + +#define SMEMLOG_CDUMP1(a,b) {\ + _slogc (sLogCtrl,a,b);\ + } + +#define SMEMLOG_CDUMP2(a,b,c) {\ + _slogc (sLogCtrl,a,b,c);\ + } + +#define SMEMLOG_CDUMP3(a,b,c,d) {\ + _slogc (sLogCtrl,a,b,c,d);\ + } + +#define SMEMLOG_CDUMP4(a,b,c,d,e) {\ + _slogc (sLogCtrl,a,b,c,d,e);\ + } + +#define SMEMLOG_CDUMP5(a,b,c,d,e,f) {\ + _slogc (sLogCtrl,a,b,c,d,e,f);\ + } + +#define SMEMLOG_DEBUG0(a) {\ + if (smem_debug_sel & SMEM_LOG_DEBUG)\ + _slog (sLogCtrl,_smem_log_debug_logstr,\ + thisFileName,__LINE__,a);\ + } + +#define SMEMLOG_DEBUG1(a,b) {\ + if (smem_debug_sel & SMEM_LOG_DEBUG)\ + _slog (sLogCtrl,_smem_log_debug_logstr,\ + thisFileName,__LINE__,a,b);\ + } + +#define SMEMLOG_DEBUG2(a,b,c) {\ + if (smem_debug_sel & SMEM_LOG_DEBUG)\ + _slog (sLogCtrl,_smem_log_debug_logstr,\ + thisFileName,__LINE__,a,b,c);\ + } +#define SMEMLOG_DEBUG3(a,b,c,d) {\ + if (smem_debug_sel & SMEM_LOG_DEBUG)\ + _slog (sLogCtrl,_smem_log_debug_logstr,\ + thisFileName,__LINE__,a,b,c,d);\ + } +#define SMEMLOG_DEBUG4(a,b,c,d,e) {\ + if (smem_debug_sel & SMEM_LOG_DEBUG)\ + _slog (sLogCtrl,_smem_log_debug_logstr,\ + thisFileName,__LINE__,a,b,c,d,e);\ + } + +#define SMEMLOG_CDEBUG0(a) {\ + if (smem_debug_sel & SMEM_LOG_DEBUG)\ + _slogc (sLogCtrl,a);\ + } + +#define SMEMLOG_CDEBUG1(a,b) {\ + if (smem_debug_sel & SMEM_LOG_DEBUG)\ + _slogc (sLogCtrl,a,b);\ + } + +#define SMEMLOG_CDEBUG2(a,b,c) {\ + if (smem_debug_sel & SMEM_LOG_DEBUG)\ + _slogc (sLogCtrl,a,b,c);\ + } +#define SMEMLOG_CDEBUG3(a,b,c,d) {\ + if (smem_debug_sel & SMEM_LOG_DEBUG)\ + _slogc (sLogCtrl,a,b,c,d);\ + } + +#else /* #ifdef DEBUG_SISCO */ + +#define SMEMLOG_ERR0(a) +#define SMEMLOG_ERR1(a,b) +#define SMEMLOG_ERR2(a,b,c) +#define SMEMLOG_CERR0(a) +#define SMEMLOG_CERR1(a,b) +#define SMEMLOG_CERR2(a,b,c) +#define SMEMLOG_NERR0(a) +#define SMEMLOG_NERR1(a,b) +#define SMEMLOG_FLOW1(a,b) +#define SMEMLOG_CFLOW1(a,b) +#define SMEMLOG_CFLOW2(a,b,c) +#define SMEMLOG_DUMP0(a) +#define SMEMLOG_DUMP1(a,b) +#define SMEMLOG_CDUMP0(a,b) +#define SMEMLOG_CDUMP1(a,b) +#define SMEMLOG_CDUMP2(a,b,c) +#define SMEMLOG_CDUMP3(a,b,c,d) +#define SMEMLOG_CDUMP4(a,b,c,d,e) +#define SMEMLOG_CDUMP5(a,b,c,d,e,f) +#define SMEMLOG_DEBUG0(a,b,c) +#define SMEMLOG_DEBUG2(a,b,c) +#define SMEMLOG_DEBUG3(a,b,c,d) +#define SMEMLOG_DEBUG4(a,b,c,d,e) +#define SMEMLOG_CDEBUG0(a) +#define SMEMLOG_CDEBUG1(a,b) +#define SMEMLOG_CDEBUG2(a,b,c) +#define SMEMLOG_CDEBUG3(a,b,c,d) + +#endif /* #ifdef DEBUG_SISCO */ + +/************************************************************************/ +/* Here we define a context control table and the associated indices */ + +#define M_SMEM_MAX_CONTEXT 30 /* number of specific context array elements */ + /* + extra context array elements for user applications */ + /* = MAX context array size */ +extern SMEM_CONTEXT m_smem_ctxt[M_SMEM_MAX_CONTEXT]; + +/* All users of SMEM that want a a context are to specify it here as an */ +/* index into the m_smem_ctxt table. */ + +/* Valid context indices */ +#define MSMEM_GEN_IDX 0 /* chk_* macros use this ctxt*/ + +/* MMS-EASE Lite indices */ +#define MSMEM_DEC_OS_INFO_IDX 1 +#define MSMEM_ENC_OS_INFO_IDX 2 +#define MSMEM_WR_DATA_DEC_BUF_IDX 3 +#define MSMEM_ASN1_DATA_ENC_IDX 4 +#define MSMEM_PDU_ENC_IDX 5 +#define MSMEM_COM_EVENT_IDX 6 +#define MSMEM_RXPDU_IDX 7 +#define MSMEM_NETINFO_IDX 8 +#define MSMEM_DYN_RT_IDX 9 +#define MSMEM_AA_ENCODE_IDX 10 +#define MSMEM_REQ_CTRL_IDX 11 +#define MSMEM_IND_CTRL_IDX 12 +#define MSMEM_MVLU_VA_IDX 13 +#define MSMEM_MVLU_VA_CTRL_IDX 14 +#define MSMEM_MVLU_VA_DATA_IDX 15 +#define MSMEM_MVLU_GNL_IDX 16 +#define MSMEM_MVLU_AA_IDX 17 + +/* For STACK (ACSE and LEANT) */ +#define MSMEM_ACSE_CONN_IDX 18 +#define MSMEM_ACSE_DATA_IDX 19 +#define MSMEM_COSP_CN_IDX 20 +#define MSMEM_N_UNITDATA_IDX 21 +#define MSMEM_SOCK_INFO_IDX 22 +#define MSMEM_SPDU_TX_IDX 23 +#define MSMEM_STARTUP_IDX 24 +#define MSMEM_TPKT_IDX 25 + +/* The following are valid Contexts */ +#define MSMEM_GEN &m_smem_ctxt[MSMEM_GEN_IDX] + +/* MMS-EASE Lite indices */ +#define MSMEM_DEC_OS_INFO &m_smem_ctxt[MSMEM_DEC_OS_INFO_IDX] +#define MSMEM_ENC_OS_INFO &m_smem_ctxt[MSMEM_ENC_OS_INFO_IDX] +#define MSMEM_WR_DATA_DEC_BUF &m_smem_ctxt[MSMEM_WR_DATA_DEC_BUF_IDX] +#define MSMEM_ASN1_DATA_ENC &m_smem_ctxt[MSMEM_ASN1_DATA_ENC_IDX] +#define MSMEM_PDU_ENC &m_smem_ctxt[MSMEM_PDU_ENC_IDX] +#define MSMEM_COM_EVENT &m_smem_ctxt[MSMEM_COM_EVENT_IDX] +#define MSMEM_RXPDU &m_smem_ctxt[MSMEM_RXPDU_IDX] +#define MSMEM_NETINFO &m_smem_ctxt[MSMEM_NETINFO_IDX] +#define MSMEM_REQ_CTRL &m_smem_ctxt[MSMEM_REQ_CTRL_IDX] +#define MSMEM_IND_CTRL &m_smem_ctxt[MSMEM_IND_CTRL_IDX] +#define MSMEM_MVLU_VA &m_smem_ctxt[MSMEM_MVLU_VA_IDX] +#define MSMEM_MVLU_VA_CTRL &m_smem_ctxt[MSMEM_MVLU_VA_CTRL_IDX] +#define MSMEM_MVLU_VA_DATA &m_smem_ctxt[MSMEM_MVLU_VA_DATA_IDX] +#define MSMEM_MVLU_AA &m_smem_ctxt[MSMEM_MVLU_AA_IDX] +#define MSMEM_MVLU_GNL &m_smem_ctxt[MSMEM_MVLU_GNL_IDX] +#define MSMEM_DYN_RT &m_smem_ctxt[MSMEM_DYN_RT_IDX] +#define MSMEM_AA_ENCODE &m_smem_ctxt[MSMEM_AA_ENCODE_IDX] + +/* For STACK (ACSE and LEANT) */ +#define MSMEM_ACSE_CONN &m_smem_ctxt[MSMEM_ACSE_CONN_IDX] +#define MSMEM_ACSE_DATA &m_smem_ctxt[MSMEM_ACSE_DATA_IDX] +#define MSMEM_COSP_CN &m_smem_ctxt[MSMEM_COSP_CN_IDX] +#define MSMEM_N_UNITDATA &m_smem_ctxt[MSMEM_N_UNITDATA_IDX] +#define MSMEM_SOCK_INFO &m_smem_ctxt[MSMEM_SOCK_INFO_IDX] +#define MSMEM_SPDU_TX &m_smem_ctxt[MSMEM_SPDU_TX_IDX] +#define MSMEM_STARTUP &m_smem_ctxt[MSMEM_STARTUP_IDX] +#define MSMEM_TPKT &m_smem_ctxt[MSMEM_TPKT_IDX] + +#ifdef SMEMCFGX +/************************************************************************/ +/* This list is used to log error messages when an invalid context name */ +/* is entered. The error message for an invalid context name will list */ +/* all valid context names, as listed below. */ +/* Note: these names should match those listed above and those in */ +/* 'smemcfg.xml' */ + +typedef struct + { + ST_INT idx; + ST_CHAR *name; + } SMEM_CTXT_NAME; + +static SMEM_CTXT_NAME smemCtxtNames[] = + { + {MSMEM_GEN_IDX, "MSMEM_GEN"}, + {MSMEM_DEC_OS_INFO_IDX, "MSMEM_DEC_OS_INFO"}, + {MSMEM_ENC_OS_INFO_IDX, "MSMEM_ENC_OS_INFO"}, + {MSMEM_WR_DATA_DEC_BUF_IDX, "MSMEM_WR_DATA_DEC_BUF"}, + {MSMEM_ASN1_DATA_ENC_IDX, "MSMEM_ASN1_DATA_ENC"}, + {MSMEM_PDU_ENC_IDX, "MSMEM_PDU_ENC"}, + {MSMEM_COM_EVENT_IDX, "MSMEM_COM_EVENT"}, + {MSMEM_RXPDU_IDX, "MSMEM_RXPDU"}, + {MSMEM_NETINFO_IDX, "MSMEM_NETINFO"}, + {MSMEM_REQ_CTRL_IDX, "MSMEM_REQ_CTRL"}, + {MSMEM_IND_CTRL_IDX, "MSMEM_IND_CTRL"}, + {MSMEM_MVLU_VA_IDX, "MSMEM_MVLU_VA"}, + {MSMEM_MVLU_VA_CTRL_IDX, "MSMEM_MVLU_VA_CTRL"}, + {MSMEM_MVLU_VA_DATA_IDX, "MSMEM_MVLU_VA_DATA"}, + {MSMEM_MVLU_AA_IDX, "MSMEM_MVLU_AA"}, + {MSMEM_MVLU_GNL_IDX, "MSMEM_MVLU_GNL"}, + {MSMEM_DYN_RT_IDX, "MSMEM_DYN_RT"}, + {MSMEM_AA_ENCODE_IDX, "MSMEM_AA_ENCODE"}, + {MSMEM_ACSE_CONN_IDX, "MSMEM_ACSE_CONN"}, + {MSMEM_ACSE_DATA_IDX, "MSMEM_ACSE_DATA"}, + {MSMEM_COSP_CN_IDX, "MSMEM_COSP_CN"}, + {MSMEM_N_UNITDATA_IDX, "MSMEM_N_UNITDATA"}, + {MSMEM_SOCK_INFO_IDX, "MSMEM_SOCK_INFO"}, + {MSMEM_SPDU_TX_IDX, "MSMEM_SPDU_TX"}, + {MSMEM_STARTUP_IDX, "MSMEM_STARTUP"}, + {MSMEM_TPKT_IDX, "MSMEM_TPKT"} + }; + +static ST_INT smem_num_ctxt_names = sizeof(smemCtxtNames)/sizeof(SMEM_CTXT_NAME); + +#endif + +/************************************************************************/ +/************************************************************************/ +#ifdef __cplusplus +} +#endif + +#endif /* smem.h already included */ + diff --git a/mmslib/inc/acse2.h b/mmslib/inc/acse2.h new file mode 100644 index 0000000..aa88728 --- /dev/null +++ b/mmslib/inc/acse2.h @@ -0,0 +1,310 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1995 - 2004, All Rights Reserved */ +/* */ +/* MODULE NAME : acse2.h */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : */ +/* ACSE main header file. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 05/27/04 EJV 16 ACSE_CONN (MAP30_ACSE): added initiator. */ +/* 08/25/03 EJV 15 Del old password auth (OBSOLETE_ACSE_AUTH) */ +/* ACSE_CONN: added part_auth_info, encrypt_ctrl*/ +/* Added security functions protos. */ +/* 08/01/03 JRB 14 Add lean_a.h for DIB_ENTRY. */ +/* 06/17/03 EJV 13 Moved DIB_MATCH... from m_match.h. */ +/* 10/14/02 ASK 12 Added abort diagnostic tag */ +/* 09/27/02 ASK 11 Added ASN.1 security tags to AARE APDU, moved*/ +/* bitstring defines from acse2dec.c */ +/* 06/20/02 JRB 10 Add TSELs & remote NSAP/IP to ACSE_CONN. */ +/* 12/11/01 JRB 09 Convert to use ASN1R. */ +/* 09/10/01 JRB 08 Put back cosp_cn_ptr, cosp_cn_len. */ +/* 08/01/01 JRB 07 Del cosp_cn_ptr, cosp_cn_len from ACSE_CONN. */ +/* 04/03/01 JRB 06 Add PSELs & SSELs to ACSE_CONN. */ +/* 01/05/01 EJV 05 Changes for use over Marben */ +/* 07/14/99 JRB 04 Add ACSE Password Authentication stuff. */ +/* 08/13/98 JRB 03 Lint cleanup. */ +/* 07/23/98 JRB 02 Delete Marben support. */ +/* 11/10/97 JRB 01 Chg cosp_buf to (ST_UCHAR *). */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 03/19/97 JRB 08 MOSI cleanup. */ +/* 03/07/97 JRB 07 Added MOSI support. */ +/* 01/02/97 EJV 06 Added ACSE2_INCLUDED and __cplusplus. */ +/* 06/25/96 JRB 05 Added 'LEAN_T' support. */ +/* 05/02/96 JRB 04 Add STATE_TP4CONN_WAIT. */ +/* 04/18/96 JRB 03 Add STATE_AARE_ABANDON. */ +/* 03/26/96 MDE 02 Added 'REDUCED_STACK' support */ +/* 10/30/95 JRB 01 Created */ +/************************************************************************/ + +#ifndef ACSE2_INCLUDED +#define ACSE2_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "gen_list.h" +#include "acse2log.h" /* slog macros for ACSE */ +#include "acse2usr.h" +#if !defined(MAP30_ACSE) +#include "lean_a.h" /* need DIB_ENTRY */ +#endif +#include "dibmatch.h" + +/* Defines for bits in bitstring encoded values. */ +#define BIT_VERSION1 0x80 /* AARQ, AARE protocol_version */ +#define BIT_AUTHENTICATION 0x80 /* AARQ, AARE acse_requirements */ + +/* ACPM states. */ +#define STATE_INVALID -1 /* So user cannot use freed struct*/ +#define STATE_IDLE 0 +#define STATE_AARE_WAIT 1 +#define STATE_AASCRSP_WAIT 2 +#define STATE_RLRE_WAIT 3 +#define STATE_ARLSRSP_WAIT 4 +#define STATE_ASSOCIATED 5 +#define STATE_INIT_COLL 6 +#define STATE_RESP_COLL 7 +#define STATE_AARE_ABANDON 8 +#define STATE_TP4CONN_WAIT 9 + +/* ASN.1 tags for ACSE APDUs */ +#define TAG_AARQ 0 +#define TAG_AARE 1 +#define TAG_RLRQ 2 +#define TAG_RLRE 3 +#define TAG_ABRT 4 +#define TAG_ADT 5 +/* ASN.1 tags for CONNECTIONLESS ACSE APDUs */ +#define TAG_AUDT 0 + +/* ASN.1 tags for elements of AARQ APDU */ +#define AARQ_protocol_version 0 +#define AARQ_ASO_context_name 1 +#define AARQ_CALLED_AP_title 2 +#define AARQ_CALLED_AE_qual 3 +#define AARQ_CALLED_AP_inv_id 4 +#define AARQ_CALLED_AE_inv_id 5 +#define AARQ_CALLING_AP_title 6 +#define AARQ_CALLING_AE_qual 7 +#define AARQ_CALLING_AP_inv_id 8 +#define AARQ_CALLING_AE_inv_id 9 +#define AARQ_acse_requirements 10 +#define AARQ_mechanism_name 11 +#define AARQ_CALLING_auth_value 12 +#define AARQ_user_info 30 + +/* ASN.1 tags for elements of AUDT APDU (same as AARQ) */ +#define AUDT_protocol_version AARQ_protocol_version +#define AUDT_ASO_context_name AARQ_ASO_context_name +#define AUDT_CALLED_AP_title AARQ_CALLED_AP_title +#define AUDT_CALLED_AE_qual AARQ_CALLED_AE_qual +#define AUDT_CALLED_AP_inv_id AARQ_CALLED_AP_inv_id +#define AUDT_CALLED_AE_inv_id AARQ_CALLED_AE_inv_id +#define AUDT_CALLING_AP_title AARQ_CALLING_AP_title +#define AUDT_CALLING_AE_qual AARQ_CALLING_AE_qual +#define AUDT_CALLING_AP_inv_id AARQ_CALLING_AP_inv_id +#define AUDT_CALLING_AE_inv_id AARQ_CALLING_AE_inv_id +#define AUDT_user_info AARQ_user_info + +/* ASN.1 tags for elements of AARE APDU */ +#define AARE_protocol_version 0 +#define AARE_ASO_context_name 1 +#define AARE_result 2 +#define AARE_result_source_diagnostic 3 +#define AARE_RESPONDING_AP_title 4 +#define AARE_RESPONDING_AE_qual 5 +#define AARE_RESPONDING_AP_inv_id 6 +#define AARE_RESPONDING_AE_inv_id 7 +#define AARE_RESPONDER_acse_requirements 8 /* See the ACSE Spec for the strange name */ +#define AARE_mechanism_name 9 +#define AARE_RESPONDING_auth_value 10 +#define AARE_user_info 30 + +/* ASN.1 tags for elements of RLRQ APDU */ +#define RLRQ_reason 0 +#define RLRQ_user_info 30 + +/* ASN.1 tags for elements of RLRE APDU */ +#define RLRE_reason 0 +#define RLRE_user_info 30 + +/* ASN.1 tags for elements of ABRT APDU */ +#define ABRT_source 0 +#define ABRT_diagnostic 1 +#define ABRT_user_info 30 + +/* ASN.1 tags for elements of ADT APDU */ +#define ADT_user_info 30 + +#define ACSE_SERVICE_USER 0 +#define ACSE_SERVICE_PROVIDER 1 + +/************************************************************************/ +/* ACSE_CONN structure */ +/************************************************************************/ +#if defined (MOSI) +#define MAX_COSP_COPP_HEADER (((MAX_PSEL_LEN+MAX_SSEL_LEN)*2)+200) +typedef struct tagACSE_CONN + { + /* common part */ + ST_UINT apdu_len; /* len of a APDU (also PS-user data len)*/ + ST_UCHAR *apdu_ptr; /* pointer to start of APDU encoding */ + ST_UINT ppdu_len; /* len of a PPDU (also SS-user data len)*/ + ST_UCHAR *ppdu_ptr; /* pointer to start of PPDU encoding */ + ST_CHAR pcimms; + ST_CHAR pciacse; + /* ACSE part */ + ST_LONG user_conn_id; /* ACSE-user's connection ID. */ + ST_INT state; /* See "STATE_*" defines */ + ST_BOOLEAN initiator; /* Flag: did we initiate this connection? */ + /* COPP part */ + ST_INT num_ctxt; + ST_INT copp_state; /* See "COPP_STATE_*" defines */ + /* cosp part */ + ST_INT cosp_state; /* See "COSP_CSTATE_*" defines */ + ST_UINT cosp_cn_len; + char *cosp_cn_ptr; /* CONNECT SPDU saved until TCONN.cnf */ + ST_LONG cosp_bind_id; /* COSP bind id saved until CN arrive */ + ST_BOOLEAN cosp_vtca; /* SD_TRUE if transport connection acceptor*/ + ST_BOOLEAN cosp_vcoll; /* SD_TRUE if collision of FINISH SPDUs */ + ST_BOOLEAN cosp_vdnr; /* SD_TRUE if DISCONNECT SPDU has been */ + /* received in STA 09 (following */ + /* collision of FINISH SPDUs). */ + /* TP4 part */ + ST_LONG tp4_conn_id; /* TP4 connect id */ + ST_BOOLEAN cr; /* "collision of release" flag */ + ST_BOOLEAN rl; /* "release started" flag */ + BUFFER save_buf; /* buffer to save AARQ or RLRE to send later */ + ST_UCHAR loc_psel [MAX_PSEL_LEN+1]; /* Local PSEL (1st byte = len) */ + ST_UCHAR rem_psel [MAX_PSEL_LEN+1]; /* Remote PSEL (1st byte = len) */ + ST_UCHAR loc_ssel [MAX_SSEL_LEN+1]; /* Local SSEL (1st byte = len) */ + ST_UCHAR rem_ssel [MAX_SSEL_LEN+1]; /* Remote SSEL (1st byte = len) */ + ST_UCHAR loc_tsel [MAX_TSEL_LEN+1]; /* Local TSEL (1st byte = len) */ + ST_UCHAR rem_tsel [MAX_TSEL_LEN+1]; /* Remote TSEL (1st byte = len) */ + union + { + ST_UCHAR nsap [CLNP_MAX_LEN_NSAP+1];/* Remote NSAP (1st byte = len) */ + ST_ULONG ip; /* OR IP Addr (network byte order)*/ + }remNetAddr; + /* authentication and security */ + ACSE_AUTH_INFO part_auth_info; /* partner authentication info */ + S_SEC_ENCRYPT_CTRL encrypt_ctrl; /* connection encryption info */ + } ACSE_CONN; +#elif defined (MAP30_ACSE) +typedef struct acse_bind_info_tag + { + ST_CHAR ar_name[MAX_NAME_LEN+1]; /* local AR Name to be bind */ + ST_LONG user_bind_id; /* Save User's bind ID */ + ST_INT suic_chan_base; /* start chan where we register AR Name */ + ST_INT num_calling; /* num of calling channels */ + ST_INT num_called; /* num of called channels */ + } ACSE_BIND_INFO; + +typedef struct tagACSE_CONN + { + /* fields below are changed during binding */ + ACSE_BIND_INFO *bind_info; /* pointer to ACSE bind info */ + ST_LONG user_bind_id; /* user's bind ID */ + ST_INT chan; /* SUIC channel */ + /* fields below are changed during connection/disconnection */ + ST_INT state; /* See "STATE_*" defines */ + ST_LONG user_conn_id; /* user's connect ID */ + ST_BOOLEAN initiator; /* Flag: did we initiate this connection? */ + ST_UINT ap_context; /* SUIC AP context from associate ind */ + ST_INT num_pc_defs; /* pres context deflist count from aind */ + PC_DEF *pc_deflist; /* pres context deflist ptr from aind */ + } ACSE_CONN; +#else /* !MOSI and !MAP30_ACSE */ +typedef struct tagACSE_CONN + { + ST_LONG user_bind_id; /* tp4_connect_ind saves for u_a_associate_ind */ + ST_LONG tp4_conn_id; + ST_LONG user_conn_id; + ST_INT state; /* See "STATE_*" defines */ + ST_BOOLEAN initiator; /* Flag: did we initiate this connection? */ + ST_UCHAR *rcv_data; /* buffer to reassembling TPDUs */ + ST_UINT rcv_data_len; /* Length of data in rcv_data. */ + BUFFER save_buf; /* buffer to save AARQ or RLRE to send later */ + } ACSE_CONN; +#endif /* !MOSI */ + +/************************************************************************/ +/* PBIND structure */ +/************************************************************************/ +typedef struct tagPBIND + { + DBL_LNK link; + ST_LONG user_bind_id; /* User-supplied Bind ID */ + ST_LONG clnp_bind_id; /* Register ID returned by OSIAM */ + ST_LONG real_clpp_bind_id; /* Used in real bind/unbind to Marben */ + ST_INT sap; /* SAP number this register is bound to */ + PRES_ADDR loc_addr; + } PBIND; + +/************************************************************************/ +/* General address matching defines, control, functions */ +/* */ + +#if !defined(MAP30_ACSE) +/* Lean-T specific functions */ +ST_RET dib_match_remote_ar (DIB_MATCH_CTRL *matchCtrl, AARQ_APDU *aarq, + DIB_ENTRY **dib_entry_out); +ST_RET dib_match_local_ar (DIB_MATCH_CTRL *matchCtrl, AARQ_APDU *aarq, + DIB_ENTRY **dib_entry_out); +ST_INT dib_cmp_local_addr (DIB_MATCH_CTRL *matchCtrl, AARQ_APDU *aarq, + DIB_ENTRY *dib_entry); +ST_INT dib_cmp_remote_addr (DIB_MATCH_CTRL *matchCtrl, AARQ_APDU *aarq, + DIB_ENTRY *dib_entry); +#endif /* !defined(MAP30_ACSE) */ + + +/************************************************************************/ +/* Security functions */ +ST_RET a_get_security_info (ST_LONG acse_conn_id, S_SEC_SPARAMS *secParams); +ST_RET a_free_security_info (ACSE_AUTH_INFO *authInfo); +ST_RET a_free_part_security_info (ST_LONG acse_conn_id); + + +/************************************************************************/ +/* Global variables. */ +/************************************************************************/ +extern ST_INT num_pbinds; /* Number of P-Address bindings.*/ +extern PBIND *pbind_list; /* Linked list of PBIND structs */ +extern ST_BOOLEAN nsap_bind_done; /* Don't allow 2nd bind until 1st done */ +extern MMS_OBJ_ID mms_obj_id; /* ISO MMS Object ID */ +extern MMS_OBJ_ID acse_obj_id; /* ACSE Object ID */ +extern MMS_OBJ_ID asn1_obj_id; /* ASN.1 Object ID */ +extern MMS_OBJ_ID a_auth_password_obj_id; /* Obj ID for ACSE Password*/ + /* Authentication mech. */ + +extern ST_UINT acse_msgsize; +#ifdef MOSI +extern ST_UINT cosp_msgsize; +extern ST_UCHAR *cosp_buf; +extern ACSE_CONN *decode_acse_conn; /* connection we're doing decode for. */ +#endif + +/************************************************************************/ +/* Prototypes */ +/************************************************************************/ +ST_VOID clnp_unbind_cnf (PBIND *pbind); +ST_VOID asn1_skip_elmnt (ASN1_DEC_CTXT *aCtx); +ST_VOID acse_free_con (ACSE_CONN *con); + + +#ifdef __cplusplus +} +#endif + +#endif /* ACSE2_INCLUDED */ + diff --git a/mmslib/inc/acse2log.h b/mmslib/inc/acse2log.h new file mode 100644 index 0000000..a2cd434 --- /dev/null +++ b/mmslib/inc/acse2log.h @@ -0,0 +1,144 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1995-2003, All Rights Reserved */ +/* */ +/* MODULE NAME : acse2log.h */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : */ +/* ACSE logging header file. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/02/05 JRB 07 Added acse2usr.h */ +/* 06/17/03 EJV 06 Converted to new log macros. */ +/* Deleted _audt_*_logstr. Added DIB logging. */ +/* 12/11/00 EJV 05 Added more log macros */ +/* 09/13/99 MDE 05 Added SD_CONST modifiers */ +/* 12/16/96 JRB 04 Del "AUDTLOG_*" macros. Use "ACSELOG_*" for */ +/* CL ACSE as well as CO ACSE. */ +/* 10/08/98 MDE 08 Migrated to updated SLOG interface */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 03/20/97 JRB 07 Stop checking for sLogCtrl==NULL. */ +/* 02/20/97 JRB 06 Move *_debug_sel & logmasks from acse2log.h */ +/* to acse2usr.h. */ +/* 01/02/97 EJV 05 Added ACSE2LOG_INCLUDED */ +/* 12/16/96 JRB 04 Add "AUDTLOG_*" macros for CLACSE. */ +/* 07/19/96 JRB 03 Change DEBUG_MMS to DEBUG_SISCO. */ +/* 04/17/96 JRB 02 Del acse_sLogCtrl, use sLogCtrl (slog.c) now */ +/* 10/30/95 JRB 01 Created */ +/************************************************************************/ +#ifndef ACSE2LOG_INCLUDED +#define ACSE2LOG_INCLUDED + +#include "acse2usr.h" /* need acse_debug_sel & log mask defines */ + +#ifdef __cplusplus +extern "C" { +#endif + + +#ifdef DEBUG_SISCO +/****************************************************************/ +/* Log Control macros */ +/****************************************************************/ + +extern SD_CONST ST_CHAR *SD_CONST _acse_err_logstr; +extern SD_CONST ST_CHAR *SD_CONST _acse_enc_logstr; +extern SD_CONST ST_CHAR *SD_CONST _acse_dec_logstr; +extern SD_CONST ST_CHAR *SD_CONST _acse_dib_logstr; +#endif /* DEBUG_SISCO */ + +/*--------------------------------------*/ +/* ACSELOG_DEC macros */ +/*--------------------------------------*/ +#define ACSELOG_DEC0(a) \ + SLOG_0 (acse_debug_sel & ACSE_LOG_DEC,_acse_dec_logstr,a) +#define ACSELOG_DEC1(a,b) \ + SLOG_1 (acse_debug_sel & ACSE_LOG_DEC,_acse_dec_logstr,a,b) +#define ACSELOG_DEC2(a,b,c) \ + SLOG_2 (acse_debug_sel & ACSE_LOG_DEC,_acse_dec_logstr,a,b,c) +#define ACSELOG_DEC3(a,b,c,d) \ + SLOG_3 (acse_debug_sel & ACSE_LOG_DEC,_acse_dec_logstr,a,b,c,d) + +#define ACSELOG_DEC0C(a) SLOGC_0 (acse_debug_sel & ACSE_LOG_DEC,a) +#define ACSELOG_DEC1C(a,b) SLOGC_1 (acse_debug_sel & ACSE_LOG_DEC,a,b) +#define ACSELOG_DEC2C(a,b,c) SLOGC_2 (acse_debug_sel & ACSE_LOG_DEC,a,b,c) +#define ACSELOG_DEC3C(a,b,c,d) SLOGC_3 (acse_debug_sel & ACSE_LOG_DEC,a,b,c,d) + +#define ACSELOG_DECH(a,b) SLOGH (acse_debug_sel & ACSE_LOG_DEC,a,b) + +/*--------------------------------------*/ +/* ACSELOG_ENC macros */ +/*--------------------------------------*/ +#define ACSELOG_ENC0(a) \ + SLOG_0 (acse_debug_sel & ACSE_LOG_ENC,_acse_enc_logstr,a) +#define ACSELOG_ENC1(a,b) \ + SLOG_1 (acse_debug_sel & ACSE_LOG_ENC,_acse_enc_logstr,a,b) +#define ACSELOG_ENC2(a,b,c) \ + SLOG_2 (acse_debug_sel & ACSE_LOG_ENC,_acse_enc_logstr,a,b,c) +#define ACSELOG_ENC3(a,b,c,d) \ + SLOG_3 (acse_debug_sel & ACSE_LOG_ENC,_acse_enc_logstr,a,b,c,d) + +#define ACSELOG_ENC0C(a) SLOGC_0 (acse_debug_sel & ACSE_LOG_ENC,a) +#define ACSELOG_ENC1C(a,b) SLOGC_1 (acse_debug_sel & ACSE_LOG_ENC,a,b) +#define ACSELOG_ENC2C(a,b,c) SLOGC_2 (acse_debug_sel & ACSE_LOG_ENC,a,b,c) +#define ACSELOG_ENC3C(a,b,c,d) SLOGC_3 (acse_debug_sel & ACSE_LOG_ENC,a,b,c,d) + +#define ACSELOG_ENCH(a,b) SLOGH (acse_debug_sel & ACSE_LOG_ENC,a,b) + +/*--------------------------------------*/ +/* ACSELOG_ERR macros */ +/*--------------------------------------*/ +#define ACSELOG_ERR0(a) \ + SLOG_0 (acse_debug_sel & ACSE_LOG_ERR,_acse_err_logstr,a) +#define ACSELOG_ERR1(a,b) \ + SLOG_1 (acse_debug_sel & ACSE_LOG_ERR,_acse_err_logstr,a,b) +#define ACSELOG_ERR2(a,b,c) \ + SLOG_2 (acse_debug_sel & ACSE_LOG_ERR,_acse_err_logstr,a,b,c) +#define ACSELOG_ERR3(a,b,c,d) \ + SLOG_3 (acse_debug_sel & ACSE_LOG_ERR,_acse_err_logstr,a,b,c,d) + +#define ACSELOG_ERR0C(a) SLOGC_0 (acse_debug_sel & ACSE_LOG_ERR,a) +#define ACSELOG_ERR1C(a,b) SLOGC_1 (acse_debug_sel & ACSE_LOG_ERR,a,b) +#define ACSELOG_ERR2C(a,b,c) SLOGC_2 (acse_debug_sel & ACSE_LOG_ERR,a,b,c) +#define ACSELOG_ERR3C(a,b,c,d) SLOGC_3 (acse_debug_sel & ACSE_LOG_ERR,a,b,c,d) + +#define ACSELOG_ERRH(a,b) SLOGH (acse_debug_sel & ACSE_LOG_ERR,a,b) + +/*--------------------------------------*/ +/* ACSELOG_DIB macros */ +/*--------------------------------------*/ +#define ACSELOG_DIB0(a) \ + SLOG_0 (acse_debug_sel & ACSE_LOG_DIB,_acse_dib_logstr,a) +#define ACSELOG_DIB1(a,b) \ + SLOG_1 (acse_debug_sel & ACSE_LOG_DIB,_acse_dib_logstr,a,b) +#define ACSELOG_DIB2(a,b,c) \ + SLOG_2 (acse_debug_sel & ACSE_LOG_DIB,_acse_dib_logstr,a,b,c) +#define ACSELOG_DIB3(a,b,c,d) \ + SLOG_3 (acse_debug_sel & ACSE_LOG_DIB,_acse_dib_logstr,a,b,c,d) + +#define ACSELOG_DIB0C(a) SLOGC_0 (acse_debug_sel & ACSE_LOG_DIB,a) +#define ACSELOG_DIB1C(a,b) SLOGC_1 (acse_debug_sel & ACSE_LOG_DIB,a,b) +#define ACSELOG_DIB2C(a,b,c) SLOGC_2 (acse_debug_sel & ACSE_LOG_DIB,a,b,c) +#define ACSELOG_DIB3C(a,b,c,d) SLOGC_3 (acse_debug_sel & ACSE_LOG_DIB,a,b,c,d) + +#define ACSELOG_DIBH(a,b) SLOGH (acse_debug_sel & ACSE_LOG_DIB,a,b) + + +/****************************************************************/ +/* Log Control prototypes. */ +/****************************************************************/ +ST_VOID acse_default_log (ST_VOID); /* Set default log configuration */ + +#ifdef __cplusplus +} +#endif + +#endif /* ACSE2LOG_INCLUDED */ + diff --git a/mmslib/inc/acse2usr.h b/mmslib/inc/acse2usr.h new file mode 100644 index 0000000..4030758 --- /dev/null +++ b/mmslib/inc/acse2usr.h @@ -0,0 +1,406 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1995-2005, All Rights Reserved */ +/* */ +/* MODULE NAME : acse2usr.h */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : */ +/* ACSE main header file. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 05/05/05 EJV 33 PRES_ADDR added port. */ +/* 03/28/05 EJV 32 MMSEASE_MOSE: add MAX_PSEL_LEN, MAX_SSEL_LEN */ +/* 10/21/03 JRB 31 Add a_get_event_handles_unix. */ +/* 08/25/03 EJV 30 Del old password auth (OBSOLETE_ACSE_AUTH) */ +/* Added a_get_chan. */ +/* Renamed encrypt_info to encrypt_ctrl */ +/* 07/23/03 MDE 29 Removed ACSE_AUTH_ENABLED, S_SEC_ENABLED */ +/* 06/17/03 EJV 28 Added ACSE_LOG_DIB mask. */ +/* 06/13/03 MDE 27 Added Security */ +/* 10/14/02 ASK 26 Added abort diagnostic to ABRT_APDU. */ +/* 09/30/02 ASK 25 Moved authentication defines / protos into */ +/* acseauth.h */ +/* 09/27/02 ASK 24 Add authentication stuff to AARE_APDU */ +/* 06/20/02 JRB 23 Add calling_paddr to AARQ_APDU. */ +/* Replace "nsap" in PRES_ADDR with union. */ +/* 05/02/02 MDE 22 Added _copp_bind */ +/* 02/14/02 ASK 21 Add a_associate_reqm */ +/* 01/22/02 JRB 20 Add args to copp_initialize (same as MAP30..)*/ +/* Del a_set_msgsize (no longer needed). */ +/* 01/10/02 JRB 19 Add cltp_decode_nsdu_2 proto. */ +/* 12/20/01 JRB 18 Del clpp_bind functions and bind id args to */ +/* a_unit_data_req & u_a_unit_data_ind. */ +/* 05/10/01 JRB 17 Chg SSEL_LEN from 16 to 4. */ +/* 12/18/00 EJV 16 Added remAr param to a_associate_req for */ +/* Lite over Marben stack (MAP30_ACSE). */ +/* 08/05/99 JRB 15 Add a_get_ev... prototype. */ +/* 07/14/99 JRB 14 Add ACSE Password Authentication stuff. */ +/* 01/28/99 JRB 13 Move cltp_decode_nsdu proto from TP4 to here.*/ +/* 12/04/98 JRB 12 Del "audt_debug_sel". */ +/* Add "loc_mac" to AUDT_APDU. */ +/* 08/13/98 JRB 11 Lint cleanup. */ +/* 08/14/97 JRB 10 Added "tp_type" to PRES_ADDR. */ +/* Del MAX_TSEL_LEN & MAX_NSAP_LEN defines (use */ +/* MAX_TSEL_LEN & MAX_IP_ADDR_LEN in tp4api.h). */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 04/10/97 JRB 09 Chg error defs to use base from "glberror.h".*/ +/* 03/07/97 JRB 08 Add COPP & COSP logmasks for MOSI. */ +/* 02/20/97 JRB 07 Move *_debug_sel & logmasks from acse2log.h */ +/* to acse2usr.h. */ +/* 01/09/97 MDE 06 Allow user to specify destination MAC */ +/* 01/01/97 RKR 05 Added ACSE2USR_INCLUDED and __cplusplus */ +/* 10/04/96 JRB 04 Add adlcAddr to PRES_ADDR for MCGW. */ +/* 08/15/96 JRB 03 Add a_buffers_avail prototype for LEAN_T. */ +/* 04/18/96 JRB 02 Chg a_associate_req return to ST_LONG. */ +/* 03/26/96 MDE 01 Added header, 'REDUCED_STACK' support */ +/************************************************************************/ + +#ifndef ACSE2USR_INCLUDED +#define ACSE2USR_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "asn1defs.h" +#include "acseauth.h" +#include "ssec.h" +#include "clnp_usr.h" +#include "tp4api.h" /* Need TP_TYPE_* defines for "tp_type" values. */ + /* Need MAX_TSEL_LEN & MAX_IP_ADDR_LEN defines. */ + + +/****************************************************************/ +/* Log Control */ +/****************************************************************/ +#define ACSE_LOG_ERR 0x00000001 +#define ACSE_LOG_ENC 0x00000002 +#define ACSE_LOG_DEC 0x00000004 +#define ACSE_LOG_DIB 0x00000008 + +#define COPP_LOG_ERR 0x00000100L +#define COPP_LOG_DEC 0x00001000L +#define COPP_LOG_DEC_HEX 0x00002000L +#define COPP_LOG_ENC 0x00004000L +#define COPP_LOG_ENC_HEX 0x00008000L + +#define COSP_LOG_ERR 0x00010000L +#define COSP_LOG_DEC 0x00100000L +#define COSP_LOG_DEC_HEX 0x00200000L +#define COSP_LOG_ENC 0x00400000L +#define COSP_LOG_ENC_HEX 0x00800000L + + +extern ST_UINT acse_debug_sel; + +/************************************************************************/ +/* Error codes (returned from a_* functions). */ +/* NOTE: Values begin from E_ACSE2 (found in glberror.h). */ +/* NOTE: The exception codes (EX_ACSE_*) do not have separate range. */ +/************************************************************************/ +#define E_ACSE_ENC_ERR 0x3001 +#define E_ACSE_SEND_ERR 0x3002 +#define E_ACSE_INVALID_CONN_ID 0x3003 +#define E_ACSE_INVALID_STATE 0x3004 +#define E_ACSE_INVALID_PARAM 0x3005 +#define E_ACSE_BUFFER_OVERFLOW 0x3006 +#define E_ACSE_MEMORY_ALLOC 0x3007 + +/************************************************************************/ +/* Exception codes (passed to u_a_except or u_cla_except). */ +/* Caused by decode or state problems. */ +/************************************************************************/ +#define EX_ACSE_DECODE 0x3081 +#define EX_ACSE_INVALID_STATE 0x3082 + +/************************************************************************/ +/* Structure definitions. */ +/************************************************************************/ +/* This structure represents the entire Presentation address */ +/* NOTE: Using Fastbyte Presentation and Session, there are no P-Sels */ +/* and S-Sels, so the P-Address is equivalent to the T-Address */ + +#if defined(MMSEASE_MOSI) +#define MAX_PSEL_LEN 16 +#define MAX_SSEL_LEN 16 +#else +#define MAX_PSEL_LEN 4 /* International Std Profile recommends 4*/ +#define MAX_SSEL_LEN 4 /* GOSIP Ver2 recommends len of 2 */ +#endif +/* MAX_TSEL_LEN defined in "tp4api.h" */ +/* MAX_IP_ADDR_LEN defined in "tp4api.h" */ +typedef struct tagPRES_ADDR + { +#if !defined(REDUCED_STACK) + ST_UINT psel_len; + ST_UCHAR psel [MAX_PSEL_LEN]; + ST_UINT ssel_len; + ST_UCHAR ssel [MAX_SSEL_LEN]; + ST_INT tp_type; /* Type of transport: TP_TYPE_TP4 or TP_TYPE_TCP.*/ + ST_UINT tsel_len; + ST_UCHAR tsel [MAX_TSEL_LEN]; + ST_UINT nsap_len; + union + { /* If TP_TYPE_TP4, use "nsap". If TP_TYPE_TCP, use "ip". */ + ST_UCHAR nsap [CLNP_MAX_LEN_NSAP]; /* NSAP OR */ + ST_ULONG ip; /* IP Addr (network byte order) */ + }netAddr; + ST_UINT16 port; +#if defined (MCGW) + ST_UINT16 adlcAddr; +#endif /* defined (MCGW) */ +#else + ST_UINT16 adlcAddr; +#endif + } PRES_ADDR; + +/* This structure is used for any data that must be encoded/decoded */ +/* by the user instead of the ACSE. */ +/* If len == 0, or ptr == NULL, it is assumed there is no data. */ +typedef struct tagBUFFER + { + ST_INT len; /* Length of encoded data. */ + ST_UCHAR *ptr; /* Pointer to encoded data. */ + } BUFFER; + +/* This structure contains AE_TITLE info. */ +typedef struct tagAE_TITLE + { + ST_BOOLEAN AP_title_pres; /* present flag */ + MMS_OBJ_ID AP_title; /* AP title */ + ST_BOOLEAN AE_qual_pres; /* present flag */ + ST_INT32 AE_qual; /* AE qualifier */ + ST_BOOLEAN AP_inv_id_pres; /* present flag */ + ST_INT32 AP_inv_id; /* AP invocation ID */ + ST_BOOLEAN AE_inv_id_pres; /* present flag */ + ST_INT32 AE_inv_id; /* AE invocation ID */ + } AE_TITLE; + +/* This structure is used for the AARQ_APDU. */ +typedef struct tagAARQ_APDU + { + /* The following entries passed to peer in AARQ-apdu.*/ + /* ACSE sets and checks "protocol-version". Must be "version1". */ + ST_BOOLEAN ASO_context_name_pres; + MMS_OBJ_ID ASO_context_name; + AE_TITLE called_ae_title; + AE_TITLE calling_ae_title; + + /* authentication and security */ + ACSE_AUTH_INFO auth_info; + S_SEC_ENCRYPT_CTRL encrypt_ctrl; + + BUFFER user_info; /* User must encode/decode */ + + /* The following entries passed to presentation. */ + /* NOTE: "calling_paddr" ignored by "a_associate_req" function. */ + /* Contains remote addr when "u_a_associate_ind" called. */ + PRES_ADDR calling_paddr; + PRES_ADDR called_paddr; + } AARQ_APDU; + +/* This structure is used for the AUDT_APDU */ +/* NOTE: same as AARQ_APDU except add calling_paddr. */ +typedef struct tagAUDT_APDU + { + /* The following entries passed to peer in AUDT-apdu.*/ + /* ACSE sets and checks "protocol-version". Must be "version1". */ + ST_BOOLEAN ASO_context_name_pres; + MMS_OBJ_ID ASO_context_name; + AE_TITLE called_ae_title; + AE_TITLE calling_ae_title; + BUFFER user_info; /* User must encode/decode */ + + /* The following entries passed to or received from presentation. */ + PRES_ADDR calling_paddr; + PRES_ADDR called_paddr; + + /* User doesn't need to set loc_mac before calling a_unit_data_req. */ + /* Decode process fills in loc_mac before calling u_a_unit_data_ind. */ + ST_UCHAR loc_mac [CLNP_MAX_LEN_MAC]; /* Local MAC addr */ + ST_BOOLEAN rem_mac_valid; /* SD_TRUE if MAC addr valid */ + ST_UCHAR rem_mac [CLNP_MAX_LEN_MAC]; /* Remote MAC addr */ + } AUDT_APDU; + + +/* This structure is used for the AARE_APDU. */ +typedef struct tagAARE_APDU + { + /* ACSE sets and checks "protocol-version". Must be "version1". */ + ST_BOOLEAN ASO_context_name_pres; + MMS_OBJ_ID ASO_context_name; + AE_TITLE responding_ae_title; + ST_INT16 result; + ST_BOOLEAN result_source_diag_pres; + ST_UINT16 result_source; /* Passed as asn1_tag to ASN1 functs */ + ST_INT16 result_diag; + + /* authentication and security */ + ACSE_AUTH_INFO auth_info; + S_SEC_ENCRYPT_CTRL encrypt_ctrl; + + BUFFER user_info; /* User must encode/decode */ + } AARE_APDU; + +/* This structure is used for the RLRQ_APDU. */ +typedef struct tagRLRQ_APDU + { + ST_BOOLEAN reason_pres; + ST_INT16 reason; + BUFFER user_info; /* User must encode/decode */ + } RLRQ_APDU; + +/* This structure is used for the RLRE_APDU. */ +typedef struct tagRLRE_APDU + { + ST_BOOLEAN reason_pres; + ST_INT16 reason; + BUFFER user_info; /* User must encode/decode */ + /* NOTE: With Fastbyte presentation and session, there is no way to */ + /* refuse a release, so the "Result" parameter is assumed to be */ + /* "affirmative", and is therefore not needed in this structure.*/ + } RLRE_APDU; + +/* This structure is used for the ABRT_APDU. */ +typedef struct tagABRT_APDU + { + ST_INT16 source; /* Abort source (0=user, 1=provider) */ + ST_BOOLEAN diagnostic_pres; + ST_ACSE_AUTH diagnostic; /* Abort diagnostic; codes in acseauth.h */ + BUFFER user_info; /* User must encode/decode */ + } ABRT_APDU; + +/* NOTE: the ASO-association-identifier in the ACSE specification is not*/ +/* supported in this implementation. It will not be sent in outgoing */ +/* APDUs and will be ignored in incoming APDUs. */ + +/************************************************************************/ +/* Prototypes */ +/************************************************************************/ +ST_RET copp_initialize (ST_INT max_conns, ST_UINT msg_size); +ST_RET copp_terminate (ST_VOID); +ST_BOOLEAN copp_event (ST_VOID); +#if defined(MAP30_ACSE) +ST_RET copp_bind (ST_LONG user_bind_id, ST_CHAR *loc_ar_name, + ST_INT num_calling, ST_INT num_called); +ST_RET _copp_bind (ST_LONG user_bind_id, ST_CHAR *loc_ar_name, + ST_INT num_calling, ST_INT num_called, + ST_BOOLEAN activate); +#else +ST_RET copp_bind (ST_LONG user_bind_id, PRES_ADDR *pres_addr, + ST_INT sharable, ST_INT max_conns); +#endif /* !defined(MAP30_ACSE) */ +ST_VOID u_copp_bind_cnf (ST_LONG user_bind_id, ST_LONG copp_bind_id, ST_RET result); +ST_RET copp_unbind (ST_LONG copp_bind_id); +ST_VOID u_copp_unbind_cnf (ST_LONG user_bind_id); +ST_RET audt_set_msgsize (ST_UINT len); +#if defined(MAP30_ACSE) +ST_LONG a_associate_req ( + ST_LONG copp_bind_id, /* ACSE's bind ID received in u_copp_bind_cnf*/ + ST_LONG user_conn_id, /* USER's ID for this connection */ + AARQ_APDU *info, /* AARQ_APDU info */ + ST_CHAR *remAr); /* remote AR Name. */ + +ST_LONG a_associate_reqm ( + ST_LONG copp_bind_id, /* ACSE's bind ID received in u_copp_bind_cnf*/ + ST_LONG user_conn_id, /* USER's ID for this connection */ + AARQ_APDU *aarq_apdu, /* AARQ_APDU info */ + ST_CHAR *locAr, /* local AR Name. */ + ST_CHAR *remAr); /* remote AR Name. */ +#else +ST_LONG a_associate_req ( + ST_LONG copp_bind_id, /* ACSE's bind ID received in u_copp_bind_cnf*/ + ST_LONG user_conn_id, /* USER's ID for this connection */ + AARQ_APDU *info); /* AARQ_APDU info. */ +#endif /* !defined(MAP30_ACSE) */ +ST_VOID u_a_associate_ind ( + ST_LONG user_bind_id, /* USER's Bind ID passed to copp_bind */ + ST_LONG acse_conn_id, /* ACSE's ID for this connection */ + AARQ_APDU *info); /* AARQ_APDU info. */ +ST_RET a_associate_rsp ( + ST_LONG acse_conn_id, /* ACSE's ID for this connection */ + ST_LONG user_conn_id, /* USER's ID for this connection */ + AARE_APDU *info); /* AARE_APDU info. */ +ST_VOID u_a_associate_cnf ( + ST_LONG acse_conn_id, /* ACSE's ID for this connection */ + ST_LONG user_conn_id, /* USER's ID for this connection */ + AARE_APDU *info); /* AARE_APDU info. */ +ST_RET a_release_req ( + ST_LONG acse_conn_id, /* ACSE's ID for this connection */ + RLRQ_APDU *info); /* RLRQ_APDU info. */ +ST_VOID u_a_release_ind ( + ST_LONG user_conn_id, /* USER's ID for this connection */ + RLRQ_APDU *info); /* RLRQ_APDU info. */ +ST_RET a_release_rsp ( + ST_LONG acse_conn_id, /* ACSE's ID for this connection */ + RLRE_APDU *info); /* RLRE_APDU info. */ +ST_VOID u_a_release_cnf ( + ST_LONG user_conn_id, /* user's ID for this connection */ + RLRE_APDU *info); /* RLRE_APDU info. */ +ST_RET a_abort_req ( + ST_LONG acse_conn_id, /* ACSE's ID for this connection */ + ABRT_APDU *info); /* ABORT request info. */ +ST_VOID u_a_abort_ind ( + ST_LONG user_conn_id, /* USER's ID for this connection */ + ABRT_APDU *info); /* ABORT request info. */ +ST_RET a_data_req ( + ST_LONG acse_conn_id, /* ACSE's ID for this connection */ + ST_UINT data_len, + ST_UCHAR *data); +ST_VOID u_a_data_ind ( + ST_LONG user_conn_id, /* USER's ID for this connection */ + ST_UINT data_len, + ST_UCHAR *data); +ST_INT a_buffers_avail ( + ST_LONG acse_conn_id); /* ACSE's ID for this connection */ +ST_VOID u_a_except ( + ST_LONG user_conn_id, /* USER's ID for this connection */ + ST_INT code, /* See EX_ACSE_* defines */ + ST_CHAR *filename, /* Source code file name */ + ST_INT line); /* source code line number */ +ST_VOID u_cla_except ( + ST_LONG user_bind_id, /* USER's ID for this bind */ + ST_INT code, /* See EX_ACSE_* defines */ + ST_CHAR *filename, /* Source code file name */ + ST_INT line); /* source code line number */ + +ST_RET clpp_initialize (ST_VOID); +ST_RET clpp_terminate (ST_VOID); +ST_RET a_unit_data_req ( + AUDT_APDU *info); /* AUDT_APDU info. */ +ST_VOID u_a_unit_data_ind ( + AUDT_APDU *info); /* AUDT_APDU info. */ +ST_BOOLEAN clpp_event (ST_VOID); + +ST_VOID cltp_decode_nsdu (N_UNITDATA *n_unitdata); +ST_RET cltp_decode_nsdu_2 (N_UNITDATA *pNudt, AUDT_APDU *pAudt); + +/************************************************************************/ +/* Address resolution utility functions. */ +/************************************************************************/ +ST_UCHAR *a_get_rem_nsap (ST_LONG acse_conn_id); +ST_ULONG a_get_rem_ip_addr (ST_LONG acse_conn_id); + +/************************************************************************/ +/* Miscellaneous functions */ +/************************************************************************/ +ST_EVENT_SEM a_get_event_handles (ST_INT *pNumEntries); +int *a_get_event_handles_unix (ST_INT *pNumEntries); /* for UNIX-like systems*/ +ST_RET a_get_chan (ST_LONG acse_conn_id, ST_INT *chan_out); + + +/************************************************************************/ +#ifdef __cplusplus +} +#endif + +#endif /* ACSE2USR_INCLUDED */ +/************************************************************************/ + diff --git a/mmslib/inc/acseauth.h b/mmslib/inc/acseauth.h new file mode 100644 index 0000000..0d600da --- /dev/null +++ b/mmslib/inc/acseauth.h @@ -0,0 +1,120 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1995-2004, All Rights Reserved */ +/* */ +/* MODULE NAME : acseauth.h */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : */ +/* ACSE Authentication header file. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 02/05/04 EJV 07 Added MACE_MECH_ID and PASWORD_MECH_ID defs. */ +/* 02/04/04 EJV 06 Removed extern maceMechId. */ +/* 08/20/03 EJV 05 Added extern maceMechId. */ +/* 07/08/03 EJV 04 Del old password auth (OBSOLETE_ACSE_AUTH) */ +/* 03/19/03 MDE 03 Added ACSE_AUTH_MECH_MACE_CERT */ +/* 03/13/03 EJV 02 Added asn1r.h. */ +/* 09/30/02 ASK 01 Created */ +/************************************************************************/ + +#ifndef ACSEAUTH_INCLUDED +#define ACSEAUTH_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "asn1r.h" /* for MMS_OBJ_ID */ + +/************************************************************************/ +/* New Authentication stuff */ +/************************************************************************/ +/*#define ACSE_MAX_LEN_PASSWORD 16*/ +/*renxiaobao mod*/ +#define ACSE_MAX_LEN_PASSWORD 32 + +typedef ST_INT16 ST_ACSE_AUTH; + +/* Authentication mechanisms MMS_OBJ_ID */ +#define PASS_MECH_ID {4, {2 ,2 ,3 ,1 }} + +#define MACE_MECH_ID \ + { 8, /* num_comps */ \ + { /* comps */ \ + 1, /* ??? */ \ + 0, /* ??? */ \ + 840, /* iso member-body usa */ \ + 0, /* ansi-t1-259-1997 */ \ + 1, /* stase */ \ + 0, /* stase-authentication value */ \ + 1, /* abstractSyntax */ \ + 1 /* version */ \ + } \ + } + +/* The ACSE user shall return one of the falling codes once they have */ +/* taken a look at the partner's ACSE_AUTH_INFO structure. */ + +/* These return codes map to the ABRT-diagnostic of the Abort PDU. */ +/* Returning any of these will result in an abort PDU being sent with */ +/* the specified diagnostic code. */ +#define ACSE_AUTH_SUCCESS 0 +#define ACSE_DIAG_NO_REASON 1 +#define ACSE_DIAG_PROTOCOL_ERROR 2 +#define ACSE_DIAG_AUTH_MECH_NAME_NOT_RECOGNIZED 3 +#define ACSE_DIAG_AUTH_MECH_NAME_REQUIRED 4 +#define ACSE_DIAG_AUTH_FAILURE 5 +#define ACSE_DIAG_AUTH_REQUIRED 6 + +/* Mechanism types */ +#define ACSE_AUTH_MECH_PASSWORD 0 +#define ACSE_AUTH_MECH_MACE_CERT 1 +#define ACSE_AUTH_MECH_OTHER 2 + +/* This structure is used for any mechanism data that must be */ +/* encoded/decoded by the user instead of the ACSE. */ +typedef struct + { + ST_INT len; /* Length of encoded data. */ + ST_UCHAR *ptr; /* Pointer to encoded data. */ + ST_UCHAR *buf; /* User buffer (chk_free'd if != NULL) */ + } USR_AUTH_BUFFER; + + +/* User-Supplied Authentication Structure */ +typedef struct + { + ST_BOOLEAN auth_pres; /* If this structure is filled out */ + ST_INT mech_type; /* One of the mechanism types, defined above */ + + union + { + struct + { + ST_CHAR password[ACSE_MAX_LEN_PASSWORD + 1]; + } pw_auth; + struct + { + MMS_OBJ_ID mech_id; /* User must set to desired id */ + USR_AUTH_BUFFER auth_value; /* User must encode/decode ASN.1 */ + } other_auth; + } u; + + } ACSE_AUTH_INFO; + + + +/************************************************************************/ +#ifdef __cplusplus +} +#endif + +#endif /* ACSEAUTH_INCLUDED */ +/************************************************************************/ diff --git a/mmslib/inc/adlc.h b/mmslib/inc/adlc.h new file mode 100644 index 0000000..98d2932 --- /dev/null +++ b/mmslib/inc/adlc.h @@ -0,0 +1,1021 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1995-2002, All Rights Reserved */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : adlc.h */ +/* PRODUCT(S) : ADLC */ +/* */ +/* MODULE DESCRIPTION : */ +/* Function prototypes and commands definations as defined in */ +/* ISO/IEC 4335 for frame format */ +/* Note : For ADLC context packet refers to information passing with */ +/* stack while frame refers to information passing with Serial Manager */ +/* */ +/* This module can be divided into five parts */ +/* 1. First part deals with all the numeric defines and command defn */ +/* as in ISO specs */ +/* 2. This part deals with the defination of the data structures used */ +/* 3. This part has function like macros used to get and set various */ +/* fields */ +/* 4. This has the declaration of all the global variables as extern. */ +/* All the global variables are declared in adlc_var.c */ +/* 5. This part has the prototypes of global functions shared between */ +/* modules. All the functions are put separately according to the */ +/* module it belongs to */ +/* Note : For ADLC context packet refers to information passing with */ +/* stack while frame refers to information passing with Serial Manager */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 11/24/02 KCR 35 Added rdThreadError handling semaphore */ +/* 09/22/02 KCR 34 Added paranthesis to macros */ +/* 06/15/01 JRB 33 ipcChk* macros call chk_*, not x_chk_*. */ +/* 03/03/00 KCR 32 Exit Thread using events not TerminateThread() */ +/* 10/01/99 NAV 31 Added more SD_CONST modifiers */ +/* 09/13/99 MDE 30 Added SD_CONST modifiers */ +/* 04/20/98 IKE 29 Moved u_smp_record_time in Serial Manager */ +/* 03/05/98 IKE 28 Added Critical Sections to protect Adlc Data */ +/* Removed adlcIpcxxx functions */ +/* 02/04/98 IKE 27 Added deleteUIFramesFromTxList to fix bug */ +/* 10/20/97 IKE 26 Added addToListTime for Link Manager */ +/* 09/23/97 IKE 25 Added adlcExtWritePacket for define UCA_SMP */ +/* 09/18/97 IKE 24 Added telephone support */ +/* 07/16/97 IKE 23 Added device statistics and device filt log */ +/* 06/12/97 IKE 22 Made ADLC protocol transaction oriented */ +/* 05/12/97 IKE 21 Changed to MMSEASE 7.0 Data Types */ +/* 02/24/96 IKE 20 Removed #ifdef PLAIN_DOS and used ADLC_LM */ +/* define for ipc specific code */ +/* CFG_PORT also for DOS so multiple ports can */ +/* be initialized in dos platform */ +/* 02/03/97 IKE 19 adlcCfg per port basis */ +/* 01/23/97 IKE 18 Added txRxModeCounter for proper behaviour */ +/* of turnaround timers */ +/* 01/17/97 IKE 17 Added defn of initSiscoUtilGlbVarsForAdlc */ +/* and addToCfgPort */ +/* 12/03/96 IKE 16 WIN32 Support, header files cleanup */ +/* Added adlc_sm.h, some func prototypes for */ +/* adlc_tst.c */ +/* 11/15/96 IKE 15 Added adlcInitGlbVars */ +/* 11/06/96 IKE 14 Changed C++ style comments to C style */ +/* comments to make it more platform independent*/ +/* 10/28/96 KCR 13 Put ipcChkxxx macros to replace chk_xxx */ +/* 09/30/96 IKE 12 Moved adlc_stats from adlc.h to adlc_usr.h */ +/* so other apps could reference it */ +/* Added communicationMedia, put ifdef MASTER */ +/* in ADLC_CFG struct for members that were used*/ +/* for master only, added reconfigure option */ +/* 09/17/96 IKE 11 Added some struct members to ADLC_CFG_INFO */ +/* and ADLC_PORT_INFO structure */ +/* 08/22/96 IKE 10 Support for contention avoidance */ +/* Changed > to >= in CHECK_TIMEOUT macro */ +/* 08/16/96 IKE 09 Added rxMFramesList, vR and infoBufLen in */ +/* port struct (to make UI into INFO), added */ +/* turnaroundtime in cfg and device struct, */ +/* changed UPDATE_TIMEOUT */ +/* 08/05/96 IKE 08 Added connectAll to device struct, mode to */ +/* port struct and radioDelayTime to cfg struct */ +/* 07/17/96 IKE 07 Removed some lint and C6.00 warnings by type */ +/* casting to ST_UCHAR in some macros */ +/* 06/20/96 KCR 06 Increased MAX_ADLC_FRAME_LEN from 256 to 2048*/ +/* 06/18/96 IKE 05 Changed the type of configured timeout into */ +/* ST_DOUBLE. Added stackTaskId for DOS platform. */ +/* Changed time related macros to functions and */ +/* moved to module adlc_tm.c */ +/* 06/11/96 IKE 04 Added cnp_usr.h, frame timeout and SM_PUT */ +/* 05/22/96 IKE 03 Added defn for three types of run mode */ +/* Modified xxx_ADDR_FIELD_OFFSET. Put suffix */ +/* "ADLC_S" for link states for the ADLC */ +/* connection state machine */ +/* Added eventList and taskList */ +/* Added prototypes of added functions */ +/* 04/04/96 rkr 02 Cleanup */ +/* 07/18/95 IKE 01 Initial release. */ +/************************************************************************/ + +#ifndef _ADLC_H_ +#define _ADLC_H_ + +#ifdef __cplusplus +extern "C" { +#endif + +#include "gen_list.h" +#include "adlc_usr.h" +#if defined(ADLC_LM) +#include "adlc_ipc.h" +#endif +#include "adlc_log.h" +#include "adlc_sm.h" + +#if defined(ADLC_TESTING) +#include +#define ADLC_ASSERT(f) assert(f); +#else + #define ADLC_ASSERT(f) +#endif + +#if !defined(ADLC_LM) +/* At one time these macros called "x_chk_*" for DEBUG or */ +/* nonDEBUG, to be sure that the semaphore was locked. */ +/* Now "chk_*" always lock the sempaphore, so use them. */ +#define ipcChkCalloc(x,y) chk_calloc (x,y) +#define ipcChkMalloc(x) chk_malloc (x) +#define ipcChkFree(x) chk_free (x) +#endif + +#ifdef CNP +#include "cnp_usr.h" +#endif + +/************************************************************************/ +/* Constants related to configuration */ +/************************************************************************/ +#define MAX_ADLC_REQS 10 +#define MAX_ADLC_FRAME_LEN 2048 /* 2048 = 2035 + 11 + 2 */ + +/* Following are the run mode for ADLC Master */ +#define POLLED_MODE 0 +#define ENHANCED_POLLED_MODE 1 +#define CONTENTION_MODE 2 + +/* Following are the communication media for ADLC */ +#define CABLE_MEDIA 0 +#define RADIO_MEDIA 1 + +#define FRAME_FORMAT_TYPE3 0x9 /* used for polling */ +#define FRAME_FORMAT_TYPE4 0xA /* used for contention */ +#define MIN_ADLC_FRAME_LEN 11 /* Supervisory and Unnumbered */ +#define MIN_INFO_FRAME_LEN 13 + +#define SOF_FIELD_LEN 1 +#define SOF_FIELD_OFFSET 0 + +#define FORMAT_FIELD_LEN 2 +#define FORMAT_FIELD_OFFSET 1 + +#define DST_ADDR_FIELD_LEN 2 +#define DST_ADDR_FIELD_OFFSET 3 + +#define SRC_ADDR_FIELD_LEN 2 +#define SRC_ADDR_FIELD_OFFSET 5 + +#define CTRL_FILED_LEN 1 +#define CTRL_FIELD_OFFSET 7 + +#define CRC_FIELD_LEN 2 +#define CRC_FIELD_OFFSET 8 + +#define INFO_FIELD_OFFSET 10 + +#define EOF_FIELD_LEN 1 + + +#define PF_BIT 0x10 /* Poll / Final Bit */ +#define INFORMATION_FORMAT 0x00 /* last bit set to zero */ +#define INFO 0x00 /* Information */ + +#define SUPERVISORY_FORMAT 0x01 /* last bit = 1, 2nd last = 0 */ +#define RR 0x01 /* Receive Ready */ +#define RNR 0x05 /* Receive Not Ready */ +#define REJ 0x09 /* Reject */ + +#define UNNUMBERED_FORMAT 0x03 /* last two bits are set */ +#define UI 0x03 /* Unnumbered Information */ +#define SNRM 0x83 /* Set Normal Response */ +#define UA 0x63 /* Unnumbered Acknowledgment */ +#define DISC 0x43 /* Disconnect */ +#define RD 0x43 /* Request Disconnect */ +#define DM 0x0F /* Disconnect Mode */ +#define FRMR 0x87 /* Frame Reject */ + +/************************************************************************/ +/* flag attributes used when using function resetConnection */ +/************************************************************************/ +#define ADLC_DELETE_CON 1 +#define ADLC_RESET_ONLY 2 + +#if !defined(ADLC_LM) +/************************************************************************/ +/* used for global variable stackTaskId. We need to know in dos which */ +/* stack is linked to with ADLC to do different actions for different */ +/* stack */ +/* LM has this capability that it can run over both stacks at the same */ +/* time. and it will know by mapping the local address with task id */ +/************************************************************************/ +#define RLI_TASK_ID_RSGW 4 +#define RLI_TASK_ID_TRIM7 7 +#endif /* !ADLC_LM */ + +/************************************************************************/ +/* ADLC_CFG_INFO */ +/* */ +/************************************************************************/ +typedef struct tagAdlcCfgInfo + { + ST_INT modulus; + ST_INT frameLen; + ST_INT maxAdlcReqs; + ST_INT runMode; + ST_INT communicationMedia; + ST_INT retries; + ST_UCHAR sof; + ST_UCHAR eof; + ST_DOUBLE responseTimeout; /* refers to responseTimeout in port struct */ + ST_DOUBLE frameTimeout; /* refers to frameTimeout in port struct */ + ST_DOUBLE signalTimeout; /* refers to signalTimeout in port struct */ + ST_DOUBLE radioDekeyDelay; /* refers to signalTimeout in port struct */ + ST_DOUBLE radioStartOfTxDelay; /* refers to signalTimeout in port struct */ + ST_INT preambleLen; +#if defined(ADLC_MASTER) + ST_DOUBLE maxConnectRetryTimeout; + ST_DOUBLE deviceTurnaroundTime; /* refers to turnaround time in dev struct */ + ST_DOUBLE portTurnaroundTime; /* refers to turnaround time in port struct */ + ST_INT portUsage; +#endif /* ADLC_MASTER */ + } ADLC_CFG_INFO; + +/************************************************************************/ +/* ADLC_FRAME */ +/* */ +/* The following structure is used to read and write from the lower */ +/* layer (Serial Manager) */ +/************************************************************************/ +/* MMSOP_STATUS defines */ +#define STAT_STANDBY 0 +#define STAT_PROGRESS 1 +#define STAT_NACKED 2 +#define STAT_ACKED 3 + +typedef struct tagAdlcFrame + { + DBL_LNK p; /* required for link list operations */ + struct tagAdlcConInfo *cptr; /* Connection which it belongs to */ + ST_INT status; /* one of the above */ + ST_UCHAR cmd; + union + { + ST_UCHAR *infoBuf; + ST_UCHAR *redrBuf; + ST_UCHAR suprBuf[MIN_ADLC_FRAME_LEN]; + ST_UCHAR unumBuf[MIN_ADLC_FRAME_LEN]; + }u; + ST_INT infoLen; /* For info frame it is used for len of INFO msg */ + ST_INT frameLen; /* Total length of the frame including headers and trailers */ +#if defined(ADLC_LM) + DOUBLE addToListTime; +#endif + } ADLC_FRAME; + +/************************************************************************/ +/* ADLC_REQ */ +/* The following structure is to store one complete LSDU INFO */ +/* frame received from user application (Stack) */ +/************************************************************************/ +typedef struct tagAdlcReq + { + DBL_LNK p; /* required for link list operations */ +#if defined(ADLC_LM) + RLI_IPC_HDR hdr; /* IPC info including semaphore */ +#endif + struct tagAdlcConInfo *cptr; /* Connection which it belongs to */ + ADLC_FRAME *txIFramesList; /* Head to the segments of LSDU (small frames) */ + ST_ULONG usr1; /* user data - from original ADLC_CMD */ +#if defined(UCA_SMP) + ADLC_FRAME *txUIFramesList; /* Head to the segments of LSDU (small frames) */ + ST_LONG userId; +#endif + } ADLC_REQ; + +/************************************************************************/ +/* ADLC_CON_INFO */ +/* */ +/* ADLC connection information based on (Dn,Nn) where Dn represents */ +/* a device and Nn represents an OSI node */ +/************************************************************************/ +/* State Machine Design per connection for "state" */ +#define ADLC_S_DISCONNECT_PHASE 0 /* setting up data link */ +#define ADLC_S_LINK_DISCONNECT 1 /* setting up data link */ +#define ADLC_S_LINK_SETUP 2 /* setting up data link */ +#define ADLC_S_NORMAL 3 /* information transfer */ +#define ADLC_S_REMOTE_BUSY 4 /* information transfer */ +#define ADLC_S_SEND_REJECT 5 /* information transfer */ +#define ADLC_S_FRAME_REJECT 6 /* for slave only */ +#define ADLC_S_RESET 7 /* for slave only */ + +typedef struct tagAdlcConInfo + { + DBL_LNK p; /* required for link list operations */ + ST_UINT16 masterAddr; /* ISO node address */ + ST_INT txRxMode; /* TX_MODE or RX_MODE */ + struct tagAdlcDevInfo *dptr; /* ADLC device structure pointer */ + struct tagAdlcPortInfo *pptr; /* port which it belongs to */ + ST_INT state; /* Connection state defined above */ + ST_UCHAR vR; /* Receive State Variable */ + ST_UCHAR vS; /* Send State Variable */ + ST_UCHAR sendCount; /* How many frames we have sent */ + ST_INT infoBufLen; /* Length of info message for rxIFramesList */ + ST_INT txAdlcReqCount; /* How many write request ?? */ + ST_INT retries; /* How many retries are allowed */ + ADLC_FRAME *rxIFramesList; /* Info frames which are not complete LSDU */ +#if defined(ADLC_MASTER) + ST_DOUBLE connectRetryTimeout; /* To store the time when we will try to reconnect */ +#endif +#if defined(UCA_SMP) + ST_INT txExtAdlcReqCount; /* How many write request ?? */ + ADLC_FRAME *rxUIFramesList; /* Info frames which are not complete LSDU */ + ST_INT extInfoBufLen; /* Length of ui message for rxUIFramesList */ +#endif + } ADLC_CON_INFO; +/************************************************************************/ +/* ADLC_DEV_INFO */ +/* */ +/* Tracking structure for device. This is the main entry point to */ +/* reference to almost any device related info. This will be allocated */ +/* at the startup when reading from configuration file */ +/************************************************************************/ +#define MAX_DEV_NAME_SIZE 80 + +/* Mode could be one of the following */ +/* ADLC slave will only have two modes TX_MODE and RX_MODE */ +/* Slave will initially be at RX_MODE. It will go to TX_MODE when he */ +/* sees the P/F bit and after transmission it will go back to RX_MODE */ +/* In case of timeout it will remain in RX_MODE */ +/* ADLC master will initially be in TX_MODE. It will go in RX_MODE only */ +/* when it expects the response back from the slave. In case of timeout */ +/* it will go back to TX_MODE. */ +#define TX_MODE 0 +#define RX_MODE 1 + +typedef struct tagAdlcDevInfo + { + DBL_LNK p; /* required for link list operations */ + ST_CHAR name[MAX_DEV_NAME_SIZE+1]; /* storage for device name */ + ST_UINT16 address; /* Device's 16-bit address */ + ST_INT txRxMode; /* TX_MODE or RX_MODE */ + struct tagAdlcPortInfo *pptr; /* port which it belongs to */ + ADLC_CON_INFO *conList; +#if defined(ADLC_MASTER) + ST_INT pollGroup; /* 1 to MAX_POLL_GROUPS */ + ST_BOOLEAN connectAll; /* flag only used in adlcConnectAll() */ + ST_DOUBLE turnaroundTime; +#if defined(ADLC_LM) + ST_INT txRxModeCounter; /* for proper behaviour of turnaround timer */ +#endif /* ADLC_LM */ +#endif /* ADLC_MASTER */ +#if defined(ADLC_LM) + ADLC_DEV_STATS devStats; +#endif /* ADLC_LM */ + } ADLC_DEV_INFO; + +/************************************************************************/ +/* ADLC_PORT_INFO */ +/* */ +/* Tracking structure for network */ +/* will be allocated at the startup when reading from configuration file*/ +/* */ +/* txRxMode : is either TX_MODE or RX_MODE. */ +/* For master It is used in code in the following three ways */ +/* pptr->txRxMode = RX_MODE when p/f bit given to a slave */ +/* pptr->txRxMode = TX_MODE when port turnaround time or timeout has */ +/* elapsed */ +/* For slave It is used in code in the following three ways */ +/* pptr->txRxMode = TX_MODE when p/f is received from master */ +/* pptr->txRxMode = RX_MODE when p/f bit given from slave */ +/* if pptr->txRxMode == TX_MODE to see if we got p/f from master */ +/* runMode : is POLLED_MODE, ENHANCED_POLLED_MODE or CONTENTION_MODE */ +/* The idea is when runMode is configured in CONTENTION_MODE, then */ +/* pptr->runMode can change dynamically else pptr->runMode will remain */ +/* same as configured runMode (i.e. ADLC_RUN_MODE(pptr)) */ +/* For slave it is used in the following ways */ +/* pptr->runMode = POLLED_MODE when p/f is received from master */ +/* pptr->runMode = CONTENTION_MODE when p/f bit given from slave */ +/* if pptr->runMode == CONTENTION_MODE to encode the frame format */ +/* For Master it is used in the following ways */ +/* pptr->runMode = ENHANCED_POLLED_MODE when dcd is high most of times */ +/* pptr->runMode = CONTENTION_MODE when RR frames are more than INFO */ +/* if pptr->runMode == CONTENTION txStateService is called else */ +/* txService is called */ +/************************************************************************/ +/* States for getting the frame from the port used in "rxState" */ +#define STATE_WAIT_SOF 0 +#define STATE_WAIT_LEN 1 +#define STATE_WAIT_CRC 2 +#define STATE_WAIT_DATA 3 +#define STATE_WAIT_EOF 4 + +/* States for slave tranmit algorithm used in "signalState" */ +#define SL_TX_STATE_IDLE 0 +#define SL_TX_STATE_PF_RCVD 1 +#define SL_TX_STATE_WAIT_FOR_CTS_HIGH 2 +#define SL_TX_STATE_START_OF_TX_DELAY 3 +#define SL_TX_STATE_OK_TO_TX 4 +#define SL_TX_STATE_WAIT_FOR_TX_BUF_EMPTY 5 +#define SL_TX_STATE_DEKEY_DELAY 6 +#define SL_TX_STATE_WAIT_FOR_CTS_LOW 7 +#define SL_TX_STATE_UNSOL_TX 8 +#define SL_TX_STATE_WAIT_FOR_LINK 9 +#define SL_TX_STATE_START_OF_UNSOL_TX_DELAY 10 +#define SL_TX_STATE_OK_TO_UNSOL_TX 11 + +/*States for master tranmit in contention used in "signalState" */ +#define MA_TX_STATE_IDLE 0 +#define MA_TX_STATE_WAIT_FOR_CTS_HIGH 1 +#define MA_TX_STATE_WAIT_FOR_DCD_LOW 2 +#define MA_TX_STATE_OK_TO_TX 3 +#define MA_TX_STATE_WAIT_FOR_TX_BUF_EMPTY 4 +#define MA_TX_STATE_DEKEY_DELAY 5 +#define MA_TX_STATE_WAIT_FOR_CTS_LOW 6 +#define MA_TX_STATE_WAIT_FOR_CTS_HIGH_DCD_LOW 7 +typedef struct tagAdlcPortInfo + { + DBL_LNK p; /* required for link list operations */ + ST_INT port; /* digiboard port ID */ + ST_INT rxState; /* receive state */ + ST_UCHAR *rxBuf; + ST_UINT rxLen; + ADLC_CON_INFO *outstandingCptr; /* At one time only one con. have P/F set */ + ADLC_DEV_INFO *devList; /* linked list of devices associated with this port */ + ADLC_REQ *txAdlcReqList; /* linked list of write packet list from stack */ + ADLC_FRAME *txUFramesList; /* linked list of unnumbered frames */ + ADLC_FRAME *txSFramesList; /* linked list of supervisory frames */ + ADLC_FRAME *txMFramesList; /* linked list of multicast frames to tx */ + ADLC_FRAME *rxMFramesList; /* linked list of multicast frames to rx not complete LSDU */ + ST_UCHAR vR; /* receive state variable for multicast frames */ + ST_INT infoBufLen; /* Length of info message for rxMFramesList */ + ST_DOUBLE responseTimeout; /* The time request with P/F set was sent */ + ST_INT signalState; /* used for transmit algorithm */ + ST_DOUBLE signalTimeout; /* used for transmit algorithm */ + ST_INT txRxMode; /* TX_MODE or RX_MODE */ + ST_INT runMode; /* POLLED_MODE, ENHANCED_POLLED_MODE or CONTENTION_MODE */ + ADLC_CFG_INFO adlcCfg; +#if defined(ADLC_MASTER) + ADLC_FRAME *txRFramesList; /* linked list of redirect frames */ + ST_DOUBLE turnaroundTime; + ST_ULONG rxInfo; /* Received INFO frames used for switching modes*/ + ST_ULONG rxRr; /* Received RR frames used for switching modes*/ + ST_ULONG txInfo; /* Transmitted INFO frames used for transmit algorithm */ + ST_ULONG txRr; /* Transmitted RR frames used for transmit algorithm */ + ST_BOOLEAN bTxRrFlag; /* should RR have higher priority than INFO ? */ + ST_DOUBLE lastSnrmTime; /* the recorded time when last snrm was sent */ + ST_INT prQueArray[12]; /* array of int which will store priority order */ +#endif +#if defined(ADLC_LM) + HEV txDoneSem; /* sem to wait on the sm to be waited */ + HEV frameArrivalSem; /* sem to wait for frame to rx */ + HEV frameInListSem; /* sem to wait for frame to tx */ + HEV rdThreadErrSem; /* sem to clean up from read thread error */ + ST_BOOLEAN bPortBusy; /* if true - tx is pending */ +#if defined(ADLC_MASTER) + HTIMER hTxStateTimer; /* used in txStateService to drive state mach */ + ST_INT txRxModeCounter; /* for proper behaviour of turnaround timer */ +#endif /* ADLC_MASTER */ +#endif /* ADLC_LM */ +#if !defined(ADLC_LM) + ST_DOUBLE frameTimeout; +#endif +#if defined(UCA_SMP) + ADLC_REQ *txExtAdlcReqList; /* linked list of ext write packet list from stack */ + ST_CHAR recTime[SMP_SIZE_OF_REC_TIME]; /* buffer to hold time stamp */ +#endif + } ADLC_PORT_INFO; + +#if defined(ADLC_MASTER) +/************************************************************************/ +/* POLLED_DEV */ +/* */ +/* Link Manager Polling Structure */ +/************************************************************************/ + +typedef struct tagPolledDevices + { + DBL_LNK l; /* gen list link */ + ADLC_DEV_INFO *dptr; /* pointer to device structure */ + ST_BOOLEAN bSuspendPolling; /* don't poll this one for a while */ + } POLLED_DEV; + +/************************************************************************/ +/* POLL_GROUP */ +/* */ +/************************************************************************/ +#define FIRST_POLL_GROUP 1 +#define MAX_POLL_GROUPS 3 + +/* assume that pollGrpID's start at 1 and go up to MAX_POLL_GROUPS */ +/* assume that poll group 1 is polled most frequently and poll group */ +/* MAX_POLL_GROUPS is polled least frequently. */ +/* when requested to change the poll rate for a device, change the poll */ +/* group for the device - increment poll group to decrease polling or */ +/* decrement poll group to increase poll frequency */ + +typedef struct tagPollGroup + { + DBL_LNK l; /* gen list link */ + ST_INT pollGrpID; /* a unique int 1 to MAX_POLL_GROUPS */ + ST_DOUBLE pollRate; /* in m seconds from config file */ + POLLED_DEV *pollDevList; /* a linked list of devices to poll */ +#if !defined(ADLC_LM) + ST_DOUBLE pollTime; /* To store the time of last poll */ +#endif +#if defined(ADLC_LM) + HTIMER hTimer; /* used in MuxWaitSem to trigger poll */ +#endif + } POLL_GROUP; + +#endif /* ADLC_MASTER */ + +#if defined(ADLC_LM) +/************************************************************************/ +/* ADLC_TASK_INFO */ +/* */ +/************************************************************************/ +typedef struct tagAdlcTaskInfo + { + DBL_LNK l; /* gen list link */ + ST_UINT16 localAddr; + HQUEUE qHandle; + ST_INT taskId; +/* PID pid; */ + } ADLC_TASK_INFO; + +/************************************************************************/ +/* ADLC_FILTER_DEV_LOG_INFO */ +/* */ +/************************************************************************/ +typedef struct tagAdlcFilterDevLogInfo + { + ST_UINT16 address; + ST_BOOLEAN bFilter; + ST_ULONG saveIoLogMask; + } ADLC_FILTER_DEV_LOG_INFO; + +#endif /* ADLC_LM */ + +#if !defined(ADLC_LM) +/************************************************************************/ +/* ADLC_EVENT_INFO */ +/* */ +/************************************************************************/ +typedef struct tagAdlcEventInfo + { + DBL_LNK l; /* gen list link */ + ST_INT adlcEventOp; + ST_INT adlcRetCode; + ST_VOID *adlcEventCb; + } ADLC_EVENT_INFO; +#endif +/************************************************************************/ +/* Function like macros to get and set various fields */ +/************************************************************************/ +/* This macro gets the frame format from the frame */ +#define FRAME_FORMAT_GET(frame) ((frame[1] << 8) | (frame[2])) + +/* This macro gets the length of the frame from the frame */ +#define FRAME_LEN_GET(frame) (((frame[1] << 8) | (frame[2])) & 0x07FF) + +/* This macro sets the length of the frame in the frame format field */ +#define FRAME_LEN_SET(x,r) (x = ((x) & 0xF800) | ((r) & 0x07FF)) + +/* This macro gets the type of the frame from the frame */ +#define FRAME_TYPE_GET(frame) (ST_UCHAR) (frame[1] >> 4) + +/* This macro sets the type of the frame in the frame format field */ +#define FRAME_TYPE_SET(x,y) (x = ((x) & 0x0FFF) | ((y) << 12)) + +/* This macro gets the eos bit from the frame */ +#define EOS_GET(frame) (frame[1] & 0x08) + +/* This macro sets the eos in the frame format field */ +#define EOS_SET(x) (x = ((x) & 0xF7FF)) + +/* This macro gets the destination address from the frame */ +#define DST_ADDR_GET(frame) (ST_UINT16) (frame[3] << 8 | frame[4]) + +/* This macro gets the source address from the frame */ +#define SRC_ADDR_GET(frame) (ST_UINT16) (frame[5] << 8 | frame[6]) + +/* This macro gets the device address from the receing frame */ +#if defined(ADLC_MASTER) +#define DEV_ADDR_GET(frame) SRC_ADDR_GET(frame) +#endif +#if defined(ADLC_SLAVE) +#define DEV_ADDR_GET(frame) DST_ADDR_GET(frame) +#endif + +/* This macro gets the control byte from the frame */ +#define CTRL_BYTE_GET(frame) (frame[7]) + +/* This macro gets the Poll Final Bit from the control byte */ +#define PF_GET(x) ((x) & 0x10) /* Poll Final Bit get */ + +/* This macros tells to have a poll/final bit depending on frame type */ +#define PF_DECIDE(frameType) (frameType == FRAME_FORMAT_TYPE3 ? PF_BIT : 0x0) + +/* This macro sets the Poll Final Bit in the control byte */ +#define PF_SET(x) (x = (x) | (ST_UCHAR) 0x10) /* Poll Final Bit set */ + +/* These get the code from the control byte including the format type */ +#define UNUM_CODE_GET(x) (ST_UCHAR) ((x) & 0xEF) +#define SUPR_CODE_GET(x) (ST_UCHAR) ((x) & 0x0F) +#define INFO_CODE_GET(x) (ST_UCHAR) ((x) & 0x01) + + +/* These macros get the N(R) and N(S) in an info command. */ +#define INFO_NR_GET(x) (ST_UCHAR) (((x) & 0xE0) >> 5) +#define INFO_NS_GET(x) (ST_UCHAR) (((x) & 0x0E) >> 1) + +/* These macros alter the N(R) and N(S) in an info command. */ +#define INFO_NS_SET(x,r) (x = (x) | (ST_UCHAR) ((r) << 1)) +#define INFO_NR_SET(x,r) (x = (x) | (ST_UCHAR) ((r) << 5)) + +/* This macro gets the N(R) in a supervisory command. */ +#define SUPR_NR_GET(x) (ST_UCHAR) (((x) & 0xE0) >> 5) + +/* This macro alters the N(R) in a supervisory command. */ +#define SUPR_NR_SET(x,r) (x = (x) | (ST_UCHAR) ((r) << 5)) + +/* This macro gets the crc from the frame */ +#define FRAME_CRC_GET(frame,offset) ((frame[offset] << 8) | (frame[offset + 1])) + + +/* This macro rotates the bytes in unsigned int */ +#define ROTATE(x) { ST_UINT16 tmp;\ + tmp = (x) & 0xFF;\ + x = (x) >> 8;\ + x |= tmp << 8;\ + } + +/* Modulo-N increment and decrement macros */ +#define DEC_MODULO_N(x,y,z) (ST_UCHAR) (((x) >= (y)) ? ((x) - (y)) : (((x) + (z)) - (y))) +#define INC_MODULO_N(x,y,z) (ST_UCHAR) (((x) + (y)) % (z)) +#define DIFF_MODULO_N(x,y,z) (ST_UCHAR) (((x) >= (y)) ? (x) - (y) : ((x) + (z)) - (y)) + +/* if the most significant bit is set it is either broadcast or multicast */ +#define IS_MULTICAST_ADDR(x) ((x) & 0x8000) + +/* if the bit 13 is not set it is a remote address */ +#define IS_REMOTE_ADDR(x) !((x) & 0x2000) + +/* Used to change port=0 into COM1, port=1 into COM2 etc. */ +#define GET_COM_NO(x) ((x) + 1) + +/* Time Management Macros */ +#define START_TIMEOUT(x,y) (x = sGetMsTime() + (y)) +#define UPDATE_TIMEOUT(x,y) if (x) x = sGetMsTime() + (y) +#define STOP_TIMEOUT(x) (x = 0.0) +#define CHECK_TIMEOUT(x) ((x) && (sGetMsTime() >= (x))) +#define IS_TIMEOUT_ENABLED(x) (x) +#define IS_TIMEOUT_DISABLED(x) !(x) + +/* Macros to work on ADLC_CFG_INFO structure */ +#define ADLC_MODULUS(x) x->adlcCfg.modulus +#define ADLC_FRAME_LEN(x) x->adlcCfg.frameLen +#define ADLC_INFO_LEN(x) (x->adlcCfg.frameLen - MIN_INFO_FRAME_LEN) +#define ADLC_MAX_ADLC_REQS(x) x->adlcCfg.maxAdlcReqs +#define ADLC_RUN_MODE(x) x->adlcCfg.runMode +#define ADLC_COMMUNICATION_MEDIA(x) x->adlcCfg.communicationMedia +#define ADLC_RETRIES(x) x->adlcCfg.retries +#define ADLC_SOF(x) x->adlcCfg.sof +#define ADLC_EOF(x) x->adlcCfg.eof +#define ADLC_RESPONSE_TIMEOUT(x) x->adlcCfg.responseTimeout +#define ADLC_FRAME_TIMEOUT(x) x->adlcCfg.frameTimeout +#define ADLC_SIGNAL_TIMEOUT(x) x->adlcCfg.signalTimeout +#define ADLC_RADIO_DEKEY_DELAY(x) x->adlcCfg.radioDekeyDelay +#define ADLC_RADIO_START_OF_TX_DELAY(x) x->adlcCfg.radioStartOfTxDelay +#define ADLC_PREAMBLE_LEN(x) x->adlcCfg.preambleLen + +#if defined(ADLC_MASTER) +#define ADLC_MAX_CONNECT_RETRY_TIMEOUT(x) x->adlcCfg.maxConnectRetryTimeout +#define ADLC_DEVICE_TURNAROUND_TIME(x) x->adlcCfg.deviceTurnaroundTime +#define ADLC_PORT_TURNAROUND_TIME(x) x->adlcCfg.portTurnaroundTime +#define ADLC_PORT_USAGE(x) x->adlcCfg.portUsage +#endif /* ADLC_MASTER */ + +#if defined(CNP) +/* This macro checks if there is data on port and it gives the char else -1 */ +#define RX_BYTE(port) ((cnp_cnt (port)) ? cnp_getc (port) : -1 ) + +/* This macro puts the data on the port */ +#define SM_PUT(a,b,c) cnp_put(a,b,c) +#else + +#define RX_BYTE(port) ((sm_rx_cnt (port)) ? sm_getc (port) : -1 ) +#define SM_PUT(a,b,c) sm_put(a,b,c) + +#endif /* CNP */ + +#ifdef ADLC_TESTING + +/* Macro to get a random integer within a specified range */ +#define GET_RANDOM_BETWEEN( min, max ) ((rand() % (int)(((max)+1) - (min))) + (min)) + +/* Macro to get one random value out of two */ +#define GET_RANDOM_OF(val1,val2) (rand() < RAND_MAX / 2 ? val1 : val2) + +#endif +/************************************************************************/ +/* Global Variables Declarations */ +/************************************************************************/ +extern ADLC_CFG_INFO adlcCfg; +extern ADLC_PORT_INFO *portList; +extern CFG_PORT *portConfigList; +extern const ST_UINT16 adlc_crc_table[256]; +extern ADLC_STATS adlcStats; +extern ST_BOOLEAN terminateFlag; + +#if defined(ADLC_MASTER) +extern POLL_GROUP *pollGroupList; +extern ST_ULONG gRrFrames; +extern ST_ULONG gInfoFrames; +#endif + +#if defined(ADLC_ERROR) +extern ADLC_ERROR_INFO adlcError; +#endif + +#if !defined(ADLC_LM) +extern ADLC_EVENT_INFO *eventList; +extern ST_INT stackTaskId; +#endif + +#if defined(ADLC_LM) +extern ADLC_TASK_INFO *taskList; +extern ST_INT connectedTask[RLI_TASK_ID_LAST + 1]; +extern ST_INT serMgrSleep; +extern PID myPID; +extern ADLC_FILTER_DEV_LOG_INFO stFiltDevLog; +extern CRITICAL_SECTION protectAdlcData; /* to guard adlc data between threads */ +#endif +/************************************************************************/ +/* Global Functions Declarations */ +/* make the following functions static if you can */ +/************************************************************************/ +/* adlc_utl.c */ +ST_UCHAR eventTypeOf(ST_UCHAR ctrlByte); +ST_VOID timeout_error (ADLC_CON_INFO *cptr); +ST_VOID resetConnection (ADLC_CON_INFO *cptr,ST_INT attrib); +ST_VOID resetStateVarsForConnection(ADLC_CON_INFO *cptr); +ST_RET verifyCrc(ST_UCHAR *frame, ST_UINT frameLen); +ST_UINT16 calcCrc (ST_UCHAR *data, ST_UINT length); + +ADLC_PORT_INFO *getPortPtrFromPort(ST_INT port); +ADLC_DEV_INFO *getDevPtrFromAddress(ST_UINT16 addr); +ADLC_DEV_INFO *getDevPtrFromName(ST_CHAR *name); +ADLC_CON_INFO *getConPtrFromAddrPair(ST_UINT16 slaveAddr,ST_UINT16 masterAddr); +ADLC_CON_INFO *getConPtrFromDptr(ADLC_DEV_INFO *dptr,ST_UINT16 masterAddr); + +ADLC_PORT_INFO *addToPortList(ST_INT port, const ADLC_CFG_INFO *pstAdlcCfg); +CFG_PORT *addToCfgPortList(ST_INT port); +ADLC_DEV_INFO *addToDevList(ADLC_PORT_INFO *pptr, ST_CHAR *name, + ST_UINT16 address,ST_INT pollGroup,ST_BOOLEAN connectAll); +ADLC_CON_INFO *addToConList(ADLC_DEV_INFO *dptr,ST_UINT16 masterAddr); +ST_VOID addToSFramesList(ADLC_CON_INFO *cptr, ST_UCHAR cmd); +ST_VOID addToUFramesList(ADLC_CON_INFO *cptr, ST_UCHAR cmd); +ST_VOID addToRFramesList(ADLC_PORT_INFO *pptr); +ST_VOID addToMFramesInTxList(ST_UINT16 srcAddr,ST_UINT16 dstAddr, ST_VOID *data, ST_INT dataLen); +ST_VOID addToMFramesInRxList(ADLC_PORT_INFO *pptr,ST_UCHAR *data,ST_INT dataLen); +ADLC_REQ *addToReqList(ADLC_CON_INFO *cptr); +ST_VOID addToIFramesInTxList(ADLC_REQ *rptr,ST_UCHAR *data,ST_INT len); +ST_VOID addToIFramesInRxList(ADLC_CON_INFO *cptr,ST_UCHAR *data,ST_INT len); + +ST_VOID deleteAllConnections(ADLC_DEV_INFO *dptr); +ST_VOID deleteConnection(ADLC_CON_INFO *cptr); +ST_VOID deleteDevice(ADLC_DEV_INFO *dptr); +ST_VOID deletePort(ADLC_PORT_INFO *pptr); +ST_VOID deleteCfgPort(CFG_PORT *pstCfgPort); +ST_VOID deleteAllFrames(ADLC_CON_INFO *cptr); +ST_VOID deleteSFramesList(ADLC_CON_INFO *cptr); +ST_VOID deleteSFramesListWithoutPf(ADLC_CON_INFO *cptr); +ST_VOID deleteUFramesList(ADLC_CON_INFO *cptr); +ST_VOID deleteIFramesFromRxList(ADLC_CON_INFO *cptr); +ST_VOID deleteIFramesFromTxList(ADLC_CON_INFO *cptr); +ST_VOID deleteMFramesFromTxList(ADLC_PORT_INFO *pptr); +ST_VOID deleteMFramesFromRxList(ADLC_PORT_INFO *pptr); +ST_VOID deleteAckedIFramesFromTxList(ADLC_CON_INFO *cptr,ST_UCHAR nR); +ST_VOID deleteFrame(ADLC_FRAME *fptr,ADLC_FRAME **framesList); +ST_VOID deleteReqFrame (ADLC_REQ *rptr); + +ST_BOOLEAN isDevPtrValid(ADLC_DEV_INFO *rDptr); +ST_VOID nackAllIFramesFromTxList(ADLC_CON_INFO *cptr); +ST_BOOLEAN isInfoQueuedUp(ADLC_CON_INFO *cptr); +ST_BOOLEAN isPollQueuedUp(ADLC_CON_INFO *cptr); +ST_BOOLEAN isUFrameQueuedUp(ADLC_CON_INFO *cptr); +ST_BOOLEAN isOkToPoll(ADLC_CON_INFO *cptr); +ST_BOOLEAN isOkToSendUnum(ADLC_CON_INFO *cptr,ST_BOOLEAN justCheck); +ST_BOOLEAN isOkToSendSupr(ADLC_CON_INFO *cptr,ST_BOOLEAN justCheck); +ST_BOOLEAN isOkToSendInfo(ADLC_CON_INFO *cptr,ST_BOOLEAN justCheck); +ST_BOOLEAN isOkToSendMult(ADLC_PORT_INFO *pptr,ST_BOOLEAN justCheck); +ST_BOOLEAN isConStateInInfoTransfer(ADLC_CON_INFO *cptr); +ST_VOID getPfAndEosBit(ADLC_FRAME *nextFptr,ST_UCHAR sendCount, + ST_BOOLEAN *pfBit,ST_BOOLEAN *eosBit, ADLC_PORT_INFO *pptr); +ST_VOID adlc_except (SD_CONST ST_CHAR *file, ST_INT line); +ST_UINT16 getLocalAddr(ADLC_CON_INFO *cptr); +ST_UINT16 getRemoteAddr(ADLC_CON_INFO *cptr); +CFG_PORT *findCfgPort(ST_INT port); +ST_VOID adlcEndLogging (ST_VOID); + +#if defined(ADLC_MASTER) +POLL_GROUP *findPollGroup(ST_INT pollGrpID); +POLL_GROUP *addToPollGroupList(ST_INT pollGrpID,ST_DOUBLE pollRate); +ST_RET addDevToPollGrp(ADLC_DEV_INFO *dptr,ST_INT pollGroup); +POLLED_DEV *findPolledDevByName(char *devName); +POLLED_DEV *findPolledDevByAddress(ST_UINT16 addr); +#endif + +/* adlc_dec.c */ +ST_RET getFrame(ADLC_PORT_INFO *pptr); +ST_RET processAdlcFrame(ADLC_PORT_INFO *pptr); +ST_VOID giveIndicationToStack (ADLC_CON_INFO *cptr,ST_INT opcode,ST_RET retCode, ST_LONG usr1); + +/* adlc_enc.c */ +ST_RET send_info_frame(ADLC_FRAME *fptr,ST_BOOLEAN pfBit,ST_BOOLEAN eosBit); +ST_RET send_supr_frame(ADLC_FRAME *fptr); +ST_RET send_unum_frame(ADLC_FRAME *fptr); +ST_RET send_ui_frame(ADLC_FRAME *fptr); +ST_RET send_redr_frame(ADLC_FRAME *fptr,ADLC_PORT_INFO *pptr); +ST_RET send_mult_frame(ADLC_FRAME *fptr,ADLC_PORT_INFO *pptr); +ST_VOID enc_adlc_frame(ST_UCHAR *frame,ST_UINT16 srcAddr,ST_UINT16 dstAddr,ST_UCHAR ctrlByte, + ST_UINT16 frameFormat,ST_INT dataLen, ADLC_PORT_INFO *pptr); +ST_UINT16 getFrameFormat(ST_INT frameLen,ST_BOOLEAN eosBit,ST_UCHAR frameType); + +/* adlc_ssv.c adlc_msv.c */ +ST_VOID adlcService(ST_VOID); +ST_BOOLEAN checkTxService(ADLC_PORT_INFO *pptr); +ST_VOID txService(ADLC_PORT_INFO *pptr); +ST_VOID rxService(ADLC_PORT_INFO *pptr); +ST_VOID txStateService(ADLC_PORT_INFO *pptr); +ST_VOID timeoutService(ADLC_PORT_INFO *pptr); +ST_VOID stopWaitingForResp(ADLC_CON_INFO *cptr, ST_BOOLEAN bResetRetries); + +#if defined(ADLC_SLAVE) +ST_VOID startSignalTimeout(ADLC_PORT_INFO *pptr); +ST_VOID stopSignalTimeout(ADLC_PORT_INFO *pptr); +ST_BOOLEAN checkSignalTimeout(ADLC_PORT_INFO *pptr); +ST_VOID goInTxMode(ADLC_CON_INFO *cptr); +ST_VOID goInRxMode(ADLC_CON_INFO *cptr); +ST_VOID waitForResponse(ADLC_CON_INFO *cptr); +#endif /* ADLC_SLAVE */ + +#if defined(ADLC_MASTER) +ST_VOID pollDevice(ADLC_DEV_INFO *dptr); +ST_VOID pollConnection(ADLC_CON_INFO *cptr); +ST_VOID waitForResponse(ADLC_CON_INFO *cptr); +ST_VOID startConRetryTimeout(ADLC_CON_INFO *cptr); +ST_BOOLEAN checkConRetryTimeout(ADLC_CON_INFO *cptr); +ST_VOID stopConRetryTimeout(ADLC_CON_INFO *cptr); +ST_VOID startDeviceTurnaroundTimeout(ADLC_DEV_INFO *dptr); +ST_BOOLEAN checkDeviceTurnaroundTimeout(ADLC_DEV_INFO *dptr); +ST_VOID stopDeviceTurnaroundTimeout(ADLC_DEV_INFO *dptr); +ST_VOID startPortTurnaroundTimeout(ADLC_PORT_INFO *pptr); +ST_BOOLEAN checkPortTurnaroundTimeout(ADLC_PORT_INFO *pptr); +ST_VOID stopPortTurnaroundTimeout(ADLC_PORT_INFO *pptr); +ST_RET startPollTimer(POLL_GROUP *pstPollGrp); +ST_RET updatePollTimer(POLL_GROUP *pstPollGrp); +ST_RET stopPollTimer(POLL_GROUP *pstPollGrp); +ST_BOOLEAN checkPollTimer(POLL_GROUP *pstPollGrp); +ST_RET pollInit(ST_VOID); + +ST_VOID triggerLogicAnalyzer(ST_INT port); +#endif /* ADLC_MASTER */ + +/* adlc_tm.c */ +ST_VOID startRespTimeout(ADLC_PORT_INFO *pptr); +ST_VOID updateRespTimeout(ADLC_PORT_INFO *pptr); +ST_VOID stopRespTimeout(ADLC_PORT_INFO *pptr); +ST_BOOLEAN checkRespTimeout(ADLC_PORT_INFO *pptr); +ST_BOOLEAN isRespTimeoutEnabled(ADLC_PORT_INFO *pptr); +ST_BOOLEAN isRespTimeoutDisabled(ADLC_PORT_INFO *pptr); +ST_VOID startSignalTimeout(ADLC_PORT_INFO *pptr); +ST_VOID updateSignalTimeout(ADLC_PORT_INFO *pptr); +ST_VOID stopSignalTimeout(ADLC_PORT_INFO *pptr); +ST_BOOLEAN checkSignalTimeout(ADLC_PORT_INFO *pptr); +ST_VOID startRadioDelayTimeout(ADLC_PORT_INFO *pptr); +ST_VOID startFrameTimeout(ADLC_PORT_INFO *pptr); +ST_BOOLEAN checkFrameTimeout(ADLC_PORT_INFO *pptr); +ST_VOID stopFrameTimeout(ADLC_PORT_INFO *pptr); +ST_VOID time_delay (ST_DOUBLE tme); + +/* adlc_log.c */ +ST_VOID logAdlcStats(ST_VOID); + +/* adlc_get.c */ +ST_CHAR *getCommandName(ST_UCHAR ctrlByte); +ST_CHAR *getConState(ST_INT state); +ST_CHAR *getTxRxMode(ST_INT mode); +ST_CHAR *getRunMode(ST_INT mode); +ST_CHAR *getCommunicationMedia(ST_INT media); +ST_CHAR *getOpCode(ST_INT opcode); +ST_CHAR *getRetCode(ST_RET retCode); +ST_CHAR *getSignalState(ST_INT signalState); + +/* adlc_var.c */ +ST_VOID adlcInitGlbVars(ST_VOID); +ST_VOID initSiscoUtilGlbVarsForAdlc(ST_VOID); + +/* adlc_lsm.c */ +ST_VOID rdThreadErrorHandling(ADLC_PORT_INFO *pptr); + +/* adlc_cfg.c adlc_odb.c adlc_hc.c */ +ST_RET adlcConfigure (ST_VOID); +#if defined(ADLC_LM) +ST_RET adlcReConfigure (ST_VOID); +ST_RET updateAdlcLoggingParameters(ST_VOID); +ST_RET updateAdlcPollParameters(ST_UINT hi,ST_UINT med, ST_UINT low); +ST_RET adlcCloseDatabase (ST_VOID); +#endif + +/* adlc_tst.c */ +#ifdef ADLC_TESTING +ST_VOID testSetMain (ST_VOID); +ST_VOID switchMenu(ST_VOID); +ST_VOID memCheckError (ST_VOID); +ST_VOID screenLogFun (LOG_CTRL *lc, + SD_CONST ST_INT logType, + SD_CONST ST_CHAR *SD_CONST sourceFile, + SD_CONST ST_INT lineNum, + SD_CONST ST_INT bufLen, + SD_CONST ST_CHAR *buf); +ST_VOID doEnableScreenLog (ST_VOID); +ST_VOID doDisableScreenLog (ST_VOID); +#if defined(__OS2__) +extern HEV o_kbd_event_sem; +#endif +#if defined(_WIN32) +extern HEV kbdEvent; +#endif +#if defined(ADLC_LM) +ST_RET handleKeyboardEvent(ST_ULONG userId, ST_ULONG postCount); +ST_RET testStartKeyboard (ST_VOID); +ST_RET testEndKeyboard (ST_VOID); +#endif /* ADLC_LM */ +#endif + +#if !defined(ADLC_LM) +ADLC_EVENT_INFO *addToEventList(ST_INT adlcEventOp,ST_VOID *adlcEventCb,ST_INT adlcRetCode); +#endif + +#if defined(ADLC_LM) +ST_RET exitCallBack (ST_ULONG userId, ST_ULONG postCount); + +ST_RET term_init (ST_VOID); +ST_RET term_rest (ST_VOID); +ST_RET adlcQueInit (ST_VOID); +ADLC_TASK_INFO *addToTaskList(ST_UINT16 localAddr,ST_INT taskId,HQUEUE qHandle); +ADLC_TASK_INFO *getTaskPtrFromLocalAddress(ST_UINT16 addr); +ADLC_TASK_INFO *getTaskPtrFromTaskId(ST_INT taskId); +ST_VOID deleteTask(ADLC_TASK_INFO *tptr); +ST_VOID deleteTaskFromLocalAddress(ST_UINT16 localAddr); +ST_RET addTaskForLocalAddress(ST_UINT16 addr,ST_INT taskId); +ST_VOID deleteTaskFromTaskId(ST_INT taskId); +ST_INT getTaskId(ADLC_CON_INFO *cptr,ST_INT *taskId); +ST_VOID logIpcError(ST_INT retCode, ST_CHAR *str, ST_CHAR *file, ST_INT line); +ST_VOID updateStatusBar(ST_CHAR *szBuff); +ST_VOID screenLogFun (LOG_CTRL *lc, + SD_CONST ST_INT logType, + SD_CONST ST_CHAR *SD_CONST sourceFile, + SD_CONST ST_INT lineNum, + SD_CONST ST_INT bufLen, + SD_CONST ST_CHAR *buf); + +/* adlc_lm.c */ +ST_RET handleCmdQueEvent (ST_ULONG userId, ST_ULONG qMsgLen, ST_VOID *qMsg); +ST_RET handleDataQueEvent (ST_ULONG userId, ST_ULONG qMsgLen, ST_VOID *qMsg); +ST_RET sendDataMsgToStack(ADLC_CMD *srcPstCmd,ST_INT stackTaskId); +ST_RET sendDataMsgToStackNoAlloc(ADLC_CMD *dstPstCmd,ST_INT stackTaskId); +#endif /* ADLC_LM */ + +#if defined(__OS2__) +ST_VOID exitLogging (ST_ULONG ulTermCode); +ST_VOID exitCleanFun (ST_ULONG ulTermCode); +#endif + +#if defined(_WIN32) +ST_VOID exitLogging (ST_VOID); +ST_VOID exitCleanFun (ST_VOID); +#endif + +#if defined(UCA_SMP) +ADLC_REQ *addToExtReqList(ADLC_CON_INFO *cptr,ADLC_REQ **adlcReqList,ST_LONG userId); +ST_VOID deleteExtReqFrame(ADLC_REQ *rptr); +ST_VOID addToUIFramesInTxList(ADLC_REQ *rptr,ST_UCHAR *data,ST_INT dataLen); +ST_VOID addToUIFramesInRxList(ADLC_CON_INFO *cptr,ST_UCHAR *data,ST_INT dataLen); +ST_VOID deleteUIFramesFromRxList(ADLC_CON_INFO *cptr); +ST_VOID deleteUIFramesFromTxList(ADLC_CON_INFO *cptr); +ST_RET sendExtWriteDoneToStack(ADLC_CON_INFO *cptr, ST_LONG userId, + ST_CHAR *timeSync, ST_INT bufLen, + ST_RET retCode); +#endif /* UCA_SMP */ + +#ifdef __cplusplus +} +#endif + +#endif /* _ADLC_H */ + + + diff --git a/mmslib/inc/adlc_dsm.h b/mmslib/inc/adlc_dsm.h new file mode 100644 index 0000000..319cd58 --- /dev/null +++ b/mmslib/inc/adlc_dsm.h @@ -0,0 +1,73 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1995-1996, All Rights Reserved */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : adlc_dsm.h */ +/* PRODUCT(S) : ADLC */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains functions that provide for serial port communi- */ +/* cations for the Digiboard. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* ST_INT sm_init(port,baud,parity,data,stop) */ +/* ST_INT sm_exit(port) */ +/* ST_INT sm_put (port,len,buffer) */ +/* ST_INT sm_putc (port,ch) */ +/* ST_INT sm_rx_cnt (port) */ +/* ST_INT sm_get (port,len,buffer) */ +/* ST_INT sm_getc (port) */ +/* ST_INT sm_rx_flush(port) */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 05/12/97 IKE 09 Changed to MMSEASE 7.0 Data Types */ +/* 02/21/97 IKE 08 Changed COM_TEST to ESSENTIAL_COM to make */ +/* more sense */ +/* 12/03/96 IKE 07 Moved some stuff to adlc_sm.h */ +/* 09/19/96 IKE 06 Rearranged sm_get and sm_set functions */ +/* 08/22/96 IKE 05 Added sm_get_dcd for contention avoidance */ +/* 06/11/96 IKE 04 Added more functions to check RS232 signals */ +/* 05/22/96 IKE 03 Added functions to control RS232 signals */ +/* 04/04/96 rkr 02 Cleanup */ +/* 11/12/95 IKE 1 Created */ +/************************************************************************/ + +#ifndef _ADLC_DSM_H_ +#define _ADLC_DSM_H_ + +#ifdef __cplusplus +extern "C" { +#endif + +#if defined(ESSENTIAL_COM) + +ST_INT xc_entr (ST_INT); +ST_INT xc_exit(ST_VOID); +ST_INT xc_init(ST_INT, ST_INT, ST_INT, ST_INT, ST_INT); +ST_INT xc_link (ST_INT, ST_INT); +ST_INT xc_unlk (ST_INT); +ST_INT xc_put (ST_INT, ST_CHAR*, ST_INT*); +ST_INT xc_putc (ST_INT, ST_CHAR); +ST_INT xc_get (ST_INT, ST_CHAR*, ST_INT*); +ST_INT xc_getc (ST_INT); +ST_INT xc_dtr (ST_INT, ST_INT); +ST_INT xc_rts (ST_INT, ST_INT); +ST_INT xc_cts(ST_INT); +ST_INT xc_dsr(ST_INT); +ST_INT xc_dcd(ST_INT); +ST_INT xc_test (ST_INT); +ST_INT xc_utest (ST_INT); +ST_INT xc_uwait(ST_INT); +#endif /* ESSENTIAL_COM */ + +#ifdef __cplusplus +} +#endif + +#endif /* adlc_dsm.h already included */ diff --git a/mmslib/inc/adlc_log.h b/mmslib/inc/adlc_log.h new file mode 100644 index 0000000..a6c50eb --- /dev/null +++ b/mmslib/inc/adlc_log.h @@ -0,0 +1,879 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1995-1996, All Rights Reserved */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : adlc_log.h */ +/* PRODUCT(S) : ADLC */ +/* */ +/* MODULE DESCRIPTION : */ +/* All the logging macros are defined in following order for easy */ +/* editing of this file. Please keep the same order if logging macros */ +/* need to be changed */ +/* */ +/* ADLC_MASK_LOG_ERR for critical errors */ +/* ADLC_MASK_LOG_NERR for normal errors */ +/* ADLC_MASK_LOG_FLOW for program flow logging */ +/* ADLC_MASK_LOG_IO for control frames */ +/* ADLC_MASK_LOG_DEBUG for debugging purposes */ +/* ADLC_MASK_LOG_ALWAYS for always logging */ +/* ADLC_MASK_LOG_SM for serial manager logging */ +/* ADLC_MASK_LOG_INFO_FRAME for data coming to or from stack */ +/* ADLC_MASK_LOG_USER from or to user (stack) logging */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 09/13/99 MDE 19 Added SD_CONST modifiers */ +/* 02/01/99 JRB 18 Fix ADLC_LOG_DEV_FILT macros for new API. */ +/* Put back ADLC_MAX_LOG_MASK. ADLC_LM needs it.*/ +/* 10/08/98 MDE 17 Migrated to updated SLOG interface */ +/* 09/01/98 IKE 16 Removed the if statement for ALWAYS macros */ +/* 09/18/97 IKE 15 Added telephone support */ +/* 08/27/97 IKE 14 Fixed number of parameters in */ +/* ADLC_LOG_DEV_FILT macros for non debug ver */ +/* 07/16/97 IKE 13 Added ADLC_LOG_DEV_FILT */ +/* 06/13/97 EJV 12 Added ADLC_LOG_ERR5 */ +/* 05/12/97 IKE 11 Changed to MMSEASE 7.0 Data Types */ +/* 04/30/97 IKE 10 Updated ADLC_MAX_LOG_MASK */ +/* 02/24/97 IKE 09 Changed logMask6 to use adlc_debug_sel */ +/* moved log masks to adlc_usr.h, changed */ +/* the logging macros to use slog functions */ +/* deleted macros specific to OS2 */ +/* 12/03/96 IKE 08 WIN32 Support, header files cleanup */ +/* 11/06/96 IKE 07 Changed C++ style comments to C style */ +/* comments to make it more platform independent*/ +/* 10/28/96 KCR 06 Changed LT of HEX logging macros to _CONT */ +/* 10/22/96 IKE 05 Added LOG_ALWAYS5 */ +/* 10/04/96 IKE 04 Changed DEBUG_MMS to DEBUG_SISCO */ +/* 06/21/96 IKE 03 Added ADLC_SM, ADLC_INFO_FRAME and ADLC_USER */ +/* Changed from slog_remote to SLOG6_REM_xxx */ +/* 04/04/96 rkr 02 Cleanup, removed slog_ipc.h */ +/* 01/20/96 IKE 01 Merged NAV's OS2 code */ +/* 11/25/95 IKE 1.00 Created */ +/************************************************************************/ + +#ifndef ADLC_LOG_INCLUDED +#define ADLC_LOG_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "slog.h" + +/************************************************************************/ +/* The Logging Control structure */ +/* Note that more than one may be used, and there is a 1-to-1 mapping */ +/* of the control structure to associated file && memory buffer. */ +/************************************************************************/ + +#define ADLC_MAX_LOG_MASK (ADLC_MASK_LOG_ERR | ADLC_MASK_LOG_NERR | \ + ADLC_MASK_LOG_FLOW | \ + ADLC_MASK_LOG_IO | ADLC_MASK_LOG_HEXIO | \ + ADLC_MASK_LOG_DEBUG | ADLC_MASK_LOG_HEXDEBUG | \ + ADLC_MASK_LOG_SM | ADLC_MASK_LOG_HEXSM | \ + ADLC_MASK_LOG_INFO_FRAME | ADLC_MASK_LOG_HEXINFO_FRAME | \ + ADLC_MASK_LOG_USER | ADLC_MASK_LOG_HEXUSER) + +#define ADLC_LOG_CLOSE_FILE (p) {slogCloseFile (p);} + +/* Control bit set/clear macros */ + +#define ADLC_SET_CTRL(a) {sLogCtrl->logCtrl |= (a);} +#define ADLC_CLR_CTRL(a) {sLogCtrl->logCtrl &= ~(a);} + +#define ADLC_SET_FILE_CTRL(a) {sLogCtrl->fc.ctrl |= (a);} +#define ADLC_CLR_FILE_CTRL(a) {sLogCtrl->fc.ctrl &= ~(a);} + +#define ADLC_SET_LOG_MASK(a) {adlc_debug_sel |= (a);} +#define ADLC_CLR_LOG_MASK(a) {adlc_debug_sel &= ~(a);} + + +#ifdef DEBUG_SISCO /* if DEBUG_SISCO is defined, expand macros */ + +/************************************************************************/ +/* ADLC LOGGING CONTROL */ +/************************************************************************/ + +/* Log Type Strings */ +extern SD_CONST ST_CHAR *_adlc_err_logstr; +extern SD_CONST ST_CHAR *_adlc_nerr_logstr; +extern SD_CONST ST_CHAR *_adlc_flow_logstr; +extern SD_CONST ST_CHAR *_adlc_io_logstr; +extern SD_CONST ST_CHAR *_adlc_debug_logstr; +extern SD_CONST ST_CHAR *_adlc_always_logstr; +extern SD_CONST ST_CHAR *_adlc_sm_logstr; +extern SD_CONST ST_CHAR *_adlc_info_frame_logstr; +extern SD_CONST ST_CHAR *_adlc_user_logstr; + +/* --------------------------------------------------------------- */ +/* ------------------ Error Logging Macros ------------------ */ +#define ADLC_LOG_ERR0(a) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_ERR)\ + _slog (sLogCtrl, _adlc_err_logstr,\ + thisFileName,__LINE__,a);\ + } +#define ADLC_LOG_ERR1(a,b) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_ERR)\ + _slog (sLogCtrl, _adlc_err_logstr,\ + thisFileName,__LINE__,a,b);\ + } +#define ADLC_LOG_ERR2(a,b,c) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_ERR)\ + _slog (sLogCtrl, _adlc_err_logstr,\ + thisFileName,__LINE__,a,b,c);\ + } +#define ADLC_LOG_ERR3(a,b,c,d) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_ERR)\ + _slog (sLogCtrl, _adlc_err_logstr,\ + thisFileName,__LINE__,a,b,c,d);\ + } +#define ADLC_LOG_ERR4(a,b,c,d,e) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_ERR)\ + _slog (sLogCtrl, _adlc_err_logstr,\ + thisFileName,__LINE__,a,b,c,d,e);\ + } + +#define ADLC_LOG_ERR5(a,b,c,d,e,f) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_ERR)\ + _slog (sLogCtrl, _adlc_err_logstr,\ + thisFileName,__LINE__,a,b,c,d,e,f);\ + } + +/* 'Continue' versions */ +#define ADLC_LOG_CERR0(a) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_ERR)\ + _slogc (sLogCtrl,a);\ + } +#define ADLC_LOG_CERR1(a,b) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_ERR)\ + _slogc (sLogCtrl,a,b);\ + } +#define ADLC_LOG_CERR2(a,b,c) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_ERR)\ + _slogc (sLogCtrl,a,b,c);\ + } +#define ADLC_LOG_CERR3(a,b,c,d) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_ERR)\ + _slogc (sLogCtrl,a,b,c,d);\ + } +#define ADLC_LOG_CERR4(a,b,c,d,e) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_ERR)\ + _slogc (sLogCtrl,a,b,c,d,e);\ + } + +#define ADLC_LOG_ERR_HEX(a,b) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_ERR)\ + _slogHex (sLogCtrl,a,b);\ + } + + +/* --------------------------------------------------------------- */ +/* ------------------ Normal Error Logging Macros ------------------ */ + +#define ADLC_LOG_NERR0(a) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_NERR)\ + _slog (sLogCtrl, _adlc_nerr_logstr,\ + thisFileName,__LINE__,a);\ + } +#define ADLC_LOG_NERR1(a,b) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_NERR)\ + _slog (sLogCtrl, _adlc_nerr_logstr,\ + thisFileName,__LINE__,a,b);\ + } +#define ADLC_LOG_NERR2(a,b,c) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_NERR)\ + _slog (sLogCtrl, _adlc_nerr_logstr,\ + thisFileName,__LINE__,a,b,c);\ + } +#define ADLC_LOG_NERR3(a,b,c,d) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_NERR)\ + _slog (sLogCtrl, _adlc_nerr_logstr,\ + thisFileName,__LINE__,a,b,c,d);\ + } +#define ADLC_LOG_NERR4(a,b,c,d,e) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_NERR)\ + _slog (sLogCtrl, _adlc_nerr_logstr,\ + thisFileName,__LINE__,a,b,c,d,e);\ + } + +/* 'Continue' versions */ +#define ADLC_LOG_CNERR0(a) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_NERR)\ + _slogc (sLogCtrl,a);\ + } +#define ADLC_LOG_CNERR1(a,b) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_NERR)\ + _slogc (sLogCtrl,a,b);\ + } +#define ADLC_LOG_CNERR2(a,b,c) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_NERR)\ + _slogc (sLogCtrl,a,b,c);\ + } +#define ADLC_LOG_CNERR3(a,b,c,d) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_NERR)\ + _slogc (sLogCtrl,a,b,c,d);\ + } +#define ADLC_LOG_CNERR4(a,b,c,d,e) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_NERR)\ + _slogc (sLogCtrl,a,b,c,d,e);\ + } + +#define ADLC_LOG_NERR_HEX(a,b) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_NERR)\ + _slogHex (sLogCtrl,a,b);\ + } + +/* --------------------------------------------------------------- */ +/* ------------------ Flow Logging Macros ------------------ */ + +#define ADLC_LOG_FLOW0(a) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_FLOW)\ + _slog (sLogCtrl, _adlc_flow_logstr,\ + thisFileName,__LINE__,a);\ + } +#define ADLC_LOG_FLOW1(a,b) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_FLOW)\ + _slog (sLogCtrl, _adlc_flow_logstr,\ + thisFileName,__LINE__,a,b);\ + } +#define ADLC_LOG_FLOW2(a,b,c) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_FLOW)\ + _slog (sLogCtrl, _adlc_flow_logstr,\ + thisFileName,__LINE__,a,b,c);\ + } +#define ADLC_LOG_FLOW3(a,b,c,d) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_FLOW)\ + _slog (sLogCtrl, _adlc_flow_logstr,\ + thisFileName,__LINE__,a,b,c,d);\ + } +#define ADLC_LOG_FLOW4(a,b,c,d,e) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_FLOW)\ + _slog (sLogCtrl, _adlc_flow_logstr,\ + thisFileName,__LINE__,a,b,c,d,e);\ + } + +/* 'Continue' versions */ +#define ADLC_LOG_CFLOW0(a) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_FLOW)\ + _slogc (sLogCtrl,a);\ + } +#define ADLC_LOG_CFLOW1(a,b) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_FLOW)\ + _slogc (sLogCtrl,a,b);\ + } +#define ADLC_LOG_CFLOW2(a,b,c) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_FLOW)\ + _slogc (sLogCtrl,a,b,c);\ + } +#define ADLC_LOG_CFLOW3(a,b,c,d) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_FLOW)\ + _slogc (sLogCtrl,a,b,c,d);\ + } +#define ADLC_LOG_CFLOW4(a,b,c,d,e) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_FLOW)\ + _slogc (sLogCtrl,a,b,c,d,e);\ + } + +#define ADLC_LOG_FLOW_HEX(a,b) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_FLOW)\ + _slogHex (sLogCtrl,a,b);\ + } + +/* --------------------------------------------------------------- */ +/* ------------------ I/O Logging Macros ------------------ */ + +#define ADLC_LOG_IO0(a) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_IO)\ + _slog (sLogCtrl, _adlc_io_logstr,\ + thisFileName,__LINE__,a);\ + } +#define ADLC_LOG_IO1(a,b) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_IO)\ + _slog (sLogCtrl, _adlc_io_logstr,\ + thisFileName,__LINE__,a,b);\ + } +#define ADLC_LOG_IO2(a,b,c) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_IO)\ + _slog (sLogCtrl, _adlc_io_logstr,\ + thisFileName,__LINE__,a,b,c);\ + } +#define ADLC_LOG_IO3(a,b,c,d) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_IO)\ + _slog (sLogCtrl, _adlc_io_logstr,\ + thisFileName,__LINE__,a,b,c,d);\ + } +#define ADLC_LOG_IO4(a,b,c,d,e) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_IO)\ + _slog (sLogCtrl, _adlc_io_logstr,\ + thisFileName,__LINE__,a,b,c,d,e);\ + } + +/* 'Continue' versions */ +#define ADLC_LOG_CIO0(a) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_IO)\ + _slogc (sLogCtrl,a);\ + } +#define ADLC_LOG_CIO1(a,b) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_IO)\ + _slogc (sLogCtrl,a,b);\ + } +#define ADLC_LOG_CIO2(a,b,c) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_IO)\ + _slogc (sLogCtrl,a,b,c);\ + } +#define ADLC_LOG_CIO3(a,b,c,d) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_IO)\ + _slogc (sLogCtrl,a,b,c,d);\ + } +#define ADLC_LOG_CIO4(a,b,c,d,e) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_IO)\ + _slogc (sLogCtrl,a,b,c,d,e);\ + } + +#define ADLC_LOG_IO_HEX(a,b) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_HEXIO)\ + _slogHex (sLogCtrl,a,b);\ + } + +/* --------------------------------------------------------------- */ +/* ------------------ Debug Logging Macros ------------------ */ + +#define ADLC_LOG_DEBUG0(a) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_DEBUG)\ + _slog (sLogCtrl, _adlc_debug_logstr,\ + thisFileName,__LINE__,a);\ + } +#define ADLC_LOG_DEBUG1(a,b) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_DEBUG)\ + _slog (sLogCtrl, _adlc_debug_logstr,\ + thisFileName,__LINE__,a,b);\ + } +#define ADLC_LOG_DEBUG2(a,b,c) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_DEBUG)\ + _slog (sLogCtrl, _adlc_debug_logstr,\ + thisFileName,__LINE__,a,b,c);\ + } +#define ADLC_LOG_DEBUG3(a,b,c,d) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_DEBUG)\ + _slog (sLogCtrl, _adlc_debug_logstr,\ + thisFileName,__LINE__,a,b,c,d);\ + } +#define ADLC_LOG_DEBUG4(a,b,c,d,e) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_DEBUG)\ + _slog (sLogCtrl, _adlc_debug_logstr,\ + thisFileName,__LINE__,a,b,c,d,e);\ + } + +/* 'Continue' versions */ +#define ADLC_LOG_CDEBUG0(a) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_DEBUG)\ + _slogc (sLogCtrl,a);\ + } +#define ADLC_LOG_CDEBUG1(a,b) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_DEBUG)\ + _slogc (sLogCtrl,a,b);\ + } +#define ADLC_LOG_CDEBUG2(a,b,c) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_DEBUG)\ + _slogc (sLogCtrl,a,b,c);\ + } +#define ADLC_LOG_CDEBUG3(a,b,c,d) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_DEBUG)\ + _slogc (sLogCtrl,a,b,c,d);\ + } +#define ADLC_LOG_CDEBUG4(a,b,c,d,e) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_DEBUG)\ + _slogc (sLogCtrl,a,b,c,d,e);\ + } + +#define ADLC_LOG_DEBUG_HEX(a,b) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_HEXDEBUG)\ + _slogHex (sLogCtrl,a,b);\ + } + +/* --------------------------------------------------------------- */ +/* ------------------ Always Logging Macros ------------------ */ + +#define ADLC_LOG_ALWAYS0(a) {\ + _slog (sLogCtrl, _adlc_always_logstr,\ + thisFileName,__LINE__,a);\ + } +#define ADLC_LOG_ALWAYS1(a,b) {\ + _slog (sLogCtrl, _adlc_always_logstr,\ + thisFileName,__LINE__,a,b);\ + } +#define ADLC_LOG_ALWAYS2(a,b,c) {\ + _slog (sLogCtrl, _adlc_always_logstr,\ + thisFileName,__LINE__,a,b,c);\ + } +#define ADLC_LOG_ALWAYS3(a,b,c,d) {\ + _slog (sLogCtrl, _adlc_always_logstr,\ + thisFileName,__LINE__,a,b,c,d);\ + } +#define ADLC_LOG_ALWAYS4(a,b,c,d,e) {\ + _slog (sLogCtrl, _adlc_always_logstr,\ + thisFileName,__LINE__,a,b,c,d,e);\ + } + +#define ADLC_LOG_ALWAYS5(a,b,c,d,e,f) {\ + _slog (sLogCtrl, _adlc_always_logstr,\ + thisFileName,__LINE__,a,b,c,d,e,f);\ + } +/* 'Continue' versions */ +#define ADLC_LOG_CALWAYS0(a) {\ + _slogc (sLogCtrl,a);\ + } +#define ADLC_LOG_CALWAYS1(a,b) {\ + _slogc (sLogCtrl,a,b);\ + } +#define ADLC_LOG_CALWAYS2(a,b,c) {\ + _slogc (sLogCtrl,a,b,c);\ + } +#define ADLC_LOG_CALWAYS3(a,b,c,d) {\ + _slogc (sLogCtrl,a,b,c,d);\ + } +#define ADLC_LOG_CALWAYS4(a,b,c,d,e) {\ + _slogc (sLogCtrl,a,b,c,d,e);\ + } +#define ADLC_LOG_CALWAYS5(a,b,c,d,e,f) {\ + _slogc (sLogCtrl,a,b,c,d,e,f);\ + } + +#define ADLC_LOG_ALWAYS_HEX(a,b) {\ + _slogHex (sLogCtrl,a,b);\ + } + +/* --------------------------------------------------------------- */ +/* ------------------ SM Logging Macros ------------------ */ + +#define ADLC_LOG_SM0(a) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_SM)\ + _slog (sLogCtrl, _adlc_sm_logstr,\ + thisFileName,__LINE__,a);\ + } +#define ADLC_LOG_SM1(a,b) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_SM)\ + _slog (sLogCtrl, _adlc_sm_logstr,\ + thisFileName,__LINE__,a,b);\ + } +#define ADLC_LOG_SM2(a,b,c) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_SM)\ + _slog (sLogCtrl, _adlc_sm_logstr,\ + thisFileName,__LINE__,a,b,c);\ + } +#define ADLC_LOG_SM3(a,b,c,d) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_SM)\ + _slog (sLogCtrl, _adlc_sm_logstr,\ + thisFileName,__LINE__,a,b,c,d);\ + } +#define ADLC_LOG_SM4(a,b,c,d,e) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_SM)\ + _slog (sLogCtrl, _adlc_sm_logstr,\ + thisFileName,__LINE__,a,b,c,d,e);\ + } + +/* 'Continue' versions */ +#define ADLC_LOG_CSM0(a) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_SM)\ + _slogc (sLogCtrl,a);\ + } +#define ADLC_LOG_CSM1(a,b) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_SM)\ + _slogc (sLogCtrl,a,b);\ + } +#define ADLC_LOG_CSM2(a,b,c) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_SM)\ + _slogc (sLogCtrl,a,b,c);\ + } +#define ADLC_LOG_CSM3(a,b,c,d) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_SM)\ + _slogc (sLogCtrl,a,b,c,d);\ + } +#define ADLC_LOG_CSM4(a,b,c,d,e) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_SM)\ + _slogc (sLogCtrl,a,b,c,d,e);\ + } + +#define ADLC_LOG_SM_HEX(a,b) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_HEXSM)\ + _slogHex (sLogCtrl,a,b);\ + } + +/* --------------------------------------------------------------- */ +/* ------------------ INFO_FRAME Logging Macros ------------------ */ + +#define ADLC_LOG_INFO_FRAME0(a) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_INFO_FRAME)\ + _slog (sLogCtrl, _adlc_info_frame_logstr,\ + thisFileName,__LINE__,a);\ + } +#define ADLC_LOG_INFO_FRAME1(a,b) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_INFO_FRAME)\ + _slog (sLogCtrl, _adlc_info_frame_logstr,\ + thisFileName,__LINE__,a,b);\ + } +#define ADLC_LOG_INFO_FRAME2(a,b,c) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_INFO_FRAME)\ + _slog (sLogCtrl, _adlc_info_frame_logstr,\ + thisFileName,__LINE__,a,b,c);\ + } +#define ADLC_LOG_INFO_FRAME3(a,b,c,d) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_INFO_FRAME)\ + _slog (sLogCtrl, _adlc_info_frame_logstr,\ + thisFileName,__LINE__,a,b,c,d);\ + } +#define ADLC_LOG_INFO_FRAME4(a,b,c,d,e) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_INFO_FRAME)\ + _slog (sLogCtrl, _adlc_info_frame_logstr,\ + thisFileName,__LINE__,a,b,c,d,e);\ + } + +/* 'Continue' versions */ +#define ADLC_LOG_CINFO_FRAME0(a) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_INFO_FRAME)\ + _slogc (sLogCtrl,a);\ + } +#define ADLC_LOG_CINFO_FRAME1(a,b) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_INFO_FRAME)\ + _slogc (sLogCtrl,a,b);\ + } +#define ADLC_LOG_CINFO_FRAME2(a,b,c) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_INFO_FRAME)\ + _slogc (sLogCtrl,a,b,c);\ + } +#define ADLC_LOG_CINFO_FRAME3(a,b,c,d) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_INFO_FRAME)\ + _slogc (sLogCtrl,a,b,c,d);\ + } +#define ADLC_LOG_CINFO_FRAME4(a,b,c,d,e) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_INFO_FRAME)\ + _slogc (sLogCtrl,a,b,c,d,e);\ + } + +#define ADLC_LOG_INFO_FRAME_HEX(a,b) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_HEXINFO_FRAME)\ + _slogHex (sLogCtrl,a,b);\ + } + +/* --------------------------------------------------------------- */ +/* ------------------ USER Logging Macros ------------------ */ + +#define ADLC_LOG_USER0(a) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_USER)\ + _slog (sLogCtrl, _adlc_user_logstr,\ + thisFileName,__LINE__,a);\ + } +#define ADLC_LOG_USER1(a,b) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_USER)\ + _slog (sLogCtrl, _adlc_user_logstr,\ + thisFileName,__LINE__,a,b);\ + } +#define ADLC_LOG_USER2(a,b,c) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_USER)\ + _slog (sLogCtrl, _adlc_user_logstr,\ + thisFileName,__LINE__,a,b,c);\ + } +#define ADLC_LOG_USER3(a,b,c,d) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_USER)\ + _slog (sLogCtrl, _adlc_user_logstr,\ + thisFileName,__LINE__,a,b,c,d);\ + } +#define ADLC_LOG_USER4(a,b,c,d,e) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_USER)\ + _slog (sLogCtrl, _adlc_user_logstr,\ + thisFileName,__LINE__,a,b,c,d,e);\ + } +#define ADLC_LOG_USER5(a,b,c,d,e,f) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_USER)\ + _slog (sLogCtrl, _adlc_user_logstr,\ + thisFileName,__LINE__,a,b,c,d,e,f);\ + } + +/* 'Continue' versions */ +#define ADLC_LOG_CUSER0(a) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_USER)\ + _slogc (sLogCtrl,a);\ + } +#define ADLC_LOG_CUSER1(a,b) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_USER)\ + _slogc (sLogCtrl,a,b);\ + } +#define ADLC_LOG_CUSER2(a,b,c) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_USER)\ + _slogc (sLogCtrl,a,b,c);\ + } +#define ADLC_LOG_CUSER3(a,b,c,d) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_USER)\ + _slogc (sLogCtrl,a,b,c,d);\ + } +#define ADLC_LOG_CUSER4(a,b,c,d,e) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_USER)\ + _slogc (sLogCtrl,a,b,c,d,e);\ + } +#define ADLC_LOG_CUSER5(a,b,c,d,e,f) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_USER)\ + _slogc (sLogCtrl,a,b,c,d,e,f);\ + } +#define ADLC_LOG_USER_HEX(a,b) {\ + if (adlc_debug_sel & ADLC_MASK_LOG_HEXUSER)\ + _slogHex (sLogCtrl,a,b);\ + } + +/* --------------------------------------------------------------- */ +/* ------------------ DEV_FILT Logging Macros ------------------ */ +#if defined(ADLC_LM) +#define ADLC_LOG_DEV_FILT0(x,a) {\ + if (stFiltDevLog.bFilter && stFiltDevLog.address == x)\ + _slog (sLogCtrl, _adlc_io_logstr,\ + thisFileName,__LINE__,a);\ + } +#define ADLC_LOG_DEV_FILT1(x,a,b) {\ + if (stFiltDevLog.bFilter && stFiltDevLog.address == x)\ + _slog (sLogCtrl, _adlc_io_logstr,\ + thisFileName,__LINE__,a,b);\ + } +#define ADLC_LOG_DEV_FILT2(x,a,b,c) {\ + if (stFiltDevLog.bFilter && stFiltDevLog.address == x)\ + _slog (sLogCtrl, _adlc_io_logstr,\ + thisFileName,__LINE__,a,b,c);\ + } +#define ADLC_LOG_DEV_FILT3(x,a,b,c,d) {\ + if (stFiltDevLog.bFilter && stFiltDevLog.address == x)\ + _slog (sLogCtrl, _adlc_io_logstr,\ + thisFileName,__LINE__,a,b,c,d);\ + } +#define ADLC_LOG_DEV_FILT4(x,a,b,c,d,e) {\ + if (stFiltDevLog.bFilter && stFiltDevLog.address == x)\ + _slog (sLogCtrl, _adlc_io_logstr,\ + thisFileName,__LINE__,a,b,c,d,e);\ + } + +/* 'Continue' versions */ +#define ADLC_LOG_CDEV_FILT0(x,a) {\ + if (stFiltDevLog.bFilter && stFiltDevLog.address == x)\ + _slogc (sLogCtrl,a);\ + } +#define ADLC_LOG_CDEV_FILT1(x,a,b) {\ + if (stFiltDevLog.bFilter && stFiltDevLog.address == x)\ + _slogc (sLogCtrl,a,b);\ + } +#define ADLC_LOG_CDEV_FILT2(x,a,b,c) {\ + if (stFiltDevLog.bFilter && stFiltDevLog.address == x)\ + _slogc (sLogCtrl,a,b,c);\ + } +#define ADLC_LOG_CDEV_FILT3(x,a,b,c,d) {\ + if (stFiltDevLog.bFilter && stFiltDevLog.address == x)\ + _slogc (sLogCtrl,a,b,c,d);\ + } +#define ADLC_LOG_CDEV_FILT4(x,a,b,c,d,e) {\ + if (stFiltDevLog.bFilter && stFiltDevLog.address == x)\ + _slogc (sLogCtrl,a,b,c,d,e);\ + } + +#define ADLC_LOG_DEV_FILT_HEX(x,a,b) {\ + if (stFiltDevLog.bFilter && stFiltDevLog.address == x)\ + _slogHex (sLogCtrl,a,b);\ + } +#endif /* ADLC_LM */ +#else /* DEBUG_SISCO not defined */ + +/*----------------------------------------------------------------------- + * Error Logging Macros for Hard( serious ) Errors + *----------------------------------------------------------------------*/ + +#define ADLC_LOG_ERR0(a) +#define ADLC_LOG_ERR1(a,b) +#define ADLC_LOG_ERR2(a,b,c) +#define ADLC_LOG_ERR3(a,b,c,d) +#define ADLC_LOG_ERR4(a,b,c,d,e) +#define ADLC_LOG_ERR5(a,b,c,d,e,f) + +#define ADLC_LOG_CERR0(a) +#define ADLC_LOG_CERR1(a,b) +#define ADLC_LOG_CERR2(a,b,c) +#define ADLC_LOG_CERR3(a,b,c,d) +#define ADLC_LOG_CERR4(a,b,c,d,e) + +#define ADLC_LOG_ERR_HEX(a,b) + +/*----------------------------------------------------------------------- + * Logging Macros for on Errors + *----------------------------------------------------------------------*/ + +#define ADLC_LOG_NERR0(a) +#define ADLC_LOG_NERR1(a,b) +#define ADLC_LOG_NERR2(a,b,c) +#define ADLC_LOG_NERR3(a,b,c,d) +#define ADLC_LOG_NERR4(a,b,c,d,e) + +#define ADLC_LOG_CNERR0(a) +#define ADLC_LOG_CNERR1(a,b) +#define ADLC_LOG_CNERR2(a,b,c) +#define ADLC_LOG_CNERR3(a,b,c,d) +#define ADLC_LOG_CNERR4(a,b,c,d,e) + +#define ADLC_LOG_NERR_HEX(a,b) +/*----------------------------------------------------------------------- + * Flow Logging Macros + *----------------------------------------------------------------------*/ + +#define ADLC_LOG_FLOW0(a) +#define ADLC_LOG_FLOW1(a,b) +#define ADLC_LOG_FLOW2(a,b,c) +#define ADLC_LOG_FLOW3(a,b,c,d) +#define ADLC_LOG_FLOW4(a,b,c,d,e) +#define ADLC_LOG_FLOW5(a,b,c,d,e,f) + +#define ADLC_LOG_CFLOW0(a) +#define ADLC_LOG_CFLOW1(a,b) +#define ADLC_LOG_CFLOW2(a,b,c) +#define ADLC_LOG_CFLOW3(a,b,c,d) +#define ADLC_LOG_CFLOW4(a,b,c,d,e) +#define ADLC_LOG_CFLOW5(a,b,c,d,e,f) + +#define ADLC_LOG_FLOW_HEX(a,b) +/*----------------------------------------------------------------------- + * I/O Logging Macros + *----------------------------------------------------------------------*/ + +#define ADLC_LOG_IO0(a) +#define ADLC_LOG_IO1(a,b) +#define ADLC_LOG_IO2(a,b,c) +#define ADLC_LOG_IO3(a,b,c,d) +#define ADLC_LOG_IO4(a,b,c,d,e) + +#define ADLC_LOG_CIO0(a) +#define ADLC_LOG_CIO1(a,b) +#define ADLC_LOG_CIO2(a,b,c) +#define ADLC_LOG_CIO3(a,b,c,d) +#define ADLC_LOG_CIO4(a,b,c,d,e) + +#define ADLC_LOG_IO_HEX(a,b) + +/*----------------------------------------------------------------------- + * Debug Logging Macros + *----------------------------------------------------------------------*/ + +#define ADLC_LOG_DEBUG0(a) +#define ADLC_LOG_DEBUG1(a,b) +#define ADLC_LOG_DEBUG2(a,b,c) +#define ADLC_LOG_DEBUG3(a,b,c,d) +#define ADLC_LOG_DEBUG4(a,b,c,d,e) + +#define ADLC_LOG_CDEBUG0(a) +#define ADLC_LOG_CDEBUG1(a,b) +#define ADLC_LOG_CDEBUG2(a,b,c) +#define ADLC_LOG_CDEBUG3(a,b,c,d) +#define ADLC_LOG_CDEBUG4(a,b,c,d,e) + +#define ADLC_LOG_DEBUG_HEX(a,b) + +/*----------------------------------------------------------------------- + * Always Logging Macros + *----------------------------------------------------------------------*/ + +#define ADLC_LOG_ALWAYS0(a) +#define ADLC_LOG_ALWAYS1(a,b) +#define ADLC_LOG_ALWAYS2(a,b,c) +#define ADLC_LOG_ALWAYS3(a,b,c,d) +#define ADLC_LOG_ALWAYS4(a,b,c,d,e) +#define ADLC_LOG_ALWAYS5(a,b,c,d,e,f) + +#define ADLC_LOG_CALWAYS0(a) +#define ADLC_LOG_CALWAYS1(a,b) +#define ADLC_LOG_CALWAYS2(a,b,c) +#define ADLC_LOG_CALWAYS3(a,b,c,d) +#define ADLC_LOG_CALWAYS4(a,b,c,d,e) +#define ADLC_LOG_CALWAYS5(a,b,c,d,e,f) + +#define ADLC_LOG_ALWAYS_HEX(a,b) + +/*----------------------------------------------------------------------- + * Serial Manager Logging Macros + *----------------------------------------------------------------------*/ + +#define ADLC_LOG_SM0(a) +#define ADLC_LOG_SM1(a,b) +#define ADLC_LOG_SM2(a,b,c) +#define ADLC_LOG_SM3(a,b,c,d) +#define ADLC_LOG_SM4(a,b,c,d,e) + +#define ADLC_LOG_CSM0(a) +#define ADLC_LOG_CSM1(a,b) +#define ADLC_LOG_CSM2(a,b,c) +#define ADLC_LOG_CSM3(a,b,c,d) +#define ADLC_LOG_CSM4(a,b,c,d,e) + +#define ADLC_LOG_SM_HEX(a,b) + +/*----------------------------------------------------------------------- + * INFO_FRAME Logging Macros + *----------------------------------------------------------------------*/ + +#define ADLC_LOG_INFO_FRAME0(a) +#define ADLC_LOG_INFO_FRAME1(a,b) +#define ADLC_LOG_INFO_FRAME2(a,b,c) +#define ADLC_LOG_INFO_FRAME3(a,b,c,d) +#define ADLC_LOG_INFO_FRAME4(a,b,c,d,e) + +#define ADLC_LOG_CINFO_FRAME0(a) +#define ADLC_LOG_CINFO_FRAME1(a,b) +#define ADLC_LOG_CINFO_FRAME2(a,b,c) +#define ADLC_LOG_CINFO_FRAME3(a,b,c,d) +#define ADLC_LOG_CINFO_FRAME4(a,b,c,d,e) + +#define ADLC_LOG_INFO_FRAME_HEX(a,b) + +/*----------------------------------------------------------------------- + * USER Logging Macros + *----------------------------------------------------------------------*/ + +#define ADLC_LOG_USER0(a) +#define ADLC_LOG_USER1(a,b) +#define ADLC_LOG_USER2(a,b,c) +#define ADLC_LOG_USER3(a,b,c,d) +#define ADLC_LOG_USER4(a,b,c,d,e) +#define ADLC_LOG_USER5(a,b,c,d,e,f) + +#define ADLC_LOG_CUSER0(a) +#define ADLC_LOG_CUSER1(a,b) +#define ADLC_LOG_CUSER2(a,b,c) +#define ADLC_LOG_CUSER3(a,b,c,d) +#define ADLC_LOG_CUSER4(a,b,c,d,e) +#define ADLC_LOG_CUSER5(a,b,c,d,e,f) + +#define ADLC_LOG_USER_HEX(a,b) + +/*----------------------------------------------------------------------- + * DEV_FILT Logging Macros + *----------------------------------------------------------------------*/ + +#define ADLC_LOG_DEV_FILT0(x,a) +#define ADLC_LOG_DEV_FILT1(x,a,b) +#define ADLC_LOG_DEV_FILT2(x,a,b,c) +#define ADLC_LOG_DEV_FILT3(x,a,b,c,d) +#define ADLC_LOG_DEV_FILT4(x,a,b,c,d,e) + +#define ADLC_LOG_CDEV_FILT0(x,a) +#define ADLC_LOG_CDEV_FILT1(x,a,b) +#define ADLC_LOG_CDEV_FILT2(x,a,b,c) +#define ADLC_LOG_CDEV_FILT3(x,a,b,c,d) +#define ADLC_LOG_CDEV_FILT4(x,a,b,c,d,e) + +#define ADLC_LOG_DEV_FILT_HEX(x,a,b) + +#endif /* for DEBUG_SISCO */ + +#ifdef __cplusplus +} +#endif + +#endif /* ADLC_LOG_INCLUDED */ + diff --git a/mmslib/inc/adlc_sm.h b/mmslib/inc/adlc_sm.h new file mode 100644 index 0000000..1eecba1 --- /dev/null +++ b/mmslib/inc/adlc_sm.h @@ -0,0 +1,317 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1995-2002, All Rights Reserved */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : adlc_sm.h */ +/* PRODUCT(S) : ADLC */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains functions that provide for serial port communi- */ +/* cations for the Digiboard. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* ST_INT sm_init(port,baud,parity,data,stop) */ +/* ST_INT sm_exit(port) */ +/* ST_INT sm_put (port,len,buffer) */ +/* ST_INT sm_putc (port,ch) */ +/* ST_INT sm_rx_cnt (port) */ +/* ST_INT sm_get (port,packet,toRead,bytesRead) */ +/* ST_INT sm_getc (port) */ +/* ST_INT sm_rx_flush(port) */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 11/24/02 KCR 12 Added rdThreadError handling semaphore */ +/* 04/20/98 IKE 11 Moved u_smp_record_time in Serial Manager */ +/* 10/06/97 IKE 10 Added more baud rates */ +/* 09/18/97 IKE 09 Added telephone support */ +/* 05/12/97 IKE 08 Changed to MMSEASE 7.0 Data Types */ +/* 02/03/97 IKE 07 adlcCfg per port basis */ +/* CFG_PORT also for DOS so multiple ports can */ +/* be initialized in dos platform */ +/* 09/19/96 IKE 06 Rearranged sm_get and sm_set functions */ +/* 08/22/96 IKE 05 Added sm_get_dcd for contention avoidance */ +/* 06/11/96 IKE 04 Added more functions to check RS232 signals */ +/* 05/22/96 IKE 03 Added functions to control RS232 signals */ +/* 04/04/96 rkr 02 Cleanup */ +/* 11/12/95 IKE 1 Created */ +/************************************************************************/ + +#ifndef _ADLC_SM_H_ +#define _ADLC_SM_H_ + +#ifdef __cplusplus +extern "C" { +#endif + +#define COM1 0 /* Async Adapter COM1: */ +#define COM2 1 /* Async Adapter COM2: */ +#define COM3 2 /* Async Adapter COM3: */ +#define COM4 3 /* Async Adapter COM4: */ +#define COM5 4 /* Async Adapter COM5: */ +#define COM6 5 /* Async Adapter COM6: */ +#define COM7 6 /* Async Adapter COM7: */ +#define COM8 7 /* Async Adapter COM8: */ +#define COM9 8 /* Async Adapter COM9: */ +#define COM10 9 /* Async Adapter COM10: */ +#define COM11 10 /* ETC. */ +#define COM12 11 +#define COM13 12 +#define COM14 13 +#define COM15 14 +#define COM16 15 +#define COM17 16 +#define COM18 17 +#define COM19 18 +#define COM20 19 +#define COM21 20 +#define COM22 21 +#define COM23 22 +#define COM24 23 +#define COM25 24 +#define COM26 25 +#define COM27 26 +#define COM28 27 +#define COM29 28 +#define COM30 29 +#define COM31 30 +#define COM32 31 +#define COM33 32 +#define COM34 33 + +#define LOW 0 +#define HIGH 1 + +ST_RET sm_init (ST_INT,ST_INT,ST_INT,ST_INT,ST_INT); +ST_RET sm_exit (ST_INT); +ST_RET sm_put (ST_INT,ST_INT, ST_CHAR *); +ST_RET sm_putc (ST_INT, ST_CHAR); +ST_INT sm_rx_cnt (ST_INT port); +ST_INT sm_tx_cnt (ST_INT port); +ST_RET sm_get (ST_INT,ST_CHAR *,ST_INT,ST_INT *); +ST_INT sm_getc (ST_INT); +ST_VOID sm_rx_flush (ST_INT); +ST_RET sm_set_signals (ST_INT port); +ST_RET sm_clear_signals (ST_INT port); +ST_RET sm_set_rts (ST_INT port); +ST_RET sm_clear_rts (ST_INT port); +ST_RET sm_set_dtr (ST_INT port); +ST_RET sm_clear_dtr (ST_INT port); +ST_RET sm_set_rts_clear_dtr(ST_INT port); +ST_RET sm_clear_rts_set_dtr(ST_INT port); +ST_INT sm_get_rts (ST_INT port); +ST_INT sm_get_dtr (ST_INT port); +ST_INT sm_get_cts (ST_INT port); +ST_INT sm_get_dsr (ST_INT port); +ST_INT sm_get_dcd (ST_INT port); + +#if !defined(ADLC_LM) +/* The INIT (ah=00, Int 14h) communications parameters */ + +#define BAUD110 0 /* Baud rate 110 */ +#define BAUD150 1 /* Baud rate 150 */ +#define BAUD300 2 /* Baud rate 300 */ +#define BAUD600 3 /* Baud rate 600 */ +#define BAUD1200 4 /* Baud rate 1200 */ +#define BAUD2400 5 /* Baud rate 2400 */ +#define BAUD4800 6 /* Baud rate 4800 */ +#define BAUD9600 7 /* Baud rate 9600 */ +#define BAUD19200 8 /* Baud rate 19200 */ +#define BAUD38400 9 /* Baud rate 38400 */ +#define BAUD57K 10 /* Baud rate 57.4K */ +#define BAUD115K 11 /* Baud rate 115.2K */ +#define BAUD56K 12 /* Baud rate 56K */ +#define BAUD128K 13 /* Baud rate 128K */ +#define BAUD256K 14 /* Baud rate 256K */ + +#define DATA7 0 /* Data bits 7 */ +#define DATA8 1 /* Data bits 8 */ + +#define NOPAR 0 /* Parity none */ +#define ODDPAR 1 /* Parity odd */ +#define EVENPAR 2 /* Parity even */ + +#define STOP1 0 /* Stop bits 1 */ +#define STOP2 1 /* Stop bits 2 */ + +#endif /* !ADLC_LM */ + +#if defined(ADLC_LM) +/* Request OpCode Definitions */ +#define SM_INITIALIZE_PORT_REQ 0 /* open the port */ +#define SM_TERMINATE_PORT_REQ 1 /* close the port */ +#define SM_READ_REQ 2 /* read from the port */ +#define SM_WRITE_REQ 3 /* write to the port */ +#define SM_IN_BYTE_COUNT_REQ 4 /* check the input Q */ +#define SM_OUT_BYTE_COUNT_REQ 5 /* check the output Q */ +#define SM_GET_STATUS_REQ 6 /* get modem status */ +#define SM_SET_STATUS_REQ 7 /* set modem status */ +#define SM_RX_FLUSH_REQ 8 /* flush recieve buffer */ +#define SM_GET_FRAME_REQ 9 /* respond to frameArr */ + +/* Request Error Code Definitions */ +#define SM_NO_ERR 0 +#define SM_INIT_ERR 1 +#define SM_TX_ERR 2 +#define SM_RX_ERR 3 +#define SM_INVALID_REQ 4 +#define SM_PORT_ALREADY_OPEN 5 +#define SM_OPEN_ERROR 6 +#define SM_SET_BAUD_FAILURE 7 +#define SM_SET_LINE_FAILURE 8 +#define SM_SET_FLOW_FAILURE 9 +#define SM_PORT_NOT_OPEN 10 +#define SM_INVALID_PARAM 11 +#define SM_ERROR 12 +#define SM_NO_FRAMES_AVAILABLE 13 +#define SM_NO_WRITE_CONF_AVIAL 14 +#define SM_SEM_OPEN_FAILURE 15 +#define SM_TERMINATED 16 + +/* Request Status Code Definitions */ +#define SM_COMPLETED 0 +#define SM_PENDING 1 +#define SM_UNDERWAY 2 +#define SM_ABORTED 3 +#define SM_FAILED 4 +#define SM_TX_RX_IN_PROCESS 5 /* pend TX & RX on terminate*/ +#define SM_TX_IN_PROCESS 6 /* pending TX on terminate */ +#define SM_RX_IN_PROCESS 7 /* pending RX on terminate */ + +/* Request Specific Structures */ +typedef struct smRdwrReq + { + ST_INT len; /* num of bytes to read or write */ + ST_CHAR *data; /* user allocates and frees for read or */ + }SM_RDWR_REQ; /* write */ + +typedef struct smFrameReq + { + ST_INT port; /* port the frame was received from */ + ST_INT len; /* frame length */ + ST_CHAR *data; /* SM allocates - user frees!!! */ +#if defined(UCA_SMP) + ST_CHAR recTime[SMP_SIZE_OF_REC_TIME]; /* buffer to hold time stamp */ +#endif + }SM_FRAME_REQ; + +typedef struct smLineParam + { + ST_INT baudRate; /* 300, 1200, 4800, 9600, 19.2, 38.4, 57.6 */ + ST_INT dataBits; /* 5, 6, 7, 8 */ + ST_INT parity; /* 0=none, 1=odd, 2=even, 3=mark, 4=space */ + ST_INT stopBits; /* 0=>1, 1=>1.5 stop bits, 2=>2 */ + }SM_LINE_PARAM; + +typedef struct smHandShake + { + ST_BOOLEAN enableDTR; /* enable DTR input handshaking */ + ST_BOOLEAN enableCTS; /* enable CTS output handshaking */ + ST_BOOLEAN enableDSRout; /* enable DSR output handshaking */ + ST_BOOLEAN enableDCD; /* enable DCD output handshaking */ + ST_BOOLEAN enableDSRin; /* enable DSR input sensitivity */ + ST_BOOLEAN enableRTS; /* enable RTS input handshaking */ + }SM_HAND_SHAKE; + +typedef struct smFlowCtrl + { + ST_BOOLEAN enableTxFlow; /* enable auto transmit XON/XOFF */ + ST_BOOLEAN enableRxFlow; /* enable auto receive XON/XOFF */ + ST_UCHAR xonChar; /* usually 0x11 */ + ST_UCHAR xoffChar; /* usually 0x13 */ + }SM_FLOW_CTRL; + +typedef struct smInitReq + { + SM_LINE_PARAM initLineParam; + SM_HAND_SHAKE initHandShake; + SM_FLOW_CTRL initFlowCtrl; + HANDLE hCom; + ST_INT frameLen; + ST_UCHAR sof; + ST_UCHAR eof; + HEV txDoneSem; + HEV frameArrivalSem; + HEV rdThreadErrSem; + }SM_INIT_REQ; + +typedef struct smStatusReq + { + ST_BOOLEAN dtr; + ST_BOOLEAN rts; + ST_BOOLEAN dcd; + ST_BOOLEAN cts; + ST_BOOLEAN dsr; + }SM_STATUS_REQ; + +/************************************************************************/ +/* SM_REQ */ +/* Every request to serial Manager uses this data structure */ +/************************************************************************/ +typedef struct smReq + { + struct dbl_lnk l; + ST_INT opCode; /* operation requested */ + ST_INT status; + ST_INT errCode; + ST_INT port; + union + { + SM_RDWR_REQ readWriteReq; + SM_INIT_REQ initReq; + SM_STATUS_REQ setStatReq; + } i; /* input data */ + union + { + SM_RDWR_REQ readReq; + SM_STATUS_REQ getStatReq; + ST_INT byteCount; + SM_FRAME_REQ frameArrReq; + }o; /* output data */ + }SM_REQ; + +/* serial manager user access functions */ +ST_RET sm_get_status (ST_INT port,SM_REQ *pstReq); +ST_VOID sm_set_status(ST_INT port, SM_REQ *pstReq); +ST_RET _SmInitialize(ST_VOID); /* startup code */ +ST_RET _SmRequest(SM_REQ *); /* service user requests */ +ST_VOID _SmTerminate(ST_VOID); /* cleanup code */ + +#ifdef ADLC_TESTING +ST_VOID _SmShowStats(ST_INT port); +#endif + +#endif /* ADLC_LM */ + +/************************************************************************/ +/* CFG_PORT */ +/* This data structure is used only when reading the configuration File */ +/* and when opening a port, after that it is not used any more */ +/************************************************************************/ +typedef struct cfgPortStuff + { + struct dbl_lnk l; + ST_INT port; +#if !defined(ADLC_LM) + ST_INT baud; + ST_INT parity; + ST_INT data; + ST_INT stop; +#endif +#if defined(ADLC_LM) + SM_LINE_PARAM stLineParam; + SM_HAND_SHAKE stHandShake; + SM_FLOW_CTRL stFlowCtrl; +#endif + }CFG_PORT; + +#ifdef __cplusplus +} +#endif + +#endif /* adlc_sm.h already included */ diff --git a/mmslib/inc/adlc_sts.h b/mmslib/inc/adlc_sts.h new file mode 100644 index 0000000..795942e --- /dev/null +++ b/mmslib/inc/adlc_sts.h @@ -0,0 +1,82 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1995-1996, All Rights Reserved */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : adlc_sts.h */ +/* PRODUCT(S) : ADLC */ +/* */ +/* MODULE DESCRIPTION : This header file defines data structures */ +/* and types for rli adlc link manager. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 07/16/97 IKE 05 Added device statistics and device filt log */ +/* 05/12/97 IKE 04 Changed to MMSEASE 7.0 Data Types */ +/* 04/10/97 EJV 03 Deletes defines ADLC_MASTER, ADLC_SLAVE */ +/* 10/23/96 IKE 02 Added statsResetTime */ +/* 09/30/96 IKE 01 Created */ +/************************************************************************/ + +#ifndef ADLC_STS_H +#define ADLC_STS_H + +#ifdef __cplusplus +extern "C" { +#endif + +/************************************************************************/ + +/************************************************************************/ +typedef struct tagAdlcStats + { + ST_LONG statsResetTime; /* time stats last reset */ + ST_ULONG txFrames; /* Total transmitted Frames */ + ST_ULONG rxFrames; /* Total received Frames */ + ST_ULONG goodFrames; /* Total good frames received */ + ST_ULONG badFrames; /* Total bad frames when sof was ok */ + ST_ULONG discardedBytes; /* Total discarded bytes */ + ST_ULONG mCastFrames; /* Total Multicast Frames */ + ST_ULONG txPackets; /* Total Transmitted MMS LSDU */ + ST_ULONG rxPackets; /* Total Received MMS LSDU */ + ST_ULONG rxInfo; /* Total Received INFO frames */ + ST_ULONG rxRr; /* Total Received RR frames */ + ST_ULONG rxRnr; /* Total Received RNR frames */ + ST_ULONG rxRej; /* Total Received REJ frames */ + ST_ULONG rxUi; /* Total Received UI frames */ + ST_ULONG txUFrames; /* Total Transmitted Unumbered frames */ + ST_ULONG txSFrames; /* Total Transmitted Supervisory frames */ + ST_ULONG txMFrames; /* Total Transmitted Multicast frames */ + ST_ULONG txIFrames; /* Total Transmitted INFO frames */ + ST_ULONG txUiFrames; /* Total Received UI frames */ + ST_ULONG timeout; /* Total Timeouts */ + ST_ULONG retransmits; /* Total retransmit INFO frames */ + ST_ULONG rxUa; /* Total Received UA frames */ + ST_ULONG rxRd; /* Total Received RD frames */ + ST_ULONG rxDm; /* Total Received DM frames */ + ST_ULONG rxFrmr; /* Total Received FRMR frames */ + ST_ULONG txRFrames; /* Total Received Redirect frames */ + ST_ULONG rxSnrm; /* Total Received SNRM frames */ + ST_ULONG rxDisc; /* Total Received DISC frames */ + } ADLC_STATS; + +#if defined(__OS2__) || defined(_WIN32) +typedef struct tagAdlcDevStats + { + ST_ULONG txFrames; /* Total transmitted Frames */ + ST_ULONG rxFrames; /* Total received Frames */ + ST_ULONG timeout; /* Total Timeouts */ + ST_ULONG retransmits; /* Total retransmitted INFO frames */ + } ADLC_DEV_STATS; +#endif + +#ifdef __cplusplus +} +#endif + +#endif /* ADLC_STS.H already included */ + diff --git a/mmslib/inc/adlc_usr.h b/mmslib/inc/adlc_usr.h new file mode 100644 index 0000000..eec47f4 --- /dev/null +++ b/mmslib/inc/adlc_usr.h @@ -0,0 +1,441 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1995-1997, All Rights Reserved */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : adlc_usr.h */ +/* PRODUCT(S) : ADLC */ +/* */ +/* MODULE DESCRIPTION : This header file defines data structures */ +/* and types for ADLC */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 09/05/03 EJV 21 Chg mms_debug_sel to ST_UINT, and deleted */ +/* L suffix from MMS_LOG_... masks. */ +/* 10/17/01 JRB 20 Del #ifdef UCA_SMP */ +/* 02/04/99 JRB 19 Added adlcStartLinkMan.. */ +/* 10/08/98 MDE 18 Removed ADLC_MASK_LOG_ALWAYS */ +/* 10/21/97 IKE 17 Changed OSI_ADDR to LOCAL_ADDR in error codes*/ +/* 10/14/97 IKE 16 Split into two modules and put all the ipc */ +/* specific stuff into adlc_ipc.h */ +/* 10/1/97 IKE 15 Removed ADLC_LM define if _WIN32 or OS2 is */ +/* defined */ +/* 09/26/97 IKE 14 Added ADLC_M_LOCAL_BASE_ADDR */ +/* 09/22/97 IKE 13 Added SMP(Station Managment Protocol) support*/ +/* 09/18/97 IKE 12 Added telephone support */ +/* 07/16/97 IKE 11 Added support for new ADLC commands */ +/* adlcGetDevStats and adlcFilterDevLog. */ +/* 05/12/97 IKE 10 Changed to MMSEASE 7.0 Data Types */ +/* 04/10/97 EJV 09 Replaced error codes base 0x06xx with 0xA6xx */ +/* 03/13/97 EJV 08 Changes for BRIDGE-132-095 (COGW,RSGW,MCGW): */ +/* - added adlcLogState function; */ +/* 02/24/97 IKE 07 Moved the log masks defn from adlc_log.h */ +/* 01/22/97 IKE 06 Put prototypes for adlcOpenInterface and */ +/* adlcCloseInterface */ +/* 12/03/96 IKE 05 WIN32 Support */ +/* 09/30/96 IKE 04 Removed ifdef PLAIN_DOS for adlcRead func */ +/* so Lean-t stack can use same funct for OS2 */ +/* 05/22/96 IKE 03 Added some more error codes */ +/* 04/04/96 rkr 02 Cleanup */ +/* 01/02/96 IKE 01 Created */ +/************************************************************************/ + +#ifndef ADLC_USR_H +#define ADLC_USR_H + +#ifdef __cplusplus +extern "C" { +#endif + +#include "adlc_sts.h" + +#include "smp_usr.h" + +#define ADLC_ALL_ES 0x8080 /* ES-Hello Multicast Address */ +#define ADLC_ALL_IS 0x8081 /* IS-Hello Multicast Address */ +#define ALL_STATIONS_ADDR 0xFFFF /* Broadcast Address */ +#define NO_STATION_ADDR 0x0000 /* No station address */ +#define ADLC_M_BASE_LOC_ADDR 0x2000 /* For Adlc Master local Addr */ +#define ADLC_USR_M_BASE_LOC_ADDR 0x3000 /* For user apps local adlc addr*/ + +#define CMD_BASE_ADLC_LM 600 + +/****************************************************************/ +/* Log Control */ +/****************************************************************/ +/* adlc logging mask */ +#define ADLC_MASK_LOG_ERR 0x00010000 +#define ADLC_MASK_LOG_NERR 0x00020000 +#define ADLC_MASK_LOG_FLOW 0x00040000 +#define ADLC_MASK_LOG_IO 0x00080000 +#define ADLC_MASK_LOG_HEXIO 0x00100000 +#define ADLC_MASK_LOG_DEBUG 0x00200000 +#define ADLC_MASK_LOG_HEXDEBUG 0x00400000 +#define ADLC_MASK_LOG_SM 0x01000000 +#define ADLC_MASK_LOG_HEXSM 0x02000000 +#define ADLC_MASK_LOG_INFO_FRAME 0x04000000 +#define ADLC_MASK_LOG_HEXINFO_FRAME 0x08000000 +#define ADLC_MASK_LOG_USER 0x10000000 +#define ADLC_MASK_LOG_HEXUSER 0x20000000 + +extern ST_UINT adlc_debug_sel; +/****************************************************************/ +/* ADLC Command OpCodes */ +/****************************************************************/ + +#define ADLC_CMD_CONNECT_NODE (CMD_BASE_ADLC_LM + 1) +#define ADLC_CMD_DISCONNECT_NODE (CMD_BASE_ADLC_LM + 2) +#define ADLC_CMD_CONNECT_NODE_DONE (CMD_BASE_ADLC_LM + 3) +#define ADLC_CMD_DISCONNECT_NODE_DONE (CMD_BASE_ADLC_LM + 4) +#define ADLC_CMD_CONNECT_ALL (CMD_BASE_ADLC_LM + 5) +#define ADLC_CMD_DISCONNECT_ALL (CMD_BASE_ADLC_LM + 6) +#define ADLC_CMD_WRITE_PACKET (CMD_BASE_ADLC_LM + 7) +#define ADLC_CMD_GET_CON_STATUS (CMD_BASE_ADLC_LM + 8) +#define ADLC_CMD_ADD_DEV (CMD_BASE_ADLC_LM + 9) +#define ADLC_CMD_REMOVE_DEV (CMD_BASE_ADLC_LM + 10) +#define ADLC_CMD_START_POLL_DEV (CMD_BASE_ADLC_LM + 11) +#define ADLC_CMD_STOP_POLL_DEV (CMD_BASE_ADLC_LM + 12) +#define ADLC_CMD_CHANGE_POLL_RATE (CMD_BASE_ADLC_LM + 13) +#define ADLC_CMD_QUERY_POLL_INFO (CMD_BASE_ADLC_LM + 14) + +/* #if ADLC_LM */ +#define ADLC_CMD_SET_SM_SLEEP (CMD_BASE_ADLC_LM + 15) +#define ADLC_CMD_GET_SM_SLEEP (CMD_BASE_ADLC_LM + 16) +#define ADLC_CMD_GET_DEV_STATS (CMD_BASE_ADLC_LM + 17) +#define ADLC_CMD_FILTER_DEV_LOG (CMD_BASE_ADLC_LM + 18) +#define ADLC_CMD_ADD_PORT (CMD_BASE_ADLC_LM + 19) +#define ADLC_CMD_REMOVE_PORT (CMD_BASE_ADLC_LM + 20) +#define ADLC_CMD_TEL_DIAL (CMD_BASE_ADLC_LM + 21) +#define ADLC_CMD_TEL_DIAL_DONE (CMD_BASE_ADLC_LM + 22) +#define ADLC_CMD_TEL_HANGUP (CMD_BASE_ADLC_LM + 23) +#define ADLC_CMD_TEL_HANGUP_DONE (CMD_BASE_ADLC_LM + 24) +/* #endif ADLC_LM */ + +#define ADLC_CMD_EXT_WRITE_PACKET (CMD_BASE_ADLC_LM + 25) +#define ADLC_CMD_EXT_WRITE_PACKET_DONE (CMD_BASE_ADLC_LM + 26) + +#define ADLC_CMD_WRITE_PACKET_DONE (CMD_BASE_ADLC_LM + 27) + + +#define ADLC_DEV_NAME_SIZE 80 + +/************************************************************************/ +/* ADLC_CONNECT_NODE */ +/* This is a bidirectional event */ +/* This could be an event from stack to ADLC and vice versa */ +/************************************************************************/ +typedef struct tagAdlcConnectNode + { + struct + { + ST_UINT16 localAddr; /* OSI node address */ + ST_UINT16 remoteAddr; /* ADLC device address */ + ST_ULONG usr1; /* user data */ + } i; + } ADLC_CONNECT_NODE; + +/************************************************************************/ +/* ADLC_DISCONNECT_NODE */ +/* This is a bidirectional event */ +/* This could be an event from stack to ADLC and vice versa */ +/************************************************************************/ + +typedef ADLC_CONNECT_NODE ADLC_DISCONNECT_NODE; + + +/************************************************************************/ +/* ADLC_CONNECT_NODE_DONE */ +/* This is event from ADLC to stack */ +/************************************************************************/ + +typedef ADLC_CONNECT_NODE ADLC_CONNECT_NODE_DONE; + +/************************************************************************/ +/* ADLC_DISCONNECT_NODE_DONE */ +/* This is event from ADLC to stack */ +/************************************************************************/ +typedef ADLC_CONNECT_NODE ADLC_DISCONNECT_NODE_DONE; + +/************************************************************************/ +/* ADLC_CONNECT_ALL */ +/* This is an event from stack to ADLC */ +/************************************************************************/ +typedef struct tagAdlcConnectAll + { + struct + { + ST_UINT16 localAddr; /* OSI node address */ + ST_ULONG usr1; /* user data */ + } i; + } ADLC_CONNECT_ALL; + +/************************************************************************/ +/* ADLC_DISCONNECT_ALL */ +/* This is an event from stack to ADLC */ +/************************************************************************/ +typedef ADLC_CONNECT_ALL ADLC_DISCONNECT_ALL; + +/************************************************************************/ +/* ADLC_WRITE_PACKET */ +/* This is a bidirectional event */ +/* This could be an event from stack to ADLC and vice versa */ +/************************************************************************/ +typedef struct tagAdlcWritePacket + { + struct /* input parameters */ + { + ST_UINT16 remoteAddr; /* device where data is going */ + ST_UINT16 localAddr; /* device where data comes from */ + ST_INT dataSize; + ST_VOID *data; /* allocated memory */ + ST_ULONG usr1; /* user data */ + } i; + } ADLC_WRITE_PACKET; + +/************************************************************************/ +/* ADLC_WRITE_PACKET_DONE */ +/* This is an event from ADLC to stack */ +/************************************************************************/ +typedef ADLC_WRITE_PACKET ADLC_WRITE_PACKET_DONE; + +/************************************************************************/ +/* ADLC_GET_CON_STATUS */ +/* This is an event from any task to ADLC */ +/************************************************************************/ + +#define ADLC_CON_STATUS_ONLINE 1 +#define ADLC_CON_STATUS_OFFLINE 2 +#define ADLC_CON_STATUS_UNKNOWN 3 + +typedef struct tagAdlcGetConStat + { + struct /* input parameters */ + { + ST_UINT16 remoteAddr; /* ADLC device /remote addr */ + ST_UINT16 localAddr; /* OSI node / local addr */ + } i; + struct /* output parameters */ + { + ST_INT conStatusOut; + } o; + } ADLC_GET_CON_STATUS; + +#define ADLC_NO_POLLING 0 +#define ADLC_POLL_FREQ_HI 1 +#define ADLC_POLL_FREQ_MED 2 +#define ADLC_POLL_FREQ_LOW 3 + +/************************************************************************/ +/* ADLC_ADD_DEV */ +/* This is an event from any task to ADLC */ +/************************************************************************/ +typedef struct tagAdlcAddDev + { + struct /* input parameters */ + { + ST_CHAR devName[ADLC_DEV_NAME_SIZE+1]; + ST_UINT16 address; + ST_INT pollGroup; /* defined above */ + ST_INT port; /* what port it belongs to */ + ST_BOOLEAN connectAll; /* should we try to connect it if connectAll issued */ + ST_ULONG usr1; /* user data */ + } i; + } ADLC_ADD_DEV; + +/************************************************************************/ +/* ADLC_REMOVE_DEV */ +/* This is an event from any task to ADLC */ +/************************************************************************/ +typedef struct tagAdlcRemoveDev + { + struct /* input parameters */ + { + ST_CHAR devName[ADLC_DEV_NAME_SIZE+1]; + ST_ULONG usr1; /* user data */ + } i; + } ADLC_REMOVE_DEV; + +/************************************************************************/ +/* ADLC_START_POLL_DEV */ +/* This is an event from any task to ADLC */ +/************************************************************************/ +typedef struct tagAdlcStartPollDev + { + struct /* input parameters */ + { + ST_CHAR devName[ADLC_DEV_NAME_SIZE+1]; + ST_ULONG usr1; /* user data */ + } i; + } ADLC_START_POLL_DEV; + +/************************************************************************/ +/* ADLC_STOP_POLL_DEV */ +/* This is an event from any task to ADLC */ +/************************************************************************/ +typedef struct tagAdlcStopPollDev + { + struct /* input parameters */ + { + ST_CHAR devName[ADLC_DEV_NAME_SIZE+1]; + ST_ULONG usr1; /* user data */ + } i; + } ADLC_STOP_POLL_DEV; + +/************************************************************************/ +/* ADLC_CHANGE_POLL_RATE */ +/* This is an event from any task to ADLC */ +/************************************************************************/ +/* Notes on changing the poll rate for a device: + To poll the device more frequently set + pollFreqDelta = ADLC_INC_POLL_FREQ; + The device will be moved to the poll group that polls more + frequently. + + Example: current pollGroup=3 with pollRate=n seconds + new pollGroup=2 with pollRate=n-m seconds + + Reverse the above discussion to decrease the polling frequency. */ + +#define ADLC_INC_POLL_FREQ 1 +#define ADLC_DEC_POLL_FREQ 2 + +typedef struct tagAdlcChangePollRate + { + struct /* input parameters */ + { + ST_CHAR devName[ADLC_DEV_NAME_SIZE+1]; + ST_INT pollFreqDelta; /* change to poll freq as */ + ST_ULONG usr1; /* user data */ + } i; /* defined above */ + } ADLC_CHANGE_POLL_RATE; + +/************************************************************************/ +/* ADLC_QUERY_POLL_INFO */ +/* This is an event from any task to ADLC */ +/************************************************************************/ +/* Notes on Polling: + Poll groups range from 1 to n (as of 01/17/96 n=3). All devices + associated with a poll group are polled at the pollRate set for + the poll group. The smaller the poll group the more frequently + the devices are polled. */ + +typedef struct tagQueryPollInfo + { + struct /* input parameters */ + { + ST_CHAR devName[ADLC_DEV_NAME_SIZE+1]; + ST_ULONG usr1; /* user data */ + } i; + struct + { + ST_INT pollGroup; /* current poll group for device*/ + ST_DOUBLE pollRate; /* in mili seconds */ + ST_BOOLEAN bPollingSuspended; /* polling was stopped by user */ + } o; + } ADLC_QUERY_POLL_INFO; + +/************************************************************************/ +/* ADLC_EXT_WRITE_PACKET */ +/* This is a bidirectional event */ +/* This could be an event from stack to ADLC and vice versa */ +/************************************************************************/ +typedef struct tagAdlcExtWritePacket + { + struct /* input parameters */ + { + ST_UINT16 remoteAddr; /* device where data is going */ + ST_UINT16 localAddr; /* device where data comes from */ + ST_INT dataSize; + ST_VOID *data; /* allocated memory */ + ST_LONG userId; /* user passes for done func */ + ST_CHAR recTime[SMP_SIZE_OF_REC_TIME]; /* buffer to hold time stamp */ + ST_ULONG usr1; /* user data */ + } i; + } ADLC_EXT_WRITE_PACKET; + +/************************************************************************/ +/* ADLC_EXT_WRITE_PACKET_DONE */ +/* This is event from ADLC to stack */ +/************************************************************************/ +typedef ADLC_EXT_WRITE_PACKET ADLC_EXT_WRITE_PACKET_DONE; + +/* ADLC defined error codes. The error base 0x3600 is defined in glberror.h */ + +#define E_ADLC_INVALID_DEV_NAME 0x3601 +#define E_ADLC_INVALID_DEV_ADDR 0x3602 +#define E_ADLC_DEVICE_EXISTS 0x3603 +#define E_ADLC_DEV_DOES_NOT_EXIST 0x3604 + +#define E_ADLC_INVALID_LOCAL_ADDR 0x3605 +#define E_ADLC_INVALID_CON_PAIR 0x3606 +#define E_ADLC_CON_EXISTS 0x3607 +#define E_ADLC_CON_DOES_NOT_EXIST 0x3608 +#define E_ADLC_TX_BUF_FULL 0x3609 + +#define E_ADLC_CANT_POLL_FASTER 0x360A +#define E_ADLC_CANT_POLL_SLOWER 0x360B +#define E_ADLC_INVALID_POLL_DELTA 0x360C +#define E_ADLC_INTERNAL_ERR 0x360D +#define E_ADLC_DEVICE_NOT_POLLED 0x360E +#define E_ADLC_INVALID_HQUEUE 0x360F +#define E_ADLC_INVALID_PORT 0x3610 +#define E_ADLC_INVALID_POLL_FREQ 0x3611 +#define E_ADLC_DUPLICATE_LOCAL_ADDR 0x3612 +#define E_ADLC_PACKET_LEN_NOT_VALID 0x3613 + +#define E_ADLC_RESPONSE_TIMEOUT 0x3614 +#define E_ADLC_INVALID_CMD 0x3615 +#define E_ADLC_CANT_INIT_PORT 0x3616 + +#define E_ADLC_CREATE_THREAD 0x3617 +#define E_ADLC_CANT_INIT_TAPI 0x3618 +#define E_ADLC_TEL_LINE_UNAVAIL 0x3619 +#define E_ADLC_CANT_INIT_TEL_LINE 0x361A + +#define E_ADLC_PORT_EXISTS 0x361B +#define E_ADLC_PORT_DOES_NOT_EXIST 0x361C + +#define E_ADLC_SERIAL_TX 0x361D +#define E_ADLC_SERIAL_RX 0x361E + +#define E_ADLC_CANT_OPEN_DB 0x361F +ST_RET adlcWrite(ADLC_WRITE_PACKET *adlcPacket); +ADLC_WRITE_PACKET *adlcRead(ST_VOID); +ST_VOID *adlcGetEvent(ST_INT *opcode, ST_RET *retCode); +ST_RET adlcRegisterClient (ST_UINT16 localAddr); + +/* routines to service ADLC commands */ +ST_RET adlcStartLinkManager (ST_VOID); +ST_RET adlcInit(ST_VOID); +ST_RET adlcConnectNode(ADLC_CONNECT_NODE *pstConNode); +ST_RET adlcDisconnectNode(ADLC_DISCONNECT_NODE *pstDiscNode); +ST_RET adlcConnectAll(ADLC_CONNECT_ALL *pstConAll); +ST_RET adlcDisconnectAll(ADLC_DISCONNECT_ALL *pstDiscAll); +ST_RET adlcWritePacket(ADLC_WRITE_PACKET *adlcPacket); +ST_RET adlcGetConStatus(ADLC_GET_CON_STATUS *pstGetConStatus); +ST_RET adlcAddDev(ADLC_ADD_DEV *pstAddDev); +ST_RET adlcRemoveDev(ADLC_REMOVE_DEV *pstRemoveDev); +ST_RET adlcStartPollingDev(ADLC_START_POLL_DEV *pstStartPollDev); +ST_RET adlcStopPollingDev(ADLC_STOP_POLL_DEV *pstStopPollDev); +ST_RET adlcChangePollRate(ADLC_CHANGE_POLL_RATE *pstChangePollRate); +ST_RET adlcQueryPollInfo(ADLC_QUERY_POLL_INFO *pstQueryPollInfo); +ST_VOID adlcExit (ST_VOID); + +ST_RET adlcExtWritePacket(const ADLC_EXT_WRITE_PACKET *pstExtWrite); + +#ifdef __cplusplus +} +#endif + +#endif /* end ADLC_USR */ + + + + + + diff --git a/mmslib/inc/arg.h b/mmslib/inc/arg.h new file mode 100644 index 0000000..49f8161 --- /dev/null +++ b/mmslib/inc/arg.h @@ -0,0 +1,44 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1991 All Rights Reserved */ +/* */ +/* MODULE NAME : arg.h */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 02/25/98 MDE 02 Changed numArgStrings to ST_INT */ +/* 06/23/94 MDE 01 Created */ +/************************************************************************/ +/************************************************************************/ + + +ST_INT process_args (ST_INT argc, ST_CHAR **argv); +ST_VOID listValidArgs (ST_VOID); + +/************************************************************************/ + +struct arg_ctrl + { + ST_CHAR *str; /* text to be matched */ + ST_CHAR *help; /* Help text */ + ST_VOID (*fun)(ST_INT argNum, ST_CHAR *str); /* processing function */ + }; + +extern ST_INT argRetVal; +extern ST_INT argStopProc; +extern ST_INT argCurrArg; +extern ST_CHAR **argArgv; + + +/* User must define these variables */ +extern struct arg_ctrl argCtrl[]; +extern ST_INT numArgStrings; + diff --git a/mmslib/inc/asn1defs.h b/mmslib/inc/asn1defs.h new file mode 100644 index 0000000..8c43328 --- /dev/null +++ b/mmslib/inc/asn1defs.h @@ -0,0 +1,40 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : asn1defs.h */ +/* PRODUCT(S) : ASN1DE */ +/* */ +/* MODULE DESCRIPTION : */ +/* Contains definitions and global variables useful to the ASN1DE */ +/* user. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/19/01 JRB 14 Del everything & use "asn1r.h". */ +/* 11/14/01 EJV 13 Added MMS_UTC_TIME typedef. */ +/* Added asn1_wr_utc_time, asn1_get_utc_time */ +/* 06/22/00 DSF 12 Added asn1_max_bitcount */ +/* 06/16/00 JRB 11 Add #if INT64_SUPP... */ +/* 05/24/00 RKR 10 Deleted a an extra declaration of asn1_tzone */ +/* 09/13/99 MDE 09 Added SD_CONST modifiers */ +/* 10/08/98 MDE 08 Migrated to updated SLOG interface */ +/* 03/18/98 JRB 07 Add ASN1E_* defines. */ +/* Move ASN1 error codes from mmsintr2.h to here*/ +/* Add 0x7000 to all ASN.1 error codes. */ +/* 12/10/97 MDE 06 Changed get_i8 to take ST_INT8 */ +/* 09/29/97 MDE 05 Changed ASN1_LITE to MMS_LITE */ +/* 08/21/97 MDE 04 Added ASN1_ARB_FLOAT define */ +/* 08/13/97 MDE 03 Changed wr_i8 and wr_u8 to take sized int's */ +/* 06/17/97 MDE 02 Removed old debug defines */ +/* 05/20/97 MDE 01 Changes to time handling - renames, etc. */ +/* 04/02/97 7.00 MMSEASE 7.0 release. See ASN1ML70.DOC for */ +/* history. */ +/************************************************************************/ + +#include "asn1r.h" /* Simply use all new defs in this file */ diff --git a/mmslib/inc/asn1log.h b/mmslib/inc/asn1log.h new file mode 100644 index 0000000..4d7676c --- /dev/null +++ b/mmslib/inc/asn1log.h @@ -0,0 +1,106 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1993 - 1994, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : asn1log.h */ +/* PRODUCT(S) : MMSEASE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains ASN.1 logging definitions */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 09/16/03 JRB 06 Add more ERR/NERR macros. */ +/* 03/31/03 JRB 05 Use new "Base" macros SLOG_*, SLOGC_*, SLOGH.*/ +/* Add more macros. */ +/* 03/13/02 JRB 04 ALOG_PAUSEDEC, ALOG_DECLF macros do nothing. */ +/* 09/13/99 MDE 03 Added SD_CONST modifiers */ +/* 10/08/98 MDE 02 Migrated to updated SLOG interface */ +/* 09/11/97 DSF 01 Adde ALOG_NERRH */ +/* 04/02/97 7.00 MMSEASE 7.0 release. See ASN1ML70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef ASN1_LOG_INCLUDED +#define ASN1_LOG_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +/* Log type strings */ +extern SD_CONST ST_CHAR *SD_CONST _asn1_log_dec_logstr; +extern SD_CONST ST_CHAR *SD_CONST _asn1_log_enc_logstr; +extern SD_CONST ST_CHAR *SD_CONST _asn1_log_err_logstr; +extern SD_CONST ST_CHAR *SD_CONST _asn1_log_nerr_logstr; + + +#define ALOG_DECLF() +#define ALOG_PAUSEDEC(msg) + +#define ALOG_DEC0(a) \ + SLOG_0 (asn1_debug_sel & ASN1_LOG_DEC,_asn1_log_dec_logstr,a) +#define ALOG_DEC1(a,b) \ + SLOG_1 (asn1_debug_sel & ASN1_LOG_DEC,_asn1_log_dec_logstr,a,b) + +#define ALOG_CDEC0(a) \ + SLOGC_0 (asn1_debug_sel & ASN1_LOG_DEC,a) +#define ALOG_CDEC1(a,b) \ + SLOGC_1 (asn1_debug_sel & ASN1_LOG_DEC,a,b) +#define ALOG_CDEC2(a,b,c) \ + SLOGC_2 (asn1_debug_sel & ASN1_LOG_DEC,a,b,c) +#define ALOG_CDEC3(a,b,c,d) \ + SLOGC_3 (asn1_debug_sel & ASN1_LOG_DEC,a,b,c,d) +#define ALOG_CDEC4(a,b,c,d,e) \ + SLOGC_4 (asn1_debug_sel & ASN1_LOG_DEC,a,b,c,d,e) + +#define ALOG_DECH(a,b) \ + SLOGH (asn1_debug_sel & ASN1_LOG_DEC,a,b) + +#define ALOG_ENC0(a) \ + SLOG_0 (asn1_debug_sel & ASN1_LOG_ENC,_asn1_log_enc_logstr,a) +#define ALOG_ENC1(a,b) \ + SLOG_1 (asn1_debug_sel & ASN1_LOG_ENC,_asn1_log_enc_logstr,a,b) + +#define ALOG_CENC0(a) \ + SLOGC_0 (asn1_debug_sel & ASN1_LOG_ENC,a) +#define ALOG_CENC1(a,b) \ + SLOGC_1 (asn1_debug_sel & ASN1_LOG_ENC,a,b) + +#define ALOG_ENCH(a,b) \ + SLOGH (asn1_debug_sel & ASN1_LOG_ENC,a,b) + +#define ALOG_ERR0(a) \ + SLOG_0 (asn1_debug_sel & ASN1_LOG_ERR,_asn1_log_err_logstr,a) +#define ALOG_ERR1(a,b) \ + SLOG_1 (asn1_debug_sel & ASN1_LOG_ERR,_asn1_log_err_logstr,a,b) +#define ALOG_ERR2(a,b,c) \ + SLOG_2 (asn1_debug_sel & ASN1_LOG_ERR,_asn1_log_err_logstr,a,b,c) +#define ALOG_ERR3(a,b,c,d) \ + SLOG_3 (asn1_debug_sel & ASN1_LOG_ERR,_asn1_log_err_logstr,a,b,c,d) + +#define ALOG_NERR0(a) \ + SLOG_0 (asn1_debug_sel & ASN1_LOG_NERR,_asn1_log_nerr_logstr,a) +#define ALOG_NERR1(a,b) \ + SLOG_1 (asn1_debug_sel & ASN1_LOG_NERR,_asn1_log_nerr_logstr,a,b) +#define ALOG_NERR2(a,b,c) \ + SLOG_2 (asn1_debug_sel & ASN1_LOG_NERR,_asn1_log_nerr_logstr,a,b,c) +#define ALOG_NERR3(a,b,c,d) \ + SLOG_3 (asn1_debug_sel & ASN1_LOG_NERR,_asn1_log_nerr_logstr,a,b,c,d) + +#define ALOG_NERRH(a,b) \ + SLOGH (asn1_debug_sel & ASN1_LOG_NERR,a,b) + +#ifdef __cplusplus +} +#endif + + +/************************************************************************/ +#endif /* End of ASN1_LOG_INCLUDED */ +/************************************************************************/ diff --git a/mmslib/inc/asn1r.h b/mmslib/inc/asn1r.h new file mode 100644 index 0000000..058f6bb --- /dev/null +++ b/mmslib/inc/asn1r.h @@ -0,0 +1,718 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2009, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : asn1r.h */ +/* PRODUCT(S) : ASN1DE */ +/* */ +/* MODULE DESCRIPTION : */ +/* Contains definitions and global variables useful to the ASN1DE */ +/* user. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 07/21/09 JRB 31 Add asn1r_bitstr_truncated in ASN1_DEC_CTXT. */ +/* Del GET_CONSTRUCTED_*STRINGS defines. */ +/* 05/28/09 JRB 30 Add asn1r_decode_init, asn1r_get_tag functs. */ +/* Add asn1r_msg_start in ASN1_DEC_CTXT struct. */ +/* Add asn1r_strt_constr_indef. */ +/* 01/15/09 MDE 29 Added asn1_peek, removed asn1r_head_decode */ +/* 11/12/08 MDE 28 Added asn1r_last_byte, asn1r_head_decode rc */ +/* 07/02/07 JRB 26 Chg ..fixlen, ..varlen arg to (ST_UCHAR *). */ +/* 12/20/06 JRB 25 Add bstrcmp. */ +/* 03/17/06 JRB 24 Add asn1r_anytag_fun, ASN1_ANYTAG_METHOD, */ +/* ASN1MASK_*. */ +/* Chg BSTR_BIT_GET macro to return only 0 or 1.*/ +/* 12/05/05 JRB 23 Add asn1r_skip_elmnt & more asn1r_get* protos*/ +/* 08/01/05 JRB 22 Add const on asn1r_wr_vstr, asn1_wr_octstr args.*/ +/* 03/23/05 JRB 21 Move APP_REF from suicacse to here so almost */ +/* any SISCO app can use it. */ +/* 07/08/04 JRB 20 Add define TIME_T_1984_JAN_1 & other defines.*/ +/* Add asn1_convert_timet_to_btime6. */ +/* 10/13/03 JRB 19 Add ASN1E_DECODE_OTHER, ASN1E_ENCODE_OTHER. */ +/* 03/31/03 JRB 18 Add UTF8string support. */ +/* asn1r_get_bitstr: add max_bits arg. */ +/* 12/14/02 JRB 17 Add BSTR_*, MMS_BVSTRING, bstrcpy, bvstrcpy */ +/* 11/11/02 EJV 16 asn1r_tag_add: added type cast */ +/* 11/08/02 JRB 15 Add ASN1_DEC_PTR, ASN1_DEC_LEN macros. */ +/* 10/29/02 JRB 14 Add asn1r_magic to ASN1_ENC_CTXT. */ +/* 10/25/02 JRB 13 Add ASN1_ENC_PTR, ASN1_ENC_LEN macros. */ +/* Add MMS_BTIME6 struct. */ +/* 07/03/02 EJV 12 MMS_UTC_TIME: chg name usec to fraction. */ +/* 01/22/02 JRB 11 Add "asn1r_buf_end" to ASN1_ENC_CTXT. */ +/* Chg asn1r_end_of_buffer to asn1r_buf_start */ +/* & asn1r_field_start to asn1r_field_end */ +/* & _asn1_constr_start to asn1r_constr_end */ +/* in ENC_CTX (start means start, end means end)*/ +/* 01/07/02 EJV 09 Added asn1_ prefix to convert_... functions. */ +/* 01/04/02 EJV 08 Add convert_btod_to_utc, convert_utc_to_btod */ +/* 12/20/01 JRB 07 Split ASN1_CTXT into ASN1_DEC_CTXT, ASN1_ENC_CTXT*/ +/* Del unused calendar stuff. */ +/* Del backward compatibility defines. */ +/* Chg asn1r_objidcmp to asn1_objidcmp. */ +/* Del unused tzhour_diff, tconst, default_dcomp*/ +/* Del unused strt_asn1,asn1_tz_calc,asn1_is_dst*/ +/* 11/09/01 EJV 06 Added MMS_UTC_TIME typedef. */ +/* Added asn1r_wr_utc_time, asn1r_get_utc_time */ +/* ASN1_CTXT: del _save_asn1_len, _save_asn1_ptr*/ +/* 08/15/00 JRB 05 Add asn1_ctxt "forward reference". */ +/* 06/19/00 JRB 04 Add #if INT64_SUPP... */ +/* 05/25/00 RKR 03 Deleted a an extra declaration of asn1_tzone */ +/* 07/29/99 MDE 02 Added TABLE method */ +/* 07/26/99 MDE 01 New, derived from asn1defs.h */ +/************************************************************************/ + +#if !defined(ASN1DEFS_INCLUDED) && !defined(ASN1R_INCLUDED) +#define ASN1R_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +/************************************************************************/ + +#include "slog.h" + +/* Defines for UNICODE local data format. */ +#define UNICODE_UTF8 0 +#define UNICODE_UTF16 1 +#if !defined(UNICODE_LOCAL_FORMAT) +#if defined(_WIN32) +#define UNICODE_LOCAL_FORMAT UNICODE_UTF16 +#else +#define UNICODE_LOCAL_FORMAT UNICODE_UTF8 /*default format */ +#endif +#endif /* !defined(UNICODE_LOCAL_FORMAT) */ + +/************************************************************************/ +/* asn1_debug_sel bit assignments */ + +#define ASN1_LOG_DEC 0x0001 +#define ASN1_LOG_ENC 0x0002 +#define ASN1_LOG_ERR 0x0004 +#define ASN1_LOG_NERR 0x0008 + +/************************************************************************/ +/* These are S_LOG control items for ASN1 logging */ + +extern ST_UINT asn1_debug_sel; + +/************************************************************************/ +/* Support for development time debugging can be enabled here */ +/* #define DEBUG_ASN1_DECODE */ + +/************************************************************************/ +/* Support for seldom needed decode features can be disabled here */ + +#if !defined(MMS_LITE) +#define ASN1_ARB_FLOAT +#endif + +/************************************************************************/ +/* Helpful Time-related defines */ + +#define SECONDS_PER_DAY (60*60*24) +#define MILLISECONDS_PER_DAY (1000 * SECONDS_PER_DAY) +#define DAYS_FROM_1970_TO_1984 ((11*365) + (3*366)) /*includes 3 leap years 1972, 1976, 1980*/ +#define TIME_T_1984_JAN_1 (DAYS_FROM_1970_TO_1984 * SECONDS_PER_DAY) + +/************************************************************************/ +/* Binary Time Of Day */ + +#define MMS_BTOD4 4 +#define MMS_BTOD6 6 + +typedef struct btod_data + { + ST_INT form; /* MMS_BTOD6, MMS_BTOD4 */ + ST_INT32 ms; /* Number of milliseconds since midnight */ + ST_INT32 day; /* Number of days since Jan 1, 1984 */ + } MMS_BTOD; + +/* MMS_BTIME6: this structure is the format used to pass "Btime6" data */ +/* (i.e. ISO/IEC 9506-2 TimeOfDay with size=6) between the user and */ +/* the ASN.1 encoder/decoder (i.e. ms_asn1_to_local & ms_local_to_asn1).*/ +typedef struct + { + ST_INT32 ms; /* Number of milliseconds since midnight */ + ST_INT32 day; /* Number of days since Jan 1, 1984 */ + } MMS_BTIME6; + +/************************************************************************/ +/* UTC Time */ + +typedef struct mms_utc_time_tag + { + ST_UINT32 secs; /* Number of seconds since January 1, 1970 */ + ST_UINT32 fraction; /* Fraction of a second */ + ST_UINT32 qflags; /* Quality flags, 8 least-significant bits only */ + } MMS_UTC_TIME; + +ST_RET asn1_convert_btod_to_utc (MMS_BTOD *btod, MMS_UTC_TIME *utc); +ST_RET asn1_convert_utc_to_btod (MMS_UTC_TIME *utc, MMS_BTOD *btod); +ST_RET asn1_convert_timet_to_btime6 (time_t tThis, MMS_BTIME6 *bTime6); + +/************************************************************************/ +/* Variable Length Bitstring */ +/* This structure defines the format used to pass "variable length */ +/* bitstring" data between the user and */ +/* the ASN.1 encoder/decoder (i.e. ms_asn1_to_local & ms_local_to_asn1).*/ +/* NOTE: For bitstrings longer than 8 bits, the actual data extends */ +/* beyond the end of this struct. */ + +typedef struct + { + ST_INT16 len; + ST_UCHAR data[1]; + } MMS_BVSTRING; + +/************************************************************************/ +/* VMS Float Format select */ + +#define A_D_FLOAT 1 +#define A_G_FLOAT 2 +extern ST_INT asn1_vax_double_type; + +/************************************************************************/ +/* ASN1-DE limitiations */ + +#define ASN1_MAX_PDU 0x7FFF /* maximum decodable message length */ +#define ASN1_MAX_FIELD 0x7FFF /* maximum field (data element) length */ +#define ASN1_MAX_LEVEL 50 /* maximum supported nesting level */ + +/************************************************************************/ +/* ASN.1 Definitions to support identifier construction by bit OR. */ +/* Used to make up and test 'tag' bits. */ + +/* These used in ASN1_ANYTAG_METHOD decode method. */ +#define ASN1MASK_UNI 0x0000 /* universal class */ +#define ASN1MASK_APP 0x4000 /* application wide */ +#define ASN1MASK_CTX 0x8000 /* context specific */ +#define ASN1MASK_PRV 0xC000 /* private use */ +#define ASN1MASK_CONSTR 0x2000 /* constructor */ + +/* These used in other decode methods and in encoder. */ +#define UNI 0x00 /* universal class */ +#define APP 0x40 /* application wide */ +#define CTX 0x80 /* context specific */ +#define PRV 0xC0 /* private use */ +#define CONSTR 0x20 /* constructor */ + +#define DEF 0x00 /* definite length constructor */ +#define INDEF 0xFF /* indefinite length constructor */ + +/* Universal class ASN.1 ID code definitions */ +#define EOC_CODE 0x00 +#define BOOL_CODE 0x01 +#define INT_CODE 0x02 +#define BITS_CODE 0x03 +#define OCT_CODE 0x04 +#define NULL_CODE 0x05 +#define OBJ_ID_CODE 0x06 +#define OBJDSCR_CODE 0x07 +#define EXTERN_CODE 0x08 +#define SEQ_CODE 0x10 +#define SET_CODE 0x11 +#define NUMSTR_CODE 0x12 +#define PRTSTR_CODE 0x13 +#define S61STR_CODE 0x14 +#define S100STR_CODE 0x15 +#define IA5STR_CODE 0x16 +#define UTCTIM_CODE 0x17 +#define GENTIM_CODE 0x18 +#define GRAFSTR_CODE 0x19 +#define VISTR_CODE 0x1A +#define GENSTR_CODE 0x1B + + +/************************************************************************/ +/* ASN.1 decode error definitions */ +/* Used as the argument to "asn1_set_dec_err" function which sets the */ +/* global variable "asn1_pdu_dec_err". */ +/************************************************************************/ + +#define NO_DECODE_ERR 0 /* no decode error */ +#define ASN1E_NEST_TOO_DEEP 0x7001 +#define ASN1E_UNEXPECTED_CLASS 0x7002 +#define ASN1E_UNEXPECTED_TAG 0x7003 +#define ASN1E_ID_TOO_BIG 0x7004 +#define ASN1E_CSTR_INVALID_LEN 0x7005 +#define ASN1E_INVALID_LENGTH 0x7006 +#define ASN1E_UNEXPECTED_FORM 0x7007 +#define ASN1E_PDU_TOO_BIG 0x7008 +#define ASN1E_END_O_BUFFER 0x7009 +#define ASN1E_BITCSTR_TOO_BIG 0x700a +#define ASN1E_INVALID_BITSTR 0x700b +#define ASN1E_OCTSTR_TOO_BIG 0x700c +#define ASN1E_INVALID_BOOLEAN 0x700d +#define ASN1E_END_OF_MESSAGE 0x700e +#define ASN1E_END_OF_CSTR 0x700f + +/* CRITICAL: The rest of the ASN.1 decode error definitions must not */ +/* must not be changed. The lower 2 nibbles are used to set the */ +/* REJECT class and code (mmsdec_map_err saves value to rslt.err_code */ +/* which is used in "mmspdu.c" to generate REJECT class and code). */ + +/************************************************************************/ +/* CONFIRMED REQUEST REJECT DEFINITIONS */ +/************************************************************************/ +#define REQ_UNSPECIFIED 0x7010 +#define REQ_UNREC_SERV 0x7011 +#define REQ_UNREC_MOD 0x7012 +#define REQ_INVAL_INVOKE 0x7013 +#define REQ_INVAL_ARG 0x7014 +#define REQ_INVAL_MOD 0x7015 +#define REQ_OUTSTD_EXCEED 0x7016 +#define REQ_EXCSV_LENGTH 0x7017 +#define REQ_EXCSV_NEST 0x7018 +#define REQ_BAD_VALUE 0x7019 + +/************************************************************************/ +/* CONFIRMED RESPONSE REJECT DEFINITIONS */ +/************************************************************************/ +#define RESP_UNSPECIFIED 0x7020 +#define RESP_UNREC_SERV 0x7021 +#define RESP_INVAL_INVOKE 0x7022 +#define RESP_INVAL_RSLT 0x7023 +#define RESP_EXCSV_LENGTH 0x7024 +#define RESP_EXCSV_NEST 0x7025 +#define RESP_BAD_VALUE 0x7026 + +/************************************************************************/ +/* CONFIRMED ERROR REJECT DEFINITIONS */ +/************************************************************************/ +#define ERR_UNSPECIFIED 0x7030 +#define ERR_UNREC_SERV 0x7031 +#define ERR_INVAL_INVOKE 0x7032 +#define ERR_INVAL_SERV 0x7033 +#define ERR_BAD_VALUE 0x7034 + +/************************************************************************/ +/* UNCONFIRMED PDU REJECT DEFINITIONS */ +/************************************************************************/ +#define UNCONF_UNSPECIFIED 0x7040 +#define UNCONF_UNREC_SERV 0x7041 +#define UNCONF_INVAL_ARG 0x7042 +#define UNCONF_EXCSV_NEST 0x7043 +#define UNCONF_BAD_VALUE 0x7044 + +/************************************************************************/ +/* PDU REJECT DEFINITIONS */ +/************************************************************************/ +#define PDU_UNKNOWN_TYPE 0x7050 +#define PDU_INVALID 0x7051 + +/************************************************************************/ +/* CANCEL REQUEST REJECT DEFINITIONS */ +/************************************************************************/ +#define CANREQ_UNSPECIFIED 0x7060 +#define CANREQ_INVAL_INVOKE 0x7061 + +/************************************************************************/ +/* CANCEL RESPONSE REJECT DEFINITIONS */ +/************************************************************************/ +#define CANRESP_UNSPECIFIED 0x7070 +#define CANRESP_INVAL_INVOKE 0x7071 + +/************************************************************************/ +/* CANCEL ERROR REJECT DEFINITIONS */ +/************************************************************************/ +#define CANERR_UNSPECIFIED 0x7080 +#define CANERR_INVAL_INVOKE 0x7081 +#define CANERR_INVAL_SERV 0x7082 +#define CANERR_BAD_VALUE 0x7083 + +/************************************************************************/ +/* CONCLUDE REQUEST REJECT DEFINITIONS */ +/************************************************************************/ +#define CONREQ_UNSPECIFIED 0x7090 +#define CONREQ_INVAL_ARG 0x7091 + +/************************************************************************/ +/* CONCLUDE RESPONSE REJECT DEFINITIONS */ +/************************************************************************/ +#define CONRESP_UNSPECIFIED 0x70A0 +#define CONRESP_INVAL_RSLT 0x70A1 + +/************************************************************************/ +/* CONCLUDE ERROR REJECT DEFINITIONS */ +/************************************************************************/ +#define CONERR_UNSPECIFIED 0x70B0 +#define CONERR_INVAL_SERV 0x70B1 +#define CONERR_BAD_VALUE 0x70B2 + +/************************************************************************/ +/* OTHER ASN.1 ENCODE/DECODE ERROR DEFINITIONS */ +/************************************************************************/ +#define ASN1E_DECODE_OTHER 0x70C0 +#define ASN1E_ENCODE_OTHER 0x70C1 + +/************************************************************************/ +/* General variables and pointers used by the ASN1 system. */ +/************************************************************************/ + +#define ASN1_TAG_METHOD 0 /* decode by tag method */ +#define ASN1_CLASS_METHOD 1 /* decode by class method */ +#define ASN1_TABLE_METHOD 2 /* decode by table method */ +#define ASN1_ANYTAG_METHOD 3 /* decode by "anytag" method */ + /* same callback for any tag of any class*/ +#define CSTR_DONE_FUN ac->asn1r_c_done_fun[ac->asn1r_msg_level] + +/************************************************************************/ +/* This define is the maximum tag + length for a MMS-EASE encoded data */ +/* element (actually probably is 9), and is used in fin_constr and */ +/* fin_prim to prevent encode buffer overrun */ + +#define ASN1_MAX_ELEMENT_OVERHEAD 10 + +struct asn1_dec_ctxt; /* Forward reference */ +/************************************************************************/ +/************************************************************************/ +/* TAG METHOD STRUCTURES AND DEFINES */ + +#define ASN1R_TAG_VAL(class,code) (((ST_UINT16)(class) << 8) | (code)) + +typedef struct + { + ST_UINT16 _asn1r_tag; + ST_VOID (*_asn1r_tag_fun)(struct asn1_dec_ctxt *ac); + } ASN1R_TAG_PAIR; + +/* Decode users: Select the structure that has sufficient tag capacity */ +typedef struct {ST_INT num_tags; ASN1R_TAG_PAIR tags[1]; } ASN1R_TAG_CTRL_1; +typedef struct {ST_INT num_tags; ASN1R_TAG_PAIR tags[2]; } ASN1R_TAG_CTRL_2; +typedef struct {ST_INT num_tags; ASN1R_TAG_PAIR tags[3]; } ASN1R_TAG_CTRL_3; +typedef struct {ST_INT num_tags; ASN1R_TAG_PAIR tags[4]; } ASN1R_TAG_CTRL_4; +typedef struct {ST_INT num_tags; ASN1R_TAG_PAIR tags[5]; } ASN1R_TAG_CTRL_5; +typedef struct {ST_INT num_tags; ASN1R_TAG_PAIR tags[6]; } ASN1R_TAG_CTRL_6; +typedef struct {ST_INT num_tags; ASN1R_TAG_PAIR tags[7]; } ASN1R_TAG_CTRL_7; +typedef struct {ST_INT num_tags; ASN1R_TAG_PAIR tags[8]; } ASN1R_TAG_CTRL_8; +typedef struct {ST_INT num_tags; ASN1R_TAG_PAIR tags[9]; } ASN1R_TAG_CTRL_9; +typedef struct {ST_INT num_tags; ASN1R_TAG_PAIR tags[10];} ASN1R_TAG_CTRL_10; +typedef struct {ST_INT num_tags; ASN1R_TAG_PAIR tags[11];} ASN1R_TAG_CTRL_11; +typedef struct {ST_INT num_tags; ASN1R_TAG_PAIR tags[12];} ASN1R_TAG_CTRL_12; +typedef struct {ST_INT num_tags; ASN1R_TAG_PAIR tags[13];} ASN1R_TAG_CTRL_13; +typedef struct {ST_INT num_tags; ASN1R_TAG_PAIR tags[14];} ASN1R_TAG_CTRL_14; +typedef struct {ST_INT num_tags; ASN1R_TAG_PAIR tags[15];} ASN1R_TAG_CTRL_15; + + +/************************************************************************/ +/* ASN.1 Context */ +/* This data structure is used to store all ASN.1 encode/decode context */ +/* information. If an application provides thread safe storage for this */ +/* data structure the ASN.1 tools become thread safe. */ + +#define ASN1_MAX_USR_INFO 5 +#define MAX_TAG_FUN 16 + +typedef struct asn1_dec_ctxt + { +/****** User and Internal Use ******/ + +/* User State */ + ST_VOID *usr_info[ASN1_MAX_USR_INFO]; + +/* General variables and pointers */ + ST_BOOLEAN asn1r_decode_done; + ST_UCHAR *asn1r_field_ptr; + ST_UCHAR *asn1r_field_start; + ST_UCHAR *asn1r_done_ptr; + ST_UCHAR asn1r_constr_elmnt; + ST_UCHAR asn1r_elmnt_class; + ST_UINT16 asn1r_elmnt_id; + ST_INT asn1r_elmnt_len; + ST_INT asn1r_msg_level; + ST_BOOLEAN asn1r_indef_flag; /* flag for indef cstr */ + ST_RET asn1r_pdu_dec_err; + ST_INT asn1r_decode_method; + ST_INT asn1r_save_method; + ST_INT asn1r_max_bits; + ST_INT asn1r_bitcount; + ST_BOOLEAN asn1r_bitstr_truncated; /* SD_TRUE if bitstr truncated */ + /* while decoding. */ + ST_INT asn1r_octetcount; + +/* For ASN1 decode table mode */ + ST_VOID *asn1r_tag_table; + +/* Function pointers used by decoder users */ + ST_VOID (*asn1r_decode_done_fun)(struct asn1_dec_ctxt *ac); + ST_VOID (*asn1r_err_fun)(struct asn1_dec_ctxt *ac, ST_RET err_code); + ST_VOID (*asn1r_c_done_fun[ASN1_MAX_LEVEL])(struct asn1_dec_ctxt *ac); + ST_VOID (*asn1r_u_id_fun)(struct asn1_dec_ctxt *ac, ST_UINT16 id); + ST_VOID (*asn1r_a_id_fun)(struct asn1_dec_ctxt *ac, ST_UINT16 id); + ST_VOID (*asn1r_c_id_fun)(struct asn1_dec_ctxt *ac, ST_UINT16 id); + ST_VOID (*asn1r_p_id_fun)(struct asn1_dec_ctxt *ac, ST_UINT16 id); + /* asn1r_anytag_fun called for ANY tag of ANY class if */ + /* asn1r_decode_method==ASN1_ANYTAG_METHOD. */ + /* "id" argument has bits set to indicate class and/or constructor. */ + ST_VOID (*asn1r_anytag_fun)(struct asn1_dec_ctxt *ac, ST_UINT16 id); + +/****** Internal Use Only ******/ +/* Decode variables */ + ST_INT _asn1_maxoctets; + ST_UCHAR *_asn1_octetptr; + + ST_UCHAR *_ad_bitptr; + +/* Function pointers used internally by the ASN.1 tools */ + ST_VOID (*_asn1r_cstr_done_save)(struct asn1_dec_ctxt *ac); + ST_VOID (*_asn1r_fun_save)(struct asn1_dec_ctxt *ac); + + ST_INT _asn1r_ntag; + ST_UINT16 _asn1r_valid_tags[MAX_TAG_FUN]; + ST_VOID (*_asn1r_tag_fun[MAX_TAG_FUN])(struct asn1_dec_ctxt *ac); + ST_INT _asn1r_old_ntag; + + ST_BOOLEAN _asn1_indef_track[ASN1_MAX_LEVEL]; + ST_UCHAR *_asn1_constr_start[ASN1_MAX_LEVEL]; + ST_INT _asn1_byte_count[ASN1_MAX_LEVEL]; + + ST_INT _ad_parse_method_save; + ST_VOID (*_ad_parse_asn1r_fun_save)(struct asn1_dec_ctxt *ac); + + ST_UCHAR *_contents_done; /* will be here when done parsing cstr contents */ + ST_UCHAR *_parse_begin_ptr; /* pointer to beginning of element being skipped*/ + + ST_UCHAR *asn1r_msg_start; /* ptr to beginning of ASN.1 message */ + /* used to calc offset within message */ + /* set by asn1r_decode_init */ + /* used by asn1r_get_tag */ + } ASN1_DEC_CTXT; + +typedef struct asn1_enc_ctxt + { +/* General variables and pointers */ + ST_UCHAR *asn1r_field_ptr; + ST_UCHAR *asn1r_field_end; + ST_INT asn1r_msg_level; + ST_UCHAR *asn1r_buf_start; /* ptr to first byte of buffer */ + ST_UCHAR *asn1r_buf_end; /* ptr to last byte of buffer */ + ST_BOOLEAN asn1r_encode_overrun; + ST_UINT16 asn1r_magic; /* Use to verify asn1r_strt.. was called*/ + ST_UCHAR *asn1r_constr_end[ASN1_MAX_LEVEL]; + } ASN1_ENC_CTXT; + +/* Set "asn1r_magic" in ASN1_ENC_CTXT to this value in "asn1r_strt_asn1_bld".*/ +/* Check later to be sure asn1r_strt_asn1_bld was called. */ +#define ASN1_ENC_MAGIC_NUMBER 0xABCD +/************************************************************************/ + +ASN1_DEC_CTXT *asn1r_get_ctxt (ST_VOID); + +ST_VOID asn1r_decode_asn1 (ASN1_DEC_CTXT *ac, ST_UCHAR *ptr, ST_INT len); +ST_VOID asn1r_decode_asn1_seq (ASN1_DEC_CTXT *ac, ST_UCHAR *ptr, ST_INT len); +ST_VOID asn1r_set_dec_err (ASN1_DEC_CTXT *ac, ST_RET err_code); +ST_VOID asn1r_done_err (ASN1_DEC_CTXT *ac); +ST_VOID asn1r_cstr_done_err (ASN1_DEC_CTXT *ac); +ST_VOID asn1r_set_all_cstr_done (ASN1_DEC_CTXT *ac); + + +ST_VOID asn1r_class_err (ASN1_DEC_CTXT *ac, ST_UINT16 id); +ST_VOID asn1r_chk_getcstr_done (ASN1_DEC_CTXT *ac); + +#if !defined(ASN1R_FAST_TAG_ADD) + +#define ASN1R_TAG_ADD(ac, class, code, fcn_ptr)\ + asn1r_tag_add (ac, (ST_UINT16)(((ST_UINT16)(class) << 8) | (code)), (fcn_ptr)) + +#else + +#define ASN1R_TAG_ADD(ac, class, code, fcn_ptr)\ + {\ + ac->_asn1r_valid_tags[ac->_asn1r_ntag] = \ + (((ST_UINT16)(class) << 8) | (code));\ + ac->_asn1r_tag_fun[ac->_asn1r_ntag] = (ST_VOID (*)(ASN1_DEC_CTXT *)) fcn_ptr;\ + ac->_asn1r_ntag++;\ + } +#endif + + +#define ASN1R_TAG_DEL(ac, class, code)\ + asn1r_tag_del (ac, (((ST_UINT16)(class) << 8) | (code))) + +ST_VOID asn1r_tag_add (ASN1_DEC_CTXT *ac, ST_UINT16 tag_class, + ST_VOID (*fcn_ptr)(ASN1_DEC_CTXT *ac)); + +ST_VOID asn1r_tag_del (ASN1_DEC_CTXT *ac, ST_UINT16 tag); +ST_VOID asn1r_tag_restore (ASN1_DEC_CTXT *ac); +ST_RET asn1_peek (ASN1_DEC_CTXT *ac, ST_UCHAR *ptr, ST_INT len); + +ST_VOID asn1r_strt_asn1_bld (ASN1_ENC_CTXT *ac, ST_UCHAR *bufptr, ST_INT buflen); +ST_VOID asn1r_fin_prim (ASN1_ENC_CTXT *ac, ST_UINT16 id_code, ST_UINT16 tag); +ST_VOID asn1r_fin_constr (ASN1_ENC_CTXT *ac, ST_UINT16 id_code, ST_UINT16 el_tag, ST_BOOLEAN indef); +ST_VOID asn1r_strt_constr (ASN1_ENC_CTXT *ac); +ST_VOID asn1r_strt_constr_indef (ASN1_ENC_CTXT *ac); /* start indef len constr*/ + +ST_VOID asn1r_wr_u8 (ASN1_ENC_CTXT *ac, ST_UINT8 data); +ST_VOID asn1r_wr_u16 (ASN1_ENC_CTXT *ac, ST_UINT16 data); +ST_VOID asn1r_wr_u32 (ASN1_ENC_CTXT *ac, ST_UINT32 data); +ST_VOID asn1r_wr_i8 (ASN1_ENC_CTXT *ac, ST_INT8 data); +ST_VOID asn1r_wr_bool (ASN1_ENC_CTXT *ac, ST_BOOLEAN data); +ST_VOID asn1r_wr_i16 (ASN1_ENC_CTXT *ac, ST_INT16 data); +ST_VOID asn1r_wr_i32 (ASN1_ENC_CTXT *ac, ST_INT32 data); +ST_VOID asn1r_wr_vstr (ASN1_ENC_CTXT *ac, const ST_CHAR *data); +ST_VOID asn1r_wr_delmnt (ASN1_ENC_CTXT *ac, ST_UCHAR *bufptr, ST_INT buflen); +ST_VOID asn1r_wr_btod (ASN1_ENC_CTXT *ac, MMS_BTOD *data); +ST_VOID asn1r_wr_time (ASN1_ENC_CTXT *ac, time_t data); +ST_VOID asn1r_wr_objid (ASN1_ENC_CTXT *ac, ST_INT16 *data, ST_INT num_el); +ST_VOID asn1r_wr_bitstr (ASN1_ENC_CTXT *ac, ST_UCHAR *bitptr, ST_INT numbits); +ST_VOID asn1r_wr_octstr (ASN1_ENC_CTXT *ac, const ST_UCHAR *octptr, ST_INT numoctets); +ST_VOID asn1r_wr_float (ASN1_ENC_CTXT *ac, ST_FLOAT data); +ST_VOID asn1r_wr_double (ASN1_ENC_CTXT *ac, ST_DOUBLE data); +ST_VOID asn1r_wr_utc_time (ASN1_ENC_CTXT *ac, MMS_UTC_TIME *data); +ST_RET asn1r_wr_utf8 (ASN1_ENC_CTXT *ac, ST_CHAR *data, ST_INT el_len); + +ST_RET asn1r_get_identifier (ASN1_DEC_CTXT *ac, ST_CHAR *dest); +ST_RET asn1r_get_objid (ASN1_DEC_CTXT *ac, ST_INT16 component_list[], ST_INT *num_components); +ST_RET asn1r_get_bool (ASN1_DEC_CTXT *ac, ST_BOOLEAN *dest); +ST_VOID asn1r_get_strn (ASN1_DEC_CTXT *ac, ST_CHAR *dest); +ST_RET asn1r_get_nstr (ASN1_DEC_CTXT *ac, ST_CHAR *dest); +ST_RET asn1r_get_pstr (ASN1_DEC_CTXT *ac, ST_CHAR *dest); +ST_RET asn1r_get_vstr (ASN1_DEC_CTXT *ac, ST_CHAR *dest); +ST_RET asn1r_get_vstr_maxlen (ASN1_DEC_CTXT *aCtx, ST_CHAR *ptr, ST_INT max_len); +ST_RET asn1r_get_i8 (ASN1_DEC_CTXT *ac, ST_INT8 *dest); +ST_RET asn1r_get_i16 (ASN1_DEC_CTXT *ac, ST_INT16 *dest); +ST_RET asn1r_get_i32 (ASN1_DEC_CTXT *ac, ST_INT32 *dest); +ST_RET asn1r_get_u8 (ASN1_DEC_CTXT *ac, ST_UCHAR *dest); +ST_RET asn1r_get_u16 (ASN1_DEC_CTXT *ac, ST_UINT16 *dest); +ST_RET asn1r_get_u32 (ASN1_DEC_CTXT *ac, ST_UINT32 *dest); +ST_RET asn1r_get_btod (ASN1_DEC_CTXT *ac, MMS_BTOD *dest); +ST_RET asn1r_get_time (ASN1_DEC_CTXT *ac, time_t *dest); +ST_RET asn1r_get_bitstr (ASN1_DEC_CTXT *ac, ST_UCHAR *dest, ST_INT max_bits); +ST_VOID asn1r_get_bitstr_cstr (ASN1_DEC_CTXT *ac, ST_INT bits, ST_UCHAR *ptr); +ST_RET asn1r_get_octstr (ASN1_DEC_CTXT *ac, ST_UCHAR *dest); +ST_RET asn1r_get_octstr_fixlen (ASN1_DEC_CTXT *aCtx, ST_UCHAR *ptr, ST_INT len); +ST_RET asn1r_get_octstr_varlen (ASN1_DEC_CTXT *aCtx, ST_UCHAR *ptr, ST_INT maxlen, ST_INT *lenout); +ST_VOID asn1r_get_octstr_cstr (ASN1_DEC_CTXT *ac, ST_INT numoctets, ST_UCHAR *octptr); +ST_VOID asn1r_get_delmnt (ASN1_DEC_CTXT *ac, ST_INT buflen, ST_UCHAR *bufptr, + ST_VOID (*done_fun)(ASN1_DEC_CTXT *ac)); +ST_RET asn1r_get_float (ASN1_DEC_CTXT *ac, ST_FLOAT *dest); +ST_RET asn1r_get_double (ASN1_DEC_CTXT *ac, ST_DOUBLE *dest); +ST_RET asn1r_get_utc_time (ASN1_DEC_CTXT *ac, MMS_UTC_TIME *dest); +ST_RET asn1r_get_utf8 (ASN1_DEC_CTXT *ac, ST_CHAR *ptr, ST_INT el_len); + +#ifdef INT64_SUPPORT +ST_VOID asn1r_wr_i64 (ASN1_ENC_CTXT *ac, ST_INT64 data); +ST_VOID asn1r_wr_u64 (ASN1_ENC_CTXT *ac, ST_UINT64 data); +ST_RET asn1r_get_i64 (ASN1_DEC_CTXT *ac, ST_INT64 *dest); +ST_RET asn1r_get_u64 (ASN1_DEC_CTXT *ac, ST_UINT64 *dest); +#endif /* INT64_SUPPORT */ + +ST_VOID asn1r_parse_next (ASN1_DEC_CTXT *ac, ST_VOID (*done_fun)(ASN1_DEC_CTXT *ac)); +ST_VOID asn1r_parse_cstr_contents (ASN1_DEC_CTXT *ac, ST_VOID (*done_fun)(ASN1_DEC_CTXT *ac)); + +ST_RET asn1r_skip_elmnt (ASN1_DEC_CTXT *aCtx); + +/* Functions for simplified decode scheme (no function pointers). */ +ST_RET asn1r_decode_init (ASN1_DEC_CTXT *ac, + ST_UCHAR *ptr, /* ASN.1 message to decode */ + ST_INT len); /* length of ASN.1 message */ +ST_RET asn1r_get_tag (ASN1_DEC_CTXT *ac, + ST_UINT16 *tag_out); /* out: decoded tag */ + +/************************************************************************/ +/* These macros simplify access to members of the ASN1_ENC_CTXT struct. */ +/************************************************************************/ +/* This macro returns a pointer to the start of the ASN.1 encoded data. */ +#define ASN1_ENC_PTR(aCtx) ((aCtx)->asn1r_field_ptr+1) +/* This macro returns the length (in bytes) of the ASN.1 encoded data. */ +#define ASN1_ENC_LEN(aCtx) ((aCtx)->asn1r_buf_end - (aCtx)->asn1r_field_ptr) + +/* This macro returns a pointer to the start of the ASN.1 DECODED data. */ +#define ASN1_DEC_PTR(aCtx) ((aCtx)->asn1r_field_ptr) +/* This macro returns the length (in bytes) of the ASN.1 DECODED data. */ +#define ASN1_DEC_LEN(aCtx) ((aCtx)->asn1r_elmnt_len) + +/************************************************************************/ +/* OBJECT IDENTIFIER */ +/************************************************************************/ + +#define MAX_OBJID_COMPONENTS 16 + +struct mms_obj_id + { + ST_INT num_comps; /* number of objid components */ + ST_INT16 comps[MAX_OBJID_COMPONENTS]; /* identifier components */ + SD_END_STRUCT + }; +typedef struct mms_obj_id MMS_OBJ_ID; +ST_BOOLEAN asn1_objidcmp (MMS_OBJ_ID *obj1, MMS_OBJ_ID *obj2); + +/************************************************************************/ +/* Application Reference data structure */ +/************************************************************************/ + +#define APP_REF_FORM1 0 +#define APP_REF_FORM2 1 + +struct form1 + { + ST_UCHAR *ptr; /* ptr to something */ + ST_INT16 len; /* length of contents at ptr */ + }; +typedef struct form1 FORM1_T; + +struct app_ref + { + ST_INT16 form; /* tells if form 1 or form 2 */ + ST_BOOLEAN ap_title_pres; /* tells if AP title is there */ + union /* AP title differs in form */ + { + FORM1_T form_1; /* form 1 of AP title is ASN.1 */ + MMS_OBJ_ID form_2; /* form 2 of AP title is objectid*/ + } ap_title; + ST_BOOLEAN ap_invoke_pres; /* tells if AP invoke is there */ + ST_INT32 ap_invoke; + ST_BOOLEAN ae_qual_pres; /* tells if AE qualifier is there*/ + union /* AE qualifier differs in form */ + { + FORM1_T form_1; /* form 1 of AE qual is ASN.1 */ + ST_INT32 form_2; /* form 2 if AE qual is long word*/ + } ae_qual; + ST_BOOLEAN ae_invoke_pres; /* tells if AE invoke is there */ + ST_INT32 ae_invoke; + }; +typedef struct app_ref APP_REF; + +/************************************************************************/ +/* Miscellaneous functions/macros. */ +/************************************************************************/ +/* Functions to copy bitstrings and "variable length bitstrings". */ +ST_VOID bstrcpy (ST_UCHAR *dstptr, ST_UCHAR *srcptr, ST_INT numbits); +ST_VOID bvstrcpy (MMS_BVSTRING *dstptr, MMS_BVSTRING *srcptr); +ST_INT bstrcmp (ST_UCHAR *dstptr, ST_UCHAR *srcptr, ST_INT numbits); + +/* Macros to access each individual bit of any bitstring. */ +#define BSTR_BIT_SET_ON(ptr,bitnum) \ + ( ((ST_UINT8 *)(ptr))[(bitnum)/8] |= (0x80>>((bitnum)&7)) ) +#define BSTR_BIT_SET_OFF(ptr,bitnum) \ + ( ((ST_UINT8 *)(ptr))[(bitnum)/8] &= ~(0x80>>((bitnum)&7)) ) + +/* BSTR_BIT_GET returns 0 if bit is clear, 1 if bit is set. */ +#define BSTR_BIT_GET(ptr,bitnum) \ + (( ((ST_UINT8 *)(ptr))[(bitnum)/8] & (0x80>>((bitnum)&7)) ) ? 1:0) + +#define BSTR_BIT_SET_TRUE BSTR_BIT_SET_ON +#define BSTR_BIT_SET_FALSE BSTR_BIT_SET_OFF + +/* Calculate number of bytes needed to contain number of bits. */ +#define BSTR_NUMBITS_TO_NUMBYTES(numbits) (((numbits)+7)/8) + +/* Functions for conversion from ASN.1 UTF8string to local format. */ +/* Must be ported to each platform. */ +ST_INT asn1r_utf8_to_local (ST_CHAR *dst, ST_INT dst_len, ST_CHAR *src, ST_INT src_len); +ST_INT asn1r_local_to_utf8 (ST_CHAR *dst, ST_INT dst_len, ST_CHAR *src); +#ifdef __cplusplus +} +#endif + +/************************************************************************/ +#endif /* File not already included */ +/************************************************************************/ + diff --git a/mmslib/inc/cfg_util.h b/mmslib/inc/cfg_util.h new file mode 100644 index 0000000..fa005e8 --- /dev/null +++ b/mmslib/inc/cfg_util.h @@ -0,0 +1,112 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1991-2005 All Rights Reserved */ +/* */ +/* MODULE NAME : cfg_util.h */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 02/31/05 EJV 05 Chg MAX_NUM_KEYWORDS from 100 to 200. */ +/* 10/08/98 MDE 04 Migrated to updated SLOG interface */ +/* 08/06/98 JRB 03 Added cfg_get_octet_string function. */ +/* 12/04/97 KCR 02 Added cfg_goto_keyword function */ +/* 08/14/97 RKR 01 Format changes */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef CFG_UTIL_INCLUDED +#define CFG_UTIL_INCLUDED + +#include "slog.h" + +#ifdef __cplusplus +extern "C" { +#endif + +/************************************************************************/ + +#define MAX_RVAL_LEN 256 +#define MAX_NUM_KEYWORDS 200 /* just to prevent runaway */ + +/* Keyword table element */ +struct cfg_kw_el + { + ST_CHAR *name; /* string to match on */ + ST_VOID (*extract)(ST_VOID); /* function to call to extract */ + ST_RET (*valid)(ST_VOID); /* call to check if ok to call */ + }; +typedef struct cfg_kw_el CFG_KW_EL; + +/************************************************************************/ +/* Externally visible variables */ + +extern ST_BOOLEAN config_stop; /* Set SD_TRUE to terminate */ +extern ST_RET config_err; /* Set to non-zero for error */ +extern ST_BOOLEAN config_eof; /* Set to SD_SUCCESS when eof is ok */ + +extern ST_CHAR *cfg_line_buf; /* file line read buffer */ +extern ST_INT cfg_curr_line; /* Current line number */ +extern ST_INT cfg_line_offset; /* Offset into cfg_line_buf */ +extern ST_CHAR *cfg_special_char_str; /* Special ravl chars */ +extern ST_CHAR *cfg_end_of_rval_str; /* 'End of rval' chars */ + +/************************************************************************/ +/* Internal CFG_UTIL error codes */ + +#define CFG_CONVERT_ERR 0x8000 +#define CFG_GET_RVAL_ERR 0x8001 +#define CFG_UTIL_ERR 0x8002 + +/************************************************************************/ +/* Externally visible functions */ + +ST_RET cfg_process_file (ST_CHAR *fileName, CFG_KW_EL *root_kw_tbl); +ST_RET cfg_tbl_push (CFG_KW_EL *); +ST_RET cfg_tbl_pop (ST_INT); +ST_CHAR *cfg_get_alloc_string (ST_VOID); +ST_CHAR *cfg_get_string_ptr (ST_VOID); +ST_RET cfg_get_short (ST_INT16 *int_ptr); +ST_RET cfg_get_ushort (ST_UINT16 *int_ptr); +ST_RET cfg_get_int (ST_INT *int_ptr); +ST_RET cfg_get_uint (ST_UINT *int_ptr); +ST_RET cfg_get_long (ST_LONG *int_ptr); +ST_RET cfg_get_ulong (ST_ULONG *int_ptr); +ST_RET cfg_get_hex_ushort (ST_UINT16 *int_ptr); +ST_RET cfg_get_hex_uint (ST_UINT *int_ptr); +ST_RET cfg_get_hex_ulong (ST_ULONG *out_ptr); +ST_RET cfg_get_value (ST_CHAR *format_string, ST_VOID *out_ptr); +ST_VOID cfg_set_config_err(ST_VOID); +ST_VOID cfg_set_endfile_ok(ST_VOID); +ST_RET cfg_get_double (ST_DOUBLE *out_ptr); +ST_RET cfg_goto_keyword (ST_CHAR *keyword); +ST_RET cfg_get_octet_string (ST_UCHAR *ostr, /* ptr to user's ostr */ + ST_UINT *len_out_ptr, /* addr of len var to be set */ + ST_UINT len_max); /* maximum len to allow. */ + +/************************************************************************/ +/* CFG_UTIL logging control */ + +#define CFG_LOG_ERR 0x0001 +#define CFG_LOG_FLOW 0x0002 +extern ST_UINT cfg_log_mask; + +/* For compatibility with older code only */ +#define cfg_sLogCtrl sLogCtrl + +/************************************************************************/ + +#ifdef __cplusplus +} + +#endif + +#endif diff --git a/mmslib/inc/cfglog.h b/mmslib/inc/cfglog.h new file mode 100644 index 0000000..f837414 --- /dev/null +++ b/mmslib/inc/cfglog.h @@ -0,0 +1,101 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1991-1997 All Rights Reserved */ +/* */ +/* MODULE NAME : cfglog.h */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 09/13/99 MDE 02 Added SD_CONST modifiers */ +/* 10/08/98 MDE 01 Migrated to updated SLOG interface */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef CFGLOG_INCLUDED +#define CFGLOG_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +/************************************************************************/ +/************************************************************************/ + +extern SD_CONST ST_CHAR *SD_CONST _cfg_err_logstr; +extern SD_CONST ST_CHAR *SD_CONST _cfg_flow_logstr; + +/************************************************************************/ + +#ifdef DEBUG_SISCO + +#define CFG_LOG_ERR0(a) {\ + if (cfg_log_mask & CFG_LOG_ERR)\ + _slog (sLogCtrl,_cfg_err_logstr,\ + thisFileName,__LINE__,a);\ + } +#define CFG_LOG_ERR1(a,b) {\ + if (cfg_log_mask & CFG_LOG_ERR)\ + _slog (sLogCtrl,_cfg_err_logstr,\ + thisFileName,__LINE__,a,b);\ + } +#define CFG_LOG_ERR2(a,b,c) {\ + if (cfg_log_mask & CFG_LOG_ERR)\ + _slog (sLogCtrl,_cfg_err_logstr,\ + thisFileName,__LINE__,a,b,c);\ + } +#define CFG_LOG_ERR3(a,b,c,d) {\ + if (cfg_log_mask & CFG_LOG_ERR)\ + _slog (sLogCtrl,_cfg_err_logstr,\ + thisFileName,__LINE__,a,b,c,d);\ + } + + +#define CFG_LOG_FLOW0(a) {\ + if (cfg_log_mask & CFG_LOG_FLOW)\ + _slog (sLogCtrl,_cfg_flow_logstr,\ + thisFileName,__LINE__,a);\ + } +#define CFG_LOG_FLOW1(a,b) {\ + if (cfg_log_mask & CFG_LOG_FLOW)\ + _slog (sLogCtrl,_cfg_flow_logstr,\ + thisFileName,__LINE__,a,b);\ + } +#define CFG_LOG_CFLOW0(a) {\ + if (cfg_log_mask & CFG_LOG_FLOW)\ + _slogc (sLogCtrl,a);\ + } +#define CFG_LOG_CFLOW1(a,b) {\ + if (cfg_log_mask & CFG_LOG_FLOW)\ + _slogc (sLogCtrl,a,b);\ + } + +#else /* no DEBUG */ + +#define CFG_LOG_ERR0(a) +#define CFG_LOG_ERR1(a,b) +#define CFG_LOG_ERR2(a,b,c) +#define CFG_LOG_ERR3(a,b,c,d) +#define CFG_LOG_FLOW0(a) +#define CFG_LOG_FLOW1(a,b) +#define CFG_LOG_CFLOW0(a) +#define CFG_LOG_CFLOW1(a,b) + +#endif + + + +#ifdef __cplusplus +} +#endif + + +#endif diff --git a/mmslib/inc/checksum.h b/mmslib/inc/checksum.h new file mode 100644 index 0000000..b1ceeff --- /dev/null +++ b/mmslib/inc/checksum.h @@ -0,0 +1,46 @@ +#ifndef CHECKSUM_INCLUDED +#define CHECKSUM_INCLUDED +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1996, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : checksum.h */ +/* PRODUCT(S) : Lean-T Stack */ +/* */ +/* MODULE DESCRIPTION : */ +/* This header file contain functionprototypes for */ +/* implemented computation and verification of checksum */ +/* using the algorithm defined in Annex B of the ISO 8073 */ +/* or in the ISO 8473. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* checksum_insert */ +/* checksum_verified */ +/* */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 06/19/96 EJV 01 Created */ +/************************************************************************/ +#ifdef __cplusplus +extern "C" { +#endif + + +ST_VOID checksum_insert (ST_UCHAR *buf, ST_UINT16 buf_len, ST_UINT16 position); +ST_BOOLEAN checksum_verified (ST_UCHAR *buf, ST_UINT16 buf_len, ST_UINT16 position, ST_BOOLEAN clnp_csum); + + + +#ifdef __cplusplus +} +#endif + +#endif /* end of 'already included' */ diff --git a/mmslib/inc/clnp.h b/mmslib/inc/clnp.h new file mode 100644 index 0000000..2be27e6 --- /dev/null +++ b/mmslib/inc/clnp.h @@ -0,0 +1,259 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1996, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : clnp.h */ +/* PRODUCT(S) : Lean-T Stack */ +/* */ +/* MODULE DESCRIPTION : */ +/* This header file specifies internal defines and function*/ +/* prototypes for implementation of Connectionless-mode */ +/* Network Protocol (CLNP). */ +/* Note that the CLNP is implemented as non-segmenting */ +/* subset of the full protocol. */ +/* */ +/* For information see the: */ +/* ISO 8473 "Information processing systems - Data communication - */ +/* Protocol providing the connectionless-mode network service"; */ +/* ISO 8348 "Information processing systems - Data communication - */ +/* Network service definition. Addendum 1: Connectionless-mode */ +/* transmission". */ +/* ISO 9542 "Information processing systems - Telecommunications */ +/* and information exchange beetween systems - End system to */ +/* Intermediate system routing exchange protocol for use with */ +/* ISO 8473. */ +/* */ +/* GLOBAL STRUCTURES DEFINED IN THIS MODULE : */ +/* */ +/* CLNP_8473_FHDR struct */ +/* CLNP_9542_FHDR struct */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 07/19/96 EJV 02 Moved CLNP_DEF_LEN_HDR from clnp_usr.h and */ +/* deleted clnpl_all_es_mac */ +/* 05/24/96 EJV 01 Created */ +/************************************************************************/ + +#ifndef CLNP_INCLUDED +#define CLNP_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + + + +/************************************************************************/ +/* Defines and structures below are specific to the ISO 8473 standard */ +/* (DT and ER PDUs for CLNP). */ +/************************************************************************/ + + +/* ISO 8473 protocol id and version */ +#define CLNP_8473_PROT_ID (ST_UCHAR) 0x81 +#define CLNP_8473_PROT_VER (ST_UCHAR) 0x01 + +/* PDU type and flags (they are already in proper bit position) */ +#define CLNP_8473_TYPE_ER (ST_UCHAR) 0x01 +#define CLNP_8473_TYPE_DT (ST_UCHAR) 0x1C + +#define CLNP_SEG_NOT_PERMITTED (ST_UCHAR) 0x00 +#define CLNP_SEG_PERMITTED (ST_UCHAR) 0x80 + /* bit 8 ON */ + +#define CLNP_LAST_SEG (ST_UCHAR) 0x00 +#define CLNP_MORE_SEG (ST_UCHAR) 0x40 + /* bit 7 ON */ + +#define CLNP_ERR_REP_NOT_GEN (ST_UCHAR) 0x00 +#define CLNP_ERR_REP_GENERATE (ST_UCHAR) 0x20 + /* bit 6 ON */ + +#define CLNP_MASK_FLAGS (ST_UCHAR) 0x1F /* mask bit 6,7,8 */ + + + +/*----------------------------------------------------------------------*/ +/* CLNP_8473_FHDR struct */ +/*----------------------------------------------------------------------*/ +/* Structure below define the fixed part in the ISO 8473 PDU header. */ +/* The rest of the header has variable length. */ + +/* NOTE: ! only ST_UCHAR type should be in protocol structs to avoid */ +/* ! packing or problems with sizeof operator. */ + +typedef struct + { + ST_UCHAR protocol_id; /* Network Layer Protocol Identifier */ + ST_UCHAR hdr_len; /* Header length */ + ST_UCHAR protocol_ver; /* Version of the protocol */ + ST_UCHAR pdu_lifetime; /* Remaining lifetime for PDU */ + ST_UCHAR type_flags; /* PDU type & flags */ + ST_UCHAR seg_len[2]; /* Segment length (hdr+data len)swapped */ + ST_UCHAR checksum [2]; /* Checksum of the PDU header */ + }CLNP_8473_FHDR; + +#define CLNP_8473_FHDR_LEN sizeof (CLNP_8473_FHDR) + + +/* structure below defines the Segmenting part in a DT PDU header */ +typedef struct + { + ST_UCHAR pdu_id [2]; /* Data Unit Identiefier */ + ST_UCHAR pdu_offset [2]; /* Offset of the segment in original PDU*/ + ST_UCHAR pdu_total_len [2]; /* Total len of original PDU */ + }CLNP_8473_HDR_SEG; + +#define CLNP_8473_HDR_SEG_LEN sizeof (CLNP_8473_HDR_SEG) + + +#define CLNP_DEF_LEN_HDR (ST_UCHAR) (CLNP_8473_FHDR_LEN+2*(CLNP_MAX_LEN_NSAP+1)) + /* this implementaion assumes */ + /* following parts to be present*/ + /* in header: */ + /* fixedPart +destNSAP +srcNSAP */ + /* (no seg, no options parts); */ + /* 51 bytes or less */ + + +/************************************************************************/ +/* Defines and structures below are specific to the ISO 9542 standard */ +/* (ES-IS HELLOs for CLNP). */ +/************************************************************************/ + + +/* ISO 8473 protocol id and version */ +#define CLNP_9542_PROT_ID (ST_UCHAR) 0x82 +#define CLNP_9542_PROT_VER (ST_UCHAR) 0x01 + +/* PDU type */ +#define CLNP_9542_TYPE_ESH (ST_UCHAR) 0x02 +#define CLNP_9542_TYPE_ISH (ST_UCHAR) 0x04 +#define CLNP_9542_TYPE_RD (ST_UCHAR) 0x06 + + + +/*----------------------------------------------------------------------*/ +/* CLNP_9542_FHDR struct */ +/*----------------------------------------------------------------------*/ +/* Structure below defines the fixed part in the ISO 9542 PDU header. */ +/* The rest of the header has variable length. */ +/* Note that the ISO 9542 (ES HELLO and IS HELLO PDUs) do not contain */ +/* PDU data part. */ + +/* NOTE: ! only ST_UCHAR type should be in protocol structs to avoid */ +/* ! packing or problems with sizeof operator. */ + +typedef struct + { + ST_UCHAR protocol_id; /* Network Layer Protocol Identifier */ + ST_UCHAR hdr_len; /* Header length */ + ST_UCHAR protocol_ver; /* Version of the protocol */ + ST_UCHAR rfu; /* Reserved for future use */ + ST_UCHAR type; /* PDU type, bits 6,7,8 are always 0 */ + ST_UCHAR holding_time[2];/* max time to retain received info */ + ST_UCHAR checksum [2]; /* Checksum of the PDU header */ + }CLNP_9542_FHDR; + +#define CLNP_9542_FHDR_LEN sizeof (CLNP_9542_FHDR) + + + +/************************************************************************/ +/* Internal CLNP function prototypes */ +/************************************************************************/ + +/* clnp_enc.c module */ + +ST_RET clnpl_encode_dt (SN_UNITDATA *sn_req, N_UNITDATA *req); +ST_RET clnpl_encode_esh (ST_UCHAR *enc_buf, ST_UINT16 *enc_len); + + +/* clnp_dec.c module */ + +ST_RET clnpl_decode (SN_UNITDATA *sn_req, N_UNITDATA **req); +ST_VOID clnpl_log_npdu (ST_UCHAR *pdu_buf, ST_UCHAR npdu_type, ST_CHAR *enc_dec_str); + +/* clnp_esh.c module */ + +ST_RET clnpl_init_esh (ST_UINT16 delay_time); +ST_VOID clnpl_check_cfg_timer (ST_VOID); +ST_RET clnpl_send_esh (ST_UCHAR *rem_mac); + + +#if 0 +/* struct below may be needed to implement in the future the ISO 8473 */ +/* header options */ +/*----------------------------------------------------------------------*/ +/* CLNP_OPTIONS struct */ +/*----------------------------------------------------------------------*/ +/* Structure below specifies the options to be used for the PDU. */ +/* The options by default are all turned off at the start-up */ +/* time. In future some functions may be provided to set up the options */ +/* or the structure will be exposed to the CLNP-user for setting the */ +/* parameters. */ +/* NOTE: currently none of the option are implemented. */ + +/* Options for padding_flag */ +#define CLNP_OPT_PAD_NONE 0 /* no header padding */ +#define CLNP_OPT_PAD_TO_SIZE 1 /* pad header to specified size */ +#define CLNP_OPT_PAD_TO_BOUDARY 2 /* pad header so that data */ + /* starts on specified boundary */ +/* Options for security_flag */ +#define CLNP_OPT_SEC_NONE 0 /* no security level specified */ +#define CLNP_OPT_SEC_SRC 1 /* sec. Source Address specific */ +#define CLNP_OPT_SEC_DEST 2 /* sec. Dest Address specific */ +#define CLNP_OPT_SEC_UNIQUE 3 /* security Globally Unique */ + +/* Options for routeing_flag */ +#define CLNP_OPT_ROUTE_NONE 0 /* no routeing specified */ +#define CLNP_OPT_ROUTE_PART 1 /* partial routeing requested */ +#define CLNP_OPT_ROUTE_COMP 2 /* complete routeing requested */ + +/* Options for record_route_flag */ +#define CLNP_OPT_REC_ROUTE_NONE 0 /* no route recording */ +#define CLNP_OPT_REC_ROUTE_PART 1 /* partial route recording */ +#define CLNP_OPT_RCE_ROUTE_COMP 2 /* complete route recording */ + +/* Options for qos_flag (Quality of Service - QoS) */ +#define CLNP_OPT_QoS_NONE 0 /* no QoS specified */ +#define CLNP_OPT_QoS_SRC 1 /* QoS Source Address specific */ +#define CLNP_OPT_QoS_DEST 2 /* QoS Dest Address specific */ +#define CLNP_OPT_QoS_UNIQUE 3 /* QoS Globally Unique */ + +/* Options for priority_flag (use values from 1 to 14 to specified */ +/* priority parameter for the DT PDU. */ +#define CLNP_OPT_PRIORITY_DEF 0 /* default priority */ +#define CLNP_OPT_PRIORITY_MAX 14 /* max priority */ + +typedef struct + { + ST_UCHAR padding_flag; + ST_UCHAR security_flag; + ST_UCHAR routeing_flag; + ST_UCHAR record_route_flag; + ST_UCHAR qos_flag; + ST_UCHAR priority_flag; + }CLNP_OPTIONS; + +extern CLNP_OPTIONS clnpl_options; +#endif + +#ifdef __cplusplus +} +#endif + +#endif /* end of 'already included' */ + + + + diff --git a/mmslib/inc/clnp_llc.h b/mmslib/inc/clnp_llc.h new file mode 100644 index 0000000..cecd0ee --- /dev/null +++ b/mmslib/inc/clnp_llc.h @@ -0,0 +1,66 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1996-2002, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : clnp_llc.h */ +/* PRODUCT(S) : Lean-T Stack */ +/* */ +/* MODULE DESCRIPTION : */ +/* This header file contains defines for the encoding and */ +/* decoding of Logical Link Control (LLC) which is */ +/* implemented with the CLNP layer. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 08/12/04 JRB 04 Del LLC_LSAP_IEC_GOOSE 0xF5 (obsolete now). */ +/* 01/10/02 JRB 03 Add LLC_LSAP_IEC_GOOSE. */ +/* 09/09/97 EJV 02 Added support for UCA SMP (Station Mgt Prot) */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 06/04/96 EJV 01 Created */ +/************************************************************************/ + +#ifndef CLNP_LLC_INCLUDED +#define CLNP_LLC_INCLUDED + + +#ifdef __cplusplus +extern "C" { +#endif + + +#define LLC_LSAP (ST_UCHAR) 0xFE +#define LLC_CONTROL (ST_UCHAR) 0x03 + +#define LLC_LSAP_SMP (ST_UCHAR) 0xFB /* For UCA SMP (Station Mgt Prot) */ +#define LLC_CONTROL_SMP (ST_UCHAR) 0x03 /* For UCA SMP (Station Mgt Prot) */ + +typedef struct + { + ST_UCHAR dest; /* destination SAP */ + ST_UCHAR src; /* source SAP */ + ST_UCHAR control; /* control field */ + }LLC_HDR; + +#define LLC_HDR_LEN sizeof (LLC_HDR) + + +/* Function prototypes from llc.c module */ + +ST_RET clnpl_llc_encode (ST_UCHAR *enc_buf, ST_UCHAR src_lsap, ST_UCHAR dest_lsap); +ST_RET clnpl_llc_decode (ST_UCHAR *dec_buf, ST_UCHAR *dest_lsap); + + +#ifdef __cplusplus +} +#endif + +#endif /* end of 'already included' */ + + diff --git a/mmslib/inc/clnp_log.h b/mmslib/inc/clnp_log.h new file mode 100644 index 0000000..c53e1f3 --- /dev/null +++ b/mmslib/inc/clnp_log.h @@ -0,0 +1,231 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1996, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : clnp_log.h */ +/* PRODUCT(S) : Lean-T Stack */ +/* */ +/* MODULE DESCRIPTION : */ +/* This header file contains logging macros for CLNP. */ +/* Note: To compile logging functions use the DEBUG_SISCO define */ +/* in the project make file. */ +/* */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 06/09/03 JRB 07 Use new "Base" macros SLOG_*, SLOGC_*, SLOGH.*/ +/* Del unused macros. */ +/* 10/02/01 JRB 06 Fix logstr in CLSNS_LOG_* macros. */ +/* 09/13/99 MDE 05 Added SD_CONST modifiers */ +/* 10/08/98 MDE 04 Migrated to updated SLOG interface */ +/* 07/28/97 JRB 03 Added CLNP_LOG_REQ2 / 3 & CLNP_LOG_IND2 / 3 */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 03/03/97 EJV 02 Corrected ALWAYS macros; */ +/* Removed check if sLogCtrl not NULL */ +/* 06/10/96 EJV 01 Created */ +/************************************************************************/ + +#ifndef CLNP_LOG_INCLUDED +#define CLNP_LOG_INCLUDED + +#include "slog.h" + +#ifdef __cplusplus +extern "C" { +#endif + + +/* NOTE: CLNP log masks and clnp_debug_sel are defined in clnp_usr.h */ + +extern SD_CONST ST_CHAR *SD_CONST _clnp_err_logstr; +extern SD_CONST ST_CHAR *SD_CONST _clnp_nerr_logstr; +extern SD_CONST ST_CHAR *SD_CONST _clnp_req_logstr; +extern SD_CONST ST_CHAR *SD_CONST _clnp_ind_logstr; +extern SD_CONST ST_CHAR *SD_CONST _clnp_enc_dec_logstr; +extern SD_CONST ST_CHAR *SD_CONST _clnp_llc_enc_dec_logstr; +extern SD_CONST ST_CHAR *SD_CONST _clsns_req_logstr; +extern SD_CONST ST_CHAR *SD_CONST _clsns_ind_logstr; + +#if defined(DEBUG_SISCO) + /*--------------------------------------------------------------------*/ + /* macros below are used to log REQ or IND by passing mask to select */ + /* the logging macro (this is handy in log function so the macros */ + /* do not have to repeated in function for REQ and then for IND) */ + /*--------------------------------------------------------------------*/ + + #define CLNP_LOGC_RI0(m,a) {if (m == CLNP_LOG_REQ) {CLNP_LOGC_REQ0(a);} else {CLNP_LOGC_IND0(a);}} + #define CLNP_LOGC_RI1(m,a,b) {if (m == CLNP_LOG_REQ) {CLNP_LOGC_REQ1(a,b);} else {CLNP_LOGC_IND1(a,b);}} + + #define CLNP_LOGH_RI(m,a,b) {if (m == CLNP_LOG_REQ) {CLNP_LOGH_REQ(a,b);} else {CLNP_LOGH_IND(a,b);}} + + /*--------------------------------------------------------------------*/ + /* macros below are used to log REQ or IND by passing mask to select */ + /* the logging macro (this is handy in log function so the macros */ + /* do not have to repeated in function for REQ and then for IND) */ + /*--------------------------------------------------------------------*/ + + #define CLSNS_LOGC_RI0(m,a) {if (m == CLSNS_LOG_REQ) {CLSNS_LOGC_REQ0(a);} else {CLSNS_LOGC_IND0(a);}} + #define CLSNS_LOGC_RI1(m,a,b) {if (m == CLSNS_LOG_REQ) {CLSNS_LOGC_REQ1(a,b);} else {CLSNS_LOGC_IND1(a,b);}} + + #define CLSNS_LOGH_RI(m,a,b) {if (m == CLSNS_LOG_REQ) {CLSNS_LOGH_REQ(a,b);} else {CLSNS_LOGH_IND(a,b);}} + +#else /* !defined(DEBUG_SISCO) */ + + /*--------------------------------------------------------------------*/ + /* macros below are used to log REQ or IND by passing mask */ + /*--------------------------------------------------------------------*/ + + #define CLNP_LOGC_RI0(m,a) + #define CLNP_LOGC_RI1(m,a,b) + #define CLNP_LOGH_RI(m,a,b) + + /*--------------------------------------------------------------------*/ + /* macros below are used to log REQ or IND by passing mask */ + /*--------------------------------------------------------------------*/ + + #define CLSNS_LOGC_RI0(m,a) + #define CLSNS_LOGC_RI1(m,a,b) + + #define CLSNS_LOGH_RI(m,a,b) + +#endif /* !defined(DEBUG_SISCO) */ + + /*--------------------------------------------*/ + /* hard errors logging */ + /*--------------------------------------------*/ + +#define CLNP_LOG_ERR0(a) \ + SLOG_0 (clnp_debug_sel & CLNP_LOG_ERR,_clnp_err_logstr,a) +#define CLNP_LOG_ERR1(a,b) \ + SLOG_1 (clnp_debug_sel & CLNP_LOG_ERR,_clnp_err_logstr,a,b) +#define CLNP_LOG_ERR2(a,b,c) \ + SLOG_2 (clnp_debug_sel & CLNP_LOG_ERR,_clnp_err_logstr,a,b,c) +#define CLNP_LOG_ERR3(a,b,c,d) \ + SLOG_3 (clnp_debug_sel & CLNP_LOG_ERR,_clnp_err_logstr,a,b,c,d) + + /*--------------------------------------------*/ + /* normal errors logging */ + /*--------------------------------------------*/ + +#define CLNP_LOG_NERR0(a) \ + SLOG_0 (clnp_debug_sel & CLNP_LOG_NERR,_clnp_nerr_logstr,a) +#define CLNP_LOG_NERR1(a,b) \ + SLOG_1 (clnp_debug_sel & CLNP_LOG_NERR,_clnp_nerr_logstr,a,b) +#define CLNP_LOG_NERR2(a,b,c) \ + SLOG_2 (clnp_debug_sel & CLNP_LOG_NERR,_clnp_nerr_logstr,a,b,c) +#define CLNP_LOG_NERR3(a,b,c,d) \ + SLOG_3 (clnp_debug_sel & CLNP_LOG_NERR,_clnp_nerr_logstr,a,b,c,d) + + /*--------------------------------------------*/ + /* CLNP-user request logging */ + /*--------------------------------------------*/ + +#define CLNP_LOG_REQ0(a) \ + SLOG_0 (clnp_debug_sel & CLNP_LOG_REQ,_clnp_req_logstr,a) +#define CLNP_LOG_REQ1(a,b) \ + SLOG_1 (clnp_debug_sel & CLNP_LOG_REQ,_clnp_req_logstr,a,b) +#define CLNP_LOG_REQ2(a,b,c) \ + SLOG_2 (clnp_debug_sel & CLNP_LOG_REQ,_clnp_req_logstr,a,b,c) +#define CLNP_LOG_REQ3(a,b,c,d) \ + SLOG_3 (clnp_debug_sel & CLNP_LOG_REQ,_clnp_req_logstr,a,b,c,d) + /* continuation log */ +#define CLNP_LOGC_REQ0(a) \ + SLOGC_0 (clnp_debug_sel & CLNP_LOG_REQ,a) +#define CLNP_LOGC_REQ1(a,b) \ + SLOGC_1 (clnp_debug_sel & CLNP_LOG_REQ,a,b) + /* hex logging */ +#define CLNP_LOGH_REQ(a,b) \ + SLOGH (clnp_debug_sel & CLNP_LOG_REQ,a,b) + + /*--------------------------------------------*/ + /* CLNP_user indication logging */ + /*--------------------------------------------*/ + +#define CLNP_LOG_IND0(a) \ + SLOG_0 (clnp_debug_sel & CLNP_LOG_IND,_clnp_ind_logstr,a) +#define CLNP_LOG_IND1(a,b) \ + SLOG_1 (clnp_debug_sel & CLNP_LOG_IND,_clnp_ind_logstr,a,b) +#define CLNP_LOG_IND2(a,b,c) \ + SLOG_2 (clnp_debug_sel & CLNP_LOG_IND,_clnp_ind_logstr,a,b,c) +#define CLNP_LOG_IND3(a,b,c,d) \ + SLOG_3 (clnp_debug_sel & CLNP_LOG_IND,_clnp_ind_logstr,a,b,c,d) + /* continuation log */ +#define CLNP_LOGC_IND0(a) \ + SLOGC_0 (clnp_debug_sel & CLNP_LOG_IND,a) +#define CLNP_LOGC_IND1(a,b) \ + SLOGC_1 (clnp_debug_sel & CLNP_LOG_IND,a,b) + /* hex logging */ +#define CLNP_LOGH_IND(a,b) \ + SLOGH (clnp_debug_sel & CLNP_LOG_IND,a,b) + + /*--------------------------------------------*/ + /* CLNP encoding/decoding of NPDU */ + /*--------------------------------------------*/ + +#define CLNP_LOG_ENC_DEC0(a) \ + SLOG_0 (clnp_debug_sel & CLNP_LOG_ENC_DEC,_clnp_enc_dec_logstr,a) +#define CLNP_LOG_ENC_DEC1(a,b) \ + SLOG_1 (clnp_debug_sel & CLNP_LOG_ENC_DEC,_clnp_enc_dec_logstr,a,b) +#define CLNP_LOG_ENC_DEC2(a,b,c) \ + SLOG_2 (clnp_debug_sel & CLNP_LOG_ENC_DEC,_clnp_enc_dec_logstr,a,b,c) + /* continuation log */ +#define CLNP_LOGC_ENC_DEC0(a) \ + SLOGC_0 (clnp_debug_sel & CLNP_LOG_ENC_DEC,a) +#define CLNP_LOGC_ENC_DEC1(a,b) \ + SLOGC_1 (clnp_debug_sel & CLNP_LOG_ENC_DEC,a,b) + /* hex logging */ +#define CLNP_LOGH_ENC_DEC(a,b) \ + SLOGH (clnp_debug_sel & CLNP_LOG_ENC_DEC,a,b) + + /*--------------------------------------------*/ + /* LLC encoding/decoding of LPDU */ + /*--------------------------------------------*/ + +#define CLNP_LOG_LLC_ENC_DEC3(a,b,c,d) \ + SLOG_3 (clnp_debug_sel & CLNP_LOG_LLC_ENC_DEC,_clnp_llc_enc_dec_logstr,a,b,c,d) + + /*----------------------------------------------*/ + /* sub-network services request (write) logging */ + /*----------------------------------------------*/ + +#define CLSNS_LOG_REQ0(a) \ + SLOG_0 (clnp_debug_sel & CLSNS_LOG_REQ,_clsns_req_logstr,a) +#define CLSNS_LOG_REQ1(a,b) \ + SLOG_1 (clnp_debug_sel & CLSNS_LOG_REQ,_clsns_req_logstr,a,b) + /* continuation log */ +#define CLSNS_LOGC_REQ0(a) \ + SLOGC_0 (clnp_debug_sel & CLSNS_LOG_REQ,a) +#define CLSNS_LOGC_REQ1(a,b) \ + SLOGC_1 (clnp_debug_sel & CLSNS_LOG_REQ,a,b) + /* hex logging */ +#define CLSNS_LOGH_REQ(a,b) \ + SLOGH (clnp_debug_sel & CLSNS_LOG_REQ,a,b) + + /*------------------------------------------------*/ + /* sub-network services indication logging (read) */ + /*------------------------------------------------*/ + +#define CLSNS_LOG_IND0(a) \ + SLOG_0 (clnp_debug_sel & CLSNS_LOG_IND,_clsns_ind_logstr,a) +#define CLSNS_LOG_IND1(a,b) \ + SLOG_1 (clnp_debug_sel & CLSNS_LOG_IND,_clsns_ind_logstr,a,b) + + /* continuation log */ +#define CLSNS_LOGC_IND0(a) \ + SLOGC_0 (clnp_debug_sel & CLSNS_LOG_IND,a) +#define CLSNS_LOGC_IND1(a,b) \ + SLOGC_1 (clnp_debug_sel & CLSNS_LOG_IND,a,b) + /* hex logging */ +#define CLSNS_LOGH_IND(a,b) \ + SLOGH (clnp_debug_sel & CLSNS_LOG_IND,a,b) + +#ifdef __cplusplus +} +#endif + +#endif /* end of 'already included' */ diff --git a/mmslib/inc/clnp_sne.h b/mmslib/inc/clnp_sne.h new file mode 100644 index 0000000..be7fbee --- /dev/null +++ b/mmslib/inc/clnp_sne.h @@ -0,0 +1,227 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1996-2005, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : clnp_sne.h */ +/* PRODUCT(S) : Lean-T Stack */ +/* */ +/* MODULE DESCRIPTION : */ +/* This header file defines the interface between the */ +/* Connectionless-mode Network Protocol (CLNP) and the */ +/* underlying sub-network. */ +/* */ +/* GLOBAL STRUCTURES DEFINED IN THIS MODULE : */ +/* */ +/* SN_UNITDATA struct */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* clnp_snet_init */ +/* clnp_snet_term */ +/* clnp_snet_read */ +/* clnp_snet_write */ +/* clnp_snet_free */ +/* clnp_snet_add_multicast_mac */ +/* clnp_snet_ext_write */ +/* clnp_snet_timer_tick */ +/* clnp_snet_update_is */ +/* clnp_snet_update_es */ +/* clnp_snet_lookup_mac */ +/* clnp_snet_get_all_is_mac */ +/* clnp_snet_get_all_es_mac */ +/* clnp_snet_get_local_mac */ +/* clnp_snet_get_max_udata_len */ +/* clnp_snet_get_type */ +/* clnp_snet_create_es_table */ +/* clnp_snet_check_mac */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/12/06 JRB 15 Add hPktSock extern. */ +/* 03/20/06 JRB 14 Add clnp_snet_write_raw. */ +/* Include clnp_usr.h (need some defs from it). */ +/* 07/25/05 JRB 13 Add comment explaining "lpdu_len". */ +/* 02/08/05 JRB 12 Increase ETHE_MAX_LEN_LSDU to 1518 to allow */ +/* for 802.1Q QTag Prefix. */ +/* Del ETYPE_UNITDATA, code no longer uses it. */ +/* Add clnp_snet_frame_to_udt. */ +/* Add clnp_snet_read_hook_*. */ +/* 11/20/02 ASK 11 Added ETYPE_UNITDATA struct, clnp_etype_write*/ +/* proto */ +/* 10/24/02 NAV 10 Add clnp_snet_rx_multicast_stop proto. */ +/* 11/15/01 JRB 09 Add more "multicast" functions. */ +/* Add clnpl_log_snsdu proto. */ +/* 02/21/00 JRB 08 Del "free_lpdu" flag from SN_UNITDATA, and */ +/* use portable "clnp_snet_free" instead. */ +/* 01/28/99 MDE 07 Added size to ETHE_ALL_ES, ETHE_ALL_IS */ +/* 11/30/98 JRB 06 Added Ethernet defines. */ +/* Added clnp_snet_add_multicast_mac prototype. */ +/* Added clnp_snet_check_mac prototype. */ +/* 09/23/97 EJV 05 Added clnp_snet_ext_write for UCA_SMP. */ +/* Aligned fields in SN_UNITDATA struct. */ +/* 06/19/97 EJV 04 Added clnp_snet_create_es_table prototype. */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 10/17/96 EJV 03 Added define SUBNET_PROFI. */ +/* 07/22/96 EJV 02 Added func clnp_snet_get_type () and defines */ +/* for implemented sub-networks SUBNET_ADLC and */ +/* SUBNET_ETHE. */ +/* 05/23/96 EJV 01 Created */ +/************************************************************************/ + +#ifndef CLNP_SNE_INCLUDED +#define CLNP_SNE_INCLUDED + +#include "clnp_usr.h" /* need CLNP_MAX_LEN_MAC & CLNP_PARAM */ + +#ifdef __cplusplus +extern "C" { +#endif + +/* implemented sub-networks types */ +#define SUBNET_ADLC 1 +#define SUBNET_ETHE 2 +#define SUBNET_PROFI 3 + +/*----------------------------------------------------------------------*/ +/* Structure below is used to pass SN_UNITDATA to/from read/write */ +/* functions between the CLNP and CLNP-Subnetwork interface. */ + +typedef struct + { + ST_UCHAR loc_mac [CLNP_MAX_LEN_MAC]; /* Buffer for local MAC addr */ + ST_UCHAR rem_mac [CLNP_MAX_LEN_MAC]; /* Buffer for remote MAC addr */ + /* WARNING: The "lpdu_len" param does NOT always contain the PDU length.*/ + /* It contains the "Length/Type" field of the MAC frame as defined in */ + /* IEEE 802.3. Any value greater than or equal to 0x600 must be */ + /* interpreted as the "Type" of the MAC frame. */ + /* Renaming this parameter would clarify the code, but too much */ + /* existing code is already using it. */ + ST_UINT16 lpdu_len; /* IEEE 802.3 "Length/Type" field. */ + ST_UCHAR *lpdu; /* Pointer to LPDU buffer to send. */ + }SN_UNITDATA; + +#define SN_UNITDATA_LEN sizeof (SN_UNITDATA) + +/*----------------------------------------------------------------------*/ +/* Defines for type of MAC address in received PDU. */ +/* Returned by "clnp_snet_check_mac". */ +/*----------------------------------------------------------------------*/ +#define CLNP_MAC_INVALID 0 /* Invalid MAC address (not one */ + /* of addresses def below) */ +#define CLNP_MAC_LOCAL 1 /* Our MAC address */ +#define CLNP_MAC_ALL_ES 2 /* All-ES (End Systems) address */ +#define CLNP_MAC_ALL_IS 3 /* All-IS (Intermediate Systems)*/ +#define CLNP_MAC_GOOSE 4 /* Possible GOOSE address */ + +/*----------------------------------------------------------------------*/ +/* Defines and externs for Ethernet Subnetwork (SUBNET_ETHE) only. */ +/*----------------------------------------------------------------------*/ +#define ETHE_MAC_LEN 6 + +#define ETHE_LEN_HEAD (2*ETHE_MAC_LEN + 2) +#define ETHE_MIN_LEN_LSDU 60 +/* Max len for normal frame is 1514, but with QTag Prefix it could be 1518*/ +#define ETHE_MAX_LEN_LSDU 1518 +#define ETHE_MAX_LEN_UDATA 1500 /* max. MAC User data length */ + +#define ETHE_LEN_QTAG_PREFIX 4 /* 802.1Q (VLAN) header length */ +#define ETHE_LEN_LENTYPE 2 /* MAC Len/type field length */ + +/* Ethernet frame structure */ +/* WARNING: This structure is not convenient for representing frames */ +/* containing the IEEE 802.1Q QTag Prefix. The QTag Prefix would come */ +/* between src_addr and frame_len in this structure. */ +/* Most code using this structure was written before QTag existed. */ +/* New code should not use this structure. */ +typedef struct + { + ST_UCHAR dst_addr [ETHE_MAC_LEN]; /* destination MAC address */ + ST_UCHAR src_addr [ETHE_MAC_LEN]; /* source MAC address */ + ST_UCHAR frame_len[2]; /* total frame length */ + ST_UCHAR data_buf [ETHE_MAX_LEN_UDATA]; /* data buffer */ + } ETHE_FRAME; + +#define ETHE_FRAME_LEN sizeof (ETHE_FRAME) + +/*----------------------------------------------------------------------*/ +/* Global variables. */ +/*----------------------------------------------------------------------*/ +/* All ES and all IS addresses */ +extern ST_UCHAR ETHE_ALL_ES [ETHE_MAC_LEN]; +extern ST_UCHAR ETHE_ALL_IS [ETHE_MAC_LEN]; +extern int hPktSock; /* Packet Socket handle (for LINUX, etc.) */ + +/*----------------------------------------------------------------------*/ +/* Interface functions to underlying sub-network */ +/*----------------------------------------------------------------------*/ + +ST_RET clnp_snet_init (CLNP_PARAM *clnp_param); +ST_RET clnp_snet_term (ST_VOID); +ST_RET clnp_snet_read (SN_UNITDATA *sn_req); +ST_RET clnp_snet_write (SN_UNITDATA *sn_req); +ST_RET clnp_etype_write (SN_UNITDATA *sn_req); +/* clnp_snet_write_raw replaces OBSOLETE clnp_snet_write and clnp_etype_write.*/ +ST_RET clnp_snet_write_raw ( + ST_UCHAR *framePtr, /* Pointer to complete frame including MACs*/ + size_t frameLen); /* Length of complete frame */ +ST_VOID clnp_snet_free (SN_UNITDATA *sn_req); +ST_VOID clnpl_log_snsdu (SN_UNITDATA *sn_req, ST_ULONG log_mask); +ST_RET clnp_snet_add_multicast_mac (ST_UCHAR *mac_buf); +ST_RET clnp_snet_set_multicast_filter (ST_UCHAR *mac_list, ST_INT num_macs); +ST_RET clnp_snet_rx_all_multicast_start (ST_VOID); +ST_RET clnp_snet_rx_all_multicast_stop (ST_VOID); +ST_RET clnp_snet_rx_multicast_stop (ST_VOID); + +ST_RET clnp_snet_ext_write (SN_UNITDATA *sn_req, ST_LONG user_id); +ST_VOID clnp_snet_timer_tick (ST_VOID); + +ST_RET clnp_snet_update_is (ST_UCHAR *rem_nsap, ST_UCHAR *rem_mac, ST_UINT16 holding_time); +ST_RET clnp_snet_update_es (ST_UCHAR *rem_nsap, ST_UCHAR *rem_mac, ST_UINT16 holding_time); + +ST_RET clnp_snet_lookup_is (ST_UCHAR *rem_mac); +ST_RET clnp_snet_lookup_es (ST_UCHAR *rem_nsap, ST_UCHAR *rem_mac); + +ST_RET clnp_snet_get_all_is_mac (ST_UCHAR *mac_buf); +ST_RET clnp_snet_get_all_es_mac (ST_UCHAR *mac_buf); +ST_RET clnp_snet_get_local_mac (ST_UCHAR *mac_buf); +ST_UINT16 clnp_snet_get_max_udata_len (ST_VOID); +ST_INT clnp_snet_get_type (ST_VOID); + +ST_RET clnp_snet_create_es_table (ST_UINT max_count); +ST_INT clnp_snet_check_mac (ST_UCHAR *mac_addr); + +/* Add subnetwork read hook function to do custom processing of */ +/* received packets. */ +ST_RET clnp_snet_read_hook_add ( + ST_RET (*usr_fun)(SN_UNITDATA *sn_req)); /* hook function*/ + +/* Remove subnetwork read hook function (i.e. stop custom processing). */ +ST_RET clnp_snet_read_hook_remove ( + ST_RET (*usr_fun)(SN_UNITDATA *sn_req)); /* hook function*/ + +/* Process all subnetwork read hook functions. */ +ST_RET clnp_snet_read_hook_process (SN_UNITDATA *sn_req); + +/* Copy data from raw frame to SN_UNITDATA struct. */ +ST_RET clnp_snet_frame_to_udt (ST_UINT8 *frame_buf, /* ptr to raw frame*/ + ST_INT frame_len, /* len of raw frame*/ + SN_UNITDATA *sn_req, + ST_INT udata_max_len); /* max user data len */ + +#ifdef __cplusplus +} +#endif + +#endif /* end of 'already included' */ + + + + + + + diff --git a/mmslib/inc/clnp_sta.h b/mmslib/inc/clnp_sta.h new file mode 100644 index 0000000..87f3206 --- /dev/null +++ b/mmslib/inc/clnp_sta.h @@ -0,0 +1,125 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1996, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : clnp_sta.h */ +/* PRODUCT(S) : Lean-T Stack */ +/* */ +/* MODULE DESCRIPTION : */ +/* This header file defines the statistics for the */ +/* Connectionless-mode Network Protocol (CLNP). */ +/* */ +/* Note: Compile the whole project with CLNP_STAT define to */ +/* keep statistics of CLNP operation. */ +/* */ +/* GLOBAL STRUCTURES DEFINED IN THIS MODULE : */ +/* */ +/* CLNP_STATS struct */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 05/23/96 EJV 01 Created */ +/************************************************************************/ + + +#ifndef CLNP_STA_INCLUDED +#define CLNP_STA_INCLUDED + + +#ifdef __cplusplus +extern "C" { +#endif + +/* struct below describes the statistics recorded by the CLNP */ + +/* Statistics for PDUs */ +typedef struct + { + ST_UINT cnt_sent; /* Number of sent PDUs */ + ST_UINT cnt_rcvd; /* Number of received PDUs */ + ST_UINT cnt_expired; /* Number of expired PDUs */ + ST_UINT cnt_discarded; /* Number of discarded PDUs */ + }CLNP_PDU_STAT; + +typedef struct + { + CLNP_PDU_STAT all_pdu; /* stats for all PDUs */ + CLNP_PDU_STAT dt_pdu; /* stats for DT PDUs */ + CLNP_PDU_STAT er_pdu; /* stats for ER PDUs */ + }CLNP_STATS; + +#define CLNP_STATS_LEN sizeof (CLNP_STATS) + + +ST_RET clnp_stats_reset (ST_VOID); +CLNP_STATS *clnp_stats_get (ST_VOID); + + +#if defined(CLNP_STAT) + + extern CLNP_STATS clnp_stats; + + /* macros to increment all PDUs statistics */ + + #define CLNP_STAT_INC_PDU_SENT {clnp_stats.all_pdu.cnt_sent += 1;} + #define CLNP_STAT_INC_PDU_RECEIVED {clnp_stats.all_pdu.cnt_rcvd += 1;} + #define CLNP_STAT_INC_PDU_EXPIRED {clnp_stats.all_pdu.cnt_expired += 1;} + #define CLNP_STAT_INC_PDU_DISCARDED {clnp_stats.all_pdu.cnt_discarded += 1;} + + /* macros to increment DT PDU statistics */ + + #define CLNP_STAT_INC_DT_SENT {clnp_stats.dt_pdu.cnt_sent += 1;} + #define CLNP_STAT_INC_DT_RECEIVED {clnp_stats.dt_pdu.cnt_rcvd += 1;} + #define CLNP_STAT_INC_DT_EXPIRED {clnp_stats.dt_pdu.cnt_expired += 1;} + #define CLNP_STAT_INC_DT_DISCARDED {clnp_stats.dt_pdu.cnt_discarded += 1;} + + /* macros to increment ER PDU statistics */ + + #define CLNP_STAT_INC_ER_SENT {clnp_stats.er_pdu.cnt_sent += 1;} + #define CLNP_STAT_INC_ER_RECEIVED {clnp_stats.er_pdu.cnt_rcvd += 1;} + #define CLNP_STAT_INC_ER_EXPIRED {clnp_stats.er_pdu.cnt_expired += 1;} + #define CLNP_STAT_INC_ER_DISCARDED {clnp_stats.er_pdu.cnt_discarded += 1;} + +#else + + /* macros if CLNP_STAT is not defined */ + + /* macros to increment all PDU statistics */ + + #define CLNP_STAT_INC_PDU_SENT + #define CLNP_STAT_INC_PDU_RECEIVED + #define CLNP_STAT_INC_PDU_EXPIRED + #define CLNP_STAT_INC_PDU_DISCARDED + + /* macros to increment DT PDU statistics */ + + #define CLNP_STAT_INC_DT_SENT + #define CLNP_STAT_INC_DT_RECEIVED + #define CLNP_STAT_INC_DT_EXPIRED + #define CLNP_STAT_INC_DT_DISCARDED + + /* macros to increment ER PDU statistics */ + + #define CLNP_STAT_INC_ER_SENT + #define CLNP_STAT_INC_ER_RECEIVED + #define CLNP_STAT_INC_ER_EXPIRED + #define CLNP_STAT_INC_ER_DISCARDED + +#endif /* end of CLNP_STAT defined */ + + +#ifdef __cplusplus +} +#endif + +#endif /* end of 'already included' */ + diff --git a/mmslib/inc/clnp_tnt.h b/mmslib/inc/clnp_tnt.h new file mode 100644 index 0000000..1eea64d --- /dev/null +++ b/mmslib/inc/clnp_tnt.h @@ -0,0 +1,45 @@ +#ifndef CLNP_TNT_INCLUDED +#define CLNP_TNT_INCLUDED +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1998 - 2000 All Rights Reserved */ +/* */ +/* MODULE NAME : clnp_tnt.h */ +/* PRODUCT(S) : Lean-T Stack (Phar Lap TNT ETS port only) */ +/* */ +/* MODULE DESCRIPTION : */ +/* Stub function prototypes for Phar Lap TNT ETS. Ethernet drivers */ +/* must be modified to call these functions instead of the normal */ +/* functions in the Phar Lap TCP/IP stack. This allows the SISCO */ +/* OSI stack to intercept these calls and and do any necessary OSI */ +/* processing before passing them on to the Phar Lap TCP/IP stack. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 05/05/00 JRB 03 Remove last chg. No longer needed. */ +/* 03/19/99 EJV 02 pfXmit has 4 parameters in Phar Lap ver 9.1 */ +/* (with NE2K patch) */ +/* Introduced the _PHARLAP91_PATCHED define */ +/* 10/30/98 JRB 01 Created */ +/************************************************************************/ +int __cdecl stubEtsTCPSetDeviceEthernetInfo(DEVHANDLE hDriver, + char *pEnetStationAddr); +int __cdecl stubEtsTCPRegisterDeviceFuncs(DEVHANDLE hDevice, + int (__cdecl *pfUpDown)(DEVHANDLE hDevice, + unsigned short goingUp, + char *options), + int (__cdecl *pfIoctl)(DEVHANDLE hDevice, int mode), + int (__cdecl *pfXmit)(DEVHANDLE hDevice, + long *pPacket, int packetLen), + int (__cdecl *pfSend)(void *pPacketHdr)); + +void __cdecl stubEtsTCPQueueRecvBuffer(DEVHANDLE hDriver, void *hMsg, + int pkt_len, + char *pRecvBuf); + +#endif /* !CLNP_TNT_INCLUDED */ diff --git a/mmslib/inc/clnp_usr.h b/mmslib/inc/clnp_usr.h new file mode 100644 index 0000000..2357b36 --- /dev/null +++ b/mmslib/inc/clnp_usr.h @@ -0,0 +1,462 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1996, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : clnp_usr.h */ +/* PRODUCT(S) : Lean-T Stack */ +/* */ +/* MODULE DESCRIPTION : */ +/* This header file defines the interface between the */ +/* Connectionless-mode Network Protocol (CLNP) and the */ +/* CLNP-user in order to exchange Network Service Data */ +/* Units (NSDUs). */ +/* Note that the CLNP is implemented as non-segmenting */ +/* subset of the full protocol. */ +/* */ +/* For information see the: */ +/* ISO 8473 "Information processing systems - Data communication - */ +/* Protocol providing the connectionless-mode network service"; */ +/* ISO 8348 "Information processing systems - Data communication - */ +/* Network service definition. Addendum 1: Connectionless-mode */ +/* transmission". */ +/* ISO 9542 "Information processing systems - Telecommunications */ +/* and information exchange beetween systems - End system to */ +/* Intermediate system routing exchange protocol for use with */ +/* ISO 8473. */ +/* */ +/* */ +/* GLOBAL STRUCTURES DEFINED IN THIS MODULE : */ +/* */ +/* CLNP_PARAM struct */ +/* N_UNITDATA struct */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* clnp_init */ +/* clnp_end */ +/* clnp_alloc */ +/* clnp_free */ +/* clnp_read */ +/* clnp_write */ +/* clnp_timer_tick */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 09/10/07 JRB 09 Add network_device to CLNP_PARAM. */ +/* 10/24/03 JRB 08 Move clnp_debug_sel to slog.h. */ +/* 02/29/00 JRB 07 Add clnp_status proto. */ +/* 08/11/99 JRB 06 Add DBL_LNK to N_UNITDATA for multithreading.*/ +/* 08/05/99 JRB 05 Clean up multithreading. */ +/* 08/02/99 JRB 04 Use glbsem for multithreading. */ +/* 07/30/99 JRB 03 Add "multi-threading" support. */ +/* 12/04/98 JRB 02 Add "loc_nsap" to N_UNITDATA. */ +/* 08/13/98 JRB 01 Lint cleanup. */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 04/10/97 JRB 06 Moved error defs from clnp_err.h to here */ +/* and changed to use base from "glberror.h". */ +/* 03/03/97 EJV 05 Removed CLNP_LOG_ALWAYS */ +/* 10/04/96 JRB 04 Added loc_mac to N_UNITDATA. */ +/* 07/22/96 EJV 03 Changed CLNP_DEF_ESH_DELAY from 5 to 0. */ +/* 07/19/96 EJV 02 Removed ns_userdata_len from clnp_param */ +/* Moved CLNP_DEF_LEN_HDR to clnp.h and deleted */ +/* unused defines */ +/* 05/23/96 EJV 01 Created */ +/************************************************************************/ + +#ifndef CLNP_USR_INCLUDED +#define CLNP_USR_INCLUDED + +#include "gen_list.h" /* Need DBL_LNK definition. */ +#include "glbsem.h" /* Need ST_EVENT_SEM definition. */ +#ifdef __cplusplus +extern "C" { +#endif + +/*----------------------------------------------------------------------*/ +/* Error codes returned from the CLNP interface funcs to the CLNP-user */ +/* NOTE: Values begin from E_CLNP (found in glberror.h). */ +/*----------------------------------------------------------------------*/ +/* CLNP general errors */ +#define CLNP_ERR_CFG_FILE 0x3400 /* Errors found in cfg file (or required*/ + /* params not configured = local MAC and*/ + /* local NSAP) */ +#define CLNP_ERR_NOT_INIT 0x3401 /* CLNP has not been initialized */ +#define CLNP_ERR_MEM_ALLOC 0x3402 /* allocating memory failed */ +#define CLNP_ERR_NULL_PTR 0x3403 /* NULL pointer passed to clnp_... func */ + +/* CLNP parsing clnp_param structure errors */ +/* -&-&- */ +/* CAN NOT recover from this parameter error !!! */ +#define CLNP_ERR_NSAP_LEN 0x3404 /* NSAP length is 0 or more then allowed*/ +/* CAN recover from parameter errors below */ +#define CLNP_ERR_LIFETIME 0x3405 /* Invalid PDU lifetime */ +#define CLNP_ERR_LIFETIME_DEC 0x3406 /* Invalid PDU lifetime decrement value */ +#define CLNP_ERR_ESH_CFG_TIMER 0x3407 /* Invalid ESH Configuration Timer value*/ +#define CLNP_ERR_ESH_DELAY 0x3408 /* Invalid delay value for first ESH */ +#define CLNP_ERR_MAC_ADDR 0x3409 /* Local MAC address not configured */ + /* (for ADLC sub-network) */ +#define CLNP_ERR_UDATA_LEN 0x3410 /* CLNP-user data length (too big) */ +/* last error code is also used for CLNP PDU encoding error */ +/* -&-&- */ + +/* CLNP PDU parsing (decoding) errors */ +#define CLNP_ERR_PDU_MAC_ADDR 0x3420 /* The NPDU MAC address is not local MAC*/ + /* or All ES MAC. */ +#define CLNP_ERR_PDU_ID 0x3421 /* invalid/not supported PDU identifier */ +#define CLNP_ERR_PDU_VER 0x3422 /* invalid/not supported PDU version */ +#define CLNP_ERR_PDU_TYPE 0x3423 /* invalid/not supported PDU type */ +#define CLNP_ERR_PDU_LEN 0x3424 /* received PDU len does not match the */ + /* len indicated by sub-network */ +#define CLNP_ERR_PDU_EXPIRED 0x3425 /* DT or ER PDU's lifetime expired */ +#define CLNP_ERR_PDU_NSAP_ADDR 0x3426 /* PDU not addressed to our local NSAP */ +#define CLNP_ERR_PDU_SEGMENTING 0x3427 /* Segmented PDUs not supported */ +#define CLNP_ERR_PDU_CHECKSUM 0x3428 /* PDU checksum verification failed */ +#define CLNP_ERR_PDU_LAST_SEG 0x3429 /* Last seg bit not set (unsegmented PDU)*/ +#define CLNP_ERR_PDU_ER_PDU 0x342A /* code turned off for ER PDU processing*/ + +/* LLC encoding/decoding errors */ +#define LLC_ERR_SRC_ADDR 0x3481 /* LLC header Source field invalid */ +#define LLC_ERR_DEST_ADDR 0x3482 /* LLC header Dest filed invalid */ +#define LLC_ERR_CONTROL 0x3483 /* LLC header Control field invalid */ + +/*----------------------------------------------------------------------*/ +/* Error codes returned from the sub-network interface functions. */ +/* NOTE: Values begin from E_SUBNET (found in glberror.h). */ +/*----------------------------------------------------------------------*/ +#define SNET_ERR_INIT 0x3501 /* Init sub-net interface failed*/ +#define SNET_ERR_WRITE 0x3502 /* sub-net write func failed */ +#define SNET_ERR_READ 0x3503 /* sub-net read func failed or no data */ +#define SNET_ERR_MAC_INVALID 0x3504 /* invalid MAC address, unable */ + /* to obtain requested ALL ES, */ + /* ALL IS, or local MAC address.*/ +#define SNET_ERR_FRAME_LEN 0x3505 /* received more data than */ + /* reserved in buffer. */ +#define SNET_ERR_UDATA_LEN 0x3506 /* invalid len of data to send (too large)*/ + +/* sub-net errors specific to the Ethernet driver */ +#define SNET_ERR_DRV_OPEN 0x3520 /* open driver failed */ +#define SNET_ERR_DRV_LOC_MAC 0x3521 /* obtain local MAC addr from driver failed*/ +#define SNET_ERR_DRV_ADD_ES_ADDR 0x3522 /* add All ES Address failed */ +#define SNET_ERR_DRV_BIND_LSAP 0x3523 /* bind to LSAP failed */ +#define SNET_ERR_DRV_POST_BUFS 0x3524 /* post buffers to driver failed*/ + +/*----------------------------------------------------------------------*/ +/* CLNP logging types */ + +#define CLNP_LOG_ERR 0x00000001L +#define CLNP_LOG_NERR 0x00000002L + +/* to log CLNP-user indication or request */ +#define CLNP_LOG_REQ 0x00000010L +#define CLNP_LOG_IND 0x00000020L + +/* to log CLNP encoding/decoding or LLC encoding/decoding */ + +#define CLNP_LOG_ENC_DEC 0x00000100L +#define CLNP_LOG_LLC_ENC_DEC 0x00000200L + +/* to log data read/written to sub-network */ +#define CLSNS_LOG_REQ 0x00001000L +#define CLSNS_LOG_IND 0x00002000L + +/* CLNP is using clnp_debug_sel variable to turn on/off different */ +/* types of logging (see slog.h). */ + +/*----------------------------------------------------------------------*/ +/* The defines with CLNP_MAX_... specify the maximum values the */ +/* ISO 8473 or this implementation allows. The CLNP_DEF_... defines */ +/* specify the default values used to initialize the CLNP_PARAM struct. */ +/* */ +/* Note: The max length of NS-USERDATA is 64512 bytes but this number */ +/* is limited by underlying sub-network to: */ +/* for ADLC -> 32676 - CLNP_DEF_LEN_HDR - LLC_HDR_LEN */ +/* for Ethernet -> 1500 - CLNP_DEF_LEN_HDR - LLC_HDR_LEN */ + + +#define CLNP_MAX_LEN_MAC 6 /* Max len of MAC addr */ +#define CLNP_MAX_LEN_NSAP 20 /* Max len of NSAP addr */ + +#define CLNP_MIN_PDU_LIFETIME (ST_UCHAR) 1 /* min PDU lifetime in 500msec units */ +#define CLNP_MAX_PDU_LIFETIME (ST_UCHAR) 255 /* max PDU lifetime in 500msec units */ +#define CLNP_DEF_PDU_LIFETIME (ST_UCHAR) 50 /* def PDU lifetime in 500msec units */ +#define CLNP_DEF_PDU_LIFETIME_DEC (ST_UCHAR) 1 /* PDU lifetime decrement (in 500msec units) */ + + +#define CLNP_MAX_ESH_CFG_TIMER (ST_UINT16) 32767 /* max value for ESH Configuration Timer, it is */ + /* related to Holding Time in ESH which is */ + /* 2*CfgTimer=2*32767=65534 (must be ST_UINT16) */ +#define CLNP_DEF_ESH_CFG_TIMER (ST_UINT16) 120 /* default ESH Configuration Timer (in seconds) */ +#define CLNP_DEF_ESH_DELAY (ST_UINT16) 0 /* default delay before first ESH will be sent */ + + + +/*----------------------------------------------------------------------*/ +/* CLNP_PARAM struct */ +/* */ +/* This struct is used to supply actual parameters needed for operation */ +/* of the CLNP. */ +/* It is set by the NS-USER during call to clnp_init() function from */ +/* configuration file or from hard coded module clnp_hc.c. */ +/* */ +/* NOTE: The NSAP address is represented as sequence of unsigned bytes. */ +/* The first byte is the length of the NSAP address. This makes */ +/* it easy to put the NSAP to PDU. */ +/* Note: The pdu_lifetime_dec specifies by how many units the lifetime */ +/* value in received DT or ER PDU should be decremented. It has */ +/* to be at least 1. In case the transit delay plus processing */ +/* time is larger then 500msec the pdu_life_time_dec should be */ +/* adjusted accordingly. */ + +typedef struct + { + ST_UCHAR pdu_lifetime; /* PDU lifetime (in 500 msec units) for */ + /* outgoing DT PDUs. */ + /* init to CLNP_DEF_PDU_LIFETIME */ + ST_UCHAR pdu_lifetime_dec; /* PDU lifetime decrement (1=500msec) */ + /* for incomming DT or ER PDUs. */ + /* init to CLNP_DEF_PDU_LIFETIME_DEC */ + ST_UINT16 esh_cfg_timer; /* How often we report our presence to */ + /* other network entities (in seconds) */ + /* init to CLNP_DEF_ESH_CFG_TIMER */ + ST_UINT16 esh_delay; /* Delay time before first ESH is sent */ + /* init to CLNP_DEF_ESH_DELAY */ + ST_UCHAR loc_mac [CLNP_MAX_LEN_MAC]; /* Local MAC address */ + /* For ADLC the NS-USER sets the loc_mac*/ + /* DEBUG: Now the loc_mac has to match */ + /* the address in adlc.cfg !!! */ + /* For the Ethernet this param will be */ + /* read from the driver during init. */ + ST_UCHAR loc_nsap [1+CLNP_MAX_LEN_NSAP];/* Local len & NSAP address */ + ST_CHAR *network_device; /* network device name. May be used to */ + /* select device on some platforms */ + }CLNP_PARAM; + +#define CLNP_PARAM_LEN sizeof (CLNP_PARAM) + + +extern CLNP_PARAM clnp_param; /* This struct holds parameters needed */ + /* for the CLNP operations. */ + /* It is set by the CLNP-user before */ + /* calling the clnp_init() function. */ + + + + +/*----------------------------------------------------------------------*/ +/* N_UNITDATA struct */ +/* */ +/* This struct is used to pass N_UNITDATA request primitive to CLNP */ +/* and to receive N_UNITDATA indication from CLNP. */ +/* This struct uses the following trick to make the size of data buffer */ +/* configurable: */ +/* The last entry in the structure is a tiny (2 bytes) buffer. */ +/* To allow for any size data_buf, we can allocate extra bytes */ +/* after this struct. */ +/* For example if we want data_buf to be 4096 bytes, we could use */ +/* the following malloc call: */ +/* N_UNITDATA *req = malloc (sizeof (N_UNITDATA) + 4096 - 2 ); */ +/* The buffer can then be filled in, for example, as follow: */ +/* memcpy (req->data_buf, raw_data, 4096); */ +/* */ +/* NOTE: The "Local NSAP" is not passed back and forth in this struct. */ +/* Only one local NSAP is allowed. */ +/* */ +/* NOTE: The NSAP address is represented as sequence of unsigned bytes. */ +/* The first byte is the length of the NSAP address. This makes */ +/* it easy to get a NSAP from a NSDU. */ + + +#define CLNP_MIN_LEN_UDATA 2 + /* min length of data_buf defined in */ + /* N_UNITDATA struct. Do not use 1 */ + /* because optimizer may NOT treat this */ + /* field as an array. */ + +typedef struct + { + DBL_LNK link; /* for multithreading, must go on linked list */ + ST_BOOLEAN rem_mac_valid; /* SD_TRUE if MAC addr valid */ + ST_UCHAR loc_mac [CLNP_MAX_LEN_MAC]; /* Local MAC addr */ + ST_UCHAR rem_mac [CLNP_MAX_LEN_MAC]; /* Remote MAC addr */ + ST_UCHAR loc_nsap [1+CLNP_MAX_LEN_NSAP]; /* Local len & NSAP addr*/ + ST_UCHAR rem_nsap [1+CLNP_MAX_LEN_NSAP]; /* Remote len & NSAP addr */ + ST_UINT16 data_len; /* Data length in bytes */ + ST_UCHAR data_buf [CLNP_MIN_LEN_UDATA]; /* Data buffer */ + }N_UNITDATA; + +#define N_UNITDATA_LEN sizeof (N_UNITDATA) + + + + + +/************************************************************************/ +/* clnp_init */ +/*----------------------------------------------------------------------*/ +/* This function will initialize the operation of CLNP and the interface*/ +/* to underlying sub-network. */ +/* The CLNP-user should set the parameters in the clnp_param structure */ +/* before calling this function. */ +/* */ +/* Parameters: */ +/* ST_UINT ns_userdata_len Max size of NS-USERDATA */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if initialization successful */ +/* error code otherwise */ +/************************************************************************/ +ST_RET clnp_init (ST_UINT ns_userdata_len); + + +/************************************************************************/ +/* clnp_end */ +/*----------------------------------------------------------------------*/ +/* This function will terminate the operation of the CLNP and cleanup */ +/* the interface to underlying subnetwork. */ +/* */ +/* Parameters: */ +/* ST_VOID none */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if termination successful */ +/* error code otherwise */ +/************************************************************************/ +ST_RET clnp_end (ST_VOID); + + +/************************************************************************/ +/* clnp_alloc */ +/*----------------------------------------------------------------------*/ +/* This function will allocate a buffer for N_UNITDATA to pass data */ +/* between the CLNP and the CLNP-user. */ +/* */ +/* Parameters: */ +/* ST_UINT data_len Length of data in bytes. The length */ +/* of CLNP-user data has to be: */ +/* 0 < data_len <= CLNP_MAX_LEN_UDATA */ +/* */ +/* Return: */ +/* N_UNITDATA * pointer to allocated memory */ +/* NULL if function fails to alloc memory */ +/************************************************************************/ +N_UNITDATA *clnp_alloc (ST_UINT data_len); + + +/************************************************************************/ +/* clnp_free */ +/*----------------------------------------------------------------------*/ +/* This function will free buffer allocated for N_UNITDATA passed */ +/* between the CLNP and the CLNP-user. */ +/* */ +/* Parameters: */ +/* N_UNITDATA * memory pointer to free */ +/* */ +/* Return: */ +/* ST_VOID */ +/************************************************************************/ +ST_VOID clnp_free (N_UNITDATA *req); + + +/************************************************************************/ +/* clnp_read */ +/*----------------------------------------------------------------------*/ +/* This function is used by the CLNP-user to read N_UNITDATA.indication */ +/* from the CLNP. */ +/* The CLNP-user should free the returned pointer after the indication */ +/* has been processed. */ +/* */ +/* Parameters: */ +/* ST_VOID none */ +/* */ +/* Return: */ +/* N_UNITDATA * ptr to received N_UNITDATA.indication */ +/* NULL if N_UNITDATA.indication not received */ +/************************************************************************/ +N_UNITDATA *clnp_read (ST_VOID); + + +/************************************************************************/ +/* clnp_write */ +/*----------------------------------------------------------------------*/ +/* This function is used by the CLNP-user to write N_UNITDATA.request */ +/* to the CLNP. */ +/* The CLNP will free the req pointer. */ +/* */ +/* Parameters: */ +/* N_UNITDATA *req ptr to N_UNITDATA.request to send */ +/* This pointer should be allocated using */ +/* the clnp_alloc function. */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if N_UNITDATA.request sent successfully */ +/* error code otherwise */ +/************************************************************************/ +ST_RET clnp_write (N_UNITDATA *req); + + +/************************************************************************/ +/* clnp_timer_tick */ +/*----------------------------------------------------------------------*/ +/* This function is called on 1 second intervals by the CLNP-user (TP4) */ +/* When this function is called, CLNP decrements the Configuration */ +/* Timer (used to trigger sending of ES-Hellos), and the Holding Timers */ +/* (used to trigger clearing the {NSAP,MAC} table entries). */ +/* */ +/* Parameters: */ +/* ST_VOID none */ +/* */ +/* Return: */ +/* ST_VOID none */ +/************************************************************************/ +ST_VOID clnp_timer_tick (ST_VOID); + + +/************************************************************************/ +/* clnp_config */ +/*----------------------------------------------------------------------*/ +/* This function will initialize the CLNP parameters. */ +/* */ +/* Parameters: */ +/* ST_VOID none */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if configuration successful */ +/* error code otherwise */ +/************************************************************************/ +ST_RET clnp_config (ST_VOID); + +/************************************************************************/ +/* clnp_status */ +/*----------------------------------------------------------------------*/ +/* This function checks to see if CLNP is running. */ +/* */ +/* Return: */ +/* SD_SUCCESS if running, else error code. */ +/************************************************************************/ +ST_RET clnp_status (ST_VOID); + +/************************************************************************/ +/* Multi-threading prototypes and externs. */ +/************************************************************************/ +ST_RET clnp_read_thread_start (ST_VOID); +N_UNITDATA *clnp_read_main (ST_VOID); +N_UNITDATA *clnp_read_goose (ST_VOID); + +extern N_UNITDATA * (*clnp_read_fun_cl) (ST_VOID); /* Function ptr.*/ +extern N_UNITDATA * (*clnp_read_fun_co) (ST_VOID); /* Function ptr.*/ +extern ST_EVENT_SEM hMMSEvent; +extern ST_EVENT_SEM hMainEvent; +extern ST_EVENT_SEM hGooseEvent; + +#ifdef __cplusplus +} +#endif + +#endif /* end of 'already included' */ + + diff --git a/mmslib/inc/clnpport.h b/mmslib/inc/clnpport.h new file mode 100644 index 0000000..6b83b2b --- /dev/null +++ b/mmslib/inc/clnpport.h @@ -0,0 +1,52 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1996, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : clnpport.h */ +/* PRODUCT(S) : Lean-T Stack */ +/* */ +/* MODULE DESCRIPTION : */ +/* This header file specifies defines which should be */ +/* ported for use by specific system. */ +/* */ +/* For information see the: */ +/* ISO 8473 "Information processing systems - Data communication - */ +/* Protocol providing the connectionless-mode network service"; */ +/* ISO 8348 "Information processing systems - Data communication - */ +/* Network service definition. Addendum 1: Connectionless-mode */ +/* transmission". */ +/* ISO 9542 "Information processing systems - Telecommunications */ +/* and information exchange beetween systems - End system to */ +/* Intermediate system routing exchange protocol for use with */ +/* ISO 8473. */ +/* */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 05/06/97 EJV 02 Removed SWAP_SHORT macro */ +/* 05/31/96 EJV 01 Created */ +/************************************************************************/ + +#ifndef CLNPPORT_INCLUDED +#define CLNPPORT_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +/* NOTE: This file currently is empty. It may be used in the future */ +/* to implement code specific to an operating system. */ + +#endif +#ifdef __cplusplus +} + +#endif /* end of 'already included' */ diff --git a/mmslib/inc/conpack.h b/mmslib/inc/conpack.h new file mode 100644 index 0000000..d237441 --- /dev/null +++ b/mmslib/inc/conpack.h @@ -0,0 +1,101 @@ +#define NDIS_PACKET_TYPE_DIRECTED 0x0001 +#define NDIS_PACKET_TYPE_MULTICAST 0x0002 +#define NDIS_PACKET_TYPE_ALL_MULTICAST 0x0004 +#define NDIS_PACKET_TYPE_BROADCAST 0x0008 +#define NDIS_PACKET_TYPE_SOURCE_ROUTING 0x0010 +#define NDIS_PACKET_TYPE_PROMISCUOUS 0x0020 +#define NDIS_PACKET_TYPE_SMT 0x0040 +#define NDIS_PACKET_TYPE_MAC_FRAME 0x8000 +#define NDIS_PACKET_TYPE_FUNCTIONAL 0x4000 +#define NDIS_PACKET_TYPE_ALL_FUNCTIONAL 0x2000 +#define NDIS_PACKET_TYPE_GROUP 0x1000 + +#define OID_GEN_SUPPORTED_LIST 0x00010101 +#define OID_GEN_HARDWARE_STATUS 0x00010102 +#define OID_GEN_MEDIA_SUPPORTED 0x00010103 +#define OID_GEN_MEDIA_IN_USE 0x00010104 +#define OID_GEN_MAXIMUM_LOOKAHEAD 0x00010105 +#define OID_GEN_MAXIMUM_FRAME_SIZE 0x00010106 +#define OID_GEN_LINK_SPEED 0x00010107 +#define OID_GEN_TRANSMIT_BUFFER_SPACE 0x00010108 +#define OID_GEN_RECEIVE_BUFFER_SPACE 0x00010109 +#define OID_GEN_TRANSMIT_BLOCK_SIZE 0x0001010A +#define OID_GEN_RECEIVE_BLOCK_SIZE 0x0001010B +#define OID_GEN_VENDOR_ID 0x0001010C +#define OID_GEN_VENDOR_DESCRIPTION 0x0001010D +#define OID_GEN_CURRENT_PACKET_FILTER 0x0001010E +#define OID_GEN_CURRENT_LOOKAHEAD 0x0001010F +#define OID_GEN_DRIVER_VERSION 0x00010110 +#define OID_GEN_MAXIMUM_TOTAL_SIZE 0x00010111 +#define OID_GEN_PROTOCOL_OPTIONS 0x00010112 +#define OID_GEN_MAC_OPTIONS 0x00010113 + +#define OID_GEN_XMIT_OK 0x00020101 +#define OID_GEN_RCV_OK 0x00020102 +#define OID_GEN_XMIT_ERROR 0x00020103 +#define OID_GEN_RCV_ERROR 0x00020104 +#define OID_GEN_RCV_NO_BUFFER 0x00020105 + +#define OID_GEN_DIRECTED_BYTES_XMIT 0x00020201 +#define OID_GEN_DIRECTED_FRAMES_XMIT 0x00020202 +#define OID_GEN_MULTICAST_BYTES_XMIT 0x00020203 +#define OID_GEN_MULTICAST_FRAMES_XMIT 0x00020204 +#define OID_GEN_BROADCAST_BYTES_XMIT 0x00020205 +#define OID_GEN_BROADCAST_FRAMES_XMIT 0x00020206 +#define OID_GEN_DIRECTED_BYTES_RCV 0x00020207 +#define OID_GEN_DIRECTED_FRAMES_RCV 0x00020208 +#define OID_GEN_MULTICAST_BYTES_RCV 0x00020209 +#define OID_GEN_MULTICAST_FRAMES_RCV 0x0002020A +#define OID_GEN_BROADCAST_BYTES_RCV 0x0002020B +#define OID_GEN_BROADCAST_FRAMES_RCV 0x0002020C + +#define OID_GEN_RCV_CRC_ERROR 0x0002020D +#define OID_GEN_TRANSMIT_QUEUE_LENGTH 0x0002020E + + +// +// 802.3 Objects (Ethernet) +// + +#define OID_802_3_PERMANENT_ADDRESS 0x01010101 +#define OID_802_3_CURRENT_ADDRESS 0x01010102 +#define OID_802_3_MULTICAST_LIST 0x01010103 +#define OID_802_3_MAXIMUM_LIST_SIZE 0x01010104 + +#define OID_802_3_RCV_ERROR_ALIGNMENT 0x01020101 +#define OID_802_3_XMIT_ONE_COLLISION 0x01020102 +#define OID_802_3_XMIT_MORE_COLLISIONS 0x01020103 + +#define OID_802_3_XMIT_DEFERRED 0x01020201 +#define OID_802_3_XMIT_MAX_COLLISIONS 0x01020202 +#define OID_802_3_RCV_OVERRUN 0x01020203 +#define OID_802_3_XMIT_UNDERRUN 0x01020204 +#define OID_802_3_XMIT_HEARTBEAT_FAILURE 0x01020205 +#define OID_802_3_XMIT_TIMES_CRS_LOST 0x01020206 +#define OID_802_3_XMIT_LATE_COLLISIONS 0x01020207 + +// +// WAN objects +// + +#define OID_WAN_PERMANENT_ADDRESS 0x04010101 +#define OID_WAN_CURRENT_ADDRESS 0x04010102 +#define OID_WAN_QUALITY_OF_SERVICE 0x04010103 +#define OID_WAN_PROTOCOL_TYPE 0x04010104 +#define OID_WAN_MEDIUM_SUBTYPE 0x04010105 +#define OID_WAN_HEADER_FORMAT 0x04010106 + +#define OID_WAN_GET_INFO 0x04010107 +#define OID_WAN_SET_LINK_INFO 0x04010108 +#define OID_WAN_GET_LINK_INFO 0x04010109 + +#define OID_WAN_LINE_COUNT 0x0401010A + +#define OID_WAN_GET_BRIDGE_INFO 0x0401020A +#define OID_WAN_SET_BRIDGE_INFO 0x0401020B +#define OID_WAN_GET_COMP_INFO 0x0401020C +#define OID_WAN_SET_COMP_INFO 0x0401020D +#define OID_WAN_GET_STATS_INFO 0x0401020E + + + diff --git a/mmslib/inc/copp.h b/mmslib/inc/copp.h new file mode 100644 index 0000000..d03b1b9 --- /dev/null +++ b/mmslib/inc/copp.h @@ -0,0 +1,68 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1997, All Rights Reserved */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : copp.h */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : */ +/* COPP internal header file. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/11/01 JRB 04 Convert to use ASN1R. */ +/* 02/20/98 JRB 03 Chg abort_reason to ST_INT8 too. */ +/* 12/22/97 JRB 02 Use ST_INT8. */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 03/05/97 JRB 01 Created. */ +/************************************************************************/ + +#ifndef COPP_INCLUDED +#define COPP_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "copp_usr.h" +#include "copp_log.h" + + /*======================================================*/ + /* C O N N E C T I O N S T A T E S */ + /*======================================================*/ + +/* Valid states, the first IDLE state must be 0) */ +#define COPP_STATE_IDLE 0 +#define COPP_STATE_AWAIT_CPA 1 +#define COPP_STATE_AWAIT_CON_RSP 2 +#define COPP_STATE_CONNECTED 3 + + /*======================================================*/ + /* PRESENTATION INTERNAL FUNCTIONS */ + /*======================================================*/ + +/* Function to encode and send ARP PPDU. */ +ST_VOID copp_p_abort_req (ACSE_CONN *acse_conn, ST_INT8 abort_reason, ST_INT8 event_id); +ST_VOID START_p_user_data (ASN1_DEC_CTXT *aCtx); + + /*======================================================*/ + /* PRESENTATION INTERNAL VARIABLES */ + /*======================================================*/ + +extern ST_UCHAR only_loc_psel []; /* Local len & PSEL */ +extern ST_BOOLEAN p_user_data_is_outer; /* Is P-User-data outermost constr?*/ + /* SD_TRUE or SD_FALSE */ + +/************************************************************************/ +#ifdef __cplusplus +} +#endif + +#endif /* COPP_INCLUDED */ +/************************************************************************/ + diff --git a/mmslib/inc/copp_log.h b/mmslib/inc/copp_log.h new file mode 100644 index 0000000..73b7298 --- /dev/null +++ b/mmslib/inc/copp_log.h @@ -0,0 +1,167 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1997 - 2007, All Rights Reserved */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : copp_log.h */ +/* PRODUCT(S) : MOSI Stack (over TP4) */ +/* */ +/* MODULE DESCRIPTION : */ +/* This header file contains logging macros for COPP. */ +/* Note: To compile logging functions use the DEBUG_SISCO define */ +/* in the project make file. */ +/* */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 11/01/07 EJV 05 Updated COPP_LOG_* macros to use SLOG_n. */ +/* 09/13/99 MDE 04 Added SD_CONST modifiers */ +/* 10/08/98 MDE 03 Migrated to updated SLOG interface */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 03/19/97 JRB 02 General cleanup. */ +/* 02/20/97 EJV 01 Created */ +/************************************************************************/ + +#ifndef COPP_LOG_INCLUDED +#define COPP_LOG_INCLUDED + +#include "slog.h" + +#ifdef __cplusplus +extern "C" { +#endif + +/* NOTE: COPP log masks and acse_debug_sel are defined in acse2usr.h */ + +#if defined(DEBUG_SISCO) + +extern SD_CONST ST_CHAR *SD_CONST _copp_err_logstr; +extern SD_CONST ST_CHAR *SD_CONST _copp_dec_logstr; +extern SD_CONST ST_CHAR *SD_CONST _copp_dec_hex_logstr; +extern SD_CONST ST_CHAR *SD_CONST _copp_enc_logstr; +extern SD_CONST ST_CHAR *SD_CONST _copp_enc_hex_logstr; + + /*--------------------------------------------*/ + /* hard errors logging */ + /*--------------------------------------------*/ + + #define COPP_LOG_ERR0(a) \ + SLOG_0 (acse_debug_sel & COPP_LOG_ERR,_copp_err_logstr,a) + + #define COPP_LOG_ERR1(a,b) \ + SLOG_1 (acse_debug_sel & COPP_LOG_ERR,_copp_err_logstr,a,b) + + #define COPP_LOG_ERR2(a,b,c) \ + SLOG_2 (acse_debug_sel & COPP_LOG_ERR,_copp_err_logstr,a,b, c) + + #define COPP_LOG_ERR3(a,b,c,d) \ + SLOG_3 (acse_debug_sel & COPP_LOG_ERR,_copp_err_logstr,a,b, c,d) + + /*--------------------------------------------*/ + /* PS-user req and rsp logging */ + /*--------------------------------------------*/ + + #define COPP_LOG_ENC0(a) \ + SLOG_0 (acse_debug_sel & COPP_LOG_ENC,_copp_enc_logstr,a) + + #define COPP_LOG_ENC1(a,b) \ + SLOG_1 (acse_debug_sel & COPP_LOG_ENC,_copp_enc_logstr,a,b) + + #define COPP_LOG_ENC2(a,b,c) \ + SLOG_2 (acse_debug_sel & COPP_LOG_ENC,_copp_enc_logstr,a,b,c) + + #define COPP_LOG_ENC3(a,b,c,d) \ + SLOG_3 (acse_debug_sel & COPP_LOG_ENC,_copp_enc_logstr,a,b,c,d) + + #define COPP_LOG_ENC4(a,b,c,d,e) \ + SLOG_4 (acse_debug_sel & COPP_LOG_ENC,_copp_enc_logstr,a,b,c,d,e) + + /* continuation macros */ + #define COPP_LOG_ENCC0(a) \ + SLOGC_0 (acse_debug_sel & COPP_LOG_ENC,a) + + #define COPP_LOG_ENCC1(a,b) \ + SLOGC_1 (acse_debug_sel & COPP_LOG_ENC,a,b) + + /* hex logging */ + #define COPP_LOG_ENCH(a,b) \ + SLOGH (acse_debug_sel & COPP_LOG_ENC,a,b) + + /*--------------------------------------------*/ + /* PS-user ind and cnf logging */ + /*--------------------------------------------*/ + + #define COPP_LOG_DEC0(a) \ + SLOG_0 (acse_debug_sel & COPP_LOG_DEC,_copp_dec_logstr,a) + + #define COPP_LOG_DEC1(a,b) \ + SLOG_1 (acse_debug_sel & COPP_LOG_DEC,_copp_dec_logstr,a,b) + + #define COPP_LOG_DEC2(a,b,c) \ + SLOG_2 (acse_debug_sel & COPP_LOG_DEC,_copp_dec_logstr,a,b,c) + + #define COPP_LOG_DEC3(a,b,c,d) \ + SLOG_3 (acse_debug_sel & COPP_LOG_DEC,_copp_dec_logstr,a,b,c,d) + + #define COPP_LOG_DEC4(a,b,c,d,e) \ + SLOG_4 (acse_debug_sel & COPP_LOG_DEC,_copp_dec_logstr,a,b,c,d,e) + + /* continuation macros */ + #define COPP_LOG_DECC0(a) \ + SLOGC_0 (acse_debug_sel & COPP_LOG_DEC,a) + + #define COPP_LOG_DECC1(a,b) \ + SLOGC_1 (acse_debug_sel & COPP_LOG_DEC,a,b) + + /* hex logging */ + #define COPP_LOG_DECH(a,b) \ + SLOGH (acse_debug_sel & COPP_LOG_DEC,a,b) + +#else + /*--------------------------------------------*/ + /* hard errors logging */ + /*--------------------------------------------*/ + + #define COPP_LOG_ERR0(a) + #define COPP_LOG_ERR1(a,b) + #define COPP_LOG_ERR2(a,b,c) + #define COPP_LOG_ERR3(a,b,c,d) + + /*--------------------------------------------*/ + /* PS-user req and rsp logging */ + /*--------------------------------------------*/ + + #define COPP_LOG_ENC0(a) + #define COPP_LOG_ENC1(a,b) + #define COPP_LOG_ENC2(a,b,c) + #define COPP_LOG_ENC3(a,b,c,d) + #define COPP_LOG_ENC4(a,b,c,d,e) + #define COPP_LOG_ENCC0(a) + #define COPP_LOG_ENCC1(a,b) + #define COPP_LOG_ENCH(a,b) + + /*--------------------------------------------*/ + /* PS-user ind and cnf logging */ + /*--------------------------------------------*/ + + #define COPP_LOG_DEC0(a) + #define COPP_LOG_DEC1(a,b) + #define COPP_LOG_DEC2(a,b,c) + #define COPP_LOG_DEC3(a,b,c,d) + #define COPP_LOG_DEC4(a,b,c,d,e) + #define COPP_LOG_DECC0(a) + #define COPP_LOG_DECC1(a,b) + #define COPP_LOG_DECH(a,b) + +#endif + + +#ifdef __cplusplus +} +#endif + +#endif /* end of 'already included' */ diff --git a/mmslib/inc/copp_usr.h b/mmslib/inc/copp_usr.h new file mode 100644 index 0000000..4715da3 --- /dev/null +++ b/mmslib/inc/copp_usr.h @@ -0,0 +1,193 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1997-2001, All Rights Reserved */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : copp_usr.h */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : */ +/* COPP user header file. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/11/01 JRB 05 Convert to use ASN1R. */ +/* 08/13/98 JRB 04 Lint cleanup. */ +/* 06/17/98 JRB 03 Add error codes. */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 03/19/97 JRB 02 Add "CALLING" support. General cleanup. */ +/* 03/05/97 JRB 01 Created. */ +/************************************************************************/ + +#ifndef COPP_USR_INCLUDED +#define COPP_USR_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + + /*======================================================*/ + /* PRESENTATION USER DEFINES */ + /* */ + /*======================================================*/ +/* Defines used for encoded values of "Provider-reason". */ +/* Used in encode/decode of CPR (Connect Presentation Reject PPDU). */ +#define PROV_REASON_NOT_SPECIFIED 0 +#define PROV_REASON_CONGESTION 1 +#define PROV_REASON_LOCAL_LIMIT 2 +#define PROV_REASON_CALLED_PRES_ADDR 3 +#define PROV_REASON_VERSION 4 +#define PROV_REASON_DEFAULT_CONTEXT 5 +#define PROV_REASON_USER_DATA 6 +#define PROV_REASON_NO_PSAP 7 + +/* Defines for P-CONNECT.cnf result parameter */ +#define P_CON_RESULT_ACCEPT 0 +#define P_CON_RESULT_USER_REJ 1 +#define P_CON_RESULT_PROVIDER_REJ 2 + + /*======================================================*/ + /* PRESENTATION ERROR CODES */ + /* */ + /*======================================================*/ + +/* NOTE: Values begin from E_COPP (found in glberror.h). */ + +/* COPP general errors */ +#define COPP_ERR_INV_PSEL 0x3101 /* Invalid local PSEL */ +#define COPP_ERR_INV_STATE 0x3102 /* Invalid connect state */ + + /*======================================================*/ + /* PRESENTATION GLOBAL VARIABLES */ + /* */ + /*======================================================*/ +extern ST_CHAR expected_pdv_pci; +extern ST_UCHAR *pdv_data_ptr; +extern ST_INT pdv_data_len; + + /*======================================================*/ + /* PRESENTATION PROVIDER FUNCTIONS */ + /* */ + /* Called by user to encode and send */ + /* Presentation PDUs. */ + /*======================================================*/ + +/************************************************************************/ +/* copp_con_req */ +/* P-Connect Request. */ +/************************************************************************/ +ST_RET copp_con_req (ST_LONG copp_bind_id, ACSE_CONN *acse_conn, PRES_ADDR *rem_addr); + +/************************************************************************/ +/* copp_rel_req */ +/* P-Release Request. */ +/************************************************************************/ +ST_RET copp_rel_req (ACSE_CONN *acse_conn); + +/************************************************************************/ +/* copp_con_rsp_pos */ +/* P-Connect Accept. */ +/************************************************************************/ +ST_RET copp_con_rsp_pos (ACSE_CONN *acse_conn); + +/************************************************************************/ +/* copp_con_rsp_neg */ +/* P-Connect Reject. */ +/* If "provider_reason" < 0, this is "user-reject", else this is */ +/* "provider-reject" and the value of "provider_reason" will be */ +/* encoded in the "Provider-reason" parameter of the PPDU. */ +/************************************************************************/ +ST_RET copp_con_rsp_neg (ACSE_CONN *acse_conn, ST_INT provider_reason); + +/************************************************************************/ +/* copp_rel_rsp_pos */ +/* P-Release Positive Response. */ +/************************************************************************/ +ST_RET copp_rel_rsp_pos (ACSE_CONN *acse_conn); + +/************************************************************************/ +/* copp_u_abort_req */ +/* P-U-Abort Request. */ +/************************************************************************/ +ST_RET copp_u_abort_req (ACSE_CONN *acse_conn); + +/************************************************************************/ +/* copp_data_req */ +/* P-Data Request. */ +/************************************************************************/ +ST_RET copp_data_req (ACSE_CONN *acse_conn); + + + /*======================================================*/ + /* PRESENTATION USER FUNCTIONS */ + /* */ + /* Called by Presentation to pass decoded */ + /* Presentation PDUs up to user. */ + /*======================================================*/ + +/************************************************************************/ +/* u_copp_con_cnf */ +/* P-CONNECT.cnf (Connect Confirm). */ +/* Parameters: */ +/* acse_conn Pointer to connection info */ +/* result P_CON_RESULT_ACCEPT, P_CON_RESULT_USER_REJ or */ +/* P_CON_RESULT_PROVIDER_REJ */ +/* reason Provider-reason (if result=P_CON_RESULT_PROVIDER_REJ)*/ +/************************************************************************/ +ST_VOID u_copp_con_cnf (ACSE_CONN *acse_conn, ST_INT result, ST_INT reason); + +/************************************************************************/ +/* u_copp_rel_cnf_pos */ +/* P-RELEASE.cnf+ (POSITIVE Release Confirm). */ +/************************************************************************/ +ST_VOID u_copp_rel_cnf_pos (ACSE_CONN *acse_conn); + +/************************************************************************/ +/* u_copp_con_ind */ +/* P-Connect Indication. */ +/************************************************************************/ +ST_VOID u_copp_con_ind (ST_LONG user_bind_id, ACSE_CONN *acse_conn); + +/************************************************************************/ +/* u_copp_rel_ind */ +/* P-Release Indication. */ +/************************************************************************/ +ST_VOID u_copp_rel_ind (ACSE_CONN *acse_conn); + +/************************************************************************/ +/* u_copp_p_abort_ind */ +/* P-P-Abort Indication. */ +/************************************************************************/ +ST_VOID u_copp_p_abort_ind (ACSE_CONN *acse_conn, ST_INT reason); + +/************************************************************************/ +/* u_copp_u_abort_ind */ +/* P-U-Abort Indication. */ +/************************************************************************/ +ST_VOID u_copp_u_abort_ind (ACSE_CONN *acse_conn); + +/************************************************************************/ +/* u_copp_data_ind */ +/* P-Data Indication. */ +/************************************************************************/ +ST_VOID u_copp_data_ind (ACSE_CONN *acse_conn); + +/************************************************************************/ +/* START_pdv_list */ +/* ASN.1 decode function that may be used by Presentation-user */ +/* (i.e. ACSE) for decoding a "PDV-list" (same encoding as "EXTERNAL"). */ +/************************************************************************/ +ST_VOID START_pdv_list (ASN1_DEC_CTXT *aCtx); + +/************************************************************************/ +#ifdef __cplusplus +} +#endif + +#endif /* COPP_USR_INCLUDED */ +/************************************************************************/ + diff --git a/mmslib/inc/cosp.h b/mmslib/inc/cosp.h new file mode 100644 index 0000000..e25d01f --- /dev/null +++ b/mmslib/inc/cosp.h @@ -0,0 +1,199 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1997, All Rights Reserved */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : cosp.h */ +/* PRODUCT(S) : MOSI Stack (over TP4) */ +/* */ +/* MODULE DESCRIPTION : */ +/* This header file defines variable and functions */ +/* internal to the COSP (decoding and encoding). */ +/* */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 09/12/01 JRB 03 Reverse cosp_enc_cn_ac change (not needed). */ +/* 08/01/01 JRB 02 Del rem_addr from cosp_enc_cn_ac proto. */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 01/13/97 EJV 01 Created */ +/************************************************************************/ +#ifndef COSP_INCLUDED +#define COSP_INCLUDED + + +#ifdef __cplusplus +extern "C" { +#endif + + +extern ST_UCHAR cosp_only_ssel [1+MAX_SSEL_LEN]; + + + /*======================================================*/ + /* */ + /* C O N N E C T I O N S T A T E S */ + /* */ + /*======================================================*/ + + +/* Valid states, the first IDLE state must be 0) */ +#define COSP_CSTATE_IDLE 0 /* idle, transport not connected*/ +#define COSP_CSTATE_WAIT_TCON_CNF 1 /* wait T-CONNECT.cnf */ +#define COSP_CSTATE_IDLE_TCON 100 /* idle, transport connected */ +#define COSP_CSTATE_WAIT_AC 2 /* wait for ACCEPT SPDU */ +#define COSP_CSTATE_WAIT_DN 3 /* wait for DISCONNECT SPDU */ +#define COSP_CSTATE_WAIT_CON_RSP 8 /* wait S-CONNECT.rsp */ +#define COSP_CSTATE_WAIT_REL_RSP 9 /* wait for S-RELEASE.rsp */ +#define COSP_CSTATE_WAIT_TDISCON_IND 16 /* wait T-DISCONNECT.ind */ +#define COSP_CSTATE_DATA_XFER 713 /* Data Transfer state */ + + /*======================================================*/ + /* */ + /* C O S P P R O T O C O L D E F I N E S */ + /* */ + /* D E C O D E D S P D U S T R U C T U R E S */ + /* */ + /*======================================================*/ + + +/* Encoding for supported COSP versions codes */ +#define COSP_VER1 (ST_UCHAR) 1 +#define COSP_VER2 (ST_UCHAR) 2 + + +/* Encoding of SPDU Session Identifier (SI) codes */ +#define COSP_SI_DATA (ST_UCHAR) 1 +#define COSP_SI_GIVE_TOKEN (ST_UCHAR) 1 /* this is correct DT=GIVE-TOKEN */ +#define COSP_SI_FINISH (ST_UCHAR) 9 +#define COSP_SI_DISCON (ST_UCHAR) 10 +#define COSP_SI_REFUSE (ST_UCHAR) 12 +#define COSP_SI_CONNECT (ST_UCHAR) 13 +#define COSP_SI_ACCEPT (ST_UCHAR) 14 +#define COSP_SI_ABORT (ST_UCHAR) 25 +#define COSP_SI_AB_ACCEPT (ST_UCHAR) 26 + + +/* struct used to store decoded params from CONNECT or ACCEPT SPDU */ +typedef struct tagCOSP_CN_AC + { + ST_UCHAR prot_option; + ST_UINT16 initiator_tsdu_size; + ST_UINT16 responder_tsdu_size; + ST_UCHAR ver_num; + ST_UCHAR ses_urequir [2]; /* byte0 (bits 9-16), byte1 (bits 1-8)*/ + ST_UCHAR loc_ssel [1+MAX_SSEL_LEN]; + ST_UCHAR rem_ssel [1+MAX_SSEL_LEN]; + ST_UINT udata_len; /* SS-user data length */ + ST_UCHAR *udata_ptr; /* SS-user data pointer */ + }COSP_CN_AC; + + +/* Encoding for Reason Code PI in a REFUSE SPDU generated by SS-user */ +#define COSP_RF_REASON_U_NOT_SPECIFIED (ST_UCHAR) 0 +#define COSP_RF_REASON_U_CONGESTION (ST_UCHAR) 1 +#define COSP_RF_REASON_U_REJECT (ST_UCHAR) 2 +/* Encoding for Reason Code PI in a REFUSE SPDU generated by SS-provider */ +#define COSP_RF_REASON_S_INV_SSEL (ST_UCHAR) 128+1 +#define COSP_RF_REASON_S_NOT_ATTACHED (ST_UCHAR) 128+2 +#define COSP_RF_REASON_S_CONGESTION (ST_UCHAR) 128+3 +#define COSP_RF_REASON_S_INV_VERSION (ST_UCHAR) 128+4 +#define COSP_RF_REASON_S_NOT_SPECIFIED (ST_UCHAR) 128+5 +#define COSP_RF_REASON_S_RESTRICTIONS (ST_UCHAR) 128+6 + + +/* struct used to store decoded params from REFUSE SPDU */ +typedef struct tagCOSP_RF + { + ST_BOOLEAN disconnect; /* if SD_TRUE then disconnect transport */ + ST_UCHAR ver_num; + ST_UCHAR reason; /* reason code for refuse connection */ + ST_UCHAR ses_urequir [2]; /* byte0 (bits 9-16), byte1 (bits 1-8) */ + ST_UINT udata_len; /* SS-user data length */ + ST_UCHAR *udata_ptr; /* SS-user data pointer */ + }COSP_RF; + + +#define COSP_P_AB_SPDU_LEN 9 /* P-ABORT is fixed in size */ + +/* Encoding for Transport Disconnect PI in an ABORT (and FINISH) SPDU */ +#define COSP_TCONN_KEEP (ST_UCHAR) 0x00 +#define COSP_TCONN_RELEASE (ST_UCHAR) 0x01 +/* | with one reason code below */ +#define COSP_AB_REASON_USER_ABORT (ST_UCHAR) 0x02 +#define COSP_AB_REASON_PROT_ERROR (ST_UCHAR) 0x04 +#define COSP_AB_REASON_NO_REASON (ST_UCHAR) 0x08 +#define COSP_AB_REASON_IMPLEMENTATION (ST_UCHAR) 0x10 + + +/* struct used to store decoded params from ABORT SPDU */ +typedef struct tagCOSP_AB + { + ST_BOOLEAN disconnect; /* if SD_TRUE then disconnect transport */ + ST_UCHAR reason; /* reason code for abort connection */ + ST_UINT reflect_par_len; /* Reflect param length */ + ST_UCHAR reflect_par [9]; /* Reflect param */ + ST_UINT udata_len; /* SS-user data length */ + ST_UCHAR *udata_ptr; /* SS-user data pointer */ + }COSP_AB; + + +/* struct used to store decoded params from FINISH SPDU */ +typedef struct tagCOSP_FN_DN + { + ST_BOOLEAN disconnect; /* SD_TRUE to discon transport (FN)*/ + ST_UINT udata_len; /* SS-user data length */ + ST_UCHAR *udata_ptr; /* SS-user data pointer */ + }COSP_FN_DN; + +/* struct used to store decoded params from DATA SPDU */ +typedef struct tagCOSP_DT + { + ST_UINT udata_len; /* SS-user data length */ + ST_UCHAR *udata_ptr; /* SS-user data pointer */ + }COSP_DT; + + + + /*======================================================*/ + /* */ + /* E N C O D E / D E C O D E F U N C T I O N S */ + /* */ + /*======================================================*/ + +/* cosp_enc.c */ +ST_UINT cosp_envelope_len (ACSE_CONN *con, ST_UINT rem_ssel_len, ST_UCHAR spdu_type); + +ST_RET cosp_enc_cn_ac (ACSE_CONN *con, PRES_ADDR *rem_addr, + char **spdu_ptr, ST_UINT *spdu_len, ST_UCHAR spdu_type); +ST_RET cosp_enc_rf (ACSE_CONN *con, char **spdu_ptr, ST_UINT *spdu_len, ST_UCHAR reason); +ST_RET cosp_enc_fn_dn (ACSE_CONN *con, char **spdu_ptr, ST_UINT *spdu_len, ST_UCHAR spdu_type); +ST_RET cosp_enc_u_ab (ACSE_CONN *con, char **spdu_ptr, ST_UINT *spdu_len); +ST_RET cosp_enc_p_ab (char *spdu_ptr, ST_INT err_code); +ST_RET cosp_enc_dt (ACSE_CONN *con, char **spdu_ptr, ST_UINT *spdu_len); + +/* cosp_dec.c */ +ST_RET cosp_dec_cn_ac (COSP_CN_AC *dec_par, char *spdu_buf, ST_UINT spdu_len, ST_UCHAR spdu_type); +ST_RET cosp_dec_rf (COSP_RF *dec_par, char *spdu_buf, ST_UINT spdu_len); +ST_RET cosp_dec_fn_dn (COSP_FN_DN *dec_par, char *spdu_buf, ST_UINT spdu_len, ST_UCHAR spdu_type); +ST_RET cosp_dec_ab (COSP_AB *dec_par, char *spdu_buf, ST_UINT spdu_len); +ST_RET cosp_dec_dt (COSP_DT *dec_par, char *spdu_buf, ST_UINT spdu_len); + + + + +#ifdef __cplusplus +} +#endif + +#endif /* end of 'already included' */ + + + diff --git a/mmslib/inc/cosp_log.h b/mmslib/inc/cosp_log.h new file mode 100644 index 0000000..20c88e6 --- /dev/null +++ b/mmslib/inc/cosp_log.h @@ -0,0 +1,214 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1997, All Rights Reserved */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : cosp_log.h */ +/* PRODUCT(S) : MOSI Stack (over TP4) */ +/* */ +/* MODULE DESCRIPTION : */ +/* This header file contains logging macros for COSP. */ +/* Note: To compile logging functions use the DEBUG_SISCO define */ +/* in the project make file. */ +/* */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 09/13/99 MDE 05 Added SD_CONST modifiers */ +/* 10/08/98 MDE 04 Migrated to updated SLOG interface */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 04/24/97 JRB 03 Added NO-DEBUG version of COSP_LOG_ERRH. */ +/* 03/20/97 EJV 02 Enhanced logging. */ +/* 02/13/97 EJV 01 Created */ +/************************************************************************/ +#ifndef COSP_LOG_INCLUDED +#define COSP_LOG_INCLUDED + +#include "slog.h" + +#ifdef __cplusplus +extern "C" { +#endif + + +/* NOTE: COSP log masks and acse_debug_sel are defined in acse2usr.h */ + + +#if defined(DEBUG_SISCO) + + /* this number will identify the log entry as COSP log */ + +extern SD_CONST ST_CHAR *SD_CONST _cosp_err_logstr; +extern SD_CONST ST_CHAR *SD_CONST _cosp_dec_logstr; +extern SD_CONST ST_CHAR *SD_CONST _cosp_dec_hex_logstr; +extern SD_CONST ST_CHAR *SD_CONST _cosp_enc_logstr; +extern SD_CONST ST_CHAR *SD_CONST _cosp_enc_hex_logstr; + + /*--------------------------------------------*/ + /* hard errors logging */ + /*--------------------------------------------*/ + + #define COSP_LOG_ERR0(a) {\ + if (acse_debug_sel & COSP_LOG_ERR)\ + _slog (sLogCtrl,_cosp_err_logstr,thisFileName,__LINE__,a);\ + } + #define COSP_LOG_ERR1(a,b) {\ + if (acse_debug_sel & COSP_LOG_ERR)\ + _slog (sLogCtrl,_cosp_err_logstr,thisFileName,__LINE__,a,b);\ + } + #define COSP_LOG_ERR2(a,b,c) {\ + if (acse_debug_sel & COSP_LOG_ERR)\ + _slog (sLogCtrl,_cosp_err_logstr,thisFileName,__LINE__,a,b,c);\ + } + #define COSP_LOG_ERR3(a,b,c,d) {\ + if (acse_debug_sel & COSP_LOG_ERR)\ + _slog (sLogCtrl,_cosp_err_logstr,thisFileName,__LINE__,a,b,c,d);\ + } + /* continuation macros */ + #define COSP_LOG_ERRC0(a) {\ + if (acse_debug_sel & COSP_LOG_ERR)\ + _slogc (sLogCtrl,a);\ + } + #define COSP_LOG_ERRC1(a,b) {\ + if (acse_debug_sel & COSP_LOG_ERR)\ + _slogc (sLogCtrl,a,b);\ + } + #define COSP_LOG_ERRC2(a,b,c) {\ + if (acse_debug_sel & COSP_LOG_ERR)\ + _slogc (sLogCtrl,a,b,c);\ + } + /* hex logging */ + #define COSP_LOG_ERRH(a,b) {\ + if (acse_debug_sel & COSP_LOG_ERR)\ + _slogHex (sLogCtrl,a,b);\ + } + + /*--------------------------------------------*/ + /* SS-user req and rsp logging */ + /*--------------------------------------------*/ + + #define COSP_LOG_ENC0(a) {\ + if (acse_debug_sel & COSP_LOG_ENC)\ + _slog (sLogCtrl,_cosp_enc_logstr,thisFileName,__LINE__,a);\ + } + #define COSP_LOG_ENC1(a,b) {\ + if (acse_debug_sel & COSP_LOG_ENC)\ + _slog (sLogCtrl,_cosp_enc_logstr,thisFileName,__LINE__,a,b);\ + } + #define COSP_LOG_ENC2(a,b,c) {\ + if (acse_debug_sel & COSP_LOG_ENC)\ + _slog (sLogCtrl,_cosp_enc_logstr,thisFileName,__LINE__,a,b,c);\ + } + #define COSP_LOG_ENC3(a,b,c,d) {\ + if (acse_debug_sel & COSP_LOG_ENC)\ + _slog (sLogCtrl,_cosp_enc_logstr,thisFileName,__LINE__,a,b,c,d);\ + } + #define COSP_LOG_ENC4(a,b,c,d,e) {\ + if (acse_debug_sel & COSP_LOG_ENC)\ + _slog (sLogCtrl,_cosp_enc_logstr,thisFileName,__LINE__,a,b,c,d,e);\ + } + /* continuation macros */ + #define COSP_LOG_ENCC0(a) {\ + if (acse_debug_sel & COSP_LOG_ENC)\ + _slogc (sLogCtrl,a);\ + } + #define COSP_LOG_ENCC1(a,b) {\ + if (acse_debug_sel & COSP_LOG_ENC)\ + _slogc (sLogCtrl,a,b);\ + } + /* hex logging */ + #define COSP_LOG_ENCH(a,b) {\ + if (acse_debug_sel & COSP_LOG_ENC_HEX)\ + _slogHex (sLogCtrl,a,b);\ + } + + /*--------------------------------------------*/ + /* SS-user ind and cnf logging */ + /*--------------------------------------------*/ + + #define COSP_LOG_DEC0(a) {\ + if (acse_debug_sel & COSP_LOG_DEC)\ + _slog (sLogCtrl,_cosp_dec_logstr,thisFileName,__LINE__,a);\ + } + #define COSP_LOG_DEC1(a,b) {\ + if (acse_debug_sel & COSP_LOG_DEC)\ + _slog (sLogCtrl,_cosp_dec_logstr,thisFileName,__LINE__,a,b);\ + } + #define COSP_LOG_DEC2(a,b,c) {\ + if (acse_debug_sel & COSP_LOG_DEC)\ + _slog (sLogCtrl,_cosp_dec_logstr,thisFileName,__LINE__,a,b,c);\ + } + #define COSP_LOG_DEC3(a,b,c,d) {\ + if (acse_debug_sel & COSP_LOG_DEC)\ + _slog (sLogCtrl,_cosp_dec_logstr,thisFileName,__LINE__,a,b,c,d);\ + } + #define COSP_LOG_DEC4(a,b,c,d,e) {\ + if (acse_debug_sel & COSP_LOG_DEC)\ + _slog (sLogCtrl,_cosp_dec_logstr,thisFileName,__LINE__,a,b,c,d,e);\ + } + /* continuation macros */ + #define COSP_LOG_DECC0(a) {\ + if (acse_debug_sel & COSP_LOG_DEC)\ + _slogc (sLogCtrl,a);\ + } + #define COSP_LOG_DECC1(a,b) {\ + if (acse_debug_sel & COSP_LOG_DEC)\ + _slogc (sLogCtrl,a,b);\ + } + /* hex logging */ + #define COSP_LOG_DECH(a,b) {\ + if (acse_debug_sel & COSP_LOG_DEC_HEX)\ + _slogHex (sLogCtrl,a,b);\ + } +#else + /*--------------------------------------------*/ + /* hard errors logging */ + /*--------------------------------------------*/ + + #define COSP_LOG_ERR0(a) + #define COSP_LOG_ERR1(a,b) + #define COSP_LOG_ERR2(a,b,c) + #define COSP_LOG_ERR3(a,b,c,d) + #define COSP_LOG_ERRC0(a) + #define COSP_LOG_ERRC1(a,b) + #define COSP_LOG_ERRC2(a,b,c) + #define COSP_LOG_ERRH(a,b) + + /*--------------------------------------------*/ + /* SS-user req and rsp logging */ + /*--------------------------------------------*/ + + #define COSP_LOG_ENC0(a) + #define COSP_LOG_ENC1(a,b) + #define COSP_LOG_ENC2(a,b,c) + #define COSP_LOG_ENC3(a,b,c,d) + #define COSP_LOG_ENC4(a,b,c,d,e) + #define COSP_LOG_ENCC0(a) + #define COSP_LOG_ENCC1(a,b) + #define COSP_LOG_ENCH(a,b) + + /*--------------------------------------------*/ + /* SS-user ind and cnf logging */ + /*--------------------------------------------*/ + + #define COSP_LOG_DEC0(a) + #define COSP_LOG_DEC1(a,b) + #define COSP_LOG_DEC2(a,b,c) + #define COSP_LOG_DEC3(a,b,c,d) + #define COSP_LOG_DEC4(a,b,c,d,e) + #define COSP_LOG_DECC0(a) + #define COSP_LOG_DECC1(a,b) + #define COSP_LOG_DECH(a,b) + +#endif + + +#ifdef __cplusplus +} +#endif + +#endif /* end of 'already included' */ diff --git a/mmslib/inc/cosp_usr.h b/mmslib/inc/cosp_usr.h new file mode 100644 index 0000000..98e603e --- /dev/null +++ b/mmslib/inc/cosp_usr.h @@ -0,0 +1,531 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1997, All Rights Reserved */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : cosp_usr.h */ +/* PRODUCT(S) : MOSI Stack (over TP4) */ +/* */ +/* MODULE DESCRIPTION : */ +/* This header file defines the interface between the */ +/* Connection-oriented Session Protocol (COSP) and the */ +/* Connection-oriented Presentation Layer (COPP) in order */ +/* to exchange Session Service Data Units (SSDU). */ +/* */ +/* For information see the: */ +/* ISO 8326 "Information processing systems - Open Systems */ +/* Interconnection - Basic connection oriented session service */ +/* definition. */ +/* ISO 8327 "Information processing systems - Open Systems */ +/* Interconnection - Basic connection oriented session protocol */ +/* specification. */ +/* ISO 8327/ADD.2 (Draft for Version2). */ +/* */ +/* */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* cosp_bind */ +/* u_cosp_bind_cnf */ +/* cosp_unbind */ +/* u_cosp_unbind_cnf */ +/* */ +/* cosp_con_req */ +/* u_cosp_con_cnf_pos */ +/* u_cosp_con_cnf_neg */ +/* */ +/* u_cosp_con_ind */ +/* cosp_con_rsp_pos */ +/* cosp_con_rsp_neg */ +/* */ +/* cosp_rel_req */ +/* u_cosp_rel_cnf_pos */ +/* */ +/* u_cosp_rel_ind */ +/* cosp_rel_rsp_pos */ +/* */ +/* cosp_u_abort_req */ +/* u_cosp_abort_ind */ +/* */ +/* cosp_data_req */ +/* u_cosp_data_ind */ +/* */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 04/10/97 JRB 02 Chg error defs to use base from "glberror.h".*/ +/* 01/10/97 EJV 01 Created */ +/************************************************************************/ +#ifndef COSP_USR_INCLUDED +#define COSP_USR_INCLUDED + + +#ifdef __cplusplus +extern "C" { +#endif + + + /*======================================================*/ + /* */ + /* C O S P S P E C I F I C D E F I N E S */ + /* */ + /*======================================================*/ + +/* Defines below specify limits on certain parameters for the COSP MOSI */ +/* Version2 implementation: */ + +#define COSP_MAX_UDATA_CON (ST_UINT) 10240 +#define COSP_MAX_ENVELOPE (ST_UINT) 56 +#define COSP_MAX_UDATA ((ST_UINT) 65535 - COSP_MAX_ENVELOPE) + + /*======================================================*/ + /* */ + /* Result and Reason Codes in S-CONNECT.cnf- */ + /* */ + /*======================================================*/ + +/* Result codes */ +#define COSP_CON_CNF_U_REJECT 1 +#define COSP_CON_CNF_P_REJECT 2 + +/* Reason codes in S-CONNECT.cnf- when result=COSP_CON_CNF_U_REJECT */ +#define COSP_CON_CNF_U_NOT_SPECIFIED 0 +#define COSP_CON_CNF_U_CONGESTION 1 +#define COSP_CON_CNF_U_IN_UDATA 2 /* udata = PPDU */ + +/* Valid reason codes in S-CONNECT.cnf- when result=COSP_CON_CNF_P_REJECT */ +#define COSP_CON_CNF_P_NOT_SPECIFIED 3 /* or version not supported, */ + /* or implementation restrictions */ +#define COSP_CON_CNF_P_CONGESTION 4 +#define COSP_CON_CNF_P_INV_SSEL 5 /* called Session Address unknown */ +#define COSP_CON_CNF_P_NOT_ATTACHED 6 /* called SS-user not attached to SSAP */ + + + /*======================================================*/ + /* */ + /* Reason Codes in S-CONNECT.rsp- */ + /* */ + /*======================================================*/ + +/* Reason codes in S-CONNECT.rsp- (if connection rejected) */ +#define COSP_CON_RSP_U_NOT_SPECIFIED 0 +#define COSP_CON_RSP_U_CONGESTION 1 +#define COSP_CON_RSP_U_IN_UDATA 2 /* udata = PPDU */ + + + /*======================================================*/ + /* */ + /* Reason Codes in S-P-ABORT.ind */ + /* */ + /*======================================================*/ + +#define COSP_P_AB_IND_TP_DISCON 0 +#define COSP_P_AB_IND_PROT_ERR 1 +#define COSP_P_AB_IND_UNDEFINED 2 + + + /*======================================================*/ + /* */ + /* C O S P E R R O R C O D E S */ + /* */ + /*======================================================*/ + +/* NOTE: Values begin from E_COSP (found in glberror.h). */ + +/* COSP general errors */ +#define COSP_ERR_BIND_STATE 0x3201 /* Invalid Bind state->already called*/ +#define COSP_ERR_TP4_RET 0x3202 /* Transport layer returned error */ +#define COSP_ERR_INV_TP4_ADDR 0x3203 /* Transport address invalid */ +#define COSP_ERR_INV_CON_STATE 0x3204 /* Invalid connect state */ +#define COSP_ERR_INV_SSEL 0x3205 /* Invalid local SSEL length */ +#define COSP_ERR_INV_UDATA_LEN 0x3206 /* Invalid User Data length */ +#define COSP_ERR_INV_POINTER 0x3207 /* Invalid pointer to encode buffer */ + +/* COSP PDU decoding errors */ +#define COSP_ERR_DEC_INV_SPDU 0x3210 /* Invalid/not-supp. SPDU SI rcvd */ +#define COSP_ERR_DEC_INV_LEN 0x3211 /* Invalid SPDU len (dec vs fun len) */ +#define COSP_ERR_DEC_INV_PI_CODE 0x3212 /* Invalid/out-of-place PGI/PI code */ +#define COSP_ERR_DEC_INV_LOC_SSEL 0x3213 /* SPDU not addressed to local SSEL */ +#define COSP_ERR_DEC_INV_PROT_OPT 0x3214 /* Extended SPDU concat not supp. */ +#define COSP_ERR_DEC_INV_SEG 0x3215 /* Invalid/not-supp. SSDU Segmenting */ +#define COSP_ERR_DEC_INV_PROT_VER 0x3216 /* Invalid/not-supp. prot version */ +#define COSP_ERR_DEC_INV_FUN_UNITS 0x3217 /* Invalid/not-supp. FU in Ses Req. */ +#define COSP_ERR_DEC_INV_RF_UDATA 0x3218 /* Invalid udata len,len>0 reason!=2 */ +#define COSP_ERR_DEC_INV_AB_RP 0x3219 /* Inv len of Reflect Par in AB SPDU */ + + + /*======================================================*/ + /* */ + /* B I N D I N G F U N C T I O N S */ + /* */ + /*======================================================*/ + +/************************************************************************/ +/* cosp_bind */ +/*----------------------------------------------------------------------*/ +/* Function called by SS-user to bind to local Session Address. */ +/* The SS-user should implement the u_cosp_bind_cnf function. */ +/* */ +/* Parameters: */ +/* ST_LONG cosp_user_bind_id COSP User's id for this binding.*/ +/* PRES_ADDR *loc_addr Local Address to bind to */ +/* ST_INT sharable Ignored, (for compatibility with*/ +/* ST_INT max_conns Ignored, previous versions) */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if bind successful */ +/* error code otherwise */ +/************************************************************************/ +ST_RET cosp_bind (ST_LONG cosp_user_bind_id, PRES_ADDR *loc_addr, + ST_INT sharable, ST_INT max_conns); + + +/************************************************************************/ +/* u_cosp_bind_cnf */ +/*----------------------------------------------------------------------*/ +/* This function is called by the SS-provider to indicate the result of */ +/* the bind operation (see cosp_bind func). */ +/* */ +/* Parameters: */ +/* ST_LONG cosp_user_bind_id COSP User's id for this binding. */ +/* ST_LONG cosp_bind_id COSP id for this binding. */ +/* ST_RET result Indicates if the bind was successful: */ +/* = 0 Success */ +/* <> 0 Error code */ +/* */ +/* Return: */ +/* ST_VOID */ +/************************************************************************/ +ST_VOID u_cosp_bind_cnf (ST_LONG cosp_user_bind_id, ST_LONG cosp_bind_id, + ST_RET result); + + +/************************************************************************/ +/* cosp_unbind */ +/*----------------------------------------------------------------------*/ +/* Function called by SS-user to unbind from local Session Address. */ +/* The SS-user should implement the u_cosp_unbind_cnf function. */ +/* */ +/* Parameters: */ +/* ST_LONG cosp_bind_id COSP's id to unbind. */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if unbind successful */ +/* error code otherwise */ +/************************************************************************/ +ST_RET cosp_unbind (ST_LONG cosp_bind_id); + + +/************************************************************************/ +/* u_cosp_unbind_cnf */ +/*----------------------------------------------------------------------*/ +/* This function is called by the SS-provider to indicate that the */ +/* unbind operation finished (see cosp_unbind func). */ +/* */ +/* Parameters: */ +/* ST_LONG cosp_user_bind_id COSP User's id for this binding.*/ +/* */ +/* Return: */ +/* ST_VOID */ +/************************************************************************/ +ST_VOID u_cosp_unbind_cnf (ST_LONG cosp_user_bind_id); + + + /*======================================================*/ + /* */ + /* C O N N E C T F U N C T I O N S (CALLED SIDE) */ + /* */ + /*======================================================*/ + + +/************************************************************************/ +/* u_cosp_con_ind */ +/*----------------------------------------------------------------------*/ +/* This USER function is called by the SS-Provider to indicate that a */ +/* remote node wishes to establish a connection. */ +/* */ +/* Parameters: */ +/* ST_LONG cosp_user_bind_id COSP user id bind */ +/* ACSE_CONN *con Pointer to connection info */ +/* */ +/* Return: */ +/* ST_VOID */ +/************************************************************************/ +ST_VOID u_cosp_con_ind (ST_LONG cosp_user_bind_id, ACSE_CONN *con); + + +/************************************************************************/ +/* cosp_con_rsp_pos */ +/*----------------------------------------------------------------------*/ +/* Function called by SS-user to Accept an incomming connection. */ +/* If SS-user data are sent make sure the reason=COSP_CON_RSP_U_IN_UDATA*/ +/* */ +/* Parameters: */ +/* ACSE_CONN *con Pointer to con info struct */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if successful */ +/* error code otherwise */ +/************************************************************************/ +ST_RET cosp_con_rsp_pos (ACSE_CONN *con); + + +/************************************************************************/ +/* cosp_con_rsp_neg */ +/*----------------------------------------------------------------------*/ +/* Function called by SS-user to Reject an incomming connection. */ +/* If SS-user data are sent make sure the reason=COSP_CON_RSP_U_IN_UDATA*/ +/* */ +/* Parameters: */ +/* ACSE_CONN *con Pointer to con info struct */ +/* ST_INT reason Reason for reject COSP_CON_RSP_U_... */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if successful */ +/* error code otherwise */ +/************************************************************************/ +ST_RET cosp_con_rsp_neg (ACSE_CONN *con, ST_INT reason); + + + /*======================================================*/ + /* */ + /* C O N N E C T F U N C T I O N S (CALLING SIDE) */ + /* */ + /*======================================================*/ + + +/************************************************************************/ +/* cosp_con_req */ +/*----------------------------------------------------------------------*/ +/* Function called by SS-user to establish a Session connection. */ +/* SS-user should implement following functions to confirm to this */ +/* request: u_cosp_con_cnf_pos and u_cosp_con_cnf_neg. */ +/* If this function returns value other then SD_SUCCESS then the function */ +/* u_cosp_con_cnf_xxx will not be called. */ +/* */ +/* Parameters: */ +/* ST_LONG cosp_bind_id COSP bind id (also= TP4 bind id)*/ +/* PRES_ADDR *rem_addr Remote Address */ +/* ACSE_CONN *con Pointer to connection info */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if successful */ +/* error code otherwise */ +/************************************************************************/ +ST_RET cosp_con_req (ST_LONG cosp_bind_id, PRES_ADDR *rem_addr, ACSE_CONN *con); + + +/************************************************************************/ +/* u_cosp_con_cnf_pos */ +/*----------------------------------------------------------------------*/ +/* This USER function is called by the SS-Provider to indicate that */ +/* the connection has been established. */ +/* */ +/* Parameters: */ +/* ACSE_CONN *con Pointer to connection info */ +/* */ +/* Return: */ +/* ST_VOID */ +/************************************************************************/ +ST_VOID u_cosp_con_cnf_pos (ACSE_CONN *con); + + +/************************************************************************/ +/* u_cosp_con_cnf_neg */ +/*----------------------------------------------------------------------*/ +/* This USER function is called by the SS-Provider to indicate the */ +/* connection has been rejected by remote. */ +/* */ +/* Parameters: */ +/* ACSE_CONN *con Pointer to connection info */ +/* ST_INT result see def results COSP_CON_CNF_... above */ +/* ST_INT reason see def reasons COSP_CON_CNF_... above */ +/* */ +/* Return: */ +/* ST_VOID */ +/************************************************************************/ +ST_VOID u_cosp_con_cnf_neg (ACSE_CONN *con, ST_INT result, ST_INT reason); + + + /*======================================================*/ + /* */ + /* C O N N E C T I O N R E L E A S E (CALLED SIDE) */ + /* */ + /*======================================================*/ + + +/************************************************************************/ +/* u_cosp_rel_ind */ +/*----------------------------------------------------------------------*/ +/* This USER function is called by the SS-Provider to indicate that a */ +/* remote node wishes to release a connection. The SS-user should call */ +/* cosp_rel_rsp_pos to release the connection. Negative cnf not allowed.*/ +/* */ +/* Parameters: */ +/* ACSE_CONN *con Pointer to connection info */ +/* */ +/* Return: */ +/* ST_VOID */ +/************************************************************************/ +ST_VOID u_cosp_rel_ind (ACSE_CONN *con); + + +/************************************************************************/ +/* cosp_rel_rsp_pos */ +/*----------------------------------------------------------------------*/ +/* Function called by SS-user to respond positively to release of */ +/* connection. */ +/* */ +/* Parameters: */ +/* ACSE_CONN *con Pointer to connection info */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if successful */ +/* error code otherwise */ +/************************************************************************/ +ST_RET cosp_rel_rsp_pos (ACSE_CONN *con); + + + /*======================================================*/ + /* */ + /* C O N N E C T I O N R E L E A S E (CALLING SIDE)*/ + /* */ + /*======================================================*/ + +/************************************************************************/ +/* cosp_rel_req */ +/*----------------------------------------------------------------------*/ +/* Function called by SS-user to release a Session connection. */ +/* SS-user should implement the u_cosp_rel_cnf_pos function to receive */ +/* confirm for this request. Negative confirm is not implemented. */ +/* If this function returns value other then SD_SUCCESS then the function */ +/* u_cosp_rel_cnf_pos will not be called. */ +/* */ +/* Parameters: */ +/* ACSE_CONN *con Pointer to connection info */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if successful */ +/* error code otherwise */ +/************************************************************************/ +ST_RET cosp_rel_req (ACSE_CONN *con); + + +/************************************************************************/ +/* u_cosp_rel_cnf_pos */ +/*----------------------------------------------------------------------*/ +/* This USER function is called by the SS-Provider to indicate positive */ +/* result of the release operation. */ +/* */ +/* Parameters: */ +/* ACSE_CONN *con Pointer to connection info */ +/* */ +/* Return: */ +/* ST_VOID */ +/************************************************************************/ +ST_VOID u_cosp_rel_cnf_pos (ACSE_CONN *con); + + + /*======================================================*/ + /* */ + /* A B O R T F U N C T I O N S */ + /* */ + /*======================================================*/ + + +/************************************************************************/ +/* cosp_u_abort_req */ +/*----------------------------------------------------------------------*/ +/* Function called by SS-user to Abort a connection (S-U-ABORT) */ +/* */ +/* Parameters: */ +/* ACSE_CONN *con Pointer to connection info */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if successful */ +/* error code otherwise */ +/************************************************************************/ +ST_RET cosp_u_abort_req (ACSE_CONN *con); + + +/************************************************************************/ +/* u_cosp_p_abort_ind */ +/*----------------------------------------------------------------------*/ +/* This USER function is called by the SS-Provider to indicate that a */ +/* connection has been aborted by SS-provider (local or remote). */ +/* */ +/* Parameters: */ +/* ACSE_CONN *con Pointer to connection info */ +/* ST_INT reason see def reasons COSP_P_AB_IND_... above */ +/* */ +/* Return: */ +/* ST_VOID */ +/************************************************************************/ +ST_VOID u_cosp_p_abort_ind (ACSE_CONN *con, ST_INT reason); + + +/************************************************************************/ +/* u_cosp_u_abort_ind */ +/*----------------------------------------------------------------------*/ +/* This USER function is called by the SS-Provider to indicate that a */ +/* connection has been aborted by remote SS-user. */ +/* */ +/* Parameters: */ +/* ACSE_CONN *con Pointer to connection info */ +/* */ +/* Return: */ +/* ST_VOID */ +/************************************************************************/ +ST_VOID u_cosp_u_abort_ind (ACSE_CONN *con); + + + /*======================================================*/ + /* */ + /* D A T A T R A N S F E R F U N C T I O N S */ + /* */ + /*======================================================*/ + + +/************************************************************************/ +/* cosp_data_req */ +/*----------------------------------------------------------------------*/ +/* Function called by SS-user to transfer normal data on a previously */ +/* established connection. */ +/* */ +/* Parameters: */ +/* ACSE_CONN *con Pointer to connection info */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if successful */ +/* error code otherwise */ +/************************************************************************/ +ST_RET cosp_data_req (ACSE_CONN *con); + + +/************************************************************************/ +/* u_cosp_data_ind */ +/*----------------------------------------------------------------------*/ +/* This USER function is called by the SS-Provider to indicate that a */ +/* data have been received. */ +/* */ +/* Parameters: */ +/* ACSE_CONN *con Pointer to connection info */ +/* */ +/* Return: */ +/* ST_VOID */ +/************************************************************************/ +ST_VOID u_cosp_data_ind (ACSE_CONN *con); + + +#ifdef __cplusplus +} +#endif + +#endif /* end of 'already included' */ + + diff --git a/mmslib/inc/dibmatch.h b/mmslib/inc/dibmatch.h new file mode 100644 index 0000000..b38b488 --- /dev/null +++ b/mmslib/inc/dibmatch.h @@ -0,0 +1,64 @@ +#ifndef DIBMATCH_H + +#define DIBMATCH_H + +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2003 - 2005, All Rights Reserved */ +/* */ +/* MODULE NAME : dibmatch.h */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 01/04/06 EJV 04 Added DLLs incompatibility comments. */ +/* 07/19/05 EJV 03 Added gensock2.h include. */ +/* 07/12/05 EJV 02 DIB_MATCH_CTRL: added use_gethostbyname. */ +/* 06/11/03 MDE 01 New */ +/************************************************************************/ + +#ifdef __cplusplus +extern "C" { +#endif + +#include "gensock2.h" + +/************************************************************************/ +/* General address matching defines, control, functions */ + +/* Compare Results */ +#define DIB_MATCH_NOT 0 +#define DIB_MATCH_CLOSE 1 +#define DIB_MATCH_EXACT 2 + +typedef struct dib_match_ctrl_tag + { + /* Note: adding/removing fields to/from this struct will make older */ + /* !!! applications incompatible with new security DLLs. */ + ST_BOOLEAN match_allow_missing_ae_elements; + ST_BOOLEAN match_allow_extra_ae_elements; + + ST_BOOLEAN match_ap_title; + ST_BOOLEAN match_ae_qualifier; + ST_BOOLEAN match_ap_invoke; + ST_BOOLEAN match_ae_invoke; + ST_BOOLEAN match_psel; + ST_BOOLEAN match_ssel; + ST_BOOLEAN match_tsel; + ST_BOOLEAN match_net_addr; + ST_BOOLEAN use_gethostbyname; /* gethostbyname() call may take LONG */ + /* time when the DNS is not available. */ + } DIB_MATCH_CTRL; + + + +#ifdef __cplusplus +} +#endif + +#endif /* DIBMATCH_H */ diff --git a/mmslib/inc/ethertyp.h b/mmslib/inc/ethertyp.h new file mode 100644 index 0000000..16f6f59 --- /dev/null +++ b/mmslib/inc/ethertyp.h @@ -0,0 +1,72 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2002-2005, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : ethertyp.h */ +/* PRODUCT(S) : MMS-EASE Lite */ +/* */ +/* MODULE DESCRIPTION : Ethertype frame encode functions and constants.*/ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 02/08/05 JRB 03 Chg first arg to etype_hdr_decode. */ +/* 03/24/03 ASK 02 Updated ETYPE_TYPE_* constant values */ +/* 11/20/02 ASK 01 Created */ +/************************************************************************/ + +#if !defined(ETHERTYP_H_INCLUDED) +#define ETHERTYP_H_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "clnp_usr.h" +#include "clnp_sne.h" + + +#define ETYPE_VLAN_TYPE_ID 0x8100 +#define ETYPE_TYPE_GOOSE 0x88B8 +#define ETYPE_TYPE_GSE 0x88B9 +#define ETYPE_TYPE_SV 0x88BA +#define ETYPE_TCI_GOOSE 0x8000 +#define ETYPE_TCI_GSE 0x2000 +#define ETYPE_TCI_SV 0x8001 + +#define VLAN_HEAD_LEN 4 +#define ETYPE_HEAD_LEN 8 + +/* Ethertype Frame Info to be filled out by the user */ +typedef struct + { + ST_UINT16 tci; /* VLAN Tag Control Info */ + ST_UINT16 etypeID; /* Ethertype ID */ + ST_UINT16 appID; /* APP ID */ + } ETYPE_INFO; + + +ST_UCHAR *etype_hdr_encode(ST_UCHAR *bufPtr, /* buffer to encode into */ + ST_INT bufLen, /* len of buffer */ + ST_INT *asn1Len, /* ptr to len encoded */ + ETYPE_INFO *info);/* ptr etype struct */ + +ST_UCHAR *vlan_hdr_encode(ST_UCHAR *bufPtr, /* buffer to encode into */ + ST_INT *asn1Len, /* ptr to len encoded */ + ETYPE_INFO *info); /* ptr etype struct */ + +ST_UCHAR *etype_hdr_decode(SN_UNITDATA *sn_req, + ETYPE_INFO *info, /* ptr etype struct */ + ST_INT *bufLen); /* ptr to len decoded */ + +#ifdef __cplusplus +} +#endif + +#endif /* end of 'already included' */ diff --git a/mmslib/inc/ethsub.h b/mmslib/inc/ethsub.h new file mode 100644 index 0000000..b7d0a4f --- /dev/null +++ b/mmslib/inc/ethsub.h @@ -0,0 +1,132 @@ +#ifndef ETHSUB_INCLUDED +#define ETHSUB_INCLUDED +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2000-2006 All Rights Reserved */ +/* */ +/* MODULE NAME : ethsub.h */ +/* PRODUCT(S) : Lean-T Stack for Windows 95/98/NT */ +/* */ +/* MODULE DESCRIPTION : */ +/* Definitions to allow Subnetwork interface to work with OSI LLC */ +/* Ethernet driver. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 07/21/06 JRB 04 Chg to use SISCO naming conventions. */ +/* 04/14/06 JRB 03 Add sysincs header. */ +/* 11/20/02 ASK 02 Add ethdown_etype proto */ +/* 04/06/00 JRB 01 Created */ +/************************************************************************/ +#ifdef __cplusplus +extern "C" { +#endif + +/****************************************************************/ +/* Include files required to interface with */ +/* OSI LLC NDIS Ethernet Driver */ +/* */ +/****************************************************************/ + +#include "conpack.h" +#include "osillc.h" + +#include "glbtypes.h" +#include "sysincs.h" +#include "slog.h" +#include "stime.h" +#include "clnp_usr.h" /* clnp_sne.h needs this */ +#include "clnp_log.h" +#include "clnp_sne.h" /* for SN_UNITDATA, etc. */ + +/****************************************************************/ +/****************************************************************/ + +typedef struct +{ +/** ----- Following fields are specific to this Access Method */ + HANDLE hFile; /* LLC device driver descriptor */ + + unsigned long seq; /* sequence number to expect */ + void *readlst[10]; /* list of pointers to out of sequence packet blocks */ + + /* ----- Following fields are required for 95/98 */ + struct rd_wr_block *pWriteEvents; /* list of write event structures */ + struct rd_wr_block *pReadEvents; /* list of read event structures */ +} LLC_CONTEXT; + +/************************************************************************/ +/* OSI Event structure - Modified for MMS_LITE */ +/************************************************************************/ + +typedef struct + { + void * nxevt; + SN_UNITDATA sn_req; /* event data in format needed by LEANT CLNP. */ + } SN_EVENT; + +typedef struct rd_wr_block + { + int inuse; + HANDLE hEvent; + OVERLAPPED *ovlp; + ST_UCHAR *framep; /* pointer to raw Ethernet frame */ + void *pb; + LLC_CONTEXT *gccp; + } RD_WR_BLOCK; + +/************************************************************************/ +/* MMS_LITE function to Queue received packet for Lite CLNP. */ +/************************************************************************/ +void QueueRxPacket (ST_UCHAR *framep); + +/************************************************************************/ +/* Functions that may be called from CLNP. */ +/************************************************************************/ +void ethdown (SN_UNITDATA *sn_req); +void ethdown_etype (SN_UNITDATA *sn_req); +void ethsapoff (void); +void ethsapon (ST_CHAR *drvname); +int llcsetup (void); + +BOOL QueryOid (HANDLE hDriver, ULONG ulOid, PBYTE pBuffer, ULONG ulLength); +BOOL SetOid (HANDLE hDriver, ULONG ulOid, PBYTE pBuffer, ULONG ulLength); + +void osifreeevt (SN_EVENT *evt); +SN_EVENT *osiallocevt (); +void osiputevt (SN_EVENT *evt); +SN_EVENT *osigetevt (); + +void OsiReadThread (LPDWORD lpdwParam); +void OsiReadThreadNT (LPDWORD lpdwParam); +void CALLBACK WriteCompletion (DWORD error, DWORD length, OVERLAPPED *ovlp); +void CALLBACK ReadCompletion (DWORD error, DWORD length, OVERLAPPED *ovlp); +void ProcessReadBlock (OVERLAPPED *ovlp); + +/************************************************************************/ +/* Global variables. */ +/************************************************************************/ +extern LLC_CONTEXT GCC; /* General Current Context */ +extern LLC_CONTEXT *GCCP; /* General Current Context Pointer */ + +extern int MaxWriteOut; +extern int MaxReadOut; +extern int FramesPerBlock; +extern int ReceptionMode; +extern int DriverID; +extern int NumWriteOut; +extern CRITICAL_SECTION csOsiList; /* Critical Section object for OSI Event List */ +extern BOOL bServiceControl; +extern BOOL bNT; +extern BOOL bOsiRequired; +extern DWORD Priority; + +#ifdef __cplusplus +} +#endif + +#endif /* !ETHSUB_INCLUDED */ + diff --git a/mmslib/inc/fkeydefs.h b/mmslib/inc/fkeydefs.h new file mode 100644 index 0000000..abc6394 --- /dev/null +++ b/mmslib/inc/fkeydefs.h @@ -0,0 +1,209 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986-2001 All Rights Reserved */ +/* */ +/* MODULE NAME : fkeydefs.h */ +/* PRODUCT(S) : MMSEASE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains user application definitions and is not */ +/* directly a part of MMSEASE. It is only used for the sample */ +/* application. */ +/* NOTE: If the ?key.c module is compiled with define UTIL_LIB only */ +/* following functions from wkey.c are exposed: */ +/* nlfn () */ +/* log_hex_bytes () */ +/* wait_debug_log () */ +/* wait_msg () */ +/* flush_keys () */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/18/03 JRB 05 Fix QNX #ifdef. */ +/* 02/17/03 CRM 04 Added "defined(linux)" code. */ +/* 02/17/03 JRB 03 Stop using SYSTEM_SEL define. */ +/* 05/16/01 EJV 02 Added proto for term_init, term_rest. */ +/* 01/22/98 NAV 01 Added funct_menu proto. */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef FKEYDEFS_INCLUDED +#define FKEYDEFS_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include + +#if defined (_WIN32) +#include +#endif + +/************************************************************************/ +/* NOTE: */ +/* For QUICK WIN application the call to kbhit () or getch () functions */ +/* will install our keyboard handling hook function to intercept the */ +/* keyboard input. */ +/* It is not necessary to call strt_Hook function, because the kbhit */ +/* and getch functions are checking for the hook beeing in place. */ +/* It will be wise to call the end_Hook function to clear the Windows */ +/* from our keyboard handling if not needed anymore. */ +/************************************************************************/ +int strt_Hook(ST_VOID); +int end_Hook(ST_VOID); + +/*====================================================================== + Basic functions keyboard functions: + kbhit () checks if keyboard was pressed. It installs also our + keyboard handling hook function for the QUICK WIN apps. + fkey_kbhit () returns SD_FALSE most of the times. Only every KBHIT_PERIOD + (50-th time when called) it will return the return + from the call to the kbhit () function. + This function may be absolete. + getch () returns the ASCII value of a pressed key. The kbhit () + function should be called first to see if the keyboard + was pressed. The function will install our keyboard + handling hook function for the QUICK WIN applications, + if not already installed. + flush_keys () flushes the keyboard character buffer. + get_a_char () will wait for the keyboard hit and return the ascii + code for the character. In addition the function will + echo the character to screen. +======================================================================*/ +#if !defined (_WIN32) +#if defined(__VMS) +/* VMS uses a short return type, and is prototyped in a lot of places */ +ST_INT kbhit (ST_VOID); +ST_INT getch (ST_VOID); +#else +int kbhit (ST_VOID); +int getch (ST_VOID); +#endif +#else +int nt_kbhit (ST_VOID); +#define kbhit nt_kbhit +#endif + +ST_RET fkey_kbhit (ST_VOID); +ST_VOID flush_keys (ST_VOID); +ST_CHAR get_a_char (ST_VOID); + +#define KBHIT_PERIOD 50 +#define KBHIT() fkey_kbhit () + + +/*======================================================================= + Formatting output to stdout (or FILE *) functions: + log_hex_bytes () outputs formatted hex data to a dest (may be stdout). + It will format each line (16 hex numbers) of the output + as follow: + "\noffs hh hh hh hh hh hh hh hh hh hh hh hh hh hh hh hh *tttttttttttttttt*" + list_bytes () outputs formatted bytes to stdout. It will format each + line (16 hex numbers) of the output as follow: + "\n hh hh hh hh hh hh hh hh hh hh hh hh hh hh hh hh " + list_ascii () outputs the ascii data to stdout. The ascii data will + be split on more then one line if required. The data in + the ptr do not have to be NULL terminated. + list_words () outputs the formatted words to stdout. The format is + as follow: + "hhhh hhhh hhhh ...." +========================================================================*/ +ST_VOID log_hex_bytes (FILE *dest, ST_UCHAR *ptr, ST_INT len); +ST_VOID list_bytes (ST_UCHAR *ptr, ST_INT len); +ST_VOID list_ascii (ST_CHAR *ptr, ST_INT len); +ST_VOID list_words (ST_UINT *ptr, ST_INT len); + + +/*======================================================================= + Functions to display a message and wait for user to hit a key: + wait_debug_log () outputs the str to a fptr (which may be stdout). + If the output is stdout the function will wait for user + to hit a key. During waiting the function will call + the servefun () to execute background processing. + wait_msg () outputs the str to stdout. The function will wait for + user to hit a key. During waiting the function will call + the servefun () to execute background processing. + wait_key () waits for user to hit a key. During waiting the function + will call the servefun () to execute background processing. + err_msg () outputs the str to stdout. The function will wait for + user to hit a key. Note that this func will NOT call + the servefun () while waiting for the keyboard input. + ask () asks a yes/no question and return the answer. + SD_TRUE will be returned if the answer is 'y' or 'Y'; + SD_FALSE will be returned if the answer is 'n' or 'N'; + if user presses the ENTER key the default answer will + be returned. + key_err () displays a message and returns shortly after, used to + display error messages without waiting for user to hit + a key to continue. +========================================================================*/ +ST_VOID wait_debug_log (FILE *fptr, ST_CHAR *str); +ST_VOID wait_msg (ST_CHAR *msg); +ST_VOID wait_key (ST_VOID); +ST_VOID err_msg (ST_CHAR *str); +ST_BOOLEAN ask (ST_CHAR *question, ST_BOOLEAN default_ans); +ST_VOID key_err (ST_CHAR *msg); + +/*======================================================================== + Pointer to USER's background function called while waiting for keyboard + input in following functions: + wait_key () + wait_msg () + wait_debug_log () + do_fun () + This function is initialized to a nlfn () which returns 0 if called. +========================================================================*/ +extern ST_RET (*servefun) (ST_VOID); + +/*======================================================================== + Pointers to USER's functions handling the actions for key F1 - F10 + This pointers will be initialized at program startup to bad_key () + function, which flushes the keyboard buffer. +========================================================================*/ +extern ST_VOID (*funct_1) (ST_VOID); +extern ST_VOID (*funct_2) (ST_VOID); +extern ST_VOID (*funct_3) (ST_VOID); +extern ST_VOID (*funct_4) (ST_VOID); +extern ST_VOID (*funct_5) (ST_VOID); +extern ST_VOID (*funct_6) (ST_VOID); +extern ST_VOID (*funct_7) (ST_VOID); +extern ST_VOID (*funct_8) (ST_VOID); +extern ST_VOID (*funct_9) (ST_VOID); +extern ST_VOID (*funct_10) (ST_VOID); +extern ST_VOID (*funct_menu) (ST_VOID); /* may be used to refresh menu */ + +ST_VOID fun_null (ST_VOID); /* make all function keys F1-F10 illegal*/ +ST_VOID do_fun (ST_VOID); /* execute functions assigned to funct_n*/ + /* pointers until F10 is pressed. */ +ST_INT check_key (ST_VOID); /* Check for pressed function key and */ + /* execute an action for that key. */ + /* Returns 1 if F10 key was pressed, */ + /* 0 otherwise. */ + +/* functions implemented in ?key.c */ +#if defined(_AIX) || defined(sun) || defined(__hpux) || defined(linux) \ + || (defined(__alpha) && !defined(__VMS)) \ + || defined(VXWORKS) || defined(__QNX__) || defined(__VMS) +ST_VOID term_init (); +ST_VOID term_rest (); +#elif defined (__OS2__) +int term_init (void); +int term_rest (void); +#endif + +#if defined (_WIN32) +ST_RET term_init (ST_VOID); +ST_INT term_rest (ST_VOID); +#endif + + +#ifdef __cplusplus +} +#endif + +#endif /* FKEYDEFS_INCLUDED */ diff --git a/mmslib/inc/gen_list.h b/mmslib/inc/gen_list.h new file mode 100644 index 0000000..88414a2 --- /dev/null +++ b/mmslib/inc/gen_list.h @@ -0,0 +1,117 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1988-2000, All Rights Reserved */ +/* */ +/* MODULE NAME : gen_list.h */ +/* PRODUCT(S) : General Use */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the definitions as required for */ +/* manipulation of double-linked circular lists */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 01/04/06 EJV 04 Added DLLs incompatibility comments. */ +/* 04/20/00 JRB 03 Del (ST_VOID **) protos. ANSI doesn't like. */ +/* 10/09/98 JRB 02 Add list_find_prev, list_find_last. */ +/* 08/25/98 EJV 01 Use non-relaxed protos for __hpux. */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef GEN_LIST_INCLUDED +#define GEN_LIST_INCLUDED + + +#ifdef __cplusplus +extern "C" { +#endif + +/*#define FASTLIST */ + +/************************************************************************/ +/* LINKED LIST MECHANISM */ +/************************************************************************/ +/* This following structure is used in all doubly linked circular lists */ +/* as the first component in the structure. This allows one set of list*/ +/* manipulation primitives to be used with any linked structure */ +/* containing it. */ + +typedef struct dbl_lnk + { + /* Note: adding/removing fields to/from this struct will make older */ + /* !!! applications incompatible with new security DLLs. */ + struct dbl_lnk *next; + struct dbl_lnk *prev; + } DBL_LNK; + + +/************************************************************************/ +/* The variable below can be used to do integrity checking of any list */ +/* manipulated in the generic queuing functions by setting it to SD_TRUE */ + +extern ST_BOOLEAN list_debug_sel; + +/* For compatibility with older code only */ +#define list_sLogCtrl sLogCtrl + +/************************************************************************/ + +#ifdef FASTLIST +#define list_get_next(h,p) (((DBL_LNK *)p)->next == (DBL_LNK *)h ? NULL : ((DBL_LNK *)p)->next) +#define list_get_first(h) *(h);list_unlink (h,*h) +#else +/* NOTE: I_AM_THE_TRUE_GEN_LIST is only defined in the module */ +/* genlists.c so it will compile. */ +#if defined(I_AM_THE_TRUE_GEN_LIST) +ST_VOID *list_get_first (DBL_LNK **); +ST_VOID *list_get_next (DBL_LNK *, DBL_LNK *); +#else +ST_VOID *list_get_first (ST_VOID *); +ST_VOID *list_get_next (ST_VOID *, ST_VOID *); +#endif +#endif /* FASTLIST */ + + +/************************************************************************/ +/* Primitive functions for generic queue handling */ + +#if defined(I_AM_THE_TRUE_GEN_LIST) +ST_RET list_unlink (DBL_LNK **, DBL_LNK *); +ST_RET list_add_first (DBL_LNK **, DBL_LNK *); +ST_RET list_add_last (DBL_LNK **, DBL_LNK *); +ST_RET list_move_to_first (DBL_LNK **, DBL_LNK **, DBL_LNK *); +ST_RET list_find_node (DBL_LNK *, DBL_LNK *); +ST_RET list_add_node_after (DBL_LNK *, DBL_LNK *); +ST_INT list_get_sizeof (DBL_LNK *); +ST_VOID *list_get_last (DBL_LNK **); +#else +/* NOTE: these prototypes provide very little argument type checking. */ +/* They allow you to pass almost any argument without casting. */ +/* ANSI compilers automatically cast the arguments to (ST_VOID *). */ +/* This is not a great loss, because if the "real" prototypes were */ +/* used, most code would have to cast arguments to (DBL_LNK *) or */ +/* (DBL_LNK **), which would disable the argument type checking anyway. */ + +ST_RET list_unlink (ST_VOID *pphol, ST_VOID *pnode); +ST_RET list_add_first (ST_VOID *pphol, ST_VOID *pnode); +ST_RET list_add_last (ST_VOID *pphol, ST_VOID *pnode); +ST_RET list_move_to_first (ST_VOID *pphol1, ST_VOID *pphol2, ST_VOID *pnode); +ST_RET list_find_node (ST_VOID *pphol, ST_VOID *pnode); +ST_RET list_add_node_after (ST_VOID *pnode1, ST_VOID *pnode2); +ST_INT list_get_sizeof (ST_VOID *phol); +ST_VOID *list_get_last (ST_VOID *pphol); +#endif + +/* New functions. Abandon the "I_AM_THE_TRUE_GEN_LIST" casting business.*/ +DBL_LNK *list_find_prev (DBL_LNK *list_head_ptr, DBL_LNK *cur_node); +DBL_LNK *list_find_last (DBL_LNK *list_head_ptr); + +#ifdef __cplusplus +} +#endif + +#endif diff --git a/mmslib/inc/gensock2.h b/mmslib/inc/gensock2.h new file mode 100644 index 0000000..2c2a3f1 --- /dev/null +++ b/mmslib/inc/gensock2.h @@ -0,0 +1,591 @@ +/************************************************************************/ +/* SOFTWARE MODULE HEADER ***********************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2002 - 2007, All Rights Reserved */ +/* */ +/* MODULE NAME : gensock2.h */ +/* PRODUCT(S) : General Sockets Interface */ +/* */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 10/08/08 MDE 29 Allow variable len header, sockEventQueueFlush*/ +/* 03/17/08 EJV 28 Chg MMSEASE_MOSI to !defined(MMS_LITE). */ +/* 12/07/07 EJV 27 Impl SISCO's KeepAlive (disconnect idle cons)*/ +/* GEN_SOCK_CTRL: added lastCheckIdleTime, */ +/* GEN_SOCK_CTXT: added maxIdleTime, */ +/* GEN_SOCK_STATS: added lastActivityTime. */ +/* 11/01/07 EJV 26 Moved include winsock2.h to sysincs.h. */ +/* Added new GS_DISCONNECT_* error codes. */ +/* Added GS_DISCONNECT_REASON_STR macro & vars. */ +/* 09/10/07 MDE 25 Added log_disable, to support IPC logging */ +/* 05/18/07 RKR 24 Ported to Red Hat 5 */ +/* 02/08/07 JRB 23 Add GEN_SOCK_EVENT, sockEventPut/Get. */ +/* Repl uSockConnect with 2 separate pointers */ +/* uSockConnectInd, uSockConnectConf. */ +/* 01/30/07 JRB 22 Del obsolete params & sockServiceFreeList. */ +/* 01/15/07 JRB 21 Del gs_poll_mode flag & poll_mode arg to */ +/* sockStart (no longer supported). */ +/* 01/03/07 EJV 20 GEN_SOCK_CTXT: del gSockMutex, txMutex fields*/ +/* 11/29/06 EJV 19 HP-UX: chg to use socklen_t. */ +/* 10/25/06 EJV 18 Ported to HP-UX. */ +/* 02/17/06 EJV 17 __VMS: added SOCK_OPTLEN,SOCK_ADDRLEN. */ +/* Aligned some defines. */ +/* 12/19/05 EJV 28 sockUsrFun: chg args. */ +/* GEN_SOCK: moved sockId, sockIdStr fields down*/ +/* 09/28/05 EJV 27 Implemented GEN_SOCK_CTXT. */ +/* Moved GENSOCK_MAX_HEADER_SIZE above struct. */ +/* Moved MUTEX macros to gensock2.c and renamed */ +/* GEN_SOCK: added sockId, sockIdStr, sockCtx. */ +/* GEN_SOCK_CTRL: added sockCtx. */ +/* Added GS_DISCONNECT_XXX_ERROR defines. */ +/* _sockAddSock: chg from ST_VOID to ST_RET ret.*/ +/* sockUsrFun: new func. */ +/* 07/11/05 EJV 26 Add convertIPAddr proto. */ +/* 06/10/05 JRB 25 Obsolete "_sockClose" function replaced with */ +/* macro that calls normal "sockClose". */ +/* 05/10/05 EJV 24 Added _sockAllocSock, _sockAddSock protos. */ +/* 03/23/05 EJV 23 Added sockCreateWakeupSockets */ +/* linux MMSEASE_MOSI:add GENSOCK_THREAD_SUPPORT*/ +/* 03/16/05 JRB 22 Add GENSOCK_HUNT_DISCONNECT define. */ +/* 02/21/05 JRB 21 Fix ioctlsocket define (deleted from tp0_sock)*/ +/* 02/10/05 MDE 20 Added sockGetRemAddrInfo */ +/* 07/22/04 EJV 19 sun: added GENSOCK_THREAD_SUPPORT */ +/* 06/18/04 MDE 18 Include winsock2.h if needed */ +/* 03/11/04 EJV 17 SOCK_OPTLEN,SOCK_ADDRLEN diff for each system*/ +/* 02/25/04 EJV 16 _AIX: added GENSOCK_THREAD_SUPPORT */ +/* Added SOCK_OPTLEN and SOCK_ADDRLEN. */ +/* Chg SOCK_NOTSOCK to be EBADF (not ENOTSOCK). */ +/* 01/27/04 EJV 15 Added SOCK_NOTSOCK error. */ +/* 01/14/04 EJV 14 GEN_SOCK: added sockTxQueuedGroupCnt field. */ +/* GEN_SOCK_DATA: added eot field. */ +/* Added sockGetTxQueueGroupCnt proto. */ +/* 10/23/03 JRB 13 Move all system includes to sysincs.h */ +/* 06/25/03 JRB 12 Move log macros to "sock_log.h". */ +/* 06/23/03 EJV 11 Added 'first' param to sockTxQueueAdd. */ +/* 06/20/03 EJV 10 Rem param from gs_mutex_get. */ +/* 06/20/03 EJV 09 Added sockTxQueueDestroy.Chg gSock w/pSock. */ +/* Alligned struct fields. */ +/* 06/19/03 EJV 08 _WIN32: added GENSOCK_THREAD_SUPPORT */ +/* Added comments to struct, #else, #endif */ +/* 06/19/03 JRB 07 Make Rx/Tx names more consistent. */ +/* 06/18/03 JRB 06 Move defines to top & add SOCKADDR*, ioctlsocket*/ +/* Del GENSOCK_THREAD_SUPPORT, define in makefile*/ +/* Add forward reference. */ +/* Add sockTxPend to GEN_SOCK. */ +/* Add GSOCK_LOG_FLOWH. */ +/* Del winsock2.h (windows.h gets right winsock)*/ +/* Use "base" slog macros. */ +/* Add uSockTxBufFree to GEN_SOCK_CONFIG. */ +/* Add sockTxMsg, sockTxQueue* funcs. */ +/* 06/13/03 MDE 05 More user poll featuresAdded sockGetFds */ +/* 06/13/03 EJV 04 Added parameter to gs_mutex_get. */ +/* 05/14/03 MDE 03 Added sockGetFds */ +/* 05/09/03 JRB 02 Add SOCK_* defines for !_WIN32 */ +/* 02/17/03 MDE 01 Created */ +/************************************************************************/ + +#ifndef GENSOCK_INCLUDED +#define GENSOCK_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "glbtypes.h" +#include "sysincs.h" +#include "gen_list.h" +#include "glbsem.h" +#include "mem_chk.h" +#include "sock_log.h" /* logging macros */ + + +/* Windows vs. the rest of the world ... */ +#ifdef _WIN32 + +#if !defined(GENSOCK_THREAD_SUPPORT) +#define GENSOCK_THREAD_SUPPORT /*RXB*/ +#endif +#define SOCKET_ERRORNO WSAGetLastError() +#define SOCK_EADDRINUSE WSAEADDRINUSE +#define SOCK_WOULDBLOCK WSAEWOULDBLOCK +#define SOCK_INTR WSAEINTR +#define SOCK_NOBUFS WSAENOBUFS +#define SOCK_INPROGRESS WSAEINPROGRESS +#define SOCK_TIMEDOUT WSAETIMEDOUT +#define SOCK_NOTSOCK WSAENOTSOCK +#define CLOSE_SOCKET(x) closesocket(x) + +#define SOCK_OPTLEN ST_INT /* in getsockopt */ +#define SOCK_ADDRLEN ST_INT /* in accept */ + +#else /* !_WIN32 */ + +/* define multithread support for GENSOCK on some platforms */ +#if defined(_AIX) || defined(sun) || defined(__hpux) || \ + (defined(linux) && !defined(MMS_LITE)) +#if !defined(GENSOCK_THREAD_SUPPORT) +#define GENSOCK_THREAD_SUPPORT +#endif +#endif /* defined(_AIX) || ... */ + +#define SOCKET_ERRORNO errno +#define SOCK_EADDRINUSE EADDRINUSE +#define SOCK_WOULDBLOCK EWOULDBLOCK +#define SOCK_INTR EINTR +#define SOCK_NOBUFS ENOBUFS +#define SOCK_INPROGRESS EINPROGRESS +#define SOCK_TIMEDOUT ETIMEDOUT +#define SOCK_NOTSOCK EBADF +#define CLOSE_SOCKET(x) close(x) + +#define SOCKET int +#define INVALID_SOCKET (-1) +#define SOCKADDR struct sockaddr +#define SOCKADDR_IN struct sockaddr_in + +#if defined (__OS2__) /* OS/2 ioctl has extra arg */ +#define ioctlsocket(hSock,opt,valptr) ioctl(hSock, opt, (ST_CHAR *)valptr, sizeof(u_long)) +#elif defined (VXWORKS) /* VXWORKS wants arg to be int */ +#define ioctlsocket(hSock,opt,valptr) ioctl(hSock, opt, (int) valptr) +#else /* all other systems (e.g. UNIX) */ +#define ioctlsocket ioctl +#endif + +#if defined(_AIX) || defined(sun) || defined(__hpux) || defined(linux) +/* Note: __hpux will need these defines when passing access rights SCM_RIGHTS */ +/* through domain socket is working properly for _XOPEN_SOURCE_EXTENDED. */ +#define SOCK_OPTLEN socklen_t /* in getsockopt */ +#define SOCK_ADDRLEN socklen_t /* in accept */ +#elif defined(__VMS) +#define SOCK_OPTLEN __size_t /* in getsockopt */ +#define SOCK_ADDRLEN __size_t /* in accept */ +#else +/* all other no-Windows platforms not defined above */ +#define SOCK_OPTLEN int /* in getsockopt */ +#define SOCK_ADDRLEN int /* in accept */ +#endif +#endif /* !_WIN32 */ + + +struct tag_GEN_SOCK; /* Forward reference */ +/************************************************************************/ +/************************************************************************/ + +typedef struct tag_GEN_SOCK_DATA + { +/* User Send/Receive Queueing */ + DBL_LNK l; + +/* For user management of send/receive buffers */ + ST_UCHAR *usrBufBase; /* Data buffer */ + ST_INT usrBufLen; /* Total send buffer size */ + + ST_VOID *usr1; /* Misc. user use */ + ST_VOID *usr2; /* Misc. user use */ + +/* Data to be sent/Received Data */ + ST_UCHAR *data; /* Recv Data, Send Data */ + ST_INT dataLen; /* Length of data recvd, or to be sent */ + + ST_INT result; /* For receive, SD_SUCCESS or error */ + ST_BOOLEAN eot; /* SD_TRUE - if last msg in a group */ + } GEN_SOCK_DATA; + + + +/************************************************************************/ + +typedef struct + { + time_t createdTime; + time_t activeTime; /* connected or listening */ + ST_LONG numSend; /* num of RFC1006 msgs sent */ + ST_LONG numRecv; /* num of RFC1006 msgs received */ + ST_DOUBLE lastActivityTime; /* for disconnecting idle connections */ + } GEN_SOCK_STATS; + +/************************************************************************/ + +typedef struct tag_GEN_SOCK_CONFIG + { +/* Config parameters */ + ST_INT hdrSize; /* Default sizeof (ST_INT) */ + ST_INT hdrAllocSize; /* Size to allocate for hdrBuf */ + /* in GEN_SOCK struct */ + /* If 0 then hdrSize is used */ + +/* setsockopt parameters */ + ST_BOOLEAN setSockOpts; + ST_INT noDelay; + ST_INT keepAlive; + ST_INT reuseAddr; + ST_INT rcvBufSize; + ST_INT sndBufSize; + +/* User can set to disable receive */ + ST_BOOLEAN pauseRecv; + +/* Listen backlog */ + ST_INT listenBacklog; + +/* User callbacks */ + ST_RET (*uSockConnectInd) (struct tag_GEN_SOCK *pSock); + ST_RET (*uSockConnectConf) (struct tag_GEN_SOCK *pSock); + ST_VOID (*uSockDisconnect) (struct tag_GEN_SOCK *pSock); + ST_VOID (*uSockHunt) (struct tag_GEN_SOCK *pSock, ST_INT *huntStateIo, + ST_CHAR *buf, ST_INT bufCount, ST_INT *lenOut); + ST_VOID (*uSockRx) (struct tag_GEN_SOCK *pSock, GEN_SOCK_DATA *sockData); + ST_VOID (*uSockRxBufAlloc) (struct tag_GEN_SOCK *pSock, ST_INT dataLen, GEN_SOCK_DATA **sockData); + ST_VOID (*uSockTxBufFree) (struct tag_GEN_SOCK *pSock, GEN_SOCK_DATA *sockData); + ST_VOID (*uSockWritable) (struct tag_GEN_SOCK *pSock); + +/* User fields */ + ST_EVENT_SEM recvEvent; + ST_VOID *usr1; + ST_VOID *usr2; + ST_VOID *usr3; + ST_VOID *usr4; + +/* Internal Security Hooks: Set to NULL unless using security plug-in */ + ST_BOOLEAN secEnable; + ST_RET (*secConnectProc) (struct tag_GEN_SOCK *pSock); + ST_VOID (*secDisconnectProc) (struct tag_GEN_SOCK *pSock); + ST_RET (*secRxProc) (struct tag_GEN_SOCK *pSock, ST_CHAR *dest, ST_INT maxRx, + ST_INT flags, ST_INT *rxCountOut, ST_BOOLEAN *secDataLeftOut); + ST_RET (*secTxProc) (struct tag_GEN_SOCK *pSock, GEN_SOCK_DATA *sockData, ST_INT *numSentOut); + ST_VOID (*secWritable) (struct tag_GEN_SOCK *pSock); + ST_VOID (*secSockFree) (struct tag_GEN_SOCK *pSock); + + ST_VOID *secCtrl; + +/* Set to enable write select */ + ST_BOOLEAN chkWritable; + } GEN_SOCK_CONFIG; + +/************************************************************************/ + +/* State defines for GEN_SOCK */ +#define GS_STATE_LISTENING 1 +#define GS_STATE_STOPPING_LISTEN 2 +#define GS_STATE_FAILED_LISTEN 3 +#define GS_STATE_CONNECTING 4 +#define GS_STATE_CONNECTED 5 +#define GS_STATE_CLOSED 6 + +/* Role defines */ +#define GS_ROLE_CALLING 1 +#define GS_ROLE_LISTENING 2 +#define GS_ROLE_CALLED 3 + +/* disconnectReason defines */ +#define GS_DISCONNECT_UNKNOWN 0 +#define GS_DISCONNECT_CONNECT_FAILED 1 +#define GS_DISCONNECT_USR_REFUSED 2 +#define GS_DISCONNECT_SEND_FAILURE 3 +#define GS_DISCONNECT_RECV_FAILED 4 +#define GS_DISCONNECT_ACCEPT_FAILED 5 +#define GS_DISCONNECT_CLOSED 6 +#define GS_DISCONNECT_TERMINATING 7 +#define GS_DISCONNECT_RESOURCES_ERROR 8 +#define GS_DISCONNECT_INTERNAL_ERROR 9 +#define GS_DISCONNECT_NORMAL_DISCONNECT 10 /* normal disconnect */ +/* disconnectReason for SSL connection */ +#define GS_DISCONNECT_SSLE_LICENSE 11 /* SSL Engine licence expired */ +#define GS_DISCONNECT_SSLE_INT_ERR 12 /* SSL Engine internal error */ +#define GS_DISCONNECT_REKEY_FAILED 13 /* failed to rekey SSL conn */ +#define GS_DISCONNECT_CERT_VERIFY_ERR 14 /* certificate not acceptable */ +#define GS_DISCONNECT_CERT_ON_CRL 15 /* certificate on CRL */ +#define GS_DISCONNECT_SEC_PARAM_ERR 16 /* cipher or cert ctrl err */ +/* update gensock2.c sockDisconnReasonStr when more codes added */ + +extern ST_CHAR *sockDisconnReasonStr[]; +extern ST_INT sockDisconnReasonStrCnt; +/* disconnectReason strings for logging */ +#define GS_DISCONNECT_REASON_STR(reason) ((reason < sockDisconnReasonStrCnt) ? sockDisconnReasonStr[reason] : "DISCONNECT REASON: UNKNOWN") + +/* Hunt state defines */ +#define GENSOCK_HUNT_UNDERWAY 1 +#define GENSOCK_HUNT_DONE 2 +#define GENSOCK_HUNT_RESET 3 +#define GENSOCK_HUNT_DISCONNECT 4 /* stop hunting and disconnect */ + +#define RECV_STATE_HUNT 1 +#define RECV_STATE_DATA 2 + +#define GEN_SOCK_CTX_NAME_MAX_STR 32 /* Socket Context max name length */ +#define GEN_SOCK_CTX_ID_MAX_STR 20 +#define GEN_SOCK_SOCK_ID_MAX_STR (GEN_SOCK_CTX_NAME_MAX_STR + GEN_SOCK_CTX_ID_MAX_STR + 20) + +struct tag_GEN_SOCK_CTXT; /* Forward reference */ + +typedef struct tag_GEN_SOCK + { + DBL_LNK l; /* internal use */ + +/* Socket state */ + ST_INT sockState; + ST_INT role; + +/* Valid in user socket disconnet call */ + ST_INT disconnectReason; + +/* Config parameters */ + GEN_SOCK_CONFIG sockCfg; + + GEN_SOCK_STATS sockStats; + +/* For Listen socket only */ + ST_UINT maxActive; + ST_UINT numActive; + +/* For called socket, reference the listen socket */ + struct tag_GEN_SOCK *listenSocket; + + ST_INT callingAddrLen; + SOCKADDR_IN callingAddr; + +/* Internal */ + SOCKET hSock; + + ST_INT recvState; + ST_CHAR *recvBuf; + ST_INT recvDoneCount; + ST_INT recvCurrCount; + ST_CHAR *hdrBuf; /* ptr to buffer allocated after this struct*/ + GEN_SOCK_DATA *sockData; + + struct sockaddr_in sockAddrIn; + ST_BOOLEAN usrCloseCalled; + ST_BOOLEAN recvUsing; + + struct tag_GEN_SOCK_CTRL *serviceCtrl; + + GEN_SOCK_DATA *sockTxPend; /* Queue of data to be sent. */ + ST_UINT sockTxQueueGroupCnt; /* num of queued msgs w/eot to tx */ + + /* Fields added since MMS-SECURE, ICCP-SECURE v1.03 release */ + ST_UINT sockId; /* different id for each socket */ + ST_CHAR sockIdStr[GEN_SOCK_SOCK_ID_MAX_STR]; /* assemble for use in log later */ + + struct tag_GEN_SOCK_CTXT *sockCtx; + } GEN_SOCK; + +/************************************************************************/ + +/* Allow one for wakeup socket */ +#define GS_MAX_SOCK_PER_SERVICE FD_SETSIZE - 1 + +typedef struct tag_GEN_SOCK_CTRL + { + DBL_LNK l; + ST_INT numSock; + GEN_SOCK *sockList; + ST_DOUBLE lastCheckIdleTime; + +#if defined(GENSOCK_THREAD_SUPPORT) + ST_EVENT_SEM serviceEvent; + ST_THREAD_HANDLE thService; + ST_THREAD_ID tIdService; + + ST_UINT16 wakeupPort; + SOCKET xCalledSock; + SOCKET xCallingSock; +#endif /* GENSOCK_THREAD_SUPPORT */ + + struct tag_GEN_SOCK_CTXT *sockCtx; + } GEN_SOCK_CTRL; + +/************************************************************************/ +/* GEN_SOCK_EVENT: Socket event structure to store incoming event. */ + +/* Values for "eventType" member of GEN_SOCK_EVENT structure. */ +#define GS_EVENT_CONNECT_IND 1 /* connect indication */ +#define GS_EVENT_CONNECT_CONF 2 /* connect confirmation */ +#define GS_EVENT_DISCONNECT 3 /* socket disconnected */ +#define GS_EVENT_DATA_IND 4 /* data indication */ + +typedef struct + { + DBL_LNK l; + ST_INT eventType; /* type of event (GS_EVENT_DATA_IND, etc.)*/ + GEN_SOCK *pSock; + GEN_SOCK_DATA *sockData; + } GEN_SOCK_EVENT; + +/************************************************************************/ +/* gensock2 context */ +/* each sockStart() call will create new context with its own lists, */ +/* threads, and events handling. Call sockEnd() to clean. */ + +/* ctxStatus states */ +#define GEN_SOCK_CTX_ACTIVE 0 +#define GEN_SOCK_CTX_TERMINATING 1 + + +typedef struct tag_GEN_SOCK_CTXT + { + DBL_LNK l; /* internal use */ + + ST_UINT ctxId; /* diff id for each context */ + ST_INT ctxStatus; /* GEN_SOCK_CTX_xxx */ + ST_CHAR ctxName[GEN_SOCK_CTX_NAME_MAX_STR + GEN_SOCK_CTX_ID_MAX_STR]; + ST_BOOLEAN log_disable; + + /* Lists */ + GEN_SOCK_CTRL *sockServiceList; + + GEN_SOCK_EVENT *sockEventList; /* socket event list */ + /* maintained by sockEventPut/Get*/ + ST_INT sockEventCount; /* num events on sockEventList */ + /* maintained by sockEventPut/Get*/ + + ST_UINT maxIdleTime; /* ms, if>0 check for idle cons, */ + /* SISCO's KeepAlive implementation */ + + #if defined(GENSOCK_THREAD_SUPPORT) + /* Port used for wakeup sockets */ + ST_UINT16 gs_wakeup_port; /* default >= 55050 */ + + /* Used by list service thread */ + ST_INT gs_select_timeout; /* default = 100000 */ + + ST_BOOLEAN gTerminateService; + + #endif /* defined(GENSOCK_THREAD_SUPPORT) */ + } GEN_SOCK_CTXT; + +extern GEN_SOCK_CTXT *sockCtxList; /* contexts list */ + + +/************************************************************************/ +/* gensock2 user functions */ + +ST_RET sockStart (ST_CHAR *ctxName, GEN_SOCK_CTXT **sockCtxOut); +ST_RET sockStartEx (ST_CHAR *ctxName, GEN_SOCK_CTXT **sockCtxOut, ST_BOOLEAN log_disable); +ST_RET sockEnd (GEN_SOCK_CTXT *sockCtx); + +ST_RET sockInitCalling (GEN_SOCK_CTXT *sockCtx, GEN_SOCK_CONFIG *sockCfg, + ST_UINT16 portNo, ST_CHAR *ipAddr, GEN_SOCK **pSockOut); + +ST_RET sockInitListen (GEN_SOCK_CTXT *sockCtx, GEN_SOCK_CONFIG *sockCfg, + ST_UINT16 portNo, ST_INT maxActive, GEN_SOCK **pListenSockOut); + +ST_RET sockTx (GEN_SOCK *pSock, GEN_SOCK_DATA *sockData, ST_INT *numSentOut); +ST_RET sockTxMsg (GEN_SOCK *pSock, GEN_SOCK_DATA *sockData); +ST_RET sockTxQueueAdd (GEN_SOCK *pSock, GEN_SOCK_DATA *sockData, ST_BOOLEAN first); +ST_RET sockTxQueueDestroy (GEN_SOCK *pSock); +ST_RET sockTxQueueProc (GEN_SOCK *pSock); +ST_UINT sockTxQueueGroupCntGet (GEN_SOCK *pSock); +ST_RET sockStopRecv (GEN_SOCK *pSock); +ST_RET sockClose (GEN_SOCK *pSock); +ST_RET sockFree (GEN_SOCK *pSock); + +/* Polling support */ + +/* Get socket descriptors */ +typedef struct + { + ST_INT totalfds; + ST_UINT selectnfds; + + ST_INT numReadfds; + fd_set readfds; + + ST_INT numWritefds; + fd_set writefds; + + ST_INT numExceptfds; + fd_set exceptfds; + } GENSOCK_FD_SET; + +ST_VOID sockGetFds (GEN_SOCK_CTRL *serviceCtrl, GENSOCK_FD_SET *sockFds); + +/* Return values for sockCtrlService, sockSelectResultProcess */ +#define GS_SELECT_NO_ACTIVE_SOCK 1 +#define GS_SELECT_TIMEOUT 2 +#define GS_SELECT_ERROR 3 +#define GS_SELECT_ACTIVE 4 +#define GS_SELECT_TERMINATED 5 + +ST_VOID sockServiceAll (GEN_SOCK_CTXT *sockCtx, ST_LONG timeOut); +ST_INT sockCtrlService (GEN_SOCK_CTRL *serviceCtrl, ST_LONG timeOut); + +#if !defined(GENSOCK_THREAD_SUPPORT) +ST_VOID sockInitAllFds (GENSOCK_FD_SET *sockFds); +#endif + +ST_VOID sockInitFds (GEN_SOCK_CTRL *serviceCtrl, GENSOCK_FD_SET *sockFds); +ST_VOID sockAddReadFds (GENSOCK_FD_SET *sockFds, SOCKET hSock); +ST_VOID sockAddWriteFds (GENSOCK_FD_SET *sockFds, SOCKET hSock); +ST_VOID sockAddExceptFds (GENSOCK_FD_SET *sockFds, SOCKET hSock); +ST_INT sockSelectResultProcess (GEN_SOCK_CTRL *serviceCtrl, + int nfds, GENSOCK_FD_SET *sockFds); + +/* Thread support */ +ST_RET sockCreateWakeupSockets (GEN_SOCK_CTXT *sockCtx, + ST_UINT16 basePort, ST_UINT portRange, + ST_UINT16 *usedPort, + SOCKET *callingSock, SOCKET *calledSock); +ST_VOID sockServiceWakeAll (GEN_SOCK_CTXT *sockCtx); +ST_VOID sockServiceWake (GEN_SOCK_CTRL *serviceCtrl); + +/* Logging */ +ST_VOID sockLogState (GEN_SOCK_CTXT *sockCtx); +ST_VOID sockLogSockState (GEN_SOCK *pSock, ST_CHAR *prefix); + +/* Socket info */ +ST_RET sockGetRemAddrInfo (GEN_SOCK *pSock, SOCKADDR_IN *remSockAddrDest, + ST_CHAR **remAddrTxtOut, ST_INT *portOut); + +/* Functions to maintain list of GEN_SOCK_EVENT. */ +ST_VOID sockEventPut (GEN_SOCK_CTXT *sockCtx, GEN_SOCK_EVENT *event); /* put on list*/ +GEN_SOCK_EVENT *sockEventGet (GEN_SOCK_CTXT *sockCtx); /* get from list*/ +ST_VOID sockEventQueueFlush (GEN_SOCK_CTXT *sockCtx, GEN_SOCK *pSock); + +/************************************************************************/ +/************************************************************************/ +/* INTERNAL */ +/************************************************************************/ + +/* sockUsrFun calls usrFun for each socket in every context, if the */ +/* usrFun doesn't return SD_SUCCESS then socket will be closed; */ +/* errMsg will be logged on error. */ +ST_VOID sockUsrFun (ST_RET (*usrFun)(ST_VOID *secCtrl), ST_CHAR *errMsg); + +GEN_SOCK *_sockAllocSock (GEN_SOCK_CTXT *sockCtx, + ST_INT role, ST_INT sockState, SOCKET hSock, + GEN_SOCK_CONFIG *sockCfg); +ST_RET _sockAddSock (GEN_SOCK *pSock); + +ST_RET _sockRecv (GEN_SOCK *pSock, ST_CHAR *dest, + ST_INT maxRx, ST_INT flags, ST_INT *rxCountOut); + +ST_RET _sockTx (GEN_SOCK *pSock, GEN_SOCK_DATA *sockData, ST_INT *numSentOut); + +/* OBSOLETE: For backward compatibility only. New code should use "sockClose".*/ +#define _sockClose sockClose + + + /* -------------------------------------------- */ + /* Misc socket related functions */ + /* -------------------------------------------- */ + +ST_ULONG convertIPAddr (ST_CHAR *ipAddrStr, ST_BOOLEAN useGetHostByName); + + +/************************************************************************/ + +#ifdef __cplusplus +} +#endif + +#endif /* GENSOCK_INCLUDED */ + + + + + + diff --git a/mmslib/inc/glberror.h b/mmslib/inc/glberror.h new file mode 100644 index 0000000..2890660 --- /dev/null +++ b/mmslib/inc/glberror.h @@ -0,0 +1,117 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 1997, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : glberror.h */ +/* PRODUCT(S) : MMSEASE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains defines for all the entities that may */ +/* generate error code. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 10/30/98 DSF 02 Added E_ACTIVEMMS */ +/* 03/18/98 JRB 01 Added E_ASN1_DEC. */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + + +/*** NOTE : These defines are for reference only, and are not used in */ +/* creating the actual error code defines. */ + +#ifndef GBLERROR_INCLUDED +#define GBLERROR_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#define E_SUBSYS 0x0 /* underlying MAP subsystem: */ + /* Board or Board Driver (non-SISCO) */ + +#define E_DRIVER 0x100 /* SISCO MAP Board Driver */ +#define E_DH 0x200 /* SISCO Data Highway Driver */ + +#define EX_DRIVER 0x500 /* SISCO MAP Board Driver Exceptions */ +#define EX_DH 0x600 /* SISCO Data Highway Driver Exceptions */ + +#define E_CASESUIC 0xA00 /* CASE SUIC */ +#define E_ACSESUIC 0xB00 /* ACSE SUIC */ + +#define EX_CASESUIC 0xE00 /* CASE SUIC Exceptions */ +#define EX_ACSESUIC 0xF00 /* ACSE SUIC Exceptions */ + +#define E_TP4 0x1200 /* TP4 errors (see tp4api.h) */ + +#define E_CASESUIC_IS 0x1400 /* CASE SUIC Implementation Specific */ +#define E_ACSESUIC_IS 0x1500 /* ACSE SUIC Implementation Specific */ + +#define EX_CASESUIC_IS 0x1900 /* CASE SUIC Implementation Specific Exceptions */ +#define EX_ACSESUIC_IS 0x1A00 /* ACSE SUIC Implementation Specific Exceptions */ + +#define E_SESSIF 0x1E00 /* Session Interface */ +#define E_CASE 0x1F00 /* SISCO CASE Layer Provider */ + +#define EX_SESSIF 0x2400 /* Session Interface Exceptions */ +#define EX_CASE 0x2500 /* SISCO CASE Layer Provider Exceptions */ + +#define E_SESSIF_IS 0x2800 /* Session IF Implementation Spec */ +#define E_CASE_IS 0x2900 /* SISCO CASE Layer Provider Imp. Spec */ + +#define EX_SESSIF_IS 0x2D00 /* Session IF Implementation Spec Exceptions */ +#define EX_CASE_IS 0x2E00 /* SISCO CASE Layer Provider Imp. Spec Exceptions */ + +#define E_ACSE2 0x3000 /* ACSE2 errors (see acse2usr.h) */ +#define E_COPP 0x3100 /* COPP errors (see copp_usr.h) */ +#define E_COSP 0x3200 /* COSP errors (see cosp_usr.h) */ +#define E_CLNP 0x3400 /* CLNP errors (see clnp_usr.h) */ +#define E_SUBNET 0x3500 /* SUBNET errors (see clnp_usr.h) */ +#define E_ADLC 0x3600 /* ADLC errors (see adlc_usr.h) */ +#define E_RLI_IPC 0x3700 /* RLI_IPC errors (see rli_ipce.h) */ + +#define E_CFG_UTIL 0x4000 /* CFG UTIL codes */ +#define E_HLM 0x4100 /* HLM codes */ +#define E_HLM_MMS 0x4200 /* HLM MMS code */ + +#define E_ACTIVEMMS 0x4A00 /* ActiveMMS codes */ + +#define E_CM 0x5100 /* CM error codes base */ +#define E_CRM 0x5200 /* CRM error codes base */ + +#define E_MMS_GEN 0x6400 /* General provider */ +#define E_MMS_PPI 0X6500 /* Paired Primitive Interface */ +#define E_MMS_RESP 0x6600 /* Request Control Block (resp_err) */ +#define E_MMS_VMI 0x6700 /* Virtual Machine Interface */ +#define E_MMS_EXCPT 0x6800 /* MMS exceptions */ +#define E_LLP_ACSE 0x6900 /* ACSE LLP codes */ +#define E_LLP_CASE 0x6A00 /* CASE LLP codes */ +#define E_LLP_LLC 0x6B00 /* LLC LLP codes */ +#define E_MMS_LITE 0x6A00 /* MMS-LITE codes */ + +#define E_MMS_DS 0x6B00 /* MMS Directory Services */ + +#define E_ASN1_DEC 0x7000 /* ASN.1 decode errors */ + +/* The following define indicates the beginning of a range for */ +/* User-Defined error codes. Users may define error codes above this */ +/* value without conflicting with SISCO defined errors. */ + +#define E_USER_APP 0x7E00 /* User Application errors */ + +/* ******** DO NOT DEFINE ANY ERROR CODES ABOVE "0x7E00" ******** */ + +#ifdef __cplusplus +} +#endif + +#endif + diff --git a/mmslib/inc/glbopt.h b/mmslib/inc/glbopt.h new file mode 100644 index 0000000..5fc5f58 --- /dev/null +++ b/mmslib/inc/glbopt.h @@ -0,0 +1,43 @@ +#ifndef GLBOPT_INCLUDED +#define GLBOPT_INCLUDED +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2002-2002 All Rights Reserved */ +/* */ +/* MODULE NAME : glbopt.h */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* Global compiler options to be used by all SISCO source modules. */ +/* This file may be used to enable optional features in */ +/* MMSEASE-LITE. Usually this is easier than adding an */ +/* option to several makefiles. If this file is modified, all */ +/* source code should be recompiled. */ +/* */ +/* This file must be included by "glbtypes.h" so that all SISCO */ +/* source modules will indirectly include it. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 05/09/05 JRB 09 Delete all defines. This file should now be */ +/* used only for "user" customization. */ +/* 09/22/03 EJV 08 Deleted ACSE_AUTH_ENABLED, S_SEC_ENABLED */ +/* 07/16/03 MDE 07 Removed ACSE_AUTH_ENABLED */ +/* 07/15/03 EJV 06 ACSE_AUTH_ENABLED enabled (ICCP Gateway) */ +/* 04/17/03 JRB 05 Chg MVLU_LEAF_FUN_LOOKUP_ENABLE (defined). */ +/* 12/20/02 JRB 04 Add MVLU_LEAF_FUN_LOOKUP_ENABLE (!defined). */ +/* 12/18/02 JRB 03 Add USE_RT_TYPE_2 (defined by default). */ +/* 10/17/02 ASK 02 Added ACSE_AUTH_ENABLED */ +/* 02/27/02 JRB 01 Created */ +/************************************************************************/ + +/* + * NOTE: Insert "global" defines here. These will be used when compiling + * all SISCO code. + */ + +#endif /* !GLBOPT_INCLUDED */ + diff --git a/mmslib/inc/glbsem.h b/mmslib/inc/glbsem.h new file mode 100644 index 0000000..23933b9 --- /dev/null +++ b/mmslib/inc/glbsem.h @@ -0,0 +1,565 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1997-2008, All Rights Reserved */ +/* */ +/* MODULE NAME : glbsem.h */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : Multi-thread support defines and prototypes. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 06/01/08 EJV 61 Ported to Windows Vista. */ +/* 01/15/07 EJV 60 Chg S_LOCK_RESOURCES to S_LOCK_UTIL_RESOURCES*/ +/* 12/15/06 MDE 59 Added S_UNLOCK_CR_AND_RETURN_VAL */ +/* 10/25/06 EJV 58 Ported to HP-UX. */ +/* 07/13/06 EJV 57 Sun: changed the test for POSIX define. */ +/* 03/23/06 EJV 56 Added ( ) in #if a || b || (c && d). */ +/* 01/30/06 GLB 55 Integrated porting changes for VMS */ +/* 08/04/05 EJV 54 Reworked defs for UNIX and LINUX */ +/* 04/12/05 DSF 53 Added refCount member to GS_MUTEX (Windows) */ +/* 01/10/05 DSF 52 Added event member to GS_TIMER */ +/* 01/06/05 DSF 51 Added owner member to GS_MUTEX (Windows) */ +/* 01/14/05 EJV 50 Change removed. */ +/* 06/09/04 EJV 49 Added multithread support for sun. */ +/* 08/23/04 EJV 48 GS_TIMER: rpl elapsed w/ ST_DOUBLE expiration*/ +/* 05/10/04 EJV 47 gs_timer_cleanup: added timeout parameter. */ +/* gs_timer_init: added min_workers, max_workers*/ +/* Added GS_TIMER_WORKER_... defines. */ +/* GS_TIMER: added/moved fields. */ +/* 01/21/04 JRB 46 Add LYNX support. */ +/* 01/21/04 EJV 45 Win Timers: changed to use UNIX code. */ +/* Win impl preserved with _WIN32_timers define */ +/* 12/03/03 EJV 44 Add SD_WIN_VER_2003_AND_LATER, replaced */ +/* SD_WIN_VER_NET with SD_WIN_VER_2003; */ +/* gs_is_win_ver(): chg return ST_RET to ST_INT */ +/* 12/01/03 EJV 43 Added SD_WIN_VER_2K_AND_LATER. */ +/* 11/04/03 JRB 42 Del gs_sleep (use sMsSleep). */ +/* 10/24/03 JRB 41 Move gs_debug_sel to slog.h. */ +/* 09/29/03 JRB 40 Add "linux" support. */ +/* Enable gs_timer* functions for ALL systems. */ +/* 06/20/03 EJV 39 Redesigned mutex sems implementation. */ +/* 06/11/03 EJV 38 gs_named_mutex_xxx, gs_get_named_event_sem */ +/* defined for all systems. */ +/* __alpha: removed gs_xxx_sig and related code.*/ +/* 06/10/03 EJV 37 _WIN32: added gs_named_mutex_xxx functions. */ +/* 06/06/03 JRB 36 S_LOCK_RESOURCES use new gs_util_mutex. */ +/* Use new "Base" macros SLOG_*, SLOGC_*, SLOGH.*/ +/* Del GLBSEM_LOG_ALWAYS*, use SLOGALWAYS*. */ +/* 06/03/03 EJV 35 _WIN32: changed for 64-bit compiler: */ +/* ST_THREAD_HANDLE to uintptr_t */ +/* 04/14/03 JRB 34 Chg mutex macros to use gs_mutex_get/free. */ +/* Chg gs_get/free_sem functions to macros. */ +/* 03/03/24 EJV 33 Added _glbem_err_logstr & _glbem_nerr_logstr;*/ +/* S_LOCK_RESOURCES, S_UNLOCK_RESOURCES call */ +/* now non-logging gs_get_sem & gs_free_sem. */ +/* 02/03/03 EJV 32 _WIN32: added gs_is_win_ver(), SD_WIN_.. defs*/ +/* added gs_get_named_event_sem() */ +/* 01/14/03 EJV 31 Added gs_sleep(). */ +/* 11/01/02 EJV 30 Use SISCO's link list in GS_TIMER. */ +/* 07/29/02 EJV 29 Added gs_timer_get_resolution(), */ +/* GS_TIMER: made more fields common to UNIX,Win*/ +/* Added field delay_start for WIN32. */ +/* 04/09/02 EJV 28 __alpha: moved pthread.h up (cleaner code) */ +/* 02/06/02 EJV 27 _AIX: check for _THREAD_SAFE compiler define */ +/* 10/31/01 EJV 26 _WIN32: added code to call _beginthreadex; */ +/* Added gs_close_thread, gs_pulse_event_sem; */ +/* Added _ERR, _NERR log macros */ +/* UNIX: chg predicate to ST_INT from ST_BOOLEAN*/ +/* UNIX: added manualReset to GS_EVENT_SEM. */ +/* 09/20/01 EJV 25 _WIN32: added pending field to GS_TIMER. */ +/* 08/01/01 JRB 24 Add comment explaining S_LOCK_RES.. */ +/* 07/30/01 EJV 23 Added gs_timer_set_resolution().Chg GS_TIMER.*/ +/* Added ST_THREAD_RET, ST_THREAD_RET_VAL macros*/ +/* and changed gs_start_thread arg. */ +/* 07/25/01 DSF 22 Use <> when including windows.h */ +/* 07/24/01 EJV 21 _WIN32: added gs_timer support. */ +/* 04/04/01 DSF 20 Added gs_set_thread_name for WIN32 */ +/* 03/15/01 EJV 19 UNIX: corrected spelling of REENTRANT. */ +/* 03/07/01 EJV 18 Added slog macros for !DEBUG_SISCO */ +/* 02/19/01 EJV 17 _AIX: eliminated need to call gs_timer_init. */ +/* 02/16/01 EJV 16 AIX: added timer functions gs_times_xxx. */ +/* 01/16/01 EJV 15 Moved GET_THREAD_ID define here from glbsem.c*/ +/* 12/20/00 EJV 14 Ported to AIX. Revised DEC UNIX. */ +/* 12/13/00 EJV 13 Added gs_mutex_... funs for multiple mutex */ +/* semaphores support. Added ST_MUTEX_SEM. */ +/* 12/13/00 EJV 12 Removed USE_MANUAL_RESET_SEM. */ +/* 12/06/00 EJV 11 Changed gs_get_event_sem to accept arg. */ +/* 10/25/00 JRB 10 For _WIN32, define S_MT_SUP.. if _MT defined.*/ +/* 10/06/00 EJV 09 Ported to DEC UNIX (__alpha) pthread funcs. */ +/* Added few GLBSEM_LOG_FLOWn macros. */ +/* Deleted gs_chk_thread_id(), check _REENTRANT */ +/* 01/21/00 JRB 08 Del *sem_fun & *sem_funx function pointers. */ +/* Chg macros to call functions directly. */ +/* S_GS_INSTALL, gs_install, S_GS_INIT obsolete.*/ +/* Chg macros if !S_MT_SUPPORT to call gs_chk...*/ +/* 09/13/99 MDE 07 Added SD_CONST modifiers */ +/* 08/02/99 JRB 06 Chged "gs_get_event_sem" to "auto-reset" & */ +/* #ifdef'd out "gs_reset_event_sem". */ +/* 10/08/98 MDE 05 Migrated to updated SLOG interface */ +/* 05/05/98 DSF 04 Added SD_TIMEOUT */ +/* 12/11/97 KCR 03 Added gs_wait_mult_event_sem for _WIN32 */ +/* 10/06/97 DSF 02 Modified the macros used by SLOG such that */ +/* they could be used by SLOG in DEBUG_SISCO */ +/* mode */ +/* 08/15/97 MDE 01 Changed default ST_xxx to ST_VOID * */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef GBLSEM_INCLUDED +#define GBLSEM_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "slog.h" +#include "stime.h" +#include "gen_list.h" + +/************************************************************************/ +#define SD_TIMEOUT 2 + +/************************************************************************/ +/* Logging masks and variable */ + +#define GS_LOG_FLOW 0x0001 +#define GS_LOG_ERR 0x0002 +#define GS_LOG_NERR 0x0004 + +extern SD_CONST ST_CHAR *SD_CONST _glbem_flow_logstr; +extern SD_CONST ST_CHAR *SD_CONST _glbem_err_logstr; +extern SD_CONST ST_CHAR *SD_CONST _glbem_nerr_logstr; + +/* Mutex types: unnamed (local) can be used to synchronize threads in */ +/* a process, and named (global) can be used to synchronize processes */ +/* and threads within a process. */ +#define GS_MUTEX_UNNAMED 0 +#define GS_MUTEX_NAMED 1 + +/************************************************************************/ +/* Just for convenience ... */ +#define S_UNLOCK_CR_AND_RETURN() {S_UNLOCK_COMMON_RESOURCES(); return;} +#define S_UNLOCK_CR_AND_RETURN_VAL(_rc) {S_UNLOCK_COMMON_RESOURCES(); return (_rc);} + +/************************************************************************/ +/************************************************************************/ +/* WINDOWS 95/98/NT/2000 */ +/* These typedefs, defines, and function prototypes are for use with */ +/* Windows only. */ +/************************************************************************/ + +#if defined(_WIN32) /* VC++, 32-Bit */ + +#include + +/* The VC++ compiler automatically defines (_MT) if Multithread libs */ +/* are selected. The user clearly wants multithread support, so */ +/* S_MT_SUPPORT "MUST" be enabled. */ +/* DEBUG: something similar should be done for any system that supports */ +/* multithreading (e.g. OS2). */ + +#if defined(_MT) && !defined(S_MT_SUPPORT) +#define S_MT_SUPPORT +#endif + +#define ST_THREAD_ID unsigned + +typedef struct gs_mutex_tag + { + ST_INT mutexType; /* GS_MUTEX_UNNAMED (_NAMED) */ + ST_THREAD_ID owner; + ST_THREAD_ID refCount; + union + { + HANDLE hMutex; /* for named mutex & unnamed special */ + CRITICAL_SECTION cs; /* for unnamed mutex */ + } u; + } GS_MUTEX; + +#define GET_THREAD_ID() GetCurrentThreadId() +#define ST_MUTEX_SEM GS_MUTEX +#define ST_EVENT_SEM HANDLE +#if (_MSC_VER >= 1300) +#define ST_THREAD_HANDLE uintptr_t +#else +#define ST_THREAD_HANDLE unsigned long +#endif +#define ST_THREAD_ARG void * +#define ST_THREAD_CALL_CONV __stdcall +#define ST_THREAD_RET unsigned +#define ST_THREAD_RET_VAL 0 + +/* defines to distinguish Windows versions passed to gs_is_win_ver() */ +#define SD_WIN_VER_95_98_Me 1 /* 95, 98, Me */ +#define SD_WIN_VER_NT_AND_LATER 2 /* NT 3.51, NT 4.0 and above */ +#define SD_WIN_VER_2K_AND_LATER 3 /* 2000 and above */ +#define SD_WIN_VER_XP_AND_LATER 4 /* XP and above */ +#define SD_WIN_VER_2003_AND_LATER 5 /* 2003 and above */ +#define SD_WIN_VER_VISTA_AND_LATER 6 /* Vista and above */ + +/* specific Windows version */ +#define SD_WIN_VER_95 10 +#define SD_WIN_VER_98 20 +#define SD_WIN_VER_Me 30 +#define SD_WIN_VER_NT_351 40 +#define SD_WIN_VER_NT_40 50 +#define SD_WIN_VER_2000 60 +#define SD_WIN_VER_XP 70 +#define SD_WIN_VER_2003 80 +#define SD_WIN_VER_VISTA 90 + +#endif /* defined(_WIN32) */ + + +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ +/* UNIX, Linux, ... */ +/* These typedefs, defines, and function prototypes are for use with */ +/* UNIX, Linux,... only */ +/* Implemented functions are complying with the "POSIX 1003.1c" standard.*/ +/************************************************************************/ + +#if defined(_AIX) || defined(sun) || defined(__hpux) || \ + defined(linux) || defined(__LYNX) || \ + (defined(__alpha) && !defined(__VMS)) || /* Tru64 alpha */ \ + (defined(__ALPHA) && defined(__VMS)) /* OpenVMS alpha */ + +#if (defined(__alpha) && !defined(__VMS)) || /* Tru64 alpha */ \ + (defined(__ALPHA) && defined(__VMS)) /* OpenVMS alpha */ +/* If the code is compiled with -pthread switch then the _REENTRANT */ +/* symbol is defined. This means that there should be a multithread */ +/* support for the code (the S_MT_SUPPORT should be defined). */ + +#if defined(_REENTRANT) && !defined(S_MT_SUPPORT) +#define S_MT_SUPPORT +#endif + +/* According to the POSIX standard this define should be included in */ +/* every application module. The included in */ +/* defines the _POSIX_C_SOURCE to be 199506L. */ + +#define _POSIX_C_SOURCE 199506L +#endif /* defined(__alpha) && !defined(__VMS) */ + +#if defined(_AIX) +/* If the compiler defines _THREAD_SAFE we should build the code */ +/* with multithread support (the S_MT_SUPPORT should be defined). */ + +#if defined(_THREAD_SAFE) && !defined(S_MT_SUPPORT) +#define S_MT_SUPPORT +#endif +#endif /* defined(_AIX) */ + +#if defined(sun) || defined(__hpux) +/* On Solaris 9,10 an application must define _POSIX_C_SOURCE >=199506L */ +/* IN EVERY MODULE OF AN APPLICATION to get the multithread support. */ +/* There is no other compiler define that indicates if a module is */ +/* compiled for multithread support. */ + +#define _POSIX_C_SOURCE 199506L + +#if (_POSIX_C_SOURCE-0 >= 199506L) && !defined(S_MT_SUPPORT) +#define S_MT_SUPPORT +#endif +#endif /* defined(sun) || defined(__hpux) */ + +#if defined(linux) || defined(__LYNX) +/* If the compiler defines _THREAD_SAFE, we should build the code */ +/* with multithread support (the S_MT_SUPPORT should be defined). */ + +#if (defined(_THREAD_SAFE) || defined(_REENTRANT)) && !defined(S_MT_SUPPORT) +#define S_MT_SUPPORT +#endif +#endif /* defined(linux) */ + +#if defined(S_MT_SUPPORT) +#include +typedef struct gs_event_sem_tag + { + ST_INT predicate; /* predicate to change value */ + pthread_mutex_t mutex; /* mutex sem protecting the cond*/ + pthread_cond_t cond; /* condition variable */ + ST_BOOLEAN manualReset; /* type os event semaphore */ + } GS_EVENT_SEM; + +#define GET_THREAD_ID() pthread_self() +#define ST_MUTEX_SEM pthread_mutex_t +#define ST_EVENT_SEM GS_EVENT_SEM * +#define ST_THREAD_ID pthread_t +#define ST_THREAD_HANDLE pthread_t +#define ST_THREAD_ARG void * +#define ST_THREAD_CALL_CONV +#define ST_THREAD_RET void * +#define ST_THREAD_RET_VAL NULL +#endif /* defined(S_MT_SUPPORT) */ + +#endif /* defined UNIX, linux,... */ + + +/************************************************************************/ +/************************************************************************/ +/* If no system has defined the required types, do so now. This allows */ +/* the source to include variables of these types w/o errors. */ + +#if !defined (ST_EVENT_SEM) + +#define GET_THREAD_ID() (ST_THREAD_ID) 0xFFFFFFFF +#define ST_MUTEX_SEM ST_VOID * +#define ST_EVENT_SEM ST_VOID * +#define ST_THREAD_ID ST_VOID * +#define ST_THREAD_HANDLE ST_VOID * +#define ST_THREAD_ARG ST_VOID * +#define ST_THREAD_CALL_CONV +#define ST_THREAD_RET ST_VOID +#define ST_THREAD_RET_VAL + +#endif /* !defined (ST_EVENT_SEM) */ + +/************************************************************************/ +/************************************************************************/ +/* Global functions */ + +/* SISCO Single MUTEX functions */ +ST_RET gs_init (ST_VOID); +ST_VOID gs_log_sem_state (ST_VOID); +ST_VOID gs_get_semx (SD_CONST ST_CHAR *srcFile, ST_INT srcLineNum); +ST_VOID gs_free_semx (SD_CONST ST_CHAR *srcFile, ST_INT srcLineNum); + +/* User's MUTEX Semaphore functions */ +ST_RET gs_mutex_create (ST_MUTEX_SEM *ms); +ST_RET gs_named_mutex_create (ST_MUTEX_SEM *ms, ST_CHAR *name); +ST_RET gs_mutex_get_tm (ST_MUTEX_SEM *ms, ST_LONG timeout); +#define gs_mutex_get(ms) gs_mutex_get_tm(ms, -1L) +ST_RET gs_mutex_free (ST_MUTEX_SEM *ms); +ST_RET gs_mutex_destroy (ST_MUTEX_SEM *ms); + +/* Event Semaphores */ +ST_EVENT_SEM gs_get_event_sem (ST_BOOLEAN manualReset); +ST_EVENT_SEM gs_get_named_event_sem (ST_CHAR *name, ST_BOOLEAN manualReset); +ST_RET gs_wait_event_sem (ST_EVENT_SEM es, ST_LONG timeout); +ST_RET gs_wait_mult_event_sem (ST_INT numEvents, ST_EVENT_SEM *esTable, + ST_BOOLEAN *activity, ST_LONG timeout); +ST_VOID gs_signal_event_sem (ST_EVENT_SEM es); +ST_VOID gs_pulse_event_sem (ST_EVENT_SEM es); +ST_VOID gs_reset_event_sem (ST_EVENT_SEM es); +ST_VOID gs_free_event_sem (ST_EVENT_SEM es); + +/* Thread */ +ST_RET gs_start_thread (ST_THREAD_RET (ST_THREAD_CALL_CONV *threadFunc) (ST_THREAD_ARG), + ST_THREAD_ARG threadArg, + ST_THREAD_HANDLE *threadHandleOut, + ST_THREAD_ID *threadIdOut); +ST_RET gs_wait_thread (ST_THREAD_HANDLE threadHandle, + ST_THREAD_ID threadId, ST_LONG timeout); +ST_RET gs_close_thread (ST_THREAD_HANDLE threadHandle); + +#if defined (_WIN32) +ST_VOID gs_set_thread_name (ST_THREAD_ID threadId, ST_CHAR *pThreadName); +#endif + +/* Misc. functions */ +#if defined (_WIN32) +ST_INT gs_is_win_ver (ST_UINT ver); +#endif + +/************************************************************************/ +/* These are the macro's used to call the glbsem get/free functions. */ +/* Note that the behavior depends on the defines used at compile time. */ + +#if defined(S_MT_SUPPORT) /* If code is to have MT support */ + +#if defined(DEBUG_SISCO) /* MT support, debug */ + +#define S_LOCK_COMMON_RESOURCES() gs_get_semx(thisFileName, __LINE__) +#define S_UNLOCK_COMMON_RESOURCES() gs_free_semx(thisFileName, __LINE__) + +/* NOTE: because S_LOCK_UTIL_RESOURCES & S_UNLOCK_UTIL_RESOURCES are called from SLOG, */ +/* the gs_mutex_get and gs_mutex_free (code handling unnamed mutexes) */ +/* should not be logging to avoid infinite loop (i.e. lock funct calling */ +/* log funct which calls lock funct again). */ +#define S_LOCK_UTIL_RESOURCES() gs_mutex_get (&gs_util_mutex) +#define S_UNLOCK_UTIL_RESOURCES() gs_mutex_free (&gs_util_mutex) + +#else /* MT support, no debug */ + +#define S_LOCK_COMMON_RESOURCES() gs_mutex_get (&gs_glb_mutex) +#define S_UNLOCK_COMMON_RESOURCES() gs_mutex_free (&gs_glb_mutex) + +#define S_LOCK_UTIL_RESOURCES() gs_mutex_get (&gs_util_mutex) +#define S_UNLOCK_UTIL_RESOURCES() gs_mutex_free (&gs_util_mutex) + +#endif + +#else /* No MT support is compiled in */ +#define S_LOCK_COMMON_RESOURCES() +#define S_UNLOCK_COMMON_RESOURCES() +#define S_LOCK_UTIL_RESOURCES() +#define S_UNLOCK_UTIL_RESOURCES() +#endif + +/* FOR BACKWARD COMPATIBILITY ONLY. Old code may be calling gs_get_sem, */ +/* gs_free_sem directly. These calls should be replaced with S_LOCK_.. */ +#define gs_get_sem() S_LOCK_UTIL_RESOURCES() +#define gs_free_sem() S_UNLOCK_UTIL_RESOURCES() + +/************************************************************************/ + +#define MAX_SEM_NEST_TRACK 20 +extern ST_MUTEX_SEM gs_glb_mutex; /* the global mutex semaphore */ +extern ST_MUTEX_SEM gs_util_mutex;/* UTILITY MUTEX semaphore: for "low-level"*/ + /* util functs (slog,mem_chk,stime,etc.)*/ +extern ST_BOOLEAN gs_already_inited; +extern ST_UINT gs_track; /* This variable when set to value >0 */ + /* during an application startup allows */ + /* tracking of MUTEX or EVENT sem. */ +extern ST_INT gs_currSemOwnerIndex; +extern ST_CHAR gs_currSemOwnerFile[MAX_SEM_NEST_TRACK][SLOG_MAX_FNAME+1]; +extern ST_INT gs_currSemOwnerLine[MAX_SEM_NEST_TRACK]; + +extern ST_DOUBLE gs_hwMutexTime; +extern ST_DOUBLE gs_hwEventTime; + + /*---*---*---*---*---*---*---*---*---*---*---*---*---*--*/ + /* */ + /* Timer functions */ + /* */ + /*---*---*---*---*---*---*---*---*---*---*---*---*---*--*/ + + /* Note: On AIX the real-time support is not implemented. */ + /* Functions such as timer_create, sleep, or nanosleep are*/ + /* not available (in AIX version 4.3.2 or 4.3.3). */ + /* This implementation of timers is using the GLBSEM */ + /* gs_wait_event_sem function implemented with phtreads */ + /* to support the timer functionality. */ + +/* The timer support will be initialized automatically when the function*/ +/* gs_timer_start is called for the first time. */ + +/* If the timer is of type SD_TIMER_ONESHOT then the timer resources */ +/* will be automatically deleted after the first time the timer is */ +/* serviced. For the SD_TIMER_PERIODIC timer the user needs to call */ +/* the gs_timer_end function to stop the timer and release resources. */ + +/* Before application exits the function gs_timer_cleanup should be */ +/* called to cleanup all resources associates with timers. */ + +/* NOTE: Since Windows is limiting number of timers to 16 per process */ +/* we have to use the UNIX timer implementation on Windows. */ +/* If the _WIN32_timers is defined then the Windows implementation*/ +/* of timers will be in effect for Windows. */ +#if defined _WIN32 +/* #define _WIN32_timers */ +#endif + +#define SD_TIMER_ONESHOT 1 +#define SD_TIMER_PERIODIC 2 + +#define GS_TIMER_WORKER_MIN 4 /* def min number of timer worker threads */ +#define GS_TIMER_WORKER_MAX 10 /* def max number of timer worker threads */ + +struct gs_timer_tag; /* forward definition */ + +typedef struct gs_timer_tag + { + DBL_LNK link; /* link list */ +#if defined (_WIN32_timers) + UINT timerID; /* timer id returned from timeSetEvent */ + ST_DOUBLE delay_start; /* time when delete timer delay started */ +#endif + ST_BOOLEAN terminate; /* set if timer should be terminated */ + ST_BOOLEAN pending; /* shows if timer processing is already pending */ + ST_ULONG interval; /* milliseconds, time between servicing */ + ST_DOUBLE expiration; /* milliseconds, next expiration time */ + ST_UINT type; /* timer type: oneshot or periodic */ + ST_VOID (*callback_fun)(ST_VOID *); + ST_VOID *arg; /* argument for the callback_fun. */ + ST_EVENT_SEM event; /* user can set this if it wants to be notified */ + /* when the timer object is destroyed */ + } GS_TIMER; + +/* The timer resolution could be set to the lowest value required by an */ +/* application before calling the gs_timer_start function. */ +/* On Windows system if the timer resolution is changed while the */ +/* application is running, only timers started afterwards will be */ +/* affected. On UNIX system all timers will be affected. */ + +ST_RET gs_timer_init (ST_UINT min_workers, ST_UINT max_workers); +ST_RET gs_timer_set_resolution (ST_ULONG timer_resolution); +ST_ULONG gs_timer_get_resolution (ST_VOID); + +GS_TIMER *gs_timer_start (ST_UINT type, + ST_ULONG interval, + ST_VOID (*callback_fun)(ST_VOID *), + ST_VOID *arg); +ST_RET gs_timer_end (GS_TIMER *timer_id); +ST_RET gs_timer_cleanup (ST_LONG timeout); + + +/************************************************************************/ +/* Logging macro's used internally by glbsem.c */ + +#define GLBSEM_LOG_ERR0(a) \ + SLOG_0 (gs_debug_sel & GS_LOG_ERR,_glbem_err_logstr,a) +#define GLBSEM_LOG_ERR1(a,b) \ + SLOG_1 (gs_debug_sel & GS_LOG_ERR,_glbem_err_logstr,a,b) +#define GLBSEM_LOG_ERR2(a,b,c) \ + SLOG_2 (gs_debug_sel & GS_LOG_ERR,_glbem_err_logstr,a,b,c) +#define GLBSEM_LOG_ERR3(a,b,c,d) \ + SLOG_3 (gs_debug_sel & GS_LOG_ERR,_glbem_err_logstr,a,b,c,d) + +#define GLBSEM_LOG_CERR0(a) \ + SLOGC_0 (gs_debug_sel & GS_LOG_ERR,a) +#define GLBSEM_LOG_CERR1(a,b) \ + SLOGC_1 (gs_debug_sel & GS_LOG_ERR,a,b) +#define GLBSEM_LOG_CERR2(a,b,c) \ + SLOGC_2 (gs_debug_sel & GS_LOG_ERR,a,b,c) +#define GLBSEM_LOG_CERR3(a,b,c,d) \ + SLOGC_3 (gs_debug_sel & GS_LOG_ERR,a,b,c,d) + +#define GLBSEM_LOG_NERR0(a) \ + SLOG_0 (gs_debug_sel & GS_LOG_NERR,_glbem_nerr_logstr,a) +#define GLBSEM_LOG_NERR1(a,b) \ + SLOG_1 (gs_debug_sel & GS_LOG_NERR,_glbem_nerr_logstr,a,b) +#define GLBSEM_LOG_NERR2(a,b,c) \ + SLOG_2 (gs_debug_sel & GS_LOG_NERR,_glbem_nerr_logstr,a,b,c) +#define GLBSEM_LOG_NERR3(a,b,c,d) \ + SLOG_3 (gs_debug_sel & GS_LOG_NERR,_glbem_nerr_logstr,a,b,c,d) + +#define GLBSEM_LOG_FLOW0(a) \ + SLOG_0 (gs_debug_sel & GS_LOG_FLOW,_glbem_flow_logstr,a) +#define GLBSEM_LOG_FLOW1(a,b) \ + SLOG_1 (gs_debug_sel & GS_LOG_FLOW,_glbem_flow_logstr,a,b) +#define GLBSEM_LOG_FLOW2(a,b,c) \ + SLOG_2 (gs_debug_sel & GS_LOG_FLOW,_glbem_flow_logstr,a,b,c) +#define GLBSEM_LOG_FLOW3(a,b,c,d) \ + SLOG_3 (gs_debug_sel & GS_LOG_FLOW,_glbem_flow_logstr,a,b,c,d) + +#define GLBSEM_LOG_CFLOW0(a) \ + SLOGC_0 (gs_debug_sel & GS_LOG_FLOW,a) +#define GLBSEM_LOG_CFLOW1(a,b) \ + SLOGC_1 (gs_debug_sel & GS_LOG_FLOW,a,b) +#define GLBSEM_LOG_CFLOW2(a,b,c) \ + SLOGC_2 (gs_debug_sel & GS_LOG_FLOW,a,b,c) +#define GLBSEM_LOG_CFLOW3(a,b,c,d) \ + SLOGC_3 (gs_debug_sel & GS_LOG_FLOW,a,b,c,d) + +/************************************************************************/ +#define gs_install() /* OBSOLETE: for backward compat. only */ +#define S_GS_INSTALL() /* OBSOLETE: for backward compat. only. */ +#define S_GS_INIT() /* OBSOLETE: for backward compat. only. */ + + +#ifdef __cplusplus +} +#endif + +#endif /* #ifndef GBLSEM_INCLUDED */ + diff --git a/mmslib/inc/glbtypes.h b/mmslib/inc/glbtypes.h new file mode 100644 index 0000000..a2b751f --- /dev/null +++ b/mmslib/inc/glbtypes.h @@ -0,0 +1,688 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2006, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : glbtypes.h */ +/* PRODUCT(S) : MMSEASE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/18/08 JRB 30 Use endian.h to set SD_BYTE_ORDER on linux. */ +/* 01/27/06 EJV 29 _WIN32: chg ST_UINT64 to unsigned __int64. */ +/* 08/01/05 JRB 28 Disable SD_CONST for ALL platforms. */ +/* 02/12/04 JRB 27 Disable ST_CONST for LINUX. */ +/* 01/08/04 EJV 26 Checked SD_BIG_ENDIAN on sun, rem pragma msg.*/ +/* 12/09/03 JRB 25 Add LYNX, don't def ST_CONST for LYNX. */ +/* 02/19/03 JRB 24 Define SD_BYTE_ORDER for each system. */ +/* 02/19/03 JRB 23 Del VAX-VMS & PSOS code. */ +/* 02/17/03 CRM 22 Added "defined(linux)" code. */ +/* 02/17/03 JRB 21 Del unsupported __IC86__ */ +/* Del obsolete DEBUG_MMS, DEBUG_SUIC, etc. */ +/* Del NEW_SYSTEM.. defines (not very useful). */ +/* 02/27/02 JRB 20 Include compiler option file "glbopt.h". */ +/* 10/05/01 EJV 19 sun supports ST_INT64 (long long) */ +/* 01/02/01 EJV 18 disabled SD_CONST macro for _AIX */ +/* enabled SD_CONST macro for QNX */ +/* 06/16/00 JRB 17 Define "*INT64" only if INT64_SUPPORT defined*/ +/* 03/13/00 MDE 16 disabled SD_CONST macro for WIN32 */ +/* 09/24/99 JRB 15 disabled SD_CONST macro for QNX */ +/* 09/13/99 MDE 14 Added SD_CONST modifiers */ +/* 04/14/99 MDE 13 Changed SYSTEM_SEL defines */ +/* 01/19/99 EJV 12 AIX: Added 64 bit integer support */ +/* 08/26/98 EJV 11 Deleted CPU_SEL and all releated defines. */ +/* __hpux supports 64-bit integers. */ +/* Eliminated spaces at the end of lines. */ +/* 02/09/98 RKR 10 Removed PRODUCT_ONLY_VMS_ALPHA */ +/* 01/23/98 EJV 09 Digital UNIX: revised. */ +/* 12/11/97 JRB 08 Cleaned up PSOS ifdefs. Define PSOS_SYSTEM */ +/* to compile. Use new SYSTEM_SEL=SYS_PSOS. */ +/* 12/11/97 JRB 07 Deleted _MRI ifdef (for Modicon/MICROTEC) */ +/* Deleted EMBEDDED_6800 SYSTEM_SEL. */ +/* 10/27/97 EJV 06 AIX: revised types, deleted pragma message() */ +/* 09/23/97 JRB 05 QNX: pragma stops unused symbol warnings. */ +/* 08/16/97 EJV 04 For QNX corrected ST_INT16, ST_UINT16. */ +/* 08/15/97 JRB 03 Use MOTO_68000 consistently. */ +/* 08/13/97 EJV 02 Changed #if (A && B) statements to avoid */ +/* warning if A or B has not been defined. */ +/* 06/20/97 MDE 01 Added 64 bit integer support for 95/NT */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef GBLTYPES_INCLUDED +#define GBLTYPES_INCLUDED + +#include "glbopt.h" /* Global compiler options. */ + +#ifdef __cplusplus +extern "C" { +#endif +void logprint(char * fmt,...); +/* +#define VXWORKS + +#define DEBUG_SISCO +#define MOSI +#define LEAN_T +#define MVL_UCA +#define MMS_LITE +#define TP0_ENABLED*/ +#ifndef WIN32 +#define WIN32 +#endif + + + + +/**/ + + + + + + + + + + + +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ +/* General purpose defines, same for all platforms */ + +#define SD_TRUE 1 +#define SD_FALSE 0 +#define SD_SUCCESS 0 +#define SD_FAILURE 1 +#define SD_BIG_ENDIAN 0 +#define SD_LITTLE_ENDIAN 1 + +/* Define used for 'const' modifier */ +/* DEBUG: someday if all code is changed to consistently use SD_CONST, */ +/* this define may be replaced with the following: */ +/* #define SD_CONST const */ +#define SD_CONST + +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ + +/* SYSTEM_SEL defines - bit masked */ +#define SYSTEM_SEL_MSOFT 0x0001 +#define SYSTEM_SEL_OS2 0x0008 +#define SYSTEM_SEL_OPEN_VMS 0x0010 +#define SYSTEM_SEL_SYS_5 0x0020 +#define SYSTEM_SEL_SYS_BSD 0x0040 +#define SYSTEM_SEL_QNX_C86 0x0100 +#define SYSTEM_SEL_SYSVXWORKS 0x0800 +#define SYSTEM_SEL_SYS_QNX4 0x1000 + +/* For backwards compatibility only, do not use. Will be deleted soon. */ +#if !defined(MSOFT) +#define MSOFT SYSTEM_SEL_MSOFT +#endif +#if !defined(OS2) +#define OS2 SYSTEM_SEL_OS2 +#endif +#if !defined(OPEN_VMS) +#define OPEN_VMS SYSTEM_SEL_OPEN_VMS +#endif +#if !defined(SYS_5) +#define SYS_5 SYSTEM_SEL_SYS_5 +#endif +#if !defined(SYS_BSD) +#define SYS_BSD SYSTEM_SEL_SYS_BSD +#endif +#if !defined(QNX_C86) +#define QNX_C86 SYSTEM_SEL_QNX_C86 +#endif +#if !defined(SYSVXWORKS) +#define SYSVXWORKS SYSTEM_SEL_SYSVXWORKS +#endif +#if !defined(SYS_QNX4) +#define SYS_QNX4 SYSTEM_SEL_SYS_QNX4 +#endif + +/************************************************************************/ +/************************************************************************/ +/* SYSTEM and CPU select defines. These are based on built in compiler */ +/* defines which allow automatic detection of the compiler. */ +/************************************************************************/ + +/************************************************************************/ +/* MS-DOS and WINDOWS */ +/************************************************************************/ +#if defined(MSDOS) || defined(__MSDOS__) /* Microsoft or Borland */ + +#if !defined(_WINDOWS) && !defined(_Windows) +#define PLAIN_DOS /* straight and pure DOS */ +#endif + +#define SD_BYTE_ORDER SD_LITTLE_ENDIAN +#define SYSTEM_SEL SYSTEM_SEL_MSOFT +#define SD_END_STRUCT + +/* We can tolerate machine-dependent sizes for these types */ +#define ST_CHAR char +#define ST_INT signed int +#define ST_LONG signed long int +#define ST_UCHAR unsigned char +#define ST_UINT unsigned int +#define ST_ULONG unsigned long +#define ST_VOID void +#define ST_DOUBLE double +#define ST_FLOAT float + +/* General purpose return code */ +#define ST_RET signed int + +/* We need specific sizes for these types */ +#define ST_INT8 signed char +#define ST_INT16 signed short +#define ST_INT32 signed long +#define ST_UINT8 unsigned char +#define ST_UINT16 unsigned short +#define ST_UINT32 unsigned long + +/* SD_TRUE or SD_FALSE only */ +#define ST_BOOLEAN unsigned char + + +/* This define shows that we have supplied all required */ +#define _SISCOTYPES_DEFINED + +#endif + +/************************************************************************/ +/* WINDOWS 95/NT */ +/************************************************************************/ +#if defined(_WIN32) /* VC++, 32-Bit */ + +#define SD_BYTE_ORDER SD_LITTLE_ENDIAN +#define SYSTEM_SEL SYSTEM_SEL_MSOFT +#define SD_END_STRUCT + +/* We can tolerate machine-dependent sizes for these types */ +#define ST_CHAR char +#define ST_INT signed int +#define ST_LONG signed long int +#define ST_UCHAR unsigned char +#define ST_UINT unsigned int +#define ST_ULONG unsigned long +#define ST_VOID void +#define ST_DOUBLE double +#define ST_FLOAT float + +/* General purpose return code */ +#define ST_RET signed int + +/* We need specific sizes for these types */ +#define ST_INT8 signed char +#define ST_INT16 signed short +#define ST_INT32 signed long +#define ST_INT64 __int64 +#define ST_UINT8 unsigned char +#define ST_UINT16 unsigned short +#define ST_UINT32 unsigned long +#define ST_UINT64 unsigned __int64 +#define ST_BOOLEAN unsigned char + +/* This define shows that we really have support for 64 bit integers */ +#define INT64_SUPPORT + +/* This define shows that we have supplied all required */ +#define _SISCOTYPES_DEFINED + +#endif + +/************************************************************************/ +/* OS/2 - IBM C/SET2 and C/SET++ */ +/************************************************************************/ +#if defined(__OS2__) /* IBM C Set/2 */ + +#pragma message("Please look over the OS/2 system detect & defines") + +#pragma data_seg(alldata) + +#define SD_BYTE_ORDER SD_LITTLE_ENDIAN +#define SYSTEM_SEL SYSTEM_SEL_OS2 +#define SD_END_STRUCT + +/* We can tolerate machine-dependent sizes for these types */ +#define ST_CHAR char +#define ST_INT signed int +#define ST_LONG signed long int +#define ST_UCHAR unsigned char +#define ST_UINT unsigned int +#define ST_ULONG unsigned long +#define ST_VOID void +#define ST_DOUBLE double +#define ST_FLOAT float + +/* General purpose return code */ +#define ST_RET signed int + +/* We need specific sizes for these types */ +#define ST_INT8 signed char +#define ST_INT16 signed short +#define ST_INT32 signed long +#define ST_UINT8 unsigned char +#define ST_UINT16 unsigned short +#define ST_UINT32 unsigned long +#define ST_BOOLEAN unsigned char + +/* This define shows that we have supplied all required */ +#define _SISCOTYPES_DEFINED + +#endif + +/************************************************************************/ +/* SUN */ +/************************************************************************/ +#if defined(sun) /* SUN */ + +#define SD_BYTE_ORDER SD_BIG_ENDIAN +#define SYSTEM_SEL SYS_5 +#define SD_END_STRUCT long end_of; /* force struct to quad word allign */ + +/* We can tolerate machine-dependent sizes for these types */ +#define ST_CHAR char +#define ST_INT signed int +#define ST_LONG signed long int +#define ST_UCHAR unsigned char +#define ST_UINT unsigned int +#define ST_ULONG unsigned long +#define ST_VOID void +#define ST_DOUBLE double +#define ST_FLOAT float + +/* General purpose return code */ +#define ST_RET signed int + +/* We need specific sizes for these types */ +#define ST_INT8 signed char +#define ST_INT16 signed short +#define ST_INT32 signed long +#define ST_INT64 signed long long +#define ST_UINT8 unsigned char +#define ST_UINT16 unsigned short +#define ST_UINT32 unsigned long +#define ST_UINT64 unsigned long long +#define ST_BOOLEAN unsigned char + +/* This define shows that we really have support for 64 bit integers */ +#define INT64_SUPPORT + +/* This define shows that we have supplied all required */ +#define _SISCOTYPES_DEFINED + +#endif + +/************************************************************************/ +/* AIX */ +/************************************************************************/ +#if defined(_AIX) /* AIX */ + +#define SD_BYTE_ORDER SD_BIG_ENDIAN +#define SYSTEM_SEL SYS_5 +#define SD_END_STRUCT long end_of; /* force struct to quad word allign */ + +/* We can tolerate machine-dependent sizes for these types */ +#define ST_CHAR char +#define ST_INT signed int +#define ST_LONG signed long int +#define ST_UCHAR unsigned char +#define ST_UINT unsigned int +#define ST_ULONG unsigned long +#define ST_VOID void +#define ST_DOUBLE double +#define ST_FLOAT float + +/* General purpose return code */ +#define ST_RET signed int + +/* We need specific sizes for these types */ +#define ST_INT8 signed char +#define ST_INT16 signed short +#define ST_INT32 signed long +#define ST_INT64 signed long long +#define ST_UINT8 unsigned char +#define ST_UINT16 unsigned short +#define ST_UINT32 unsigned long +#define ST_UINT64 unsigned long long +#define ST_BOOLEAN unsigned char + +/* This define shows that we really have support for 64 bit integers */ +#define INT64_SUPPORT + +/* This define shows that we have supplied all required */ +#define _SISCOTYPES_DEFINED + +#endif + +/************************************************************************/ +/* OpenVMS AXP */ +/************************************************************************/ +#if defined(__ALPHA) && defined(__VMS) /* OpenVMS AXP uses DECC*/ + +#define SD_BYTE_ORDER SD_LITTLE_ENDIAN +#define SYSTEM_SEL SYSTEM_SEL_OPEN_VMS +#define SD_END_STRUCT long end_of; + +/* We can tolerate machine-dependent sizes for these types */ +#define ST_CHAR char +#define ST_INT signed int +#define ST_LONG signed long int +#define ST_UCHAR unsigned char +#define ST_UINT unsigned int +#define ST_ULONG unsigned long +#define ST_VOID void +#define ST_DOUBLE double +#define ST_FLOAT float + +/* General purpose return code */ +#define ST_RET signed int + +/* We need specific sizes for these types */ +#define ST_INT8 signed char +#define ST_INT16 signed short +#define ST_INT32 signed long +#define ST_UINT8 unsigned char +#define ST_UINT16 unsigned short +#define ST_UINT32 unsigned long +#define ST_BOOLEAN unsigned char + + +/* This define shows that we have supplied all required */ +#define _SISCOTYPES_DEFINED + +#endif + +/************************************************************************/ +/* Digital UNIX */ +/************************************************************************/ + +#if defined(__alpha) && !defined(__VMS) + +#define SD_BYTE_ORDER SD_LITTLE_ENDIAN +#define SYSTEM_SEL SYSTEM_SEL_SYS_5 +#define SD_END_STRUCT long end_of; + +/* We can tolerate machine-dependent sizes for these types */ +#define ST_CHAR char +#define ST_INT signed int +#define ST_LONG signed long int +#define ST_UCHAR unsigned char +#define ST_UINT unsigned int +#define ST_ULONG unsigned long +#define ST_VOID void +#define ST_DOUBLE double +#define ST_FLOAT float + +/* General purpose return code */ +#define ST_RET signed int + +/* We need specific sizes for these types */ +#define ST_INT8 signed char +#define ST_INT16 signed short +#define ST_INT32 signed int +#define ST_INT64 signed long +#define ST_UINT8 unsigned char +#define ST_UINT16 unsigned short +#define ST_UINT32 unsigned int +#define ST_UINT64 unsigned long +#define ST_BOOLEAN unsigned char + +/* This define shows that we really have support for 64 bit integers */ +#define INT64_SUPPORT + +/* This define shows that we have supplied all required */ +#define _SISCOTYPES_DEFINED + +#endif + +/************************************************************************/ +/* ECOS */ +/************************************************************************/ + +#if defined(__ECOS) + +#define SD_BYTE_ORDER SD_BIG_ENDIAN +#define SYSTEM_SEL SYSTEM_SEL_SYSVXWORKS +#define SD_END_STRUCT + +/* We can tolerate machine-dependent sizes for these types */ +#define ST_CHAR char +#define ST_INT signed int +#define ST_LONG signed long int +#define ST_UCHAR unsigned char +#define ST_UINT unsigned int +#define ST_ULONG unsigned long +#define ST_VOID void +#define ST_DOUBLE double +#define ST_FLOAT float + +/* General purpose return code */ +#define ST_RET signed int + +/* We need specific sizes for these types */ +#define ST_INT8 signed char +#define ST_INT16 signed short +#define ST_INT32 signed int +#define ST_UINT8 unsigned char +#define ST_UINT16 unsigned short +#define ST_UINT32 unsigned int +#define ST_BOOLEAN unsigned char + +/* This define shows that we have supplied all required */ +#define _SISCOTYPES_DEFINED + +#endif /* __ECOS */ + +/************************************************************************/ +/* VXWORKS - VXWORKS on Motorola 680x0 processor */ +/************************************************************************/ + +#if defined(VXWORKS) + +#define SD_BYTE_ORDER SD_BIG_ENDIAN +#define SYSTEM_SEL SYSTEM_SEL_SYSVXWORKS +#define SD_END_STRUCT + +/* We can tolerate machine-dependent sizes for these types */ +#define ST_CHAR char +#define ST_INT signed int +#define ST_LONG signed long int +#define ST_UCHAR unsigned char +#define ST_UINT unsigned int +#define ST_ULONG unsigned long +#define ST_VOID void +#define ST_DOUBLE double +#define ST_FLOAT float + +/* General purpose return code */ +#define ST_RET signed int + +/* We need specific sizes for these types */ +#define ST_INT8 signed char +#define ST_INT16 signed short +#define ST_INT32 signed long +#define ST_UINT8 unsigned char +#define ST_UINT16 unsigned short +#define ST_UINT32 unsigned long +#define ST_BOOLEAN unsigned char + +/* This define shows that we have supplied all required */ +#define _SISCOTYPES_DEFINED + +#endif + +/************************************************************************/ +/* QNX */ +/************************************************************************/ +#ifdef __QNX__ /* This should be defined automatically by compiler. */ + +#pragma off (unreferenced) /* don't warn about unused symbols. */ + +#define SD_BYTE_ORDER SD_LITTLE_ENDIAN +#define SYSTEM_SEL SYSTEM_SEL_SYS_QNX4 +#define SD_END_STRUCT + +/* We can tolerate machine-dependent sizes for these types */ +#define ST_CHAR char +#define ST_INT signed int +#define ST_LONG signed long int +#define ST_UCHAR unsigned char +#define ST_UINT unsigned int +#define ST_ULONG unsigned long +#define ST_VOID void +#define ST_DOUBLE double +#define ST_FLOAT float + +/* General purpose return code */ +#define ST_RET signed int + +/* We need specific sizes for these types */ +#define ST_INT8 signed char +#define ST_INT16 signed short +#define ST_INT32 signed long +#define ST_UINT8 unsigned char +#define ST_UINT16 unsigned short +#define ST_UINT32 unsigned long +#define ST_BOOLEAN unsigned char + +/* This define shows that we have supplied all required */ +#define _SISCOTYPES_DEFINED + +#endif + +/************************************************************************/ +/* HP-UX */ +/************************************************************************/ +#if defined(__hpux) /* HP-UX */ + +#define SD_BYTE_ORDER SD_BIG_ENDIAN +#define SYSTEM_SEL SYS_5 +#define SD_END_STRUCT long end_of; /* force struct to quad word allign */ + + +/* We can tolerate machine-dependent sizes for these types */ +#define ST_CHAR char +#define ST_INT signed int +#define ST_LONG signed long int +#define ST_UCHAR unsigned char +#define ST_UINT unsigned int +#define ST_ULONG unsigned long +#define ST_VOID void +#define ST_DOUBLE double +#define ST_FLOAT float + +/* General purpose return code */ +#define ST_RET signed int + +/* We need specific sizes for these types */ +#define ST_INT8 signed char +#define ST_INT16 signed short +#define ST_INT32 signed long +#define ST_INT64 signed long long +#define ST_UINT8 unsigned char +#define ST_UINT16 unsigned short +#define ST_UINT32 unsigned long +#define ST_UINT64 unsigned long long +#define ST_BOOLEAN unsigned char + +/* This define shows that we really have support for 64 bit integers */ +#define INT64_SUPPORT + +/* This define shows that we have supplied all required */ +#define _SISCOTYPES_DEFINED + +#endif + +/************************************************************************/ +/* LINUX SYSTEM */ +/* OR LYNXOS SYSTEM (same types) */ +/************************************************************************/ +#if defined(linux) || defined(__LYNX) + +/* NOTE: this may also work for setting SD_BYTE_ORDER on other */ +/* platforms that use the GNU C Library */ +#include +#if (__BYTE_ORDER ==__LITTLE_ENDIAN) + #define SD_BYTE_ORDER SD_LITTLE_ENDIAN +#elif (__BYTE_ORDER ==__BIG_ENDIAN) + #define SD_BYTE_ORDER SD_BIG_ENDIAN +#else + #error unsupported byte order +#endif + +#define SD_END_STRUCT + +/* We can tolerate machine-dependent sizes for these types */ +#define ST_CHAR char +#define ST_INT signed int +#define ST_LONG signed long int +#define ST_UCHAR unsigned char +#define ST_UINT unsigned int +#define ST_ULONG unsigned long +#define ST_VOID void +#define ST_DOUBLE double +#define ST_FLOAT float + +/* General purpose return code */ +#define ST_RET signed int + +/* We need specific sizes for these types */ +#define ST_INT8 signed char +#define ST_INT16 signed short +//renxiaobao +#define ST_INT32 signed int +//#define ST_INT32 signed long +#define ST_INT64 signed long long +#define ST_UINT8 unsigned char +#define ST_UINT16 unsigned short +//renxiaobao +#define ST_UINT32 unsigned int +//#define ST_UINT32 unsigned long +#define ST_UINT64 unsigned long +//#define ST_UINT64 unsigned long long +#define ST_BOOLEAN unsigned char + +/* This define shows that we really have support for 64 bit integers */ +#define INT64_SUPPORT + +/* This define shows that we have supplied all required */ +#define _SISCOTYPES_DEFINED + +#endif /* linux */ + +/************************************************************************/ +/************************************************************************/ +/* Make sure that this module has identified the target system */ + +#if !defined(_SISCOTYPES_DEFINED) +#error Warning: System not correctly identified by glbtypes.h +#endif + +#if !defined(SD_BYTE_ORDER) +#error SD_BYTE_ORDER not defined +#endif + +/************************************************************************/ +#ifdef __cplusplus +} +#endif + + +#endif /* #ifndef GBLTYPES_INCLUDED */ diff --git a/mmslib/inc/gse_mgmt.h b/mmslib/inc/gse_mgmt.h new file mode 100644 index 0000000..4c6c97f --- /dev/null +++ b/mmslib/inc/gse_mgmt.h @@ -0,0 +1,252 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1999-2002, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : gse_mgmt.h */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 11/03/06 CRM 01 Created */ +/************************************************************************/ + +#ifndef GSE_MGMT_INCLUDED +#define GSE_MGMT_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "acse2usr.h" +#include "asn1r.h" +#include "ethertyp.h" + + + +#define MAX_GSE_MGMT_ENCODE_BUF 1540 +#define MAX_VSTRING_BUF 65 +#define NUM_ELEMENTS 500 + +#define GET_GO_REF_REQ_TAG 1 +#define GET_GOOSE_ELE_NUM_REQ_TAG 2 +#define GET_GS_REF_REQ_TAG 3 +#define GET_GSSE_DATA_OFF_REQ_TAG 4 + +#define GET_GO_REF_RSP_TAG 1 +#define GET_GOOSE_ELE_NUM_RSP_TAG 2 +#define GET_GS_REF_RSP_TAG 3 +#define GET_GSSE_DATA_OFF_RSP_TAG 4 + +#define RSP_OTHER 0 +#define RSP_NOT_FOUND 1 + +#define GLB_ERROR 2 +#define GLB_ERR_OTHER 0 +#define GLB_ERR_UNKNOWN_CTRL_BLK 1 +#define GLB_ERR_RSP_TOO_LARGE 2 +#define GLB_ERR_CTRL_BLK_CONFIG_ERR 3 + + +#define GSE_MSG_TYPE_GO_REF_REQ 1 +#define GSE_MSG_TYPE_GOOSE_ELE_REQ 2 +#define GSE_MSG_TYPE_GS_REF_REQ 3 +#define GSE_MSG_TYPE_GSSE_DATA_OFF_REQ 4 + +#define GSE_MSG_TYPE_GLOBAL_ERROR_RSP 10 +#define GSE_MSG_TYPE_GO_REF_RSP 11 +#define GSE_MSG_TYPE_GOOSE_ELE_RSP 12 +#define GSE_MSG_TYPE_GS_REF_RSP 13 +#define GSE_MSG_TYPE_GSSE_DATA_OFF_RSP 14 + + + +/************************************************************************/ +/* BEGIN GSE MGMT DEFINITIONS */ +/************************************************************************/ +typedef struct + { + ST_UINT32 stateID; + ST_CHAR ident[MAX_VSTRING_BUF+1]; + ST_INT numIntegers; + ST_UINT32 *offset; + } GSE_REF_REQ; + +typedef struct + { + ST_UINT32 stateID; + ST_CHAR ident[MAX_VSTRING_BUF+1]; + ST_INT numVStrings; + ST_CHAR **references; + } GSE_OFFSET_REQ; + +/* Global error response sturcture */ +typedef struct + { + ST_UINT32 stateID; + ST_CHAR ident[MAX_VSTRING_BUF+1]; + ST_UINT32 confRev; + ST_UINT32 glbError; + } GSE_GLB_ERR_RSP; + + +/* Offset response sturctures */ +typedef struct + { + ST_INT rsp_type; + ST_UINT32 offset; + ST_UINT32 error; + } OFFSET_REQ_RESULTS; + +typedef struct + { + ST_UINT32 stateID; + ST_CHAR ident[MAX_VSTRING_BUF+1]; + ST_UINT32 confRev; + ST_CHAR datSet[MAX_VSTRING_BUF+1]; + ST_INT numResults; + OFFSET_REQ_RESULTS *result; + } GSE_OFFSET_RSP; + + +/* Reference response sturctures */ +typedef struct + { + ST_INT rsp_type; + ST_CHAR reference[MAX_VSTRING_BUF+1]; + ST_UINT32 error; + } REF_REQ_RESULTS; + + +typedef struct + { + ST_UINT32 stateID; + ST_CHAR ident[MAX_VSTRING_BUF+1]; + ST_UINT32 confRev; + ST_CHAR datSet[MAX_VSTRING_BUF+1]; + ST_INT numResults; + REF_REQ_RESULTS *result; + } GSE_REF_RSP; + + + +/************************************************************************/ +/* STRUCTURE DEFINITIONS */ +/************************************************************************/ + +typedef struct + { + ST_UINT32 stateID; + ST_INT msgType; + + union GSE_MSG + { + GSE_REF_REQ refReq; + GSE_OFFSET_REQ offReq; + GSE_OFFSET_RSP offRsp; + GSE_REF_RSP refRsp; + GSE_GLB_ERR_RSP glbErrRsp; + } msg; + } GSE_MGMT_MSG; + + + + +ST_UCHAR *getGoRefReqEncode (GSE_REF_REQ *ctrl, + ST_UCHAR *asn1DataBuf, /* buffer to encode in */ + ST_INT asn1DataBufLen, /* len of buffer */ + ST_INT *asn1DataLenOut, /* ptr to len encoded */ + ETYPE_INFO *etype_info, /* ptr to Ethertype info */ + ST_UINT8 *dstMac, /* destination MAC address */ + ST_UINT8 *srcMac); /* source MAC address */ +ST_UCHAR *getGOOSEEleNumReqEncode (GSE_OFFSET_REQ *ctrl, + ST_UCHAR *asn1DataBuf, /* buffer to encode in */ + ST_INT asn1DataBufLen, /* len of buffer */ + ST_INT *asn1DataLenOut, /* ptr to len encoded */ + ETYPE_INFO *etype_info, /* ptr to Ethertype info */ + ST_UINT8 *dstMac, /* destination MAC address */ + ST_UINT8 *srcMac); /* source MAC address */ +ST_UCHAR *getGsRefReqEncode (GSE_REF_REQ *ctrl, + ST_UCHAR *asn1DataBuf, /* buffer to encode in */ + ST_INT asn1DataBufLen, /* len of buffer */ + ST_INT *asn1DataLenOut, /* ptr to len encoded */ + ETYPE_INFO *etype_info, /* ptr to Ethertype info */ + ST_UINT8 *dstMac, /* destination MAC address */ + ST_UINT8 *srcMac); /* source MAC address */ +ST_UCHAR *getGSSEDataOffsetReqEncode (GSE_OFFSET_REQ *ctrl, + ST_UCHAR *asn1DataBuf, /* buffer to encode in */ + ST_INT asn1DataBufLen, /* len of buffer */ + ST_INT *asn1DataLenOut, /* ptr to len encoded */ + ETYPE_INFO *etype_info, /* ptr to Ethertype info */ + ST_UINT8 *dstMac, /* destination MAC address */ + ST_UINT8 *srcMac); /* source MAC address */ + + + +ST_UCHAR *gse_mgmt_NotSupported (ST_VOID); +ST_UCHAR *getGlbErrorRspEncode (GSE_GLB_ERR_RSP *ctrl, + ST_UCHAR *asn1DataBuf, /* buffer to encode in */ + ST_INT asn1DataBufLen, /* len of buffer */ + ST_INT *asn1DataLenOut, /* ptr to len encoded */ + ETYPE_INFO *etype_info, /* ptr to Ethertype info */ + ST_UINT8 *dstMac, /* destination MAC address */ + ST_UINT8 *srcMac); /* source MAC address */ +ST_UCHAR *getGoRefRspEncode (GSE_REF_RSP *ctrl, + ST_UCHAR *asn1DataBuf, /* buffer to encode in */ + ST_INT asn1DataBufLen, /* len of buffer */ + ST_INT *asn1DataLenOut, /* ptr to len encoded */ + ETYPE_INFO *etype_info, /* ptr to Ethertype info */ + ST_UINT8 *dstMac, /* destination MAC address */ + ST_UINT8 *srcMac); /* source MAC address */ +ST_UCHAR *getGOOSEEleNumRspEncode (GSE_OFFSET_RSP *ctrl, + ST_UCHAR *asn1DataBuf, /* buffer to encode in */ + ST_INT asn1DataBufLen, /* len of buffer */ + ST_INT *asn1DataLenOut, /* ptr to len encoded */ + ETYPE_INFO *etype_info, /* ptr to Ethertype info */ + ST_UINT8 *dstMac, /* destination MAC address */ + ST_UINT8 *srcMac); /* source MAC address */ +ST_UCHAR *getGsRefRspEncode (GSE_REF_RSP *ctrl, + ST_UCHAR *asn1DataBuf, /* buffer to encode in */ + ST_INT asn1DataBufLen, /* len of buffer */ + ST_INT *asn1DataLenOut, /* ptr to len encoded */ + ETYPE_INFO *etype_info, /* ptr to Ethertype info */ + ST_UINT8 *dstMac, /* destination MAC address */ + ST_UINT8 *srcMac); /* source MAC address */ +ST_UCHAR *getGSSEDataOffsetRspEncode (GSE_OFFSET_RSP *ctrl, + ST_UCHAR *asn1DataBuf, /* buffer to encode in */ + ST_INT asn1DataBufLen, /* len of buffer */ + ST_INT *asn1DataLenOut, /* ptr to len encoded */ + ETYPE_INFO *etype_info, /* ptr to Ethertype info */ + ST_UINT8 *dstMac, /* destination MAC address */ + ST_UINT8 *srcMac); /* source MAC address */ + + + +/************************************************************************/ +/* Functions for receiving GSE_MGMT messages. */ +/* Decode GSE_MGMT message and fill in GSE_MGMT_MSG struct. */ +/************************************************************************/ +GSE_MGMT_MSG *gse_mgmt_msg_decode ( + SN_UNITDATA *sn_req, /* message to decode */ + ETYPE_INFO *etypeInfo); /* where to store decoded Ethertype info*/ + +/* Must be called to free structure returned from gse_mgmt_msg_decode. */ +ST_VOID gse_mgmt_msg_free (GSE_MGMT_MSG *gseMgmtMsg); + + +/************************************************************************/ +/* END GSE MGMT DEFINITIONS */ +/************************************************************************/ +#ifdef __cplusplus +} +#endif + +#endif /* GSE_MGMT_INCLUDED */ diff --git a/mmslib/inc/gvaldefs.h b/mmslib/inc/gvaldefs.h new file mode 100644 index 0000000..cc8e9cb --- /dev/null +++ b/mmslib/inc/gvaldefs.h @@ -0,0 +1,48 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986-1997 All Rights Reserved */ +/* */ +/* MODULE NAME : gvaldefs.h */ +/* PRODUCT(S) : MMSEASE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This include file contains common declarations used throughout */ +/* the user application code. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef GVALDEFS_INCLUDED +#define GVALDEFS_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#define STRGETSTRINGSIZE 256 + +ST_BOOLEAN floatget (ST_FLOAT *dest); +ST_BOOLEAN doubleget( ST_DOUBLE *dest); +ST_BOOLEAN intget (ST_INT *dest); /* int get function */ +ST_BOOLEAN hexget (ST_INT *dest); /* int get function */ +ST_BOOLEAN longget (ST_LONG *dest); /* long int get function */ +ST_BOOLEAN longhexget (ST_LONG *dest); /* long int get function */ +ST_BOOLEAN strget (ST_CHAR *dest); /* string get function */ +ST_INT input_hex (ST_UCHAR *dest_str, ST_INT maxbytes); + +ST_VOID entry1 (ST_INT maxlen, ST_CHAR *str_ptr); + +#ifdef __cplusplus +} +#endif + +#endif + diff --git a/mmslib/inc/lean_a.h b/mmslib/inc/lean_a.h new file mode 100644 index 0000000..d7ab0ee --- /dev/null +++ b/mmslib/inc/lean_a.h @@ -0,0 +1,145 @@ +#ifndef LEAN_A_H +#define LEAN_A_H +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1996 - 2005 All Rights Reserved */ +/* */ +/* MODULE NAME : lean_a.h */ +/* PRODUCT(S) : Lean-T Stack SUIC */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* NONE */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 05/13/05 EJV 11 MMSEASE_MOSI: added extern domsock_listener */ +/* 03/15/05 EJV 10 MMSEASE_MOSI: set MAX_SUIC_CHAN to 1000 */ +/* Added mms_event_fd. */ +/* 02/08/02 JRB 09 Move osicfgx prototype to mvl_acse.h. */ +/* 11/27/00 JRB 08 Add osicfgx proto. */ +/* 12/10/97 JRB 07 Add MMSEventName and hMMSEvent for OS2. */ +/* 08/14/97 JRB 06 #include "acse2usr.h" and use PRES_ADDR in */ +/* DIB_ENTRY. */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 05/02/97 JRB 05 Del MAX_?_SEL defines. Use suicacse.h defs. */ +/* 05/01/97 JRB 04 Move MAX_SUIC_CHAN define to here. */ +/* 01/02/96 JRB 03 Add MMSEventName and hMMSEvent. */ +/* 10/04/96 JRB 02 #ifdef MCGW, add adlcAddr to DIB_ENTRY. */ +/* Add *_clt7 function prototypes. */ +/* 05/29/96 MDE 01 Changed DIB_ENTRY - name is now a pointer */ +/* 03/27/96 MDE Created */ +/************************************************************************/ + +#ifdef __cplusplus +extern "C" { +#endif + +#if defined (_WIN32) +#include +#endif /* _WIN32 */ + +#if defined (__OS2__) +#define INCL_BASE +#include +#endif /* __OS2__ */ + +#include "asn1defs.h" /* for MMS_OBJ_ID definition */ +#include "acse2usr.h" /* for PRES_ADDR definition */ + +#if defined(MMSEASE_MOSI) +#define MAX_SUIC_CHAN 1024 /* number of channels <=TP_MAX_NUM_CONNS*/ +#include "gensock2.h" /* defines SOCKET */ +extern SOCKET mms_event_fd; /* wakeup socket, indicating TCP Events */ +extern SOCKET domsock_listener; /* domain socket connected to the */ + /* RFC1006_LISTENER task. */ +#else +#define MAX_SUIC_CHAN 256 /* number of channels */ +#endif + +/************************************************************************/ +/* The structure below is used to save Directory and other information */ +/* about local and remote AE's read in from SUIC.DIB */ +/************************************************************************/ + +#define DIB_ENTRY_DEFINED + +struct dib_entry +{ + ST_LONG reserved; /* reserved field */ + ST_CHAR *name; /* user-defined ASCII character string */ + ST_CHAR local; /* local or remote name */ + ST_UCHAR AP_title_pres; /* present flag */ + MMS_OBJ_ID AP_title; /* AP title */ + ST_UCHAR AP_inv_id_pres; /* present flag */ + ST_INT32 AP_invoke_id; /* AP invocation ID */ + ST_UCHAR AE_qual_pres; /* present flag */ + ST_INT32 AE_qual; /* AE qualifier */ + ST_UCHAR AE_inv_id_pres; /* present flag */ + ST_INT32 AE_invoke_id; /* AE invocation ID */ + PRES_ADDR pres_addr; /* Presentation address. */ +} ; +typedef struct dib_entry DIB_ENTRY; + +/************************************************************************/ +/* Channel-oriented control structure used to hold connection-specific */ +/* information */ +/************************************************************************/ + +#define MAX_TX_OUT 10 /* max. outstanding TX requests allowed */ + +struct chanctrl + { + DIB_ENTRY *loc_de; /* Pointer to Local DIB Entry */ + DIB_ENTRY *rem_de; /* Pointer to Remote DIB Entry */ + } ; +extern struct chanctrl *s_chan_ctrl; + +/************************************************************************/ +/* Structure to store incoming associate indication in case no listen */ +/* channel is available */ +/************************************************************************/ + +extern ST_INT num_loc_dib_entries; +extern ST_INT num_rem_dib_entries; +extern DIB_ENTRY *loc_dib_table; +extern DIB_ENTRY *rem_dib_table; + +/************************************************************************/ +/* Event handling variables for WIN32 & OS2. */ +/************************************************************************/ +#ifdef _WIN32 +extern ST_CHAR *MMSEventName; /* Pointer to the globally unique name of Event Object */ +extern HANDLE hMMSEvent; /* Handle to Event Object to be signalled when */ + /* s_serve () needs to be called */ +#endif /* _WIN32 */ +#ifdef __OS2__ +extern ST_CHAR *MMSEventName; /* Pointer to the globally unique name of Event Object */ +extern HEV hMMSEvent; /* Handle to Event Object to be signalled when */ + /* s_serve () needs to be called */ +#endif /* __OS2__ */ + +/************************************************************************/ +/* Prototypes */ +/************************************************************************/ +ST_VOID s_reset_ctrl (ST_INT); +ST_RET init_dirser (ST_VOID); +DIB_ENTRY *find_dib_entry (ST_CHAR *); +DIB_ENTRY *find_loc_dib_entry (ST_CHAR *ar_name); +DIB_ENTRY *find_rem_dib_entry (ST_CHAR *ar_name); + +ST_RET init_dirser_clt7 (ST_VOID); +DIB_ENTRY *find_dib_entry_clt7 (ST_CHAR *); +DIB_ENTRY *find_loc_dib_entry_clt7 (ST_CHAR *ar_name); + +#ifdef __cplusplus +} +#endif + +#endif /* !LEAN_A_H */ + + diff --git a/mmslib/inc/llcio.h b/mmslib/inc/llcio.h new file mode 100644 index 0000000..284435f --- /dev/null +++ b/mmslib/inc/llcio.h @@ -0,0 +1,337 @@ +#ifndef _LLCIO_H +#define _LLCIO_H + +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1994, All Rights Reserved */ +/* */ +/* MODULE NAME : llcio.h */ +/* PRODUCT(S) : osillc.sys */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 05/21/98 IKE 03 Converted to 7.0 Data types, removed */ +/* underscores so it can be compiled */ +/* 11/02/95 DSF 02 Enhanced to retrieve stats information */ +/* 12/08/94 DSF 01 Added SET_OFFSET */ +/* 03/10/94 DSF Initial Release */ +/************************************************************************/ + +/* +** User Functions +*/ + +int LlcOpen (char *Name); +int LlcClose (int fd); +int LlcWrite (int fd, char *buffer, int size); +int LlcRead (int fd, char *buffer, int size); +int LlcIoctl (int fd, void *pArg, int size); + + + + +/* +** IOCTL Management +*/ + +/* +** LLC Driver IOCTL requests +*/ + + +#define LLC_ADD_MULTI 1 +#define LLC_DEL_MULTI 2 +#define LLC_GET_HW_ADDR 3 +#define LLC_SET_FRAME_FILTER 4 +#define LLC_BIND_LSAP 5 +#define LLC_UNBIND_LSAP 6 +#define LLC_TRACE_ON 7 +#define LLC_TRACE_OFF 8 +#define LLC_DEBUG_ON 9 +#define LLC_DEBUG_OFF 10 +#define LLC_GET_PROTO_STATS 11 +#define LLC_GET_MAC_STATS 12 +#define LLC_ARM_SIGNAL 13 +#define LLC_ARM_POST 15 +#define LLC_GET_EMB_PHYS_ADDR 16 +#define LLC_SET_WRITE_CONFIRM_FLAG 17 +#define LLC_GET_DEBUG 18 +#define LLC_POST_BUFS 19 +#define LLC_SET_OFFSET 20 +#define LLC_GET_MAC_CHARS 21 +#define LLC_CLEAR_MAC_STATS 22 +#define LLC_CLEAR_PROTO_STATS 23 + + +/* +** LLC Driver IOCTL Errors +*/ + +#define LLCERR_NO_ERROR 0 +#define LLCERR_LSAP_BOUND 1 +#define LLCERR_LSAP_NOTBOUND 2 +#define LLCERR_ILLEGAL_OPERATION 3 +#define LLCERR_UNKNOWN_COMMAND 4 + +#define MAX_HWADDR_SIZE 12 + +typedef struct + { + int Opcode; + int Status; + } LLCGENERICIOCTL; + + +typedef struct + { + int Opcode; + int Status; + int cSize; + char Multicast[MAX_HWADDR_SIZE]; + } LLCADDMULTI; + +typedef struct + { + int Opcode; + int Status; + int cSize; + char Multicast[MAX_HWADDR_SIZE]; + } LLCDELMULTI; + +typedef struct + { + int Opcode; + int Status; + int cSize; + char HwAddr[MAX_HWADDR_SIZE]; + } LLCGETHWADDR; + +typedef struct + { + int Opcode; + int Status; + unsigned Lsap; + } LLCBINDLSAP; + +typedef struct + { + int Opcode; + int Status; + } LLCUNBINDLSAP; + +typedef struct + { + int Opcode; + int Status; + long EmbPhysAddr; + long EmbSize; + } LLCGETEMBPHYSADDR; + +typedef struct + { + int Opcode; + int Status; + char far *pfWriteConfirm; + } LLCSETWRITECONFIRMFLAG; + +typedef struct + { + int Opcode; + int Status; + int VxDID; + } LLCARMPOST; + +typedef struct + { + int Opcode; + int Status; + long offset; + } LLCSETOFFSET; + + +typedef struct tagUSERBUFDESC + { + struct tagUSERBUFDESC far *Next; + char far *pBuf; + int cBufSize; + int cDataSize; + } USERBUFDESC; + +typedef struct + { + int Opcode; + int Status; + USERBUFDESC far *pBufDesc; + } LLCPOSTBUFS; + +typedef struct + { + int Opcode; + int Status; + int MessageNum; + int Parm1; + int Parm2; + int Parm3; + } LLCGETDEBUG; + + +/* +** NDIS Protocol Driver Stats +*/ + +typedef struct + { + long nFramesReceived; + long nReceiveLookaheadReceived; + long nReceiveChainReceived; + long nFramesDiscardedNotRecognized; + long nFramesDiscardedOutOfResources; + long nTransferDataFailed; + long nTransmitChainIssued; + long nTransmitChainFailed; + long nFramesDelivered; /* DOS only */ + } LLCPROTOSTATS; + +typedef struct + { + int Opcode; + int Status; + LLCPROTOSTATS ProtoStats; + } LLCGETPROTOSTATS; + +typedef struct + { + int Opcode; + int Status; + } LLCCLEARPROTOSTATS; + +/* +** NDIS MAC Driver Characteristics +*/ + +typedef struct /* structure for MAC service specific info */ + { + int cSize; /* length of the characteristic table */ + char TypeName[16]; /* name of the MAC type (eg. 802.3...) */ + int cStationAddr; /* length of station address (MAC) */ + char PermMACAddr[16]; /* hardware default MAC address */ + char CurrMACAddr[16]; /* current MAC address in use */ + long FunctionAddr; /* current functional address of adapter */ + long reserved; /* pointer to multicast table */ + long LinkSpeed; /* link speed bits/sec */ + long fMAC; /* flags of capabilities */ + int MaxFrameSize; /* maximum MAC frame which can be sent */ + long TotalTxSpace; /* total transmit buffer space */ + int cTxBlockSize; /* size of allocated transmission blocks */ + long TotalRxSpace; /*total reception buffer space */ + int cRxBlockSize; /*reception buffer alloc blk size */ + char VendorID[3]; /*vendor IEEE ID */ + char VendorAdapterDesc; /*vendor adapter description */ + long reserved2; /*pointer to vendor serial number */ + int IRQLevel; /*interrupt level */ + int TransmitQueueDepth; + int nMaxDataBlocks; + } LLCMACCHARS; + +typedef struct + { + int Opcode; + int Status; + LLCMACCHARS MacChars; + } LLCGETMACCHARS; + +typedef struct + { + int cSize; /*size of table */ + long LastDiagTime; /*seconds since 1-1-1970 of diags */ + long MACStatus; /*mac status, this is a bit mask */ + /* Bits 0-2: 0 - Hardware Not Installed */ + /* 1 - Hardware Failed Pwrup Diags */ + /* 2 - Hardware Failed CNFG Prob */ + /* 3 - Hardware Faulted */ + /* 4 - Hardware Marginally Operat */ + /* 7 - Fully Operational */ + /* Bit 3: MAC BOUND */ + /* Bit 4: MAC OPEN */ + /* Bit 5: DIAG_IN_PROGRESS */ + int CurrPacketFilter; /* Bit 1: Directed and Multicast Group */ + /* Bit 2: Broadcast */ + /* Bit 3: Promiscuous */ + /* Bit 4: All Source Routing */ + long reserved; /*pointer to media specific stats */ + long LastClearTime; /*seconds since 1-1-1970 */ + long nOkFramesReceived; /*total frames received ok */ + long nCrcErrorFrames; /*total frames received with crc errors */ + long nBytesReceived; /*total number of bytes recieved */ + long nFramesDiscarded; /*total number of frames discarded */ + long nMulticastFramesReceived; /*total number of multicast frames rxd OK */ + long nBroadcastFramesReceived; /*total number of broadcast frames rxd OK */ + long reserved1; + long reserved2; + long reserved3; + long reserved4; + long reserved5; + long nFramesDiscardedHwError; /*total number of frames discarded due to HW err*/ + long nFramesTransmittedOk; /*total number of frames transmitted OK */ + long nBytesTransimittedOk; /*total number of bytes transmitted OK */ + long nMulticastFramesTransmitted; /*total number of multicast transmitted */ + long nBroadcastFramesTransmitted; /*total broadcast frame transmitted */ + long reserved6; + long reserved7; + long nFramesNotTransmittedTimeout; /*total frames not transmitted due to timeout */ + long nFramesNotTransmittedHwError; /*total frames not transmitted due to HW ERR */ + } LLCMACSTATS; + +typedef struct + { + int Opcode; + int Status; + LLCMACSTATS MacStats; + } LLCGETMACSTATS; + +typedef struct + { + int Opcode; + int Status; + } LLCCLEARMACSTATS; + +typedef union + { + LLCADDMULTI AddMulti; + LLCDELMULTI DelMulti; + LLCGETHWADDR GetHwAddr; + LLCBINDLSAP BindLsap; + LLCUNBINDLSAP UnBindLsap; + LLCGETEMBPHYSADDR GetEmbPhysAddr; + LLCSETWRITECONFIRMFLAG SetWriteConfirmFlag; + LLCPOSTBUFS PostBufs; + LLCARMPOST ArmPost; + LLCGETDEBUG GetDebug; + LLCSETOFFSET SetOffset; + LLCGETMACCHARS GetMacChars; + LLCGETMACSTATS GetMacStats; + LLCCLEARMACSTATS ClearMacStats; + LLCGETPROTOSTATS GetProtoStats; + LLCCLEARPROTOSTATS ClearProtoStats; + } LLCIOCTL; + + + +/* +** Function prototypes +*/ + +int llc_getstats (LLCMACCHARS *MacChars, + LLCMACSTATS *MacStats, + LLCPROTOSTATS *ProtoStats); +void llc_clearstats (); + + +#endif diff --git a/mmslib/inc/llcioctl.h b/mmslib/inc/llcioctl.h new file mode 100644 index 0000000..995fac0 --- /dev/null +++ b/mmslib/inc/llcioctl.h @@ -0,0 +1,121 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1996, All Rights Reserved */ +/* */ +/* MODULE NAME : llcioctl.c */ +/* PRODUCT(S) : OSI LLC NDIS 3.1 VxD */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 06/16/97 DSF 05 Added stats */ +/* 09/10/96 DSF 04 Added Length field to SET_MULTI */ +/* 09/05/96 DSF 03 Added SET_FILTER */ +/* 08/14/96 DSF 02 Added Transmit Completion object */ +/* 04/01/96 DSF 01 Initial Release */ +/* */ +/************************************************************************/ + +#define IOCTL_BASE 0x8100 +#define IOCTL_GET_PHYS_ADDR (IOCTL_BASE + 1) +#define IOCTL_SET_MULTI (IOCTL_BASE + 2) +#define IOCTL_ARM_EVENT (IOCTL_BASE + 3) +#define IOCTL_SEND (IOCTL_BASE + 4) +#define IOCTL_RECEIVE (IOCTL_BASE + 5) +#define IOCTL_ARM_COMPLETE (IOCTL_BASE + 6) +#define IOCTL_SET_FILTER (IOCTL_BASE + 7) +#define IOCTL_GET_STATS (IOCTL_BASE + 8) + + +#define PHYS_ADDR_LENGTH 6 +typedef struct _GET_PHYS_ADDR + { + UINT Status; + char PhysAddr[PHYS_ADDR_LENGTH]; + } GET_PHYS_ADDR; + + +typedef struct _SET_MULTI + { + UINT Status; + UINT Length; + char MultiAddr[2 * PHYS_ADDR_LENGTH]; + } SET_MULTI; + +typedef struct _SET_FILTER + { + UINT Status; + } SET_FILTER; + +typedef struct _ARM_EVENT + { + UINT Status; + HANDLE EventHandle; + } ARM_EVENT; + +typedef struct _ARM_COMPLETE + { + UINT Status; + HANDLE CompleteHandle; + } ARM_COMPLETE; + +#if !defined (GET_STATS_DEFINED) +typedef struct _MAC_STATS + { + ULONG HardwareStatus; + ULONG MaxLookahead; + ULONG MaxFrameSize; + ULONG LinkSpeed; + ULONG TransmitBufferSpace; + ULONG ReceiveBufferSpace; + ULONG TransmitBlockSize; + ULONG ReceiveBlockSize; + ULONG MaximumTotalSize; + ULONG MacOptions; + ULONG ConnectStatus; + ULONG XmitOk; + ULONG RcvOk; + ULONG XmitError; + ULONG RcvError; + ULONG RcvNoBuffer; + ULONG RcvCrcError; + ULONG TransmitQueueLength; + } MAC_STATS; + +typedef struct _PROTO_STATS + { + ULONG XmitOk; + ULONG RcvOk; + ULONG XmitError; + ULONG RcvError; + ULONG RcvUnknown; + ULONG XmitInd; + ULONG RcvInd; + ULONG AllocError; + } PROTO_STATS; + +typedef struct _USER_STATS + { + ULONG XmitOk; + ULONG RcvOk; + ULONG XmitError; + ULONG RcvError; + ULONG RcvUnknown; + } USER_STATS; + +typedef struct _GET_STATS + { + UINT Status; + MAC_STATS mac; + PROTO_STATS proto; + USER_STATS user; + } GET_STATS; + +#define GET_STATS_DEFINED +#endif diff --git a/mmslib/inc/mem_chk.h b/mmslib/inc/mem_chk.h new file mode 100644 index 0000000..ff264cf --- /dev/null +++ b/mmslib/inc/mem_chk.h @@ -0,0 +1,339 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986-2004 All Rights Reserved */ +/* */ +/* MODULE NAME : mem_chk.h */ +/* PRODUCT(S) : General Use */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the declarations of the dynamic memory */ +/* handling functions. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 02/06/04 EJV 16 Added dyn_mem_ptr_status2. */ +/* 04/14/03 DSF 15 Cleanup */ +/* 04/08/03 DSF 14 added m_mem_crt_debug */ +/* 04/04/03 DSF 13 new/delete checks for MFC */ +/* 08/20/01 JRB 12 chk_* functions chged to nd_chk_*. */ +/* chk_* names are now ALWAYS macros. */ +/* Make 4 sets of macros depending on whether */ +/* DEBUG_SISCO and/or SMEM_ENABLE defined. */ +/* Don't define SMEM_ENABLE, do from makefiles. */ +/* Remove logging backward compatibility stuff. */ +/* 08/06/01 RKR 11 S_THISFILE was removed, need a thisFileName */ +/* 03/19/01 JRB 10 Move SMEM context defs to "smem.h". */ +/* 01/25/01 DSF 09 new/delete checks */ +/* 11/01/00 MDE 08 Additional SMEM work */ +/* 01/21/00 MDE 07 Added SMEM support */ +/* 09/13/99 MDE 06 Added SD_CONST modifiers */ +/* 01/26/98 MDE 05 Added 'chk_strdup' */ +/* 12/08/98 MDE 04 Added 'ST_BOOLEAN m_auto_hw_log' */ +/* 10/08/98 MDE 03 Migrated to updated SLOG interface */ +/* 10/14/97 DSF 02 m_bad_ptr_val is now a pointer */ +/* 09/16/97 DSF 01 chk_debug_en is UINT */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef MEM_CHK_INCLUDED +#define MEM_CHK_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include + +#ifdef SMEM_ENABLE +#include "smem.h" +#endif + +/************************************************************************/ +/* MEM_CHK MACROS and FUNCTION PROTOTYPES */ +/* Memory allocation macros. There are 4 sets of macros depending on */ +/* DEBUG_SISCO and SMEM_ENABLE. Each set of macros calls a unique set */ +/* of functions. */ +/* The DEBUG macros use thisFileName (instead of __FILE__) to reduce */ +/* memory usage. Any file using these macros MUST contain the following */ +/* statement: */ +/* static char *thisFileName = __FILE__; */ +/************************************************************************/ + +#if defined(SMEM_ENABLE) + #if defined(DEBUG_SISCO) + #define M_MALLOC(ctx,x) x_m_malloc (ctx,x, thisFileName,__LINE__) + #define M_CALLOC(ctx,x,y) x_m_calloc (ctx,x,y,thisFileName,__LINE__) + #define M_REALLOC(ctx,x,y) x_m_realloc (ctx,x,y,thisFileName,__LINE__) + #define M_STRDUP(ctx,x) x_m_strdup (ctx,x, thisFileName,__LINE__) + #define M_FREE(ctx,x) x_m_free (ctx,x, thisFileName,__LINE__) + + #define chk_malloc(x) x_m_malloc (MSMEM_GEN,x, thisFileName,__LINE__) + #define chk_calloc(x,y) x_m_calloc (MSMEM_GEN,x,y,thisFileName,__LINE__) + #define chk_realloc(x,y) x_m_realloc (MSMEM_GEN,x,y,thisFileName,__LINE__) + #define chk_strdup(x) x_m_strdup (MSMEM_GEN,x, thisFileName,__LINE__) + #define chk_free(x) x_m_free (MSMEM_GEN,x, thisFileName,__LINE__) + + ST_VOID *x_m_malloc (SMEM_CONTEXT *smem_ctx, ST_UINT size, + SD_CONST ST_CHAR *SD_CONST file, + SD_CONST ST_INT line); + + ST_VOID *x_m_calloc (SMEM_CONTEXT *smem_ctx, ST_UINT num, + ST_UINT size, + SD_CONST ST_CHAR *SD_CONST file, + SD_CONST ST_INT line); + + ST_VOID *x_m_realloc (SMEM_CONTEXT *smem_ctx, ST_VOID *old, + ST_UINT size, + SD_CONST ST_CHAR *SD_CONST file, + SD_CONST ST_INT line); + ST_VOID x_m_free (SMEM_CONTEXT *smem_ctx, ST_VOID *ptr, + SD_CONST ST_CHAR *SD_CONST file, + SD_CONST ST_INT line); + ST_CHAR *x_m_strdup (SMEM_CONTEXT *smem_ctx, ST_CHAR *str, + SD_CONST ST_CHAR *SD_CONST file, + SD_CONST ST_INT line); + + #else /* !DEBUG_SISCO */ + + #define M_MALLOC(ctx,x) nd_m_malloc (ctx,x) + #define M_CALLOC(ctx,x,y) nd_m_calloc (ctx,x,y) + #define M_REALLOC(ctx,x,y) nd_m_realloc (ctx,x,y) + #define M_STRDUP(ctx,x) nd_m_strdup (ctx,x) + #define M_FREE(ctx,x) nd_m_free (ctx,x) + + #define chk_malloc(x) nd_m_malloc (MSMEM_GEN,x) + #define chk_calloc(x,y) nd_m_calloc (MSMEM_GEN,x,y) + #define chk_realloc(x,y) nd_m_realloc (MSMEM_GEN,x,y) + #define chk_strdup(x) nd_m_strdup (MSMEM_GEN,x) + #define chk_free(x) nd_m_free (MSMEM_GEN,x) + + ST_VOID *nd_m_malloc (SMEM_CONTEXT *smem_ctx, ST_UINT size); + ST_VOID *nd_m_calloc (SMEM_CONTEXT *smem_ctx, ST_UINT num, ST_UINT size); + ST_VOID *nd_m_realloc (SMEM_CONTEXT *smem_ctx, ST_VOID *old, ST_UINT size); + ST_VOID nd_m_free (SMEM_CONTEXT *smem_ctx, ST_VOID *ptr); + ST_CHAR *nd_m_strdup (SMEM_CONTEXT *smem_ctx, ST_CHAR *str); + + #endif /* !DEBUG_SISCO */ +#else /* !SMEM_ENABLE */ + #if defined(DEBUG_SISCO) + + #define M_MALLOC(ctx,x) x_chk_malloc (x, thisFileName,__LINE__) + #define M_CALLOC(ctx,x,y) x_chk_calloc (x,y,thisFileName,__LINE__) + #define M_REALLOC(ctx,x,y) x_chk_realloc (x,y,thisFileName,__LINE__) + #define M_STRDUP(ctx,x) x_chk_strdup (x, thisFileName,__LINE__) + #define M_FREE(ctx,x) x_chk_free (x, thisFileName,__LINE__) + + #define chk_malloc(x) x_chk_malloc (x, thisFileName,__LINE__) + #define chk_calloc(x,y) x_chk_calloc (x,y,thisFileName,__LINE__) + #define chk_realloc(x,y) x_chk_realloc (x,y,thisFileName,__LINE__) + #define chk_strdup(x) x_chk_strdup (x, thisFileName,__LINE__) + #define chk_free(x) x_chk_free (x, thisFileName,__LINE__) + + ST_VOID *x_chk_realloc (ST_VOID *old, + ST_UINT size, + SD_CONST ST_CHAR *SD_CONST file, + SD_CONST ST_INT line); + ST_VOID *x_chk_malloc (ST_UINT size, + SD_CONST ST_CHAR *SD_CONST file, + SD_CONST ST_INT line); + ST_VOID *x_chk_calloc (ST_UINT num, + ST_UINT size, + SD_CONST ST_CHAR *SD_CONST file, + SD_CONST ST_INT line); + ST_CHAR *x_chk_strdup (ST_CHAR *str, + SD_CONST ST_CHAR *SD_CONST file, + SD_CONST ST_INT line); + ST_VOID x_chk_free (ST_VOID *old, + SD_CONST ST_CHAR *SD_CONST file, + SD_CONST ST_INT line); + + #else /* !DEBUG_SISCO */ + + #define M_MALLOC(ctx,x) nd_chk_malloc (x) + #define M_CALLOC(ctx,x,y) nd_chk_calloc (x,y) + #define M_REALLOC(ctx,x,y) nd_chk_realloc (x,y) + #define M_STRDUP(ctx,x) nd_chk_strdup (x) + #define M_FREE(ctx,x) nd_chk_free (x) + + #define chk_malloc(x) nd_chk_malloc (x) + #define chk_calloc(x,y) nd_chk_calloc (x,y) + #define chk_realloc(x,y) nd_chk_realloc (x,y) + #define chk_strdup(x) nd_chk_strdup (x) + #define chk_free(x) nd_chk_free (x) + + ST_VOID *nd_chk_malloc (ST_UINT size); + ST_VOID *nd_chk_calloc (ST_UINT num, ST_UINT size); + ST_VOID *nd_chk_realloc (ST_VOID *old, ST_UINT size); + ST_CHAR *nd_chk_strdup (ST_CHAR *str); + ST_VOID nd_chk_free (ST_VOID *ptr); + + #endif /* !DEBUG_SISCO */ +#endif /* !SMEM_ENABLE */ + + +/************************************************************************/ +/* chk_debug_en bit assignments */ +/* These are the defines to be used by all new applications */ +#define MEM_LOG_ERR 0x0001 +#define MEM_LOG_CALLOC 0x0002 +#define MEM_LOG_MALLOC 0x0004 +#define MEM_LOG_REALLOC 0x0008 +#define MEM_LOG_FREE 0x0010 + +extern ST_UINT chk_debug_en; + +/************************************************************************/ +/* Replacement Memory allocation functions. */ +/************************************************************************/ + +ST_VOID init_mem_chk (ST_VOID); +ST_VOID dyn_mem_ptr_status (ST_VOID); +ST_UINT dyn_mem_ptr_status2 (ST_VOID *marker_ptr); +ST_VOID dyn_mem_ptr_statistics (ST_BOOLEAN log_to_screen); +ST_VOID check_mem_list (ST_VOID); +ST_RET chk_alloc_ptr (ST_VOID *ptr); + + +/************************************************************************/ +/* fatal error service function pointers, used for unrecoverable errors */ +/************************************************************************/ +#define MEM_ERR_EXIT_CODE 2001 + +extern ST_VOID *(*m_memerr_fun)(ST_UINT size); /* for malloc */ +extern ST_VOID *(*c_memerr_fun)(ST_UINT num, ST_UINT size); /* for calloc */ +extern ST_VOID *(*r_memerr_fun)(ST_VOID *old, ST_UINT size); /* for realloc*/ + +/************************************************************************/ +/* statistics */ +/************************************************************************/ +extern ST_UINT32 chk_curr_mem_count; +extern ST_UINT32 chk_max_dyn_mem_ptrs; +extern ST_UINT32 chk_max_mem_allocated; +extern ST_UINT32 chk_curr_mem_size; + + +/************************************************************************/ +/************************************************************************/ +/* HEAP checking functions and macros */ + +/* These defines are used to control the level or print in chk_hp */ +#define DEBUG_HEAP_SUM 0x0001 +#define DEBUG_HEAP_ENTRY 0x0002 +#define DEBUG_HEAP_ALL 0x0003 + +#ifdef HEAP_CHECK_ENABLE +#define HEAP_CHECK() chk_hp (0, (ST_CHAR *) __FILE__, __LINE__) +#else +#define HEAP_CHECK() +#endif + +ST_RET msoft_heap_check (ST_INT16); +ST_RET chk_hp (ST_INT16 prt_mask,ST_CHAR *file,ST_INT line); + +/************************************************************************/ + +extern ST_VOID *m_bad_ptr_val; + +/* This variable used to enable MSOFT heap check calls on every alloc */ +/* and free call. Also sets the unused heap memory to 0x55's */ +extern ST_BOOLEAN m_heap_check_enable; + +/* This variable used to enable list validation and overwrite checking */ +/* on every alloc and free call. */ +extern ST_BOOLEAN m_check_list_enable; + +/* Set this = SD_FALSE to speed up the debug version. When SD_TRUE, it */ +/* enables searching the memory list for the element before accessing */ +/* the memory during chk_realloc and chk_free calls */ +extern ST_BOOLEAN m_find_node_enable; + +/* This variable will cause chk_realloc to not realloc when the new */ +/* size is smaller than the old size */ +extern ST_BOOLEAN m_no_realloc_smaller; + +/* Dump memory table whenever high water mark is advanced */ +extern ST_BOOLEAN m_auto_hw_log; + +extern ST_CHAR *m_pad_string; +extern ST_INT m_num_pad_bytes; + +extern ST_BOOLEAN m_fill_en; +extern ST_UCHAR m_fill_byte; + +extern ST_BOOLEAN m_mem_debug; + +extern ST_BOOLEAN m_mem_crt_debug; + +/* This function pointer can be set to select a function to be called */ +/* in case of memory error. */ + +extern ST_VOID (*mem_chk_err)(ST_VOID); + +/* Read only */ +extern ST_UINT m_mem_overhead; + + +/************************************************************************/ +/************************************************************************/ +#ifdef __cplusplus +} +#endif + + + +#ifdef __cplusplus +/************************************************************************/ +/* deal with new and delete */ +/************************************************************************/ +#if defined (DEBUG_SISCO) && defined (DEBUG_NEW_SISCO) + +#include + +void * operator new(size_t nSize) throw (std::bad_alloc); +void * operator new(size_t nSize, const char *fileName, const int lineNum) throw (std::bad_alloc); +void * operator new(size_t nSize, const std::nothrow_t&) throw (); +void * operator new[](size_t nSize) throw (std::bad_alloc); +void * operator new[](size_t nSize, const char *fileName, const int lineNum) throw (std::bad_alloc); +void * operator new[](size_t nSize, const std::nothrow_t&) throw (); +void operator delete(void *p) throw (); +void operator delete(void *p, const char *fileName, const int lineNum) throw (); +void operator delete[](void *p) throw (); +void operator delete[](void *p, const char *fileName, const int lineNum) throw (); + +#ifndef MEM_CHK +#define new new(thisFileName, __LINE__) +#endif + +#endif + +#if defined (DEBUG_SISCO) && defined (DEBUG_NEW_MFC) + +#include + +#if !defined (__AFX_H__) + +#include + +#define THIS_FILE __FILE__ + +void* __cdecl operator new(size_t nSize, LPCSTR lpszFileName, int nLine); +#define DEBUG_NEW new(THIS_FILE, __LINE__) +void __cdecl operator delete(void* p, LPCSTR lpszFileName, int nLine); + +void * __cdecl operator new[](size_t); +void* __cdecl operator new[](size_t nSize, LPCSTR lpszFileName, int nLine); +void __cdecl operator delete[](void* p, LPCSTR lpszFileName, int nLine); +void __cdecl operator delete[](void *); + +#endif /* AFX */ + +#endif /* DEBUG_NEW_MFC */ + +#endif /* __cplusplus */ + + +#endif /* mem_chk.h already included */ diff --git a/mmslib/inc/memlog.h b/mmslib/inc/memlog.h new file mode 100644 index 0000000..ecdb3a3 --- /dev/null +++ b/mmslib/inc/memlog.h @@ -0,0 +1,201 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986, 1987, 1988, 1989, 1990, All Rights Reserved */ +/* */ +/* MODULE NAME : memlog.h */ +/* PRODUCT(S) : General Use */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the declarations of the dynamic memory */ +/* handling functions. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/13/02 JRB 08 MEMLOG_PAUSE*, MEMLOG_LF macros do nothing. */ +/* 09/13/99 MDE 07 Added SD_CONST modifiers */ +/* 10/08/98 MDE 06 Migrated to updated SLOG interface */ +/* 04/17/96 JRB 05 Del #define THISFILE thisFileName. */ +/* 04/17/96 JRB 04 Del mem_sLogCtrl. Use new sLogCtrl in slog.c */ +/* 04/01/94 MDE 03 Removed THISFILE defines, changed THISFILE */ +/* to thisFileName */ +/* 03/29/94 DSF 02 Corrected definition for THISFILE */ +/* 12/10/93 DSF 01 Added MEMLOG_CHERR macro */ +/************************************************************************/ + +#ifndef MEMLOG_INCLUDED +#define MEMLOG_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "slog.h" + +/************************************************************************/ +/************************************************************************/ + +extern SD_CONST ST_CHAR *SD_CONST _mem_log_err_logstr; +extern SD_CONST ST_CHAR *SD_CONST _mem_log_calloc_logstr; +extern SD_CONST ST_CHAR *SD_CONST _mem_log_malloc_logstr; +extern SD_CONST ST_CHAR *SD_CONST _mem_log_realloc_logstr; +extern SD_CONST ST_CHAR *SD_CONST _mem_log_free_logstr; +extern SD_CONST ST_CHAR *SD_CONST _mem_log_nerr_logstr; +extern SD_CONST ST_CHAR *SD_CONST _mem_log_dump_logstr; + + +#define MEMLOG_LF() + +#define MEMLOG_CALLSTACK(a) slogCallStack (sLogCtrl,a); + +#define MEMLOG_PAUSE(msg) +#define MEMLOG_PAUSEERR(msg) + +#define MEMLOG_MALLOC2(a,b,c) {\ + if (chk_debug_en & MEM_LOG_MALLOC)\ + _slog (sLogCtrl,_mem_log_malloc_logstr,\ + thisFileName,__LINE__,a,b,c);\ + } +#define MEMLOG_CMALLOC1(a,b) {\ + if (chk_debug_en & MEM_LOG_MALLOC)\ + _slogc (sLogCtrl,a,b);\ + } +#define MEMLOG_CMALLOC2(a,b,c) {\ + if (chk_debug_en & MEM_LOG_MALLOC)\ + _slogc (sLogCtrl,a,b,c);\ + } +#define MEMLOG_CMALLOC3(a,b,c,d) {\ + if (chk_debug_en & MEM_LOG_MALLOC)\ + _slogc (sLogCtrl,a,b,c,d);\ + } + +#define MEMLOG_CALLOC3(a,b,c,d) {\ + if (chk_debug_en & MEM_LOG_CALLOC)\ + _slog (sLogCtrl,_mem_log_calloc_logstr,\ + thisFileName,__LINE__,a,b,c,d);\ + } +#define MEMLOG_CCALLOC1(a,b) {\ + if (chk_debug_en & MEM_LOG_CALLOC)\ + _slogc (sLogCtrl,a,b);\ + } +#define MEMLOG_CCALLOC2(a,b,c) {\ + if (chk_debug_en & MEM_LOG_CALLOC)\ + _slogc (sLogCtrl,a,b,c);\ + } +#define MEMLOG_CCALLOC3(a,b,c,d) {\ + if (chk_debug_en & MEM_LOG_CALLOC)\ + _slogc (sLogCtrl,a,b,c,d);\ + } +#define MEMLOG_REALLOC3(a,b,c,d) {\ + if (chk_debug_en & MEM_LOG_REALLOC)\ + _slog (sLogCtrl,_mem_log_realloc_logstr,\ + thisFileName,__LINE__,a,b,c,d);\ + } +#define MEMLOG_CREALLOC1(a,b) {\ + if (chk_debug_en & MEM_LOG_REALLOC)\ + _slogc (sLogCtrl,a,b);\ + } +#define MEMLOG_CREALLOC2(a,b,c) {\ + if (chk_debug_en & MEM_LOG_REALLOC)\ + _slogc (sLogCtrl,a,b,c);\ + } +#define MEMLOG_CREALLOC3(a,b,c,d) {\ + if (chk_debug_en & MEM_LOG_REALLOC)\ + _slogc (sLogCtrl,a,b,c,d);\ + } + +#define MEMLOG_FREE1(a,b) {\ + if (chk_debug_en & MEM_LOG_FREE)\ + _slog (sLogCtrl,_mem_log_free_logstr,\ + thisFileName,__LINE__,a,b);\ + } +#define MEMLOG_CFREE2(a,b,c) {\ + if (chk_debug_en & MEM_LOG_FREE)\ + _slogc (sLogCtrl,a,b,c);\ + } +#define MEMLOG_CFREE3(a,b,c,d) {\ + if (chk_debug_en & MEM_LOG_FREE)\ + _slogc (sLogCtrl,a,b,c,d);\ + } + +#define MEMLOG_ERR0(a) {\ + if (chk_debug_en & MEM_LOG_ERR)\ + _slog (sLogCtrl,_mem_log_err_logstr,\ + thisFileName,__LINE__,a);\ + } +#define MEMLOG_ERR1(a,b) {\ + if (chk_debug_en & MEM_LOG_ERR)\ + _slog (sLogCtrl,_mem_log_err_logstr,\ + thisFileName,__LINE__,a,b);\ + } +#define MEMLOG_ERR2(a,b,c) {\ + if (chk_debug_en & MEM_LOG_ERR)\ + _slog (sLogCtrl,_mem_log_err_logstr,\ + thisFileName,__LINE__,a,b,c);\ + } +#define MEMLOG_CERR0(a) {\ + if (chk_debug_en & MEM_LOG_ERR)\ + _slogc (sLogCtrl,a);\ + } +#define MEMLOG_CERR1(a,b) {\ + if (chk_debug_en & MEM_LOG_ERR)\ + _slogc (sLogCtrl,a,b);\ + } +#define MEMLOG_CERR2(a,b,c) {\ + if (chk_debug_en & MEM_LOG_ERR)\ + _slogc (sLogCtrl,a,b,c);\ + } +#define MEMLOG_CERR3(a,b,c,d) {\ + if (chk_debug_en & MEM_LOG_ERR)\ + _slogc (sLogCtrl,a,b,c,d);\ + } +#define MEMLOG_CERR5(a,b,c,d,e,f) {\ + if (chk_debug_en & MEM_LOG_ERR)\ + _slogc (sLogCtrl,a,b,c,d,e,f);\ + } +#define MEMLOG_CERR6(a,b,c,d,e,f,g) {\ + if (chk_debug_en & MEM_LOG_ERR)\ + _slogc (sLogCtrl,a,b,c,d,e,f,g);\ + } +#define MEMLOG_CHERR(a,b) {\ + if (chk_debug_en & MEM_LOG_ERR)\ + _slogHex (sLogCtrl,a,b);\ + } + +#define MEMLOG_DUMP0(a) {\ + _slog (sLogCtrl,_mem_log_dump_logstr,\ + thisFileName,__LINE__,a);\ + } +#define MEMLOG_DUMP1(a,b) {\ + _slog (sLogCtrl,_mem_log_dump_logstr,\ + thisFileName,__LINE__,a,b);\ + } +#define MEMLOG_CDUMP4(a,b,c,d,e) {\ + _slogc (sLogCtrl,a,b,c,d,e);\ + } +#define MEMLOG_CDUMP5(a,b,c,d,e,f) {\ + _slogc (sLogCtrl,a,b,c,d,e,f);\ + } +#define MEMLOG_CDUMP0(a) {\ + _slogc (sLogCtrl,a);\ + } +#define MEMLOG_CDUMP1(a,b) {\ + _slogc (sLogCtrl,a,b);\ + } +#define MEMLOG_CDUMP2(a,b,c) {\ + _slogc (sLogCtrl,a,b,c);\ + } +#define MEMLOG_CDUMP3(a,b,c,d) {\ + _slogc (sLogCtrl,a,b,c,d);\ + } + + +#ifdef __cplusplus +} +#endif + + +#endif /* memlog.h already included */ + diff --git a/mmslib/inc/mloguser.h b/mmslib/inc/mloguser.h new file mode 100644 index 0000000..eb55381 --- /dev/null +++ b/mmslib/inc/mloguser.h @@ -0,0 +1,297 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2008 All Rights Reserved */ +/* */ +/* MODULE NAME : mloguser.h */ +/* PRODUCT(S) : MMS-EASE 250-001 */ +/* */ +/* MODULE DESCRIPTION : */ +/* ANSI Protytped Logging Functions for MMS-EASE user code. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/01/08 JRB 16 Del commented code. */ +/* 10/30/06 JRB 15 Add mlog_arb_log_ctrl extern. */ +/* 03/23/05 JRB 14 Del unused m_log_mllp* & m_log_llp* protos. */ +/* 06/10/04 EJV 13 Removed suicacse.h - lber.h conflict on AIX. */ +/* 04/05/02 MDE 12 Cleaned up MMS Lite use of MLOG */ +/* 11/04/98 DSF 11 Added m_get_mms_rej_text () */ +/* 08/13/98 MDE 10 Added m_log_tdl */ +/* 07/16/98 MDE 09 Added ml_log_dec_rslt declaration */ +/* 06/15/98 MDE 08 Changes to allow compile under C++ */ +/* 03/20/98 JRB 07 Del mmsop_en.h. Only user code needs it now. */ +/* 09/29/97 MDE 06 Don't need mlog_en.h */ +/* 08/15/97 MDE 05 BTOD handling changes */ +/* 08/14/97 MDE 04 Removed unused 'm_log_info_print' */ +/* 08/04/97 MDE 03 Added 'no log' function declarations */ +/* 08/04/97 MDE 02 Changes towards breakup */ +/* 06/09/97 MDE 01 Removed several mmv_v???.h includes */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef MLOGUSER_INCLUDED +#define MLOGUSER_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "mmslog.h" +#include "mms_pcon.h" +#include "mms_pdom.h" +#include "mms_pevn.h" +#include "mms_pfil.h" +#include "mms_pjou.h" +#include "mms_pocs.h" +#include "mms_pprg.h" +#include "mms_psem.h" +#include "mms_pvar.h" +#include "mms_pvmd.h" +#include "mms_vvar.h" +#if defined(MMS_LITE) +#include "mmsintr2.h" +#endif +#include "sx_arb.h" /* needed for SXD_ARB_DATA_CTRL */ + + +/************************************************************************/ +/************************************************************************/ + +extern ST_VOID (*m_req_log_fun_tbl [MAX_MMSOP_DIS+1]) (ST_VOID *v); +extern ST_VOID (*m_resp_log_fun_tbl [MAX_MMSOP_DIS+1]) (ST_VOID *v); + +/* Request / Response Data Logging Functions */ +ST_VOID m_log_ackevnot_req (ACKEVNOT_REQ_INFO *info); +ST_VOID m_log_altecm_req (ALTECM_REQ_INFO *info); +ST_VOID m_log_altee_resp (ALTEE_RESP_INFO *info); +ST_VOID m_log_altee_req (ALTEE_REQ_INFO *info); +ST_VOID m_log_crepi_req (CREPI_REQ_INFO *info); +ST_VOID m_log_cancel_req (ST_VOID); +ST_VOID m_log_cancel_resp (ST_VOID); +ST_VOID m_log_defea_req (DEFEA_REQ_INFO *info); +ST_VOID m_log_defec_req (DEFEC_REQ_INFO *info); +ST_VOID m_log_defee_req (DEFEE_REQ_INFO *info); +ST_VOID m_log_defscat_req (DEFSCAT_REQ_INFO *info); +ST_VOID m_log_defsem_req (DEFSEM_REQ_INFO *info); +ST_VOID m_log_deftype_req (DEFTYPE_REQ_INFO *info); +ST_VOID m_log_defvar_req (DEFVAR_REQ_INFO *info); +ST_VOID m_log_defvlist_req (DEFVLIST_REQ_INFO *info); +ST_VOID m_log_deldom_req (DELDOM_REQ_INFO *info); +ST_VOID m_log_delea_resp (DELEA_RESP_INFO *info); +ST_VOID m_log_delea_req (DELEA_REQ_INFO *info); +ST_VOID m_log_delec_req (DELEC_REQ_INFO *info); +ST_VOID m_log_delec_resp (DELEC_RESP_INFO *info); +ST_VOID m_log_delee_resp (DELEE_RESP_INFO *info); +ST_VOID m_log_delee_req (DELEE_REQ_INFO *info); +ST_VOID m_log_delpi_req (DELPI_REQ_INFO *info); +ST_VOID m_log_delsem_req (DELSEM_REQ_INFO *info); +ST_VOID m_log_deltype_resp (DELTYPE_RESP_INFO *info); +ST_VOID m_log_deltype_req (DELTYPE_REQ_INFO *info); +ST_VOID m_log_delvar_resp (DELVAR_RESP_INFO *info); +ST_VOID m_log_delvar_req (DELVAR_REQ_INFO *info); +ST_VOID m_log_delvlist_resp (DELVLIST_RESP_INFO *info); +ST_VOID m_log_delvlist_req (DELVLIST_REQ_INFO *info); +ST_VOID m_log_download_resp (DOWNLOAD_RESP_INFO *info); +ST_VOID m_log_download_req (DOWNLOAD_REQ_INFO *info); +ST_VOID m_log_evnot_req (EVNOT_REQ_INFO *info); +ST_VOID m_log_fclose_req (FCLOSE_REQ_INFO *info); +ST_VOID m_log_fdelete_req (FDELETE_REQ_INFO *info); +ST_VOID m_log_fdir_resp (FDIR_RESP_INFO *info); +ST_VOID m_log_fdir_req (FDIR_REQ_INFO *info); +ST_VOID m_log_fopen_resp (FOPEN_RESP_INFO *info); +ST_VOID m_log_fopen_req (FOPEN_REQ_INFO *info); +ST_VOID m_log_fread_resp (FREAD_RESP_INFO *info); +ST_VOID m_log_fread_req (FREAD_REQ_INFO *info); +ST_VOID m_log_frename_req (FRENAME_REQ_INFO *info); +ST_VOID m_log_getaes_resp (GETAES_RESP_INFO *info); +ST_VOID m_log_getaes_req (GETAES_REQ_INFO *info); +ST_VOID m_log_getas_resp (GETAS_RESP_INFO *info); +ST_VOID m_log_getas_req (GETAS_REQ_INFO *info); +ST_VOID m_log_getcl_resp (GETCL_RESP_INFO *info); +ST_VOID m_log_getcl_req (GETCL_REQ_INFO *info); +ST_VOID m_log_getdom_resp (GETDOM_RESP_INFO *info); +ST_VOID m_log_getdom_req (GETDOM_REQ_INFO *info); +ST_VOID m_log_geteaa_resp (GETEAA_RESP_INFO *info); +ST_VOID m_log_geteaa_req (GETEAA_REQ_INFO *info); +ST_VOID m_log_geteca_resp (GETECA_RESP_INFO *info); +ST_VOID m_log_geteca_req (GETECA_REQ_INFO *info); +ST_VOID m_log_geteea_resp (GETEEA_RESP_INFO *info); +ST_VOID m_log_geteea_req (GETEEA_REQ_INFO *info); +ST_VOID m_log_getpi_resp (GETPI_RESP_INFO *info); +ST_VOID m_log_getpi_req (GETPI_REQ_INFO *info); +ST_VOID m_log_getscat_resp (GETSCAT_RESP_INFO *info); +ST_VOID m_log_getscat_req (GETSCAT_REQ_INFO *info); +ST_VOID m_log_gettype_resp (GETTYPE_RESP_INFO *info); +ST_VOID m_log_gettype_req (GETTYPE_REQ_INFO *info); +ST_VOID m_log_getvar_resp (GETVAR_RESP_INFO *info); +ST_VOID m_log_getvar_req (GETVAR_REQ_INFO *info); +ST_VOID m_log_getvlist_resp (GETVLIST_RESP_INFO *info); +ST_VOID m_log_getvlist_req (GETVLIST_REQ_INFO *info); +ST_VOID m_log_ident_resp (IDENT_RESP_INFO *info); +ST_VOID m_log_info_req (INFO_REQ_INFO *info); +ST_VOID m_log_initdown_req (INITDOWN_REQ_INFO *info); +ST_VOID m_log_initupl_resp (INITUPL_RESP_INFO *info); +ST_VOID m_log_initupl_req (INITUPL_REQ_INFO *info); +ST_VOID m_log_init_info (INIT_INFO *info); +ST_VOID m_log_input_resp (INPUT_RESP_INFO *info); +ST_VOID m_log_input_req (INPUT_REQ_INFO *info); +ST_VOID m_log_jcreate_req (JCREATE_REQ_INFO *info); +ST_VOID m_log_jdelete_req (JDELETE_REQ_INFO *info); +ST_VOID m_log_jinit_resp (JINIT_RESP_INFO *info); +ST_VOID m_log_jinit_req (JINIT_REQ_INFO *info); +ST_VOID m_log_jread_resp (JREAD_RESP_INFO *info); +ST_VOID m_log_jread_req (JREAD_REQ_INFO *info); +ST_VOID m_log_jstat_resp (JSTAT_RESP_INFO *info); +ST_VOID m_log_jstat_req (JSTAT_REQ_INFO *info); +ST_VOID m_log_jwrite_req (JWRITE_REQ_INFO *info); +ST_VOID m_log_kill_req (KILL_REQ_INFO *info); +ST_VOID m_log_loaddom_req (LOADDOM_REQ_INFO *info); +ST_VOID m_log_namelist_resp (NAMELIST_RESP_INFO *info); +ST_VOID m_log_namelist_req (NAMELIST_REQ_INFO *info); +ST_VOID m_log_obtfile_req (OBTFILE_REQ_INFO *info); +ST_VOID m_log_output_req (OUTPUT_REQ_INFO *info); +ST_VOID m_log_rddwn_req (RDDWN_REQ_INFO *info); +ST_VOID m_log_rdupl_req (RDUPL_REQ_INFO *info); +ST_VOID m_log_read_resp (READ_RESP_INFO *info); +ST_VOID m_log_read_req (READ_REQ_INFO *info); +ST_VOID m_log_relctrl_req (RELCTRL_REQ_INFO *info); +ST_VOID m_log_rename_req (RENAME_REQ_INFO *info); +ST_VOID m_log_repeas_resp (REPEAS_RESP_INFO *info); +ST_VOID m_log_repeas_req (REPEAS_REQ_INFO *info); +ST_VOID m_log_repecs_resp (REPECS_RESP_INFO *info); +ST_VOID m_log_repecs_req (REPECS_REQ_INFO *info); +ST_VOID m_log_repees_resp (REPEES_RESP_INFO *info); +ST_VOID m_log_repees_req (REPEES_REQ_INFO *info); +ST_VOID m_log_reset_req (RESET_REQ_INFO *info); +ST_VOID m_log_resume_req (RESUME_REQ_INFO *info); +ST_VOID m_log_rsentry_resp (RSENTRY_RESP_INFO *info); +ST_VOID m_log_rsentry_req (RSENTRY_REQ_INFO *info); +ST_VOID m_log_rspool_resp (RSPOOL_RESP_INFO *info); +ST_VOID m_log_rspool_req (RSPOOL_REQ_INFO *info); +ST_VOID m_log_rsstat_resp (RSSTAT_RESP_INFO *info); +ST_VOID m_log_rsstat_req (RSSTAT_REQ_INFO *info); +ST_VOID m_log_start_req (START_REQ_INFO *info); +ST_VOID m_log_status_resp (STATUS_RESP_INFO *info); +ST_VOID m_log_status_req (STATUS_REQ_INFO *info); +ST_VOID m_log_stop_req (STOP_REQ_INFO *info); +ST_VOID m_log_storedom_req (STOREDOM_REQ_INFO *info); +ST_VOID m_log_takectrl_resp (TAKECTRL_RESP_INFO *info); +ST_VOID m_log_takectrl_req (TAKECTRL_REQ_INFO *info); +ST_VOID m_log_termdown_req (TERMDOWN_REQ_INFO *info); +ST_VOID m_log_termupl_req (TERMUPL_REQ_INFO *info); +ST_VOID m_log_trige_req (TRIGE_REQ_INFO *info); +ST_VOID m_log_upload_resp (UPLOAD_RESP_INFO *info); +ST_VOID m_log_upload_req (UPLOAD_REQ_INFO *info); +ST_VOID m_log_ustatus_req (USTATUS_REQ_INFO *info); +ST_VOID m_log_write_resp (WRITE_RESP_INFO *info); +ST_VOID m_log_write_req (WRITE_REQ_INFO *info); + +/* common component logging */ +ST_VOID m_log_app_ref (APP_REF *info); +ST_VOID m_log_asn1_app_ref (ST_UCHAR *buf_ptr, ST_INT buf_len); +ST_VOID m_log_modifier (MODIFIER *info); +ST_VOID m_log_tdl (ST_UCHAR *asn1, ST_INT asn1_len); + +ST_VOID m_log_error_info (ERR_INFO *err_ptr); +#if !defined(MMS_LITE) +ST_VOID m_log_err_info (MMSREQ_PEND *req_ptr); +#endif + +ST_VOID m_no_log_resp (ST_VOID *resp); +ST_VOID m_no_log_req (ST_VOID *req); + +/************************************************************************/ + +ST_VOID m_get_mms_err_text (ST_INT eclass, ST_INT code, + ST_CHAR *dest, ST_INT dest_len); + +ST_VOID m_get_mms_rej_text (ST_INT rclass, ST_INT code, + ST_CHAR *dest, ST_INT dest_len); + +ST_VOID m_log_reject_info (REJECT_RESP_INFO *rej_ptr); + +ST_VOID m_log_evtime (EVENT_TIME *info); +ST_VOID m_log_evt_tod (MMS_BTOD *info); +ST_VOID m_log_external (EXTERN_INFO *info); + +ST_VOID m_log_objname (OBJECT_NAME *info); +ST_VOID m_log_pi_state (ST_INT state); +ST_VOID m_log_address (VAR_ACC_ADDR *info); +ST_VOID m_log_var_list (VARIABLE_LIST *vl_ptr, ST_INT num_of_vars); +ST_VOID m_log_var_spec (VARIABLE_SPEC *info); +ST_VOID m_log_vaspec (VAR_ACC_SPEC *info); +ST_VOID m_log_data (ST_INT asn1_data_len, ST_UCHAR *asn1_data); + +/************************************************************************/ +/************************************************************************/ +#if defined(MMS_LITE) +/************************************************************************/ + +ST_RET ml_log_dec_rslt (MMSDEC_INFO *rslt); + +ST_VOID _ml_log_req_info (ST_INT invokeId, ST_INT op, ST_VOID *info); +ST_VOID _ml_log_ind_info (ST_INT invokeId, ST_INT op, ST_VOID *info); +ST_VOID _ml_log_resp_info (ST_INT invokeId, ST_INT op, ST_VOID *info); +ST_VOID _ml_log_conf_info (ST_INT invokeId, ST_INT op, ST_VOID *info); +ST_VOID _ml_log_unsol_req_info (ST_INT op, ST_VOID *info); +ST_VOID _ml_log_unsol_ind_info (ST_INT op, ST_VOID *info); +ST_VOID _ml_log_error_resp (ST_INT invokeId, ST_VOID *info); +ST_VOID _ml_log_error_conf (ST_INT invokeId, ST_VOID *info); +ST_VOID _ml_log_reject_send (ST_VOID *info); +ST_VOID _ml_log_reject_recv (ST_VOID *info); + + +/* MLOG integration */ +extern ST_VOID (*ml_log_req_info_fun) (ST_INT invokeId, ST_INT op, ST_VOID *info); +extern ST_VOID (*ml_log_ind_info_fun) (ST_INT invokeId, ST_INT op, ST_VOID *info); + +extern ST_VOID (*ml_log_resp_info_fun) (ST_INT invokeId, ST_INT op, ST_VOID *info); +extern ST_VOID (*ml_log_conf_info_fun) (ST_INT invokeId, ST_INT op, ST_VOID *info); + +extern ST_VOID (*ml_log_unsol_req_info_fun) (ST_INT op, ST_VOID *info); +extern ST_VOID (*ml_log_unsol_ind_info_fun) (ST_INT op, ST_VOID *info); + +extern ST_VOID (*ml_log_error_conf_fun) (ST_INT invokeId, ST_VOID *info); +extern ST_VOID (*ml_log_error_resp_fun) (ST_INT invokeId, ST_VOID *info); + +extern ST_VOID (*ml_log_reject_send_fun) (ST_VOID *info); +extern ST_VOID (*ml_log_reject_recv_fun) (ST_VOID *info); + +ST_VOID ml_mlog_install (ST_VOID); + +/************************************************************************/ +#endif /* MMS_LITE */ +/************************************************************************/ + +/************************************************************************/ +#if !defined(MMS_LITE) +/************************************************************************/ +ST_VOID m_log_ureq_info (ST_INT chan, ST_INT op, ST_VOID *info); +ST_VOID m_log_req_info (MMSREQ_PEND *req, ST_VOID *info); +ST_VOID m_log_resp_info (MMSREQ_IND *ind, ST_VOID *info); +ST_VOID m_log_ind_info (MMSREQ_IND *ind); +ST_VOID m_log_conf_info (MMSREQ_PEND *conf); +ST_VOID m_log_error_resp (MMSREQ_IND *ind, ST_INT16 eclass, ST_INT16 code); +ST_RET m_mlog_install (ST_VOID); +#endif + +/************************************************************************/ +/* Global variables. */ +/************************************************************************/ +extern SXD_ARB_DATA_CTRL mlog_arb_log_ctrl; + +/************************************************************************/ +#ifdef __cplusplus +} +#endif +/************************************************************************/ + + +#endif /* MLOGUSER_INCLUDED */ + diff --git a/mmslib/inc/mms_def2.h b/mmslib/inc/mms_def2.h new file mode 100644 index 0000000..c29ab15 --- /dev/null +++ b/mmslib/inc/mms_def2.h @@ -0,0 +1,308 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1993 - 1997, All Rights Reserved. */ +/* */ +/* MODULE NAME : mms_def2.h */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains miscellaneous definitions and variables. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 11/12/07 MDE 11 Added MMSOP_RD_USR_HANDLED, etc.. */ +/* 04/24/03 JRB 10 Increase MAX_IDENT_LEN from 32 to 64. */ +/* 07/09/02 MDE 09 Fixed up opcode defines */ +/* 02/24/00 DSF 08 Bumped up MAX_FILES_OPEN to 100 */ +/* 10/06/99 GLB 07 Added file Rename and Obtain File */ +/* 09/13/99 MDE 06 Added SD_CONST modifiers */ +/* 04/14/98 JRB 05 Del MPARAM* defs. Still needed in mmsop_en.h */ +/* 04/03/98 JRB 04 Add check for obsolete version of mmsop_en.h */ +/* 03/20/98 JRB 03 Move defs from "mmsop_en.h" to here. */ +/* 08/15/97 MDE 02 Added xxx_DATA_SUPPORT defines, cleanup */ +/* 08/14/97 RKR 01 Format changes */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef MMS_DEF2_INCLUDED +#define MMS_DEF2_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#if defined (REQ_RESP_DIS) || defined (MAX_MMS_OPCODE) +#error May have obsolete version of "mmsop_en.h". See Release Notes. +#endif + +/************************************************************************/ +/************************************************************************/ +/* define the operation enable switches used by "mmsop_en.h" */ +/************************************************************************/ +#define REQ_RESP_DIS 0x00 /* no support for req or resp */ +#define REQ_EN 0x01 /* support for request */ +#define RESP_EN 0x02 /* support for response */ +#define REQ_RESP_EN 0x03 /* support for resp and req */ + +/************************************************************************/ +/************************************************************************/ +/* The following character array is used to check if a MMS operation is */ +/* to be supported as requestor and/or responder, and whether to expect */ +/* a constructor or primitive after the invoke ID. The operation opcode */ +/* is used as an index into the table. */ +/************************************************************************/ + +#define MAX_MMS_OPCODE 77 /* highest MMS opcode */ +#define MAX_MMSOP_DIS 85 /* highest mmsop_en[] entry */ + +extern SD_CONST ST_UCHAR mmsop_en [MAX_MMSOP_DIS+1]; + +/************************************************************************/ +/************************************************************************/ +/* The following array is used to print the opcode description. The */ +/* operation opcode is used as an index into the table. */ +/************************************************************************/ + +extern ST_CHAR *mms_op_string[106]; +extern ST_INT m_num_mms_op_string; + +/************************************************************************/ +/************************************************************************/ +/* Define the MMS operation opcodes */ +/************************************************************************/ +#define MMSOP_STATUS 0 /* status */ +#define MMSOP_GET_NAMLIST 1 /* get name list */ +#define MMSOP_IDENTIFY 2 /* identify */ +#define MMSOP_RENAME 3 /* rename */ +#define MMSOP_READ 4 /* read */ +#define MMSOP_WRITE 5 /* write */ +#define MMSOP_GET_VAR 6 /* get variable name definition */ +#define MMSOP_DEF_VAR 7 /* define variable name */ +#define MMSOP_DEF_SCAT 8 /* define scattered access */ +#define MMSOP_GET_SCAT 9 /* get scattered access attributes */ +#define MMSOP_DEL_VAR 10 /* delete variable name definition */ +#define MMSOP_DEF_VLIST 11 /* define named variable list */ +#define MMSOP_GET_VLIST 12 /* get named variable list */ +#define MMSOP_DEL_VLIST 13 /* delete named variable list */ +#define MMSOP_DEF_TYPE 14 /* define type name */ +#define MMSOP_GET_TYPE 15 /* get type name definition */ +#define MMSOP_DEL_TYPE 16 /* delete type name */ + +#define MMSOP_INPUT 17 /* input */ +#define MMSOP_OUTPUT 18 /* output */ + +#define MMSOP_TAKE_CONTROL 19 /* take control */ +#define MMSOP_REL_CONTROL 20 /* relinquish control */ +#define MMSOP_DEFINE_SEM 21 /* define semaphore */ +#define MMSOP_DELETE_SEM 22 /* delete semaphore */ +#define MMSOP_REP_SEMSTAT 23 /* report semaphore status */ +#define MMSOP_REP_SEMPOOL 24 /* report semaphore pool status */ +#define MMSOP_REP_SEMENTRY 25 /* report semaphore entry status */ + +#define MMSOP_INIT_DOWNLOAD 26 /* initiate download sequence */ +#define MMSOP_DOWN_LOAD 27 /* download segment */ +#define MMSOP_TERM_DOWNLOAD 28 /* terminate download sequence */ +#define MMSOP_INIT_UPLOAD 29 /* initiate upload sequence */ +#define MMSOP_UP_LOAD 30 /* upload segment */ +#define MMSOP_TERM_UPLOAD 31 /* terminate upload sequence */ +#define MMSOP_REQ_DOM_DOWN 32 /* request domain download */ +#define MMSOP_REQ_DOM_UPL 33 /* request domain upload */ +#define MMSOP_LOAD_DOMAIN 34 /* load domain content */ +#define MMSOP_STORE_DOMAIN 35 /* store domain content */ +#define MMSOP_DELETE_DOMAIN 36 /* delete domain */ +#define MMSOP_GET_DOM_ATTR 37 /* get domain attribute */ + +#define MMSOP_CREATE_PI 38 /* create program invocation */ +#define MMSOP_DELETE_PI 39 /* delete program invocation */ +#define MMSOP_START 40 /* start */ +#define MMSOP_STOP 41 /* stop */ +#define MMSOP_RESUME 42 /* resume */ +#define MMSOP_RESET 43 /* reset */ +#define MMSOP_KILL 44 /* kill */ +#define MMSOP_GET_PI_ATTR 45 /* get program invocation attribute */ + +#define MMSOP_OBTAIN_FILE 46 /* obtain file */ + +#define MMSOP_DEF_EC 47 /* define event condition */ +#define MMSOP_DEL_EC 48 /* delete event condition */ +#define MMSOP_GET_EC_ATTR 49 /* get event condition attributes */ +#define MMSOP_REP_EC_STAT 50 /* report event condition status */ +#define MMSOP_ALT_EC_MON 51 /* alter event condition monitoring */ +#define MMSOP_TRIGGER_EV 52 /* trigger event */ +#define MMSOP_DEF_EA 53 /* define event action status */ +#define MMSOP_DEL_EA 54 /* delete event action */ +#define MMSOP_GET_EA_ATTR 55 /* get event action attributes */ +#define MMSOP_REP_EA_STAT 56 /* report event action status */ +#define MMSOP_DEF_EE 57 /* define event enrollment */ +#define MMSOP_DEL_EE 58 /* delete event enrollment */ +#define MMSOP_ALT_EE 59 /* alter event enrollment */ +#define MMSOP_REP_EE_STAT 60 /* report event enrollment status */ +#define MMSOP_GET_EE_ATTR 61 /* get event enrollment attributes */ +#define MMSOP_ACK_EVENT_NOT 62 /* acknowledge event notification */ +#define MMSOP_GET_ALARM_SUM 63 /* get alarm summary */ +#define MMSOP_GET_ALARM_ESUM 64 /* get alarm enrollment summary */ + +#define MMSOP_READ_JOURNAL 65 /* read journal */ +#define MMSOP_WRITE_JOURNAL 66 /* write journal */ +#define MMSOP_INIT_JOURNAL 67 /* initialize journal */ +#define MMSOP_STAT_JOURNAL 68 /* report journal status */ +#define MMSOP_CREATE_JOURNAL 69 /* create journal */ +#define MMSOP_DELETE_JOURNAL 70 /* delete journal */ + +#define MMSOP_GET_CAP_LIST 71 /* get capability list */ + +#define MMSOP_FILE_OPEN 72 /* file open */ +#define MMSOP_FILE_READ 73 /* file read */ +#define MMSOP_FILE_CLOSE 74 /* file close */ +#define MMSOP_FILE_RENAME 75 /* file rename */ +#define MMSOP_FILE_DELETE 76 /* file delete */ +#define MMSOP_FILE_DIR 77 /* file directory */ + + +/************************************************************************/ +/* The opcodes below are reserved for the unconfirmed services and are */ +/* NOT used on the wire. */ +/************************************************************************/ +#define MMSOP_USTATUS 78 /* unsolicited status, ucs 1 */ +#define MMSOP_INFO_RPT 79 /* information report, ucs 0 */ +#define MMSOP_EVENT_NOT 80 /* unsolicited status, ucs 2 */ + + +/************************************************************************/ +/* These are not really opcodes at all, but simply represent the bit */ +/* positions in the services supported bitstring */ + +#define _MMSOP_ATTACH_TO_EC 81 /* Attach to event condition */ +#define _MMSOP_ATTACH_TO_SEM 82 /* Attach to semaphore */ + +/************************************************************************/ +/* These opcodes are reserved for Initiate, Conclude, etc. and are */ +/* NOT used on the wire, since these operations do not take op codes. */ +/************************************************************************/ + +#define MMSOP_CONCLUDE 83 /* conclude */ +#define MMSOP_CANCEL 84 /* cancel */ + + +/************************************************************************/ +/* MVLU Internal Use */ +#define MMSOP_MVLU_RPT_VA 200 +#define MMSOP_MVLU_GOOSE_UPDATE 201 +#define MMSOP_RD_USR_HANDLED 202 + +/************************************************************************/ +/* The opcodes below are NOT used on the wire, only for completed */ +/* 'Macro' function complete flags. */ +/************************************************************************/ +#define MMSOP_INITIATE 85 /* initiate operation */ + +#define MMSOP_NAMED_READ 90 /* Named Read */ +#define MMSOP_NAMED_WRITE 91 /* Named Write */ +#define MMSOP_REM_FILE_OPEN 93 /* Remote File Open */ +#define MMSOP_REM_FILE_READ 94 /* Remote File Read */ +#define MMSOP_REM_FILE_CLOSE 95 /* Remote File Close */ +#define MMSOP_INIT_CONN 96 /* Initiate */ +#define MMSOP_REM_FILE_COPY 98 /* Remote file copy */ +#define MMSOP_MV_DOWNLOAD 99 /* VM Domain Download */ +#define MMSOP_MV_UPLOAD 100 /* VM Domain Upload */ +#define MMSOP_VM_VAR_READ 101 /* Var Read */ +#define MMSOP_VM_VAR_WRITE 102 /* Var Write */ + +/************************************************************************/ +/************************************************************************/ +/* Various MMS limitations, parameters, etc. */ +/************************************************************************/ + +#define SERVICE_RESP_SIZE 11 /* BYTE size of service resp array */ + +#define MAX_FILES_OPEN 100 /* maximum files open locally/remotely */ +#define MAX_FILE_NAME 255 /* maximum length of a file pathname */ +#define MAX_IDENT_LEN 64 /* length of an Identifier variable */ +#define MAX_AR_LEN 64 /* length of a AR name */ + +/************************************************************************/ +/************************************************************************/ +/* This structure is used to support modifier handling. */ +/************************************************************************/ + +struct list_of_mods + { + ST_BOOLEAN info_pres; /* must be set to get info encoded */ + ST_INT num_of_mods; /* tells how many mods in the list */ + struct modifier *mod_list_ptr;/* ptr to array of contiguous modifiers */ + }; +typedef struct list_of_mods LIST_OF_MODS; + +extern struct list_of_mods modifier_list; +extern ST_INT m_max_mods; + +/************************************************************************/ +/************************************************************************/ +/* COMPANION STANDARD HANDLING */ +/************************************************************************/ +/* This structure is used as a global input parameter to all MMS */ +/* requests and responses sent by the application. To send CS info, the */ +/* 'cs_pres' flag must be set SD_TRUE, the other components refer to the*/ +/* ASN.1 CS INFO to be sent. 'cs_pres' is reset after being used. */ +/************************************************************************/ + + +struct csi + { + ST_BOOLEAN cs_pres; /* SD_TRUE if CS info was received */ + ST_INT cs_len; /* length of ASN.1 */ + ST_UCHAR *cs_ptr; /* pointer to ASN.1 */ + }; +typedef struct csi CSI ; + +extern struct csi cs_send; /* SEND CS info structure */ + +/************************************************************************/ +/************************************************************************/ +/* These defines can be commented out to exclude support for some data */ +/* types if they are not required. */ + +#ifndef MMS_LITE +#define FLOAT_DATA_SUPPORT +#define TIME_DATA_SUPPORT +#define BTOD_DATA_SUPPORT +#else +#define FLOAT_DATA_SUPPORT +#define TIME_DATA_SUPPORT +#define BTOD_DATA_SUPPORT +#endif + +/************************************************************************/ +/************************************************************************/ +/* These defines are the values that the domain state attribute */ +/* named_dom_ctrl.state can take on. */ +/************************************************************************/ + +#define DOM_NON_EXISTENT 0 +#define DOM_LOADING 1 +#define DOM_READY 2 +#define DOM_IN_USE 3 +#define DOM_COMPLETE 4 +#define DOM_INCOMPLETE 5 + +#define DOM_D1 7 +#define DOM_D2 8 +#define DOM_D3 9 +#define DOM_D4 10 +#define DOM_D5 11 +#define DOM_D6 12 +#define DOM_D7 13 +#define DOM_D8 14 +#define DOM_D9 15 + +#ifdef __cplusplus +} +#endif + +#endif /* MMS_DEF2_INCLUDED */ + + diff --git a/mmslib/inc/mms_dfun.h b/mmslib/inc/mms_dfun.h new file mode 100644 index 0000000..b5c0a78 --- /dev/null +++ b/mmslib/inc/mms_dfun.h @@ -0,0 +1,212 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* MODULE NAME : mms_dfun.h */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This file has the function declarations required to interface */ +/* with the primitive level decode routines. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 01 Convert to use ASN1R. */ +/* Add mms_err_invoke_fun proto. */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef MMS_DFUN_INCLUDED +#define MMS_DFUN_INCLUDED + +#include "asn1r.h" /* need ASN1_DEC_CTXT */ + +#ifdef __cplusplus +extern "C" { +#endif + +/************************************************************************/ +/************************************************************************/ +/* MMS service decode functions */ +/************************************************************************/ + +ST_VOID mms_reject (ASN1_DEC_CTXT *ac, ST_UINT16 id_code); +ST_VOID mms_err_invoke_fun (ASN1_DEC_CTXT *aCtx, ST_UINT16); +ST_VOID mms_status_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_status_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_status (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_ustatus_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_namelist_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_namelist_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_identify_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_identify_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_rename_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_getcl_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_getcl_rsp (ASN1_DEC_CTXT *aCtx); + +ST_VOID mms_init_download_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_init_download_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_download_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_download_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_term_download_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_term_download_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_init_upload_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_init_upload_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_upload_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_upload_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_term_upload_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_term_upload_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_rddwn_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_rddwn_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_rdupl_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_rdupl_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_load_domain_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_load_domain_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_store_domain_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_store_domain_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_delete_domain_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_delete_domain_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_get_dom_attr_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_get_dom_attr_rsp (ASN1_DEC_CTXT *aCtx); + +ST_VOID mms_create_pi_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_create_pi_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_delete_pi_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_delete_pi_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_start_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_stop_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_stop_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_resume_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_resume_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_reset_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_reset_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_kill_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_kill_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_get_pi_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_get_pi_rsp (ASN1_DEC_CTXT *aCtx); + +ST_VOID mms_read_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_read_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_write_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_write_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_info_rpt_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_get_var_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_get_var_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_def_var_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_def_var_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_del_var_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_del_var_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_def_scat_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_get_scat_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_get_scat_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_def_vlist_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_get_vlist_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_get_vlist_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_del_vlist_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_del_vlist_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_get_type_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_get_type_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_def_type_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_def_type_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_del_type_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_del_type_rsp (ASN1_DEC_CTXT *aCtx); + +ST_VOID mms_takectrl_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_takectrl_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_relctrl_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_relctrl_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_rsstat_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_rsstat_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_rspool_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_rspool_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_rsentry_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_rsentry_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_defsem_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_defsem_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_delsem_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_delsem_rsp (ASN1_DEC_CTXT *aCtx); + +ST_VOID mms_output_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_output_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_input_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_input_rsp (ASN1_DEC_CTXT *aCtx); + +ST_VOID mms_defec_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_delec_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_delec_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_geteca_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_geteca_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_repecs_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_repecs_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_altecm_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_trige_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_defea_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_delea_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_delea_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_geteaa_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_geteaa_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_repeas_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_repeas_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_defee_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_delee_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_delee_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_altee_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_altee_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_repees_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_repees_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_geteea_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_geteea_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_evnot_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_ackevnot_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_ackevnot_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_getas_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_getas_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_getaes_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_getaes_rsp (ASN1_DEC_CTXT *aCtx); + +ST_VOID mms_jwrite_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_jwrite_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_jread_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_jread_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_jinit_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_jinit_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_jstat_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_jstat_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_jcreate_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_jdelete_req (ASN1_DEC_CTXT *aCtx); + +ST_VOID mms_obtain_file_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_obtain_file_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_file_open_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_file_open_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_file_read_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_file_read_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_file_close_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_file_close_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_file_rename_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_file_rename_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_file_delete_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_file_delete_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_file_dir_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_file_dir_rsp (ASN1_DEC_CTXT *aCtx); + +ST_VOID mms_conclude_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_conclude_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_cancel_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_cancel_rsp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_init_req (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_init_rsp (ASN1_DEC_CTXT *aCtx); + +ST_VOID mms_rsp_not_supp (ASN1_DEC_CTXT *aCtx); +ST_VOID mms_req_not_supp (ASN1_DEC_CTXT *aCtx); +ST_VOID _mms_null_pdu_dec (ASN1_DEC_CTXT *aCtx); + +#ifdef __cplusplus +} +#endif + +#endif /* MMS_DFUN_INCLUDED */ diff --git a/mmslib/inc/mms_err.h b/mmslib/inc/mms_err.h new file mode 100644 index 0000000..38f8bc8 --- /dev/null +++ b/mmslib/inc/mms_err.h @@ -0,0 +1,213 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* MODULE NAME : mms_err.h */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains structure & function definitions used for */ +/* decoding and encoding an error response. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 11/03/06 CRM 03 Add MMS_ERRCLASS_* and MMS_ERRCODE_*. */ +/* 12/20/01 JRB 02 Convert to use ASN1R. */ +/* 08/14/97 RKR 01 Format changes */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef MMS_ERR_INCLUDED +#define MMS_ERR_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "mms_mp.h" + +/************************************************************************/ +/* MMS Error Codes: */ +/************************************************************************/ + +#define MMS_ERRCODE_OTHER 0 /* same for all classes */ + +/* Defines for "VMD State" error class. */ +#define MMS_ERRCLASS_VMD_STATE 0 +#define MMS_ERRCODE_VMD_STATE_CONFLICT 1 +#define MMS_ERRCODE_VMD_OPERATIONAL_PROBLEM 2 +#define MMS_ERRCODE_DOMAIN_TRANSFER_PROBLEM 3 +#define MMS_ERRCODE_STATE_MACHINE_ID_INVALID 4 + +/* Defines for "Application Reference" error class.*/ +#define MMS_ERRCLASS_APP_REF 1 +#define MMS_ERRCODE_APP_UNREACHABLE 1 +#define MMS_ERRCODE_CONNECTION_LOST 2 +#define MMS_ERRCODE_APP_REF_INVALID 3 +#define MMS_ERRCODE_CONTEXT_UNSUPPORTED 4 + +/* Defines for "Definition" error class. */ +#define MMS_ERRCLASS_DEFINITION 2 +#define MMS_ERRCODE_OBJ_UNDEFINED 1 +#define MMS_ERRCODE_INVALID_ADDRESS 2 +#define MMS_ERRCODE_TYPE_UNSUPPORTED 3 +#define MMS_ERRCODE_TYPE_INCONSISTENT 4 +#define MMS_ERRCODE_OBJ_EXISTS 5 +#define MMS_ERRCODE_OBJ_ATTRIBUTE_INCONSISTENT 6 + +/* Defines for "Resource" error class. */ +#define MMS_ERRCLASS_RESOURCE 3 +#define MMS_ERRCODE_MEM_UNAVAILABLE 1 +#define MMS_ERRCODE_PROCESSOR_RESOURCE_UNAVAILABLE 2 +#define MMS_ERRCODE_MASS_STORAGE_UNAVAILABLE 3 +#define MMS_ERRCODE_CAPABILITY_UNAVAILABLE 4 +#define MMS_ERRCODE_CAPABILITY_UNKOWN 5 + +/* Defines for "Service" error class. */ +#define MMS_ERRCLASS_SERVICE 4 +#define MMS_ERRCODE_PRIMITIVES_OUT_OF_SEQ 1 +#define MMS_ERRCODE_OBJ_STATE_CONFLICT 2 +/* Value 3 reserved for further definition */ +#define MMS_ERRCODE_CONTINUATION_INVALID 4 +#define MMS_ERRCODE_OBJ_CONSTRAINT_CONFLICT 5 + +/* Defines for "Service Preempt" error class. */ +#define MMS_ERRCLASS_SERVICE_PREEMPT 5 +#define MMS_ERRCODE_TIMEOUT 1 +#define MMS_ERRCODE_DEADLOCK 2 +#define MMS_ERRCODE_CANCEL 3 + +/* Defines for "Time Resolution" error class. */ +#define MMS_ERRCLASS_TIME_RESOLUTION 6 +#define MMS_ERRCODE_UNSUPPORTABLE_TIME_RESOLUTION 1 + +/* Defines for "Access" error class. */ +#define MMS_ERRCLASS_ACCESS 7 +#define MMS_ERRCODE_OBJ_ACCESS_UNSUPPORTED 1 +#define MMS_ERRCODE_OBJ_NON_EXISTENT 2 +#define MMS_ERRCODE_OBJ_ACCESS_DENIED 3 +#define MMS_ERRCODE_OBJ_INVALIDATED 4 + +/* Defines for "Initiate" error class. */ +#define MMS_ERRCLASS_INITIATE 8 +/* Value 1 reserved for further definition */ +/* Value 2 reserved for further definition */ +#define MMS_ERRCODE_MAX_SRV_OUTSTD_CALLING_INSUFF 3 +#define MMS_ERRCODE_MAX_SRV_OUTSTD_CALLED_INSUFF 4 +#define MMS_ERRCODE_SERVICE_CBB_INSUFF 5 +#define MMS_ERRCODE_PARAM_CBB_INSUFF 6 +#define MMS_ERRCODE_NESTING_LEVEL_INSUFF 7 + +/* Defines for "Conclude" error class. */ +#define MMS_ERRCLASS_CONCLUDE 9 +#define MMS_ERRCODE_FURTHER_COMM_REQUIRED 1 + +/* Defines for "Cancel" error class. */ +#define MMS_ERRCLASS_CANCEL 10 +#define MMS_ERRCODE_INVOKE_ID_UNKNOWN 1 +#define MMS_ERRCODE_CANCEL_NOT_POSSIBLE 2 + +/* Defines for "File" error class. */ +#define MMS_ERRCLASS_FILE 11 +#define MMS_ERRCODE_FILENAME_AMBIGUOUS 1 +#define MMS_ERRCODE_FILE_BUSY 2 +#define MMS_ERRCODE_FILENAME_SYNTAX_ERROR 3 +#define MMS_ERRCODE_CONTENT_TYPE_INVALID 4 +#define MMS_ERRCODE_POSITION_INVALID 5 +#define MMS_ERRCODE_FILE_ACCESS_DENIED 6 +#define MMS_ERRCODE_FILE_NON_EXISTENT 7 +#define MMS_ERRCODE_DUPLICATE_FILENAME 8 +#define MMS_ERRCODE_INSUFF_SPACE_IN_FILESTORE 9 + +/************************************************************************/ +/* Additional Error Response Information - */ +/* This information is set whenever there is optional additional */ +/* error response information. */ +/************************************************************************/ + +struct adtnl_err_resp_info + { + ST_BOOLEAN mod_pos_pres;/* Confirmed-ErrorPDU only: modifier pos pres */ + ST_INT32 mod_pos; /* Confirmed-ErrorPDU only: modifier position */ + ST_BOOLEAN info_pres; /* global additional info present indicator */ + ST_BOOLEAN code_pres; /* additional code present indicator */ + ST_INT32 code; /* additional code */ + ST_BOOLEAN descr_pres;/* additional description present indicator */ + ST_CHAR *descr; /* pointer to the additional description */ + ST_BOOLEAN ssi_pres; /* service specific info present indicator */ + ST_INT16 service; /* number indicating the service (0-10) */ + ST_UINT32 ss_error_val; /* service specific error value, when service */ + /* is 0-7, or 9 (IS) */ + /* service specific object name, when service */ + /* is 8 (IS-Define Event Enrollment) */ + OBJECT_NAME ss_error_oname; + /* service specific additional service error, */ + /* when service is 10 (IS-Companion Standard) */ + ST_INT ss_error_len; /* service specific additional service length */ + ST_UCHAR *ss_error_data;/* service specific additional service data ptr */ + }; +typedef struct adtnl_err_resp_info ADTNL_ERR_RESP_INFO; + + +/************************************************************************/ +/* RECEIVED ERROR RESPONSE INFORMATION */ +/************************************************************************/ +/* The structure below is filled in when an error message is received, */ +/* before the u_xxxx_conf function is invoked. */ +/************************************************************************/ + +struct err_info + { + ST_INT16 eclass; /* error class */ + ST_INT16 code; /* error code */ + ADTNL_ERR_RESP_INFO adtnl; /* additional error information */ + }; +typedef struct err_info ERR_INFO; + +/************************************************************************/ +/* Error Response Decode Function - */ +/* This routine is called to decode an error response PDU. */ +/************************************************************************/ + +ST_VOID mms_err_rsp (ASN1_DEC_CTXT *aCtx); + +/************************************************************************/ +/* SEND ERROR RESPONSE INFORMATION */ +/************************************************************************/ +/* The structure below is filled in when an error response is to be */ +/* sent that includes the optional additional error information. */ +/* Note : this information must be set prior to issuing the call to */ +/* mp_err_resp, if it is to be included in the response. */ +/************************************************************************/ + +extern ADTNL_ERR_RESP_INFO adtnl_err_info; + +/************************************************************************/ +/* Error Response Encode & Send Functions - */ +/* These routines are called to build and send error response PDU's, */ +/* one for the case of a Cancel indication, the other for all other */ +/* cases. The parameters are : a pointer to the request information, */ +/* the error class, and the error code. */ +/************************************************************************/ + +#ifndef MMS_LITE +ST_RET mp_err_resp (MMSREQ_IND *ind, ST_INT16 err_class, ST_INT16 code); +ST_RET mp_init_err (MMSREQ_IND *ind, ST_INT16 err_class, ST_INT16 code); +ST_RET mp_conclude_err (MMSREQ_IND *ind, ST_INT16 err_class, ST_INT16 code); +ST_RET mp_cancel_err (MMSREQ_IND *ind, ST_INT16 err_class, ST_INT16 code); +#else +ST_RET mpl_err_resp (ST_INT op, ST_UINT32 invoke, ST_INT16 err_class, ST_INT16 code); +ST_RET mpl_init_err (ST_INT16 err_class, ST_INT16 code); +ST_RET mpl_conclude_err (ST_INT16 err_class, ST_INT16 code); +ST_RET mpl_cancel_err (ST_UINT32 invoke, ST_INT16 err_class, ST_INT16 code); +#endif + +#ifdef __cplusplus +} +#endif + +#endif /* MMS_ERR_INCLUDED */ diff --git a/mmslib/inc/mms_log.h b/mmslib/inc/mms_log.h new file mode 100644 index 0000000..7260b0e --- /dev/null +++ b/mmslib/inc/mms_log.h @@ -0,0 +1,109 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1993 - 2003, All Rights Reserved. */ +/* */ +/* MODULE NAME : mms_log.h */ +/* PRODUCT(S) : MMSEASE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains MMS-EASE logging definitions */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 09/04/03 EJV 04 Chg mms_debug_sel to ST_UINT, and deleted */ +/* L suffix from MMS_LOG_... masks. */ +/* 03/15/01 JRB 03 Added user_debug_sel to control USER logging.*/ +/* 10/08/98 MDE 02 Migrated to updated SLOG interface */ +/* 06/09/97 MDE 01 Added 2 new Log macros */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef MMS_LOG_INCLUDED +#define MMS_LOG_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +/************************************************************************/ + +#include "slog.h" + +/************************************************************************/ +/* mms_debug_sel bit assignments */ +#define MMS_LOG_DEC 0x00000001 +#define MMS_LOG_ENC 0x00000002 +#define MMS_LOG_ACSE 0x00000004 +#define MMS_LOG_LLC 0x00000008 +#define MMS_LOG_IQUE 0x00000010 +#define MMS_LOG_RQUE 0x00000020 + +/* Keep the next two reserved for the user (not used internally) */ +#define MMS_LOG_USR_IND 0x00000040 +#define MMS_LOG_USR_CONF 0x00000080 + +#define MMS_LOG_VM 0x00000100 +#define MMS_LOG_DATA 0x00000200 + +/* Defines used for selecting MMSEASE que servicing debug levels. */ +#define MMSREQQUE_HOLD 0x00004000 +#define MMSINDQUE_HOLD 0x00008000 + +#define MMS_LOG_ERR 0x00010000 +#define MMS_LOG_NERR 0x00020000 +#define MMS_LOG_PDU 0x00040000 +#define MMS_LOG_CONFIG 0x00080000 + +#define MMS_LOG_RT 0x00100000 +#define MMS_LOG_RTAA 0x00200000 +#define MMS_LOG_AA 0x00400000 + +#define MMS_LOG_REQ 0x01000000 +#define MMS_LOG_RESP 0x02000000 +#define MMS_LOG_IND 0x04000000 +#define MMS_LOG_CONF 0x08000000 + +/************************************************************************/ +/* These are S_LOG control items for MMS-EASE logging */ + +extern ST_UINT mms_debug_sel; + +/************************************************************************/ +/* user_debug_sel bit assignments */ +#define USER_LOG_ERR 0x00000001 +#define USER_LOG_CLIENT 0x00000002 +#define USER_LOG_SERVER 0x00000004 + +extern ST_UINT user_debug_sel; /* global var to control USER logging */ + +/************************************************************************/ +/* User selectable function to log MMS actions (MLOG, for instance) */ + +#ifndef MMS_LITE +extern ST_VOID (*m_log_ureq_info_fun) (ST_INT chan, ST_INT op, ST_VOID *info); +extern ST_VOID (*m_log_req_info_fun) (MMSREQ_PEND *req, ST_VOID *info); +extern ST_VOID (*m_log_resp_info_fun) (MMSREQ_IND *ind, ST_VOID *info); +extern ST_VOID (*m_log_ind_info_fun) (MMSREQ_IND *ind); +extern ST_VOID (*m_log_conf_info_fun) (MMSREQ_PEND *conf); +extern ST_VOID (*m_log_error_resp_fun) (MMSREQ_IND *ind, ST_INT16 err_class, ST_INT16 code); +#endif + +/************************************************************************/ +/* Some SLOG Logging control macros */ + +#define MLOG_CLOSE_FILE() {slogCloseFile (sLogCtrl);} +#define MLOG_DUMP_MEM_LOG() {slogDumpMem (sLogCtrl);} +#define MLOG_STOP_FILE_LOGGING() {sLogCtrl->logCtrl &= ~LOG_FILE_EN;} +#define MLOG_START_FILE_LOGGING() {sLogCtrl->logCtrl |= LOG_FILE_EN;} + +#ifdef __cplusplus +} +#endif + +/************************************************************************/ +#endif /* End of MMS_LOG_INCLUDED */ +/************************************************************************/ diff --git a/mmslib/inc/mms_mp.h b/mmslib/inc/mms_mp.h new file mode 100644 index 0000000..26d2682 --- /dev/null +++ b/mmslib/inc/mms_mp.h @@ -0,0 +1,234 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* MODULE NAME : mms_mp.h */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This file has the common data structures and general function */ +/* declarations required to interface with MMS at the primitive */ +/* level. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 05 Convert to use ASN1R. */ +/* 08/15/97 MDE 04 BTOD handling changes */ +/* 08/14/97 RKR 03 Format changes */ +/* 06/11/97 RKR 02 Added constants for EXTERNAL encoding tag */ +/* 06/09/97 MDE 01 MMS-LITE define changes */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef MMS_MP_INCLUDED +#define MMS_MP_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "asn1defs.h" +#ifndef MMS_LITE +#include "mms_defs.h" +#endif + +/************************************************************************/ +/* MMS-LITE specific defines */ + +#if defined(MMS_LITE) +/* For MMS-LITE, we will use 'lite' versions of some data structures */ +#define USE_COMPACT_MMS_STRUCTS + +/* For MMS-LITE, we will supply a single static decode info buffer */ +#define M_USR_DEC_BUF +#endif + +/************************************************************************/ +/* Common default values for priority and severity */ +/************************************************************************/ + +#define MMS_NORM_PRIORITY 64 +#define MMS_NORM_SEVERITY 64 + +/************************************************************************/ +/* Object Name - This structure is used to reference MMS objects */ +/************************************************************************/ + +/* These defines may be used for the object_tag element selector */ +#define VMD_SPEC 0 +#define DOM_SPEC 1 +#define AA_SPEC 2 + +#if !defined (USE_COMPACT_MMS_STRUCTS) + +/* Standard form of object name */ +struct object_name + { + ST_INT object_tag; /* See above for legal values */ + union + { + ST_CHAR vmd_spec [MAX_IDENT_LEN+1]; /* vmd specific identifier */ + ST_CHAR item_id [MAX_IDENT_LEN+1]; /* item identifier */ + ST_CHAR aa_spec [MAX_IDENT_LEN+1]; /* aa specific identifier */ + } obj_name; + ST_CHAR domain_id [MAX_IDENT_LEN+1]; /* domain identifier */ + SD_END_STRUCT + }; + +#else /* Use compact form */ + +/* Compact form of object name */ +struct object_name + { + ST_INT object_tag; /* See above for legal values */ + union + { + ST_CHAR *vmd_spec; /* vmd specific identifier */ + ST_CHAR *item_id; /* item identifier */ + ST_CHAR *aa_spec; /* aa specific identifier */ + } obj_name; + ST_CHAR *domain_id; /* domain identifier */ + SD_END_STRUCT + }; +#endif + +typedef struct object_name OBJECT_NAME; + + +/************************************************************************/ +/* timeofday, event_time, attach_to_evcon, attach_to_semaphore and */ +/* modifier structure definitions. */ +/************************************************************************/ + +struct event_time + { + ST_INT16 evtime_tag; /* event time tag */ + /* 0: time of day */ + /* 1: time sequence identifier */ + /* 2: undefined */ + union + { + MMS_BTOD time_of_day; /* time of day */ + ST_UINT32 time_seq_id; /* time sequence identifier */ + } evtime; + }; +typedef struct event_time EVENT_TIME; + +struct attach_to_evcon + { + OBJECT_NAME evenroll_name; /* event enrollment name */ + OBJECT_NAME evcon_name; /* event condition name */ + ST_UCHAR causing_transitions; /* causing transitions: */ + /* bitstring */ + /* 0 : idle to disabled */ + /* 1 : active to disabled */ + /* 2 : disabled to idle */ + /* 3 : active to idle */ + /* 4 : disabled to active */ + /* 5 : idle to active */ + /* 6 : any to deleted */ + ST_BOOLEAN acc_delay_pres; /* acceptable delay present */ + ST_UINT32 acc_delay; /* acceptable delay */ + SD_END_STRUCT + }; +typedef struct attach_to_evcon ATTACH_TO_EVCON; + +struct attach_to_semaphore + { + OBJECT_NAME sem_name; /* semaphore name */ + ST_BOOLEAN named_token_pres; /* named token present ind */ + ST_CHAR named_token[MAX_IDENT_LEN+1];/* named token */ + ST_UCHAR priority; /* priority */ + /* 0 - highest */ + /* 64 - normal (default) */ + /* 127 - lowest */ + ST_BOOLEAN acc_delay_pres; /* acceptable delay present */ + ST_UINT32 acc_delay; /* acceptable delay */ + ST_BOOLEAN ctrl_timeout_pres; /* control timeout present */ + ST_UINT32 ctrl_timeout; /* control timeout */ + ST_BOOLEAN abrt_on_timeout_pres; /* Abort On Timeout present */ + ST_BOOLEAN abrt_on_timeout; /* Abort On Timeout */ + ST_BOOLEAN rel_conn_lost; /* relinquish if connection */ + SD_END_STRUCT + }; /* lost (default = true) */ +typedef struct attach_to_semaphore ATTACH_TO_SEMAPHORE; + +struct modifier + { + ST_INT modifier_tag; /* modifier tag */ + /* 0:attach to event condition */ + /* 1:attach to semaphore */ + union + { + ATTACH_TO_EVCON atec; /* attach to event condition */ + ATTACH_TO_SEMAPHORE atsem; /* attach to semaphore */ + } mod; + SD_END_STRUCT + }; +typedef struct modifier MODIFIER; + +/************************************************************************/ +/* File Name */ +/************************************************************************/ + +struct file_name + { + ST_INT fn_len; /* The length of the string */ + ST_CHAR *fname; /* pointer to actual filename string */ + SD_END_STRUCT + }; +typedef struct file_name FILE_NAME; + +/************************************************************************/ +/* Values for the encoding_tag of an EXTERN_INFO */ +/************************************************************************/ + +#define M_EXT_TAG_ANY 0 +#define M_EXT_TAG_OCT_ALIGNED 1 +#define M_EXT_TAG_ARB 2 + +/************************************************************************/ +/* EXTERNAL */ +/* The structure below is used to store ASN.1 type EXTERNAL in "C" */ +/* format. */ +/************************************************************************/ + +struct extern_info + { + ST_BOOLEAN dir_ref_pres; /* direct reference present */ + MMS_OBJ_ID dir_ref; + + ST_BOOLEAN indir_ref_pres; /* indirect reference present */ + ST_INT32 indir_ref; /* indirect reference value */ + + ST_BOOLEAN dv_descr_pres; /* data value descript pres */ + ST_INT dv_descr_len; /* data value descr. len */ + ST_UCHAR *dv_descr; /* data value descr. ptr */ + + ST_CHAR encoding_tag; /* type of encoding */ + ST_INT num_bits; /* for arbitrary only */ + ST_INT data_len; /* # bytes of data */ + ST_UCHAR *data_ptr; /* data pointer */ + SD_END_STRUCT + }; +typedef struct extern_info EXTERN_INFO; + + +ST_RET ms_encode_extern (EXTERN_INFO *src, + ST_UCHAR *asn1dest, ST_INT destlen, + ST_INT *len_out, ST_UCHAR **asn1_start_out); + +ST_RET ms_decode_extern (ST_UCHAR *asn1, ST_INT asn1len, EXTERN_INFO *dest); + +ST_VOID wr_external (ASN1_ENC_CTXT *aCtx, EXTERN_INFO *ext); + + +#ifdef __cplusplus +} +#endif + +#endif /* MMS_MP_INCLUDED */ diff --git a/mmslib/inc/mms_pcon.h b/mmslib/inc/mms_pcon.h new file mode 100644 index 0000000..4a8fb07 --- /dev/null +++ b/mmslib/inc/mms_pcon.h @@ -0,0 +1,294 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 1997, All Rights Reserved. */ +/* */ +/* MODULE NAME : mms_pcon.h */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This file has the data structures and function definitions */ +/* required to interface with MMS context management services */ +/* at the primitive level. */ +/* */ +/* Parameters : In general, the first parameter is the channel */ +/* that the request or response is to be sent over. */ +/* For Responses, the second parameter is the Invoke */ +/* ID to be used. The last parameter is used to pass */ +/* operation specific information by pointer. */ +/* */ +/* Return */ +/* Values : Request functions return a pointer to the pending */ +/* request tracking structure, of type MMSREQ_PEND. */ +/* In case of error, the pointer is returned == 0 */ +/* and mms_op_err is written with the err code. */ +/* Response functions return 0 if OK, else an error */ +/* code. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 07/13/05 MDE 07 Added defines for reject class and code */ +/* 03/23/05 JRB 06 Include asn1r instead of suicacse because */ +/* APP_REF moved to asn1r. */ +/* 07/10/02 JRB 05 Clarify description of maxreq_calling/called.*/ +/* 12/10/97 MDE 04 Changed max_nest to ST_INT8 */ +/* 11/06/97 MDE 03 Added suicacse.h, use APP_REF typedef */ +/* 08/13/97 RKR 02 Format changes */ +/* 07/29/97 DSF 01 Moved APP_REF to SUIC */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef MMS_PCON_INCLUDED +#define MMS_PCON_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "mms_err.h" +#include "mms_mp.h" +#include "asn1r.h" /* need APP_REF */ + +/************************************************************************/ +/************************************************************************/ +/* CONTEXT MANAGEMENT SERVICES */ +/************************************************************************/ +/* The structures below are used to pass CONTEXT MANAGEMENT information */ +/* to/from the MMS primitives. */ +/************************************************************************/ + +/************************************************************************/ +/* INITIATE */ +/************************************************************************/ + +struct init_rslt + { + ST_BOOLEAN accept_context; /* SD_TRUE if not error */ + ST_BOOLEAN err_info_pres; /* error information available */ + ERR_INFO err; /* otherwise look here */ + }; +typedef struct init_rslt INIT_RSLT; + + +/* This structure is used for non-core MMS-EASE P-Context's. */ +/* It is attached to the primary initiate info structure as an array */ + +struct cs_init_info + { + ST_UINT p_context; /* P-Context for this init */ + ST_BOOLEAN local_detail_pres; /* flag if local_detail is present */ + ST_INT32 local_detail; /* local detail */ + ST_INT16 maxreq_calling; /* max outst. "ind" allowed at "calling" app*/ + /* DEBUG: chg name to max_ind_calling? */ + ST_INT16 maxreq_called; /* max outst. "ind" allowed at "called" app*/ + /* DEBUG: chg name to max_ind_called? */ + ST_BOOLEAN max_nest_pres; /* indicates if max_nest is present */ + ST_INT8 max_nest; /* maximum data nesting */ + ST_INT init_detail_len; /* init detail */ + ST_UCHAR *init_detail; /* this is an ASN.1 encoded sequence */ + INIT_RSLT rslt; + }; +typedef struct cs_init_info CS_INIT_INFO; + + +/* REQUEST & RESPONSE : */ + +struct init_info + { /* Proposed (req) / Negiotiated (resp) */ + ST_BOOLEAN mms_p_context_pres;/* MMS Core context used */ + ST_BOOLEAN max_segsize_pres; /* flag if max_segsize is present */ + ST_INT32 max_segsize; /* maximum segment size */ + ST_INT16 maxreq_calling; /* max outst. "ind" allowed at "calling" app*/ + /* DEBUG: chg name to max_ind_calling? */ + ST_INT16 maxreq_called; /* max outst. "ind" allowed at "called" app*/ + /* DEBUG: chg name to max_ind_called? */ + ST_BOOLEAN max_nest_pres; /* indicates if max_nest is present */ + ST_INT8 max_nest; /* maximum data nesting */ + ST_BOOLEAN mms_detail_pres; /* mms init detail enable */ + ST_INT16 version; /* version */ + ST_UCHAR param_supp[2]; /* parameter support options: bitstring */ + ST_UCHAR serv_supp[11]; /* service support options: bitstring */ + INIT_RSLT rslt; /* success/failure & error info */ + ST_INT num_cs_init; /* number of CS init info's attached */ + ST_INT core_position; /* Position for CORE CONTEXT in list */ + /* (0 = first, num_cs_init = last, etc. */ +/* followed by CS_INIT_INFO cs_init[num_cs_init] */ + SD_END_STRUCT + }; +typedef struct init_info INIT_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_init (ST_INT chan, ST_CHAR *partner, INIT_INFO *info_ptr); +ST_RET mp_init_resp (MMSREQ_IND *indptr, INIT_INFO *info); +#else +ST_RET mpl_init (INIT_INFO *info); +ST_RET mpl_cs_init (CS_INIT_INFO *info); +ST_RET mpl_init_resp (INIT_INFO *info); +ST_RET mpl_cs_init_resp (CS_INIT_INFO *info); +#endif + +/************************************************************************/ +/* CONCLUDE */ +/************************************************************************/ + +/* REQUEST : NULL */ +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_conclude (ST_INT chan); +ST_RET mp_conclude_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_conclude (ST_VOID); +ST_RET mpl_conclude_resp (ST_VOID); +#endif + +/************************************************************************/ +/* CANCEL */ +/************************************************************************/ + +/* REQUEST : NULL */ +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_cancel (MMSREQ_PEND *req); +ST_RET mp_cancel_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_cancel (ST_VOID); +ST_RET mpl_cancel_resp (ST_VOID); +#endif + +/************************************************************************/ +/* REJECT */ +/************************************************************************/ + + +#define MMS_REJ_CLASS_CONFIRMED_REQUEST_PDU 1 +#define MMS_REJ_CODE_CONFIRMED_REQUEST_PDU_OTHER 0 +#define MMS_REJ_CODE_CONFIRMED_REQUEST_PDU_UNRECOGNIZED_SERVICE 1 +#define MMS_REJ_CODE_CONFIRMED_REQUEST_PDU_UNRECOGNIZED_MODIFIER 2 +#define MMS_REJ_CODE_CONFIRMED_REQUEST_PDU_INVALID_INVOKEID 3 +#define MMS_REJ_CODE_CONFIRMED_REQUEST_PDU_INVALID_ARGUMENT 4 +#define MMS_REJ_CODE_CONFIRMED_REQUEST_PDU_INVALID_MODIFIER 5 +#define MMS_REJ_CODE_CONFIRMED_REQUEST_PDU_MAX_SERV_OUTSTANDING_EXCEEDED 6 +#define MMS_REJ_CODE_CONFIRMED_REQUEST_PDU_MAX_RECURSION_EXCEEDED 8 +#define MMS_REJ_CODE_CONFIRMED_REQUEST_PDU_VALUE_OUT_OF_RANGE 9 + +#define MMS_REJ_CLASS_CONFIRMED_RESPONSE_PDU 2 +#define MMS_REJ_CODE_CONFIRMED_RESPONSE_PDU_OTHER 0 +#define MMS_REJ_CODE_CONFIRMED_RESPONSE_PDU_UNRECOGNIZED_SERVICE 1 +#define MMS_REJ_CODE_CONFIRMED_RESPONSE_PDU_INVALID_INVOKEID 2 +#define MMS_REJ_CODE_CONFIRMED_RESPONSE_PDU_INVALID_RESULT 3 +#define MMS_REJ_CODE_CONFIRMED_RESPONSE_PDU_MAX_RECURSION_EXCEEDED 5 +#define MMS_REJ_CODE_CONFIRMED_RESPONSE_PDU_VALUE_OUT_OF_RANGE 6 + +#define MMS_REJ_CLASS_CONFIRMED_ERROR_PDU 3 +#define MMS_REJ_CODE_CONFIRMED_ERROR_PDU_OTHER 0 +#define MMS_REJ_CODE_CONFIRMED_ERROR_PDU_UNRECOGNIZED_SERVICE 1 +#define MMS_REJ_CODE_CONFIRMED_ERROR_PDU_INVALID_INVOKEID 2 +#define MMS_REJ_CODE_CONFIRMED_ERROR_PDU_INVALID_SERVICEERROR 3 +#define MMS_REJ_CODE_CONFIRMED_ERROR_PDU_VALUE_OUT_OF_RANGE 4 + +#define MMS_REJ_CLASS_UNCONFIRMED_PDU 4 +#define MMS_REJ_CODE_UNCONFIRMED_PDU_OTHER 0 +#define MMS_REJ_CODE_UNCONFIRMED_PDU_UNRECOGNIZED_SERVICE 1 +#define MMS_REJ_CODE_UNCONFIRMED_PDU_INVALID_ARGUMENT 2 +#define MMS_REJ_CODE_UNCONFIRMED_PDU_MAX_RECURSION_EXCEEDED 3 +#define MMS_REJ_CODE_UNCONFIRMED_PDU_VALUE_OUT_OF_RANGE 4 + +#define MMS_REJ_CLASS_PDU_ERROR 5 +#define MMS_REJ_CODE_PDU_ERROR_UNKNOWN_PDU_TYPE 0 +#define MMS_REJ_CODE_PDU_ERROR_INVALID_PDU 1 +#define MMS_REJ_CODE_PDU_ERROR_ILLEGAL_ACSE_MAPPING 2 + +#define MMS_REJ_CLASS_CANCEL_REQUEST_PDU 6 +#define MMS_REJ_CODE_CANCEL_REQUEST_PDU_OTHER 0 +#define MMS_REJ_CODE_CANCEL_REQUEST_PDU_INVALID_INVOKEID 1 + +#define MMS_REJ_CLASS_CANCEL_RESPONSE_PDU 7 +#define MMS_REJ_CODE_CANCEL_RESPONSE_PDU_OTHER 0 +#define MMS_REJ_CODE_CANCEL_RESPONSE_PDU_INVALID_INVOKEID 1 + +#define MMS_REJ_CLASS_CANCEL_ERROR_PDU 8 +#define MMS_REJ_CODE_CANCEL_ERROR_PDU_OTHER 0 +#define MMS_REJ_CODE_CANCEL_ERROR_PDU_INVALID_INVOKEID 1 +#define MMS_REJ_CODE_CANCEL_ERROR_PDU_INVALID_SERVICEERROR 2 +#define MMS_REJ_CODE_CANCEL_ERROR_PDU_VALUE_OUT_OF_RANGE 3 + +#define MMS_REJ_CLASS_CONCLUDE_REQUEST_PDU 9 +#define MMS_REJ_CODE_CONCLUDE_REQUEST_PDU_OTHER 0 +#define MMS_REJ_CODE_CONCLUDE_REQUEST_PDU_INVALID_ARGUMENT 1 + +#define MMS_REJ_CLASS_CONCLUDE_RESPONSE_PDU 10 +#define MMS_REJ_CODE_CONCLUDE_RESPONSE_PDU_OTHER 0 +#define MMS_REJ_CODE_CONCLUDE_RESPONSE_PDU_INVALID_RESULT 1 + +#define MMS_REJ_CLASS_CONCLUDE_ERROR_PDU 11 +#define MMS_REJ_CODE_CONCLUDE_ERROR_PDU_OTHER 0 +#define MMS_REJ_CODE_CONCLUDE_ERROR_PDU_INVALID_SERVICEERROR 1 +#define MMS_REJ_CODE_CONCLUDE_ERROR_PDU_VALUE_OUT_OF_RANGE 2 + + +struct reject_resp_info + { + ST_BOOLEAN detected_here; /* flag indicating where error occurred */ + ST_BOOLEAN invoke_known; /* flag indicating if invoke ID known */ + ST_UINT32 invoke; /* invoke ID of service rejected */ + ST_INT pdu_type; /* pdu type of service rejected */ + ST_INT16 rej_class; /* reject class */ + ST_INT16 rej_code; /* reject code */ + }; +typedef struct reject_resp_info REJECT_RESP_INFO; + +#ifndef MMS_LITE +ST_RET mp_reject_resp (ST_INT chan, REJECT_RESP_INFO *info); +ST_RET mp_reject_ind (MMSREQ_IND *ind,REJECT_RESP_INFO *info); +ST_RET mp_reject_conf (MMSREQ_PEND *req,REJECT_RESP_INFO *info); +#else +ST_RET mpl_reject_resp (REJECT_RESP_INFO *info); +#endif + +/************************************************************************/ +/* ABORT REQUEST FUNCTION */ +/************************************************************************/ + +ST_RET mp_abort (ST_INT chan, ST_INT reason); + +/************************************************************************/ +/************************************************************************/ +/* This function is used to convert convert an AR Name into an ASN.1 */ +/* encoded ApplicationReference based on the TPY DIB information */ +/************************************************************************/ + +ST_RET ms_arname_to_asn1 (ST_CHAR *arname, ST_UCHAR *asn1_buf, ST_INT asn1_buf_len, + ST_UCHAR **asn1_out, ST_INT *asn1_len_out); + +/* This function is used to convert an ASN.1 encoded */ +/* ApplicationReference to the AR Name */ +ST_RET ms_asn1_to_arname (ST_CHAR *arname, ST_UCHAR *asn1, ST_INT asn1len); + +/* This function is used to find an AR Name based on the app_ref */ +/* information. */ +ST_RET ms_appref_to_arname (ST_CHAR *arname, APP_REF *appref); + +/* This function is used to transition between an AR Name and its' */ +/* corresponding app_ref information. */ +ST_RET ms_arname_to_appref (ST_CHAR *arname, APP_REF **appref_out); + +/* This function is used to convert to an ApplicationReference to ASN.1 */ +ST_RET ms_appref_to_asn1 (APP_REF *appref, ST_UCHAR *dest, ST_INT dest_len, + ST_UCHAR **asn1_out, ST_INT *asn1_len_out); + +/* This function is used to convert ASN.1 encoded ApplicationReference */ +/* data to an intermediate form. */ +ST_RET ms_asn1_to_appref (APP_REF *appref, ST_UCHAR *asn1, ST_INT asn1len); + + +#ifdef __cplusplus +} +#endif + +#endif /* MMS_PCON_INCLUDED */ + diff --git a/mmslib/inc/mms_pdom.h b/mmslib/inc/mms_pdom.h new file mode 100644 index 0000000..5562993 --- /dev/null +++ b/mmslib/inc/mms_pdom.h @@ -0,0 +1,419 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 1997, All Rights Reserved. */ +/* */ +/* MODULE NAME : mms_pdom.h */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This file has the data structures and function definitions */ +/* required to interface with MMS domain management services */ +/* at the primitive level. */ +/* */ +/* Parameters : In general, the first parameter is the channel */ +/* that the request or response is to be sent over. */ +/* For Responses, the second parameter is the Invoke */ +/* ID to be used. The last parameter is used to pass */ +/* operation specific information by pointer. */ +/* */ +/* Return */ +/* Values : Request functions return a pointer to the pending */ +/* request tracking structure, of type MMSREQ_PEND. */ +/* In case of error, the pointer is returned == 0 */ +/* and mms_op_err is written with the err code. */ +/* Response functions return 0 if OK, else an error */ +/* code. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 08/13/97 RKR 01 Format changes */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef MMS_PDOM_INCLUDED +#define MMS_PDOM_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "mms_err.h" /* need for service error definition */ +#include "mms_mp.h" + +/************************************************************************/ +/************************************************************************/ +/* DOMAIN MANAGEMENT SERVICES */ +/************************************************************************/ +/* The structures below are used to pass DOMAIN MANAGEMENT information */ +/* to/from the MMS primitives. */ +/************************************************************************/ + +/* use these defines to determine whether load data is coded or not */ +/* If coded, the data pointer points to a complete ASN.1 EXTERNAL */ + +#define LOAD_DATA_NON_CODED 0 +#define LOAD_DATA_CODED 1 + + +/************************************************************************/ +/* INITIATE DOWNLOAD SEQUENCE */ +/************************************************************************/ + +/* REQUEST : */ + +struct initdown_req_info + { + ST_CHAR dname [MAX_IDENT_LEN +1]; /* domain name */ + ST_BOOLEAN sharable; /* boolean, no default */ + ST_INT num_of_capab; /* number of capabilities */ +/* list of capabilities */ +/* ST_CHAR * capab_list [num_of_capab]; */ + SD_END_STRUCT + }; +typedef struct initdown_req_info INITDOWN_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_initdown (ST_INT chan, INITDOWN_REQ_INFO *info); +ST_RET mp_initdown_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_initdown (INITDOWN_REQ_INFO *info); +ST_RET mpl_initdown_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* DOWNLOAD SEGMENT */ +/************************************************************************/ + +/* REQUEST : */ + +struct download_req_info + { + ST_CHAR dname [MAX_IDENT_LEN +1]; /* domain name */ + }; +typedef struct download_req_info DOWNLOAD_REQ_INFO; + +/* RESPONSE : */ + + +struct download_resp_info + { + ST_INT load_data_type; /* coded/non-coded */ + ST_INT load_data_len; /* number of load data octets */ + ST_UCHAR *load_data; /* pointer to load data octets */ + ST_BOOLEAN more_follows; /* boolean, default to true */ + }; +typedef struct download_resp_info DOWNLOAD_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_download (ST_INT chan, DOWNLOAD_REQ_INFO *info); +ST_RET mp_download_resp (MMSREQ_IND *ind, DOWNLOAD_RESP_INFO *info); +#else +ST_RET mpl_download (DOWNLOAD_REQ_INFO *info); +ST_RET mpl_download_resp (ST_UINT32 invoke, DOWNLOAD_RESP_INFO *info); +#endif + +/************************************************************************/ +/* TERMINATE DOWNLOAD SEQUENCE */ +/************************************************************************/ + +/* REQUEST : */ + +struct termdown_req_info + { + ST_CHAR dname [MAX_IDENT_LEN +1]; /* domain name */ + ST_BOOLEAN discarded; /* boolean, default to false */ + ERR_INFO *err; /* points to service error */ + }; /* (IS only, for discarded != 0 */ +typedef struct termdown_req_info TERMDOWN_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_termdown (ST_INT chan, TERMDOWN_REQ_INFO *info); +ST_RET mp_termdown_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_termdown (TERMDOWN_REQ_INFO *info); +ST_RET mpl_termdown_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* INITIATE UPLOAD SEQUENCE */ +/************************************************************************/ + +/* REQUEST : */ + +struct initupl_req_info + { + ST_CHAR dname [MAX_IDENT_LEN +1]; /* domain name */ + }; +typedef struct initupl_req_info INITUPL_REQ_INFO; + +/* RESPONSE : */ + +struct initupl_resp_info + { + ST_INT32 ulsmid; /* upload state machine id */ + ST_INT num_of_capab; /* number of capabilities */ +/* list of capabilities */ +/* ST_CHAR *capab_list [num_of_capab]; */ + SD_END_STRUCT + }; +typedef struct initupl_resp_info INITUPL_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_initupl (ST_INT chan, INITUPL_REQ_INFO *info); +ST_RET mp_initupl_resp (MMSREQ_IND *ind, INITUPL_RESP_INFO *info); +#else +ST_RET mpl_initupl (INITUPL_REQ_INFO *info); +ST_RET mpl_initupl_resp (ST_UINT32 invoke, INITUPL_RESP_INFO *info); +#endif + +/************************************************************************/ +/* UPLOAD SEGMENT */ +/************************************************************************/ + +/* REQUEST : */ + +struct upload_req_info + { + ST_INT32 ulsmid; /* upload state machine id */ + }; +typedef struct upload_req_info UPLOAD_REQ_INFO; + +/* RESPONSE : */ + +struct upload_resp_info + { + ST_INT load_data_type; /* coded/non-coded */ + ST_INT load_data_len; /* number of load data octets */ + ST_UCHAR *load_data; /* pointer to load data octets */ + ST_BOOLEAN more_follows; /* boolean, default to true */ + }; +typedef struct upload_resp_info UPLOAD_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_upload (ST_INT chan, UPLOAD_REQ_INFO *info); +ST_RET mp_upload_resp (MMSREQ_IND *ind, UPLOAD_RESP_INFO *info); +#else +ST_RET mpl_upload (UPLOAD_REQ_INFO *info); +ST_RET mpl_upload_resp (ST_UINT32 invoke, UPLOAD_RESP_INFO *info); +#endif + +/************************************************************************/ +/* TERMINATE UPLOAD SEQUENCE */ +/************************************************************************/ + +/* REQUEST : */ + +struct termupl_req_info + { + ST_INT32 ulsmid; /* upload state machine id */ + }; +typedef struct termupl_req_info TERMUPL_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_termupl (ST_INT chan, TERMUPL_REQ_INFO *info); +ST_RET mp_termupl_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_termupl (TERMUPL_REQ_INFO *info); +ST_RET mpl_termupl_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* REQUEST DOMAIN DOWNLOAD */ +/************************************************************************/ + +/* REQUEST : */ + +struct rddwn_req_info + { + ST_CHAR dname [MAX_IDENT_LEN +1]; /* domain name */ + ST_BOOLEAN sharable; /* boolean, no default */ + ST_INT num_of_capab; /* number of capabilities */ + ST_INT num_of_fname; /* num of fname elements */ +/* list of capabilities */ +/* ST_CHAR * capab_list [num_of_capab]; */ +/* list of file names */ +/* FILE_NAME fname_list[ num_of_fname ]; */ + SD_END_STRUCT + }; +typedef struct rddwn_req_info RDDWN_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_rddwn (ST_INT chan, RDDWN_REQ_INFO *info); +ST_RET mp_rddwn_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_rddwn (RDDWN_REQ_INFO *info); +ST_RET mpl_rddwn_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* REQUEST DOMAIN UPLOAD */ +/************************************************************************/ + +/* REQUEST : */ + +struct rdupl_req_info + { + ST_CHAR dname [MAX_IDENT_LEN +1]; /* domain name */ + ST_INT num_of_fname; /* num of fname elements */ +/* list of file names */ +/* FILE_NAME fname_list[ num_of_fname ]; */ + SD_END_STRUCT + }; +typedef struct rdupl_req_info RDUPL_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_rdupl (ST_INT chan, RDUPL_REQ_INFO *info); +ST_RET mp_rdupl_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_rdupl (RDUPL_REQ_INFO *info); +ST_RET mpl_rdupl_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* LOAD DOMAIN CONTENT */ +/************************************************************************/ + +/* REQUEST : */ + +struct loaddom_req_info + { + ST_CHAR dname [MAX_IDENT_LEN +1]; /* domain name */ + ST_BOOLEAN sharable; /* boolean, no default */ + ST_BOOLEAN third_pty_pres; /* third party used */ + ST_INT third_pty_len; /* the length of third party */ + ST_UCHAR *third_pty; /* ptr to third party ASN.1 */ + ST_INT num_of_capab; /* number of capabilities */ + ST_INT num_of_fname; /* num of fname elements */ +/* list of capabilities */ +/* ST_CHAR *capab_list [num_of_capab]; */ +/* list of file names */ +/* FILE_NAME fname_list[ num_of_fname ]; */ + SD_END_STRUCT + }; +typedef struct loaddom_req_info LOADDOM_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_loaddom (ST_INT chan, LOADDOM_REQ_INFO *info); +ST_RET mp_loaddom_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_loaddom (LOADDOM_REQ_INFO *info); +ST_RET mpl_loaddom_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* STORE DOMAIN CONTENT */ +/************************************************************************/ + +/* REQUEST : */ + +struct storedom_req_info + { + ST_CHAR dname [MAX_IDENT_LEN +1]; /* domain name */ + ST_INT num_of_fname; /* num of fname elements */ + ST_BOOLEAN third_pty_pres; /* third party used */ + ST_INT third_pty_len; /* the length of third party */ + ST_UCHAR *third_pty; /* ptr to third party ASN.1 */ +/* list of file names */ +/* FILE_NAME fname_list[ num_of_fname ]; */ + SD_END_STRUCT + }; +typedef struct storedom_req_info STOREDOM_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_storedom (ST_INT chan, STOREDOM_REQ_INFO *info); +ST_RET mp_storedom_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_storedom (STOREDOM_REQ_INFO *info); +ST_RET mpl_storedom_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* DELETE DOMAIN */ +/************************************************************************/ + +/* REQUEST : */ + +struct deldom_req_info + { + ST_CHAR dname [MAX_IDENT_LEN +1]; /* domain name */ + }; +typedef struct deldom_req_info DELDOM_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_deldom (ST_INT chan, DELDOM_REQ_INFO *info); +ST_RET mp_deldom_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_deldom (DELDOM_REQ_INFO *info); +ST_RET mpl_deldom_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* GET DOMAIN ATTRIBUTE */ +/************************************************************************/ + +/* REQUEST : */ + +struct getdom_req_info + { + ST_CHAR dname [MAX_IDENT_LEN +1]; /* domain name */ + }; +typedef struct getdom_req_info GETDOM_REQ_INFO; + +/* RESPONSE : */ + +struct getdom_resp_info + { + ST_INT num_of_capab; /* number of capabilities */ + ST_BOOLEAN mms_deletable; /* MMS deletable, no default */ + ST_BOOLEAN sharable; /* boolean, no default */ + ST_INT num_of_pinames; /* number of pi names */ + ST_INT16 state; /* 0 : non-existent */ + /* 1 : loaded */ + /* 2 : ready */ + /* 3 : in use */ + /* 4 : complete */ + /* 5 : incomplete */ + /* 6-15 : d1-d8 (IS) */ + ST_INT8 upload_in_progress; /* upload in progress */ +/* list of pointers to capabilities */ +/* ST_CHAR *capab_list [num_of_capab]; */ +/* list of pointers to program invocation names */ +/* ST_CHAR *pinames_list [num_of_pinames]; */ + SD_END_STRUCT + }; +typedef struct getdom_resp_info GETDOM_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_getdom (ST_INT chan, GETDOM_REQ_INFO *info); +ST_RET mp_getdom_resp (MMSREQ_IND *ind, GETDOM_RESP_INFO *info); +#else +ST_RET mpl_getdom (GETDOM_REQ_INFO *info); +ST_RET mpl_getdom_resp (ST_UINT32 invoke, GETDOM_RESP_INFO *info); +#endif + +#ifdef __cplusplus +} +#endif + +#endif /* #define MMS_PDOM_INCLUDED */ + diff --git a/mmslib/inc/mms_perr.h b/mmslib/inc/mms_perr.h new file mode 100644 index 0000000..d387f91 --- /dev/null +++ b/mmslib/inc/mms_perr.h @@ -0,0 +1,248 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2007, All Rights Reserved. */ +/* */ +/* MODULE NAME : mms_perr.h */ +/* PRODUCT(S) : MMSEASE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains structure & function definitions used for */ +/* decoding and encoding an error response. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 09/05/07 EJV 03 Removed obsolete LLC30_LLP Type code. */ +/* 07/02/98 NAV 02 Add MVE_JOURNAL_NAME error code */ +/* 06/09/97 MDE 01 Fixed indenting */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef MMS_PERR_INCLUDED +#define MMS_PERR_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +/************************************************************************/ +/* Global MMS operation error code, written when error is detected in */ +/* functions which return pointers. */ +/************************************************************************/ + +extern ST_RET mms_op_err; + +/************************************************************************/ +/* Error Codes */ +/* MMSEASE error codes start at E_MMS_GEN(found in glberror.h). */ +/* When the return valus from a user accessable function is a pointer, */ +/* an error is indicated by a pointer value of 0L. In this case the */ +/* error code may be found in the global variable 'mms_op_err'. */ +/* */ +/* Note that SUIC error codes are passed through, and are in the range */ +/* 1 - 99. Refer to SUIC documentation for specific error definitions. */ +/* */ +/* */ +/* Error codes returned from any request or response function */ +/************************************************************************/ + +#define ME_CHAN_STATE 0x6401 +#define ME_CHAN_NUM 0x6402 +#define ME_TITLE_LEN 0x6403 +#define ME_SEND_SIZE 0x6404 +#define ME_REQ_PEND_COUNT 0x6405 +#define ME_INACTIVE_IND 0x6406 +#define ME_PARTNER_NAME 0x6407 +#define ME_AR_NAME 0x6408 +#define ME_OBJ_ID_ERR 0x6409 +#define ME_SEND_ERROR 0x640A +#define ME_ACSE_CHAN_RANGE 0x640B +#define ME_LLC_CHAN_RANGE 0x640D +#define ME_LLP_TYPE 0x640E +#define ME_TRANS_ID_UNAVAILABLE 0x640F +#define ME_CHAN_TYPE 0x6410 +#define ME_TOO_MANY_CONTEXTS 0x6411 +#define ME_UNKNOWN_P_CONTEXT 0x6412 +#define ME_P_CONTEXT_ERROR 0x6413 +#define ME_ASN1_ENCODE_OVERRUN 0x6414 + +/************************************************************************/ +/* Error codes returned from mp_xxx_req functions */ +/* Values begin from E_MMS_PPI(found in glberror.h). */ +/************************************************************************/ + +#define ME_QUEFULL 0x6501 + +/************************************************************************/ +/* Error codes found in resp_err */ +/* Values begin from E_MMS_RESP(found in glberror.h). */ +/************************************************************************/ + +#define CNF_RESP_OK 0 +#define CNF_PARSE_ERR 0x6601 +#define CNF_REJ_ERR 0x6602 +#define CNF_ERR_OK 0x6603 +#define CNF_DISCONNECTED 0x6604 +#define CNF_CHAN_OP_ERR 0x6605 +#define CNF_CANST_ERR 0x6606 +#define CNF_ASS_REQ_REJECTED 0x6607 +#define CNF_ASS_RESP_PARAM 0x6608 +#define CNF_ASS_USER_REJ_CONF 0x6609 +#define CNF_REM_FOPEN 0x660A +#define CNF_INIT_PARAM 0x660B +#define CNF_REM_FREAD 0x660C +#define CNF_LOC_FWRITE 0x660D +#define CNF_REM_FCLOSE 0x660E +#define CNF_LOC_FCLOSE 0x660F +#define CNF_MVREAD_RESP_PARAM 0x6610 +#define CNF_VM_RESP_ERR 0x6611 +#define CNF_LLC_SEND_ERROR 0x6612 +#define CNF_REQ_NOT_DONE 0x6613 + +/************************************************************************/ +/* Error codes returned from 'mv_xxxx_resp' functions. */ +/* Values begin from E_MMS_VMI(found in glberror.h). */ +/************************************************************************/ + +#define MVE_VARNAME 0x6701 +#define MVE_TYPENAME 0x6702 +#define MVE_ADDR 0x6703 +#define MVE_FOPEN 0x6704 +#define MVE_REM_FILE_COUNT 0x6705 +#define MVE_LOC_FILE_COUNT 0x6706 +#define MVE_FILE_REFNUM 0x6707 +#define MVE_FRENAME 0x6708 +#define MVE_FDELETE 0x6709 +#define MVE_FDIR 0x670A +#define MVE_LOC_FOPEN 0x670B +#define MVE_CANCEL_STATE 0x670C +#define MVE_DOM_ERR 0x670D +#define MVE_RT_TYPE 0x670E +#define MVE_DOM_STATE 0x670F +#define MVE_AT_UPPER_LIMIT 0x6710 +#define MVE_DATA_CONVERT 0x6711 +#define MVE_VM_SERVICE_NOTSUPP 0x6712 +#define MVE_MVWRITE_REQ_PARAM 0x6713 +#define MVE_DOMAIN_NAME 0x6714 +#define MVE_OBJECT_SCOPE 0x6715 +#define MVE_VAR_LIST 0x6716 +#define MVE_VAR_NUMBER 0x6717 +#define MVE_NOT_NAMED_VAR 0x6718 +#define MVE_WRONG_OP 0x6719 +#define MVE_MVINFO_ACCESS_ERR 0x671A +#define MVE_TYPEDEF_LEN0 0x671B +#define MVE_TYPEDEF_SYM_GT 0x671C +#define MVE_TYPEDEF_SYM_LT 0x671D +#define MVE_TYPEDEF_OBJNAME 0x671E +#define MVE_TYPEDEF_SYM_RBRACE 0x671F +#define MVE_TYPEDEF_SYM_LBRACE 0x6720 +#define MVE_TYPEDEF_SYM_COMMA 0x6721 +#define MVE_TYPEDEF_SYM_RPAREN 0x6722 +#define MVE_TYPEDEF_SYM_LPAREN 0x6723 +#define MVE_TYPEDEF_SYM_P 0x6724 +#define MVE_TYPEDEF_SYM_PLUS 0x6725 +#define MVE_TYPEDEF_SYM_MINUS 0x6726 +#define MVE_TYPEDEF_SYM_T 0x6727 +#define MVE_TYPEDEF_BADLEN3 0x6728 +#define MVE_TYPEDEF_BADLEN4 0x6729 +#define MVE_TYPEDEF_BADLEN5 0x672A +#define MVE_TYPEDEF_BADLEN7 0x672B +#define MVE_TYPEDEF_BADTYPE 0x672C +#define MVE_TYPEDEF_SYM_COLON 0x672D +#define MVE_TYPEDEF_SYM_RBRACKET 0x672E +#define MVE_TYPEDEF_SYM_LBRACKET 0x672F +#define MVE_TYPEDEF_NUM_ELTS 0x6730 +#define MVE_TYPEDEF_SYM_DIGIT 0x6731 +#define MVE_TYPEDEF_SYM_OTHER 0x6732 +#define MVE_DATA_SPACE 0x6733 +#define MVE_VM_REQ_ERR 0x6734 +#define MVE_VMD_NOT_EMPTY 0x6735 +#define MVE_BAD_APP_REF_FORM 0x6736 +#define MVE_ASN1_TO_RT 0x6737 +#define MVE_ASN1_ENCODE_ERR 0x6738 +#define MVE_ASN1_DECODE_ERR 0x6739 +#define MVE_FP_SAVE_REQ_ERR 0x673A +#define MVE_FP_REQ_DONE_ERR 0x673B +#define MVE_LLP_DIB_FOPEN_ERR 0x673C +#define MVE_ADD_APPREF_ERR 0x673D +#define MVE_RESP_NOT_SUPP 0x673E +#define MVE_REQ_NOT_SUPP 0x673F +#define MVE_INVALID_PDU 0x6740 +#define MVE_DOM_DISCARDED 0x6741 +#define MVE_DOM_PROTECTED 0x6742 +#define MVE_DOM_DEL_ERR 0x6743 +#define MVE_DEL_PI_ERR 0x6744 +#define MVE_RTAA_TYPE 0x6745 +#define MVE_RTAA_SIZE 0x6746 +#define MVE_AA_SELECT 0x6747 +#define MVE_INVALID_ADL 0x6748 +#define MVE_DATA_TO_RT 0x6749 +#define MVE_LOC_FILE_READ 0x6750 + +/************************************************************************/ +/* Errors related to VM Program Invocation handling */ + +#define PI_NAME 0x6770 +#define PI_STATE 0x6771 +#define PI_NOT_REUSABLE 0x6772 +#define PI_NOT_DELETABLE 0x6773 +#define ME_PI_PROTECTION 0x6774 +#define ME_PI_INVALID_ID 0x6775 + +/************************************************************************/ +/* Errors related to VM Journal handling */ + +#define MVE_JOURNAL_NAME 0x6776 +#define MVE_INVALID_DOMAIN_OBJ 0x6777 + +/************************************************************************/ +/* ACSE ERROR CODES */ +/* The codes below are used in the info.ACSE.err_code in the case where */ +/* the event is an ACSE_ERROR. The user defined function */ +/* 'u_llp_error_ind' is called with these codes when this occurs. */ +/* Values begin from E_LLP_ACSE(found in glberror.h). */ +/************************************************************************/ + +#define ACSE_RECEIVE_ERR 0x6901L +#define ACSE_LISTEN_ERR 0x6902L +#define ACSE_DISCONNECT_RCV_ERR 0x6903L +#define ACSE_STOP_LISTEN_ERR 0x6904L +#define ACSE_ASS_REQ_ERR 0x6905L +#define ACSE_ASS_RESP_ERR 0x6906L +#define ACSE_REL_RESP_ERR 0x6907L +#define ACSE_REL_REQ_ERR 0x6908L +#define ACSE_SEND_REQ_ERR 0x6909L +#define ACSE_SET_DEBUG_ERR 0x690AL +#define ACSE_ABORT_ERR 0x690BL + + +/************************************************************************/ +/* MMS Exception Codes */ +/* These codes are passed to the user when the user exception function */ +/* (u_mmsexcept_ind) is called. */ +/* Values begin from E_MMS_EXCPT(found in glberror.h). */ +/************************************************************************/ + +#define MX_REJECT 0x6801 +#define MX_BOARD_ERR 0x6802 +#define MX_LLP_EVENT_ERROR 0x6803 +#define MX_MEMORY_ALLOC 0x6804 +#define MX_RUNTIME_TDEF 0x6805 +#define MX_LLP_QUE_OVERFLOW 0x6806 +#define MX_MMSIND_QUE 0x6807 +#define MX_MMSCONF_QUE 0x6808 +#define MX_INTERNAL_ERROR 0x6809 +#define MX_LLP_ADD_INFO_ALLOC 0x680A + + +#ifdef __cplusplus +} +#endif + +#endif /* #define MMS_PERR_INCLUDED */ + + + diff --git a/mmslib/inc/mms_pevn.h b/mmslib/inc/mms_pevn.h new file mode 100644 index 0000000..f32f230 --- /dev/null +++ b/mmslib/inc/mms_pevn.h @@ -0,0 +1,956 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 1997, All Rights Reserved. */ +/* */ +/* MODULE NAME : mms_pevn.h */ +/* PRODUCT(S) : MMSEASE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This file has the data structures and function definitions */ +/* required to interface with MMS event management services */ +/* at the primitive level. */ +/* */ +/* Parameters : In general, the first parameter is the channel */ +/* that the request or response is to be sent over. */ +/* For Responses, the second parameter is the Invoke */ +/* ID to be used. The last parameter is used to pass */ +/* operation specific information by pointer. */ +/* */ +/* Return */ +/* Values : Request functions return a pointer to the pending */ +/* request tracking structure, of type MMSREQ_PEND. */ +/* In case of error, the pointer is returned == 0 */ +/* and mms_op_err is written with the err code. */ +/* Response functions return 0 if OK, else an error */ +/* code. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/12/02 JRB 03 Add ASN1_ENC_CTXT arg to mpl_evnot */ +/* 07/15/97 MDE 02 Added cur_state defines */ +/* 08/14/97 RKR 01 Format changes */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef MMS_PEVN_INCLUDED +#define MMS_PEVN_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "mms_pvar.h" /* needed for variable specification defs */ +#include "mms_err.h" /* needed for service error definitions */ +#include "mms_mp.h" + + +/************************************************************************/ +/* Event cur_state defines */ + +#define EC_STATE_DISABLED 0 +#define EC_STATE_IDLE 1 +#define EC_STATE_ACTIVE 2 + +#define EC_STATE_ACTIVE_NOACK_A 3 +#define EC_STATE_IDLE_NOACK_I 4 +#define EC_STATE_IDLE_NOACK_A 5 +#define EC_STATE_IDLE_ACKED 6 +#define EC_STATE_ACTIVE_ACKED 7 + +/************************************************************************/ +/* EVENT MANAGEMENT FUNCTIONS */ +/************************************************************************/ +/* The structures below are used to pass EVENT MANAGEMENT operation */ +/* information to/from the MMS primitives. */ +/************************************************************************/ + +struct event_enrollment + { + OBJECT_NAME evenroll_name; /* event enrollment name */ + ST_CHAR evcon_name_tag; /* 0 : event condition name */ + /* 1 : undefined */ + OBJECT_NAME evcon_name; /* event condition name - for */ + /* evcon_name_tag = 0 only */ + ST_BOOLEAN evact_name_pres; /* event action name present */ + ST_CHAR evact_name_tag; /* 0 : event action name */ + /* 1 : undefined */ + OBJECT_NAME evact_name; /* event action name - for */ + /* evact_name_tag = 0 only */ + ST_BOOLEAN client_app_pres; /* client application present */ + ST_INT client_app_len; /* client application length */ + ST_UCHAR *client_app; /* client application reference */ + ST_BOOLEAN mms_deletable; /* mms deletable (def = false) */ + ST_INT16 ee_class; /* event enrollment class: */ + /* 0 - modifier */ + /* 1 - notification */ + ST_INT16 duration; /* duration: */ + /* 0 - current (default) */ + /* 1 - permanent */ + ST_BOOLEAN invoke_id_pres; /* invoke id present */ + ST_UINT32 invoke_id; /* invoke id */ + ST_BOOLEAN rem_acc_delay_pres; /* rem acceptable delay present */ + ST_UINT32 rem_acc_delay; /* remaining acceptable delay */ + ST_BOOLEAN addl_detail_pres; /* additional detail present */ + ST_INT addl_detail_len; /* length of additional detail */ + ST_UCHAR *addl_detail; /* pointer to additional detail */ + ST_BOOLEAN ackec_name_pres; /* ack event cond name present */ + ST_CHAR ackec_name_tag; /* 0 : ack event condition name */ + /* 1 : undefined */ + OBJECT_NAME ackec_name; /* ack event cond name - for */ + /* ackec_name_tag = 0 only */ + SD_END_STRUCT + }; +typedef struct event_enrollment EVENT_ENROLLMENT; + +struct alarm_summary + { + OBJECT_NAME evcon_name; /* event condition name */ + ST_UCHAR severity; /* severity */ + ST_INT16 cur_state; /* current state */ + /* 0 : disabled */ + /* 1 : idle */ + /* 2 : active */ + ST_INT16 unack_state; /* unacknowledged state */ + /* 0 : none */ + /* 1 : active */ + /* 2 : idle */ + /* 3 : both */ + ST_BOOLEAN addl_detail_pres; /* additional detail present */ + ST_INT addl_detail_len; /* length of additional detail */ + ST_UCHAR *addl_detail; /* pointer to additional detail */ + ST_BOOLEAN tta_time_pres; /* transition to active time */ + /* present */ + EVENT_TIME tta_time; /* transition to active time */ + ST_BOOLEAN tti_time_pres; /* transition to idle time */ + /* present */ + EVENT_TIME tti_time; /* transition to idle time */ + SD_END_STRUCT + }; +typedef struct alarm_summary ALARM_SUMMARY; + +struct alarm_enroll_summary + { + OBJECT_NAME evenroll_name; /* event enrollment name */ + ST_BOOLEAN client_app_pres; /* client application present */ + ST_INT client_app_len; /* client application length */ + ST_UCHAR *client_app; /* client application reference */ + ST_UCHAR severity; /* severity */ + ST_INT16 cur_state; /* current state */ + /* 0 : disabled */ + /* 1 : idle */ + /* 2 : active */ + ST_BOOLEAN addl_detail_pres; /* additional detail present */ + ST_INT addl_detail_len; /* length of additional detail */ + ST_UCHAR *addl_detail; /* pointer to additional detail */ + ST_BOOLEAN not_lost; /* notification lost */ + /* (default = false) */ + ST_INT16 alarm_ack_rule; /* alarm acknowledgment rule */ + /* 0 : none */ + /* 1 : simple */ + /* 2 : ack active */ + /* 3 : ack all */ + ST_BOOLEAN ee_state_pres; /* enrollment state present */ + ST_INT16 ee_state; /* enrollment state */ + /* 0 : disabled */ + /* 1 : idle */ + /* 2 : active */ + /* 3 : active, no ack a */ + /* 4 : idle, no ack i */ + /* 5 : idle, no ack a */ + /* 6 : idle, acked */ + /* 7 : active, acked */ + ST_BOOLEAN tta_time_pres; /* transition to active time */ + /* present */ + EVENT_TIME tta_time; /* transition to active time */ + ST_BOOLEAN aack_time_pres; /* active acknowledgment time */ + /* present */ + EVENT_TIME aack_time; /* active acknowledgment time */ + ST_BOOLEAN tti_time_pres; /* transition to idle time */ + /* present */ + EVENT_TIME tti_time; /* transition to idle time */ + ST_BOOLEAN iack_time_pres; /* idle acknowledgment time */ + /* present */ + EVENT_TIME iack_time; /* idle acknowledgment time */ + SD_END_STRUCT + }; +typedef struct alarm_enroll_summary ALARM_ENROLL_SUMMARY; + + +/************************************************************************/ +/************************************************************************/ +/* DEFINE EVENT CONDITION */ +/************************************************************************/ + +/* REQUEST : */ + +struct defec_req_info + { + OBJECT_NAME evcon_name; /* event condition name */ + ST_INT16 eclass; /* event condition class: */ + ST_UCHAR priority; /* priority */ + /* 0 - highest */ + /* 64 - normal (default) */ + /* 127 - lowest */ + ST_UCHAR severity; /* severity (default = 64) */ + ST_BOOLEAN as_reports_pres; /* alarm summaray rpts present */ + ST_BOOLEAN as_reports; /* alarm summaray reports */ + ST_BOOLEAN mon_var_pres; /* monitored variable present */ + VARIABLE_SPEC var_ref; /* variable reference */ + ST_BOOLEAN eval_int_pres; /* evaluation interval present */ + ST_UINT32 eval_interval; /* evaluation interval */ + SD_END_STRUCT + }; +typedef struct defec_req_info DEFEC_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_defec (ST_INT chan, DEFEC_REQ_INFO *info); +ST_RET mp_defec_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_defec (DEFEC_REQ_INFO *info); +ST_RET mpl_defec_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* DELETE EVENT CONDITION */ +/************************************************************************/ + +/* REQUEST : */ + +struct delec_req_info + { + ST_INT16 req_tag; /* request tag */ + /* 0 : specific */ + /* 1 : aa specific */ + /* 2 : domain */ + /* 3 : vmd */ + ST_CHAR dname [MAX_IDENT_LEN+1]; /* domain name, if req_tag = 2 */ + ST_INT num_of_names; /* number of names, if tag = 0 */ +/* list of object names */ +/* OBJECT_NAME name_list [num_of_names]; */ + SD_END_STRUCT + }; +typedef struct delec_req_info DELEC_REQ_INFO; + +/* RESPONSE : */ + +struct delec_resp_info + { + ST_UINT32 cand_not_deleted; /* canditates not deleted */ + }; +typedef struct delec_resp_info DELEC_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_delec (ST_INT chan, DELEC_REQ_INFO *info); +ST_RET mp_delec_resp (MMSREQ_IND *ind, DELEC_RESP_INFO *info); +#else +ST_RET mpl_delec (DELEC_REQ_INFO *info); +ST_RET mpl_delec_resp (ST_UINT32 invoke, DELEC_RESP_INFO *info); +#endif + +/************************************************************************/ +/* GET EVENT CONDITION ATTRIBUTES */ +/************************************************************************/ + +/* REQUEST : */ + +struct geteca_req_info + { + OBJECT_NAME evcon_name; /* event condition name */ + }; +typedef struct geteca_req_info GETECA_REQ_INFO; + +/* RESPONSE : */ + +struct geteca_resp_info + { + ST_BOOLEAN mms_deletable; /* mms deletable */ + ST_INT16 eclass; /* event condition class: */ + ST_UCHAR priority; /* priority */ + /* 0 - highest */ + /* 64 - normal (default) */ + /* 127 - lowest */ + ST_UCHAR severity; /* severity */ + /* 0 - highest */ + /* 64 - normal (default) */ + /* 127 - lowest */ + ST_BOOLEAN as_reports; /* alarm summaray reports */ + ST_BOOLEAN mon_var_pres; /* monitored variable present */ + ST_INT16 mon_var_tag; /* monitored variable tag */ + /* 0 : variable reference */ + /* 1 : undefined (NULL) */ + VARIABLE_SPEC var_ref; /* variable reference */ + ST_BOOLEAN eval_int_pres; /* evaluation interval present */ + ST_UINT32 eval_interval; /* evaluation interval */ + SD_END_STRUCT + }; +typedef struct geteca_resp_info GETECA_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_geteca (ST_INT chan, GETECA_REQ_INFO *info); +ST_RET mp_geteca_resp (MMSREQ_IND *ind, GETECA_RESP_INFO *info); +#else +ST_RET mpl_geteca (GETECA_REQ_INFO *info); +ST_RET mpl_geteca_resp (ST_UINT32 invoke, GETECA_RESP_INFO *info); +#endif + +/************************************************************************/ +/* REPORT EVENT CONDITION STATUS */ +/************************************************************************/ + +/* REQUEST : */ + +struct repecs_req_info + { + OBJECT_NAME evcon_name; /* event condition name */ + }; +typedef struct repecs_req_info REPECS_REQ_INFO; + +/* RESPONSE : */ + +struct repecs_resp_info + { + ST_INT16 cur_state; /* event condition state: */ + /* 0 - disabled */ + /* 1 - idle */ + /* 2 - active */ + ST_UINT32 num_of_ev_enroll; /* number of event enrollments */ + ST_BOOLEAN enabled_pres; /* enabled indicator present */ + ST_BOOLEAN enabled; /* enabled indicator */ + ST_BOOLEAN tta_time_pres; /* transition to active present */ + EVENT_TIME tta_time; /* transition to active time */ + ST_BOOLEAN tti_time_pres; /* transition to idle present */ + EVENT_TIME tti_time; /* transition to idle time */ + SD_END_STRUCT + }; +typedef struct repecs_resp_info REPECS_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_repecs (ST_INT chan, REPECS_REQ_INFO *info); +ST_RET mp_repecs_resp (MMSREQ_IND *ind, REPECS_RESP_INFO *info); +#else +ST_RET mpl_repecs (REPECS_REQ_INFO *info); +ST_RET mpl_repecs_resp (ST_UINT32 invoke, REPECS_RESP_INFO *info); +#endif + +/************************************************************************/ +/* ALTER EVENT CONDITION MONITORING */ +/************************************************************************/ + +/* REQUEST : */ + +struct altecm_req_info + { + OBJECT_NAME evcon_name; /* event condition name */ + ST_BOOLEAN enabled_pres; /* enabled present */ + ST_BOOLEAN enabled; /* enabled */ + ST_BOOLEAN priority_pres; /* priority present */ + ST_UCHAR priority; /* priority */ + /* 0 - highest */ + /* 64 - normal */ + /* 127 - lowest */ + ST_BOOLEAN as_reports_pres; /* alarm summaray rpts present */ + ST_BOOLEAN as_reports; /* alarm summaray reports */ + ST_BOOLEAN eval_int_pres; /* evaluation interval present */ + ST_UINT32 eval_int; /* evaluation interval */ + SD_END_STRUCT + }; +typedef struct altecm_req_info ALTECM_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_altecm (ST_INT chan, ALTECM_REQ_INFO *info); +ST_RET mp_altecm_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_altecm (ALTECM_REQ_INFO *info); +ST_RET mpl_altecm_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* TRIGGER EVENT */ +/************************************************************************/ + +/* REQUEST : */ + +struct trige_req_info + { + OBJECT_NAME evcon_name; /* event condition name */ + ST_BOOLEAN priority_pres; /* priority present */ + ST_UCHAR priority; /* priority */ + /* 0 - highest */ + /* 64 - normal */ + /* 127 - lowest */ + SD_END_STRUCT + }; +typedef struct trige_req_info TRIGE_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_trige (ST_INT chan, TRIGE_REQ_INFO *info); +ST_RET mp_trige_resp (MMSREQ_IND *info); +#else +ST_RET mpl_trige (TRIGE_REQ_INFO *info); +ST_RET mpl_trige_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* DEFINE EVENT ACTION */ +/************************************************************************/ + +/* REQUEST : */ + +struct defea_req_info + { + OBJECT_NAME evact_name; /* event action name */ + ST_INT conf_serv_req_len; /* confirmed service req length */ + ST_UCHAR *conf_serv_req; /* confirmed service request */ + ST_BOOLEAN modlist_pres; /* list of modifiers present */ + ST_INT num_of_modifiers; /* number of modifiers */ + ST_BOOLEAN cs_rdetail_pres; /* CS request detail present */ + ST_INT cs_rdetail_len; /* CS request detail length */ + ST_UCHAR *cs_rdetail; /* CS request detail pointer */ +/* list of modifiers */ +/* MODIFIER mod_list [num_of_modifiers]; */ + SD_END_STRUCT + }; +typedef struct defea_req_info DEFEA_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_defea (ST_INT chan, DEFEA_REQ_INFO *info); +ST_RET mp_defea_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_defea (DEFEA_REQ_INFO *info); +ST_RET mpl_defea_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* DELETE EVENT ACTION */ +/************************************************************************/ + +/* REQUEST : */ + +struct delea_req_info + { + ST_INT16 req_tag; /* request tag */ + /* 0 : specific */ + /* 1 : aa specific */ + /* 2 : domain */ + /* 3 : vmd */ + ST_CHAR dname [MAX_IDENT_LEN+1]; /* domain name, if req_tag = 2 */ + ST_INT num_of_names; /* number of names, if tag = 0 */ +/* list of object names */ +/* OBJECT_NAME name_list [num_of_names]; */ + SD_END_STRUCT + }; +typedef struct delea_req_info DELEA_REQ_INFO; + +/* RESPONSE : */ + +struct delea_resp_info + { + ST_UINT32 cand_not_deleted; /* canditates not deleted */ + }; +typedef struct delea_resp_info DELEA_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_delea (ST_INT chan, DELEA_REQ_INFO *info); +ST_RET mp_delea_resp (MMSREQ_IND *ind, DELEA_RESP_INFO *info); +#else +ST_RET mpl_delea (DELEA_REQ_INFO *info); +ST_RET mpl_delea_resp (ST_UINT32 invoke, DELEA_RESP_INFO *info); +#endif + +/************************************************************************/ +/* GET EVENT ACTION ATTRIBUTES */ +/************************************************************************/ + +/* REQUEST : */ + +struct geteaa_req_info + { + OBJECT_NAME evact_name; /* event action name */ + }; +typedef struct geteaa_req_info GETEAA_REQ_INFO; + +/* RESPONSE : */ + +struct geteaa_resp_info + { + ST_BOOLEAN mms_deletable; /* mms deletable (def = false) */ + ST_INT conf_serv_req_len; /* confirmed service req length */ + ST_UCHAR *conf_serv_req; /* confirmed service request */ + ST_BOOLEAN cs_rdetail_pres; /* CS request detail present */ + ST_INT cs_rdetail_len; /* CS request detail length */ + ST_UCHAR *cs_rdetail; /* CS request detail pointer */ + ST_INT num_of_modifiers; /* number of modifiers */ +/* list of modifiers */ +/* MODIFIER mod_list [num_of_modifiers]; */ + SD_END_STRUCT + }; +typedef struct geteaa_resp_info GETEAA_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_geteaa (ST_INT chan, GETEAA_REQ_INFO *info); +ST_RET mp_geteaa_resp (MMSREQ_IND *ind, GETEAA_RESP_INFO *info); +#else +ST_RET mpl_geteaa (GETEAA_REQ_INFO *info); +ST_RET mpl_geteaa_resp (ST_UINT32 invoke, GETEAA_RESP_INFO *info); +#endif + +/************************************************************************/ +/* REPORT EVENT ACTION STATUS */ +/************************************************************************/ + +/* REQUEST : */ + +struct repeas_req_info + { + OBJECT_NAME evact_name; /* event action name */ + }; +typedef struct repeas_req_info REPEAS_REQ_INFO; + +/* RESPONSE : */ + +struct repeas_resp_info + { + ST_UINT32 num_of_ev_enroll; /* number of event enrollments */ + }; +typedef struct repeas_resp_info REPEAS_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_repeas (ST_INT chan, REPEAS_REQ_INFO *info); +ST_RET mp_repeas_resp (MMSREQ_IND *ind, REPEAS_RESP_INFO *info); +#else +ST_RET mpl_repeas (REPEAS_REQ_INFO *info); +ST_RET mpl_repeas_resp (ST_UINT32 invoke, REPEAS_RESP_INFO *info); +#endif + +/************************************************************************/ +/* DEFINE EVENT ENROLLMENT */ +/************************************************************************/ + +/* REQUEST : */ + +struct defee_req_info + { + OBJECT_NAME evenroll_name; /* event enrollment name */ + OBJECT_NAME evcon_name; /* event condition name */ + ST_UCHAR ec_transitions; /* causing transitions: */ + /* bitstring */ + /* 0 : idle to disabled */ + /* 1 : active to disabled */ + /* 2 : disabled to idle */ + /* 3 : active to idle */ + /* 4 : disabled to active */ + /* 5 : idle to active */ + /* 6 : any to deleted */ + ST_INT16 alarm_ack_rule; /* alarm acknowledgment rule */ + /* 0 : none */ + /* 1 : simple */ + /* 2 : ack active */ + /* 3 : ack all */ + ST_BOOLEAN evact_name_pres; /* event action name present */ + OBJECT_NAME evact_name; /* event action name */ + ST_BOOLEAN client_app_pres; /* client application present */ + ST_INT client_app_len; /* client application length */ + ST_UCHAR *client_app; /* client application reference */ + ST_BOOLEAN ackec_name_pres; /* ack event cond name present */ + OBJECT_NAME ackec_name; /* acknowledge event cond name */ + SD_END_STRUCT + }; +typedef struct defee_req_info DEFEE_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_defee (ST_INT chan, DEFEE_REQ_INFO *info); +ST_RET mp_defee_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_defee (DEFEE_REQ_INFO *info); +ST_RET mpl_defee_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* DELETE EVENT ENROLLMENT */ +/************************************************************************/ + +/* REQUEST : */ + +struct delee_req_info + { + ST_INT16 req_tag; /* request tag */ + /* 0 : specific */ + /* 1 : event condition */ + /* 2 : event action */ + union + { + OBJECT_NAME evcon_name; /* event condition name */ + OBJECT_NAME evact_name; /* event action name */ + ST_INT num_of_names; /* number of object names */ + } sod; +/* list of object names */ +/* OBJECT_NAME name_list [num_of_names]; */ + SD_END_STRUCT + }; +typedef struct delee_req_info DELEE_REQ_INFO; + +/* RESPONSE : */ + +struct delee_resp_info + { + ST_UINT32 cand_not_deleted; /* canditates not deleted */ + }; +typedef struct delee_resp_info DELEE_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_delee (ST_INT chan, DELEE_REQ_INFO *info); +ST_RET mp_delee_resp (MMSREQ_IND *ind, DELEE_RESP_INFO *info); +#else +ST_RET mpl_delee (DELEE_REQ_INFO *info); +ST_RET mpl_delee_resp (ST_UINT32 invoke, DELEE_RESP_INFO *info); +#endif + +/************************************************************************/ +/* GET EVENT ENROLLMENT ATTRIBUTES */ +/************************************************************************/ + +/* REQUEST : */ + +struct geteea_req_info + { + ST_INT16 scope_of_req; /* scope of request */ + /* 0 : specific */ + /* 1 : client (default) */ + /* 2 : event condition */ + /* 3 : event action */ + ST_BOOLEAN client_app_pres; /* client application present */ + ST_INT client_app_len; /* client application length */ + ST_UCHAR *client_app; /* client application reference */ + ST_BOOLEAN evcon_name_pres; /* event condition name present */ + OBJECT_NAME evcon_name; /* event condition name */ + ST_BOOLEAN evact_name_pres; /* event action name present */ + OBJECT_NAME evact_name; /* event action name */ + ST_BOOLEAN ca_name_pres; /* continue after name present */ + OBJECT_NAME ca_name; /* continue after name */ + ST_BOOLEAN eenames_pres; /* event enroll names present */ + ST_INT num_of_eenames; /* number of event enroll names */ +/* list of event enroll names */ +/* OBJECT_NAME name_list [num_of_eenames]; */ + SD_END_STRUCT + }; +typedef struct geteea_req_info GETEEA_REQ_INFO; + +/* RESPONSE : */ + +struct geteea_resp_info + { + ST_BOOLEAN more_follows; /* default = false */ + ST_INT num_of_evenroll; /* number of event enrollments */ +/* list of event enrollments */ +/* EVENT_ENROLLMENT evenroll_list [num_of_evenroll]; */ + SD_END_STRUCT + }; +typedef struct geteea_resp_info GETEEA_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_geteea (ST_INT chan, GETEEA_REQ_INFO *info); +ST_RET mp_geteea_resp (MMSREQ_IND *ind, GETEEA_RESP_INFO *info); +#else +ST_RET mpl_geteea (GETEEA_REQ_INFO *info); +ST_RET mpl_geteea_resp (ST_UINT32 invoke, GETEEA_RESP_INFO *info); +#endif + +/************************************************************************/ +/* REPORT EVENT ENROLLMENT STATUS */ +/************************************************************************/ + +/* REQUEST : */ + +struct repees_req_info + { + OBJECT_NAME evenroll_name; /* event enrollment name */ + }; +typedef struct repees_req_info REPEES_REQ_INFO; + +/* RESPONSE : */ + +struct repees_resp_info + { + ST_UCHAR ec_transitions; /* event condition transitions: */ + /* bitstring */ + /* 0 : idle to disabled */ + /* 1 : active to disabled */ + /* 2 : disabled to idle */ + /* 3 : active to idle */ + /* 4 : disabled to active */ + /* 5 : idle to active */ + /* 6 : any to deleted */ + ST_UCHAR not_lost; /* notification lost */ + /* (default = false) */ + ST_INT16 duration; /* duration: */ + /* 0 - current (default) */ + /* 1 - permanent */ + ST_BOOLEAN alarm_ack_rule_pres; /* alarm ack rule present */ + ST_INT16 alarm_ack_rule; /* alarm acknowledgment rule */ + /* 0 : none */ + /* 1 : simple */ + /* 2 : ack active */ + /* 3 : ack all */ + ST_INT16 cur_state; /* current state */ + /* 0 : disabled */ + /* 1 : idle */ + /* 2 : active */ + /* 3 : active, no ack a */ + /* 4 : idle, no ack i */ + /* 5 : idle, no ack a */ + /* 6 : idle, acked */ + /* 7 : active, acked */ + }; +typedef struct repees_resp_info REPEES_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_repees (ST_INT chan, REPEES_REQ_INFO *info); +ST_RET mp_repees_resp (MMSREQ_IND *ind, REPEES_RESP_INFO *info); +#else +ST_RET mpl_repees (REPEES_REQ_INFO *info); +ST_RET mpl_repees_resp (ST_UINT32 invoke, REPEES_RESP_INFO *info); +#endif + +/************************************************************************/ +/* ALTER EVENT ENROLLMENT */ +/************************************************************************/ + +/* REQUEST : */ + +struct altee_req_info + { + OBJECT_NAME evenroll_name; /* event enrollment name */ + ST_BOOLEAN ec_transitions_pres; /* ec transitions present */ + ST_UCHAR ec_transitions; /* event condition transitions: */ + /* bitstring */ + /* 0 : idle to disabled */ + /* 1 : active to disabled */ + /* 2 : disabled to idle */ + /* 3 : active to idle */ + /* 4 : disabled to active */ + /* 5 : idle to active */ + /* 6 : any to deleted */ + ST_BOOLEAN alarm_ack_rule_pres; /* alarm ack rule present */ + ST_INT16 alarm_ack_rule; /* alarm acknowledgment rule */ + /* 0 : none */ + /* 1 : simple */ + /* 2 : ack active */ + /* 3 : ack all */ + SD_END_STRUCT + }; +typedef struct altee_req_info ALTEE_REQ_INFO; + +/* RESPONSE : */ + +struct altee_resp_info + { + ST_INT16 cur_state_tag; /* current state tag */ + /* 0 : state */ + /* 1 : undefined */ + ST_INT16 state; /* state, if cur_state_tag = 0 */ + /* 0 : disabled */ + /* 1 : idle */ + /* 2 : active */ + /* 3 : active, no ack a */ + /* 4 : idle, no ack i */ + /* 5 : idle, no ack a */ + /* 6 : idle, acked */ + /* 7 : active, acked */ + EVENT_TIME trans_time; /* transition time */ + SD_END_STRUCT + }; +typedef struct altee_resp_info ALTEE_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_altee (ST_INT chan, ALTEE_REQ_INFO *info); +ST_RET mp_altee_resp (MMSREQ_IND *ind, ALTEE_RESP_INFO *info); +#else +ST_RET mpl_altee (ALTEE_REQ_INFO *info); +ST_RET mpl_altee_resp (ST_UINT32 invoke, ALTEE_RESP_INFO *info); +#endif + +/************************************************************************/ +/* EVENT NOTIFICATION, Conformance: MCW1 (EVN3) */ +/************************************************************************/ + +/* REQUEST : */ + +struct evnot_req_info + { + OBJECT_NAME evenroll_name; /* event enrollment name */ + OBJECT_NAME evcon_name; /* event condition name */ + ST_UCHAR severity; /* severity */ + ST_BOOLEAN cur_state_pres; /* current state enable */ + ST_INT16 cur_state; /* current state */ + /* 0 : disabled */ + /* 1 : idle */ + /* 2 : active */ + EVENT_TIME trans_time; /* transition time */ + ST_UCHAR not_lost; /* notification lost */ + /* (default = false) */ + ST_BOOLEAN alarm_ack_rule_pres; /* alarm acknowledge rule pres */ + ST_INT16 alarm_ack_rule; /* alarm acknowledgment rule */ + /* 0 : none */ + /* 1 : simple */ + /* 2 : ack-active */ + /* 3 : ack-all */ + ST_BOOLEAN evact_result_pres; /* action result present */ + OBJECT_NAME evact_name; /* event action name */ + ST_INT16 evact_result_tag; /* event action result tag */ + /* 0 : success */ + /* 1 : failure */ + ST_INT conf_serv_resp_len; /* success: conf serv resp len */ + ST_UCHAR *conf_serv_resp; /* success: conf serv resp ptr */ + ST_BOOLEAN cs_rdetail_pres; /* success: CS resp detail pres */ + ST_INT cs_rdetail_len; /* success: CS resp detail len */ + ST_UCHAR *cs_rdetail; /* success: CS resp detail ptr */ + + ST_BOOLEAN mod_pos_pres; /* failure: mod pos present */ + ST_UINT32 mod_pos; /* failure: modifier position */ + ERR_INFO *serv_err; /* failure: service error ptr */ + + SD_END_STRUCT + }; +typedef struct evnot_req_info EVNOT_REQ_INFO; + +/* RESPONSE : NONE (unconfirmed) */ + +#ifndef MMS_LITE +ST_RET mp_evnot (ST_INT chan, EVNOT_REQ_INFO *info); +#else +ST_RET mpl_evnot (ASN1_ENC_CTXT *aCtx, EVNOT_REQ_INFO *info); +#endif + +/************************************************************************/ +/* ACKNOWLEDGE EVENT NOTIFICATION, Conformance: MCW1 (EVN3) */ +/************************************************************************/ + +/* REQUEST : */ + +struct ackevnot_req_info + { + OBJECT_NAME evenroll_name; /* event enrollment name */ + ST_INT16 ack_state; /* acknowledge state */ + EVENT_TIME evtime; /* event time */ + ST_BOOLEAN ackec_name_pres; /* ack event cond name present */ + OBJECT_NAME ackec_name; /* acknowledge event cond name */ + }; +typedef struct ackevnot_req_info ACKEVNOT_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_ackevnot (ST_INT chan, ACKEVNOT_REQ_INFO *info); +ST_RET mp_ackevnot_resp (MMSREQ_IND *info); +#else +ST_RET mpl_ackevnot (ACKEVNOT_REQ_INFO *info); +ST_RET mpl_ackevnot_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* GET ALARM SUMMARY, Conformance: EVN5 */ +/************************************************************************/ + +/* REQUEST : */ + +struct getas_req_info + { + ST_BOOLEAN enroll_only; /* enrollments only */ + /* (default = true) */ + ST_BOOLEAN act_alarms_only; /* active alarms only */ + /* (default = true) */ + ST_INT16 ack_filter; /* acknowledgement filter */ + /* 0 : not acked (default) */ + /* 1 : acked */ + /* 2 : all */ + /* severity filter */ + ST_UCHAR most_sev_filter; /* most severe (default=0) */ + ST_UCHAR least_sev_filter; /* least severe (default=127) */ + ST_BOOLEAN ca_pres; /* continue after name present */ + OBJECT_NAME ca_name; /* continue after name */ + }; +typedef struct getas_req_info GETAS_REQ_INFO; + +/* RESPONSE : */ + +struct getas_resp_info + { + ST_BOOLEAN more_follows; /* default = false */ + ST_INT num_of_alarm_sum; /* number of alarm summary */ +/* list of alarm summary data */ +/* ALARM_SUMMARY alarm_sum [num_of_alarm_sum]; */ + SD_END_STRUCT + }; +typedef struct getas_resp_info GETAS_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_getas (ST_INT chan, GETAS_REQ_INFO *info); +ST_RET mp_getas_resp (MMSREQ_IND *ind, GETAS_RESP_INFO *info); +#else +ST_RET mpl_getas (GETAS_REQ_INFO *info); +ST_RET mpl_getas_resp (ST_UINT32 invoke, GETAS_RESP_INFO *info); +#endif + +/************************************************************************/ +/* GET ALARM ENROLLMENT SUMMARY */ +/************************************************************************/ + +/* REQUEST : */ + +struct getaes_req_info + { + ST_BOOLEAN enroll_only; /* enrollments only */ + /* (default = true) */ + ST_BOOLEAN act_alarms_only; /* active alarms only */ + /* (default = true) */ + ST_INT16 ack_filter; /* acknowledgement filter */ + /* 0 : not acked (default) */ + /* 1 : acked */ + /* 2 : all */ + /* severity filter */ + ST_UCHAR most_sev_filter; /* most severe (default=0) */ + ST_UCHAR least_sev_filter; /* least severe (default=127) */ + ST_BOOLEAN ca_name_pres; /* continue after name present */ + OBJECT_NAME ca_name; /* continue after name */ + }; +typedef struct getaes_req_info GETAES_REQ_INFO; + +/* RESPONSE : */ + +struct getaes_resp_info + { + ST_BOOLEAN more_follows; /* default = false */ + ST_INT num_of_alarm_esum; /* # of alarm enroll summary */ +/* list of alarm enroll summary */ +/* ALARM_ENROLL_SUMMARY alarm_enroll_sum [num_of_alarm_esum]; */ + SD_END_STRUCT + }; +typedef struct getaes_resp_info GETAES_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_getaes (ST_INT chan, GETAES_REQ_INFO *info); +ST_RET mp_getaes_resp (MMSREQ_IND *ind, GETAES_RESP_INFO *info); +#else +ST_RET mpl_getaes (GETAES_REQ_INFO *info); +ST_RET mpl_getaes_resp (ST_UINT32 invoke, GETAES_RESP_INFO *info); +#endif + +#ifdef __cplusplus +} +#endif + +#endif /* #define MMS_PEVN_INCLUDED */ diff --git a/mmslib/inc/mms_pfil.h b/mmslib/inc/mms_pfil.h new file mode 100644 index 0000000..f1cf773 --- /dev/null +++ b/mmslib/inc/mms_pfil.h @@ -0,0 +1,297 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 1997, All Rights Reserved. */ +/* */ +/* MODULE NAME : mms_pfil.h */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This file has the data structures and function definitions */ +/* required to interface with MMS file services at the primitive */ +/* level. */ +/* */ +/* Parameters : In general, the first parameter is the channel */ +/* that the request or response is to be sent over. */ +/* For Responses, the second parameter is the Invoke */ +/* ID to be used. The last parameter is used to pass */ +/* operation specific information by pointer. */ +/* */ +/* Return */ +/* Values : Request functions return a pointer to the pending */ +/* request tracking structure, of type MMSREQ_PEND. */ +/* In case of error, the pointer is returned == 0 */ +/* and mms_op_err is written with the err code. */ +/* Response functions return 0 if OK, else an error */ +/* code. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 08/14/97 RKR 01 Format changes */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef MMS_PFIL_INCLUDED +#define MMS_PFIL_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "mms_mp.h" + +/************************************************************************/ +/************************************************************************/ +/* FILE MANAGEMENT SERVICES */ +/************************************************************************/ +/* The structures below are used to pass FILE MANAGEMENT information */ +/* to/from the MMS primitives. */ +/************************************************************************/ + +#define MFSTAT_NO_ACT 0 +#define MFSTAT_PEND_OPEN 1 +#define MFSTAT_OPENED 2 +#define MFSTAT_PEND_CLOSE 3 + +/************************************************************************/ +/* OBTAIN FILE, Conformance: FIL1 */ +/************************************************************************/ + +/* REQUEST : */ + +struct obtfile_req_info + { + ST_BOOLEAN ar_title_pres; /* application title present */ + ST_INT ar_len; /* length of app proc title */ + ST_UCHAR *ar_title; /* application process title */ + ST_INT num_of_src_fname; /* num of source fname elements */ + ST_INT num_of_dest_fname; /* num of dest. fname elements */ +/* list of source file names */ +/* FILE_NAME src_fname_list[ num_of_src_fname ]; */ +/* list of dest. file names */ +/* FILE_NAME dest_fname_list[ num_of_dest_fname ]; */ + SD_END_STRUCT + }; +typedef struct obtfile_req_info OBTFILE_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_obtfile (ST_INT chan, OBTFILE_REQ_INFO *info); +ST_RET mp_obtfile_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_obtfile (OBTFILE_REQ_INFO *info); +ST_RET mpl_obtfile_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* FILE OPEN, Conformance: FIL2 */ +/************************************************************************/ + +/* REQUEST : */ + +struct fopen_req_info + { + ST_INT num_of_fname; /* num of fname elements */ + ST_UINT32 init_pos; /* initial position */ +/* list of file names */ +/* FILE_NAME fname_list[ num_of_fname ]; */ + SD_END_STRUCT + }; +typedef struct fopen_req_info FOPEN_REQ_INFO; + +/* RESPONSE : */ + +struct file_attr + { + ST_UINT32 fsize; /* file size (# bytes) */ + ST_BOOLEAN mtimpres; /* last modified time present */ + time_t mtime; /* last modified time */ + }; +typedef struct file_attr FILE_ATTR; + +struct fopen_resp_info + { + ST_INT32 frsmid; /* file read state machine ID */ + FILE_ATTR ent; /* file attributes */ + }; +typedef struct fopen_resp_info FOPEN_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_fopen (ST_INT chan, FOPEN_REQ_INFO *info); +ST_RET mp_fopen_resp (MMSREQ_IND *ind, FOPEN_RESP_INFO *info); +#else +ST_RET mpl_fopen (FOPEN_REQ_INFO *info); +ST_RET mpl_fopen_resp (ST_UINT32 invoke, FOPEN_RESP_INFO *info); +#endif + +/************************************************************************/ +/* FILE READ, Conformance: FIL2 */ +/************************************************************************/ + +/* REQUEST : */ + +struct fread_req_info + { + ST_INT32 frsmid; /* file read state maching ID */ + }; +typedef struct fread_req_info FREAD_REQ_INFO; + +/* RESPONSE : */ + +struct fread_resp_info + { + ST_INT fd_len; /* length of file data octets */ + ST_UCHAR *filedata; /* pointer to file data octets */ + ST_BOOLEAN more_follows; /* additional file content */ + /* default: SD_TRUE */ + SD_END_STRUCT + }; +typedef struct fread_resp_info FREAD_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_fread (ST_INT chan,FREAD_REQ_INFO *info); +ST_RET mp_fread_resp (MMSREQ_IND *ind, FREAD_RESP_INFO *info); +#else +ST_RET mpl_fread (FREAD_REQ_INFO *info); +ST_RET mpl_fread_resp (ST_UINT32 invoke, FREAD_RESP_INFO *info); +#endif + +/************************************************************************/ +/* FILE CLOSE, Conformance: FIL2 */ +/************************************************************************/ + +/* REQUEST : */ + +struct fclose_req_info + { + ST_INT32 frsmid; /* file read state maching ID */ + }; +typedef struct fclose_req_info FCLOSE_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_fclose (ST_INT chan, FCLOSE_REQ_INFO *info); +ST_RET mp_fclose_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_fclose (FCLOSE_REQ_INFO *info); +ST_RET mpl_fclose_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* FILE RENAME, Conformance: FIL3 */ +/************************************************************************/ + +/* REQUEST : */ + +struct frename_req_info + { + ST_INT num_of_cur_fname; /* num of current fname elements*/ + ST_INT num_of_new_fname; /* num of new fname elements */ +/* list of current file names */ +/* FILE_NAME cur_fname_list[ num_of_cur_fname ]; */ +/* list of new file names */ +/* FILE_NAME new_fname_list[ num_of_new_fname ]; */ + SD_END_STRUCT + }; +typedef struct frename_req_info FRENAME_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_frename (ST_INT chan, FRENAME_REQ_INFO *info); +ST_RET mp_frename_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_frename (FRENAME_REQ_INFO *info); +ST_RET mpl_frename_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* FILE DELETE, Conformance: FIL3 */ +/************************************************************************/ + +/* REQUEST : */ + +struct fdelete_req_info + { + ST_INT num_of_fname; /* num of fname elements */ +/* list of file names */ +/* FILE_NAME fname_list[ num_of_fname ]; */ + SD_END_STRUCT + }; +typedef struct fdelete_req_info FDELETE_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_fdelete (ST_INT chan, FDELETE_REQ_INFO *info); +ST_RET mp_fdelete_resp (MMSREQ_IND *info); +#else +ST_RET mpl_fdelete (FDELETE_REQ_INFO *info); +ST_RET mpl_fdelete_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* FILE DIRECTORY, Conformance: FIL3 */ +/************************************************************************/ + +/* REQUEST : */ + +struct fdir_req_info + { + ST_BOOLEAN filespec_pres; /* file specification present */ + ST_BOOLEAN cont_after_pres; /* continue after name present */ + ST_INT num_of_fs_fname; /* num of fname elements */ + ST_INT num_of_ca_fname; /* num of cont after elements */ +/* list of current file names */ +/* FILE_NAME fs_fname_list[ num_of_fs_fname ]; */ +/* list of new file names */ +/* FILE_NAME ca_fname_list[ num_of_ca_fname ]; */ + SD_END_STRUCT + }; +typedef struct fdir_req_info FDIR_REQ_INFO; + +/* RESPONSE : */ + +struct fdir_dir_ent + { + ST_UINT32 fsize; /* file size (# bytes) */ + ST_BOOLEAN mtimpres; /* last modified time present */ + time_t mtime; /* last modified time */ + ST_INT num_of_fname; /* num of fname elements */ +/* list of file names */ +/* FILE_NAME fname_list[ num_of_fname ]; */ + SD_END_STRUCT + }; +typedef struct fdir_dir_ent FDIR_DIR_ENT; + +struct fdir_resp_info + { + ST_INT num_dir_ent; /* number of directory entries */ + ST_BOOLEAN more_follows; /* more dir entries follow */ + /* default: SD_FALSE */ +/* list of directory entries */ +/* FDIR_DIR_ENT dir_ent_list [num_dir_ent] */ + SD_END_STRUCT + }; +typedef struct fdir_resp_info FDIR_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_fdir (ST_INT chan,FDIR_REQ_INFO *info); +ST_RET mp_fdir_resp (MMSREQ_IND *ind, FDIR_RESP_INFO *info); +#else +ST_RET mpl_fdir (FDIR_REQ_INFO *info); +ST_RET mpl_fdir_resp (ST_UINT32 invoke, FDIR_RESP_INFO *info); +#endif + +#ifdef __cplusplus +} +#endif + +#endif /* #define MMS_PFIL_INCLUDED */ + + diff --git a/mmslib/inc/mms_pjou.h b/mmslib/inc/mms_pjou.h new file mode 100644 index 0000000..3c7ea62 --- /dev/null +++ b/mmslib/inc/mms_pjou.h @@ -0,0 +1,299 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 1997, All Rights Reserved. */ +/* */ +/* MODULE NAME : mms_pjou.h */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This file has the data structures and function definitions */ +/* required to interface with MMS journal management services */ +/* at the primitive level. */ +/* */ +/* Parameters : In general, the first parameter is the channel */ +/* that the request or response is to be sent over. */ +/* For Responses, the second parameter is the Invoke */ +/* ID to be used. The last parameter is used to pass */ +/* operation specific information by pointer. */ +/* */ +/* Return */ +/* Values : Request functions return a pointer to the pending */ +/* request tracking structure, of type MMSREQ_PEND. */ +/* In case of error, the pointer is returned == 0 */ +/* and mms_op_err is written with the err code. */ +/* Response functions return 0 if OK, else an error */ +/* code. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 07/15/98 MDE 03 Added entry_form_tag defines */ +/* 08/15/97 MDE 02 BTOD handling changes */ +/* 08/14/97 RKR 01 Format changes */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef MMS_PJOU_INCLUDED +#define MMS_PJOU_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "mms_pvar.h" +#include "mms_mp.h" + +/************************************************************************/ +/************************************************************************/ +/* JOURNAL MANAGEMENT SERVICES */ +/************************************************************************/ +/* The structures below are used to pass JOURNAL MANAGEMENT information */ +/* to/from the MMS primitives. */ +/************************************************************************/ + +/* entry_form_tag value defines */ +#define JE_FORM_DATA 2 +#define JE_FORM_ANNOTATION 3 + +struct var_info + { + ST_CHAR *var_tag; /* variable tag */ + VAR_ACC_DATA value_spec; /* value specification data */ + }; +typedef struct var_info VAR_INFO; + +struct entry_content + { + MMS_BTOD occur_time; /* occurrence time */ + ST_BOOLEAN addl_detail_pres; /* additional detail present */ + ST_INT addl_detail_len; /* length of additional detail */ + ST_UCHAR *addl_detail; /* pointer to additional detail */ + ST_INT16 entry_form_tag; /* entry form tag */ + union + { + struct /* entry form is DATA */ + { + ST_BOOLEAN event_pres; /* event present */ + OBJECT_NAME evcon_name; /* event condition name */ + ST_INT16 cur_state; /* current state */ + /* 0 : disabled */ + /* 1 : idle */ + /* 2 : active */ + ST_BOOLEAN list_of_var_pres; /* list of variables present */ + ST_INT num_of_var; /* number of variables */ + } data; + ST_CHAR *annotation; /* pointer to annotation */ + }ef; +/* for form == DATA, need a */ +/* list of variables */ +/* VAR_INFO list_of_var [num_of_var]; */ + SD_END_STRUCT + }; +typedef struct entry_content ENTRY_CONTENT; + +struct journal_entry + { + ST_INT entry_id_len; /* length of entry identifier */ + ST_UCHAR *entry_id; /* ptr to entry identifier */ + ST_INT orig_ae_len; /* originating app entity len */ + ST_UCHAR *orig_ae; /* originating app entity */ + ENTRY_CONTENT ent_content; /* entry content */ + }; +typedef struct journal_entry JOURNAL_ENTRY; + +/************************************************************************/ +/* READ JOURNAL, Conformance: JOU2 */ +/************************************************************************/ + +/* REQUEST : */ + +struct jread_req_info + { + OBJECT_NAME jou_name; /* journal name */ + ST_BOOLEAN range_start_pres; /* range start spec present */ + ST_INT16 start_tag; /* start tag */ + /* 0 - starting time */ + /* 1 - starting entry */ + MMS_BTOD start_time; /* range starting time */ + ST_INT start_entry_len; /* length of starting entry */ + ST_UCHAR *start_entry; /* pointer to starting entry */ + ST_BOOLEAN range_stop_pres; /* range stop spec present */ + ST_INT16 stop_tag; /* stop tag */ + /* 0 - ending time */ + /* 1 - number of entries */ + MMS_BTOD end_time; /* range ending time */ + ST_INT32 num_of_entries; /* number of entries */ + ST_BOOLEAN list_of_var_pres; /* list of variables present */ + ST_INT num_of_var; /* number of variables */ + ST_BOOLEAN sa_entry_pres; /* start after entry present */ + MMS_BTOD time_spec; /* time specification */ + ST_INT entry_spec_len; /* entry specification length */ + ST_UCHAR *entry_spec; /* entry specification */ +/* list of pointers to variables*/ +/* ST_CHAR *list_of_var [num_of_var]; */ + SD_END_STRUCT + }; +typedef struct jread_req_info JREAD_REQ_INFO; + +/* RESPONSE : */ + +struct jread_resp_info + { + ST_INT num_of_jou_entry; /* number of journal entries */ + ST_BOOLEAN more_follows; /* default = false */ +/* list of journal entries */ +/* JOURNAL_ENTRY list_of_jou_entry [num_of_jou_entry]; */ + SD_END_STRUCT + }; +typedef struct jread_resp_info JREAD_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_jread (ST_INT chan, JREAD_REQ_INFO *info); +ST_RET mp_jread_resp (MMSREQ_IND *ind, JREAD_RESP_INFO *info); +#else +ST_RET mpl_jread (JREAD_REQ_INFO *info); +ST_RET mpl_jread_resp (ST_UINT32 invoke, JREAD_RESP_INFO *info); +#endif + +/************************************************************************/ +/* WRITE JOURNAL, Conformance: JOU1 */ +/************************************************************************/ + +/* REQUEST : */ + +struct jwrite_req_info + { + OBJECT_NAME jou_name; /* journal name */ + ST_INT num_of_jou_entry; /* number of journal entries */ +/* list of journal entries */ +/* ENTRY_CONTENT list_of_jou_entry [num_of_jou_entry]; */ + SD_END_STRUCT + }; +typedef struct jwrite_req_info JWRITE_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_jwrite (ST_INT chan, JWRITE_REQ_INFO *info); +ST_RET mp_jwrite_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_jwrite (JWRITE_REQ_INFO *info); +ST_RET mpl_jwrite_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* INITIALIZE JOURNAL, Conformance: JOU2 */ +/************************************************************************/ + +/* REQUEST : */ + +struct jinit_req_info + { + OBJECT_NAME jou_name; /* journal name */ + ST_BOOLEAN limit_spec_pres; /* limit specification present */ + MMS_BTOD limit_time; /* limiting time */ + ST_BOOLEAN limit_entry_pres; /* limiting entry present */ + ST_INT limit_entry_len; /* length of limiting entry */ + ST_UCHAR *limit_entry; /* pointer to limiting entry */ + SD_END_STRUCT + }; +typedef struct jinit_req_info JINIT_REQ_INFO; + +/* RESPONSE : */ + +struct jinit_resp_info + { + ST_UINT32 del_entries; /* deleted entries */ + }; +typedef struct jinit_resp_info JINIT_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_jinit (ST_INT chan, JINIT_REQ_INFO *info); +ST_RET mp_jinit_resp (MMSREQ_IND *ind, JINIT_RESP_INFO *info); +#else +ST_RET mpl_jinit (JINIT_REQ_INFO *info); +ST_RET mpl_jinit_resp (ST_UINT32 invoke, JINIT_RESP_INFO *info); +#endif + +/************************************************************************/ +/* REPORT JOURNAL STATUS, Conformance: JOU2 */ +/************************************************************************/ + +/* REQUEST : */ + +struct jstat_req_info + { + OBJECT_NAME jou_name; /* journal name */ + }; +typedef struct jstat_req_info JSTAT_REQ_INFO; + +/* RESPONSE : */ + +struct jstat_resp_info + { + ST_UINT32 cur_entries; /* current entries */ + ST_BOOLEAN mms_deletable; /* MMS deletable */ + SD_END_STRUCT + }; +typedef struct jstat_resp_info JSTAT_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_jstat (ST_INT chan, JSTAT_REQ_INFO *info); +ST_RET mp_jstat_resp (MMSREQ_IND *ind, JSTAT_RESP_INFO *info); +#else +ST_RET mpl_jstat (JSTAT_REQ_INFO *info); +ST_RET mpl_jstat_resp (ST_UINT32 invoke, JSTAT_RESP_INFO *info); +#endif + +/************************************************************************/ +/* CREATE JOURNAL */ +/************************************************************************/ + +/* REQUEST : */ + +struct jcreate_req_info + { + OBJECT_NAME jou_name; /* journal name */ + }; +typedef struct jcreate_req_info JCREATE_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_jcreate (ST_INT chan, JCREATE_REQ_INFO *info); +ST_RET mp_jcreate_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_jcreate (JCREATE_REQ_INFO *info); +ST_RET mpl_jcreate_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* DELETE JOURNAL */ +/************************************************************************/ + +/* REQUEST : */ + +struct jdelete_req_info + { + OBJECT_NAME jou_name; /* journal name */ + }; +typedef struct jdelete_req_info JDELETE_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_jdelete (ST_INT chan, JDELETE_REQ_INFO *info); +ST_RET mp_jdelete_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_jdelete (JDELETE_REQ_INFO *info); +ST_RET mpl_jdelete_resp (ST_UINT32 invoke); +#endif + +#ifdef __cplusplus +} +#endif + +#endif /* #define MMS_PJOU_INCLUDED */ diff --git a/mmslib/inc/mms_pocs.h b/mmslib/inc/mms_pocs.h new file mode 100644 index 0000000..b52bff2 --- /dev/null +++ b/mmslib/inc/mms_pocs.h @@ -0,0 +1,120 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 1997, All Rights Reserved. */ +/* */ +/* MODULE NAME : mms_pocs.h */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This file has the data structures and function definitions */ +/* required to interface with MMS operator communication services */ +/* at the primitive level. */ +/* */ +/* Parameters : In general, the first parameter is the channel */ +/* that the request or response is to be sent over. */ +/* For Responses, the second parameter is the Invoke */ +/* ID to be used. The last parameter is used to pass */ +/* operation specific information by pointer. */ +/* */ +/* Return */ +/* Values : Request functions return a pointer to the pending */ +/* request tracking structure, of type MMSREQ_PEND. */ +/* In case of error, the pointer is returned == 0 */ +/* and mms_op_err is written with the err code. */ +/* Response functions return 0 if OK, else an error */ +/* code. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 08/14/97 RKR 01 Format changes */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef MMS_POCS_INCLUDED +#define MMS_POCS_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "mms_mp.h" + +/************************************************************************/ +/************************************************************************/ +/* OPERATOR COMMUNICATION FUNCTIONS */ +/************************************************************************/ +/* The structures below are used to pass OPERATOR COMMUNICATION */ +/* operation information to/from the MMS primitives. */ +/************************************************************************/ + +/************************************************************************/ +/* OUTPUT OPERATION, Conformance: OCS1 */ +/************************************************************************/ + +/* REQUEST : */ + +struct output_req_info + { + ST_CHAR station_name [MAX_IDENT_LEN+1]; /* operator station name */ + ST_INT data_count; /* number of data strings */ +/* list of pointers to the output data */ +/* ST_CHAR *output_data [data_count]; */ + SD_END_STRUCT + }; +typedef struct output_req_info OUTPUT_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_output (ST_INT chan, OUTPUT_REQ_INFO *info); +ST_RET mp_output_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_output (OUTPUT_REQ_INFO *info); +ST_RET mpl_output_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* INPUT OPERATION, Conformance: OCS2 */ +/************************************************************************/ + +/* REQUEST : */ + +struct input_req_info + { + ST_CHAR station_name [MAX_IDENT_LEN+1]; /* operator station name */ + ST_BOOLEAN echo; /* echo, default: SD_TRUE */ + ST_BOOLEAN timeout_pres; /* input timeout present ind */ + ST_UINT32 timeout; /* input timeout */ + ST_BOOLEAN prompt_pres; /* prompt data present ind */ + ST_INT prompt_count; /* number of prompt strings */ +/* list of pointers to the prompt data */ +/* ST_CHAR *prompt_data [prompt_count]; */ + SD_END_STRUCT + }; +typedef struct input_req_info INPUT_REQ_INFO; + +/* RESPONSE : */ + +struct input_resp_info + { + ST_CHAR *input_resp; /* input response */ + }; +typedef struct input_resp_info INPUT_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_input (ST_INT chan, INPUT_REQ_INFO *info); +ST_RET mp_input_resp (MMSREQ_IND *ind, INPUT_RESP_INFO *info); +#else +ST_RET mpl_input (INPUT_REQ_INFO *info); +ST_RET mpl_input_resp (ST_UINT32 invoke, INPUT_RESP_INFO *info); +#endif + +#ifdef __cplusplus +} +#endif + +#endif /* #define MMS_POCS_INCLUDED */ diff --git a/mmslib/inc/mms_pprg.h b/mmslib/inc/mms_pprg.h new file mode 100644 index 0000000..b2259c1 --- /dev/null +++ b/mmslib/inc/mms_pprg.h @@ -0,0 +1,287 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 1997, All Rights Reserved. */ +/* */ +/* MODULE NAME : mms_pprg.h */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This file has the data structures and function definitions */ +/* required to interface with MMS program invocation management */ +/* services at the primitive level. */ +/* */ +/* Parameters : In general, the first parameter is the channel */ +/* that the request or response is to be sent over. */ +/* For Responses, the second parameter is the Invoke */ +/* ID to be used. The last parameter is used to pass */ +/* operation specific information by pointer. */ +/* */ +/* Return */ +/* Values : Request functions return a pointer to the pending */ +/* request tracking structure, of type MMSREQ_PEND. */ +/* In case of error, the pointer is returned == 0 */ +/* and mms_op_err is written with the err code. */ +/* Response functions return 0 if OK, else an error */ +/* code. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 08/14/97 RKR 02 Format changes */ +/* 06/09/97 MDE 01 Added PI State defines (from mms_vprg.h) */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef MMS_PPRG_INCLUDED +#define MMS_PPRG_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +/************************************************************************/ +/************************************************************************/ +/* PROGRAM INVOCATION MANAGEMENT SERVICES */ +/************************************************************************/ +/* The structures below are used to pass PROGRAM INVOCATION MANAGEMENT */ +/* information to/from the MMS primitives. */ +/************************************************************************/ +/* use these defines to determine whether string is simple or encoded */ +/* If encoded, the data pointer points to a complete ASN.1 EXTERNAL */ + +#define ARG_TYPE_SIMPLE 0 +#define ARG_TYPE_ENCODED 1 + +/************************************************************************/ +/* CREATE PROGRAM INVOCATION */ +/************************************************************************/ + +/* REQUEST : */ + +struct crepi_req_info + { + ST_CHAR piname [MAX_IDENT_LEN+1]; /* program invocation name */ + ST_INT num_of_dnames; /* number of domain names */ + ST_BOOLEAN reusable; + ST_BOOLEAN monitor_pres; /* monitoring present */ + ST_BOOLEAN monitor; /* SD_TRUE : permanent monitoring */ + /* SD_FALSE: current monitoring */ + +/* list of ptrs to domain names */ +/* ST_CHAR *dnames_list [num_of_dnames]; */ + SD_END_STRUCT + }; +typedef struct crepi_req_info CREPI_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_crepi (ST_INT chan, CREPI_REQ_INFO *info); +ST_RET mp_crepi_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_crepi (CREPI_REQ_INFO *info); +ST_RET mpl_crepi_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* DELETE PROGRAM INVOCATION */ +/************************************************************************/ + +/* REQUEST : */ + +struct delpi_req_info + { + ST_CHAR piname [MAX_IDENT_LEN+1]; /* program invocation name */ + }; +typedef struct delpi_req_info DELPI_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_delpi (ST_INT chan, DELPI_REQ_INFO *info); +ST_RET mp_delpi_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_delpi (DELPI_REQ_INFO *info); +ST_RET mpl_delpi_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* START */ +/************************************************************************/ + +/* REQUEST : */ + +struct start_req_info + { + ST_CHAR piname [MAX_IDENT_LEN+1]; /* program invocation name */ + + ST_INT16 start_arg_type; /* start argument present */ + ST_BOOLEAN start_arg_pres; /* start argument present */ + ST_INT start_arg_len; /* Only used for ENCODED */ + ST_UCHAR *start_arg; /* pointer to start argument */ + SD_END_STRUCT + }; +typedef struct start_req_info START_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_start (ST_INT chan, START_REQ_INFO *info); +ST_RET mp_start_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_start (START_REQ_INFO *info); +ST_RET mpl_start_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* STOP */ +/************************************************************************/ + +/* REQUEST : */ + +struct stop_req_info + { + ST_CHAR piname [MAX_IDENT_LEN+1]; /* program invocation name */ + }; +typedef struct stop_req_info STOP_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_stop (ST_INT chan, STOP_REQ_INFO *info); +ST_RET mp_stop_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_stop (STOP_REQ_INFO *info); +ST_RET mpl_stop_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* RESUME */ +/************************************************************************/ + +/* REQUEST : */ + +struct resume_req_info + { + ST_CHAR piname [MAX_IDENT_LEN+1]; /* program invocation name */ + + ST_INT16 resume_arg_type; /* resume argument present */ + ST_BOOLEAN resume_arg_pres; /* resume argument present */ + ST_INT resume_arg_len; /* Only used for ENCODED */ + ST_UCHAR *resume_arg; /* pointer to resume argument */ + }; +typedef struct resume_req_info RESUME_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_resume (ST_INT chan, RESUME_REQ_INFO *info); +ST_RET mp_resume_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_resume (RESUME_REQ_INFO *info); +ST_RET mpl_resume_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* RESET */ +/************************************************************************/ + +/* REQUEST : */ + +struct reset_req_info + { + ST_CHAR piname [MAX_IDENT_LEN+1]; /* program invocation name */ + }; +typedef struct reset_req_info RESET_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_reset (ST_INT chan, RESET_REQ_INFO *info); +ST_RET mp_reset_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_reset (RESET_REQ_INFO *info); +ST_RET mpl_reset_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* KILL */ +/************************************************************************/ + +/* REQUEST : */ + +struct kill_req_info + { + ST_CHAR piname [MAX_IDENT_LEN+1]; /* program invocation name */ + }; +typedef struct kill_req_info KILL_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_kill (ST_INT chan, KILL_REQ_INFO *info); +ST_RET mp_kill_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_kill (KILL_REQ_INFO *info); +ST_RET mpl_kill_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* GET PROGRAM INVOCATION ATTRIBUTE */ +/************************************************************************/ + +#define PI_NON_EXISTENT 0 +#define PI_UNRUNNABLE 1 +#define PI_IDLE 2 +#define PI_RUNNING 3 +#define PI_STOPPED 4 +#define PI_STARTING 5 +#define PI_STOPPING 6 +#define PI_RESUMING 7 +#define PI_RESETTING 8 + +/* REQUEST : */ + +struct getpi_req_info + { + ST_CHAR piname [MAX_IDENT_LEN+1]; /* program invocation name */ + }; +typedef struct getpi_req_info GETPI_REQ_INFO; + +/* RESPONSE : */ + +struct getpi_resp_info + { + ST_INT16 state; /* program invocation state */ + ST_BOOLEAN mms_deletable; /* MMS deletable */ + ST_BOOLEAN reusable; /* Reusable */ + ST_BOOLEAN monitor; /* SD_TRUE : permanent monitoring */ + /* SD_FALSE: current monitoring */ + + ST_INT16 start_arg_type; /* start argument present */ + ST_INT start_arg_len; /* Only used for ENCODED */ + ST_UCHAR *start_arg; /* pointer to start argument */ + + ST_INT num_of_dnames; /* number of domain names */ +/* list of ptrs to domain names */ +/* ST_CHAR *dnames_list [num_of_dnames]; */ + SD_END_STRUCT + }; +typedef struct getpi_resp_info GETPI_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_getpi (ST_INT chan, GETPI_REQ_INFO *info); +ST_RET mp_getpi_resp (MMSREQ_IND *ind, GETPI_RESP_INFO *info); +#else +ST_RET mpl_getpi (GETPI_REQ_INFO *info); +ST_RET mpl_getpi_resp (ST_UINT32 invoke, GETPI_RESP_INFO *info); +#endif + +#ifdef __cplusplus +} +#endif + +#endif /* #define MMS_PPRG_INCLUDED */ diff --git a/mmslib/inc/mms_psem.h b/mmslib/inc/mms_psem.h new file mode 100644 index 0000000..bdca016 --- /dev/null +++ b/mmslib/inc/mms_psem.h @@ -0,0 +1,338 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 1997, All Rights Reserved. */ +/* */ +/* MODULE NAME : mms_psem.h */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This file has the data structures and function definitions */ +/* required to interface with MMS semaphore management services */ +/* at the primitive level. */ +/* */ +/* Parameters : In general, the first parameter is the channel */ +/* that the request or response is to be sent over. */ +/* For Responses, the second parameter is the Invoke */ +/* ID to be used. The last parameter is used to pass */ +/* operation specific information by pointer. */ +/* */ +/* Return */ +/* Values : Request functions return a pointer to the pending */ +/* request tracking structure, of type MMSREQ_PEND. */ +/* In case of error, the pointer is returned == 0 */ +/* and mms_op_err is written with the err code. */ +/* Response functions return 0 if OK, else an error */ +/* code. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/10/97 MDE 02 Changed entry_class to ST_INT8 */ +/* 08/14/97 RKR 01 Format changes */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef MMS_PSEM_INCLUDED +#define MMS_PSEM_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "mms_mp.h" + +/************************************************************************/ +/************************************************************************/ +/* SEMAPHORE MANAGEMENT FUNCTIONS */ +/************************************************************************/ +/* The structures below are used to pass SEMAPHORE MANAGEMENT operation */ +/* information to/from the MMS primitives. */ +/************************************************************************/ + +/************************************************************************/ +/* TAKE CONTROL, Conformance: SEM1/SEM3 */ +/************************************************************************/ + +/* REQUEST : */ + +struct takectrl_req_info + { + OBJECT_NAME sem_name; /* semaphore name */ + ST_BOOLEAN named_token_pres; /* named token present ind */ + ST_CHAR named_token[MAX_IDENT_LEN+1]; /* named token */ + ST_UCHAR priority; /* priority */ + /* 0 - highest */ + /* 64 - normal (default) */ + /* 127 - lowest */ + ST_BOOLEAN acc_delay_pres; /* acceptable delay present ind */ + ST_UINT32 acc_delay; /* acceptable delay */ + ST_BOOLEAN ctrl_timeout_pres; /* control timeout present */ + ST_UINT32 ctrl_timeout; /* control timeout */ + ST_BOOLEAN abrt_on_timeout_pres; /* Abort on Timeout present */ + ST_BOOLEAN abrt_on_timeout; /* Abort on Timeout */ + ST_BOOLEAN rel_conn_lost; /* relenquish if connection lost*/ + ST_BOOLEAN app_preempt_pres; /* app preempt present ind */ + ST_INT app_len; /* length of app. to preempt */ + ST_UCHAR *app_preempt; /* application to preempt */ + SD_END_STRUCT + }; +typedef struct takectrl_req_info TAKECTRL_REQ_INFO; + +/* RESPONSE : */ + +struct takectrl_resp_info + { + ST_INT16 resp_tag; /* response tag */ + /* 0 : NULL response */ + /* 1 : named token response */ + ST_CHAR named_token [MAX_IDENT_LEN+1]; /* named token identifier */ + SD_END_STRUCT + }; +typedef struct takectrl_resp_info TAKECTRL_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_takectrl (ST_INT chan, TAKECTRL_REQ_INFO *info); +ST_RET mp_takectrl_resp (MMSREQ_IND *ind, TAKECTRL_RESP_INFO *info); +#else +ST_RET mpl_takectrl (TAKECTRL_REQ_INFO *info); +ST_RET mpl_takectrl_resp (ST_UINT32 invoke, TAKECTRL_RESP_INFO *info); +#endif + +/************************************************************************/ +/* RELINQUISH CONTROL, Conformance: SEM1/SEM3 */ +/************************************************************************/ + +/* REQUEST : */ + +struct relctrl_req_info + { + OBJECT_NAME sem_name; /* semaphore name */ + ST_BOOLEAN named_token_pres; /* named token present ind */ + ST_CHAR named_token [MAX_IDENT_LEN+1];/* named token */ + SD_END_STRUCT + }; +typedef struct relctrl_req_info RELCTRL_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_relctrl (ST_INT chan, RELCTRL_REQ_INFO *info); +ST_RET mp_relctrl_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_relctrl (RELCTRL_REQ_INFO *info); +ST_RET mpl_relctrl_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* REPORT SEMAPHORE STATUS, Conformance: SEM1/SEM3 */ +/************************************************************************/ + +/* REQUEST : */ + +struct rsstat_req_info + { + OBJECT_NAME sem_name; /* semaphore name */ + }; +typedef struct rsstat_req_info RSSTAT_REQ_INFO; + +/* RESPONSE : */ + +struct rsstat_resp_info + { + ST_BOOLEAN mms_deletable; /* mms deletable */ + ST_INT16 tclass; /* class: token (0) or pool (1) */ + ST_UINT16 num_of_tokens; /* number of tokens */ + ST_UINT16 num_of_owned; /* number of owned tokens */ + ST_UINT16 num_of_hung; /* number of hung tokens */ + SD_END_STRUCT + }; +typedef struct rsstat_resp_info RSSTAT_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_rsstat (ST_INT chan, RSSTAT_REQ_INFO *info); +ST_RET mp_rsstat_resp (MMSREQ_IND *ind, RSSTAT_RESP_INFO *info); +#else +ST_RET mpl_rsstat (RSSTAT_REQ_INFO *info); +ST_RET mpl_rsstat_resp (ST_UINT32 invoke, RSSTAT_RESP_INFO *info); +#endif + +/************************************************************************/ +/* REPORT POOL SEMAPHORE STATUS, Conformance: SEM1/SEM3 */ +/************************************************************************/ + +/* REQUEST : */ + +struct rspool_req_info + { + OBJECT_NAME sem_name; /* semaphore name */ + ST_BOOLEAN start_after_pres; /* start after name present ind */ + ST_CHAR start_after [MAX_IDENT_LEN+1]; /* name to start after */ + SD_END_STRUCT + }; +typedef struct rspool_req_info RSPOOL_REQ_INFO; + +/* RESPONSE : */ + +#if !defined (USE_COMPACT_MMS_STRUCTS) + +struct token_id + { + ST_INT16 token_tag; /* named token tag */ + /* 0 : free named token */ + /* 1 : owned named token */ + /* 2 : hung named token */ + ST_CHAR named_token[MAX_IDENT_LEN+1];/* named token id */ + SD_END_STRUCT + }; + +#else /* Use compact form */ + +struct token_id + { + ST_INT16 token_tag; /* named token tag */ + /* 0 : free named token */ + /* 1 : owned named token */ + /* 2 : hung named token */ + ST_CHAR *named_token; /* named token id */ + SD_END_STRUCT + }; +#endif + +typedef struct token_id TOKEN_ID; + +struct rspool_resp_info + { + ST_INT16 num_of_tokens; /* number of named tokens */ + ST_BOOLEAN more_follows; /* more follows indicator */ +/* list of named tokens */ +/* TOKEN_ID named_token_list [num_of_tokens]; */ + SD_END_STRUCT + }; +typedef struct rspool_resp_info RSPOOL_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_rspool (ST_INT chan, RSPOOL_REQ_INFO *info); +ST_RET mp_rspool_resp (MMSREQ_IND *ind, RSPOOL_RESP_INFO *info); +#else +ST_RET mpl_rspool (RSPOOL_REQ_INFO *info); +ST_RET mpl_rspool_resp (ST_UINT32 invoke, RSPOOL_RESP_INFO *info); +#endif + + +/************************************************************************/ +/* REPORT SEMAPHORE ENTRY STATUS, Conformance: SEM1/SEM3 */ +/************************************************************************/ + +/* REQUEST : */ + +struct rsentry_req_info + { + OBJECT_NAME sem_name; /* semaphore name */ + ST_INT16 state; /* state: 0 : queued */ + /* 1 : owner */ + /* 2 : hung */ + ST_BOOLEAN start_after_pres; /* start after id present ind */ + ST_INT sa_len; /* length of entry id to start */ + /* after */ + ST_UCHAR *start_after; /* pointer to entry id to start */ + /* after */ + SD_END_STRUCT + }; +typedef struct rsentry_req_info RSENTRY_REQ_INFO; + +/* RESPONSE : */ + +struct semaphore_entry + { + ST_INT ei_len; /* entry id length */ + ST_UCHAR *entry_id; /* entry id */ + ST_INT8 entry_class; /* entry class */ + ST_INT app_ref_len; /* app ref length (obj ident) */ + ST_UCHAR *app_ref; /* application reference */ + ST_BOOLEAN named_token_pres; /* named token present ind */ + ST_CHAR named_token[MAX_IDENT_LEN+1];/* named token */ + ST_UCHAR priority; /* priority */ + /* 0 - highest */ + /* 64 - normal (default) */ + /* 127 - lowest */ + ST_BOOLEAN rem_timeout_pres; /* relinquish timeout present */ + ST_UINT32 rem_timeout; /* relinquish timeout */ + ST_BOOLEAN abrt_on_timeout_pres; /* Abort On Timeout present */ + ST_BOOLEAN abrt_on_timeout; /* Abort On Timeout */ + ST_BOOLEAN rel_conn_lost; /* relenquish if connection lost*/ + SD_END_STRUCT + }; +typedef struct semaphore_entry SEMAPHORE_ENTRY; + +struct rsentry_resp_info + { + ST_INT num_of_sent; /* number of semaphore entries */ + ST_BOOLEAN more_follows; /* more follows indicator */ +/* list of semaphore entries */ +/* SEMAPHORE_ENTRY sent_list [num_of_sent]; */ + SD_END_STRUCT + }; +typedef struct rsentry_resp_info RSENTRY_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_rsentry (ST_INT chan, RSENTRY_REQ_INFO *info); +ST_RET mp_rsentry_resp (MMSREQ_IND *ind, RSENTRY_RESP_INFO *info); +#else +ST_RET mpl_rsentry (RSENTRY_REQ_INFO *info); +ST_RET mpl_rsentry_resp (ST_UINT32 invoke, RSENTRY_RESP_INFO *info); +#endif + +/************************************************************************/ +/* DEFINE SEMAPHORE, Conformance: SEM3 */ +/************************************************************************/ + +/* REQUEST : */ + +struct defsem_req_info + { + OBJECT_NAME sem_name; /* semaphore name */ + ST_UINT16 num_of_tokens; /* number of tokens */ + SD_END_STRUCT + }; +typedef struct defsem_req_info DEFSEM_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_defsem (ST_INT chan, DEFSEM_REQ_INFO *info); +ST_RET mp_defsem_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_defsem (DEFSEM_REQ_INFO *info); +ST_RET mpl_defsem_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* DELETE SEMAPHORE, Conformance: SEM3 */ +/************************************************************************/ + +/* REQUEST : */ + +struct delsem_req_info + { + OBJECT_NAME sem_name; /* semaphore name */ + }; +typedef struct delsem_req_info DELSEM_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_delsem (ST_INT chan, DELSEM_REQ_INFO *info); +ST_RET mp_delsem_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_delsem (DELSEM_REQ_INFO *info); +ST_RET mpl_delsem_resp (ST_UINT32 invoke); +#endif + +#ifdef __cplusplus +} +#endif + +#endif /* #define MMS_PSEM_INCLUDED */ diff --git a/mmslib/inc/mms_pvar.h b/mmslib/inc/mms_pvar.h new file mode 100644 index 0000000..1043150 --- /dev/null +++ b/mmslib/inc/mms_pvar.h @@ -0,0 +1,683 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 1997, All Rights Reserved. */ +/* */ +/* MODULE NAME : mms_pvar.h */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This file has the data structures and function definitions */ +/* required to interface with MMS variable access services */ +/* at the primitive level. */ +/* */ +/* Parameters : In general, the first parameter is the channel */ +/* that the request or response is to be sent over. */ +/* For Responses, the second parameter is the Invoke */ +/* ID to be used. The last parameter is used to pass */ +/* operation specific information by pointer. */ +/* */ +/* Return */ +/* Values : Request functions return a pointer to the pending */ +/* request tracking structure, of type MMSREQ_PEND. */ +/* In case of error, the pointer is returned == 0 */ +/* and mms_op_err is written with the err code. */ +/* Response functions return 0 if OK, else an error */ +/* code. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/04/06 JRB 03 Add ARE_OBJ_VALUE_INVALID (new in MMS V2). */ +/* 12/12/02 JRB 02 Add ASN1_ENC_CTXT arg to mpl_info */ +/* 08/13/97 RKR 01 format changes */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef MMS_PVAR_INCLUDED +#define MMS_PVAR_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "mms_mp.h" + +/************************************************************************/ +/************************************************************************/ +/* DEFINES FOR THE VARIABLE ACCESS SERVICES */ +/************************************************************************/ + +/* defines to be used for addr_tag */ +#define NUM_ADDR 0 /* numeric address */ +#define SYM_ADDR 1 /* symbolic address */ +#define UNCON_ADDR 2 /* unconstrained address */ + +/* #defines to be used for var_spec_tag */ +#define VA_SPEC_NAMED 0 +#define VA_SPEC_ADDRESSED 1 +#define VA_SPEC_DESCRIBED 2 +#define VA_SPEC_SCATTERED 3 +#define VA_SPEC_INVALIDATED 4 + +/* #defines to be used for var_acc_tag */ +#define VAR_ACC_VARLIST 0 /* list of variables */ +#define VAR_ACC_NAMEDLIST 1 /* variable list name */ + +/* defines to be used for 'access result' */ +#define ACC_RSLT_SUCCESS 1 +#define ACC_RSLT_FAILURE 0 + +/* defines to be used for DataAccessError codes */ +#define ARE_OBJ_INVALIDATED 0 +#define ARE_HW_FAULT 1 +#define ARE_TEMP_UNAVAIL 2 +#define ARE_OBJ_ACCESS_DENIED 3 +#define ARE_OBJ_UNDEFINED 4 +#define ARE_INVAL_ADDR 5 +#define ARE_TYPE_UNSUPPORTED 6 +#define ARE_TYPE_INCONSISTENT 7 +#define ARE_OBJ_ATTR_INCONSISTENT 8 +#define ARE_OBJ_ACC_UNSUPPORTED 9 +#define ARE_OBJ_NONEXISTENT 10 +#define ARE_OBJ_VALUE_INVALID 11 + +/* #defines to be used for 'resp_tag' (write response) */ +#define WR_RSLT_SUCCESS 1 +#define WR_RSLT_FAILURE 0 + +/* #defines to be used for 'scope' selector (used for delete var, */ +/* varlist, type requests) */ +#define SPECIFIC_SCOPE 0 +#define ALL_AA_SCOPE 1 +#define ALL_DOM_SCOPE 2 +#define ALL_VMD_SCOPE 3 + + +/************************************************************************/ +/************************************************************************/ +/* The structures below are used to pass VARIABLE ACCESS information */ +/* to/from the MMS primitives. */ +/************************************************************************/ + +struct unconst_addr + { + ST_INT unc_len; /* unconstrained address length */ + ST_UCHAR *unc_ptr; /* unconstrained address ptr */ + SD_END_STRUCT + }; +typedef struct unconst_addr UNCONST_ADDR; + +struct var_acc_addr + { + ST_INT16 addr_tag; /* address tag */ + union + { + ST_UINT32 num_addr; /* numeric address */ + ST_CHAR *sym_addr; /* symbolic address */ + UNCONST_ADDR unc_addr; /* unconstrained address */ + } addr; + }; +typedef struct var_acc_addr VAR_ACC_ADDR; + +struct var_acc_data + { + ST_INT len; /* len of variable access data */ + ST_UCHAR *data; /* ptr to variable access data */ + }; +typedef struct var_acc_data VAR_ACC_DATA; + +struct var_acc_tspec + { + ST_INT len; /* len of type specification */ + ST_UCHAR *data; /* ptr to type specification */ + }; +typedef struct var_acc_tspec VAR_ACC_TSPEC; + +struct scattered_access + { + ST_INT len; /* len of scattered access descr*/ + ST_UCHAR *data; /* ptr to scattered access descr*/ + }; +typedef struct scattered_access SCATTERED_ACCESS; + +struct alternate_access + { + ST_INT len; /* len of alternate access data */ + ST_UCHAR *data; /* ptr to alternate access data */ + }; +typedef struct alternate_access ALTERNATE_ACCESS; + +struct variable_descr + { + VAR_ACC_ADDR address; /* variable address */ + VAR_ACC_TSPEC type; /* variable type */ + }; +typedef struct variable_descr VARIABLE_DESCR; + +struct variable_spec + { + ST_INT16 var_spec_tag; /* variable specification tag */ + union + { + OBJECT_NAME name; /* name */ + VAR_ACC_ADDR address; /* address */ + VARIABLE_DESCR var_descr; /* variable description */ + SCATTERED_ACCESS sa_descr; /* scattered access description */ + } vs; + }; +typedef struct variable_spec VARIABLE_SPEC; + +struct variable_list + { + VARIABLE_SPEC var_spec; /* variable access specification*/ + ST_BOOLEAN alt_access_pres; /* alternate access present */ + ALTERNATE_ACCESS alt_access; /* alternate access */ + }; +typedef struct variable_list VARIABLE_LIST; + +struct var_acc_spec + { + ST_INT16 var_acc_tag; /* variable access tag */ + OBJECT_NAME vl_name; /* variable list name */ + ST_INT num_of_variables; /* number of variables */ +/* list of variables */ +/* VARIABLE_LIST var_list [num_of_variables]; */ + SD_END_STRUCT + }; +typedef struct var_acc_spec VAR_ACC_SPEC; + +struct access_result + { + ST_INT16 acc_rslt_tag; /* access result tag */ + ST_INT16 failure; /* data access error */ + VAR_ACC_DATA va_data; /* success data */ + }; +typedef struct access_result ACCESS_RESULT; + +struct write_result + { + ST_INT16 resp_tag; /* response tag */ + ST_INT16 failure; /* data access error */ + SD_END_STRUCT + }; +typedef struct write_result WRITE_RESULT; + + +/************************************************************************/ +/************************************************************************/ +/* VARIABLE READ */ +/************************************************************************/ + +/* REQUEST : */ + +struct read_req_info + { + ST_BOOLEAN spec_in_result; /* specification with result, */ + /* default to false */ + VAR_ACC_SPEC va_spec; /* variable access spec */ +/* which "includes" */ +/* a list of variables */ +/* VARIABLE_LIST var_list [va_spec.num_of_variables]; */ +/* SD_END_STRUCT */ + }; +typedef struct read_req_info READ_REQ_INFO; + +/* RESPONSE : */ + +struct read_resp_info + { + ST_BOOLEAN va_spec_pres; /* variable access spec present */ + ST_INT num_of_acc_result; /* number of access result */ + ACCESS_RESULT *acc_rslt_list; /* ptr to list of access result */ + VAR_ACC_SPEC va_spec; /* variable access spec */ +/* which "includes" */ +/* a list of variables */ +/* VARIABLE_LIST var_list [va_spec.num_of_variables]; */ +/* list of access result */ +/* ACCESS_RESULT acc_result_list [num_of_acc_result]; */ +/* SD_END_STRUCT */ + }; +typedef struct read_resp_info READ_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_read (ST_INT chan, READ_REQ_INFO *info); +ST_RET mp_read_resp (MMSREQ_IND *ind, READ_RESP_INFO *info); +#else +ST_RET mpl_read (READ_REQ_INFO *info); +ST_RET mpl_read_resp (ST_UINT32 invoke, READ_RESP_INFO *info); +#endif + +/************************************************************************/ +/* VARIABLE WRITE */ +/************************************************************************/ + +/* REQUEST : */ + +struct write_req_info + { + ST_INT num_of_data; /* number of data */ + VAR_ACC_DATA *va_data; /* ptr to list of variable data */ + VAR_ACC_SPEC va_spec; /* variable access spec */ +/* which "includes" */ +/* a list of variables */ +/* VARIABLE_LIST var_list [va_spec.num_of_variables]; */ +/* list of variable data */ +/* VAR_ACC_DATA var_data_list [num_of_data]; */ + }; +typedef struct write_req_info WRITE_REQ_INFO; + +/* RESPONSE : */ + +struct write_resp_info + { + ST_INT num_of_result; +/* WRITE_RESULT wr_result[num_of_result] */ + SD_END_STRUCT + }; +/* Where: */ +/* num_of_result = The number of members in wr_result. This */ +/* number should match the number of */ +/* variables included in the Write request. */ +/* */ +/* wr_result = Array of structures of type write_result */ +/* containing the results of the write */ +/* (success or failure) for each variable */ +/* written. The result array members should */ +/* align with the var_list members that were */ +/* included in the Write request. */ +typedef struct write_resp_info WRITE_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_write (ST_INT chan, WRITE_REQ_INFO *info); +ST_RET mp_write_resp (MMSREQ_IND *ind, WRITE_RESP_INFO *info); +#else +ST_RET mpl_write (WRITE_REQ_INFO *info); +ST_RET mpl_write_resp (ST_UINT32 invoke, WRITE_RESP_INFO *info); +#endif + +/************************************************************************/ +/* INFORMATION REPORT */ +/************************************************************************/ + +/* REQUEST : */ + +struct info_req_info + { + ST_INT num_of_acc_result; /* number of access result */ + ACCESS_RESULT *acc_rslt_list; /* ptr to list of access result */ + VAR_ACC_SPEC va_spec; /* variable access spec */ +/* which "includes" */ +/* a list of variables */ +/* VARIABLE_LIST var_list [va_spec.num_of_variables]; */ +/* list of access result */ +/* ACCESS_RESULT acc_result_list [num_of_acc_result]; */ +/* SD_END_STRUCT */ + }; +typedef struct info_req_info INFO_REQ_INFO; + +/* No Response : (unsolicited) */ + +#ifndef MMS_LITE +ST_RET mp_info (ST_INT chan, INFO_REQ_INFO *info); +#else +ST_RET mpl_info (ASN1_ENC_CTXT *aCtx, INFO_REQ_INFO *info); +#endif + +/************************************************************************/ +/* DEFINE VARIABLE NAME */ +/************************************************************************/ + +/* REQUEST : */ + +struct defvar_req_info + { + OBJECT_NAME name; /* object name */ + VAR_ACC_ADDR address; /* address */ + ST_BOOLEAN type_spec_pres; /* type specification present */ + VAR_ACC_TSPEC type_spec; /* type specification */ + }; +typedef struct defvar_req_info DEFVAR_REQ_INFO; + + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_defvar (ST_INT chan, DEFVAR_REQ_INFO *info); +ST_RET mp_defvar_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_defvar (DEFVAR_REQ_INFO *info); +ST_RET mpl_defvar_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* GET VARIABLE NAME DEFINITION */ +/************************************************************************/ + +/* REQUEST : */ + +#define GETVAR_NAME 0 +#define GETVAR_ADDR 1 + +struct getvar_req_info + { + ST_INT16 req_tag; /* request tag */ + /* 0 : object name request */ + /* 1 : address request */ + OBJECT_NAME name; /* object name */ + VAR_ACC_ADDR address; /* address */ + }; +typedef struct getvar_req_info GETVAR_REQ_INFO; + +/* RESPONSE : */ + +struct getvar_resp_info + { + ST_BOOLEAN mms_deletable; /* MMS deletable */ + ST_BOOLEAN address_pres; /* address present */ + VAR_ACC_ADDR address; /* address */ + VAR_ACC_TSPEC type_spec; /* type specification */ + }; +typedef struct getvar_resp_info GETVAR_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_getvar (ST_INT chan, GETVAR_REQ_INFO *info); +ST_RET mp_getvar_resp (MMSREQ_IND *ind, GETVAR_RESP_INFO *info); +#else +ST_RET mpl_getvar (GETVAR_REQ_INFO *info); +ST_RET mpl_getvar_resp (ST_UINT32 invoke, GETVAR_RESP_INFO *info); +#endif + +/************************************************************************/ +/* DELETE VARIABLE NAME */ +/************************************************************************/ + +/* REQUEST : */ + +#define DELVAR_SPEC 0 +#define DELVAR_AA 1 +#define DELVAR_DOM 2 +#define DELVAR_VMD 3 + +struct delvar_req_info + { + ST_INT16 scope; /* scope of delete (see above) */ + ST_BOOLEAN dname_pres; /* domain name present */ + ST_CHAR dname [MAX_IDENT_LEN+1]; /* domain name */ + ST_BOOLEAN vnames_pres; /* variable names present */ + ST_INT num_of_vnames; /* number of variable names */ +/* list of variable names */ +/* OBJECT_NAME vname_list [num_of_vnames]; */ + SD_END_STRUCT + }; +typedef struct delvar_req_info DELVAR_REQ_INFO; + + +/* RESPONSE : */ + +struct delvar_resp_info + { + ST_UINT32 num_matched; /* Number matched */ + ST_UINT32 num_deleted; /* Number deleted */ + }; +typedef struct delvar_resp_info DELVAR_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_delvar (ST_INT chan, DELVAR_REQ_INFO *info); +ST_RET mp_delvar_resp (MMSREQ_IND *ind,DELVAR_RESP_INFO *info); +#else +ST_RET mpl_delvar (DELVAR_REQ_INFO *info); +ST_RET mpl_delvar_resp (ST_UINT32 invoke, DELVAR_RESP_INFO *info); +#endif + +/************************************************************************/ +/* DEFINE SCATTERED ACCESS */ +/************************************************************************/ + +/* REQUEST : */ + +struct defscat_req_info + { + OBJECT_NAME sa_name; /* scattered access name */ + SCATTERED_ACCESS sa_descr; /* scattered access description */ + }; +typedef struct defscat_req_info DEFSCAT_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_defscat (ST_INT chan, DEFSCAT_REQ_INFO *info); +ST_RET mp_defscat_resp (MMSREQ_IND *info); +#else +ST_RET mpl_defscat (DEFSCAT_REQ_INFO *info); +ST_RET mpl_defscat_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* GET SCATTERED ACCESS ATTRIBUTES */ +/************************************************************************/ + +/* REQUEST : */ + +struct getscat_req_info + { + OBJECT_NAME sa_name; /* scattered access name */ + }; +typedef struct getscat_req_info GETSCAT_REQ_INFO; + +/* RESPONSE : */ + +struct getscat_resp_info + { + ST_BOOLEAN mms_deletable; /* MMS deletable */ + SCATTERED_ACCESS sa_descr; /* scattered access description */ + }; +typedef struct getscat_resp_info GETSCAT_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_getscat (ST_INT chan, GETSCAT_REQ_INFO *info); +ST_RET mp_getscat_resp (MMSREQ_IND *ind, GETSCAT_RESP_INFO *info); +#else +ST_RET mpl_getscat (GETSCAT_REQ_INFO *info); +ST_RET mpl_getscat_resp (ST_UINT32 invoke, GETSCAT_RESP_INFO *info); +#endif + +/************************************************************************/ +/* DEFINE NAMED VARIABLE LIST */ +/************************************************************************/ + +/* REQUEST : */ + +struct defvlist_req_info + { + OBJECT_NAME vl_name; /* variable list name */ + ST_INT num_of_variables; /* number of variables */ +/* list of variables */ +/* VARIABLE_LIST var_list [num_of_variables]; */ + SD_END_STRUCT + }; +typedef struct defvlist_req_info DEFVLIST_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_defvlist (ST_INT chan, DEFVLIST_REQ_INFO *info); +ST_RET mp_defvlist_resp (MMSREQ_IND *info); +#else +ST_RET mpl_defvlist (DEFVLIST_REQ_INFO *info); +ST_RET mpl_defvlist_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* GET NAMED VARIABLE LIST ATTRIBUTES */ +/************************************************************************/ + +/* REQUEST : */ + +struct getvlist_req_info + { + OBJECT_NAME vl_name; /* variable list name */ + }; +typedef struct getvlist_req_info GETVLIST_REQ_INFO; + +/* RESPONSE : */ + +struct getvlist_resp_info + { + ST_BOOLEAN mms_deletable; /* MMS deletable */ + ST_INT num_of_variables; /* number of variables */ +/* list of variables */ +/* VARIABLE_LIST var_list [num_of_variables]; */ + SD_END_STRUCT + }; +typedef struct getvlist_resp_info GETVLIST_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_getvlist (ST_INT chan, GETVLIST_REQ_INFO *info); +ST_RET mp_getvlist_resp (MMSREQ_IND *ind, GETVLIST_RESP_INFO *info); +#else +ST_RET mpl_getvlist (GETVLIST_REQ_INFO *info); +ST_RET mpl_getvlist_resp (ST_UINT32 invoke, GETVLIST_RESP_INFO *info); +#endif + +/************************************************************************/ +/* DELETE NAMED VARIABLE LIST */ +/************************************************************************/ + +/* REQUEST : */ + +#define DELVL_SPEC 0 +#define DELVL_AA 1 +#define DELVL_DOM 2 +#define DELVL_VMD 3 + +struct delvlist_req_info + { + ST_INT16 scope; /* scope of delete (see above) */ + ST_BOOLEAN dname_pres; /* domain name present */ + ST_CHAR dname [MAX_IDENT_LEN+1]; /* domain name */ + ST_BOOLEAN vnames_pres; /* variable names present */ + ST_INT num_of_vnames; /* number of var list names */ +/* list of var list names */ +/* OBJECT_NAME vname_list [num_of_vnames]; */ + SD_END_STRUCT + }; +typedef struct delvlist_req_info DELVLIST_REQ_INFO; + +/* RESPONSE : */ + +struct delvlist_resp_info + { + ST_UINT32 num_matched; /* Number matched */ + ST_UINT32 num_deleted; /* Number deleted */ + }; +typedef struct delvlist_resp_info DELVLIST_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_delvlist (ST_INT chan, DELVLIST_REQ_INFO *info); +ST_RET mp_delvlist_resp (MMSREQ_IND *ind, DELVLIST_RESP_INFO *info); +#else +ST_RET mpl_delvlist (DELVLIST_REQ_INFO *info); +ST_RET mpl_delvlist_resp (ST_UINT32 invoke, DELVLIST_RESP_INFO *info); +#endif + +/************************************************************************/ +/* DEFINE TYPE */ +/************************************************************************/ + +/* REQUEST : */ + +struct deftype_req_info + { + OBJECT_NAME type_name; /* object name */ + VAR_ACC_TSPEC type_spec; /* type specification */ + }; +typedef struct deftype_req_info DEFTYPE_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_deftype (ST_INT chan, DEFTYPE_REQ_INFO *info); +ST_RET mp_deftype_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_deftype (DEFTYPE_REQ_INFO *info); +ST_RET mpl_deftype_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* GET TYPE NAME DEFINITION */ +/************************************************************************/ + +/* REQUEST : */ + +struct gettype_req_info + { + OBJECT_NAME type_name; /* object name */ + }; +typedef struct gettype_req_info GETTYPE_REQ_INFO; + +/* RESPONSE : */ + +struct gettype_resp_info + { + ST_BOOLEAN mms_deletable; /* MMS deletable */ + VAR_ACC_TSPEC type_spec; /* type specification */ + }; +typedef struct gettype_resp_info GETTYPE_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_gettype (ST_INT chan, GETTYPE_REQ_INFO *info); +ST_RET mp_gettype_resp (MMSREQ_IND *ind, GETTYPE_RESP_INFO *info); +#else +ST_RET mpl_gettype (GETTYPE_REQ_INFO *info); +ST_RET mpl_gettype_resp (ST_UINT32 invoke, GETTYPE_RESP_INFO *info); +#endif + +/************************************************************************/ +/* DELETE TYPE NAME */ +/************************************************************************/ + +/* REQUEST : */ + +#define DELTYPE_SPEC 0 +#define DELTYPE_AA 1 +#define DELTYPE_DOM 2 +#define DELTYPE_VMD 3 + +struct deltype_req_info + { + ST_INT16 scope; /* scope of delete (see above) */ + ST_BOOLEAN dname_pres; /* domain name present */ + ST_CHAR dname [MAX_IDENT_LEN+1]; /* domain name */ + ST_BOOLEAN tnames_pres; /* type names present */ + ST_INT num_of_tnames; /* number of type names */ +/* list of type names */ +/* OBJECT_NAME tname_list [num_of_tnames]; */ + SD_END_STRUCT + }; +typedef struct deltype_req_info DELTYPE_REQ_INFO; + +/* RESPONSE : */ + +struct deltype_resp_info + { + ST_UINT32 num_matched; /* Number matched */ + ST_UINT32 num_deleted; /* Number deleted */ + }; +typedef struct deltype_resp_info DELTYPE_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_deltype (ST_INT chan, DELTYPE_REQ_INFO *info); +ST_RET mp_deltype_resp (MMSREQ_IND *ind, DELTYPE_RESP_INFO *info); +#else +ST_RET mpl_deltype (DELTYPE_REQ_INFO *info); +ST_RET mpl_deltype_resp (ST_UINT32 invoke, DELTYPE_RESP_INFO *info); +#endif + +#ifdef __cplusplus +} +#endif + +#endif /* #define MMS_PVAR_INCLUDED */ diff --git a/mmslib/inc/mms_pvmd.h b/mmslib/inc/mms_pvmd.h new file mode 100644 index 0000000..6024d16 --- /dev/null +++ b/mmslib/inc/mms_pvmd.h @@ -0,0 +1,291 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 1997, All Rights Reserved. */ +/* */ +/* MODULE NAME : mms_pvmd.h */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This file has the data structures and function definitions */ +/* required to interface with MMS vmd management services */ +/* at the primitive level. */ +/* */ +/* Parameters : In general, the first parameter is the channel */ +/* that the request or response is to be sent over. */ +/* For Responses, the second parameter is the Invoke */ +/* ID to be used. The last parameter is used to pass */ +/* operation specific information by pointer. */ +/* */ +/* Return */ +/* Values : Request functions return a pointer to the pending */ +/* request tracking structure, of type MMSREQ_PEND. */ +/* In case of error, the pointer is returned == 0 */ +/* and mms_op_err is written with the err code. */ +/* Response functions return 0 if OK, else an error */ +/* code. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/12/02 JRB 02 Add ASN1_ENC_CTXT arg to mpl_ustatus */ +/* 09/09/97 MDE 02 Added 'mms_class' defines */ +/* 08/14/97 RKR 01 Format changes */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef MMS_PVMD_INCLUDED +#define MMS_PVMD_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "mms_mp.h" + +/************************************************************************/ +/************************************************************************/ +/* VMD MANAGEMENT SERVICES */ +/************************************************************************/ +/* The structures below are used to pass VMD MANAGEMENT information */ +/* to/from the MMS primitives. */ +/************************************************************************/ + +/* Defines for 'mms_class' for GNL and RENAME */ +#define MMS_CLASS_VAR 0 +#define MMS_CLASS_SCAT_ACC 1 +#define MMS_CLASS_VARLIST 2 +#define MMS_CLASS_TYPE 3 +#define MMS_CLASS_SEM 4 +#define MMS_CLASS_EV_COND 5 +#define MMS_CLASS_EV_ACT 6 +#define MMS_CLASS_EV_ENROLL 7 +#define MMS_CLASS_JOU 8 +#define MMS_CLASS_DOM 9 +#define MMS_CLASS_PI 10 +#define MMS_CLASS_OPER_STA 11 + +/************************************************************************/ +/************************************************************************/ +/* STATUS */ +/************************************************************************/ + +/* REQUEST : */ + +#define MAX_STAT_DTL_LEN 16 + +struct status_req_info + { + ST_BOOLEAN extended; /* flag indicating if extended status */ + }; /* is desired */ +typedef struct status_req_info STATUS_REQ_INFO; + +/* RESPONSE : */ + +struct status_resp_info + { + ST_INT16 logical_stat; /* logical status - not optional */ + ST_INT16 physical_stat; /* physical status - not optional */ + ST_BOOLEAN local_detail_pres; /* flag if logical detail is present */ + ST_INT local_detail_len; /* length of logical detail (in bits) */ + ST_UCHAR local_detail[MAX_STAT_DTL_LEN]; /* vendor-specific detailed info*/ + }; +typedef struct status_resp_info STATUS_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_status (ST_INT chan,STATUS_REQ_INFO *info); +ST_RET mp_status_resp (MMSREQ_IND *ind,STATUS_RESP_INFO *info); +#else +ST_RET mpl_status (STATUS_REQ_INFO *info); +ST_RET mpl_status_resp (ST_UINT32 invoke, STATUS_RESP_INFO *info); +#endif + +/************************************************************************/ +/* UNSOLICITED STATUS */ +/************************************************************************/ + +/* REQUEST : */ + +struct ustatus_req_info + { + ST_INT16 logical_stat; /* logical status - not optional */ + ST_INT16 physical_stat; /* physical status - not optional */ + ST_BOOLEAN local_detail_pres; /* flag if logical detail is present */ + ST_INT local_detail_len; /* length of logical detail (in bits) */ + ST_UCHAR local_detail[MAX_STAT_DTL_LEN]; /* vendor-specific detailed info*/ + }; +typedef struct ustatus_req_info USTATUS_REQ_INFO; + +/* RESPONSE : No response (unsolicited) */ + +#ifndef MMS_LITE +ST_RET mp_ustatus (ST_INT chan,USTATUS_REQ_INFO *info); +#else +ST_RET mpl_ustatus (ASN1_ENC_CTXT *aCtx, USTATUS_REQ_INFO *info); +#endif + +/************************************************************************/ +/* GET NAME LIST */ +/************************************************************************/ + +/* REQUEST : */ + +struct namelist_req_info + { + ST_BOOLEAN cs_objclass_pres; /* set for use CS object class */ + union + { + ST_INT16 mms_class; /* object class */ + struct /* CS context object sel */ + { + ST_INT len; /* length of ASN.1 CS class */ + ST_UCHAR *cs_class; /* CS object class ASN.1 */ + } cs; + } obj; + + ST_INT16 objscope; /* object scope */ + ST_CHAR dname[MAX_IDENT_LEN+1]; /* domain name, for scope = dom */ + ST_BOOLEAN cont_after_pres; /* flag if continue param pres. */ + ST_CHAR continue_after[MAX_IDENT_LEN+1]; /* continue-after name */ + SD_END_STRUCT + }; +typedef struct namelist_req_info NAMELIST_REQ_INFO; + +/* RESPONSE : */ + +struct namelist_resp_info + { + ST_BOOLEAN more_follows; /* end of list boolean value */ + ST_INT num_names; /* number of names */ + SD_END_STRUCT + }; +/* ST_CHAR *name_list[]; */ /* array of pointers to object names */ + +/* NOTE: Immediately below this structure (contiguous in memory) is a */ +/* list of character pointers, one for each name in the name list. */ +/* Essentially the structure and name pointers are allocated in a */ +/* single call to malloc of size: (sizeof(NAMELIST_RESP_INFO) */ +/* + num_names * sizeof(ST_CHAR *)). The requesting user makes use of */ +/* the contiguous list of pointers as appropriate. The responding */ +/* user must pass the mp_namelist_resp function a pointer to a contig- */ +/* uous block of memory containing the namelist_resp_info structure at */ +/* the top and the list of character pointers below it. */ +typedef struct namelist_resp_info NAMELIST_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_namelist (ST_INT chan,NAMELIST_REQ_INFO *info); +ST_RET mp_namelist_resp (MMSREQ_IND *ind,NAMELIST_RESP_INFO *info); +#else +ST_RET mpl_namelist (NAMELIST_REQ_INFO *info); +ST_RET mpl_namelist_resp (ST_UINT32 invoke, NAMELIST_RESP_INFO *info); +#endif + +/************************************************************************/ +/* IDENTIFY */ +/************************************************************************/ + +/* REQUEST : NULL */ +/* RESPONSE : */ + +/* This is the structure used for the info pass to/from the MMS prims */ + +#define MAX_VEND_LEN 64 /* vendor name max len */ +#define MAX_REV_LEN 16 /* revision max len */ +#define MAX_MOD_LEN 16 /* model max len */ + +struct ident_resp_info + { + ST_CHAR vend[MAX_VEND_LEN+1]; /* vendor */ + ST_CHAR model[MAX_MOD_LEN+1]; /* model */ + ST_CHAR rev[MAX_REV_LEN+1]; /* revision */ + ST_INT num_as; /* number abstract syntax's */ +/* this structure may be followed by the abstract syntax's */ +/* MMS_OBJ_ID as[num_as]; */ + SD_END_STRUCT + }; +typedef struct ident_resp_info IDENT_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_ident (ST_INT chan); +ST_RET mp_ident_resp (MMSREQ_IND *ind,IDENT_RESP_INFO *info); +#else +ST_RET mpl_ident (ST_VOID); +ST_RET mpl_ident_resp (ST_UINT32 invoke, IDENT_RESP_INFO *info); +#endif + +/************************************************************************/ +/* RENAME */ +/************************************************************************/ + +/* REQUEST : */ + +struct rename_req_info + { + ST_BOOLEAN cs_objclass_pres; /* set for use CS object class */ + union + { + ST_INT16 mms_class; /* object class */ + struct /* CS context object sel */ + { + ST_INT len; /* length of ASN.1 CS class */ + ST_UCHAR *cs_class; /* CS object class ASN.1 */ + } cs; + } obj; + + OBJECT_NAME cur_name; /* current name */ + ST_CHAR new_ident [MAX_IDENT_LEN+1]; /* new identifier */ + SD_END_STRUCT + }; +typedef struct rename_req_info RENAME_REQ_INFO; + +/* RESPONSE : NULL */ + +#ifndef MMS_LITE +MMSREQ_PEND *mp_rename (ST_INT chan,RENAME_REQ_INFO *info); +ST_RET mp_rename_resp (MMSREQ_IND *ind); +#else +ST_RET mpl_rename (RENAME_REQ_INFO *info); +ST_RET mpl_rename_resp (ST_UINT32 invoke); +#endif + +/************************************************************************/ +/* GET CAPABILITY LIST */ +/************************************************************************/ + +/* REQUEST : */ + +struct getcl_req_info + { + ST_BOOLEAN cont_after_pres; /* flag if continue param pres. */ + ST_CHAR *continue_after; /* pointer continue-after name */ + }; +typedef struct getcl_req_info GETCL_REQ_INFO; + +/* RESPONSE : */ + +struct getcl_resp_info + { + ST_BOOLEAN more_follows; /* end of list boolean value */ + ST_INT num_of_capab; /* number of capabilities */ +/* list of capabilities */ +/* ST_CHAR * capab_list [num_of_capab]; */ + SD_END_STRUCT + }; +typedef struct getcl_resp_info GETCL_RESP_INFO; + +#ifndef MMS_LITE +MMSREQ_PEND *mp_getcl (ST_INT chan,GETCL_REQ_INFO *info); +ST_RET mp_getcl_resp (MMSREQ_IND *ind,GETCL_RESP_INFO *info); +#else +ST_RET mpl_getcl (GETCL_REQ_INFO *info); +ST_RET mpl_getcl_resp (ST_UINT32 invoke, GETCL_RESP_INFO *info); +#endif + +#ifdef __cplusplus +} +#endif + +#endif /* #define MMS_PVMD_INCLUDED */ + diff --git a/mmslib/inc/mms_vvar.h b/mmslib/inc/mms_vvar.h new file mode 100644 index 0000000..1896958 --- /dev/null +++ b/mmslib/inc/mms_vvar.h @@ -0,0 +1,1090 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2006, All Rights Reserved. */ +/* */ +/* MODULE NAME : mms_vvar.h */ +/* PRODUCT(S) : MMSEASE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains data and function definitions associated */ +/* with the MMS virtual machine variable access operations. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 08/02/07 JRB 58 Add elements to RUNTIME_BUILD_CTXT to allow */ +/* 2 pass build process. Add more ms_rt_bld*. */ +/* 05/10/07 JRB 57 Chg el_size, etc. to ST_INT to avoid warnings*/ +/* 04/30/07 JRB 56 Chg el_size, el_len, etc. in RUNTIME_TYPE to */ +/* ST_INT32 to allow larger primitives, arrays. */ +/* 04/17/07 JRB 55 Add prim_count to MVLU_TYPE_INFO. */ +/* 10/30/06 JRB 54 Add reserved_1 to RUNTIME_CTRL. */ +/* Add "ms_rt_bld_*" prototypes. */ +/* 08/09/06 JRB 53 Add ms_local_to_asn1_2. */ +/* Add ms_adl_to_asn1_2, ms_aa_to_asn1_2. */ +/* 03/22/06 EJV 52 Added GENERAL_TIME_ALGN (time_t is 64-bits in VS 2005)*/ +/* 07/29/05 MDE 51 Select USE_RT_TYPE_3 for USPS_IOS */ +/* 05/09/05 JRB 50 Default to USE_RT_TYPE_2 (was USE_RT_TYPE_3).*/ +/* 03/10/05 JRB 49 Add ms_rt_el_tag_text proto. */ +/* 02/22/05 JRB 48 ms_is_rt_prim: add SD_CONST to arg. */ +/* 01/27/05 JRB 47 Add m_lite_data_algn_tbl extern. */ +/* 07/22/04 JRB 46 Add rt_index_q, rt_index_t, data_offset to */ +/* RUNTIME_TYPE if !MMS_LITE. */ +/* 07/12/04 JRB 45 Chg RT_UTF8_STRING tag from 18 to 16 to */ +/* match latest 61850-8-1. */ +/* 01/22/04 JRB 44 Add ms_local_to_text. */ +/* 10/03/03 JRB 43 Chg offset_to_last & offSet to ST_INT32 in */ +/* RUNTIME_TYPE to handle BIG IEC-61850 types. */ +/* 03/31/03 JRB 42 Add UTF8string support (see RT_UTF8_STRING). */ +/* Add "utf8" to M_ARB_DATA_CTRL. */ +/* 03/13/03 JRB 41 u_ml_get_rt_type: Chg from "func ptr" to func.*/ +/* 01/02/03 JRB 40 Add arg to u_ml_get_rt_type. */ +/* Add ASN1_TO_RT_DEC_INFO struct. */ +/* 12/27/02 MDE 39 Allow use of ms_asn1_to_runtime */ +/* 12/17/02 JRB 38 Del SD_CONST from numMvlRtNames. */ +/* 12/16/02 JRB 37 Chg ms_is_rt_prim from macro to function. */ +/* 11/27/02 MDE 36 Added ms_is_rt_prim */ +/* 11/11/02 JRB 35 Add RUNTIME_CTRL, chg ms_runtime_create & */ +/* ms_runtime_destroy to use it. */ +/* Del ms_asn1_to_runtime (use ms_runtime_create)*/ +/* Add ms_tdl_to_runtime proto. */ +/* 03/01/02 JRB 34 Add SD_CONST to (RUNTIME_TYPE *) in RT_AA_CTRL.*/ +/* 02/06/02 JRB 33 Deleted unused MMS_ALTA_DATA */ +/* 12/20/01 JRB 32 Convert to use ASN1R. */ +/* Add ASN1_ENC_CTXT arg to ms_*_to_asn1*. */ +/* Add new function ms_local_to_asn1_easy. */ +/* 11/13/01 EJV 31 Added support for new MMS type UtcTime: */ +/* Added RT_UTC_TIME, chg RT_STR_END, RT_ARR_END*/ +/* M_ARB_DATA_CTRL: added utc fun proto. */ +/* 06/20/01 EJV 30 Added () around rt in ms_comp_name_xxx macros*/ +/* to handle rt+1, rt-1 arguments. */ +/* 04/11/01 MDE 29 Added ms_comp_name_pres macros */ +/* 01/21/01 EJV 28 M_ARB_DATA_CTRL: changed bool to booln, */ +/* to avoid conflict w/ bool type in C++ files. */ +/* 11/02/00 JRB 27 Del #if MVL_UCA. Use #if MMS_LITE instead. */ +/* 10/25/00 JRB 26 Del MVL_UCA define (define in makefile). */ +/* Move ST_RTREF typedef so always defined. */ +/* 08/29/00 JRB 25 Chg ms_comp_name_find from funct to macro. */ +/* 07/28/00 JRB 24 Simplify RT_TYPE ifdefs. */ +/* Fix SD_CONST in some prototypes. */ +/* Del m_type_nam* externs, only used in 1 file.*/ +/* 07/13/00 JRB 23 Add "#ifdef USE_RT_TYPE_2". */ +/* Add ms_runtime_create, ms_runtime_destroy, */ +/* ms_comp_name_find. */ +/* 06/22/00 MDE 22 Added numMvlRtNames declaration */ +/* 06/16/00 JRB 21 Add #if INT64_SUPP... */ +/* 04/20/00 JRB 20 Del SD_CONST from (RUNTIME_TYPE **) args. */ +/* 09/13/99 MDE 19 Added SD_CONST modifiers */ +/* 09/10/98 MDE 18 Added 'mvlRtNames' declaration */ +/* 08/11/98 MDE 17 Minor changes for Foundry */ +/* 06/30/98 MDE 16 Changed ST_REF to ST_VOID * */ +/* 04/07/98 MDE 15 Added struct/arr start/end alignment mode */ +/* 03/23/98 MDE 14 Now let user supply AA derived type (RD/WR) */ +/* 03/12/98 MDE 13 MMS-Lite related runtime type changes */ +/* 03/11/98 MDE 12 Removed NEST_RT_TYPES */ +/* 02/10/98 MDE 11 Changed runtime type */ +/* 12/29/97 MDE 10 Added 'typeCtrl' to RUNTIME_TYPE for use */ +/* with 'mktypes.exe' only. */ +/* 09/11/97 MDE 09 MMS ARB user funs now return ST_RET */ +/* 09/04/97 NAV 08 Split ARB Btime functions & add */ +/* have them return a ST_BOOLEAN */ +/* 08/15/97 MDE 07 BTOD handling comments */ +/* 08/14/97 RKR 06 Format changes */ +/* 07/16/97 RKR 05 Added more 64 bit integer support */ +/* 06/23/97 RKR 04 Added arbitrary data handling */ +/* 06/20/97 MDE 03 Added 64 bit integer support */ +/* 06/09/97 MDE 02 Changed Runtime Type and it's use */ +/* 06/05/97 RKR 01 Removed AA_OUTER_NEST rearranged AA constants*/ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef MMS_VVAR_INCLUDED +#define MMS_VVAR_INCLUDED + +#ifndef MMS_LITE +#include "mms_mv.h" +#endif + +#ifdef __cplusplus +extern "C" { +#endif + + +/************************************************************************/ +/************************************************************************/ +/* BINARY TIME OF DAY NOTES */ +/* There are two forms of TimeOfDay, 4 byte and 6 byte. */ +/* The 6 byte form contains the number of milliseconds since midnight */ +/* and the number of days since Jan 1, 1984. The 4 byte form contains */ +/* only the millisecond number. */ +/* */ +/* In memory, the Btime6 data looks like a pair of 32 bit integers: */ +/* ST_INT32 ms; Number of milliseconds since midnight */ +/* ST_INT32 day; Number of days since Jan 1, 1984 */ +/* */ +/* and the Btime4 data looks like a single 32 bit integer: */ +/* ST_INT32 ms; Number of milliseconds since midnight */ +/* */ +/* Data alignment for either form is that of a ST_INT32. */ +/* Note that MMS-EASE simply encodes/decodes the values to/from the */ +/* MMS PDU and does not perform any local time localization. */ +/************************************************************************/ + +/************************************************************************/ +/************************************************************************/ +/* MMS-LITE */ +/************************************************************************/ + +/* Default to USE_RT_TYPE_2 for MMS Lite (allows dynamic type creation).*/ +/* NOTE: define USE_RT_TYPE_3 only if you need to store RUNTIME_TYPES */ +/* in ROM, and you DO NOT need dynamic type creation. */ + +#if defined(MMS_LITE) && (!defined(USE_RT_TYPE_3)) +#define USE_RT_TYPE_2 +#endif + +/* The IOS Toolkit requires RT_TYPE_3 */ +#ifdef USPS_IOS +#undef USE_RT_TYPE_2 +#define USE_RT_TYPE_3 +#endif + +#if defined(FOUNDRY) /* Overwride defines when compiling Foundry */ +#undef USE_RT_TYPE_2 +#undef USE_RT_TYPE_3 +#endif + +/* RUNTIME TYPE INTEGER FORM */ +/* In MMS-LITE the size of the RUNTIME_TYPE must be minimized, so we */ +/* will use 16 bit integers for the compoments. This puts a 32K limit */ +/* on the size of a variable. */ + +#if !defined(MMS_LITE) +#define ST_RTINT ST_INT +#else +#define ST_RTINT ST_INT16 +#endif + +/************************************************************************/ +/* MMS-LITE UCA SPECIFIC SECTION */ +/************************************************************************/ +/* MMS-LITE uses an extended RUNTIME_TYPE for use with the MVL UCA */ +/* object handling extensions. */ +/* To use the UCA extensions, MVL_UCA must be defined. */ +/* NOTE: MVL_UCA is NOT defined by default. */ + +/* This typedef is for the application use only and can be changed as */ +/* required. Normally it is used to allow the applcation to consolidate */ +/* MVL_UCA read and write indication handler functions. */ +typedef ST_VOID * ST_RTREF; + +/* These elements are designed to be used to assist in implementing the */ +/* UCA device models in MMS-EASE Lite. Note that 'MVL_UCA' must be */ +/* defined when creating the MMS-EASE libraries if these features are */ +/* to be used. */ + +/* You may comment out the defines for those components that will not */ +/* bs used in the target application to reduce the size of the */ +/* RUNTIME_TYPE table. */ +#define MVLU_USE_REF + +typedef struct mvluTypeStruct + { + ST_RTINT prim_count; /* number of prims in this ARR, STRUCT, or prim */ + ST_RTINT sortedNum; /* For use by MVLU GNL code */ + ST_INT32 offSet; /* Offset from start of mother structure */ + ST_RTINT rdIndFunIndex; + ST_RTINT wrIndFunIndex; + +/* These elements can be used by the application as needed, and are */ +/* copied into the derived variable association. MVLU does not use them */ +/* directly. */ +#if defined(MVLU_USE_REF) + ST_RTREF ref; /* set to 'XXX$YYY_REF' by foundry */ +#endif + } MVLU_TYPE_INFO; + +/************************************************************************/ +/* RUNTIME TYPE DEFINITION STRUCTURE */ +/************************************************************************/ +/* The following defines specify the various data parameters */ +/************************************************************************/ + +#define RT_ARR_START 1 +#define RT_STR_START 2 +#define RT_BOOL 3 +#define RT_BIT_STRING 4 +#define RT_INTEGER 5 +#define RT_UNSIGNED 6 +#define RT_FLOATING_POINT 7 +#define RT_OCTET_STRING 9 +#define RT_VISIBLE_STRING 10 +#define RT_GENERAL_TIME 11 +#define RT_BINARY_TIME 12 +#define RT_BCD 13 +#define RT_BOOLEANARRAY 14 +#define RT_UTC_TIME 17 +#define RT_UTF8_STRING 16 /* specified in IEC-61850-8-1 */ +/* ADD new tags here and bump up RT_MAX_PRIM_TAG accordingly. */ +#define RT_MAX_PRIM_TAG 18 /* use when looking for max tag val*/ +#define RT_STR_END (RT_MAX_PRIM_TAG+1) +#define RT_ARR_END (RT_MAX_PRIM_TAG+2) + +struct runtime_type + { + ST_UCHAR el_tag; /* ID tag expected for this element, or special */ + /* values for end of array, end of struct */ + /* or nested runtime types */ + + ST_INT el_size; /* number of bytes occupied by this element */ + ST_INT32 offset_to_last; /* offset in bytes from the start of the */ + /* data to the last element */ + union + { + /* CRITICAL: element types in each structure in this union must */ + /* match. If not, the Foundry would misalign data in this union. */ + struct /* primitive element */ + { + ST_INT el_len; /* precision, in bytes except bitstr, time */ + ST_RTINT pad; /* included to allow aggregate initialization */ + } p; + struct /* structure (top or bottom) */ + { + ST_INT num_rt_blks; /* # runtime blks to get to strt/end elmnt */ + ST_RTINT pad; /* included to allow aggregate initialization */ +#if !defined(USE_RT_TYPE_2) && !defined(USE_RT_TYPE_3) + ST_BOOLEAN packd; /* Indicates if packed or not. */ +#endif + } str; + struct /* Array (top or bottom) */ + { + ST_INT num_elmnts; /* # array elements (index limit) */ + ST_RTINT num_rt_blks; /* # runtime blks to get to strt/end elmnt */ +#if !defined(USE_RT_TYPE_2) && !defined(USE_RT_TYPE_3) + ST_BOOLEAN packd; /* Indicates if packed or not. */ +#endif + } arr; + } u; + +#if defined(USE_RT_TYPE_2) + ST_CHAR *comp_name_ptr; /* ptr to comp name string */ +#elif defined(USE_RT_TYPE_3) + ST_RTINT name_index; /* Index into mvlRtNames table */ +#else /* Default */ + ST_CHAR name[MAX_IDENT_LEN+1]; +#endif + +#if defined(MMS_LITE) + MVLU_TYPE_INFO mvluTypeInfo; /* MMS-LITE UCA handler use */ +#endif +#if defined(FOUNDRY) + ST_CHAR *refBuf; + ST_CHAR *rdIndexBuf; + ST_CHAR *wrIndexBuf; +#endif +#if !defined (MMS_LITE) + ST_RTINT rt_index_q; /* index into RUNTIME_TYPE array for 'q'*/ + /* attribute of IEC-61850 type */ + ST_RTINT rt_index_t; /* index into RUNTIME_TYPE array for 't'*/ + /* attribute of IEC-61850 type */ + ST_INT32 data_offset; /* offset in bytes from start of data */ + /* NOTE: should be same as offSet in */ + /* mvluTypeInfo above for MMS_LITE */ +#endif + }; +typedef struct runtime_type RUNTIME_TYPE; + +/* Runtime type HEAD struct contains info about RUNTIME_TYPE array. */ +typedef struct + { + RUNTIME_TYPE *rt_first; /* ptr to first in array of structs */ + ST_INT rt_num; /* num entries in RUNTIME_TYPE array */ + ST_VOID *reserved_1; /* ptr to any optional info for this type*/ + } RUNTIME_CTRL; + +/************************************************************************/ +/* ASN1_TO_RT_DEC_INFO - structure to store temporary decode info. */ +/************************************************************************/ +typedef struct + { +#if defined(USE_RT_TYPE_2) +/* These are used for saving component names. */ + ST_CHAR *comp_name_buf; /* Alloc'd buf to store ALL component names.*/ + ST_INT comp_name_size; /* Buffer size (in bytes) */ + ST_INT comp_name_used; /* Running count of bytes needed OR used.*/ + + ST_CHAR *comp_name_ptr; /* current position in buffer. */ +#endif + RUNTIME_TYPE *rt_start; /* ptr to runtime table start */ + ST_BOOLEAN calc_only; /* flag to calculate num rt blocks */ + /* DEBUG: add rt_ptr, rt_count, rt_limit, etc. & delete global vars.*/ + } ASN1_TO_RT_DEC_INFO; + +/************************************************************************/ +/* RUNTIME_BUILD_CTXT: info for dynamic building of runtime type defs. */ +/************************************************************************/ +typedef struct + { + RUNTIME_CTRL *rt_ctrl; /* type definition being built */ + RUNTIME_TYPE *rt_type; /* ptr to current type */ + RUNTIME_TYPE *max_rt_type; /* ptr after last RUNTIME_TYPE struct */ + ST_INT nest_level; /* index into "nest_start_ptr" array */ + RUNTIME_TYPE *nest_start_ptr [ASN1_MAX_LEVEL]; /* array of ptrs to*/ + /* STR_START or ARR_START */ + ST_CHAR *comp_name_buf; /* allocated buf to store comp names */ + /* [MAX_IDENT_LEN+1] for each */ + ST_RET errcode; /* Set when first error detected */ + /* Initialized to SD_SUCCESS. */ + + ST_BOOLEAN do_count; /* If SD_TRUE, bld functions just count */ + /* num of RUNTIME_TYPE elements needed */ + /* (nothing allocated or initialized) */ + ST_INT curr_count; /* current count of RUNTIME_TYPE elems */ + /* (used only when do_count=SD_TRUE) */ + ST_INT max_count; /* max count of RUNTIME_TYPE elems */ + /* (used only when do_count=SD_TRUE) */ + } RUNTIME_BUILD_CTXT; + +#if defined(MMS_LITE) +ST_RET u_ml_get_rt_type (ASN1_DEC_CTXT *aCtx, OBJECT_NAME *type_name, + RUNTIME_TYPE **rt_out, ST_INT *num_rt_out); + +extern ST_INT maxMvlRtNames; +extern ST_INT numMvlRtNames; +extern ST_CHAR **mvlRtNames; +#endif + +ST_BOOLEAN ms_is_rt_prim (SD_CONST RUNTIME_TYPE *rt); +ST_CHAR *ms_rt_el_tag_text (SD_CONST RUNTIME_TYPE *rt_type); + +/************************************************************************/ +/* ALTERNATE ACCESS DEFINITION STRUCTURE */ +/************************************************************************/ + +/* Possible values for sel_type */ +#define AA_COMP 0 +#define AA_INDEX 1 +#define AA_INDEX_RANGE 2 +#define AA_ALL 3 +#define AA_COMP_NEST 4 +#define AA_INDEX_NEST 5 +#define AA_INDEX_RANGE_NEST 6 +#define AA_ALL_NEST 7 +#define AA_END_NEST 8 + +#define MAX_NUM_AA_EL 100 + +struct alt_acc_el + { + ST_BOOLEAN comp_name_pres; + ST_CHAR comp_name[MAX_IDENT_LEN+1];/* named component for derived */ + /* type */ + ST_INT sel_type; /* type of access selection */ + union + { + ST_CHAR component[MAX_IDENT_LEN+1]; /* Used for AA_COMP */ + ST_UINT32 index; /* Used for AA_INDEX */ + struct /* Used for AA_INDEX_RANGE */ + { + ST_UINT32 low_index; + ST_UINT32 num_elmnts; + } ir; + } u; + }; +typedef struct alt_acc_el ALT_ACC_EL; + +struct alt_access + { + ST_INT num_aa; + ALT_ACC_EL *aa; + }; +typedef struct alt_access ALT_ACCESS; + + +/* This data structure is used in table form to implement alternate */ +/* access from the server perspective (NEWDATA <-> ASN1DATA) */ +/* It allows re-ordering of elements as well as limited selection */ + +struct rt_aa_ctrl + { + SD_CONST RUNTIME_TYPE *rt; + ST_UINT offset_to_data; /* offset to data element */ + ST_INT el_size; /* Size of the element in memory */ + }; +typedef struct rt_aa_ctrl RT_AA_CTRL; + +ST_RET ms_adl_to_aa (ST_CHAR *adl_str,ALT_ACCESS *alt_acc); +ST_RET ms_adl_to_asn1_2 (ST_CHAR *adl_str, + ST_UCHAR *buf_ptr, + ST_INT buf_len, + ST_UCHAR **asn1_ptr_out, + ST_INT *asn1_len_out); + +ST_RET ms_aa_to_adl (ALT_ACCESS *alt_acc, + ST_CHAR *adl_str, + ST_INT max_adl_len); + +ST_RET ms_local_to_asn1_aa (ASN1_ENC_CTXT *aCtx, SD_CONST RUNTIME_TYPE *rt_head, + ST_INT rt_num, + ALT_ACCESS *alt_acc, + ST_CHAR *dptr); + +ST_RET ms_asn1_to_local_aa (SD_CONST RUNTIME_TYPE *rt_head, + ST_INT rt_num, + ALT_ACCESS *alt_acc, + ST_UCHAR *asn1ptr, + ST_INT asn1len, + ST_CHAR *dptr); + + +ST_VOID ms_log_alt_access (ALT_ACCESS *alt_acc); + + +ST_RET ms_aa_to_asn1 (ASN1_ENC_CTXT *aCtx, ALT_ACCESS *alt_acc); +/* ms_aa_to_asn1_2 usually easier to use than ms_aa_to_asn1. */ +ST_RET ms_aa_to_asn1_2 (ALT_ACCESS *alt_acc, + ST_UCHAR *buf_ptr, + ST_INT buf_len, + ST_UCHAR **asn1_ptr_out, + ST_INT *asn1_len_out); +ST_RET ms_asn1_to_aa (ST_UCHAR *asn1ptr, ST_INT asn1len, + ALT_ACCESS *alt_acc_out); + + +/************************************************************************/ +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* Type definition structures and manipulation functions */ +/************************************************************************/ + +struct named_type /* type definition table structure */ + { + DBL_LNK link; /* generic list links */ + ST_CHAR type_name[MAX_IDENT_LEN+1]; /* name of data type */ + ST_BOOLEAN deletable; /* set != 0 if deletable */ + ST_UCHAR protection; /* protection afforded for type */ + ST_BOOLEAN erased; /* flags if deleted, but nref !=0 */ + ST_INT nref; /* number of var def'ns referencing this*/ + RUNTIME_CTRL *rt_ctrl; /* May be NULL */ + RUNTIME_TYPE *rt_head; /* ptr to runtime type def head */ + ST_INT rt_num; /* # of rt_blocks in runtime type def */ + ST_INT asn1len; /* # bytes in ASN.1 definition */ + ST_UCHAR *asn1ptr; /* pointer to ASN.1 definition */ + ST_INT blocked_len; /* length of blocked (packed) data type */ + ST_CHAR *(*read_ind_fun)(ST_CHAR *src, ST_INT len); /* std read ind function ptr */ + ST_INT (*write_ind_fun)(ST_CHAR *src, ST_CHAR *dest, ST_INT len); /* std write ind */ + }; +typedef struct named_type NAMED_TYPE; + +ST_RET ms_locl_to_asn1_aa (ASN1_ENC_CTXT *aCtx, NAMED_TYPE *tptr, + ALT_ACCESS *alt_acc, + ST_CHAR *dptr); + +ST_RET ms_asn1_to_locl_aa (NAMED_TYPE *tptr, + ALT_ACCESS *alt_acc, + ST_UCHAR *asn1ptr, + ST_INT asn1len, + ST_CHAR *dptr); + +extern ST_INT max_mmsease_types; /* max number allowed */ +extern ST_INT mms_type_count; /* number currently defined */ + +NAMED_TYPE *ms_add_named_type (DOMAIN_OBJS *dom, ST_CHAR *name, + ST_UCHAR *asn1, ST_INT asn1len); +NAMED_TYPE *ms_find_named_type_obj (OBJECT_NAME *obj, + ST_INT chan); +NAMED_TYPE *ms_find_named_type (DOMAIN_OBJS *dom,ST_CHAR *name); +ST_RET ms_del_named_type (DOMAIN_OBJS *dom,ST_CHAR *name); +ST_RET ms_del_type (DOMAIN_OBJS *dom, NAMED_TYPE *name); +ST_VOID ms_del_all_named_types (DOMAIN_OBJS *dom_objs); +ST_RET ms_del_named_type_obj (OBJECT_NAME *obj, ST_INT chan); +ST_RET ms_add_std_types (DOMAIN_OBJS *dom); + +ST_CHAR *rdind_fun (ST_CHAR *addr, ST_INT len); +ST_RET wrind_fun (ST_CHAR *data, ST_CHAR *addr, ST_INT len); + +ST_RET mv_gettype_resp (MMSREQ_IND *ind); +ST_RET mv_gettype_resp (MMSREQ_IND *ind); +ST_RET mv_deltype_resp (MMSREQ_IND *ind); +ST_RET mv_deftype_resp (MMSREQ_IND *ind); + + +/************************************************************************/ +/* Variable definition structures and manipulation functions */ +/************************************************************************/ + +struct named_var /* name table structure */ + { + DBL_LNK link; /* generic list links */ + ST_CHAR varname[MAX_IDENT_LEN+1];/* variable name */ + ST_BOOLEAN invalid; /* variable invalidated due */ + /* to type or addr deleted */ + NAMED_TYPE *type; /* type name/domain */ + ST_BOOLEAN deletable; /* != 0 if deletable */ + ST_UCHAR rd_pro; /* read protection */ + ST_UCHAR wr_pro; /* write protection */ + VAR_ACC_ADDR addr; /* address */ + ST_CHAR *(*read_ind_fun)(ST_CHAR *src, ST_INT len); /* std read ind function ptr */ + ST_INT (*write_ind_fun)(ST_CHAR *src, ST_CHAR *dest, ST_INT len); /* std write ind */ +/* Followed by the address, for symbolic or unconstrained address */ +/* types. The length of this address is determined when the var added */ + SD_END_STRUCT + }; +typedef struct named_var NAMED_VAR; + +struct named_var_list /* name variable list structure */ + { + DBL_LNK link; /* generic list links */ + ST_CHAR name[MAX_IDENT_LEN+1]; /* variable list name */ + ST_BOOLEAN deletable; /* != 0 if deletable */ + ST_INT num_vars; /* # of vars in Named Variable List. */ + /* VARIABLE_LIST var_list [num_of_variables]; */ + SD_END_STRUCT + }; +typedef struct named_var_list NAMED_VAR_LIST; + +extern ST_INT max_mmsease_vars; /* max number allowed */ +extern ST_INT mms_var_count; /* number currently defined */ +extern ST_INT max_mmsease_nvlists; +extern ST_INT mms_nvlist_count; + +/************************************************************************/ +/* This function selects the binary search mechansisms (default) */ +ST_VOID ms_bs_init (ST_VOID); + +/* This function selects the linked list search mechansisms */ +ST_VOID ms_ll_init (ST_VOID); + +NAMED_VAR *ms_add_named_var (DOMAIN_OBJS *dom, ST_CHAR *name, + OBJECT_NAME *type, VAR_ACC_ADDR *addr, + ST_INT chan); +NAMED_VAR *ms_add_var (DOMAIN_OBJS *dom, ST_CHAR *name, + NAMED_TYPE *type, VAR_ACC_ADDR *addr, ST_INT chan); + +NAMED_VAR *ms_find_named_var (DOMAIN_OBJS *dom, ST_CHAR *name); +NAMED_VAR *ms_find_named_var_obj (OBJECT_NAME *obj, ST_INT chan); + +ST_RET ms_del_named_var (DOMAIN_OBJS *dom, ST_CHAR *name); +ST_RET ms_del_named_var_obj (OBJECT_NAME *obj, ST_INT chan); + +ST_VOID ms_del_all_named_vars (DOMAIN_OBJS *dom); + +NAMED_VAR_LIST *ms_add_nvlist (DOMAIN_OBJS *dom, ST_CHAR *name, + ST_INT num_vars, VARIABLE_LIST *var_list); +NAMED_VAR_LIST *ms_find_nvlist (DOMAIN_OBJS *dom, ST_CHAR *name); +NAMED_VAR_LIST *ms_find_nvlist_obj (OBJECT_NAME *obj, ST_INT chan); + +ST_RET ms_del_nvlist (DOMAIN_OBJS *dom, ST_CHAR *name); +ST_RET ms_del_nvlist_obj (OBJECT_NAME *obj, ST_INT chan); + +ST_VOID ms_del_all_nvlists (DOMAIN_OBJS *dom); + +ST_RET mv_getvar_resp (MMSREQ_IND *ind); +ST_RET mv_delvar_resp (MMSREQ_IND *ind); +ST_RET mv_defvar_resp (MMSREQ_IND *ind); +ST_RET mv_namelist_resp (MMSREQ_IND *ind); + +ST_RET mv_getvlist_resp (MMSREQ_IND *ind); +ST_RET mv_delvlist_resp (MMSREQ_IND *ind); +ST_RET mv_defvlist_resp (MMSREQ_IND *ind); + +/************************************************************************/ +/* VIRTUAL MACHINE READ, WRITE, INFORMATION REPORT */ +/* The structure below are used for most variable access VM req funs, */ +/* and allows multiple variables per transaction. */ +/************************************************************************/ +/* VM defines to be used for DataAccessError codes */ +#define ERROR_RESPONSE 20 /* for error response only */ +#define NUM_VAR_MISMATCH 21 + + +struct mv_vardesc /* virtual machine variable description */ + { + OBJECT_NAME name; /* name of variable */ + OBJECT_NAME type; /* type of variable */ + ST_CHAR *data; /* destination/source pointer */ + }; +typedef struct mv_vardesc MV_VARDESC; + +/* This structure is provided as request information for a MV read req. */ +/* If desired, this info may be examined in the user confirm function. */ + +struct readvars_req_info + { /* virtual machine read req structure */ + ST_INT num_of_vars; /* number of variables */ +/* list of variables */ +/* MV_VARDESC vardesc_list [num_of_vars]; */ + SD_END_STRUCT + }; +typedef struct readvars_req_info READVARS_REQ_INFO; + + +/***** READ REQUEST **** */ + +/* a pointer to an array of these structures are passed into the */ +/* 'mv_read_variables' function */ + +struct mv_read_req_info + { + struct /* input (request) information */ + { + ST_CHAR *data_ptr; /* Dest data buffer (for success) */ + NAMED_TYPE *type; /* pointer to associated type */ + ST_BOOLEAN alt_acc_pres; /* set SD_TRUE if Alt Access is present */ + ST_BOOLEAN alt_acc_type_aa; /* set SD_TRUE if type is Alt Acc ready */ + ST_BOOLEAN alt_acc_data_packed; /* set SD_TRUE if local data is packed */ + ALT_ACCESS alt_acc; /* Alternate Access specification */ + }i; + struct /* output (result) information */ + { + ST_RET result; /* !=0 for success, else SD_FAILURE */ + ST_INT16 err_code; /* DataAccessError (for failure) */ + +/* If a named type is not supplied, and the read was a success, this */ +/* is the derived runtime type. It was allocated using 'chk_calloc' */ +/* and must be free'd using 'chk_free' */ + + ST_INT num_rt; + RUNTIME_TYPE *rt_out; + +/* If a data_ptr is not supplied, and the read was a success, this */ +/* is the buffer allocated for the data. It was allocated using */ +/* 'chk_calloc' and must be free'd using 'chk_free' */ + + ST_CHAR *data_ptr_out; /* Dest data buffer (for success) */ + }o; + }; +typedef struct mv_read_req_info MV_READ_REQ_INFO; + +MMSREQ_PEND *mv_read (ST_INT chan, OBJECT_NAME *name, + OBJECT_NAME *type, ST_CHAR *dest); +MMSREQ_PEND *mv_readvars (ST_INT chan, ST_INT num_var, MV_VARDESC *info); +MMSREQ_PEND *mv_read_variables (ST_INT chan, ST_INT num_var, + READ_REQ_INFO *prim, + MV_READ_REQ_INFO *vminfo); + +/***** READ RESPONSE ***** */ + +/* a pointer to an array of these structures are passed into the */ +/* 'mv_read_response' function */ + +struct mv_read_resp_info + { + ST_INT16 result; /* ACC_RSLT_SUCCESS, ACC_RSLT_FAILURE */ + ST_INT16 err_code; /* DataAccessError (for failure) */ + ST_CHAR *data_ptr; /* Source data buffer (for success) */ + NAMED_TYPE *type; /* pointer to associated type */ + ST_BOOLEAN alt_acc_pres; /* set SD_TRUE if Alt Access is present */ + ST_BOOLEAN alt_acc_data_packed;/* set SD_TRUE if local data is packed */ + ALT_ACCESS alt_acc; /* Alternate Access specification */ + }; +typedef struct mv_read_resp_info MV_READ_RESP_INFO; + +ST_RET mv_read_resp (MMSREQ_IND *ind); +ST_RET mv_read_response (MMSREQ_IND *ind, ST_INT num_var, + MV_READ_RESP_INFO *info); + +/***** WRITE REQUEST **** */ + +/* a pointer to an array of these structures are passed into the */ +/* 'mv_write_variables' function */ + +struct mv_write_req_info + { + ST_CHAR *data_ptr; /* Source data buffer */ + NAMED_TYPE *type; /* pointer to associated type */ + ST_BOOLEAN alt_acc_pres; /* set SD_TRUE if Alt Access is present */ + ST_BOOLEAN alt_acc_type_aa; /* set SD_TRUE if type is Alt Acc ready */ + ST_BOOLEAN alt_acc_data_packed;/* set SD_TRUE if local data is packed */ + ALT_ACCESS alt_acc; /* Alternate Access specification */ + }; +typedef struct mv_write_req_info MV_WRITE_REQ_INFO; + +MMSREQ_PEND *mv_write (ST_INT chan, OBJECT_NAME *var, + OBJECT_NAME *type, ST_CHAR *src); +MMSREQ_PEND *mv_writevars (ST_INT chan, ST_INT num_var, MV_VARDESC *info); +MMSREQ_PEND *mv_write_variables (ST_INT chan, ST_INT num_data, + VAR_ACC_SPEC *reqinfo, + MV_WRITE_REQ_INFO *vminfo); + +/***** WRITE RESPONSE **** */ + +ST_RET mv_write_resp (MMSREQ_IND *ind); +WRITE_RESP_INFO *mv_write_decode (MMSREQ_IND *indptr); +ST_RET ms_extract_write_data (MMSREQ_IND *ind, ST_INT index, + NAMED_TYPE *type, + ST_CHAR *dest, ST_BOOLEAN alt_acc_packed); + +ST_RET ms_extract_wr_data (MMSREQ_IND *indptr, ST_INT i, + NAMED_TYPE *type, ST_CHAR *dest, + ST_BOOLEAN alt_acc_packed, ALT_ACCESS *alt_acc_ptr); + +/***** INFORMATION REPORT REQUEST ***** */ + +/* a pointer to an array of these structures are passed into the */ +/* 'mv_info_req' function */ + +struct mv_info_req_info + { + ST_CHAR *data_ptr; /* Source data buffer */ + NAMED_TYPE *type; /* pointer to associated type */ + ST_BOOLEAN alt_acc_pres; /* set SD_TRUE if Alt Access is present */ + ST_BOOLEAN alt_acc_data_packed;/* set SD_TRUE if local data is packed */ + ALT_ACCESS alt_acc; /* Alternate Access specification */ + }; +typedef struct mv_info_req_info MV_INFO_REQ_INFO; + +ST_RET mv_info (ST_INT chan, OBJECT_NAME *var, OBJECT_NAME *type, + ST_CHAR *src); +ST_RET mv_infovars (ST_INT chan, ST_INT num_vars, MV_VARDESC *vminfo); +ST_RET mv_info_report (ST_INT chan, VAR_ACC_SPEC *req, + ST_INT num_var, MV_INFO_REQ_INFO *vminfo); +ST_RET mv_info_nvlist (ST_INT chan, OBJECT_NAME *obj); + +ST_RET ms_extract_info_data (MMSREQ_IND *ind, ST_INT index, + NAMED_TYPE *type, ST_CHAR *dest, + ST_BOOLEAN alt_acc_packed); + +ST_RET ms_extract_inf_data (MMSREQ_IND *indptr, ST_INT i, + NAMED_TYPE *type, ST_CHAR *dest, + ST_BOOLEAN alt_acc_packed, + ALT_ACCESS *alt_acc_ptr); + +/************************************************************************/ + +OBJECT_NAME *ms_extract_varname (ST_CHAR *reqinfo, ST_INT op, ST_INT indx); + +/************************************************************************/ +/************************************************************************/ +#endif /* end of MMS_LITE not defined */ +/************************************************************************/ +/************************************************************************/ + +#define MMS_EASE_BUILDER 0 +#define UNKNOWN_BUILDER 1 + +extern ST_INT ms_req_bld_id; +extern ST_INT ms_resp_bld_id; + +ST_RET ms_init_va_size (ST_INT chan, ST_UCHAR spec_in_rslt, + ST_INT16 var_acc_tag, OBJECT_NAME *vl_name, + ST_LONG *req_size_out, ST_LONG *resp_size_out); + +#ifndef MMS_LITE +ST_RET ms_va_size (ST_INT op, ST_UCHAR spec_in_rslt, ST_INT16 var_acc_tag, + VARIABLE_LIST *vl, NAMED_TYPE *type, + ST_LONG *req_size_out, ST_LONG *resp_size_out); +#else +ST_RET ms_va_size (ST_INT op, ST_UCHAR spec_in_rslt, ST_INT16 var_acc_tag, + VARIABLE_LIST *vl_ptr, ST_INT type_id, + ST_LONG *req_size, ST_LONG *resp_size); +#endif + +/************************************************************************/ +/************************************************************************/ + +extern ST_INT m_rt_type_limit; /* max num of runtime blks per def */ + + +#ifndef MMS_LITE +ST_INT ms_get_blocked_len (NAMED_TYPE *type); +#endif + +ST_INT ms_get_blocked_length (SD_CONST RUNTIME_TYPE *rt, ST_INT num_rt); + +ST_RET ms_runtime_to_asn1 (ASN1_ENC_CTXT *aCtx, SD_CONST RUNTIME_TYPE *rt, ST_INT num_rt); + +ST_UCHAR *ms_mk_asn1_type (ST_INT *asn1_len, ST_UCHAR *asn1_buf, + ST_CHAR *tdl); + +ST_VOID ms_log_runtime (SD_CONST RUNTIME_TYPE *rt, ST_INT num_rt); + +ST_CHAR *ms_asn1_to_tdl (ST_UCHAR *asn1_ptr, ST_INT asn1_len, + ST_INT max_tdl_len); +ST_INT ms_runtime_to_tdl (SD_CONST RUNTIME_TYPE *rt, ST_INT rt_num, + ST_CHAR *tdl_buf, ST_INT max_tdl_len); + +RUNTIME_CTRL *ms_tdl_to_runtime (ST_CHAR *tdl, /* TDL string */ + ST_UCHAR *asn1_buf, /* ASN.1 buffer */ + ST_INT asn1_buf_len); /* buffer len */ + +ST_RET ms_rt_to_typedef (ST_CHAR *typedefName, SD_CONST RUNTIME_TYPE *rt, + ST_INT numRt, ST_CHAR *dest, ST_INT destSize); + +RUNTIME_CTRL *ms_runtime_create (ST_UCHAR *asn1_data, + ST_UINT asn1_len, + ST_INT max_num_rt); +ST_VOID ms_runtime_destroy (RUNTIME_CTRL *rt_head); + +#if !defined(MMS_LITE) +/* For backward compatibility only. */ +/* New programs should use ms_runtime_create. */ + +ST_INT ms_asn1_to_runtime_x (ST_UCHAR *asn1_data, ST_UINT asn1_len, + RUNTIME_TYPE *rt_table, ST_INT rt_len, + ST_BOOLEAN calc_only); + +#define ms_asn1_to_runtime(asn1,asn1_len,rt,num_rt)\ + ms_asn1_to_runtime_x(asn1,asn1_len,rt, num_rt,m_calc_rt_size) + +/* Note: This variable is no longer used internally by MMS-EASE, but */ +/* can be used in the application space for the following: */ +/* 1. Is used in the macro 'ms_asn1_to_runtime' for the */ +/* 'ms_asn1_to_runtime_x' calc_only parameter. This is done to */ +/* maintain backward compatibility, and users are encouraged to */ +/* use 'ms_runtime_create' instead. */ +extern ST_BOOLEAN m_calc_rt_size; /* flag to calculate num rt blocks */ + /* in ms_asn1_to_runtime */ +#endif /* !MMS_LITE */ + +/************************************************************************/ +/* ms_comp_name_find */ +/* These macros find the component name in a runtime type structure. */ +/* There are different macros for different RUNTIME_TYPE structures. */ +/* Macro argument = ptr to RUNTIME_TYPE struct. */ +/* RETURN: pointer to component name string */ +/************************************************************************/ +#if defined(USE_RT_TYPE_2) + +/* rt->comp_name_ptr = pointer to string */ +/* NOTE: ptr may be NULL. If so return empty string (i.e. "") instead */ +/* of NULL. Caller might not handle NULL. */ +#define ms_comp_name_find(rt) ((rt)->comp_name_ptr ? (rt)->comp_name_ptr : "") +#define ms_comp_name_pres(rt) ((rt)->comp_name_ptr ? SD_TRUE : SD_FALSE) + +#elif defined(USE_RT_TYPE_3) + +/* rt->name_index = index to global array of strings "mvlRtNames" */ +#define ms_comp_name_find(rt) (mvlRtNames[(rt)->name_index]) +#define ms_comp_name_pres(rt) ((rt)->name_index > 0 ? SD_TRUE : SD_FALSE) + +#else /* Default */ + +/* rt->name = character array. */ +#define ms_comp_name_find(rt) ((rt)->name) +#define ms_comp_name_pres(rt) ((rt)->name[0] != 0 ? SD_TRUE : SD_FALSE) + +#endif /* Default */ + + +/************************************************************************/ +/* VIRTUAL MACHINE ASN.1 TO?FROM LOCAL REPRESENTATION FUNCTIONS */ +/* These functions are used to translate ASN.1 encoded data to/from */ +/* local format */ +/************************************************************************/ + +#ifndef MMS_LITE +ST_RET ms_asn1_to_locl (NAMED_TYPE *type, + ST_UCHAR *asn1, ST_INT asn1_len, ST_CHAR *dest); +ST_RET ms_locl_to_asn1 (ASN1_ENC_CTXT *aCtx, NAMED_TYPE *type, ST_CHAR *src); +#endif + +/* These 2 are Re-entrant functions. Based on ASN1R tools. */ +ST_RET ms_asn1_to_local (SD_CONST RUNTIME_TYPE *rt, ST_INT num_rt, + ST_UCHAR *asn1, ST_INT asn1_len, ST_CHAR *dest); +ST_RET ms_local_to_asn1 (ASN1_ENC_CTXT *aCtx, + SD_CONST RUNTIME_TYPE *rt_head, + ST_INT rt_num, + ST_CHAR *dptr); +/* "ms_local_to_asn1_2" is almost the same as "ms_local_to_asn1_easy" */ +/* but its arguments are more consistent with other encoding functions. */ +ST_RET ms_local_to_asn1_2 (SD_CONST RUNTIME_TYPE *rt_head, ST_INT rt_num, + ST_CHAR *dptr, + ST_UCHAR *buf_ptr, + ST_INT buf_len, + ST_UCHAR **asn1_ptr_out, + ST_INT *asn1_len_out); +ST_UCHAR *ms_local_to_asn1_easy (SD_CONST RUNTIME_TYPE *rt_head, ST_INT rt_num, + ST_CHAR *dptr, + ST_UCHAR *asn1Buf, + ST_INT asn1BufLen, + ST_INT *asn1LenOut); +ST_CHAR *ms_local_to_text (ST_CHAR *datptr, SD_CONST RUNTIME_TYPE *rt_head, ST_INT rt_num, + ST_CHAR *textBuf, ST_UINT textBufSize); + + + +/* Index definitions into the alignment table */ +#define ARRSTRT_ALGN 0 +#define ARREND_ALGN 1 +#define STRSTRT_ALGN 2 +#define STREND_ALGN 3 +#define INT8_ALGN 4 +#define INT16_ALGN 5 +#define INT32_ALGN 6 +#define INT64_ALGN 7 +#define FLOAT_ALGN 8 +#define DOUBLE_ALGN 9 +#define OCT_ALGN 10 +#define BOOL_ALGN 11 +#define BCD1_ALGN 12 +#define BCD2_ALGN 13 +#define BCD4_ALGN 14 +#define BIT_ALGN 15 +#define VIS_ALGN 16 + +#define NUM_ALGN_TYPES 17 + +/* define alignment for Generalized Time (in VS 2005 time_t is 64-bits) */ +#define GENERAL_TIME_ALGN (sizeof(time_t) == 8 ? INT64_ALGN : INT32_ALGN) + + +extern SD_CONST ST_INT *m_data_algn_tbl; +extern SD_CONST ST_INT m_packed_data_algn_tbl[NUM_ALGN_TYPES]; +extern SD_CONST ST_INT m_def_data_algn_tbl[NUM_ALGN_TYPES]; +extern ST_INT m_lite_data_algn_tbl[NUM_ALGN_TYPES]; /* created by Foundry */ + +#define M_STRSTART_MODE_NONE 0 +#define M_STRSTART_MODE_FIRST 1 +#define M_STRSTART_MODE_LARGEST 2 +extern ST_INT m_struct_start_algn_mode; + +#define M_STREND_MODE_NONE 0 +#define M_STREND_MODE_LARGEST 1 +extern ST_INT m_struct_end_algn_mode; + +/* User defined runtime type post processing function */ +extern ST_VOID (*u_rt_type_process) (SD_CONST RUNTIME_TYPE *rt, ST_INT num_rt); + + +/************************************************************************/ +/************************************************************************/ + +/* For encoding and decoding 'alternateAccess', the outer constructor */ +/* usually has a value of 5. If a different value is required (for */ +/* scattered access, for instance), this value can be modified. */ +/* Used in both encoding and decode of alternateAccess */ +extern ST_INT16 m_alt_acc_outer_tag; + +/* When decoding an ASN.1 alternateAccess, this variable determines the */ +/* size of the table that is allocated for the decoded AA (and so */ +/* limits the complexity of the alternate access that can be handled */ +/* The default value is 50. */ +extern ST_INT m_max_dec_aa; + +/* This variable is the 'high water' mark of how many AA were actually */ +/* required. This can be used to tune memory usage if desired. */ +extern ST_INT m_hw_dec_aa; + +/* When performing ASN1 <-> local data format, the runtime type is */ +/* 'unrolled', and one element is required for each data element and */ +/* structure/array start/end. This variable determines the size of the */ +/* of the table that is allocated for this operation (and so limits the */ +/* size and complexity of the data types that can be handled. */ +/* The default value is 1000. */ +extern ST_INT m_max_rt_aa_ctrl; + +/* This variable is the 'high water' mark of how many elements were */ +/* actually required for m_max_rt_aa_ctrl. This can be used to tune */ +/* memory usage if desired. */ +extern ST_INT m_hw_rt_aa_ctrl; + +/* This variable is used to determine whether the local data format is */ +/* in 'packed type' or 'original type' form. Used in all conversions */ +/* to/from local data form when the AA_DATA library is used. */ +/* Temporarily set to SD_FALSE for the non-AA data conversion functions. */ +extern ST_BOOLEAN m_alt_acc_packed; + +/************************************************************************/ + +extern ST_RET (*ms_asn1_data_to_runtime_fun) (RUNTIME_TYPE **tptr, + ST_INT *t_len, + ST_UCHAR *asn1ptr, + ST_INT asn1_len); + +ST_RET ms_asn1_data_to_runtime (RUNTIME_TYPE **tptr, + ST_INT *t_len, + ST_UCHAR *asn1ptr, + ST_INT asn1_len); + +ST_RET ms_asn1_data_to_locl (ST_UCHAR *asn1_data, + ST_INT asn1_data_len, + ST_VOID **data_dest, + ST_INT *data_dest_len, + RUNTIME_TYPE **rt, + ST_INT *t_len); + +ST_VOID ms_rt_size_calc (RUNTIME_TYPE *rt_head, ST_INT rt_num); + +/************************************************************************/ +/* ARBITRARY DATA HANDLING */ +/************************************************************************/ + +typedef struct m_arb_data_ctrl + { + ST_RET (*arrStart) (RT_AA_CTRL *rtaa); + ST_RET (*arrEnd) (RT_AA_CTRL *rtaa); + ST_RET (*strStart) (RT_AA_CTRL *rtaa); + ST_RET (*strEnd) (RT_AA_CTRL *rtaa); + ST_RET (*int8) (ST_INT8 *data_dest, RT_AA_CTRL *rtaa); + ST_RET (*int16) (ST_INT16 *data_dest, RT_AA_CTRL *rtaa); + ST_RET (*int32) (ST_INT32 *data_dest, RT_AA_CTRL *rtaa); +#ifdef INT64_SUPPORT + ST_RET (*int64) (ST_INT64 *data_dest, RT_AA_CTRL *rtaa); +#endif + ST_RET (*uint8) (ST_UINT8 *data_dest, RT_AA_CTRL *rtaa); + ST_RET (*uint16) (ST_UINT16 *data_dest, RT_AA_CTRL *rtaa); + ST_RET (*uint32) (ST_UINT32 *data_dest, RT_AA_CTRL *rtaa); +#ifdef INT64_SUPPORT + ST_RET (*uint64) (ST_UINT64 *data_dest, RT_AA_CTRL *rtaa); +#endif + ST_RET (*flt) (ST_FLOAT *data_dest, RT_AA_CTRL *rtaa); + ST_RET (*dbl) (ST_DOUBLE *data_dest, RT_AA_CTRL *rtaa); + ST_RET (*oct) (ST_UCHAR *data_dest, RT_AA_CTRL *rtaa); + ST_RET (*booln) (ST_BOOLEAN *data_dest, RT_AA_CTRL *rtaa); + ST_RET (*bcd1) (ST_INT8 *data_dest, RT_AA_CTRL *rtaa); + ST_RET (*bcd2) (ST_INT16 *data_dest, RT_AA_CTRL *rtaa); + ST_RET (*bcd4) (ST_INT32 *data_dest, RT_AA_CTRL *rtaa); + ST_RET (*bs) (ST_UCHAR *data_dest, RT_AA_CTRL *rtaa); + ST_RET (*vis) (ST_CHAR *data_dest, RT_AA_CTRL *rtaa); + ST_RET (*bt4) (ST_INT32 *data_dest, RT_AA_CTRL *rtaa); + ST_RET (*bt6) (ST_INT32 *data_dest, RT_AA_CTRL *rtaa); + ST_RET (*gt) (time_t *data_dest, RT_AA_CTRL *rtaa); + ST_RET (*utc) (MMS_UTC_TIME *data_dest, RT_AA_CTRL *rtaa); + ST_RET (*utf8) (ST_UCHAR *data_dest, RT_AA_CTRL *rtaa); + } M_ARB_DATA_CTRL; + +ST_RET ms_process_arb_data (ST_CHAR *data_base, + SD_CONST RUNTIME_TYPE *rt_head, ST_INT rt_num, + ST_BOOLEAN alt_acc_pres, ST_BOOLEAN alt_acc_packed, + ALT_ACCESS *alt_acc, + M_ARB_DATA_CTRL *ac); + +/************************************************************************/ +/* Functions for building a type definition one component at a time. */ +/************************************************************************/ +ST_VOID ms_rt_bld_start (RUNTIME_BUILD_CTXT *rt_ctxt, ST_INT max_rt_num); +ST_VOID ms_rt_bld_cancel (RUNTIME_BUILD_CTXT *rt_ctxt); +ST_VOID ms_rt_bld_finish (RUNTIME_BUILD_CTXT *rt_ctxt); +ST_RET ms_rt_bld_add_str_start (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name); +ST_RET ms_rt_bld_add_str_end (RUNTIME_BUILD_CTXT *ctxt); +ST_RET ms_rt_bld_add_arr_start (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name, ST_INT array_count); +ST_RET ms_rt_bld_add_arr_end (RUNTIME_BUILD_CTXT *ctxt); +ST_RET ms_rt_bld_add_bool (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name); +ST_RET ms_rt_bld_add_int (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name, ST_INT el_len); +ST_RET ms_rt_bld_add_uint (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name, ST_INT el_len); +ST_RET ms_rt_bld_add_float (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name, ST_INT el_len); +ST_RET ms_rt_bld_add_bstring (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name, ST_INT el_len); +ST_RET ms_rt_bld_add_bvstring (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name, ST_INT el_len); +ST_RET ms_rt_bld_add_vstring (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name, ST_INT el_len); +ST_RET ms_rt_bld_add_utctime (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name); +ST_RET ms_rt_bld_add_btime6 (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name); +ST_RET ms_rt_bld_add_ostring (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name, ST_INT el_len); +ST_RET ms_rt_bld_add_ovstring (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name, ST_INT el_len); +ST_RET ms_rt_bld_add_utf8vstring (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name, ST_INT el_len); +ST_RET ms_rt_bld_add_special (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name, RUNTIME_TYPE *special); +ST_RET ms_rt_bld_remove_last (RUNTIME_BUILD_CTXT *ctxt); +ST_RET ms_rt_bld_chk_state (RUNTIME_BUILD_CTXT *ctxt); +ST_INT ms_rt_bld_get_count (RUNTIME_BUILD_CTXT *ctxt); +ST_INT ms_rt_bld_get_max_count (RUNTIME_BUILD_CTXT *ctxt); + +#ifdef __cplusplus +} +#endif + +#endif + diff --git a/mmslib/inc/mmsdefs.h b/mmslib/inc/mmsdefs.h new file mode 100644 index 0000000..5caa0c4 --- /dev/null +++ b/mmslib/inc/mmsdefs.h @@ -0,0 +1,235 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2004, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : mmsdefs.h */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This include file is for MMS-EASE or SMALL-MMS programmer use, */ +/* and calls out all needed include files. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 05/09/07 JRB 14 Add forward references. */ +/* 04/09/07 MDE 13 Enhanced filtered logging */ +/* 09/17/04 EJV 12 Added mms_chk_resource. */ +/* 10/13/03 EJV 11 Moved MMSEASE_VERSION define to mms_defs.h. */ +/* 10/07/03 EJV 10 Added MMSEASE_VERSION define. */ +/* 12/12/02 JRB 09 Add ASN1_ENC_CTXT arg to _mms_unconf_req_fin */ +/* 01/18/02 JRB 08 Replace _ms_fin_pdu_debug with _ms_fin_pdu */ +/* and _ms_fin_pdu_log. */ +/* 12/20/01 JRB 07 Convert to use ASN1R. */ +/* 09/26/00 JRB 06 Add SD_CONST on ms_mk_rt_aa* */ +/* 06/01/00 RKR 05 Removed prot mms_null_pdu_dec use mms_dfun.h */ +/* 03/23/99 MDE 04 Changes to decode buffer allocation scheme */ +/* 06/15/98 MDE 03 More changes to allow compile under C++ */ +/* 06/15/98 MDE 02 Changes to allow compile under C++ */ +/* 03/20/98 JRB 01 Del mmsop_en.h. Only user code needs it now. */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef MMSDEFS_INCLUDED +#define MMSDEFS_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "glberror.h" + +#ifndef MMS_LITE +#include "gen_list.h" +#include "mem_chk.h" +#include "mms_defs.h" +#include "mms_pvar.h" +#include "mms_vvar.h" +#include "mmsintrn.h" +#include "mms_mp.h" +#include "mms_mv.h" +#include "mms_err.h" +#else +#include "mem_chk.h" +#include "mms_def2.h" +#include "mms_pvar.h" +#include "mms_vvar.h" +#include "mmsintr2.h" +#include "mms_mp.h" +#include "mmsldefs.h" +#endif + +#include "mms_dfun.h" +#include "mms_perr.h" +#include "mms_log.h" +#include "mmslog.h" + +#include "mms_pcon.h" +#include "mms_pdom.h" +#include "mms_pevn.h" +#include "mms_pfil.h" +#include "mms_pjou.h" +#include "mms_pocs.h" +#include "mms_pprg.h" +#include "mms_psem.h" +#include "mms_pvmd.h" + +/************************************************************************/ +/* For use when global variables cannot be initialized at compile time */ + +#if defined (NO_GLB_VAR_INIT) +ST_VOID m_init_glb_vars (ST_VOID); +#endif + +/************************************************************************/ +ST_VOID _ms_wr_service_err (ASN1_ENC_CTXT *ac, ST_INT16 eclass, ST_INT16 code, + ADTNL_ERR_RESP_INFO *adtnl_info); + +/************************************************************************/ +/* Variable Access Functions. */ +/************************************************************************/ + +ST_VOID _mms_get_service_err (ASN1_DEC_CTXT *ac, ERR_INFO *dest); +ST_VOID _ms_get_mms_fname (ASN1_DEC_CTXT *ac, FILE_NAME *dest, ST_INT max_fnames, ST_INT *num_out); +ST_VOID _ms_get_mms_app_ref (ASN1_DEC_CTXT *ac, ST_UCHAR **dest, ST_INT *dest_size, ST_VOID (*done)(ASN1_DEC_CTXT *ac)); +ST_VOID _ms_get_mms_evtime (ASN1_DEC_CTXT *ac, EVENT_TIME *dest, ST_VOID (*done)(ASN1_DEC_CTXT *ac)); +ST_VOID _ms_get_mms_modlist (ASN1_DEC_CTXT *ac, MODIFIER *dest, ST_INT *num_out, ST_INT max_mods, ST_VOID (*done)(ASN1_DEC_CTXT *ac)); +ST_VOID _ms_get_mms_objname (ASN1_DEC_CTXT *ac, OBJECT_NAME *dest, ST_VOID (*done)(ASN1_DEC_CTXT *ac)); +ST_VOID _ms_get_jou_ent_cont (ASN1_DEC_CTXT *ac, ENTRY_CONTENT *dest, ST_INT dest_size, ST_VOID (*done)(ASN1_DEC_CTXT *ac)); +ST_VOID _ms_get_va_address (ASN1_DEC_CTXT *ac, VAR_ACC_ADDR *dest, ST_VOID (*done)(ASN1_DEC_CTXT *ac)); +ST_VOID _ms_get_va_access_rslt (ASN1_DEC_CTXT *ac, ACCESS_RESULT *dest, ST_VOID (*done)(ASN1_DEC_CTXT *ac)); +ST_VOID _ms_get_va_data (ASN1_DEC_CTXT *ac, VAR_ACC_DATA *dest, ST_VOID (*done)(ASN1_DEC_CTXT *ac)); +ST_VOID _ms_get_va_type_spec (ASN1_DEC_CTXT *ac, VAR_ACC_TSPEC *dest, ST_VOID (*done)(ASN1_DEC_CTXT *ac)); +ST_VOID _ms_get_va_scat_access (ASN1_DEC_CTXT *ac, SCATTERED_ACCESS *dest, ST_VOID (*done)(ASN1_DEC_CTXT *ac)); +ST_VOID _ms_get_va_alt_access (ASN1_DEC_CTXT *ac, ALTERNATE_ACCESS *dest, ST_VOID (*done)(ASN1_DEC_CTXT *ac)); +ST_VOID _ms_get_va_var_spec (ASN1_DEC_CTXT *ac, VARIABLE_SPEC *dest, ST_VOID (*done)(ASN1_DEC_CTXT *ac)); +ST_VOID _ms_get_va_var_list (ASN1_DEC_CTXT *ac, VARIABLE_LIST *dest, ST_INT *num_out, ST_INT max_num, ST_VOID (*done)(ASN1_DEC_CTXT *ac)); +ST_VOID _ms_get_va_spec (ASN1_DEC_CTXT *ac, VAR_ACC_SPEC *dest, ST_INT max_vars, ST_VOID (*done)(ASN1_DEC_CTXT *ac)); + +ST_VOID _ms_wr_mms_fname (ASN1_ENC_CTXT *ac, FILE_NAME *src, ST_INT num); +ST_VOID _ms_wr_mms_evtime (ASN1_ENC_CTXT *ac, EVENT_TIME *src); +ST_VOID _ms_wr_mms_modlist (ASN1_ENC_CTXT *ac, MODIFIER *src, ST_INT num); +ST_VOID _ms_wr_mms_objname (ASN1_ENC_CTXT *ac, OBJECT_NAME *src); +ST_VOID _ms_wr_jou_ent_cont (ASN1_ENC_CTXT *ac, ENTRY_CONTENT *src); +ST_VOID _ms_wr_va_address (ASN1_ENC_CTXT *ac, VAR_ACC_ADDR *src); +ST_VOID _ms_wr_va_access_rslt (ASN1_ENC_CTXT *ac, ACCESS_RESULT *src); +ST_VOID _ms_wr_va_data (ASN1_ENC_CTXT *ac, VAR_ACC_DATA *src); +ST_VOID _ms_wr_va_type_spec (ASN1_ENC_CTXT *ac, VAR_ACC_TSPEC *src); +ST_VOID _ms_wr_va_scat_access (ASN1_ENC_CTXT *ac, SCATTERED_ACCESS *src); +ST_VOID _ms_wr_va_alt_access (ASN1_ENC_CTXT *ac, ALTERNATE_ACCESS *src); +ST_VOID _ms_wr_va_var_spec (ASN1_ENC_CTXT *ac, VARIABLE_SPEC *src); +ST_VOID _ms_wr_va_var_list (ASN1_ENC_CTXT *ac, VARIABLE_LIST *src, ST_INT num); +ST_VOID _ms_wr_va_spec (ASN1_ENC_CTXT *ac, VAR_ACC_SPEC *src); + +ST_VOID _mms_init_dec (ASN1_DEC_CTXT *ac, ST_BOOLEAN req); + +/************************************************************************/ +/* Alternate Access Functions */ +/************************************************************************/ +ST_VOID _ms_log_runtime_aa (RT_AA_CTRL *rt_aa, ST_INT num_aa); + +ST_RET _ms_mk_rt_aa_all (SD_CONST RUNTIME_TYPE *rt_head, ST_INT rt_num, + RT_AA_CTRL **rt_aa_out, ST_INT *num_aa_out); + +ST_RET _ms_mk_rt_aa (SD_CONST RUNTIME_TYPE *rt, ST_INT rt_num, + ALT_ACCESS *alt_acc, + RT_AA_CTRL **rt_aa_out, ST_INT *num_aa_out); + +ST_INT _ms_get_rtaa_data_size (RT_AA_CTRL *runtime_aa, ST_INT num_rt_aa); + +/************************************************************************/ +/* Special ASN.1 buffer handling functions for VM operations where */ +/* a series of ASN.1 encoded AA must be created. */ + +ST_UCHAR *_m_get_aa_asn1_buf (ST_INT *size_out); +ST_VOID _m_free_aa_asn1_buf (ST_VOID); +ST_VOID _m_set_aa_asn1_buf_end (ST_UCHAR *new_end); + +/************************************************************************/ +/************************************************************************/ +/* General function declarations used by the mp_xxx series. */ +/* These are not of general use to the application programmer. */ +/************************************************************************/ + +ST_VOID _ms_chk_for_extern (ASN1_DEC_CTXT *ac, ST_INT *len_ptr, ST_UCHAR **buf_ptr, ST_VOID (*done)(ASN1_DEC_CTXT *ac)); +ST_VOID _ms_set_cs_check (ASN1_DEC_CTXT *ac); +ST_VOID _ms_set_cs_check2 (ASN1_DEC_CTXT *ac); +ST_VOID _mms_dec_done_ok (ASN1_DEC_CTXT *ac); + +ST_UCHAR *_ms_fin_pdu (ASN1_ENC_CTXT *aCtx, ST_INT type, ST_INT *pPduLen); +#ifdef DEBUG_SISCO +ST_VOID _ms_fin_pdu_log (ST_INT type, ST_CHAR *txt, + ST_UCHAR *pduPtr, ST_INT pduLen); +#endif + +ST_VOID _mms_dec_buf_free (ASN1_DEC_CTXT *ac, ST_RET err_code); +#ifndef MMS_LITE +ST_RET _mms_send_null_resp (MMSREQ_IND *indptr, ST_INT opcode); +MMSREQ_PEND *_mms_send_null_req (ST_INT chan, ST_INT opcode); + +MMSREQ_PEND *_mms_req_send (ST_INT opcode, + ST_VOID (*mk_ptr)(ASN1_ENC_CTXT *, ST_CHAR *), + ST_INT chan, + ST_CHAR *info_ptr); + +ST_INT _mms_chk_resource (ST_INT chan); +ST_RET _mms_unconf_req_send (ST_INT opcode, + ST_VOID (*mk_ptr)(ASN1_ENC_CTXT *, ST_CHAR *), + ST_INT chan, + ST_CHAR *info_ptr); + +ST_RET _mms_resp_send (ST_INT opcode, + MMSREQ_IND *indptr, + ST_VOID (*mk_fun)(ASN1_ENC_CTXT *, ST_CHAR *), + ST_CHAR *info_ptr); + +#else +ST_RET _mms_fin_null_resp (ST_UINT32 invoke_id, ST_INT opcode); +ST_RET _mms_fin_null_req (ST_INT opcode); + +ST_RET _mms_resp_fin (ST_INT opcode, ST_UINT32 invoke_id, + ST_VOID (*mk_fun)(ASN1_ENC_CTXT *, ST_CHAR *), + ST_CHAR *info_ptr); + +ST_RET _mms_req_fin (ST_INT opcode, + ST_VOID (*mk_ptr)(ASN1_ENC_CTXT *, ST_CHAR *), + ST_CHAR *info_ptr); + +ST_RET _mms_unconf_req_fin (ASN1_ENC_CTXT *aCtx, ST_INT opcode, + ST_VOID (*mk_ptr)(ASN1_ENC_CTXT *, ST_CHAR *), + ST_CHAR *info_ptr); + +struct mvl_req_pend; /* forward reference */ +struct mvl_ind_pend; /* forward reference */ +struct mvl_net_info; /* forward reference */ + +ST_VOID mpl_req_log (struct mvl_req_pend *reqCtrl, ST_VOID *reqInfo); +ST_VOID mpl_resp_log (struct mvl_ind_pend *indCtrl, ST_VOID *respInfo); +ST_VOID mpl_unsol_req_log (struct mvl_net_info *netInfo, ST_INT op, ST_VOID *reqInfo); + +#endif + +/* A casting aid ... */ +#define M_CAST_MK_FUN(x) ((ST_VOID(*)(ASN1_ENC_CTXT *, ST_CHAR *)) x) + + +#ifndef MMS_LITE +#include "mms_llp.h" +#include "mmsllp.h" +#endif + +#include "mmsefun.h" /* Bruder moved this here */ +#ifdef __cplusplus +} +#endif + +#endif /* MMSDEFS_INCLUDED */ + + diff --git a/mmslib/inc/mmsefun.h b/mmslib/inc/mmsefun.h new file mode 100644 index 0000000..4db5135 --- /dev/null +++ b/mmslib/inc/mmsefun.h @@ -0,0 +1,188 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : mmsefun.h */ +/* PRODUCT(S) : MMSEASE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This file has the function declarations used by the primitive */ +/* level encode routines (mp_xxxx). */ +/* */ +/* Parameters : pointer to the operation specific data structure. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 02 Convert to use ASN1R. */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef MMSEFUN_INCLUDED +#define MMSEFUN_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +/************************************************************************/ +/* primitive encode functions */ +/************************************************************************/ + +ST_UCHAR *_ms_mk_init (ASN1_ENC_CTXT *ac, ST_UCHAR *buf_ptr, ST_INT buf_len, + INIT_INFO *info_ptr, ST_INT pdutype, + ST_BOOLEAN cs_init); + +ST_UCHAR *_ms_mk_conclude (ASN1_ENC_CTXT *ac, ST_UCHAR *buf_ptr,ST_INT buf_len,ST_INT pdutype); + +ST_UCHAR *_ms_mk_cancel (ASN1_ENC_CTXT *ac, ST_BOOLEAN request, ST_UCHAR *msg_ptr, + ST_INT buf_len, ST_UINT32 id); + +ST_UCHAR *_ms_mk_reject (ASN1_ENC_CTXT *ac, ST_UCHAR *msg_ptr, ST_INT buf_len, + REJECT_RESP_INFO *info_ptr); + +ST_UCHAR *_ms_mk_err_resp (ASN1_ENC_CTXT *ac, ST_UCHAR *buf_ptr, ST_INT buf_len, ST_INT op, + ST_UINT32 id, ST_INT16 err_class, ST_INT16 code); + +ST_VOID _ms_mk_stat_req (ASN1_ENC_CTXT *ac, STATUS_REQ_INFO *info); +ST_VOID _ms_mk_stat_resp (ASN1_ENC_CTXT *ac, STATUS_RESP_INFO *info); +ST_VOID _ms_mk_ustat_req (ASN1_ENC_CTXT *ac, USTATUS_REQ_INFO *info); +ST_VOID _ms_mk_namel_req (ASN1_ENC_CTXT *ac, NAMELIST_REQ_INFO *info); +ST_VOID _ms_mk_namel_resp (ASN1_ENC_CTXT *ac, NAMELIST_RESP_INFO *info); +ST_VOID _ms_mk_ident_resp (ASN1_ENC_CTXT *ac, IDENT_RESP_INFO *info); +ST_VOID _ms_mk_rename_req (ASN1_ENC_CTXT *ac, RENAME_REQ_INFO *info); +ST_VOID _ms_mk_getcl_req (ASN1_ENC_CTXT *ac, GETCL_REQ_INFO *info); +ST_VOID _ms_mk_getcl_resp (ASN1_ENC_CTXT *ac, GETCL_RESP_INFO *info); + +ST_VOID _ms_mk_initdown_req (ASN1_ENC_CTXT *ac, INITDOWN_REQ_INFO *info); +ST_VOID _ms_mk_initdown_resp (ASN1_ENC_CTXT *ac, ST_VOID *dummy_info); +ST_VOID _ms_mk_download_req (ASN1_ENC_CTXT *ac, DOWNLOAD_REQ_INFO *info); +ST_VOID _ms_mk_download_resp (ASN1_ENC_CTXT *ac, DOWNLOAD_RESP_INFO *info); +ST_VOID _ms_mk_termdown_req (ASN1_ENC_CTXT *ac, TERMDOWN_REQ_INFO *info); +ST_VOID _ms_mk_initupl_req (ASN1_ENC_CTXT *ac, INITUPL_REQ_INFO *info); +ST_VOID _ms_mk_initupl_resp (ASN1_ENC_CTXT *ac, INITUPL_RESP_INFO *info); +ST_VOID _ms_mk_upload_req (ASN1_ENC_CTXT *ac, UPLOAD_REQ_INFO *info); +ST_VOID _ms_mk_upload_resp (ASN1_ENC_CTXT *ac, UPLOAD_RESP_INFO *info); +ST_VOID _ms_mk_termupl_req (ASN1_ENC_CTXT *ac, TERMUPL_REQ_INFO *info); +ST_VOID _ms_mk_rddwn_req (ASN1_ENC_CTXT *ac, RDDWN_REQ_INFO *info); +ST_VOID _ms_mk_rdupl_req (ASN1_ENC_CTXT *ac, RDUPL_REQ_INFO *info); +ST_VOID _ms_mk_loaddom_req (ASN1_ENC_CTXT *ac, LOADDOM_REQ_INFO *info); +ST_VOID _ms_mk_storedom_req (ASN1_ENC_CTXT *ac, STOREDOM_REQ_INFO *info); +ST_VOID _ms_mk_deldom_req (ASN1_ENC_CTXT *ac, DELDOM_REQ_INFO *info); +ST_VOID _ms_mk_getdom_req (ASN1_ENC_CTXT *ac, GETDOM_REQ_INFO *info); +ST_VOID _ms_mk_getdom_resp (ASN1_ENC_CTXT *ac, GETDOM_RESP_INFO *info); + +ST_VOID _ms_mk_crepi_req (ASN1_ENC_CTXT *ac, CREPI_REQ_INFO *info); +ST_VOID _ms_mk_delpi_req (ASN1_ENC_CTXT *ac, DELPI_REQ_INFO *info); +ST_VOID _ms_mk_start_req (ASN1_ENC_CTXT *ac, START_REQ_INFO *info); +ST_VOID _ms_mk_stop_req (ASN1_ENC_CTXT *ac, STOP_REQ_INFO *info); +ST_VOID _ms_mk_resume_req (ASN1_ENC_CTXT *ac, RESUME_REQ_INFO *info); +ST_VOID _ms_mk_reset_req (ASN1_ENC_CTXT *ac, RESET_REQ_INFO *info); +ST_VOID _ms_mk_kill_req (ASN1_ENC_CTXT *ac, KILL_REQ_INFO *info); +ST_VOID _ms_mk_getpi_req (ASN1_ENC_CTXT *ac, GETPI_REQ_INFO *info); +ST_VOID _ms_mk_getpi_resp (ASN1_ENC_CTXT *ac, GETPI_RESP_INFO *info); + +ST_VOID _ms_mk_read_req (ASN1_ENC_CTXT *ac, READ_REQ_INFO *info); +ST_VOID _ms_mk_read_resp (ASN1_ENC_CTXT *ac, READ_RESP_INFO *info); +ST_VOID _ms_mk_write_req (ASN1_ENC_CTXT *ac, WRITE_REQ_INFO *info); +ST_VOID _ms_mk_write_resp (ASN1_ENC_CTXT *ac, WRITE_RESP_INFO *info); +ST_VOID _ms_mk_info_req (ASN1_ENC_CTXT *ac, INFO_REQ_INFO *info); +ST_VOID _ms_mk_getvar_req (ASN1_ENC_CTXT *ac, GETVAR_REQ_INFO *info); +ST_VOID _ms_mk_getvar_resp (ASN1_ENC_CTXT *ac, GETVAR_RESP_INFO *info); +ST_VOID _ms_mk_defvar_req (ASN1_ENC_CTXT *ac, DEFVAR_REQ_INFO *info); +ST_VOID _ms_mk_delvar_req (ASN1_ENC_CTXT *ac, DELVAR_REQ_INFO *info); +ST_VOID _ms_mk_delvar_resp (ASN1_ENC_CTXT *ac, DELVAR_RESP_INFO *info); +ST_VOID _ms_mk_defscat_req (ASN1_ENC_CTXT *ac, DEFSCAT_REQ_INFO *info); +ST_VOID _ms_mk_getscat_req (ASN1_ENC_CTXT *ac, GETSCAT_REQ_INFO *info); +ST_VOID _ms_mk_getscat_resp (ASN1_ENC_CTXT *ac, GETSCAT_RESP_INFO *info); +ST_VOID _ms_mk_defvlist_req (ASN1_ENC_CTXT *ac, DEFVLIST_REQ_INFO *info); +ST_VOID _ms_mk_getvlist_req (ASN1_ENC_CTXT *ac, GETVLIST_REQ_INFO *info); +ST_VOID _ms_mk_getvlist_resp (ASN1_ENC_CTXT *ac, GETVLIST_RESP_INFO *info); +ST_VOID _ms_mk_delvlist_req (ASN1_ENC_CTXT *ac, DELVLIST_REQ_INFO *info); +ST_VOID _ms_mk_delvlist_resp (ASN1_ENC_CTXT *ac, DELVLIST_RESP_INFO *info); +ST_VOID _ms_mk_gettype_req (ASN1_ENC_CTXT *ac, GETTYPE_REQ_INFO *info); +ST_VOID _ms_mk_gettype_resp (ASN1_ENC_CTXT *ac, GETTYPE_RESP_INFO *info); +ST_VOID _ms_mk_deftype_req (ASN1_ENC_CTXT *ac, DEFTYPE_REQ_INFO *info); +ST_VOID _ms_mk_deltype_req (ASN1_ENC_CTXT *ac, DELTYPE_REQ_INFO *info); +ST_VOID _ms_mk_deltype_resp (ASN1_ENC_CTXT *ac, DELTYPE_RESP_INFO *info); + +ST_VOID _ms_mk_takectrl_req (ASN1_ENC_CTXT *ac, TAKECTRL_REQ_INFO *info); +ST_VOID _ms_mk_takectrl_resp (ASN1_ENC_CTXT *ac, TAKECTRL_RESP_INFO *info); +ST_VOID _ms_mk_relctrl_req (ASN1_ENC_CTXT *ac, RELCTRL_REQ_INFO *info); +ST_VOID _ms_mk_rsstat_req (ASN1_ENC_CTXT *ac, RSSTAT_REQ_INFO *info); +ST_VOID _ms_mk_rsstat_resp (ASN1_ENC_CTXT *ac, RSSTAT_RESP_INFO *info); +ST_VOID _ms_mk_rspool_req (ASN1_ENC_CTXT *ac, RSPOOL_REQ_INFO *info); +ST_VOID _ms_mk_rspool_resp (ASN1_ENC_CTXT *ac, RSPOOL_RESP_INFO *info); +ST_VOID _ms_mk_rsentry_req (ASN1_ENC_CTXT *ac, RSENTRY_REQ_INFO *info); +ST_VOID _ms_mk_rsentry_resp (ASN1_ENC_CTXT *ac, RSENTRY_RESP_INFO *info); +ST_VOID _ms_mk_defsem_req (ASN1_ENC_CTXT *ac, DEFSEM_REQ_INFO *info); +ST_VOID _ms_mk_delsem_req (ASN1_ENC_CTXT *ac, DELSEM_REQ_INFO *info); + +ST_VOID _ms_mk_output_req (ASN1_ENC_CTXT *ac, OUTPUT_REQ_INFO *info); +ST_VOID _ms_mk_input_req (ASN1_ENC_CTXT *ac, INPUT_REQ_INFO *info); +ST_VOID _ms_mk_input_resp (ASN1_ENC_CTXT *ac, INPUT_RESP_INFO *info); + +ST_VOID _ms_mk_defec_req (ASN1_ENC_CTXT *ac, DEFEC_REQ_INFO *info); +ST_VOID _ms_mk_delec_req (ASN1_ENC_CTXT *ac, DELEC_REQ_INFO *info); +ST_VOID _ms_mk_delec_resp (ASN1_ENC_CTXT *ac, DELEC_RESP_INFO *info); +ST_VOID _ms_mk_geteca_req (ASN1_ENC_CTXT *ac, GETECA_REQ_INFO *info); +ST_VOID _ms_mk_geteca_resp (ASN1_ENC_CTXT *ac, GETECA_RESP_INFO *info); +ST_VOID _ms_mk_repecs_req (ASN1_ENC_CTXT *ac, REPECS_REQ_INFO *info); +ST_VOID _ms_mk_repecs_resp (ASN1_ENC_CTXT *ac, REPECS_RESP_INFO *info); +ST_VOID _ms_mk_altecm_req (ASN1_ENC_CTXT *ac, ALTECM_REQ_INFO *info); +ST_VOID _ms_mk_trige_req (ASN1_ENC_CTXT *ac, TRIGE_REQ_INFO *info); +ST_VOID _ms_mk_defea_req (ASN1_ENC_CTXT *ac, DEFEA_REQ_INFO *info); +ST_VOID _ms_mk_delea_req (ASN1_ENC_CTXT *ac, DELEA_REQ_INFO *info); +ST_VOID _ms_mk_delea_resp (ASN1_ENC_CTXT *ac, DELEA_RESP_INFO *info); +ST_VOID _ms_mk_geteaa_req (ASN1_ENC_CTXT *ac, GETEAA_REQ_INFO *info); +ST_VOID _ms_mk_geteaa_resp (ASN1_ENC_CTXT *ac, GETEAA_RESP_INFO *info); +ST_VOID _ms_mk_repeas_req (ASN1_ENC_CTXT *ac, REPEAS_REQ_INFO *info); +ST_VOID _ms_mk_repeas_resp (ASN1_ENC_CTXT *ac, REPEAS_RESP_INFO *info); +ST_VOID _ms_mk_defee_req (ASN1_ENC_CTXT *ac, DEFEE_REQ_INFO *info); +ST_VOID _ms_mk_delee_req (ASN1_ENC_CTXT *ac, DELEE_REQ_INFO *info); +ST_VOID _ms_mk_delee_resp (ASN1_ENC_CTXT *ac, DELEE_RESP_INFO *info); +ST_VOID _ms_mk_altee_req (ASN1_ENC_CTXT *ac, ALTEE_REQ_INFO *info); +ST_VOID _ms_mk_altee_resp (ASN1_ENC_CTXT *ac, ALTEE_RESP_INFO *info); +ST_VOID _ms_mk_repees_req (ASN1_ENC_CTXT *ac, REPEES_REQ_INFO *info); +ST_VOID _ms_mk_repees_resp (ASN1_ENC_CTXT *ac, REPEES_RESP_INFO *info); +ST_VOID _ms_mk_geteea_req (ASN1_ENC_CTXT *ac, GETEEA_REQ_INFO *info); +ST_VOID _ms_mk_geteea_resp (ASN1_ENC_CTXT *ac, GETEEA_RESP_INFO *info); +ST_VOID _ms_mk_evnot_req (ASN1_ENC_CTXT *ac, EVNOT_REQ_INFO *info); +ST_VOID _ms_mk_ackevnot_req (ASN1_ENC_CTXT *ac, ACKEVNOT_REQ_INFO *info); +ST_VOID _ms_mk_getas_req (ASN1_ENC_CTXT *ac, GETAS_REQ_INFO *info); +ST_VOID _ms_mk_getas_resp (ASN1_ENC_CTXT *ac, GETAS_RESP_INFO *info); +ST_VOID _ms_mk_getaes_req (ASN1_ENC_CTXT *ac, GETAES_REQ_INFO *info); +ST_VOID _ms_mk_getaes_resp (ASN1_ENC_CTXT *ac, GETAES_RESP_INFO *info); + +ST_VOID _ms_mk_jwrite_req (ASN1_ENC_CTXT *ac, JWRITE_REQ_INFO *info); +ST_VOID _ms_mk_jread_req (ASN1_ENC_CTXT *ac, JREAD_REQ_INFO *info); +ST_VOID _ms_mk_jread_resp (ASN1_ENC_CTXT *ac, JREAD_RESP_INFO *info); +ST_VOID _ms_mk_jinit_req (ASN1_ENC_CTXT *ac, JINIT_REQ_INFO *info); +ST_VOID _ms_mk_jinit_resp (ASN1_ENC_CTXT *ac, JINIT_RESP_INFO *info); +ST_VOID _ms_mk_jstat_req (ASN1_ENC_CTXT *ac, JSTAT_REQ_INFO *info); +ST_VOID _ms_mk_jstat_resp (ASN1_ENC_CTXT *ac, JSTAT_RESP_INFO *info); +ST_VOID _ms_mk_jcreate_req (ASN1_ENC_CTXT *ac, JCREATE_REQ_INFO *info); +ST_VOID _ms_mk_jdelete_req (ASN1_ENC_CTXT *ac, JDELETE_REQ_INFO *info); + +ST_VOID _ms_mk_obtfile_req (ASN1_ENC_CTXT *ac, OBTFILE_REQ_INFO *info); +ST_VOID _ms_mk_fopen_req (ASN1_ENC_CTXT *ac, FOPEN_REQ_INFO *info); +ST_VOID _ms_mk_fopen_resp (ASN1_ENC_CTXT *ac, FOPEN_RESP_INFO *info); +ST_VOID _ms_mk_fread_req (ASN1_ENC_CTXT *ac, FREAD_REQ_INFO *info); +ST_VOID _ms_mk_fread_resp (ASN1_ENC_CTXT *ac, FREAD_RESP_INFO *info); +ST_VOID _ms_mk_fclose_req (ASN1_ENC_CTXT *ac, FCLOSE_REQ_INFO *info); +ST_VOID _ms_mk_frename_req (ASN1_ENC_CTXT *ac, FRENAME_REQ_INFO *info); +ST_VOID _ms_mk_fdelete_req (ASN1_ENC_CTXT *ac, FDELETE_REQ_INFO *info); +ST_VOID _ms_mk_fdir_req (ASN1_ENC_CTXT *ac, FDIR_REQ_INFO *info); +ST_VOID _ms_mk_fdir_resp (ASN1_ENC_CTXT *ac, FDIR_RESP_INFO *info); + +#ifdef __cplusplus +} +#endif + +#endif /* MMSEFUN_INCLUDED */ diff --git a/mmslib/inc/mmsintr2.h b/mmslib/inc/mmsintr2.h new file mode 100644 index 0000000..5215103 --- /dev/null +++ b/mmslib/inc/mmsintr2.h @@ -0,0 +1,317 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1993 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : mmsintr2.h */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* Functions and variables below this point are typically not */ +/* used by the application, and need not be exposed. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/04/02 JRB 11 Use SD_CONST on ALL (RUNTIME_TYPE *) vars. */ +/* 12/20/01 JRB 10 Convert to use ASN1R. */ +/* 04/19/00 JRB 09 Fix SD_CONST for decode funct ptr arrays. */ +/* 09/13/99 MDE 08 Added SD_CONST modifiers */ +/* 03/23/99 MDE 07 Changes to decode buffer allocation scheme */ +/* 03/19/98 JRB 06 Move ASN.1 error codes to "asn1defs.h". */ +/* 03/12/98 MDE 05 '_ms_m_get_rt_info' use change */ +/* 02/10/98 MDE 04 Removed unused 'm_cl_max_event_attributes' */ +/* 07/16/97 MDE 03 Added m_param, m_service_resp for MMS_LITE */ +/* 07/03/97 MDE 02 Removed CALLOC_OS */ +/* 06/09/97 MDE 01 Added decode buffer size control variables */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef MMSINTR2_INCLUDED +#define MMSINTR2_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +/************************************************************************/ +/************************************************************************/ +/* Defines for Modifier and Companion Standard support. */ +/* MMSEASE defaults to supporting both, MMSEASE-LITE defaults to */ +/* supporting neither. */ +/************************************************************************/ + +#ifndef MMS_LITE +#define MOD_SUPPORT /* MMSEASE - support modifiers */ +#define CS_SUPPORT /* MMSEASE - support companion standards */ +#endif + +/************************************************************************/ +/************************************************************************/ +/* Operation Specific Decode Buffer Management */ + +extern ST_VOID *(*m_calloc_os_fun)(ST_UINT num, ST_UINT size); +extern ST_VOID *(*m_realloc_os_fun)(ST_VOID *old, ST_UINT new_size); +extern ST_VOID (*m_free_os_fun)(ST_VOID *buf); + +ST_VOID *_m_get_dec_buf (ASN1_DEC_CTXT *aCtx, ST_UINT size); + +/************************************************************************/ +/************************************************************************/ +/* Defines for the fourteen types of MMS PDUs */ +/************************************************************************/ + +#define MMSREQ 0 /* MMS request PDU for normal confirmed services */ +#define MMSRESP 1 /* MMS response PDU for normal confirmed services*/ +#define MMSERROR 2 /* MMS error PDU for normal confirmed services */ +#define MMSUNREQ 3 /* MMS response PDU for unconfirmed services */ +#define MMSREJECT 4 /* MMS reject PDU */ +#define MMSCANREQ 5 /* MMS request PDU for Cancel service */ +#define MMSCANRESP 6 /* MMS response PDU for Cancel service */ +#define MMSCANERR 7 /* MMS error PDU for Cancel service */ +#define MMSINITREQ 8 /* MMS request PDU for Initiate service */ +#define MMSINITRESP 9 /* MMS response PDU for Initiate service */ +#define MMSINITERR 10 /* MMS error PDU for Initiate service */ +#define MMSCNCLREQ 11 /* MMS request PDU for Conclude service */ +#define MMSCNCLRESP 12 /* MMS response PDU for Conclude service */ +#define MMSCNCLERR 13 /* MMS error PDU for Conclude service */ +#define UNKNOWNTYPE 14 /* not known - used in reject info structure */ + +/************************************************************************/ +/************************************************************************/ +/* Define base reserved invoke IDs for the Initiate and Conclude */ +/* services. Allows for up to 4096 associations with reserved */ +/* invoke IDs. */ +/************************************************************************/ + +#define INIT_INVOKE_ID 0x8000 /* base invoke ID for Initiate requests */ +#define CONCL_INVOKE_ID 0x9000 /* base invoke ID for Conclude requests */ + +/************************************************************************/ +/* Define the reserved invoke ID for unconfirmed requests. */ +/************************************************************************/ + +#define UNREQ_INVOKE 0xFFFF /* reserved invoke ID for unconf req's */ + +/************************************************************************/ +/************************************************************************/ +/* The following function pointer arrays are used for the request and */ +/* response decode functions. The operation opcode is used as the index */ +/* into the table. */ +/************************************************************************/ + +#define MAX_REQ_DFUN 85 /* highest request decode array entry */ +#define MAX_RSP_DFUN 85 /* highest response decode array entry */ + + +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ +/* This structure is used to return the results of a MMS PDU decode. */ +/* The user passes a pointer to a struct of this type to decode_mms, */ +/* and when the decode is complete, the struct info will be filled in. */ +/* */ +/* dec_level : */ +/* 0 - Nothing valid */ +/* 1 - type valid */ +/* 2 - type, invoke ID valid */ +/* 3 - type, invoke ID, op valid */ +/************************************************************************/ + +struct mmsdec_info + { + ST_RET err_code; /* decode error code (NO_DECODE_ERR) */ + ST_INT dec_level; /* indicates valid members */ + ST_INT type; /* MMS pdu type (req,resp,err,rej) */ + ST_INT op; /* operation opcode */ + ST_UINT32 id; /* invoke ID */ + struct list_of_mods mods; /* tracking of modifiers */ + struct csi cs; /* Companion Standard Info */ + ST_BOOLEAN data_pres; /* flag to indicate data buffer present */ + ST_VOID *data_ptr; /* pointer to data if present */ + }; +typedef struct mmsdec_info MMSDEC_INFO; + +extern ST_VOID (* SD_CONST mms_req_decode_fun [MAX_REQ_DFUN+1]) (ASN1_DEC_CTXT *aCtx); +extern ST_VOID (* SD_CONST mms_rsp_decode_fun [MAX_RSP_DFUN+1]) (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mms_decode is used at MMS decode level, not generally used by */ +/* application directly. */ +/************************************************************************/ + +ST_RET _ms_mms_decode (ST_UCHAR *ptr, ST_INT len, MMSDEC_INFO *rslt); + +extern MMSDEC_INFO *_mmsdec_rslt; +extern ST_UINT _mmsdec_ctxt; /* default to core context */ +extern ST_INT _mmsdec_msglen; /* MMS decode message length */ +extern ST_UCHAR *_mmsdec_msgptr; /* MMS decode message ptr */ +extern ST_BOOLEAN _mms_dec_info_pres; +extern ST_VOID *_mms_dec_info; /* operation specific info */ + + +/************************************************************************/ +/************************************************************************/ +/* These variables are used help control decode operation specific data */ +/* structure allocation. For MMS-LITE (M_USR_DEC_BUF), these variables */ +/* are used to tell the decode system how many objects the allocated */ +/* buffer (_mms_dec_info). For MMS-EASE, these are normally not used; */ +/* if they are set non-zero, they will be used in calculating the size */ +/* of the dec info buffer to be allocated. */ + +/* Client Decode Limits. */ +extern ST_INT m_cl_read_spec_in_result; +extern ST_INT m_cl_max_read_var_spec; +extern ST_INT m_cl_max_read_acc_rslt; +extern ST_INT m_cl_max_info_var_spec; +extern ST_INT m_cl_max_info_acc_rslt; +extern ST_INT m_cl_max_getvla_vars; +extern ST_INT m_cl_max_write_rslts; +extern ST_INT m_cl_max_namel_names; +extern ST_INT m_cl_max_getcl_cap; +extern ST_INT m_cl_max_getpi_doms; +extern ST_INT m_cl_max_getdom_cap; +extern ST_INT m_cl_max_getdom_pi; +extern ST_INT m_cl_max_initupl_cap; +extern ST_INT m_cl_max_alarm_summary; +extern ST_INT m_cl_max_journal_entries; +extern ST_INT m_cl_max_entry_content; +extern ST_INT m_cl_max_semaphore_entries; +extern ST_INT m_cl_max_named_tokens; +extern ST_INT m_cl_max_file_directory; +extern ST_INT m_cl_max_event_enrollment; +extern ST_INT m_cl_max_enrollment_summary; + +/* Server Decode Limits. */ +extern ST_INT m_sv_max_loadd_cap; +extern ST_INT m_sv_max_read_var_spec; +extern ST_INT m_sv_max_write_var_spec; +extern ST_INT m_sv_max_write_data; +extern ST_INT m_sv_max_rqdlnl_cap; +extern ST_INT m_sv_max_initdnld_cap; +extern ST_INT m_sv_max_vstr; +extern ST_INT m_sv_max_file_names; +extern ST_INT m_sv_max_obj_name; +extern ST_INT m_sv_max_prompt_count; +extern ST_INT m_sv_max_num_vars; +extern ST_INT m_sv_max_data_count; +extern ST_INT m_sv_max_entry_content; +extern ST_INT m_sv_max_data_vars; +extern ST_INT m_sv_max_jread_vars; + +/************************************************************************/ +/* These bitstrings are located in mmsop_en.c and indicate which */ +/* services and CBB's are supported by this application. */ +#ifdef MMS_LITE +extern SD_CONST ST_UCHAR m_param[2]; /* parameter support */ + /* services supported as responder */ +extern SD_CONST ST_UCHAR m_service_resp[11]; +#endif + +/************************************************************************/ +/************************************************************************/ +/* This variable can be set to force use of the DIS MMS floating point */ +/* type protocol (used in any over the wire and internal ASN.1 type */ +/* definitions). */ + +extern ST_BOOLEAN m_use_dis_float; /* = SD_FALSE; */ + +/************************************************************************/ +/************************************************************************/ +/* ALTERNATE ACCESS */ + +/* This structure is used to control the creation of RTAA types */ +/* and contains state information for the various functions to use */ +/* during the process. */ + +struct aa_apply_ctrl + { +/* Alternate Access spec */ + ST_INT num_aa; /* # elements in AA table */ + struct alt_acc_el *aa_head; /* Head of AA table */ + struct alt_acc_el *aa_end; /* Last element in AA table */ + struct alt_acc_el *curr_aa; /* Current location in table */ + +/* 'All'runtime aa */ + ST_INT num_all_rtaa; + struct rt_aa_ctrl *all_rtaa_head; + struct rt_aa_ctrl *all_rtaa_end; + +/* New (output) runtime aa */ + ST_INT num_rtaa; + struct rt_aa_ctrl *rtaa_head; + struct rt_aa_ctrl *curr_rtaa; + +/* Nest Level */ + ST_INT nest; + }; +typedef struct aa_apply_ctrl AA_APPLY_CTRL; + +/************************************************************************/ +/* Floating point type ASN.1 definition values */ + +#define SNGL_WHOLE 32 +#define SNGL_FRACT 23 +#define SNGL_EXP 8 + +#define DOUBL_WHOLE 64 +#define DOUBL_FRACT 52 +#define DOUBL_EXP 11 + +/* Used to determine number of bytes required to hold a number of bits */ +#define CALC_BIT_LEN(x) (((x)+7)/8) + +/************************************************************************/ +ST_RET _ms_m_get_rt_info (SD_CONST RUNTIME_TYPE *rt, + ST_INT *algn_out, + ST_INT *ellen_out); + +/************************************************************************/ +/* Function pointers for Variable manipulation functions. */ +/* User exposed functions (i.e. ms_add_named_var, etc.) call these */ +/* function pointers which should point to "linked list" functions */ +/* by default (see "_ms_ll_*" functions below). If the "ms_bs_init" */ +/* function is called, these will point to "binary search" functions */ +/* (see "_ms_bs_*" functions below). */ +/************************************************************************/ +#ifndef MMS_LITE + +extern NAMED_VAR *(*_ms_fp_add_named_var) (DOMAIN_OBJS *dom, ST_CHAR *name, + OBJECT_NAME *type, VAR_ACC_ADDR *addr, ST_INT chan); +extern NAMED_VAR *(*_ms_fp_add_var) (DOMAIN_OBJS *dom, ST_CHAR *name, + NAMED_TYPE *type_ptr, VAR_ACC_ADDR *addr, ST_INT chan); +extern NAMED_VAR *(*_ms_fp_find_named_var) + (DOMAIN_OBJS *dom, ST_CHAR *name); +extern ST_RET (*_ms_fp_del_named_var) (DOMAIN_OBJS *dom, ST_CHAR *name); +extern ST_VOID (*_ms_fp_del_all_named_vars) (DOMAIN_OBJS *dom); +extern ST_VOID (*_ms_fp_del_deletable_named_vars) (DOMAIN_OBJS *, DELVAR_RESP_INFO *); +extern NAMED_VAR_LIST *(*_ms_fp_add_nvlist) (DOMAIN_OBJS *dom, + ST_CHAR *name, ST_INT num_vars, VARIABLE_LIST *var_list); +extern NAMED_VAR_LIST *(*_ms_fp_find_nvlist) (DOMAIN_OBJS *dom, ST_CHAR *name); +extern ST_RET (*_ms_fp_del_nvlist) (DOMAIN_OBJS *dom, ST_CHAR *name); +extern ST_VOID (*_ms_fp_del_all_nvlists) (DOMAIN_OBJS *dom); +extern ST_VOID (*_ms_fp_del_deletable_nvlists) (DOMAIN_OBJS *, DELVLIST_RESP_INFO *); + +extern NAMED_DOM_CTRL *(*_ms_fp_add_named_domain) (INITDOWN_REQ_INFO *dom_info, + ST_UCHAR pro); +extern NAMED_DOM_CTRL *(*_ms_fp_find_named_dom)(ST_CHAR dname[MAX_IDENT_LEN+1]); +extern ST_RET (*_ms_fp_del_named_dom) (ST_CHAR *dname); +extern ST_VOID (*_ms_fp_del_all_named_doms)(NAMED_DOM_CTRL *head_of_dom_list); + +extern ST_VOID (*_ms_fp_write_object_names) (ST_VOID *dom_or_vmd, + NAMELIST_REQ_INFO *reqinfo, NAMELIST_RESP_INFO *respinfo, + ST_INT max_names); +#endif + + +#ifdef __cplusplus +} +#endif + +#endif /* MMSINTR2_INCLUDED */ diff --git a/mmslib/inc/mmsldefs.h b/mmslib/inc/mmsldefs.h new file mode 100644 index 0000000..fe8b2c8 --- /dev/null +++ b/mmslib/inc/mmsldefs.h @@ -0,0 +1,94 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1993 - 2005, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : mmsldefs.h */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* Functions and variables below this point are used by the */ +/* application. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 07/27/09 JRB 26 Updated version. */ +/* 02/18/09 RKR 25 Updated version. */ +/* 01/19/09 RKR 24 Updated version. */ +/* 12/01/08 GLB 23 Updated version. */ +/* 11/10/08 GLB 22 Updated version. */ +/* 04/23/08 GLB 21 Updated version. */ +/* 01/02/07 JRB 20 Updated version. */ +/* 04/10/06 RKR 19 Updated copyright and version for SMV Beta */ +/* 10/28/05 EJV 18 Update ver to 5.0250 for MMS-LITE-SECURE rel.*/ +/* 09/09/05 JRB 17 Update ver to 5.02 & Copyright info. */ +/* BUILD_NUM is OBSOLETE. */ +/* 04/28/05 PLM 16 Update ver to 5.01 Build 1 */ +/* 07/21/04 DWL 15 Update to 5.0052 */ +/* 02/20/04 ASK 14 Chg ver to 5.0051 for USPS release */ +/* 01/26/04 DWL 13 Update copyright date to 2004. */ +/* 09/10/03 EJV 12 Chg ver to 5.0050 (Security ready MMS-LITE) */ +/* 04/29/03 DWL 11 Updated build number */ +/* 04/08/03 DWL 10 Updated copyright/version/build number */ +/* 12/20/02 DWL 09 Updated version/build number */ +/* 03/22/02 DWL 08 Updated build number */ +/* 03/12/02 DWL 07 Updated version */ +/* 02/25/02 MDE 06 Removed mmsl_max_msg_size */ +/* 10/09/01 JRB 05 Add MMSLITE_* product identification defines.*/ +/* 02/20/98 MDE 04 Fixed __cplusplus problem */ +/* 11/05/97 MDE 03 Changed mmsl_msg_start to ST_UCHAR * */ +/* 08/24/97 MDE 02 Added 'mmsl_max_msg_size', 'ml_init_buffers' */ +/* 11/10/93 DGE 01 Initial MMSEASE-LITE Release. */ +/************************************************************************/ + +#ifndef LMMSDEFS_INCLUDED +#define LMMSDEFS_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +/************************************************************************/ +/* Defines for Product Identification. */ +/* Write these parameters on screen and in log file at startup. */ +/* Use MMSLITE_NAME & MMSLITE_VERSION in MMS Identify response. */ +/************************************************************************/ +#define MMSLITE_COPYRIGHT "Copyright (c) 1986-2008 SISCO, Inc. All Rights Reserved." +#define MMSLITE_NAME "MMS-LITE-80X-001" +#define MMSLITE_VERSION "5.1005" +#define MMSLITE_BUILD_NUM 0 /* OBSOLETE: for backward compatibility only*/ + +/************************************************************************/ +/************************************************************************/ +/* MMSEASE-LITE specific Global Variables */ +/************************************************************************/ +#define MMS_PCI 0x0001 + +extern ST_INT mmsl_enc_buf_size; +extern ST_UCHAR *mmsl_enc_buf; +extern ST_INT mmsl_dec_info_size; + +extern ST_INT16 mmsl_version; +extern ST_UINT32 mmsl_invoke_id; + +extern ST_UCHAR *mmsl_msg_start; +extern ST_INT mmsl_msg_len; + + +/************************************************************************/ +/* This function initializes the encode/decode buffers and the decode */ +/* object limitations, and is normally generated using the 'mbufcalc' */ +/* utility program. */ + +ST_VOID ml_init_buffers (ST_VOID); + + +#ifdef __cplusplus +} +#endif + +#endif /* MMSLDEFS_INCLUDED */ diff --git a/mmslib/inc/mmslog.h b/mmslib/inc/mmslog.h new file mode 100644 index 0000000..cfa0e38 --- /dev/null +++ b/mmslib/inc/mmslog.h @@ -0,0 +1,735 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1993 - 2007, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : mmslog.h */ +/* PRODUCT(S) : MMSEASE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains MMS-EASE logging macros used */ +/* internally by MMS-EASE for SLOGGING */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 09/05/07 EJV 07 Removed obsolete LLC30_LLP code. */ +/* 11/01/04 JRB 06 Use new "Base" macros SLOG_*, SLOGC_*, SLOGH.*/ +/* Change MLOG_ALWAYS* like SLOGALWAYS*. */ +/* 03/13/02 JRB 05 MLOG_PAUSE* macros do nothing. */ +/* 10/05/01 EJV 04 Corrected comment. */ +/* 03/15/01 JRB 03 Added USER log macros. */ +/* 09/13/99 MDE 02 Added SD_CONST modifiers */ +/* 10/08/98 MDE 01 Migrated to updated SLOG interface */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef MMSLOG_INCLUDED +#define MMSLOG_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +extern SD_CONST ST_CHAR *SD_CONST _mms_log_dec_logstr; +extern SD_CONST ST_CHAR *SD_CONST _mms_log_enc_logstr; +extern SD_CONST ST_CHAR *SD_CONST _mms_log_acse_logstr; +extern SD_CONST ST_CHAR *SD_CONST _mms_log_ique_logstr; +extern SD_CONST ST_CHAR *SD_CONST _mms_log_rque_logstr; +extern SD_CONST ST_CHAR *SD_CONST _mms_log_ind_logstr; +extern SD_CONST ST_CHAR *SD_CONST _mms_log_conf_logstr; +extern SD_CONST ST_CHAR *SD_CONST _mms_log_vm_logstr; +extern SD_CONST ST_CHAR *SD_CONST _mms_log_err_logstr; +extern SD_CONST ST_CHAR *SD_CONST _mms_log_nerr_logstr; +extern SD_CONST ST_CHAR *SD_CONST _mms_log_pdu_logstr; +extern SD_CONST ST_CHAR *SD_CONST _mms_log_config_logstr; +extern SD_CONST ST_CHAR *SD_CONST _mms_log_always_logstr; + +extern SD_CONST ST_CHAR *SD_CONST _user_err_logstr; +extern SD_CONST ST_CHAR *SD_CONST _user_client_logstr; +extern SD_CONST ST_CHAR *SD_CONST _user_server_logstr; + +/*********************** PAUSE Macros ***********************************/ +#define MLOG_PAUSEDEC(msg) +#define MLOG_PAUSEENC(msg) +#define MLOG_PAUSEIQUE(msg) +#define MLOG_PAUSERQUE(msg) +#define MLOG_PAUSEPDU(msg) + +/*********************** DECODE Macros **********************************/ +#define MLOG_DEC0(a) \ + SLOG_0 (mms_debug_sel & MMS_LOG_DEC,_mms_log_dec_logstr,a) +#define MLOG_DEC1(a,b) \ + SLOG_1 (mms_debug_sel & MMS_LOG_DEC,_mms_log_dec_logstr,a,b) +#define MLOG_DEC2(a,b,c) \ + SLOG_2 (mms_debug_sel & MMS_LOG_DEC,_mms_log_dec_logstr,a,b,c) +#define MLOG_DEC3(a,b,c,d) \ + SLOG_3 (mms_debug_sel & MMS_LOG_DEC,_mms_log_dec_logstr,a,b,c,d) +#define MLOG_DEC4(a,b,c,d,e) \ + SLOG_4 (mms_debug_sel & MMS_LOG_DEC,_mms_log_dec_logstr,a,b,c,d,e) +#define MLOG_DEC5(a,b,c,d,e,f) \ + SLOG_5 (mms_debug_sel & MMS_LOG_DEC,_mms_log_dec_logstr,a,b,c,d,e,f) +#define MLOG_DEC6(a,b,c,d,e,f,g) \ + SLOG_6 (mms_debug_sel & MMS_LOG_DEC,_mms_log_dec_logstr,a,b,c,d,e,f,g) +#define MLOG_DEC7(a,b,c,d,e,f,g,h) \ + SLOG_7 (mms_debug_sel & MMS_LOG_DEC,_mms_log_dec_logstr,a,b,c,d,e,f,g,h) +#define MLOG_DEC8(a,b,c,d,e,f,g,h,i) \ + SLOG_8 (mms_debug_sel & MMS_LOG_DEC,_mms_log_dec_logstr,a,b,c,d,e,f,g,h,i) + +/* Continuation log macros */ +#define MLOG_CDEC0(a) \ + SLOGC_0 (mms_debug_sel & MMS_LOG_DEC,a) +#define MLOG_CDEC1(a,b) \ + SLOGC_1 (mms_debug_sel & MMS_LOG_DEC,a,b) +#define MLOG_CDEC2(a,b,c) \ + SLOGC_2 (mms_debug_sel & MMS_LOG_DEC,a,b,c) +#define MLOG_CDEC3(a,b,c,d) \ + SLOGC_3 (mms_debug_sel & MMS_LOG_DEC,a,b,c,d) +#define MLOG_CDEC4(a,b,c,d,e) \ + SLOGC_4 (mms_debug_sel & MMS_LOG_DEC,a,b,c,d,e) +#define MLOG_CDEC5(a,b,c,d,e,f) \ + SLOGC_5 (mms_debug_sel & MMS_LOG_DEC,a,b,c,d,e,f) +#define MLOG_CDEC6(a,b,c,d,e,f,g) \ + SLOGC_6 (mms_debug_sel & MMS_LOG_DEC,a,b,c,d,e,f,g) +#define MLOG_CDEC7(a,b,c,d,e,f,g,h) \ + SLOGC_7 (mms_debug_sel & MMS_LOG_DEC,a,b,c,d,e,f,g,h) +#define MLOG_CDEC8(a,b,c,d,e,f,g,h,i) \ + SLOGC_8 (mms_debug_sel & MMS_LOG_DEC,a,b,c,d,e,f,g,h,i) + +/* Hex log macro */ +#define MLOG_DECH(a,b) \ + +/*********************** ENCODE Macros **********************************/ +#define MLOG_ENC0(a) \ + SLOG_0 (mms_debug_sel & MMS_LOG_ENC,_mms_log_enc_logstr,a) +#define MLOG_ENC1(a,b) \ + SLOG_1 (mms_debug_sel & MMS_LOG_ENC,_mms_log_enc_logstr,a,b) +#define MLOG_ENC2(a,b,c) \ + SLOG_2 (mms_debug_sel & MMS_LOG_ENC,_mms_log_enc_logstr,a,b,c) +#define MLOG_ENC3(a,b,c,d) \ + SLOG_3 (mms_debug_sel & MMS_LOG_ENC,_mms_log_enc_logstr,a,b,c,d) +#define MLOG_ENC4(a,b,c,d,e) \ + SLOG_4 (mms_debug_sel & MMS_LOG_ENC,_mms_log_enc_logstr,a,b,c,d,e) +#define MLOG_ENC5(a,b,c,d,e,f) \ + SLOG_5 (mms_debug_sel & MMS_LOG_ENC,_mms_log_enc_logstr,a,b,c,d,e,f) +#define MLOG_ENC6(a,b,c,d,e,f,g) \ + SLOG_6 (mms_debug_sel & MMS_LOG_ENC,_mms_log_enc_logstr,a,b,c,d,e,f,g) +#define MLOG_ENC7(a,b,c,d,e,f,g,h) \ + SLOG_7 (mms_debug_sel & MMS_LOG_ENC,_mms_log_enc_logstr,a,b,c,d,e,f,g,h) +#define MLOG_ENC8(a,b,c,d,e,f,g,h,i) \ + SLOG_8 (mms_debug_sel & MMS_LOG_ENC,_mms_log_enc_logstr,a,b,c,d,e,f,g,h,i) + +/* Continuation log macros */ +#define MLOG_CENC0(a) \ + SLOGC_0 (mms_debug_sel & MMS_LOG_ENC,a) +#define MLOG_CENC1(a,b) \ + SLOGC_1 (mms_debug_sel & MMS_LOG_ENC,a,b) +#define MLOG_CENC2(a,b,c) \ + SLOGC_2 (mms_debug_sel & MMS_LOG_ENC,a,b,c) +#define MLOG_CENC3(a,b,c,d) \ + SLOGC_3 (mms_debug_sel & MMS_LOG_ENC,a,b,c,d) +#define MLOG_CENC4(a,b,c,d,e) \ + SLOGC_4 (mms_debug_sel & MMS_LOG_ENC,a,b,c,d,e) +#define MLOG_CENC5(a,b,c,d,e,f) \ + SLOGC_5 (mms_debug_sel & MMS_LOG_ENC,a,b,c,d,e,f) +#define MLOG_CENC6(a,b,c,d,e,f,g) \ + SLOGC_6 (mms_debug_sel & MMS_LOG_ENC,a,b,c,d,e,f,g) +#define MLOG_CENC7(a,b,c,d,e,f,g,h) \ + SLOGC_7 (mms_debug_sel & MMS_LOG_ENC,a,b,c,d,e,f,g,h) +#define MLOG_CENC8(a,b,c,d,e,f,g,h,i) \ + SLOGC_8 (mms_debug_sel & MMS_LOG_ENC,a,b,c,d,e,f,g,h,i) + +/* Hex log macro */ +#define MLOG_ENCH(a,b) \ + SLOGH (mms_debug_sel & MMS_LOG_ENC,a,b) + +/*********************** ACSE Macros ***********************************/ +#define MLOG_ACSE0(a) \ + SLOG_0 (mms_debug_sel & MMS_LOG_ACSE,_mms_log_acse_logstr,a) +#define MLOG_ACSE1(a,b) \ + SLOG_1 (mms_debug_sel & MMS_LOG_ACSE,_mms_log_acse_logstr,a,b) +#define MLOG_ACSE2(a,b,c) \ + SLOG_2 (mms_debug_sel & MMS_LOG_ACSE,_mms_log_acse_logstr,a,b,c) +#define MLOG_ACSE3(a,b,c,d) \ + SLOG_3 (mms_debug_sel & MMS_LOG_ACSE,_mms_log_acse_logstr,a,b,c,d) +#define MLOG_ACSE4(a,b,c,d,e) \ + SLOG_4 (mms_debug_sel & MMS_LOG_ACSE,_mms_log_acse_logstr,a,b,c,d,e) +#define MLOG_ACSE5(a,b,c,d,e,f) \ + SLOG_5 (mms_debug_sel & MMS_LOG_ACSE,_mms_log_acse_logstr,a,b,c,d,e,f) +#define MLOG_ACSE6(a,b,c,d,e,f,g) \ + SLOG_6 (mms_debug_sel & MMS_LOG_ACSE,_mms_log_acse_logstr,a,b,c,d,e,f,g) +#define MLOG_ACSE7(a,b,c,d,e,f,g,h) \ + SLOG_7 (mms_debug_sel & MMS_LOG_ACSE,_mms_log_acse_logstr,a,b,c,d,e,f,g,h) +#define MLOG_ACSE8(a,b,c,d,e,f,g,h,i) \ + SLOG_8 (mms_debug_sel & MMS_LOG_ACSE,_mms_log_acse_logstr,a,b,c,d,e,f,g,h,i) + +/* Continuation log macros */ +#define MLOG_CACSE0(a) \ + SLOGC_0 (mms_debug_sel & MMS_LOG_ACSE,a) +#define MLOG_CACSE1(a,b) \ + SLOGC_1 (mms_debug_sel & MMS_LOG_ACSE,a,b) +#define MLOG_CACSE2(a,b,c) \ + SLOGC_2 (mms_debug_sel & MMS_LOG_ACSE,a,b,c) +#define MLOG_CACSE3(a,b,c,d) \ + SLOGC_3 (mms_debug_sel & MMS_LOG_ACSE,a,b,c,d) +#define MLOG_CACSE4(a,b,c,d,e) \ + SLOGC_4 (mms_debug_sel & MMS_LOG_ACSE,a,b,c,d,e) +#define MLOG_CACSE5(a,b,c,d,e,f) \ + SLOGC_5 (mms_debug_sel & MMS_LOG_ACSE,a,b,c,d,e,f) +#define MLOG_CACSE6(a,b,c,d,e,f,g) \ + SLOGC_6 (mms_debug_sel & MMS_LOG_ACSE,a,b,c,d,e,f,g) +#define MLOG_CACSE7(a,b,c,d,e,f,g,h) \ + SLOGC_7 (mms_debug_sel & MMS_LOG_ACSE,a,b,c,d,e,f,g,h) +#define MLOG_CACSE8(a,b,c,d,e,f,g,h,i) \ + SLOGC_8 (mms_debug_sel & MMS_LOG_ACSE,a,b,c,d,e,f,g,h,i) + +/* Hex log macro */ +#define MLOG_ACSEH(a,b) \ + +/*********************** IQUE Macros **************************************/ +#define MLOG_IQUE0(a) \ + SLOG_0 (mms_debug_sel & MMS_LOG_IQUE,_mms_log_ique_logstr,a) +#define MLOG_IQUE1(a,b) \ + SLOG_1 (mms_debug_sel & MMS_LOG_IQUE,_mms_log_ique_logstr,a,b) +#define MLOG_IQUE2(a,b,c) \ + SLOG_2 (mms_debug_sel & MMS_LOG_IQUE,_mms_log_ique_logstr,a,b,c) +#define MLOG_IQUE3(a,b,c,d) \ + SLOG_3 (mms_debug_sel & MMS_LOG_IQUE,_mms_log_ique_logstr,a,b,c,d) +#define MLOG_IQUE4(a,b,c,d,e) \ + SLOG_4 (mms_debug_sel & MMS_LOG_IQUE,_mms_log_ique_logstr,a,b,c,d,e) +#define MLOG_IQUE5(a,b,c,d,e,f) \ + SLOG_5 (mms_debug_sel & MMS_LOG_IQUE,_mms_log_ique_logstr,a,b,c,d,e,f) +#define MLOG_IQUE6(a,b,c,d,e,f,g) \ + SLOG_6 (mms_debug_sel & MMS_LOG_IQUE,_mms_log_ique_logstr,a,b,c,d,e,f,g) +#define MLOG_IQUE7(a,b,c,d,e,f,g,h) \ + SLOG_7 (mms_debug_sel & MMS_LOG_IQUE,_mms_log_ique_logstr,a,b,c,d,e,f,g,h) +#define MLOG_IQUE8(a,b,c,d,e,f,g,h,i) \ + SLOG_8 (mms_debug_sel & MMS_LOG_IQUE,_mms_log_ique_logstr,a,b,c,d,e,f,g,h,i) + +/* Continuation log macros */ +#define MLOG_CIQUE0(a) \ + SLOGC_0 (mms_debug_sel & MMS_LOG_IQUE,a) +#define MLOG_CIQUE1(a,b) \ + SLOGC_1 (mms_debug_sel & MMS_LOG_IQUE,a,b) +#define MLOG_CIQUE2(a,b,c) \ + SLOGC_2 (mms_debug_sel & MMS_LOG_IQUE,a,b,c) +#define MLOG_CIQUE3(a,b,c,d) \ + SLOGC_3 (mms_debug_sel & MMS_LOG_IQUE,a,b,c,d) +#define MLOG_CIQUE4(a,b,c,d,e) \ + SLOGC_4 (mms_debug_sel & MMS_LOG_IQUE,a,b,c,d,e) +#define MLOG_CIQUE5(a,b,c,d,e,f) \ + SLOGC_5 (mms_debug_sel & MMS_LOG_IQUE,a,b,c,d,e,f) +#define MLOG_CIQUE6(a,b,c,d,e,f,g) \ + SLOGC_6 (mms_debug_sel & MMS_LOG_IQUE,a,b,c,d,e,f,g) +#define MLOG_CIQUE7(a,b,c,d,e,f,g,h) \ + SLOGC_7 (mms_debug_sel & MMS_LOG_IQUE,a,b,c,d,e,f,g,h) +#define MLOG_CIQUE8(a,b,c,d,e,f,g,h,i) \ + SLOGC_8 (mms_debug_sel & MMS_LOG_IQUE,a,b,c,d,e,f,g,h,i) + +/* Hex log macro */ +#define MLOG_IQUEH(a,b) \ + SLOGH (mms_debug_sel & MMS_LOG_IQUE,a,b) + +/*********************** RQUE Macros **************************************/ +#define MLOG_RQUE0(a) \ + SLOG_0 (mms_debug_sel & MMS_LOG_RQUE,_mms_log_rque_logstr,a) +#define MLOG_RQUE1(a,b) \ + SLOG_1 (mms_debug_sel & MMS_LOG_RQUE,_mms_log_rque_logstr,a,b) +#define MLOG_RQUE2(a,b,c) \ + SLOG_2 (mms_debug_sel & MMS_LOG_RQUE,_mms_log_rque_logstr,a,b,c) +#define MLOG_RQUE3(a,b,c,d) \ + SLOG_3 (mms_debug_sel & MMS_LOG_RQUE,_mms_log_rque_logstr,a,b,c,d) +#define MLOG_RQUE4(a,b,c,d,e) \ + SLOG_4 (mms_debug_sel & MMS_LOG_RQUE,_mms_log_rque_logstr,a,b,c,d,e) +#define MLOG_RQUE5(a,b,c,d,e,f) \ + SLOG_5 (mms_debug_sel & MMS_LOG_RQUE,_mms_log_rque_logstr,a,b,c,d,e,f) +#define MLOG_RQUE6(a,b,c,d,e,f,g) \ + SLOG_6 (mms_debug_sel & MMS_LOG_RQUE,_mms_log_rque_logstr,a,b,c,d,e,f,g) +#define MLOG_RQUE7(a,b,c,d,e,f,g,h) \ + SLOG_7 (mms_debug_sel & MMS_LOG_RQUE,_mms_log_rque_logstr,a,b,c,d,e,f,g,h) +#define MLOG_RQUE8(a,b,c,d,e,f,g,h,i) \ + SLOG_8 (mms_debug_sel & MMS_LOG_RQUE,_mms_log_rque_logstr,a,b,c,d,e,f,g,h,i) + +/* Continuation log macros */ +#define MLOG_CRQUE0(a) \ + SLOGC_0 (mms_debug_sel & MMS_LOG_RQUE,a) +#define MLOG_CRQUE1(a,b) \ + SLOGC_1 (mms_debug_sel & MMS_LOG_RQUE,a,b) +#define MLOG_CRQUE2(a,b,c) \ + SLOGC_2 (mms_debug_sel & MMS_LOG_RQUE,a,b,c) +#define MLOG_CRQUE3(a,b,c,d) \ + SLOGC_3 (mms_debug_sel & MMS_LOG_RQUE,a,b,c,d) +#define MLOG_CRQUE4(a,b,c,d,e) \ + SLOGC_4 (mms_debug_sel & MMS_LOG_RQUE,a,b,c,d,e) +#define MLOG_CRQUE5(a,b,c,d,e,f) \ + SLOGC_5 (mms_debug_sel & MMS_LOG_RQUE,a,b,c,d,e,f) +#define MLOG_CRQUE6(a,b,c,d,e,f,g) \ + SLOGC_6 (mms_debug_sel & MMS_LOG_RQUE,a,b,c,d,e,f,g) +#define MLOG_CRQUE7(a,b,c,d,e,f,g,h) \ + SLOGC_7 (mms_debug_sel & MMS_LOG_RQUE,a,b,c,d,e,f,g,h) +#define MLOG_CRQUE8(a,b,c,d,e,f,g,h,i) \ + SLOGC_8 (mms_debug_sel & MMS_LOG_RQUE,a,b,c,d,e,f,g,h,i) + +/* Hex log macro */ +#define MLOG_RQUEH(a,b) \ + SLOGH (mms_debug_sel & MMS_LOG_RQUE,a,b) + +/*********************** REQ Macros **************************************/ +#define MLOG_REQ0(a) \ + SLOG_0 (mms_debug_sel & MMS_LOG_REQ,_mms_log_req_logstr,a) +#define MLOG_REQ1(a,b) \ + SLOG_1 (mms_debug_sel & MMS_LOG_REQ,_mms_log_req_logstr,a,b) +#define MLOG_REQ2(a,b,c) \ + SLOG_2 (mms_debug_sel & MMS_LOG_REQ,_mms_log_req_logstr,a,b,c) +#define MLOG_REQ3(a,b,c,d) \ + SLOG_3 (mms_debug_sel & MMS_LOG_REQ,_mms_log_req_logstr,a,b,c,d) +#define MLOG_REQ4(a,b,c,d,e) \ + SLOG_4 (mms_debug_sel & MMS_LOG_REQ,_mms_log_req_logstr,a,b,c,d,e) +#define MLOG_REQ5(a,b,c,d,e,f) \ + SLOG_5 (mms_debug_sel & MMS_LOG_REQ,_mms_log_req_logstr,a,b,c,d,e,f) +#define MLOG_REQ6(a,b,c,d,e,f,g) \ + SLOG_6 (mms_debug_sel & MMS_LOG_REQ,_mms_log_req_logstr,a,b,c,d,e,f,g) +#define MLOG_REQ7(a,b,c,d,e,f,g,h) \ + SLOG_7 (mms_debug_sel & MMS_LOG_REQ,_mms_log_req_logstr,a,b,c,d,e,f,g,h) +#define MLOG_REQ8(a,b,c,d,e,f,g,h,i) \ + SLOG_8 (mms_debug_sel & MMS_LOG_REQ,_mms_log_req_logstr,a,b,c,d,e,f,g,h,i) + +/* DEBUG: Add Continuation log macros? */ + +/* Hex log macro */ +#define MLOG_REQH(a,b) \ + SLOGH (mms_debug_sel & MMS_LOG_REQ,a,b) + +/*********************** IND Macros **************************************/ +#define MLOG_IND0(a) \ + SLOG_0 (mms_debug_sel & MMS_LOG_IND,_mms_log_ind_logstr,a) +#define MLOG_IND1(a,b) \ + SLOG_1 (mms_debug_sel & MMS_LOG_IND,_mms_log_ind_logstr,a,b) +#define MLOG_IND2(a,b,c) \ + SLOG_2 (mms_debug_sel & MMS_LOG_IND,_mms_log_ind_logstr,a,b,c) +#define MLOG_IND3(a,b,c,d) \ + SLOG_3 (mms_debug_sel & MMS_LOG_IND,_mms_log_ind_logstr,a,b,c,d) +#define MLOG_IND4(a,b,c,d,e) \ + SLOG_4 (mms_debug_sel & MMS_LOG_IND,_mms_log_ind_logstr,a,b,c,d,e) +#define MLOG_IND5(a,b,c,d,e,f) \ + SLOG_5 (mms_debug_sel & MMS_LOG_IND,_mms_log_ind_logstr,a,b,c,d,e,f) +#define MLOG_IND6(a,b,c,d,e,f,g) \ + SLOG_6 (mms_debug_sel & MMS_LOG_IND,_mms_log_ind_logstr,a,b,c,d,e,f,g) +#define MLOG_IND7(a,b,c,d,e,f,g,h) \ + SLOG_7 (mms_debug_sel & MMS_LOG_IND,_mms_log_ind_logstr,a,b,c,d,e,f,g,h) +#define MLOG_IND8(a,b,c,d,e,f,g,h,i) \ + SLOG_8 (mms_debug_sel & MMS_LOG_IND,_mms_log_ind_logstr,a,b,c,d,e,f,g,h,i) + +/* DEBUG: Add Continuation log macros? */ + +/* Hex log macro */ +#define MLOG_INDH(a,b) \ + SLOGH (mms_debug_sel & MMS_LOG_IND,a,b) + +/*********************** RESP Macros **************************************/ +#define MLOG_RESP0(a) \ + SLOG_0 (mms_debug_sel & MMS_LOG_RESP,_mms_log_resp_logstr,a) +#define MLOG_RESP1(a,b) \ + SLOG_1 (mms_debug_sel & MMS_LOG_RESP,_mms_log_resp_logstr,a,b) +#define MLOG_RESP2(a,b,c) \ + SLOG_2 (mms_debug_sel & MMS_LOG_RESP,_mms_log_resp_logstr,a,b,c) +#define MLOG_RESP3(a,b,c,d) \ + SLOG_3 (mms_debug_sel & MMS_LOG_RESP,_mms_log_resp_logstr,a,b,c,d) +#define MLOG_RESP4(a,b,c,d,e) \ + SLOG_4 (mms_debug_sel & MMS_LOG_RESP,_mms_log_resp_logstr,a,b,c,d,e) +#define MLOG_RESP5(a,b,c,d,e,f) \ + SLOG_5 (mms_debug_sel & MMS_LOG_RESP,_mms_log_resp_logstr,a,b,c,d,e,f) +#define MLOG_RESP6(a,b,c,d,e,f,g) \ + SLOG_6 (mms_debug_sel & MMS_LOG_RESP,_mms_log_resp_logstr,a,b,c,d,e,f,g) +#define MLOG_RESP7(a,b,c,d,e,f,g,h) \ + SLOG_7 (mms_debug_sel & MMS_LOG_RESP,_mms_log_resp_logstr,a,b,c,d,e,f,g,h) +#define MLOG_RESP8(a,b,c,d,e,f,g,h,i) \ + SLOG_8 (mms_debug_sel & MMS_LOG_RESP,_mms_log_resp_logstr,a,b,c,d,e,f,g,h,i) + +/* DEBUG: Add Continuation log macros? */ + +/* Hex log macro */ +#define MLOG_RESPH(a,b) \ + SLOGH (mms_debug_sel & MMS_LOG_RESP,a,b) + +/*********************** CONF Macros **************************************/ +#define MLOG_CONF0(a) \ + SLOG_0 (mms_debug_sel & MMS_LOG_CONF,_mms_log_conf_logstr,a) +#define MLOG_CONF1(a,b) \ + SLOG_1 (mms_debug_sel & MMS_LOG_CONF,_mms_log_conf_logstr,a,b) +#define MLOG_CONF2(a,b,c) \ + SLOG_2 (mms_debug_sel & MMS_LOG_CONF,_mms_log_conf_logstr,a,b,c) +#define MLOG_CONF3(a,b,c,d) \ + SLOG_3 (mms_debug_sel & MMS_LOG_CONF,_mms_log_conf_logstr,a,b,c,d) +#define MLOG_CONF4(a,b,c,d,e) \ + SLOG_4 (mms_debug_sel & MMS_LOG_CONF,_mms_log_conf_logstr,a,b,c,d,e) +#define MLOG_CONF5(a,b,c,d,e,f) \ + SLOG_5 (mms_debug_sel & MMS_LOG_CONF,_mms_log_conf_logstr,a,b,c,d,e,f) +#define MLOG_CONF6(a,b,c,d,e,f,g) \ + SLOG_6 (mms_debug_sel & MMS_LOG_CONF,_mms_log_conf_logstr,a,b,c,d,e,f,g) +#define MLOG_CONF7(a,b,c,d,e,f,g,h) \ + SLOG_7 (mms_debug_sel & MMS_LOG_CONF,_mms_log_conf_logstr,a,b,c,d,e,f,g,h) +#define MLOG_CONF8(a,b,c,d,e,f,g,h,i) \ + SLOG_8 (mms_debug_sel & MMS_LOG_CONF,_mms_log_conf_logstr,a,b,c,d,e,f,g,h,i) + + +/* DEBUG: Add Continuation log macros? */ + +/* Hex log macro */ +#define MLOG_CONFH(a,b) \ + SLOGH (mms_debug_sel & MMS_LOG_CONF,a,b) + +/*********************** VM Macros **************************************/ +#define MLOG_VM0(a) \ + SLOG_0 (mms_debug_sel & MMS_LOG_VM,_mms_log_vm_logstr,a) +#define MLOG_VM1(a,b) \ + SLOG_1 (mms_debug_sel & MMS_LOG_VM,_mms_log_vm_logstr,a,b) +#define MLOG_VM2(a,b,c) \ + SLOG_2 (mms_debug_sel & MMS_LOG_VM,_mms_log_vm_logstr,a,b,c) +#define MLOG_VM3(a,b,c,d) \ + SLOG_3 (mms_debug_sel & MMS_LOG_VM,_mms_log_vm_logstr,a,b,c,d) +#define MLOG_VM4(a,b,c,d,e) \ + SLOG_4 (mms_debug_sel & MMS_LOG_VM,_mms_log_vm_logstr,a,b,c,d,e) +#define MLOG_VM5(a,b,c,d,e,f) \ + SLOG_5 (mms_debug_sel & MMS_LOG_VM,_mms_log_vm_logstr,a,b,c,d,e,f) +#define MLOG_VM6(a,b,c,d,e,f,g) \ + SLOG_6 (mms_debug_sel & MMS_LOG_VM,_mms_log_vm_logstr,a,b,c,d,e,f,g) +#define MLOG_VM7(a,b,c,d,e,f,g,h) \ + SLOG_7 (mms_debug_sel & MMS_LOG_VM,_mms_log_vm_logstr,a,b,c,d,e,f,g,h) +#define MLOG_VM8(a,b,c,d,e,f,g,h,i) \ + SLOG_8 (mms_debug_sel & MMS_LOG_VM,_mms_log_vm_logstr,a,b,c,d,e,f,g,h,i) + +/* DEBUG: Add Continuation log macros? */ + +/* Hex log macro */ +#define MLOG_VMH(a,b) \ + SLOGH (mms_debug_sel & MMS_LOG_VM,a,b) + +/*********************** ERR Macros **************************************/ +#define MLOG_ERR0(a) \ + SLOG_0 (mms_debug_sel & MMS_LOG_ERR,_mms_log_err_logstr,a) +#define MLOG_ERR1(a,b) \ + SLOG_1 (mms_debug_sel & MMS_LOG_ERR,_mms_log_err_logstr,a,b) +#define MLOG_ERR2(a,b,c) \ + SLOG_2 (mms_debug_sel & MMS_LOG_ERR,_mms_log_err_logstr,a,b,c) +#define MLOG_ERR3(a,b,c,d) \ + SLOG_3 (mms_debug_sel & MMS_LOG_ERR,_mms_log_err_logstr,a,b,c,d) +#define MLOG_ERR4(a,b,c,d,e) \ + SLOG_4 (mms_debug_sel & MMS_LOG_ERR,_mms_log_err_logstr,a,b,c,d,e) +#define MLOG_ERR5(a,b,c,d,e,f) \ + SLOG_5 (mms_debug_sel & MMS_LOG_ERR,_mms_log_err_logstr,a,b,c,d,e,f) +#define MLOG_ERR6(a,b,c,d,e,f,g) \ + SLOG_6 (mms_debug_sel & MMS_LOG_ERR,_mms_log_err_logstr,a,b,c,d,e,f,g) +#define MLOG_ERR7(a,b,c,d,e,f,g,h) \ + SLOG_7 (mms_debug_sel & MMS_LOG_ERR,_mms_log_err_logstr,a,b,c,d,e,f,g,h) +#define MLOG_ERR8(a,b,c,d,e,f,g,h,i) \ + SLOG_8 (mms_debug_sel & MMS_LOG_ERR,_mms_log_err_logstr,a,b,c,d,e,f,g,h,i) + +/* Continuation log macros */ +#define MLOG_CERR0(a) \ + SLOGC_0 (mms_debug_sel & MMS_LOG_ERR,a) +#define MLOG_CERR1(a,b) \ + SLOGC_1 (mms_debug_sel & MMS_LOG_ERR,a,b) +#define MLOG_CERR2(a,b,c) \ + SLOGC_2 (mms_debug_sel & MMS_LOG_ERR,a,b,c) +#define MLOG_CERR3(a,b,c,d) \ + SLOGC_3 (mms_debug_sel & MMS_LOG_ERR,a,b,c,d) +#define MLOG_CERR4(a,b,c,d,e) \ + SLOGC_4 (mms_debug_sel & MMS_LOG_ERR,a,b,c,d,e) +#define MLOG_CERR5(a,b,c,d,e,f) \ + SLOGC_5 (mms_debug_sel & MMS_LOG_ERR,a,b,c,d,e,f) +#define MLOG_CERR6(a,b,c,d,e,f,g) \ + SLOGC_6 (mms_debug_sel & MMS_LOG_ERR,a,b,c,d,e,f,g) +#define MLOG_CERR7(a,b,c,d,e,f,g,h) \ + SLOGC_7 (mms_debug_sel & MMS_LOG_ERR,a,b,c,d,e,f,g,h) +#define MLOG_CERR8(a,b,c,d,e,f,g,h,i) \ + SLOGC_8 (mms_debug_sel & MMS_LOG_ERR,a,b,c,d,e,f,g,h,i) + +/* Hex log macro */ +#define MLOG_ERRH(a,b) \ + SLOGH (mms_debug_sel & MMS_LOG_ERR,a,b) + +/*********************** NERR Macros *************************************/ +#define MLOG_NERR0(a) \ + SLOG_0 (mms_debug_sel & MMS_LOG_NERR,_mms_log_nerr_logstr,a) +#define MLOG_NERR1(a,b) \ + SLOG_1 (mms_debug_sel & MMS_LOG_NERR,_mms_log_nerr_logstr,a,b) +#define MLOG_NERR2(a,b,c) \ + SLOG_2 (mms_debug_sel & MMS_LOG_NERR,_mms_log_nerr_logstr,a,b,c) +#define MLOG_NERR3(a,b,c,d) \ + SLOG_3 (mms_debug_sel & MMS_LOG_NERR,_mms_log_nerr_logstr,a,b,c,d) +#define MLOG_NERR4(a,b,c,d,e) \ + SLOG_4 (mms_debug_sel & MMS_LOG_NERR,_mms_log_nerr_logstr,a,b,c,d,e) +#define MLOG_NERR5(a,b,c,d,e,f) \ + SLOG_5 (mms_debug_sel & MMS_LOG_NERR,_mms_log_nerr_logstr,a,b,c,d,e,f) +#define MLOG_NERR6(a,b,c,d,e,f,g) \ + SLOG_6 (mms_debug_sel & MMS_LOG_NERR,_mms_log_nerr_logstr,a,b,c,d,e,f,g) +#define MLOG_NERR7(a,b,c,d,e,f,g,h) \ + SLOG_7 (mms_debug_sel & MMS_LOG_NERR,_mms_log_nerr_logstr,a,b,c,d,e,f,g,h) +#define MLOG_NERR8(a,b,c,d,e,f,g,h,i) \ + SLOG_8 (mms_debug_sel & MMS_LOG_NERR,_mms_log_nerr_logstr,a,b,c,d,e,f,g,h,i) + +/* Continuation log macros */ +#define MLOG_CNERR0(a) \ + SLOGC_0 (mms_debug_sel & MMS_LOG_NERR,a) +#define MLOG_CNERR1(a,b) \ + SLOGC_1 (mms_debug_sel & MMS_LOG_NERR,a,b) +#define MLOG_CNERR2(a,b,c) \ + SLOGC_2 (mms_debug_sel & MMS_LOG_NERR,a,b,c) +#define MLOG_CNERR3(a,b,c,d) \ + SLOGC_3 (mms_debug_sel & MMS_LOG_NERR,a,b,c,d) +#define MLOG_CNERR4(a,b,c,d,e) \ + SLOGC_4 (mms_debug_sel & MMS_LOG_NERR,a,b,c,d,e) +#define MLOG_CNERR5(a,b,c,d,e,f) \ + SLOGC_5 (mms_debug_sel & MMS_LOG_NERR,a,b,c,d,e,f) +#define MLOG_CNERR6(a,b,c,d,e,f,g) \ + SLOGC_6 (mms_debug_sel & MMS_LOG_NERR,a,b,c,d,e,f,g) +#define MLOG_CNERR7(a,b,c,d,e,f,g,h) \ + SLOGC_7 (mms_debug_sel & MMS_LOG_NERR,a,b,c,d,e,f,g,h) +#define MLOG_CNERR8(a,b,c,d,e,f,g,h,i) \ + SLOGC_8 (mms_debug_sel & MMS_LOG_NERR,a,b,c,d,e,f,g,h,i) + +/* Hex log macro */ +#define MLOG_NERRH(a,b) \ + SLOGH (mms_debug_sel & MMS_LOG_NERR,a,b) + +/*********************** PDU Macros **************************************/ +#define MLOG_PDU0(a) \ + SLOG_0 (mms_debug_sel & MMS_LOG_PDU,_mms_log_pdu_logstr,a) +#define MLOG_PDU1(a,b) \ + SLOG_1 (mms_debug_sel & MMS_LOG_PDU,_mms_log_pdu_logstr,a,b) +#define MLOG_PDU2(a,b,c) \ + SLOG_2 (mms_debug_sel & MMS_LOG_PDU,_mms_log_pdu_logstr,a,b,c) +#define MLOG_PDU3(a,b,c,d) \ + SLOG_3 (mms_debug_sel & MMS_LOG_PDU,_mms_log_pdu_logstr,a,b,c,d) +#define MLOG_PDU4(a,b,c,d,e) \ + SLOG_4 (mms_debug_sel & MMS_LOG_PDU,_mms_log_pdu_logstr,a,b,c,d,e) +#define MLOG_PDU5(a,b,c,d,e,f) \ + SLOG_5 (mms_debug_sel & MMS_LOG_PDU,_mms_log_pdu_logstr,a,b,c,d,e,f) +#define MLOG_PDU6(a,b,c,d,e,f,g) \ + SLOG_6 (mms_debug_sel & MMS_LOG_PDU,_mms_log_pdu_logstr,a,b,c,d,e,f,g) +#define MLOG_PDU7(a,b,c,d,e,f,g,h) \ + SLOG_7 (mms_debug_sel & MMS_LOG_PDU,_mms_log_pdu_logstr,a,b,c,d,e,f,g,h) +#define MLOG_PDU8(a,b,c,d,e,f,g,h,i) \ + SLOG_8 (mms_debug_sel & MMS_LOG_PDU,_mms_log_pdu_logstr,a,b,c,d,e,f,g,h,i) + +/* Continuation log macros */ +#define MLOG_CPDU0(a) \ + SLOGC_0 (mms_debug_sel & MMS_LOG_PDU,a) +#define MLOG_CPDU1(a,b) \ + SLOGC_1 (mms_debug_sel & MMS_LOG_PDU,a,b) +#define MLOG_CPDU2(a,b,c) \ + SLOGC_2 (mms_debug_sel & MMS_LOG_PDU,a,b,c) +#define MLOG_CPDU3(a,b,c,d) \ + SLOGC_3 (mms_debug_sel & MMS_LOG_PDU,a,b,c,d) +#define MLOG_CPDU4(a,b,c,d,e) \ + SLOGC_4 (mms_debug_sel & MMS_LOG_PDU,a,b,c,d,e) +#define MLOG_CPDU5(a,b,c,d,e,f) \ + SLOGC_5 (mms_debug_sel & MMS_LOG_PDU,a,b,c,d,e,f) +#define MLOG_CPDU6(a,b,c,d,e,f,g) \ + SLOGC_6 (mms_debug_sel & MMS_LOG_PDU,a,b,c,d,e,f,g) +#define MLOG_CPDU7(a,b,c,d,e,f,g,h) \ + SLOGC_7 (mms_debug_sel & MMS_LOG_PDU,a,b,c,d,e,f,g,h) +#define MLOG_CPDU8(a,b,c,d,e,f,g,h,i) \ + SLOGC_8 (mms_debug_sel & MMS_LOG_PDU,a,b,c,d,e,f,g,h,i) + +/* Hex log macro */ +#define MLOG_PDUH(a,b) \ + SLOGH (mms_debug_sel & MMS_LOG_PDU,a,b) + + +/*********************** ALWAYS Macros *********************************/ +/* DEBUG: these are same as "SLOGALWAYS*" except header txt */ +/* "mms_log_always_logstr". If text is not important, just remap */ +/* "MLOG_ALWAYS*" like this (#define MLOG_ALWAYS0 SLOGALWAYS0). */ +#if defined(DEBUG_SISCO) +#define MLOG_ALWAYS0(a) \ + _slog (sLogCtrl,_mms_log_always_logstr, thisFileName,__LINE__,a) +#define MLOG_ALWAYS1(a,b) \ + _slog (sLogCtrl,_mms_log_always_logstr, thisFileName,__LINE__,a,b) +#define MLOG_ALWAYS2(a,b,c) \ + _slog (sLogCtrl,_mms_log_always_logstr, thisFileName,__LINE__,a,b,c) +#define MLOG_ALWAYS3(a,b,c,d) \ + _slog (sLogCtrl,_mms_log_always_logstr, thisFileName,__LINE__,a,b,c,d) +#define MLOG_ALWAYS4(a,b,c,d,e) \ + _slog (sLogCtrl,_mms_log_always_logstr, thisFileName,__LINE__,a,b,c,d,e) +#define MLOG_ALWAYS5(a,b,c,d,e,f) \ + _slog (sLogCtrl,_mms_log_always_logstr, thisFileName,__LINE__,a,b,c,d,e,f) +#define MLOG_ALWAYS6(a,b,c,d,e,f,g) \ + _slog (sLogCtrl,_mms_log_always_logstr, thisFileName,__LINE__,a,b,c,d,e,f,g) +#define MLOG_ALWAYS7(a,b,c,d,e,f,g,h) \ + _slog (sLogCtrl,_mms_log_always_logstr, thisFileName,__LINE__,a,b,c,d,e,f,g,h) +#define MLOG_ALWAYS8(a,b,c,d,e,f,g,h,i) \ + _slog (sLogCtrl,_mms_log_always_logstr, thisFileName,__LINE__,a,b,c,d,e,f,g,h,i) +#else /* !DEBUG_SISCO */ +#define MLOG_ALWAYS0(a) +#define MLOG_ALWAYS1(a,b) +#define MLOG_ALWAYS2(a,b,c) +#define MLOG_ALWAYS3(a,b,c,d) +#define MLOG_ALWAYS4(a,b,c,d,e) +#define MLOG_ALWAYS5(a,b,c,d,e,f) +#define MLOG_ALWAYS6(a,b,c,d,e,f,g) +#define MLOG_ALWAYS7(a,b,c,d,e,f,g,h) +#define MLOG_ALWAYS8(a,b,c,d,e,f,g,h,i) +#endif /* !DEBUG_SISCO */ + +/* Continuation & Hex macros are exactly the same as "SLOG*" macros, so just remap to them.*/ +#define MLOG_CALWAYS0 SLOGCALWAYS0 +#define MLOG_CALWAYS1 SLOGCALWAYS1 +#define MLOG_CALWAYS2 SLOGCALWAYS2 +#define MLOG_CALWAYS3 SLOGCALWAYS3 +#define MLOG_CALWAYS4 SLOGCALWAYS4 +#define MLOG_CALWAYS5 SLOGCALWAYS5 +#define MLOG_CALWAYS6 SLOGCALWAYS6 +#define MLOG_CALWAYS7 SLOGCALWAYS7 +#define MLOG_CALWAYS8 SLOGCALWAYS8 + +#define MLOG_ALWAYSH SLOGALWAYSH + + +/*********************** USER ERR Macros********************************/ +#define USER_LOG_ERR0(a) \ + SLOG_0 (user_debug_sel & USER_LOG_ERR,_user_err_logstr,a) +#define USER_LOG_ERR1(a,b) \ + SLOG_1 (user_debug_sel & USER_LOG_ERR,_user_err_logstr,a,b) +#define USER_LOG_ERR2(a,b,c) \ + SLOG_2 (user_debug_sel & USER_LOG_ERR,_user_err_logstr,a,b,c) +#define USER_LOG_ERR3(a,b,c,d) \ + SLOG_3 (user_debug_sel & USER_LOG_ERR,_user_err_logstr,a,b,c,d) +#define USER_LOG_ERR4(a,b,c,d,e) \ + SLOG_4 (user_debug_sel & USER_LOG_ERR,_user_err_logstr,a,b,c,d,e) +#define USER_LOG_ERR5(a,b,c,d,e,f) \ + SLOG_5 (user_debug_sel & USER_LOG_ERR,_user_err_logstr,a,b,c,d,e,f) +#define USER_LOG_ERR6(a,b,c,d,e,f,g) \ + SLOG_6 (user_debug_sel & USER_LOG_ERR,_user_err_logstr,a,b,c,d,e,f,g) +#define USER_LOG_ERR7(a,b,c,d,e,f,g,h) \ + SLOG_7 (user_debug_sel & USER_LOG_ERR,_user_err_logstr,a,b,c,d,e,f,g,h) +#define USER_LOG_ERR8(a,b,c,d,e,f,g,h,i) \ + SLOG_8 (user_debug_sel & USER_LOG_ERR,_user_err_logstr,a,b,c,d,e,f,g,h,i) + +/* Continuation log macros */ +#define USER_LOG_ERRC0(a) \ + SLOGC_0 (user_debug_sel & USER_LOG_ERR,a) +#define USER_LOG_ERRC1(a,b) \ + SLOGC_1 (user_debug_sel & USER_LOG_ERR,a,b) +#define USER_LOG_ERRC2(a,b,c) \ + SLOGC_2 (user_debug_sel & USER_LOG_ERR,a,b,c) +#define USER_LOG_ERRC3(a,b,c,d) \ + SLOGC_3 (user_debug_sel & USER_LOG_ERR,a,b,c,d) +#define USER_LOG_ERRC4(a,b,c,d,e) \ + SLOGC_4 (user_debug_sel & USER_LOG_ERR,a,b,c,d,e) +#define USER_LOG_ERRC5(a,b,c,d,e,f) \ + SLOGC_5 (user_debug_sel & USER_LOG_ERR,a,b,c,d,e,f) +#define USER_LOG_ERRC6(a,b,c,d,e,f,g) \ + SLOGC_6 (user_debug_sel & USER_LOG_ERR,a,b,c,d,e,f,g) +#define USER_LOG_ERRC7(a,b,c,d,e,f,g,h) \ + SLOGC_7 (user_debug_sel & USER_LOG_ERR,a,b,c,d,e,f,g,h) +#define USER_LOG_ERRC8(a,b,c,d,e,f,g,h,i) \ + SLOGC_8 (user_debug_sel & USER_LOG_ERR,a,b,c,d,e,f,g,h,i) + +/* Hex log macro */ +#define USER_LOG_ERRH(a,b) \ + SLOGH (user_debug_sel & USER_LOG_ERR,a,b) + +/*********************** USER Client Macros ****************************/ +#define USER_LOG_CLIENT0(a) \ + SLOG_0 (user_debug_sel & USER_LOG_CLIENT,_user_client_logstr,a) +#define USER_LOG_CLIENT1(a,b) \ + SLOG_1 (user_debug_sel & USER_LOG_CLIENT,_user_client_logstr,a,b) +#define USER_LOG_CLIENT2(a,b,c) \ + SLOG_2 (user_debug_sel & USER_LOG_CLIENT,_user_client_logstr,a,b,c) +#define USER_LOG_CLIENT3(a,b,c,d) \ + SLOG_3 (user_debug_sel & USER_LOG_CLIENT,_user_client_logstr,a,b,c,d) +#define USER_LOG_CLIENT4(a,b,c,d,e) \ + SLOG_4 (user_debug_sel & USER_LOG_CLIENT,_user_client_logstr,a,b,c,d,e) +#define USER_LOG_CLIENT5(a,b,c,d,e,f) \ + SLOG_5 (user_debug_sel & USER_LOG_CLIENT,_user_client_logstr,a,b,c,d,e,f) +#define USER_LOG_CLIENT6(a,b,c,d,e,f,g) \ + SLOG_6 (user_debug_sel & USER_LOG_CLIENT,_user_client_logstr,a,b,c,d,e,f,g) +#define USER_LOG_CLIENT7(a,b,c,d,e,f,g,h) \ + SLOG_7 (user_debug_sel & USER_LOG_CLIENT,_user_client_logstr,a,b,c,d,e,f,g,h) +#define USER_LOG_CLIENT8(a,b,c,d,e,f,g,h,i) \ + SLOG_8 (user_debug_sel & USER_LOG_CLIENT,_user_client_logstr,a,b,c,d,e,f,g,h,i) + +/* Continuation log macros */ +#define USER_LOG_CLIENTC0(a) \ + SLOGC_0 (user_debug_sel & USER_LOG_CLIENT,a) +#define USER_LOG_CLIENTC1(a,b) \ + SLOGC_1 (user_debug_sel & USER_LOG_CLIENT,a,b) +#define USER_LOG_CLIENTC2(a,b,c) \ + SLOGC_2 (user_debug_sel & USER_LOG_CLIENT,a,b,c) +#define USER_LOG_CLIENTC3(a,b,c,d) \ + SLOGC_3 (user_debug_sel & USER_LOG_CLIENT,a,b,c,d) +#define USER_LOG_CLIENTC4(a,b,c,d,e) \ + SLOGC_4 (user_debug_sel & USER_LOG_CLIENT,a,b,c,d,e) +#define USER_LOG_CLIENTC5(a,b,c,d,e,f) \ + SLOGC_5 (user_debug_sel & USER_LOG_CLIENT,a,b,c,d,e,f) +#define USER_LOG_CLIENTC6(a,b,c,d,e,f,g) \ + SLOGC_6 (user_debug_sel & USER_LOG_CLIENT,a,b,c,d,e,f,g) +#define USER_LOG_CLIENTC7(a,b,c,d,e,f,g,h) \ + SLOGC_7 (user_debug_sel & USER_LOG_CLIENT,a,b,c,d,e,f,g,h) +#define USER_LOG_CLIENTC8(a,b,c,d,e,f,g,h,i) \ + SLOGC_8 (user_debug_sel & USER_LOG_CLIENT,a,b,c,d,e,f,g,h,i) + +/* Hex log macro */ +#define USER_LOG_CLIENTH(a,b) \ + SLOGH (user_debug_sel & USER_LOG_CLIENT,a,b) + +/*********************** USER Server Macros ****************************/ +#define USER_LOG_SERVER0(a) \ + SLOG_0 (user_debug_sel & USER_LOG_SERVER,_user_server_logstr,a) +#define USER_LOG_SERVER1(a,b) \ + SLOG_1 (user_debug_sel & USER_LOG_SERVER,_user_server_logstr,a,b) +#define USER_LOG_SERVER2(a,b,c) \ + SLOG_2 (user_debug_sel & USER_LOG_SERVER,_user_server_logstr,a,b,c) +#define USER_LOG_SERVER3(a,b,c,d) \ + SLOG_3 (user_debug_sel & USER_LOG_SERVER,_user_server_logstr,a,b,c,d) +#define USER_LOG_SERVER4(a,b,c,d,e) \ + SLOG_4 (user_debug_sel & USER_LOG_SERVER,_user_server_logstr,a,b,c,d,e) +#define USER_LOG_SERVER5(a,b,c,d,e,f) \ + SLOG_5 (user_debug_sel & USER_LOG_SERVER,_user_server_logstr,a,b,c,d,e,f) +#define USER_LOG_SERVER6(a,b,c,d,e,f,g) \ + SLOG_6 (user_debug_sel & USER_LOG_SERVER,_user_server_logstr,a,b,c,d,e,f,g) +#define USER_LOG_SERVER7(a,b,c,d,e,f,g,h) \ + SLOG_7 (user_debug_sel & USER_LOG_SERVER,_user_server_logstr,a,b,c,d,e,f,g,h) +#define USER_LOG_SERVER8(a,b,c,d,e,f,g,h,i) \ + SLOG_8 (user_debug_sel & USER_LOG_SERVER,_user_server_logstr,a,b,c,d,e,f,g,h,i) + +/* Continuation log macros */ +#define USER_LOG_SERVERC0(a) \ + SLOGC_0 (user_debug_sel & USER_LOG_SERVER,a) +#define USER_LOG_SERVERC1(a,b) \ + SLOGC_1 (user_debug_sel & USER_LOG_SERVER,a,b) +#define USER_LOG_SERVERC2(a,b,c) \ + SLOGC_2 (user_debug_sel & USER_LOG_SERVER,a,b,c) +#define USER_LOG_SERVERC3(a,b,c,d) \ + SLOGC_3 (user_debug_sel & USER_LOG_SERVER,a,b,c,d) +#define USER_LOG_SERVERC4(a,b,c,d,e) \ + SLOGC_4 (user_debug_sel & USER_LOG_SERVER,a,b,c,d,e) +#define USER_LOG_SERVERC5(a,b,c,d,e,f) \ + SLOGC_5 (user_debug_sel & USER_LOG_SERVER,a,b,c,d,e,f) +#define USER_LOG_SERVERC6(a,b,c,d,e,f,g) \ + SLOGC_6 (user_debug_sel & USER_LOG_SERVER,a,b,c,d,e,f,g) +#define USER_LOG_SERVERC7(a,b,c,d,e,f,g,h) \ + SLOGC_7 (user_debug_sel & USER_LOG_SERVER,a,b,c,d,e,f,g,h) +#define USER_LOG_SERVERC8(a,b,c,d,e,f,g,h,i) \ + SLOGC_8 (user_debug_sel & USER_LOG_SERVER,a,b,c,d,e,f,g,h,i) + +/* Hex log macro */ +#define USER_LOG_SERVERH(a,b) \ + SLOGH (user_debug_sel & USER_LOG_SERVER,a,b) + +#define USER_LOG_SERVER_HEX USER_LOG_SERVERH /* for backward compatibility*/ + +#ifdef __cplusplus +} +#endif + +/************************************************************************/ +#endif /* End of MMS_LOG_INCLUDED */ +/************************************************************************/ + diff --git a/mmslib/inc/mmslusec.h b/mmslib/inc/mmslusec.h new file mode 100644 index 0000000..f0f4b4f --- /dev/null +++ b/mmslib/inc/mmslusec.h @@ -0,0 +1,58 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2003 - 2004, All Rights Reserved. */ +/* */ +/* MODULE NAME : mmslusec.h */ +/* PRODUCT(S) : MMS-EASE Lite with LITESECURE */ +/* */ +/* MODULE DESCRIPTION : */ +/* Prototypes for Security related user functions. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 01/20/04 EJV 03 ulFreeAssocSecurity: del cc param. */ +/* 01/06/04 EJV 02 Merged with MMS-EASE mms_usec.h. */ +/* 07/08/03 EJV 01 Adopted from MMS-EASE mms_usec.h. */ +/************************************************************************/ +#ifndef MMS_USEC_H +#define MMS_USEC_H + +#ifdef __cplusplus +extern "C" { +#endif + +/*----------------------------------------------------------------------*/ +/* NOTE: The MMS-EASE Lite Secured applications (Client, Server) */ +/* are designed to work with Security Toolkit for MMS-EASE Lite */ +/* (LITESECURE-000-001). */ +/*----------------------------------------------------------------------*/ + +#if defined(S_SEC_ENABLED) + +#include "acseauth.h" +#include "ssec.h" + + +ST_RET ulSetSecurityCalling (ST_CHAR *locArName, + ST_CHAR *remArName, + S_SEC_LOC_AR **locArSecOut, + S_SEC_REM_AR **remArSecOut, + ACSE_AUTH_INFO *locAuthInfo, + S_SEC_ENCRYPT_CTRL *encryptCtrl); +ST_RET ulCheckSecureAssocConf (MVL_NET_INFO *cc); +ST_RET ulCheckSecureAssocInd (MVL_NET_INFO *cc, ACSE_AUTH_INFO *rspAuthInfo); +ST_RET ulFreeAssocSecurity (ACSE_AUTH_INFO *authInfo); +ST_RET ulCheckSecurityConfiguration (ST_VOID); + +#endif /* defined(S_SEC_ENABLED) */ + +#ifdef __cplusplus +} +#endif + +#endif /* MMS_USEC_H */ diff --git a/mmslib/inc/mmsop_en/mmsop_en.h b/mmslib/inc/mmsop_en/mmsop_en.h new file mode 100644 index 0000000..8a9038a --- /dev/null +++ b/mmslib/inc/mmsop_en/mmsop_en.h @@ -0,0 +1,185 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 1997, All Rights Reserved. */ +/* */ +/* MODULE NAME : mmsop_en.h */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the operation enable switches used to */ +/* configure the decode system, the user service system, & the */ +/* supported services bit strings. */ +/* */ +/* Note that by enabling (or disabling) only the desired MMS */ +/* operations, a limited subset may be created (the subset */ +/* creation module is mmsop_en.c), thus allowing the creation of */ +/* a smaller executable because: */ +/* 1) references to the various MMS-EASE functions are removed */ +/* and therefore are not included from the library, and */ +/* 2) operation specific user application code is eliminated. */ +/* */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/14/98 JRB 04 Put "MPARAM*" defines back. */ +/* Only user code needs them. */ +/* 03/20/98 JRB 03 Move defines used by libraries to mms_def2.h */ +/* Only user code needs this file now. */ +/* 09/16/97 DSF 02 Fixed comments */ +/* 08/18/97 MDE 01 Added parameter support defines */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef MMSOP_EN_INCLUDED +#define MMSOP_EN_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "mms_def2.h" /* for REQ_RESP_EN, etc. */ + +/************************************************************************/ +/* define the opcode enable switches */ +/************************************************************************/ +#define MMS_INIT_EN REQ_RESP_EN +#define MMS_CONCLUDE_EN REQ_RESP_EN +#define MMS_CANCEL_EN REQ_RESP_EN + +#define MMS_STATUS_EN REQ_RESP_EN +#define MMS_USTATUS_EN REQ_RESP_EN +#define MMS_GETNAMES_EN REQ_RESP_EN +#define MMS_IDENT_EN REQ_RESP_EN +#define MMS_RENAME_EN REQ_RESP_EN +#define MMS_GETCL_EN REQ_RESP_EN +#define MMS_VMD_EN 0 + +#define MMS_NAMED_DOM_EN 0 +#define MMS_MV_DWN_EN REQ_RESP_EN /* VM download */ +#define MMS_INIT_DWN_EN REQ_RESP_EN +#define MMS_DWN_LOAD_EN REQ_RESP_EN +#define MMS_TERM_DWN_EN REQ_RESP_EN +#define MMS_MV_UPL_EN REQ_RESP_EN /* VM upload */ +#define MMS_INIT_UPL_EN REQ_RESP_EN +#define MMS_UP_LOAD_EN REQ_RESP_EN +#define MMS_TERM_UPL_EN REQ_RESP_EN +#define MMS_RDDWN_EN REQ_RESP_EN +#define MMS_RDUPL_EN REQ_RESP_EN +#define MMS_LOAD_DOM_EN REQ_RESP_EN +#define MMS_STR_DOM_EN REQ_RESP_EN +#define MMS_DEL_DOM_EN REQ_RESP_EN +#define MMS_GET_DOM_EN REQ_RESP_EN + +#define MMS_CRE_PI_EN REQ_RESP_EN +#define MMS_DEL_PI_EN REQ_RESP_EN +#define MMS_START_EN REQ_RESP_EN +#define MMS_STOP_EN REQ_RESP_EN +#define MMS_RESUME_EN REQ_RESP_EN +#define MMS_RESET_EN REQ_RESP_EN +#define MMS_KILL_EN REQ_RESP_EN +#define MMS_GET_PI_EN REQ_RESP_EN + +#define MMS_VA_EN 1 +#define MMS_MV_READ_EN REQ_RESP_EN /* VM Read variable(s) */ +#define MMS_MV_RDVARS_EN REQ_RESP_EN /* General VM Rd var's */ +#define MMS_READ_EN REQ_RESP_EN +#define MMS_MV_WRITE_EN REQ_RESP_EN /* VM Write variable(s) */ +#define MMS_MV_WRVARS_EN REQ_RESP_EN /* General VM WR var's */ +#define MMS_WRITE_EN REQ_RESP_EN +#define MMS_INFO_EN REQ_RESP_EN +#define MMS_GETVAR_EN REQ_RESP_EN +#define MMS_DEFVAR_EN REQ_RESP_EN +#define MMS_DEFSCAT_EN REQ_RESP_EN +#define MMS_GETSCAT_EN REQ_RESP_EN +#define MMS_DELVAR_EN REQ_RESP_EN +#define MMS_DEFVLIST_EN REQ_RESP_EN +#define MMS_GETVLIST_EN REQ_RESP_EN +#define MMS_DELVLIST_EN REQ_RESP_EN +#define MMS_MV_DEFTYPE_EN REQ_RESP_EN /* VM DefineType */ +#define MMS_DEFTYPE_EN REQ_RESP_EN +#define MMS_GETTYPE_EN REQ_RESP_EN +#define MMS_DELTYPE_EN REQ_RESP_EN + +#define MMS_TAKECTRL_EN REQ_RESP_EN +#define MMS_RELCTRL_EN REQ_RESP_EN +#define MMS_DEFINE_SEM_EN REQ_RESP_EN +#define MMS_DELETE_SEM_EN REQ_RESP_EN +#define MMS_REP_SEMSTAT_EN REQ_RESP_EN +#define MMS_REP_SEMPOOL_EN REQ_RESP_EN +#define MMS_REP_SEMENTRY_EN REQ_RESP_EN + +#define MMS_JREAD_EN REQ_RESP_EN +#define MMS_JWRITE_EN REQ_RESP_EN +#define MMS_JINIT_EN REQ_RESP_EN +#define MMS_JSTAT_EN REQ_RESP_EN +#define MMS_JCREATE_EN REQ_RESP_EN +#define MMS_JDELETE_EN REQ_RESP_EN + +#define MMS_DEFEC_EN REQ_RESP_EN +#define MMS_DELEC_EN REQ_RESP_EN +#define MMS_GETECA_EN REQ_RESP_EN +#define MMS_REPECS_EN REQ_RESP_EN +#define MMS_ALTECM_EN REQ_RESP_EN +#define MMS_TRIGE_EN REQ_RESP_EN +#define MMS_DEFEA_EN REQ_RESP_EN +#define MMS_DELEA_EN REQ_RESP_EN +#define MMS_GETEAA_EN REQ_RESP_EN +#define MMS_REPEAS_EN REQ_RESP_EN +#define MMS_DEFEE_EN REQ_RESP_EN +#define MMS_DELEE_EN REQ_RESP_EN +#define MMS_GETEEA_EN REQ_RESP_EN +#define MMS_REPEES_EN REQ_RESP_EN +#define MMS_ALTEE_EN REQ_RESP_EN +#define MMS_EVNOT_EN REQ_RESP_EN +#define MMS_ACKEVNOT_EN REQ_RESP_EN +#define MMS_GETAS_EN REQ_RESP_EN +#define MMS_GETAES_EN REQ_RESP_EN + +#define MMS_INPUT_EN REQ_RESP_EN +#define MMS_OUTPUT_EN REQ_RESP_EN + +#define MMS_MV_FOPEN_EN REQ_RESP_EN /* VM FileOpen */ +#define MMS_MV_FREAD_EN REQ_RESP_EN /* VM FileRead */ +#define MMS_MV_FCLOSE_EN REQ_RESP_EN /* VM FileClose */ +#define MMS_MV_FCOPY_EN REQ_RESP_EN /* VM FileCopy */ +#define MMS_OBTAINFILE_EN REQ_RESP_EN +#define MMS_FOPEN_EN REQ_RESP_EN +#define MMS_FREAD_EN REQ_RESP_EN +#define MMS_FCLOSE_EN REQ_RESP_EN +#define MMS_FRENAME_EN REQ_RESP_EN +#define MMS_FDELETE_EN REQ_RESP_EN +#define MMS_FDIR_EN REQ_RESP_EN + + +/************************************************************************/ +/************************************************************************/ +/* PARAMETER SUPPORTED BITSTRING VALUES */ +/************************************************************************/ + +#define MPARAM_STR1 0x80 /* 0x80 arrays */ +#define MPARAM_STR2 0x40 /* 0x40 structures */ +#define MPARAM_VNAM 0x20 /* 0x20 named variables */ +#define MPARAM_VALT 0x10 /* 0x10 alternate access */ +#define MPARAM_VADR 0x08 /* 0x08 address formed variables */ +#define MPARAM_VSCA 0x00 /* 0x04 scattered access */ +#define MPARAM_TPY 0x02 /* 0x02 third party */ +#define MPARAM_VLIS 0x01 /* 0x01 variable list */ +#define MPARAM_REAL 0x00 /* 0x80 real data type */ +#define MPARAM_AKEC 0x00 /* 0x40 ack event cond. */ +#define MPARAM_CEI 0x00 /* 0x20 cond. eval. interval */ + +#define MPARAM0 MPARAM_STR1 | MPARAM_STR2 | MPARAM_VNAM | MPARAM_VALT |\ + MPARAM_VADR | MPARAM_VSCA | MPARAM_TPY | MPARAM_VLIS +#define MPARAM1 MPARAM_REAL | MPARAM_AKEC | MPARAM_CEI + + +#ifdef __cplusplus +} +#endif + +#endif /* MMSOP_EN_INCLUDED */ + diff --git a/mmslib/inc/mvl_acse.h b/mmslib/inc/mvl_acse.h new file mode 100644 index 0000000..0a79fbb --- /dev/null +++ b/mmslib/inc/mvl_acse.h @@ -0,0 +1,234 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2005, All Rights Reserved */ +/* */ +/* MODULE NAME : mvl_acse.h */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* NONE */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 05/10/05 EJV 26 Moved up osicfgx proto. */ +/* 04/06/05 EJV 25 Added MMSEASE_MOSI. */ +/* 03/28/05 JRB 24 Del suicacse header. */ +/* 08/11/04 JRB 23 Del global funct ptr u_mvl_connect_ind_fun. */ +/* Fix mvl_abort_req_ex return (ST_RET). */ +/* 07/08/04 JRB 22 Del unused global var mvl_local_cl_ar_name. */ +/* 07/23/03 MDE 21 Removed ACSE_AUTH_ENABLED */ +/* 06/16/03 EJV 20 Removed m_match.h, s_match.h includes */ +/* Chg M_MATCH_CTRL to DIB_MATCH_CTRL. */ +/* 06/10/03 MDE 19 Added address matching */ +/* 10/11/02 ASK 18 Added mvla_initiate_req_ex and */ +/* u_mvl_connect_*_ex */ +/* 05/13/02 MDE 17 Added structure element comments */ +/* 05/03/02 MDE 16 Added mvl_add_bind_ctrl, associated changes */ +/* 02/25/02 MDE 15 More changes to MVL_CFG_INFO */ +/* 02/20/02 MDE 14 Changes to new MVL_CFG_INFO, for mult. bind */ +/* 02/07/02 JRB 13 Define MVL_CFG_INFO & pass to mvl_start_acse.*/ +/* Move osicfgx proto here, add MVL_CFG_INFO arg*/ +/* Del global var mvl_local_ar_name. */ +/* 01/29/02 JRB 12 Replace mvl_init_cl_netinfo funct with */ +/* mvl_init_audt_addr. */ +/* 11/28/01 MDE 11 mvl_set_num_connections,mvl_set_max_msg_size */ +/* 01/05/01 MDE 10 Changes for use over Marben */ +/* 06/26/00 JRB 09 Del "#define MVL_ACSE". Not used. */ +/* Move "#define COACSE" to mvl_defs.h (avoids */ +/* mvl_defs.h dependence on mvl_acse.h). */ +/* 03/09/00 MDE 08 Added _mvl_init_conn_ctrl */ +/* 07/30/99 JRB 07 Chg ma_clbind_ctrl from static to global. */ +/* 04/13/99 MDE 06 Added '_mvla_initiate_locDe' */ +/* 03/18/99 MDE 05 Made connection limits runtime settable */ +/* 11/16/98 MDE 04 Removed mvl_release, mvla_release (obsolete) */ +/* 07/16/98 MDE 03 Addded 'mvl_dib_entry_to_app_ref' */ +/* 06/19/98 JRB 02 Add tp_type, etc. to NET_BIND_CTRL. */ +/* 09/10/97 MDE 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +#ifndef MVL_ACSE_INCLUDED +#define MVL_ACSE_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#if defined(MMSEASE_MOSI) +/* min includes */ +#include "mms_def2.h" +#else +#include "acse2usr.h" +#include "mvl_defs.h" + +/************************************************************************/ +/* Some error return codes */ +#define REQ_INCOMPLETE 0x100 +#define LOCAL_NAME_NOT_FOUND 0x101 +#define REMOTE_NAME_NOT_FOUND 0x102 + +#define MVLE_LOCAL_NAME 0x101 +#define MVLE_REMOTE_NAME 0x102 +#define MVLE_NUM_CONNECTIONS 0x103 + +/************************************************************************/ +/* Bind and Connection control structures */ + +struct dib_entry; /* Forward declaration */ +#endif /* !defined(MMSEASE_MOSI) */ + +typedef struct net_bind_ctrl + { +/* These parameters must be set before using in mvl_start_acse */ + ST_CHAR ar_name[MAX_AR_LEN+1]; + ST_INT num_calling; + ST_INT num_called; + +/* Internal */ + ST_VOID *user_info; +#ifdef LEAN_T + ST_INT tp_type; + ST_INT32 copp_bind_id_tcp; + ST_INT32 copp_bind_id_tp4; +#else + ST_INT32 copp_bind_id; +#endif + ST_INT32 clpp_bind_id; + struct dib_entry *de; + } NET_BIND_CTRL; + +/************************************************************************/ +/* MVL configuration information. Filled in by user or configuration */ +/* and passed to mvl_start_acse. */ +/************************************************************************/ + +typedef struct + { + ST_INT max_msg_size; /* Max MMS message size */ + ST_INT num_calling; /* total number of calling connections */ + ST_INT num_called; /* total number of called connections */ + +/* Used for single local address binding (LEAN-T) */ + ST_CHAR local_ar_name[MAX_AR_LEN+1]; + +/* Used for multiple local address binding only (MARBEN) */ +#ifdef MAP30_ACSE /* Select bind mode */ + ST_BOOLEAN use_bind_ctrl; /* Set to 0 for single local */ +#endif + +/* User sets these only when use_bind_ctrl is SD_TRUE (MARBEN) */ + ST_INT max_bind_ctrl; /* Max allowed */ + ST_INT num_bind_ctrl; /* Active bindings */ + NET_BIND_CTRL *bind_ctrl; /* Array of NET_BIND_CTRL */ + +/* Internal use */ + ST_INT calling_used; /* Number mvl_calling_conn_ctrl bound */ + ST_INT called_used; /* Number mvl_called_conn_ctrl bound */ + } MVL_CFG_INFO; + +/* Persistant config information; set by MVL during mvl_start_acse */ +extern MVL_CFG_INFO *mvl_cfg_info; + +ST_RET osicfgx (ST_CHAR *xml_filename, MVL_CFG_INFO *mvlCfg); + +#if !defined(MMSEASE_MOSI) + +/************************************************************************/ +/* Global configuration variables */ + +extern INIT_INFO *mvl_init_resp_info; +extern NET_BIND_CTRL ma_clbind_ctrl; /* to save clpp_bind info. */ + +#if defined(MAP30_ACSE) +extern ST_INT mvl_num_bind_ctrl; +extern NET_BIND_CTRL *mvl_bind_ctrl; +#endif +ST_RET mvla_set_init_ar (ST_CHAR *ar_name); + +/************************************************************************/ +/* ACSE interface related MVL ACSE functions */ + +ST_VOID mvl_set_max_msg_size (ST_INT max_msg_size); + +ST_RET mvl_start_acse (MVL_CFG_INFO *cfgInfo); +ST_RET mvl_end_acse (ST_VOID); + + +ST_VOID _mvl_init_conn_ctrl (ST_VOID); + +ST_RET mvl_initiate_req (ST_CHAR *remAr, + INIT_INFO *req_info, + INIT_INFO *resp_info, + MVL_NET_INFO **net_info_out); + +ST_RET mvla_initiate_req (ST_CHAR *remAr, + INIT_INFO *req_info, + INIT_INFO *resp_info, + MVL_NET_INFO **net_info_out, + MVL_REQ_PEND **req_out); + +ST_INT mvla_initiate_req_ex (ST_CHAR *remAr, + INIT_INFO *req_info, + INIT_INFO *resp_info, + MVL_NET_INFO **net_info_out, + MVL_REQ_PEND **req_out, + ACSE_AUTH_INFO *auth_info, + S_SEC_ENCRYPT_CTRL *encrypt_info); + +/* If this variable is not NULL, MVL will use it as the source for the */ +/* local dib entry for an initiate request. */ +extern struct dib_entry *_mvla_initiate_locDe; + +ST_RET mvl_abort_req (MVL_NET_INFO *cc); +ST_RET mvl_abort_req_ex (MVL_NET_INFO *cc, + ST_BOOLEAN diagnostic_pres, + ST_ACSE_AUTH diagnostic); + +ST_RET mvl_init_audt_addr (AUDT_APDU *audt, ST_CHAR *locArName, ST_CHAR *remArName); +ST_VOID mvl_dib_entry_to_app_ref (struct dib_entry *de, struct app_ref *appRef); +ST_RET mvl_add_bind_ctrl (NET_BIND_CTRL *bc); + +/************************************************************************/ +/* User defined function pointer to handle disconnect indications */ + +#define MVL_ACSE_RELEASE_IND 1 +#define MVL_ACSE_ABORT_IND 2 +extern ST_VOID (*u_mvl_disc_ind_fun) (MVL_NET_INFO *cc, ST_INT discType); + +/************************************************************************/ +/* User defined functions to handle connect indications & confirms. */ +/* User must supply these functions. */ + +extern ST_ACSE_AUTH u_mvl_connect_ind_ex (MVL_NET_INFO *cc, INIT_INFO *init_info, ACSE_AUTH_INFO *req_auth_info, ACSE_AUTH_INFO *rsp_auth_info); +extern ST_ACSE_AUTH u_mvl_connect_cnf_ex (MVL_NET_INFO *cc, AARE_APDU *ass_rsp_info); + +/************************************************************************/ + +/* MVL level address matching functions */ +ST_RET mvl_match_remote_ar (DIB_MATCH_CTRL *matchCtrl, struct mvl_net_info *cc, + struct dib_entry **dib_entry_out); +ST_RET mvl_match_local_ar (DIB_MATCH_CTRL *matchCtrl, struct mvl_net_info *cc, + struct dib_entry **dib_entry_out); +ST_INT mvl_cmp_local_addr (DIB_MATCH_CTRL *matchCtrl, struct mvl_net_info *cc, + struct dib_entry *dib_entry); +ST_INT mvl_cmp_remote_addr (DIB_MATCH_CTRL *matchCtrl, struct mvl_net_info *cc, + struct dib_entry *dib_entry); + +#if defined(MAP30_ACSE) +ST_RET mvl_net_info_to_chan (MVL_NET_INFO *cc, ST_INT *chanOut); +#endif + +#endif /* !defined(MMSEASE_MOSI) */ + +/************************************************************************/ +#ifdef __cplusplus +} +#endif + +#endif /* MVL_ACSE_INCLUDED */ +/************************************************************************/ + diff --git a/mmslib/inc/mvl_defs.h b/mmslib/inc/mvl_defs.h new file mode 100644 index 0000000..3c047f5 --- /dev/null +++ b/mmslib/inc/mvl_defs.h @@ -0,0 +1,2552 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1994 - 2003, All Rights Reserved */ +/* */ +/* MODULE NAME : mvl_defs.h */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* NONE */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 01/27/09 JRB 132 MVLAS_WRITE_CTRL: add ind_funct_done. */ +/* 09/25/08 MDE 131 Added MMS result info for READ/WRITE */ +/* 07/23/08 JRB 130 Move defs from mvl_uca.h to here (need earlier).*/ +/* Fix CntrlObj size. */ +/* 06/24/08 MDE 129 Added _mvl_persist_aa_objs */ +/* 06/04/08 JRB 128 Add file_list to MVL_NET_INFO. */ +/* Add mplas_concl_err. */ +/* Del mvl_type_ctrl from typedef (global var */ +/* with same name confused some debuggers). */ +/* 04/08/08 JRB 127 Chg () to (ST_VOID) in 2 prototypes. */ +/* 02/26/08 JRB 126 Add mvl_var_add_alloc, mvl_var_create_alloc. */ +/* Add mvl_var_create_derived. */ +/* mvl_dom_destroy: chg ret to void (can't fail)*/ +/* Add _mvl_clear_aa_objs. */ +/* 11/12/07 MDE 125 Added _mvl_getpath, changed _mvl_tmpnam */ +/* 04/16/07 JRB 124 Add prim_num to MVL_VAR_ASSOC. */ +/* 03/19/07 JRB 123 Del obsolete "mvl_vmd_*" macros. */ +/* 12/04/06 JRB 122 mvl_vmd_destroy: add arg to specify which VMD.*/ +/* 11/21/06 JRB 121 Move ..LAST_APPL_ERROR struct def to here */ +/* and add it to MVLAS_WR_VA_CTRL. */ +/* 10/30/06 JRB 120 Del #ifdef in structs so they do not change */ +/* with compiler options. */ +/* Del MVL_DYN_ASN1_TYPES option, always use */ +/* dynamic ASN1. Del asn1 from MVL_TYPE_CTRL. */ +/* 10/30/06 JRB 119 New object handling functions take VMD arg */ +/* & have "mvl_vmd_" prefix. Macros provided */ +/* for backward compatibility only. */ +/* mvl_nvl_create: change args. */ +/* Add "mvl_vmd_type_id_*". */ +/* Add mvl_vmd_create, */ +/* mvlu_rpt_ctrl_destroy_all, */ +/* mvl61850_rpt_ctrl_destroy_all. */ +/* u_mvl_get_va_aa: add vmd_ctrl arg. */ +/* u_gnl_ind_*: add net_info arg. */ +/* _mvl_objname_to_va: add vmd_ctrl, net_info args*/ +/* Del global var _mvl_curr_net_info. */ +/* Del global var _mvl_curr_usr_ind_ctrl. */ +/* 10/17/06 MDE 118 Added mvlas_obtfile_resp_ex */ +/* 07/21/06 JRB 117 Add rpt_reason & type_ctrl to MVL_VAR_ASSOC. */ +/* Add already_scanned to MVL_NVLIST_CTRL. */ +/* 07/13/05 MDE 116 Added u_mvl_reject_ind */ +/* 06/29/05 CRM 115 Add mvl_vmd_destroy. */ +/* 06/27/05 JRB 114 MVL_VAR_ASSOC: del mvl_internal, add last_data.*/ +/* 06/27/05 CRM 113 Added mvl_dom_find_last and */ +/* mvl_type_id_destroy_all_dyn. */ +/* 05/04/05 MDE 112 Added mvl_init_ind_hold */ +/* 03/28/05 JRB 111 Del suicacse header. */ +/* 03/14/05 CRM 110 Add mvl_max_dyn global variable. */ +/* Del _mvlu_num_dyn_types, add backward compat def*/ +/* 03/08/05 CRM 109 Add mvlas_fdir_resp(MVL_IND_PEND *ind) */ +/* 03/07/05 MDE 108 Added startTime to stats */ +/* 09/20/04 JRB 107 Add comments. */ +/* 08/30/04 JRB 106 Add sboCtrl to MVLAS_WR_VA_CTRL. */ +/* 06/29/04 JRB 105 Add mvl_type_id_create_from_tdl proto. */ +/* Add use_static_data flag to MVL_VAR_ASSOC. */ +/* Increase MAX_JREAD_RESP_ENTRIES define. */ +/* 07/10/03 EJV 104 Chg loc_ar_sec/rem_ar_sec to (S_SEC_LOC_AR *)*/ +/* 04/11/03 MDE 103 Added security elements */ +/* 04/11/03 MDE 102 Added _mvl_tmpnam */ +/* 04/04/03 JRB 101 MVL_IND_PEND: Add scan_va_done_fun for */ +/* IEC/UCA integrity scan. */ +/* 03/13/03 JRB 100 mvl_type_id_create: Add type_name arg. */ +/* MVL_TYPE_CTRL: Chg type_name to array. */ +/* MVL_TYPE_CTRL: Add rt_ctrl for dynamic types.*/ +/* Add mvl_type_ctrl_find_dyn. */ +/* Add mvl_scope_set proto. */ +/* Del mvlu_add_rt_type_x (not needed). */ +/* 12/12/02 JRB 99 Add usr_resp_fun to MVL_IND_PEND */ +/* Add mvl_internal to MVL_VAR_ASSOC */ +/* Chg acse_conn_id to ST_LONG to match ACSE */ +/* Add net_info arg to mvl_get_va_asn1_data */ +/* Add mvl_encode_info_rpt proto */ +/* Add enc_buf allocation macros. */ +/* 12/10/02 JRB 98 Moved UCA defs to new mvl_uca.h */ +/* 12/09/02 MDE 96 Added mvlu_find_uca_var */ +/* 12/09/02 MDE 96 Changed SBO reference handling */ +/* 11/27/02 MDE 95 Addded runtime leaf parameter manipulation */ +/* Added type_name to MVL_TYPE_CTRL */ +/* Added mvlu_add_rt_type_x */ +/* Added mvlu_proc_rt_type */ +/* 07/17/02 JRB 94 Del _mvla_send_write.. proto. Use static fct.*/ +/* 07/09/02 JRB 93 Add mvl_(u)req_bufs_avail functions. */ +/* 07/09/02 MDE 92 Add maxpend_ind support */ +/* 05/13/02 MDE 91 Added 'skip' arg to _mvl_set_net_req_done */ +/* 03/25/02 MDE 90 Moved error/reject elements outside union */ +/* 02/27/02 JRB 89 Fix mvl_print... proto. */ +/* 02/25/02 MDE 88 Deleted mvl_num_call* vars */ +/* 01/29/02 JRB 87 Del use of MVL_NUM_CALL* & COACSE. */ +/* Del a_unit_data_info,stack_sel from MVL_NET_INFO.*/ +/* 01/23/02 EJV 86 Added journals to MVL_DOM_CTRL */ +/* mvl_init_dom - added max_jou param */ +/* mvl_dom_resize - added max_jou param */ +/* mvl_dom_create - added max_num_jou param */ +/* mvl_dom_add - added max_num_jou param */ +/* 12/20/01 HSF 85 Added usr field to MVLU_RPT_SCAN_CTRL */ +/* 12/12/01 MDE 84 Moved acse_conn_id outside ifdef */ +/* 11/31/01 MDE 83 Added GOOSE scan support */ +/* 11/01/01 JRB 82 Chg mvl_wait_req_done return to ST_RET. */ +/* Add wait_any_event proto (user must supply). */ +/* 07/31/01 MDE 81 Added mvl_conn_filtered_logging support */ +/* 03/19/01 JRB 80 Move SMEM context defs to "smem.h". */ +/* 03/15/01 JRB 79 Add clientUstatus, serverUstatus statistics. */ +/* 03/13/01 JRB 78 Add mvl_ustatus, _mvl_process_ustatus_ind, */ +/* u_mvl_ustatus_ind prototypes. */ +/* 01/19/00 MDE 77 Removed SMEM idx defines (now in mem_chk.h) */ +/* 01/05/01 MDE 76 Changes for use over Marben */ +/* 10/25/00 JRB 75 Del u_mvl*, u_gnl* & _ml_* funct ptrs. */ +/* Add u_mvl_concl_ind, mplas_concl_resp. */ +/* Add req_pend_list to mvl_net_info. */ +/* Del usrNvl from MVLAS_READ_CTRL (not needed).*/ +/* Add "Server" support for Upl/Downl. */ +/* 10/06/00 MDE 74 Added _mvlu_num_dyn_types */ +/* 09/05/00 JRB 73 Add mvl_get_runtime_dyn. */ +/* 08/18/00 JRB 72 Fixed mvl_type_id_cre.. proto. */ +/* 08/18/00 RKR 71 Added rt field to MVLU_ typedefs */ +/* 07/26/00 MDE 70 Added user field to MVL_FGET_REQ_INFO */ +/* 07/12/00 JRB 69 Add dynamic type creation prototypes. */ +/* 07/11/00 MDE 68 Changed seqNum to sqNum, made INT8U */ +/* 06/26/00 JRB 67 Move "#define COACSE" from mvl_acse.h to */ +/* here (avoids dependence on mvl_acse.h). */ +/* 06/12/00 GLB 66 Added info for asynchronous File Get */ +/* 06/01/00 RKR 65 Removed some prototypes redundant in MMS-EASE*/ +/* 05/01/00 JRB 64 Del mvl_init_type_ctrl proto; now it's static*/ +/* 04/14/00 JRB 63 Fix SD_CONST for ??IndFunTbl, mvl_get_run... */ +/* Delete remnants of MVL_REQ_BUF_ENABLED. */ +/* 04/12/00 MDE 62 Added MVL_STATISTICS, _mvl_resize_ptr_tbl */ +/* 04/05/00 RKR 61 Made MVL_XNAME a compile time option */ +/* 04/04/00 RKR 60 Added expanded UCA variable name to RD and WR*/ +/* 03/10/00 JRB 59 Add scan_va_scope to MVLU_RPT_SCAN_CTRL. */ +/* 03/07/00 MDE 58 Added type_id to string declarations */ +/* 01/21/00 MDE 57 Now use MEM_SMEM for dynamic memory */ +/* 10/20/99 NAV 56 Add maxpend_req support */ +/* 09/28/99 NAV 55 Modified UCA Report REASON Bits */ +/* 09/13/99 MDE 54 Added SD_CONST modifiers */ +/* 11/04/99 RKR 53 Removed action_required from MVL_NET_INFO */ +/* 11/03/99 RKR 52 Added MVL error constants */ +/* 10/28/99 RKR 51 Added pending indications to MVL_NET_INFO */ +/* 10/07/99 GLB 50 Added support for file rename & obtain file. */ +/* 10/05/99 RKR 49 Added prototypes for deriving types */ +/* 09/30/99 JRB 48 Added forward declaration to reduce warnings.*/ +/* 09/30/99 RKR 47 Changed the Reason for Inclusion bit strings */ +/* 09/24/99 JRB 46 Added extern to mvlu_rpt_scan_list */ +/* 09/13/99 MDE 45 Added SD_CONST modifiers */ +/* 09/07/99 MDE 44 Revised and enhanced the UCA report system */ +/* 09/07/99 MDE 43 Changed MVL_VA_SCOPE to MVL_SCOPE, added */ +/* scope to MVL_NVLIST_CTRL */ +/* 07/30/99 MDE 42 Removed unused defines */ +/* 04/01/99 MDE 41 Changes to decode buffer allocation scheme */ +/* 03/18/99 MDE 40 Enhanced dynamic object facilities */ +/* 03/18/99 MDE 39 Changes to support runtime connection limits */ +/* 03/09/99 MDE 38 Added ICCP Lite support */ +/* 01/22/99 JRB 37 Chg all objects to array of ptrs so bsearch */ +/* can be used. Add bsearch functs (mvl_obj_*). */ +/* Use "mvl_nvl" prefix on all NVL obj functs. */ +/* Add "flags" to MVL_VAR_ASSOC for UCA. */ +/* 12/08/98 MDE 36 Added client alternate access support */ +/* 12/08/98 MDE 35 Added dynamic object handling */ +/* 11/17/98 MDE 34 Added _mvl_destroy_nvl_entries */ +/* 11/16/98 MDE 33 Cleanup and rearrange for readability */ +/* 11/16/98 MDE 32 Added 'locl_init_info' to MVL_NET_CTRL' */ +/* 11/16/98 MDE 30 Renamed MVL interal functions ('_'prefix) */ +/* 11/16/98 MDE 29 Added mvl_concl, mvla_concl */ +/* 11/16/98 MDE 28 Removed 'wait_any_event', 'read_log_cfg_file'*/ +/* 11/13/98 JRB 27 Add wait_any_event proto. */ +/* 10/12/98 MDE 26 Merged JRB's and MDE's changes */ +/* 10/09/98 JRB 25 Chg MVL_JOURNAL_ENTRY to use VAR_INFO. */ +/* Del MVL_CLI_JOURNAL_ENTRY, use only */ +/* MVL_JOURNAL_ENTRY everywhere. */ +/* Add 'read_log_cfg_file' prototype. */ +/* 10/09/98 DWL 24 Added get_dom stuff */ +/* Added get_nam stuff */ +/* Added status stuff */ +/* 10/09/98 DWL 23 Added get_var stuff */ +/* 10/01/98 MDE 22 Changed 'SD_CONST' define */ +/* 10/01/98 MDE 21 Changed rcb to ptr, removed MVL_NUM_CALLED */ +/* 10/01/98 MDE 20 Changed MVL_JOURNAL_ENTRY entry_id to */ +/* ST_UCHAR[8] */ +/* 09/21/98 MDE 19 Minor lint cleanup */ +/* 09/16/98 MDE 18 Fixed possible UCA report 'reason' overwrite */ +/* Added 'mvlu_rpt_ctrl_ptrs[MVLU_NUM_RPT_CTRL]'*/ +/* Added SBO support */ +/* 09/10/98 MDE 17 Added 'SD_CONST' declaration */ +/* 08/13/98 MDE 16 Removed USE_RT_DATA stuff */ +/* 08/11/98 MDE 15 Added UCA variable array support */ +/* 08/10/98 MDE 14 Changes to UCA report handling */ +/* 07/28/98 MDE 13 Added USE_RT_DATA define, related changes */ +/* 07/16/98 MDE 12 More journal work */ +/* 07/15/98 MDE 11 Changed Journal Read user functions */ +/* 07/13/98 MDE 10 Report and Journal work */ +/* 06/30/98 MDE 09 Added more flexable CLient Info Rpt code */ +/* 06/22/98 MDE 08 SeqNum now ST_UINT16 */ +/* 06/15/98 MDE 07 Changes to allow compile under C++ */ +/* 05/14/98 JRB 06 Add support for more services. */ +/* Add u_mvl_read_ind, u_mvl_write_ind, and */ +/* delete corresponding function ptrs. */ +/* Del mvl_ident_resp_info, mvl_status_resp_info*/ +/* Chg "Conf" function arg to (MVL_REQ_PEND *). */ +/* Chg "Ind" function arg to (MVL_IND_PEND *). */ +/* Add (MVL_REQ_PEND**) to sync client functs. */ +/* 03/15/98 MDE 05 Added support for user loaded Runtime Types, */ +/* dynamic NVL's */ +/* 02/10/98 MDE 04 Always support AA, added 'index' to conn */ +/* control, added UCA support, more. */ +/* 12/22/97 MDE 03 Changed '_mvl_net_service', 'mvl_comm_serv' */ +/* 12/29/97 MDE 02 Added Journal stuff, general cleanup */ +/* 09/10/97 MDE 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +#ifndef MVL_DEFS_INCLUDED +#define MVL_DEFS_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "mmsdefs.h" +#include "gen_list.h" + +#include "acse2usr.h" + +/************************************************************************/ +/* This define adds items to the MVL_NET_INFO and MVL_REQ_PEND data */ +/* structures. This small memory cost may be eliminated by commenting */ +/* out this define (when ICCP-Lite is not to be used). */ +/* This is being done so we can build a single MVL library for use with */ +/* both ICCP and non-ICCP implementations. */ + +#define ICCP_LITE_SUPP + +/************************************************************************/ +/* COMPILE TIME OPTIONS */ + +/* Comment this out to save code when using only the Async interface */ +/* for client applications. Used in making the MVL library. */ +#define MVL_SYNC_REQ_INTERFACE + +/* These values are used in the MVL object initialization code to allow */ +/* the user to dynamically add additional objects. */ + +#define MVL_NUM_DYN_DOMS 10 + +#if !defined(MVL_NUM_DYN_VMD_VARS) +#define MVL_NUM_DYN_VMD_VARS 0 +#endif + +#define MVL_NUM_DYN_VMD_NVLS 10 +#define MVL_NUM_DYN_JOUS 10 +#define MVL_NUM_DYN_DOM_VARS 10 +#define MVL_NUM_DYN_DOM_NVLS 10 +#define MVL_NUM_DYN_AA_VARS 10 +#define MVL_NUM_DYN_AA_NVLS 10 + +/* MVL_UCA requires dynamic types to function */ +#define MVLU_NUM_DYN_TYPES 100 + +typedef struct + { + ST_INT aa_nvls; + ST_INT aa_vars; + ST_INT doms; + ST_INT dom_nvls; + ST_INT dom_vars; + ST_INT journals; + ST_INT types; + ST_INT vmd_nvls; + ST_INT vmd_vars; + } MVL_MAX_DYN; + +extern MVL_MAX_DYN mvl_max_dyn; + +/* OBSOLETE: For backward compatibility only */ +#define _mvlu_num_dyn_types mvl_max_dyn.types + +/* Comment this out to use statically allocated buffers */ +/* Note that dynamic buffers are required for async server responses. */ +#define MVL_DYN_MEM + +/* This define can be uncomented in order to use binary search for */ +/* MMS-LITE object searches (variables, named variable lists, etc.). */ +/* #define MVL_USE_BSEARCH */ + +/* Define this to support receiving Information Reports */ +#define MVL_INFO_RPT_CLIENT + +/* Uncomment this to enable support for described access as server */ +/* #define MVL_DESCR_SUPP */ /* Warning, not currently supported */ + +/* Uncomment this to enable support for expanded UCA variable names */ +/* This will save some processing and a small bit of code. */ +/* #define MVL_XNAME */ + +/* Comment this to disable Alternate Access support for as server */ +/* This will save a small bit of code. */ +#define MVL_AA_SUPP + +/************************************************************************/ +/* Miscellaneous defines. */ +/************************************************************************/ +/* Max size of some IEC 61850 objects. */ +#define MVL61850_MAX_OBJREF_LEN 129 /* Value specified by Tissue 141*/ +#define MVL61850_MAX_RPTID_LEN 65 + +/************************************************************************/ +/* MMS OBJECT INITIALIZATION */ +/* This function must be called to initialize all MVL types and other */ +/* MMS objects. */ + +ST_VOID mvl_init (ST_VOID); +ST_VOID mvl_init_mms_objs (ST_VOID); + +/* COMMUNICATION SERVICE */ +/* This is the high level function to be called periodicly by the */ +/* application. It will check for communications events and act on them,*/ +/* which will include decoding MMS PDU's and calling service functions. */ +/* The mechanism used to determine when this function should be called */ +/* will depend on the lower layer service provider. */ + +ST_BOOLEAN mvl_comm_serve (ST_VOID); + +/* SYNCHRONOUS REQUEST USER SERVICE/TIMEOUT */ +/* User defined function, called repetitively by MVL client functions */ +/* while waiting for confirm. If this function returns SD_TRUE, the */ +/* request will timeout and return SD_FAILURE. */ + +extern ST_BOOLEAN (*u_mvl_check_timeout)(ST_VOID); + + +/* For use when global variables cannot be initialized at compile time */ +#if defined(NO_GLB_VAR_INIT) +ST_VOID mvl_init_glb_vars (ST_VOID); + +/* Internal use only */ +ST_VOID _mvlop_en_init (ST_VOID); +ST_VOID _s_getnam_init_glb_vars (ST_VOID); +#endif + +/* If set == SD_TRUE, MVL will not delete AA objects when connection */ +/* terminates */ +extern ST_BOOLEAN _mvl_persist_aa_objs; + +/************************************************************************/ +/* CAPACITY/STACK USAGE CONTROL DEFINES */ +/* These defines work along with the MMS PDU buffer sizes to control */ +/* the maximum number of MMS objects and the size of the objects that */ +/* can be handled per MMS PDU. */ + +#define MAX_JREAD_RESP_ENTRIES 10 +/*renxiaobao ÈÕÖ¾¸ü¸Ä*/ +/*#define MAX_JREAD_RESP_VARS 100*/ +#define MAX_JREAD_RESP_VARS 512 + +#define MVL_MAX_GNL_NAMES 100 + +/************************************************************************/ +/* MVL ERROR CODES */ + +/* #define E_MMS_LITE 0x6A00 */ +#define MVL_ERR_USR_TIMEOUT 0x6A01 +#define MVL_ERR_REQ_CONTROL 0x6A02 +#define MVL_ERR_UNKNOWN_PDU_TYPE 0x6A03 +#define MVL_ERR_RUNTIME_TYPE_ID 0x6A04 +#define MVL_ERR_ASN1_TO_RUNTIME 0x6A05 +#define MVL_ERR_NOT_SYM_ADDR 0x6A06 +#define MVL_ERR_ARRAY_ELEMENT_CNT 0x6A07 +#define MVL_ERR_LOCAL_ADDRESS 0x6A08 +#define MVL_ERR_BUFFER_SIZE 0x6A09 +#define MVL_ERR_DOM_CONTROL 0x6A0A +#define MVL_ERR_AA_CONTROL 0x6A0B +#define MVL_ERR_AA_SPECIFIC 0x6A0C +#define MVL_ERR_NVL_NOT_FOUND 0x6A0D +#define MVL_ERR_ALT_ACCESS 0x6A0E +#define MVL_ERR_VA_NOT_FOUND 0x6A0F +#define MVL_ERR_VA_SPEC 0x6A10 +#define MVL_ERR_NO_REQ_CTRL 0x6A11 +#define MVL_ERR_NO_CONN_CTRL 0x6A12 +#define MVL_ERR_ASSOC_REQ 0x6A13 +#define MVL_ERR_COMM_SERVE_ACTIVE 0x6A14 +#define MVL_ERR_REQ_PEND_COUNT 0x6A15 +#define MVL_ERR_CNF_REJ_ERR 0x6A16 +#define MVL_ERR_CNF_ERR_OK 0x6A17 +#define MVL_ERR_CNF_DISCONNECTED 0x6A18 +#define MVL_ERR_BAD_TYPE 0x6A19 +#define MVL_ERR_RESOURCE_NOT_AVAIL 0x6A1A + +/************************************************************************/ +/* Structure used to create linked list of all open files for one */ +/* connection (see connection structure MVL_NET_INFO). */ +typedef struct mvl_net_file + { + /* CRITICAL: First 2 parameters used to add this struct to linked */ + /* lists using list_add_last, etc. */ + struct mvl_net_file *next; /* CRITICAL: DON'T MOVE. */ + struct mvl_net_file *prev; /* CRITICAL: DON'T MOVE. */ + FILE *fp; /* file pointer from fopen */ + } MVL_NET_FILE; + +/************************************************************************/ +/************************************************************************/ +/* NETWORK CONNECTION CONTROL */ +/* MVL_NET_INFO is used to specify the remote node to which the PDU is */ +/* to be sent, or from which the PDU was received. This element and */ +/* it's use are implementation specific. */ + +struct mvl_ind_pend; /* Forward declare this to eliminate warnings. */ +struct mvl_req_pend; /* Forward declare this to eliminate warnings. */ + +typedef struct mvl_net_info + { + struct mvl_aa_obj_ctrl *aa_objs; /* AA object ctrl */ + struct mvl_vmd_ctrl *rem_vmd; /* Remote VMD */ + struct mvl_ind_pend *pend_ind; + struct mvl_req_pend *req_pend_list; /* link list of pending reqs*/ + + ST_BOOLEAN conn_active; /* Set SD_TRUE when the connection is up */ + ST_INT max_pdu_size; + ST_INT index; /* NET_INFO table index for this elmnt */ + + ST_INT maxpend_req; /* num outstanding reqs negotiated */ + ST_INT numpend_req; /* num reqs currently outstanding */ + + ST_INT maxpend_ind; /* num outstanding inds negotiated */ + ST_INT numpend_ind; /* num inds currently outstanding */ + + ST_BOOLEAN log_enable; /* For use w/mvl_conn_filtered_logging */ + + ST_LONG acse_conn_id; /* ACSE's connection ID, internal */ + + ST_BOOLEAN mi_in_use; /* used only for ICCP_LITE_SUPP */ + struct _mi_conn *mi_conn; /* used only for ICCP_LITE_SUPP */ + + INIT_INFO rem_init_info; /* Services supported by remote device */ + INIT_INFO locl_init_info; /* Initiate info we sent */ + AARQ_APDU ass_ind_info; + /* Items below are used by MVL only */ + ST_BOOLEAN in_use; /* Flag that this 'NET_INFO' is in use */ + struct net_bind_ctrl *bind_ctrl; + + S_SEC_LOC_AR *loc_ar_sec; + S_SEC_REM_AR *rem_ar_sec; + + ST_VOID *user_info; /* MVL user can use this for 'whatever' */ + MVL_NET_FILE *file_list; /* linked list of open files on this conn*/ + } MVL_NET_INFO; + +/* Our connection control structures */ +extern MVL_NET_INFO *mvl_calling_conn_ctrl; +extern MVL_NET_INFO *mvl_called_conn_ctrl; + +/************************************************************************/ +/* MMS COMMUNICATIONS EVENT */ +/* MMS_COMM_EVENT is the data structure used to pass a communication */ +/* event from the lower layer provider to the MVL communication service */ +/* subsystem. This structure may be expanded to fit the needs of the */ +/* application. */ + +#define MMS_MSG_RCVD 1 +#define RECEIVE_ERROR 2 +#define COMM_LINK_UP 3 +#define COMM_LINK_DOWN 4 +#define MVLU_RPT_COMM_EVENT 5 + +typedef struct mvl_comm_event + { + DBL_LNK l; /* For linked list */ + MVL_NET_INFO *net_info; + ST_INT event_type; + union + { + struct /* used for MMS_MSG_RCVD event types */ + { + ST_UCHAR *pdu; + ST_INT pdu_len; + MMSDEC_INFO dec_rslt; + } mms; + struct /* possibly add more structs to handle other event types*/ + { + ST_RET code; + } error; + }u; + } MVL_COMM_EVENT; + +/************************************************************************/ +/************************************************************************/ +/* MVL TYPE HANDLING */ +/* Runtime type handling functions and structures */ +/* Note that the source code to create this table can be generated */ +/* using the 'mktypes' utility */ + +typedef struct + { + RUNTIME_CTRL *rt_ctrl; /* For dyn types ONLY, otherwise = NULL */ + ST_INT num_rt; /* Runtime type table */ + SD_CONST RUNTIME_TYPE *rt; + ST_INT data_size; /* size of data element */ + ST_CHAR type_name [MAX_IDENT_LEN+1]; /* name passed to Foundry (1st after :T)*/ + struct mvl_vmd_ctrl *vmd_ctrl; /* ptr to VMD which uses this type*/ + } MVL_TYPE_CTRL; + +/* These variables can be provided via the source code generated by */ +/* the 'foundry' utility program */ +extern MVL_TYPE_CTRL *mvl_type_ctrl; +extern ST_INT mvl_num_types; + +/* This function takes the type ID and provides a pointer to the runtime*/ +/* type and it's size as output. It returns SD_SUCCESS for success. */ +/* The type information is currently stored internally as ASN.1 encoded */ +/* types. */ + +ST_RET mvl_get_runtime (ST_INT type_id, + RUNTIME_TYPE **rt_ptr_out, + ST_INT *num_rt_out); + +/* Same function but only succeeds if type was dynamically created. */ +ST_RET mvl_get_runtime_dyn (ST_INT type_id, + RUNTIME_TYPE **rt_ptr_out, + ST_INT *num_rt_out); + + + +/* If USR_SUPPLIED_RT is defined (and not USE_RT_DATA) then the user */ +/* will supply the runtime table data structures using local means. */ +ST_VOID u_mvl_start_init_rt_tbl (ST_INT numTypes, ST_INT totalNumRt); +ST_VOID u_mvl_end_init_rt_tbl (ST_VOID); +RUNTIME_TYPE *u_mvl_get_rt_tbl (ST_INT typeId, ST_INT numRt); + +/* global variables in Foundry Object Realization File */ +extern SD_CONST RUNTIME_TYPE * SD_CONST mvl_rt_tables[]; +extern ST_INT rt_table_index; + +/************************************************************************/ +/* This function can be used to modify the number of elements */ +/* in an array runtime type. */ + +ST_VOID mvl_mod_arr_size (RUNTIME_TYPE *rt, ST_RTINT num_elmnts); + +/* This function converts an ASN.1 type definition to a runtime type. */ +/* The runtime type is allocated by chk_calloc and the user must free */ +/* the runtime type when done with it (using chk_free). */ + +ST_RET mvl_mk_rt_from_asn1 (ST_UCHAR *asn1ptr, ST_INT asn1len, + RUNTIME_TYPE **rt_out, ST_INT *num_rt_out); + +/************************************************************************/ +/************************************************************************/ +/* MMS OBJECT CONTROL ELEMENTS */ +/* Functions and structures used to map MMS objects to local elements */ +/************************************************************************/ +/* VARIABLE ASSOCIATION */ +/************************************************************************/ + +/* This structure is used in the Variable Association for use by */ +/* MVL_UCA in handling array alternate access */ + +typedef struct mvl_arr_ctrl + { + ST_BOOLEAN arrAltAccPres; + ST_BOOLEAN nested; /* Furter nesting is done on this arr */ + ST_RTINT low_index; + ST_RTINT num_elmnts; + ST_RTINT curr_index; + ALT_ACCESS alt_acc; /* Nested AA on the array */ + } MVL_ARR_CTRL; + + +/* MVL_VAR_PROC */ +/* The functions selected by these pointers will be called during */ +/* read/write indication processing (NULL pointers are not called, of */ +/* course!). The 'pre' funs must return SD_SUCCESS or SD_FAILURE, which */ +/* will be reflected in the MMS response. */ + +/* Values for 'aa_mode_out' */ +#define MVL_USE_NO_AA 1 +#define MVL_USE_PACKED_AA 2 +#define MVL_USE_UNPACKED_AA 3 + +struct mvl_var_assoc; /* Forward declare this to eliminate warnings. */ + +typedef struct mvl_var_proc + { + ST_RET (*pre_read_aa)(struct mvl_var_assoc **va, + ST_BOOLEAN alt_acc_pres, + ALT_ACCESS *alt_acc, + MVL_NET_INFO *ni, + ST_INT *aa_mode_out); + ST_VOID (*post_read_aa)(struct mvl_var_assoc *va, + ST_BOOLEAN alt_acc_pres, + ALT_ACCESS *alt_acc, + MVL_NET_INFO *ni); + + ST_RET (*proc_write_aa)(struct mvl_var_assoc **va, + ALT_ACCESS *alt_acc, + MVL_NET_INFO *ni, + ST_INT *aa_mode_out); + + ST_RET (*pre_write_aa) (struct mvl_var_assoc *va, + ST_BOOLEAN alt_acc_pres, + ALT_ACCESS *alt_acc, + MVL_NET_INFO *ni, + ST_CHAR *write_data, + ST_INT write_data_size); + ST_VOID (*post_write_aa)(struct mvl_var_assoc *va, + ST_BOOLEAN alt_acc_pres, + ALT_ACCESS *alt_acc, + MVL_NET_INFO *ni); + + ST_RET (*pre_info) (struct mvl_var_assoc *va, MVL_NET_INFO *ni); + ST_VOID (*post_info) (struct mvl_var_assoc *va, MVL_NET_INFO *ni); + } MVL_VAR_PROC; + +#define MVL_VAR_FLAG_UCA 0x01 /* for "flags" of MVL_VAR_ASSOC */ + +/* MVL_VAR_ASSOC */ +typedef struct mvl_var_assoc + { + ST_CHAR *name; /* variable name */ + ST_VOID *data; /* pointer to local data */ + ST_VOID *last_data; /* to save last value of this variable */ + /* only allocated if va is in nvl */ + /* used by IEC/UCA rpt code. */ + /*renxiaobao ÈÕÖ¾ + ST_VOID *last_log_data;*/ + ST_INT type_id; /* type of variable */ + MVL_TYPE_CTRL *type_ctrl; /* type of variable details */ + /* set by mvl_var_create */ + ST_UCHAR flags; /* MVL_VAR_FLAG_UCA, etc. */ + MVL_VAR_PROC *proc; /* User defined pre/post processing */ + ST_VOID *user_info; /* MVL user can use this for 'whatever' */ + ST_VOID *usr_ind_ctrl; + + struct mvl_var_assoc *va_to_free; /* Used in NVL processing */ + + struct mvl_var_assoc *base_va; /* VA from which this was derived */ + ST_INT offset_from_base; /* Used only for static data buffer */ + ST_RTINT prim_num; /* Index to first prim in RUNTIME_TYPE */ + /* (used only when MVL_UCA defined) */ + ST_RTREF ref; + MVL_ARR_CTRL arrCtrl; + + ST_BOOLEAN use_static_data; /* "data" in this struct points to */ + /* permanent data. */ + ST_UCHAR rpt_reason; /* 61850 RPT reason bitstring */ + ST_RET result; /* Used only if MVL_INFO_RPT_CLIENT */ + } MVL_VAR_ASSOC; + + +ST_RET mvl_get_va_asn1_data (MVL_NET_INFO *net_info, + MVL_VAR_ASSOC *va, + ST_BOOLEAN alt_acc_pres, + ALT_ACCESS *alt_acc, + ST_UCHAR *asn1_dest_buffer, + ST_INT asn1_buffer_len, + ST_INT *asn1_len_out); + + +/************************************************************************/ +/* DESCRIBED VARIABLE SUPPORT: Warning, not currently supported */ + +#if defined (MVL_DESCR_SUPP) +typedef struct mvl_descr_addr_assoc + { + ST_CHAR *base_name; /* base part of address */ + ST_VOID *data; /* pointer to local data base */ + ST_INT data_size; /* size of data element */ + ST_INT max_elmnts; + ST_VOID *user_info; /* MVL user can use this for 'whatever' */ + } MVL_DESCR_ADDR_ASSOC; + +ST_RET mvl_get_descr_local_addr (VAR_ACC_ADDR *addr, + RUNTIME_TYPE *rt, + ST_INT mum_rt, + ST_CHAR **data_out, + ST_INT *data_size_out); + +ST_RET mvl_get_descr_asn1_data (VARIABLE_LIST *vl, + ST_UCHAR *asn1_dest_buffer, + ST_INT asn1_buffer_len, + ST_INT *asn1_len_out); +#endif + +/************************************************************************/ +/* NAMED VARIABLE LISTS */ + +typedef struct mvl_scope + { + ST_INT16 scope; + struct mvl_dom_ctrl *dom; + } MVL_SCOPE; + +/* For backward compatibility only */ +#define MVL_VA_SCOPE MVL_SCOPE + +typedef struct mvl_nvlist_ctrl + { + ST_CHAR *name; /* name of the named variable list */ + ST_INT num_of_entries; /* number of variables in the list */ + MVL_VAR_ASSOC **entries; + MVL_SCOPE nvl_scope; /* scope of this NVL */ + MVL_SCOPE *va_scope; + ALT_ACCESS **altAcc; /* Alternate Access array for var's */ + ST_BOOLEAN mms_deletable; + ST_VOID *user_info; /* MVL user can use this for 'whatever' */ + ST_BOOLEAN already_scanned; /* flag to indicate this NVL already */ + /* scanned for rpt changes. Avoids */ + /* scanning same data multiple times. */ + } MVL_NVLIST_CTRL; + + +/************************************************************************/ +/* JOURNALS */ + +typedef struct mvlJouVar + { + ST_CHAR *varTag; /* variable tag */ + MVL_VAR_ASSOC *va; + } MVL_JOU_VAR; + +/* entry_form_tag value defines are in mms_pjou.h */ +/* #define JE_FORM_DATA 2 */ +/* #define JE_FORM_ANNOTATION 3 */ + +/* cur_state value defines are in mms_pevn.h */ +/* #define EC_STATE_DISABLED 0 */ +/* #define EC_STATE_IDLE 1 */ +/* #define EC_STATE_ACTIVE 2 */ + +typedef struct mvlJournalEntry + { + DBL_LNK l; /* for user, not used by MVL */ + + ST_INT entry_id_len; /* Octet string ID, size 1-8 */ + ST_UCHAR entry_id[8]; + + APP_REF orig_app; + MMS_BTOD occur_time; /* occurrence time */ + + ST_INT16 entry_form_tag; /* entry form tag */ + union + { + struct /* entry form is DATA */ + { + ST_BOOLEAN event_pres; /* event present */ + OBJECT_NAME evcon_name; /* event condition name */ + ST_INT16 cur_state; /* current state */ + ST_BOOLEAN list_of_var_pres; /* list of variables present */ + ST_INT num_of_var; /* number of variables */ + VAR_INFO *list_of_var; /* ptr to array */ + } data; + ST_CHAR *annotation; /* pointer to annotation */ + }ef; + } MVL_JOURNAL_ENTRY; + +/* MVL Journal control structure. Used by MVL for GNL response */ +typedef struct mvlJournal + { + ST_CHAR *name; /* journal name */ + ST_BOOLEAN mms_deletable; + ST_INT numEntries; + MVL_JOURNAL_ENTRY *entries; + } MVL_JOURNAL_CTRL; + +/************************************************************************/ +/* MMS OBJECT CONTROL */ +/************************************************************************/ + +/* Application Association Scope Objects */ +typedef struct mvl_aa_obj_ctrl + { + ST_INT max_num_var_assoc; + ST_INT num_var_assoc; + MVL_VAR_ASSOC **var_assoc_tbl; + + ST_INT max_num_nvlist; + ST_INT num_nvlist; + MVL_NVLIST_CTRL **nvlist_tbl; + + ST_INT max_num_jou; + ST_INT num_jou; + MVL_JOURNAL_CTRL **jou_tbl; + + ST_BOOLEAN foundry_objects; /* Flag for internal use */ + ST_VOID *user_info; /* MVL user can use this for 'whatever' */ + } MVL_AA_OBJ_CTRL; + + +/* Domain Scope Objects */ +typedef struct mvl_dom_ctrl + { + ST_CHAR *name; + + ST_INT max_num_var_assoc; + ST_INT num_var_assoc; + MVL_VAR_ASSOC **var_assoc_tbl; + + ST_INT max_num_nvlist; + ST_INT num_nvlist; + MVL_NVLIST_CTRL **nvlist_tbl; + + ST_INT max_num_jou; + ST_INT num_jou; + MVL_JOURNAL_CTRL **jou_tbl; + + GETDOM_RESP_INFO *get_dom_resp_info; /* Optional */ + + ST_BOOLEAN foundry_objects; /* Flag for internal use */ + ST_VOID *user_info; /* MVL user can use this for 'whatever' */ + } MVL_DOM_CTRL; + + +/* VMD Scope Objects */ +typedef struct mvl_vmd_ctrl + { + ST_INT max_num_var_assoc; + ST_INT num_var_assoc; + MVL_VAR_ASSOC **var_assoc_tbl; + +#if defined (MVL_DESCR_SUPP) + ST_INT num_descr_addr; + MVL_DESCR_ADDR_ASSOC *descr_addr_assoc_tbl; +#endif + + ST_INT max_num_nvlist; + ST_INT num_nvlist; + MVL_NVLIST_CTRL **nvlist_tbl; + + ST_INT max_num_dom; + ST_INT num_dom; + MVL_DOM_CTRL **dom_tbl; + + ST_INT max_num_jou; + ST_INT num_jou; + MVL_JOURNAL_CTRL **jou_tbl; + + ST_BOOLEAN foundry_objects; /* Flag for internal use */ + + ST_VOID *user_info; /* MVL user can use this for 'whatever' */ + } MVL_VMD_CTRL; +extern MVL_VMD_CTRL mvl_vmd; + + +/************************************************************************/ +/************************************************************************/ +/* MMS OBJECT CONTROL MANIPULUATION */ +/************************************************************************/ +/************************************************************************/ +/* Naming Conventions */ +/* */ +/* Find: Locate the object, given the object name */ +/* */ +/* Init: Delete all sub objects and resize tables */ +/* Clear: Delete all sub objects */ +/* Resize: Adjust table sizes */ +/* */ +/* Add: Create and Insert */ +/* Create: Allocate & initialize the object */ +/* Insert: Insert into tables */ +/* */ +/* Remove: Delete and Destroy */ +/* Delete: Delete from tables */ +/* Destroy: Free object and sub objects as approptiate */ +/* */ +/* Pairs - Add/Remove, Insert/Delete, Create/Destroy */ +/* */ +/* Usages: */ +/* All dynamic, startup and reconfigure, online object changes */ +/* * Use Foundry for types only */ +/* * Use 'mvl_init_vmd' for startup/reconfigure */ +/* * Use Add/Insert to construct object set */ +/* * Use Remove/Delete to remove unwanted objects */ +/* * Use Resize to modify storage as appropriate */ +/* */ +/* Both Foundry & Dynamic, startup & reconfigure, online changes */ +/* * Use Foundry for types and other objects */ +/* * Use Resize to modify storage for dynamic objects */ +/* * Use Add/Insert to add to object set */ +/* * Use Remove/Delete to remove unwanted objects */ +/* */ +/* Renaming an object */ +/* * Delete, change the name, and insert. Be careful of the name */ +/* buffer handling. */ +/* */ +/************************************************************************/ + +/**** OBJECT BULK UPDATE */ + +/* These defines can be used to speed loading of multiple objects. */ +/* After the 'start' call, MVL stops sorting objects as they are */ +/* inserted. When the 'end' call is made, all objects are sorted. */ + +/* NOTE: The 'end' call must be made before NVL's are added, so that */ +/* the variable associations can be resolved. This rule can be ignored */ +/* if domains and variable associations are added in sorted order. */ + +extern ST_BOOLEAN mvl_obj_nosort; +ST_VOID mvl_sort_objs (ST_VOID); +#define MVL_START_BULK_OBJ_UPDATE() {mvl_obj_nosort = SD_TRUE;} +#define MVL_END_BULK_OBJ_UPDATE() {if (mvl_obj_nosort == SD_TRUE){\ + mvl_obj_nosort = SD_FALSE;\ + mvl_sort_objs ();\ + }}\ + +/**** SCOPE LEVEL - VMD, DOMAIN */ + +/* Deletes all objects in the scope, allocates new object ctrl tables */ +/* NOTE: Works only on scopes with NO foundry objects. */ +ST_RET mvl_init_vmd (ST_INT max_dom, ST_INT max_var, + ST_INT max_nvl, ST_INT max_jou); +ST_RET mvl_init_dom (MVL_DOM_CTRL *dom, ST_INT max_var, + ST_INT max_nvl, ST_INT max_jou); +ST_RET mvl_init_aa (ST_INT max_var, ST_INT max_nvl, ST_INT max_jou); + +/* Deletes all objects in the scope */ +/* NOTE: Works only on scopes with NO foundry objects. */ +ST_RET mvl_clear_vmd_objs (ST_VOID); +ST_RET mvl_clear_dom_objs (MVL_DOM_CTRL *dom); +ST_RET mvl_clear_aa_objs (ST_VOID); +ST_VOID _mvl_clear_aa_objs (MVL_AA_OBJ_CTRL *aa_objs); + +/* Resize scope capacities, w/o affecting objects */ +ST_VOID mvl_vmd_resize (ST_INT max_dom, ST_INT max_var, + ST_INT max_nvl, ST_INT max_jou); +ST_VOID mvl_dom_resize (MVL_DOM_CTRL *dom, ST_INT max_var, + ST_INT max_nvl, ST_INT max_jou); +ST_VOID mvl_aa_resize (ST_INT max_var, ST_INT max_nvl, ST_INT max_jou); +ST_VOID mvl_aa_resize_conn (MVL_AA_OBJ_CTRL *aa_objs, ST_INT max_num_var, ST_INT max_num_nvl, + ST_INT max_num_jou); + +/**** DOMAINS */ + +MVL_DOM_CTRL *mvl_dom_create (ST_CHAR *name, ST_INT max_var, + ST_INT max_nvl, ST_INT max_jou, ST_BOOLEAN copy_name); +ST_VOID mvl_dom_destroy (MVL_DOM_CTRL *dom); + +/* User can be notified when domain is being destroyed */ +extern ST_VOID (*u_mvl_dom_destroy) (MVL_DOM_CTRL *dom); + + +/**** VARIABLE ASSOCIATIONS */ + +MVL_VAR_ASSOC *mvl_var_create (OBJECT_NAME *obj, ST_INT type_id, /* NEW */ + ST_VOID *data, MVL_VAR_PROC *proc, + ST_BOOLEAN copy_name); +MVL_VAR_ASSOC *mvl_var_create_alloc (ST_CHAR *name, + ST_INT type_id, + MVL_VAR_PROC *proc); +MVL_VAR_ASSOC *mvl_var_create_derived (ST_CHAR *name, + ST_INT type_id, + MVL_VAR_ASSOC *baseVa, /* base variable from which to derive */ + ST_INT offset_from_base, + ST_RTINT prim_num); +ST_VOID mvl_var_destroy (MVL_VAR_ASSOC *va); + +/* User can be notified when VA is being destroyed */ +extern ST_VOID (*u_mvl_var_destroy)(MVL_VAR_ASSOC *va); + +/**** NAMED VARIABLE LISTS */ + +MVL_NVLIST_CTRL *mvl_nvl_create (MVL_VMD_CTRL *vmd_ctrl, + ST_CHAR *nvlName, + ST_INT numNames, + OBJECT_NAME *var_obj, /* array of var obj names*/ + MVL_NET_INFO *net_info, /* where to find var_obj*/ + /* if it is AA_SPEC */ + ST_BOOLEAN copy_name); +ST_VOID mvl_nvl_destroy (MVL_NVLIST_CTRL *nvl); + +/* User can be notified when NVL is being destroyed */ +extern ST_VOID (*u_mvl_nvl_destroy) (MVL_NVLIST_CTRL *nvl); + + +/**** JOURNALS */ + +MVL_JOURNAL_CTRL *mvl_jou_create (OBJECT_NAME *obj, MVL_NET_INFO *net_info, + ST_BOOLEAN copy_name); +ST_VOID mvl_jou_destroy (MVL_JOURNAL_CTRL *jou); + +/* User can be notified when journal is being destroyed */ +extern ST_VOID (*u_mvl_jou_destroy) (MVL_JOURNAL_CTRL *jou); + +MVL_VMD_CTRL *mvl_vmd_create (ST_INT max_num_dom, ST_INT max_num_var, ST_INT max_num_nvl, ST_INT max_num_journal); +/* NOTE: old mvl_vmd_destroy function destroyed the global VMD and all */ +/* report controls. If that's what you want, you must now do like this: */ +/* mvlu_rpt_ctrl_destroy_all (); */ +/* mvl61850_rpt_ctrl_destroy_all (); */ +/* mvl_vmd_destroy (&mvl_vmd); */ +ST_RET mvl_vmd_destroy (MVL_VMD_CTRL *vmd_ctrl); +ST_VOID mvlu_rpt_ctrl_destroy_all (ST_VOID); +ST_VOID mvl61850_rpt_ctrl_destroy_all (ST_VOID); + +/************************************************************************/ +/************************************************************************/ +/* MANUFACTURED VARIABLE SUPPORT */ +/* Handlers for manufactured server variable names && lists */ +/************************************************************************/ + +/* This function will be called when an */ +/* undefined object is being accessed using alternate access. */ +/* If '*alt_access_done_out' is set SD_TRUE, MVL will assume that the */ +/* alternate access operation has been addressed by the called function */ + +MVL_VAR_ASSOC *u_mvl_get_va_aa (struct mvl_vmd_ctrl *vmd_ctrl, + ST_INT service, + OBJECT_NAME *obj, + MVL_NET_INFO *netInfo, + ST_BOOLEAN alt_access_pres, + ALT_ACCESS *alt_acc, + ST_BOOLEAN *alt_access_done_out); +ST_VOID u_mvl_free_va (ST_INT service, + MVL_VAR_ASSOC *va, + MVL_NET_INFO *netInfo); + +MVL_NVLIST_CTRL *u_mvl_get_nvl (ST_INT service, + OBJECT_NAME *obj, + MVL_NET_INFO *netInfo); +ST_VOID u_mvl_free_nvl (ST_INT service, + MVL_NVLIST_CTRL *nvl, + MVL_NET_INFO *netInfo); + +/************************************************************************/ +/************************************************************************/ +/* GET NAME LIST INDICATION HANDLERS */ +/* Default versions of these functs are found in s_getnam.c. They may */ +/* be replaced with customized functs (e.g. for UCA, see mvl_uca.c). */ + +ST_INT u_gnl_ind_vars(MVL_NET_INFO *net_info, NAMELIST_REQ_INFO *req_info, + ST_CHAR **ptr, ST_BOOLEAN *moreFollowsOut, + ST_INT maxNames); + +ST_INT u_gnl_ind_nvls(MVL_NET_INFO *net_info, NAMELIST_REQ_INFO *req_info, + ST_CHAR **ptr, ST_BOOLEAN *moreFollowsOut, + ST_INT maxNames); + +ST_INT u_gnl_ind_doms(NAMELIST_REQ_INFO *req_info, + ST_CHAR **ptr, ST_BOOLEAN *moreFollowsOut, + ST_INT maxNames); + +ST_INT u_gnl_ind_jous(MVL_NET_INFO *net_info, NAMELIST_REQ_INFO *req_info, + ST_CHAR **ptr, ST_BOOLEAN *moreFollowsOut, + ST_INT maxNames); + +ST_VOID u_gnl_done(ST_INT16 mms_class, + NAMELIST_RESP_INFO *resp_info); + + +/************************************************************************/ +/************************************************************************/ +/* MVL SERVER SERVICE SUPPORT */ +/************************************************************************/ +/************************************************************************/ +/* Type for IEC 61850 "LastApplError" var (sent in report when control fails).*/ +/* NOTE: must be before MVLAS_WR_VA_CTRL. */ +/************************************************************************/ +typedef struct + { + ST_CHAR CntrlObj [MVL61850_MAX_OBJREF_LEN+1]; + ST_INT8 Error; + struct + { + ST_INT8 orCat; + struct + { + ST_INT16 len; + ST_UINT8 data[64]; + } orIdent; /* OVstring64 */ + } Origin; + ST_UINT8 ctlNum; + ST_INT8 AddCause; + } MVL61850_LAST_APPL_ERROR; + +/************************************************************************/ +/* INDICATION CONTROL */ +/************************************************************************/ +/* The data structure 'MVL_IND_PEND' is used to keep track of MMS */ +/* indications pending. */ + +/* Identify */ +typedef struct + { + IDENT_RESP_INFO *resp_info; + } MVLAS_IDENT_CTRL; + +/* Status */ +typedef struct + { + STATUS_REQ_INFO *req_info; + STATUS_RESP_INFO *resp_info; + } MVLAS_STATUS_CTRL; + +/* GetNameList */ +typedef struct + { + NAMELIST_REQ_INFO *req_info; + NAMELIST_RESP_INFO *resp_info; + } MVLAS_NAMELIST_CTRL; + +/* Read */ +/* This structure represents one Variable Association being read. The */ +/* user can set the 'acc_rslt_tag' to 'ACC_RSLT_FAILURE' if the read */ +/* does not succeed. */ + +typedef struct mvlas_rd_va_ctrl + { + MVL_VAR_ASSOC *va; + MVL_SCOPE va_scope; + + ST_INT16 acc_rslt_tag; /* ACC_RSLT_SUCCESS or ACC_RSLT_FAILURE */ + ST_INT16 failure; /* DataAccessError code for failure */ + ST_BOOLEAN alt_access_pres; + ALT_ACCESS alt_acc; + + ST_INT numPrimData; /* Total primitive elements for var */ + ST_INT numPrimDataDone; /* Number complete */ + + ST_VOID *usr; /* For user to use as she sees fit */ + } MVLAS_RD_VA_CTRL; + +typedef struct mvlas_read_ctrl + { + ST_INT16 var_acc_tag; /* VAR_ACC_NAMEDLIST or VAR_ACC_VARLIST */ + + ST_INT numVar; /* Variables being read */ + MVLAS_RD_VA_CTRL *vaCtrlTbl; + + MVL_NVLIST_CTRL *nvList; + } MVLAS_READ_CTRL; + + +/* Write */ +/* This structure represents one Variable Assoc being written. The */ +/* user can set the 'acc_rslt_tag' to 'ACC_RSLT_FAILURE' if the read */ +/* does not succeed. */ +struct mvl_sbo_ctrl; /* Forward declaration (defined in mvl_uca.h) */ +typedef struct mvlas_wr_va_ctrl + { + MVL_VAR_ASSOC *va; + MVL_SCOPE va_scope; + ST_INT16 resp_tag; /* WR_RSLT_FAILURE or WR_RSLT_SUCCESS */ + ST_INT16 failure; /* DataAccessError code for failure */ + ST_BOOLEAN alt_access_pres; + ALT_ACCESS alt_acc; /* Alternate Access specification */ + + ST_INT numPrimData; /* Total primitive elements for var */ + ST_INT numPrimDataDone; /* Number complete */ + struct mvl_sbo_ctrl *sboCtrl; /* SBO Control Info. */ + /* NOTE: "sboCtrl" used when writing IEC 61850 "Oper" or "Cancel". */ + /* Not used (i.e. NULL) for all other writes. */ + + ST_UCHAR *oldData; + + /* Used only when writing Oper, Cancel, SBOw (for IEC 61850). */ + MVL61850_LAST_APPL_ERROR LastApplError; + + ST_VOID *usr; /* For user to use as she sees fit */ + } MVLAS_WR_VA_CTRL; + +typedef struct mvlas_write_ctrl + { + ST_INT numVar; /* Variables being written */ + MVLAS_WR_VA_CTRL *vaCtrlTbl; + ST_BOOLEAN ind_funct_done; /* indication function completed? */ + } MVLAS_WRITE_CTRL; + + +/* GetVariableAccessAttributes */ +typedef struct + { + GETVAR_REQ_INFO *req_info; + GETVAR_RESP_INFO *resp_info; + } MVLAS_GETVAR_CTRL; + +/* DefineNamedVariableList */ +typedef struct + { + DEFVLIST_REQ_INFO *req_info; + } MVLAS_DEFVLIST_CTRL; + +/* GetNamedVariableListAttributes */ +typedef struct + { + GETVLIST_REQ_INFO *req_info; + GETVLIST_RESP_INFO *resp_info; /* allocate appropriate size */ + } MVLAS_GETVLIST_CTRL; + +/* DeleteNamedVariableList */ +typedef struct + { + DELVLIST_REQ_INFO *req_info; + DELVLIST_RESP_INFO *resp_info; + } MVLAS_DELVLIST_CTRL; + +/* GetDomainAttributes */ +typedef struct + { + GETDOM_REQ_INFO *req_info; + GETDOM_RESP_INFO *resp_info; + } MVLAS_GETDOM_CTRL; + +/* File Open */ +typedef struct + { + ST_CHAR filename [MAX_FILE_NAME+1]; /* array (not ptr) so always valid*/ + ST_UINT32 init_pos; + FOPEN_RESP_INFO *resp_info; + } MVLAS_FOPEN_CTRL; + +/* File Read */ +typedef struct + { + FREAD_REQ_INFO *req_info; + ST_INT max_size; + FREAD_RESP_INFO *resp_info; + } MVLAS_FREAD_CTRL; + +/* File Close */ +typedef struct + { + FCLOSE_REQ_INFO *req_info; + } MVLAS_FCLOSE_CTRL; + +/* File Directory */ +typedef struct + { + ST_UINT32 fsize; /* file size (# bytes) */ + ST_BOOLEAN mtimpres; /* last modified time present */ + time_t mtime; /* last modified time */ + ST_CHAR filename [MAX_FILE_NAME+1]; + } MVL_DIR_ENT; + +typedef struct + { + ST_INT num_dir_ent; /* number of directory entries */ + ST_BOOLEAN more_follows; /* more dir entries follow */ + /* default: SD_FALSE */ + MVL_DIR_ENT *dir_ent; /* ptr to array of dir entries */ + } MVL_FDIR_RESP_INFO; + +typedef struct + { + ST_CHAR fs_filename[MAX_FILE_NAME+1]; /* array (not ptr) so always valid*/ + ST_CHAR ca_filename[MAX_FILE_NAME+1]; /* array (not ptr) so always valid*/ + MVL_FDIR_RESP_INFO *resp_info; + } MVLAS_FDIR_CTRL; + +/* ObtainFile */ +typedef struct + { + ST_CHAR srcfilename [MAX_FILE_NAME+1]; /* array (not ptr) so always valid*/ + ST_CHAR destfilename [MAX_FILE_NAME+1]; /* array (not ptr) so always valid*/ + } MVLAS_OBTFILE_CTRL; + +/* File Delete */ +typedef struct + { + ST_CHAR filename [MAX_FILE_NAME+1]; /* array (not ptr) so always valid*/ + } MVLAS_FDELETE_CTRL; + +/* File Rename */ +typedef struct + { + ST_CHAR curfilename [MAX_FILE_NAME+1]; /* array (not ptr) so always valid*/ + ST_CHAR newfilename [MAX_FILE_NAME+1]; /* array (not ptr) so always valid*/ + } MVLAS_FRENAME_CTRL; + +/* InitializeJournal */ +typedef struct + { + JINIT_REQ_INFO *req_info; + JINIT_RESP_INFO *resp_info; + } MVLAS_JINIT_CTRL; + +/* ReadJournal */ +typedef struct + { + JREAD_REQ_INFO *req_info; + JREAD_RESP_INFO *resp_info; /* Variable size. User or mvlas_* must alloc.*/ + } MVLAS_JREAD_CTRL; + +/* JournalStatus */ +typedef struct + { + JSTAT_REQ_INFO *req_info; + JSTAT_RESP_INFO *resp_info; + } MVLAS_JSTAT_CTRL; + +typedef struct + { + INITUPL_REQ_INFO *req_info; + INITUPL_RESP_INFO *resp_info; + } MVLAS_INITUPL_CTRL; + +typedef struct + { + UPLOAD_REQ_INFO *req_info; + UPLOAD_RESP_INFO *resp_info; + } MVLAS_UPLOAD_CTRL; + +typedef struct + { + TERMUPL_REQ_INFO *req_info; + } MVLAS_TERMUPL_CTRL; + +typedef struct + { + INITDOWN_REQ_INFO *req_info; + } MVLAS_INITDOWN_CTRL; + +typedef struct + { + DELDOM_REQ_INFO *req_info; + } MVLAS_DELDOM_CTRL; + +typedef struct + { + CREPI_REQ_INFO *req_info; + } MVLAS_CREPI_CTRL; + +typedef struct + { + DELPI_REQ_INFO *req_info; + } MVLAS_DELPI_CTRL; + +typedef struct + { + GETPI_REQ_INFO *req_info; + GETPI_RESP_INFO *resp_info; + } MVLAS_GETPI_CTRL; + +typedef struct + { + START_REQ_INFO *req_info; + } MVLAS_START_CTRL; + +typedef struct + { + STOP_REQ_INFO *req_info; + } MVLAS_STOP_CTRL; + +typedef struct + { + RESUME_REQ_INFO *req_info; + } MVLAS_RESUME_CTRL; + +typedef struct + { + RESET_REQ_INFO *req_info; + } MVLAS_RESET_CTRL; + +typedef struct + { + GETCL_REQ_INFO *req_info; + GETCL_RESP_INFO *resp_info; + } MVLAS_GETCL_CTRL; + +/* MVL Indication Control */ +typedef struct mvl_ind_pend + { + DBL_LNK l; + MVL_COMM_EVENT *event; + ST_INT op; /* MMS Opcode (MMSOP_READ, etc.) */ + union + { + MVLAS_READ_CTRL rd; + MVLAS_WRITE_CTRL wr; + MVLAS_IDENT_CTRL ident; + MVLAS_STATUS_CTRL status; + MVLAS_NAMELIST_CTRL namelist; + MVLAS_GETVAR_CTRL getvar; + MVLAS_GETDOM_CTRL getdom; + MVLAS_FOPEN_CTRL fopen; + MVLAS_FREAD_CTRL fread; + MVLAS_FCLOSE_CTRL fclose; + MVLAS_FDIR_CTRL fdir; + MVLAS_OBTFILE_CTRL obtfile; + MVLAS_FDELETE_CTRL fdelete; + MVLAS_FRENAME_CTRL frename; + MVLAS_DEFVLIST_CTRL defvlist; + MVLAS_GETVLIST_CTRL getvlist; + MVLAS_DELVLIST_CTRL delvlist; + MVLAS_JINIT_CTRL jinit; + MVLAS_JREAD_CTRL jread; + MVLAS_JSTAT_CTRL jstat; + MVLAS_INITUPL_CTRL initupl; + MVLAS_UPLOAD_CTRL upload; + MVLAS_TERMUPL_CTRL termupl; + MVLAS_INITDOWN_CTRL initdown; + MVLAS_DELDOM_CTRL deldom; + MVLAS_CREPI_CTRL crepi; + MVLAS_DELPI_CTRL delpi; + MVLAS_GETPI_CTRL getpi; + MVLAS_START_CTRL start; + MVLAS_STOP_CTRL stop; + MVLAS_RESUME_CTRL resume; + MVLAS_RESET_CTRL reset; + MVLAS_GETCL_CTRL getcl; + } u; + /* For IEC/UCA Report scanning: */ + /* This function is called when scan completes for "one" variable */ + /* (i.e. all primitive reads complete for "one" variable of rpt). */ + ST_VOID (*scan_va_done_fun)(struct mvl_ind_pend *ind, MVL_VAR_ASSOC *va); + + /* User function to call INSTEAD of default Response function. */ + /* Currently only allowed for Read service (i.e. replaces call to */ + /* mvlas_read_resp). */ + ST_RET (*usr_resp_fun) (struct mvl_ind_pend *ind_pend); + + ST_VOID *usr_ind_ctrl; + ST_VOID *usr; /* For user to use as she sees fit */ + } MVL_IND_PEND; + +/************************************************************************/ +/* USER INDICATION and MVL RESPONSE FUNCTIONS */ +/* MVL calls the 'u_mvl_xxx_ind' function from within 'mvl_comm_serve' */ +/* to notify the user of the indication. The user must call a response */ +/* function ('mvlas_xxx_resp or 'mplas_xxx_resp') either from within */ +/* the user indication function or some time later. */ + +/* Identify */ +ST_VOID u_mvl_ident_ind (MVL_IND_PEND *ind); +ST_VOID mplas_ident_resp (MVL_IND_PEND *ind); /* Primitive */ + +/* Status */ +ST_VOID u_mvl_status_ind (MVL_IND_PEND *ind); +ST_VOID mplas_status_resp (MVL_IND_PEND *ind); /* Primitive */ + +/* Unsolicited Status */ +ST_VOID u_mvl_ustatus_ind (MVL_COMM_EVENT *event); /* NOTE: different arg*/ + +/* GetNameList */ +ST_VOID u_mvl_namelist_ind (MVL_IND_PEND *ind); +ST_VOID mplas_namelist_resp (MVL_IND_PEND *ind);/* Primitive */ +ST_VOID mvlas_namelist_resp (MVL_IND_PEND *ind);/* Virtual Machine */ + +/* Read */ +ST_VOID u_mvl_read_ind (MVL_IND_PEND *indCtrl); +ST_RET mvlas_read_resp (MVL_IND_PEND *indCtrl); + +/* Write */ +ST_VOID u_mvl_write_ind (MVL_IND_PEND *indCtrl); +ST_VOID mvlas_write_resp (MVL_IND_PEND *indCtrl); + +/* GetVariableAccessAttributes */ +ST_VOID u_mvl_getvar_ind (MVL_IND_PEND *ind); +ST_VOID mplas_getvar_resp (MVL_IND_PEND *ind); /* Primitive */ +ST_VOID mvlas_getvar_resp (MVL_IND_PEND *ind); /* Virtual Machine */ + +/* DefineNamedVariableList */ +ST_VOID u_mvl_defvlist_ind (MVL_IND_PEND *ind); +ST_VOID mplas_defvlist_resp (MVL_IND_PEND *ind);/* Primitive */ +ST_VOID mvlas_defvlist_resp (MVL_IND_PEND *ind);/* Virtual Machine */ + +/* GetNamedVariableListAttributes */ +ST_VOID u_mvl_getvlist_ind (MVL_IND_PEND *ind); +ST_VOID mplas_getvlist_resp (MVL_IND_PEND *ind);/* Primitive */ +ST_VOID mvlas_getvlist_resp (MVL_IND_PEND *ind);/* Virtual Machine */ + +/* DeleteNamedVariableList */ +ST_VOID u_mvl_delvlist_ind (MVL_IND_PEND *ind); +ST_VOID mplas_delvlist_resp (MVL_IND_PEND *ind);/* Primitive */ +ST_VOID mvlas_delvlist_resp (MVL_IND_PEND *ind);/* Virtual Machine */ + +/* GetDomainAttributes */ +ST_VOID u_mvl_getdom_ind (MVL_IND_PEND *ind); +ST_VOID mplas_getdom_resp (MVL_IND_PEND *ind); /* Primitive */ +ST_VOID mvlas_getdom_resp (MVL_IND_PEND *ind); /* Virtual Machine */ + +/* FileOpen */ +ST_VOID u_mvl_fopen_ind (MVL_IND_PEND *ind); +ST_VOID mplas_fopen_resp (MVL_IND_PEND *ind); /* Primitive */ + +/* FileRead */ +ST_VOID u_mvl_fread_ind (MVL_IND_PEND *ind); +ST_VOID mplas_fread_resp (MVL_IND_PEND *ind); /* Primitive */ + +/* FileClose */ +ST_VOID u_mvl_fclose_ind (MVL_IND_PEND *ind); +ST_VOID mplas_fclose_resp (MVL_IND_PEND *ind); /* Primitive */ + +/* FileDirectory */ +ST_VOID u_mvl_fdir_ind (MVL_IND_PEND *ind); +ST_VOID mvlas_fdir_resp (MVL_IND_PEND *ind); +ST_VOID mplas_fdir_resp (MVL_IND_PEND *ind); /* Primitive */ + +/* ObtainFile */ +ST_VOID u_mvl_obtfile_ind (MVL_IND_PEND *ind); +ST_VOID mplas_obtfile_resp (MVL_IND_PEND *ind); /* Primitive */ +ST_VOID mvlas_obtfile_resp (MVL_IND_PEND *ind); /* VirtualMachine */ +ST_VOID mvlas_obtfile_resp_ex (MVL_IND_PEND *indCtrl, ST_UINT32 fileSizeLimit); + +/* FileDelete */ +ST_VOID u_mvl_fdelete_ind (MVL_IND_PEND *ind); +ST_VOID mplas_fdelete_resp (MVL_IND_PEND *ind); /* Primitive */ + +/* FileRename */ +ST_VOID u_mvl_frename_ind (MVL_IND_PEND *ind); +ST_VOID mplas_frename_resp (MVL_IND_PEND *ind); /* Primitive */ + +/* InitializeJournal */ +ST_VOID u_mvl_jinit_ind (MVL_IND_PEND *ind); +ST_VOID mplas_jinit_resp (MVL_IND_PEND *ind); /* Primitive */ + +/* ReadJournal */ +ST_VOID u_mvl_jread_ind (MVL_IND_PEND *ind); +ST_VOID mplas_jread_resp (MVL_IND_PEND *ind); /* Primitive */ +ST_VOID mvlas_jread_resp (MVL_IND_PEND *ind); /* Virtual Machine */ + +/* ReportJournalStatus */ +ST_VOID u_mvl_jstat_ind (MVL_IND_PEND *ind); +ST_VOID mplas_jstat_resp (MVL_IND_PEND *ind); /* Primitive */ + +/* Conclude */ +ST_VOID u_mvl_concl_ind (MVL_COMM_EVENT *event); +ST_VOID mplas_concl_resp (MVL_COMM_EVENT *event); /* Primitive */ +ST_RET mplas_concl_err (MVL_COMM_EVENT *event, ST_INT16 err_class, ST_INT16 err_code); + +ST_VOID u_mvl_initupl_ind (MVL_IND_PEND *ind); +ST_VOID mplas_initupl_resp (MVL_IND_PEND *ind); /* Primitive */ + +ST_VOID u_mvl_upload_ind (MVL_IND_PEND *ind); +ST_VOID mplas_upload_resp (MVL_IND_PEND *ind); /* Primitive */ + +ST_VOID u_mvl_termupl_ind (MVL_IND_PEND *ind); +ST_VOID mplas_termupl_resp (MVL_IND_PEND *ind); /* Primitive */ + +ST_VOID u_mvl_initdown_ind (MVL_IND_PEND *ind); +ST_VOID mplas_initdown_resp (MVL_IND_PEND *ind);/* Primitive */ + +ST_VOID u_mvl_deldom_ind (MVL_IND_PEND *ind); +ST_VOID mplas_deldom_resp (MVL_IND_PEND *ind); /* Primitive */ + +ST_VOID u_mvl_crepi_ind (MVL_IND_PEND *ind); +ST_VOID mplas_crepi_resp (MVL_IND_PEND *ind); /* Primitive */ + +ST_VOID u_mvl_delpi_ind (MVL_IND_PEND *ind); +ST_VOID mplas_delpi_resp (MVL_IND_PEND *ind); /* Primitive */ + +ST_VOID u_mvl_getpi_ind (MVL_IND_PEND *ind); +ST_VOID mplas_getpi_resp (MVL_IND_PEND *ind); /* Primitive */ + +ST_VOID u_mvl_start_ind (MVL_IND_PEND *ind); +ST_VOID mplas_start_resp (MVL_IND_PEND *ind); /* Primitive */ + +ST_VOID u_mvl_stop_ind (MVL_IND_PEND *ind); +ST_VOID mplas_stop_resp (MVL_IND_PEND *ind); /* Primitive */ + +ST_VOID u_mvl_reset_ind (MVL_IND_PEND *ind); +ST_VOID mplas_reset_resp (MVL_IND_PEND *ind); /* Primitive */ + +ST_VOID u_mvl_resume_ind (MVL_IND_PEND *ind); +ST_VOID mplas_resume_resp (MVL_IND_PEND *ind); /* Primitive */ + +ST_VOID u_mvl_getcl_ind (MVL_IND_PEND *ind); +ST_VOID mplas_getcl_resp (MVL_IND_PEND *ind); /* Primitive */ + +/************************************************************************/ +/* Server Read/Write Start and End Function Pointers */ + +/* These function pointers are invoked to allow the user application */ +/* to prepare for handling the indication. */ +extern ST_RET (*u_mvl_rd_ind_start) (MVL_IND_PEND *indCtrl); +extern ST_RET (*u_mvl_wr_ind_start) (MVL_IND_PEND *indCtrl); + +/* These function pointers are invoked to allow the user application */ +/* to free resources used in VA data buffer management. */ +extern ST_VOID (*u_mvl_rd_resp_sent) (MVL_IND_PEND *indCtrl); +extern ST_VOID (*u_mvl_wr_resp_sent) (MVL_IND_PEND *indCtrl); + + +/************************************************************************/ +/* Server Information Report */ +/* This function is used to send an information report. */ + +ST_RET mvl_info_variables (MVL_NET_INFO *net_info, MVL_NVLIST_CTRL *nvl, + ST_BOOLEAN listOfVariables); + +/************************************************************************/ +/* Server Journal Read */ + +/* Jread User Interaction */ +/* 1. A Journal Read indication is received by MVL. */ +/* 2. MVL calls 'u_mvl_start_jread'. User applies filter to it's journal */ +/* data and returns the number of entries and variables that meet */ +/* the filter as well as JREAD buffer control information and a */ +/* user handle. */ +/* Note that the defines: */ +/* MAX_JREAD_RESP_ENTRIES */ +/* MAX_JREAD_RESP_VARS */ +/* are used to limit the amount of information that MVL will return */ +/* in the MMS response. */ +/* The buffer control allows the user to supply MVL with data buffers */ +/* to be used to save the volitile Journal information (Entry ID, */ +/* Variable Tag, Annotation). */ +/* 3. MVL calls 'u_mvl_get_next_jread_entry' and 'u_mvl_free_jread_entry' */ +/* repetitively until the max MMS PDU size is reached or the number of */ +/* user entries is reached. */ +/* 4. MVL sends the JREAD response. */ +/* 5. MVL calls 'u_mvl_end_jread' and the user may then free resources */ +/* as necessary. */ + +/* These defines control the way that MVL handles the potentially */ +/* volitile information presented by the user via MVL_JOURNAL_ENTRY. */ +/* If these defines are defined, MVL will assume that the pointers */ +/* in MVL_JOURNAL_ENTRY will become invalid after the free call and */ +/* so it must copy the data into a buffer. These buffers are to be */ +/* supplied by the user, and must be large enough for the data. */ + +/* #define MVL_JREAD_ENTRYID_DYNAMIC */ +/* #define MVL_JREAD_VARTAG_DYNAMIC */ +/* #define MVL_JREAD_ANNOTATION_DYNAMIC */ + +typedef struct mvlJreadBufCtrl + { + ST_INT numUsrEntries; /* User must supply */ + ST_INT numVarInfo; /* User must supply */ + +#if defined (MVL_JREAD_ENTRYID_DYNAMIC) + ST_UCHAR *entryIdBuf; /* User must supply */ + ST_UCHAR *nextEntryId; /* MVL use only */ +#endif + +#if defined (MVL_JREAD_VARTAG_DYNAMIC) + ST_CHAR *varTagBuf; /* User must supply */ + ST_CHAR *nextVarTag; /* MVL use only */ +#endif + +#if defined (MVL_JREAD_ANNOTATION_DYNAMIC) + ST_CHAR *annotationBuf; /* User must supply */ + ST_CHAR *nextAnnotation; /* MVL use only */ +#endif + + } MVL_JREAD_BUF_CTRL; + + +/* User defined Journal Read response functions. These functions are */ +/* to be supplied by the application in order to get the information */ +/* required for a Journal Read response. */ + +/* This function should be used to apply the filter and returns the */ +/* total number of Journal Entries and Journal Variables that meet */ +/* the filter criteria. */ +ST_RET u_mvl_start_jread (MVL_JOURNAL_CTRL *jCtrl, + JREAD_REQ_INFO *reqInfo, + MVL_JREAD_BUF_CTRL *bufCtrl, + ST_VOID **usrHandleOut); + +/* MVL calls this function repetitively to get entries from the app. */ +/* MVL will use the entry then will call the free function below to */ +/* allow the application free the resources as required. */ +ST_RET u_mvl_get_next_jread_entry (MVL_JOURNAL_CTRL *jCtrl, + ST_VOID *usrHandle, + ST_BOOLEAN *moreFollowsOut, + MVL_JOURNAL_ENTRY **mvlJeDest); +ST_VOID u_mvl_free_jread_entry (MVL_JOURNAL_CTRL *jCtrl, + ST_VOID *usrHandle, + MVL_JOURNAL_ENTRY *mvlJe); + +/* When complete, MVL will call this function. */ +ST_VOID u_mvl_end_jread (MVL_JOURNAL_CTRL *jCtrl, + ST_VOID *usrHandle, + MVL_JREAD_BUF_CTRL *bufCtrl, + JREAD_REQ_INFO *reqInfo); + +/************************************************************************/ +/************************************************************************/ +/* Temporary file name */ + +/* User can supply path for temp files, prefix for file name */ +/* Typical forms are: */ +/* "/temp/" */ +/* "S:/temp/" */ +/* "//mike/temp/" */ +/* "X:" */ + +#define MVL_MAX_TMPFILE_PATH MAX_FILE_NAME +//extern ST_CHAR *mvl_tmpfile_path; + +/* Users should have a buffer at least this big, unless they can */ +/* control the temp filename path to be used. */ +#define MVL_MAX_TMPNAM_LEN (MVL_MAX_TMPFILE_PATH + 12) +ST_RET _mvl_tmpnam (ST_CHAR *dest, ST_CHAR *tmpfile_path); +ST_VOID _mvl_getpath (ST_CHAR *file_spec, ST_CHAR *dest); + + +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ +/* MVL CLIENT SERVICE SUPPORT */ +/************************************************************************/ +/* conf_process_mode defines */ +/* When the confirm is received (and ICCP support is enabled) this flag */ +/* is used to tell MVL how to process the confirm. */ +#define MI_CONF_ICCP_DV 0x0001 + + +/* Read */ +typedef struct mvl_read_resp_parse_info + { + ST_RET result; /* SD_SUCCESS for OK */ + + /* MMS level result information */ + ST_INT16 acc_rslt_tag; /* access result tag */ + ST_INT16 failure; /* data access error */ + + ST_VOID *dest; /* Where data is to be put */ + ST_INT type_id; /* type of variable */ + + ST_BOOLEAN alt_acc_pres; + ALT_ACCESS *alt_acc; + ST_BOOLEAN alt_acc_type_aa; /* type_id is derived type */ + ST_BOOLEAN alt_acc_data_packed; + + ST_BOOLEAN descr_arr; /* for described read of array */ + ST_RTINT arr_size; /* number of elements */ + } MVL_READ_RESP_PARSE_INFO; + +/* Write */ +typedef struct mvl_write_req_info + { + ST_RET result; /* SD_SUCCESS for OK */ + + /* MMS level result detail */ + ST_INT16 resp_tag; /* response tag */ + ST_INT16 failure; /* data access error */ + + ST_VOID *local_data; /* Source of local data */ + ST_INT type_id; /* type of variable */ + + ST_BOOLEAN alt_acc_pres; + ALT_ACCESS *alt_acc; + ST_BOOLEAN alt_acc_type_aa; /* type_id is derived type */ + ST_BOOLEAN alt_acc_data_packed; + + ST_BOOLEAN arr; /* SD_TRUE if type is array and the # */ + ST_RTINT num_el; /* elements needs to be set */ + } MVL_WRITE_REQ_INFO ; + +/* JournalRead */ +typedef struct + { + ST_INT num_of_jou_entry; /* number of journal entries */ + ST_BOOLEAN more_follows; /* default = false */ + MVL_JOURNAL_ENTRY *jou_entry; /* ptr to array of entries */ + } MVL_JREAD_RESP_INFO; + +/* Outstanding Request Control */ +typedef struct mvl_req_pend + { + DBL_LNK l; /* For linked list */ + ST_UINT32 invoke_id; + time_t request_time; + MVL_NET_INFO *net_info; /* Who it was sent to */ + ST_INT op; /* MMS Opcode */ + union + { + struct + { + MVL_READ_RESP_PARSE_INFO *parse_info; + ST_INT num_data; + } rd; + struct + { + MVL_WRITE_REQ_INFO *w_info; + ST_INT num_data; + } wr; + struct + { + IDENT_RESP_INFO *resp_info; + } ident; + struct + { + INIT_INFO *resp_info; + } init; + struct + { + FOPEN_RESP_INFO *resp_info; + } fopen; + struct + { + FREAD_RESP_INFO *resp_info; + } fread; + struct + { + MVL_FDIR_RESP_INFO *resp_info; + } fdir; + struct + { + JINIT_RESP_INFO *resp_info; + } jinit; + struct + { + JSTAT_RESP_INFO *resp_info; + } jstat; + struct + { + MVL_JREAD_RESP_INFO *resp_info; + } jread; + struct + { + GETVLIST_RESP_INFO *resp_info; + } getvlist; + struct + { + DELVLIST_RESP_INFO *resp_info; + } delvlist; + struct + { + GETVAR_RESP_INFO *resp_info; + } getvar; + struct + { + GETDOM_RESP_INFO *resp_info; + } getdom; + struct + { + NAMELIST_RESP_INFO *resp_info; + } getnam; + struct + { + STATUS_RESP_INFO *resp_info; + } status; + struct + { + DOWNLOAD_RESP_INFO *resp_info; + } download; /* DownloadSegment resp info */ + } u; + MVL_COMM_EVENT *event; /* save event ptr to free later.*/ + ST_BOOLEAN done; + ST_RET result; /* SD_SUCCESS or error code */ + ERR_INFO *error_info; /* When result == MVL_ERR_CNF_ERR_OK */ + REJECT_RESP_INFO *reject_info; /* When result == MVL_ERR_CNF_REJ_ERR */ + + + /* User done function for async functions */ + ST_VOID (*u_req_done) (struct mvl_req_pend *req); + ST_VOID *v; /* For MVL user's use */ + + struct _mi_req_ctrl *mi_req; /* used for ICCP_LITE_SUPP */ + } MVL_REQ_PEND; + + +struct mvl_fget_req_info; /* forward declaration */ + +typedef struct mvl_fget_req_info + { + ST_BOOLEAN fget_done; + ST_INT fget_error; + /* pointer to user's fget confirm function */ + ST_VOID (*fget_cnf_ptr)(struct mvl_fget_req_info *state); + ST_CHAR srcfilename[MAX_FILE_NAME+1]; + ST_CHAR destfilename[MAX_FILE_NAME+1]; + + ST_VOID *v; /* For MVL user's use */ + + /* The rest of this structure is not normally accessed by the user. */ + char tempfilename[MVL_MAX_TMPNAM_LEN+1]; + FILE *fp; + ST_INT32 frsmid; + ST_UINT32 fsize; + } MVL_FGET_REQ_INFO; + + +ST_RET _mvla_send_status (MVL_NET_INFO *net_info, + STATUS_REQ_INFO *req_info, + MVL_REQ_PEND *req_pend); +ST_RET _mvla_send_getname (MVL_NET_INFO *net_info, + NAMELIST_REQ_INFO *req_info, + MVL_REQ_PEND *req_pend); +ST_RET _mvla_send_read_variables (MVL_NET_INFO *net_info, + READ_REQ_INFO *read_info, + ST_INT num_data, + MVL_READ_RESP_PARSE_INFO *parse_info, + MVL_REQ_PEND *req_pend); +ST_RET _mvla_send_getvar (MVL_NET_INFO *net_info, + GETVAR_REQ_INFO *req_info, + MVL_REQ_PEND *req_pend); +ST_RET _mvla_send_defvlist (MVL_NET_INFO *net_info, + DEFVLIST_REQ_INFO *req_info, + MVL_REQ_PEND *req_pend); +ST_RET _mvla_send_getvlist (MVL_NET_INFO *net_info, + GETVLIST_REQ_INFO *req_info, + MVL_REQ_PEND *req_pend); +ST_RET _mvla_send_delvlist (MVL_NET_INFO *net_info, + DELVLIST_REQ_INFO *req_info, + MVL_REQ_PEND *req_pend); +ST_RET _mvla_send_getdom (MVL_NET_INFO *net_info, + GETDOM_REQ_INFO *req_info, + MVL_REQ_PEND *req_pend); +ST_RET _mvla_send_fopen (MVL_NET_INFO *net_info, + ST_CHAR *filename, + ST_UINT32 init_pos, + MVL_REQ_PEND *req_pend); +ST_RET _mvla_send_fread (MVL_NET_INFO *net_info, + FREAD_REQ_INFO *req_info, + MVL_REQ_PEND *req_pend); +ST_RET _mvla_send_fclose (MVL_NET_INFO *net_info, + FCLOSE_REQ_INFO *req_info, + MVL_REQ_PEND *req_pend); +ST_RET _mvla_send_fdir (MVL_NET_INFO *net_info, + ST_CHAR *filename, + ST_CHAR *ca_filename, + MVL_REQ_PEND *req_pend); +ST_RET _mvla_send_fdelete (MVL_NET_INFO *net_info, + ST_CHAR *filename, + MVL_REQ_PEND *req_pend); +ST_RET _mvla_send_jinit (MVL_NET_INFO *net_info, + JINIT_REQ_INFO *req_info, + MVL_REQ_PEND *req_pend); +ST_RET _mvla_send_jread (MVL_NET_INFO *net_info, + JREAD_REQ_INFO *req_info, + MVL_REQ_PEND *req_pend); +ST_RET _mvla_send_jstat (MVL_NET_INFO *net_info, + JSTAT_REQ_INFO *req_info, + MVL_REQ_PEND *req_pend); + +/* Function to make async function sync */ +ST_RET mvl_wait_req_done (MVL_REQ_PEND *req); + +/* Use this to free a request contrl after the confirm has been rx'd */ +ST_VOID mvl_free_req_ctrl (MVL_REQ_PEND *pend_req); + +/* Use this to free any pending Indication Ctrl structures */ +ST_VOID mvl_clr_ind_que (MVL_NET_INFO *net_info); + +/************************************************************************/ +/* CLIENT REQUEST FUNCTIONS */ +/* Most client request functions come in two versions - synchronous */ +/* and asynchronous. Both have identical arguments - the only */ +/* difference is that the synchronous versions do not return until */ +/* the confirm/error has been received, or the user gives up (via */ +/* the 'u_mvl_check_timeout' function). */ + +/* Identify */ +ST_RET mvl_identify (MVL_NET_INFO *net_info, MVL_REQ_PEND **req_out); +ST_RET mvla_identify (MVL_NET_INFO *net_info, MVL_REQ_PEND **req_out); + +/* Status */ +ST_RET mvl_status (MVL_NET_INFO *net_info, STATUS_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); +ST_RET mvla_status (MVL_NET_INFO *net_info, STATUS_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); + +/* Unsolicited Status */ +ST_RET mvl_ustatus (MVL_NET_INFO *net_info, USTATUS_REQ_INFO *req_info); + +/* GetNameList */ +ST_RET mvl_getnam (MVL_NET_INFO *net_info, NAMELIST_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); +ST_RET mvla_getnam (MVL_NET_INFO *net_info, NAMELIST_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); + + +/* Read */ +ST_RET mvl_read_variables (MVL_NET_INFO *net_info, READ_REQ_INFO *read_info, + ST_INT num_data, + MVL_READ_RESP_PARSE_INFO *parse_info, + MVL_REQ_PEND **req_out); +ST_RET mvla_read_variables (MVL_NET_INFO *net_info, READ_REQ_INFO *read_info, + ST_INT num_data, + MVL_READ_RESP_PARSE_INFO *parse_info, + MVL_REQ_PEND **req_out); + + +/* Write */ +ST_RET mvl_write_variables (MVL_NET_INFO *net_info, WRITE_REQ_INFO *write_info, + ST_INT num_data, MVL_WRITE_REQ_INFO *w_info, + MVL_REQ_PEND **req_out); +ST_RET mvla_write_variables (MVL_NET_INFO *net_info, WRITE_REQ_INFO *write_info, + ST_INT num_data, MVL_WRITE_REQ_INFO *w_info, + MVL_REQ_PEND **req_out); + +/* GetVariableAccessAttributes */ +ST_RET mvl_getvar (MVL_NET_INFO *net_info, GETVAR_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); +ST_RET mvla_getvar (MVL_NET_INFO *net_info, GETVAR_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); + +/* DefineNamedVariableList */ +ST_RET mvl_defvlist (MVL_NET_INFO *net_info, DEFVLIST_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); +ST_RET mvla_defvlist (MVL_NET_INFO *net_info, DEFVLIST_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); + +/* GetNamedVariableListAttributes */ +ST_RET mvl_getvlist (MVL_NET_INFO *net_info, GETVLIST_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); +ST_RET mvla_getvlist (MVL_NET_INFO *net_info, GETVLIST_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); + +/* DeleteNamedVariableList */ +ST_RET mvl_delvlist (MVL_NET_INFO *net_info, DELVLIST_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); +ST_RET mvla_delvlist (MVL_NET_INFO *net_info, DELVLIST_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); + +/* GetDomainAttributes */ +ST_RET mvl_getdom (MVL_NET_INFO *net_info, GETDOM_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); +ST_RET mvla_getdom (MVL_NET_INFO *net_info, GETDOM_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); + +/* File Open */ +ST_RET mvl_fopen (MVL_NET_INFO *net_info, ST_CHAR *filename, + ST_UINT32 init_pos, MVL_REQ_PEND **req_out); +ST_RET mvla_fopen (MVL_NET_INFO *net_info, ST_CHAR *filename, + ST_UINT32 init_pos, MVL_REQ_PEND **req_out); + +/* File Read */ +ST_RET mvl_fread (MVL_NET_INFO *net_info, FREAD_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); +ST_RET mvla_fread (MVL_NET_INFO *net_info, FREAD_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); + +/* File Close */ +ST_RET mvl_fclose (MVL_NET_INFO *net_info, FCLOSE_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); +ST_RET mvla_fclose (MVL_NET_INFO *net_info, FCLOSE_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); + +/* File Directory */ +ST_RET mvl_fdir (MVL_NET_INFO *net_info, ST_CHAR *filename, + ST_CHAR *ca_filename, MVL_REQ_PEND **req_out); +ST_RET mvla_fdir (MVL_NET_INFO *net_info, ST_CHAR *filename, + ST_CHAR *ca_filename, MVL_REQ_PEND **req_out); + +/* File Delete */ +ST_RET mvl_fdelete (MVL_NET_INFO *net_info, ST_CHAR *filename, + MVL_REQ_PEND **req_out); +ST_RET mvla_fdelete (MVL_NET_INFO *net_info, ST_CHAR *filename, + MVL_REQ_PEND **req_out); + +/* File Rename */ +ST_RET mvl_frename (MVL_NET_INFO *net_info, ST_CHAR *curfilename, + ST_CHAR *newfilename, MVL_REQ_PEND **req_out); +ST_RET mvla_frename (MVL_NET_INFO *net_info, ST_CHAR *curfilename, + ST_CHAR *newfilename, MVL_REQ_PEND **req_out); + +/* Obtainfile */ +ST_RET mvl_obtfile (MVL_NET_INFO *net_info, ST_CHAR *srcfilename, + ST_CHAR *destfilename, MVL_REQ_PEND **req_out); +ST_RET mvla_obtfile (MVL_NET_INFO *net_info, ST_CHAR *srcfilename, + ST_CHAR *destfilename, MVL_REQ_PEND **req_out); + +/* File Get */ +/* No synchronous File Get function "mvl_fget". Requires multiple reqs, */ +/* so cannot be synchronous. */ +ST_RET mvla_fget (MVL_NET_INFO *net_info, ST_CHAR *srcfilename, + ST_CHAR *destfilename, MVL_FGET_REQ_INFO *fget_req_info); + +/* InitializeJournal */ +ST_RET mvl_jinit (MVL_NET_INFO *net_info, JINIT_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); +ST_RET mvla_jinit (MVL_NET_INFO *net_info, JINIT_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); + +/* ReadJournal */ +ST_RET mvl_jread (MVL_NET_INFO *net_info, JREAD_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); +ST_RET mvla_jread (MVL_NET_INFO *net_info, JREAD_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); + +/* WriteJournal */ +ST_RET mvl_jwrite (MVL_NET_INFO *net_info, JWRITE_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); +ST_RET mvla_jwrite (MVL_NET_INFO *net_info, JWRITE_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); + +/* JournalStatus */ +ST_RET mvl_jstat (MVL_NET_INFO *net_info, JSTAT_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); +ST_RET mvla_jstat (MVL_NET_INFO *net_info, JSTAT_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); + +/* InitiateDownload */ +/* NOT YET IMPLEMENTED! ONLY NEEDED FOR CLIENT */ + +/* DownloadSegment */ +ST_RET mvl_download (MVL_NET_INFO *net_info, DOWNLOAD_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); +ST_RET mvla_download (MVL_NET_INFO *net_info, DOWNLOAD_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); + +/* TerminateDownload */ +ST_RET mvl_termdown (MVL_NET_INFO *net_info, TERMDOWN_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); +ST_RET mvla_termdown (MVL_NET_INFO *net_info, TERMDOWN_REQ_INFO *req_info, + MVL_REQ_PEND **req_out); + +/* Conclude */ +ST_RET mvl_concl (MVL_NET_INFO *net_info, MVL_REQ_PEND **req_out); +ST_RET mvla_concl (MVL_NET_INFO *net_info, MVL_REQ_PEND **req_out); +ST_RET _mvla_send_concl (MVL_NET_INFO *net_info, MVL_REQ_PEND *req_pend); + +/* Obsolete function, please use mvl_conc or mvla_conc */ +/* ST_RET mvl_conclude (MVL_NET_INFO *net_info ); */ + +/************************************************************************/ +/* ENCODE FUNCTIONS - each encodes a req or resp but does NOT send it. */ +/************************************************************************/ +/* Information Report Request */ +ST_RET mvl_encode_info_rpt (MVL_NET_INFO *net_info, + MVL_NVLIST_CTRL *nvl, + ST_BOOLEAN listOfVariables, + ASN1_ENC_CTXT *aCtx); + +/* NOTE: other encode functions not currently needed. */ + +/************************************************************************/ +/* Client Info Rpt indication */ + +/* This function is called when thje client application received an */ +/* information report */ +extern ST_VOID u_mvl_info_rpt_ind (MVL_COMM_EVENT *event); + +/* This function is used to convert Info Report data to local format */ +/* The user supplies a table of variable associations, which speify the */ +/* data type, destination, and pre/post processing functions. */ +/* This function free's the info report resources when the conversion */ +/* are complete. */ + +ST_VOID mvl_info_data_to_local (MVL_COMM_EVENT *event, + ST_INT num_va, + MVL_VAR_ASSOC **info_va); + +#if defined(MVL_REM_VMD_SUPPORT) +extern MVL_VMD_CTRL *(*u_mvl_get_rem_vmd_fun) (MVL_NET_INFO *net_info); +ST_VOID mvl_info_rpt_rem_process (MVL_COMM_EVENT *event); +#endif + +ST_RET mvlu_add_rt_type (RUNTIME_TYPE *rt, ST_INT numRt, ST_INT *typeIdOut); +ST_VOID mvlu_free_rt_type (ST_INT typeId); + +/* Type to String and visa-versa */ +ST_INT mvl_typename_to_typeid (ST_CHAR *type_id_string); +ST_CHAR *mvl_typeid_to_typename (ST_INT type_id); + + +/************************************************************************/ +/************************************************************************/ + +typedef struct + { + ST_DOUBLE startTime; + ST_INT32 callingConn; /* Calling Connections */ + ST_INT32 callingConnOk; /* Calling Connections Succesful*/ + ST_INT32 callingConnFail; /* Calling Connections Failed */ + ST_INT32 calledConn; /* Called Connections */ + ST_INT32 calledConnOK; /* Called Connections Succesful */ + ST_INT32 calledConnFail; /* Called Connections Failed */ + ST_INT32 clientConcl; /* Client Concludes */ + ST_INT32 serverConcl; /* Server Concludes */ + ST_INT32 localAbort; /* Local Aborts */ + ST_INT32 remoteAbort; /* Remote Aborts */ + ST_INT32 rejectsSent; /* Rejects Sent */ + ST_INT32 rejectsRcvd; /* Rejects Received */ + ST_INT32 clientReq; /* Client Requests */ + ST_INT32 clientReqOk; /* Client Requests OK */ + ST_INT32 clientReqErr; /* Client Requests Error */ + ST_INT32 clientVarRdOk; /* Client Variables Read OK */ + ST_INT32 clientVarRdFail; /* Client Variables Read Error */ + ST_INT32 clientVarWrOk; /* Client Variables Write OK */ + ST_INT32 clientVarWrErr; /* Client Variables Write Error */ + ST_INT32 clientInfoRpt; /* Client Information Reports */ + ST_INT32 clientUstatus; /* Client Unsolicited Status */ + ST_INT32 serverInd; /* Server Indications */ + ST_INT32 serverRespOk; /* Server Responses OK */ + ST_INT32 serverRespErr; /* Server Responses Error */ + ST_INT32 serverVarRdOk; /* Server Variables Read OK */ + ST_INT32 serverVarRdErr; /* Server Variables Read Error */ + ST_INT32 serverVarWrOk; /* Server Variables Write OK */ + ST_INT32 serverVarWrErr; /* Server Variables Write Error */ + ST_INT32 serverInfoRpt; /* Server Information Reports */ + ST_INT32 serverUstatus; /* Server Unsolicited Status */ + } MVL_MMS_STATISTICS; + +extern MVL_MMS_STATISTICS mvl_mms_statistics; + +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ +/* MVL INTERNAL DECLARATIONS */ +/************************************************************************/ +/************************************************************************/ + +/* Built in MVL Indication and Confirm functions, typically called */ +/* from "mvlop_en.c" if service is enabled. */ + +ST_VOID _mvl_process_read_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_write_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_ident_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_info_ind (MVL_COMM_EVENT *event); +ST_VOID _mvl_process_status_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_ustatus_ind (MVL_COMM_EVENT *event); +ST_VOID _mvl_process_getnam_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_getvaa_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_getvla_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_getdom_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_fopen_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_fread_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_fclose_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_fdir_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_obtfile_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_fdelete_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_frename_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_jinit_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_jread_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_concl_ind (MVL_COMM_EVENT *event); +ST_VOID _mvl_process_cancel_ind (MVL_COMM_EVENT *event); +ST_VOID _mvl_process_defvlist_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_delvlist_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_jstat_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_initdown_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_download_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_termdown_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_initupl_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_upload_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_termupl_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_deldom_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_crepi_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_delpi_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_start_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_stop_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_resume_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_reset_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_kill_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_getpi_ind (MVL_IND_PEND *ind_pend); +ST_VOID _mvl_process_getcl_ind (MVL_IND_PEND *ind_pend); + +ST_VOID _mvl_process_read_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_write_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_ident_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_getvar_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_getnam_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_status_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_getdom_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_fopen_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_fread_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_fclose_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_fdir_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_obtfile_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_fdelete_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_frename_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_jinit_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_jread_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_jwrite_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_jstat_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_defvlist_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_getvlist_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_delvlist_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_initdown_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_download_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_termdown_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_initupl_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_upload_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_termupl_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_deldom_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_crepi_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_delpi_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_start_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_stop_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_resume_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_reset_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_kill_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_getpi_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_getcl_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_process_concl_conf (MVL_REQ_PEND *req); +ST_VOID _mvl_release (MVL_REQ_PEND *req); + +/************************************************************************/ + +ST_VOID mvl_ind_rcvd (MVL_COMM_EVENT *event); +ST_VOID mvl_conf_rcvd (MVL_COMM_EVENT *event); +ST_VOID mvl_cancel_ind_rcvd (MVL_COMM_EVENT *event); +ST_VOID mvl_concl_ind_rcvd (MVL_COMM_EVENT *event); +ST_VOID mvl_concl_conf_rcvd (MVL_REQ_PEND *req_pend); + +ST_VOID _mvl_ind_reject (MVL_IND_PEND *ind); +ST_VOID _mvl_conf_reject (MVL_REQ_PEND *req); +ST_VOID _mvl_send_reject (MVL_COMM_EVENT *event); +ST_RET _mvl_send_error (MVL_COMM_EVENT *event, ST_INT16 eClass, ST_INT16 code); +ST_RET _mvl_send_err_f (MVL_COMM_EVENT *event, ST_INT16 eClass, ST_INT16 code); + +#define mplas_err_resp(indCtrl, eClass, code) _mplas_err_resp(indCtrl, eClass, code) +ST_RET _mplas_err_resp (MVL_IND_PEND *indCtrl, ST_INT16 eClass, ST_INT16 code); + +ST_VOID _mvl_send_resp (MVL_COMM_EVENT *event, ST_RET build_rc); +ST_VOID _mvl_send_resp_i (MVL_IND_PEND *indCtrl, ST_RET build_rc); +ST_RET _mvl_send_req (MVL_NET_INFO *net_info, + MVL_REQ_PEND *req, ST_RET build_rc); + +MVL_VAR_ASSOC *_mvl_objname_to_va (MVL_VMD_CTRL *vmd_ctrl, + MVL_NET_INFO *net_info, + ST_INT service, + OBJECT_NAME *obj, + MVL_SCOPE *va_scope_out, + ST_BOOLEAN alt_access_pres, + ALT_ACCESS *alt_acc, + ST_BOOLEAN *alt_access_done_out); + +/* This function does everything required to send a MMS message - */ +/* adds CLNP/CLTP/HDLC components then does whatever is required to send*/ +/* the complete message. Does not return until done, returns SD_SUCCESS */ +/* or an error code. */ +ST_RET _mvl_send_msg (ST_UCHAR *mms_msg, ST_INT mms_msg_len, MVL_NET_INFO *net_info); + + +/* This function is called to get MMS PDU's that have been received, */ +/* as well as other communications events. Returns a pointer to a */ +/* MMS Comm Event control structure that must be free'd via the */ +ST_BOOLEAN _mvl_net_service (MVL_COMM_EVENT **eventOut); +ST_VOID _mvl_free_comm_event (MVL_COMM_EVENT *event); + +extern ST_BOOLEAN mvl_init_ind_hold; + +/* Functions to manipulate request control list */ +MVL_REQ_PEND *_mvl_get_req_ctrl (MVL_NET_INFO *net_info, ST_INT16 op); +MVL_REQ_PEND *_mvl_find_req_ctrl (MVL_NET_INFO *net_info, + ST_INT op, ST_UINT32 id); +ST_VOID _mvl_set_net_req_done (MVL_REQ_PEND *skip, + MVL_NET_INFO *net_info, ST_RET result); +ST_VOID _mvl_set_req_done (MVL_REQ_PEND *req, ST_RET result); + +/* Alternate Access creation buffer management */ +ST_RET _mvl_get_asn1_aa (ALT_ACCESS *alt_acc, VARIABLE_LIST *vl); + +ST_RET _mvl_concat_filename (ST_CHAR *good_name, ST_INT num_of_fname, + FILE_NAME *fname_arr, ST_INT max_len); + +ST_VOID mvl_log_req (ST_INT opcode, ST_VOID *info); +ST_VOID mvl_log_resp (ST_INT opcode, ST_VOID *info); + +ST_VOID mvl_scope_set (OBJECT_NAME *obj, MVL_SCOPE *mvl_scope_out); + + +/************************************************************************/ + +extern ST_BOOLEAN _mvl_comm_serve_active; + +/************************************************************************/ +/* MVL_OBJ (generic MVL object) */ +/* This structure is used by all the MVL object manipulation functions */ +/* (mvl_obj_insert, mvl_obj_delete, mvl_obj_find, etc.) to represent */ +/* any named object (i.e. Named Variable, Named Variable List, */ +/* Domain, Journal, etc.). */ +/* A pointer to a "real" structure must be cast to (MVL_OBJ *) */ +/* for any call to the functions. */ +/* WARNING: It is assumed that the first item in the "real" structure */ +/* is a pointer to the "name" of the object. */ +/************************************************************************/ + +typedef struct + { + ST_CHAR *name; + } MVL_OBJ; + +/************************************************************************/ + +ST_VOID *_mvl_calloc_os (ST_UINT num, ST_UINT size); +ST_VOID *_mvl_realloc_os (ST_VOID *old, ST_UINT new_size); +ST_VOID _mvl_free_os (ST_VOID *buf); + +/************************************************************************/ +/* MVL object manipulation function prototypes. */ +/************************************************************************/ + +ST_RET mvl_obj_insert (MVL_OBJ **ObjTable, ST_INT *numObj, ST_INT maxObj, + MVL_OBJ *newObj); +MVL_OBJ *mvl_obj_delete (MVL_OBJ **ObjTable, ST_INT *numObj, + ST_CHAR *ObjName); +MVL_OBJ *mvl_obj_find (MVL_OBJ **ObjTable, ST_INT numObj, + ST_CHAR *ObjName); +MVL_OBJ ** mvl_obj_find_key (MVL_OBJ **ObjTable, ST_INT numObj, + ST_CHAR *ObjName); +ST_VOID _mvl_resize_ptr_tbl (ST_INT *p_max_num, + ST_VOID ***p_ptr_tbl, ST_INT new_size); +/************************************************************************/ +/* MVL type derivation functions */ +/************************************************************************/ + +ST_RET mvl_derive_new_type (ST_CHAR *base_name, ST_INT typeIdIn, + ST_INT *typeIdOut, ST_CHAR *handle); +ST_RET mvl_derive_type_members (ST_CHAR *base_name, ST_INT typeIdIn, + ST_UCHAR **membership, ST_RTREF *refs, ST_CHAR *handle); +ST_VOID mvl_print_derived_type( ST_CHAR *base_name, ST_INT typeIdIn, + ST_UCHAR *membership, ST_UCHAR **labels); +ST_RET mvl_add_derived_type( ST_CHAR *base_name, ST_INT typeIdIn, + ST_UCHAR *membership, ST_RTREF *refs, + ST_INT *typeIdOut); +#ifndef __ECOS +ST_BOOLEAN u_mvl_rt_element_supported( RUNTIME_TYPE *rt, + ST_CHAR *element_name, + ST_RTREF *ui, ST_CHAR *handle); +#endif +/************************************************************************/ + +ST_INT mi_connect_ind_fun (MVL_NET_INFO *net_info, + INIT_INFO *init_ind_info, + ACSE_AUTH_INFO *rsp_auth_info); +ST_VOID mi_release_ind_fun (MVL_NET_INFO *mvl_net_info); +ST_VOID mi_abort_ind_fun (MVL_NET_INFO *mvl_net_info); + +ST_VOID _mvl_free_req_pend (ST_VOID); +ST_VOID u_mvl_reject_ind (MVL_NET_INFO *net_info, REJECT_RESP_INFO *rej_info); + +/************************************************************************/ +/* Dynamic type creation functions. */ +/************************************************************************/ +MVL_TYPE_CTRL *mvl_type_ctrl_find (ST_INT TypeId); +MVL_TYPE_CTRL *mvl_type_ctrl_find_dyn (ST_INT TypeId); +ST_INT mvl_type_id_create (ST_CHAR *type_name, ST_UCHAR *asn1_data, ST_UINT asn1_len); +ST_INT mvl_type_id_create_from_tdl (ST_CHAR *type_name, ST_CHAR *tdl); +ST_VOID mvl_type_id_destroy (ST_INT TypeId); +ST_RET mvl_type_id_destroy_all_dyn (ST_VOID); +ST_INT mvl_type_count (ST_VOID); + +/* These take additional "vmd_ctrl" argument. */ +ST_INT mvl_vmd_type_id_create (MVL_VMD_CTRL *vmd_ctrl, ST_CHAR *type_name, RUNTIME_CTRL *rt_ctrl); +ST_RET mvl_vmd_type_id_destroy (MVL_VMD_CTRL *vmd_ctrl, ST_INT TypeId); +ST_RET mvl_vmd_type_id_destroy_all (MVL_VMD_CTRL *vmd_ctrl); +MVL_TYPE_CTRL *mvl_vmd_type_ctrl_find (MVL_VMD_CTRL *vmd_ctrl, ST_INT type_id); + +#define mvlu_install() /* OBSOLETE: For backward compatibility only */ + +/************************************************************************/ +/* Allocation functions/macros. */ +/************************************************************************/ +#define mvl_enc_buf_alloc(size) M_MALLOC (MSMEM_PDU_ENC, size) +#define mvl_enc_buf_free(ptr) M_FREE (MSMEM_PDU_ENC, ptr) + +/************************************************************************/ +/* Miscellaneous functions. */ +/************************************************************************/ +ST_VOID wait_any_event (ST_LONG max_ms_delay); /* called by sync fcts */ + /* user MUST supply this fct*/ +ST_INT mvl_req_bufs_avail (MVL_NET_INFO *net_info); +ST_INT mvl_ureq_bufs_avail (MVL_NET_INFO *net_info); + +/************************************************************************/ +/* Object add/remove functions. */ +/************************************************************************/ +MVL_DOM_CTRL *mvl_vmd_dom_add (MVL_VMD_CTRL *vmd_ctrl, + ST_CHAR *name, + ST_INT max_num_var, + ST_INT max_num_nvl, + ST_INT max_num_jou, + ST_BOOLEAN copy_name); +ST_RET mvl_vmd_dom_remove (MVL_VMD_CTRL *vmd_ctrl, ST_CHAR *dom_name); + +MVL_VAR_ASSOC *mvl_vmd_var_add (MVL_VMD_CTRL *vmd_ctrl, + OBJECT_NAME *obj, + MVL_NET_INFO *net_info, + ST_INT type_id, + ST_VOID *data, + MVL_VAR_PROC *proc, + ST_BOOLEAN copy_name); +MVL_VAR_ASSOC *mvl_var_add_alloc (MVL_VMD_CTRL *vmd_ctrl, + OBJECT_NAME *obj, + MVL_NET_INFO *net_info, + ST_INT type_id, + MVL_VAR_PROC *proc); +ST_RET mvl_vmd_var_remove (MVL_VMD_CTRL *vmd_ctrl, + OBJECT_NAME *obj, + MVL_NET_INFO *net_info); + +MVL_NVLIST_CTRL *mvl_vmd_nvl_add (MVL_VMD_CTRL *vmd_ctrl, + OBJECT_NAME *nvl_obj, + MVL_NET_INFO *net_info, + ST_INT num_var, + OBJECT_NAME *var_obj, /* array of var names */ + ST_BOOLEAN copy_name); +ST_RET mvl_vmd_nvl_remove (MVL_VMD_CTRL *vmd_ctrl, + OBJECT_NAME *obj, + MVL_NET_INFO *net_info); + +MVL_JOURNAL_CTRL *mvl_vmd_jou_add (MVL_VMD_CTRL *vmd_ctrl, + OBJECT_NAME *obj, + MVL_NET_INFO *net_info, + ST_BOOLEAN copy_name); +ST_RET mvl_vmd_jou_remove (MVL_VMD_CTRL *vmd_ctrl, + OBJECT_NAME *obj, + MVL_NET_INFO *net_info); + +/************************************************************************/ +/* Object insert/delete functions. */ +/************************************************************************/ +ST_RET mvl_vmd_dom_insert (MVL_VMD_CTRL *vmd_ctrl, + MVL_DOM_CTRL *dom); +MVL_DOM_CTRL *mvl_vmd_dom_delete (MVL_VMD_CTRL *vmd_ctrl, ST_CHAR *dom_name); + +ST_RET mvl_vmd_var_insert (MVL_VMD_CTRL *vmd_ctrl, + MVL_VAR_ASSOC *va, + OBJECT_NAME *obj, + MVL_NET_INFO *net_info); /* Only used if AA_SPEC */ +MVL_VAR_ASSOC *mvl_vmd_var_delete (MVL_VMD_CTRL *vmd_ctrl, + OBJECT_NAME *obj, + MVL_NET_INFO *net_info); + +ST_RET mvl_vmd_nvl_insert (MVL_VMD_CTRL *vmd_ctrl, + MVL_NVLIST_CTRL *nvl, + OBJECT_NAME *obj, + MVL_NET_INFO *net_info); /* Only used if AA_SPEC */ +MVL_NVLIST_CTRL *mvl_vmd_nvl_delete (MVL_VMD_CTRL *vmd_ctrl, + OBJECT_NAME *obj, + MVL_NET_INFO *net_info); /* Only used if AA_SPEC */ + +ST_RET mvl_vmd_jou_insert (MVL_VMD_CTRL *vmd_ctrl, + MVL_JOURNAL_CTRL *jou, + OBJECT_NAME *obj, + MVL_NET_INFO *net_info); /* Only used if AA_SPEC */ +MVL_JOURNAL_CTRL *mvl_vmd_jou_delete (MVL_VMD_CTRL *vmd_ctrl, + OBJECT_NAME *obj, + MVL_NET_INFO *net_info); + + +/************************************************************************/ +/* Object "find" functions. */ +/************************************************************************/ +MVL_DOM_CTRL *mvl_vmd_find_dom (MVL_VMD_CTRL *vmd_ctrl, + ST_CHAR *name); +MVL_DOM_CTRL *mvl_vmd_dom_find_last (MVL_VMD_CTRL *vmd_ctrl); +MVL_VAR_ASSOC *mvl_vmd_find_var (MVL_VMD_CTRL *vmd_ctrl, + OBJECT_NAME *obj, + MVL_NET_INFO *net_info); /* Only used if AA_SPEC */ +MVL_NVLIST_CTRL *mvl_vmd_find_nvl (MVL_VMD_CTRL *vmd_ctrl, + OBJECT_NAME *obj, + MVL_NET_INFO *net_info); /* Only used if AA_SPEC */ +MVL_JOURNAL_CTRL *mvl_vmd_find_jou (MVL_VMD_CTRL *vmd_ctrl, + OBJECT_NAME *obj, + MVL_NET_INFO *net_info); /* Only used if AA_SPEC */ + +/************************************************************************/ +#ifdef __cplusplus +} +#endif + +#endif /* MVL_DEFS_INCLUDED */ +/************************************************************************/ + diff --git a/mmslib/inc/mvl_log.h b/mmslib/inc/mvl_log.h new file mode 100644 index 0000000..49f092b --- /dev/null +++ b/mmslib/inc/mvl_log.h @@ -0,0 +1,198 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1996-2002, All Rights Reserved. */ +/* */ +/* MODULE NAME : mvl_log.h */ +/* PRODUCT(S) : Tool */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/22/08 JRB 14 Del unused MVLULOG_TIMING macros. */ +/* 04/09/07 MDE 13 Enhanced filtered logging */ +/* 09/12/05 JRB 12 Added more ERR, NERR macros */ +/* 07/13/05 MDE 11 Added more CNERR macros */ +/* 08/12/04 JRB 10 Fix MVLU_LOG_CTIMING.. macros. */ +/* 12/12/02 JRB 09 Use new "Base" macros SLOG_*, SLOGC_*, SLOGH.*/ +/* 07/31/01 MDE 08 Added mvl_conn_filtered_logging */ +/* 03/28/01 JRB 07 Add ..ACSEDATA3 macro. */ +/* 03/22/01 GLB 06 Added: MVLULOG_DEBUG, MVLULOG_TIMING */ +/* 12/13/99 JRB 05 Delete ";" from non-debug macros. Get extra */ +/* ";" when expanded (doesn't always compile). */ +/* 09/13/99 MDE 04 Added SD_CONST modifiers */ +/* 09/07/99 MDE 03 Added FLOW3, CFLOW3 macros */ +/* 10/08/98 MDE 02 Migrated to updated SLOG interface */ +/* 09/10/97 MDE 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +#ifndef MVL_LOG_INCLUDED +#define MVL_LOG_INCLUDED + +#include "slog.h" + +#ifdef __cplusplus +extern "C" { +#endif + +/************************************************************************/ +/* MMS-EASE Lite logging control */ + +#define MVLLOG_ERR 0x00000001 +#define MVLLOG_NERR 0x00000002 +#define MVLLOG_ACSE 0x00000040 +#define MVLLOG_ACSEDATA 0x00000080 +#define MVLULOG_FLOW 0x00000200 +#define MVLULOG_DEBUG 0x00000400 + + +/* For backward compatability only */ +#define mvl_log_mask mvl_debug_sel +extern ST_UINT mvl_debug_sel; + +/* Allows filtering of ACSE data logging by connection */ +extern ST_BOOLEAN mvl_conn_filtered_logging; + +/* Log type strings */ +extern SD_CONST ST_CHAR *SD_CONST _mvllog_err_logstr; +extern SD_CONST ST_CHAR *SD_CONST _mvllog_nerr_logstr; +extern SD_CONST ST_CHAR *SD_CONST _mvllog_acse_logstr; +extern SD_CONST ST_CHAR *SD_CONST _mvllog_acsedata_logstr; +extern SD_CONST ST_CHAR *SD_CONST _mvlulog_flow_logstr; +extern SD_CONST ST_CHAR *SD_CONST _mvlulog_debug_logstr; + + +/*********************** ERR Macros *************************************/ +#define MVL_LOG_ERR0(a) \ + SLOG_0 (mvl_debug_sel & MVLLOG_ERR,_mvllog_err_logstr,a) +#define MVL_LOG_ERR1(a,b) \ + SLOG_1 (mvl_debug_sel & MVLLOG_ERR,_mvllog_err_logstr,a,b) +#define MVL_LOG_ERR2(a,b,c) \ + SLOG_2 (mvl_debug_sel & MVLLOG_ERR,_mvllog_err_logstr,a,b,c) +#define MVL_LOG_ERR3(a,b,c,d) \ + SLOG_3 (mvl_debug_sel & MVLLOG_ERR,_mvllog_err_logstr,a,b,c,d) +#define MVL_LOG_ERR4(a,b,c,d,e) \ + SLOG_4 (mvl_debug_sel & MVLLOG_ERR,_mvllog_err_logstr,a,b,c,d,e) +#define MVL_LOG_ERR5(a,b,c,d,e,f) \ + SLOG_5 (mvl_debug_sel & MVLLOG_ERR,_mvllog_err_logstr,a,b,c,d,e,f) + +#define MVL_LOG_CERR0(a) \ + SLOGC_0 (mvl_debug_sel & MVLLOG_ERR,a) +#define MVL_LOG_CERR1(a,b) \ + SLOGC_1 (mvl_debug_sel & MVLLOG_ERR,a,b) +#define MVL_LOG_CERR2(a,b,c) \ + SLOGC_2 (mvl_debug_sel & MVLLOG_ERR,a,b,c) +#define MVL_LOG_CERR3(a,b,c,d) \ + SLOGC_3 (mvl_debug_sel & MVLLOG_ERR,a,b,c,d) +#define MVL_LOG_CERR4(a,b,c,d,e) \ + SLOGC_4 (mvl_debug_sel & MVLLOG_ERR,a,b,c,d,e) +#define MVL_LOG_CERR5(a,b,c,d,e,f) \ + SLOGC_5 (mvl_debug_sel & MVLLOG_ERR,a,b,c,d,e,f) + + +/*********************** NERR Macros *************************************/ + +#define MVL_LOG_NERR0(a) \ + SLOG_0 (mvl_debug_sel & MVLLOG_NERR,_mvllog_nerr_logstr,a) +#define MVL_LOG_NERR1(a,b) \ + SLOG_1 (mvl_debug_sel & MVLLOG_NERR,_mvllog_nerr_logstr,a,b) +#define MVL_LOG_NERR2(a,b,c) \ + SLOG_2 (mvl_debug_sel & MVLLOG_NERR,_mvllog_nerr_logstr,a,b,c) +#define MVL_LOG_NERR3(a,b,c,d) \ + SLOG_3 (mvl_debug_sel & MVLLOG_NERR,_mvllog_nerr_logstr,a,b,c,d) +#define MVL_LOG_NERR4(a,b,c,d,e) \ + SLOG_4 (mvl_debug_sel & MVLLOG_NERR,_mvllog_nerr_logstr,a,b,c,d,e) +#define MVL_LOG_NERR5(a,b,c,d,e,f) \ + SLOG_5 (mvl_debug_sel & MVLLOG_NERR,_mvllog_nerr_logstr,a,b,c,d,e,f) + +#define MVL_LOG_CNERR0(a) \ + SLOGC_0 (mvl_debug_sel & MVLLOG_NERR,a) +#define MVL_LOG_CNERR1(a,b) \ + SLOGC_1 (mvl_debug_sel & MVLLOG_NERR,a,b) +#define MVL_LOG_CNERR2(a,b,c) \ + SLOGC_2 (mvl_debug_sel & MVLLOG_NERR,a,b,c) +#define MVL_LOG_CNERR3(a,b,c,d) \ + SLOGC_3 (mvl_debug_sel & MVLLOG_NERR,a,b,c,d) +#define MVL_LOG_CNERR4(a,b,c,d,e) \ + SLOGC_4 (mvl_debug_sel & MVLLOG_NERR,a,b,c,d,e) +#define MVL_LOG_CNERR5(a,b,c,d,e,f) \ + SLOGC_5 (mvl_debug_sel & MVLLOG_NERR,a,b,c,d,e,f) + +/*********************** ACSE Macros *************************************/ + +#define MVL_LOG_ACSE0(a) \ + SLOG_0 (mvl_debug_sel & MVLLOG_ACSE,_mvllog_acse_logstr,a) +#define MVL_LOG_ACSE1(a,b) \ + SLOG_1 (mvl_debug_sel & MVLLOG_ACSE,_mvllog_acse_logstr,a,b) + + +#define MVL_LOG_CACSE0(a) \ + SLOGC_0 (mvl_debug_sel & MVLLOG_ACSE,a) +#define MVL_LOG_CACSE1(a,b) \ + SLOGC_1 (mvl_debug_sel & MVLLOG_ACSE,a,b) + + +#define MVL_LOG_ACSEDATA1(a,b) \ + SLOG_1 (mvl_debug_sel & MVLLOG_ACSEDATA,_mvllog_acsedata_logstr,a,b) +#define MVL_LOG_ACSEDATA2(a,b,c) \ + SLOG_2 (mvl_debug_sel & MVLLOG_ACSEDATA,_mvllog_acsedata_logstr,a,b,c) +#define MVL_LOG_ACSEDATA3(a,b,c,d) \ + SLOG_3 (mvl_debug_sel & MVLLOG_ACSEDATA,_mvllog_acsedata_logstr,a,b,c,d) + + +#define MVL_LOG_ACSEDATAH(a,b) \ + SLOGH (mvl_debug_sel & MVLLOG_ACSEDATA,a,b) + + +/*********************** MVLU FLOW Macros *******************************/ + +#define MVLU_LOG_FLOW0(a) \ + SLOG_0 (mvl_debug_sel & MVLULOG_FLOW,_mvlulog_flow_logstr,a) +#define MVLU_LOG_FLOW1(a,b) \ + SLOG_1 (mvl_debug_sel & MVLULOG_FLOW,_mvlulog_flow_logstr,a,b) +#define MVLU_LOG_FLOW2(a,b,c) \ + SLOG_2 (mvl_debug_sel & MVLULOG_FLOW,_mvlulog_flow_logstr,a,b,c) +#define MVLU_LOG_FLOW3(a,b,c,d) \ + SLOG_3 (mvl_debug_sel & MVLULOG_FLOW,_mvlulog_flow_logstr,a,b,c,d) + + +#define MVLU_LOG_CFLOW0(a) \ + SLOGC_0 (mvl_debug_sel & MVLULOG_FLOW,a) +#define MVLU_LOG_CFLOW1(a,b) \ + SLOGC_1 (mvl_debug_sel & MVLULOG_FLOW,a,b) +#define MVLU_LOG_CFLOW2(a,b,c) \ + SLOGC_2 (mvl_debug_sel & MVLULOG_FLOW,a,b,c) +#define MVLU_LOG_CFLOW3(a,b,c,d) \ + SLOGC_3 (mvl_debug_sel & MVLULOG_FLOW,a,b,c,d) + + +/*********************** MVLU DEBUG Macros *******************************/ + +#define MVLU_LOG_DEBUG0(a) \ + SLOG_0 (mvl_debug_sel & MVLULOG_DEBUG,_mvlulog_debug_logstr,a) +#define MVLU_LOG_DEBUG1(a,b) \ + SLOG_1 (mvl_debug_sel & MVLULOG_DEBUG,_mvlulog_debug_logstr,a,b) +#define MVLU_LOG_DEBUG2(a,b,c) \ + SLOG_2 (mvl_debug_sel & MVLULOG_DEBUG,_mvlulog_debug_logstr,a,b,c) +#define MVLU_LOG_DEBUG3(a,b,c,d) \ + SLOG_3 (mvl_debug_sel & MVLULOG_DEBUG,_mvlulog_debug_logstr,a,b,c,d) + + +#define MVLU_LOG_CDEBUG0(a) \ + SLOGC_0 (mvl_debug_sel & MVLULOG_DEBUG,a) +#define MVLU_LOG_CDEBUG1(a,b) \ + SLOGC_1 (mvl_debug_sel & MVLULOG_DEBUG,a,b) +#define MVLU_LOG_CDEBUG2(a,b,c) \ + SLOGC_2 (mvl_debug_sel & MVLULOG_DEBUG,a,b,c) +#define MVLU_LOG_CDEBUG3(a,b,c,d) \ + SLOGC_3 (mvl_debug_sel & MVLULOG_DEBUG,a,b,c,d) + +#ifdef __cplusplus +} +#endif + +#endif + diff --git a/mmslib/inc/mvl_uca.h b/mmslib/inc/mvl_uca.h new file mode 100644 index 0000000..df3aa8d --- /dev/null +++ b/mmslib/inc/mvl_uca.h @@ -0,0 +1,898 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1994 - 2002, All Rights Reserved */ +/* */ +/* MODULE NAME : mvl_uca.h */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* NONE */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 01/27/09 JRB 39 Add funct ptrs u_mvl_wr_ind_var_start/end. */ +/* 07/23/08 JRB 38 Move some defs to mvl_defs.h (need earlier). */ +/* Add mvl61850_objref_create. */ +/* 06/30/08 JRB 37 MVL_SBO_CTRL: repl cmd_executing w/ ctlState.*/ +/* Add MVL61850_CTLSTATE_* for setting ctlState.*/ +/* Increase size of sbo_var for IEC 61850. */ +/* MVL61850_BRCB_CTRL: Add lastSentTimeOfEntry. */ +/* 05/15/08 JRB 36 Add mvl61850_integrity_timeout for 61850 only*/ +/* 05/08/08 JRB 35 Add ctlModel to MVL_SBO_CTRL. */ +/* 05/06/08 JRB 34 Add cmd_executing to MVL_SBO_CTRL. */ +/* 03/03/08 JRB 33 Add mvl61850_ctl_req_done. */ +/* Add sboClass to MVL_SBO_CTRL. */ +/* Add MVL61850_SBOCLASS_* defines. */ +/* 11/12/07 MDE 32 Moved MMSOP_RDWR_USR_HANDLED to mms_def2.h */ +/* 03/07/07 JRB 31 Add mvlu_get_leaf_val_int_any. */ +/* 02/26/07 JRB 30 initSboCtrl: add use_ms_timer arg. */ +/* MVL_SBO_CTRL: add millisecond timer support. */ +/* 02/13/07 JRB 29 mvl61850_get_rcb: del unused net_info arg. */ +/* Add scan timers to MVL_RPT_CTRL. Add helper fct*/ +/* 11/30/06 JRB 28 Fix *_brcb_entryid_init so user can call it. */ +/* 11/21/06 JRB 27 Add mvl61850_ctl_lastapplerror_send. */ +/* Move ..LAST_APPL_ERROR def to mvl_defs.h. */ +/* 10/10/06 JRB 26 Add mvlu_set_leaf_param_name2. */ +/* 09/27/06 MDE 25 Added MMSOP_RDWR_USR_HANDLED for IOS */ +/* 08/09/06 JRB 24 MVL61850_BRCB_CTRL, BUFLIST_ENTRY: big changes.*/ +/* Add mvl61850_create(free)_rpt_ctrl, */ +/* mvl61850_rpt_service, */ +/* mvl61850_rpt_dataset_create(destroy). */ +/* Chg EntryID storage from ST_INT to Ostring. */ +/* Del obsolete MVLU_RPT_VA_CTRL. */ +/* Chg/add/del several internal report functions.*/ +/* Add vstring129 to MVLU_RPT_TYPEIDS. */ +/* 08/09/06 JRB 23 Fix MVL61850_MAX_OBJREF_LEN per Tissue 141. */ +/* 03/27/06 JRB 22 Add more mvlu_get_leaf_* functions. */ +/* 09/12/05 JRB 21 Add mvl61850_ctl_chk_sbow. */ +/* 07/11/05 JRB 20 Add more "mvl61850_ctl_*" functions. */ +/* 06/27/05 JRB 19 Del mvlu_rpt_nvl_add/destroy. */ +/* 06/27/05 JRB 18 _mvlu_get_rd_rcb: add (MVLU_RPT_CLIENT **) arg.*/ +/* MVL61850_BRCB_CTRL: Add lastSentEntryID. */ +/* 05/27/05 CRM 17 Add mvlu_rpt_destroy_scan_ctrl. */ +/* 05/09/05 JRB 16 Define MVLU_LEAF_FUN_LOOKUP_ENABLE by default*/ +/* 12/09/04 JRB 15 Add "MVL61850_CTLMODEL_*" defines. */ +/* Add MVL61850_LAST_APPL.. struct. */ +/* Add mvlu_trim_branch_name, mvlu_find_comp_type,*/ +/* mvlu_get_leaf_val_*. */ +/* Add mvl61850_ctl_chk_sbo, mvl61850_ctl_chk_state.*/ +/* Add initSboCtrl. */ +/* 09/20/04 JRB 14 More SBO changes for IEC 61850. */ +/* 08/30/04 JRB 13 Add mvlu_sbo_chk_* prototypes. */ +/* 07/06/04 JRB 12 Add mvlu_rpt_create_scan_ctrl2 proto. */ +/* 06/30/04 JRB 11 Add "prim_num", "prim_offset_base" to */ +/* MVLU_RD_VA_CTRL, MVLU_WR_VA_CTRL. */ +/* Del global var mvluUseStaticData. */ +/* Del SCL parsing functions & related structs: */ +/* mvl61850_ln_create_start, mvl61850_do_create,*/ +/* mvl61850_da_create, mvl61850_ln_create_finish,*/ +/* & mvl61850_ln_destroy. New SCL standard */ +/* makes these obsolete. */ +/* 05/13/04 JRB 10 Add SqNumInt16u to MVLU_BASRCB. */ +/* Add define MVL61850_MAX_OBJREF_LEN. */ +/* 04/20/04 JRB 09 Add TRGOPS_BITNUM_* defines. */ +/* 12/17/03 JRB 08 61850-8-1 FDIS changes: */ +/* MVLU_BASRCB: Add TimeofEntry for 61850 BRCB. */ +/* Add OPTFLD_BITNUM_CONFREV = 8. */ +/* Chg OPTFLD_BITNUM_SUBSEQNUM from 8 to 9. */ +/* Increase MVLU_MAX_RPT_OPTS to 11. */ +/* 04/22/03 JRB 07 Add comments to dynamic 61850 type functs. */ +/* 04/17/03 JRB 06 Add mvlu_setup_scan_read. */ +/* 04/04/03 JRB 05 Fix integrity/GI scan code so multiple */ +/* concurrent scans don't corrupt one another. */ +/* u_mvlu_rpt_scan_done deleted. */ +/* 03/13/03 JRB 04 Add funcs for 61850 dynamic type creation. */ +/* Add 61850 URCB support. */ +/* MVLU_RPT_TYPEIDS: Use clearer member names. */ +/* MVLU_RPT_CTRL: Del inclusion_data & all */ +/* MVL_VAR_ASSOC vars. */ +/* MVLU_BASRCB: Add "Resv". */ +/* ucaName: Chg from ptr to array. */ +/* mvlu_proc_rt_type: Chg to use RUNTIME_CTRL. */ +/* TrgOps: Chg to Bvstring (variable len). */ +/* MVLU_RPT_CLIENT: add/delete members. */ +/* Add mvlu_integrity_timeout funct. */ +/* 12/17/02 JRB 03 Chg prefix to "MVLU_STR:" */ +/* Del all *typeId globals, use MVLU_RPT_TYPEIDS*/ +/* 12/14/02 JRB 02 Chg mvlu_create_rpt_ctrl, mvlu_send_report args*/ +/* Add mvlu_integrity_scan_* functions. */ +/* Add callback funct u_mvlu_rpt_time_get. */ +/* Chg OptFlds to BVstring9, add "bitnum" defines*/ +/* Add defs, protos, etc. fof IEC-61850. */ +/* Add ConfRev, EntryID to MVLU_BASRCB */ +/* Add scan_read_ind to MVLU_RPT_CLIENT */ +/* Add MVLU_RPT_TYPEIDS */ +/* Del rptTim_data, rptTim_va, rptTim_typeId */ +/* Del outDat_data, outDat_va, outDat_typeId */ +/* 12/10/02 JRB 01 Created from defs moved here from mvl_defs.h */ +/************************************************************************/ +#ifndef MVL_UCA_INCLUDED +#define MVL_UCA_INCLUDED + +#include "mvl_defs.h" /* This uses many common MVL definitions. */ + +#ifdef __cplusplus +extern "C" { +#endif + +/* Max number of mandatory and optional variables in IEC/UCA report. + * IEC & UCA share RPT code, so max must accomodate both. + * Includes RptID, OptFlds, SqNum, RptTim, OutDat (DataSetNa), + * & InclusionBitstring (plus BufOvfl, SubSeqNum, MoreSegmentsFollow, + * EntryId, & ConfRev for IEC only). + */ +#define MVLU_MAX_RPT_OPTS 11 + +/* Defines for IEC 61850 control model. */ +#define MVL61850_CTLMODEL_STATUS_ONLY 0 +#define MVL61850_CTLMODEL_DIRECT_NORMAL 1 +#define MVL61850_CTLMODEL_SBO_NORMAL 2 +#define MVL61850_CTLMODEL_DIRECT_ENHANCED 3 +#define MVL61850_CTLMODEL_SBO_ENHANCED 4 + +#define MVL61850_SBOCLASS_OPERATE_ONCE 0 +#define MVL61850_SBOCLASS_OPERATE_MANY 1 + +#define MVL61850_CTLSTATE_UNSELECTED 0 /* SBO only */ +#define MVL61850_CTLSTATE_READY 1 +#define MVL61850_CTLSTATE_WAIT_ACTIVATION_TIME 2 +#define MVL61850_CTLSTATE_WAIT_CHANGE 3 /* enhanced only*/ + +/* renxiaobao ±¨¸æ + ¿ØÖÆ´íÎ󱨸æµÄ¸½¼ÓÔ­ÒòÕï¶Ï(AddCause) + #define NO_ERROR 0 +*/ +#define ServiceError_type 1 /* 7-2±í5Öж¨ÒåµÄ²î´í*/ +#define Blocked_CB 2 /* ±»¿ª¹Ø±ÕËø (Blocked-by-switching-hierarchy) */ +#define Select_fail 3 /* Ñ¡Ôñʧ°Ü (Select-failed)*/ +#define Invalid_Pos 4 /* ²»ÕýȷλÖà (Invalid-position) */ +#define Position_reached 5 /* ¿ª¹ØÒÑ´¦ÓÚÆÚÍûµÄλÖà (Position-reached) */ +#define Parameter_change 6 /* Ö´ÐÐÖвÎÊý¸Ä±ä (Parameter-change-in-execution) */ +#define Step_limit 7 /* ²½ÏÞÖÆ,·Ö½ÓÍ·µÄλÖÃÒÑ´ïµ½ÉÏ/ÏÂÏÞ (Step-limit) */ +#define Blocked_by_Mode 8 /* LN(CSWI¡¢XCBRµÈ)´¦ÓÚ²»ÔÊÐíµÄ²Ù×÷ģʽ (Blocked-by-Mode)*/ +#define Blocked_by_process 9 /* ÓÉÓÚ¹ý³Ì²ãµÄÍⲿʼþ×èÖ¹³É¹¦²Ù×÷ (Blocked-by-process) */ +#define Blocked_by_interlocking 10 /* ÓÉÓÚ¿ª¹ØÉ豸»¥Ëø,±ÕËø¿ØÖƶ¯×÷ (Blocked-by-interlocking) */ +#define Blocked_by_synchrocheck 11 /* ÓÉÓÚ³¬Ê±»òͬÆÚÌõ¼þ²»Âú×ã,ÖÕÖ¹¿ØÖÆ (Blocked-by-synchrocheck) */ +#define Command_already 12 /* ÃüÁîÒѾ­ÔÚÖ´ÐÐÖÐ (Command-already-in-execution)*/ +#define Blocked_by_health 13 /* ±»½¡¿µ×´¿öËù±ÕËø (Blocked-by-health) */ +#define n_of_1_control 14 /* ÓÉÓÚÆäËû¿ØÖƶ¯×÷ÒÑÔËÐÐ,±ÕËø¿ØÖÆ (1-of-n-control) */ +#define Abortion_by_cancel 15 /* ±»Cancel·þÎñÖÐÖ¹ (Abortion-by-cancel) */ +#define Time_limit_over 16 /* ÓÉÓÚ³¬Ê±,ÖÕÖ¹¿ØÖƶ¯×÷ (Time-limit-over) */ +#define Abortion_by_trip 17 /* ÓÉÓÚ±£»¤ÌøÕ¢,ÖÕÖ¹¿ØÖÆ (Abortion-by-trip) */ +#define Object_not_selected 18 /* ¶ÔÏóδ±»Ñ¡Ôñ (Object-not-selected) */ +/*À뿪WaitForChange״̬֮ºó*/ +#define OPERATE_ONCE 0 /* Èç¹ûsboClassΪoperate_once,ÐÂ״̬ΪδѡÔñµÄ*/ +#define OPERATE_MANY 1 /* Èç¹ûsboClassΪoperate_many,ÐÂ״̬Ϊ׼±¸¾ÍÐ÷*/ + +#define WaitForChangeTimer 5000 +/************************************************************************/ +/* UCA SPECIFIC DATA ELEMENTS */ +/************************************************************************/ + +typedef struct mvlu_rd_va_ctrl + { + MVL_IND_PEND *indCtrl; + MVLAS_RD_VA_CTRL *rdVaCtrl; + RUNTIME_TYPE *rt; +#if defined(MVL_UCA) +#if defined(MVL_XNAME) + ST_CHAR xName[MAX_IDENT_LEN+1]; +#endif + ST_CHAR *primData; + ST_RTREF primRef; + ST_UINT prim_num; /* index to data */ + ST_UINT prim_offset_base; /* mem offset from start of "base" var */ +#endif /* defined(MVL_UCA) */ + } MVLU_RD_VA_CTRL; + +typedef struct mvlu_wr_va_ctrl + { + MVL_IND_PEND *indCtrl; + MVLAS_WR_VA_CTRL *wrVaCtrl; + RUNTIME_TYPE *rt; +#if defined(MVL_UCA) +#if defined(MVL_XNAME) + ST_CHAR xName[MAX_IDENT_LEN+1]; +#endif + ST_CHAR *primData; + ST_RTREF primRef; + ST_UINT prim_num; /* index to data */ + ST_UINT prim_offset_base; /* mem offset from start of "base" var */ +#endif /* defined(MVL_UCA) */ + } MVLU_WR_VA_CTRL; + +ST_VOID mvlu_wr_prim_done (MVLU_WR_VA_CTRL *mvluWrVaCtrl, ST_RET rc); +ST_VOID mvlu_rd_prim_done (MVLU_RD_VA_CTRL *mvluRdVaCtrl, ST_RET rc); +ST_VOID mvlu_read_ind (MVL_IND_PEND *indCtrl); + +/* These function pointers are invoked to initialize the va->data */ +/* element for each VariableAssociation required to handle the MMS */ +/* indication. */ + +extern ST_VOID(*mvluAsyncWrIndFun)(struct mvlu_wr_va_ctrl *mvluWrVaCtrl); + +/* Alternate leaf handler function pointers */ +extern ST_VOID (*u_mvlu_leaf_rd_ind_fun)(MVLU_RD_VA_CTRL *mvluRdVaCtrl); +extern ST_VOID (*u_mvlu_leaf_wr_ind_fun)(MVLU_WR_VA_CTRL *mvluWrVaCtrl); + +/* Finding and setting leaf access parameters */ +RUNTIME_TYPE *mvlu_find_rt_leaf (ST_INT type_id, ST_CHAR *leafName); + +#define MVLU_SET_RD_FUN 0x01 +#define MVLU_SET_WR_FUN 0x02 +#define MVLU_SET_REF 0x04 +#define MVLU_SET_ALL (MVLU_SET_RD_FUN | MVLU_SET_WR_FUN | MVLU_SET_REF) + +ST_RET mvlu_set_leaf_param (ST_INT setFlags, ST_CHAR *leafName, + ST_RTINT rdIndFunIndex, ST_RTINT wrIndFunIndex, + ST_RTREF ref); + + +/************************************************************************/ +/************************************************************************/ +/* Leaf Access Function Tables. To be supplied by the user. */ + +/* Comment the following line out to compile out the Foundry supplied */ +/* Leaf Access function pointer tables, so custom tables can be used */ +/*#define MVLU_USR_FUN_TBLS */ + +/* Remove this MVLU_LEAF_FUN_LOOKUP_ENABLE define to save memory, + * but ONLY IF NOT mapping leaf functions at run-time (i.e. not calling + * mvlu_set_leaf_param_name or mvlu_find_rd(wr)_ind_fun_index). + * NOTE: this define is required if SCL configuration is used. + */ +#define MVLU_LEAF_FUN_LOOKUP_ENABLE + +typedef struct + { +#if defined MVLU_LEAF_FUN_LOOKUP_ENABLE + ST_CHAR *fun_name; +#endif + ST_VOID (*fun_ptr) (MVLU_RD_VA_CTRL *rdCtrl); + } MVLU_RD_FUN_INFO; +extern MVLU_RD_FUN_INFO mvluRdFunInfoTbl[]; +extern ST_INT mvluNumRdFunEntries; + +typedef struct + { +#if defined MVLU_LEAF_FUN_LOOKUP_ENABLE + ST_CHAR *fun_name; +#endif + ST_VOID (*fun_ptr) (MVLU_WR_VA_CTRL *wrCtrl); + } MVLU_WR_FUN_INFO; +extern MVLU_WR_FUN_INFO mvluWrFunInfoTbl[]; +extern ST_INT mvluNumWrFunEntries; + +/* Useful for flexible initialization of leaf function tables */ +#if defined MVLU_LEAF_FUN_LOOKUP_ENABLE +#define _MVLU_LEAF_FUN_INIT(_funName) #_funName, _funName +#else +#define _MVLU_LEAF_FUN_INIT(_funName) _funName +#endif +ST_RTINT mvlu_find_rd_ind_fun_index (ST_CHAR *funName); +ST_RTINT mvlu_find_wr_ind_fun_index (ST_CHAR *funName); + + +/************************************************************************/ + +ST_RET mvlu_set_leaf_param_name (ST_INT setFlags, ST_CHAR *leafName, + ST_CHAR *rdIndFunName, ST_CHAR *wrIndFunName, + ST_CHAR *refString); +ST_RET mvlu_set_leaf_param_name2 (ST_INT base_var_type_id, + ST_INT setFlags, + ST_CHAR *leafName, + ST_CHAR *rdIndFunName, + ST_CHAR *wrIndFunName, + ST_CHAR *refString); +ST_RET mvlu_load_xml_leaf_file (ST_CHAR *fileName); +ST_RET u_mvlu_resolve_leaf_ref (ST_CHAR *leafName, ST_INT *setFlags, + ST_CHAR *refText, ST_RTREF *refOut); + +/* Prefix to use in XML LAP file, or when calling "mvlu_set_leaf_param_name" + * if you want a quoted string to be saved as the Reference. + * Following this is the string to be saved. + * This is used for SBO select, in which case the saved string must be + * the name of the protected element. Foundry and the sample "reference + * resolve leaf" function look for this prefix. + */ +#define MVLU_STRING_REF_PREFIX "MVLU_STR:" + +/* Internal */ +ST_VOID _mvlu_null_read_ind (MVLU_RD_VA_CTRL *mvluRdVaCtrl); +ST_VOID _mvlu_null_write_ind (MVLU_WR_VA_CTRL *mvluWrVaCtrl); + + + +typedef struct + { + ST_CHAR ucaName [MAX_IDENT_LEN+1]; + RUNTIME_TYPE *rt; + ST_INT sortedNum; + ST_INT rtIndex; + } MVLU_UCA_NAME_CTRL; + +ST_RET mvlu_proc_rt_type (ST_CHAR *typeName, RUNTIME_CTRL *rtCtrl, + MVLU_UCA_NAME_CTRL **ucaNamesOut); + +/************************************************************************/ +/************************************************************************/ +/* UCA REPORT CONTROL */ +/************************************************************************/ + +#define MVLU_RPT_NUM_VA_DATA_BUF 3 + +/* TrgOpsvalues, also used as Reason values */ +#define MVLU_TRGOPS_DATA 0x40 +#define MVLU_TRGOPS_QUALITY 0x20 +#define MVLU_TRGOPS_FREEZE 0x10 +#define MVLU_TRGOPS_INTEGRITY 0x08 /* Bit 4 */ +#define MVLU_TRGOPS_GI 0x04 /* Bit 5 */ + +/* OptFlds bit masks */ +#define MVLU_SQNUM_MASK 0x40 +#define MVLU_RPTTIM_MASK 0x20 +#define MVLU_REASONS_MASK 0x10 +#define MVLU_OUTDAT_MASK 0x08 + +/* TrgOps bit numbers for IEC-61850. */ +/* Use "bit" macros (BSTR_BIT_*) to access each individual bit. */ +#define TRGOPS_BITNUM_RESERVED 0 +#define TRGOPS_BITNUM_DATA_CHANGE 1 /* "dchg" in some specs */ +#define TRGOPS_BITNUM_QUALITY_CHANGE 2 /* "qchg" in some specs */ +#define TRGOPS_BITNUM_DATA_UPDATE 3 /* "dupd" in some specs */ +#define TRGOPS_BITNUM_INTEGRITY 4 /* "period" in 61850-6 */ +#define TRGOPS_BITNUM_GENERAL_INTERROGATION 5 + +/* OptFlds bit numbers for IEC-61850. */ +/* Use "bit" macros (BSTR_BIT_*) to access each individual bit. */ +/* NOTE: DATSETNAME in IEC-61850 same as OUTDAT in UCA. */ +/* NOTE: bit numbers 1 thru 4 correspond to the masks MVLU_SQNUM_MASK, */ +/* MVLU_RPTTIM_MASK, MVLU_REASONS_MASK, MVLU_OUTDAT_MASK above. */ +/* Bit masks don't work well beyond 8 bits. */ +#define OPTFLD_BITNUM_RESERVED 0 +#define OPTFLD_BITNUM_SQNUM 1 +#define OPTFLD_BITNUM_TIMESTAMP 2 +#define OPTFLD_BITNUM_REASON 3 +#define OPTFLD_BITNUM_DATSETNAME 4 +#define OPTFLD_BITNUM_DATAREF 5 +#define OPTFLD_BITNUM_BUFOVFL 6 +#define OPTFLD_BITNUM_ENTRYID 7 +#define OPTFLD_BITNUM_CONFREV 8 +#define OPTFLD_BITNUM_SUBSEQNUM 9 /* segmentation in 61850-8-1*/ + +/* Flags to pass as "rcb_type" arg to mvlu_create_rpt_ctrl. */ +/* Saved in "rcb_type" parameter of MVLU_RPT_CTRL. */ +#define RCB_TYPE_UCA 0 +#define RCB_TYPE_IEC_BRCB 1 +#define RCB_TYPE_IEC_URCB 2 + +/* Flags to pass as "buftim_action" arg to mvlu_create_rpt_ctrl. */ +/* Saved in "buftim_action" parameter of MVLU_RPT_CTRL. */ +#define MVLU_RPT_BUFTIM_REPLACE 0 +#define MVLU_RPT_BUFTIM_SEND_NOW 1 + +/* Basic Report Control Block data */ +typedef struct + { + ST_BOOLEAN RptEna; + ST_BOOLEAN Resv; /* Used only for 61850 URCB. */ + ST_CHAR RptID[MVL61850_MAX_RPTID_LEN+1]; + /* NOTE: DatSetNa is shorter for UCA, but bigger buffer shouldn't hurt.*/ + ST_CHAR DatSetNa[MVL61850_MAX_OBJREF_LEN+1]; + struct /* BVstring */ + { + ST_INT16 len_1; + ST_UCHAR data_1[2]; /* BVstring9 - need 2 bytes */ + } OptFlds; + ST_UINT32 BufTim; + ST_UINT16 Trgs; + ST_UINT8 SqNum; /* Used for UCA & 61850 URCB */ + ST_UINT16 SqNumInt16u; /* Used for 61850 BRCB */ + struct /* BVstring */ + { + ST_INT16 len; + ST_UCHAR data[1]; /* BVstring8 - need 1 byte */ + } TrgOps; + ST_UINT32 RBEPd; + ST_UINT32 IntgPd; + ST_UINT32 ConfRev; /* Used only for 61850 BRCB/URCB. */ + ST_UCHAR EntryID[8]; /* Used only for 61850 BRCB (Ostring8). */ + MMS_BTIME6 TimeofEntry; /* Used only for 61850 BRCB. */ + } MVLU_BASRCB; + +/* UCA Report Client control */ +typedef struct + { + DBL_LNK l; /* Internal use */ + MVL_NET_INFO *netInfo; + struct mvlu_rpt_ctrl *rpt_ctrl; /* report control */ + MVLU_BASRCB basrcb; /* report data */ + +/* Transmit timing control */ + ST_DOUBLE next_integ_rpt_time; + ST_DOUBLE next_rbe_rpt_time; + ST_DOUBLE buf_time_done; + ST_BOOLEAN integ_scan_in_progress; + +/* Data state control */ + ST_UINT16 numTrgs; + ST_UINT8 *reasons_data; /* array of reasons */ + ST_UINT8 *changed_flags; /* bitstring */ + ST_UINT8 *segmented_inclusion;/* inclusion bitstring for segmented rpt*/ + MVL_IND_PEND *scan_read_ind; /* Indication to pass to u_mvl_read_ind for scan*/ + } MVLU_RPT_CLIENT; + +/************************************************************************/ +/* Structures for saving Buffered report data. */ +/************************************************************************/ +/* VAR_DATA - data for one variable of a Report Dataset. */ +typedef struct var_data + { + ST_VOID *data_ptr; /* ptr to raw MMS Variable data */ + /* (allocated) */ + ST_INT data_len; /* length of raw MMS Variable data */ + ST_UINT8 reason_for_incl; /* reason for inclusion */ + } VAR_DATA; + +/* BUFLIST_ENTRY - data for one buffered rpt (stored on linked list). */ +/* Data in this struct usually changes with each Report, so must be */ +/* saved in the buffer. Other data may be taken directly from the RCB */ +/* when a Report is sent. */ +typedef struct buflist_entry + { + /* CRITICAL: First 2 parameters used to add this struct to linked */ + /* lists using list_add_last, etc. */ + struct buflist_entry *next; /* CRITICAL: DON'T MOVE. */ + struct buflist_entry *prev; /* CRITICAL: DON'T MOVE. */ + ST_UCHAR EntryID[8]; /* Rpt EntryID (Ostring8) */ + MMS_BTIME6 TimeOfEntry; /* Rpt TimeOfEntry */ + ST_INT num_var; /* Num of var in var_data array */ + VAR_DATA *var_data; /* Ptr to array of structs, one for each*/ + /* var (allocated) */ + ST_INT *asn1_len_array; /* Array of ASN.1 lengths, one for each */ + /* var in Dataset (allocated) */ + ST_INT cur_va_index; /* Index to next var in Dataset to send */ + /* (used when segmenting) */ + ST_UINT16 SubSeqNum; /* SubSeqNum of next segment to send */ + } BUFLIST_ENTRY; + +/* MVL61850_BRCB_CTRL */ +typedef struct + { + /* Optional parameters to send in rpt (if appropriate OptFlds bit set).*/ + ST_BOOLEAN BufOvfl; + /* Internal parameters */ + BUFLIST_ENTRY *rpt_list; /* Linked list of buffered reports */ + BUFLIST_ENTRY *rpt_list_next; /* Next rpt to send from "rpt_list" */ + /* (NULL if list empty or all sent) */ + ST_INT rpt_count; /* count of entries in "rpt_list" */ + /* once buffer's full, shouldn't change much*/ + ST_UINT rpts_lost_count; /* # rpts lost because of overflow */ + ST_INT rpts_sent_total;/*renxiaobao ±¨¸æ*/ + ST_INT brcb_bufsize; + ST_INT cur_bufsize; + ST_BOOLEAN enabled_once; /* TRUE if BRCB was enabled at least once*/ + ST_UCHAR lastSentEntryID[8]; + MMS_BTIME6 lastSentTimeOfEntry; + } MVL61850_BRCB_CTRL; + +/* TypeIDs for special report types created by mvlu_rpt_init_types. */ +typedef struct + { + ST_INT mmsbool; /* named so not confused with C++ 'bool' type */ + ST_INT int8u; /* for SqNum */ + ST_INT int16u; + ST_INT int32u; + ST_INT vstring65; /* for RptID */ + ST_INT btime6; /* for EntryTime */ + ST_INT ostring8; /* for EntryID */ + ST_INT vstring32; /* for RptId */ + ST_INT bvstring6; /* for TrgOps (IEC) */ + ST_INT bvstring8; /* for OptFlds,TrgOps (UCA) */ + ST_INT bvstring10; /* for OptFlds (IEC) */ + ST_INT bstr6; /* for Reason (IEC) */ + ST_INT bstr8; /* for Reason (UCA) */ + ST_INT vstring129; /* for ObjectReference (IEC) */ + } MVLU_RPT_TYPEIDS; + +/* For backward compatibility ... do not use */ +#define MVLU_SEQNUM_MASK MVLU_SQNUM_MASK + +#define MVLU_MAX_RPTID_LEN 65 +#define MVLU_MAX_OUTDAT_LEN 65 + + +/* MVLU_RPT_CTRL */ +typedef struct mvlu_rpt_ctrl + { + DBL_LNK l; /* Internal use */ + +/* Active clients */ + +/* NOTE: "only_client" for 61850 only. */ + MVLU_RPT_CLIENT only_client; /* exactly 1. Don't need list */ + +/* NOTE: "num_rpt_clients", "rpt_client_list", "common_basrcb" for UCA only.*/ + ST_INT num_rpt_clients; + MVLU_RPT_CLIENT *rpt_client_list; + +/* basrcb data for passive read clients */ + MVLU_BASRCB common_basrcb; + ST_CHAR *basrcb_name; + +/* Used in read/write indication functions in finding the report ctrl */ + RUNTIME_TYPE *rcbRtHead; + MVL_VAR_ASSOC *base_va; + +/* Used to support different report schemes */ + ST_INT rcb_type; /* RCB_TYPE_UCA, RCB_TYPE_IEC_BRCB, etc. */ + +/* Action to be taken if var changes twice before buftim expires */ + ST_INT buftim_action; /* MVLU_RPT_BUFTIM_REPLACE/SEND_NOW */ + +/* The information below is used internally by MVLU */ + MVL_NVLIST_CTRL *dsNvl; /* The base dataSet for the report */ + MVL_NVLIST_CTRL rptNvl; /* The NVL used to send the InfoRpt */ + RUNTIME_TYPE incRt; /* Used in building the inclusion_va */ + ST_INT maxNumRptVars; /* Max vars allowed in report. */ + MVLU_RPT_TYPEIDS rpt_typeids; /* Types needed for reports. */ + ST_INT inclusion_typeid; /* One more special type. */ + MVL61850_BRCB_CTRL brcbCtrl; /* Used only for 61850 BRCB. */ + ST_DOUBLE scan_rate; /* Scan rate in milliseconds */ + ST_DOUBLE next_scan_start; /* Time for next scan */ + } MVLU_RPT_CTRL; + +extern MVLU_RPT_CTRL *mvlu_rpt_ctrl_list; /* List of only UCA RCBs.*/ +extern MVLU_RPT_CTRL *mvl61850_rpt_ctrl_list; /* List of only 61850 RCBs.*/ + +/* UCA VA Scan Control */ +typedef struct + { + DBL_LNK l; /* Internal use */ + ST_BOOLEAN enable; + ST_DOUBLE scan_period; + ST_DOUBLE next_scan_start; + ST_BOOLEAN saturated; + ST_INT num_va_changes; + + ST_INT num_scan_va; + MVL_VAR_ASSOC **scan_va; + ST_INT num_va_read_pend; + + MVL_IND_PEND indCtrl; + MVL_COMM_EVENT commEvent; + MVL_SCOPE *scan_va_scope; /* ptr to array of structs. */ + ST_VOID *usr; /* user assignable pointer to use in scan callbacks*/ + } MVLU_RPT_SCAN_CTRL; +extern MVLU_RPT_SCAN_CTRL *mvlu_rpt_scan_list; + + +/* Report Service */ +ST_VOID mvlu_rpt_service (ST_VOID); + +/* Report Variable Scanning */ +MVLU_RPT_SCAN_CTRL *mvlu_rpt_create_scan_ctrl (ST_INT numScanVa); +MVLU_RPT_SCAN_CTRL *mvlu_rpt_create_scan_ctrl2 ( + MVL_NVLIST_CTRL *nvl, + ST_RET (*scan_done_fun) (struct mvl_ind_pend *ind_pend), + ST_UINT report_scan_rate); /* report scan rate (millisec) */ +ST_VOID mvlu_rpt_destroy_scan_ctrl (MVLU_RPT_SCAN_CTRL *scanCtrl); +ST_VOID mvlu_rpt_va_scan (ST_VOID); +ST_VOID mvlu_rpt_scan_read (MVLU_RPT_SCAN_CTRL *scanCtrl); + +/* Asynchronous Change Reporting */ +ST_VOID mvlu_rpt_va_change (MVL_VAR_ASSOC *va, + ST_UCHAR reason, + ST_VOID *new_data); + +/* Creating Report Dataset NVL's */ +MVL_NVLIST_CTRL *mvlu_derive_rpt_ds (ST_CHAR *domName, ST_CHAR *nvlName, + ST_INT numNodes, ST_CHAR **nodeNames); + +/* Structure Element name derivation */ +ST_RET mvlu_derive_ds_va_names (ST_CHAR *domName, + ST_INT numNodes, ST_CHAR **nodeNames, + ST_INT *numObjNamesOut, + OBJECT_NAME **objNameTblOut, + ST_CHAR **nameBufOut); + + +/* Report Control Create/Free */ +/* NOTE: The "buftim_action" arg may be set to + * MVLU_RPT_BUFTIM_REPLACE or MVLU_RPT_BUFTIM_SEND_NOW. + * This arg is only used in the case when buffer + * time (BufTim) is used, and a second data change is detected for the + * same "va", before the BufTim expires. To satisfy the requirements of + * IEC61850-7-2, the caller must set this flag to indicate whether to + * replace the buffered value with the new value and continue timing + * (MVLU_RPT_BUFTIM_REPLACE), OR to send a report immediately with the + * buffered value, save the new value in the buffer, and restart the timer + * (MVLU_RPT_BUFTIM_SEND_NOW). + */ +MVLU_RPT_CTRL *mvlu_create_rpt_ctrl (ST_CHAR *basrcbName, + MVL_NVLIST_CTRL *dsNvl, + MVL_VAR_ASSOC *base_va, + ST_INT rcb_type, + ST_INT buftim_action, /* MVLU_RPT_BUFTIM_* */ + ST_INT brcb_bufsize, /* for BRCB only */ + ST_UINT32 ConfRev); /* for BRCB/URCB only */ +ST_VOID mvlu_free_rpt_ctrl (MVLU_RPT_CTRL *rptCtrl); + +/* Main reporting functions for IEC 61850 only. */ +MVLU_RPT_CTRL *mvl61850_create_rpt_ctrl (ST_CHAR *basrcbName, + MVL_NVLIST_CTRL *dsNvl, + MVL_VAR_ASSOC *base_va, + ST_INT rcb_type, + ST_INT buftim_action, /* MVLU_RPT_BUFTIM_* */ + ST_INT brcb_bufsize, /* for BRCB only */ + ST_UINT32 ConfRev); /* for BRCB/URCB only */ +ST_VOID mvl61850_free_rpt_ctrl (MVLU_RPT_CTRL *rptCtrl); +ST_VOID mvl61850_rpt_service (char *dom,char CHG); +ST_RET mvl61850_rpt_dataset_create (MVLU_RPT_CTRL *rptCtrl, + MVL_NVLIST_CTRL *dsNvl); +ST_VOID mvl61850_rpt_dataset_destroy (MVLU_RPT_CTRL *rptCtrl); + +/************************************************************************/ +/* mvlu_integrity_scan_destroy */ +/* Free temporary MVL_IND_PEND allocated by mvlu_integrity_scan_read. */ +/************************************************************************/ +ST_VOID mvlu_integrity_scan_destroy (MVL_IND_PEND *indCtrl); + +/* + * mvlu_integrity_scan_read + * This function "BEGINS" the scan of ALL data for one Report DataSet (NVL). + * It is called automatically when an Integrity Report or a + * General Interrogation Report needs to be sent. This is much more + * efficient than constantly scanning. + * - It allocates & initializes a temporary MVL_IND_PEND structure. + * - It calls "u_mvl_read_ind" to begin the scan. + * - The scan may complete synchronously or asynchronously. + * - When the scan completes, the funct pointed to by "scan_done_fun" arg + * is called to build the report and cleanup. + * CRITICAL: Function pointed to by "scan_done_fun" must call + * "mvlu_integrity_scan_destroy" to free temporary MVL_IND_PEND struct. + */ + +ST_VOID mvlu_integrity_scan_read (MVLU_RPT_CLIENT *rptClient, + ST_VOID (*scan_va_done_fun)(MVL_IND_PEND *indCtrl, + MVL_VAR_ASSOC *va), + ST_RET (*scan_done_fun)(MVL_IND_PEND *indCtrl) + ); + +MVL_IND_PEND *mvlu_setup_scan_read (MVL_NVLIST_CTRL *nvl, + ST_VOID (*scan_va_done_fun)(MVL_IND_PEND *indCtrl, + MVL_VAR_ASSOC *va), + ST_RET (*scan_done_fun)(MVL_IND_PEND *indCtrl) + ); + +/************************************************************************/ +/* mvlu_integrity_timeout */ +/* Check for Integrity period timeout. If timeout occurred, start */ +/* integrity scan. */ +/* RETURNS: SD_TRUE if IntgPd is set and timeout occurred */ +/* SD_FALSE otherwise */ +/************************************************************************/ +ST_RET mvlu_integrity_timeout (MVLU_RPT_CLIENT *rptClient, ST_DOUBLE timeNow); + +/* Pointer to one of these functions passed to "mvlu_integrity_scan_read", + * saved in "usr_done_fun" in MVL_IND_PEND struct. Called when scan completes. + */ +ST_RET mvlu_integrity_scan_done (MVL_IND_PEND *indCtrl); +ST_RET mvlu_gi_scan_done (MVL_IND_PEND *indCtrl); + +/* Pointer to one of these functions passed to "mvlu_integrity_scan_read", + * stored in global var. Called when each va read completes. + */ +ST_VOID mvlu_integrity_scan_va_done (MVL_IND_PEND *indCtrl, MVL_VAR_ASSOC *va); +ST_VOID mvlu_gi_scan_va_done (MVL_IND_PEND *indCtrl, MVL_VAR_ASSOC *va); + +extern ST_VOID (*_mvlu_rpt_disconnect_rcvd_fun)(MVL_NET_INFO *netInfo); + +MVL_NVLIST_CTRL *mvlu_resolve_uca_nvl (MVL_NVLIST_CTRL *ucaNvl, + OBJECT_NAME *scopeSel); + +/* Defines for UCA/IEC report type, "rpt_type" arg to "mvlu_send_report"*/ +#define MVLU_RPT_TYPE_INTEGRITY_OR_GI 0 +#define MVLU_RPT_TYPE_RBE 1 + +ST_RET mvlu_send_report (MVLU_RPT_CLIENT *rptClient, ST_INT rpt_type); + +/* u_mvlu_rpt_time_get - User callback function to set accurate time + * that UCA/IEC report is built, called by "mvlu_send_report" or + * "mvl61850_rcb_build" when report is being built. + */ +ST_VOID u_mvlu_rpt_time_get (MMS_BTIME6 *TimeOfEntry); + +/* Misc. Helper Functions */ +ST_INT mvlu_rpt_get_va_index (MVLU_RPT_CTRL *rptCtrl, MVL_VAR_ASSOC *va); +MVLU_BASRCB *_mvlu_get_rd_rcb (MVLU_RD_VA_CTRL *mvluRdVaCtrl, + MVLU_RPT_CLIENT **rptClientOut); +MVLU_BASRCB *_mvlu_get_wr_rcb (MVLU_WR_VA_CTRL *mvluWrVaCtrl, + MVLU_RPT_CLIENT **rptClientOut); +MVLU_BASRCB *mvl61850_get_rcb (MVL_VAR_ASSOC *baseVa, + RUNTIME_TYPE *rt, + MVLU_RPT_CLIENT **rptClientOut); + +ST_VOID _mvlu_rpt_disconnect_rcvd (MVL_NET_INFO *netInfo); +ST_RET mvlu_rpt_find_typeids (MVLU_RPT_TYPEIDS *rpt_typeids); +ST_RET mvlu_rpt_rcb_type_find (ST_INT type_id, ST_CHAR *basrcbName, + RUNTIME_TYPE **rcbHeadOut, ST_INT *numRtOut); + + +ST_RET mvlu_find_uca_var (RUNTIME_TYPE **rtIo, ST_INT *numRtIo, + ST_CHAR *varName); + + +/************************************************************************/ +/************************************************************************/ +/* SBO HANDLING ELEMENTS */ + +#define SBO_SELECT_TIMEOUT 30 /* seconds */ +#define MAX_NUM_SBO_PEND 10 /* Number of SBOs to be pending */ +#define MAX_SBO_NAME_SIZE 66 + +typedef struct mvl_sbo_ctrl + { + ST_BOOLEAN in_use; /* control element management */ + ST_INT ctlState; /* Control state (MVL61850_CTLSTATE_*) */ + ST_BOOLEAN use_ms_timer; /* if TRUE, use expire_time_ms below*/ + ST_CHAR sbo_var[MVL61850_MAX_OBJREF_LEN+1]; /* ObjRef of "Oper" attr*/ + MVL_NET_INFO *net_info; /* Connection ID */ + time_t expire_time; /* SELECT expiration time */ + ST_DOUBLE expire_time_ms; /* SELECT expiration time in ms */ + ST_INT8 ctlModel; /* sbo-with-normal-security, etc*/ + ST_INT8 sboClass; /* operate-once or operate-many */ + /* renxiaobao ¿ØÖÆ*/ + double Oper_WaitForChangeTimer; + short Oper_data_len; + void *Oper_map_entry; + void *Oper_ctlVal; + void *Oper_stVal; + MVL61850_LAST_APPL_ERROR LastApplError; + } MVL_SBO_CTRL; + + +ST_VOID u_mvl_sbo_operate (MVL_SBO_CTRL *sboSelect, + MVLU_WR_VA_CTRL *mvluWrVaCtrl); + +ST_VOID mvlu_clr_pend_sbo (MVL_NET_INFO *net_info); + +MVL_SBO_CTRL *mvlu_sbo_chk_state (ST_CHAR *sboName, + MVL_NET_INFO *net_info); +ST_VOID mvlu_sbo_chk_timers (ST_VOID); +ST_VOID mvlu_sbo_ctrl_free (MVL_SBO_CTRL *sboCtrl); +MVL_SBO_CTRL *initSboCtrl (MVL_NET_INFO *net_info, + ST_CHAR *sbo_name, + ST_UINT32 sboTimeout, + ST_BOOLEAN use_ms_timer); + + +/************************************************************************/ +/************************************************************************/ +/* IEC-61850 functions */ +/************************************************************************/ + +/* + * mvl61850_brcb_client_service + * + * Check the BRCB state and, if necessary, + * encode, queue, AND/OR send IEC "Buffered" reports. + */ +ST_VOID mvl61850_brcb_client_service (MVLU_RPT_CTRL *rptCtrl, + MVLU_RPT_CLIENT *rptClient, + ST_DOUBLE timeNow); + +/** + * mvl61850_urcb_client_service + * + * Check the URCB state and, if necessary, + * encode AND send IEC "Unbuffered" reports. + */ +ST_VOID mvl61850_urcb_client_service (MVLU_RPT_CTRL *rptCtrl, + MVLU_RPT_CLIENT *rptClient, + ST_DOUBLE timeNow); + +ST_RET mvlu_rpt_ready (MVLU_RPT_CLIENT *rptClient, ST_INT rpt_type); +ST_RET mvl61850_urcb_rpt_send (MVLU_RPT_CTRL *rptCtrl, + MVLU_RPT_CLIENT *rptClient, + ST_INT rpt_type); +ST_RET mvl61850_brcb_rpt_save (MVLU_RPT_CLIENT *rptClient); +ST_RET mvl61850_brcb_rpt_send (MVLU_RPT_CTRL *rptCtrl, + MVLU_RPT_CLIENT *rptClient, + BUFLIST_ENTRY *buflist_entry, + ST_BOOLEAN *all_seg_done); +ST_VOID mvl61850_brcb_entryid_init (MVLU_RPT_CTRL *rptCtrl, ST_UINT8 *EntryID); + +ST_VOID mvl61850_brcb_rpt_lists_clean (MVL61850_BRCB_CTRL *brcbCtrl); + +/* Internal IEC 61850 reporting functions (not called by user). */ +ST_RET mvl61850_mk_rptid (MVLU_RPT_CTRL *rptCtrl, ST_CHAR *RptID, size_t max_len); +ST_VOID mvl61850_mk_dataref (MVL_VAR_ASSOC *va, MVL_SCOPE *va_scope, + ST_CHAR *databuf, ST_INT maxlen); +ST_VOID mvl61850_rcb_cleanup (MVLU_RPT_CLIENT *rptClient); +ST_RET mvl61850_brcb_rpt_set_entryid (MVLU_RPT_CLIENT *rptClient, ST_UCHAR *EntryID); +ST_VOID mvl61850_rcb_chk_state (MVLU_RPT_CTRL *rptCtrl, + MVLU_RPT_CLIENT *rptClient, + ST_DOUBLE timeNow); +ST_RET mvl61850_integrity_timeout (MVLU_RPT_CLIENT *rptClient, ST_DOUBLE timeNow); +ST_BOOLEAN chk_seg_needed (MVLU_RPT_CLIENT *rptClient, + ST_INT *asn1_len_array, + ST_INT cur_va_index, /* input arg */ + ST_INT *next_va_index); /* output arg */ + +/************************************************************************/ +/* IEC 61850 "Control Model" functions. */ +/************************************************************************/ +ST_VOID mvl61850_sbo_create_sboname (MVL_VAR_ASSOC *va, MVL_SCOPE *va_scope, + ST_CHAR *sboName); + +MVL_SBO_CTRL *mvl61850_ctl_chk_sbo (MVLU_RD_VA_CTRL *mvluRdVaCtrl); +MVL_SBO_CTRL *mvl61850_ctl_chk_sbow (MVLU_WR_VA_CTRL *mvluWrVaCtrl); + +ST_RET mvl61850_ctl_chk_state (MVLU_WR_VA_CTRL *mvluWrVaCtrl); + +ST_RET mvl61850_ctl_lastapplerror_create (ST_VOID); +ST_RET mvl61850_ctl_lastapplerror_send (MVL_NET_INFO *net_info, + MVL61850_LAST_APPL_ERROR *last_appl_error); +ST_RET mvl61850_ctl_command_termination (MVL_NET_INFO *net_info, ST_CHAR *oper_ref, + ST_RET status, MVL61850_LAST_APPL_ERROR *last_appl_error); +ST_VOID mvl61850_ctl_req_done (MVLAS_WR_VA_CTRL *wrVaCtrl, MVL_NET_INFO *net_info); + +/* These callback functions must be supplied by user. */ +ST_VOID u_mvl61850_ctl_oper_begin (ST_CHAR *oper_ref); +/*renxiaobao ¿ØÖÆ*/ +/*ST_VOID u_mvl61850_ctl_oper_end (MVL_NET_INFO *net_info, ST_CHAR *oper_ref, MVL_VAR_ASSOC *base_var);*/ +ST_VOID u_mvl61850_ctl_oper_end (MVL_NET_INFO *net_info, ST_CHAR *oper_ref, MVL_VAR_ASSOC *base_var, + void *ctlVal,void *stVal,short len,void *map_entry,MVL61850_LAST_APPL_ERROR *LastApplError); + +ST_RET mvl61850_mkname_ctlmodel (ST_CHAR *var_name, ST_CHAR *flatname, size_t flatname_len); + +/************************************************************************/ +/* Miscellaneous helper functions */ +/************************************************************************/ +ST_VOID mvlu_trim_branch_name (ST_CHAR *branch_name); +ST_RET mvlu_find_comp_type (ST_INT base_type_id, ST_CHAR *flat_name, + RUNTIME_TYPE **sub_rt_type, /* out */ + ST_INT *sub_rt_num); /* out */ + +ST_RET mvlu_get_leaf_val_int8 (MVL_VAR_ASSOC *base_va, ST_CHAR *flatname, ST_INT8 *data); +ST_RET mvlu_get_leaf_val_int32 (MVL_VAR_ASSOC *base_va, ST_CHAR *flatname, ST_INT32 *data); +ST_RET mvlu_get_leaf_val_int_any (MVL_VAR_ASSOC *base_va, ST_CHAR *flatname, ST_INT32 *data); +ST_RET mvlu_get_leaf_val_uint32 (MVL_VAR_ASSOC *base_va, ST_CHAR *flatname, ST_UINT32 *data); +ST_RET mvlu_get_leaf_val_boolean (MVL_VAR_ASSOC *base_va, ST_CHAR *flatname, ST_BOOLEAN *data); +ST_RET mvlu_get_leaf_val_bvstring (MVL_VAR_ASSOC *base_va, ST_CHAR *flatname, + MMS_BVSTRING *data, ST_INT max_num_bits); +ST_VOID *mvlu_get_leaf_data_ptr (MVL_VAR_ASSOC *base_va, ST_CHAR *flatname, RUNTIME_TYPE **rt_type); +ST_RET _rcb_writable (MVLU_BASRCB *rcb, MVLU_RPT_CLIENT *rptClient, + MVLU_WR_VA_CTRL *mvluWrVaCtrl); +ST_RET mvl61850_objref_create (ST_CHAR *objName, + MVL_SCOPE *objScope, + ST_CHAR *objRef); /* ptr to ObjectReference */ + +/************************************************************************/ +/* Global variables. */ +/************************************************************************/ +extern MVL_SBO_CTRL sbo_pool[]; /* array of SBO control structures. */ + +/* This function pointer called BEFORE all write leaf functions. */ +/* NOTE: called only for complex variables (struct or array). */ +extern ST_RET (*u_mvl_wr_ind_var_start)(MVL_IND_PEND *indCtrl, + MVLAS_WR_VA_CTRL *wrVaCtrl); /* current var in list of var */ + +/* This function pointer called AFTER all write leaf functions. */ +/* NOTE: called only for complex variables (struct or array). */ +extern ST_RET (*u_mvl_wr_ind_var_end)(MVL_IND_PEND *indCtrl, + MVLAS_WR_VA_CTRL *wrVaCtrl); /* current var in list of var */ + +/************************************************************************/ +#ifdef __cplusplus +} +#endif + +#endif /* MVL_UCA_INCLUDED */ + diff --git a/mmslib/inc/ntddosi.h b/mmslib/inc/ntddosi.h new file mode 100644 index 0000000..0cf01a6 --- /dev/null +++ b/mmslib/inc/ntddosi.h @@ -0,0 +1,114 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1996, All Rights Reserved */ +/* */ +/* MODULE NAME : osillc.h */ +/* PRODUCT(S) : OSI LLC NDIS 3.0 Device Driver for NT */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 05/13/98 DSF 05 Added SeqNumber field to PACKET_BLOCK */ +/* 05/07/98 DSF 04 The size of PACKET_BLOCK is now user-settable*/ +/* 06/19/97 DSF 03 Added Stats */ +/* 09/10/96 DSF 02 Used Length field in SET_MULTI */ +/* 05/22/96 DSF 01 Initial Release */ +/* */ +/************************************************************************/ + +#ifndef __NTDDOSILLC +#define __NTDDOSILLC + +#if defined (_NTDDK_) +#include +#else +#include +#endif + +#pragma pack(1) + +// +// standard 802.3 defines (not defined elsewhere) +// +#define ETH_LENGTH_OF_HEADER 14 +#define ETH_MINIMUM_LENGTH_OF_DATA 46 +#define ETH_MAXIMUM_LENGTH_OF_DATA 1500 +#define ETH_LENGTH_OF_FRAME 1514 + + +// max number of packets that will be returned at a time +#define OSILLC_MAX_RXPACKETS 10 + +typedef struct _NT_PACKET_DATA +{ + ULONG Length; + UCHAR Data[ETH_LENGTH_OF_FRAME]; +} NT_PACKET_DATA, * PNT_PACKET_DATA; + +typedef struct _NT_PACKET_BLOCK +{ + ULONG NumberOfPackets; + ULONG SeqNumber; + NT_PACKET_DATA PacketData[1]; +} NT_PACKET_BLOCK, * PNT_PACKET_BLOCK; + + +#if 0 +typedef struct _NT_ARM_EVENT +{ + UINT Status; +} NT_ARM_EVENT; +#endif + + +typedef struct _PACKET_OID_DATA +{ + ULONG Oid; + ULONG Length; + UCHAR Data[1]; +} PACKET_OID_DATA, * PPACKET_OID_DATA; + + +#if !defined (GET_STATS_DEFINED) +typedef struct _GET_STATS +{ + ULONG XmitOk; + ULONG RcvOk; + ULONG XmitError; + ULONG RcvError; + ULONG RcvUnknown; + ULONG XmitInd; + ULONG RcvInd; + ULONG AllocError; +} GET_STATS; + +#define GET_STATS_DEFINED +#endif + +// base for IOCTLs +#define FILE_DEVICE_PROTOCOL 0x8000 + +#define OSILLC_CONTROL_CODE(request, method) \ + CTL_CODE(FILE_DEVICE_PROTOCOL, request, method, FILE_ANY_ACCESS) + +#define IOCTL_OSILLC_QUERY_OID OSILLC_CONTROL_CODE(0, METHOD_BUFFERED) +#define IOCTL_OSILLC_SET_OID OSILLC_CONTROL_CODE(1, METHOD_BUFFERED) +#define IOCTL_OSILLC_GET_STATS OSILLC_CONTROL_CODE(2, METHOD_BUFFERED) +#define IOCTL_OSILLC_SET_EVENT OSILLC_CONTROL_CODE(3, METHOD_BUFFERED) +#define IOCTL_OSILLC_CLEAR_EVENT OSILLC_CONTROL_CODE(4, METHOD_BUFFERED) +#define IOCTL_OSILLC_GET_MACNAME OSILLC_CONTROL_CODE(5, METHOD_BUFFERED) +#define IOCTL_OSILLC_ARM_EVENT OSILLC_CONTROL_CODE(6, METHOD_BUFFERED) +#define IOCTL_OSILLC_RESET OSILLC_CONTROL_CODE(7, METHOD_BUFFERED) + +#define IOCTL_OSILLC_GET_PACKETS OSILLC_CONTROL_CODE(8, METHOD_OUT_DIRECT) +#define IOCTL_OSILLC_SEND_PACKETS OSILLC_CONTROL_CODE(9, METHOD_IN_DIRECT) + +#endif + +#pragma pack() diff --git a/mmslib/inc/osillc.h b/mmslib/inc/osillc.h new file mode 100644 index 0000000..b433d5c --- /dev/null +++ b/mmslib/inc/osillc.h @@ -0,0 +1,97 @@ +//--------------------------------------------------------------------------- +// +// File: osillc.h +// +// Copyright (c) 1998,1999 SISCO, Inc. All rights reserved. +// +// Description: Driver external definitions. +// +// Author: A. Shajenko/Stratos Technology, Inc. +// +// History: +// 13-Sep-98 A. Shajenko Implemented. +// +//--------------------------------------------------------------------------- + +#ifndef _OSILLC_H +#define _OSILLC_H + +#if defined (_NTDDK_) +#include +#else +#include +#endif + +//////////////////////////////////////////////////////////////////////////////////// + +#pragma pack(1) + +// +// standard 802.3 defines (not defined elsewhere) +// +#define ETH_LENGTH_OF_HEADER 14 +#define ETH_MINIMUM_LENGTH_OF_DATA 46 +#define ETH_MAXIMUM_LENGTH_OF_DATA 1500 +#define ETH_LENGTH_OF_FRAME 1514 + + +// max number of packets that will be returned at a time +#define OSILLC_MAX_RXPACKETS 10 + +typedef struct _OSILLC_PACKET_DATA +{ + ULONG Length; + UCHAR Data[ETH_LENGTH_OF_FRAME]; +} OSILLC_PACKET_DATA, * POSILLC_PACKET_DATA; + +typedef struct _OSILLC_PACKET_BLOCK +{ + ULONG NumberOfPackets; + ULONG SeqNumber; + OSILLC_PACKET_DATA PacketData[OSILLC_MAX_RXPACKETS]; +} OSILLC_PACKET_BLOCK, * POSILLC_PACKET_BLOCK; + + +typedef struct _OSILLC_OID_DATA +{ + ULONG Oid; + ULONG Length; + ULONG BytesProcessed; + ULONG BytesNeeded; + ULONG Status; + UCHAR Data[1]; +} OSILLC_OID_DATA, * POSILLC_OID_DATA; + +typedef struct _OSILLC_GET_STATS +{ + ULONG XmitOk; + ULONG RcvOk; + ULONG XmitError; + ULONG RcvError; + ULONG RcvUnknown; + ULONG XmitInd; + ULONG RcvInd; + ULONG AllocError; +} OSILLC_GET_STATS, * POSILLC_GET_STATS; + +// base for IOCTLs +#define FILE_DEVICE_PROTOCOL 0x8000 + +#define OSILLC_CONTROL_CODE(request, method) \ + CTL_CODE(FILE_DEVICE_PROTOCOL, request, method, FILE_ANY_ACCESS) + +#define IOCTL_OSILLC_QUERY_OID OSILLC_CONTROL_CODE(0, METHOD_BUFFERED) +#define IOCTL_OSILLC_SET_OID OSILLC_CONTROL_CODE(1, METHOD_BUFFERED) +#define IOCTL_OSILLC_GET_STATS OSILLC_CONTROL_CODE(2, METHOD_BUFFERED) +#define IOCTL_OSILLC_GET_MACNAME OSILLC_CONTROL_CODE(3, METHOD_BUFFERED) +#define IOCTL_OSILLC_RESET OSILLC_CONTROL_CODE(4, METHOD_BUFFERED) + +#define IOCTL_OSILLC_BIND OSILLC_CONTROL_CODE(10, METHOD_BUFFERED) +#define IOCTL_OSILLC_UNBIND OSILLC_CONTROL_CODE(11, METHOD_BUFFERED) +#define IOCTL_OSILLC_WRITE OSILLC_CONTROL_CODE(12, METHOD_BUFFERED) +#define IOCTL_OSILLC_READ OSILLC_CONTROL_CODE(13, METHOD_BUFFERED) + +#pragma pack() + +#endif _OSILLC_H + diff --git a/mmslib/inc/qmem.h b/mmslib/inc/qmem.h new file mode 100644 index 0000000..a9bdcbc --- /dev/null +++ b/mmslib/inc/qmem.h @@ -0,0 +1,35 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1997, All Rights Reserved */ +/* */ +/* MODULE NAME : qmem.h */ +/* PRODUCT(S) : Quick Memory Allocator */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifdef __cplusplus +extern "C" { +#endif + +ST_RET qMemInit (ST_INT NumElem); +ST_VOID *qMemAlloc (ST_INT size); +ST_VOID qMemFree (ST_VOID *ptr); + +extern ST_INT qMemElemSize; /* default = 126 (must be power */ + /* of 2 - 2) */ + + +#ifdef __cplusplus +} +#endif diff --git a/mmslib/inc/rs_a.h b/mmslib/inc/rs_a.h new file mode 100644 index 0000000..3eec10c --- /dev/null +++ b/mmslib/inc/rs_a.h @@ -0,0 +1,119 @@ +#ifndef RS_A_H +#define RS_A_H + +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1993, 1994, All Rights Reserved */ +/* */ +/* MODULE NAME : rs_a.h */ +/* PRODUCT(S) : REDUCED STACK SUIC */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* NONE */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/09/98 JRB 02 Chg MAX_SUIC_CHAN from 256 to 1024. */ +/* 10/20/97 JRB 01 Added #include "asn1defs.h" for MMS_OBJ_ID. */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 05/01/97 JRB 03 Move MAX_SUIC_CHAN define to here. */ +/* 01/02/96 JRB 02 Add MMSEventName and hMMSEvent. */ +/* 05/29/96 MDE 01 Changed DIB_ENTRY - name is now a pointer */ +/* 03/27/96 MDE Created */ +/************************************************************************/ + +#ifdef __cplusplus +extern "C" { +#endif + +#if defined (_WIN32) +#include +#endif /* _WIN32 */ + +#if defined (__OS2__) +#define INCL_BASE +#include +#endif /* __OS2__ */ + +#include "asn1defs.h" /* for MMS_OBJ_ID definition */ + +#define MAX_SUIC_CHAN 1024 /* number of channels */ + +/************************************************************************/ +/* The structure below is used to save Directory and other information */ +/* about local and remote AE's read in from SUIC.DIB */ +/************************************************************************/ + +#define DIB_ENTRY_DEFINED + +struct dib_entry +{ + ST_LONG reserved; /* reserved field */ + ST_CHAR *name; /* user-defined ASCII character string */ + ST_CHAR local; /* local or remote name */ + ST_UCHAR AP_title_pres; /* present flag */ + MMS_OBJ_ID AP_title; /* AP title */ + ST_UCHAR AP_inv_id_pres; /* present flag */ + ST_INT32 AP_invoke_id; /* AP invocation ID */ + ST_UCHAR AE_qual_pres; /* present flag */ + ST_INT32 AE_qual; /* AE qualifier */ + ST_UCHAR AE_inv_id_pres; /* present flag */ + ST_INT32 AE_invoke_id; /* AE invocation ID */ + ST_UINT16 adlcAddr; +} ; +typedef struct dib_entry DIB_ENTRY; + +/************************************************************************/ +/* Channel-oriented control structure used to hold connection-specific */ +/* information */ +/************************************************************************/ + +#define MAX_TX_OUT 10 /* max. outstanding TX requests allowed */ + +struct chanctrl + { + DIB_ENTRY *loc_de; /* Pointer to Local DIB Entry */ + DIB_ENTRY *rem_de; /* Pointer to Remote DIB Entry */ + } ; +extern struct chanctrl *s_chan_ctrl; + +/************************************************************************/ +/* Structure to store incoming associate indication in case no listen */ +/* channel is available */ +/************************************************************************/ + +extern ST_INT num_loc_dib_entries; +extern ST_INT num_rem_dib_entries; +extern DIB_ENTRY *loc_dib_table; +extern DIB_ENTRY *rem_dib_table; + +/************************************************************************/ +/* Event handling variables for WIN32. */ +/************************************************************************/ +#ifdef _WIN32 +extern ST_CHAR *MMSEventName; /* Pointer to the globally unique name of Event Object */ +extern HANDLE hMMSEvent; /* Handle to Event Object to be signalled when */ + /* s_serve () needs to be called */ +#endif /* _WIN32 */ + +/************************************************************************/ +/* Prototypes */ +/************************************************************************/ +ST_VOID s_reset_ctrl (ST_INT); +ST_RET init_dirser (ST_VOID); +DIB_ENTRY *find_dib_entry (ST_CHAR *); +DIB_ENTRY *find_loc_dib_entry (ST_CHAR *ar_name); +DIB_ENTRY *find_rem_dib_entry (ST_CHAR *ar_name); + +#ifdef __cplusplus +} +#endif + +#endif + + diff --git a/mmslib/inc/rs_defs.h b/mmslib/inc/rs_defs.h new file mode 100644 index 0000000..bbdb66c --- /dev/null +++ b/mmslib/inc/rs_defs.h @@ -0,0 +1,241 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1994 All Rights Reserved */ +/* */ +/* MODULE NAME : rs_defs.h */ +/* PRODUCT(S) : TP4/RS API internal include file */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 09/13/99 MDE 13 Added SD_CONST modifiers */ +/* 02/05/99 JRB 12 Del get_rs_event proto. It is now "static". */ +/* 10/08/98 MDE 11 Migrated to updated SLOG interface */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 01/02/96 EJV 10 Added RS_DEFS_INCLUDED */ +/* 11/12/96 MDE 09 Changed to DEBUG_SISCO */ +/* 07/22/96 MDE 08 Changes towards A-Unit Data support */ +/* 03/26/96 MDE 07 Added REDUCED_STACK support */ +/* 02/16/96 JRB 06 Use thisFileName. */ +/* 01/02/96 JRB 05 Removed ipcuptyp for __OS2__ */ +/* 12/28/95 KCW 04 Removed ipcuptyp for AIX */ +/* 12/14/95 DSF 03 Changes for CONN list management */ +/* 10/06/95 JRB 02 For _DOS16M, add hVipcTp4 global */ +/* so that multiple Stack users allowed. */ +/* 04/17/95 DSF 01 Created */ +/* */ +/************************************************************************/ + +#ifndef RS_DEFS_INCLUDED +#define RS_DEFS_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "glbtypes.h" +#include "sysincs.h" +#include "mem_chk.h" +#include "gen_list.h" +#include "slog.h" + +/****************************************************************/ + +#undef local + +/****************************************************************/ +/****************************************************************/ +/* Local ADLC Address control variables */ +extern ST_UINT16 rsBaseSrcAdlcAddr; +extern ST_UINT16 rsNumSrcAdlcAddr; + +/****************************************************************/ +/* Internal structure definitions */ +/****************************************************************/ + +typedef struct + { + DBL_LNK *l; + TP4_ADDR localTp4Addr; + ST_LONG user_bind_id; /* User-supplied Bind ID */ + } REGINFO; + +typedef struct + { + DBL_LNK lnk; /* linkage */ + REGINFO *reginfo; /* pointer to Bind Control Info */ + ST_LONG user_conn_id; /* User-supplied Connection ID */ + ST_LONG osi_conn_id; /* Connection ID returned by OSIAM */ + ST_UINT16 localAddr; /* ADLC addresses, which define the */ + ST_UINT16 remAddr; /* ADLC connection. */ + ST_BOOLEAN connFlag; + } CONNINFO; + +extern CONNINFO *conn_list; /* pointer to list of conn structs */ + +/****************************************************************/ +extern REGINFO *reg_list; /* pointer to list of REG structs */ + +/****************************************************************/ + +extern SD_CONST ST_UCHAR rs_co_dest; +extern SD_CONST ST_UCHAR rs_co_src; +extern SD_CONST ST_UCHAR rs_co_qos; + +extern SD_CONST ST_UCHAR rs_cl_dest; +extern SD_CONST ST_UCHAR rs_cl_src; +extern SD_CONST ST_UCHAR rs_cl_qos; + +/****************************************************************/ + +extern ST_VOID *co_rs_event; +extern ST_INT co_rs_op; +extern ST_RET co_rs_rslt; + +extern ST_VOID *cl_rs_event; +extern ST_INT cl_rs_op; +extern ST_RET cl_rs_rslt; + +/****************************************************************/ +/* Log Control macros */ +/****************************************************************/ + +extern SD_CONST ST_CHAR *SD_CONST _tp4_err_logstr; +extern SD_CONST ST_CHAR *SD_CONST _tp4_flowup_logstr; +extern SD_CONST ST_CHAR *SD_CONST _tp4_flowdown_logstr; + +/****************************************************************/ +#ifdef DEBUG_SISCO + +#define SFLOWUP0(a) {\ + if ((tp4_debug_sel & TP4_LOG_FLOWUP) && sLogCtrl)\ + _slog (sLogCtrl,_tp4_flowup_logstr,\ + thisFileName,__LINE__,a);\ + } +#define SFLOWUP0C(a) {\ + if ((tp4_debug_sel & TP4_LOG_FLOWUP) && sLogCtrl)\ + _slogc (sLogCtrl,a);\ + } +#define SFLOWUP1(a,b) {\ + if ((tp4_debug_sel & TP4_LOG_FLOWUP) && sLogCtrl)\ + _slog (sLogCtrl,_tp4_flowup_logstr,\ + thisFileName,__LINE__,a,b);\ + } +#define SFLOWUP1C(a,b) {\ + if ((tp4_debug_sel & TP4_LOG_FLOWUP) && sLogCtrl)\ + _slogc (sLogCtrl,a,b);\ + } +#define SFLOWUP2(a,b,c) {\ + if ((tp4_debug_sel & TP4_LOG_FLOWUP) && sLogCtrl)\ + _slog (sLogCtrl,_tp4_flowup_logstr,\ + thisFileName,__LINE__,a,b,c);\ + } +#define SFLOWUP2C(a,b,c) {\ + if ((tp4_debug_sel & TP4_LOG_FLOWUP) && sLogCtrl)\ + _slogc (sLogCtrl,a,b,c);\ + } +#define SFLOWUPH(a,b) {\ + if ((tp4_debug_sel & TP4_LOG_FLOWUP) && sLogCtrl)\ + _slogHex (sLogCtrl,a,b);\ + } +#define SFLOWDOWN0(a) {\ + if ((tp4_debug_sel & TP4_LOG_FLOWDOWN) && sLogCtrl)\ + _slog (sLogCtrl,_tp4_flowup_logstr,\ + thisFileName,__LINE__,a);\ + } +#define SFLOWDOWN0C(a) {\ + if ((tp4_debug_sel & TP4_LOG_FLOWDOWN) && sLogCtrl)\ + _slogc (sLogCtrl,a);\ + } +#define SFLOWDOWN1(a,b) {\ + if ((tp4_debug_sel & TP4_LOG_FLOWDOWN) && sLogCtrl)\ + _slog (sLogCtrl,_tp4_flowdown_logstr,\ + thisFileName,__LINE__,a,b);\ + } +#define SFLOWDOWN1C(a,b) {\ + if ((tp4_debug_sel & TP4_LOG_FLOWDOWN) && sLogCtrl)\ + _slogc (sLogCtrl,a,b);\ + } +#define SFLOWDOWN2(a,b,c) {\ + if ((tp4_debug_sel & TP4_LOG_FLOWDOWN) && sLogCtrl)\ + _slog (sLogCtrl,_tp4_flowdown_logstr,\ + thisFileName,__LINE__,a,b,c);\ + } +#define SFLOWDOWN2C(a,b,c) {\ + if ((tp4_debug_sel & TP4_LOG_FLOWDOWN) && sLogCtrl)\ + _slogc (sLogCtrl,a,b,c);\ + } +#define SFLOWDOWNH(a,b) {\ + if ((tp4_debug_sel & TP4_LOG_FLOWDOWN) && sLogCtrl)\ + _slogHex (sLogCtrl,a,b);\ + } +#define SERR0(a) {\ + if ((tp4_debug_sel & TP4_LOG_ERR) && sLogCtrl)\ + _slog (sLogCtrl,_tp4_err_logstr,\ + thisFileName,__LINE__,a);\ + } +#define SERR0C(a) {\ + if ((tp4_debug_sel & TP4_LOG_ERR) && sLogCtrl)\ + _slogc (sLogCtrl,a);\ + } +#define SERR1(a,b) {\ + if ((tp4_debug_sel & TP4_LOG_ERR) && sLogCtrl)\ + _slog (sLogCtrl,_tp4_err_logstr,\ + thisFileName,__LINE__,a,b);\ + } +#define SERR1C(a,b) {\ + if ((tp4_debug_sel & TP4_LOG_ERR) && sLogCtrl)\ + _slogc (sLogCtrl,a,b);\ + } +#define SERR2(a,b,c) {\ + if ((tp4_debug_sel & TP4_LOG_ERR) && sLogCtrl)\ + _slog (sLogCtrl,_tp4_err_logstr,\ + thisFileName,__LINE__,a,b,c);\ + } +#define SERR2C(a,b,c) {\ + if ((tp4_debug_sel & TP4_LOG_ERR) && sLogCtrl)\ + _slogc (sLogCtrl,a,b,c);\ + } +#define SERRH(a,b) {\ + if ((tp4_debug_sel & TP4_LOG_ERR) && sLogCtrl)\ + _slogHex (sLogCtrl,a,b);\ + } + +#else /* Not DEBUG_SISCO */ + +#define SFLOWUP0(a) +#define SFLOWUP0C(a) +#define SFLOWUP1(a,b) +#define SFLOWUP1C(a,b) +#define SFLOWUP2(a,b,c) +#define SFLOWUP2C(a,b,c) +#define SFLOWUPH(a,b) +#define SFLOWDOWN0(a) +#define SFLOWDOWN0C(a) +#define SFLOWDOWN1(a,b) +#define SFLOWDOWN1C(a,b) +#define SFLOWDOWN2(a,b,c) +#define SFLOWDOWN2C(a,b,c) +#define SFLOWDOWNH(a,b) +#define SERR0(a) +#define SERR0C(a) +#define SERR1(a,b) +#define SERR1C(a,b) +#define SERR2(a,b,c) +#define SERR2C(a,b,c) +#define SERRH(a,b) +#endif + + +#ifdef __cplusplus +} +#endif + +#endif /* RS_DEFS_INCLUDED */ + diff --git a/mmslib/inc/scl.h b/mmslib/inc/scl.h new file mode 100644 index 0000000..bd32cef --- /dev/null +++ b/mmslib/inc/scl.h @@ -0,0 +1,715 @@ +#ifndef SCL_INCLUDED +#define SCL_INCLUDED +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2004-2004 All Rights Reserved */ +/* */ +/* MODULE NAME : scl.h */ +/* PRODUCT(S) : MMS-EASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* SCL main header file. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 07/24/08 JRB 17 Fix len of appID in SCL_GCB (maps to GoID). */ +/* 04/23/08 JRB 16 Add SCL_SGCB, scl_sgcb_add. */ +/* 07/03/07 JRB 15 Add scl_gse_find. */ +/* 06/12/07 JRB 14 Add VLANID in SCL_GSE & SCL_SMV. */ +/* 05/21/07 RKR 13 Changed MAC type to ST_UCHAR for GSE and SMV */ +/* 10/30/06 JRB 12 scl2_datatype_create_all: all args changed. */ +/* scl2_ld_create_all: add vmd_ctrl, is_client args.*/ +/* Add type_id to SCL_LN, SCL_LNTYPE. */ +/* Chg SCL2_BTYPE. */ +/* 08/04/06 MDE 11 Added scl_debug_mode, scl2_add_btype, etc. */ +/* 07/26/06 JRB 10 Add structs,functs for parsing Communication.*/ +/* 04/19/06 JRB 09 Add maxClient to SCL_RCB for "RptEnabled max".*/ +/* 03/16/06 JRB 08 Add SCL_SVCB struct & scl_svcb_add proto. */ +/* 03/15/06 JRB 07 Chg almost all function prototypes. */ +/* Del scl_dotype_add_da_val, */ +/* scl_datype_add_bda_val, scl_header_save. */ +/* Add sGroup to SCL_DAI. */ +/* Chg desc to ptr (allocated during parse). */ +/* Increase MAX_CDC_LEN for user-defined CDCs. */ +/* 07/25/05 JRB 12 scl2_ld_create_all: Add brcb_bufsize arg. */ +/* SCL_INFO: add brcb_bufsize element. */ +/* 06/28/05 JRB 11 Del scl2_ld_destroy_all. Use mvl_vmd_destroy.*/ +/* 06/24/05 JRB 10 Chg "ord" from unsigned to signed value. */ +/* 05/27/05 CRM 09 Add scl_info_destroy & scl2_ld_destroy_all. */ +/* 03/22/05 JRB 08 Add ifdef __cplusplus to work with C++ code. */ +/* 02/15/05 JRB 07 Add iedName to SCL_INFO. */ +/* Add domName to SCL_LD & SCL_FCDA. */ +/* Add varName to SCL_LN. */ +/* Define SCL_HEADER struct & add it to SCL_INFO.*/ +/* Add scl_header_save. */ +/* 08/06/04 JRB 06 Add scl_parse. */ +/* Move mapping functions to user header. */ +/* 07/19/04 JRB 05 Add out_filename arg to datamap_cfg_read. */ +/* Add any_cfg_count proto. */ +/* 07/15/04 JRB 04 Clean up SCL_GCB, scl_gcb_add. */ +/* 07/09/04 JRB 03 scl2_ld_create_all: add reportScanRate arg. */ +/* 07/02/04 JRB 02 Add SCL_LCB, SCL_GCB, scl_lcb_add, scl_gcb_add.*/ +/* 06/08/04 JRB 01 Initial Revision. */ +/************************************************************************/ +#include "gen_list.h" +#include "mms_def2.h" /* need MAX_IDENT_LEN */ +#include "mvl_defs.h" /* need MVL_VAR_ASSOC, etc. */ + +#ifdef __cplusplus +extern "C" { +#endif + +#define MAX_VALKIND_LEN 4 /* Spec, Conf, RO, or Set */ +#define MAX_CDC_LEN 50 /* SPS, DPS, etc. (CURVE is longest */ + /* predefined CDC but user may define others)*/ +#define MAX_FC_LEN 2 /* ST, MX, etc. */ + +/* These defines used in SCL_DA struct to differentiate between structs */ +/* containing DA info and structs containing SDO info. */ +#define SCL_OBJTYPE_DA 0 +#define SCL_OBJTYPE_SDO 1 + +/* This def used for flattened leaf names (longer to allow array indices)*/ +#define MAX_FLAT_LEN (MAX_IDENT_LEN*2) + +/************************************************************************/ +/* Structures to contain information from "Header" section of SCL. */ +/************************************************************************/ +typedef struct + { + /* NOTE: only required elements included here. Add optional elements as needed.*/ + ST_CHAR id [MAX_IDENT_LEN+1]; + + /* Defined values for "nameStructure" attribute */ + #define SCL_NAMESTRUCTURE_IEDNAME 0 /* value="IEDName" */ + #define SCL_NAMESTRUCTURE_FUNCNAME 1 /* value="FuncName" */ + ST_INT nameStructure; + } SCL_HEADER; + +/************************************************************************/ +/* Structures to contain information from "Communications" section of SCL.*/ +/************************************************************************/ +/* Data from "GSE" element (inside "ConnectedAP" element) */ +typedef struct scl_gse + { + /* CRITICAL: First 2 parameters used to add this struct to linked */ + /* lists using list_add_last, etc. */ + struct scl_gse *next; /* CRITICAL: DON'T MOVE. */ + struct scl_gse *prev; /* CRITICAL: DON'T MOVE. */ + ST_CHAR ldInst[MAX_IDENT_LEN+1]; + ST_CHAR cbName[MAX_IDENT_LEN+1]; + ST_UCHAR MAC[CLNP_MAX_LEN_MAC]; /* Multicast MAC address */ + ST_UINT APPID; + ST_UINT VLANPRI; + ST_UINT VLANID; + /* renxiaobao GSE ½âÎö*/ + ST_UINT MinTime; + ST_UINT MaxTime; + } SCL_GSE; + +/* Data from "SMV" element (inside "ConnectedAP" element) */ +typedef struct scl_smv + { + /* CRITICAL: First 2 parameters used to add this struct to linked */ + /* lists using list_add_last, etc. */ + struct scl_smv *next; /* CRITICAL: DON'T MOVE. */ + struct scl_smv *prev; /* CRITICAL: DON'T MOVE. */ + ST_CHAR ldInst[MAX_IDENT_LEN+1]; + ST_CHAR cbName[MAX_IDENT_LEN+1]; + ST_UCHAR MAC[CLNP_MAX_LEN_MAC]; /* Multicast MAC address */ + ST_UINT APPID; + ST_UINT VLANPRI; + ST_UINT VLANID; + } SCL_SMV; + +/* Data from "ConnectedAP" element */ +typedef struct scl_cap + { + /* CRITICAL: First 2 parameters used to add this struct to linked */ + /* lists using list_add_last, etc. */ + struct scl_cap *next; /* CRITICAL: DON'T MOVE. */ + struct scl_cap *prev; /* CRITICAL: DON'T MOVE. */ + ST_CHAR iedName[MAX_IDENT_LEN+1]; + ST_CHAR *desc; /* description (optional)*/ + /* may be long so allocate if present*/ + ST_CHAR apName[MAX_IDENT_LEN+1]; + SCL_GSE *gseHead; /* head of list of GSE defs */ + SCL_SMV *smvHead; /* head of list of SMV defs */ + } SCL_CAP; + +/* Data from "Subnetwork" element */ +typedef struct scl_subnet + { + /* CRITICAL: First 2 parameters used to add this struct to linked */ + /* lists using list_add_last, etc. */ + struct scl_subnet *next; /* CRITICAL: DON'T MOVE. */ + struct scl_subnet *prev; /* CRITICAL: DON'T MOVE. */ + ST_CHAR name[MAX_IDENT_LEN+1]; + ST_CHAR *desc; /* description (optional)*/ + /* may be long so allocate if present*/ + ST_CHAR type[MAX_IDENT_LEN+1]; + SCL_CAP *capHead; /* head of list of ConnectedAP defs */ + } SCL_SUBNET; + +/************************************************************************/ +/* Structures to contain information from "AccessPoint" section of SCL.*/ +/************************************************************************/ + +/* "scl_fcda_add" allocates this struct, fills it in, */ +/* and adds it to the linked list "fcdaHead" in SCL_DATASET. */ +typedef struct + { + DBL_LNK l; + ST_CHAR domName[MAX_IDENT_LEN+1]; /* domain name (constructed) */ + ST_CHAR ldInst [MAX_IDENT_LEN+1]; + ST_CHAR prefix [MAX_IDENT_LEN+1]; + ST_CHAR lnInst [MAX_IDENT_LEN+1]; + ST_CHAR lnClass [MAX_IDENT_LEN+1]; + ST_CHAR doName [MAX_IDENT_LEN+1]; + ST_CHAR daName [MAX_IDENT_LEN+1]; + ST_CHAR fc [MAX_FC_LEN+1]; /* ST, MX, etc. */ + } SCL_FCDA; + +/* "scl_dai_add" allocates this struct, fills it in, */ +/* and adds it to the linked list "daiHead" in SCL_LN. */ +/* The "flattened" name must be constructed from the "name" & "ix" */ +/* attribute of the DOI and DAI and possibly the intervening SDI, */ +/* where "ix" is an array index (we'll need some new flattened name */ +/* syntax to handle the array index). */ +/* The "accessControl" attr of DOI is ignored (don't know what it means).*/ +/* The "desc" attr of DOI, SDI, & DAI are ignored (not useful). */ +typedef struct + { + DBL_LNK l; + ST_CHAR flattened[MAX_FLAT_LEN+1]; /* flattened attribute name */ + /* constructed from "name" & "ix"*/ + /* from DOI, SDI, & DAI */ + ST_CHAR *Val; /* attribute value text */ + /* allocate appropriate size buffer*/ + ST_UINT sGroup; /* optional Setting Group Number*/ + ST_CHAR sAddr[MAX_IDENT_LEN+1]; /* from DAI */ + ST_CHAR valKind[MAX_VALKIND_LEN+1]; /* from DAI */ + } SCL_DAI; + +/*renxiaobao Êý¾ÝÓ³Éä*/ +typedef struct +{ + DBL_LNK l; + ST_CHAR ldevice[MAX_IDENT_LEN+1]; + ST_CHAR leaf[MAX_IDENT_LEN+1]; + ST_CHAR usr_data_info[MAX_IDENT_LEN+1]; +}DATA_MAP_LINK; +extern DATA_MAP_LINK *DATA_MAP_saddr; + + +/* "scl_dataset_add" allocates this struct, */ +/* and adds it to the linked list "datasetHead" in SCL_LN. */ +typedef struct + { + DBL_LNK l; + ST_CHAR name[MAX_IDENT_LEN+1]; /* dataset name */ + ST_CHAR *desc; /* description (optional)*/ + /* may be long so allocate if present*/ + SCL_FCDA *fcdaHead; /* head of list of FCDA */ + } SCL_DATASET; + +/* "scl_rcb_add" allocates this struct, fills it in, */ +/* and adds it to the linked list "rcbHead" in SCL_LN. */ +typedef struct + { + DBL_LNK l; + ST_CHAR name[MAX_IDENT_LEN+1]; + ST_CHAR *desc; /* description (optional)*/ + /* may be long so allocate if present*/ + ST_CHAR datSet[MAX_IDENT_LEN+1]; + ST_UINT intgPd; + ST_CHAR rptID[MAX_IDENT_LEN+1]; + ST_UINT confRev; + ST_BOOLEAN buffered; /* TRUE if this is buffered RCB */ + ST_UINT bufTime; + ST_UINT8 TrgOps [1]; /* 8-bit bitstring */ + /* Boolean vals from SCL file */ + /* (dchg, qchg, dupd, & period) */ + /* used to set bits in TrgOps bitstring */ + ST_UINT8 OptFlds [2]; /* 9-bit bitstring */ + /* Boolean vals from SCL file */ + /* (seqNum, timeStamp, dataSet, */ + /* reasonCode, dataRef, bufOvfl, */ + /* entryID, configRef) */ + /* segmentation boolean is ignored */ + /* used to set bits in OptFlds bitstring*/ + ST_UINT maxClient; /* value of "RptEnabled max" attr. */ + } SCL_RCB; /* Report Control Block */ + +typedef struct + { + /* Counters of different types of BRCB. */ + ST_UINT brcb_count_complex; + ST_UINT brcb_count_ST; + ST_UINT brcb_count_MX; + ST_UINT brcb_count_CO; + ST_UINT brcb_count_SP; + ST_UINT brcb_count_SG; + ST_UINT brcb_count_SE; + ST_UINT brcb_count_SV; + ST_UINT brcb_count_CF; + ST_UINT brcb_count_DC; + ST_UINT brcb_count_EX; + + /* Counters of different types of URCB. */ + ST_UINT urcb_count_complex; + ST_UINT urcb_count_ST; + ST_UINT urcb_count_MX; + ST_UINT urcb_count_CO; + ST_UINT urcb_count_SP; + ST_UINT urcb_count_SG; + ST_UINT urcb_count_SE; + ST_UINT urcb_count_SV; + ST_UINT urcb_count_CF; + ST_UINT urcb_count_DC; + ST_UINT urcb_count_EX; + } SCL_RCB_COUNTERS; + +/************************************************************************/ +/* LOG Control Block */ +/* "scl_lcb_add" allocates this struct, fills it in, */ +/* and adds it to the linked list "lcbHead" in SCL_LN. */ +typedef struct + { + DBL_LNK l; + ST_CHAR name[MAX_IDENT_LEN+1]; + ST_CHAR *desc; /* description (optional)*/ + /* may be long so allocate if present*/ + ST_CHAR datSet[MAX_IDENT_LEN+1]; + ST_UINT intgPd; + ST_CHAR logName[MAX_IDENT_LEN+1]; + ST_BOOLEAN logEna; + ST_BOOLEAN reasonCode; + ST_UINT8 TrgOps [1]; /* 8-bit bitstring */ + /* Boolean vals from SCL file */ + /* (dchg, qchg, dupd, & period) */ + /* used to set bits in TrgOps bitstring */ + } SCL_LCB; + +/************************************************************************/ +/* GOOSE Control Block */ +/* "scl_gcb_add" allocates this struct, fills it in, */ +/* and adds it to the linked list "gcbHead" in SCL_LN. */ +typedef struct + { + DBL_LNK l; + ST_CHAR name[MAX_IDENT_LEN+1]; /* Name of CB. Used to construct*/ + /* GoCBRef or GsCBRef */ + ST_CHAR *desc; /* description (optional)*/ + /* may be long so allocate if present*/ + ST_CHAR datSet[MAX_IDENT_LEN+1]; /* for GOOSE only */ + /* used to construct GOOSE DatSet*/ + ST_UINT confRev; /* for GOOSE only */ + ST_BOOLEAN isGoose; /* SD_TRUE if "GOOSE", SD_FALSE if "GSSE"*/ + ST_CHAR appID[MVL61850_MAX_RPTID_LEN+1]; /* for GOOSE only */ + /* maps to GoID in 61850-7-2 */ + /* The SCL file may also contain one or more "IEDName" elements to */ + /* indicate IEDs that should subscribe for GOOSE data. We have no */ + /* way to use this information, so it is ignored. */ + } SCL_GCB; + +/************************************************************************/ +/* Sampled Value Control Block */ +/* "scl_parse" allocates this struct and fills it in. */ +/* "scl_svcb_add" adds it to the linked list "svcbHead" in SCL_LN. */ +typedef struct + { + DBL_LNK l; + ST_CHAR name[MAX_IDENT_LEN+1]; + ST_CHAR *desc; /* description (optional)*/ + /* may be long so allocate if present*/ + ST_CHAR datSet[MAX_IDENT_LEN+1]; + ST_CHAR smvID[MAX_IDENT_LEN+1]; + ST_UINT smpRate; + ST_UINT nofASDU; + ST_UINT confRev; + ST_BOOLEAN multicast; /* TRUE if this is MsvCB */ + ST_UINT8 OptFlds [1]; /* 8-bit bitstring */ + /* Boolean vals from "SmvOpts" in SCL */ + /* (sampleRate, etc.) */ + /* used to set bits in this bitstring */ + ST_BOOLEAN securityPres; /* SmvOpts security flag */ + ST_BOOLEAN dataRefPres; /* SmvOpts dataRef flag */ + } SCL_SVCB; /* Sampled Value Control Block */ + +/************************************************************************/ +/* Setting Group Control Block */ +typedef struct + { + /* NOTE: no DBL_LNK here. Only 2 allowed so never put on a linked list.*/ + ST_CHAR *desc; /* description (optional) */ + /* may be long so allocate if present */ + ST_UINT numOfSGs; /* mandatory */ + ST_UINT actSG; /* optional */ + } SCL_SGCB; + +/************************************************************************/ +/* Logical Node structure */ +/* "scl_ln_add" allocates this struct, fills it in, */ +/* and adds it to the linked list "lnHead" in SCL_LD. */ +typedef struct + { + DBL_LNK l; + ST_CHAR varName[MAX_IDENT_LEN+1]; /* variable name (constructed) */ + ST_CHAR *desc; /* description (optional)*/ + /* may be long so allocate if present*/ + ST_CHAR lnType[MAX_IDENT_LEN+1]; /* LN Type name */ + ST_CHAR lnClass[MAX_IDENT_LEN+1]; /* LN Class name */ + /* for LN0, must be "LLN0" */ + ST_CHAR inst[MAX_IDENT_LEN+1]; /* LN inst name */ + /* for LN0, must be "" (empty string)*/ + ST_CHAR prefix[MAX_IDENT_LEN+1]; /* LN prefix name */ + /* for LNO, ignored */ + SCL_DAI *daiHead; /* head of list of DAI */ + SCL_DATASET *datasetHead; /* head of list of DataSet */ + SCL_RCB *rcbHead; /* head of list of RCB (Report Control) */ + SCL_LCB *lcbHead; /* head of list of LCB (Log Control) */ + SCL_GCB *gcbHead; /* head of list of GCB (GOOSE Control) */ + SCL_SVCB *svcbHead; /* head of list of SVCB (Sampled Value Control)*/ + SCL_SGCB *sgcb; /* SGCB (Setting Group Control)(only 1 allowed)*/ + /* NOTE: In LN or LN0: Inputs ignored */ + /* NOTE: In LN0: SCLControl ignored */ + + ST_INT type_id; /* Initialized by "scl2_datatype_create_all"*/ + MVL_VAR_ASSOC *mvl_var_assoc; /* MVL Variable Association created from LN info*/ + } SCL_LN; /* Logical Node (LN or LN0 in SCL) */ + +/************************************************************************/ +/* Logical Device structure */ +/* "scl_ld_create" allocates this struct */ +/* and adds it to the linked list "ldHead" in SCL_INFO. */ +typedef struct + { + DBL_LNK l; + ST_CHAR domName[MAX_IDENT_LEN+1]; /* domain name (constructed) */ + ST_CHAR *desc; /* description (optional)*/ + /* may be long so allocate if present*/ + ST_CHAR inst[MAX_IDENT_LEN+1]; /* LD inst name */ + SCL_LN *lnHead; /* head of list of LN */ + /* NOTE: AccessControl in LDevice is ignored */ + } SCL_LD; /* Logical Device (LDevice in SCL)*/ + +/************************************************************************/ +/* Structures to contain information from "DataTypeTemplates" section of SCL.*/ +/************************************************************************/ +/* This structure should be allocated and filled in by the function */ +/* "scl_lntype_add_do". */ +typedef struct scl_do + { + /* CRITICAL: First 2 parameters used to add this struct to linked */ + /* lists using list_add_last, etc. */ + struct scl_do *next; /* CRITICAL: DON'T MOVE. */ + struct scl_do *prev; /* CRITICAL: DON'T MOVE. */ + ST_CHAR name[MAX_IDENT_LEN+1]; /* data object name */ + ST_CHAR type[MAX_IDENT_LEN+1]; /* data object type */ + } SCL_DO; + +typedef struct scl_lntype + { + /* CRITICAL: First 2 parameters used to add this struct to linked */ + /* lists using list_add_last, etc. */ + struct scl_lntype *next; /* CRITICAL: DON'T MOVE. */ + struct scl_lntype *prev; /* CRITICAL: DON'T MOVE. */ + ST_CHAR id[MAX_IDENT_LEN+1]; /* name used to reference this LN Type*/ + ST_CHAR lnClass[MAX_IDENT_LEN+1]; /* logical node class */ + SCL_DO *doHead; /* head of list of DO */ + /* scl_lntype_add_do adds to list */ + ST_INT type_id; /* Initialized by "scl2_datatype_create_all"*/ + } SCL_LNTYPE; + + +/* This structure should be allocated and filled in by the function */ +/* "scl_dotype_add_da" OR "scl_dotype_add_sdo", and possibly modified by the optional */ +/* function "scl_dotype_add_da_val". */ +/* NOTE: the same structure must be used for DA or SDO because each must */ +/* be put on the same linked list in the order they are read from the SCL file.*/ +/* Most of the parameters are relevant only for DA elements. They are */ +/* ignored if this is an SDO (i.e. objtype=SCL_OBJTYPE_SDO). */ +typedef struct + { + DBL_LNK l; + ST_INT objtype; /* SCL_OBJTYPE_DA or SCL_OBJTYPE_SDO */ + ST_CHAR name[MAX_IDENT_LEN+1]; /* DA or SDO name */ + ST_CHAR *desc; /* description (optional)*/ + /* may be long so allocate if present*/ + ST_CHAR sAddr[MAX_IDENT_LEN+1]; /* for DA only: DA sAddr */ + ST_CHAR bType[MAX_IDENT_LEN+1]; /* for DA only: DA bType */ + ST_CHAR valKind[MAX_VALKIND_LEN+1]; /* for DA only: Spec, Conf, RO, or Set */ + ST_CHAR type[MAX_IDENT_LEN+1]; /* for DA: needed if bType="Struct" or "Enum"*/ + /* for SDO: required */ + ST_UINT count; /* for DA only: num array entries*/ + ST_CHAR fc[MAX_FC_LEN+1]; /* for DA only: functional constraint */ + ST_BOOLEAN dchg; /* for DA only: TrgOp (data change) */ + ST_BOOLEAN qchg; /* for DA only: TrgOp (quality change) */ + ST_BOOLEAN dupd; /* for DA only: TrgOp (data update) */ + + /* The "Val" and "sGroup" parameters are only set if the SCL file contains the + * optional "Val" element, in which case "scl_dotype_add_da_val" is called. + */ + ST_CHAR *Val; /* for DA only: attribute value text */ + /* allocate appropriate size buffer*/ + ST_UINT sGroup; /* for DA only: optional Setting Group Number*/ + } SCL_DA; + +typedef struct scl_dotype + { + /* CRITICAL: First 2 parameters used to add this struct to linked */ + /* lists using list_add_last, etc. */ + struct scl_dotype *next; /* CRITICAL: DON'T MOVE. */ + struct scl_dotype *prev; /* CRITICAL: DON'T MOVE. */ + ST_CHAR id[MAX_IDENT_LEN+1]; /* name used to reference this DO Type */ + ST_CHAR cdc[MAX_CDC_LEN+1]; /* CDC name */ + SCL_DA *daHead; /* head of list of DA or SDO */ + /* scl_dotype_add_da OR */ + /* scl_dotype_add_sdo adds to list */ + } SCL_DOTYPE; + +/* This structure should be allocated and filled in by the function */ +/* "scl_datype_add_bda". */ +typedef struct + { + DBL_LNK l; + ST_CHAR name[MAX_IDENT_LEN+1]; /* data attribute name */ + ST_CHAR *desc; /* description (optional)*/ + /* may be long so allocate if present*/ + ST_CHAR sAddr[MAX_IDENT_LEN+1]; /* for DA only: DA sAddr */ + ST_CHAR bType[MAX_IDENT_LEN+1]; /* data attribute type */ + ST_CHAR valKind[MAX_VALKIND_LEN+1]; /* Spec, Conf, RO, or Set */ + ST_CHAR type[MAX_IDENT_LEN+1]; /* only used if btype="Struct" or "Enum"*/ + ST_UINT count; /* for DA only: num array entries*/ + + /* The "Val" and "sGroup" parameters are only set if the SCL file contains the + * optional "Val" element, in which case "scl_datype_add_bda_val" is called. + */ + ST_CHAR *Val; /* attribute value text */ + /* allocate appropriate size buffer*/ + ST_UINT sGroup; /* optional Setting Group Number*/ + } SCL_BDA; /* Basic Data Attribute */ +typedef struct + { + DBL_LNK l; + ST_CHAR id[MAX_IDENT_LEN+1]; /* name used to reference this DA Type*/ + SCL_BDA *bdaHead; /* head of list of BDA */ + /* scl_datype_add_bda adds to list */ + } SCL_DATYPE; + + +/* This structure should be allocated and filled in by the function */ +/* "scl_enumtype_add_enumval". */ +typedef struct + { + DBL_LNK l; + ST_INT ord; /* ord attribute */ + ST_CHAR EnumVal[MAX_IDENT_LEN+1]; /* EnumVal element */ + /* TRUNCATED if longer than buffer */ + } SCL_ENUMVAL; +typedef struct + { + DBL_LNK l; + ST_CHAR id[MAX_IDENT_LEN+1]; /* name used to reference this DA Type*/ + SCL_ENUMVAL *enumvalHead; /* head of list of EnumVal */ + /* scl_enumtype_add_enumval adds to list*/ + } SCL_ENUMTYPE; + +/************************************************************************/ +/* SCL_INFO */ +/* This structure contains all information extracted from the SCL file */ +/* to be used for MMS-EASE Lite initialization. */ +/************************************************************************/ +typedef struct + { + ST_CHAR iedName [MAX_IDENT_LEN+1]; /* passed to scl_parse */ + + SCL_HEADER Header; /* Info from "Header" section of SCL file*/ + + /* SubNetwork definitions from (from Communication section) */ + SCL_SUBNET *subnetHead; /* head of list of SubNetwork defs */ + + /* Logical Node Type definitions (from DataTypeTemplates section) */ + SCL_LNTYPE *lnTypeHead; /* head of list of LNodeType defs */ + SCL_DOTYPE *doTypeHead; /* head of list of DOType defs */ + SCL_DATYPE *daTypeHead; /* head of list of DAType defs */ + SCL_ENUMTYPE *enumTypeHead; /* head of list of EnumType defs */ + + /* Logical Device (MMS Domain) definitions (from AccessPoint section) */ + SCL_LD *ldHead; /* head of list of LDevice defs */ + + ST_INT brcb_bufsize; /* BRCB buffer size */ + /* scl2_ld_create_all uses arg to set it*/ + ST_BOOLEAN datatype_create_done; /* flag set by scl2_datatype_create_all*/ + ST_BOOLEAN ld_create_done; /* flag set by scl2_ld_create_all*/ + } SCL_INFO; + + +/************************************************************************/ +/************************************************************************/ +/* FUNCTIONS to store SCL info in "SCL_INFO" structure. */ +/************************************************************************/ +/************************************************************************/ + +SCL_LNTYPE *scl_lntype_create ( + SCL_INFO *scl_info); + +SCL_DO *scl_lntype_add_do ( + SCL_INFO *scl_info); + +SCL_DOTYPE *scl_dotype_create ( + SCL_INFO *scl_info); + +SCL_DA *scl_dotype_add_da ( + SCL_INFO *scl_info); + +SCL_DA *scl_dotype_add_sdo ( + SCL_INFO *scl_info); + +SCL_DATYPE *scl_datype_create ( + SCL_INFO *scl_info); + +SCL_BDA *scl_datype_add_bda ( + SCL_INFO *scl_info); + +SCL_ENUMTYPE *scl_enumtype_create ( + SCL_INFO *scl_info); + +SCL_ENUMVAL *scl_enumtype_add_enumval ( + SCL_INFO *scl_info); + +SCL_FCDA *scl_fcda_add ( + SCL_INFO *scl_info); + +SCL_DAI *scl_dai_add ( + SCL_INFO *scl_info); + +SCL_DATASET *scl_dataset_add ( + SCL_INFO *scl_info); + +SCL_RCB *scl_rcb_add ( + SCL_INFO *scl_info); + +SCL_LCB *scl_lcb_add ( + SCL_INFO *scl_info); + +SCL_GCB *scl_gcb_add ( + SCL_INFO *scl_info); + +SCL_SGCB *scl_sgcb_add ( + SCL_INFO *scl_info); + +SCL_SVCB *scl_svcb_add ( + SCL_INFO *scl_info); + +SCL_LN *scl_ln_add ( + SCL_INFO *scl_info); + +SCL_LD *scl_ld_create ( + SCL_INFO *scl_info); + +SCL_SUBNET *scl_subnet_add ( + SCL_INFO *scl_info); + +SCL_CAP *scl_cap_add ( + SCL_INFO *scl_info); + +SCL_GSE *scl_gse_add ( + SCL_INFO *scl_info); + +SCL_SMV *scl_smv_add ( + SCL_INFO *scl_info); + +/************************************************************************/ +/* scl_parse */ +/* Parses SCL file and stores extracted info in SCL_INFO structure. */ +/************************************************************************/ +ST_RET scl_parse (ST_CHAR *xmlFileName, ST_CHAR *iedName, + ST_CHAR *accessPointName, SCL_INFO *sclInfo); +ST_VOID scl_log_all (SCL_INFO *scl_info); + +/************************************************************************/ +/* scl_info_destroy */ +/* Destroy all info stored in the SCL_INFO structure by "scl_parse". */ +/************************************************************************/ +ST_VOID scl_info_destroy (SCL_INFO *scl_info); + +/************************************************************************/ +/* scl2_datatype_create_all */ +/* Create MMS Data types for all Logical Node Types (LNodeType) */ +/* defined in SCL. */ +/* RETURNS: SD_SUCCESS or error code */ +/************************************************************************/ +ST_RET scl2_datatype_create_all ( + MVL_VMD_CTRL *vmd_ctrl, /* VMD in which to add types. */ + SCL_INFO *sclInfo, /* main struct where all SCL info stored*/ + ST_INT max_rt_num, /* max num of RUNTIME_TYPE for each LNodeType*/ + ST_BOOLEAN use_names, /* if SD_TRUE, generate a name for each type*/ + ST_CHAR *name_prefix); /* unique prefix to add to each type name*/ + /* only used if "use_names==SD_TRUE". */ + +/************************************************************************/ +/* scl2_ld_create_all */ +/* Create all Logical Devices from SCL info saved in "sclInfo". */ +/* RETURNS: SD_SUCCESS or error code */ +/************************************************************************/ +ST_RET scl2_ld_create_all ( + MVL_VMD_CTRL *vmd_ctrl, /* VMD in which to add Logical Devices. */ + SCL_INFO *sclInfo, /* main struct where all SCL info stored*/ + ST_UINT reportScanRate, /* report scan rate (millisec) */ + ST_INT brcb_bufsize, /* BRCB buffer size */ + ST_BOOLEAN is_client); /* If this flag is set, Client model is */ + /* created (i.e. Control Blocks NOT created).*/ + +/************************************************************************/ +/* u_set_all_leaf_functions */ +/* User customizable function to set all leaf functions for a data type.*/ +/************************************************************************/ +ST_RET u_set_all_leaf_functions (RUNTIME_CTRL *rt_ctrl); + + +/************************************************************************/ +/************************************************************************/ + +extern ST_BOOLEAN scl_debug_mode; +extern ST_INT scl_debug_mode_error_count; + +typedef struct + { + DBL_LNK l; + ST_CHAR *btype; + RUNTIME_CTRL *rt_ctrl; + } SCL2_BTYPE; +extern SCL2_BTYPE *scl2_btype_list; +SCL2_BTYPE *scl2_add_btype (ST_CHAR *btype, ST_CHAR *tdl); + + + +typedef struct + { + SCL_INFO *scl_info; + SCL_LD *scl_ld; + SCL_LN *scl_ln; + ST_CHAR *valText; + ST_CHAR *attrib; + ST_VOID *dest; + ST_INT numRt; + SD_CONST RUNTIME_TYPE *rtHead; + } SCL2_IV_TRANSLATE_CTRL; + +ST_RET u_mvl_scl_set_initial_value (SCL2_IV_TRANSLATE_CTRL *sclXlateIv); + +/************************************************************************/ +/* Functions to find objects in SCL_INFO. */ +/************************************************************************/ +SCL_GSE *scl_gse_find (SCL_INFO *scl_info, SCL_LD *scl_ld, SCL_GCB *scl_gcb); + +#ifdef __cplusplus +} +#endif + +#endif /* !SCL_INCLUDED */ diff --git a/mmslib/inc/scrndefs.h b/mmslib/inc/scrndefs.h new file mode 100644 index 0000000..bd1d40b --- /dev/null +++ b/mmslib/inc/scrndefs.h @@ -0,0 +1,97 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2005, All Rights Reserved */ +/* */ +/* MODULE NAME : scrndefs.h */ +/* PRODUCT(S) : MMSEASE */ +/* */ +/* MODULE DESCRIPTION : This include file contains definitions needed */ +/* for screen handling */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/06/05 EJV 20 linux: no fancy screen. */ +/* 03/31/03 EJV 19 Removed _WINDOWS code. */ +/* 03/18/03 JRB 18 Fix QNX #ifdefs. */ +/* 02/17/03 CRM 17 Added "defined(linux)" code. */ +/* 02/17/03 JRB 16 Stop using SYSTEM_SEL define. */ +/* Del QNX_C86 support. */ +/* 08/24/98 EJV 15 Eliminated semicoln in some macros. */ +/* 04/29/98 EJV 14 CLEARSCR on sparc beeps. */ +/* 01/08/98 EJV 13 Deleted CLEARSCR specific to sun sparc */ +/* 05/16/97 RKR 12 Changes for HP-UX */ +/* 12/07/95 DSF 11 Minor corrections */ +/* 11/08/95 MDE 10 Tweaked WINDOWS defines a bit */ +/* 05/04/95 JRB 09 Added SYS_QNX4 for QNX 4.x port. */ +/* 05/04/95 JRB 08 Simplified macros: removed LINE?COL?, */ +/* added GOTOLINE(line) an CLEARLINE(line). */ +/* 04/20/95 KCW 07 Changes for SUN Solaris */ +/* 01/05/95 JRB 06 Change BSD to SYS_BSD. */ +/* 12/09/94 JRB 05 Disable ANSI escape sequences for VXWORKS. */ +/* 10/12/93 DSF 04 Changed MMSWIN to _WINDOWS */ +/* 04/08/93 WEO 03 Added MMSWIN defines for screen formatting */ +/* 12/03/92 JRB 02 Added LINE9COL0 for QNX. */ +/* 04/16/92 WEO 01 Added CLEARSCR for SUN */ +/* 06/25/91 5.00 MMSEASE 5.0 release. See UTILML50.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef SCRNDEFS_INCLUDED +#define SCRNDEFS_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#if defined(__QNX__) + +#define CLEARSCR printf( "\33H\33J" ) +#define SAVESCR printf( "\33S" ) +#define BOTTOMSCR printf( "\33=7 " ) /* "7" means row 23, " " means col 0 */ +#define CLEAREOL printf( "\33K" ) +#define GOTOLINE(line) printf("\33=%c ",line+0x1f) /* line=1 thru 24*/ +#define CLEARLINE(line) printf("\33=%c \33K",line+0x1f) /* line=1 thru 24*/ + +#else /* non QNX system */ + +#if defined (_WIN32) || defined (VXWORKS) || \ + defined(__hpux) || defined(sparc) || defined(linux) +#define CLEARSCR printf("\n") +#define RESTORESCR +#define SAVESCR +#define BOTTOMSCR +#define CLEAREOL +#define GOTOLINE(line) printf("\n") +#define CLEARLINE(line) +#else +#define CLEARSCR printf( "\33[2J\33[0;0H" ) +#define RESTORESCR printf( "\33[u" ) +#define SAVESCR printf( "\33[s" ) +#define BOTTOMSCR printf( "\33[23;0H" ) +#define CLEAREOL printf( "\33[K" ) +#define GOTOLINE(line) printf( "\33[%d;1H", line) /* line= 1 thru 24*/ +#define CLEARLINE(line) printf( "\33[%d;1H\33[K", line) /* line= 1 thru 24*/ +#endif +#endif + +#define PRINTSTR printf( "%s", str_ptr ) +#define ADD_LF printf( "\n" ) + +#if defined(_AIX) || defined(sun) || defined(__hpux) || defined(linux) \ + || (defined(__alpha) && !defined(__VMS)) \ + || defined(VXWORKS) || defined(__QNX__) +#define CR '\012' +#else +#define CR '\015' +#endif + +#ifdef __cplusplus +} +#endif + +#endif diff --git a/mmslib/inc/slog.h b/mmslib/inc/slog.h new file mode 100644 index 0000000..3fccaf8 --- /dev/null +++ b/mmslib/inc/slog.h @@ -0,0 +1,1599 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1993 - 2008, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : slog.h */ +/* PRODUCT(S) : SLOG */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/01/08 JRB 82 Move forward references to top of file. */ +/* 11/07/08 MDE 82 Added 'Get Log Masks' feature support */ +/* 10/08/08 MDE 81 Added SEAL */ +/* 08/22/08 RKR 80 Added ICCP Lite */ +/* 08/11/08 MDE 79 Added 'initialized' */ +/* 08/04/08 MDE 78 Added slogIpcEventEx */ +/* 07/30/08 DWL 77 Added COMTRADE listening port */ +/* 07/25/08 MDE 76 Moved slogIpcCtx into LOG_CTRL */ +/* 07/07/08 MDE 75 Added slogIpcActiveCount */ +/* 05/09/08 RKR 74 Added new IPC Commands for Clone and Reset */ +/* 03/27/08 EJV 73 slog_get_index_file_name: added destLen param*/ +/* and changed to return result. */ +/* 03/04/08 EJV 72 Added IPC_LOG_PORT_SNAP_LITE_* ports. */ +/* Removed MMSEASE_MOSI def in description. */ +/* Added LogMaskMapCtrl for 142-XXX products, */ +/* revised comments. */ +/* 03/10/08 MDE 71 Added slog_ipc_std_cmd_service */ +/* 03/04/08 RWM 70 Changed MAX_LOG_SIZE to 5000 */ +/* 12/14/07 DSF 69 Added sNonStandardLogMode to support .NET */ +/* Logger class */ +/* 11/30/07 DSF 68 Added IPC_LOG_IOS_GATEWAY */ +/* 11/08/07 MDE 67 Added IPC_LOG_PORT_SDE_OPCUA_SERVER */ +/* 10/23/07 MDE 66 Added ElapsedTime option for Windows */ +/* 10/11/07 MDE 65 Added UAP ports */ +/* 09/20/07 MDE 64 Added slogIpcCallingEnable, listen port */ +/* 03/01/07 MDE 63 Tweaks to SLOGIPC command message types */ +/* 02/20/07 CRM 62 Added SLOGIPCCALLING_NAME */ +/* 01/22/07 MDE 61 Added Standard command message types */ +/* 01/08/07 EJV 60 slogIpcStop: added lc param. */ +/* 04/07/06 MDE 59 Added IPC_LOG_PORT_ICCPCFG */ +/* 03/14/06 MDE 58 Increased SLOG_MAX_FNAME to 64 (was 32) */ +/* 03/30/06 CRM 57 Added _slogXML, and macros */ +/* 02/17/06 MDE 56 Added logcfg_exx, preferredTag, etc.. */ +/* 02/15/06 EJV 55 IPC_LOG_PORT_MMS_EASE - changed comment. */ +/* 02/02/06 EJV 54 LOGCFGX_TAG_VAL: added/changed fields. */ +/* 12/05/05 EJV 53 Added IPC_LOG_PORT_MMS_EASE. Changed comment.*/ +/* 10/28/05 EJV 52 Added MMS-LITE ports */ +/* 10/14/05 EJV 51 Add SLOGIPC_NAME def & slogIpcEvent proto */ +/* 08/10/05 MDE 50 Added slog_start, slog_end, index file */ +/* 08/05/05 EJV 49 Added extern ssleLogMaskMapCtrl. */ +/* 08/02/05 MDE 48 Added IOS ports */ +/* 06/30/05 EJV 47 Added extern genlistDebugMapCtrl. */ +/* Arranged xxxMaskMapCtrl in alphabetical order*/ +/* Del duplicate logCfgAddMaskGroup proto. */ +/* Del logCfgAddAll proto (user must add all). */ +/* Del logcfgx (use logcfgx_ex instead) */ +/* 04/29/05 EJV 46 Added IPC_LOG_PORT_RFC1006_LISTENER def. */ +/* 03/31/05 MDE 45 Added more SLOGALWAYS macros */ +/* 02/22/05 JRB 44 slogIpc: add SD_CONST to some args. */ +/* 02/16/05 JRB 43 Del #if around forward references. */ +/* 02/10/05 MDE 42 Added STRINGBUF and DOUBLE DATATYPE's */ +/* 02/02/05 MDE 41 Smart mode work */ +/* 01/27/05 MDE 40 LINUX warning cleanup */ +/* 01/19/05 MDE 39 Added LogCfg defines, etc.. */ +/* 01/19/05 EJV 38 AIX:del extern in struct tag_GEN_SOCK,C++ err*/ +/* 12/06/04 ASK 37 Added SLOG IPC "smart" client features. Added*/ +/* RUINT define for new logcfgx. */ +/* 11/22/04 JRB 36 Add max_msg_size & msg_buf to LOG_CTRL. */ +/* Add slog_max_msg_size_set proto. */ +/* Add slog_max_msg_size_get macro. */ +/* slogDelBuf: add (LOG_CTRL *) arg. */ +/* 10/12/04 MDE 35 Added logcfgx mask extension mechanism */ +/* 08/04/04 EJV 34 LOGMEM_ITEM: chg log time,related to prev chg*/ +/* Del slogTime, slogMs global variables. */ +/* 07/09/04 EJV 33 Del DATETIME_MILLI_EN,add 'obsolete' comments*/ +/* 06/24/04 DSF 32 Added DATETIME_MILLI_EN */ +/* 06/24/04 EJV 31 IPC_LOG_CTRL: add portUsed. */ +/* 06/21/04 EJV 30 IPC_LOG_CTRL: add portCnt, appId fields. */ +/* 05/26/04 EJV 29 Added comment to keep track on used IPC ports*/ +/* 05/20/04 EJV 28 IPC_LOG_CTRL: limited log message queue. */ +/* 05/18/04 MDE 27 Removed LOG_IPC_SUPPORT #ifdef's */ +/* 05/11/04 EJV 26 Revised LOG_IPC_SUPPORT code to use gensock2.*/ +/* Added SLOG_MAX_LOGTYPESTR, SLOG_MAX_HDR. */ +/* Added slogSetHdr() proto. */ +/* 02/10/04 KCR 25 Added slogDelBuf() */ +/* 10/24/03 JRB 24 Move gs_debug_sel from glbsem.h to here. */ +/* Move clnp_debug_sel from clnp_usr.h to here. */ +/* Del windows.h (see sysincs.h). */ +/* 06/20/03 JRB 23 Del ; from SLOGALWAYS* too. */ +/* 05/08/03 JRB 22 Del {} from SLOGALWAYS* so they work in */ +/* almost any context. */ +/* 05/07/03 DSF 21 Increased the value of SLOG_MAX_FNAME */ +/* Added support for sErrLogCtrl */ +/* 10/17/02 JRB 20 Add "Base" macros SLOG_*, SLOGC_*, SLOGH. */ +/* 03/11/02 JRB 19 SLOG_PAUSE, SLOG_LF, SLOG_CLRSCR do nothing. */ +/* 04/26/01 DSF 18 Define SOCKET if not yet defined */ +/* 04/16/01 DSF 17 Include windows.h instead of including */ +/* winsock.h directly */ +/* 03/23/01 MDE 16 Added _slogStr, SLOGALWAYSS */ +/* 11/27/00 JRB 15 Added read_log_cfg_file, logcfgx protos. */ +/* 08/22/00 KCR 14 Added FIL_CTRL_NO_LOG_HDR */ +/* 03/09/00 MDE 13 Added SD_CONST modifiers to LOGMEM_ITEM */ +/* 09/13/99 MDE 12 Added SD_CONST modifiers */ +/* 11/11/98 DSF 11 Minor changes to _slog_dyn_log_fun */ +/* 10/16/98 DSF 10 Spelling */ +/* 10/08/98 MDE 09 Migrated to updated SLOG interface */ +/* 06/15/98 NAV 08 Conditionally include winsock.h or winsock2.h*/ +/* 06/03/98 MDE 07 Replaced 'winsock.h' with 'windows.h' */ +/* 12/12/97 MDE 06 Added DEBUG_SISCO versions of SLOGALWAYSx */ +/* 11/05/97 DSF 05 Added SYSTIME_EN */ +/* 09/12/97 DSF 04 Expose slogSetTimeText () */ +/* 06/11/97 MDE 03 Include time.h for all */ +/* 05/27/97 DSF 02 Added IPC logging capability */ +/* 05/27/97 DSF 01 Include time.h for sun */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef SLOG_INCLUDED +#define SLOG_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + + +/*#define SLOGIPC_SEAL Disable for now, phase in ... */ + +#include "gen_list.h" +#ifdef SLOGIPC_SEAL +#include "sseal.h" +#endif + +#include +#include /* for time_t */ + +#define TIME_BUF_LEN 30 + +/************************************************************************/ +struct tag_GEN_SOCK; /* forward reference */ +struct tag_GEN_SOCK_DATA; /* forward reference */ +struct log_ctrl; /* forward reference */ + +/************************************************************************/ +/* Memory logging string buffer size limit */ +/* NOTE : Do not change this lightly! QMEM.C should be looked at */ +/************************************************************************/ + +#define SLOG_MEM_BUF_SIZE 125 + +/* Memory logging item control */ +/* A table of these is established at initialization time */ + +#define LMF_USED 0x0001 +#define LMF_HEADER 0x0002 +#define LMF_HEX 0x0004 + + +typedef struct logmem_item + { + ST_UINT flags; /* see LMF_xxx flags */ + ST_INT logType; /* log type storage */ + SD_CONST ST_CHAR *logTypeStr; /* log type string */ + ST_INT lineNum; /* source file line number */ + SD_CONST ST_CHAR *sourceFile; /* source file name, NULL for none */ + ST_CHAR slogTimeText[TIME_BUF_LEN]; + ST_CHAR *string; /* text */ + } LOGMEM_ITEM; + + +/************************************************************************/ +/* File Logging State flags */ +/************************************************************************/ + +#define FIL_STATE_OPEN 0x0001 +#define FIL_STATE_NEED_WIPE 0x0002 + +/* File Logging Control flags */ + +#define FIL_CTRL_WIPE_EN 0x0001 +#define FIL_CTRL_WRAP_EN 0x0002 +#define FIL_CTRL_MSG_HDR_EN 0x0004 +#define FIL_CTRL_NO_LOG_HDR 0x0040 + +/* File output mode flags */ + +#define FIL_CTRL_NO_APPEND 0x0008 +#define FIL_CTRL_HARD_FLUSH 0x0010 +#define FIL_CTRL_SETBUF_EN 0x0020 + +typedef struct file_log_ctrl + { +/* User sets these elements */ + ST_ULONG maxSize; + ST_CHAR *fileName; /* destination filename */ + ST_UINT ctrl; /* see FIL_CTRL_xxx flags */ + ST_LONG wipeFilePos; + +/* Internal use only */ + ST_UINT state; /* see FIL_STATE_xxx flags */ + FILE *fp; + } FILE_LOG_CTRL; + +/* Memory Logging State flags */ + +#define MEM_STATE_INIT 0x0001 + +/* Memory Logging Control flags */ + +#define MEM_CTRL_MSG_HDR_EN 0x0001 +#define MEM_CTRL_AUTODUMP_EN 0x0002 +#define MEM_CTRL_HEX_LOG 0x0004 + +typedef struct mem_log_ctrl + { +/* User sets these elements */ + ST_INT maxItems; /* # items to allocate at powerup */ + ST_CHAR *dumpFileName; /* where memory dump goes */ + ST_UINT ctrl; /* see MEM_CTRL_xxx flags */ + +/* Internal use only */ + ST_UINT state; /* see MEM_STATE_xxx flags */ + LOGMEM_ITEM *item; /* Item table */ + ST_INT nextPut; /* Current position (where last was put */ + } MEM_LOG_CTRL; + +/************************************************************************/ +/* Socket Slogging Subsystem */ +/************************************************************************/ + +#define SLOGIPC_NAME "SLOGIPC" /* used in GEN_SOCK */ +#define SLOGIPCCALLING_NAME "SLOGIPCCALLING" /* used in GEN_SOCK */ + +/* Default listen port for LogViewer */ +#define IPC_LOG_LOGVIEWER_PORT 55146 + +/* default parameters for socket logging subsystem */ +#define IPC_LOG_BASE_PORT 55147 + +/* ports below are taken by following SISCO applications: */ +#define IPC_LOG_PORT_AXS4ICCP IPC_LOG_BASE_PORT+1 /* 55148 */ +#define IPC_LOG_PORT_OSILL2 IPC_LOG_BASE_PORT+2 /* 55149 */ +#define IPC_LOG_PORT_OSILL2_IPC IPC_LOG_BASE_PORT+3 /* 55150 */ +#define IPC_LOG_PORT_AXS4MMS IPC_LOG_BASE_PORT+4 /* 55151 */ +#define IPC_LOG_PORT_AXS4IEC61850 IPC_LOG_BASE_PORT+5 /* 55152 */ +#define IPC_LOG_PORT_AXS4GOOSE_OLD IPC_LOG_BASE_PORT+6 /* 55153 */ +#define IPC_LOG_PORT_RFC1006_LISTENER IPC_LOG_BASE_PORT+7 /* 55154 */ +#define IPC_LOG_PORT_ICCPCFG IPC_LOG_BASE_PORT+8 /* 55155 */ + +/* UIB ports: reserve 10: 55157-55167 */ +#define IPC_LOG_PORT_UIBBASE IPC_LOG_BASE_PORT+10 /* 55157 */ +#define IPC_LOG_NUMPORTS_UIB 10 + +#define IPC_LOG_PORT_SNAP_LITE_DAEMON IPC_LOG_BASE_PORT+33 /* 55180 */ +#define IPC_LOG_PORT_SNAP_LITE_UTIL IPC_LOG_BASE_PORT+34 /* 55181 */ + +/* MMS-EASE demo programs: reserve 10 55190-55199 */ +#define IPC_LOG_PORT_MMS_EASE IPC_LOG_BASE_PORT+43 /* 55190 */ + +/* MMS-LITE demo programs: reserve 10 55200-55209 */ +#define IPC_LOG_PORT_MMS_LITE IPC_LOG_BASE_PORT+53 /* 55200 */ + +/* ICCP-LITE demo programs: reserve 5 55210-55214 */ +#define IPC_LOG_PORT_ICCP_LITE IPC_LOG_BASE_PORT+63 /* 55210 */ + +/* USPS IOS ports: reserve 100 : 55347-55447 */ +#define IPC_LOG_IOS_MPECOM IPC_LOG_BASE_PORT+200 /* 55347 */ +#define IPC_LOG_IOS_MPE IPC_LOG_BASE_PORT+201 /* 55348 */ +#define IPC_LOG_IOS_GATEWAY IPC_LOG_BASE_PORT+202 /* 55349 */ + +/* UAP related elements */ +#define IPC_LOG_PORT_AXS4GOOSE IPC_LOG_BASE_PORT+300 /* 55447 */ +#define IPC_LOG_PORT_DSPI IPC_LOG_BASE_PORT+301 /* 55448 */ +#define IPC_LOG_PORT_SCLDEVLOADEX IPC_LOG_BASE_PORT+302 /* 55449 */ +#define IPC_LOG_PORT_UAPPC IPC_LOG_BASE_PORT+303 /* 55450 */ +#define IPC_LOG_PORT_GOOSEBLASTER IPC_LOG_BASE_PORT+304 /* 55451 */ +#define IPC_LOG_PORT_GOOSEBLASTERCONTROL IPC_LOG_BASE_PORT+305 /* 55452 */ +#define IPC_LOG_PORT_SDE_ATM IPC_LOG_BASE_PORT+306 /* 55453 */ +#define IPC_LOG_PORT_SDE_MONITOR IPC_LOG_BASE_PORT+307 /* 55454 */ +#define IPC_LOG_PORT_SDE_DRIVER IPC_LOG_BASE_PORT+308 /* 55455 */ +#define IPC_LOG_PORT_SDE_OPCUA_SERVER IPC_LOG_BASE_PORT+309 /* 55456 */ + +/* COMTRADE Utility ports */ +#define IPC_LOG_PORT_COMTRADE_UTILITY IPC_LOG_BASE_PORT+350 /* 55497 */ + + +#define IPC_LOG_MAX_CONNECTIONS 10 +#define IPC_LOG_MAX_QUEUE_CNT 100 + +/* SMART MODE */ +/* Format of smart message is 3 unsigned long integers: */ +/* unsigned long magicNumber = SLOGIPC_MAGIC_NUMBER; */ +/* unsigned long messageType = SLOGIPC_MSG_TYPE_XXX */ +/* unsigned long messageLen = dataLength */ + +/* Followed by one of: */ +/* nothing */ +/* char[messageLen] */ +/* unsigned long missedMessageCount */ + +#define SLOGIPC_MAGIC_NUMBER_SEAL 0x1F2E3D4D +#define SLOGIPC_MAGIC_NUMBER_NOSEAL 0x1F2E3D4C + +typedef struct + { + ST_UINT32 magicNumber; + ST_UINT32 messageType; + ST_UINT32 messageLen; + } SLOGIPC_SMART_MSG_HDR; + +ST_VOID _slogIpcInitHdr (struct tag_GEN_SOCK *pSock, + struct tag_GEN_SOCK_DATA *sockData, + ST_UINT32 msgType, ST_INT dataLen); + +#ifdef SLOGIPC_SEAL +typedef struct + { + ST_UINT32 magicNumber; + ST_UINT32 messageType; + ST_UINT32 messageLen; + S_SEAL seal; + } SLOGIPC_SMART_MSG_HDRS; +ST_VOID _slogIpcSetSeal (SLOGIPC_SMART_MSG_HDRS *sHdrS); +ST_RET _slogIpcCheckSeal (struct log_ctrl *lc, SLOGIPC_SMART_MSG_HDRS *sHdrS); +#endif + +/* message types */ +#define SLOGIPC_MSG_TYPE_LOG 0x00000000 +#define SLOGIPC_MSG_TYPE_RESERVED 0x00000001 +#define SLOGIPC_MSG_TYPE_APPID 0x00000002 +#define SLOGIPC_MSG_TYPE_START 0x00000003 +#define SLOGIPC_MSG_TYPE_STOP 0x00000004 + +/* Standard command message response types */ +#define SLOGIPC_MSG_TYPE_RESP_SUCCESS 0x00000005 +#define SLOGIPC_MSG_TYPE_RESP_FAILURE 0x00000006 + +/* Standard command message types */ +#define SLOGIPC_MSG_TYPE_OPTIONS 0x00000007 +#define SLOGIPC_MSG_TYPE_READ_LOGCFG 0x00000008 +#define SLOGIPC_MSG_TYPE_WRITE_LOGCFG 0x00000009 + +/* IF we missed log messages ... */ +#define SLOGIPC_MSG_TYPE_LOG_MISSED 0x0000000A + +#define SLOGIPC_MSG_TYPE_CLONE_LOG 0x00000010 +#define SLOGIPC_MSG_TYPE_RESET_LOG 0x00000020 +#define SLOGIPC_MSG_TYPE_WRITE_MSGDATA 0x00000030 +#define SLOGIPC_MSG_TYPE_GET_LOGMASKS 0x00000040 + + +/* General application specific command */ +#define SLOGIPC_MSG_TYPE_CMD 0x00000100 + +/* Defines for options (bitmasked) */ +#define LOG_IPC_EDIT_LOGCFG 0x00000001 + +/* configuration parameters for socket logging & command subsystem */ +typedef struct ipc_log_ctrl_tag + { + /* Used for client (calling) connections */ + ST_CHAR *callingIp; /* IP or host name of host to connect to*/ + ST_UINT16 callingPort; /* port of host to connect to */ + ST_ULONG callingBackoff; /* ms */ + ST_INT sealMode; + ST_INT sealTimeWindow; + + /* Used for server (called) connections */ + ST_UINT16 port; /* listening port number */ + ST_UINT16 portCnt; /* num of listening ports starting with */ + /* base port, for multiple app instances*/ + + ST_UINT16 portUsed; /* this the listening port actually used*/ + ST_UINT maxConns; /* max connections that can be accepted */ + + /* Misc parameters */ + ST_UINT maxQueCnt; /* max num of logs that can be queued */ + + ST_CHAR *appId; /* pointer to NULL terminated string */ + /* identifying the application, sent to */ + /* IPC Logging Client in first message */ + + ST_UINT32 options; /* Options supported by the app */ + + /* command processing function pointer - to be set by user application */ + ST_VOID (*slog_ipc_cmd_fun) (struct tag_GEN_SOCK *pSock, struct tag_GEN_SOCK_DATA *sockData, + ST_UINT32 msgType, ST_UINT32 msgDataLen, ST_CHAR *msgData); + + } IPC_LOG_CTRL; + + +/* Standard command handling support */ +typedef struct + { + DBL_LNK l; + struct tag_GEN_SOCK *pSock; + struct tag_GEN_SOCK_DATA *sockData; + ST_UINT32 msgType; + ST_UINT32 msgDataLen; + ST_CHAR *msgData; + } SLOGIPC_CMD; + +extern SLOGIPC_CMD *slogIpcCmdList; +extern ST_INT slogIpcMaxCmdPend; + +ST_VOID slog_ipc_std_cmd_fun (struct tag_GEN_SOCK *pSock, + struct tag_GEN_SOCK_DATA *sockData, + ST_UINT32 msgType, ST_UINT32 msgDataLen, + ST_CHAR *msgData); + +ST_VOID slog_ipc_std_cmd_service (ST_CHAR *logCfgFile, /* As used in logcfgx_exx */ + ST_CHAR *fileNamePrefix, /* ditto */ + ST_CHAR *cName, /* ditto */ + ST_BOOLEAN callingEnable, + ST_RET (*logReloadHandler) (ST_VOID), + ST_RET (*extendedCmdHandler) (SLOGIPC_CMD *slogIpcCmd)); + +ST_VOID slog_ipc_std_cmd_service_ex (struct log_ctrl *lc, + ST_CHAR *logCfgFile, /* As used in logcfgx_exx */ + ST_CHAR *fileNamePrefix, /* ditto */ + ST_CHAR *cName, /* ditto */ + ST_BOOLEAN callingEnable, + ST_RET (*logReloadHandler) (ST_VOID), + ST_RET (*extendedCmdHandler) (SLOGIPC_CMD *slogIpcCmd)); + +ST_VOID slogIpcCallingEnable (ST_BOOLEAN enable); +ST_VOID slogIpcCallingEnableEx (struct log_ctrl *lc, ST_BOOLEAN enable); + +ST_INT slogIpcActiveCount (struct log_ctrl *lc); + +/************************************************************************/ +/* SLOG IPC Context */ + +/* connection states */ +#define SLOGIPC_CON_IDLE 0 +#define SLOGIPC_CONNECTED 1 +#define SLOGIPC_CON_CLOSING 2 + +/* Remote connection info */ +typedef struct slogipc_con_ctrl_tag + { + DBL_LNK link; /* link list */ + struct tag_GEN_SOCK *conSock; /* pointer to socket info */ + ST_UINT conState; /* connection state */ + ST_BOOLEAN txEnable; /* Used in smart mode */ + struct tag_GEN_SOCK_DATA *sendQue; /* Pending send queue to the Remote */ + ST_UINT sendQueCnt; /* number of messages to send in queue */ + struct tag_GEN_SOCK_DATA *rcvBuf; /* alloc buf to drain any rcvd bytes */ + } SLOGIPC_CON_CTRL; + + +/* SLOGIPC context states */ +#define SLOGIPC_CTX_IDLE 0 +#define SLOGIPC_CTX_ACTIVE 1 +#define SLOGIPC_CTX_TERMINATING 2 + +/* This structure holds core parameters */ +typedef struct slogipc_ctx_tag + { + ST_UINT state; /* SLOGIPC_CTX_* */ + ST_BOOLEAN smartMode; /* SD_TRUE if smart mode enabled, SD_FALSE otherwise */ + + ST_INT sealMode; + + SLOGIPC_CON_CTRL *conCtrlList; /* list of connect CTRLs */ + struct tag_GEN_SOCK *listenSock; /* listen socket for conns from remote slog Clients */ + struct tag_GEN_SOCK *callingSock; /* calling socket for conns to remote slog Client */ + struct log_ctrl *lc; /* save to access appId when connected */ + struct tag_GEN_SOCK_CTXT *sockCtx; /* this is gensock2 context for slogipc.c */ + + ST_INT hdrSize; /* Calculated at startup */ + ST_INT magicNumber; + + ST_BOOLEAN callingEnabled; + ST_DOUBLE nextCallingConnectTime; + } SLOGIPC_CTX; + + +/************************************************************************/ +/* LOG CONTROL */ +/* A structure of this type is used for each independent logging entity */ +/************************************************************************/ + +/* Log control mask values */ +#define LOG_MEM_EN 0x0001L +#define LOG_FILE_EN 0x0002L +#define LOG_TIME_EN 0x0008L +#define LOG_ELAPSEDTIME_EN 0x0020L /* Windows only */ + +#define LOG_TIMEDATE_EN 0x0010L /* obsolete - ignored */ +#define LOG_DIFFTIME_EN 0x0020L /* obsolete - ignored */ +#define LOG_TIME_INITIALIZED 0x0040L /* obsolete - ignored */ +#define LOG_SYSTIME_EN 0x0100L /* obsolete - ignored */ + +#define LOG_NO_HEADER_CR 0x0200L +#define LOG_FILENAME_SUPPRESS 0x0400L +#define LOG_LOGTYPE_SUPPRESS 0x0800L + +#define LOG_IPC_LISTEN_EN 0x1000L +#define LOG_IPC_CALL_EN 0x2000L +#define LOG_IPC_SMART 0x4000L +#define LOG_IPC_EN (LOG_IPC_LISTEN_EN|LOG_IPC_CALL_EN) + +#define SLOG_NORMAL 0 +#define SLOG_CONT -1 +/* Dynamic logging standard command definitions */ +#define SLOG_DYN_PAUSE -10 /* OBSOLETE */ +#define SLOG_DYN_LF -11 /* OBSOLETE */ +#define SLOG_DYN_CLRSCR -12 /* OBSOLETE */ + +typedef struct log_ctrl + { +/* User sets these elements */ + ST_UINT32 logCtrl; /* Logging Control flags - see LOG_xxx defines */ + FILE_LOG_CTRL fc; /* File logging control */ + MEM_LOG_CTRL mc; /* Memory logging control */ + IPC_LOG_CTRL ipc; /* IPC logging control */ + + +/* Application specific information */ + ST_UINT32 logMask1; /* These bit masked variables are used by the */ + ST_UINT32 logMask2; /* user application to determine whether a item */ + ST_UINT32 logMask3; /* is to be logged. 6 ST_INT32's == 192 bits */ + ST_UINT32 logMask4; + ST_UINT32 logMask5; + ST_UINT32 logMask6; + +/* Internal variables. */ + ST_BOOLEAN initialized; /* Set when LOG_CTRL has been initializled */ + ST_INT max_msg_size; /* max allowed log msg size. */ + ST_CHAR *msg_buf; /* buffer for log msg */ + +/* static vars */ + SLOGIPC_CTX slogIpcCtx; + } LOG_CTRL; + + +/* Max size of any single log statement (sprintf) */ + +#define MAX_LOG_SIZE 5000 + +/* Set the following variable to a number larger than the default of */ +/* MAX_LOG_SIZE if you want to log more than 500 bytes in a single */ +/* message. */ + +extern ST_INT sl_max_msg_size; + +/************************************************************************/ +/* Main entry points into the SLOG library */ +/************************************************************************/ + +ST_VOID slog (LOG_CTRL *lc, + SD_CONST ST_INT logType, + SD_CONST ST_CHAR *SD_CONST sourceFile, + SD_CONST ST_INT lineNum, + SD_CONST ST_CHAR *format, ...); + +ST_VOID slogx (ST_UINT32 doit, LOG_CTRL *lc, + SD_CONST ST_INT logType, + SD_CONST ST_CHAR *SD_CONST sourceFile, + SD_CONST ST_INT lineNum, + SD_CONST ST_CHAR *format, ...); + +ST_VOID slogHex (LOG_CTRL *lc, + SD_CONST ST_INT logType, + SD_CONST ST_CHAR *SD_CONST fileName, + SD_CONST ST_INT lineNum, + SD_CONST ST_INT numBytes, + SD_CONST ST_VOID *hexData); + + +ST_VOID _slog (LOG_CTRL *lc, + SD_CONST ST_CHAR *SD_CONST logTypeStr, + SD_CONST ST_CHAR *SD_CONST sourceFile, + SD_CONST ST_INT lineNum, + SD_CONST ST_CHAR *format, ...); +ST_VOID _slogc (LOG_CTRL *lc, SD_CONST ST_CHAR *format, ...); + +ST_VOID _slogx (ST_UINT32 doit, LOG_CTRL *lc, + SD_CONST ST_CHAR *SD_CONST logTypeStr, + SD_CONST ST_CHAR *SD_CONST sourceFile, + SD_CONST ST_INT lineNum, + SD_CONST ST_CHAR *format, ...); + +ST_VOID _slogHex (LOG_CTRL *lc, + ST_INT numBytes, + SD_CONST ST_VOID *hexData); + +ST_VOID _slogXML (LOG_CTRL *lc, + SD_CONST ST_CHAR *SD_CONST logTypeStr, + SD_CONST ST_CHAR *SD_CONST sourceFile, + SD_CONST ST_INT lineNum, + ST_UINT numBytes, + SD_CONST ST_CHAR *textData); + +ST_VOID _slogStr (LOG_CTRL *lc, ST_CHAR *strData); + +ST_RET slog_start (LOG_CTRL *lc, ST_INT max_msg_size); +ST_RET slog_end (LOG_CTRL *lc); + +ST_RET slog_max_msg_size_set (LOG_CTRL *lc, ST_INT max_msg_size); +/* Use macro to get max msg size. Faster. */ +#define slog_max_msg_size_get(log_ctrl) (log_ctrl->max_msg_size) + +ST_VOID slogIpcSendData (struct tag_GEN_SOCK *pSock, ST_UINT32 msgType, + ST_INT dataLen, ST_UCHAR *data); +ST_VOID slogIpcSendRawData (LOG_CTRL *lc, ST_INT bufLen, ST_CHAR *buf, ST_BOOLEAN sendAlways); + + +/************************************************************************/ +/* Main entry points into the SLOG library */ +/************************************************************************/ + +/* File Logging Utility Functions */ + +ST_VOID slogCloseFile (LOG_CTRL *lc); +ST_VOID slogCloneFile (LOG_CTRL *lc, SD_CONST ST_CHAR *newfile); +ST_VOID slogCloneFileEx (LOG_CTRL *lc, SD_CONST ST_CHAR *newFile); +ST_VOID slogDeleteFile (LOG_CTRL *lc); +ST_VOID slogCallStack (LOG_CTRL *lc, SD_CONST ST_CHAR *txt); +ST_VOID slogDelBuf (LOG_CTRL *lc); + +/* Memory Logging Utility Functions */ + +ST_VOID slogDumpMem (LOG_CTRL *lc); +ST_VOID slogResetMem (LOG_CTRL *lc); +ST_CHAR *slogGetMemMsg (LOG_CTRL *lc, SD_CONST ST_INT msgNum); +ST_INT slogGetMemCount (LOG_CTRL *lc); + +/* Internal functions */ + +ST_VOID slogFile (LOG_CTRL *lc, SD_CONST ST_INT logType, + SD_CONST ST_CHAR *SD_CONST logTypeStr, + SD_CONST ST_CHAR *SD_CONST sourceFile, + SD_CONST ST_INT lineNum, + SD_CONST ST_INT bufLen, SD_CONST ST_CHAR *buf); + +ST_VOID slogMem (LOG_CTRL *lc, + SD_CONST ST_INT logType, + SD_CONST ST_CHAR *SD_CONST logTypeStr, + SD_CONST ST_CHAR *SD_CONST sourceFile, + SD_CONST ST_INT lineNum, + ST_INT bufLen, SD_CONST ST_CHAR *buf); + +ST_RET slogIpcInit (LOG_CTRL *lc); +ST_RET slogIpcStop (LOG_CTRL *lc); +ST_RET slogIpcEvent (ST_VOID); +ST_RET slogIpcEventEx (LOG_CTRL *lc); + +ST_VOID slogIpc (LOG_CTRL *lc, ST_INT logType, + SD_CONST ST_CHAR *SD_CONST logTypeStr, + SD_CONST ST_CHAR *SD_CONST sourceFile, + ST_INT lineNum, ST_INT bufLen, + ST_CHAR *buf); + +ST_VOID slogMemInit (LOG_CTRL *lc); +ST_RET read_log_cfg_file (ST_CHAR *cfg_filename); +ST_RET slog_get_index_file_name (LOG_CTRL *lc, ST_CHAR *dest, ST_INT destLen); + +/************************************************************************/ + +/* dataType defines */ +#define _LOGCFG_DATATYPE_UINT_MASK 0 +#define _LOGCFG_DATATYPE_UINT32_MASK 1 +#define _LOGCFG_DATATYPE_RUINT32_MASK 2 +#define _LOGCFG_DATATYPE_BOOLEAN 3 +#define _LOGCFG_DATATYPE_INT 4 +#define _LOGCFG_DATATYPE_LONG 5 +#define _LOGCFG_DATATYPE_INT16 6 +#define _LOGCFG_DATATYPE_INT32 7 +#define _LOGCFG_DATATYPE_UINT 8 +#define _LOGCFG_DATATYPE_ULONG 9 +#define _LOGCFG_DATATYPE_UINT16 10 +#define _LOGCFG_DATATYPE_UINT32 11 +#define _LOGCFG_DATATYPE_STRING 12 +#define _LOGCFG_DATATYPE_STRINGBUF 13 +#define _LOGCFG_DATATYPE_DOUBLE 14 +#define _LOGCFG_DATATYPE_FILENAME 15 +#define _LOGCFG_DATATYPE_CALLBACK 16 + + +typedef struct + { + ST_CHAR *tag; /* NULL if must use perferredTag field */ + ST_UINT mask; + ST_VOID *addr; + ST_INT dataType; + ST_CHAR *description; /* NULL for no description */ + ST_CHAR *preferredTag; /* NULL if must use tag field */ + } LOGCFGX_VALUE_MAP; + +typedef struct + { + DBL_LNK l; + ST_CHAR *name; + ST_INT numMaskMap; + LOGCFGX_VALUE_MAP *maskMapTbl; + } LOGCFG_VALUE_GROUP; + + +ST_RET logcfgx_exx (LOG_CTRL *destLogCtrl, ST_CHAR *logFileName, ST_CHAR *fileNamePrefix, + ST_BOOLEAN masksOnly, ST_BOOLEAN saveTagVals, ST_CHAR *compName); +ST_RET logcfgx_ex (LOG_CTRL *destLogCtrl, ST_CHAR *logFileName, ST_CHAR *fileNamePrefix, + ST_BOOLEAN masksOnly, ST_BOOLEAN saveTagVals); +ST_VOID logCfgAddMaskGroup (LOGCFG_VALUE_GROUP *logMaskGroup); +ST_VOID logCfgRemoveMaskGroup (LOGCFG_VALUE_GROUP *logMaskGroup); +ST_VOID logCfgRemoveAllMaskGroups (ST_VOID); +ST_RET _logcfg_get_logmasks (ST_CHAR *xmlBuf, ST_INT *xmlSizeIo); +ST_INT _logcfg_get_logmasks_size (ST_VOID); + +/* ST_VOID (*logCfgCallbackFun) (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *tag, LOGCFGX_VALUE_MAP *valMap); */ + + +extern LOGCFG_VALUE_GROUP acseLogMaskMapCtrl; /* MMS-LITE, ICCP-LITE, MMS-EASE */ +extern LOGCFG_VALUE_GROUP adlcLogMaskMapCtrl; /* MMS-LITE */ +extern LOGCFG_VALUE_GROUP asn1LogMaskMapCtrl; /* MMS-LITE, ICCP-LITE, MMS-EASE */ +extern LOGCFG_VALUE_GROUP clnpLogMaskMapCtrl; /* MMS-LITE, ICCP-LITE */ +extern LOGCFG_VALUE_GROUP genlistDebugMapCtrl; /* MMS-LITE, ICCP-LITE, MMS-EASE */ +extern LOGCFG_VALUE_GROUP gsLogMaskMapCtrl; /* MMS-LITE, ICCP-LITE, MMS-EASE */ +extern LOGCFG_VALUE_GROUP icfgLogMaskMapCtrl; /* ICCP-LITE */ +extern LOGCFG_VALUE_GROUP logcfgMaskMapCtrl; /* MMS-LITE, ICCP-LITE, MMS-EASE */ +extern LOGCFG_VALUE_GROUP logCfgLogCtrlMapCtrl; /* MMS-LITE, ICCP-LITE, MMS-EASE */ +extern LOGCFG_VALUE_GROUP memDebugMapCtrl; /* MMS-LITE, ICCP-LITE, MMS-EASE */ +extern LOGCFG_VALUE_GROUP memLogMaskMapCtrl; /* MMS-LITE, ICCP-LITE, MMS-EASE */ +extern LOGCFG_VALUE_GROUP miLogMaskMapCtrl; /* ICCP-LITE */ +extern LOGCFG_VALUE_GROUP mmsLogMaskMapCtrl; /* MMS-LITE, ICCP-LITE, MMS-EASE */ +extern LOGCFG_VALUE_GROUP mvlLogMaskMapCtrl; /* MMS-LITE, ICCP-LITE */ +extern LOGCFG_VALUE_GROUP secLogMaskMapCtrl; /* MMS-LITE, ICCP-LITE, MMS-EASE */ +extern LOGCFG_VALUE_GROUP ssleLogMaskMapCtrl; /* MMS-LITE, ICCP-LITE, MMS-EASE */ +extern LOGCFG_VALUE_GROUP ssleASN1LogMaskMapCtrl; +extern LOGCFG_VALUE_GROUP smpLogMaskMapCtrl; /* MMS-LITE */ +extern LOGCFG_VALUE_GROUP sockLogMaskMapCtrl; /* MMS-LITE, ICCP-LITE, MMS-EASE */ +extern LOGCFG_VALUE_GROUP suicLogMaskMapCtrl; /* MMS-EASE */ +extern LOGCFG_VALUE_GROUP sxLogMaskMapCtrl; /* MMS-LITE, ICCP-LITE, MMS-EASE */ +extern LOGCFG_VALUE_GROUP tp4LogMaskMapCtrl; /* MMS-LITE, ICCP-LITE, MMS-EASE */ +extern LOGCFG_VALUE_GROUP usrLogMaskMapCtrl; /* MMS-LITE */ +/* For 142-XXX products (MMS_EASE over Lite Stack) */ +extern LOGCFG_VALUE_GROUP ipcLogMaskMapCtrl; +extern LOGCFG_VALUE_GROUP sscLogMaskMapCtrl; + + +typedef struct + { + DBL_LNK l; + ST_CHAR *tag; + ST_CHAR *tagPath; + ST_INT dataType; + union + { + ST_BOOLEAN b; + ST_INT sInt; + ST_LONG sLong; + ST_INT16 sInt16; + ST_INT32 sInt32; + ST_UINT uInt; + ST_ULONG uLong; + ST_UINT16 uInt16; + ST_UINT32 uInt32; + ST_DOUBLE dbl; + ST_CHAR *str; + }u; + } LOGCFGX_TAG_VAL; + +LOGCFGX_TAG_VAL *logCfgFindTagVal (ST_CHAR *tag); +ST_VOID logCfgClearTagVals (ST_VOID); + + +/************************************************************************/ +/************************************************************************/ +/* logcfg_debug_sel bit assignments */ +#define LOGCFG_ERR 0x0001 +#define LOGCFG_NERR 0x0002 +#define LOGCFG_FLOW 0x0004 + +extern ST_UINT logcfg_debug_sel; + +/* Log type strings */ +extern SD_CONST ST_CHAR *SD_CONST _logcfg_log_err_logstr; +extern SD_CONST ST_CHAR *SD_CONST _logcfg_log_nerr_logstr; +extern SD_CONST ST_CHAR *SD_CONST _logcfg_log_flow_logstr; + +/************************************************************************/ +/* Err log macros */ +#define LOGCFG_ERR0(a) \ + SLOG_0 (logcfg_debug_sel & LOGCFG_ERR,_logcfg_log_err_logstr,a) +#define LOGCFG_ERR1(a,b) \ + SLOG_1 (logcfg_debug_sel & LOGCFG_ERR,_logcfg_log_err_logstr,a,b) +#define LOGCFG_ERR2(a,b,c) \ + SLOG_2 (logcfg_debug_sel & LOGCFG_ERR,_logcfg_log_err_logstr,a,b,c) +#define LOGCFG_ERR3(a,b,c,d) \ + SLOG_3 (logcfg_debug_sel & LOGCFG_ERR,_logcfg_log_err_logstr,a,b,c,d) +#define LOGCFG_ERR4(a,b,c,d,e) \ + SLOG_4 (logcfg_debug_sel & LOGCFG_ERR,_logcfg_log_err_logstr,a,b,c,d,e) + +/* Err continuation log macros */ +#define LOGCFG_CERR0(a) \ + SLOGC_0 (logcfg_debug_sel & LOGCFG_ERR,a) +#define LOGCFG_CERR1(a,b) \ + SLOGC_1 (logcfg_debug_sel & LOGCFG_ERR,a,b) +#define LOGCFG_CERR2(a,b,c) \ + SLOGC_2 (logcfg_debug_sel & LOGCFG_ERR,a,b,c) +#define LOGCFG_CERR3(a,b,c,d) \ + SLOGC_3 (logcfg_debug_sel & LOGCFG_ERR,a,b,c,d) +#define LOGCFG_CERR4(a,b,c,d,e) \ + SLOGC_4 (logcfg_debug_sel & LOGCFG_ERR,a,b,c,d,e) + +/************************************************************************/ +/* NErr log macros */ +#define LOGCFG_NERR0(a) \ + SLOG_0 (logcfg_debug_sel & LOGCFG_NERR,_logcfg_log_nerr_logstr,a) +#define LOGCFG_NERR1(a,b) \ + SLOG_1 (logcfg_debug_sel & LOGCFG_NERR,_logcfg_log_nerr_logstr,a,b) +#define LOGCFG_NERR2(a,b,c) \ + SLOG_2 (logcfg_debug_sel & LOGCFG_NERR,_logcfg_log_nerr_logstr,a,b,c) +#define LOGCFG_NERR3(a,b,c,d) \ + SLOG_3 (logcfg_debug_sel & LOGCFG_NERR,_logcfg_log_nerr_logstr,a,b,c,d) +#define LOGCFG_NERR4(a,b,c,d,e) \ + SLOG_4 (logcfg_debug_sel & LOGCFG_NERR,_logcfg_log_nerr_logstr,a,b,c,d,e) + +/* NErr continuation log macros */ +#define LOGCFG_CNERR0(a) \ + SLOGC_0 (logcfg_debug_sel & LOGCFG_NERR,a) +#define LOGCFG_CNERR1(a,b) \ + SLOGC_1 (logcfg_debug_sel & LOGCFG_NERR,a,b) +#define LOGCFG_CNERR2(a,b,c) \ + SLOGC_2 (logcfg_debug_sel & LOGCFG_NERR,a,b,c) +#define LOGCFG_CNERR3(a,b,c,d) \ + SLOGC_3 (logcfg_debug_sel & LOGCFG_NERR,a,b,c,d) +#define LOGCFG_CNERR4(a,b,c,d,e) \ + SLOGC_4 (logcfg_debug_sel & LOGCFG_NERR,a,b,c,d,e) + +/************************************************************************/ +/* Flow log macros */ +#define LOGCFG_FLOW0(a) \ + SLOG_0 (logcfg_debug_sel & LOGCFG_FLOW,_logcfg_log_flow_logstr,a) +#define LOGCFG_FLOW1(a,b) \ + SLOG_1 (logcfg_debug_sel & LOGCFG_FLOW,_logcfg_log_flow_logstr,a,b) +#define LOGCFG_FLOW2(a,b,c) \ + SLOG_2 (logcfg_debug_sel & LOGCFG_FLOW,_logcfg_log_flow_logstr,a,b,c) +#define LOGCFG_FLOW3(a,b,c,d) \ + SLOG_3 (logcfg_debug_sel & LOGCFG_FLOW,_logcfg_log_flow_logstr,a,b,c,d) +#define LOGCFG_FLOW4(a,b,c,d,e) \ + SLOG_4 (logcfg_debug_sel & LOGCFG_FLOW,_logcfg_log_flow_logstr,a,b,c,d,e) + +/* Flow continuation log macros */ +#define LOGCFG_CFLOW0(a) \ + SLOGC_0 (logcfg_debug_sel & LOGCFG_FLOW,a) +#define LOGCFG_CFLOW1(a,b) \ + SLOGC_1 (logcfg_debug_sel & LOGCFG_FLOW,a,b) +#define LOGCFG_CFLOW2(a,b,c) \ + SLOGC_2 (logcfg_debug_sel & LOGCFG_FLOW,a,b,c) +#define LOGCFG_CFLOW3(a,b,c,d) \ + SLOGC_3 (logcfg_debug_sel & LOGCFG_FLOW,a,b,c,d) +#define LOGCFG_CFLOW4(a,b,c,d,e) \ + SLOGC_4 (logcfg_debug_sel & LOGCFG_FLOW,a,b,c,d,e) + + +/************************************************************************/ +/************************************************************************/ +/* Global variables for the SLOG library. */ +/************************************************************************/ + +/* Log masks for different components of SISCO products. */ +extern ST_UINT gs_debug_sel; +extern ST_UINT clnp_debug_sel; + + +extern LOG_CTRL *sLogCtrl; +extern LOG_CTRL *sErrLogCtrl; + +extern ST_BOOLEAN sNonStandardLogMode; + +/************************************************************************/ +/* These elements are used for creating time strings */ +/************************************************************************/ + +extern ST_CHAR slogTimeText[TIME_BUF_LEN]; +ST_VOID slogSetTimeText (LOG_CTRL *lc); + +/************************************************************************/ +/* slog header defines and buffer */ +/************************************************************************/ + +#define SLOG_MAX_FNAME 64 +#define SLOG_MAX_LOGTYPESTR 40 /* logTypeStr cutoff if too long*/ +#define SLOG_MAX_HDR (2 + \ + TIME_BUF_LEN + \ + SLOG_MAX_LOGTYPESTR+1 + \ + SLOG_MAX_FNAME+14 + \ + 1 + 2) + +/* (2 NL , NL */ +/* TIME_BUF_LEN + slogTimeText buf size */ +/* SLOG_MAX_LOGTYPESTR+1 + limit for logTypeStr */ +/* SLOG_MAX_FNAME+14 + fName & lineNum formatting */ +/* 1 + 2) NL + 2 spaces before msg */ + +ST_VOID slogTrimFileName (ST_CHAR *dest, SD_CONST ST_CHAR *fullName); +ST_VOID slogSetHdr (LOG_CTRL *lc, SD_CONST ST_INT logType, + SD_CONST ST_CHAR *SD_CONST logTypeStr, + SD_CONST ST_CHAR *SD_CONST sourceFile, + SD_CONST ST_INT lineNum, + ST_CHAR *slogHdr, ST_CHAR *lineBreak); + +/************************************************************************/ +/* dynamic loging function */ +/************************************************************************/ + +extern ST_VOID (*slog_dyn_log_fun) (LOG_CTRL *lc, + SD_CONST ST_INT logType, + SD_CONST ST_CHAR *SD_CONST sourceFile, + SD_CONST ST_INT lineNum, + SD_CONST ST_INT bufLen, + SD_CONST ST_CHAR *buf); +extern ST_VOID (*_slog_dyn_log_fun) (LOG_CTRL *lc, + SD_CONST ST_CHAR *timeStr, + SD_CONST ST_INT logType, + SD_CONST ST_CHAR *SD_CONST logTypeStr, + SD_CONST ST_CHAR *SD_CONST sourceFile, + SD_CONST ST_INT lineNum, + SD_CONST ST_INT bufLen, + SD_CONST ST_CHAR *buf); + +/************************************************************************/ +/* This function pointer is invoked during slow SLOG operations, such */ +/* as 'clone' and 'find oldest message' */ + +extern ST_VOID (*slog_service_fun) (ST_VOID); + +/************************************************************************/ +/* Remote logging function */ +/************************************************************************/ + +extern ST_VOID (*slog_remote_fun) (ST_UINT32 slog_remote_flags, + LOG_CTRL *lc, + SD_CONST ST_INT logType, + SD_CONST ST_CHAR *SD_CONST sourceFile, + SD_CONST ST_INT lineNum, + SD_CONST ST_INT bufLen, + SD_CONST ST_CHAR *buf); + +extern ST_VOID (*_slog_remote_fun) (ST_UINT32 slog_remote_flags, + LOG_CTRL *lc, + SD_CONST ST_INT logType, + SD_CONST ST_CHAR *SD_CONST logTypeStr, + SD_CONST ST_CHAR *SD_CONST sourceFile, + SD_CONST ST_INT lineNum, + SD_CONST ST_INT bufLen, + SD_CONST ST_CHAR *buf); + +/* Parameter for use with remote logging function pointer */ +/* SLOG will pass this global variable to the slog_remote_fun function */ +extern ST_UINT32 slogRemoteFlags; + +/************************************************************************/ +/* Standard dynamic logging control definitions */ +/************************************************************************/ +/* These macros are OBSOLETE. They now do nothing. Previously they */ +/* passed logType values of SLOG_DYN_PAUSE, SLOG_DYN_LF, SLOG_DYN_CLRSCR*/ +/* respectively to slog. */ + +#define SLOG_PAUSE(lc,msg) +#define SLOG_LF(lc) +#define SLOG_CLRSCR(lc) + +/************************************************************************/ +/* Base macro types, useful for typical user logging, to reduce user */ +/* macro verbosity */ +/************************************************************************/ + +#define SLOGH1(lc,mask,id,x,y) {\ + if (lc->logMask1 & mask)\ + slogHex (sLogCtrl,id, thisFileName,__LINE__,x,y);} + + +#define SLOGH2(lc,mask,id,x,y) {\ + if (lc->logMask2 & mask)\ + slogHex (sLogCtrl,id, thisFileName,__LINE__,x,y);} + +#define SLOGH3(lc,mask,id,x,y) {\ + if (lc->logMask3 & mask)\ + slogHex (sLogCtrl,id, thisFileName,__LINE__,x,y);} + +#define SLOGH4(lc,mask,id,x,y) {\ + if (lc->logMask4 & mask)\ + slogHex (sLogCtrl,id, thisFileName,__LINE__,x,y);} + +#define SLOGH5(lc,mask,id,x,y) {\ + if (lc->logMask5 & mask)\ + slogHex (sLogCtrl,id, thisFileName,__LINE__,x,y);} + +#define SLOGH6(lc,mask,id,x,y) {\ + if (lc->logMask6 & mask)\ + slogHex (sLogCtrl,id, thisFileName,__LINE__,x,y);} + + + +/* ******************* LOG MASK 1 MACROS ************************* */ + +#define SLOG1_0(lc,mask,id,a) {\ + if (lc->logMask1 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a);\ + } + +#define SLOG1_1(lc,mask,id,a,b) {\ + if (lc->logMask1 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b);\ + } + +#define SLOG1_2(lc,mask,id,a,b,c) {\ + if (lc->logMask1 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c);\ + } + +#define SLOG1_3(lc,mask,id,a,b,c,d) {\ + if (lc->logMask1 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d);\ + } + +#define SLOG1_4(lc,mask,id,a,b,c,d,e) {\ + if (lc->logMask1 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e);\ + } + +#define SLOG1_5(lc,mask,id,a,b,c,d,e,f) {\ + if (lc->logMask1 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e,f);\ + } + +#define SLOG1_6(lc,mask,id,a,b,c,d,e,f,g) {\ + if (lc->logMask1 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e,f,g);\ + } + +#define SLOG1_7(lc,mask,id,a,b,c,d,e,f,g,h) {\ + if (lc->logMask1 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e,f,g,h);\ + } + +#define SLOG1_8(lc,mask,id,a,b,c,d,e,f,g,h,i) {\ + if (lc->logMask1 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e,f,g,h,i);\ + } + + + +/* ******************* LOG MASK 2 MACROS ************************* */ +#define SLOG2_0(lc,mask,id,a) {\ + if (lc->logMask2 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a);\ + } + +#define SLOG2_1(lc,mask,id,a,b) {\ + if (lc->logMask2 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b);\ + } + +#define SLOG2_2(lc,mask,id,a,b,c) {\ + if (lc->logMask2 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c);\ + } + +#define SLOG2_3(lc,mask,id,a,b,c,d) {\ + if (lc->logMask2 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d);\ + } + +#define SLOG2_4(lc,mask,id,a,b,c,d,e) {\ + if (lc->logMask2 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e);\ + } + +#define SLOG2_5(lc,mask,id,a,b,c,d,e,f) {\ + if (lc->logMask2 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e,f);\ + } + +#define SLOG2_6(lc,mask,id,a,b,c,d,e,f,g) {\ + if (lc->logMask2 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e,f,g);\ + } + +#define SLOG2_7(lc,mask,id,a,b,c,d,e,f,g,h) {\ + if (lc->logMask2 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e,f,g,h);\ + } + +#define SLOG2_8(lc,mask,id,a,b,c,d,e,f,g,h,i) {\ + if (lc->logMask2 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e,f,g,h,i);\ + } + + + +/* ******************* LOG MASK 3 MACROS ************************* */ +#define SLOG3_0(lc,mask,id,a) {\ + if (lc->logMask3 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a);\ + } + +#define SLOG3_1(lc,mask,id,a,b) {\ + if (lc->logMask3 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b);\ + } + +#define SLOG3_2(lc,mask,id,a,b,c) {\ + if (lc->logMask3 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c);\ + } + +#define SLOG3_3(lc,mask,id,a,b,c,d) {\ + if (lc->logMask3 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d);\ + } + +#define SLOG3_4(lc,mask,id,a,b,c,d,e) {\ + if (lc->logMask3 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e);\ + } + +#define SLOG3_5(lc,mask,id,a,b,c,d,e,f) {\ + if (lc->logMask3 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e,f);\ + } + +#define SLOG3_6(lc,mask,id,a,b,c,d,e,f,g) {\ + if (lc->logMask3 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e,f,g);\ + } + +#define SLOG3_7(lc,mask,id,a,b,c,d,e,f,g,h) {\ + if (lc->logMask3 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e,f,g,h);\ + } + +#define SLOG3_8(lc,mask,id,a,b,c,d,e,f,g,h,i) {\ + if (lc->logMask3 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e,f,g,h,i);\ + } + + + +/* ******************* LOG MASK 4 MACROS ************************* */ +#define SLOG4_0(lc,mask,id,a) {\ + if (lc->logMask4 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a);\ + } + +#define SLOG4_1(lc,mask,id,a,b) {\ + if (lc->logMask4 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b);\ + } + +#define SLOG4_2(lc,mask,id,a,b,c) {\ + if (lc->logMask4 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c);\ + } + +#define SLOG4_3(lc,mask,id,a,b,c,d) {\ + if (lc->logMask4 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d);\ + } + +#define SLOG4_4(lc,mask,id,a,b,c,d,e) {\ + if (lc->logMask4 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e);\ + } + +#define SLOG4_5(lc,mask,id,a,b,c,d,e,f) {\ + if (lc->logMask4 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e,f);\ + } + +#define SLOG4_6(lc,mask,id,a,b,c,d,e,f,g) {\ + if (lc->logMask4 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e,f,g);\ + } + +#define SLOG4_7(lc,mask,id,a,b,c,d,e,f,g,h) {\ + if (lc->logMask4 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e,f,g,h);\ + } + +#define SLOG4_8(lc,mask,id,a,b,c,d,e,f,g,h,i) {\ + if (lc->logMask4 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e,f,g,h,i);\ + } + + + + +/* ******************* LOG MASK 5 MACROS ************************* */ +#define SLOG5_0(lc,mask,id,a) {\ + if (lc->logMask5 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a);\ + } + +#define SLOG5_1(lc,mask,id,a,b) {\ + if (lc->logMask5 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b);\ + } + +#define SLOG5_2(lc,mask,id,a,b,c) {\ + if (lc->logMask5 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c);\ + } + +#define SLOG5_3(lc,mask,id,a,b,c,d) {\ + if (lc->logMask5 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d);\ + } + +#define SLOG5_4(lc,mask,id,a,b,c,d,e) {\ + if (lc->logMask5 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e);\ + } + +#define SLOG5_5(lc,mask,id,a,b,c,d,e,f) {\ + if (lc->logMask5 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e,f);\ + } + +#define SLOG5_6(lc,mask,id,a,b,c,d,e,f,g) {\ + if (lc->logMask5 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e,f,g);\ + } + +#define SLOG5_7(lc,mask,id,a,b,c,d,e,f,g,h) {\ + if (lc->logMask5 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e,f,g,h);\ + } + +#define SLOG5_8(lc,mask,id,a,b,c,d,e,f,g,h,i) {\ + if (lc->logMask5 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e,f,g,h,i);\ + } + + + +/* ******************* LOG MASK 6 MACROS ************************* */ +#define SLOG6_0(lc,mask,id,a) {\ + if (lc->logMask6 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a);\ + } + +#define SLOG6_1(lc,mask,id,a,b) {\ + if (lc->logMask6 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b);\ + } + +#define SLOG6_2(lc,mask,id,a,b,c) {\ + if (lc->logMask6 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c);\ + } + +#define SLOG6_3(lc,mask,id,a,b,c,d) {\ + if (lc->logMask6 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d);\ + } + +#define SLOG6_4(lc,mask,id,a,b,c,d,e) {\ + if (lc->logMask6 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e);\ + } + +#define SLOG6_5(lc,mask,id,a,b,c,d,e,f) {\ + if (lc->logMask6 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e,f);\ + } + +#define SLOG6_6(lc,mask,id,a,b,c,d,e,f,g) {\ + if (lc->logMask6 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e,f,g);\ + } + +#define SLOG6_7(lc,mask,id,a,b,c,d,e,f,g,h) {\ + if (lc->logMask6 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e,f,g,h);\ + } + +#define SLOG6_8(lc,mask,id,a,b,c,d,e,f,g,h,i) {\ + if (lc->logMask6 & mask)\ + slog (sLogCtrl,id, thisFileName,__LINE__,a,b,c,d,e,f,g,h,i);\ + } + + + +/************************************************************************/ +/************************************************************************/ +#if defined(DEBUG_SISCO) +/************************************************************************/ + +extern ST_CHAR *_slogAlwaysLogTypeStr; +extern ST_CHAR *_slogXMLLogTypeStr; + +#define SLOGALWAYS0(a) \ + _slog (sLogCtrl,_slogAlwaysLogTypeStr, thisFileName,__LINE__,a) +#define SLOGALWAYS1(a,b) \ + _slog (sLogCtrl,_slogAlwaysLogTypeStr, thisFileName,__LINE__,a,b) +#define SLOGALWAYS2(a,b,c) \ + _slog (sLogCtrl,_slogAlwaysLogTypeStr, thisFileName,__LINE__,a,b,c) +#define SLOGALWAYS3(a,b,c,d) \ + _slog (sLogCtrl,_slogAlwaysLogTypeStr, thisFileName,__LINE__,a,b,c,d) +#define SLOGALWAYS4(a,b,c,d,e) \ + _slog (sLogCtrl,_slogAlwaysLogTypeStr, thisFileName,__LINE__,a,b,c,d,e) +#define SLOGALWAYS5(a,b,c,d,e,f) \ + _slog (sLogCtrl,_slogAlwaysLogTypeStr, thisFileName,__LINE__,a,b,c,d,e,f) +#define SLOGALWAYS6(a,b,c,d,e,f,g) \ + _slog (sLogCtrl,_slogAlwaysLogTypeStr, thisFileName,__LINE__,a,b,c,d,e,f,g) +#define SLOGALWAYS7(a,b,c,d,e,f,g,h) \ + _slog (sLogCtrl,_slogAlwaysLogTypeStr, thisFileName,__LINE__,a,b,c,d,e,f,g,h) +#define SLOGALWAYS8(a,b,c,d,e,f,g,h,i) \ + _slog (sLogCtrl,_slogAlwaysLogTypeStr, thisFileName,__LINE__,a,b,c,d,e,f,g,h,i) +#define SLOGALWAYS9(a,b,c,d,e,f,g,h,i,j) \ + _slog (sLogCtrl,_slogAlwaysLogTypeStr, thisFileName,__LINE__,a,b,c,d,e,f,g,h,i,j) +#define SLOGALWAYS10(a,b,c,d,e,f,g,h,i,j,k) \ + _slog (sLogCtrl,_slogAlwaysLogTypeStr, thisFileName,__LINE__,a,b,c,d,e,f,g,h,i,j,k) +#define SLOGALWAYS11(a,b,c,d,e,f,g,h,i,j,k,l) \ + _slog (sLogCtrl,_slogAlwaysLogTypeStr, thisFileName,__LINE__,a,b,c,d,e,f,g,h,i,j,k,l) + +#define SLOGCALWAYS0(a) \ + _slogc (sLogCtrl,a) +#define SLOGCALWAYS1(a,b) \ + _slogc (sLogCtrl,a,b) +#define SLOGCALWAYS2(a,b,c) \ + _slogc (sLogCtrl,a,b,c) +#define SLOGCALWAYS3(a,b,c,d) \ + _slogc (sLogCtrl,a,b,c,d) +#define SLOGCALWAYS4(a,b,c,d,e) \ + _slogc (sLogCtrl,a,b,c,d,e) +#define SLOGCALWAYS5(a,b,c,d,e,f) \ + _slogc (sLogCtrl,a,b,c,d,e,f) +#define SLOGCALWAYS6(a,b,c,d,e,f,g) \ + _slogc (sLogCtrl,a,b,c,d,e,f,g) +#define SLOGCALWAYS7(a,b,c,d,e,f,g,h) \ + _slogc (sLogCtrl,a,b,c,d,e,f,g,h) +#define SLOGCALWAYS8(a,b,c,d,e,f,g,h,i) \ + _slogc (sLogCtrl,a,b,c,d,e,f,g,h,i) + +#define SLOGALWAYSH(numBytes,dataPtr) \ + _slogHex (sLogCtrl, numBytes, dataPtr) + +#define SLOGALWAYSS(dataPtr) \ + _slogStr (sLogCtrl, dataPtr) + +#define SLOGALWAYSX(numBytes, dataPtr) \ + _slogXML (sLogCtrl, _slogXMLLogTypeStr, thisFileName, __LINE__, numBytes, dataPtr) + +/************************************************************************/ +#else /* #if defined(DEBUG_SISCO) */ +/************************************************************************/ + +#define SLOGALWAYS0(a) +#define SLOGALWAYS1(a,b) +#define SLOGALWAYS2(a,b,c) +#define SLOGALWAYS3(a,b,c,d) +#define SLOGALWAYS4(a,b,c,d,e) +#define SLOGALWAYS5(a,b,c,d,e,f) +#define SLOGALWAYS6(a,b,c,d,e,f,g) +#define SLOGALWAYS7(a,b,c,d,e,f,g,h) +#define SLOGALWAYS8(a,b,c,d,e,f,g,h,i) +#define SLOGALWAYS9(a,b,c,d,e,f,g,h,i,j) +#define SLOGALWAYS10(a,b,c,d,e,f,g,h,i,j,k) +#define SLOGALWAYS11(a,b,c,d,e,f,g,h,i,j,k,l) +#define SLOGCALWAYS0(a) +#define SLOGCALWAYS1(a,b) +#define SLOGCALWAYS2(a,b,c) +#define SLOGCALWAYS3(a,b,c,d) +#define SLOGCALWAYS4(a,b,c,d,e) +#define SLOGCALWAYS5(a,b,c,d,e,f) +#define SLOGCALWAYS6(a,b,c,d,e,f,g) +#define SLOGCALWAYS7(a,b,c,d,e,f,g,h) +#define SLOGCALWAYS8(a,b,c,d,e,f,g,h,i) +#define SLOGALWAYSH(numBytes,dataPtr) +#define SLOGALWAYSS(dataPtr) +#define SLOGALWAYSX(numBytes,dataPtr) + +#endif +/************************************************************************/ + +/************************************************************************/ +/* "Base" set of macros. */ +/* All other LOG macros should call these macros. */ +/* TRICK: These macros all use "do{...}while(0)". */ +/* This works in any context without adding extra {}. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +/* Basic log macros (all call _slog) */ +#define SLOG_0(ena,str,fmt) \ + do {if (ena) _slog (sLogCtrl,str,thisFileName,__LINE__,fmt);} while(0) + +#define SLOG_1(ena,str,fmt,a) \ + do {if (ena) _slog (sLogCtrl,str,thisFileName,__LINE__,fmt,a);} while(0) + +#define SLOG_2(ena,str,fmt,a,b) \ + do {if (ena) _slog (sLogCtrl,str,thisFileName,__LINE__,fmt,a,b);} while(0) + +#define SLOG_3(ena,str,fmt,a,b,c) \ + do {if (ena) _slog (sLogCtrl,str,thisFileName,__LINE__,fmt,a,b,c);} while(0) + +#define SLOG_4(ena,str,fmt,a,b,c,d) \ + do {if (ena) _slog (sLogCtrl,str,thisFileName,__LINE__,fmt,a,b,c,d);} while(0) + +#define SLOG_5(ena,str,fmt,a,b,c,d,e) \ + do {if (ena) _slog (sLogCtrl,str,thisFileName,__LINE__,fmt,a,b,c,d,e);} while(0) + +#define SLOG_6(ena,str,fmt,a,b,c,d,e,f) \ + do {if (ena) _slog (sLogCtrl,str,thisFileName,__LINE__,fmt,a,b,c,d,e,f);} while(0) + +#define SLOG_7(ena,str,fmt,a,b,c,d,e,f,g) \ + do {if (ena) _slog (sLogCtrl,str,thisFileName,__LINE__,fmt,a,b,c,d,e,f,g);} while(0) + +#define SLOG_8(ena,str,fmt,a,b,c,d,e,f,g,h) \ + do {if (ena) _slog (sLogCtrl,str,thisFileName,__LINE__,fmt,a,b,c,d,e,f,g,h);} while(0) + +/* Continuation macros (all call _slogc). */ +#define SLOGC_0(ena,fmt) \ + do {if (ena) _slogc (sLogCtrl,fmt);} while(0) + +#define SLOGC_1(ena,fmt,a) \ + do {if (ena) _slogc (sLogCtrl,fmt,a);} while(0) + +#define SLOGC_2(ena,fmt,a,b) \ + do {if (ena) _slogc (sLogCtrl,fmt,a,b);} while(0) + +#define SLOGC_3(ena,fmt,a,b,c) \ + do {if (ena) _slogc (sLogCtrl,fmt,a,b,c);} while(0) + +#define SLOGC_4(ena,fmt,a,b,c,d) \ + do {if (ena) _slogc (sLogCtrl,fmt,a,b,c,d);} while(0) + +#define SLOGC_5(ena,fmt,a,b,c,d,e) \ + do {if (ena) _slogc (sLogCtrl,fmt,a,b,c,d,e);} while(0) + +#define SLOGC_6(ena,fmt,a,b,c,d,e,f) \ + do {if (ena) _slogc (sLogCtrl,fmt,a,b,c,d,e,f);} while(0) + +#define SLOGC_7(ena,fmt,a,b,c,d,e,f,g) \ + do {if (ena) _slogc (sLogCtrl,fmt,a,b,c,d,e,f,g);} while(0) + +#define SLOGC_8(ena,fmt,a,b,c,d,e,f,g,h) \ + do {if (ena) _slogc (sLogCtrl,fmt,a,b,c,d,e,f,g,h);} while(0) + +/* Hex logging macro (calls _slogHex) */ +#define SLOGH(ena,num,ptr) \ + do {if (ena) _slogHex (sLogCtrl,num,ptr);} while(0) + +/* XML logging macro (calls _slogXML) */ +#define SLOGX(ena,num,ptr) \ + do {if (ena) _slogXML (sLogCtrl, _slogXMLLogTypeStr, thisFileName, __LINE__, num, ptr);} while(0) + +#else /* !DEBUG_SISCO */ + +/* Non-DEBUG macros for EVERYONE! Yeah!! Never have to create another one.*/ +/* Basic log macros (do nothing) */ +#define SLOG_0(ena,str,fmt) +#define SLOG_1(ena,str,fmt,a) +#define SLOG_2(ena,str,fmt,a,b) +#define SLOG_3(ena,str,fmt,a,b,c) +#define SLOG_4(ena,str,fmt,a,b,c,d) +#define SLOG_5(ena,str,fmt,a,b,c,d,e) +#define SLOG_6(ena,str,fmt,a,b,c,d,e,f) +#define SLOG_7(ena,str,fmt,a,b,c,d,e,f,g) +#define SLOG_8(ena,str,fmt,a,b,c,d,e,f,g,h) + +/* Continuation macros (do nothing). */ +#define SLOGC_0(ena,fmt) +#define SLOGC_1(ena,fmt,a) +#define SLOGC_2(ena,fmt,a,b) +#define SLOGC_3(ena,fmt,a,b,c) +#define SLOGC_4(ena,fmt,a,b,c,d) +#define SLOGC_5(ena,fmt,a,b,c,d,e) +#define SLOGC_6(ena,fmt,a,b,c,d,e,f) +#define SLOGC_7(ena,fmt,a,b,c,d,e,f,g) +#define SLOGC_8(ena,fmt,a,b,c,d,e,f,g,h) + +/* Hex logging macro (do nothing) */ +#define SLOGH(ena,num,ptr) +/* XML logging macro (do nothing) */ +#define SLOGX(ena,num,ptr) +#endif /* !DEBUG_SISCO */ + + +/************************************************************************/ +/* "Base" set of macros for error log */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +/* Basic log macros (all call _slog) */ +#define SELOG_0(ena,str,fmt) \ + do {if (ena) _slog (sErrLogCtrl,str,thisFileName,__LINE__,fmt);} while(0) + +#define SELOG_1(ena,str,fmt,a) \ + do {if (ena) _slog (sErrLogCtrl,str,thisFileName,__LINE__,fmt,a);} while(0) + +#define SELOG_2(ena,str,fmt,a,b) \ + do {if (ena) _slog (sErrLogCtrl,str,thisFileName,__LINE__,fmt,a,b);} while(0) + +#define SELOG_3(ena,str,fmt,a,b,c) \ + do {if (ena) _slog (sErrLogCtrl,str,thisFileName,__LINE__,fmt,a,b,c);} while(0) + +#define SELOG_4(ena,str,fmt,a,b,c,d) \ + do {if (ena) _slog (sErrLogCtrl,str,thisFileName,__LINE__,fmt,a,b,c,d);} while(0) + +#define SELOG_5(ena,str,fmt,a,b,c,d,e) \ + do {if (ena) _slog (sErrLogCtrl,str,thisFileName,__LINE__,fmt,a,b,c,d,e);} while(0) + +#define SELOG_6(ena,str,fmt,a,b,c,d,e,f) \ + do {if (ena) _slog (sErrLogCtrl,str,thisFileName,__LINE__,fmt,a,b,c,d,e,f);} while(0) + +#define SELOG_7(ena,str,fmt,a,b,c,d,e,f,g) \ + do {if (ena) _slog (sErrLogCtrl,str,thisFileName,__LINE__,fmt,a,b,c,d,e,f,g);} while(0) + +#define SELOG_8(ena,str,fmt,a,b,c,d,e,f,g,h) \ + do {if (ena) _slog (sErrLogCtrl,str,thisFileName,__LINE__,fmt,a,b,c,d,e,f,g,h);} while(0) + +/* Continuation macros (all call _slogc). */ +#define SELOGC_0(ena,fmt) \ + do {if (ena) _slogc (sErrLogCtrl,fmt);} while(0) + +#define SELOGC_1(ena,fmt,a) \ + do {if (ena) _slogc (sErrLogCtrl,fmt,a);} while(0) + +#define SELOGC_2(ena,fmt,a,b) \ + do {if (ena) _slogc (sErrLogCtrl,fmt,a,b);} while(0) + +#define SELOGC_3(ena,fmt,a,b,c) \ + do {if (ena) _slogc (sErrLogCtrl,fmt,a,b,c);} while(0) + +#define SELOGC_4(ena,fmt,a,b,c,d) \ + do {if (ena) _slogc (sErrLogCtrl,fmt,a,b,c,d);} while(0) + +#define SELOGC_5(ena,fmt,a,b,c,d,e) \ + do {if (ena) _slogc (sErrLogCtrl,fmt,a,b,c,d,e);} while(0) + +#define SELOGC_6(ena,fmt,a,b,c,d,e,f) \ + do {if (ena) _slogc (sErrLogCtrl,fmt,a,b,c,d,e,f);} while(0) + +#define SELOGC_7(ena,fmt,a,b,c,d,e,f,g) \ + do {if (ena) _slogc (sErrLogCtrl,fmt,a,b,c,d,e,f,g);} while(0) + +#define SELOGC_8(ena,fmt,a,b,c,d,e,f,g,h) \ + do {if (ena) _slogc (sErrLogCtrl,fmt,a,b,c,d,e,f,g,h);} while(0) + +/* Hex logging macro (calls _slogHex) */ +#define SELOGH(ena,num,ptr) \ + do {if (ena) _slogHex (sErrLogCtrl,num,ptr);} while(0) + +/* XML logging macro (calls _slogXML) */ +#define SELOGX(ena,num,ptr) \ + do {if (ena) _slogXML (sErrLogCtrl, _slogXMLLogTypeStr, thisFileName, __LINE__, num, ptr);} while(0) + +#else /* !DEBUG_SISCO */ + +/* Non-DEBUG macros for EVERYONE! Yeah!! Never have to create another one.*/ +/* Basic log macros (do nothing) */ +#define SELOG_0(ena,str,fmt) +#define SELOG_1(ena,str,fmt,a) +#define SELOG_2(ena,str,fmt,a,b) +#define SELOG_3(ena,str,fmt,a,b,c) +#define SELOG_4(ena,str,fmt,a,b,c,d) +#define SELOG_5(ena,str,fmt,a,b,c,d,e) +#define SELOG_6(ena,str,fmt,a,b,c,d,e,f) +#define SELOG_7(ena,str,fmt,a,b,c,d,e,f,g) +#define SELOG_8(ena,str,fmt,a,b,c,d,e,f,g,h) + +/* Continuation macros (do nothing). */ +#define SELOGC_0(ena,fmt) +#define SELOGC_1(ena,fmt,a) +#define SELOGC_2(ena,fmt,a,b) +#define SELOGC_3(ena,fmt,a,b,c) +#define SELOGC_4(ena,fmt,a,b,c,d) +#define SELOGC_5(ena,fmt,a,b,c,d,e) +#define SELOGC_6(ena,fmt,a,b,c,d,e,f) +#define SELOGC_7(ena,fmt,a,b,c,d,e,f,g) +#define SELOGC_8(ena,fmt,a,b,c,d,e,f,g,h) + +/* Hex logging macro (do nothing) */ +#define SELOGH(ena,num,ptr) +/* XML logging macro (do nothing) */ +#define SELOGX(ena,num,ptr) +#endif /* !DEBUG_SISCO */ + + +#ifdef __cplusplus +} +#endif + +#endif /* end of 'already included' */ + diff --git a/mmslib/inc/smp.h b/mmslib/inc/smp.h new file mode 100644 index 0000000..739c156 --- /dev/null +++ b/mmslib/inc/smp.h @@ -0,0 +1,110 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1997, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : smp.h */ +/* PRODUCT(S) : UCA Station Management Protocol (UCA SMP). */ +/* */ +/* MODULE DESCRIPTION : */ +/* This header file specifies internal defines and function */ +/* prototypes for UCA Station Management Protocol (UCA SMP). */ +/* */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 09/09/96 EJV 01 Created */ +/************************************************************************/ + +#ifndef SMP_INCLUDED +#define SMP_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + + /*--------------------------------------*/ + /* LLC level encoding values */ + /*--------------------------------------*/ + + /* (same in clnp_llc.h) */ +#define LLC_LSAP_SMP (ST_UCHAR) 0xFB /* For UCA SMP (Station Mgt Prot) */ +#define LLC_CONTROL_SMP (ST_UCHAR) 0x03 /* For UCA SMP (Station Mgt Prot) */ + + /*--------------------------------------*/ + /* Max size of Autorization field */ + /*--------------------------------------*/ + +#define SMP_SIZE_OF_AUTH 8 + + /*----------------------------------------------*/ + /* Valid codes SMP UCA PDU type */ + /*----------------------------------------------*/ + +#define SMP_UCA_PDU_ERROR 0 +#define SMP_UCA_PDU_TIMESYNC 1 + +#define SMP_PDU_INVALID_TYPE 255 + + /*----------------------------------------------*/ + /* Valid codes for TimeSync PDU type */ + /*----------------------------------------------*/ + +#define SMP_TIMESYNC_PDU_MEASURE_REQ 0 +#define SMP_TIMESYNC_PDU_MEASURE_RSP 1 +#define SMP_TIMESYNC_PDU_SYNC_REQ 2 +#define SMP_TIMESYNC_PDU_SYNC_RSP 3 +#define SMP_TIMESYNC_PDU_ERROR 4 +#define SMP_TIMESYNC_PDU_PREPARE 5 + + + /*----------------------------------------------*/ + /* Valid error codes in the UCA ErrorPDU */ + /*----------------------------------------------*/ + +#define SMP_ERR_NO_ERROR 0 +#define SMP_ERR_UNSUPPORTED 1 +#define SMP_ERR_UNRECOGNIZED_SERVICE 2 +#define SMP_ERR_PDU_ERROR 3 +#define SMP_ERR_OUT_OF_RESOURCES 4 + + /*----------------------------------------------*/ + /* Valid error codes in the Sync-ErrorPDU */ + /*----------------------------------------------*/ + +#define SMP_SYNC_ERR_NO_ERROR 0 +#define SMP_SYNC_ERR_LOCALLY_SYNCED 1 +#define SMP_SYNC_ERR_NOT_AUTHORIZED 2 +#define SMP_SYNC_ERR_NOT_MEASURED 3 +#define SMP_SYNC_ERR_SEQUENCE_PROBLEM 4 + + /*--------------------------------------*/ + /* globals in smp_dec.c module */ + /*--------------------------------------*/ + +extern ST_UCHAR smp_uca_pdu_type; +extern ST_UCHAR smp_err_code; +extern ST_UCHAR smp_timesync_pdu_type; +extern SMP_TIME smp_time_req; +extern SMP_TIME smp_time_rsp; +extern ST_UCHAR smp_auth [SMP_SIZE_OF_AUTH]; /* authentication */ +extern SMP_TIME smp_delta_time; +extern ST_UCHAR smp_sync_err_code; + +ST_RET smp_dec_uca_pdu (ST_UCHAR *pdu_buf, ST_UINT16 pdu_len); + + +#ifdef __cplusplus +} +#endif + +#endif /* end of 'already included' */ + + diff --git a/mmslib/inc/smp_log.h b/mmslib/inc/smp_log.h new file mode 100644 index 0000000..0b60ca4 --- /dev/null +++ b/mmslib/inc/smp_log.h @@ -0,0 +1,286 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1997, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : smp_log.h */ +/* PRODUCT(S) : UCA Station Management Protocol (UCA SMP). */ +/* */ +/* MODULE DESCRIPTION : */ +/* This header file contains logging macros for SMP. */ +/* Note: To compile logging functions use the DEBUG_SISCO define */ +/* in the project make file. */ +/* */ +/* MODIFICATION LOG : */ +/* */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 09/13/99 MDE 06 Added SD_CONST modifiers */ +/* 10/08/98 MDE 05 Migrated to updated SLOG interface */ +/* 02/20/98 EJV 04 Corrected non-debug macro def */ +/* 11/17/97 EJV 03 Added check for HEX logging mask */ +/* 10/15/97 MDE 02 Added missing no debug macros */ +/* 09/09/97 EJV 01 Created */ +/************************************************************************/ + +#ifndef SMP_LOG_INCLUDED +#define SMP_LOG_INCLUDED + +#include "slog.h" + +#ifdef __cplusplus +extern "C" { +#endif + + +/* NOTE: SMP uses log masks defined in the smp_usr.h set in the smp_debug_sel */ + + +#if defined(DEBUG_SISCO) + +/* Log type strings */ +extern SD_CONST ST_CHAR *SD_CONST _smp_err_logstr; +extern SD_CONST ST_CHAR *SD_CONST _smp_req_logstr; +extern SD_CONST ST_CHAR *SD_CONST _smp_ind_logstr; +extern SD_CONST ST_CHAR *SD_CONST _smp_deb_logstr; +extern SD_CONST ST_CHAR *SD_CONST _smp_hex_logstr; + + /*--------------------------------------------*/ + /* hard errors logging */ + /*--------------------------------------------*/ + + #define SMP_LOG_ERR0(a) {\ + if (smp_debug_sel & SMP_LOG_ERR)\ + _slog (sLogCtrl,_smp_err_logstr,thisFileName,__LINE__,a);\ + } + #define SMP_LOG_ERR1(a,b) {\ + if (smp_debug_sel & SMP_LOG_ERR)\ + _slog (sLogCtrl,_smp_err_logstr,thisFileName,__LINE__,a,b);\ + } + #define SMP_LOG_ERR2(a,b,c) {\ + if (smp_debug_sel & SMP_LOG_ERR)\ + _slog (sLogCtrl,_smp_err_logstr,thisFileName,__LINE__,a,b,c);\ + } + #define SMP_LOG_ERR3(a,b,c,d) {\ + if (smp_debug_sel & SMP_LOG_ERR)\ + _slog (sLogCtrl,_smp_err_logstr,thisFileName,__LINE__,a,b,c,d);\ + } + + /*--------------------------------------------*/ + /* SMP-user request logging */ + /*--------------------------------------------*/ + + #define SMP_LOG_REQ0(a) {\ + if (smp_debug_sel & SMP_LOG_REQ)\ + _slog (sLogCtrl,_smp_req_logstr,thisFileName,__LINE__,a);\ + } + #define SMP_LOG_REQ1(a,b) {\ + if (smp_debug_sel & SMP_LOG_REQ)\ + _slog (sLogCtrl,_smp_req_logstr,thisFileName,__LINE__,a,b);\ + } + #define SMP_LOG_REQ2(a,b,c) {\ + if (smp_debug_sel & SMP_LOG_REQ)\ + _slog (sLogCtrl,_smp_req_logstr,thisFileName,__LINE__,a,b,c);\ + } + #define SMP_LOG_REQ3(a,b,c,d) {\ + if (smp_debug_sel & SMP_LOG_REQ)\ + _slog (sLogCtrl,_smp_req_logstr,thisFileName,__LINE__,a,b,c,d);\ + } + #define SMP_LOG_REQ6(a,b,c,d,e,f,g) {\ + if (smp_debug_sel & SMP_LOG_REQ)\ + _slog (sLogCtrl,_smp_req_logstr,thisFileName,__LINE__,a,b,c,d,e,f,g);\ + } + + /* continuation log */ + #define SMP_LOGC_REQ0(a) {\ + if (smp_debug_sel & SMP_LOG_REQ)\ + _slogc (sLogCtrl,a);\ + } + #define SMP_LOGC_REQ1(a,b) {\ + if (smp_debug_sel & SMP_LOG_REQ)\ + _slogc (sLogCtrl,a,b);\ + } + #define SMP_LOGC_REQ2(a,b,c) {\ + if (smp_debug_sel & SMP_LOG_REQ)\ + _slogc (sLogCtrl,a,b,c);\ + } + #define SMP_LOGC_REQ6(a,b,c,d,e,f,g) {\ + if (smp_debug_sel & SMP_LOG_REQ)\ + _slogc (sLogCtrl,a,b,c,d,e,f,g);\ + } + + /* hex logging */ + #define SMP_LOGH_REQ(a,b) {\ + if (smp_debug_sel & SMP_LOG_REQ && \ + smp_debug_sel & SMP_LOG_HEX)\ + _slogHex (sLogCtrl,a,b);\ + } + + /* hex continuation logging */ + #define SMP_LOGHC_REQ(a,b) {\ + if (smp_debug_sel & SMP_LOG_REQ && \ + smp_debug_sel & SMP_LOG_HEX)\ + _slogHex (sLogCtrl,a,b);\ + } + /*--------------------------------------------*/ + /* SMP_user indication logging */ + /*--------------------------------------------*/ + + #define SMP_LOG_IND0(a) {\ + if (smp_debug_sel & SMP_LOG_IND)\ + _slog (sLogCtrl,_smp_ind_logstr,thisFileName,__LINE__,a);\ + } + #define SMP_LOG_IND1(a,b) {\ + if (smp_debug_sel & SMP_LOG_IND)\ + _slog (sLogCtrl,_smp_ind_logstr,thisFileName,__LINE__,a,b);\ + } + #define SMP_LOG_IND2(a,b,c) {\ + if (smp_debug_sel & SMP_LOG_IND)\ + _slog (sLogCtrl,_smp_ind_logstr,thisFileName,__LINE__,a,b,c);\ + } + #define SMP_LOG_IND3(a,b,c,d) {\ + if (smp_debug_sel & SMP_LOG_IND)\ + _slog (sLogCtrl,_smp_ind_logstr,thisFileName,__LINE__,a,b,c,d);\ + } + #define SMP_LOG_IND6(a,b,c,d,e,f,g) {\ + if (smp_debug_sel & SMP_LOG_IND)\ + _slog (sLogCtrl,_smp_ind_logstr,thisFileName,__LINE__,a,b,c,d,e,f,g);\ + } + /* continuation log */ + #define SMP_LOGC_IND0(a) {\ + if (smp_debug_sel & SMP_LOG_IND)\ + _slogc (sLogCtrl,a);\ + } + #define SMP_LOGC_IND1(a,b) {\ + if (smp_debug_sel & SMP_LOG_IND)\ + _slogc (sLogCtrl,a,b);\ + } + #define SMP_LOGC_IND2(a,b,c) {\ + if (smp_debug_sel & SMP_LOG_IND)\ + _slogc (sLogCtrl,a,b,c);\ + } + #define SMP_LOGC_IND6(a,b,c,d,e,f,g) {\ + if (smp_debug_sel & SMP_LOG_IND)\ + _slogc (sLogCtrl,a,b,c,d,e,f,g);\ + } + + /* hex logging */ + #define SMP_LOGH_IND(a,b) {\ + if (smp_debug_sel & SMP_LOG_IND && \ + smp_debug_sel & SMP_LOG_HEX)\ + _slogHex (sLogCtrl,a,b);\ + } + + /* hex continuation logging */ + #define SMP_LOGHC_IND(a,b) {\ + if (smp_debug_sel & SMP_LOG_IND && \ + smp_debug_sel & SMP_LOG_HEX)\ + _slogHex (sLogCtrl,a,b);\ + } + + /*--------------------------------------------*/ + /* debugging app logging */ + /*--------------------------------------------*/ + + #define SMP_LOG_DEB0(a) {\ + if (smp_debug_sel & SMP_LOG_DEB)\ + _slog (sLogCtrl,_smp_deb_logstr,thisFileName,__LINE__,a);\ + } + #define SMP_LOG_DEB1(a,b) {\ + if (smp_debug_sel & SMP_LOG_DEB)\ + _slog (sLogCtrl,_smp_deb_logstr,thisFileName,__LINE__,a,b);\ + } + #define SMP_LOG_DEB2(a,b,c) {\ + if (smp_debug_sel & SMP_LOG_DEB)\ + _slog (sLogCtrl,_smp_deb_logstr,thisFileName,__LINE__,a,b,c);\ + } + #define SMP_LOG_DEB3(a,b,c,d) {\ + if (smp_debug_sel & SMP_LOG_DEB)\ + _slog (sLogCtrl,_smp_deb_logstr,thisFileName,__LINE__,a,b,c,d);\ + } + + #define SMP_LOGC_DEB0(a) {\ + if (smp_debug_sel & SMP_LOG_DEB)\ + _slogc (sLogCtrl,a);\ + } + #define SMP_LOGC_DEB1(a,b) {\ + if (smp_debug_sel & SMP_LOG_DEB)\ + _slogc (sLogCtrl,a,b);\ + } + #define SMP_LOGC_DEB2(a,b,c) {\ + if (smp_debug_sel & SMP_LOG_DEB)\ + _slogc (sLogCtrl,a,b,c);\ + } + #define SMP_LOGC_DEB3(a,b,c,d) {\ + if (smp_debug_sel & SMP_LOG_DEB)\ + _slogc (sLogCtrl,a,b,c,d);\ + } + +#else + + /* this are empty macros for compilation without the DEBUG_SISCO define */ + + /*--------------------------------------------*/ + /* hard errors logging */ + /*--------------------------------------------*/ + #define SMP_LOG_ERR0(a) + #define SMP_LOG_ERR1(a,b) + #define SMP_LOG_ERR2(a,b,c) + #define SMP_LOG_ERR3(a,b,c,d) + + /*--------------------------------------------*/ + /* SMP-user request (write) logging */ + /*--------------------------------------------*/ + + #define SMP_LOG_REQ0(a) + #define SMP_LOG_REQ1(a,b) + #define SMP_LOG_REQ2(a,b,c) + #define SMP_LOG_REQ3(a,b,c,d) + #define SMP_LOG_REQ6(a,b,c,d,e,f,g) + #define SMP_LOGC_REQ0(a) + #define SMP_LOGC_REQ1(a,b) + #define SMP_LOGC_REQ2(a,b,c) + #define SMP_LOGC_REQ6(a,b,c,d,e,f,g) + #define SMP_LOGH_REQ(a,b) + #define SMP_LOGHC_REQ(a,b) + + /*--------------------------------------------*/ + /* SMP-user indication (read) logging */ + /*--------------------------------------------*/ + + #define SMP_LOG_IND0(a) + #define SMP_LOG_IND1(a,b) + #define SMP_LOG_IND2(a,b,c) + #define SMP_LOG_IND3(a,b,c,d) + #define SMP_LOG_IND6(a,b,c,d,e,f,g) + #define SMP_LOGC_IND0(a) + #define SMP_LOGC_IND1(a,b) + #define SMP_LOGC_IND2(a,b,c) + #define SMP_LOGC_IND6(a,b,c,d,e,f,g) + #define SMP_LOGH_IND(a,b) + #define SMP_LOGHC_IND(a,b) + + /*--------------------------------------------*/ + /* debugging app logging */ + /*--------------------------------------------*/ + + #define SMP_LOG_DEB0(a) + #define SMP_LOG_DEB1(a,b) + #define SMP_LOG_DEB2(a,b,c) + #define SMP_LOG_DEB3(a,b,c,d) + #define SMP_LOGC_DEB0(a) + #define SMP_LOGC_DEB1(a,b) + #define SMP_LOGC_DEB2(a,b,c) + #define SMP_LOGC_DEB3(a,b,c,d) + +#endif + + +#ifdef __cplusplus +} +#endif + +#endif /* end of 'already included' */ diff --git a/mmslib/inc/smp_usr.h b/mmslib/inc/smp_usr.h new file mode 100644 index 0000000..dc3030e --- /dev/null +++ b/mmslib/inc/smp_usr.h @@ -0,0 +1,344 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1997 - 1998, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : smp_usr.h */ +/* PRODUCT(S) : UCA Station Management Protocol (UCA SMP). */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module provides interface function to the SLAVE/MASTER */ +/* side of the UCA Station Management Protocol. */ +/* */ +/* Implemented Services: */ +/* Time Synchronization */ +/* */ +/* */ +/* MODIFICATION LOG : */ +/* */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 02/18/98 EJV 04 Added smp_init function. */ +/* 11/17/97 EJV 03 Added HEX logging. Added par to smp_hc_config*/ +/* 10/13/97 EJV 02 Added defs for DLL. */ +/* 09/09/97 EJV 01 Created */ +/************************************************************************/ + +#ifndef SMP_USR_INCLUDED +#define SMP_USR_INCLUDED + + +#ifdef __cplusplus +extern "C" { +#endif + + /*--------------------------------------*/ + /* Max size of MAC and NSAP */ + /* (same in clnp_llc.h) */ + /*--------------------------------------*/ + +#define SMP_MAX_LEN_MAC 6 +#define SMP_MAX_LEN_NSAP 20 + + + /*--------------------------------------*/ + /* SMP logging types (for debugging) */ + /*--------------------------------------*/ + +#define SMP_LOG_ERR 0x00000001L +#define SMP_LOG_REQ 0x00000010L +#define SMP_LOG_IND 0x00000020L +#define SMP_LOG_DEB 0x00000040L +#define SMP_LOG_HEX 0x00000080L + +extern ST_UINT smp_debug_sel; + + /*--------------------------------------*/ + /* SMP_TIME struct */ + /*--------------------------------------*/ + +#define SMP_SIZE_OF_REC_TIME 32 /* buf size used to record binary time */ + +#define SMP_SIZE_OF_TIME 6 /* TimeOfDay size, see ISO/IEC 9506-2, clause 7.6.1 */ + +typedef struct + { + ST_INT32 days; /* number of days since January 1, 1984 */ + ST_INT32 msec; /* milliseconds since midnight for the current date */ + ST_INT32 usec; /* microseconds whithin current msec, if implemented */ + } SMP_TIME; + +/* This struct is used also to pass the time difference returned from */ +/* remote node after time synchronization */ + + /*--------------------------------------------------------------*/ + /* SLAVE application may disallow Time Synchronization from */ + /* Master by setting the smp_time_locally_sync to SD_TRUE. */ + /*--------------------------------------------------------------*/ + +extern ST_BOOLEAN smp_time_locally_sync; + + + /*======================================================*/ + /* Initialization functions */ + /*======================================================*/ + +/************************************************************************/ +/* smp_init */ +/*----------------------------------------------------------------------*/ +/* This function is called from the user code to initialize all global */ +/* variables used in SMP modules. */ +/* */ +/* Return: */ +/* ST_RET SD_SUCCESS or SD_FAILURE. */ +/************************************************************************/ +ST_RET smp_init (ST_VOID); + + + /*======================================================*/ + /* SMP MASTER functions */ + /*======================================================*/ + +/************************************************************************/ +/* smp_time_sync_req_ar_name */ +/*----------------------------------------------------------------------*/ +/* Function called by Master to request Time Synchronization with */ +/* remote node. Implemented for TRIM7 stack . */ +/* This function will map remote rem_ar_name into a MAC address and call*/ +/* the smp_time_sync_req function. */ +/* */ +/* Parameters: */ +/* ST_LONG user_id */ +/* ST_UCHAR *rem_ar_name */ +/* ST_VOID (*callBackFun) */ +/* (ST_LONG user_id, ST_RET result, SMP_TIME *delta_time));*/ +/* */ +/* Return: */ +/* ST_RET SD_SUCCESS or SD_FAILURE. */ +/************************************************************************/ +ST_RET smp_time_sync_req_ar_name ( + ST_LONG user_id, + ST_UCHAR *rem_ar_name, + ST_VOID (*callBackFun)(ST_LONG user_id, ST_RET result, SMP_TIME *delta_time)); + + + +/************************************************************************/ +/* smp_time_sync_req_chan */ +/*----------------------------------------------------------------------*/ +/* Function called by Master to request Time Synchronization with */ +/* remote node. Implemented for REDUCED STACK (only for ADLC subnet). */ +/* This function will map chan_num into a loc,rem MAC address pair and */ +/* call the smp_time_sync_req function. */ +/* */ +/* Note: A MMS connection must be established before calling this func. */ +/* */ +/* Parameters: */ +/* ST_LONG user_id */ +/* ST_INT chan_num */ +/* ST_VOID (*callBackFun) */ +/* (ST_LONG user_id, ST_RET result, SMP_TIME *delta_time));*/ +/* */ +/* Return: */ +/* ST_RET SD_SUCCESS or SD_FAILURE. */ +/************************************************************************/ +ST_RET smp_time_sync_req_chan ( + ST_LONG user_id, + ST_INT chan_num, + ST_VOID (*callBackFun)(ST_LONG user_id, ST_RET result, SMP_TIME *delta_time)); + + +/************************************************************************/ +/* smp_time_sync_req */ +/*----------------------------------------------------------------------*/ +/* Function called by Master to request Time Synchronization with */ +/* remote node. */ +/* When the time synchronization has been completed or error occurred, */ +/* then the callBackFun will be used to notify the Master application */ +/* about the result of time synchronization request. */ +/* */ +/* !Note: This function requires that the application establishes */ +/* ADLC connection (for REDUCED_STACK) with given node before */ +/* calling this function. For TRIM7 stack ADLC connections are */ +/* maintained by ADLC_ML. */ +/* On the Ethernet there is no need to establish connection. */ +/* */ +/* Parameters: */ +/* ST_LONG user_id; for user to use */ +/* ST_UCHAR *loc_mac; Ptr to Local MAC address */ +/* ST_UCHAR *rem_mac; Ptr to Remote MAC address */ +/* ST_VOID (*callBackFun) */ +/* (ST_LONG user_id, ST_RET result, SMP_TIME *delta_time); */ +/* */ +/* Return: */ +/* ST_RET SD_SUCCESS or SD_FAILURE. */ +/************************************************************************/ +ST_RET smp_time_sync_req ( + ST_LONG user_id, /* for user to use */ + ST_UCHAR *loc_mac, /* Ptr to Local MAC address */ + ST_UCHAR *rem_mac, /* Ptr to Remote MAC address */ + ST_VOID (*callBackFun)(ST_LONG user_id, ST_RET result, SMP_TIME *delta_time)); + + + + /*======================================================*/ + /* SMP common SLAVE/MASTER functions */ + /*======================================================*/ + +typedef struct + { + ST_UCHAR *pdu_buf; + ST_UINT16 pdu_len; + ST_UCHAR *loc_mac; + ST_UCHAR *rem_mac; + ST_UCHAR *rec_time; + } SMP_DATAUNIT; + + +/************************************************************************/ +/* smp_decode_uca_pdu */ +/*----------------------------------------------------------------------*/ +/* Function called by Slave application to decode received UCA Station */ +/* Management Protocol PDU after LLC header has been decoded (dest=0xFB)*/ +/* If the Slave application is a TRIM7 or Reduced Stack application */ +/* this function will be called automatically from proper decoding */ +/* functions. */ +/* */ +/* Parameters: */ +/* */ +/* Return: */ +/* ST_RET SD_SUCCESS or SD_FAILURE. */ +/************************************************************************/ +ST_RET smp_decode_uca_pdu (SMP_DATAUNIT *smp_du); + + +/************************************************************************/ +/* smp_send_pdu_callback */ +/*----------------------------------------------------------------------*/ +/* This callback function called by ADLC sub-network layer when a PDU */ +/* has been sent. Saves time stamp of Measure-Response PDU only. */ +/* */ +/* Parameters: */ +/* */ +/* Return: */ +/* ST_VOID */ +/************************************************************************/ +ST_VOID smp_send_pdu_callback (ST_RET result, ST_LONG user_id, + ST_UCHAR *rec_time, ST_UINT rec_time_len); + + + /*======================================================*/ + /* SMP time SLAVE/MASTER functions implemented by user */ + /*======================================================*/ + + +#if defined(SMP_DLL) +#include +#define DllImport __declspec (dllimport) +#define DllExport __declspec (dllexport) +#endif + +/************************************************************************/ +/* u_smp_record_time */ +/*----------------------------------------------------------------------*/ +/* Function implemented by user to record time. */ +/* The rec_time is a buffer of rec_time_len bytes (SMP_SIZE_OF_REC_TIME)*/ +/* */ +/* Parameters: */ +/* */ +/* Return: */ +/* ST_RET SD_SUCCESS or SD_FAILURE. */ +/************************************************************************/ +#if defined(SMP_DLL) +DllExport ST_RET WINAPI u_smp_record_time (ST_UCHAR *rec_time, ST_UINT rec_time_len); +#else +ST_RET u_smp_record_time (ST_UCHAR *rec_time, ST_UINT rec_time_len); +#endif + + +/************************************************************************/ +/* u_smp_convert_time */ +/*----------------------------------------------------------------------*/ +/* Function implemented by user converting recorded time in rec_time */ +/* buffer to the SMP_TIME struct the application uses. */ +/* The rec_time is a buffer of rec_time_len bytes (SMP_SIZE_OF_REC_TIME)*/ +/* */ +/* Parameters: */ +/* */ +/* Return: */ +/* ST_RET SD_SUCCESS or SD_FAILURE. */ +/************************************************************************/ +#if defined(SMP_DLL) +DllExport ST_RET WINAPI u_smp_convert_time (ST_UCHAR *rec_time, + ST_UINT rec_time_len, + SMP_TIME *smp_time); +#else +ST_RET u_smp_convert_time (ST_UCHAR *rec_time, + ST_UINT rec_time_len, + SMP_TIME *smp_time); +#endif + + + /*======================================================*/ + /* SMP SLAVE functions implemented by user */ + /*======================================================*/ + + +/************************************************************************/ +/* u_smp_time_sync_ind */ +/*----------------------------------------------------------------------*/ +/* SLAVE function implemented by user to synchronize time. */ +/* */ +/* Parameters: */ +/* SLAVE side: */ +/* SMP_TIME *a1 recorded time of Measure-RequestPDU reception */ +/* SMP_TIME *a2 recorded time of Measure-ResponsePDU sending */ +/* MASTER side: */ +/* SMP_TIME *b1 recorded time of Measure-RequestPDU sending */ +/* SMP_TIME *b2 recorded time of Measure-ResponsePDU arrival */ +/* SMP_TIME *delta_time return the local_adjustement. */ +/* */ +/* Return: */ +/* ST_RET SD_SUCCESS or SD_FAILURE. */ +/************************************************************************/ +ST_RET u_smp_time_sync_ind (SMP_TIME *a1, SMP_TIME *a2, + SMP_TIME *b1, SMP_TIME *b2, + SMP_TIME *delta_time); + + + + + /*======================================================*/ + /* For applications which do not link with TRIM7 or */ + /* Reduced Stack the smp_hc_config function may be */ + /* called to initialize needed parameters. */ + /*======================================================*/ + +/************************************************************************/ +/* smp_hc_config */ +/*----------------------------------------------------------------------*/ +/* This USER's func provides hard coded initialization of few parameters*/ +/* for applications which DO NOT link to TRIM7 or REDUCED STACK. */ +/* */ +/* Parameters: */ +/* ST_VOID *loc_addr Local ADLC address */ +/* (ignored for other subnet) */ +/* ST_CHAR *smpLogFile Pointer log file name buffer */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if initialization successful */ +/* error code otherwise */ +/************************************************************************/ +ST_RET smp_hc_config (ST_VOID *loc_addr, ST_CHAR *smpLogFile); + + +#ifdef __cplusplus +} +#endif + +#endif /* end of 'already included' */ + + diff --git a/mmslib/inc/smpval.h b/mmslib/inc/smpval.h new file mode 100644 index 0000000..c7c2535 --- /dev/null +++ b/mmslib/inc/smpval.h @@ -0,0 +1,138 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2006-2006, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : smpval.h */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : */ +/* Structures, functions for sending/receiving IEC 61850 Sampled */ +/* Value messages (according to IEC 61850-9-2). */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 02/15/08 JRB 03 Fix securityLen type (ST_UINT -> ST_INT). */ +/* 08/09/06 JRB 02 Fix svID len (Vstring65). */ +/* Change DatSet to Vstring129 (ObjectReference)*/ +/* 03/17/05 JRB 01 Created */ +/************************************************************************/ +#ifndef SMPVAL_INCLUDED +#define SMPVAL_INCLUDED + +#include "asn1r.h" /* need MMS_UTC_TIME */ +#include "ethertyp.h" /* need ETYPE_INFO */ + +#ifdef __cplusplus +extern "C" { +#endif + +#define MAX_SMPVAL_SVID_LEN 65 /* 61850 MsvID, UsvID len */ +#define MAX_SMPVAL_OBJREF_LEN 129 /* 61850 ObjectReference len */ +#define MAX_SMPVAL_SECURITY_LEN 20 /* max len of security info */ + +/* Bit numbers in OptFlds bitstring (configured by SmvOpts in SCL file) */ +#define SVOPT_BITNUM_SMPRATE 0 +#define SVOPT_BITNUM_REFRTM 1 +#define SVOPT_BITNUM_SMPSYNCH 2 + +/************************************************************************/ +/* STRUCTURE DEFINITIONS */ +/************************************************************************/ +typedef struct + { + ST_UINT8 *SamplePtr; /* pointer to "Sample" data */ + ST_INT SampleLen; /* length of "Sample" data in bytes */ + ST_CHAR svID [MAX_SMPVAL_SVID_LEN+1]; /* MsvID or UsvID - Vstring65 */ + ST_BOOLEAN DatSetPres; /* is "DatSet" present in ASDU? */ + ST_CHAR DatSet [MAX_SMPVAL_OBJREF_LEN+1]; /* Vstring129 (ObjectReference)*/ + /* (Optional) */ + ST_UINT16 SmpCnt; + ST_UINT32 ConfRev; + ST_BOOLEAN SmpSynch; + ST_BOOLEAN RefrTmPres; /* is "RefrTm" present in ASDU? */ + MMS_UTC_TIME RefrTm; /* Optional */ + ST_BOOLEAN SmpRatePres; /* is "SmpRate" present in ASDU? */ + ST_UINT16 SmpRate; /* Optional */ + } SMPVAL_ASDU; + +typedef struct + { + ST_UINT16 numASDU; /* Num of ASDU concatenated into one APDU */ + SMPVAL_ASDU *asduArray; /* array of "numASDU" structs */ + /* allocated by smpval_msg_create OR */ + /* allocated during decode */ + ST_UCHAR securityBuf [MAX_SMPVAL_SECURITY_LEN]; /* security info*/ + ST_INT securityLen; /* len of security info */ + }SMPVAL_MSG; + + +/************************************************************************/ +/* Functions for sending SMPVAL messages. */ +/************************************************************************/ +SMPVAL_MSG *smpval_msg_create ( + ST_UINT numASDU); /* Num of ASDU concatenated into one APDU*/ + +ST_VOID smpval_msg_destroy (SMPVAL_MSG *smpvalMsg); + +/* Updates data stored for one ASDU to be sent in a SMPVAL message */ +ST_RET smpval_asdu_data_update ( + SMPVAL_MSG *smpvalMsg, /* SMPVAL msg info structure */ + ST_INT asduIdx, /* index into array of ASDU for this SMPVAL msg*/ + ST_UINT8 *SamplePtr, /* pointer to data */ + ST_INT SampleLen, /* length of data in bytes */ + ST_CHAR *svID, + ST_INT SmpCnt, + ST_BOOLEAN DatSetPres, /* SD_TRUE if optional DatSet should be sent*/ + ST_CHAR *DatSet, /* Optional (chk DatSetPres arg) */ + ST_UINT32 ConfRev, + ST_BOOLEAN SmpSynch, + ST_BOOLEAN RefrTmPres, /* SD_TRUE if optional RefrTm should be sent*/ + MMS_UTC_TIME *RefrTm, /* Optional (chk_RefrTmPres arg) */ + ST_BOOLEAN SmpRatePres, /* SD_TRUE if optional SmpRate should be sent*/ + ST_UINT16 SmpRate); /* Optional (chk SmpRatePres arg) */ + +/* Encodes complete SMPVAL message (APDU plus Ethertype header). */ +/* RETURNS: ptr to start of encoded message (or NULL on error) */ +ST_UCHAR *smpval_msg_encode ( + SMPVAL_MSG *smpvalMsg, /* SMPVAL msg info structure */ + ETYPE_INFO *etypeInfo, /* Ethertype info */ + ST_UCHAR *asn1DataBuf, /* buffer to encode in */ + ST_INT asn1DataBufLen, /* len of buffer */ + ST_INT *asn1DataLenOut);/* ptr to len encoded */ +ST_RET smpval_msg_send ( + SMPVAL_MSG *smpvalMsg, /* SMPVAL msg info structure */ + ETYPE_INFO *etypeInfo, /* Ethertype info */ + ST_UCHAR *dstMac); /* Destination (Multicast) MAC address */ + +/************************************************************************/ +/* Functions for receiving SMPVAL messages. */ +/************************************************************************/ +/* Decode SMPVAL message and fill in SMPVAL_MSG struct.*/ +SMPVAL_MSG *smpval_msg_decode ( + SN_UNITDATA *sn_req, /* message to decode */ + ETYPE_INFO *etypeInfo); /* where to store decoded Ethertype info*/ + +/* Must be called to free structure returned from smpval_msg_decode. */ +ST_VOID smpval_msg_free (SMPVAL_MSG *smpvalMsg); + +/************************************************************************/ +/* Utility functions */ +/************************************************************************/ +/* Copies data from source to destination but reverses the order of the */ +/* bytes (i.e. converts Big-Endian to Little-Endian or vice versa). */ +ST_VOID reverse_bytes ( + ST_UINT8 *dst, /* ptr to destination buffer */ + ST_UINT8 *src, /* ptr to source buffer */ + ST_INT numbytes); /* number of bytes to copy */ + +#ifdef __cplusplus +} +#endif +#endif /* included */ diff --git a/mmslib/inc/sock_log.h b/mmslib/inc/sock_log.h new file mode 100644 index 0000000..67c1ebb --- /dev/null +++ b/mmslib/inc/sock_log.h @@ -0,0 +1,210 @@ +/************************************************************************/ +/* SOFTWARE MODULE HEADER ***********************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2002 - 2003, All Rights Reserved */ +/* */ +/* MODULE NAME : sock_log.h */ +/* PRODUCT(S) : General Sockets Interface logging */ +/* */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 09/20/07 MDE 02 Modified macros to take ctx, log_disable */ +/* 06/25/03 JRB 01 Move log macros from "gensock2.h". */ +/************************************************************************/ +#ifndef SOCK_LOG_INCLUDED +#define SOCK_LOG_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + + + +#define SOCK_LOG_ERR 0x0001 +#define SOCK_LOG_NERR 0x0002 +#define SOCK_LOG_FLOW 0x0004 +#define SOCK_LOG_RX 0x0008 +#define SOCK_LOG_TX 0x0010 + +extern ST_UINT sock_debug_sel; + +/* Log type strings */ +extern SD_CONST ST_CHAR *SD_CONST SOCK_LOG_ERR_TEXT; +extern SD_CONST ST_CHAR *SD_CONST SOCK_LOG_NERR_TEXT; +extern SD_CONST ST_CHAR *SD_CONST SOCK_LOG_FLOW_TEXT; +extern SD_CONST ST_CHAR *SD_CONST SOCK_LOG_RX_TEXT; +extern SD_CONST ST_CHAR *SD_CONST SOCK_LOG_TX_TEXT; + +/*********************** SOCK_LOG_ERR Macros *****************************/ + +#define SOCK_LOG_ERR0(ctx,a) \ + SLOG_0 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_ERR),SOCK_LOG_ERR_TEXT,a) +#define SOCK_LOG_ERR1(ctx,a,b) \ + SLOG_1 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_ERR),SOCK_LOG_ERR_TEXT,a,b) +#define SOCK_LOG_ERR2(ctx,a,b,c) \ + SLOG_2 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_ERR),SOCK_LOG_ERR_TEXT,a,b,c) +#define SOCK_LOG_ERR3(ctx,a,b,c,d) \ + SLOG_3 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_ERR),SOCK_LOG_ERR_TEXT,a,b,c,d) +#define SOCK_LOG_ERR4(ctx,a,b,c,d,e) \ + SLOG_4 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_ERR),SOCK_LOG_ERR_TEXT,a,b,c,d,e) +#define SOCK_LOG_ERR5(ctx,a,b,c,d,e,f) \ + SLOG_5 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_ERR),SOCK_LOG_ERR_TEXT,a,b,c,d,e,f) + +/* Continuation log macros */ +#define SOCK_LOG_ERRC0(ctx,a) \ + SLOGC_0 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_ERR),a) +#define SOCK_LOG_ERRC1(ctx,a,b) \ + SLOGC_1 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_ERR),a,b) +#define SOCK_LOG_ERRC2(ctx,a,b,c) \ + SLOGC_2 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_ERR),a,b,c) +#define SOCK_LOG_ERRC3(ctx,a,b,c,d) \ + SLOGC_3 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_ERR),a,b,c,d) +#define SOCK_LOG_ERRC4(ctx,a,b,c,d,e) \ + SLOGC_4 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_ERR),a,b,c,d,e) +#define SOCK_LOG_ERRC5(ctx,a,b,c,d,e,f) \ + SLOGC_5 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_ERR),a,b,c,d,e,f) + +/* Hex log macro */ +#define SOCK_LOG_ERRH(ctx,a,b) \ + SLOGH ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_ERR),a,b) + +/*********************** SOCK_LOG_NERR Macros *****************************/ + +#define SOCK_LOG_NERR0(ctx,a) \ + SLOG_0 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_NERR),SOCK_LOG_NERR_TEXT,a) +#define SOCK_LOG_NERR1(ctx,a,b) \ + SLOG_1 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_NERR),SOCK_LOG_NERR_TEXT,a,b) +#define SOCK_LOG_NERR2(ctx,a,b,c) \ + SLOG_2 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_NERR),SOCK_LOG_NERR_TEXT,a,b,c) +#define SOCK_LOG_NERR3(ctx,a,b,c,d) \ + SLOG_3 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_NERR),SOCK_LOG_NERR_TEXT,a,b,c,d) +#define SOCK_LOG_NERR4(ctx,a,b,c,d,e) \ + SLOG_4 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_NERR),SOCK_LOG_NERR_TEXT,a,b,c,d,e) +#define SOCK_LOG_NERR5(ctx,a,b,c,d,e,f) \ + SLOG_5 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_NERR),SOCK_LOG_NERR_TEXT,a,b,c,d,e,f) + +/* Continuation log macros */ +#define SOCK_LOG_NERRC0(ctx,a) \ + SLOGC_0 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_NERR),a) +#define SOCK_LOG_NERRC1(ctx,a,b) \ + SLOGC_1 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_NERR),a,b) +#define SOCK_LOG_NERRC2(ctx,a,b,c) \ + SLOGC_2 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_NERR),a,b,c) +#define SOCK_LOG_NERRC3(ctx,a,b,c,d) \ + SLOGC_3 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_NERR),a,b,c,d) +#define SOCK_LOG_NERRC4(ctx,a,b,c,d,e) \ + SLOGC_4 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_NERR),a,b,c,d,e) +#define SOCK_LOG_NERRC5(ctx,a,b,c,d,e,f) \ + SLOGC_5 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_NERR),a,b,c,d,e,f) + +/* Hex log macro */ +#define SOCK_LOG_NERRH(ctx,a,b) \ + SLOGH ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_NERR),a,b) + +/*********************** SOCK_LOG_FLOW Macros *****************************/ + +#define SOCK_LOG_FLOW0(ctx,a) \ + SLOG_0 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_FLOW),SOCK_LOG_FLOW_TEXT,a) +#define SOCK_LOG_FLOW1(ctx,a,b) \ + SLOG_1 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_FLOW),SOCK_LOG_FLOW_TEXT,a,b) +#define SOCK_LOG_FLOW2(ctx,a,b,c) \ + SLOG_2 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_FLOW),SOCK_LOG_FLOW_TEXT,a,b,c) +#define SOCK_LOG_FLOW3(ctx,a,b,c,d) \ + SLOG_3 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_FLOW),SOCK_LOG_FLOW_TEXT,a,b,c,d) +#define SOCK_LOG_FLOW4(ctx,a,b,c,d,e) \ + SLOG_4 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_FLOW),SOCK_LOG_FLOW_TEXT,a,b,c,d,e) +#define SOCK_LOG_FLOW5(ctx,a,b,c,d,e,f) \ + SLOG_5 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_FLOW),SOCK_LOG_FLOW_TEXT,a,b,c,d,e,f) + +/* Continuation log macros */ +#define SOCK_LOG_FLOWC0(ctx,a) \ + SLOGC_0 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_FLOW),a) +#define SOCK_LOG_FLOWC1(ctx,a,b) \ + SLOGC_1 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_FLOW),a,b) +#define SOCK_LOG_FLOWC2(ctx,a,b,c) \ + SLOGC_2 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_FLOW),a,b,c) +#define SOCK_LOG_FLOWC3(ctx,a,b,c,d) \ + SLOGC_3 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_FLOW),a,b,c,d) +#define SOCK_LOG_FLOWC4(ctx,a,b,c,d,e) \ + SLOGC_4 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_FLOW),a,b,c,d,e) +#define SOCK_LOG_FLOWC5(ctx,a,b,c,d,e,f) \ + SLOGC_5 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_FLOW),a,b,c,d,e,f) + +/* Hex log macro */ +#define SOCK_LOG_FLOWH(ctx,a,b) \ + SLOGH ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_FLOW),a,b) + +/*********************** SOCK_LOG_RX Macros *****************************/ + +#define SOCK_LOG_RX0(ctx,a) \ + SLOG_0 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_RX),SOCK_LOG_RX_TEXT,a) +#define SOCK_LOG_RX1(ctx,a,b) \ + SLOG_1 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_RX),SOCK_LOG_RX_TEXT,a,b) +#define SOCK_LOG_RX2(ctx,a,b,c) \ + SLOG_2 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_RX),SOCK_LOG_RX_TEXT,a,b,c) +#define SOCK_LOG_RX3(ctx,a,b,c,d) \ + SLOG_3 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_RX),SOCK_LOG_RX_TEXT,a,b,c,d) +#define SOCK_LOG_RX4(ctx,a,b,c,d,e) \ + SLOG_4 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_RX),SOCK_LOG_RX_TEXT,a,b,c,d,e) +#define SOCK_LOG_RX5(ctx,a,b,c,d,e,f) \ + SLOG_5 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_RX),SOCK_LOG_RX_TEXT,a,b,c,d,e,f) + +/* Continuation log macros */ +#define SOCK_LOG_RXC0(ctx,a) \ + SLOGC_0 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_RX),a) +#define SOCK_LOG_RXC1(ctx,a,b) \ + SLOGC_1 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_RX),a,b) +#define SOCK_LOG_RXC2(ctx,a,b,c) \ + SLOGC_2 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_RX),a,b,c) +#define SOCK_LOG_RXC3(ctx,a,b,c,d) \ + SLOGC_3 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_RX),a,b,c,d) +#define SOCK_LOG_RXC4(ctx,a,b,c,d,e) \ + SLOGC_4 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_RX),a,b,c,d,e) +#define SOCK_LOG_RXC5(ctx,a,b,c,d,e,f) \ + SLOGC_5 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_RX),a,b,c,d,e,f) + +/* Hex log macro */ +#define SOCK_LOG_RXH(ctx,a,b) \ + SLOGH ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_RX),a,b) + +/*********************** SOCK_LOG_TX Macros *****************************/ + +#define SOCK_LOG_TX0(ctx,a) \ + SLOG_0 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_TX),SOCK_LOG_TX_TEXT,a) +#define SOCK_LOG_TX1(ctx,a,b) \ + SLOG_1 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_TX),SOCK_LOG_TX_TEXT,a,b) +#define SOCK_LOG_TX2(ctx,a,b,c) \ + SLOG_2 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_TX),SOCK_LOG_TX_TEXT,a,b,c) +#define SOCK_LOG_TX3(ctx,a,b,c,d) \ + SLOG_3 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_TX),SOCK_LOG_TX_TEXT,a,b,c,d) +#define SOCK_LOG_TX4(ctx,a,b,c,d,e) \ + SLOG_4 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_TX),SOCK_LOG_TX_TEXT,a,b,c,d,e) +#define SOCK_LOG_TX5(ctx,a,b,c,d,e,f) \ + SLOG_5 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_TX),SOCK_LOG_TX_TEXT,a,b,c,d,e,f) + +/* Continuation log macros */ +#define SOCK_LOG_TXC0(ctx,a) \ + SLOGC_0 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_TX),a) +#define SOCK_LOG_TXC1(ctx,a,b) \ + SLOGC_1 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_TX),a,b) +#define SOCK_LOG_TXC2(ctx,a,b,c) \ + SLOGC_2 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_TX),a,b,c) +#define SOCK_LOG_TXC3(ctx,a,b,c,d) \ + SLOGC_3 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_TX),a,b,c,d) +#define SOCK_LOG_TXC4(ctx,a,b,c,d,e) \ + SLOGC_4 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_TX),a,b,c,d,e) +#define SOCK_LOG_TXC5(ctx,a,b,c,d,e,f) \ + SLOGC_5 ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_TX),a,b,c,d,e,f) + +/* Hex log macro */ +#define SOCK_LOG_TXH(ctx,a,b) \ + SLOGH ((ctx == NULL || !ctx->log_disable) && (sock_debug_sel & SOCK_LOG_TX),a,b) + +#ifdef __cplusplus +} +#endif + +#endif /* SOCK_LOG_INCLUDED */ diff --git a/mmslib/inc/ssec.h b/mmslib/inc/ssec.h new file mode 100644 index 0000000..123907c --- /dev/null +++ b/mmslib/inc/ssec.h @@ -0,0 +1,1182 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2003 - 2008, All Rights Reserved */ +/* */ +/* MODULE NAME : ssec.h */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : This module provides user defines for SISCO's */ +/* Security Extensions for MMS-EASE, MMS-EASE Lite,*/ +/* ICCP, AXS4-MMS, AXS4-ICCP products. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 07/01/08 EJV 87 Chg S_SEC_VERSION_STR to 1.20 (for Win Vista)*/ +/* 05/14/08 EJV 86 Merged with non-Marben version. */ +/* 03/27/08 EJV 85 Use S_MAX_PATH instead of MAX_PATH. */ +/* 02/18/08 EJV 84 Changed to V2.00 for Sun Solaris. */ +/* 02/01/08 EJV 83 Added tags to typedef structs */ +/* 12/04/07 EJV 82 Added updateCRLists, ssleLoadCRLists (sh lib)*/ +/* 11/21/07 EJV 81 Added ssleSetCertStorePath */ +/* 09/05/07 EJV 80 Port to SNAP-Lite and LEAN-T stack. Cleanup. */ +/* cfgId is now CRC-32 computed on S_CERT_ID. */ +/* Merged S_SEC_LOC_AR and S_SEC_REM_AR into */ +/* S_SEC_LOC_REM_AR struct. */ +/* Merged sslLocalCertList and sslRemoteCertList*/ +/* into locRemCertList in S_SEC_CFG. */ +/* Del secManGetDebugSel (secman.dll eliminated)*/ +/* 03/06/07 EJV 79 Moved extern ssle_debug_sel from sslelog.h. */ +/* Changed to V1.9950 for MMS-SECURE-145-015. */ +/* 04/08/08 JRB 79 Chg () to (ST_VOID) in several prototypes. */ +/* 08/28/06 EJV 78 MMS-LITE SECURE: chg version to 1.10. */ +/* 03/02/06 EJV 77 Chg S_SEC_VERSION_STR to 1.10 (VS .NET 2005) */ +/* 01/04/06 EJV 76 Added DLLs incompatibility comments. */ +/* 10/25/05 EJV 75 Chg S_SEC_LITESECURE_NAME to fit identify */ +/* 09/22/05 EJV 74 Any new build use S_SEC_VERSION_STR 1.04 */ +/* 08/09/05 EJV 73 MMS-LITE SECURE: chg version to 1.0050. */ +/* Add extern LocalCertStorePath,CACertStorePath*/ +/* 02/25/05 MDE 72 Added sSecAssocConfChkEx */ +/* 01/31/05 ASK 71 Fix ST_MUTEX_SEM_SSEC to compile on QNX */ +/* 01/18/05 ASK 70 Chg ver back to 1.03 for (Win release) */ +/* 01/11/05 ASK 69 Added ST_MUTEX_SEM_SSEC for non-Windows */ +/* 01/10/05 ASK 68 Added ST_MUTEX_SEM_SSEC struct to ensure */ +/* alignment between S_SEC_CFG between */ +/* secman.dll and calling application */ +/* 01/06/05 ASK 67 Temporarily Chg ver to 1.0260 for Symantec */ +/* release. */ +/* 09/29/04 EJV 66 Chg ver to 1.03 for (Win release) */ +/* 09/02/04 EJV 65 Added S_SEC_PATH for sun. */ +/* 08/24/04 EJV 64 Chg from WIN32 to _WIN32. */ +/* Chg ver to 1.0251 for Windows ICCP-SECURE. */ +/* 04/08/04 EJV 63 _AIX: added S_SEC_PATH. */ +/* Chg ver to 1.02 for (AIX release) */ +/* 04/01/04 EJV 62 Chg ver to 1.0051 for (AIX beta) */ +/* 03/30/04 ASK 61 Added secManLckEnd proto */ +/* Added ssleCertFileToText proto for AIX */ +/* 03/12/04 ASK 60 Added ssleCertFileToXml proto for AIX */ +/* 03/10/04 EJV 59 Corr ver to 1.0050 for (AIX beta) */ +/* 03/05/04 MDE 58 Added AE Title for AR Security mode */ +/* 02/16/04 EJV 57 Chg S_SEC_DEF_SSL_PORT to 3782. */ +/* Added S_SEC_PORT_DELIM_CHAR. */ +/* Chg ver to 1.0150 for (AIX beta) */ +/* 02/09/04 EJV 56 Changed S_SEC_LITESECURE_NAME. */ +/* 01/16/04 EJV 55 Del forward reference to DIB_MATCH_CTRL. */ +/* Added _WIN32 for dllimport secManCfgChange. */ +/* 01/12/04 EJV 54 Added secManCfgChange proto for MMS_LITE */ +/* 12/04/03 ASK 53 Added secManCfgChange proto */ +/* 10/31/03 ASK 52 Rem CName type 'Unknown' */ +/* 10/21/03 EJV 51 Rem sSecFreeSecParam, sSecFreePartSecParam */ +/* 10/20/03 ASK 50 Added params to sSecUpdate, added */ +/* secManGetDebugSel proto, added */ +/* crlDropExisting to cfg */ +/* 10/16/03 ASK 49 Added sSecEnd and stopSSLEngine protos, */ +/* Chg ver to 1.00 */ +/* 10/10/03 MDE 48 Added crlCheckTime */ +/* 09/30/03 EJV 47 MMS-LITE: added S_SEC_LITESECURE_VERSION_STR */ +/* and S_SEC_LITESECURE_NAME. */ +/* Redefined macros SECLOG..._ to SEC_LOG_... */ +/* Added S_SEC_SSLE_LOG_DATA, S_SEC_SOCK_LOG_TX,*/ +/* S_SEC_SOCK_LOG_RX (reworked numbers). */ +/* Chg secLogMasks from ST_ULONG to ST_UINT. */ +/* MMS_LITE: Added global secManCfgXmlFile */ +/* 09/29/03 EJV 46 Chg ver to 0.9955 (snap.exe fix) */ +/* 08/25/03 EJV 45 Moved protos with GEN_SOCK to ssec_int.h */ +/* 08/21/03 ASK 44 Add clearTime to S_MACE_INFO struct. Chg some*/ +/* protos to pass this to verify time sig */ +/* 08/21/03 EJV 43 Added setGenSockSSL, ssecGetCipherSuite, */ +/* sSecGetCertId, sSecGetCertCtrl protos. */ +/* Chg ver to 0.9954 */ +/* 07/28/03 EJV 42 Chg MMS_LITE protos. */ +/* 07/18/03 ASK 41 Add software lock protos from secmanlck.c */ +/* 07/16/03 MDE 40 Changes to appAuthRequired values */ +/* 07/14/03 ASK 39 Add sSecUpdate and sslUpdate protos */ +/* 06/30/03 ASK 38 Added secManAccessCfg and secManReleaseCfg */ +/* protos. #include glbsem.h. Add mutex to */ +/* S_SEC_CONFIG struct. */ +/* 06/26/03 EJV 37 Chg GSOCK_... to SOCK_... log macros */ +/* 06/25/03 EJV 36 Chg ver to 0.9953 */ +/* 06/24/03 ASK 35 Added dynamic config API func protos */ +/* 06/20/03 EJV 34 Added SNAP_EXIT_EVENT_NAME. */ +/* 06/20/03 ASK 33 add S_SEC_EVENT_REKEY_FAILURE define */ +/* 06/19/03 MDE 32 Added rekeying to S_CERT_CTRL */ +/* 06/16/03 EJV 31 Del m_match.h, s_match.h; added suicacse.h; */ +/* Changed M_MATCH_CTRL to DIB_MATCH_CTRL. */ +/* 06/12/03 MDE 30 sSecAssocConfChk added srcChkDest parameter. */ +/* 06/12/03 MDE 29 Fixed up MMS_LITE over Marben */ +/* 06/12/03 MDE 28 Added M_MATCH support */ +/* 05/27/03 EJV 27 Chg ver to 0.9952 */ +/* 05/27/03 EJV 26 sSecAssocIndChk added parameter srcChkDest. */ +/* 05/27/03 EJV 25 S_SEC_PORT_DELIM_STR chg to '+' for compatib.*/ +/* 05/23/03 ASK 24 Changed secManLog to secManEventLog. Added */ +/* event define S_SEC_EVENT_SSL_FAILURE. Change */ +/* sSecPrintSrlNum to secManPrintSrlNum. */ +/* 05/14/03 MDE 23 Fixed up rekey parameters */ +/* 05/09/03 MDE 22 Corrected S_CIPHER_0C04xx, _0D02xx to use MD5*/ +/* 05/06/03 ASK 21 Add sSecUsrStart proto, changed secManStart */ +/* and startSSLEngine protos for new logging. */ +/* 05/01/03 ASK 20 Change to use S_SEC_SPARAMS for SUIC */ +/* 04/30/03 ASK 19 Add public key to S_CERT_INFO. Changed */ +/* S_SEC_MAX_SIGNED_TIME_LEN to 128 bytes. */ +/* Added protos for new signing time functions. */ +/* Added sSecCmpIssuer proto. */ +/* 04/29/03 EJV 18 Added S_SEC_MAX_IP_ADDR_LEN */ +/* Chg ver to 0.9951 */ +/* 04/21/03 MDE 17 Added cipher suites */ +/* 04/18/03 MDE 16 S_SEC_CONFIG changes */ +/* 04/18/03 MDE 15 Added S_APP_AUTHREQ_xxx defines */ +/* 04/18/03 MDE 14 Added Masks for Cipher Suite elements */ +/* 04/17/03 EJV 13 Moved asn1log.h. */ +/* 04/16/03 EJV 12 Added version string. */ +/* 04/15/03 JRB 11 Add forward ref for mvl_net_info. */ +/* 04/15/03 ASK 10 Added sSecPrintSrlNum proto. */ +/* 04/11/03 EJV 09 sSecAuthChk: changed ret to ST_RET */ +/* 04/10/03 EJV 08 Added sSecCmpCertId proto. */ +/* 04/10/03 MDE 07 Added ArSec support */ +/* 04/09/03 MDE 06 Merged ssecusr.c function protos */ +/* 04/09/03 MDE 05 Added AR security context declarations */ +/* 04/08/03 EJV 05 Added defs for all log masks in secLogMasks. */ +/* Changed secLogMasks to ST_ULONG. */ +/* 04/07/03 EJV 04 Added protos from ssecusr.c */ +/* 04/04/03 ASK 03 Changed serial number format. Added */ +/* SECLOG_DATA and SECLOG_DEBUG masks. Added */ +/* startSSLEngine proto. */ +/* 03/04/03 EJV 02 Added IPAddr string parsing tokens */ +/* 02/21/03 MDE 01 Created */ +/************************************************************************/ + +#ifndef S_SEC_INCLUDED +#define S_SEC_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "glbsem.h" +#include "acseauth.h" +#include "gen_list.h" +#include "asn1r.h" +#include "dibmatch.h" + +#if !defined(MMS_LITE) || defined(MAP30_ACSE) +/* for MMS-EASE, MMS-EASE Lite based products over Marben Stack */ +#define S_SEC_VERSION_STR "1.20" +#else +/* for MMS-EASE Lite products over LEAN-T Stack */ +#define S_SEC_LITESECURE_NAME "MMS-LITE-SECURE" +#define S_SEC_LITESECURE_VERSION_STR "1.10" +#endif + +#if !defined(MMS_LITE) || defined(MAP30_ACSE) +/* for MMS-EASE, MMS-EASE Lite based products over Marben Stack */ +#if !defined(_WIN32) +/* Security installation path on UNIX systems is fixed but diff on each system */ +#if defined(_AIX) +#define S_SEC_PATH "/usr/lpp/osill2/security" +#else /* other UNIX systems */ +#define S_SEC_PATH "/usr/osill2/security" +#endif +#endif /* !defined(_WIN32) */ +#endif /* !defined(MMS_LITE) || defined(MAP30_ACSE) */ + +#if defined(_WIN32) + #if defined(MMS_LITE) + #define SISCO_REGISTRY_SECURITY "SOFTWARE\\SISCO\\Secure MMS-EASE Lite\\CurrentVersion" + #else /* !defined(MMS_LITE) */ + #define SISCO_REGISTRY_SECURITY "SOFTWARE\\SISCO\\Security\\CurrentVersion" + #endif /* !defined(MMS_LITE) */ +#endif /* defined(_WIN32) */ + + + +/************************************************************************/ +/************************************************************************/ +/* NOTES ON CERTIFICATE NAME MATCHING */ +/* This sSec API has a number of functions that must match certificates */ +/* based on a S_CERT_ID data structure. In all cases the matching */ +/* process works as follows: */ +/* */ +/* The matching can be based on certificate number, subject, */ +/* issuer, or any combination of these as specified in the certId. */ +/* For instance, the following specifications are valid: */ +/* 1. Serial Number only */ +/* 2. Subject only */ +/* 3. Issuer only */ +/* 4. Subject and Issuer */ +/* 5. Subject and Serial Number */ +/* 6. Issuer and Serial Number */ +/* 7. Subject, Issuer, Serial Number */ + +/* Note that the all elements of the input 'certId' must be present and */ +/* match exactly in the local certificate. That is, all elements of the */ +/* certificate name must be present and in the specified order. */ + +/************************************************************************/ +/************************************************************************/ +#define SEC_LOG_ERR 0x00000001 +#define SEC_LOG_NERR 0x00000002 +#define SEC_LOG_FLOW 0x00000004 +#define SEC_LOG_DATA 0x00000008 +#define SEC_LOG_DEBUG 0x00000010 + +extern ST_UINT sec_debug_sel; + +/************************************************************************/ +/* LOGGING */ +/* The logging masks defined here are used to set the secLogMasks field */ +/* in the S_SEC_CONFIG (defined below). The application can set the */ +/* proper module logging masks by examining the secLogMasks. */ +/* Note that ERR logging is set by default to ON in all modules. */ +/* The name of masks have been copied here and prefixed with S_SEC_... */ +/* for easy reference. */ + +/* log masks for sec_debug_sel (ssec.h) */ +#define S_SEC_SEC_LOG_NERR 0x00000001 +#define S_SEC_SEC_LOG_FLOW 0x00000002 +#define S_SEC_SEC_LOG_DATA 0x00000004 +#define S_SEC_SEC_LOG_DEBUG 0x00000008 +/* log masks for ssle_debug_sel (sslEngine.h) */ +#define S_SEC_SSLE_LOG_NERR 0x00000010 +#define S_SEC_SSLE_LOG_FLOW 0x00000020 +#define S_SEC_SSLE_LOG_DATA 0x00000040 +#define S_SEC_SSLE_LOG_DEBUG 0x00000080 +/* log masks for snap_debug_sel (snaplog.h) */ +#define S_SEC_SNAP_LOG_NERR 0x00000100 +#define S_SEC_SNAP_LOG_FLOW 0x00000200 +/* log masks for sock_debug_sel (gensock2.h) */ +#define S_SEC_SOCK_LOG_NERR 0x00000400 +#define S_SEC_SOCK_LOG_FLOW 0x00000800 +#define S_SEC_SOCK_LOG_TX 0x00001000 +#define S_SEC_SOCK_LOG_RX 0x00002000 +/* log masks for sx_debug_sel (sx_defs.h) */ +#define S_SEC_SX_LOG_NERR 0x00004000 +#define S_SEC_SX_LOG_DEC 0x00008000 +#define S_SEC_SX_LOG_ENC 0x00010000 +#define S_SEC_SX_LOG_FLOW 0x00020000 +#define S_SEC_SX_LOG_DEBUG 0x00040000 +/* log masks for asn1_debug_sel (asn1r.h) */ +#define S_SEC_ASN1_LOG_NERR 0x00080000 +#define S_SEC_ASN1_LOG_DEC 0x00100000 +#define S_SEC_ASN1_LOG_ENC 0x00200000 +/* log masks for gs_debug_sel (glbsem.h) */ +#define S_SEC_GS_LOG_NERR 0x00400000 +#define S_SEC_GS_LOG_FLOW 0x00800000 +/* log masks for chk_debug_en (mem_chk.h) */ +#define S_SEC_MEM_LOG_CALLOC 0x01000000 +#define S_SEC_MEM_LOG_MALLOC 0x02000000 +#define S_SEC_MEM_LOG_REALLOC 0x04000000 +#define S_SEC_MEM_LOG_FREE 0x08000000 +/* the rest of bits are used for memory debugging flags: */ +#define S_SEC_m_check_list_enable 0x10000000 +#define S_SEC_m_find_node_enable 0x20000000 +#define S_SEC_m_no_realloc_smaller 0x40000000 +/* 0x80000000 free */ + +/************************************************************************/ +/* SNAP Startup Event Names */ + +#if defined(_WIN32) +#define SNAP_STARTED_EVENT_NAME "snap.started" +#define SNAP_RUNNING_EVENT_NAME "snap.running" +#define SNAP_EXIT_EVENT_NAME "snap.exit" +#endif + +/************************************************************************/ +/* Allowed authType values */ + +#define S_SEC_AUTHTYPE_NONE 0 +#define S_SEC_AUTHTYPE_CERTIFICATE 1 +#define S_SEC_AUTHTYPE_SYMMETRIC 2 + +/************************************************************************/ +/* General Defines */ + +/* Maximum signed time data size */ +#define S_SEC_MAX_SIGNED_TIME_LEN 128 + +/* Help in sizing the asn1 buffer (really more like 25 ...) */ +#define S_SEC_ASN1_BUF_OH 50 + +/* Maximum size of the certificate serial number (in bytes) */ +#define S_SEC_MAX_SERIAL_LEN 64 + +/************************************************************************/ +/* MACE decode error codes */ + +#define MACE_ASN1_INCOMPLETE 0x9102 +#define MACE_ASN1_SYMMETRIC_NOT_SUPPORTED 0x9103 + +/************************************************************************/ +/* Default Ports */ + +/* SSL Port */ +#define S_SEC_DEF_SSL_PORT 3782 + +/* IPC Ports */ +#define S_SEC_DEF_STACK_PORT 10042 +#define S_SEC_DEF_SNAP_PORT 10043 +#define S_SEC_DEF_SNAP_CONTROL_PORT 10044 +#define S_SEC_DEF_SNAP_MONITOR_PORT 10045 + + +/************************************************************************/ +/* Remote address and security info formatting tokens */ + +#define S_SEC_IP_ADDR_DELIM_STR "SSL:" +#define S_SEC_PORT_DELIM_STR "+" +#define S_SEC_PORT_DELIM_CHAR '+' /* same as above but in ' ' */ +#define S_SEC_CIPHER_DELIM_STR "+" +#define S_SEC_CERT_ID_DELIM_STR "," + +#define S_SEC_MAX_IP_ADDR_LEN 20 + +/************************************************************************/ +/* Security Subsystem Error Codes */ + +#define S_SEC_ERR_VALIDITY_TOOSOON 0xA001 /* 40961 */ +#define S_SEC_ERR_VALIDITY_EXPIRED 0xA002 /* 40962 */ +#define S_SEC_ERR_CNAME_TYPE_UNKNOWN 0xA003 /* 40963 */ +#define S_SEC_ERR_CNAME_MISSING 0xA004 /* 40964 */ +#define S_SEC_ERR_CNAME_EXTRA 0xA005 /* 40965 */ +#define S_SEC_ERR_CNAME_MISMATCH 0xA006 /* 40966 */ +#define S_SEC_ERR_TIME_SEAL_INVALID 0xA007 /* 40967 */ +#define S_SEC_ERR_TIME_SEAL_TIME_WINDOW 0xA008 /* 40968 */ +#define S_SEC_ERR_READ_INSTALL_PATH 0xA009 /* 40969 */ +/* DEBUG: these codes are not appearing anywhere */ + +/************************************************************************/ +/* Cipher Suite Selection Defines */ + +#define S_MAX_ALLOWED_CIPHER_SUITES 49 + +/* Masks for Cipher Suite elements */ +#define S_KEYX_MASK 0xff0000 +#define S_CRYPT_MASK 0x00ff00 +#define S_HASH_MASK 0x0000ff + + +/* Key Exchange Algorithms */ +#define S_KEYX_NONE 0x000000 +#define S_KEYX_NULL 0x010000 +#define S_KEYX_RSA 0x020000 +#define S_KEYX_RSA_EX 0x030000 +#define S_KEYX_DH_DSS 0x040000 +#define S_KEYX_DH_DSS_EX 0x050000 +#define S_KEYX_DH_RSA 0x060000 +#define S_KEYX_DH_RSA_EX 0x070000 +#define S_KEYX_DHE_DSS 0x080000 +#define S_KEYX_DHE_DSS_EX 0x090000 +#define S_KEYX_DHE_RSA 0x0A0000 +#define S_KEYX_DHE_RSA_EX 0x0B0000 +#define S_KEYX_DH_ANON 0x0C0000 +#define S_KEYX_DH_ANON_EX 0x0D0000 +#define S_KEYX_FORTEZZA_DMS 0x0E0000 + +/* Encryption Algorithms */ +#define S_CRYPT_NONE 0x000000 +#define S_CRYPT_NULL 0x000100 +#define S_CRYPT_RC4_40 0x000200 +#define S_CRYPT_RC4_56 0x000300 +#define S_CRYPT_RC4_128 0x000400 +#define S_CRYPT_RC2_CBC_40 0x000500 +#define S_CRYPT_IDEA_CBC 0x000600 +#define S_CRYPT_DES40_CBC 0x000700 +#define S_CRYPT_DES_CBC 0x000800 +#define S_CRYPT_3DES_EDE_CBC 0x000900 +#define S_CRYPT_FORTEZZA_CBC 0x000A00 +#define S_CRYPT_AES_128_CBC 0x000B00 +#define S_CRYPT_AES_256_CBC 0x000C00 + +/* Hash Algorithms */ +#define S_HASH_NONE 0x000000 +#define S_HASH_NULL 0x000001 +#define S_HASH_MD5 0x000002 +#define S_HASH_SHA 0x000003 + +/* Cipher Suite Seletion */ +#define S_CIPHER_NOSSL 0x000000 +#define S_CIPHER_ANY 0xFFFFFF + +/* 49 Cipher Suites are defined by SSL 3.0 and TLS 1.0 */ +/* Bit fields: Key Exchange Encryption Hash */ +#define S_CIPHER_NONE (S_KEYX_NONE | S_CRYPT_NONE | S_HASH_NONE) +#define S_CIPHER_010103 (S_KEYX_NULL | S_CRYPT_NULL | S_HASH_SHA) +#define S_CIPHER_020102 (S_KEYX_RSA | S_CRYPT_NULL | S_HASH_MD5) +#define S_CIPHER_020103 (S_KEYX_RSA | S_CRYPT_NULL | S_HASH_SHA) +#define S_CIPHER_020402 (S_KEYX_RSA | S_CRYPT_RC4_128 | S_HASH_MD5) +#define S_CIPHER_020403 (S_KEYX_RSA | S_CRYPT_RC4_128 | S_HASH_SHA) +#define S_CIPHER_020603 (S_KEYX_RSA | S_CRYPT_IDEA_CBC | S_HASH_SHA) +#define S_CIPHER_020803 (S_KEYX_RSA | S_CRYPT_DES_CBC | S_HASH_SHA) +#define S_CIPHER_020903 (S_KEYX_RSA | S_CRYPT_3DES_EDE_CBC | S_HASH_SHA) +#define S_CIPHER_020B03 (S_KEYX_RSA | S_CRYPT_AES_128_CBC | S_HASH_SHA) +#define S_CIPHER_020C03 (S_KEYX_RSA | S_CRYPT_AES_256_CBC | S_HASH_SHA) +#define S_CIPHER_030202 (S_KEYX_RSA_EX | S_CRYPT_RC4_40 | S_HASH_MD5) +#define S_CIPHER_030303 (S_KEYX_RSA_EX | S_CRYPT_RC4_56 | S_HASH_SHA) +#define S_CIPHER_030502 (S_KEYX_RSA_EX | S_CRYPT_RC2_CBC_40 | S_HASH_MD5) +#define S_CIPHER_030703 (S_KEYX_RSA_EX | S_CRYPT_DES40_CBC | S_HASH_SHA) +#define S_CIPHER_030803 (S_KEYX_RSA_EX | S_CRYPT_DES_CBC | S_HASH_SHA) +#define S_CIPHER_040803 (S_KEYX_DH_DSS | S_CRYPT_DES_CBC | S_HASH_SHA) +#define S_CIPHER_040903 (S_KEYX_DH_DSS | S_CRYPT_3DES_EDE_CBC | S_HASH_SHA) +#define S_CIPHER_040B03 (S_KEYX_DH_DSS | S_CRYPT_AES_128_CBC | S_HASH_SHA) +#define S_CIPHER_040C03 (S_KEYX_DH_DSS | S_CRYPT_AES_256_CBC | S_HASH_SHA) +#define S_CIPHER_050703 (S_KEYX_DH_DSS_EX | S_CRYPT_DES40_CBC | S_HASH_SHA) +#define S_CIPHER_060803 (S_KEYX_DH_RSA | S_CRYPT_DES_CBC | S_HASH_SHA) +#define S_CIPHER_060903 (S_KEYX_DH_RSA | S_CRYPT_3DES_EDE_CBC | S_HASH_SHA) +#define S_CIPHER_060B03 (S_KEYX_DH_RSA | S_CRYPT_AES_128_CBC | S_HASH_SHA) +#define S_CIPHER_060C03 (S_KEYX_DH_RSA | S_CRYPT_AES_256_CBC | S_HASH_SHA) +#define S_CIPHER_070703 (S_KEYX_DH_RSA_EX | S_CRYPT_DES40_CBC | S_HASH_SHA) +#define S_CIPHER_080403 (S_KEYX_DHE_DSS | S_CRYPT_RC4_128 | S_HASH_SHA) +#define S_CIPHER_080803 (S_KEYX_DHE_DSS | S_CRYPT_DES_CBC | S_HASH_SHA) +#define S_CIPHER_080903 (S_KEYX_DHE_DSS | S_CRYPT_3DES_EDE_CBC | S_HASH_SHA) +#define S_CIPHER_090303 (S_KEYX_DHE_DSS_EX | S_CRYPT_RC4_56 | S_HASH_SHA) +#define S_CIPHER_090703 (S_KEYX_DHE_DSS_EX | S_CRYPT_DES40_CBC | S_HASH_SHA) +#define S_CIPHER_090803 (S_KEYX_DHE_DSS_EX | S_CRYPT_DES_CBC | S_HASH_SHA) +#define S_CIPHER_080B03 (S_KEYX_DHE_DSS | S_CRYPT_AES_128_CBC | S_HASH_SHA) +#define S_CIPHER_080C03 (S_KEYX_DHE_DSS | S_CRYPT_AES_256_CBC | S_HASH_SHA) +#define S_CIPHER_0A0803 (S_KEYX_DHE_RSA | S_CRYPT_DES_CBC | S_HASH_SHA) +#define S_CIPHER_0A0903 (S_KEYX_DHE_RSA | S_CRYPT_3DES_EDE_CBC | S_HASH_SHA) +#define S_CIPHER_0A0B03 (S_KEYX_DHE_RSA | S_CRYPT_AES_128_CBC | S_HASH_SHA) +#define S_CIPHER_0A0C03 (S_KEYX_DHE_RSA | S_CRYPT_AES_256_CBC | S_HASH_SHA) +#define S_CIPHER_0B0703 (S_KEYX_DHE_RSA_EX | S_CRYPT_DES40_CBC | S_HASH_SHA) +#define S_CIPHER_0C0402 (S_KEYX_DH_ANON | S_CRYPT_RC4_128 | S_HASH_MD5) +#define S_CIPHER_0C0803 (S_KEYX_DH_ANON | S_CRYPT_DES_CBC | S_HASH_SHA) +#define S_CIPHER_0C0903 (S_KEYX_DH_ANON | S_CRYPT_3DES_EDE_CBC | S_HASH_SHA) +#define S_CIPHER_0C0B03 (S_KEYX_DH_ANON | S_CRYPT_AES_128_CBC | S_HASH_SHA) +#define S_CIPHER_0C0C03 (S_KEYX_DH_ANON | S_CRYPT_AES_256_CBC | S_HASH_SHA) +#define S_CIPHER_0D0202 (S_KEYX_DH_ANON_EX | S_CRYPT_RC4_40 | S_HASH_MD5) +#define S_CIPHER_0D0703 (S_KEYX_DH_ANON_EX | S_CRYPT_DES40_CBC | S_HASH_SHA) +#define S_CIPHER_0E0103 (S_KEYX_FORTEZZA_DMS | S_CRYPT_NULL | S_HASH_SHA) +#define S_CIPHER_0E0403 (S_KEYX_FORTEZZA_DMS | S_CRYPT_RC4_128 | S_HASH_SHA) +#define S_CIPHER_0E0A03 (S_KEYX_FORTEZZA_DMS | S_CRYPT_FORTEZZA_CBC | S_HASH_SHA) + +/************************************************************************/ +/* Certificate Names */ + +/* nameType defines */ +#define S_CERT_NAME_TYPE_ANY 0 +#define S_CERT_NAME_TYPE_COMMON_NAME 1 +#define S_CERT_NAME_TYPE_COUNTRY 2 +#define S_CERT_NAME_TYPE_STATE_OR_PROVINCE 3 +#define S_CERT_NAME_TYPE_LOCALITY 4 +#define S_CERT_NAME_TYPE_ORGANIZATION 5 +#define S_CERT_NAME_TYPE_EMAIL 6 +#define S_CERT_NAME_TYPE_ORGANIZATIONAL_UNIT 7 + +#define S_CERT_NAME_MAX_LEN 255 + +/* A name in a certificate is a list of names and nane types */ +typedef struct S_CERT_NAME_tag + { + DBL_LNK l; + ST_INT nameType; + ST_CHAR *nameText; + } S_CERT_NAME; + + +/************************************************************************/ +/* Identifying a Certificate */ + +#define S_SERIAL_NUM_NONE -1 + +typedef struct S_CERT_ID_tag + { + /* Note: adding/removing fields to/from this struct will make older */ + /* !!! applications incompatible with new security DLLs. */ + ST_INT serialLen; /* 0 == wildcard */ + ST_UCHAR serialNumber[S_SEC_MAX_SERIAL_LEN]; /* reverse from mmc */ + S_CERT_NAME *issuerCName; /* NULL == wildcard */ + S_CERT_NAME *subjectCName; /* NULL == wildcard */ + } S_CERT_ID; + + +/************************************************************************/ +/* Certificate BLOB, X.509 format */ + +typedef struct S_CERT_BLOB_tag + { + /* Note: adding/removing fields to/from this struct will make older */ + /* !!! applications incompatible with new security DLLs. */ + ST_INT certDataLen; + ST_UCHAR *certData; + } S_CERT_BLOB; + +/************************************************************************/ +/* Signed Time */ + +typedef struct S_SIGNED_TIME_tag + { + /* Note: adding/removing fields to/from this struct will make older */ + /* !!! applications incompatible with new security DLLs. */ + ST_INT signedTimeLen; + ST_UCHAR *signedTimeData; + } S_SIGNED_TIME; + +/************************************************************************/ +/* MACE authentication information */ + +typedef struct S_MACE_INFO_tag + { + ST_INT authType; + union + { + struct + { + S_CERT_BLOB certBlob; + time_t signedTimeT; + + /* UTC NULL-terminated time string to be verified */ + ST_UCHAR clearTime[S_SEC_MAX_SIGNED_TIME_LEN]; + /* UTC time string signed by the sender */ + S_SIGNED_TIME signedTime; + + } certBased; + struct + { + ST_INT placeHolder; + } symmetric; + } u; + } S_MACE_INFO; + + +/************************************************************************/ +/************************************************************************/ +/* Certificate Content Information */ + +typedef struct S_CERT_INFO_tag + { + /* Note: adding/removing fields to/from this struct will make older */ + /* applications incompatible with new security DLLs. */ + ST_INT version; + S_CERT_ID certId; + struct + { + time_t validNotBefore; + time_t validNotAfter; + } validity; + +#if 0 + struct + { + ST_INT publicKeyAlgorithm; + ST_INT algorithmIdentifier; + } algorithms; +#endif + + ST_UCHAR *publicKey; + ST_INT publicKeyLen; + } S_CERT_INFO; + + +/************************************************************************/ +/************************************************************************/ +/* Security Configuration */ +/************************************************************************/ + +/* List of Certificate ID's */ +typedef struct S_CERT_CTRL_tag + { + DBL_LNK l; + ST_CHAR *certName; /* Null if no associated name */ + S_CERT_ID certId; + +/* Rekey Control. These override the global rekey parameters if != 0 */ +/* They apply only to remote certificates */ + ST_UINT32 maxTransactionsPerKey; + ST_UINT32 maxTimePerKey; /* in seconds */ + ST_INT rekeyTimeout; /* In seconds */ + +/* Internal use */ + ST_UINT32 cfgId; /* computed 32-bit CRC on certId */ + /* enabled fields (for matching) */ + } S_CERT_CTRL; + +/************************************************************************/ +/* AR Security Mapping Defines */ + +/* appAuthRequired defines */ +/* These defines come into play only if 'Remote AR Security' is not */ +/* found for an incoming connection */ + +/* 'Remote AR Security' is required; reject all other indications */ +#define S_APP_AUTHREQ_AR_SEC 0 +/* A configured MACE certificate is required */ +#define S_APP_AUTHREQ_MACE 1 +/* A configured MACE certificate is required and encryption is required */ +#define S_APP_AUTHREQ_MACE_ENCRYPTED 2 +/* Encryption is required */ +#define S_APP_AUTHREQ_ENCRYPTED 3 +/* There are no requirements; all connections are acceptable */ +#define S_APP_AUTHREQ_NONE 4 + + + +#define S_AR_AUTH_MODE_AETITLE 0 +#define S_AR_AUTH_MODE_MACE 1 +#define S_AR_AUTH_MODE_SSL 2 +/* For backward compatibility only */ +#define S_AR_AUTH_MODE_NONE S_AR_AUTH_MODE_AETITLE + +/* Note that the Local is used to select the local MACE certificate for */ +/* connections to a remote with arAuthMode == S_AR_AUTH_MODE_MACE */ +typedef struct S_SEC_LOC_AR_tag + { + DBL_LNK l; + ST_CHAR *arName; /* Local or Remote AR Name */ + S_CERT_CTRL *maceCert; /* NULL if none configured */ + +/* User */ + ST_VOID *usr; + } S_SEC_LOC_AR; + +/* Remote AR Security Configuration */ +/* Note that the Remote is used to determine the ACSE authentication */ +/* and encryption to be used for both calling and called connections, */ +/* and is used in identifying the remote for called connections */ +typedef struct S_SEC_REM_AR_tag + { + DBL_LNK l; + ST_CHAR *arName; /* Local or Remote AR Name */ + + /* Authentication */ + ST_INT arAuthMode; + +/* Authentication Certificate: */ +/* arAuthMode == S_AR_AUTH_MODE_MACE : Remote MACE cert */ +/* arAuthMode == S_AR_AUTH_MODE_SSL : Remote SSL cert */ +/* arAuthMode == S_AR_AUTH_MODE_NONE : NULL */ + S_CERT_CTRL *authCert; + +/* Encryption */ + ST_INT encryptMode; + ST_UINT16 sslPort; /* For S_SEC_ENCRYPT_SSL */ + +/* User */ + ST_VOID *usr; + } S_SEC_REM_AR; + +#if defined(_WIN32) +/* Placeholder struct kept only for compatibility purposes with older + * applications. Used in main S_SEC_CFG struct below. + */ +typedef struct + { + ST_INT mutexType; /* GS_MUTEX_UNNAMED (_NAMED) */ + union + { + HANDLE hMutex; /* for named mutex */ + CRITICAL_SECTION cs; /* for unnamed mutex */ + } u; + } ST_MUTEX_SEM_SSEC; +#else +#define ST_MUTEX_SEM_SSEC ST_MUTEX_SEM +#endif + +/************************************************************************/ +/**** Main Configuration Structure ****/ + +#define S_SSL_MAX_LISTEN_PORTS 10 +typedef struct + { + /* Note: adding/removing fields to/from this struct will make older */ + /* !!! applications incompatible with new security DLLs. */ + + /****** General Configuration ******/ + ST_BOOLEAN secureModeEnabled; + + /* Old struct kept around for alignment purposes with old(er) apps */ + ST_MUTEX_SEM_SSEC obsoleteCfgMutex; + + /****** MACE Level Configuration ******/ + /* Time Signature Window */ + ST_UINT32 timeSealWindow; + + /****** Certificate Lists ******/ + /* Remote Certificates and associated AR Names */ + S_CERT_CTRL *sslRemoteCertList; + + /* Local Certificates and associated AR Names */ + S_CERT_CTRL *sslLocalCertList; + + /* Acceptable CA Certificates */ + S_CERT_CTRL *sslTrustedCaCertList; + + /****** SSL Configuration ******/ + /* Local Certificate to be used */ + S_CERT_CTRL *sslLocalCertCtrl; + + /* Listen Port Numbers */ + ST_INT numSslListenPorts; + ST_UINT16 sslListenPorts[S_SSL_MAX_LISTEN_PORTS]; + + /* Allowed Ciphers, ordered by preference */ + ST_INT numAllowedCipherSuites; + ST_INT allowedCipherSuites[S_MAX_ALLOWED_CIPHER_SUITES]; + + /* Flags */ + ST_BOOLEAN certAuthCalling; /* verify that peer certificate is configured */ + ST_BOOLEAN certAuthCalled; /* verify that peer certificate is configured */ + ST_BOOLEAN encryptReqCalling; /* encryption required on calling connection */ + ST_BOOLEAN encryptReqCalled; /* encryption required on called connection */ + + /* Rekey Control */ + ST_UINT32 maxTransactionsPerKey; + ST_UINT32 maxTimePerKey; /* in seconds */ + ST_INT rekeyTimeout; /* In seconds */ + + /* CRL Control */ + ST_INT crlCheckTime; /* In minutes */ + ST_BOOLEAN crlDropExisting; + + /****** Application Configuation */ + ST_INT appAuthRequired; + DIB_MATCH_CTRL dibMatch; + + /* Well Known AR Names */ + S_SEC_LOC_AR *secLocArList; + S_SEC_REM_AR *secRemArList; + + /****** SNAP Configuation */ + ST_UINT16 defCallingSslPort; /* Default SSL Calling Port Number */ + + /* Misc */ + ST_UINT maxCalling; + ST_UINT maxCalled; + + ST_INT cpuAffinity; + + /* Calling connection timeout, used by SNAP. Default 10000ms */ + ST_INT callingConnectTimeout; /* In milliseconds */ + + /****** IPC: SNAP/Stack Ports & IP Addresses */ + ST_CHAR *stackIPAddress; + ST_UINT16 stackListenPort; + + ST_CHAR *snapIPAddress; + ST_UINT16 snapListenPort; + ST_UINT16 snapControlListenPort; + ST_UINT16 snapMonitorListenPort; + + /* SNAP/STACK Connect-to-Ctrl timeout, bidirectional. Default 500ms */ + ST_INT snapStackCtrlTimeout; /* In milliseconds */ + + /****** Security Logging ******/ + ST_INT secEventLogTimeStampMode; + ST_INT secEventLogFileSize; + ST_CHAR *secEventLogFile; + ST_INT diagLogTimeStampMode; + ST_INT diagLogFileSize; + ST_CHAR *diagLogFileName; + ST_UINT secLogMasks; + } S_SEC_CONFIG; + + +/************************************************************************/ +/************************************************************************/ + +#define S_SEC_ENCRYPT_NONE 0 +#define S_SEC_ENCRYPT_SSL 1 +typedef struct S_SEC_ENCRYPT_CTRL_tag + { + ST_INT encryptMode; + union + { + struct + { + ST_UINT16 port; + ST_BOOLEAN sslCertMatched; /* The Subject-to-CertId succeded */ + S_CERT_CTRL *sslCert; /* The matched SSL cert ctrl */ + ST_INT cipherSuite; /* Cipher suite in use */ + } ssl; + } u; + } S_SEC_ENCRYPT_CTRL; + +/* Struct passed back and forth to SUIC */ +typedef struct S_SEC_SPARAMS_tag + { + ACSE_AUTH_INFO *authInfo; + ACSE_AUTH_INFO *partAuthInfo; + S_SEC_ENCRYPT_CTRL *encryptCtrl; + } S_SEC_SPARAMS; + +/************************************************************************/ + +/* Application Level Authentication Check Result */ +typedef struct S_SEC_AUTHCHK_RSLT_tag + { +/* Encryption in use */ + S_SEC_ENCRYPT_CTRL encryptInfo; + +/* Authentication in use */ + ST_INT authPres; + ST_INT mechType; + union + { + struct + { + ST_BOOLEAN timeSealOk; /* Timeseal not reused, in window */ + ST_BOOLEAN maceCertTimeValid; /* Certificate validity times OK */ + ST_BOOLEAN maceCertIssuerOk; /* The issuer is in the OK list */ + ST_BOOLEAN maceCertMatched; /* The Subject-to-CertId succeded */ + S_CERT_CTRL *maceCert; /* The matched MACE cert ctrl */ + } certBased; + struct + { + ST_INT placeHolder; + } symmetric; + struct + { + ST_INT placeHolder2; + } passsword; + } u; + } S_SEC_AUTHCHK_RSLT; + +/************************************************************************/ +/* Look up configured security information by AR Name */ +ST_RET sSecRemArNameToArSec (ST_CHAR *arName, S_SEC_REM_AR **arSecOut); +ST_RET sSecLocArNameToArSec (ST_CHAR *arName, S_SEC_LOC_AR **arSecOut); + +/************************************************************************/ +/* These functions can be used to select and examine SSL level info */ +/* for the selected connection */ +#if defined(MMS_LITE) && !defined(MAP30_ACSE) +/* ssecusr.c functions */ +struct mvl_net_info; /* forward reference */ +ST_RET sSecAssocIndChk (struct mvl_net_info *cc, DIB_MATCH_CTRL *matchCtrl, + S_SEC_REM_AR **arSecOut, S_SEC_AUTHCHK_RSLT *srcChkDest); +ST_RET sSecAssocConfChkEx (struct mvl_net_info *cc, DIB_MATCH_CTRL *matchCtrl, + S_SEC_REM_AR *remArSec, S_SEC_AUTHCHK_RSLT *srcChkDest); +ST_RET sSecAuthChk (struct mvl_net_info *cc, S_SEC_AUTHCHK_RSLT *srcChkDest); +ST_RET sSecGetSecParam (struct mvl_net_info *cc, S_SEC_SPARAMS *secParams); +ST_RET sSecFreeSecParam (ACSE_AUTH_INFO *authInfo); +ST_RET sSecFreePartSecParam (struct mvl_net_info *cc); + +/* For backward compatability */ +#define sSecAssocConfChk(cc,remArSec,secChkDest) sSecAssocConfChkEx(cc,NULL,remArSec,secChkDest) +#else /* !defined(MMS_LITE) || defined(MAP30_ACSE) */ +/* ssecusr.c functions */ +ST_RET sSecAssocIndChk (ST_INT chan, DIB_MATCH_CTRL *matchCtrl, + S_SEC_REM_AR **arSecOut, S_SEC_AUTHCHK_RSLT *srcChkDest); +ST_RET sSecAssocConfChkEx (ST_INT chan, DIB_MATCH_CTRL *matchCtrl, + S_SEC_REM_AR *remArSec, S_SEC_AUTHCHK_RSLT *srcChkDest); +ST_INT sSecAuthChk (ST_INT chan, S_SEC_AUTHCHK_RSLT *srcChkDest); +ST_RET sSecSetSecParam (ST_INT chan, S_SEC_SPARAMS *secParams); +ST_RET sSecGetSecParam (ST_INT chan, S_SEC_SPARAMS *secParams); + +/* For backward compatability */ +#define sSecAssocConfChk(chan,remArSec,secChkDest) sSecAssocConfChkEx(chan,NULL,remArSec,secChkDest) +#endif /* !defined(MMS_LITE) || defined(MAP30_ACSE) */ + + + +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ +/* Initialize/Terminate */ + +ST_RET sSecUsrStart (S_SEC_CONFIG **secCfgOut); +ST_RET sSecUsrEnd (ST_VOID); +ST_RET sSecStart (S_SEC_CONFIG **secCfg); +ST_RET sSecEnd (ST_VOID); + +/************************************************************************/ +/* Configuration */ + +/* Used by configuration app to get SEC_MAN config information */ +ST_CHAR *secManGetXmlCfg (ST_VOID); +ST_RET secManSetXmlCfg (ST_CHAR *pw, ST_CHAR *xmlCfg); +ST_RET secManExportLocalCerts (ST_CHAR *pw, ST_INT *destFile); + +/* Used by app to reload security components */ +ST_RET sSecUpdate(S_SEC_CONFIG *currCfg, S_SEC_CONFIG *newCfg); + +/************************************************************************/ +/* MACE Authentication */ + +/* Create/Free MACE Authentication Information for a local CertId */ +ST_RET sSecMaceAuthInfoCreate (S_CERT_ID *certId, ACSE_AUTH_INFO *authInfo); + +ST_VOID sSecMaceAuthInfoFree (ACSE_AUTH_INFO *auth_info); + +/* Decode MACE Authentication Information */ +ST_RET sSecMaceAuthInfoDec (ACSE_AUTH_INFO *authInfo, + S_MACE_INFO **maceInfoOut, + S_CERT_INFO **certInfoOut); +ST_VOID sSecFreeCertInfo (S_CERT_INFO *certInfo); + +/************************************************************************/ +/************************************************************************/ +/* Finding things in the Security Configuration */ + +/**** Find configured local CertCtrl for given certName ****/ +ST_RET sSecCertNameToLocCertCtrl (ST_CHAR *certName, S_CERT_CTRL **certCtrlOut); + +/**** Find configured remote CertCtrl for given certName ****/ +ST_RET sSecCertNameToRemCertCtrl (ST_CHAR *certName, S_CERT_CTRL **certCtrlOut); + +/**** Find configured remote CertCtrl for given CertId ****/ +ST_RET sSecCertIdToRemCertCtrl (S_CERT_ID *certId, S_CERT_CTRL **certCtrlOut); + +/**** Find configured remote CertCtrl for given cfgId ****/ +ST_RET sSecCertCfgIdToRemCertCtrl (ST_INT cfgId, S_CERT_CTRL **CertCtrlOut); + +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ +/**** Certificate Blob Handling ****/ + +/* Retrieve local Certificate Blob from Certifcate Store */ +ST_RET sSecGetLocalCert (S_CERT_ID *certId, S_CERT_BLOB *certDataOut); + +/* Decoding a Certificate blob */ +ST_RET sSecCertDec (S_CERT_BLOB *certBlob, S_CERT_INFO **certInfoOut); + +/************************************************************************/ +/**** Signed Time Handling ****/ + +/* Verify a Signed Time signature */ +ST_RET sSecSignedTimeVerify (S_CERT_INFO *remCert, S_SIGNED_TIME *signedTime, ST_UCHAR *clearTime); + +/* Sign a time_t */ +ST_RET sSecSignTimeT (S_CERT_ID *localCert, S_SIGNED_TIME *signedTime, time_t timeToSign); + +/************************************************************************/ +/**** MACE ASN.1 Encode/Decode ****/ + +/* Encode MACE ACSE Authentication */ +ST_RET sSecMaceAsn1Enc (S_MACE_INFO *maceInfo, + ST_CHAR *asn1Buf, ST_INT asn1BufLen, + ST_CHAR **maceAsn1Out, ST_INT *maceAsn1LenOut); + +/* Decode Certificate based ACSE Authentication */ +ST_RET sSecMaceAsn1Dec (ST_CHAR *maceAsn1, ST_INT maceAsn1Len, + S_MACE_INFO **maceInfoOut); + +/************************************************************************/ +/**** Remote Certificate Validity Checking ****/ + +/* Make sure the certificate issuer is OK */ +ST_RET sSecChkIssuer (S_CERT_INFO *certInfo); + +/* Make sure the certificate validity times are OK */ +ST_RET sSecChkValidityTimes (S_CERT_INFO *certInfo); + +/* Validate a MACE time seal */ +ST_RET sSecChkTimeSeal (S_CERT_INFO *remCert, + time_t signedTimeT, + ST_UCHAR *clearTime, + S_SIGNED_TIME *signedTime); + + +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ +/* Common functions declarations */ + +/**** Compare remote cert issuer names with ones that we trust ****/ +ST_BOOLEAN sSecCmpIssuer (S_CERT_ID *remCert, S_CERT_ID *trustedCert); +/**** Compare two CertIds ****/ +ST_BOOLEAN sSecCmpCertId (S_CERT_ID *certId1, S_CERT_ID *certId2); + +/* Export a certificate to XML */ +#if !defined(_WIN32) +ST_INT ssleCertFileToXml (ST_CHAR *fileName, ST_CHAR *buf, ST_INT bufLen, ST_CHAR *pass); +/* Export a certificate to Text */ +ST_INT ssleCertFileToText (ST_CHAR *fileName, ST_CHAR *buf, ST_INT bufLen, ST_CHAR *pass); +#endif /* !defined(_WIN32) */ + +ST_RET ssleLoadCRLists(ST_VOID *ssl_ctx, ST_BOOLEAN *newCrlOut); + +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ +/* secMan Declarations */ +/************************************************************************/ + +/* Set log masks */ +ST_UINT* secManGetDebugSel(ST_VOID); + +/* Start/Stop */ +ST_RET secManStart (S_SEC_CONFIG **secCfg, ST_VOID *secLog); +ST_RET secManEnd (ST_VOID); + +/* Start the SSL Engine in ssec.lib (genssl.c) */ +ST_RET startSSLEngine(S_SEC_CONFIG *sSecCfg, ST_VOID *secLog); +/* Stop the SSL Engine in ssec.lib (genssl.c) */ +ST_RET stopSSLEngine(ST_VOID); +/* Called by SNAP to reload the security configuration (genssl.c) */ +ST_RET sslUpdate(ST_VOID); +/* Called by SNAP-Lite to reload the CRLs (genssl.c) */ +ST_RET updateCRLists (ST_VOID); + +/* Used by SNAP and user apps to get the configuration. + * The release function MUST be called when the app is done using the + * configuration. + */ +ST_RET secManAccessCfg (S_SEC_CONFIG **secCfgOut); +ST_RET secManReleaseCfg (ST_VOID); + +/* Used by the stack to get the configuration */ +ST_RET secManAccessCfgByStack (S_SEC_CONFIG **secCfgOut); + +/* Dynamic Configuration functions */ +ST_BOOLEAN secManChkNewCfgAvail(ST_VOID); +ST_RET secManLoadCfg(S_SEC_CONFIG *secCfgOut); +ST_RET secManUpdateCfg(S_SEC_CONFIG *currCfg, S_SEC_CONFIG *newCfg); +ST_RET secManFreeCfg(S_SEC_CONFIG *secCfg); + +#if !defined(MMS_LITE) || defined(MAP30_ACSE) +#if defined (_WIN32) +/* Called by app or SecCfg to signal change in configuration file */ +__declspec(dllimport) ST_VOID WINAPI secManCfgChange(ST_VOID); +/* __declspec(dllexport) ST_VOID WINAPI secManCfgChange(ST_VOID);*/ +#endif +#else /* MMS_LITE */ +ST_VOID secManCfgChange(ST_VOID); +#endif /* MMS_LITE */ + +#if !defined(MMS_LITE) || defined(MAP30_ACSE) +/* Software Lock access */ +ST_RET secManLckStart(ST_VOID); +ST_VOID secManLckEnd(ST_VOID); +ST_RET secManLckCheck(ST_VOID); +#else +/* MMS_LITE */ +extern ST_CHAR *secManCfgXmlFile; +#endif + +#if !defined(_WIN32) +/* --- For UNIX & LINUX define default path to Certificate Stores --- */ +/* --- under the SISCO_PATH_INSTALL/SISCO_PATH_SECURITY directory --- */ +#define CERT_STORE_LOCAL "certstore/local" +#define CERT_STORE_CA "certstore/ca" +#define CERT_STORE_REMOTE "certstore/remote" + +/* If needed these paths can be changed by app before sSecStart() is called */ +extern ST_CHAR LocalCertStorePath[S_MAX_PATH]; /* defaults to CERT_STORE_LOCAL */ +extern ST_CHAR CACertStorePath[S_MAX_PATH]; /* defaults to CERT_STORE_CA */ + +/* Exported function from libsecpass shared library (provided by the user) */ +ST_RET secPassGetPassword(S_CERT_ID *certId, ST_CHAR *certPass, ST_INT certPassLen); +#endif /* !defined(_WIN32) */ + +/* Logging */ +/* destLog defines */ +#define S_SEC_LOGTYPE_NONE 0 +#define S_SEC_LOGTYPE_DIAG 1 +#define S_SEC_LOGTYPE_SECURITY 2 + +/* eventType defines */ +#define S_SEC_EVENT_NO_CIPHERS 1 +#define S_SEC_EVENT_UNKNOWN_CA 2 +#define S_SEC_EVENT_UNKNOWN_REMOTE 3 +#define S_SEC_EVENT_SSL_FAILURE 4 +#define S_SEC_EVENT_REKEY_FAILURE 5 + +typedef struct S_SEC_EVENT_tag + { + /* Note: adding/removing fields to/from this struct will make older */ + /* !!! applications incompatible with new security DLLs. */ + ST_INT destLog; /* Select Diagnoistic or Security log */ + + /* This section needs work */ + ST_BOOLEAN logSystemEvent; /* Log to System event system */ + ST_INT eventType; + ST_INT8 numArgs; + ST_CHAR *eventArgs[32]; + + ST_BOOLEAN logToSlog; /* Log to SLOG file */ + ST_INT logType; /* Standard SLOG information */ + ST_CHAR *SD_CONST logTypeStr; + ST_CHAR *SD_CONST sourceFile; + ST_INT lineNum; + ST_INT bufLen; + ST_CHAR *buf; + } S_SEC_EVENT; + +/* Logging to Event Viewer via secman.dll */ +ST_VOID secManEventLog (S_SEC_EVENT *secEvent, S_CERT_INFO *cert); + +/**** Output the serial number as a string ****/ +ST_VOID secManPrintSrlNum (S_CERT_ID *certId, ST_CHAR *outBuf, ST_INT outBufLen); + +/* Log configuration to diagnostic log */ +ST_VOID secManLogCfg (ST_VOID); + +/* Clone the log file */ +ST_VOID secManCloneLog (ST_INT logType); + +/************************************************************************/ +/************************************************************************/ +/* Log Macros */ + +/* Log type strings */ +extern SD_CONST ST_CHAR *SD_CONST _sec_err_logstr; +extern SD_CONST ST_CHAR *SD_CONST _sec_nerr_logstr; +extern SD_CONST ST_CHAR *SD_CONST _sec_flow_logstr; +extern SD_CONST ST_CHAR *SD_CONST _sec_data_logstr; +extern SD_CONST ST_CHAR *SD_CONST _sec_debug_logstr; + +#define SECLOG_ERR0(a) \ + SLOG_0 (sec_debug_sel & SEC_LOG_ERR, _sec_err_logstr, a) +#define SECLOG_ERR1(a,b) \ + SLOG_1 (sec_debug_sel & SEC_LOG_ERR, _sec_err_logstr, a,b) +#define SECLOG_ERR2(a,b,c) \ + SLOG_2 (sec_debug_sel & SEC_LOG_ERR, _sec_err_logstr, a,b,c) +#define SECLOG_ERR3(a,b,c,d) \ + SLOG_3 (sec_debug_sel & SEC_LOG_ERR, _sec_err_logstr, a,b,c,d) + +#define SECLOG_CERR0(a) \ + SLOGC_0 (sec_debug_sel & SEC_LOG_ERR,a) +#define SECLOG_CERR1(a,b) \ + SLOGC_1 (sec_debug_sel & SEC_LOG_ERR,a,b) +#define SECLOG_CERR2(a,b,c) \ + SLOGC_2 (sec_debug_sel & SEC_LOG_ERR,a,b,c) + +#define SECLOG_NERR0(a) \ + SLOG_0 (sec_debug_sel & SEC_LOG_NERR, _sec_nerr_logstr, a) +#define SECLOG_NERR1(a,b) \ + SLOG_1 (sec_debug_sel & SEC_LOG_NERR, _sec_nerr_logstr, a,b) +#define SECLOG_NERR2(a,b,c) \ + SLOG_2 (sec_debug_sel & SEC_LOG_NERR, _sec_nerr_logstr, a,b,c) +#define SECLOG_NERR3(a,b,c,d) \ + SLOG_3 (sec_debug_sel & SEC_LOG_NERR, _sec_nerr_logstr, a,b,c,d) + +#define SECLOG_FLOW0(a) \ + SLOG_0 (sec_debug_sel & SEC_LOG_FLOW, _sec_flow_logstr, a) +#define SECLOG_FLOW1(a,b) \ + SLOG_1 (sec_debug_sel & SEC_LOG_FLOW, _sec_flow_logstr, a,b) +#define SECLOG_FLOW2(a,b,c) \ + SLOG_2 (sec_debug_sel & SEC_LOG_FLOW, _sec_flow_logstr, a,b,c) +#define SECLOG_FLOW3(a,b,c,d) \ + SLOG_3 (sec_debug_sel & SEC_LOG_FLOW, _sec_flow_logstr, a,b,c,d) + +#define SECLOG_CFLOW0(a) \ + SLOGC_0 (sec_debug_sel & SEC_LOG_FLOW,a) +#define SECLOG_CFLOW1(a,b) \ + SLOGC_1 (sec_debug_sel & SEC_LOG_FLOW,a,b) + +#define SECLOG_DEBUG0(a) \ + SLOG_0 (sec_debug_sel & SEC_LOG_DEBUG, _sec_debug_logstr, a) +#define SECLOG_DEBUG1(a,b) \ + SLOG_1 (sec_debug_sel & SEC_LOG_DEBUG, _sec_debug_logstr, a,b) +#define SECLOG_DEBUG2(a,b,c) \ + SLOG_2 (sec_debug_sel & SEC_LOG_DEBUG, _sec_debug_logstr, a,b,c) +#define SECLOG_DEBUG3(a,b,c,d) \ + SLOG_3 (sec_debug_sel & SEC_LOG_DEBUG, _sec_debug_logstr, a,b,c,d) + +#define SECLOG_CDEBUG0(a) \ + SLOGC_0 (sec_debug_sel & SEC_LOG_DEBUG,a) +#define SECLOG_CDEBUG1(a,b) \ + SLOGC_1 (sec_debug_sel & SEC_LOG_DEBUG,a,b) + +/************************************************************************/ +#ifdef __cplusplus +} +#endif + +#endif /* S_SEC_INCLUDED */ +/************************************************************************/ diff --git a/mmslib/inc/ssec_int.h b/mmslib/inc/ssec_int.h new file mode 100644 index 0000000..b8445d4 --- /dev/null +++ b/mmslib/inc/ssec_int.h @@ -0,0 +1,56 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2003 - 2007, All Rights Reserved */ +/* */ +/* MODULE NAME : ssec_int.h */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains internal security functions, defines,... */ +/* that are not exposed to user. */ +/* It also contains function that are passing GEN_SOCK parameter. */ +/* Having these protos in ssec.h caused compile conflicts in */ +/* project using old gensock.h */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 11/06/07 EJV 02 Chg sSecGetCertId param to ST_UINT32. */ +/* Added few prototypes. */ +/* 08/25/03 EJV 01 Moved protos with GEN_SOCK from ssec.h */ +/************************************************************************/ + +#ifndef SSEC_INT_INCLUDED +#define SSEC_INT_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "gensock2.h" + + +/* internal functions for secure socket interface */ +ST_RET setGenSockSSL (GEN_SOCK_CONFIG *sockCfg); +ST_RET sSecGetCipherSuite (GEN_SOCK *pSock, ST_INT *cipherSuiteOut); +ST_RET sSecGetCertId (GEN_SOCK *pSock, ST_UINT32 *cfgIdOut); +ST_RET sSecGetCertCtrl (GEN_SOCK *pSock, S_CERT_CTRL **certCtrlOut); + +ST_RET _secManGetCfg (S_SEC_CONFIG **secCfgOut); + +ST_INT sslGetCipherSuite (GEN_SOCK *pSock); +S_CERT_INFO *sslGetPeerCert (GEN_SOCK *pSock); +ST_VOID sslFreePeerCert (S_CERT_INFO *remCert); + + +/************************************************************************/ +#ifdef __cplusplus +} +#endif + +#endif /* SSEC_INT_INCLUDED */ +/************************************************************************/ diff --git a/mmslib/inc/ssleLog.h b/mmslib/inc/ssleLog.h new file mode 100644 index 0000000..76490b9 --- /dev/null +++ b/mmslib/inc/ssleLog.h @@ -0,0 +1,154 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2003 - 2008, All Rights Reserved */ +/* */ +/* MODULE NAME : sslLog.h */ +/* PRODUCT(S) : Sisco MMS Security Toolkit */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* SSL Toolkit logging macros */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 05/28/08 EJV 24 Merged with non-Marben code. */ +/* 04/08/08 JRB 05 Chg () to (ST_VOID) in prototype. */ +/* 10/20/03 ASK 04 Added ssleGetDebugSel proto. Modlog cleanup. */ +/* 09/03/03 EJV 03 Made ssle_debug_sel ST_UINT */ +/* Moved SSLE_LOG_* masks from sslEngine.h */ +/* 08/21/03 EJV 02 Made ssle_debug_sel extern */ +/* 08/21/02 ASK 01 Created */ +/************************************************************************/ + +#ifndef SSLE_LOG_INCLUDED +#define SSLE_LOG_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#include "slog.h" + +/* Log control masks */ +#define SSLE_LOG_ERR 0x00000001 +#define SSLE_LOG_NERR 0x00000002 +#define SSLE_LOG_FLOW 0x00000004 +#define SSLE_LOG_DATA 0x00000008 +#define SSLE_LOG_DEBUG 0x00000010 + +extern ST_UINT ssle_debug_sel; + +/* Function so user can set log masks */ +ST_UINT* ssleGetDebugSel(ST_VOID); +ST_UINT *ssleGetASN1DebugSel(ST_VOID); +/* Function so user can set memory debug flag */ +ST_BOOLEAN *ssleGetMemDebug (ST_VOID); + +/* Internal SSL Toolkit Utility Functions */ +ST_VOID _ssleLogError(ST_ULONG err); + +/* The log macros */ +#define SSLE_LOG_ERR0(a) \ + SLOG_0 (ssle_debug_sel & SSLE_LOG_ERR, "SSLE_LOG_ERR", a) +#define SSLE_LOG_ERR1(a,b) \ + SLOG_1 (ssle_debug_sel & SSLE_LOG_ERR, "SSLE_LOG_ERR", a,b) +#define SSLE_LOG_ERR2(a,b,c) \ + SLOG_2 (ssle_debug_sel & SSLE_LOG_ERR, "SSLE_LOG_ERR", a,b,c) +#define SSLE_LOG_ERR3(a,b,c,d) \ + SLOG_3 (ssle_debug_sel & SSLE_LOG_ERR, "SSLE_LOG_ERR", a,b,c,d) +#define SSLE_LOG_ERR4(a,b,c,d,e) \ + SLOG_4 (ssle_debug_sel & SSLE_LOG_ERR, "SSLE_LOG_ERR", a,b,c,d,e) + +#define SSLE_LOG_NERR0(a) \ + SLOG_0 (ssle_debug_sel & SSLE_LOG_NERR, "SSLE_LOG_NERR", a) +#define SSLE_LOG_NERR1(a,b) \ + SLOG_1 (ssle_debug_sel & SSLE_LOG_NERR, "SSLE_LOG_NERR", a,b) +#define SSLE_LOG_NERR2(a,b,c) \ + SLOG_2 (ssle_debug_sel & SSLE_LOG_NERR, "SSLE_LOG_NERR", a,b,c) +#define SSLE_LOG_NERR3(a,b,c,d) \ + SLOG_3 (ssle_debug_sel & SSLE_LOG_NERR, "SSLE_LOG_NERR", a,b,c,d) +#define SSLE_LOG_NERR4(a,b,c,d,e) \ + SLOG_4 (ssle_debug_sel & SSLE_LOG_NERR, "SSLE_LOG_NERR", a,b,c,d,e) + +#define SSLE_LOG_FLOW0(a) \ + SLOG_0 (ssle_debug_sel & SSLE_LOG_FLOW, "SSLE_LOG_FLOW", a) +#define SSLE_LOG_FLOW1(a,b) \ + SLOG_1 (ssle_debug_sel & SSLE_LOG_FLOW, "SSLE_LOG_FLOW", a,b) +#define SSLE_LOG_FLOW2(a,b,c) \ + SLOG_2 (ssle_debug_sel & SSLE_LOG_FLOW, "SSLE_LOG_FLOW", a,b,c) +#define SSLE_LOG_FLOW3(a,b,c,d) \ + SLOG_3 (ssle_debug_sel & SSLE_LOG_FLOW, "SSLE_LOG_FLOW", a,b,c,d) +#define SSLE_LOG_FLOW4(a,b,c,d,e) \ + SLOG_4 (ssle_debug_sel & SSLE_LOG_FLOW, "SSLE_LOG_FLOW", a,b,c,d,e) + +#define SSLE_LOG_DEBUG0(a) \ + SLOG_0 (ssle_debug_sel & SSLE_LOG_DEBUG, "SSLE_LOG_DEBUG", a) +#define SSLE_LOG_DEBUG1(a,b) \ + SLOG_1 (ssle_debug_sel & SSLE_LOG_DEBUG, "SSLE_LOG_DEBUG", a,b) +#define SSLE_LOG_DEBUG2(a,b,c) \ + SLOG_2 (ssle_debug_sel & SSLE_LOG_DEBUG, "SSLE_LOG_DEBUG", a,b,c) +#define SSLE_LOG_DEBUG3(a,b,c,d) \ + SLOG_3 (ssle_debug_sel & SSLE_LOG_DEBUG, "SSLE_LOG_DEBUG", a,b,c,d) +#define SSLE_LOG_DEBUG4(a,b,c,d,e) \ + SLOG_4 (ssle_debug_sel & SSLE_LOG_DEBUG, "SSLE_LOG_DEBUG", a,b,c,d,e) + +#define SSLE_LOG_DATAH(a,b) \ + SLOGH (ssle_debug_sel & SSLE_LOG_DATA,a,b) + +/* 'C' macros stand for 'Continuation' */ +#define SSLE_LOG_CERR0(a) \ + SLOGC_0 (ssle_debug_sel & SSLE_LOG_ERR, a) +#define SSLE_LOG_CERR1(a,b) \ + SLOGC_1 (ssle_debug_sel & SSLE_LOG_ERR, a,b) +#define SSLE_LOG_CERR2(a,b,c) \ + SLOGC_2 (ssle_debug_sel & SSLE_LOG_ERR, a,b,c) +#define SSLE_LOG_CERR3(a,b,c,d) \ + SLOGC_3 (ssle_debug_sel & SSLE_LOG_ERR, a,b,c,d) +#define SSLE_LOG_CERR4(a,b,c,d,e) \ + SLOGC_4 (ssle_debug_sel & SSLE_LOG_ERR, a,b,c,d,e) + +#define SSLE_LOG_CNERR0(a) \ + SLOGC_0 (ssle_debug_sel & SSLE_LOG_NERR, a) +#define SSLE_LOG_CNERR1(a,b) \ + SLOGC_1 (ssle_debug_sel & SSLE_LOG_NERR, a,b) +#define SSLE_LOG_CNERR2(a,b,c) \ + SLOGC_2 (ssle_debug_sel & SSLE_LOG_NERR, a,b,c) +#define SSLE_LOG_CNERR3(a,b,c,d) \ + SLOGC_3 (ssle_debug_sel & SSLE_LOG_NERR, a,b,c,d) +#define SSLE_LOG_CNERR4(a,b,c,d,e) \ + SLOGC_4 (ssle_debug_sel & SSLE_LOG_NERR, a,b,c,d,e) + +#define SSLE_LOG_CFLOW0(a) \ + SLOGC_0 (ssle_debug_sel & SSLE_LOG_FLOW, a) +#define SSLE_LOG_CFLOW1(a,b) \ + SLOGC_1 (ssle_debug_sel & SSLE_LOG_FLOW, a,b) +#define SSLE_LOG_CFLOW2(a,b,c) \ + SLOGC_2 (ssle_debug_sel & SSLE_LOG_FLOW, a,b,c) +#define SSLE_LOG_CFLOW3(a,b,c,d) \ + SLOGC_3 (ssle_debug_sel & SSLE_LOG_FLOW, a,b,c,d) +#define SSLE_LOG_CFLOW4(a,b,c,d,e) \ + SLOGC_4 (ssle_debug_sel & SSLE_LOG_FLOW, a,b,c,d,e) + +#define SSLE_LOG_CDEBUG0(a) \ + SLOGC_0 (ssle_debug_sel & SSLE_LOG_DEBUG, a) +#define SSLE_LOG_CDEBUG1(a,b) \ + SLOGC_1 (ssle_debug_sel & SSLE_LOG_DEBUG, a,b) +#define SSLE_LOG_CDEBUG2(a,b,c) \ + SLOGC_2 (ssle_debug_sel & SSLE_LOG_DEBUG, a,b,c) +#define SSLE_LOG_CDEBUG3(a,b,c,d) \ + SLOGC_3 (ssle_debug_sel & SSLE_LOG_DEBUG, a,b,c,d) +#define SSLE_LOG_CDEBUG4(a,b,c,d,e) \ + SLOGC_4 (ssle_debug_sel & SSLE_LOG_DEBUG, a,b,c,d,e) + +/************************************************************************/ +#ifdef __cplusplus +} +#endif + +#endif /* SSLE_LOG_INCLUDED */ +/************************************************************************/ diff --git a/mmslib/inc/stdtime.h b/mmslib/inc/stdtime.h new file mode 100644 index 0000000..5cb2504 --- /dev/null +++ b/mmslib/inc/stdtime.h @@ -0,0 +1,1446 @@ +/*****************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER **********************************************/ +/*****************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2005 All Rights Reserved */ +/* */ +/* MODULE NAME : stdtime.h */ +/* PRODUCT(S) : Standard Time Management Library */ +/* */ +/* MODULE DESCRIPTION: */ +/* Header file for Standard Time Management Library Functions */ +/* */ +/* Note: most functions a produce a return-code value STDTIME_RC. */ +/* the return code is zero if successful, otherwise it is a structured */ +/* value in which the low-order 10 bits enumerates an error reason, */ +/* and the upper 20 bits enumerates the high-level and low-level */ +/* functions where the error was detected. */ +/* */ +/* MODIFICATION LOG: */ +/* Date Who Rev Comments */ +/* -------- --- --- ----------------------------------------------------- */ +/* 04/08/08 JRB 15 Chg () to (ST_VOID) in several prototypes. */ +/* 03/13/08 JRB 14 Chg #error to #warning for STDTIME_UNICODE. */ +/* 02/28/08 JRB 13 Incl "timeb.h" only in "sysincs.h". */ +/* 02/20/08 JRB 12 Chg STDTIME same as FILETIME (simplifies a lot). */ +/* Delete MANY unused functions and definitions. */ +/* Simplify TimeTypeEx, StrucTmEx args. */ +/* 04/03/07 RLH 11 Additional conversion functions to/from FILETIME. */ +/* 03/18/07 RLH 10 Remove tabs from source code inadvertantly added. */ +/* 03/16/07 RLH 09 Normalize struct tm, SYSTEMTIME, and STDTIME_FIELDS */ +/* after rounding is applied; no rounding for formatting */ +/* functions. */ +/* 02/16/07 RLH 08 Clean up minor warnings under Linux */ +/* 01/10/07 RLH 07 Add TruncStdTimeString functions */ +/* 11/29/06 RLH 06 Correction to STDTIME_TIME_T64_ENABLED setting */ +/* 10/18/06 RLH 05 Enhanced capabilities for timezone rules */ +/* 10/27/06 RLH 04 Change STDTIME_RET, STDTIME_IF, STDTIME_IFNOT macros */ +/* 09/13/06 RLH 03 Ensure local time conversions work when TZ not set */ +/* 06/07/06 RLH 02 Numerous features added, see stdtime.doc */ +/* 01/18/06 RLH 01 Created */ +/*****************************************************************************/ + +#ifndef _STDTIME_H_7583ECB2_DB3F_48B3_8A97_2D1D2A38C84A_ +#define _STDTIME_H_7583ECB2_DB3F_48B3_8A97_2D1D2A38C84A_ + +#define SECONDS_FROM_1601_TO_1970_HIGH 2 +#define SECONDS_FROM_1601_TO_1970_LOW 0xB6109100 + +#define FILETIME_1970_HIGH 0x019DB1DE +#define FILETIME_1970_LOW 0xD53E8000 + +#undef STDTIME_MSVC6 +#undef STDTIME_MSVC7 +#undef STDTIME_MSVC8 + +#ifdef _MSC_VER + +#ifndef _CRT_SECURE_NO_DEPRECATE +#define _CRT_SECURE_NO_DEPRECATE +#endif + + +#if (_MSC_VER >= 1400) +#define STDTIME_MSVC8 +#elif (_MSC_VER >= 1300) +#define STDTIME_MSVC7 +#elif (_MSC_VER >= 1200) +#define STDTIME_MSVC6 +#endif + + +#if 0 + +#if (_MSC_VER >= 1400) +#pragma comment(lib, "stdtimelib.lib") +#elif (_MSC_VER >= 1300) +#pragma comment(lib, "stdtimelib.lib") +#elif (_MSC_VER >= 1200) +#pragma comment(lib, "stdtimelib.lib") +#endif + +#endif /* 0 */ + + +#endif /* _MSC_VER */ + +/* to test for STDTIME library being used */ +#undef STDTIME_DEFINED +#define STDTIME_DEFINED 1 + +/*****************************************************************************/ +/* LIBRARY HEADERS */ +/*****************************************************************************/ + +/* UNICODE or ANSI, but not both */ + +#if defined(STDTIME_UNICODE) && defined(STDTIME_ANSI) +#error Both STDTIME_UNICODE and STDTIME_ANSI defined +#undef STDTIME_UNICODE +#endif + +/* UNICODE or _UNICODE implies STDTIME_UNICODE, but not if ANSI defined */ + +#if (!defined(STDTIME_UNICODE)) && (!defined(STDTIME_ANSI)) +#if defined(UNICODE) || defined(_UNICODE) +#define STDTIME_UNICODE +#endif +#endif + +#if defined(STDTIME_UNICODE) +#pragma message("Warning: STDTIME_UNICODE option no longer supported. Try using ANSI functions mbstowcs and wcstombs.") +#undef STDTIME_UNICODE +#endif + +/* DEBUG: system include should come from "sysincs.h". Fix that later */ +#ifdef _WIN32 +#include +#endif + +#include +#include +#include +#include +#include +#include + +/*****************************************************************************/ +/* with support for gmtime_r and localtime_r if possible */ +/*****************************************************************************/ + +#undef STDTIME_REENTRANT_GMTIME_LOCALTIME + +#undef STDTIME_DEFINED_LINUX__USE_POSIX +#if defined(linux) +#define STDTIME_REENTRANT_GMTIME_LOCALTIME +#ifndef __USE_POSIX +#define __USE_POSIX +#define STDTIME_DEFINED_LINUX__USE_POSIX +#endif +#endif + +#undef STDTIME_DEFINED_SOLARIS_REENTRANT +#if defined(sun) +#define STDTIME_REENTRANT_GMTIME_LOCALTIME +#ifndef _REENTRANT +#define _REENTRANT +#define STDTIME_DEFINED_SOLARIS_REENTRANT +#endif +#endif + +#undef STDTIME_DEFINED_SOLARIS_POSIX_PTHREAD_SEMANTICS +#if defined(sun) +#ifndef _POSIX_PTHREAD_SEMANTICS +#define _POSIX_PTHREAD_SEMANTICS +#define STDTIME_DEFINED_SOLARIS_POSIX_PTHREAD_SEMANTICS +#endif +#endif + +#undef STDTIME_DEFINED_AIX_THREAD_SAFE +#if defined(_AIX) +#define STDTIME_REENTRANT_GMTIME_LOCALTIME +#ifndef _THREAD_SAFE +#define _THREAD_SAFE +#define STDTIME_DEFINED_AIX_THREAD_SAFE +#endif +#endif + +#undef STDTIME_DEFINED_DEC_UNIX_REENTRANT +#if defined(__alpha) && !defined(__VMS) +#define STDTIME_REENTRANT_GMTIME_LOCALTIME +#ifndef _REENTRANT +#define _REENTRANT +#define STDTIME_DEFINED_DEC_UNIX_REENTRANT +#endif +#endif + + +#include + + +#if defined(sun) +struct tm * gmtime_r (const time_t * pTimeT, struct tm * pStructTm); +struct tm * localtime_r (const time_t * pTimeT, struct tm * pStructTm); +#endif + + +/* clean up macro namespace */ + +#ifdef STDTIME_DEFINED_LINUX__USE_POSIX +#undef STDTIME_DEFINED_LINUX__USE_POSIX +#undef __USE_POSIX +#endif + +#ifdef STDTIME_DEFINED_SOLARIS_REENTRANT +#undef STDTIME_DEFINED_SOLARIS_REENTRANT +#undef _REENTRANT +#endif + +#ifdef STDTIME_DEFINED_SOLARIS_POSIX_PTHREAD_SEMANTICS +#undef STDTIME_DEFINED_SOLARIS_POSIX_PTHREAD_SEMANTICS +#undef _POSIX_PTHREAD_SEMANTICS +#endif + +#ifdef STDTIME_DEFINED_DEC_UNIX_REENTRANT +#undef STDTIME_DEFINED_DEC_UNIX_REENTRANT +#undef _REENTRANT +#endif + +#ifdef STDTIME_DEFINED_AIX_THREAD_SAFE +#undef STDTIME_DEFINED_AIX_THREAD_SAFE +#undef _THREAD_SAFE +#endif + + +/*****************************************************************************/ +/* support _T notation on non-Windows platforms */ +/*****************************************************************************/ + +#if (!defined(_T)) && (!defined(__T)) +#ifdef STDTIME_UNICODE +#define __T(x) L##x +#define _T(x) __T(x) +#else +#define __T(x) x +#define _T(x) x +#endif +#endif /* not defined _T and __T */ + +#include "stdtime_config.h" + + +/*****************************************************************************/ +/* determine if "stdtime_timezone_csv.h" file is "merged" or not. */ +/* */ +/* the csv file gets "merged" if there is no comma separating one line */ +/* from the next. a "merged" file is the normal format for a csv data */ +/* file, but when used as part of a C program, the lack of a comma causes */ +/* the last string value on one line to get concatenated by the compiler */ +/* to the first string value on the next line. we need to know if the */ +/* file is "merged" or "unmerged" to know how to 'undo' the merging. */ +/* */ +/* an unmerged file is easier and faster to process, while a merged file */ +/* maintains source compatibility with the original Boost.org timezone */ +/* database file from which it originated. */ +/* */ +/*****************************************************************************/ + +#if defined(STDTIME_MERGED_CSV) && defined(STDTIME_UNMERGED_CSV) +#error Both STDTIME_MERGED_CSV and STDTIME_UNMERGED_CSV defined +#undef STDTIME_UNMERGED_CSV +#endif + +#if !defined(STDTIME_MERGED_CSV) && !defined(STDTIME_UNMERGED_CSV) +#define STDTIME_MERGED_CSV /* default */ +#endif + + +/*****************************************************************************/ +/* determine how GMT is converted to local time, and vice-versa. */ +/* */ +/* using a system API for a definition of what "local" is will be faster, */ +/* but if the SYSTEMTIMEZONE or TZ environment variable does not agree */ +/* with the OS's understanding of what "local" is, there will be a */ +/* conflict. if the time library is likely to be used for a non-local */ +/* time zone, defining STDTIME_LOCAL_USES_TZDB is necessary. */ +/* otherwise, define STDTIME_LOCAL_USES_SYSAPI for speed. */ +/* */ +/*****************************************************************************/ + +#if defined(STDTIME_LOCAL_USES_TZDB) && defined(STDTIME_LOCAL_USES_SYSAPI) +#error Both STDTIME_LOCAL_USES_TZDB and STDTIME_LOCAL_USES_SYSAPI defined +#undef STDTIME_LOCAL_USES_SYSAPI +#endif + +#if !defined(STDTIME_LOCAL_USES_TZDB) && !defined(STDTIME_LOCAL_USES_SYSAPI) +#define STDTIME_LOCAL_USES_SYSAPI /* default */ +#endif + + +/*****************************************************************************/ +/* C++ ONLY ENABLED OR DISABLED */ +/* */ +/* use StdTimeConfig.h to set STDTIME_CPP_ONLY_ENABLED/DISABLED */ +/*****************************************************************************/ + + +#ifdef __cplusplus + +#if defined(STDTIME_CPP_ONLY_ENABLED) && defined(STDTIME_CPP_ONLY_DISABLED) +#error Both STDTIME_CPP_ONLY_ENABLED and STDTIME_CPP_ONLY_DISABLED defined +#undef STDTIME_CPP_ONLY_ENABLED +#endif + +#if !defined(STDTIME_CPP_ONLY_ENABLED) && !defined(STDTIME_CPP_ONLY_DISABLED) +#define STDTIME_CPP_ONLY_ENABLED /* default */ +#endif + +#else /* not __cplusplus */ + +#undef STDTIME_CPP_ONLY_ENABLED +#undef STDTIME_CPP_ONLY_DISABLED +#define STDTIME_CPP_ONLY_DISABLED + +#endif /* __cplusplus */ + + +/* StdTimeW32.h needs the bool definition */ + + +#define STDTIME_BOOL int +#define STDTIME_TRUE 1 +#define STDTIME_FALSE 0 + +typedef int32_t STDTIME_RC; + +/* STDTIME return codes are divided as follows: */ +/* 2 bits unused */ +/* 10 bits = highest level function where error detected */ +/* 10 bits = lowest level function where error detected */ +/* 10 bits = error reason code (nature of problem) */ + + +/* create error code enumeration from enum_stdtime_func.h */ +/* this is done by temporary macro and include file */ + +#define STDTIME_ENUM_FUNC(x) STDTIME_FUNC__##x, + +enum + { + STDTIME_FUNC__0000, /* dummy 0 entry */ +#include "stdtime_enum_func.h" + STDTIME_FUNC__SIZE + }; + +/* temporary macro has served its purpose, so undefine it */ +#undef STDTIME_ENUM_FUNC + + +/* now redefine macro for main purpose, to declare 'rc' and 'func' */ +/* within each function that returns a STDTIME_RC return code. */ + + +#define STDTIME_ENUM_FUNC(x) \ + STDTIME_RC rc; \ + STDTIME_RC func; \ + rc = -1; \ + func = (STDTIME_RC) STDTIME_FUNC__##x; + + +/* create error code enumeration from enum_stdtime_err.h */ +/* this is done by temporary macro and include file */ + +#define STDTIME_ENUM_ERR(x) STDTIME_ERR__##x, + +enum + { + STDTIME_ERR__0000, /* dummy 0 entry */ +#include "stdtime_enum_err.h" + STDTIME_ERR__SIZE + }; + +/* temporary macro has served its purpose, so undefine it */ +#undef STDTIME_ENUM_ERR + + +#define STDTIME_10_BITS 0x3FF +#define STDTIME_20_BITS 0xFFFFF + +#define STDTIME_OK 0 +#define STDTIME_RET(x) return StdTimeRet (func, x) + +#define STDTIME_RET_RC STDTIME_RET(rc) +#define STDTIME_RET_OK return STDTIME_OK + +#define STDTIME_EC(x) ((func << 10) | (STDTIME_ERR__##x)) + +#define STDTIME_RET_EC(x) STDTIME_RET(STDTIME_EC(x)) + +#include "stdtime_quadlib.h" +#include "stdtime_w32.h" + + +#ifdef __cplusplus +extern "C" { +#endif + + +/*****************************************************************************/ +/* TYPES AND STRUCTURES */ +/*****************************************************************************/ + + +#if defined(_MSC_VER) && defined(_WCHAR_T_DEFINED) +typedef wchar_t STDTIME_WCHAR; +#elif defined(sun) && defined(_WCHAR_T) +typedef wchar_t STDTIME_WCHAR; +#else +typedef unsigned short STDTIME_WCHAR; +#endif + +#ifndef STDTIME_TIME_T64_WIN +#if defined(_TIME_T_DEFINED) && defined(_WIN64) +#define STDTIME_TIME_T64_WIN +#endif +#endif + +#ifndef STDTIME_TIME_T64_WIN +#ifdef _TIME64_T_DEFINED +#define STDTIME_TIME_T64_WIN +#endif +#endif + + +#ifndef STDTIME_TIME_T64_ENABLED +#ifdef STDTIME_TIME_T64_WIN +#define STDTIME_TIME_T64_ENABLED +#endif +#endif + + +#ifdef STDTIME_TIME_T64_ENABLED +#ifdef STDTIME_TIME_T64_WIN + +#ifdef _TIME64_T_DEFINED +typedef __time64_t STDTIME_WIN_TIME_T; +#else +typedef time_t STDTIME_WIN_TIME_T; +#endif /* _TIME64_T_DEFINED */ + +#else /* not STDTIME_TIME_T64_WIN */ +typedef QUADLIB_I64N STDTIME_WIN_TIME_T; +#endif /* STDTIME_TIME_T64_WIN */ + + + + +#else /* not STDTIME_TIME_T64_ENABLED */ +typedef time_t STDTIME_WIN_TIME_T; +#endif /* STDTIME_TIME_T64_ENABLED */ + + +#define STDTIME_SCALE_NSEC 100 /* only 1 digit of nsec precision */ +#define STDTIME_PREC_NSEC 10 /* only 1 digit of nsec precision */ + +#define STDTIME_WIN_EPOCH_YEAR 1601 +#define STDTIME_UNIX_EPOCH_YEAR 1970 +#define STDTIME_DST_CUTOFF_YEAR 1945 + +#define STDTIME_YEAR_MIN STDTIME_WIN_EPOCH_YEAR /* base/epoch year */ +#define STDTIME_YEAR_MAX 9999 /* to avoid overflow in STDTIME_STRING */ + +#define STDTIME_INVALID {0,0} +#define STDTIME_FIELDS_INVALID {0,0,0,0,0,0,0,0,0} +#define STDTIME_STRING_INVALID {0} + +#define STDTIME_SPAN_INVALID QUADLIB_I64_MAX + +#define STDTIME_DELTA_DAY_MAX (8400*366) + + +#define STDTIME_DELTA_INVALID { 0x7FFFFFFF, 0x7FFFFFFF, 0x7FFFFFFF, \ + 0x7FFFFFFF, 0x7FFFFFFF, 0x7FFFFFFF, 0x7FFFFFFF } /**/ + + +/* an invalid span exceeds +/- 2,656,281,600,000,000,000 */ +/* which is 8400*366 days in terms of 100-nanosecond intervals */ +/* the pos value in hex is 24DD 020A A768 0000 */ +/* the neg value in hex is DB22 FDF5 5898 0000 */ + +#define STDTIME_SPAN_MAX_HI 0x24DD020A +#define STDTIME_SPAN_MAX_LO 0xA7680000 + +#define STDTIME_SPAN_MIN_HI 0xDB22FDF5 +#define STDTIME_SPAN_MIN_LO 0x58980000 + +#define STDTIME_ERR (-2) +#define STDTIME_LT (-1) +#define STDTIME_EQ 0 +#define STDTIME_GT 1 + +/* Main StdTime structure identical to Windows FILETIME. */ +typedef STDTIME_WIN_FILETIME STDTIME; + +typedef struct + { + int32_t year; + int32_t mon; + int32_t day; + int32_t hour; + int32_t min; + int32_t sec; + int32_t msec; /* milliseconds */ + int32_t usec; /* microseconds */ + int32_t nsec; /* nanoseconds */ + } +STDTIME_FIELDS; + + +typedef struct + { + int32_t day; + int32_t hour; + int32_t min; + int32_t sec; + int32_t msec; + int32_t usec; + int32_t nsec; + } +STDTIME_DELTA; + + +typedef struct + { + QUADLIB_I64 value; + } +STDTIME_SPAN; + + +/* 1 2 3 */ +/* 0123456789012345678901234567890123456 */ +/* STRING format: yyyy-mm-ddThh:mi:ss.fffffff# */ +/* TZO format: +hh:mm:ss# */ +/* 0123456789 */ + +#define STDTIME_STRING_DATE_LEN 10 +#define STDTIME_STRING_TIME_LEN 8 +#define STDTIME_STRING_FRAC_LEN 7 + +#define STDTIME_STRING_DATE_POS 0 +#define STDTIME_STRING_TIME_POS 11 +#define STDTIME_STRING_FRAC_POS 20 + +#define STDTIME_STRING_DLM_D1 4 +#define STDTIME_STRING_DLM_D2 7 +#define STDTIME_STRING_DLM_S1 10 +#define STDTIME_STRING_DLM_T1 13 +#define STDTIME_STRING_DLM_T2 16 +#define STDTIME_STRING_DLM_F1 19 + +#define STDTIME_STRING_LEN 27 +#define STDTIME_TZO_LEN 9 +#define STDTIME_STRING_MAXLEN (STDTIME_STRING_LEN+STDTIME_TZO_LEN) + + +typedef struct + { + char str [STDTIME_TZO_LEN + 1]; + } +STDTIME_TZOA; + +/* embTzo represents an 'embedded' timezone offset, a suffix to the time */ +/* string 'str' in STDTIME_STRINGA and STDTIME_STRINGW. */ +/* embTzo may be a null string, the letter Z or an offset like -05:00 */ + +/* extTzo represents an 'external' timezone offset, created as an output */ +/* value by the STDTIME library. the library creates, but does not */ +/* directly use, the extTzo field. */ + +typedef struct + { + char str [STDTIME_STRING_LEN]; + char embTzo [STDTIME_TZO_LEN + 1]; + STDTIME_TZOA extTzo; /* external TimeZone Offset */ + } +STDTIME_STRINGA; + +#ifdef STDTIME_UNICODE +#else +#define STDTIME_STRING STDTIME_STRINGA +#define STDTIME_TZO STDTIME_TZOA +#endif /* STDTIME_UNICODE */ + +typedef struct + { + STDTIME_WIN_TIME_T t; + } +STDTIME_TIMETYPE; + +#define STDTIME_API_MKTIME mktime + +/* Round/Trunc field selectors */ + +#define STDTIME_FIELD_DAY 0 +#define STDTIME_FIELD_HOUR 1 +#define STDTIME_FIELD_MIN 2 +#define STDTIME_FIELD_SEC 3 +#define STDTIME_FIELD_MSEC 4 +#define STDTIME_FIELD_USEC 5 +#define STDTIME_FIELD_NSEC 6 + + +#define STDTIME_ERRCODE_LEN 27 + +/* an error code has the form 0xNNNNNNNN = HHHH.LLLL.RRRR# */ +/* 0123456789012345678901234567 */ +/* this holds a raw hex RC value, and the RC as subfields */ + +#define STDTIME_ERRMSG_LEN 80 + +typedef struct + { + char errcode [STDTIME_ERRCODE_LEN+1]; + char hilevel [STDTIME_ERRMSG_LEN+1]; + char lolevel [STDTIME_ERRMSG_LEN+1]; + char reason [STDTIME_ERRMSG_LEN+1]; + } +STDTIME_ERRMSGA; + +#define STDTIME_IF(x) ((rc=(x)) == STDTIME_OK) +#define STDTIME_IFNOT(x) ((rc=(x)) != STDTIME_OK) + + +/*** helper function to assemble a STDTIME return code ***********************/ + +STDTIME_RC StdTimeRet ( + const STDTIME_RC /*I*/ func, + const STDTIME_RC /*I*/ ec); + + +/*** StdTime/StdTimeFields conversions ***************************************/ + + +STDTIME_RC StdTimeToStdTimeFields ( + const STDTIME * /*I*/ pStdTime, + STDTIME_FIELDS * /*O*/ pStdTimeFields); + +STDTIME_RC StdTimeFieldsToStdTime ( + const STDTIME_FIELDS * /*I*/ pStdTimeFields, + STDTIME * /*O*/ pStdTime); + + +/*** StdTime/external conversions ********************************************/ + + +STDTIME_RC StdTimeToStdTimeStringA ( + const STDTIME * /*I*/ pStdTime, + STDTIME_STRINGA * /*O*/ pStdTimeString); + +#ifdef STDTIME_UNICODE +#else +#define StdTimeToStdTimeString StdTimeToStdTimeStringA +#endif /* STDTIME_UNICODE */ + + +/*** external/StdTime conversions ********************************************/ + + +STDTIME_RC StdTimeStringAToStdTime ( + const STDTIME_STRINGA * /*I*/ pStdTimeString, + STDTIME * /*O*/ pStdTime); + +#ifdef STDTIME_UNICODE +#else +#define StdTimeStringToStdTime StdTimeStringAToStdTime +#endif /* STDTIME_UNICODE */ + + +/*** StdTimeFields/external conversions **************************************/ + + +STDTIME_RC StdTimeFieldsToStdTimeStringA ( + const STDTIME_FIELDS * /*I*/ pStdTimeFields, + STDTIME_STRINGA * /*O*/ pStdTimeString); + +#ifdef STDTIME_UNICODE +#else +#define StdTimeFieldsToStdTimeString StdTimeFieldsToStdTimeStringA +#endif /* STDTIME_UNICODE */ + + +/*** external/StdTimeFields conversions **************************************/ + + +STDTIME_RC StdTimeStringAToStdTimeFields ( + const STDTIME_STRINGA * /*I*/ pStdTimeString, + STDTIME_FIELDS * /*O*/ pStdTimeFields); + +#ifdef STDTIME_UNICODE +#else +#define StdTimeStringToStdTimeFields StdTimeStringAToStdTimeFields +#endif /* STDTIME_UNICODE */ + +/*** StdTime to/from Local ***************************************************/ + + +STDTIME_RC StdTimeToLocalStdTime ( + const STDTIME * /*I*/ pStdTime, + STDTIME * /*O*/ pStdTimeLocal); + +STDTIME_RC LocalStdTimeToStdTime ( + const STDTIME * /*I*/ pStdTimeLocal, + STDTIME * /*O*/ pStdTime); + + +/*** StdTimeFields to/from Local *********************************************/ + + +STDTIME_RC StdTimeFieldsToLocalStdTimeFields ( + const STDTIME_FIELDS * /*I*/ pStdTimeFields, + STDTIME_FIELDS * /*O*/ pStdTimeFieldsLocal); + +STDTIME_RC LocalStdTimeFieldsToStdTimeFields ( + const STDTIME_FIELDS * /*I*/ pStdTimeFieldsLocal, + STDTIME_FIELDS * /*O*/ pStdTimeFields); + + +/*** StdTimeString to/from Local *********************************************/ + + +STDTIME_RC StdTimeStringAToLocalStdTimeStringA ( + const STDTIME_STRINGA * /*I*/ pStdStdTimeString, + STDTIME_STRINGA * /*O*/ pLocStdTimeString); + +STDTIME_RC LocalStdTimeStringAToStdTimeStringA ( + const STDTIME_STRINGA * /*I*/ pLocStdTimeString, + STDTIME_STRINGA * /*O*/ pStdStdTimeString); + +#define StdTimeStringToLocalStdTimeStringA StdTimeStringAToLocalStdTimeStringA +#define LocalStdTimeStringToStdTimeStringA LocalStdTimeStringAToStdTimeStringA + + +#ifdef STDTIME_UNICODE +#else +#define StdTimeStringToLocalStdTimeString StdTimeStringAToLocalStdTimeStringA +#define LocalStdTimeStringToStdTimeString LocalStdTimeStringAToStdTimeStringA +#endif /* STDTIME_UNICODE */ + +/*** Get (current UTC/GMT time) functions ************************************/ + + +STDTIME_RC GetStdTime ( + STDTIME * /*O*/ pStdTime); + +STDTIME_RC GetStdTimeFields ( + STDTIME_FIELDS * /*O*/ pStdTimeFields); + +STDTIME_RC GetStdTimeStringA ( + STDTIME_STRINGA * /*O*/ pStdTimeString); + +#ifdef STDTIME_UNICODE +#else +#define GetStdTimeString GetStdTimeStringA +#endif /* STDTIME_UNICODE */ + + +/*** GetLocal (current time) functions ***************************************/ + + +STDTIME_RC GetLocalStdTime ( + STDTIME * /*O*/ pStdTime); + +STDTIME_RC GetLocalStdTimeFields ( + STDTIME_FIELDS * /*O*/ pStdTimeFields); + +STDTIME_RC GetLocalStdTimeStringA ( + STDTIME_STRINGA * /*O*/ pStdTimeString); + +#ifdef STDTIME_UNICODE +#else +#define GetLocalStdTimeString GetLocalStdTimeStringA +#endif /* STDTIME_UNICODE */ + + +/*** validation functions ****************************************************/ + + +STDTIME_RC ValidStdTime ( + const STDTIME * /*I*/ pStdTime); + +STDTIME_RC ValidStdTimeFields ( + const STDTIME_FIELDS * /*I*/ pStdTimeFields); + +STDTIME_RC ValidStdTimeStringA ( + const STDTIME_STRINGA * /*I*/ pStdTimeString); + +STDTIME_RC ValidStdTimeDelta ( + const STDTIME_DELTA * /*I*/ pDelta); + +STDTIME_RC ValidStdTimeSpan ( + const STDTIME_SPAN * /*I*/ pSpan); + + +#ifdef STDTIME_UNICODE +#else +#define ValidStdTimeString ValidStdTimeStringA +#endif /* STDTIME_UNICODE */ + + +/*** Format functions ********************************************************/ + + +STDTIME_RC FormatStdTimeA ( + char * /*O*/ pTarget, + size_t /*I*/ nMaxsize, + const char * /*I*/ pFormat, + const STDTIME * /*I*/ pStdTime); + +STDTIME_RC FormatStdTimeFieldsA ( + char * /*O*/ pTarget, + size_t /*I*/ nMaxsize, + const char * /*I*/ pFormat, + const STDTIME_FIELDS * /*I*/ pStdTimeFields); + +STDTIME_RC FormatStdTimeStringA ( + char * /*O*/ pTarget, + size_t /*I*/ nMaxsize, + const char * /*I*/ pFormat, + const STDTIME_STRINGA * /*I*/ pStdTimeString); + +STDTIME_RC TrimStdTimeStringA ( + STDTIME_STRINGA * /*IO*/ pStdTimeString, + int32_t /*I*/ nSize); + +STDTIME_RC TruncStdTimeStringA ( + STDTIME_STRINGA * /*IO*/ pStdTimeString, + int32_t /*I*/ nSize); + +#ifdef STDTIME_UNICODE +#else +#define FormatStdTime FormatStdTimeA +#define FormatStdTimeFields FormatStdTimeFieldsA +#define FormatStdTimeString FormatStdTimeStringA + +#define TrimStdTimeString TrimStdTimeStringA +#define TruncStdTimeString TruncStdTimeStringA + +#endif /* STDTIME_UNICODE */ + + +/*** delimiter functions *****************************************************/ + + +STDTIME_RC SetStdTimeStringDelimitersA ( + const char * /*I*/ pDelimiters); + +STDTIME_RC RepairStdTimeStringA ( + STDTIME_STRINGA * /*O*/ pStdTimeString); + +STDTIME_RC DelimitStdTimeStringA ( + STDTIME_STRINGA * /*O*/ pStdTimeString, + const char * /*I*/ pDelim); + +#ifdef STDTIME_UNICODE +#else +#define SetStdTimeStringDelimiters SetStdTimeStringDelimitersA +#define RepairStdTimeString RepairStdTimeStringA +#define DelimitStdTimeString DelimitStdTimeStringA +#endif /* STDTIME_UNICODE */ + + +/*** AddFraction adjustment function *****************************************/ + + +STDTIME_RC StdTimeFields_AddFraction ( + STDTIME_FIELDS * /*IO*/ pStdTimeFields, + int32_t /*I*/ nMsec, + int32_t /*I*/ nUsec, + int32_t /*I*/ nNsec); + + +/*** AddSpan functions *******************************************************/ + + +STDTIME_RC StdTime_AddSpan ( + STDTIME * /*IO*/ pStdTime, + const STDTIME_SPAN * /*I*/ pSpan); + +STDTIME_RC StdTimeFields_AddSpan ( + STDTIME_FIELDS * /*IO*/ pStdTimeFields, + const STDTIME_SPAN * /*I*/ pSpan); + +STDTIME_RC StdTimeStringA_AddSpan ( + STDTIME_STRINGA * /*IO*/ pStdTimeString, + const STDTIME_SPAN * /*I*/ pSpan); + +#ifdef STDTIME_UNICODE +#else +#define StdTimeString_AddSpan StdTimeStringA_AddSpan +#endif /* STDTIME_UNICODE */ + + +/*** SubSpan functions *******************************************************/ + + +STDTIME_RC StdTime_SubSpan ( + STDTIME * /*IO*/ pStdTime, + const STDTIME_SPAN * /*I*/ pSpan); + +STDTIME_RC StdTimeFields_SubSpan ( + STDTIME_FIELDS * /*IO*/ pStdTimeFields, + const STDTIME_SPAN * /*I*/ pSpan); + +STDTIME_RC StdTimeStringA_SubSpan ( + STDTIME_STRINGA * /*IO*/ pStdTimeString, + const STDTIME_SPAN * /*I*/ pSpan); + +#ifdef STDTIME_UNICODE +#else +#define StdTimeString_SubSpan StdTimeStringA_SubSpan +#endif /* STDTIME_UNICODE */ + + +/*** GetSpan functions *******************************************************/ + + +STDTIME_RC StdTime_GetSpan ( + const STDTIME * /*I*/ pStdTimeOne, + const STDTIME * /*I*/ pStdTimeTwo, + STDTIME_SPAN * /*O*/ pSpan); + +STDTIME_RC StdTimeFields_GetSpan ( + const STDTIME_FIELDS * /*I*/ pStdTimeFieldsOne, + const STDTIME_FIELDS * /*I*/ pStdTimeFieldsTwo, + STDTIME_SPAN * /*O*/ pSpan); + +STDTIME_RC StdTimeStringA_GetSpan ( + const STDTIME_STRINGA * /*I*/ pStdTimeStringOne, + const STDTIME_STRINGA * /*I*/ pStdTimeStringTwo, + STDTIME_SPAN * /*O*/ pSpan); + +#ifdef STDTIME_UNICODE +#else +#define StdTimeString_GetSpan StdTimeStringA_GetSpan +#endif /* STDTIME_UNICODE */ + + +/*** AddDelta functions ******************************************************/ + +STDTIME_RC StdTime_AddDelta ( + STDTIME * /*IO*/ pStdTime, + const STDTIME_DELTA * /*I*/ pDelta); + +STDTIME_RC StdTimeFields_AddDelta ( + STDTIME_FIELDS * /*IO*/ pStdTimeFields, + const STDTIME_DELTA * /*I*/ pDelta); + +STDTIME_RC StdTimeStringA_AddDelta ( + STDTIME_STRINGA * /*IO*/ pStdTimeString, + const STDTIME_DELTA * /*I*/ pDelta); + +#ifdef STDTIME_UNICODE +#else +#define StdTimeString_AddDelta StdTimeStringA_AddDelta +#endif /* STDTIME_UNICODE */ + + +/*** SubDelta functions ******************************************************/ + + +STDTIME_RC StdTime_SubDelta ( + STDTIME * /*IO*/ pStdTime, + const STDTIME_DELTA * /*I*/ pDelta); + +STDTIME_RC StdTimeFields_SubDelta ( + STDTIME_FIELDS * /*IO*/ pStdTimeFields, + const STDTIME_DELTA * /*I*/ pDelta); + +STDTIME_RC StdTimeStringA_SubDelta ( + STDTIME_STRINGA * /*IO*/ pStdTimeString, + const STDTIME_DELTA * /*I*/ pDelta); + +#ifdef STDTIME_UNICODE +#else +#define StdTimeString_SubDelta StdTimeStringA_SubDelta +#endif /* STDTIME_UNICODE */ + + +/*** GetDelta functions ******************************************************/ + + +STDTIME_RC StdTime_GetDelta ( + const STDTIME * /*I*/ pStdTimeOne, + const STDTIME * /*I*/ pStdTimeTwo, + STDTIME_DELTA * /*O*/ pDelta); + +STDTIME_RC StdTimeFields_GetDelta ( + const STDTIME_FIELDS * /*I*/ pStdTimeFieldsOne, + const STDTIME_FIELDS * /*I*/ pStdTimeFieldsTwo, + STDTIME_DELTA * /*O*/ pDelta); + +STDTIME_RC StdTimeStringA_GetDelta ( + const STDTIME_STRINGA * /*I*/ pStdTimeStringOne, + const STDTIME_STRINGA * /*I*/ pStdTimeStringTwo, + STDTIME_DELTA * /*O*/ pDelta); + +#ifdef STDTIME_UNICODE +#else +#define StdTimeString_GetDelta StdTimeStringA_GetDelta +#endif /* STDTIME_UNICODE */ + + +/*** Delta/Span conversion functions *****************************************/ + + +STDTIME_RC StdTimeDeltaToStdTimeSpan ( + const STDTIME_DELTA * /*I*/ pDelta, + STDTIME_SPAN * /*O*/ pSpan); + +STDTIME_RC StdTimeSpanToStdTimeDelta ( + const STDTIME_SPAN * /*I*/ pSpan, + STDTIME_DELTA * /*O*/ pDelta); + + +/*** Delta/Span sign-related functions ***************************************/ + + +int32_t SgnStdTimeDelta ( + const STDTIME_DELTA * /*I*/ pDelta); + +STDTIME_RC AbsStdTimeDelta ( + STDTIME_DELTA * /*IO*/ pDelta); + +STDTIME_RC NegStdTimeDelta ( + STDTIME_DELTA * /*IO*/ pDelta); + + +int32_t SgnStdTimeSpan ( + const STDTIME_SPAN * /*I*/ pSpan); + +STDTIME_RC AbsStdTimeSpan ( + STDTIME_SPAN * /*IO*/ pSpan); + +STDTIME_RC NegStdTimeSpan ( + STDTIME_SPAN * /*IO*/ pSpan); + + +/*** Compare functions *******************************************************/ + + +int32_t CompareStdTime ( + const STDTIME * /*I*/ pStdTimeOne, + const STDTIME * /*I*/ pStdTimeTwo); + +int32_t CompareStdTimeFields ( + const STDTIME_FIELDS * /*I*/ pStdTimeFieldsOne, + const STDTIME_FIELDS * /*I*/ pStdTimeFieldsTwo); + +int32_t CompareStdTimeStringA ( + const STDTIME_STRINGA * /*I*/ pStdTimeStringOne, + const STDTIME_STRINGA * /*I*/ pStdTimeStringTwo); + +#ifdef STDTIME_UNICODE +#else +#define CompareStdTimeString CompareStdTimeStringA +#endif /* STDTIME_UNICODE */ + + +/*** FileTime functions ******************************************************/ + + + +STDTIME_RC StdTimeToFileTime ( + const STDTIME * /*I*/ pStdTime, + STDTIME_WIN_FILETIME * /*O*/ pFileTime); + +STDTIME_RC FileTimeToStdTime ( + const STDTIME_WIN_FILETIME * /*I*/ pFileTime, + STDTIME * /*O*/ pStdTime); + + + +STDTIME_RC StdTimeFieldsToFileTime ( + const STDTIME_FIELDS * /*I*/ pStdTimeFields, + STDTIME_WIN_FILETIME * /*O*/ pFileTime); + +STDTIME_RC FileTimeToStdTimeFields ( + const STDTIME_WIN_FILETIME * /*I*/ pFileTime, + STDTIME_FIELDS * /*O*/ pStdTimeFields); + + + +STDTIME_RC StdTimeStringAToFileTime ( + const STDTIME_STRINGA * /*I*/ pStdTimeString, + STDTIME_WIN_FILETIME * /*O*/ pFileTime); + +STDTIME_RC FileTimeToStdTimeStringA ( + const STDTIME_WIN_FILETIME * /*I*/ pFileTime, + STDTIME_STRINGA * /*O*/ pStdTimeString); + +#ifdef STDTIME_UNICODE +#else +#define StdTimeStringToFileTime StdTimeStringAToFileTime +#define FileTimeToStdTimeString FileTimeToStdTimeStringA +#endif /* STDTIME_UNICODE */ + + +/*** SystemTimeEx functions **************************************************/ + + +STDTIME_RC StdTimeToSystemTimeEx ( + const STDTIME * /*I*/ pStdTime, + STDTIME_WIN_SYSTEMTIME * /*O*/ pSystemTime, + int32_t * /*O*/ pUsec, /* optional */ + int32_t * /*O*/ pNsec); /* optional */ + + +STDTIME_RC SystemTimeExToStdTime ( + const STDTIME_WIN_SYSTEMTIME * /*I*/ pSystemTime, + int32_t /*I*/ nUsec, + int32_t /*I*/ nNsec, + STDTIME * /*O*/ pStdTime); + + +STDTIME_RC StdTimeFieldsToSystemTimeEx ( + const STDTIME_FIELDS * /*I*/ pStdTimeFields, + STDTIME_WIN_SYSTEMTIME * /*O*/ pSystemTime, + int32_t * /*O*/ pUsec, /* optional */ + int32_t * /*O*/ pNsec); /* optional */ + + +STDTIME_RC SystemTimeExToStdTimeFields ( + const STDTIME_WIN_SYSTEMTIME * /*I*/ pSystemTime, + int32_t /*I*/ nUsec, + int32_t /*I*/ nNsec, + STDTIME_FIELDS * /*O*/ pStdTimeFields); + + +/*** SystemTime functions ****************************************************/ + + +STDTIME_RC StdTimeToSystemTime ( + const STDTIME * /*I*/ pStdTime, + STDTIME_WIN_SYSTEMTIME * /*O*/ pSystemTime); + + +STDTIME_RC SystemTimeToStdTime ( + const STDTIME_WIN_SYSTEMTIME * /*I*/ pSystemTime, + STDTIME * /*O*/ pStdTime); + + +STDTIME_RC StdTimeFieldsToSystemTime ( + const STDTIME_FIELDS * /*I*/ pStdTimeFields, + STDTIME_WIN_SYSTEMTIME * /*O*/ pSystemTime); + + +STDTIME_RC SystemTimeToStdTimeFields ( + const STDTIME_WIN_SYSTEMTIME * /*I*/ pSystemTime, + STDTIME_FIELDS * /*O*/ pStdTimeFields); + +#ifdef _WIN32 /* DbTimeStamp functions only for _WIN32 */ +/*** DbTimeStamp functions ***************************************************/ + +/* NOTE: can't include "oledb.h" for DBTIMESTAMP so just define our own struct here.*/ +typedef struct + { + STDTIME_WIN_SHORT year; + STDTIME_WIN_USHORT month; + STDTIME_WIN_USHORT day; + STDTIME_WIN_USHORT hour; + STDTIME_WIN_USHORT minute; + STDTIME_WIN_USHORT second; + STDTIME_WIN_ULONG fraction; + } STDTIME_WIN_DBTIMESTAMP; + +STDTIME_WIN_DBTIMESTAMP StdTimeApiZeroDbTimeStamp (ST_VOID); + +STDTIME_RC StdTimeToDbTimeStamp ( + const STDTIME * /*I*/ pStdTime, + STDTIME_WIN_DBTIMESTAMP * /*O*/ pDbTimeStamp); + +STDTIME_RC DbTimeStampToStdTime ( + const STDTIME_WIN_DBTIMESTAMP * /*I*/ pDbTimeStamp, + STDTIME * /*O*/ pStdTime); + +STDTIME_RC StdTimeFieldsToDbTimeStamp ( + const STDTIME_FIELDS * /*I*/ pStdTimeFields, + STDTIME_WIN_DBTIMESTAMP * /*O*/ pDbTimeStamp); + +STDTIME_RC DbTimeStampToStdTimeFields ( + const STDTIME_WIN_DBTIMESTAMP * /*I*/ pDbTimeStamp, + STDTIME_FIELDS * /*O*/ pStdTimeFields); +#endif /* DbTimeStamp functions only for _WIN32 */ + + +/*** StructTmEx functions ****************************************************/ + + +STDTIME_RC StdTimeToStructTmEx ( + const STDTIME * /*I*/ pStdTime, + struct tm * /*O*/ pStructTm, + int32_t * /*O*/ pNsec); /* optional */ + +STDTIME_RC StructTmExToStdTime ( + const struct tm * /*I*/ pStructTm, + int32_t /*I*/ nNsec, + STDTIME * /*O*/ pStdTime); + +/*** TimeTypeEx functions ****************************************************/ + + +STDTIME_RC StdTimeToTimeTypeEx ( + const STDTIME * /*I*/ pStdTime, + time_t * /*O*/ pTimeT, + int32_t * /*O*/ pNsec); /* optional */ + +STDTIME_RC TimeTypeExToStdTime ( + time_t /*I*/ timet, + int32_t /*I*/ nsec, + STDTIME * /*O*/ pStdTime); + +/*** Constructor-like functions **********************************************/ + + +STDTIME_FIELDS StdTimeFields ( + int32_t /*I*/ year, + int32_t /*I*/ mon, + int32_t /*I*/ day, + int32_t /*I*/ hour, + int32_t /*I*/ min, + int32_t /*I*/ sec, + int32_t /*I*/ msec, + int32_t /*I*/ usec, + int32_t /*I*/ nsec); + + +STDTIME_STRINGA StdTimeStringA ( + const char * /*I*/ str); + +#ifdef STDTIME_UNICODE +#else +#define StdTimeString StdTimeStringA +#endif /* STDTIME_UNICODE */ + + +STDTIME_DELTA StdTimeDelta ( + int32_t /*I*/ day, + int32_t /*I*/ hour, + int32_t /*I*/ min, + int32_t /*I*/ sec, + int32_t /*I*/ msec, + int32_t /*I*/ usec, + int32_t /*I*/ nsec); + + +STDTIME_SPAN StdTimeSpan ( + QUADLIB_I64 /*I*/ value); + + +/*** Initializer functions ***************************************************/ + + +STDTIME ZeroStdTime (ST_VOID); +STDTIME_FIELDS ZeroStdTimeFields (ST_VOID); +STDTIME_DELTA ZeroStdTimeDelta (ST_VOID); +STDTIME_SPAN ZeroStdTimeSpan (ST_VOID); + +STDTIME_STRINGA ZeroStdTimeStringA (ST_VOID); + +STDTIME_TZOA ZeroStdTimeTzoA (ST_VOID); + +STDTIME_ERRMSGA ZeroStdTimeErrMsgA (ST_VOID); + +#ifdef STDTIME_UNICODE +#else +#define ZeroStdTimeString ZeroStdTimeStringA +#define ZeroStdTimeTzo ZeroStdTimeTzoA +#define ZeroStdTimeErrMsg ZeroStdTimeErrMsgA +#endif /* STDTIME_UNICODE */ + +/* initializers for outside types use 'StdTimeApi' prefix */ + +STDTIME_TIMETYPE StdTimeApiZeroTimeType (ST_VOID); +STDTIME_WIN_FILETIME StdTimeApiZeroFileTime (ST_VOID); +STDTIME_WIN_SYSTEMTIME StdTimeApiZeroSystemTime (ST_VOID); +struct tm StdTimeApiZeroStructTm (ST_VOID); + + +/*****************************************************************************/ +/* NORMALIZE, ROUND, TRUNC */ +/*****************************************************************************/ + + +STDTIME_RC NormalizeStdTimeDelta ( + STDTIME_DELTA * /*IO*/ pDelta); + + +STDTIME_RC TruncStdTimeDelta ( + STDTIME_DELTA * /*IO*/ pDelta, + int32_t /*I*/ field); + + +STDTIME_RC RoundStdTimeDelta ( + STDTIME_DELTA * /*IO*/ pDelta, + int32_t /*I*/ field); + + +/*** convenience calendar functions ******************************************/ + + +STDTIME_RC StdTimeGetDayofWeekAndYear ( + int32_t /*I*/ nYear, + int32_t /*I*/ nMon, + int32_t /*I*/ nDayofMon, + int32_t * /*O*/ pDayofWeek, + int32_t * /*O*/ pDayofYear); + + +int32_t StdTimeYearIsLeap ( + int32_t /*I*/ year); + + +int32_t StdTimeDaysInYearMon ( + int32_t /*I*/ year, + int32_t /*I*/ mon); + + +/*** DateEx functions ********************************************************/ + + +STDTIME_RC StdTimeToDateEx ( + const STDTIME * /*I*/ pStdTime, + STDTIME_WIN_DATE * /*O*/ pDate, + int32_t * /*O*/ pMsec, /* optional */ + int32_t * /*O*/ pUsec, /* optional */ + int32_t * /*O*/ pNsec); /* optional */ + + +STDTIME_RC DateExToStdTime ( + const STDTIME_WIN_DATE * /*I*/ pDate, + int32_t /*I*/ nMsec, + int32_t /*I*/ nUsec, + int32_t /*I*/ nNsec, + STDTIME * /*O*/ pStdTime); + + +STDTIME_RC StdTimeFieldsToDateEx ( + const STDTIME_FIELDS * /*I*/ pStdTimeFields, + STDTIME_WIN_DATE * /*O*/ pDate, + int32_t * /*O*/ pMsec, /* optional */ + int32_t * /*O*/ pUsec, /* optional */ + int32_t * /*O*/ pNsec); /* optional */ + + +STDTIME_RC DateExToStdTimeFields ( + const STDTIME_WIN_DATE * /*I*/ pDate, + int32_t /*I*/ nMsec, + int32_t /*I*/ nUsec, + int32_t /*I*/ nNsec, + STDTIME_FIELDS * /*O*/ pStdTimeFields); + + +/*** Date functions ***************************************************/ + + +STDTIME_RC StdTimeToDate ( + const STDTIME * /*I*/ pStdTime, + STDTIME_WIN_DATE * /*O*/ pDate); + + +STDTIME_RC DateToStdTime ( + const STDTIME_WIN_DATE * /*I*/ pDate, + STDTIME * /*O*/ pStdTime); + + +STDTIME_RC StdTimeFieldsToDate ( + const STDTIME_FIELDS * /*I*/ pStdTimeFields, + STDTIME_WIN_DATE * /*O*/ pDate); + + +STDTIME_RC DateToStdTimeFields ( + const STDTIME_WIN_DATE * /*I*/ pDate, + STDTIME_FIELDS * /*O*/ pStdTimeFields); + + +/*** timezone-offset support functions ***************************************/ + + +STDTIME_RC StdTimeStringAToTzoA ( + const STDTIME_STRINGA * /*I*/ pStdTimeString, + STDTIME_TZOA * /*O*/ pTzo); + +STDTIME_RC TzoAToStdTimeStringA ( + const STDTIME_TZOA * /*I*/ pTzo, + STDTIME_STRINGA * /*O*/ pStdTimeString); + +STDTIME_RC ValidStdTimeTzoA ( + const STDTIME_TZOA * /*I*/ pTzo); + +STDTIME_RC NormalizeStdTimeTzoA ( + STDTIME_TZOA * /*I*/ pTzo); + +STDTIME_RC GetLocalStdTimeTzoA ( + STDTIME_TZOA * /*O*/ pTzo); + +#define StdTimeStringToTzoA StdTimeStringAToTzoA +#define TzoToStdTimeStringA TzoAToStdTimeStringA + + +#ifdef STDTIME_UNICODE +#else +#define StdTimeStringToTzo StdTimeStringAToTzoA +#define TzoToStdTimeString TzoAToStdTimeStringA +#define ValidStdTimeTzo ValidStdTimeTzoA +#define NormalizeStdTimeTzo NormalizeStdTimeTzoA +#define GetLocalStdTimeTzo GetLocalStdTimeTzoA +#endif /* STDTIME_UNICODE */ + + +/*** error message decoding functions ****************************************/ + + +STDTIME_RC StdTimeRcToErrMsgA ( + const STDTIME_RC /*I*/ stdTimeRc, + STDTIME_ERRMSGA * /*O*/ pErrMsg); + +#ifdef STDTIME_UNICODE +#else +#define StdTimeRcToErrMsg StdTimeRcToErrMsgA +#endif /* STDTIME_UNICODE */ + + +/*** normalization functions; primarily private functions ********************/ + + +STDTIME_RC Rc_NormalizeStdTimeFields ( + STDTIME_FIELDS * pFields); + +STDTIME_RC Rc_StdTime_NormalizeSystemTimeEx ( + STDTIME_WIN_SYSTEMTIME * /*IO*/ pSystemTime, + int32_t * /*IO*/ pUsec, + int32_t * /*IO*/ pNsec); + +STDTIME_RC Rc_StdTime_NormalizeStructTmEx ( + struct tm * /*IO*/ pStructTm, + int32_t * /*IO*/ pMsec, + int32_t * /*IO*/ pUsec, + int32_t * /*IO*/ pNsec); + + +/* Utility functions */ +STDTIME_BOOL Bool_StdTimeGmTimeR ( + time_t * pTimeT, + struct tm * pStructTm); + +/*****************************************************************************/ +/* END */ +/*****************************************************************************/ + + +#ifdef __cplusplus +} +#endif + + +#endif /* _STDTIME_H_7583ECB2_DB3F_48B3_8A97_2D1D2A38C84A_ */ + diff --git a/mmslib/inc/stdtime_config.h b/mmslib/inc/stdtime_config.h new file mode 100644 index 0000000..2be7639 --- /dev/null +++ b/mmslib/inc/stdtime_config.h @@ -0,0 +1,153 @@ +/*****************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER **********************************************/ +/*****************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2005 All Rights Reserved */ +/* */ +/* MODULE NAME : stdtimeconfig.h */ +/* PRODUCT(S) : Standard Time Management Library */ +/* */ +/* MODULE DESCRIPTION: */ +/* Configuration of Standard Time Management Library Functions */ +/* This file is used to set the required symbols to generate a STDTIME */ +/* Library for a desired environment */ +/* */ +/* MODIFICATION LOG: */ +/* Date Who Rev Comments */ +/* -------- --- --- ----------------------------------------------------- */ +/* 02/22/08 JRB 05 Add glbtypes.h for SD_BYTE_ORDER & del stdtime_endian.h*/ +/* 03/18/07 RLH 04 Add QNX support. */ +/* 01/10/07 RLH 03 Add STDTIME_HPDATE_MSEC_ROUNDED define */ +/* 06/07/06 RLH 02 Numerous features added, see stdtime.doc */ +/* 01/18/06 RLH 01 Created */ +/*****************************************************************************/ + + +#ifndef _STDTIME_CONFIG_H_7BF1A3F7_495B_4EEE_A2B3_02D65FDF88B6_ +#define _STDTIME_CONFIG_H_7BF1A3F7_495B_4EEE_A2B3_02D65FDF88B6_ + +#include "glbtypes.h" /* Need this for SD_BYTE_ORDER */ + +#if 0 /* put disabled option inside the #if/#endif block */ + + +#define STDTIME_UNICODE /* default time strings are UNICODE */ +#define STDTIME_UNICODE_SUBSTITUTE_CHAR '\x1A' /* a value instead of '\x1A' */ +#define STDTIME_TIME_T64_ENABLED /* if system time_t is 64 bits */ +#define STDTIME_CPP_ONLY_DISABLED /* if library may be compiled as C */ +#define STDTIME_CPP_ONLY_ENABLED /* if library only compiled as C++ */ +#define STDTIME_MERGED_CSV /* csv has NO commas between records */ +#define STDTIME_LOCAL_USES_SYSAPI /* how to get local time from GMT */ + + +#define STDTIME_ISO_DLM_STR "-T:." /* default STDTIME_STRING delimiters */ +/* STDTIME_ISO_DLM_STR must be exactly 4 Ansi characters */ + + +#define QUADLIB_ENABLED /* if 64-bit math is simulated */ +#define QUADLIB_DISABLED /* if 64-bit math done in hardware */ +#define QUADLIB_NATIVE64_DISABLED /* if compiler has no 64-bit support */ +#define QUADLIB_STATIC static /* to make QUADLIB functions local */ +#define QUADLIB_I64N myI64Type /* explicit 64-bit signed int type */ +#define QUADLIB_U64N myUnsignedI64Type /* explicit 64-bit unsigned int type */ + + +#define STDTIMEW32_STATIC /* makes STDTIMEW32 functions local */ +#define STDTIMEW32_USE_CLOCKGETTIME /* to use clock_gettime() on Unix */ +#define STDTIMEW32_USE_GETTIMEOFDAY /* to use gettimeofday() on Unix */ +#define STDTIMEW32_USE_TIMEB /* to use ftime() and timeb on Unix */ + +#endif /* disabled */ + +/* put enabled options after this point */ + +#define STDTIME_TM_ISDST_DEFAULT (-1) /* struct tm_isdst default setting */ + +#define STDTIME_UNMERGED_CSV /* csv HAS commas between records */ + +#undef STDTIME_LOCAL_USES_TZDB /* how to get local time from GMT */ + +#define QUADLIB_NATIVE64_ENABLED /* if compiler has 64-bit support */ +#define STDTIME_HPDATE_MSEC_ROUNDED /* if HpDate msec are rounded */ + +/* include appropriate stdint.h header for target system */ + +#ifdef _AIX +#define STDTIMEW32_USE_CLOCKGETTIME /* to use clock_gettime() on Unix */ +#define STDTIMEW32_ENABLED /* enable WIN32 compatibility layer */ +#define QUADLIB_DISABLED /* if 64-bit math done in hardware */ +#include "stdint.h" + +#elif defined(linux) +#define STDTIMEW32_USE_CLOCKGETTIME /* to use clock_gettime() on Unix */ +#define STDTIMEW32_ENABLED /* enable WIN32 compatibility layer */ +#define QUADLIB_DISABLED /* if 64-bit math done in hardware */ +#include "stdint.h" + +#elif defined(__ECOS) +#define STDTIMEW32_USE_CLOCKGETTIME /* to use clock_gettime() on Unix */ +#define STDTIMEW32_ENABLED /* enable WIN32 compatibility layer */ +#define QUADLIB_DISABLED /* if 64-bit math done in hardware */ +//#include "stdint.h" + +/*renxiaobao add*/ +#elif defined(VXWORKS) +#define STDTIMEW32_USE_CLOCKGETTIME /* to use clock_gettime() on Unix */ +#define STDTIMEW32_ENABLED /* enable WIN32 compatibility layer */ +#define QUADLIB_DISABLED /* if 64-bit math done in hardware */ + + + + + + + + + +#elif defined(sun) +#define STDTIMEW32_USE_CLOCKGETTIME /* to use clock_gettime() on Unix */ +#define STDTIMEW32_ENABLED /* enable WIN32 compatibility layer */ +#define QUADLIB_DISABLED /* if 64-bit math done in hardware */ +#include + +#elif defined(__alpha) && !defined(__VMS) /* digital unix */ +#define STDTIMEW32_USE_CLOCKGETTIME /* to use clock_gettime() on Unix */ +#define STDTIMEW32_ENABLED /* enable WIN32 compatibility layer */ +#define QUADLIB_DISABLED /* if 64-bit math done in hardware */ +#include + +#elif defined(_WIN32) +#define STDTIMEW32_DISABLED /* disable WIN32 compatibility layer */ +#define QUADLIB_DISABLED /* if 64-bit math done in hardware */ +#include "stdtime_stdint.h" + +#elif defined(__QNX__) +#define STDTIMEW32_USE_CLOCKGETTIME /* to use clock_gettime() on QNX */ +#define STDTIMEW32_ENABLED /* enable WIN32 compatibility layer */ +#undef QUADLIB_DISABLED /* if 64-bit math done in hardware */ +#define QUADLIB_ENABLED /* if 64-bit math is simulated */ +#undef QUADLIB_NATIVE64_ENABLED /* if compiler has 64-bit support */ +#define QUADLIB_NATIVE64_DISABLED /* if compiler has no 64-bit support */ + +/* QNX has no stdint.h or equivalent */ +/* bare minimum definitions located here */ + + +typedef char int8_t; +typedef short int16_t; +typedef int int32_t; + +typedef unsigned char uint8_t; +typedef unsigned short uint16_t; +typedef unsigned int uint32_t; + + +#else + +#define STDTIMEW32_DISABLED /* disable WIN32 compatibility layer */ +#include "stdtime_stdint.h" + +#endif + +#endif /* _STDTIME_CONFIG_H_7BF1A3F7_495B_4EEE_A2B3_02D65FDF88B6_ */ + diff --git a/mmslib/inc/stdtime_endian.h b/mmslib/inc/stdtime_endian.h new file mode 100644 index 0000000..221adb9 --- /dev/null +++ b/mmslib/inc/stdtime_endian.h @@ -0,0 +1,90 @@ +/* + * Copyright (c) 1997 + * Silicon Graphics Computer Systems, Inc. + * + * Permission to use, copy, modify, distribute and sell this software + * and its documentation for any purpose is hereby granted without fee, + * provided that the above copyright notice appear in all copies and + * that both that copyright notice and this permission notice appear + * in supporting documentation. Silicon Graphics makes no + * representations about the suitability of this software for any + * purpose. It is provided "as is" without express or implied warranty. + */ + +/* + * Copyright notice reproduced from , from + * which this code was originally taken. + * + * Modified by Caleb Epstein to use with GNU libc and to + * define the BOOST_ENDIAN macro. + */ + +/* + * Modified 2006-02-25 By SISCO, Inc. from Boost source. + * source code simplified, made C compliant, and BOOST_BYTE_ORDER removed + */ + + +#ifndef _STDTIME_ENDIAN_H_9F8D5A2A_B2F9_4F41_A9A0_D2D3912E3082_ +#define _STDTIME_ENDIAN_H_9F8D5A2A_B2F9_4F41_A9A0_D2D3912E3082_ + + +#undef HOST_BIG_ENDIAN +#undef HOST_LITTLE_ENDIAN + +/* GNU libc offers the helpful header which defines __BYTE_ORDER */ + +#ifdef __GLIBC__ +#include + +#if (__BYTE_ORDER == __LITTLE_ENDIAN) /* 1234 */ +#define HOST_LITTLE_ENDIAN +#elif (__BYTE_ORDER == __BIG_ENDIAN) /* 4321 */ +#define HOST_BIG_ENDIAN +#elif (__BYTE_ORDER == __PDP_ENDIAN) +#error PDP_ENDIAN order not supported +#else +#error unknown machine endian order +#endif + + +#elif defined(_MIPSEB) \ + || defined(_POWER) \ + || defined(__hppa) \ + || defined(__powerpc__) \ + || defined(__ppc__) \ + || defined(__s390__) \ + || defined(__sparc) \ + || defined(__sparc__) \ + || defined(sun) \ + || defined(_AIX) \ + || defined(VXWORKS) \ + || defined(__hpux) /**/ +#define HOST_BIG_ENDIAN + + +#elif defined(_M_ALPHA) \ + || defined(_M_IA64) \ + || defined(_M_IX86) \ + || defined(__alpha__) \ + || defined(__i386__) \ + || defined(__ia64) \ + || defined(__ia64__) \ + || defined(MSDOS) \ + || defined(_WIN32) \ + || defined(__LYNX) \ + || defined(__MSDOS__) \ + || defined(__OS2__) \ + || defined(__QNX__) \ + || defined(linux) \ + || (defined(__ALPHA) && defined(__VMS)) \ + || (defined(__alpha) && !defined(__VMS)) /**/ +#define HOST_LITTLE_ENDIAN + + +#else +#error the file host_endian.h needs to be configured for your CPU type +#endif + +#endif /* _STDTIME_ENDIAN_H_9F8D5A2A_B2F9_4F41_A9A0_D2D3912E3082_ */ + diff --git a/mmslib/inc/stdtime_enum_err.h b/mmslib/inc/stdtime_enum_err.h new file mode 100644 index 0000000..34671a2 --- /dev/null +++ b/mmslib/inc/stdtime_enum_err.h @@ -0,0 +1,65 @@ + STDTIME_ENUM_ERR (BTOD_form_code_not_4_or_6) + STDTIME_ENUM_ERR (CComSpan_range_is_invalid) + STDTIME_ENUM_ERR (COleDateTimeSpan_status_is_invalid) + STDTIME_ENUM_ERR (COleDateTimeSpan_status_is_null) + STDTIME_ENUM_ERR (MMS_year_LT_1984) + STDTIME_ENUM_ERR (VARIANT_BYREF_type_not_DATE) + STDTIME_ENUM_ERR (VARIANT_type_not_DATE) + STDTIME_ENUM_ERR (argument_out_of_range) + STDTIME_ENUM_ERR (buffer_size_exceeded) + STDTIME_ENUM_ERR (cannot_determine_local_timezone) + STDTIME_ENUM_ERR (cannot_determine_local_timezone_offset) + STDTIME_ENUM_ERR (cannot_extract_timezone_field) + STDTIME_ENUM_ERR (cannot_find_timezone_entry) + STDTIME_ENUM_ERR (cannot_find_timezone_name) + STDTIME_ENUM_ERR (cannot_open_timezone_file) + STDTIME_ENUM_ERR (conflicting_sign_delta) + STDTIME_ENUM_ERR (data_out_of_range) + STDTIME_ENUM_ERR (day_out_of_range) + STDTIME_ENUM_ERR (failure_in_api_FileTimeToLocalFileTime) + STDTIME_ENUM_ERR (failure_in_api_FileTimeToSystemTime) + STDTIME_ENUM_ERR (failure_in_api_LocalFileTimeToFileTime) + STDTIME_ENUM_ERR (failure_in_api_SetStdTimeStringDelimitersA) + STDTIME_ENUM_ERR (failure_in_api_SetStdTimeStringDelimitersW) + STDTIME_ENUM_ERR (failure_in_api_SgnStdTimeDelta) + STDTIME_ENUM_ERR (failure_in_api_StdTimeGetDayofWeekAndYear) + STDTIME_ENUM_ERR (failure_in_api_StdTimeW32GetDayofWeekAndYear) + STDTIME_ENUM_ERR (failure_in_api_SystemTimeToFileTime) + STDTIME_ENUM_ERR (failure_in_api_strftime) + STDTIME_ENUM_ERR (field_selector_out_of_range) + STDTIME_ENUM_ERR (invalid_FileTime) + STDTIME_ENUM_ERR (invalid_StdTime) + STDTIME_ENUM_ERR (invalid_day) + STDTIME_ENUM_ERR (invalid_delimiter) + STDTIME_ENUM_ERR (invalid_hh_mm) + STDTIME_ENUM_ERR (invalid_hour) + STDTIME_ENUM_ERR (invalid_min) + STDTIME_ENUM_ERR (invalid_mon) + STDTIME_ENUM_ERR (invalid_msec) + STDTIME_ENUM_ERR (invalid_nsec) + STDTIME_ENUM_ERR (invalid_sec) + STDTIME_ENUM_ERR (invalid_sign) + STDTIME_ENUM_ERR (invalid_ss) + STDTIME_ENUM_ERR (invalid_stdtime_rc_value) + STDTIME_ENUM_ERR (invalid_timezone_offset) + STDTIME_ENUM_ERR (invalid_timezone_rule) + STDTIME_ENUM_ERR (invalid_usec) + STDTIME_ENUM_ERR (invalid_year) + STDTIME_ENUM_ERR (length_out_of_range) + STDTIME_ENUM_ERR (missing_timezone_name) + STDTIME_ENUM_ERR (negative_dst_end_time) + STDTIME_ENUM_ERR (negative_dst_start_time) + STDTIME_ENUM_ERR (null_VARIANT_pdate) + STDTIME_ENUM_ERR (null_argument) + STDTIME_ENUM_ERR (overflow_in_delta_day) + STDTIME_ENUM_ERR (overflow_in_delta_hour) + STDTIME_ENUM_ERR (overflow_in_delta_min) + STDTIME_ENUM_ERR (overflow_in_delta_msec) + STDTIME_ENUM_ERR (overflow_in_delta_nsec) + STDTIME_ENUM_ERR (overflow_in_delta_sec) + STDTIME_ENUM_ERR (overflow_in_delta_usec) + STDTIME_ENUM_ERR (span_out_of_range) + STDTIME_ENUM_ERR (time_GT_2038_01_18__19_14_07) + STDTIME_ENUM_ERR (time_LT_1970_01_01) + STDTIME_ENUM_ERR (unexpected_condition) + STDTIME_ENUM_ERR (year_out_of_range) diff --git a/mmslib/inc/stdtime_enum_func.h b/mmslib/inc/stdtime_enum_func.h new file mode 100644 index 0000000..ea9943b --- /dev/null +++ b/mmslib/inc/stdtime_enum_func.h @@ -0,0 +1,425 @@ + STDTIME_ENUM_FUNC (AbsStdTimeDelta) + STDTIME_ENUM_FUNC (AbsStdTimeSpan) + STDTIME_ENUM_FUNC (CComDateExToStdTime) + STDTIME_ENUM_FUNC (CComDateExToStdTimeFields) + STDTIME_ENUM_FUNC (CComDateToStdTime) + STDTIME_ENUM_FUNC (CComDateToStdTimeFields) + STDTIME_ENUM_FUNC (CComSpanExToStdTime) + STDTIME_ENUM_FUNC (CComSpanExToStdTimeDelta) + STDTIME_ENUM_FUNC (CComSpanExToStdTimeFields) + STDTIME_ENUM_FUNC (CComSpanExToStdTimeSpan) + STDTIME_ENUM_FUNC (CComSpanToStdTime) + STDTIME_ENUM_FUNC (CComSpanToStdTimeDelta) + STDTIME_ENUM_FUNC (CComSpanToStdTimeFields) + STDTIME_ENUM_FUNC (CComSpanToStdTimeSpan) + STDTIME_ENUM_FUNC (CFileTimeSpanToStdTime) + STDTIME_ENUM_FUNC (CFileTimeSpanToStdTimeDelta) + STDTIME_ENUM_FUNC (CFileTimeSpanToStdTimeFields) + STDTIME_ENUM_FUNC (CFileTimeSpanToStdTimeSpan) + STDTIME_ENUM_FUNC (CFileTimeToStdTime) + STDTIME_ENUM_FUNC (CFileTimeToStdTimeFields) + STDTIME_ENUM_FUNC (COleDateTimeExToStdTime) + STDTIME_ENUM_FUNC (COleDateTimeExToStdTimeFields) + STDTIME_ENUM_FUNC (COleDateTimeSpanExToStdTime) + STDTIME_ENUM_FUNC (COleDateTimeSpanExToStdTimeDelta) + STDTIME_ENUM_FUNC (COleDateTimeSpanExToStdTimeFields) + STDTIME_ENUM_FUNC (COleDateTimeSpanExToStdTimeSpan) + STDTIME_ENUM_FUNC (COleDateTimeSpanToStdTime) + STDTIME_ENUM_FUNC (COleDateTimeSpanToStdTimeDelta) + STDTIME_ENUM_FUNC (COleDateTimeSpanToStdTimeFields) + STDTIME_ENUM_FUNC (COleDateTimeSpanToStdTimeSpan) + STDTIME_ENUM_FUNC (COleDateTimeToStdTime) + STDTIME_ENUM_FUNC (COleDateTimeToStdTimeFields) + STDTIME_ENUM_FUNC (CTimeExToStdTime) + STDTIME_ENUM_FUNC (CTimeExToStdTimeFields) + STDTIME_ENUM_FUNC (CTimeSpanExToStdTime) + STDTIME_ENUM_FUNC (CTimeSpanExToStdTimeDelta) + STDTIME_ENUM_FUNC (CTimeSpanExToStdTimeFields) + STDTIME_ENUM_FUNC (CTimeSpanExToStdTimeSpan) + STDTIME_ENUM_FUNC (CTimeSpanToStdTime) + STDTIME_ENUM_FUNC (CTimeSpanToStdTimeDelta) + STDTIME_ENUM_FUNC (CTimeSpanToStdTimeFields) + STDTIME_ENUM_FUNC (CTimeSpanToStdTimeSpan) + STDTIME_ENUM_FUNC (CTimeToStdTime) + STDTIME_ENUM_FUNC (CTimeToStdTimeFields) + STDTIME_ENUM_FUNC (DateExToStdTime) + STDTIME_ENUM_FUNC (DateExToStdTimeFields) + STDTIME_ENUM_FUNC (DateToStdTime) + STDTIME_ENUM_FUNC (DateToStdTimeFields) + STDTIME_ENUM_FUNC (DbTimeStampToStdTime) + STDTIME_ENUM_FUNC (DbTimeStampToStdTimeFields) + STDTIME_ENUM_FUNC (DelimitStdTimeStringA) + STDTIME_ENUM_FUNC (DelimitStdTimeStringW) + STDTIME_ENUM_FUNC (FileTimeToStdTime) + STDTIME_ENUM_FUNC (FileTimeToStdTimeFields) + STDTIME_ENUM_FUNC (FileTimeToStdTimeHexStrA) + STDTIME_ENUM_FUNC (FileTimeToStdTimeHexStrW) + STDTIME_ENUM_FUNC (FileTimeToStdTimeStringA) + STDTIME_ENUM_FUNC (FileTimeToStdTimeStringW) + STDTIME_ENUM_FUNC (FormatStdTimeA) + STDTIME_ENUM_FUNC (FormatStdTimeFieldsA) + STDTIME_ENUM_FUNC (FormatStdTimeFieldsW) + STDTIME_ENUM_FUNC (FormatStdTimeHexStrA) + STDTIME_ENUM_FUNC (FormatStdTimeHexStrW) + STDTIME_ENUM_FUNC (FormatStdTimeStringA) + STDTIME_ENUM_FUNC (FormatStdTimeStringW) + STDTIME_ENUM_FUNC (FormatStdTimeW) + STDTIME_ENUM_FUNC (GetLocalStdTime) + STDTIME_ENUM_FUNC (GetLocalStdTimeFields) + STDTIME_ENUM_FUNC (GetLocalStdTimeHexStrA) + STDTIME_ENUM_FUNC (GetLocalStdTimeHexStrW) + STDTIME_ENUM_FUNC (GetLocalStdTimeStringA) + STDTIME_ENUM_FUNC (GetLocalStdTimeStringW) + STDTIME_ENUM_FUNC (GetLocalStdTimeTzoA) + STDTIME_ENUM_FUNC (GetLocalStdTimeTzoW) + STDTIME_ENUM_FUNC (GetStdTime) + STDTIME_ENUM_FUNC (GetStdTimeFields) + STDTIME_ENUM_FUNC (GetStdTimeHexStrA) + STDTIME_ENUM_FUNC (GetStdTimeHexStrW) + STDTIME_ENUM_FUNC (GetStdTimeStringA) + STDTIME_ENUM_FUNC (GetStdTimeStringW) + STDTIME_ENUM_FUNC (GetStdTimeZoneInfo) + STDTIME_ENUM_FUNC (HpCComDateExToStdTime) + STDTIME_ENUM_FUNC (HpCComDateExToStdTimeFields) + STDTIME_ENUM_FUNC (HpCComDateToStdTime) + STDTIME_ENUM_FUNC (HpCComDateToStdTimeFields) + STDTIME_ENUM_FUNC (HpCComSpanExToStdTime) + STDTIME_ENUM_FUNC (HpCComSpanExToStdTimeDelta) + STDTIME_ENUM_FUNC (HpCComSpanExToStdTimeFields) + STDTIME_ENUM_FUNC (HpCComSpanExToStdTimeSpan) + STDTIME_ENUM_FUNC (HpCComSpanToStdTime) + STDTIME_ENUM_FUNC (HpCComSpanToStdTimeDelta) + STDTIME_ENUM_FUNC (HpCComSpanToStdTimeFields) + STDTIME_ENUM_FUNC (HpCComSpanToStdTimeSpan) + STDTIME_ENUM_FUNC (HpCOleDateTimeExToStdTime) + STDTIME_ENUM_FUNC (HpCOleDateTimeExToStdTimeFields) + STDTIME_ENUM_FUNC (HpCOleDateTimeSpanExToStdTime) + STDTIME_ENUM_FUNC (HpCOleDateTimeSpanExToStdTimeDelta) + STDTIME_ENUM_FUNC (HpCOleDateTimeSpanExToStdTimeFields) + STDTIME_ENUM_FUNC (HpCOleDateTimeSpanExToStdTimeSpan) + STDTIME_ENUM_FUNC (HpCOleDateTimeSpanToStdTime) + STDTIME_ENUM_FUNC (HpCOleDateTimeSpanToStdTimeDelta) + STDTIME_ENUM_FUNC (HpCOleDateTimeSpanToStdTimeFields) + STDTIME_ENUM_FUNC (HpCOleDateTimeSpanToStdTimeSpan) + STDTIME_ENUM_FUNC (HpCOleDateTimeToStdTime) + STDTIME_ENUM_FUNC (HpCOleDateTimeToStdTimeFields) + STDTIME_ENUM_FUNC (HpDateExToStdTime) + STDTIME_ENUM_FUNC (HpDateExToStdTimeFields) + STDTIME_ENUM_FUNC (HpDateToStdTime) + STDTIME_ENUM_FUNC (HpDateToStdTimeFields) + STDTIME_ENUM_FUNC (IccpTimeStampExToStdTime) + STDTIME_ENUM_FUNC (IccpTimeStampExToStdTimeFields) + STDTIME_ENUM_FUNC (IccpTimeStampToStdTime) + STDTIME_ENUM_FUNC (IccpTimeStampToStdTimeFields) + STDTIME_ENUM_FUNC (LocalStdTimeFieldsToStdTimeFields) + STDTIME_ENUM_FUNC (LocalStdTimeHexStrAToStdTimeHexStrA) + STDTIME_ENUM_FUNC (LocalStdTimeHexStrWToStdTimeHexStrW) + STDTIME_ENUM_FUNC (LocalStdTimeStringAToStdTimeStringA) + STDTIME_ENUM_FUNC (LocalStdTimeStringWToStdTimeStringW) + STDTIME_ENUM_FUNC (LocalStdTimeToStdTime) + STDTIME_ENUM_FUNC (MmsBtodExToStdTime) + STDTIME_ENUM_FUNC (MmsBtodExToStdTimeFields) + STDTIME_ENUM_FUNC (MmsBtodToStdTime) + STDTIME_ENUM_FUNC (MmsBtodToStdTimeFields) + STDTIME_ENUM_FUNC (MmsTimeOfDay4ExToStdTime) + STDTIME_ENUM_FUNC (MmsTimeOfDay4ExToStdTimeFields) + STDTIME_ENUM_FUNC (MmsTimeOfDay4ToStdTime) + STDTIME_ENUM_FUNC (MmsTimeOfDay4ToStdTimeFields) + STDTIME_ENUM_FUNC (MmsTimeOfDay6ExToStdTime) + STDTIME_ENUM_FUNC (MmsTimeOfDay6ExToStdTimeFields) + STDTIME_ENUM_FUNC (MmsTimeOfDay6ToStdTime) + STDTIME_ENUM_FUNC (MmsTimeOfDay6ToStdTimeFields) + STDTIME_ENUM_FUNC (MmsUtcTimeToStdTime) + STDTIME_ENUM_FUNC (MmsUtcTimeToStdTimeFields) + STDTIME_ENUM_FUNC (NegStdTimeDelta) + STDTIME_ENUM_FUNC (NegStdTimeSpan) + STDTIME_ENUM_FUNC (NormalizeStdTimeDelta) + STDTIME_ENUM_FUNC (NormalizeStdTimeTzoA) + STDTIME_ENUM_FUNC (NormalizeStdTimeTzoW) + STDTIME_ENUM_FUNC (Rc_ArgDateExToStdTime) + STDTIME_ENUM_FUNC (Rc_ArgDateExToStdTimeFields) + STDTIME_ENUM_FUNC (Rc_FixStdTimeZoneRules) + STDTIME_ENUM_FUNC (Rc_NormalizeStdTimeFields) + STDTIME_ENUM_FUNC (Rc_ParseStdTimeZoneData) + STDTIME_ENUM_FUNC (Rc_QuadLibI64ToStdTime) + STDTIME_ENUM_FUNC (Rc_StdTimeFieldsToArgDateEx) + STDTIME_ENUM_FUNC (Rc_StdTimeToArgDateEx) + STDTIME_ENUM_FUNC (Rc_StdTimeToQuadLibI64) + STDTIME_ENUM_FUNC (Rc_StdTimeTz_GetRule) + STDTIME_ENUM_FUNC (Rc_StdTimeTz_GetTime) + STDTIME_ENUM_FUNC (Rc_StdTime_DateToVariant) + STDTIME_ENUM_FUNC (Rc_StdTime_FileTimeSplit) + STDTIME_ENUM_FUNC (Rc_StdTime_FileTimeToSystemTimeEx) + STDTIME_ENUM_FUNC (Rc_StdTime_Formatter) + STDTIME_ENUM_FUNC (Rc_StdTime_NormalizeStructTmEx) + STDTIME_ENUM_FUNC (Rc_StdTime_NormalizeSystemTimeEx) + STDTIME_ENUM_FUNC (Rc_StdTime_SystemTimeExToFileTime) + STDTIME_ENUM_FUNC (Rc_StdTime_TimeTBase) + STDTIME_ENUM_FUNC (Rc_StdTime_TimeTypeToFileTime) + STDTIME_ENUM_FUNC (Rc_StdTime_ValidFileTime) + STDTIME_ENUM_FUNC (Rc_StdTime_VariantToDate) + STDTIME_ENUM_FUNC (ReadStdTimeZoneInfo) + STDTIME_ENUM_FUNC (RepairStdTimeStringA) + STDTIME_ENUM_FUNC (RepairStdTimeStringW) + STDTIME_ENUM_FUNC (RoundStdTimeDelta) + STDTIME_ENUM_FUNC (SetStdTimeStringDelimitersA) + STDTIME_ENUM_FUNC (SetStdTimeStringDelimitersW) + STDTIME_ENUM_FUNC (StdTimeApiFileTimeIsDST) + STDTIME_ENUM_FUNC (StdTimeApiFileTimeToZonedFileTime) + STDTIME_ENUM_FUNC (StdTimeApiZonedFileTimeIsDST) + STDTIME_ENUM_FUNC (StdTimeApiZonedFileTimeToFileTime) + STDTIME_ENUM_FUNC (StdTimeDeltaToCComSpan) + STDTIME_ENUM_FUNC (StdTimeDeltaToCComSpanEx) + STDTIME_ENUM_FUNC (StdTimeDeltaToCFileTimeSpan) + STDTIME_ENUM_FUNC (StdTimeDeltaToCOleDateTimeSpan) + STDTIME_ENUM_FUNC (StdTimeDeltaToCOleDateTimeSpanEx) + STDTIME_ENUM_FUNC (StdTimeDeltaToCTimeSpan) + STDTIME_ENUM_FUNC (StdTimeDeltaToCTimeSpanEx) + STDTIME_ENUM_FUNC (StdTimeDeltaToHpCComSpan) + STDTIME_ENUM_FUNC (StdTimeDeltaToHpCComSpanEx) + STDTIME_ENUM_FUNC (StdTimeDeltaToHpCOleDateTimeSpan) + STDTIME_ENUM_FUNC (StdTimeDeltaToHpCOleDateTimeSpanEx) + STDTIME_ENUM_FUNC (StdTimeDeltaToStdTimeSpan) + STDTIME_ENUM_FUNC (StdTimeDelta_AddDelta) + STDTIME_ENUM_FUNC (StdTimeDelta_AddSpan) + STDTIME_ENUM_FUNC (StdTimeDelta_SubDelta) + STDTIME_ENUM_FUNC (StdTimeDelta_SubSpan) + STDTIME_ENUM_FUNC (StdTimeFieldsToCComDate) + STDTIME_ENUM_FUNC (StdTimeFieldsToCComDateEx) + STDTIME_ENUM_FUNC (StdTimeFieldsToCComSpan) + STDTIME_ENUM_FUNC (StdTimeFieldsToCComSpanEx) + STDTIME_ENUM_FUNC (StdTimeFieldsToCFileTime) + STDTIME_ENUM_FUNC (StdTimeFieldsToCFileTimeSpan) + STDTIME_ENUM_FUNC (StdTimeFieldsToCOleDateTime) + STDTIME_ENUM_FUNC (StdTimeFieldsToCOleDateTimeEx) + STDTIME_ENUM_FUNC (StdTimeFieldsToCOleDateTimeSpan) + STDTIME_ENUM_FUNC (StdTimeFieldsToCOleDateTimeSpanEx) + STDTIME_ENUM_FUNC (StdTimeFieldsToCTime) + STDTIME_ENUM_FUNC (StdTimeFieldsToCTimeEx) + STDTIME_ENUM_FUNC (StdTimeFieldsToCTimeSpan) + STDTIME_ENUM_FUNC (StdTimeFieldsToCTimeSpanEx) + STDTIME_ENUM_FUNC (StdTimeFieldsToDate) + STDTIME_ENUM_FUNC (StdTimeFieldsToDateEx) + STDTIME_ENUM_FUNC (StdTimeFieldsToDbTimeStamp) + STDTIME_ENUM_FUNC (StdTimeFieldsToFileTime) + STDTIME_ENUM_FUNC (StdTimeFieldsToHpCComDate) + STDTIME_ENUM_FUNC (StdTimeFieldsToHpCComDateEx) + STDTIME_ENUM_FUNC (StdTimeFieldsToHpCComSpan) + STDTIME_ENUM_FUNC (StdTimeFieldsToHpCComSpanEx) + STDTIME_ENUM_FUNC (StdTimeFieldsToHpCOleDateTime) + STDTIME_ENUM_FUNC (StdTimeFieldsToHpCOleDateTimeEx) + STDTIME_ENUM_FUNC (StdTimeFieldsToHpCOleDateTimeSpan) + STDTIME_ENUM_FUNC (StdTimeFieldsToHpCOleDateTimeSpanEx) + STDTIME_ENUM_FUNC (StdTimeFieldsToHpDate) + STDTIME_ENUM_FUNC (StdTimeFieldsToHpDateEx) + STDTIME_ENUM_FUNC (StdTimeFieldsToIccpTimeStamp) + STDTIME_ENUM_FUNC (StdTimeFieldsToIccpTimeStampEx) + STDTIME_ENUM_FUNC (StdTimeFieldsToLocalStdTimeFields) + STDTIME_ENUM_FUNC (StdTimeFieldsToMmsBtod) + STDTIME_ENUM_FUNC (StdTimeFieldsToMmsBtodEx) + STDTIME_ENUM_FUNC (StdTimeFieldsToMmsTimeOfDay4) + STDTIME_ENUM_FUNC (StdTimeFieldsToMmsTimeOfDay4Ex) + STDTIME_ENUM_FUNC (StdTimeFieldsToMmsTimeOfDay6) + STDTIME_ENUM_FUNC (StdTimeFieldsToMmsTimeOfDay6Ex) + STDTIME_ENUM_FUNC (StdTimeFieldsToMmsUtcTime) + STDTIME_ENUM_FUNC (StdTimeFieldsToStdTime) + STDTIME_ENUM_FUNC (StdTimeFieldsToStdTimeHexStrA) + STDTIME_ENUM_FUNC (StdTimeFieldsToStdTimeHexStrW) + STDTIME_ENUM_FUNC (StdTimeFieldsToStdTimeStringA) + STDTIME_ENUM_FUNC (StdTimeFieldsToStdTimeStringW) + STDTIME_ENUM_FUNC (StdTimeFieldsToStructTm) + STDTIME_ENUM_FUNC (StdTimeFieldsToStructTmEx) + STDTIME_ENUM_FUNC (StdTimeFieldsToSystemTime) + STDTIME_ENUM_FUNC (StdTimeFieldsToSystemTimeEx) + STDTIME_ENUM_FUNC (StdTimeFieldsToTimeType) + STDTIME_ENUM_FUNC (StdTimeFieldsToTimeTypeEx) + STDTIME_ENUM_FUNC (StdTimeFieldsToUdate) + STDTIME_ENUM_FUNC (StdTimeFieldsToUdateEx) + STDTIME_ENUM_FUNC (StdTimeFieldsToVariant) + STDTIME_ENUM_FUNC (StdTimeFieldsToVariantEx) + STDTIME_ENUM_FUNC (StdTimeFieldsToZonedStdTimeFields) + STDTIME_ENUM_FUNC (StdTimeFields_AddDelta) + STDTIME_ENUM_FUNC (StdTimeFields_AddFraction) + STDTIME_ENUM_FUNC (StdTimeFields_AddSpan) + STDTIME_ENUM_FUNC (StdTimeFields_GetDelta) + STDTIME_ENUM_FUNC (StdTimeFields_GetSpan) + STDTIME_ENUM_FUNC (StdTimeFields_SubDelta) + STDTIME_ENUM_FUNC (StdTimeFields_SubSpan) + STDTIME_ENUM_FUNC (StdTimeGetDayofWeekAndYear) + STDTIME_ENUM_FUNC (StdTimeHexStrAToFileTime) + STDTIME_ENUM_FUNC (StdTimeHexStrAToLocalStdTimeHexStrA) + STDTIME_ENUM_FUNC (StdTimeHexStrAToStdTime) + STDTIME_ENUM_FUNC (StdTimeHexStrAToStdTimeFields) + STDTIME_ENUM_FUNC (StdTimeHexStrAToStdTimeStringA) + STDTIME_ENUM_FUNC (StdTimeHexStrAToZonedStdTimeHexStrA) + STDTIME_ENUM_FUNC (StdTimeHexStrA_AddDelta) + STDTIME_ENUM_FUNC (StdTimeHexStrA_AddSpan) + STDTIME_ENUM_FUNC (StdTimeHexStrA_GetDelta) + STDTIME_ENUM_FUNC (StdTimeHexStrA_GetSpan) + STDTIME_ENUM_FUNC (StdTimeHexStrA_SubDelta) + STDTIME_ENUM_FUNC (StdTimeHexStrA_SubSpan) + STDTIME_ENUM_FUNC (StdTimeHexStrWToFileTime) + STDTIME_ENUM_FUNC (StdTimeHexStrWToLocalStdTimeHexStrW) + STDTIME_ENUM_FUNC (StdTimeHexStrWToStdTime) + STDTIME_ENUM_FUNC (StdTimeHexStrWToStdTimeFields) + STDTIME_ENUM_FUNC (StdTimeHexStrWToStdTimeStringW) + STDTIME_ENUM_FUNC (StdTimeHexStrWToZonedStdTimeHexStrW) + STDTIME_ENUM_FUNC (StdTimeHexStrW_AddDelta) + STDTIME_ENUM_FUNC (StdTimeHexStrW_AddSpan) + STDTIME_ENUM_FUNC (StdTimeHexStrW_GetDelta) + STDTIME_ENUM_FUNC (StdTimeHexStrW_GetSpan) + STDTIME_ENUM_FUNC (StdTimeHexStrW_SubDelta) + STDTIME_ENUM_FUNC (StdTimeHexStrW_SubSpan) + STDTIME_ENUM_FUNC (StdTimeRcToErrMsgA) + STDTIME_ENUM_FUNC (StdTimeRcToErrMsgW) + STDTIME_ENUM_FUNC (StdTimeSpanToCComSpan) + STDTIME_ENUM_FUNC (StdTimeSpanToCComSpanEx) + STDTIME_ENUM_FUNC (StdTimeSpanToCFileTimeSpan) + STDTIME_ENUM_FUNC (StdTimeSpanToCOleDateTimeSpan) + STDTIME_ENUM_FUNC (StdTimeSpanToCOleDateTimeSpanEx) + STDTIME_ENUM_FUNC (StdTimeSpanToCTimeSpan) + STDTIME_ENUM_FUNC (StdTimeSpanToCTimeSpanEx) + STDTIME_ENUM_FUNC (StdTimeSpanToHpCComSpan) + STDTIME_ENUM_FUNC (StdTimeSpanToHpCComSpanEx) + STDTIME_ENUM_FUNC (StdTimeSpanToHpCOleDateTimeSpan) + STDTIME_ENUM_FUNC (StdTimeSpanToHpCOleDateTimeSpanEx) + STDTIME_ENUM_FUNC (StdTimeSpanToStdTimeDelta) + STDTIME_ENUM_FUNC (StdTimeSpan_AddDelta) + STDTIME_ENUM_FUNC (StdTimeSpan_AddSpan) + STDTIME_ENUM_FUNC (StdTimeSpan_SubDelta) + STDTIME_ENUM_FUNC (StdTimeSpan_SubSpan) + STDTIME_ENUM_FUNC (StdTimeStringAToFileTime) + STDTIME_ENUM_FUNC (StdTimeStringAToLocalStdTimeStringA) + STDTIME_ENUM_FUNC (StdTimeStringAToStdTime) + STDTIME_ENUM_FUNC (StdTimeStringAToStdTimeFields) + STDTIME_ENUM_FUNC (StdTimeStringAToStdTimeHexStrA) + STDTIME_ENUM_FUNC (StdTimeStringAToTzoA) + STDTIME_ENUM_FUNC (StdTimeStringAToZonedStdTimeStringA) + STDTIME_ENUM_FUNC (StdTimeStringA_AddDelta) + STDTIME_ENUM_FUNC (StdTimeStringA_AddSpan) + STDTIME_ENUM_FUNC (StdTimeStringA_GetDelta) + STDTIME_ENUM_FUNC (StdTimeStringA_GetSpan) + STDTIME_ENUM_FUNC (StdTimeStringA_SubDelta) + STDTIME_ENUM_FUNC (StdTimeStringA_SubSpan) + STDTIME_ENUM_FUNC (StdTimeStringWToFileTime) + STDTIME_ENUM_FUNC (StdTimeStringWToLocalStdTimeStringW) + STDTIME_ENUM_FUNC (StdTimeStringWToStdTime) + STDTIME_ENUM_FUNC (StdTimeStringWToStdTimeFields) + STDTIME_ENUM_FUNC (StdTimeStringWToStdTimeHexStrW) + STDTIME_ENUM_FUNC (StdTimeStringWToTzoW) + STDTIME_ENUM_FUNC (StdTimeStringWToZonedStdTimeStringW) + STDTIME_ENUM_FUNC (StdTimeStringW_AddDelta) + STDTIME_ENUM_FUNC (StdTimeStringW_AddSpan) + STDTIME_ENUM_FUNC (StdTimeStringW_GetDelta) + STDTIME_ENUM_FUNC (StdTimeStringW_GetSpan) + STDTIME_ENUM_FUNC (StdTimeStringW_SubDelta) + STDTIME_ENUM_FUNC (StdTimeStringW_SubSpan) + STDTIME_ENUM_FUNC (StdTimeToCComDate) + STDTIME_ENUM_FUNC (StdTimeToCComDateEx) + STDTIME_ENUM_FUNC (StdTimeToCComSpan) + STDTIME_ENUM_FUNC (StdTimeToCComSpanEx) + STDTIME_ENUM_FUNC (StdTimeToCFileTime) + STDTIME_ENUM_FUNC (StdTimeToCFileTimeSpan) + STDTIME_ENUM_FUNC (StdTimeToCOleDateTime) + STDTIME_ENUM_FUNC (StdTimeToCOleDateTimeEx) + STDTIME_ENUM_FUNC (StdTimeToCOleDateTimeSpan) + STDTIME_ENUM_FUNC (StdTimeToCOleDateTimeSpanEx) + STDTIME_ENUM_FUNC (StdTimeToCTime) + STDTIME_ENUM_FUNC (StdTimeToCTimeEx) + STDTIME_ENUM_FUNC (StdTimeToCTimeSpan) + STDTIME_ENUM_FUNC (StdTimeToCTimeSpanEx) + STDTIME_ENUM_FUNC (StdTimeToDate) + STDTIME_ENUM_FUNC (StdTimeToDateEx) + STDTIME_ENUM_FUNC (StdTimeToDbTimeStamp) + STDTIME_ENUM_FUNC (StdTimeToFileTime) + STDTIME_ENUM_FUNC (StdTimeToHpCComDate) + STDTIME_ENUM_FUNC (StdTimeToHpCComDateEx) + STDTIME_ENUM_FUNC (StdTimeToHpCComSpan) + STDTIME_ENUM_FUNC (StdTimeToHpCComSpanEx) + STDTIME_ENUM_FUNC (StdTimeToHpCOleDateTime) + STDTIME_ENUM_FUNC (StdTimeToHpCOleDateTimeEx) + STDTIME_ENUM_FUNC (StdTimeToHpCOleDateTimeSpan) + STDTIME_ENUM_FUNC (StdTimeToHpCOleDateTimeSpanEx) + STDTIME_ENUM_FUNC (StdTimeToHpDate) + STDTIME_ENUM_FUNC (StdTimeToHpDateEx) + STDTIME_ENUM_FUNC (StdTimeToIccpTimeStamp) + STDTIME_ENUM_FUNC (StdTimeToIccpTimeStampEx) + STDTIME_ENUM_FUNC (StdTimeToLocalStdTime) + STDTIME_ENUM_FUNC (StdTimeToMmsBtod) + STDTIME_ENUM_FUNC (StdTimeToMmsBtodEx) + STDTIME_ENUM_FUNC (StdTimeToMmsTimeOfDay4) + STDTIME_ENUM_FUNC (StdTimeToMmsTimeOfDay4Ex) + STDTIME_ENUM_FUNC (StdTimeToMmsTimeOfDay6) + STDTIME_ENUM_FUNC (StdTimeToMmsTimeOfDay6Ex) + STDTIME_ENUM_FUNC (StdTimeToMmsUtcTime) + STDTIME_ENUM_FUNC (StdTimeToStdTimeField) + STDTIME_ENUM_FUNC (StdTimeToStdTimeHexStrA) + STDTIME_ENUM_FUNC (StdTimeToStdTimeHexStrW) + STDTIME_ENUM_FUNC (StdTimeToStdTimeStringA) + STDTIME_ENUM_FUNC (StdTimeToStdTimeStringW) + STDTIME_ENUM_FUNC (StdTimeToStructTm) + STDTIME_ENUM_FUNC (StdTimeToStructTmEx) + STDTIME_ENUM_FUNC (StdTimeToSystemTime) + STDTIME_ENUM_FUNC (StdTimeToSystemTimeEx) + STDTIME_ENUM_FUNC (StdTimeToTimeType) + STDTIME_ENUM_FUNC (StdTimeToTimeTypeEx) + STDTIME_ENUM_FUNC (StdTimeToUdate) + STDTIME_ENUM_FUNC (StdTimeToUdateEx) + STDTIME_ENUM_FUNC (StdTimeToVariant) + STDTIME_ENUM_FUNC (StdTimeToVariantEx) + STDTIME_ENUM_FUNC (StdTimeToZonedStdTime) + STDTIME_ENUM_FUNC (StdTimeTzTimeToDelta) + STDTIME_ENUM_FUNC (StdTimeW32GetDayofWeekAndYear) + STDTIME_ENUM_FUNC (StdTimeZoneDataToInfo) + STDTIME_ENUM_FUNC (StdTimeZoneDayOfRule) + STDTIME_ENUM_FUNC (StdTime_AddDelta) + STDTIME_ENUM_FUNC (StdTime_AddSpan) + STDTIME_ENUM_FUNC (StdTime_GetDelta) + STDTIME_ENUM_FUNC (StdTime_GetSpan) + STDTIME_ENUM_FUNC (StdTime_SubDelta) + STDTIME_ENUM_FUNC (StdTime_SubSpan) + STDTIME_ENUM_FUNC (StructTmExToStdTime) + STDTIME_ENUM_FUNC (StructTmExToStdTimeFields) + STDTIME_ENUM_FUNC (StructTmToStdTime) + STDTIME_ENUM_FUNC (StructTmToStdTimeFields) + STDTIME_ENUM_FUNC (SystemTimeExToStdTime) + STDTIME_ENUM_FUNC (SystemTimeExToStdTimeFields) + STDTIME_ENUM_FUNC (SystemTimeToStdTime) + STDTIME_ENUM_FUNC (SystemTimeToStdTimeFields) + STDTIME_ENUM_FUNC (TimeTypeExToStdTime) + STDTIME_ENUM_FUNC (TimeTypeExToStdTimeFields) + STDTIME_ENUM_FUNC (TimeTypeToStdTime) + STDTIME_ENUM_FUNC (TimeTypeToStdTimeFields) + STDTIME_ENUM_FUNC (TranslateStdTimeWinZoneName) + STDTIME_ENUM_FUNC (TranslateStdTimeZoneName) + STDTIME_ENUM_FUNC (TrimStdTimeStringA) + STDTIME_ENUM_FUNC (TrimStdTimeStringW) + STDTIME_ENUM_FUNC (TruncStdTimeDelta) + STDTIME_ENUM_FUNC (TruncStdTimeStringA) + STDTIME_ENUM_FUNC (TruncStdTimeStringW) + STDTIME_ENUM_FUNC (TzoAToStdTimeStringA) + STDTIME_ENUM_FUNC (TzoWToStdTimeStringW) + STDTIME_ENUM_FUNC (UdateExToStdTime) + STDTIME_ENUM_FUNC (UdateExToStdTimeFields) + STDTIME_ENUM_FUNC (UdateToStdTime) + STDTIME_ENUM_FUNC (UdateToStdTimeFields) + STDTIME_ENUM_FUNC (ValidStdTime) + STDTIME_ENUM_FUNC (ValidStdTimeDelta) + STDTIME_ENUM_FUNC (ValidStdTimeFields) + STDTIME_ENUM_FUNC (ValidStdTimeHexStrA) + STDTIME_ENUM_FUNC (ValidStdTimeHexStrW) + STDTIME_ENUM_FUNC (ValidStdTimeSpan) + STDTIME_ENUM_FUNC (ValidStdTimeStringA) + STDTIME_ENUM_FUNC (ValidStdTimeStringW) + STDTIME_ENUM_FUNC (ValidStdTimeTzoA) + STDTIME_ENUM_FUNC (ValidStdTimeTzoW) + STDTIME_ENUM_FUNC (VariantExToStdTime) + STDTIME_ENUM_FUNC (VariantExToStdTimeFields) + STDTIME_ENUM_FUNC (VariantToStdTime) + STDTIME_ENUM_FUNC (VariantToStdTimeFields) + STDTIME_ENUM_FUNC (ZonedStdTimeFieldsToStdTimeFields) + STDTIME_ENUM_FUNC (ZonedStdTimeHexStrAToStdTimeHexStrA) + STDTIME_ENUM_FUNC (ZonedStdTimeHexStrWToStdTimeHexStrW) + STDTIME_ENUM_FUNC (ZonedStdTimeStringAToStdTimeStringA) + STDTIME_ENUM_FUNC (ZonedStdTimeStringWToStdTimeStringW) + STDTIME_ENUM_FUNC (ZonedStdTimeToStdTime) diff --git a/mmslib/inc/stdtime_mms_btime.h b/mmslib/inc/stdtime_mms_btime.h new file mode 100644 index 0000000..e1b09c0 --- /dev/null +++ b/mmslib/inc/stdtime_mms_btime.h @@ -0,0 +1,81 @@ +/*****************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER **********************************************/ +/*****************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2006 All Rights Reserved */ +/* */ +/* MODULE NAME : stdtime_mms_btime.h */ +/* PRODUCT(S) : Standard Time Management Library */ +/* */ +/* MODULE DESCRIPTION: */ +/* Support for MMS Btime4, BTime6 and BTOD conversions to/from STDTIME */ +/* */ +/* MODIFICATION LOG: */ +/* Date Who Rev Comments */ +/* -------- --- --- ----------------------------------------------------- */ +/* 04/08/08 JRB 03 Chg () to (ST_VOID) in prototype. */ +/* 02/20/08 JRB 02 Add T84_* defines. */ +/* Del TimeOfDay4, Btod, and StdTimeFields functions. */ +/* 10/05/06 RLH 01 Created */ +/*****************************************************************************/ + +#ifdef __cplusplus +extern "C" { +#endif + +#define T84_HIGHDATETIME 0x01ad63ae /* high word of 1984 FILETIME*/ +#define T84_LOWDATETIME 0xef5a4000 /* low word of 1984 FILETIME*/ + +#if defined(ASN1R_INCLUDED) && defined(MMS_BTOD4) && defined(MMS_BTOD6) +#define STDTIME_MMS_TIMEOFDAY6 MMS_BTIME6 + +#else + +typedef struct + { + int32_t ms; /* milliseconds since midnight */ + int32_t day; /* days since January 1, 1984 */ + } +STDTIME_MMS_TIMEOFDAY6; + +#endif + + + +/*** MmsTimeOfDay4/6 initialization functions ********************************/ + +STDTIME_MMS_TIMEOFDAY6 StdTimeApiZeroMmsTimeOfDay6 (ST_VOID); + +/*** MmsTimeOfDay6Ex functions ***********************************************/ + + +STDTIME_RC StdTimeToMmsTimeOfDay6Ex ( + const STDTIME * /*I*/ pStdTime, + STDTIME_MMS_TIMEOFDAY6 * /*O*/ pMmsTimeOfDay6, + int32_t * /*O*/ pUsec, /* optional */ + int32_t * /*O*/ pNsec); /* optional */ + + +STDTIME_RC MmsTimeOfDay6ExToStdTime ( + const STDTIME_MMS_TIMEOFDAY6 * /*I*/ pMmsTimeOfDay6, + int32_t /*I*/ nUsec, + int32_t /*I*/ nNsec, + STDTIME * /*O*/ pStdTime); + + +/*** MmsTimeOfDay6 functions *************************************************/ + + +STDTIME_RC StdTimeToMmsTimeOfDay6 ( + const STDTIME * /*I*/ pStdTime, + STDTIME_MMS_TIMEOFDAY6 * /*O*/ pMmsTimeOfDay6); + + +STDTIME_RC MmsTimeOfDay6ToStdTime ( + const STDTIME_MMS_TIMEOFDAY6 * /*I*/ pMmsTimeOfDay6, + STDTIME * /*O*/ pStdTime); + +#ifdef __cplusplus +} +#endif + diff --git a/mmslib/inc/stdtime_mms_utctime.h b/mmslib/inc/stdtime_mms_utctime.h new file mode 100644 index 0000000..1ea703e --- /dev/null +++ b/mmslib/inc/stdtime_mms_utctime.h @@ -0,0 +1,61 @@ +/*****************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER **********************************************/ +/*****************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2006 All Rights Reserved */ +/* */ +/* MODULE NAME : stdtime_mms_utctime.h */ +/* PRODUCT(S) : Standard Time Management Library */ +/* */ +/* MODULE DESCRIPTION: */ +/* Support for MMS UTC TIME conversions to/from STDTIME */ +/* */ +/* MODIFICATION LOG: */ +/* Date Who Rev Comments */ +/* -------- --- --- ----------------------------------------------------- */ +/* 04/08/08 JRB 03 Chg () to (ST_VOID) in prototype. */ +/* 02/20/08 JRB 02 Delete StdTimeFields functions. */ +/* 10/05/06 RLH 01 Created */ +/*****************************************************************************/ + +#ifdef __cplusplus +extern "C" { +#endif + +#if defined(ASN1R_INCLUDED) +#define STDTIME_MMS_UTC_TIME MMS_UTC_TIME + +#else + +typedef struct + { + int32_t secs; /* seconds since January 1, 1970 */ + int32_t fraction; /* 24-bit binary fraction of second */ + int32_t qflags; /* 8-bit quality flags */ + } +STDTIME_MMS_UTC_TIME; + +#endif + + +/*** MmsUtcTime initialization function **************************************/ + +STDTIME_MMS_UTC_TIME StdTimeApiZeroMmsUtcTime (ST_VOID); + + +/*** MmsUtcTime functions *************************************************/ + + +STDTIME_RC StdTimeToMmsUtcTime ( + const STDTIME * /*I*/ pStdTime, + STDTIME_MMS_UTC_TIME * /*O*/ pMmsUtcTime); + + +STDTIME_RC MmsUtcTimeToStdTime ( + const STDTIME_MMS_UTC_TIME * /*I*/ pMmsUtcTime, + STDTIME * /*O*/ pStdTime); + +#ifdef __cplusplus +} +#endif + diff --git a/mmslib/inc/stdtime_quadlib.h b/mmslib/inc/stdtime_quadlib.h new file mode 100644 index 0000000..fa45097 --- /dev/null +++ b/mmslib/inc/stdtime_quadlib.h @@ -0,0 +1,1081 @@ +/*****************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER **********************************************/ +/*****************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2005 All Rights Reserved */ +/* */ +/* MODULE NAME : QuadLib.h */ +/* PRODUCT(S) : Standard Time Management Library */ +/* */ +/* MODULE DESCRIPTION: */ +/* 64-bit Math Simulation Library - header file */ +/* Provided for platforms without native 64-bit support. */ +/* */ +/* When QUADLIB_ENABLED is defined, definitions relevant to the */ +/* simulations library are generated. Otherwise, definitions are */ +/* selected to develop code on 64-bit enabled platforms without going */ +/* through the QuadLib library. */ +/* */ +/* Define QUADLIB_STATIC as 'static' to make the declarations local. */ +/* */ +/* Define QUADLIB_I64N as the native signed 64-bit data type. */ +/* Define QUADLIB_U64N as the native unsigned 64-bit data type. */ +/* If not defined, an assumption is made based on existence of _WIN32. */ +/* */ +/* The include file "host_endian.h" defines the native host endian order. */ +/* */ +/* MODIFICATION LOG: */ +/* Date Who Rev Comments */ +/* -------- --- --- ----------------------------------------------------- */ +/* 02/22/08 JRB 03 Use SD_BYTE_ORDER like all other SISCO code. */ +/* 06/07/06 RLH 02 Numerous features added, see stdtime.doc */ +/* 01/18/06 RLH 01 Created */ +/*****************************************************************************/ + + +#ifndef _STDTIME_QUADLIB_H_B07CB807_8BFC_41B3_872E_EDD251FD6AEB_ +#define _STDTIME_QUADLIB_H_B07CB807_8BFC_41B3_872E_EDD251FD6AEB_ + + +#ifdef __cplusplus +extern "C" { +#endif + +/*****************************************************************************/ +/* ENABLED or DISABLED: SUPPORT FOR 64-BIT EMULATION */ +/* */ +/* use StdTimeConfig.h to set QUADLIB_ENABLED or QUADLIB_DISABLED */ +/*****************************************************************************/ + +#if defined(QUADLIB_ENABLED) && defined(QUADLIB_DISABLED) +#error Both QUADLIB_ENABLED and QUADLIB_DISABLED defined +#undef QUADLIB_ENABLED +#endif + +#if !defined(QUADLIB_ENABLED) && !defined(QUADLIB_DISABLED) +#define QUADLIB_DISABLED /* default */ +#endif + +/*****************************************************************************/ +/* ENABLED or DISABLED: EXISTENCE OF 64-BIT SUPPORT IN COMPILER */ +/* */ +/* use StdTimeConfig.h to set QUADLIB_NATIVE64_ENABLED or */ +/* QUADLIB_NATIVE64_DISABLED */ +/*****************************************************************************/ + +/* these defines are used mainly to avoid compile errors on platforms */ +/* that have no support at all for 64-bit types */ + +#if defined(QUADLIB_NATIVE64_ENABLED) && defined(QUADLIB_NATIVE64_DISABLED) +#error Both QUADLIB_NATIVE64_ENABLED and QUADLIB_NATIVE64_DISABLED defined +#undef QUADLIB_NATIVE64_ENABLED +#undef QUADLIB_NATIVE64_DISABLED +#endif + +#if !defined(QUADLIB_NATIVE64_ENABLED) && !defined(QUADLIB_NATIVE64_DISABLED) +#ifdef _WIN32 +#define QUADLIB_NATIVE64_ENABLED +#else +#define QUADLIB_NATIVE64_DISABLED +#endif +#endif + +/*****************************************************************************/ +/* VALIDATE NATIVE SUPPORT VS. EMULATION SUPPORT */ +/*****************************************************************************/ + +/* either the host must support 64-bit mode or we must emulate it */ +/* otherwise, the code that manages 64-bit FILETIME values will not work */ + +#if defined(QUADLIB_DISABLED) && defined(QUADLIB_NATIVE64_DISABLED) +#error QUADLIB_DISABLED and QUADLIB_NATIVE64_DISABLED, cannot generate code +#endif + + +/*****************************************************************************/ +/* STATIC (LOCAL) FUNCTION QUALIFIER */ +/* */ +/* use StdTimeConfig.h to set QUADLIB_STATIC */ +/*****************************************************************************/ + +#ifndef QUADLIB_STATIC +#define QUADLIB_STATIC +#endif + +/* stdtimeconfig.h includes appropriate stdint.h header for 32/64 bit types */ + +#define QUADLIB_U32_HIGHBIT 0x80000000 + +/*****************************************************************************/ +/* NATIVE 64 BIT TYPES */ +/*****************************************************************************/ + +#ifdef QUADLIB_NATIVE64_ENABLED +#define QUADLIB_I64N int64_t +#define QUADLIB_U64N uint64_t + +#else /* not QUADLIB_NATIVE64_ENABLED */ + +/* host has NO 64-bit data types */ +/* the following defines are just for compatibility */ +/* but lack 64-bit capacity. _WIN32 always supports I64 */ +/* so this is just a non-Windows issue. */ + +#ifndef QUADLIB_I64N +#define QUADLIB_I64N int32_t /* 32-bit */ +#endif + +#ifndef QUADLIB_U64N +#define QUADLIB_U64N uint32_t /* 32-bit */ +#endif + +#endif /* QUADLIB_NATIVE64_ENABLED */ + +/*****************************************************************************/ +/* QUADLIB_I64 - hi/lo member ordering based on ENDIAN definition above */ +/* QUADLIB_U64 has the same representation as QUADLIB_I64 */ +/* two names are used mainly to document the intended usage */ +/*****************************************************************************/ + +/* Make sure SD_BYTE_ORDER is defined (in glbtypes.h) */ +#if !defined(SD_BYTE_ORDER) +#error SD_BYTE_ORDER not defined +#endif +#if (SD_BYTE_ORDER==SD_LITTLE_ENDIAN) + +typedef struct + { + union + { + int32_t i; + uint32_t u; + } lo; + + union + { + int32_t i; + uint32_t u; + } hi; + } + QUADLIB_I64_TYPE; + +#else /* BIG_ENDIAN */ + +typedef struct + { + union + { + int32_t i; + uint32_t u; + } hi; + + union + { + int32_t i; + uint32_t u; + } lo; + } + QUADLIB_I64_TYPE; + +#endif /* BIG_ENDIAN */ + +#define QUADLIB_U64_TYPE QUADLIB_I64_TYPE + +#ifdef QUADLIB_ENABLED + +/* enabled means 64-bit operations are simulated in software */ + +#define QUADLIB_I64 QUADLIB_I64_TYPE +#define QUADLIB_U64 QUADLIB_I64_TYPE +#define QUADLIB_ZERO {0,0} +#define QUADLIB_U64_MAX {0xFFFFFFFF, 0xFFFFFFFF} + +#if (SD_BYTE_ORDER==SD_LITTLE_ENDIAN) + +#define QUADLIB_I64_MAX {0xFFFFFFFF, 0x7FFFFFFF} +#define QUADLIB_I64_MIN {0x00000000, 0x80000000} + +#else /* BIG_ENDIAN */ + +#define QUADLIB_I64_MAX {0x7FFFFFFF, 0xFFFFFFFF} +#define QUADLIB_I64_MIN {0x00000000, 0x00000000} + +#endif /* BIG_ENDIAN */ + +#else /* not QUADLIB_ENABLED */ + +/* use native 64-bit values for a few compatibility functions */ + +#define QUADLIB_I64 QUADLIB_I64N +#define QUADLIB_U64 QUADLIB_U64N +#define QUADLIB_ZERO 0 +#define QUADLIB_U64_MAX (QUADLIB_U64)0xFFFFFFFFFFFFFFFF +#define QUADLIB_I64_MAX (QUADLIB_I64)0x7FFFFFFFFFFFFFFF +#define QUADLIB_I64_MIN (QUADLIB_I64)0x8000000000000000 + +#endif /* QUADLIB_ENABLED */ + + +#ifdef _WCHAR_T_DEFINED +typedef wchar_t QUADLIB_WCHAR; +#else +typedef unsigned short QUADLIB_WCHAR; +#endif + +#define QUADLIB_STRING_LEN 20 + + +typedef struct + { + char str [QUADLIB_STRING_LEN+1]; + } +QUADLIB_STRINGA; + + +typedef struct + { + QUADLIB_WCHAR str [QUADLIB_STRING_LEN+1]; + } +QUADLIB_STRINGW; + + +/*****************************************************************************/ +/* NOT */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +#define QUADLIB_I64_NOT(x) QuadLibI64Not(x) +#define QUADLIB_U64_NOT(x) QuadLibU64Not(x) + +#define QuadLibI64Not(x) QuadLibU64Not(x) + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64Not (QUADLIB_U64 x); + +#else /* not QUADLIB_ENABLED */ + +#define QUADLIB_I64_NOT(x) (~x) +#define QUADLIB_U64_NOT(x) (~x) + +#endif /* QUADLIB_ENABLED */ + +/*****************************************************************************/ +/* AND */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +#define QUADLIB_I64_AND(x,y) QuadLibI64And(x,y) +#define QUADLIB_U64_AND(x,y) QuadLibU64And(x,y) +#define QUADLIB_I64_AND_EQ(x,y) x = QuadLibI64And(x,y) +#define QUADLIB_U64_AND_EQ(x,y) x = QuadLibU64And(x,y) + +#define QUADLIB_I64_ANDNOT(x,y) QuadLibI64AndNot(x,y) +#define QUADLIB_U64_ANDNOT(x,y) QuadLibU64AndNot(x,y) +#define QUADLIB_I64_ANDNOT_EQ(x,y) x = QuadLibI64AndNot(x,y) +#define QUADLIB_U64_ANDNOT_EQ(x,y) x = QuadLibU64AndNot(x,y) + +#define QuadLibI64And(x,y) QuadLibU64And(x,y) +#define QuadLibI64AndNot(x) QuadLibU64AndNot(x) + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64And ( + QUADLIB_U64 /*I*/ one, + QUADLIB_U64 /*I*/ two); + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64AndNot ( + QUADLIB_U64 /*I*/ one, + QUADLIB_U64 /*I*/ two); + +#else /* not QUADLIB_ENABLED */ + +#define QUADLIB_I64_AND(x,y) (x & y) +#define QUADLIB_U64_AND(x,y) (x & y) +#define QUADLIB_I64_AND_EQ(x,y) x &= y +#define QUADLIB_U64_AND_EQ(x,y) x &= y + +#define QUADLIB_I64_ANDNOT(x,y) (x & (~y)) +#define QUADLIB_U64_ANDNOT(x,y) (x & (~y)) +#define QUADLIB_I64_ANDNOT_EQ(x,y) x = x & (~y) +#define QUADLIB_U64_ANDNOT_EQ(x,y) x = x & (~y) + +#endif /* QUADLIB_ENABLED */ + +/*****************************************************************************/ +/* OR */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +#define QUADLIB_I64_OR(x,y) QuadLibI64Or(x,y) +#define QUADLIB_U64_OR(x,y) QuadLibU64Or(x,y) +#define QUADLIB_I64_OR_EQ(x,y) x = QuadLibI64Or(x,y) +#define QUADLIB_U64_OR_EQ(x,y) x = QuadLibU64Or(x,y) + +#define QUADLIB_I64_ORNOT(x,y) QuadLibI64OrNot(x,y) +#define QUADLIB_U64_ORNOT(x,y) QuadLibU64OrNot(x,y) +#define QUADLIB_I64_ORNOT_EQ(x,y) x = QuadLibI64OrNot(x,y) +#define QUADLIB_U64_ORNOT_EQ(x,y) x = QuadLibU64OrNot(x,y) + +#define QuadLibI64Or(x,y) QuadLibU64Or(x,y) +#define QuadLibI64OrNot(x) QuadLibU64OrNot(x) + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64Or ( + QUADLIB_U64 /*I*/ one, + QUADLIB_U64 /*I*/ two); + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64OrNot ( + QUADLIB_U64 /*I*/ one, + QUADLIB_U64 /*I*/ two); + +#else /* not QUADLIB_ENABLED */ + +#define QUADLIB_I64_OR(x,y) (x | y) +#define QUADLIB_U64_OR(x,y) (x | y) +#define QUADLIB_I64_OR_EQ(x,y) x |= y +#define QUADLIB_U64_OR_EQ(x,y) x |= y + +#define QUADLIB_I64_ORNOT(x,y) (x | (~y)) +#define QUADLIB_U64_ORNOT(x,y) (x | (~y)) +#define QUADLIB_I64_ORNOT_EQ(x,y) x = x | (~y) +#define QUADLIB_U64_ORNOT_EQ(x,y) x = x | (~y) + +#endif /* QUADLIB_ENABLED */ + +/*****************************************************************************/ +/* XOR */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +#define QUADLIB_I64_XOR(x,y) QuadLibI64Xor(x,y) +#define QUADLIB_U64_XOR(x,y) QuadLibU64Xor(x,y) +#define QUADLIB_I64_XOR_EQ(x,y) x = QuadLibI64Xor(x,y) +#define QUADLIB_U64_XOR_EQ(x,y) x = QuadLibU64Xor(x,y) + +#define QUADLIB_I64_XORNOT(x,y) QuadLibI64XorNot(x,y) +#define QUADLIB_U64_XORNOT(x,y) QuadLibU64XorNot(x,y) +#define QUADLIB_I64_XORNOT_EQ(x,y) x = QuadLibI64XorNot(x,y) +#define QUADLIB_U64_XORNOT_EQ(x,y) x = QuadLibU64XorNot(x,y) + +#define QuadLibI64Xor(x,y) QuadLibU64Xor(x,y) +#define QuadLibI64XorNot(x) QuadLibU64XorNot(x) + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64Xor ( + QUADLIB_U64 /*I*/ one, + QUADLIB_U64 /*I*/ two); + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64XorNot ( + QUADLIB_U64 /*I*/ one, + QUADLIB_U64 /*I*/ two); + +#else /* not QUADLIB_ENABLED */ + +#define QUADLIB_I64_XOR(x,y) (x ^ y) +#define QUADLIB_U64_XOR(x,y) (x ^ y) +#define QUADLIB_I64_XOR_EQ(x,y) x ^= y +#define QUADLIB_U64_XOR_EQ(x,y) x ^= y + +#define QUADLIB_I64_XORNOT(x,y) (x ^ (~y)) +#define QUADLIB_U64_XORNOT(x,y) (x ^ (~y)) +#define QUADLIB_I64_XORNOT_EQ(x,y) x = x ^ (~y) +#define QUADLIB_U64_XORNOT_EQ(x,y) x = x ^ (~y) + +#endif /* QUADLIB_ENABLED */ + +/*****************************************************************************/ +/* ADD */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +#define QUADLIB_I64_ADD(x,y) QuadLibI64Add(x,y) +#define QUADLIB_U64_ADD(x,y) QuadLibU64Add(x,y) +#define QUADLIB_I64_ADD_EQ(x,y) x = QuadLibI64Add(x,y) +#define QUADLIB_U64_ADD_EQ(x,y) x = QuadLibU64Add(x,y) + +#define QUADLIB_I64_ADD1(x) QuadLibI64Add1(x) +#define QUADLIB_U64_ADD1(x) QuadLibU64Add1(x) +#define QUADLIB_I64_ADD1_EQ(x) x = QuadLibI64Add1(x) +#define QUADLIB_U64_ADD1_EQ(x) x = QuadLibU64Add1(x) + +#define QuadLibI64Add(x,y) QuadLibU64Add(x,y) +#define QuadLibI64Add1(x) QuadLibU64Add1(x) + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64Add ( + QUADLIB_U64 /*I*/ one, + QUADLIB_U64 /*I*/ two); + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64Add1 ( + QUADLIB_U64 /*I*/ x); + +#else /* not QUADLIB_ENABLED */ + +#define QUADLIB_I64_ADD(x,y) (x + y) +#define QUADLIB_U64_ADD(x,y) (x + y) +#define QUADLIB_I64_ADD_EQ(x,y) x += y +#define QUADLIB_U64_ADD_EQ(x,y) x += y + +#define QUADLIB_I64_ADD1(x) (x + y) +#define QUADLIB_U64_ADD1(x) (x + y) +#define QUADLIB_I64_ADD1_EQ(x) x++ +#define QUADLIB_U64_ADD1_EQ(x) x++ + +#endif /* QUADLIB_ENABLED */ + +/*****************************************************************************/ +/* SUB */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +#define QUADLIB_I64_SUB(x,y) QuadLibI64Sub(x,y) +#define QUADLIB_U64_SUB(x,y) QuadLibU64Sub(x,y) +#define QUADLIB_I64_SUB_EQ(x,y) x = QuadLibI64Sub(x,y) +#define QUADLIB_U64_SUB_EQ(x,y) x = QuadLibU64Sub(x,y) + +#define QUADLIB_I64_SUB1(x) QuadLibI64Sub1(x) +#define QUADLIB_U64_SUB1(x) QuadLibU64Sub1(x) +#define QUADLIB_I64_SUB1_EQ(x) x = QuadLibI64Sub1(x) +#define QUADLIB_U64_SUB1_EQ(x) x = QuadLibU64Sub1(x) + +#define QuadLibI64Sub(x,y) QuadLibU64Sub(x,y) +#define QuadLibI64Sub1(x) QuadLibU64Sub1(x) + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64Sub ( + QUADLIB_U64 /*I*/ one, + QUADLIB_U64 /*I*/ two); + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64Sub1 ( + QUADLIB_U64 /*I*/ x); + +#else /* not QUADLIB_ENABLED */ + +#define QUADLIB_I64_SUB(x,y) (x - y) +#define QUADLIB_U64_SUB(x,y) (x - y) +#define QUADLIB_I64_SUB_EQ(x,y) x -= y +#define QUADLIB_U64_SUB_EQ(x,y) x -= y + +#define QUADLIB_I64_SUB1(x) (x - y) +#define QUADLIB_U64_SUB1(x) (x - y) +#define QUADLIB_I64_SUB1_EQ(x) x-- +#define QUADLIB_U64_SUB1_EQ(x) x-- + +#endif /* QUADLIB_ENABLED */ + +/*****************************************************************************/ +/* NEG */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +#define QUADLIB_I64_NEG(x) QuadLibI64Neg(x) +#define QUADLIB_U64_NEG(x) QuadLibU64Neg(x) + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64Neg (QUADLIB_U64 x); + +#else /* not QUADLIB_ENABLED */ + +#define QUADLIB_I64_NEG(x) (-x) +#define QUADLIB_U64_NEG(x) (-x) + +#endif /* QUADLIB_ENABLED */ + +#define QuadLibI64Neg(x) QuadLibU64Neg(x) + +/*****************************************************************************/ +/* ABS */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +#define QUADLIB_I64_ABS(x) QuadLibI64Abs(x) +#define QUADLIB_U64_ABS(x) QuadLibU64Abs(x) + +#else /* not QUADLIB_ENABLED */ + +#define QUADLIB_I64_ABS(x) ((x) >= 0 ? (x) : -(x)) +#define QUADLIB_U64_ABS(x) ((x) >= 0 ? (x) : -(x)) + +#endif /* QUADLIB_ENABLED */ + +#define QuadLibI64Abs(x) QuadLibU64Abs(x) + +/* quad abs function always defined */ + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64Abs (QUADLIB_U64 x); + +/*****************************************************************************/ +/* CMP */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +#define QUADLIB_I64_EQ(x,y) QuadLibI64EQ(x,y) +#define QUADLIB_I64_NE(x,y) QuadLibI64NE(x,y) +#define QUADLIB_I64_GT(x,y) QuadLibI64GT(x,y) +#define QUADLIB_I64_GE(x,y) QuadLibI64GE(x,y) +#define QUADLIB_I64_LT(x,y) QuadLibI64LT(x,y) +#define QUADLIB_I64_LE(x,y) QuadLibI64LE(x,y) + +#define QUADLIB_U64_EQ(x,y) QuadLibU64EQ(x,y) +#define QUADLIB_U64_NE(x,y) QuadLibU64NE(x,y) +#define QUADLIB_U64_GT(x,y) QuadLibU64GT(x,y) +#define QUADLIB_U64_GE(x,y) QuadLibU64GE(x,y) +#define QUADLIB_U64_LT(x,y) QuadLibU64LT(x,y) +#define QUADLIB_U64_LE(x,y) QuadLibU64LE(x,y) + +#define QuadLibI64EQ(x,y) (QuadLibI64Cmp(x,y)==0) +#define QuadLibI64NE(x,y) (QuadLibI64Cmp(x,y)!=0) +#define QuadLibI64GT(x,y) (QuadLibI64Cmp(x,y)> 0) +#define QuadLibI64GE(x,y) (QuadLibI64Cmp(x,y)>=0) +#define QuadLibI64LT(x,y) (QuadLibI64Cmp(x,y)< 0) +#define QuadLibI64LE(x,y) (QuadLibI64Cmp(x,y)<=0) + +#define QuadLibU64EQ(x,y) (QuadLibU64Cmp(x,y)==0) +#define QuadLibU64NE(x,y) (QuadLibU64Cmp(x,y)!=0) +#define QuadLibU64GT(x,y) (QuadLibU64Cmp(x,y)> 0) +#define QuadLibU64GE(x,y) (QuadLibU64Cmp(x,y)>=0) +#define QuadLibU64LT(x,y) (QuadLibU64Cmp(x,y)< 0) +#define QuadLibU64LE(x,y) (QuadLibU64Cmp(x,y)<=0) + +QUADLIB_STATIC int32_t QuadLibU64Cmp ( + /*I*/ QUADLIB_U64 x, + /*I*/ QUADLIB_U64 y); + +QUADLIB_STATIC int32_t QuadLibI64Cmp ( + /*I*/ QUADLIB_I64 x, + /*I*/ QUADLIB_I64 y); + +#define QUADLIB_I64_EQ_0(x) (! QUADLIB_I64_NE_0(x)) +#define QUADLIB_I64_NE_0(x) (QUADLIB_U64_HI(x) | QUADLIB_U64_LO(x)) +#define QUADLIB_I64_GT_0(x) (QUADLIB_I64_GE_0(x) && QUADLIB_I64_NE_0(x)) +#define QUADLIB_I64_GE_0(x) (QUADLIB_I64_HI(x) >= 0) +#define QUADLIB_I64_LT_0(x) (QUADLIB_I64_HI(x) < 0) +#define QUADLIB_I64_LE_0(x) (QUADLIB_I64_LT_0(x) || QUADLIB_I64_EQ_0(x)) + +#define QUADLIB_U64_EQ_0(x) (! QUADLIB_U64_NE_0(x)) +#define QUADLIB_U64_NE_0(x) (QUADLIB_U64_HI(x) | QUADLIB_U64_LO(x)) +#define QUADLIB_U64_GT_0(x) (QUADLIB_U64_GE_0(x) && QUADLIB_U64_NE_0(x)) +#define QUADLIB_U64_GE_0(x) (QUADLIB_U64_HI(x) >= 0) + +#if 0 +#define QUADLIB_U64_LT_0(x) (QUADLIB_U64_HI(x) < 0) +#define QUADLIB_U64_LE_0(x) (QUADLIB_U64_LT_0(x) || QUADLIB_U64_EQ_0(x)) +#endif + +#else /* not QUADLIB_ENABLED */ + +#define QUADLIB_I64_EQ(x,y) ((x) == (y)) +#define QUADLIB_I64_NE(x,y) ((x) != (y)) +#define QUADLIB_I64_GT(x,y) ((x) > (y)) +#define QUADLIB_I64_GE(x,y) ((x) >= (y)) +#define QUADLIB_I64_LT(x,y) ((x) < (y)) +#define QUADLIB_I64_LE(x,y) ((x) <= (y)) + +#define QUADLIB_U64_EQ(x,y) ((x) == (y)) +#define QUADLIB_U64_NE(x,y) ((x) != (y)) +#define QUADLIB_U64_GT(x,y) ((x) > (y)) +#define QUADLIB_U64_GE(x,y) ((x) >= (y)) +#define QUADLIB_U64_LT(x,y) ((x) < (y)) +#define QUADLIB_U64_LE(x,y) ((x) <= (y)) + +#define QUADLIB_I64_EQ_0(x) ((x) == 0) +#define QUADLIB_I64_NE_0(x) ((x) != 0) +#define QUADLIB_I64_GT_0(x) ((x) > 0) +#define QUADLIB_I64_GE_0(x) ((x) >= 0) +#define QUADLIB_I64_LT_0(x) ((x) < 0) +#define QUADLIB_I64_LE_0(x) ((x) <= 0) + +#define QUADLIB_U64_EQ_0(x) ((x) == 0) +#define QUADLIB_U64_NE_0(x) ((x) != 0) +#define QUADLIB_U64_GT_0(x) ((x) > 0) +#define QUADLIB_U64_GE_0(x) ((x) >= 0) + +#if 0 +#define QUADLIB_U64_LT_0(x) ((x) < 0) +#define QUADLIB_U64_LE_0(x) ((x) <= 0) +#endif + +#endif /* QUADLIB_ENABLED */ + + +/*****************************************************************************/ +/* I32 OVERFLOW CHECK */ +/*****************************************************************************/ + + +#define QUADLIB_I64_NOT_OVERFLOW_I32(x) \ + ( ((QUADLIB_I64_HI(x) == 0) && (QUADLIB_I64_LO(x) >= 0)) \ + || ((QUADLIB_I64_HI(x) == -1) && (QUADLIB_I64_LO(x) < 0)) ) /**/ + + +#define QUADLIB_I64_OVERFLOW_I32(x) (! QUADLIB_I64_NOT_OVERFLOW_I32(x)) + + +#define QUADLIB_U64_NOT_OVERFLOW_I32(x) \ + ((QUADLIB_I64_HI(x) == 0) && (QUADLIB_I64_LO(x) >= 0)) /**/ + + +#define QUADLIB_U64_OVERFLOW_I32(x) (! QUADLIB_U64_NOT_OVERFLOW_I32(x)) + + +#define QUADLIB_I64_OVERFLOW_U32(x) (QUADLIB_I64_HI(x) != 0) +#define QUADLIB_U64_OVERFLOW_U32(x) (QUADLIB_I64_HI(x) != 0) + + +/*****************************************************************************/ +/* SHL */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +#define QUADLIB_I64_SHL(x,n) QuadLibU64SHL(x,n) +#define QUADLIB_U64_SHL(x,n) QuadLibU64SHL(x,n) + +#define QUADLIB_I64_SHL1(x) QuadLibU64SHL1(x) +#define QUADLIB_U64_SHL1(x) QuadLibU64SHL1(x) + +#define QUADLIB_I64_SHL4(x) QuadLibU64SHL4(x) +#define QUADLIB_U64_SHL4(x) QuadLibU64SHL4(x) + +#define QUADLIB_I64_SHL_EQ(x,n) x = QUADLIB_I64_SHL(x,n) +#define QUADLIB_U64_SHL_EQ(x,n) x = QUADLIB_U64_SHL(x,n) + +#define QUADLIB_I64_SHL1_EQ(x) x = QUADLIB_I64_SHL1(x) +#define QUADLIB_U64_SHL1_EQ(x) x = QUADLIB_U64_SHL1(x) + +#define QUADLIB_I64_SHL4_EQ(x) x = QUADLIB_I64_SHL4(x) +#define QUADLIB_U64_SHL4_EQ(x) x = QUADLIB_U64_SHL4(x) + +#define QUADLIB_I64_SHL1_EQ_INLINE(x) QUADLIB_U64_SHL1_EQ_INLINE(x) + + +#define QUADLIB_U64_SHL1_EQ_INLINE(x) \ + { \ + x.hi.u <<= 1; \ + if (x.lo.i < 0) \ + { \ + x.hi.u++; \ + } \ + x.lo.u <<= 1; \ + } /**/ + + +#define QUADLIB_I64_SHL4_EQ_INLINE(x) QUADLIB_U64_SHL4_EQ_INLINE(x) + + +#define QUADLIB_U64_SHL4_EQ_INLINE(x) \ + { \ + x.hi.u = (x.hi.u << 4) | (x.lo.u >> 28); \ + x.lo.u <<= 4; \ + } /**/ + + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64SHL ( + QUADLIB_U64 /*I*/ value, + int32_t /*I*/ shift); + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64SHL1 ( + QUADLIB_U64 /*I*/ value); + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64SHL4 ( + QUADLIB_U64 /*I*/ value); + +#else /* not QUADLIB_ENABLED */ + +#define QUADLIB_I64_SHL(x,n) ((x) << n) +#define QUADLIB_U64_SHL(x,n) ((x) << n) + +#define QUADLIB_I64_SHL1(x) ((x) << 1) +#define QUADLIB_U64_SHL1(x) ((x) << 1) + +#define QUADLIB_I64_SHL4(x) ((x) << 4) +#define QUADLIB_U64_SHL4(x) ((x) << 4) + +#define QUADLIB_I64_SHL_EQ(x,n) x = ((x) << n) +#define QUADLIB_U64_SHL_EQ(x,n) x = ((x) << n) + +#define QUADLIB_I64_SHL1_EQ(x) x <<= 1 +#define QUADLIB_U64_SHL1_EQ(x) x <<= 1 + +#define QUADLIB_I64_SHL1_EQ_INLINE(x) QUADLIB_I64_SHL1_EQ(x) +#define QUADLIB_U64_SHL1_EQ_INLINE(x) QUADLIB_U64_SHL1_EQ(x) + +#define QUADLIB_I64_SHL4_EQ(x) x <<= 4 +#define QUADLIB_U64_SHL4_EQ(x) x <<= 4 + +#define QUADLIB_I64_SHL4_EQ_INLINE(x) QUADLIB_I64_SHL4_EQ(x) +#define QUADLIB_U64_SHL4_EQ_INLINE(x) QUADLIB_U64_SHL4_EQ(x) + +#endif /* QUADLIB_ENABLED */ + +/*****************************************************************************/ +/* SHR */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +#define QUADLIB_I64_SHR(x,n) QuadLibI64SHR(x,n) +#define QUADLIB_U64_SHR(x,n) QuadLibU64SHR(x,n) + +#define QUADLIB_I64_SHR1(x) QuadLibI64SHR1(x) +#define QUADLIB_U64_SHR1(x) QuadLibU64SHR1(x) + +#define QUADLIB_I64_SHR4(x) QuadLibI64SHR4(x) +#define QUADLIB_U64_SHR4(x) QuadLibU64SHR4(x) + +#define QUADLIB_I64_SHR_EQ(x,n) x = QUADLIB_I64_SHR(x,n) +#define QUADLIB_U64_SHR_EQ(x,n) x = QUADLIB_U64_SHR(x,n) + +#define QUADLIB_I64_SHR1_EQ(x) x = QUADLIB_I64_SHR1(x) +#define QUADLIB_U64_SHR1_EQ(x) x = QUADLIB_U64_SHR1(x) + +#define QUADLIB_I64_SHR4_EQ(x) x = QUADLIB_I64_SHR4(x) +#define QUADLIB_U64_SHR4_EQ(x) x = QUADLIB_U64_SHR4(x) + + +#define QUADLIB_I64_SHR1_EQ_INLINE(x) \ + { \ + x.lo.u >>= 1; \ + if (x.hi.u & 1) \ + { \ + x.lo.u |= QUADLIB_U32_HIGHBIT; \ + } \ + x.hi.i >>= 1; /* signed */ \ + } /**/ + + +#define QUADLIB_U64_SHR1_EQ_INLINE(x) \ + { \ + x.lo.u >>= 1; \ + if (x.hi.u & 1) \ + { \ + x.lo.u |= QUADLIB_U32_HIGHBIT; \ + } \ + x.hi.u >>= 1; /* unsigned */ \ + } /**/ + + +#define QUADLIB_I64_SHR4_EQ_INLINE(x) \ + { \ + x.lo.u = (x.lo.u >> 4) | (x.hi.u << 28); \ + x.hi.i >>= 4; /* signed */ \ + } /**/ + + +#define QUADLIB_U64_SHR4_EQ_INLINE(x) \ + { \ + x.lo.u = (x.lo.u >> 4) | (x.hi.u << 28); \ + x.hi.u >>= 4; /* unsigned */ \ + } /**/ + + +QUADLIB_STATIC QUADLIB_I64 QuadLibI64SHR ( + QUADLIB_U64 /*I*/ value, + int32_t /*I*/ shift); + +QUADLIB_STATIC QUADLIB_I64 QuadLibI64SHR1 ( + QUADLIB_U64 /*I*/ value); + +QUADLIB_STATIC QUADLIB_I64 QuadLibI64SHR4 ( + QUADLIB_U64 /*I*/ value); + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64SHR ( + QUADLIB_U64 /*I*/ value, + int32_t /*I*/ shift); + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64SHR1 ( + QUADLIB_U64 /*I*/ value); + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64SHR4 ( + QUADLIB_U64 /*I*/ value); + +#else /* not QUADLIB_ENABLED */ + +#define QUADLIB_I64_SHR(x,n) ((QUADLIB_I64)x) >> n +#define QUADLIB_U64_SHR(x,n) ((QUADLIB_U64)x) >> n + +#define QUADLIB_I64_SHR1(x) ((QUADLIB_I64)x) >> 1 +#define QUADLIB_U64_SHR1(x) ((QUADLIB_U64)x) >> 1 + +#define QUADLIB_I64_SHR4(x) ((QUADLIB_I64)x) >> 4 +#define QUADLIB_U64_SHR4(x) ((QUADLIB_U64)x) >> 4 + +#define QUADLIB_I64_SHR_EQ(x,n) x = ((QUADLIB_I64)x) >> n +#define QUADLIB_U64_SHR_EQ(x,n) x = ((QUADLIB_U64)x) >> n + +#define QUADLIB_I64_SHR1_EQ(x) x = ((QUADLIB_I64)x) >> 1 +#define QUADLIB_U64_SHR1_EQ(x) x = ((QUADLIB_U64)x) >> 1 + +#define QUADLIB_I64_SHR4_EQ(x) x = ((QUADLIB_I64)x) >> 4 +#define QUADLIB_U64_SHR4_EQ(x) x = ((QUADLIB_U64)x) >> 4 + +#define QUADLIB_I64_SHR1_EQ_INLINE(x) QUADLIB_I64_SHR1_EQ(x) +#define QUADLIB_U64_SHR1_EQ_INLINE(x) QUADLIB_U64_SHR1_EQ(x) + +#define QUADLIB_I64_SHR4_EQ_INLINE(x) QUADLIB_I64_SHR4_EQ(x) +#define QUADLIB_U64_SHR4_EQ_INLINE(x) QUADLIB_U64_SHR4_EQ(x) + +#endif /* QUADLIB_ENABLED */ + +/*****************************************************************************/ +/* CONVERT */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +#define QUADLIB_I64_CASTI64N(x) QuadLibI64CastI64N(&x,sizeof(x)) +#define QUADLIB_U64_CASTU64N(x) QuadLibU64CastU64N(&x,sizeof(x)) + +QUADLIB_STATIC QUADLIB_I64 QuadLibI64CastI64N(void * x, size_t n); +QUADLIB_STATIC QUADLIB_U64 QuadLibU64CastU64N(void * x, size_t n); + +#define QUADLIB_I64N_CASTI64(x) QuadLibI64NCastI64(x) +#define QUADLIB_U64N_CASTU64(x) QuadLibU64NCastU64(x) + +QUADLIB_STATIC QUADLIB_I64N QuadLibI64NCastI64(QUADLIB_I64 x); +QUADLIB_STATIC QUADLIB_U64N QuadLibU64NCastU64(QUADLIB_U64 x); + + +#else /* not QUADLIB_ENABLED */ + +#define QUADLIB_I64_CASTI64N(x) ((QUADLIB_I64)x) +#define QUADLIB_U64_CASTU64N(x) ((QUADLIB_U64)x) +#define QUADLIB_I64N_CASTI64(x) ((QUADLIB_I64N)x) +#define QUADLIB_U64N_CASTU64(x) ((QUADLIB_U64N)x) + +#endif /* QUADLIB_ENABLED */ + + +/*****************************************************************************/ +/* CAST */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +#define QUADLIB_I64_CASTI32(x) QuadLibI64CastI32((int32_t)x) +#define QUADLIB_I64_CASTU32(x) QuadLibI64CastI32((uint32_t)x) + +QUADLIB_STATIC QUADLIB_I64 QuadLibI64CastI32 (int32_t x); + +#define QUADLIB_U64_CASTU32(x) QuadLibU64CastU32((uint32_t)x) +#define QUADLIB_U64_CASTI32(x) QuadLibU64CastU32((int32_t)x) + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64CastU32 (uint32_t x); + +#define QUADLIB_I32_CASTI64(x) QuadLibI32CastI64(x) +#define QUADLIB_U32_CASTI64(x) ((QUADLIB_U64) QuadLibI32CastI64(x)) + +QUADLIB_STATIC int32_t QuadLibI32CastI64 (QUADLIB_I64 x); + +#define QUADLIB_U32_CASTU64(x) QuadLibU32CastU64(x) +#define QUADLIB_I32_CASTU64(x) ((int32_t) QuadLibU32CastU64(x)) + +QUADLIB_STATIC uint32_t QuadLibU32CastU64 (QUADLIB_U64 x); + +#else /* not QUADLIB_ENABLED */ + +#define QUADLIB_I64_CASTI32(x) ((QUADLIB_I64) (x)) +#define QUADLIB_I64_CASTU32(x) ((QUADLIB_I64) (x)) + +#define QUADLIB_U64_CASTI32(x) ((QUADLIB_U64) (x)) +#define QUADLIB_U64_CASTU32(x) ((QUADLIB_U64) (x)) + +#define QUADLIB_I32_CASTI64(x) ((int32_t) (x)) +#define QUADLIB_I32_CASTU64(x) ((int32_t) (x)) + +#define QUADLIB_U32_CASTI64(x) ((uint32_t) (x)) +#define QUADLIB_U32_CASTU64(x) ((uint32_t) (x)) + +#endif /* QUADLIB_ENABLED */ + +/*****************************************************************************/ +/* GET/SET */ +/*****************************************************************************/ + +#define QUADLIB_I64_HI(x) (*(QUADLIB_I64_TYPE *)(&x)).hi.i +#define QUADLIB_U64_HI(x) (*(QUADLIB_U64_TYPE *)(&x)).hi.u +#define QUADLIB_I64_LO(x) (*(QUADLIB_I64_TYPE *)(&x)).lo.i +#define QUADLIB_U64_LO(x) (*(QUADLIB_U64_TYPE *)(&x)).lo.u + +#define FILETIME_TO_QUADLIB_I64 FILETIME_TO_QUADLIB_U64 + + +#define FILETIME_TO_QUADLIB_U64(f,q) \ + (*(QUADLIB_U64_TYPE *)(q)).lo.u = (f)->dwLowDateTime; \ + (*(QUADLIB_U64_TYPE *)(q)).hi.u = (f)->dwHighDateTime /**/ + + +#define QUADLIB_I64_TO_FILETIME QUADLIB_U64_TO_FILETIME + + +#define QUADLIB_U64_TO_FILETIME(q,f) \ + (f)->dwLowDateTime = (*(QUADLIB_U64_TYPE *)(q)).lo.u; \ + (f)->dwHighDateTime = (*(QUADLIB_U64_TYPE *)(q)).hi.u /**/ + + +/*****************************************************************************/ +/* MUL */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +#define QUADLIB_I64_MUL(x,y) QuadLibI64Mul(x,y) +#define QUADLIB_U64_MUL(x,y) QuadLibU64Mul(x,y) +#define QUADLIB_I64_MUL_EQ(x,y) x = QuadLibI64Mul(x,y) +#define QUADLIB_U64_MUL_EQ(x,y) x = QuadLibU64Mul(x,y) + +#define QUADLIB_I64_MUL10(x) QuadLibI64Mul10(x) +#define QUADLIB_U64_MUL10(x) QuadLibU64Mul10(x) +#define QUADLIB_I64_MUL10_EQ(x) x = QuadLibI64Mul10(x) +#define QUADLIB_U64_MUL10_EQ(x) x = QuadLibU64Mul10(x) + +#define QuadLibI64Mul(x,y) QuadLibU64Mul(x,y) +#define QuadLibI64Mul10(x) QuadLibU64Mul10(x) + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64Mul ( + QUADLIB_U64 /*I*/ one, + QUADLIB_U64 /*I*/ two); + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64Mul10 ( + QUADLIB_U64 /*I*/ x); + +#else /* not QUADLIB_ENABLED */ + +#define QUADLIB_I64_MUL(x,y) (x * y) +#define QUADLIB_U64_MUL(x,y) (x * y) +#define QUADLIB_I64_MUL_EQ(x,y) x *= y +#define QUADLIB_U64_MUL_EQ(x,y) x *= y + +#define QUADLIB_I64_MUL10(x) (x * ((QUADLIB_I64) 10)) +#define QUADLIB_U64_MUL10(x) (x * ((QUADLIB_U64) 10)) +#define QUADLIB_I64_MUL10_EQ(x) x *= ((QUADLIB_I64) 10) +#define QUADLIB_U64_MUL10_EQ(x) x *= ((QUADLIB_U64) 10) + +#endif /* QUADLIB_ENABLED */ + +/*****************************************************************************/ +/* STR TO I64/U64 */ +/*****************************************************************************/ + +QUADLIB_STATIC QUADLIB_I64 StrAToQuadLibI64 ( + char * /*I*/ str); + +QUADLIB_STATIC QUADLIB_U64 StrAToQuadLibU64 ( + char * /*I*/ str); + +#ifdef QUADLIB_NATIVE64_ENABLED + +#define QUADLIB_I64_NUM(x) (x) +#define QUADLIB_U64_NUM(x) (x) + +#else /* not QUADLIB_NATIVE64_ENABLED */ + +#define QUADLIB_I64_NUM(x) StrAToQuadLibI64 (#x) +#define QUADLIB_U64_NUM(x) StrAToQuadLibU64 (#x) + +#endif /* QUADLIB_NATIVE64_ENABLED */ + + +/*****************************************************************************/ +/* I64/U64 TO STR */ +/*****************************************************************************/ + + +QUADLIB_STATIC void QuadLibU64ToFixedStrA ( + QUADLIB_U64 /*I*/ qValue, + QUADLIB_STRINGA * /*O*/ pString); + + +QUADLIB_STATIC void QuadLibI64ToFixedStrA ( + QUADLIB_I64 /*I*/ qValue, + QUADLIB_STRINGA * /*O*/ pString); + + +QUADLIB_STATIC void QuadLibU64ToStrA ( + QUADLIB_U64 /*I*/ qValue, + QUADLIB_STRINGA * /*O*/ pString); + + +QUADLIB_STATIC void QuadLibI64ToStrA ( + QUADLIB_I64 /*I*/ qValue, + QUADLIB_STRINGA * /*O*/ pString); + + +/*****************************************************************************/ +/* DIV/MOD */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +#define QUADLIB_I64_DIV(x,y) QuadLibI64Div(x,y) +#define QUADLIB_U64_DIV(x,y) QuadLibU64Div(x,y) +#define QUADLIB_I64_DIV_EQ(x,y) x = QuadLibI64Div(x,y) +#define QUADLIB_U64_DIV_EQ(x,y) x = QuadLibU64Div(x,y) + +#define QUADLIB_I64_MOD(x,y) QuadLibI64Mod(x,y) +#define QUADLIB_U64_MOD(x,y) QuadLibU64Mod(x,y) +#define QUADLIB_I64_MOD_EQ(x,y) x = QuadLibI64Mod(x,y) +#define QUADLIB_U64_MOD_EQ(x,y) x = QuadLibU64Mod(x,y) + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64DivMod ( + QUADLIB_U64 u64Dividend, + QUADLIB_U64 u64Divisor, + QUADLIB_U64 *pu64Remainder); + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64Div ( + QUADLIB_U64 u64Dividend, + QUADLIB_U64 u64Divisor); + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64Mod ( + QUADLIB_U64 u64Dividend, + QUADLIB_U64 u64Divisor); + +QUADLIB_STATIC QUADLIB_I64 QuadLibI64DivMod ( + QUADLIB_I64 s64Dividend, + QUADLIB_I64 s64Divisor, + QUADLIB_I64 *ps64Remainder); + +QUADLIB_STATIC QUADLIB_I64 QuadLibI64Div ( + QUADLIB_I64 s64Dividend, + QUADLIB_I64 s64Divisor); + +QUADLIB_STATIC QUADLIB_I64 QuadLibI64Mod ( + QUADLIB_I64 s64Dividend, + QUADLIB_I64 s64Divisor); + +#else /* not QUADLIB_ENABLED */ + +#define QUADLIB_I64_DIV(x,y) (x / y) +#define QUADLIB_U64_DIV(x,y) (x / y) +#define QUADLIB_I64_DIV_EQ(x,y) x /= y +#define QUADLIB_U64_DIV_EQ(x,y) x /= y + +#define QUADLIB_I64_MOD(x,y) (x % y) +#define QUADLIB_U64_MOD(x,y) (x % y) +#define QUADLIB_I64_MOD_EQ(x,y) x %= y +#define QUADLIB_U64_MOD_EQ(x,y) x %= y + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64DivMod ( + QUADLIB_U64 u64Dividend, + QUADLIB_U64 u64Divisor, + QUADLIB_U64 *pu64Remainder); + +QUADLIB_STATIC QUADLIB_I64 QuadLibI64DivMod ( + QUADLIB_I64 s64Dividend, + QUADLIB_I64 s64Divisor, + QUADLIB_I64 *ps64Remainder); + +#endif /* QUADLIB_ENABLED */ + +/*****************************************************************************/ +/* END */ +/*****************************************************************************/ + +#ifdef __cplusplus +} +#endif + + +#endif /* _STDTIME_QUADLIB_H_B07CB807_8BFC_41B3_872E_EDD251FD6AEB_ */ + diff --git a/mmslib/inc/stdtime_stdint.h b/mmslib/inc/stdtime_stdint.h new file mode 100644 index 0000000..8aab3e8 --- /dev/null +++ b/mmslib/inc/stdtime_stdint.h @@ -0,0 +1,237 @@ +/*****************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER **********************************************/ +/*****************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2005 All Rights Reserved */ +/* */ +/* MODULE NAME : stdint.h */ +/* PLATFORM : Microsoft Windows W32 platform */ +/* PRODUCT(S) : general usage */ +/* */ +/* MODULE DESCRIPTION: */ +/* Implementation of C99 standard header file "stdint.h" */ +/* */ +/* Implementation is based on ISO/IEC 9899:1999 TC2 Programming Language C */ +/* */ +/* MODIFICATION LOG: */ +/* Date Who Rev Comments */ +/* -------- --- --- ----------------------------------------------------- */ +/* 06/07/06 RLH 02 Numerous features added, see stdtime.doc */ +/* 02/25/06 RLH 01 Created */ +/*****************************************************************************/ + +/* STDINT.H for Microsoft Windows */ + + +#ifndef _STDTIME_STDINT_H_1BA49070_CC19_4880_8283_69F38C4F8F59_ +#define _STDTIME_STDINT_H_1BA49070_CC19_4880_8283_69F38C4F8F59_ + + +#include +#include +#include + +#ifdef __cplusplus +extern "C" { +#endif +#if 1 /*defined() */ +/* +// typedef int8_t char; +// typedef int16_t short; +// typedef int32_t int; + +// typedef uint8_t unsigned char; +// typedef uint16_t unsigned short ; +// typedef uint32_t unsigned int; +*/ +/* exact-wide integer types */ + +typedef __int8 int8_t; +typedef __int16 int16_t; +typedef __int32 int32_t; +typedef __int64 int64_t; + +typedef unsigned __int8 uint8_t; +typedef unsigned __int16 uint16_t; +typedef unsigned __int32 uint32_t; +typedef unsigned __int64 uint64_t; + +/* minimum-wide integer types */ + +typedef __int8 int_least8_t; +typedef __int16 int_least16_t; +typedef __int32 int_least32_t; +typedef __int64 int_least64_t; + +typedef unsigned __int8 uint_least8_t; +typedef unsigned __int16 uint_least16_t; +typedef unsigned __int32 uint_least32_t; +typedef unsigned __int64 uint_least64_t; + +/* fastest minimum-wide integer types */ + +typedef __int8 int_fast8_t; +typedef __int16 int_fast16_t; +typedef __int32 int_fast32_t; +typedef __int64 int_fast64_t; + +typedef unsigned __int8 uint_fast8_t; +typedef unsigned __int16 uint_fast16_t; +typedef unsigned __int32 uint_fast32_t; +typedef unsigned __int64 uint_fast64_t; + +/* integer types capable of holding object pointers */ + +/* intptr_t, uintptr_t : see stddef.h */ + +/* greatest-width integer types */ + +typedef __int64 intmax_t; +typedef unsigned __int64 uintmax_t; + +#endif +/* macros for limits of exact-width integer types */ +/* only define in C++ if user-requested per C99 standard */ + +#if (!defined(__cplusplus)) || defined(__STDC_LIMIT_MACROS) + +/* fundamental limits : see limits.h */ + +#define INT8_MIN ((int8_t)(SCHAR_MIN)) +#define INT8_MAX ((int8_t)(SCHAR_MAX)) +#define UINT8_MAX ((uint8_t)(UCHAR_MAX)) + +#define INT16_MIN ((int16_t)(SHRT_MIN)) +#define INT16_MAX ((int16_t)(SHRT_MAX)) +#define UINT16_MAX ((uint16_t)(USHRT_MAX)) + +#define INT32_MIN ((int32_t)(INT_MIN)) +#define INT32_MAX ((int32_t)(INT_MAX)) +#define UINT32_MAX ((uint32_t)(UINT_MAX)) + +#define INT64_MIN ((int64_t)(_I64_MIN)) +#define INT64_MAX ((int64_t)(_I64_MAX)) +#define UINT64_MAX ((uint64_t)(_UI64_MAX)) + +/* limits of minimum-width integer types */ + +#define INT_LEAST8_MIN INT8_MIN +#define INT_LEAST8_MAX INT8_MAX +#define UINT_LEAST8_MAX UINT8_MAX + +#define INT_LEAST16_MIN INT16_MIN +#define INT_LEAST16_MAX INT16_MAX +#define UINT_LEAST16_MAX UINT16_MAX + +#define INT_LEAST32_MIN INT32_MIN +#define INT_LEAST32_MAX INT32_MAX +#define UINT_LEAST32_MAX UINT32_MAX + +#define INT_LEAST64_MIN INT64_MIN +#define INT_LEAST64_MAX INT64_MAX +#define UINT_LEAST64_MAX UINT64_MAX + +/* limits of fastest minimum-width integer types */ + +#define INT_FAST8_MIN INT8_MIN +#define INT_FAST8_MAX INT8_MAX +#define UINT_FAST8_MAX UINT8_MAX + +#define INT_FAST16_MIN INT16_MIN +#define INT_FAST16_MAX INT16_MAX +#define UINT_FAST16_MAX UINT16_MAX + +#define INT_FAST32_MIN INT32_MIN +#define INT_FAST32_MAX INT32_MAX +#define UINT_FAST32_MAX UINT32_MAX + +#define INT_FAST64_MIN INT64_MIN +#define INT_FAST64_MAX INT64_MAX +#define UINT_FAST64_MAX UINT64_MAX + +/* limits of greatest-width integer types */ + +#define INTMAX_MIN INT64_MIN +#define INTMAX_MAX INT64_MAX +#define UINTMAX_MAX UINT64_MAX + +/* limits of other integer types */ + +#ifndef PTRDIFF_MIN +#ifdef _WIN64 +#define PTRDIFF_MIN INT64_MIN +#else +#define PTRDIFF_MIN INT32_MIN +#endif +#endif + +#ifndef PTRDIFF_MAX +#ifdef _WIN64 +#define PTRDIFF_MAX INT64_MAX +#else +#define PTRDIFF_MAX INT32_MAX +#endif +#endif + +#ifndef SIG_ATOMIC_MIN +#define SIG_ATOMIC_MIN INT32_MIN +#endif + +#ifndef SIG_ATOMIC_MAX +#define SIG_ATOMIC_MAX INT32_MAX +#endif + +#ifndef SIZE_MAX +#ifdef _WIN64 +#define SIZE_MAX UINT64_MAX +#else +#define SIZE_MAX UINT32_MAX +#endif +#endif + +#ifndef WCHAR_MIN +#define WCHAR_MIN ((wchar_t)(0)) +#endif + +#ifndef WCHAR_MAX +#define WCHAR_MAX ((wchar_t)(USHRT_MAX)) +#endif + +#ifndef WINT_MIN +#define WINT_MIN ((wint_t)(0)) +#endif + +#ifndef WINT_MAX +#define WINT_MAX ((wint_t)(USHRT_MAX)) +#endif + +#endif /* (!defined(__cplusplus)) || defined(__STDC_LIMIT_MACROS) */ + + +/* macros for minimum-width integer constants */ +/* only define in C++ if user-requested per C99 standard */ + +#if (!defined(__cplusplus)) || defined(__STDC_CONSTANT_MACROS) + +#define INT8_C(x) (int8_t)(x) +#define INT16_C(x) (int16_t)(x) +#define INT32_C(x) (int32_t)(x) +#define INT64_C(x) (int64_t)(x##i64) + +#define UINT8_C(x) (uint8_t)(x##u) +#define UINT16_C(x) (uint16_t)(x##u) +#define UINT32_C(x) (uint32_t)(x##u) +#define UINT64_C(x) (uint64_t)(x##ui64) + +#define INTMAX_C(x) INT64_C(x) +#define UINTMAX_C(x) UINT64_C(x) + +#endif /* (!defined(__cplusplus)) || defined(__STDC_CONSTANT_MACROS) */ + + +#ifdef __cplusplus +} +#endif + +#endif /* _STDTIME_STDINT_H_1BA49070_CC19_4880_8283_69F38C4F8F59_ */ + diff --git a/mmslib/inc/stdtime_timezone_csv.h b/mmslib/inc/stdtime_timezone_csv.h new file mode 100644 index 0000000..cdf2c26 --- /dev/null +++ b/mmslib/inc/stdtime_timezone_csv.h @@ -0,0 +1,381 @@ +{{"ID;CC","STDABBR","STDNAME","DSTABBR","DSTNAME","GMToffset","DSTadjustment","DSTStartDaterule","Starttime","DSTEnddaterule","Endtime"}}, +{{"Africa/Abidjan;CI","GMT","GMT","","","+00:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Accra;GH","GMT","GMT","","","+00:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Addis_Ababa;ET","EAT","EAT","","","+03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Algiers;DZ","CET","CET","","","+01:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Asmera;ER","EAT","EAT","","","+03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Bamako;ML","GMT","GMT","","","+00:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Bangui;CF","WAT","WAT","","","+01:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Banjul;GM","GMT","GMT","","","+00:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Bissau;GW","GMT","GMT","","","+00:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Blantyre;MW","CAT","CAT","","","+02:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Brazzaville;CG","WAT","WAT","","","+01:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Bujumbura;BI","CAT","CAT","","","+02:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Cairo;EG","EET","EET","EEST","EEST","+02:00:00","+01:00:00","-1;5;4","+00:00:00","-1;5;9","+00:00:00"}}, +{{"Africa/Casablanca;MA","WET","WET","","","+00:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Ceuta;ES","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Africa/Conakry;GN","GMT","GMT","","","+00:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Dakar;SN","GMT","GMT","","","+00:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Dar_es_Salaam;TZ","EAT","EAT","","","+03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Djibouti;DJ","EAT","EAT","","","+03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Douala;CM","WAT","WAT","","","+01:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/El_Aaiun;EH","WET","WET","","","+00:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Freetown;SL","GMT","GMT","","","+00:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Gaborone;BW","CAT","CAT","","","+02:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Harare;ZW","CAT","CAT","","","+02:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Johannesburg;ZA","SAST","SAST","","","+02:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Kampala;UG","EAT","EAT","","","+03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Khartoum;SD","EAT","EAT","","","+03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Kigali;RW","CAT","CAT","","","+02:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Kinshasa;CF","WAT","WAT","","","+01:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Lagos;NG","WAT","WAT","","","+01:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Libreville;GA","WAT","WAT","","","+01:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Lome;TG","GMT","GMT","","","+00:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Luanda;AO","WAT","WAT","","","+01:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Lubumbashi;CF","CAT","CAT","","","+02:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Lusaka;ZM","CAT","CAT","","","+02:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Malabo;GQ","WAT","WAT","","","+01:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Maputo;MZ","CAT","CAT","","","+02:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Maseru;LS","SAST","SAST","","","+02:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Mbabane;SZ","SAST","SAST","","","+02:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Mogadishu;SO","EAT","EAT","","","+03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Monrovia;LR","GMT","GMT","","","+00:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Nairobi;KE","EAT","EAT","","","+03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Ndjamena;TD","WAT","WAT","","","+01:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Niamey;NE","WAT","WAT","","","+01:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Nouakchott;MR","GMT","GMT","","","+00:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Ouagadougou;BF","GMT","GMT","","","+00:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Porto-Novo;BJ","WAT","WAT","","","+01:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Sao_Tome;ST","GMT","GMT","","","+00:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Timbuktu;ML","GMT","GMT","","","+00:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Tripoli;LY","EET","EET","","","+02:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Tunis;TN","CET","CET","","","+01:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Africa/Windhoek;NA","WAT","WAT","WAST","WAST","+01:00:00","+01:00:00","1;0;9","+02:00:00","1;0;4","+02:00:00"}}, +{{"America/Adak;US/AK","HAST","HAST","HADT","HADT","-10:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Anchorage;US/AK","AKST","AKST","AKDT","AKDT","-09:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Anguilla;AI","AST","AST","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Antigua;AG","AST","AST","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Araguaina;BR","BRT","BRT","BRST","BRST","-03:00:00","+01:00:00","1;0;11","+00:00:00","-1;0;2","+00:00:00"}}, +{{"America/Aruba;AW","AST","AST","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Asuncion;PY","PYT","PYT","PYST","PYST","-04:00:00","+01:00:00","1;0;10","+00:00:00","1;0;3","+00:00:00"}}, +{{"America/Barbados;BB","AST","AST","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Belem;BR","BRT","BRT","","","-03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Belize;BZ","CST","CST","","","-06:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Boa_Vista;BR","AMT","AMT","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Bogota;CO","COT","COT","","","-05:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Boise;US/ID","MST","MST","MDT","MDT","-07:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Buenos_Aires;AR","ART","ART","","","-03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Cambridge_Bay;CA/NU","MST","MST","MDT","MDT","-07:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Cancun;MX","CST","CST","CDT","CDT","-06:00:00","+01:00:00","1;0;5","+02:00:00","-1;0;9","+02:00:00"}}, +{{"America/Caracas;VE","VET","VET","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Catamarca;AR","ART","ART","","","-03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Cayenne;GF","GFT","GFT","","","-03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Cayman;KY","EST","EST","","","-05:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Chicago;US/IL","CST","Central Standard Time","CDT","Central Daylight Time","-06:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Chihuahua;MX","MST","MST","MDT","MDT","-07:00:00","+01:00:00","1;0;5","+02:00:00","-1;0;9","+02:00:00"}}, +{{"America/Cordoba;AR","ART","ART","","","-03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Costa_Rica;CR","CST","CST","","","-06:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Cuiaba;BR","AMT","AMT","AMST","AMST","-04:00:00","+01:00:00","1;0;11","+00:00:00","-1;0;2","+00:00:00"}}, +{{"America/Curacao;AN","AST","AST","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Danmarkshavn;GL","GMT","GMT","","","+00:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Dawson;CA/YT","PST","PST","PDT","PDT","-08:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Dawson_Creek;CA/BC","MST","MST","","","-07:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Denver;US/CO","MST","Mountain Standard Time","MDT","Mountain Daylight Time","-07:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Detroit;US/MI","EST","EST","EDT","EDT","-05:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Dominica;DM","AST","AST","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Edmonton;CA/AB","MST","MST","MDT","MDT","-07:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Eirunepe;BR","ACT","ACT","","","-05:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/El_Salvador;SV","CST","CST","","","-06:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Fortaleza;BR","BRT","BRT","BRST","BRST","-03:00:00","+01:00:00","1;0;11","+00:00:00","-1;0;2","+00:00:00"}}, +{{"America/Glace_Bay;CA/NS","AST","AST","ADT","ADT","-04:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Godthab;GL","WGT","WGT","WGST","WGST","-03:00:00","+01:00:00","-1;6;3","+22:00:00","-1;6;10","+23:00:00"}}, +{{"America/Goose_Bay;CA/NL","AST","AST","ADT","ADT","-04:00:00","+01:00:00","1;0;4","+00:01:00","-1;0;10","+00:01:00"}}, +{{"America/Grand_Turk;TC","EST","EST","EDT","EDT","-05:00:00","+01:00:00","1;0;4","+00:00:00","-1;0;10","+00:00:00"}}, +{{"America/Grenada;GD","AST","AST","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Guadeloupe;GP","AST","AST","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Guatemala;GT","CST","CST","","","-06:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Guayaquil;EC","ECT","ECT","","","-05:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Guyana;GY","GYT","GYT","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Halifax;CA/NS","AST","AST","ADT","ADT","-04:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Havana;CU","CST","CST","CDT","CDT","-05:00:00","+01:00:00","1;0;4","+00:00:00","-1;0;10","+01:00:00"}}, +{{"America/Hermosillo;MX","MST","MST","","","-07:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Indiana/Indianapolis;US/IN","EST","EST","","","-05:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Indiana/Knox;US/IN","EST","EST","","","-05:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Indiana/Marengo;US/IN","EST","EST","","","-05:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Indiana/Vevay;US/IN","EST","EST","","","-05:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Indianapolis;US/IN","EST","EST","","","-05:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Inuvik;CA/NT","MST","MST","MDT","MDT","-07:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Iqaluit;CA/NU","EST","EST","EDT","EDT","-05:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Jamaica;JM","EST","EST","","","-05:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Jujuy;AR","ART","ART","","","-03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Juneau;US/AK","AKST","AKST","AKDT","AKDT","-09:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Kentucky/Louisville;US/KY","EST","EST","EDT","EDT","-05:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Kentucky/Monticello;US/KY","EST","EST","EDT","EDT","-05:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/La_Paz;BO","BOT","BOT","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Lima;PE","PET","PET","","","-05:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Los_Angeles;US/CA","PST","Pacific Standard Time","PDT","Pacific Daylight Time","-08:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Louisville;US/KY","EST","EST","EDT","EDT","-05:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Maceio;BR","BRT","BRT","BRST","BRST","-03:00:00","+01:00:00","1;0;11","+00:00:00","-1;0;2","+00:00:00"}}, +{{"America/Managua;NI","CST","CST","","","-06:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Manaus;BR","AMT","AMT","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Martinique;MQ","AST","AST","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Mazatlan;MX","MST","MST","MDT","MDT","-07:00:00","+01:00:00","1;0;5","+02:00:00","-1;0;9","+02:00:00"}}, +{{"America/Mendoza;AR","ART","ART","","","-03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Menominee;US/MI","CST","CST","CDT","CDT","-06:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Merida;MX","CST","CST","CDT","CDT","-06:00:00","+01:00:00","1;0;5","+02:00:00","-1;0;9","+02:00:00"}}, +{{"America/Mexico_City;MX","CST","CST","","","-06:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Miquelon;PM","PMST","PMST","PMDT","PMDT","-03:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Monterrey;MX","CST","CST","CDT","CDT","-06:00:00","+01:00:00","1;0;5","+02:00:00","-1;0;9","+02:00:00"}}, +{{"America/Montevideo;UY","UYT","UYT","","","-03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Montreal;CA/QC","EST","EST","EDT","EDT","-05:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Montserrat;MS","AST","AST","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Nassau;BS","EST","EST","EDT","EDT","-05:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/New_York;US/NY","EST","Eastern Standard Time","EDT","Eastern Daylight Time","-05:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Nipigon;CA/ON","EST","EST","EDT","EDT","-05:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Nome;US/AK","AKST","AKST","AKDT","AKDT","-09:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Noronha;BR","FNT","FNT","","","-02:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/North_Dakota/Center;US/ND","CST","CST","CDT","CDT","-06:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Panama;PA","EST","EST","","","-05:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Pangnirtung;CA/NU","EST","EST","EDT","EDT","-05:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Paramaribo;SR","SRT","SRT","","","-03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Phoenix;US/AZ","MST","Mountain Standard Time","","","-07:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Port-au-Prince;HT","EST","EST","","","-05:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Port_of_Spain;TT","AST","AST","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Porto_Velho;BR","AMT","AMT","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Puerto_Rico;PR","AST","AST","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Rainy_River;CA/ON","CST","CST","CDT","CDT","-06:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Rankin_Inlet;CA/NU","CST","CST","CDT","CDT","-06:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Recife;BR","BRT","BRT","BRST","BRST","-03:00:00","+01:00:00","1;0;11","+00:00:00","-1;0;2","+00:00:00"}}, +{{"America/Regina;CA/SK","CST","CST","","","-06:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Rio_Branco;BR","ACT","ACT","","","-05:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Rosario;AR","ART","ART","","","-03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Santiago;CL","CLT","CLT","CLST","CLST","-04:00:00","+01:00:00","+9;0;10","+00:00:00","+9;0;3","+00:00:00"}}, +{{"America/Santo_Domingo;DO","AST","AST","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Sao_Paulo;BR","BRT","BRT","BRST","BRST","-03:00:00","+01:00:00","1;0;11","+00:00:00","-1;0;2","+00:00:00"}}, +{{"America/Scoresbysund;GL","EGT","EGT","EGST","EGST","-01:00:00","+01:00:00","-1;0;3","+00:00:00","-1;0;10","+01:00:00"}}, +{{"America/Shiprock;US/NM","MST","MST","MDT","MDT","-07:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/St_Johns;CA/NL","NST","NST","NDT","NDT","-03:30:00","+01:00:00","1;0;4","+00:01:00","-1;0;10","+00:01:00"}}, +{{"America/St_Kitts;KN","AST","AST","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/St_Louis;US/MO","CST","Central Standard Time","CDT","Central Daylight Time","-06:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/St_Lucia;LC","AST","AST","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/St_Thomas;VI","AST","AST","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/St_Vincent;VC","AST","AST","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Swift_Current;CA/SK","CST","CST","","","-06:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Tegucigalpa;HN","CST","CST","","","-06:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Thule;GL","AST","AST","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Thunder_Bay;CA/ON","EST","EST","EDT","EDT","-05:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Tijuana;MX","PST","PST","PDT","PDT","-08:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Toronto;CA/ON","EST","EST","EDT","EDT","-05:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Tortola;VG","AST","AST","","","-04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"America/Vancouver;CA/BC","PST","PST","PDT","PDT","-08:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Whitehorse;CA/YT","PST","PST","PDT","PDT","-08:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Winnipeg;CA/MB","CST","CST","CDT","CDT","-06:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+03:00:00"}}, +{{"America/Yakutat;US/AK","AKST","AKST","AKDT","AKDT","-09:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"America/Yellowknife;CA/NT","MST","MST","MDT","MDT","-07:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"Antarctica/Casey;AQ","WST","WST","","","+08:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Antarctica/Davis;AQ","DAVT","DAVT","","","+07:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Antarctica/DumontDUrville;AQ","DDUT","DDUT","","","+10:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Antarctica/Mawson;AQ","MAWT","MAWT","","","+06:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Antarctica/McMurdo;AQ","NZST","NZST","NZDT","NZDT","+12:00:00","+01:00:00","1;0;10","+02:00:00","3;0;3","+03:00:00"}}, +{{"Antarctica/Palmer;AQ","CLT","CLT","CLST","CLST","-04:00:00","+01:00:00","2;0;10","+00:00:00","2;0;3","+00:00:00"}}, +{{"Antarctica/South_Pole;AQ","NZST","NZST","NZDT","NZDT","+12:00:00","+01:00:00","1;0;10","+02:00:00","3;0;3","+03:00:00"}}, +{{"Antarctica/Syowa;AQ","SYOT","SYOT","","","+03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Antarctica/Vostok;AQ","VOST","VOST","","","+06:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Arctic/Longyearbyen;SJ","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Asia/Aden;YE","AST","AST","","","+03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Almaty;KZ","ALMT","ALMT","ALMST","ALMST","+06:00:00","+01:00:00","-1;0;3","+00:00:00","-1;0;10","+00:00:00"}}, +{{"Asia/Amman;JO","EET","EET","EEST","EEST","+02:00:00","+01:00:00","-1;4;3","+00:00:00","-1;4;9","+01:00:00"}}, +{{"Asia/Anadyr;RU","ANAT","ANAT","ANAST","ANAST","+12:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Asia/Aqtau;KZ","AQTT","AQTT","AQTST","AQTST","+04:00:00","+01:00:00","-1;0;3","+00:00:00","-1;0;10","+00:00:00"}}, +{{"Asia/Aqtobe;KZ","AQTT","AQTT","AQTST","AQTST","+05:00:00","+01:00:00","-1;0;3","+00:00:00","-1;0;10","+00:00:00"}}, +{{"Asia/Ashgabat;TM","TMT","TMT","","","+05:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Baghdad;IQ","AST","AST","ADT","ADT","+03:00:00","+01:00:00","1;0;4","+03:00:00","1;0;10","+04:00:00"}}, +{{"Asia/Bahrain;BH","AST","AST","","","+03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Baku;AZ","AZT","AZT","AZST","AZST","+04:00:00","+01:00:00","-1;0;3","+01:00:00","-1;0;10","+01:00:00"}}, +{{"Asia/Bangkok;TH","ICT","ICT","","","+07:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Beirut;LB","EET","EET","EEST","EEST","+02:00:00","+01:00:00","-1;0;3","+00:00:00","-1;0;10","+00:00:00"}}, +{{"Asia/Bishkek;KG","KGT","KGT","KGST","KGST","+05:00:00","+01:00:00","-1;0;3","+02:30:00","-1;0;10","+02:30:00"}}, +{{"Asia/Brunei;BN","BNT","BNT","","","+08:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Calcutta;IN","IST","IST","","","+05:30:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Choibalsan;MN","CHOT","CHOT","","","+09:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Chongqing;CN","CST","CST","","","+08:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Colombo;LK","LKT","LKT","","","+06:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Damascus;SY","EET","EET","EEST","EEST","+02:00:00","+01:00:00","1;0;4","+00:00:00","1;0;10","+00:00:00"}}, +{{"Asia/Dhaka;BD","BDT","BDT","","","+06:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Dili;TP","TPT","TPT","","","+09:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Dubai;AE","GST","GST","","","+04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Dushanbe;TJ","TJT","TJT","","","+05:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Gaza;PS","EET","EET","EEST","EEST","+02:00:00","+01:00:00","3;5;4","+00:00:00","3;5;10","+00:00:00"}}, +{{"Asia/Harbin;CN","CST","CST","","","+08:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Hong_Kong;HK","HKT","HKT","","","+08:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Hovd;MN","HOVT","HOVT","","","+07:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Irkutsk;RU","IRKT","IRKT","IRKST","IRKST","+08:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Asia/Istanbul;TR","EET","EET","EEST","EEST","+02:00:00","+01:00:00","-1;0;3","+03:00:00","-1;0;10","+04:00:00"}}, +{{"Asia/Jakarta;ID","WIT","WIT","","","+07:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Jayapura;ID","EIT","EIT","","","+09:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Jerusalem;IL","IST","IST","IDT","IDT","+02:00:00","+01:00:00","1;0;4","+01:00:00","1;0;10","+01:00:00"}}, +{{"Asia/Kabul;AF","AFT","AFT","","","+04:30:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Kamchatka;RU","PETT","PETT","PETST","PETST","+12:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Asia/Karachi;PK","PKT","PKT","","","+05:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Kashgar;CN","CST","CST","","","+08:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Katmandu;NP","NPT","NPT","","","+05:45:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Krasnoyarsk;RU","KRAT","KRAT","KRAST","KRAST","+07:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Asia/Kuala_Lumpur;MY","MYT","MYT","","","+08:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Kuching;MY","MYT","MYT","","","+08:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Kuwait;KW","AST","AST","","","+03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Macao;MO","CST","CST","","","+08:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Magadan;RU","MAGT","MAGT","MAGST","MAGST","+11:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Asia/Manila;PH","PHT","PHT","","","+08:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Muscat;OM","GST","GST","","","+04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Nicosia;EU/CY","EET","EET","EEST","EEST","+02:00:00","+01:00:00","-1;0;3","+03:00:00","-1;0;10","+04:00:00"}}, +{{"Asia/Novosibirsk;RU","NOVT","NOVT","NOVST","NOVST","+06:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Asia/Omsk;RU","OMST","OMST","OMSST","OMSST","+06:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Asia/Phnom_Penh;KH","ICT","ICT","","","+07:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Pontianak;ID","WIT","WIT","","","+07:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Pyongyang;KP","KST","KST","","","+09:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Qatar;QA","AST","AST","","","+03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Rangoon;MM","MMT","MMT","","","+06:30:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Riyadh;SA","AST","AST","","","+03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Saigon;VN","ICT","ICT","","","+07:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Sakhalin;RU","SAKT","SAKT","SAKST","SAKST","+10:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Asia/Samarkand;UZ","UZT","UZT","","","+05:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Seoul;KR","KST","KST","","","+09:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Shanghai;CN","CST","CST","","","+08:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Singapore;SG","SGT","SGT","","","+08:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Taipei;TW","CST","CST","","","+08:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Tashkent;UZ","UZT","UZT","","","+05:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Tbilisi;GE","GET","GET","GEST","GEST","+04:00:00","+01:00:00","-1;0;3","+00:00:00","-1;0;10","+00:00:00"}}, +{{"Asia/Tehran;IR","IRT","IRT","","","+03:30:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Thimphu;BT","BTT","BTT","","","+06:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Tokyo;JP","JST","JST","","","+09:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Ujung_Pandang;ID","CIT","CIT","","","+08:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Ulaanbaatar;MN","ULAT","ULAT","","","+08:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Urumqi;CN","CST","CST","","","+08:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Vientiane;LA","ICT","ICT","","","+07:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Asia/Vladivostok;RU","VLAT","VLAT","VLAST","VLAST","+10:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Asia/Yakutsk;RU","YAKT","YAKT","YAKST","YAKST","+09:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Asia/Yekaterinburg;RU","YEKT","YEKT","YEKST","YEKST","+05:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Asia/Yerevan;AM","AMT","AMT","AMST","AMST","+04:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Atlantic/Azores;PT","AZOT","AZOT","AZOST","AZOST","-01:00:00","+01:00:00","-1;0;3","+00:00:00","-1;0;10","+01:00:00"}}, +{{"Atlantic/Bermuda;BM","AST","AST","ADT","ADT","-04:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}}, +{{"Atlantic/Canary;ES","WET","WET","WEST","WEST","+00:00:00","+01:00:00","-1;0;3","+01:00:00","-1;0;10","+02:00:00"}}, +{{"Atlantic/Cape_Verde;CV","CVT","CVT","","","-01:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Atlantic/Faeroe;FO","WET","WET","WEST","WEST","+00:00:00","+01:00:00","-1;0;3","+01:00:00","-1;0;10","+02:00:00"}}, +{{"Atlantic/Jan_Mayen;SJ","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Atlantic/Madeira;PT","WET","WET","WEST","WEST","+00:00:00","+01:00:00","-1;0;3","+01:00:00","-1;0;10","+02:00:00"}}, +{{"Atlantic/Reykjavik;IS","GMT","GMT","","","+00:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Atlantic/South_Georgia;GS","GST","GST","","","-02:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Atlantic/St_Helena;SH","GMT","GMT","","","+00:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Atlantic/Stanley;FK","FKT","FKT","FKST","FKST","-04:00:00","+01:00:00","1;0;9","+02:00:00","3;0;4","+02:00:00"}}, +{{"Australia/Adelaide;AU","CST","CST","CST","CST","+09:30:00","+01:00:00","-1;0;10","+02:00:00","-1;0;3","+03:00:00"}}, +{{"Australia/Brisbane;AU","EST","EST","","","+10:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Australia/Broken_Hill;AU","CST","CST","CST","CST","+09:30:00","+01:00:00","-1;0;10","+02:00:00","-1;0;3","+03:00:00"}}, +{{"Australia/Darwin;AU","CST","CST","","","+09:30:00","+00:00:00","","","","+00:00:00"}}, +{{"Australia/Hobart;AU","EST","EST","EST","EST","+10:00:00","+01:00:00","1;0;10","+02:00:00","-1;0;3","+03:00:00"}}, +{{"Australia/Lindeman;AU","EST","EST","","","+10:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Australia/Lord_Howe;AU","LHST","LHST","LHST","LHST","+10:30:00","+00:30:00","-1;0;10","+02:00:00","-1;0;3","+02:00:00"}}, +{{"Australia/Melbourne;AU","EST","EST","EST","EST","+10:00:00","+01:00:00","-1;0;10","+02:00:00","-1;0;3","+03:00:00"}}, +{{"Australia/Perth;AU","WST","WST","","","+08:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Australia/Sydney;AU","EST","EST","EST","EST","+10:00:00","+01:00:00","-1;0;10","+02:00:00","-1;0;3","+03:00:00"}}, +{{"Europe/Amsterdam;EU/NL","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Andorra;AD","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Athens;EU/GR","EET","EET","EEST","EEST","+02:00:00","+01:00:00","-1;0;3","+03:00:00","-1;0;10","+04:00:00"}}, +{{"Europe/Belfast;IE","GMT","GMT","BST","BST","+00:00:00","+01:00:00","-1;0;3","+01:00:00","-1;0;10","+02:00:00"}}, +{{"Europe/Belgrade;CS","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Berlin;EU/DE","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Bratislava;EU/SK","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Brussels;EU/BE","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Bucharest;RO","EET","EET","EEST","EEST","+02:00:00","+01:00:00","-1;0;3","+03:00:00","-1;0;10","+04:00:00"}}, +{{"Europe/Budapest;EU/HU","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Chisinau;MD","EET","EET","EEST","EEST","+02:00:00","+01:00:00","-1;0;3","+03:00:00","-1;0;10","+04:00:00"}}, +{{"Europe/Copenhagen;EU/DK","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Dublin;EU/IE","GMT","GMT","IST","IST","+00:00:00","+01:00:00","-1;0;3","+01:00:00","-1;0;10","+02:00:00"}}, +{{"Europe/Gibraltar;GI","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Helsinki;EU/FI","EET","EET","EEST","EEST","+02:00:00","+01:00:00","-1;0;3","+03:00:00","-1;0;10","+04:00:00"}}, +{{"Europe/Istanbul;TR","EET","EET","EEST","EEST","+02:00:00","+01:00:00","-1;0;3","+03:00:00","-1;0;10","+04:00:00"}}, +{{"Europe/Kaliningrad;RU","EET","EET","EEST","EEST","+02:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Kiev;UA","EET","EET","EEST","EEST","+02:00:00","+01:00:00","-1;0;3","+03:00:00","-1;0;10","+04:00:00"}}, +{{"Europe/Lisbon;EU/PT","WET","WET","WEST","WEST","+00:00:00","+01:00:00","-1;0;3","+01:00:00","-1;0;10","+02:00:00"}}, +{{"Europe/Ljubljana;EU/SI","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/London;EU/GB","GMT","GMT","BST","BST","+00:00:00","+01:00:00","-1;0;3","+01:00:00","-1;0;10","+02:00:00"}}, +{{"Europe/Luxembourg;EU/LU","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Madrid;EU/ES","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Malta;EU/MT","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Minsk;BY","EET","EET","EEST","EEST","+02:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Monaco;MC","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Moscow;RU","MSK","MSK","MSD","MSD","+03:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Nicosia;CY","EET","EET","EEST","EEST","+02:00:00","+01:00:00","-1;0;3","+03:00:00","-1;0;10","+04:00:00"}}, +{{"Europe/Oslo;NO","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Paris;EU/FR","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Prague;EU/CZ","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Riga;EU/LV","EET","EET","EEST","EEST","+02:00:00","+01:00:00","-1;0;3","+03:00:00","-1;0;10","+04:00:00"}}, +{{"Europe/Rome;EU/IT","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Samara;RU","SAMT","SAMT","SAMST","SAMST","+04:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/San_Marino;SM","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Sarajevo;BA","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Simferopol;UA","EET","EET","EEST","EEST","+02:00:00","+01:00:00","-1;0;3","+03:00:00","-1;0;10","+04:00:00"}}, +{{"Europe/Skopje;MK","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Sofia;BG","EET","EET","EEST","EEST","+02:00:00","+01:00:00","-1;0;3","+03:00:00","-1;0;10","+04:00:00"}}, +{{"Europe/Stockholm;EU/SE","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Tallinn;EU/EE","EET","EET","","","+02:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Europe/Tirane;AL","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Uzhgorod;UA","EET","EET","EEST","EEST","+02:00:00","+01:00:00","-1;0;3","+03:00:00","-1;0;10","+04:00:00"}}, +{{"Europe/Vaduz;LI","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Vatican;VA","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Vienna;EU/AT","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Vilnius;EU/LT","EET","EET","","","+02:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Europe/Warsaw;EU/PL","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Zagreb;HR","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Europe/Zaporozhye;UA","EET","EET","EEST","EEST","+02:00:00","+01:00:00","-1;0;3","+03:00:00","-1;0;10","+04:00:00"}}, +{{"Europe/Zurich;CH","CET","CET","CEST","CEST","+01:00:00","+01:00:00","-1;0;3","+02:00:00","-1;0;10","+03:00:00"}}, +{{"Indian/Antananarivo;MG","EAT","EAT","","","+03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Indian/Chagos;IO","IOT","IOT","","","+06:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Indian/Christmas;CX","CXT","CXT","","","+07:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Indian/Cocos;CC","CCT","CCT","","","+06:30:00","+00:00:00","","","","+00:00:00"}}, +{{"Indian/Comoro;KM","EAT","EAT","","","+03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Indian/Kerguelen;TF","TFT","TFT","","","+05:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Indian/Mahe;SC","SCT","SCT","","","+04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Indian/Maldives;MV","MVT","MVT","","","+05:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Indian/Mauritius;MU","MUT","MUT","","","+04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Indian/Mayotte;YT","EAT","EAT","","","+03:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Indian/Reunion;RE","RET","RET","","","+04:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Apia;WS","WST","WST","","","-11:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Auckland;NZ","NZST","NZST","NZDT","NZDT","+12:00:00","+01:00:00","1;0;10","+02:00:00","3;0;3","+03:00:00"}}, +{{"Pacific/Chatham;NZ","CHAST","CHAST","CHADT","CHADT","+12:45:00","+01:00:00","1;0;10","+02:45:00","3;0;3","+03:45:00"}}, +{{"Pacific/Easter;CL","EAST","EAST","EASST","EASST","-06:00:00","+01:00:00","2;6;10","+22:00:00","2;6;3","+22:00:00"}}, +{{"Pacific/Efate;VU","VUT","VUT","","","+11:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Enderbury;KI","PHOT","PHOT","","","+13:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Fakaofo;TK","TKT","TKT","","","-10:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Fiji;FJ","FJT","FJT","","","+12:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Funafuti;TV","TVT","TVT","","","+12:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Galapagos;EC","GALT","GALT","","","-06:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Gambier;PF","GAMT","GAMT","","","-09:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Guadalcanal;SB","SBT","SBT","","","+11:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Guam;GU","ChST","ChST","","","+10:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Honolulu;US/HI","HST","HST","","","-10:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Johnston;UM","HST","HST","","","-10:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Kiritimati;KI","LINT","LINT","","","+14:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Kosrae;FM","KOST","KOST","","","+11:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Kwajalein;MH","MHT","MHT","","","+12:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Majuro;MH","MHT","MHT","","","+12:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Marquesas;PF","MART","MART","","","-09:30:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Midway;UM","SST","SST","","","-11:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Nauru;NR","NRT","NRT","","","+12:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Niue;NU","NUT","NUT","","","-11:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Norfolk;NF","NFT","NFT","","","+11:30:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Noumea;NC","NCT","NCT","","","+11:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Pago_Pago;AS","SST","SST","","","-11:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Palau;PW","PWT","PWT","","","+09:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Pitcairn;PN","PST","PST","","","-08:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Ponape;FM","PONT","PONT","","","+11:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Port_Moresby;PG","PGT","PGT","","","+10:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Rarotonga;CK","CKT","CKT","","","-10:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Saipan;MP","ChST","ChST","","","+10:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Tahiti;PF","TAHT","TAHT","","","-10:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Tarawa;KI","GILT","GILT","","","+12:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Tongatapu;TO","TOT","TOT","","","+13:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Truk;FM","TRUT","TRUT","","","+10:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Wake;UM","WAKT","WAKT","","","+12:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Wallis;WF","WFT","WFT","","","+12:00:00","+00:00:00","","","","+00:00:00"}}, +{{"Pacific/Yap;FM","YAPT","YAPT","","","+10:00:00","+00:00:00","","","","+00:00:00"}}, +{{"US/Michigan;US","EST","EST","EDT","EDT","-05:00:00","+01:00:00","1;0;4","+02:00:00","-1;0;10","+02:00:00"}} diff --git a/mmslib/inc/stdtime_tzrules.h b/mmslib/inc/stdtime_tzrules.h new file mode 100644 index 0000000..30548ad --- /dev/null +++ b/mmslib/inc/stdtime_tzrules.h @@ -0,0 +1,58 @@ +/*****************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER **********************************************/ +/*****************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2005 All Rights Reserved */ +/* */ +/* MODULE NAME : stdtime_tzrules.h */ +/* PRODUCT(S) : Standard Time Management Library */ +/* */ +/* MODULE DESCRIPTION: */ +/* Data file to fix historical rules for daylight saving time. */ +/* */ +/* MODIFICATION LOG: */ +/* Date Who Rev Comments */ +/* -------- --- --- ----------------------------------------------------- */ +/* 06/07/06 RLH 01 Created */ +/*****************************************************************************/ + +/* this data is part of a table of type STDTIME_FIX_TZ_RULES */ +/* the struct defining type STDTIME_FIX_TZ_RULES is in stdtime.h */ +/* entries with region codes must appear before entries without them */ + + + {"US", "IN", 2007, 9999, {2,0,3}, {1, 2,0,0}, {1,0,11}, {1, 2,0,0}}, + {"US", "IN", 1945, 2006, {0,0,0}, {0, 0,0,0}, {0,0,00}, {0, 0,0,0}}, + {"US", "HI", 1945, 9999, {0,0,0}, {0, 0,0,0}, {0,0,00}, {0, 0,0,0}}, + {"US", "AZ", 1945, 9999, {0,0,0}, {0, 0,0,0}, {0,0,00}, {0, 0,0,0}}, + + {"US", "", 2007, 9999, {2,0,3}, {1, 2,0,0}, {1,0,11}, {1, 2,0,0}}, + {"US", "", 1987, 2006, {1,0,4}, {1, 2,0,0}, {5,0,10}, {1, 2,0,0}}, + {"US", "", 1976, 1986, {5,0,4}, {1, 2,0,0}, {5,0,10}, {1, 2,0,0}}, + {"US", "", 1975, 1975, {5,0,2}, {1, 2,0,0}, {5,0,10}, {1, 2,0,0}}, + {"US", "", 1974, 1974, {1,0,1}, {1, 2,0,0}, {5,0,10}, {1, 2,0,0}}, + {"US", "", 1967, 1973, {5,0,4}, {1, 2,0,0}, {5,0,10}, {1, 2,0,0}}, + {"US", "", 1945, 1966, {5,0,4}, {1, 2,0,0}, {5,0, 9}, {1, 2,0,0}}, + + + {"CA", "SK", 1945, 9999, {0,0,0}, {0, 0,0,0}, {0,0,00}, {0, 0,0,0}}, + + /* for now, CA and MX just duplicate US rules */ + + {"CA", "", 2007, 9999, {2,0,3}, {1, 2,0,0}, {1,0,11}, {1, 2,0,0}}, + {"CA", "", 1987, 2006, {1,0,4}, {1, 2,0,0}, {5,0,10}, {1, 2,0,0}}, + {"CA", "", 1976, 1986, {5,0,4}, {1, 2,0,0}, {5,0,10}, {1, 2,0,0}}, + {"CA", "", 1975, 1975, {5,0,2}, {1, 2,0,0}, {5,0,10}, {1, 2,0,0}}, + {"CA", "", 1974, 1974, {1,0,1}, {1, 2,0,0}, {5,0,10}, {1, 2,0,0}}, + {"CA", "", 1967, 1973, {5,0,4}, {1, 2,0,0}, {5,0,10}, {1, 2,0,0}}, + {"CA", "", 1945, 1966, {5,0,4}, {1, 2,0,0}, {5,0, 9}, {1, 2,0,0}}, + + + {"MX", "", 2007, 9999, {2,0,3}, {1, 2,0,0}, {1,0,11}, {1, 2,0,0}}, + {"MX", "", 1987, 2006, {1,0,4}, {1, 2,0,0}, {5,0,10}, {1, 2,0,0}}, + {"MX", "", 1976, 1986, {5,0,4}, {1, 2,0,0}, {5,0,10}, {1, 2,0,0}}, + {"MX", "", 1975, 1975, {5,0,2}, {1, 2,0,0}, {5,0,10}, {1, 2,0,0}}, + {"MX", "", 1974, 1974, {1,0,1}, {1, 2,0,0}, {5,0,10}, {1, 2,0,0}}, + {"MX", "", 1967, 1973, {5,0,4}, {1, 2,0,0}, {5,0,10}, {1, 2,0,0}}, + {"MX", "", 1945, 1966, {5,0,4}, {1, 2,0,0}, {5,0, 9}, {1, 2,0,0}} /**/ + diff --git a/mmslib/inc/stdtime_w32.h b/mmslib/inc/stdtime_w32.h new file mode 100644 index 0000000..008f58f --- /dev/null +++ b/mmslib/inc/stdtime_w32.h @@ -0,0 +1,353 @@ +/*****************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER **********************************************/ +/*****************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2005 All Rights Reserved */ +/* */ +/* MODULE NAME : stdtime_w32.h */ +/* PRODUCT(S) : Standard Time Management Library */ +/* */ +/* MODULE DESCRIPTION: */ +/* Header file for Standard Time Management Library Win32 Compatibility */ +/* Layer. This header is compiled with STDTIMEW32_ENABLED on Windows to */ +/* generate debugging code or to run emulation on Unix. To run on */ +/* Windows, compile with STDTIMEW32_DISABLED. STDTIMEW32_ENABLED is */ +/* required on Unix/Linux (that is, non-Windows) platforms. */ +/* */ +/* */ +/* MODIFICATION LOG: */ +/* Date Who Rev Comments */ +/* -------- --- --- ----------------------------------------------------- */ +/* 12/17/07 JRB 04 Del STDTIME_WIN_VARIANT, ..DBTIMESTAMP, ..UDATE */ +/* structs (no longer used). */ +/* 04/03/07 RLH 03 Make UDOT definition compatible with Linux 8.0 */ +/* 06/07/06 RLH 02 Numerous features added, see stdtime.doc */ +/* 01/18/06 RLH 01 Created */ +/*****************************************************************************/ + + +#ifndef _STDTIME_W32_H_29560654_4DD5_47A5_9B07_559DA09B36A3_ +#define _STDTIME_W32_H_29560654_4DD5_47A5_9B07_559DA09B36A3_ + + +#ifdef __cplusplus +extern "C" { +#endif + + +/*****************************************************************************/ +/* ENABLED or DISABLED */ +/*****************************************************************************/ + +#undef STDTIMEW32_DEBUGGING +#undef STDTIMEW32_UNIX + +#if defined(STDTIMEW32_ENABLED) && defined(STDTIMEW32_DISABLED) +#error Both STDTIMEW32_ENABLED and STDTIMEW32_DISABLED defined +#undef STDTIMEW32_ENABLED +#endif + +#if !defined(STDTIMEW32_ENABLED) && !defined(STDTIMEW32_DISABLED) + +#if defined(STDTIMEW32_USE_CLOCKGETTIME) \ + || defined(STDTIMEW32_USE_GETTIMEOFDAY) \ + || defined(STDTIMEW32_USE_TIMEB) /**/ +#define STDTIMEW32_ENABLED +#else +#define STDTIMEW32_DISABLED +#endif + +#endif + +#if defined(STDTIMEW32_DISABLED) && !defined(_WIN32) +#error StdTime Windows Compatibility Layer disabled on non-Windows platform +#endif + +#if defined(STDTIMEW32_ENABLED) && defined(_WIN32) +#define STDTIMEW32_DEBUGGING +#endif + +#if defined(STDTIMEW32_ENABLED) && !defined(_WIN32) +#define STDTIMEW32_UNIX +#endif + + +/*****************************************************************************/ +/* STATIC (LOCAL) FUNCTION QUALIFIER */ +/*****************************************************************************/ + +#ifndef STDTIMEW32_STATIC +#define STDTIMEW32_STATIC +#endif + + +/*****************************************************************************/ +/* PORTABILITY API NAME DEFINITIONS */ +/*****************************************************************************/ + + +#if defined(STDTIMEW32_USE_CLOCKGETTIME) +#define STDTIME_API_GETSYSTEMTIMEASFILETIME StdTimeW32ClockGetTimeToFileTime + +#elif defined(STDTIMEW32_USE_GETTIMEOFDAY) +#define STDTIME_API_GETSYSTEMTIMEASFILETIME StdTimeW32GetTimeOfDayToFileTime + +#elif defined(STDTIMEW32_USE_TIMEB) +#define STDTIME_API_GETSYSTEMTIMEASFILETIME StdTimeW32TimeBToFileTime + +#else + +#ifdef STDTIMEW32_UNIX +#error No API defined for GetSystemTimeAsFileTime Unix interface +#endif + +#endif /* STDTIMEW32_USE_CLOCKGETTIME */ + + +#ifdef STDTIMEW32_ENABLED +#define STDTIME_API_FILETIMETOLOCALFILETIME StdTimeW32FileTimeToLocalFileTime +#define STDTIME_API_LOCALFILETIMETOFILETIME StdTimeW32LocalFileTimeToFileTime +#else +#define STDTIME_API_FILETIMETOLOCALFILETIME FileTimeToLocalFileTime +#define STDTIME_API_LOCALFILETIMETOFILETIME LocalFileTimeToFileTime +#endif /* STDTIMEW32_ENABLED */ + + +#ifdef STDTIMEW32_ENABLED +#define STDTIME_API_FILETIMETOSYSTEMTIME StdTimeW32FileTimeToSystemTime +#define STDTIME_API_SYSTEMTIMETOFILETIME StdTimeW32SystemTimeToFileTime +#else +#define STDTIME_API_SYSTEMTIMETOFILETIME SystemTimeToFileTime +#define STDTIME_API_FILETIMETOSYSTEMTIME FileTimeToSystemTime +#endif /* STDTIMEW32_ENABLED */ + + +/*****************************************************************************/ +/* BASIC DEFINITIONS */ +/*****************************************************************************/ + + +#define STDTIME_WIN_EPOCH_YEAR 1601 +#define STDTIME_UNIX_EPOCH_YEAR 1970 + +#undef STDTIME_WIN_VT_DATE_DEFINED + +#ifdef _WIN32 + +/* if debugging non-Windows code on Windows, use compatibility typedefs */ + +typedef SHORT STDTIME_WIN_SHORT; +typedef USHORT STDTIME_WIN_USHORT; +typedef WORD STDTIME_WIN_WORD; +typedef DWORD STDTIME_WIN_DWORD; +typedef LONG STDTIME_WIN_LONG; +typedef ULONG STDTIME_WIN_ULONG; +typedef LONGLONG STDTIME_WIN_LONGLONG; +typedef ULONGLONG STDTIME_WIN_ULONGLONG; +typedef BOOL STDTIME_WIN_BOOL; + +#define STDTIME_WIN_TRUE TRUE +#define STDTIME_WIN_FALSE FALSE + + +typedef SYSTEMTIME STDTIME_WIN_SYSTEMTIME; +typedef FILETIME STDTIME_WIN_FILETIME; +typedef LARGE_INTEGER STDTIME_WIN_LARGE_INTEGER; +typedef ULARGE_INTEGER STDTIME_WIN_ULARGE_INTEGER; + +#else /* not _WIN32 */ + +typedef int16_t STDTIME_WIN_SHORT; +typedef uint16_t STDTIME_WIN_USHORT; +typedef uint16_t STDTIME_WIN_WORD; +typedef uint32_t STDTIME_WIN_DWORD; +typedef int32_t STDTIME_WIN_LONG; +typedef uint32_t STDTIME_WIN_ULONG; +typedef QUADLIB_I64 STDTIME_WIN_LONGLONG; +typedef QUADLIB_U64 STDTIME_WIN_ULONGLONG; +typedef int32_t STDTIME_WIN_BOOL; + +#define STDTIME_WIN_TRUE 1 +#define STDTIME_WIN_FALSE 0 + + +#endif /* _WIN32 */ + + +/*****************************************************************************/ +/* SYSTEMTIME structure - compatibility definition */ +/*****************************************************************************/ + +#ifdef STDTIMEW32_UNIX + +typedef struct + { + STDTIME_WIN_WORD wYear; + STDTIME_WIN_WORD wMonth; + STDTIME_WIN_WORD wDayOfWeek; + STDTIME_WIN_WORD wDay; + STDTIME_WIN_WORD wHour; + STDTIME_WIN_WORD wMinute; + STDTIME_WIN_WORD wSecond; + STDTIME_WIN_WORD wMilliseconds; + } STDTIME_WIN_SYSTEMTIME; + +#endif /* STDTIMEW32_UNIX */ + + +/*****************************************************************************/ +/* VT_DATE compatibility definitions */ +/*****************************************************************************/ + +#ifndef STDTIME_WIN_VT_DATE_DEFINED + +typedef uint16_t STDTIME_WIN_VARTYPE; +typedef double STDTIME_WIN_DATE; + +enum STDTIME_WIN_VARENUM + { + STDTIME_WIN_VT_EMPTY = 0, + STDTIME_WIN_VT_DATE = 7, + STDTIME_WIN_VT_BYREF = 0x4000 + }; + +#endif /* STDTIME_WIN_VT_DATE_DEFINED */ + +/*****************************************************************************/ +/* FILETIME structure - compatibility definition */ +/*****************************************************************************/ + +#ifdef STDTIMEW32_UNIX + +typedef struct + { + STDTIME_WIN_DWORD dwLowDateTime; + STDTIME_WIN_DWORD dwHighDateTime; + } STDTIME_WIN_FILETIME; + +#endif /* STDTIMEW32_UNIX */ + +/*****************************************************************************/ +/* LARGE_INTEGER structure - compatibility definition */ +/*****************************************************************************/ + +#ifdef STDTIMEW32_UNIX + +typedef union _STDTIME_WIN_LARGE_INTEGER + { + /* to maximize compatibility, the anonymous struct is omitted */ + /* references to LARGE_INTEGER fields will require 'u' qualifier */ + /* use of the anonymous struct is a non-portable Microsoft extension. */ + + /* the order of LowPart and HighPart should agree with endian */ + /* ordering on the host platform */ + + /* if compiled under I64 compatibility, QuadPart is a QuadLib structure */ + /* QUADLIB_I64 and QUADLIB_U64 are the same type, but have different */ + /* names to document their intended usage */ + + struct + { + STDTIME_WIN_DWORD LowPart; + STDTIME_WIN_LONG HighPart; + } u; + + QUADLIB_I64 QuadPart; + + } STDTIME_WIN_LARGE_INTEGER; + +#endif /* STDTIMEW32_UNIX */ + +/*****************************************************************************/ +/* ULARGE_INTEGER structure - compatibility definition */ +/*****************************************************************************/ + +#ifdef STDTIMEW32_UNIX + +typedef union _STDTIME_WIN_ULARGE_INTEGER + { + /* to maximize compatibility, the anonymous struct is omitted */ + /* references to ULARGE_INTEGER fields will require 'u' qualifier */ + /* use of the anonymous struct is a non-portable Microsoft extension. */ + + /* the order of LowPart and HighPart should agree with endian */ + /* ordering on the host platform */ + + /* if compiled under I64 compatibility, QuadPart is a QuadLib structure */ + /* QUADLIB_I64 and QUADLIB_U64 are the same type, but have different */ + /* names to document their intended usage */ + + struct + { + STDTIME_WIN_DWORD LowPart; + STDTIME_WIN_DWORD HighPart; + } u; + + QUADLIB_U64 QuadPart; + + } STDTIME_WIN_ULARGE_INTEGER; + +#endif /* STDTIMEW32_UNIX */ + + +/*****************************************************************************/ +/* compatibility-layer API functions */ +/*****************************************************************************/ + +#ifndef STDTIME_API_GETSYSTEMTIMEASFILETIME +#define STDTIME_API_GETSYSTEMTIMEASFILETIME GetSystemTimeAsFileTime + +#else +STDTIMEW32_STATIC void STDTIME_API_GETSYSTEMTIMEASFILETIME ( + STDTIME_WIN_FILETIME * /*O*/ pFileTime); +#endif + + +#ifdef STDTIMEW32_ENABLED + + +STDTIMEW32_STATIC STDTIME_WIN_BOOL StdTimeW32SystemTimeToFileTime ( + const STDTIME_WIN_SYSTEMTIME * /*I*/ pSystemTime, + STDTIME_WIN_FILETIME * /*O*/ pFileTime); + + +STDTIMEW32_STATIC STDTIME_WIN_BOOL StdTimeW32FileTimeToSystemTime ( + const STDTIME_WIN_FILETIME * /*I*/ pFileTime, + STDTIME_WIN_SYSTEMTIME * /*O*/ pSystemTime); + + +STDTIMEW32_STATIC STDTIME_WIN_BOOL StdTimeW32FileTimeToLocalFileTime ( + const STDTIME_WIN_FILETIME * /*I*/ pGmtFileTime, + STDTIME_WIN_FILETIME * /*O*/ pLocFileTime); + + +STDTIMEW32_STATIC STDTIME_WIN_BOOL StdTimeW32LocalFileTimeToFileTime ( + const STDTIME_WIN_FILETIME * /*I*/ pLocFileTime, + STDTIME_WIN_FILETIME * /*O*/ pGmtFileTime); + + +#endif /* STDTIMEW32_ENABLED */ + + +/*****************************************************************************/ +/* OBTAIN DAY OF WEEK AND DAY OF WEEK */ +/*****************************************************************************/ + +STDTIME_RC StdTimeW32GetDayofWeekAndYear ( + int32_t /*I*/ nYear, + int32_t /*I*/ nMon, + int32_t /*I*/ nDayofMon, + int32_t * /*O*/ pDayofWeek, + int32_t * /*O*/ pDayofYear); + +/*****************************************************************************/ +/* END */ +/*****************************************************************************/ + +#ifdef __cplusplus +} +#endif + + +#endif /* _STDTIME_W32_H_29560654_4DD5_47A5_9B07_559DA09B36A3_ */ + diff --git a/mmslib/inc/stime.h b/mmslib/inc/stime.h new file mode 100644 index 0000000..303d53f --- /dev/null +++ b/mmslib/inc/stime.h @@ -0,0 +1,38 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1997, All Rights Reserved */ +/* */ +/* MODULE NAME : stime.h */ +/* PRODUCT(S) : SLOG */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 06/14/05 EJV 03 Del sGetMsStartTime, sSetMsStartTime */ +/* 11/04/03 JRB 02 Add sMsSleep (replaces gs_sleep). */ +/* 11/05/97 DSF 01 Added sGetSysMsTime () */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifdef __cplusplus +extern "C" { +#endif + +ST_RET stimeInit (ST_VOID); +ST_DOUBLE sGetMsTime (ST_VOID); +ST_DOUBLE sGetSysMsTime (ST_VOID); +ST_VOID sResetMsTime (ST_VOID); +ST_VOID stimeExit (ST_VOID); +ST_VOID sMsSleep (ST_LONG ms); + +#ifdef __cplusplus +} +#endif + diff --git a/mmslib/inc/sx_arb.h b/mmslib/inc/sx_arb.h new file mode 100644 index 0000000..907a8a1 --- /dev/null +++ b/mmslib/inc/sx_arb.h @@ -0,0 +1,119 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1999 - 2004, All Rights Reserved */ +/* */ +/* MODULE NAME : sx_arb.h */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 09/19/07 JRB 04 Add TEXT_FORMAT_COMMA, sxaTextToLocalEx. */ +/* 10/24/06 JRB 03 Add sxaLocalToText2 proto. */ +/* 12/06/04 JRB 02 Add "sx_defs.h". */ +/* 08/30/04 DSF 01 Module created */ +/************************************************************************/ +/************************************************************************/ + +#ifndef SX_ARB_INCLUDED +#define SX_ARB_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + + +/************************************************************************/ + +#include "mms_def2.h" +#include "mms_mp.h" +#include "mms_pvar.h" +#include "mms_vvar.h" +#include "sx_defs.h" /* need SX_ENC_CTRL */ + +ST_RET sxd_decode_rtdata_el (SD_CONST ST_CHAR *elName, + ST_CHAR *xml, ST_INT xmlLen, ST_INT *xmlUsed, + ST_VOID *vdp, SD_CONST RUNTIME_TYPE *rt_head, + ST_INT rt_num, ST_BOOLEAN *elPres, + ST_INT sxdXmlStyle, ST_BOOLEAN checkDt); +ST_RET sxd_wr_rtdata (SX_ENC_CTRL *sxEncCtrl, RUNTIME_TYPE *rt, ST_INT numRt, + ST_CHAR *elName, ST_VOID *data, ST_INT sxdXmlStyle, + ST_BOOLEAN encodeDt, ST_BOOLEAN *elPres); + +/************************************************************************/ +/************************************************************************/ +/* Arbitrary data processing, for use in traversing the RUNTIME_TYPE */ + +typedef struct + { + ST_RET (*arrStart) (ST_VOID *usr, RUNTIME_TYPE *rt); + ST_RET (*arrEnd) (ST_VOID *usr, RUNTIME_TYPE *rt); + ST_RET (*strStart) (ST_VOID *usr, RUNTIME_TYPE *rt, SD_CONST RUNTIME_TYPE *rt_head); + ST_RET (*strEnd) (ST_VOID *usr, RUNTIME_TYPE *rt); + ST_RET (*int8) (ST_VOID *usr, ST_INT8 *data_dest, RUNTIME_TYPE *rt); + ST_RET (*int16) (ST_VOID *usr, ST_INT16 *data_dest, RUNTIME_TYPE *rt); + ST_RET (*int32) (ST_VOID *usr, ST_INT32 *data_dest, RUNTIME_TYPE *rt); +#ifdef INT64_SUPPORT + ST_RET (*int64) (ST_VOID *usr, ST_INT64 *data_dest, RUNTIME_TYPE *rt); +#endif + ST_RET (*uint8) (ST_VOID *usr, ST_UINT8 *data_dest, RUNTIME_TYPE *rt); + ST_RET (*uint16) (ST_VOID *usr, ST_UINT16 *data_dest, RUNTIME_TYPE *rt); + ST_RET (*uint32) (ST_VOID *usr, ST_UINT32 *data_dest, RUNTIME_TYPE *rt); +#ifdef INT64_SUPPORT + ST_RET (*uint64) (ST_VOID *usr, ST_UINT64 *data_dest, RUNTIME_TYPE *rt); +#endif + ST_RET (*flt) (ST_VOID *usr, ST_FLOAT *data_dest, RUNTIME_TYPE *rt); + ST_RET (*dbl) (ST_VOID *usr, ST_DOUBLE *data_dest, RUNTIME_TYPE *rt); + ST_RET (*oct) (ST_VOID *usr, ST_UCHAR *data_dest, RUNTIME_TYPE *rt); + ST_RET (*booln) (ST_VOID *usr, ST_BOOLEAN *data_dest, RUNTIME_TYPE *rt); + ST_RET (*bcd1) (ST_VOID *usr, ST_INT8 *data_dest, RUNTIME_TYPE *rt); + ST_RET (*bcd2) (ST_VOID *usr, ST_INT16 *data_dest, RUNTIME_TYPE *rt); + ST_RET (*bcd4) (ST_VOID *usr, ST_INT32 *data_dest, RUNTIME_TYPE *rt); + ST_RET (*bs) (ST_VOID *usr, ST_UCHAR *data_dest, RUNTIME_TYPE *rt); + ST_RET (*vis) (ST_VOID *usr, ST_CHAR *data_dest, RUNTIME_TYPE *rt); + ST_RET (*bt4) (ST_VOID *usr, ST_INT32 *data_dest, RUNTIME_TYPE *rt); + ST_RET (*bt6) (ST_VOID *usr, ST_INT32 *data_dest, RUNTIME_TYPE *rt); + ST_RET (*gt) (ST_VOID *usr, time_t *data_dest, RUNTIME_TYPE *rt); + ST_RET (*utc) (ST_VOID *usr, MMS_UTC_TIME *data_dest, RUNTIME_TYPE *rt); + ST_RET (*utf8) (ST_VOID *usr, ST_UCHAR *data_dest, RUNTIME_TYPE *rt); + } SXD_ARB_DATA_CTRL; + +ST_RET sxd_process_arb_data (ST_CHAR *datptr, SD_CONST RUNTIME_TYPE *rt_head, + ST_INT rt_num, ST_VOID *usr, + SXD_ARB_DATA_CTRL *ac, ST_BOOLEAN *elPres); + +ST_RET sxaTextToLocal (ST_CHAR *pSource, ST_VOID *pDest, ST_INT numRt, SD_CONST RUNTIME_TYPE *rtHead); +ST_CHAR *sxaLocalToText (ST_VOID *dataPtr, SD_CONST RUNTIME_TYPE *rtHead, ST_INT numRt); +/* sxaLocalToText2 is thread-safe (does not use global buffer). */ +ST_CHAR *sxaLocalToText2 (ST_VOID *dataPtr, SD_CONST RUNTIME_TYPE *rtHead, ST_INT numRt, + ST_CHAR *textBuf, /* User buffer in which to write text */ + ST_UINT textBufSize); /* size of user buffer */ + +/* Defines to use for textFormat argument of sxaTextToLocalEx. */ +/* DEBUG: currently only ONE format supported (TEXT_FORMAT_COMMA), but */ +/* this should make it easier to add other formats later. */ +#define TEXT_FORMAT_COMMA 1 /* Comma-separated text format */ + /* Each value in the text may */ + /* also be surrounded by "". */ + /* Examples of text: */ + /* "0","1.1","2","3.3","4" */ + /* 0,1.1,2,3.3,4 */ +ST_RET sxaTextToLocalEx ( + ST_CHAR *pSource, /* source text */ + ST_VOID *pDest, /* destination data */ + ST_INT numRt, + SD_CONST RUNTIME_TYPE *rtHead, + ST_INT textFormat); /* text format from which to convert */ + +/************************************************************************/ +#ifdef __cplusplus +} +#endif + +#endif /* SX_ARB_INCLUDED */ diff --git a/mmslib/inc/sx_defs.h b/mmslib/inc/sx_defs.h new file mode 100644 index 0000000..e6ee545 --- /dev/null +++ b/mmslib/inc/sx_defs.h @@ -0,0 +1,611 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1999 - 2008, All Rights Reserved */ +/* */ +/* MODULE NAME : sx_defs.h */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 02/01/08 EJV 66 Added SX_PARSING_OK, sx_err_str* (for slogs).*/ +/* 01/14/08 MDE 65 Fixed numOcc multithread problem */ +/* 07/30/07 RWM 64 Added numAlloced4 to sx_dec_ctrl */ +/* For early MODLOGS see previous revision of this file on PVCS. */ +/************************************************************************/ + +#ifndef SX_DEFS_INCLUDED +#define SX_DEFS_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + + +/************************************************************************/ + +#include "glbtypes.h" + +/************************************************************************/ +/* This is the amount of overhead required to ensure no overwrite */ + +#define SX_ENC_BUFFER_OH 20 + +/************************************************************************/ +/* Capacities */ + +#if !defined(SX_MAX_XML_NEST) +#define SX_MAX_XML_NEST 30 +#endif + +#if !defined(SX_MAX_STACK_LEVEL) +#define SX_MAX_STACK_LEVEL 50 +#endif + +#if !defined(SX_MAX_TAG_LEN) +#define SX_MAX_TAG_LEN 100 +#endif + +#if !defined(SX_MAX_ATTRIB) +#define SX_MAX_ATTRIB 20 +#endif + +#if !defined(SX_MAX_ATTR_NAME) +#define SX_MAX_ATTR_NAME 100 +#endif + +#if !defined(SX_MAX_ATTR_VALUE) +#define SX_MAX_ATTR_VALUE 1000 +#endif + +#if !defined(SX_MAX_ELEM_LEN) +#define SX_MAX_ELEM_LEN 2000 +#endif + +#if !defined SX_MAX_ITEMS_PER_TABLE +#define SX_MAX_ITEMS_PER_TABLE 50 +#endif + + +/************************************************************************/ +/* Error codes - stop parsing */ +#define SX_PARSING_OK 0 +#define SX_USER_ERROR 1 +#define SX_STRUCT_NOT_FOUND 2 +#define SX_REQUIRED_TAG_NOT_FOUND 3 +#define SX_DUPLICATE_NOT_ALLOWED 4 +#define SX_EMPTY_TAG_NOT_ALLOWED 5 +#define SX_XML_NEST_TOO_DEEP 6 +#define SX_XML_BUFFER_OVER_MAX 7 +#define SX_XML_MALFORMED 8 +#define SX_FILE_NOT_FOUND 9 +#define SX_END_PARSING 10 /* for partial parsing */ +#define SX_ELEMENT_TBL_TOO_BIG 11 +/* NOTE: when adding more error codes update also the sx_err_str[] in the sx_dec.c */ + +/* Normal errors - continue with parse */ +#define SX_ERR_CONVERT 100 + +#ifdef DEBUG_SISCO +extern ST_CHAR *sx_err_str[]; /* tbl of error strings, used in slogs */ +extern ST_INT sx_err_str_cnt; + +/* macro to get the error string logged */ +#define SX_ERR_STR(errCode) ((errCode < sx_err_str_cnt) ? sx_err_str[errCode] : "UNKNOWN SX ERROR") +#endif /* DEBUG_SISCO */ + +/************************************************************************/ +/************************************************************************/ +/* SX_DURATION */ +/* Duration is an ISO 8601 date/time standard in the following format: */ +/* PnYnMnDTnHnMnS */ +/* where P = period, Y = years, M = months, D = days, T = date/time */ +/* seperator, H = hours, M = minutes, S = seconds. Seconds may be any */ +/* decimal number of arbitrary precision. n represents a number. */ +/* For example: or */ +/* */ +typedef struct sx_duration + { + ST_BOOLEAN negative; /* true = negative duration */ + ST_INT years; /* number of years in duration */ + ST_INT months; /* number of months in duration */ + ST_INT days; /* number of days in duration */ + ST_INT hours; /* number of hours in duration */ + ST_INT minutes; /* number of minutes in duration */ + ST_INT seconds; /* integer part of seconds */ + ST_LONG microseconds; /* decimal part of seconds */ + ST_BOOLEAN inUse; /* easy way to tell if this optional */ + /* attribute is present */ + } SX_DURATION; + +/************************************************************************/ +/************************************************************************/ +/* SX_DATE_TIME */ + +typedef struct sx_date_time + { + time_t dateTime; /* number of local or UTC/GMT/Zule seconds since 1/1/1970 */ + long microseconds; /* decimal fraction or microseconds */ + int tz; /* minutes specified in time zone "+hh:mm or -hh:mm" */ + ST_BOOLEAN useMicroseconds; /* indicates decimal fraction of microseconds is present */ + ST_BOOLEAN useTZ; /* if true "yyyy-mm-ddThh:mm:ss.fffff+/-hh:mm" or */ + /* "yyyy-mm-ddThh:mm:ss+/-hh:mm" or */ + /* "yyyy-mm-ddThh:mm:ss.fffffZ" or */ + /* "yyyy-mm-ddThh:mm:ssZ" */ + /* if false "yyyy-mm-ddThh:mm:ss.fffff or */ + /* "yyyy-mm-ddThh:mm:ss */ + } SX_DATE_TIME; + +/************************************************************************/ +/************************************************************************/ +/* XML <-> Local XML Style Selection */ + +/* Note: Style A must have the value 0 */ +#define SXD_XML_STYLE_A 0 /* Values as attrib, single element/struct */ +#define SXD_XML_STYLE_C 1 /* CDATA value encoding */ +#define SXD_XML_STYLE_V 2 /* Each value has own element, attrib encoded */ + +extern ST_INT sxdDefXmlStyle; /* Note: 0 is style A */ + +/* Examples: */ +/* A: */ +/* A: */ + +/* C: 1248044 */ +/* C: BinFull78Good */ + +/* V: */ +/* V: */ + +/************************************************************************/ +/************************************************************************/ +extern ST_BOOLEAN sxUseSax; +extern ST_BOOLEAN sxUseFormatting; +extern ST_BOOLEAN sxIgnoreNS; +extern ST_BOOLEAN sxLogOverrunAsFlow; + +/* elementFlags defines; bitmasked */ +#define SX_ELF_CSTART 0x0001 +#define SX_ELF_CEND 0x0002 +#define SX_ELF_CSTARTEND 0x0003 + +#define SX_ELF_RPT 0x0008 +#define SX_ELF_OPT 0x0004 +#define SX_ELF_OPTRPT 0x000C + +#define SX_ELF_EMPTYOK 0x0010 + +struct sx_dec_ctrl; /* forward definition */ + +typedef struct sx_element + { + char *tag; + ST_INT elementFlags; + void (*funcPtr)(struct sx_dec_ctrl *sxDecCtrl); + + char *user; + +/* Runtime elements: */ + ST_INT notUsed; + } SX_ELEMENT; + +/************************************************************************/ + +/* defines for string formatting */ +#define CODE_APOS "'" +#define CODE_QUOT """ +#define CODE_AMP "&" +#define CODE_LT "<" +#define CODE_GT ">" + +#define CODE_APOS_LEN (sizeof (CODE_APOS) - 1) +#define CODE_QUOT_LEN (sizeof (CODE_QUOT) - 1) +#define CODE_AMP_LEN (sizeof (CODE_AMP) - 1) +#define CODE_LT_LEN (sizeof (CODE_LT) - 1) +#define CODE_GT_LEN (sizeof (CODE_GT) - 1) + +#define CHAR_APOS '\'' +#define CHAR_QUOT '\"' +#define CHAR_AMP '&' +#define CHAR_LT '<' +#define CHAR_GT '>' + +/************************************************************************/ + +/* defines for 'reason' */ +#define SX_ELEMENT_START 1 +#define SX_ELEMENT_END 2 + + +typedef struct sx_element_tbl_ctrl + { + ST_INT numItems; + SX_ELEMENT *itemTbl; + ST_INT numOccTbl[SX_MAX_ITEMS_PER_TABLE]; + } SX_ELEMENT_TBL_CTRL; + +typedef struct sxe_attr_pair + { + ST_CHAR *name; + ST_CHAR *value; + } SXE_ATTR_PAIR; + +typedef struct sxd_attr_pair + { + ST_CHAR name[SX_MAX_ATTR_NAME]; + ST_CHAR value[SX_MAX_ATTR_VALUE]; + } SXD_ATTR_PAIR; + +typedef struct sx_dec_element_info + { + ST_CHAR tag[SX_MAX_TAG_LEN]; /* start/end */ + ST_CHAR *tagStart; /* tag start pointer */ + /* NOTE: "entityStart" is NOT used if USE_EXPAT defined */ + ST_CHAR *entityStart; /* start (and simple end) */ + ST_UINT attrCount; /* start (and simple end) */ + SXD_ATTR_PAIR attr[SX_MAX_ATTRIB]; /* start (and simple end) */ + /* NOTE: "entityEnd" is NOT used if USE_EXPAT defined */ + ST_CHAR *entityEnd; /* end */ + } SX_DEC_ELEMENT_INFO; + +typedef struct sx_dec_ctrl + { + /* NOTE: the following five params are used ONLY if USE_EXPAT defined */ + ST_VOID *parser; /* save XML_Parser here (cast to (ST_VOID *)) */ + ST_INT skipNestLevel; /* skip tags until back at this nest level */ + ST_INT entityLen; /* len of current entity */ + ST_INT entityBufSize; /* len of entity buffer */ + ST_CHAR *entityBuf; /* ptr to entity buffer */ + +/* XML being decoded */ + ST_CHAR *xmlStart; + ST_INT xmlLen; + + ST_BOOLEAN useFp; + ST_BOOLEAN ignoreNS; + FILE *fp; +/* Decoded element information */ + ST_INT reason; /* SX_ELEMENT_START, SX_ELEMENT_END */ + SX_DEC_ELEMENT_INFO sxDecElInfo; + ST_CHAR elemBuf[SX_MAX_ELEM_LEN+1]; /* tmp buffer for an element */ + +/* Set to != SD_SUCCESS for error */ + ST_RET errCode; /* defined above */ + ST_BOOLEAN termFlag; /* set if you want to terminate decode */ + +/* Set to SD_TRUE to disable numOcc checks */ + ST_BOOLEAN noOccCheck; + +/* Internal use */ + SX_ELEMENT *item; + ST_INT itemStackLevel; + SX_ELEMENT_TBL_CTRL items[SX_MAX_STACK_LEVEL]; + ST_BOOLEAN auto_pop[SX_MAX_STACK_LEVEL]; + + ST_INT xmlNestLevel; + SX_ELEMENT *elTbl[SX_MAX_XML_NEST]; + /* NOTE: "xmlPos" is NOT used if USE_EXPAT defined */ + ST_CHAR *xmlPos; + + ST_INT numAlloced; /* Used to keep track of dynamically allocated message buffers */ + ST_INT numAlloced2; + ST_INT numAlloced3; + ST_INT numAlloced4; + +/* User fields */ + ST_VOID *usr; + ST_VOID *elUser; + ST_VOID *unkElUser; + + /* The initial values for these pointers are passed to the functions */ + /* sx_parse_mt or sx_parseEx_mt. */ + ST_RET (*u_sx_el_start) (struct sx_dec_ctrl *sxDecCtrl, ST_CHAR *tag); + ST_RET (*u_sx_el_end) (struct sx_dec_ctrl *sxDecCtrl, ST_CHAR *tag); + } SX_DEC_CTRL ; + +/************************************************************************/ + +#define SX_PUSH(itemTbl)\ + sx_push (sxDecCtrl, sizeof(itemTbl)/sizeof(SX_ELEMENT), itemTbl, SD_TRUE) + +/* Thread safe versions of XML parsing */ +/* They are using the u_sx_el_xxx defined in the SX_DEC_CTRL) */ +ST_RET sx_parse_mt (ST_LONG lMsgLen, ST_CHAR *xml, ST_INT numItems, + SX_ELEMENT *itemTbl, ST_VOID *usr, + ST_RET (*u_sx_el_start_fun) (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *tag), + ST_RET (*u_sx_el_end_fun) (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *tag)); +ST_RET sx_parseEx_mt (ST_CHAR *fileName, ST_INT numItems, + SX_ELEMENT *itemTbl, ST_VOID *usr, + ST_RET (*u_sx_el_start_fun) (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *tag), + ST_RET (*u_sx_el_end_fun) (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *tag)); +ST_RET sx_parseExx_mt (ST_CHAR *fileName, ST_INT numItems, + SX_ELEMENT *itemTbl, ST_VOID *usr, + ST_RET (*u_sx_el_start_fun) (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *tag), + ST_RET (*u_sx_el_end_fun) (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *tag)); + +ST_VOID sx_push (SX_DEC_CTRL *sxDecCtrl, ST_INT numItems, + SX_ELEMENT *itemTbl, ST_BOOLEAN auto_pop); +ST_VOID sx_pop (SX_DEC_CTRL *sxDecCtrl); + + +ST_RET sx_get_entity (SX_DEC_CTRL *sxDecCtrl, + ST_CHAR *destBuf, ST_INT destLen, + ST_INT *lenOut); +ST_RET sx_get_int (SX_DEC_CTRL *sxDecCtrl, ST_INT *out_ptr); +ST_RET sx_get_float (SX_DEC_CTRL *sxDecCtrl, ST_FLOAT *out_ptr); +ST_RET sx_get_double (SX_DEC_CTRL *sxDecCtrl, ST_DOUBLE *out_ptr); +ST_RET sx_get_uchar (SX_DEC_CTRL *sxDecCtrl, ST_UCHAR *out_ptr); +ST_RET sx_get_int16 (SX_DEC_CTRL *sxDecCtrl, ST_INT16 *out_ptr); +ST_RET sx_get_uint16 (SX_DEC_CTRL *sxDecCtrl, ST_UINT16 *out_ptr); +ST_RET sx_get_int32 (SX_DEC_CTRL *sxDecCtrl, ST_INT32 *out_ptr); +ST_RET sx_get_uint32 (SX_DEC_CTRL *sxDecCtrl, ST_UINT32 *out_ptr); +ST_RET sx_get_uint32_hex (SX_DEC_CTRL *sxDecCtrl, ST_UINT32 *out_ptr); +ST_RET sx_get_long (SX_DEC_CTRL *sxDecCtrl, ST_LONG *out_ptr); +ST_RET sx_get_ulong (SX_DEC_CTRL *sxDecCtrl, ST_ULONG *out_ptr); +ST_RET sx_get_bool (SX_DEC_CTRL *sxDecCtrl, ST_BOOLEAN *out_ptr); +ST_RET sx_get_duration (SX_DEC_CTRL *sxDecCtrl, SX_DURATION *sxDuration); +ST_RET sx_get_xtime (SX_DEC_CTRL *sxDecCtrl, SX_DATE_TIME *sxDateTime); +ST_RET sx_get_tm (SX_DEC_CTRL *sxDecCtrl, struct tm *out_ptr); +ST_RET sx_get_tm_ex (SX_DEC_CTRL *sxDecCtrl, struct tm *out_ptr, ST_LONG *microseconds); +ST_RET sx_get_time (SX_DEC_CTRL *sxDecCtrl, time_t *out_ptr); +ST_RET sx_get_time_ex (SX_DEC_CTRL *sxDecCtrl, time_t *out_ptr, ST_LONG *microseconds); +ST_RET sx_get_uint (SX_DEC_CTRL *sxDecCtrl, ST_UINT *out_ptr); +ST_RET sx_get_alloc_string (SX_DEC_CTRL *sxDecCtrl, ST_CHAR **strOut); +ST_RET sx_get_string_ptr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR **strOut, ST_INT *lenOut); +ST_RET sx_get_string (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *dest, ST_INT *lenOut); +ST_RET sx_get_string_YesNo (SX_DEC_CTRL *sxDecCtrl, ST_BOOLEAN *dest, ST_RET errCode); +ST_RET sx_get_string_OnOff_mask (SX_DEC_CTRL *sxDecCtrl, ST_UINT *mask, ST_UINT maskBit, + ST_RET errCode); +ST_RET sx_get_string_OnOff_bool (SX_DEC_CTRL *sxDecCtrl, ST_BOOLEAN *dest, ST_RET errCode); +ST_VOID sx_format_string_dec (ST_CHAR *dest, ST_CHAR *src); +ST_VOID sx_format_string_enc (ST_CHAR *dest, ST_CHAR *src); +ST_VOID sx_format_nstring_enc (ST_CHAR *dest, ST_CHAR *src, ST_INT len); +ST_RET sx_get_bitstring (SX_DEC_CTRL *sxDecCtrl, ST_INT *dest, ST_INT *lenOut); +ST_RET sx_get_element_contents (SX_DEC_CTRL *sxDecCtrl, + ST_CHAR *destBuf, ST_INT destLen, + ST_INT *lenOut); +ST_RET sx_find_element_contents (SX_DEC_CTRL *sxDecCtrl, + ST_CHAR **elStartOut, ST_INT *lenOut); + +ST_RET sx_get_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *value, ST_CHAR *name); +ST_RET sx_get_attr_ptr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR **ptrOut, ST_CHAR *name); +ST_RET sx_get_bool_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, ST_BOOLEAN *out_ptr); +ST_RET sx_get_int_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, ST_INT *out_ptr); +ST_RET sx_get_float_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, ST_FLOAT *out_ptr); +ST_RET sx_get_double_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, ST_DOUBLE *out_ptr); +ST_RET sx_get_uchar_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, ST_UCHAR *out_ptr); +ST_RET sx_get_int16_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, ST_INT16 *out_ptr); +ST_RET sx_get_uint16_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, ST_UINT16 *out_ptr); +ST_RET sx_get_int32_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, ST_INT32 *out_ptr); +ST_RET sx_get_uint32_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, ST_UINT32 *out_ptr); +ST_RET sx_get_long_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, ST_LONG *out_ptr); +ST_RET sx_get_ulong_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, ST_ULONG *out_ptr); +ST_RET sx_get_uint_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, ST_UINT *out_ptr); +ST_RET sx_get_duration_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, SX_DURATION *out_ptr); +ST_RET sx_get_xtime_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, SX_DATE_TIME *out_ptr); +ST_RET sx_get_tm_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, struct tm *out_ptr); + +#define sxd_decode_data_el(elName,xml,xmlLen,xmlUsed,vdp,typeId,elPres,checkDt)\ + _sxd_decode_data_el(elName,xml,xmlLen,xmlUsed,vdp,typeId,elPres,sxdDefXmlStyle,checkDt) + + +ST_RET _sxd_decode_data_el (ST_CHAR *elName, + ST_CHAR *xml, ST_INT xmlLen, ST_INT *xmlUsed, + ST_VOID *vdp, ST_INT typeId, + ST_BOOLEAN *elPres, ST_INT sxdXmlStyle, ST_BOOLEAN checkDt); + +ST_VOID sxStartElement (SX_DEC_CTRL *sxDecCtrl); +ST_VOID sxEndElement (SX_DEC_CTRL *sxDecCtrl); +ST_RET sx_get_value (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *format_string, ST_VOID *out_ptr); +ST_RET sx_get_attr_value (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, + ST_CHAR *format_string, ST_VOID *out_ptr); + +ST_VOID sx_load_characters (ST_CHAR *lineBuf, ST_BOOLEAN *eof, FILE *fp, ST_INT numToRead); + + + +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ + +/* max prefix length in SXD_XML_STYLE_A */ +#define SXD_MAX_PREFIX 100 + +typedef struct sx_enc_ctrl + { + ST_INT xmlBufLen; + ST_CHAR *xmlBuf; + ST_CHAR *xmlBufEnd; + + ST_BOOLEAN useFp; + FILE *fp; + + ST_CHAR *nextWritePos; + + ST_INT currNestLevel; + ST_CHAR tags[SX_MAX_STACK_LEVEL][SX_MAX_TAG_LEN+1]; + ST_RET errCode; + + ST_BOOLEAN bUseFormatting; + ST_BOOLEAN bOneLineEl; + + ST_BOOLEAN bUnformattedStrings; + +/* Used for data encoding */ + ST_BOOLEAN encDt; + ST_CHAR *outerElement; + ST_INT sxdXmlStyle; + ST_CHAR sxdPrefix[SXD_MAX_PREFIX+1]; /* only for SXD_XML_STYLE_A */ + ST_INT sxdStructNestLevel; /* only for SXD_XML_STYLE_A */ + + ST_VOID *usr; + } SX_ENC_CTRL; + +/* Macro for getting current encoded length */ +#define SX_ENC_LEN(__sxEncCtrl) ((__sxEncCtrl)->nextWritePos - (__sxEncCtrl)->xmlBuf) + +/************************************************************************/ +/************************************************************************/ + +SX_ENC_CTRL *sx_start_encode (ST_CHAR *xmlBuf, ST_INT xmlBufLen); +SX_ENC_CTRL *sx_start_encodeEx (ST_CHAR *fileName); +ST_VOID sx_end_encode (SX_ENC_CTRL *sxEncCtrl); +ST_VOID sx_init_encode (SX_ENC_CTRL *sxEncCtrl, + ST_CHAR *xmlBuf, ST_INT xmlBufLen); +ST_RET sx_init_encodeEx (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *fileName); + +#define sx_start_element(sxEncCtrl,tag,numAttr,attr)\ + sx_write_element(sxEncCtrl,tag,numAttr,attr,SD_FALSE,SD_FALSE); + +#define sx_write_empty_element(sxEncCtrl,tag,numAttr,attr)\ + sx_write_element(sxEncCtrl,tag,numAttr,attr,SD_FALSE,SD_TRUE); + +ST_VOID sx_end_element (SX_ENC_CTRL *sxEncCtrl); +ST_VOID sx_write_element (SX_ENC_CTRL *sxEncCtrl, SD_CONST ST_CHAR *tag, + ST_INT numAttr, SXE_ATTR_PAIR *attr, + ST_BOOLEAN end, ST_BOOLEAN empty); + +/* Defines for 'no attribute' cases */ +#define sx_wr_string_el(sxEncCtrl,tag,str)\ + sx_wrx_string_el(sxEncCtrl,tag,str,0,NULL) + +#define sx_wr_nstring_el(sxEncCtrl,tag,str,len)\ + sx_wrx_nstring_el(sxEncCtrl,tag,str,len,0,NULL) + +#define sx_wr_int_el(sxEncCtrl,tag,val)\ + sx_wrx_int_el(sxEncCtrl,tag,val,0,NULL) + +#define sx_wr_uint_el(sxEncCtrl,tag,val)\ + sx_wrx_uint_el(sxEncCtrl,tag,val,0,NULL) + +#define sx_wr_ulong_el(sxEncCtrl,tag,val)\ + sx_wrx_ulong_el(sxEncCtrl,tag,val,0,NULL) + +#define sx_wr_uint32_hex_el(sxEncCtrl,tag,val)\ + sx_wrx_uint32_hex_el(sxEncCtrl,tag,val,0,NULL) + +#define sx_wr_float_el(sxEncCtrl,tag,val)\ + sx_wrx_float_el(sxEncCtrl,tag,val,0,NULL) + +#define sx_wr_double_el(sxEncCtrl,tag,val)\ + sx_wrx_double_el(sxEncCtrl,tag,val,0,NULL) + +#define sx_wr_long_el(sxEncCtrl,tag,val)\ + sx_wrx_long_el(sxEncCtrl,tag,val,0,NULL) + +#define sx_wr_bool_el(sxEncCtrl,tag,val)\ + sx_wrx_bool_el(sxEncCtrl,tag,val,0,NULL) + +#define sx_wr_tm_el(sxEncCtrl,tag,val)\ + sx_wrx_tm_el(sxEncCtrl,tag,val,0,NULL) + +#define sx_wr_time_el(sxEncCtrl,tag,val)\ + sx_wrx_time_el(sxEncCtrl,tag,val,0,NULL) + +#define sx_wr_duration_el(sxEncCtrl,tag,val)\ + sx_wrx_duration_el(sxEncCtrl,tag,val,0,NULL) + +#define sx_wr_xtime_el(sxEncCtrl,tag,val)\ + sx_wrx_xtime_el(sxEncCtrl,tag,val,0,NULL) + +#define sx_wr_cdata_el(sxEncCtrl,tag,str, len)\ + sx_wrx_cdata_el(sxEncCtrl,tag,str,len,0,NULL) + +/* Functions to write elements and element contents */ +ST_VOID sx_wr_string (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *str); +ST_VOID sx_wrx_string_el (SX_ENC_CTRL *sxEncCtrl, SD_CONST ST_CHAR *tag, ST_CHAR *str, + ST_INT numAttr, SXE_ATTR_PAIR *attr); + +ST_VOID sx_wr_nstring (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *str, ST_INT len); +ST_VOID sx_wrx_nstring_el (SX_ENC_CTRL *sxEncCtrl, SD_CONST ST_CHAR *tag, ST_CHAR *str, ST_INT len, + ST_INT numAttr, SXE_ATTR_PAIR *attr); + +ST_VOID sx_wr_bitstring (SX_ENC_CTRL *sxEncCtrl, ST_INT numBits, + ST_UINT8 *bitStr); +ST_VOID sx_wrx_bitstring_el (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *tag, + ST_INT numBits, ST_UINT8 *bitStr, + ST_INT numAttr, SXE_ATTR_PAIR *attr); + +ST_VOID sx_wr_int (SX_ENC_CTRL *sxEncCtrl, ST_INT val); +ST_VOID sx_wrx_int_el (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *tag, ST_INT val, + ST_INT numAttr, SXE_ATTR_PAIR *attr); + +ST_VOID sx_wr_uint (SX_ENC_CTRL *sxEncCtrl, ST_UINT val); +ST_VOID sx_wrx_uint_el (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *tag, ST_UINT val, + ST_INT numAttr, SXE_ATTR_PAIR *attr); + +ST_VOID sx_wr_ulong (SX_ENC_CTRL *sxEncCtrl, ST_ULONG val); +ST_VOID sx_wrx_ulong_el (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *tag, ST_ULONG val, + ST_INT numAttr, SXE_ATTR_PAIR *attr); + +ST_VOID sx_wr_uint32_hex (SX_ENC_CTRL *sxEncCtrl, ST_UINT32 val); +ST_VOID sx_wrx_uint32_hex_el (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *tag, ST_UINT32 val, + ST_INT numAttr, SXE_ATTR_PAIR *attr); + +ST_VOID sx_wr_float (SX_ENC_CTRL *sxEncCtrl, ST_FLOAT val); +ST_VOID sx_wrx_float_el (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *tag, ST_FLOAT val, + ST_INT numAttr, SXE_ATTR_PAIR *attr); + +ST_VOID sx_wr_double (SX_ENC_CTRL *sxEncCtrl, ST_DOUBLE val); +ST_VOID sx_wrx_double_el (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *tag, ST_DOUBLE val, + ST_INT numAttr, SXE_ATTR_PAIR *attr); + +ST_VOID sx_wr_long (SX_ENC_CTRL *sxEncCtrl, ST_LONG val); +ST_VOID sx_wrx_long_el (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *tag, ST_LONG val, + ST_INT numAttr, SXE_ATTR_PAIR *attr); + +ST_VOID sx_wr_bool (SX_ENC_CTRL *sxEncCtrl, ST_BOOLEAN val); +ST_VOID sx_wrx_bool_el (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *tag, ST_BOOLEAN val, + ST_INT numAttr, SXE_ATTR_PAIR *attr); + +ST_VOID sx_wr_tm (SX_ENC_CTRL *sxEncCtrl, struct tm *val); +ST_VOID sx_wrx_tm_el (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *tag, struct tm *val, + ST_INT numAttr, SXE_ATTR_PAIR *attr); + +ST_VOID sx_wr_time (SX_ENC_CTRL *sxEncCtrl, time_t val); +ST_VOID sx_wrx_time_el (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *tag, time_t val, + ST_INT numAttr, SXE_ATTR_PAIR *attr); + +ST_VOID sx_wr_duration (SX_ENC_CTRL *sxEncCtrl, SX_DURATION *sxDuration); +ST_VOID sx_wrx_duration_el (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *tag, SX_DURATION *val, + ST_INT numAttr, SXE_ATTR_PAIR *attr); + +ST_VOID sx_wr_xtime (SX_ENC_CTRL *sxEncCtrl, SX_DATE_TIME *sxDateTime); +ST_VOID sx_wrx_xtime_el (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *tag, SX_DATE_TIME *val, + ST_INT numAttr, SXE_ATTR_PAIR *attr); + +ST_VOID sx_wr_cdata (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *str, ST_INT len); +ST_VOID sx_wrx_cdata_el (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *tag, + ST_CHAR *str, ST_INT len, + ST_INT numAttr, SXE_ATTR_PAIR *attr); + +#define sxd_wr_data(ec,typeId,elName,data,encodeDt,elPres)\ + _sxd_wr_data(ec,typeId,elName,data,sxdDefXmlStyle,encodeDt,elPres)\ + +ST_RET _sxd_wr_data (SX_ENC_CTRL *sxEncCtrl, ST_INT typeId, + ST_CHAR *elName, ST_VOID *data, ST_INT sxdXmlStyle, + ST_BOOLEAN encodeDt, ST_BOOLEAN *elPres); + + +ST_VOID sx_add_string (SX_ENC_CTRL *sxEncCtrl, SD_CONST ST_CHAR *_src, + ST_CHAR **writePosIo); +ST_RET sx_add_buf (SX_ENC_CTRL *sxEncCtrl, SD_CONST ST_CHAR *_src, ST_INT _srcLen, + ST_CHAR **writePosIo); +ST_VOID sx_wr_comment (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *str); + +ST_RET XmlStringToDuration (ST_CHAR *src, SX_DURATION *out_ptr); +ST_RET XmlDurationToString (ST_CHAR *buffer, ST_LONG size, SX_DURATION *sxDuration); + +/************************************************************************/ +#ifdef __cplusplus +} +#endif + +#endif /* SX_DEFS_INCLUDED */ + diff --git a/mmslib/inc/sx_log.h b/mmslib/inc/sx_log.h new file mode 100644 index 0000000..36a3670 --- /dev/null +++ b/mmslib/inc/sx_log.h @@ -0,0 +1,337 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1999 - 2005, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : sx_log.h */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 11/02/05 EJV 07 Add sx_debug_sel_cfg to save SX masks while */ +/* logging configuration is parsed. */ +/* 05/06/04 DWL 06 Use new "Base" macros SLOG_*, SLOGC_*, SLOGH.*/ +/* 06/06/01 GLB 05 Added SXLOG_CFLOW2 */ +/* 04/26/01 EJV 04 Added/rearranged slog macros for !DEBUG_SISCO*/ +/* 01/25/01 JRB 03 Added SXLOG_ERR2,3 */ +/* 10/30/99 MDE 02 Added SXLOG_NERR3 */ +/* 09/17/99 MDE 01 New */ +/************************************************************************/ + +#ifndef SX_LOG_INCLUDED +#define SX_LOG_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +/************************************************************************/ + +#include "slog.h" + +/************************************************************************/ +/* sx_debug_sel bit assignments */ + +#define SX_LOG_DEC 0x0001 +#define SX_LOG_ENC 0x0002 +#define SX_LOG_FLOW 0x0004 +#define SX_LOG_DEBUG 0x0008 +#define SX_LOG_ERR 0x0010 +#define SX_LOG_NERR 0x0020 + +extern ST_UINT sx_debug_sel; +extern ST_UINT sx_debug_sel_cfg; /* saves SX masks while logging configuration is parsed */ + +/* Log type strings */ +extern SD_CONST ST_CHAR *SD_CONST _sx_log_dec_logstr; +extern SD_CONST ST_CHAR *SD_CONST _sx_log_enc_logstr; +extern SD_CONST ST_CHAR *SD_CONST _sx_log_flow_logstr; +extern SD_CONST ST_CHAR *SD_CONST _sx_log_debug_logstr; +extern SD_CONST ST_CHAR *SD_CONST _sx_log_err_logstr; +extern SD_CONST ST_CHAR *SD_CONST _sx_log_nerr_logstr; + +/************************************************************************/ +/* Decode log macros */ +#define SXLOG_DEC0(a) \ + SLOG_0 (sx_debug_sel & SX_LOG_DEC,_sx_log_dec_logstr,a) +#define SXLOG_DEC1(a,b) \ + SLOG_1 (sx_debug_sel & SX_LOG_DEC,_sx_log_dec_logstr,a,b) +#define SXLOG_DEC2(a,b,c) \ + SLOG_2 (sx_debug_sel & SX_LOG_DEC,_sx_log_dec_logstr,a,b,c) +#define SXLOG_DEC3(a,b,c,d) \ + SLOG_3 (sx_debug_sel & SX_LOG_DEC,_sx_log_dec_logstr,a,b,c,d) +#define SXLOG_DEC4(a,b,c,d,e) \ + SLOG_4 (sx_debug_sel & SX_LOG_DEC,_sx_log_dec_logstr,a,b,c,d,e) +#define SXLOG_DEC5(a,b,c,d,e,f) \ + SLOG_5 (sx_debug_sel & SX_LOG_DEC,_sx_log_dec_logstr,a,b,c,d,e,f) +#define SXLOG_DEC6(a,b,c,d,e,f,g) \ + SLOG_6 (sx_debug_sel & SX_LOG_DEC,_sx_log_dec_logstr,a,b,c,d,e,f,g) +#define SXLOG_DEC7(a,b,c,d,e,f,g,h) \ + SLOG_7 (sx_debug_sel & SX_LOG_DEC,_sx_log_dec_logstr,a,b,c,d,e,f,g,h) +#define SXLOG_DEC8(a,b,c,d,e,f,g,h,i) \ + SLOG_8 (sx_debug_sel & SX_LOG_DEC,_sx_log_dec_logstr,a,b,c,d,e,f,g,h,i) + +/* Decode continuation log macros */ +#define SXLOG_CDEC0(a) \ + SLOGC_0 (sx_debug_sel & SX_LOG_DEC,a) +#define SXLOG_CDEC1(a,b) \ + SLOGC_1 (sx_debug_sel & SX_LOG_DEC,a,b) +#define SXLOG_CDEC2(a,b,c) \ + SLOGC_2 (sx_debug_sel & SX_LOG_DEC,a,b,c) +#define SXLOG_CDEC3(a,b,c,d) \ + SLOGC_3 (sx_debug_sel & SX_LOG_DEC,a,b,c,d) +#define SXLOG_CDEC4(a,b,c,d,e) \ + SLOGC_4 (sx_debug_sel & SX_LOG_DEC,a,b,c,d,e) +#define SXLOG_CDEC5(a,b,c,d,e,f) \ + SLOGC_5 (sx_debug_sel & SX_LOG_DEC,a,b,c,d,e,f) +#define SXLOG_CDEC6(a,b,c,d,e,f,g) \ + SLOGC_6 (sx_debug_sel & SX_LOG_DEC,a,b,c,d,e,f,g) +#define SXLOG_CDEC7(a,b,c,d,e,f,g,h) \ + SLOGC_7 (sx_debug_sel & SX_LOG_DEC,a,b,c,d,e,f,g,h) +#define SXLOG_CDEC8(a,b,c,d,e,f,g,h,i) \ + SLOGC_8 (sx_debug_sel & SX_LOG_DEC,a,b,c,d,e,f,g,h,i) + +/* Decode Hex log macro */ +#define SXLOG_DECH(a,b) \ + SLOGH (sx_debug_sel & SX_LOG_DEC,a,b) + +/************************************************************************/ +/* Encode log macros */ +#define SXLOG_ENC0(a) \ + SLOG_0 (sx_debug_sel & SX_LOG_ENC,_sx_log_enc_logstr,a) +#define SXLOG_ENC1(a,b) \ + SLOG_1 (sx_debug_sel & SX_LOG_ENC,_sx_log_enc_logstr,a,b) +#define SXLOG_ENC2(a,b,c) \ + SLOG_2 (sx_debug_sel & SX_LOG_ENC,_sx_log_enc_logstr,a,b,c) +#define SXLOG_ENC3(a,b,c,d) \ + SLOG_3 (sx_debug_sel & SX_LOG_ENC,_sx_log_enc_logstr,a,b,c,d) +#define SXLOG_ENC4(a,b,c,d,e) \ + SLOG_4 (sx_debug_sel & SX_LOG_ENC,_sx_log_enc_logstr,a,b,c,d,e) +#define SXLOG_ENC5(a,b,c,d,e,f) \ + SLOG_5 (sx_debug_sel & SX_LOG_ENC,_sx_log_enc_logstr,a,b,c,d,e,f) +#define SXLOG_ENC6(a,b,c,d,e,f,g) \ + SLOG_6 (sx_debug_sel & SX_LOG_ENC,_sx_log_enc_logstr,a,b,c,d,e,f,g) +#define SXLOG_ENC7(a,b,c,d,e,f,g,h) \ + SLOG_7 (sx_debug_sel & SX_LOG_ENC,_sx_log_enc_logstr,a,b,c,d,e,f,g,h) +#define SXLOG_ENC8(a,b,c,d,e,f,g,h,i) \ + SLOG_8 (sx_debug_sel & SX_LOG_ENC,_sx_log_enc_logstr,a,b,c,d,e,f,g,h,i) + +/* Encode continuation log macros */ +#define SXLOG_CENC0(a) \ + SLOGC_0 (sx_debug_sel & SX_LOG_ENC,a) +#define SXLOG_CENC1(a,b) \ + SLOGC_1 (sx_debug_sel & SX_LOG_ENC,a,b) +#define SXLOG_CENC2(a,b,c) \ + SLOGC_2 (sx_debug_sel & SX_LOG_ENC,a,b,c) +#define SXLOG_CENC3(a,b,c,d) \ + SLOGC_3 (sx_debug_sel & SX_LOG_ENC,a,b,c,d) +#define SXLOG_CENC4(a,b,c,d,e) \ + SLOGC_4 (sx_debug_sel & SX_LOG_ENC,a,b,c,d,e) +#define SXLOG_CENC5(a,b,c,d,e,f) \ + SLOGC_5 (sx_debug_sel & SX_LOG_ENC,a,b,c,d,e,f) +#define SXLOG_CENC6(a,b,c,d,e,f,g) \ + SLOGC_6 (sx_debug_sel & SX_LOG_ENC,a,b,c,d,e,f,g) +#define SXLOG_CENC7(a,b,c,d,e,f,g,h) \ + SLOGC_7 (sx_debug_sel & SX_LOG_ENC,a,b,c,d,e,f,g,h) +#define SXLOG_CENC8(a,b,c,d,e,f,g,h,i) \ + SLOGC_8 (sx_debug_sel & SX_LOG_ENC,a,b,c,d,e,f,g,h,i) + +/* Encode Hex log macro */ +#define SXLOG_ENCH(a,b) \ + SLOGH (sx_debug_sel & SX_LOG_ENC,a,b) + +/************************************************************************/ +/* Flow log macros */ +#define SXLOG_FLOW0(a) \ + SLOG_0 (sx_debug_sel & SX_LOG_FLOW,_sx_log_flow_logstr,a) +#define SXLOG_FLOW1(a,b) \ + SLOG_1 (sx_debug_sel & SX_LOG_FLOW,_sx_log_flow_logstr,a,b) +#define SXLOG_FLOW2(a,b,c) \ + SLOG_2 (sx_debug_sel & SX_LOG_FLOW,_sx_log_flow_logstr,a,b,c) +#define SXLOG_FLOW3(a,b,c,d) \ + SLOG_3 (sx_debug_sel & SX_LOG_FLOW,_sx_log_flow_logstr,a,b,c,d) +#define SXLOG_FLOW4(a,b,c,d,e) \ + SLOG_4 (sx_debug_sel & SX_LOG_FLOW,_sx_log_flow_logstr,a,b,c,d,e) +#define SXLOG_FLOW5(a,b,c,d,e,f) \ + SLOG_5 (sx_debug_sel & SX_LOG_FLOW,_sx_log_flow_logstr,a,b,c,d,e,f) +#define SXLOG_FLOW6(a,b,c,d,e,f,g) \ + SLOG_6 (sx_debug_sel & SX_LOG_FLOW,_sx_log_flow_logstr,a,b,c,d,e,f,g) +#define SXLOG_FLOW7(a,b,c,d,e,f,g,h) \ + SLOG_7 (sx_debug_sel & SX_LOG_FLOW,_sx_log_flow_logstr,a,b,c,d,e,f,g,h) +#define SXLOG_FLOW8(a,b,c,d,e,f,g,h,i) \ + SLOG_8 (sx_debug_sel & SX_LOG_FLOW,_sx_log_flow_logstr,a,b,c,d,e,f,g,h,i) + +/* Flow continuation log macros */ +#define SXLOG_CFLOW0(a) \ + SLOGC_0 (sx_debug_sel & SX_LOG_FLOW,a) +#define SXLOG_CFLOW1(a,b) \ + SLOGC_1 (sx_debug_sel & SX_LOG_FLOW,a,b) +#define SXLOG_CFLOW2(a,b,c) \ + SLOGC_2 (sx_debug_sel & SX_LOG_FLOW,a,b,c) +#define SXLOG_CFLOW3(a,b,c,d) \ + SLOGC_3 (sx_debug_sel & SX_LOG_FLOW,a,b,c,d) +#define SXLOG_CFLOW4(a,b,c,d,e) \ + SLOGC_4 (sx_debug_sel & SX_LOG_FLOW,a,b,c,d,e) +#define SXLOG_CFLOW5(a,b,c,d,e,f) \ + SLOGC_5 (sx_debug_sel & SX_LOG_FLOW,a,b,c,d,e,f) +#define SXLOG_CFLOW6(a,b,c,d,e,f,g) \ + SLOGC_6 (sx_debug_sel & SX_LOG_FLOW,a,b,c,d,e,f,g) +#define SXLOG_CFLOW7(a,b,c,d,e,f,g,h) \ + SLOGC_7 (sx_debug_sel & SX_LOG_FLOW,a,b,c,d,e,f,g,h) +#define SXLOG_CFLOW8(a,b,c,d,e,f,g,h,i) \ + SLOGC_8 (sx_debug_sel & SX_LOG_FLOW,a,b,c,d,e,f,g,h,i) + +/* Flow Hex log macro */ +#define SXLOG_FLOWH(a,b) \ + SLOGH (sx_debug_sel & SX_LOG_FLOW,a,b) + +/************************************************************************/ +/* Debug log macros */ +#define SXLOG_DEBUG0(a) \ + SLOG_0 (sx_debug_sel & SX_LOG_DEBUG,_sx_log_debug_logstr,a) +#define SXLOG_DEBUG1(a,b) \ + SLOG_1 (sx_debug_sel & SX_LOG_DEBUG,_sx_log_debug_logstr,a,b) +#define SXLOG_DEBUG2(a,b,c) \ + SLOG_2 (sx_debug_sel & SX_LOG_DEBUG,_sx_log_debug_logstr,a,b,c) +#define SXLOG_DEBUG3(a,b,c,d) \ + SLOG_3 (sx_debug_sel & SX_LOG_DEBUG,_sx_log_debug_logstr,a,b,c,d) +#define SXLOG_DEBUG4(a,b,c,d,e) \ + SLOG_4 (sx_debug_sel & SX_LOG_DEBUG,_sx_log_debug_logstr,a,b,c,d,e) +#define SXLOG_DEBUG5(a,b,c,d,e,f) \ + SLOG_5 (sx_debug_sel & SX_LOG_DEBUG,_sx_log_debug_logstr,a,b,c,d,e,f) +#define SXLOG_DEBUG6(a,b,c,d,e,f,g) \ + SLOG_6 (sx_debug_sel & SX_LOG_DEBUG,_sx_log_debug_logstr,a,b,c,d,e,f,g) +#define SXLOG_DEBUG7(a,b,c,d,e,f,g,h) \ + SLOG_7 (sx_debug_sel & SX_LOG_DEBUG,_sx_log_debug_logstr,a,b,c,d,e,f,g,h) +#define SXLOG_DEBUG8(a,b,c,d,e,f,g,h,i) \ + SLOG_8 (sx_debug_sel & SX_LOG_DEBUG,_sx_log_debug_logstr,a,b,c,d,e,f,g,h,i) + +/* Debug continuation log macros */ +#define SXLOG_CDEBUG0(a) \ + SLOGC_0 (sx_debug_sel & SX_LOG_DEBUG,a) +#define SXLOG_CDEBUG1(a,b) \ + SLOGC_1 (sx_debug_sel & SX_LOG_DEBUG,a,b) +#define SXLOG_CDEBUG2(a,b,c) \ + SLOGC_2 (sx_debug_sel & SX_LOG_DEBUG,a,b,c) +#define SXLOG_CDEBUG3(a,b,c,d) \ + SLOGC_3 (sx_debug_sel & SX_LOG_DEBUG,a,b,c,d) +#define SXLOG_CDEBUG4(a,b,c,d,e) \ + SLOGC_4 (sx_debug_sel & SX_LOG_DEBUG,a,b,c,d,e) +#define SXLOG_CDEBUG5(a,b,c,d,e,f) \ + SLOGC_5 (sx_debug_sel & SX_LOG_DEBUG,a,b,c,d,e,f) +#define SXLOG_CDEBUG6(a,b,c,d,e,f,g) \ + SLOGC_6 (sx_debug_sel & SX_LOG_DEBUG,a,b,c,d,e,f,g) +#define SXLOG_CDEBUG7(a,b,c,d,e,f,g,h) \ + SLOGC_7 (sx_debug_sel & SX_LOG_DEBUG,a,b,c,d,e,f,g,h) +#define SXLOG_CDEBUG8(a,b,c,d,e,f,g,h,i) \ + SLOGC_8 (sx_debug_sel & SX_LOG_DEBUG,a,b,c,d,e,f,g,h,i) + +/* Debug Hex log macro */ +#define SXLOG_DEBUGH(a,b) \ + SLOGH (sx_debug_sel & SX_LOG_DEBUG,a,b) + +/************************************************************************/ +/* Err log macros */ +#define SXLOG_ERR0(a) \ + SLOG_0 (sx_debug_sel & SX_LOG_ERR,_sx_log_err_logstr,a) +#define SXLOG_ERR1(a,b) \ + SLOG_1 (sx_debug_sel & SX_LOG_ERR,_sx_log_err_logstr,a,b) +#define SXLOG_ERR2(a,b,c) \ + SLOG_2 (sx_debug_sel & SX_LOG_ERR,_sx_log_err_logstr,a,b,c) +#define SXLOG_ERR3(a,b,c,d) \ + SLOG_3 (sx_debug_sel & SX_LOG_ERR,_sx_log_err_logstr,a,b,c,d) +#define SXLOG_ERR4(a,b,c,d,e) \ + SLOG_4 (sx_debug_sel & SX_LOG_ERR,_sx_log_err_logstr,a,b,c,d,e) +#define SXLOG_ERR5(a,b,c,d,e,f) \ + SLOG_5 (sx_debug_sel & SX_LOG_ERR,_sx_log_err_logstr,a,b,c,d,e,f) +#define SXLOG_ERR6(a,b,c,d,e,f,g) \ + SLOG_6 (sx_debug_sel & SX_LOG_ERR,_sx_log_err_logstr,a,b,c,d,e,f,g) +#define SXLOG_ERR7(a,b,c,d,e,f,g,h) \ + SLOG_7 (sx_debug_sel & SX_LOG_ERR,_sx_log_err_logstr,a,b,c,d,e,f,g,h) +#define SXLOG_ERR8(a,b,c,d,e,f,g,h,i) \ + SLOG_8 (sx_debug_sel & SX_LOG_ERR,_sx_log_err_logstr,a,b,c,d,e,f,g,h,i) + +/* Err continuation log macros */ +#define SXLOG_CERR0(a) \ + SLOGC_0 (sx_debug_sel & SX_LOG_ERR,a) +#define SXLOG_CERR1(a,b) \ + SLOGC_1 (sx_debug_sel & SX_LOG_ERR,a,b) +#define SXLOG_CERR2(a,b,c) \ + SLOGC_2 (sx_debug_sel & SX_LOG_ERR,a,b,c) +#define SXLOG_CERR3(a,b,c,d) \ + SLOGC_3 (sx_debug_sel & SX_LOG_ERR,a,b,c,d) +#define SXLOG_CERR4(a,b,c,d,e) \ + SLOGC_4 (sx_debug_sel & SX_LOG_ERR,a,b,c,d,e) +#define SXLOG_CERR5(a,b,c,d,e,f) \ + SLOGC_5 (sx_debug_sel & SX_LOG_ERR,a,b,c,d,e,f) +#define SXLOG_CERR6(a,b,c,d,e,f,g) \ + SLOGC_6 (sx_debug_sel & SX_LOG_ERR,a,b,c,d,e,f,g) +#define SXLOG_CERR7(a,b,c,d,e,f,g,h) \ + SLOGC_7 (sx_debug_sel & SX_LOG_ERR,a,b,c,d,e,f,g,h) +#define SXLOG_CERR8(a,b,c,d,e,f,g,h,i) \ + SLOGC_8 (sx_debug_sel & SX_LOG_ERR,a,b,c,d,e,f,g,h,i) + +/* Err Hex log macro */ +#define SXLOG_ERRH(a,b) \ + SLOGH (sx_debug_sel & SX_LOG_ERR,a,b) + +/************************************************************************/ +/* NErr log macros */ +#define SXLOG_NERR0(a) \ + SLOG_0 (sx_debug_sel & SX_LOG_NERR,_sx_log_nerr_logstr,a) +#define SXLOG_NERR1(a,b) \ + SLOG_1 (sx_debug_sel & SX_LOG_NERR,_sx_log_nerr_logstr,a,b) +#define SXLOG_NERR2(a,b,c) \ + SLOG_2 (sx_debug_sel & SX_LOG_NERR,_sx_log_nerr_logstr,a,b,c) +#define SXLOG_NERR3(a,b,c,d) \ + SLOG_3 (sx_debug_sel & SX_LOG_NERR,_sx_log_nerr_logstr,a,b,c,d) +#define SXLOG_NERR4(a,b,c,d,e) \ + SLOG_4 (sx_debug_sel & SX_LOG_NERR,_sx_log_nerr_logstr,a,b,c,d,e) +#define SXLOG_NERR5(a,b,c,d,e,f) \ + SLOG_5 (sx_debug_sel & SX_LOG_NERR,_sx_log_nerr_logstr,a,b,c,d,e,f) +#define SXLOG_NERR6(a,b,c,d,e,f,g) \ + SLOG_6 (sx_debug_sel & SX_LOG_NERR,_sx_log_nerr_logstr,a,b,c,d,e,f,g) +#define SXLOG_NERR7(a,b,c,d,e,f,g,h) \ + SLOG_7 (sx_debug_sel & SX_LOG_NERR,_sx_log_nerr_logstr,a,b,c,d,e,f,g,h) +#define SXLOG_NERR8(a,b,c,d,e,f,g,h,i) \ + SLOG_8 (sx_debug_sel & SX_LOG_NERR,_sx_log_nerr_logstr,a,b,c,d,e,f,g,h,i) + +/* NErr continuation log macros */ +#define SXLOG_CNERR0(a) \ + SLOGC_0 (sx_debug_sel & SX_LOG_NERR,a) +#define SXLOG_CNERR1(a,b) \ + SLOGC_1 (sx_debug_sel & SX_LOG_NERR,a,b) +#define SXLOG_CNERR2(a,b,c) \ + SLOGC_2 (sx_debug_sel & SX_LOG_NERR,a,b,c) +#define SXLOG_CNERR3(a,b,c,d) \ + SLOGC_3 (sx_debug_sel & SX_LOG_NERR,a,b,c,d) +#define SXLOG_CNERR4(a,b,c,d,e) \ + SLOGC_4 (sx_debug_sel & SX_LOG_NERR,a,b,c,d,e) +#define SXLOG_CNERR5(a,b,c,d,e,f) \ + SLOGC_5 (sx_debug_sel & SX_LOG_NERR,a,b,c,d,e,f) +#define SXLOG_CNERR6(a,b,c,d,e,f,g) \ + SLOGC_6 (sx_debug_sel & SX_LOG_NERR,a,b,c,d,e,f,g) +#define SXLOG_CNERR7(a,b,c,d,e,f,g,h) \ + SLOGC_7 (sx_debug_sel & SX_LOG_NERR,a,b,c,d,e,f,g,h) +#define SXLOG_CNERR8(a,b,c,d,e,f,g,h,i) \ + SLOGC_8 (sx_debug_sel & SX_LOG_NERR,a,b,c,d,e,f,g,h,i) + +/* NErr Hex log macro */ +#define SXLOG_NERRH(a,b) \ + SLOGH (sx_debug_sel & SX_LOG_NERR,a,b) +/************************************************************************/ + + +#ifdef __cplusplus +} +#endif + +/************************************************************************/ +#endif /* End of SX_LOG_INCLUDED */ +/************************************************************************/ diff --git a/mmslib/inc/sysincs.h b/mmslib/inc/sysincs.h new file mode 100644 index 0000000..8929593 --- /dev/null +++ b/mmslib/inc/sysincs.h @@ -0,0 +1,459 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2008, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : sysincs.h */ +/* PRODUCT(S) : MMSEASE */ +/* */ +/* MODULE DESCRIPTION : */ +/* The purpose of this include file is to bring in include files */ +/* that come with one of the various C compilers. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/27/08 EJV 48 Defined S_MAX_PATH for all systems. */ +/* 01/15/08 EJV 47 Added S_FMT_* helper macros for (s)printf. */ +/* 11/01/07 EJV UNIX, Linux: added define MAX_PATH. */ +/* 02/28/08 JRB 46 Add timeb.h for _WIN32, linux, QNX. */ +/* 10/03/07 JRB 45 Add winsock2.h BEFORE windows.h */ +/* Add #pragma for _WIN32. */ +/* 11/08/06 EJV 44 HP-UX: use */ +/* 07/10/06 EJV 43 Sun: chg inlude to . */ +/* 06/19/06 EJV 42 VXWORKS, QNX: added . */ +/* UNIX, Linux: added . */ +/* 02/28/06 EJV 41 Added pragma to disable warning C4996 (about */ +/* deprecated functions). */ +/* 01/30/06 GLB 33 Integrated porting changes for VMS */ +/* 02/13/06 DSF 39 Migrate to VS.NET 2005 */ +/* 12/16/05 GLB 38 Added "unix.h" for "ftruncate" */ +/* 11/21/05 DSF 37 Do not enforce definition of ASSERT */ +/* 09/28/05 EJV 36 Moved filio.h for sun (from gensock2.c). */ +/* 08/10/05 JRB 35 Fixed a few newline characters. */ +/* 07/15/05 DSF 34 Fixed SASSERT warnings for release builds */ +/* 05/24/05 EJV 33 UNIX, Linux: added include */ +/* 03/18/05 DSF 32 Log asserts */ +/* 12/07/04 JRB 31 Define larger FD_SETSIZE for QNX. */ +/* 09/22/04 EJV 30 Added INADDR_NONE (needed on sun) */ +/* 07/08/04 DSF 29 Fixed SASSERT macro */ +/* 01/26/04 JRB 28 Fix LYNX includes. */ +/* 01/22/04 DSF 27 Added/modified ASSERT macros */ +/* 01/19/04 EJV 26 __hpux 10.20 does not have sys/select.h. */ +/* 12/09/03 JRB 25 Add LYNX support. Add () to max,min macros. */ +/* 10/23/03 JRB 24 Move socket includes to here. */ +/* For _WIN32, add windows.h, process.h */ +/* Del unused CDECL define. */ +/* 04/28/03 DSF 23 Make sure expression inside VERIFY is always */ +/* executed */ +/* 04/15/03 DSF 22 Don't define/undef NDEBUG */ +/* 03/18/03 JRB 21 Fix QNX #ifdef. */ +/* 02/20/03 JRB 20 Del PSOS code. */ +/* 02/17/03 CRM 19 Added "defined(linux)" code. */ +/* 02/17/03 JRB 18 Stop using SYSTEM_SEL define. */ +/* Add conio.h for WIN32. */ +/* Add sys/time.h, sys/select.h for UNIX. */ +/* Add termio.h for UNIX & QNX. */ +/* 02/27/02 EJV 17 Added limits.h to most of systems. */ +/* Check if LONG_MAX and INT_MAX defined. */ +/* 07/27/01 DSF 16 crtdbg.h should only be included if _DEBUG */ +/* is defined */ +/* 03/16/01 DSF 15 Make sure VERIFY is not defined before */ +/* defining it */ +/* 02/02/01 DSF 14 Added asserts */ +/* 01/19/01 EJV 13 Added for SYSTEM_SEL_SYS_5. */ +/* 01/03/01 EJV 12 Added for SYSTEM_SEL_SYS_5. */ +/* 10/13/00 EJV 11 Added for some SYSTEM_SEL_SYS_5. */ +/* 05/05/00 JRB 10 Added "select.h" for some systems. */ +/* 04/20/00 EJV 09 Added stdarg.h for SYSTEM_SEL_SYS_5. */ +/* 02/04/99 JRB 08 Added types.h & stat.h for most systems. */ +/* 07/01/98 JRB 07 Added stdarg.h & ctype.h for some systems. */ +/* 12/29/97 JRB 06 Cleaned up OS2 (include os2.h). More PSOS. */ +/* 12/11/97 JRB 05 Cleaned up PSOS includes. Use SYS_PSOS. */ +/* 12/11/97 JRB 04 Deleted EMBEDDED_6800 includes. */ +/* 10/29/97 EJV 03 Corrected max maro definition */ +/* 10/28/97 EJV 02 Added *.h files specific for SYS_5 */ +/* 08/15/97 EJV 01 Added *.h files specific for SYS_QNX4 */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#ifndef SYSINCS_INCLUDED +#define SYSINCS_INCLUDED + +#ifdef __cplusplus +extern "C" { +#endif + +#if defined(__OS2__) +#define INCL_BASE /* include all OS2 definitions. */ +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#ifdef kbhit /* The OS/2 2.0 version is not what we want */ +#undef kbhit +#endif +#include /* for _beginthread, _endthread */ +#include /* for "kill", etc. */ +/* Sockets related includes */ +#include +#include /* IPPROTO_*, etc. */ +#include /* gethostbyname, etc. */ +#include /* defines FIONBIO */ +#endif /* OS2 */ + +#if defined (_WIN32) +#if !defined (_CRT_SECURE_NO_DEPRECATE) +#define _CRT_SECURE_NO_DEPRECATE +#endif +#pragma warning(disable : 4996) +#pragma warning(disable : 4786 4800) + +#if defined (_CRT_SECURE_CPP_OVERLOAD_STANDARD_NAMES) +#undef _CRT_SECURE_CPP_OVERLOAD_STANDARD_NAMES +#define _CRT_SECURE_CPP_OVERLOAD_STANDARD_NAMES 1 +#endif + + + +/* winsock2.h MUST ALWAYS BE BEFORE windows.h to override defs in */ +/* winsock.h (included by windows.h). Any module that includes windows.h*/ +/* before sysincs.h, must also include winsock2.h before windows.h. */ +#include /* must be before windows.h */ +#include +#include /* for _beginthread, _endthread */ +#include /* for ftime, timeb */ +#endif /* defined(_WIN32) */ + +#if defined(_WIN32) || defined(MSDOS) || defined(__MSDOS__) +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#endif + +#if defined(VXWORKS) +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include /* for "kill", etc. */ +/* Sockets related includes */ +#include +#include +#include +#include +#include +/*#include */ +#include /* IPPROTO_*, etc. */ +#include /* inet_addr, etc. */ +#include /* TCP_NODELAY, etc. */ +#include +#endif + +#if defined(__QNX__) +/* FD_SETSIZE default is only 32 on QNX. Must define larger value */ +/* here (before any system includes) to allow more TCP connections. */ +#define FD_SETSIZE 600 +#include +#include +#include +#include +#include +#include +#include +#include /* S_IFIFO, S_IRUSR, S_IWUSR, etc. */ +#include +#include +#include /* mknod, etc. */ +#include /* added for "ftruncate" */ +#include /* open, O_RDONLY, O_WRONLY, etc. */ +#include /* execlp, etc. */ +#include +#include +#include +#include +#include +#include /* for "kill", etc. */ +#include /* for ftime, timeb */ +/* Sockets related includes */ +#include +#include /* gethostbyname, etc. */ +#include /* IPPROTO_*, etc. */ +#include /* inet_addr, etc. */ +#include /* TCP_NODELAY, etc. */ +#include +#endif + +/* UNIX or "UNIX-like" systems */ +#if defined(_AIX) || defined(sun) || defined(__hpux) || defined(linux) \ + || (defined(__alpha) && !defined(__VMS)) || defined(__LYNX) +#include /* SHOULD be before any other include files */ +#include +#include +#include +#include +#if (!defined(__LYNX)) +#include +#include +#endif +#define max(a,b) (((a) > (b)) ? (a) : (b)) +#define min(a,b) (((a) < (b)) ? (a) : (b)) +#include +#include +#include +#include +#include +#include /* open, O_RDONLY, O_WRONLY, etc. */ +#include +#include + +#if defined(linux) +#include /* for ftime, timeb */ +#endif + +#if defined(__hpux) +#include +#else +#include +#endif + +#if (!defined (__hpux)) && (!defined(__LYNX)) +#include +#endif +#include /* for "kill", etc. */ +#include +#if defined(sun) +#include +#endif +/* Sockets related includes */ +#if defined(__LYNX) +#include +#else +#include +#endif +#include /* gethostbyname, etc. */ +#include /* IPPROTO_*, etc. */ +#include /* for sockaddr_un */ +/* Forward references are supplied to eliminate xlC_r compiler warnings */ +struct ether_addr; /* forward reference */ +struct sockaddr_dl; /* forward reference */ +#include /* inet_addr, etc. */ +#include /* TCP_NODELAY, etc. */ +#ifndef INADDR_NONE +#define INADDR_NONE ((in_addr_t) 0xffffffff) +#endif +#endif /* defined(_AIX) || defined(sun) || defined(__hpux) || defined(linux) ... */ + +#if defined(__ECOS) +#include +#include +#include +#include +#include +#include +#include +#define max(a,b) (((a) > (b)) ? (a) : (b)) +#define min(a,b) (((a) < (b)) ? (a) : (b)) +#endif + +#if defined(__VMS) +#include +#include +#include +#include +#include +#include + +#include /* VMS descriptor stuff */ +#include /* I/O FUNCTION CODE DEFS */ +#include /* LIB$ RTL-routine signatures. */ +#include /* LIB$ RTL-routine signatures. */ +#include /* LIB$ RTL-routine signatures. */ +#include /* SS$_ sys ser return stati <8-) */ +#include /* Sys ser calls */ +#include /* ... */ +#include /* Convert floating-point data type */ +#include /* ... */ +#include /* UNIX style Signal Value Definitions */ +#include +#include +#include + +#include "stdarg.h" +#include "iostream.h" +#include +#include +#include + +#include /* TCP descriptions */ +#include /* internet system Constants and structures. */ +#include /* Network address info. */ +#include /* Network database library info. */ +#include /* TCP/IP socket definitions. */ +#include +#include /* Operations on socket (?) */ + +#define max(a,b) ((a > b) ? a : b) +#define min(a,b) ((a < b) ? a : b) +#endif + +#if (!defined(INT_MAX)) || (!defined(LONG_MAX)) +#error INT_MAX and LONG_MAX must be defined. Usually defined in limits.h +#endif + +#if defined(MAX_PATH) +#define S_MAX_PATH MAX_PATH +#elif defined(PATH_MAX) /* POSIX should have it defined in limits.h */ +#define S_MAX_PATH PATH_MAX +#else +#define S_MAX_PATH 1024 /* default */ +#endif + + /*----------------------------------------------*/ + /* printf, sprintf, sscanf helper macros */ + /*----------------------------------------------*/ + +/* helper macro for 32-bit and 64-bit pointers support */ +/* If pointer "0x%p" format is not supported then something like "0x%x",*/ +/* "0x%lx", or "0x%llx" may be used, depending on the pointer size. */ +#if defined(_WIN32) + #define S_FMT_PTR "0x%p" +#else /* all other systems (e.g. UNIX) */ + #define S_FMT_PTR "0x%p" +#endif /* all other systems (e.g. UNIX) */ + +/* helper macro for time_t */ +#if defined(_WIN32) + #if defined(_USE_32BIT_TIME_T) + #define S_FMT_TIME_T "%d" + #else + #define S_FMT_TIME_T "%I64d" + #endif +#else /* all other systems (e.g. UNIX) */ + #define S_FMT_TIME_T "%d" +#endif /* all other systems (e.g. UNIX) */ + +#ifdef INT64_SUPPORT +#ifdef _WIN32 + #define S_FMT_INT64 "%I64d" + #define S_FMT_UINT64 "%I64u" +#elif defined(_AIX) || defined(__hpux) || defined(linux) || defined(sun) || defined(__LYNX) + #define S_FMT_INT64 "%lld" + #define S_FMT_UINT64 "%llu" +#elif (defined(__alpha) && !defined(__VMS)) + #define S_FMT_INT64 "%ld" + #define S_FMT_UINT64 "%lu" +#else /* all other systems */ + #error Missing S_FMT_INT64 and S_FMT_UINT64 defines for this platform. +#endif /* all other systems */ +#endif /* INT64_SUPPORT */ + +/* helper macro for HANDLE */ +#if defined(_WIN32) + #if (_MSC_VER >= 1300) + #define S_FMT_HANDLE "0x%p" + #define S_FMT_THREAD_HANDLE "0x%p" + #else + #define S_FMT_HANDLE "%d" + #define S_FMT_THREAD_HANDLE "%lu" + #endif +#else /* all other systems (e.g. UNIX) */ + #define S_FMT_THREAD_HANDLE "0x%p" +#endif /* all other systems (e.g. UNIX) */ + + +/************************************************************************/ +/************************************************************************/ +/* Assert stuff */ +/************************************************************************/ +/************************************************************************/ + +#include + +#if defined (_WIN32) && defined (_DEBUG) +#include +#endif + +#if !defined (C_ASSERT) +#define C_ASSERT(e) typedef char __C_ASSERT__[(e)?1:-1] +#endif + +#if !defined (ASSERT) +#define ASSERT _ASSERT +#endif + +#if !defined (ASSERTE) +#define ASSERTE _ASSERTE +#endif + +#if !defined (_SASSERT) +#define _SASSERT(e) \ + { \ + int assertResult = (e) ? 1 : 0; \ + if (!assertResult) {SLOGALWAYS3("Assertion failed: '%s', file %s, line %d", #e, __FILE__, __LINE__);} \ + assert (assertResult); \ + } +#endif + +#if !defined (_SASSERTE) +#define _SASSERTE(e) \ + { \ + int assertResult = (e) ? 1 : 0; \ + if (!assertResult) {SLOGALWAYS3("Assertion failed: '%s', file %s, line %d", #e, __FILE__, __LINE__);} \ + assert (assertResult); \ + } +#endif + +#if !defined (SASSERT) +#define SASSERT _SASSERT +#endif + +#if !defined (SASSERTE) +#define SASSERTE _SASSERTE +#endif + +#if !defined (VERIFY) +#if !defined (NDEBUG) +#define VERIFY(e) _SASSERTE(e) +#else +#define VERIFY(e) ((void) (e)) +#endif +#endif + +#ifdef __cplusplus +} +#endif + +#endif + + diff --git a/mmslib/inc/time_str.h b/mmslib/inc/time_str.h new file mode 100644 index 0000000..ff9d034 --- /dev/null +++ b/mmslib/inc/time_str.h @@ -0,0 +1,137 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1994 - 2003, All Rights Reserved */ +/* */ +/* MODULE NAME : time_str.h */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 02/28/08 JRB 16 Incl "timeb.h" only in "sysincs.h" */ +/* 11/30/06 RLH 15 merge time_str and time_str2 */ +/* 07/13/06 RLH 14 tstrTimeToStringGmt and tstrStringToTimeGmt */ +/* prototypes added */ +/* 03/06/06 RLH 13 add GetTimeAndUsec, tstrTimeToStringGmt, */ +/* tstrStringToTimeGmt */ +/* 07/27/04 DWL 12 Added tstrTmToString (struct tm) */ +/* 07/16/04 DWL 11 Added tstrStringToTm (struct tm) */ +/* 10/30/03 EJV 10 Added dataLen param to UtcValueToXmlString */ +/* 10/15/03 JRB 09 Del _WIN32 ifdef. */ +/* 09/01/03 GLB 08 Added "XmlStringToUtcValue" & */ +/* "UtcValueToXmlString" */ +/* 07/12/02 NAV 07 Add UtcValsToString and UtcStringToVals */ +/* 02/02/01 EJV 06 tstrStringToTime: chg (long *) to (time_t *) */ +/* 07/13/98 NAV 05 Add _cplusplus support */ +/* 10/15/97 NAV 04 Add Btime4 Support Functions */ +/* 10/08/97 NAV 03 Add seconds to TSTR_DEF_TIME_FORMAT */ +/* 09/04/97 NAV 02 Add Btime6 Conversion routines */ +/* 11/08/94 MDE 01 New */ +/************************************************************************/ + +/************************************************************************/ +/* TIME STRING FORM FOR READ DATA */ +/* */ +/* Date{ws}Time */ +/* Time{ws}Date (? should we allow this) */ +/* Time only (uses current time) */ +/* Date only (uses current date) */ +/* */ +/* Date forms : */ +/* 12/01/56 */ +/* 12/01/1956 */ +/* 12-01-56 */ +/* 12-01-1956 */ +/* 12-1-56 */ +/* 12-1-56 */ +/* 26-Aug-1994 */ +/* 26-AUG-1994 */ +/* AUG-26-1993 */ +/* */ +/* Time forms : */ +/* 7:21:43P */ +/* 7:21:43p */ +/* 7:21:43a */ +/* 7:21:43A */ +/* 07:21:43a */ +/* 7:21:43 */ +/* 21:21:43 */ +/* */ +/************************************************************************/ +#include "sx_defs.h" + +#ifdef __cplusplus +extern "C" { +#endif + + +/* parms that control how a date is parsed in terms of field ordering */ + +#define S_DATE_ORDER_ANY 0 /* check system locale for ordering */ +#define S_DATE_ORDER_MDY 1 /* date ordering is month-day-year */ +#define S_DATE_ORDER_DMY 2 /* date ordering is day-month-year */ +#define S_DATE_ORDER_YMD 3 /* date ordering is year-month-day */ + +/* number of seconds difference between 1984-01-01 and 1970-01-01. */ +/* this amounts to 14 years including 3 leap-year days (1972, 1976 */ +/* and 1980) converted to a number of seconds. 1984 is a leap year */ +/* but the span of dates does not include 1984-02-29, so 1984's */ +/* leap-year day is not counted. */ + +/* S_SECS_DIFF_1984_1970 is used to calculate Btime6 values. */ + +#define S_SECS_DIFF_1984_1970 ((((1984-1970)*365)+3) * 86400) + +#define MAX_TIME_STRING_LEN 256 + +#define TSTR_DEF_TIME_FORMAT "%m-%d-%Y %H:%M:%S" + +extern char *tstrTimeFormat; + +ST_RET tstrTimeToStringGmt (time_t t, char *dest); +ST_RET tstrStringToTimeGmt (char *src, time_t *out); + +ST_RET tstrStringToTime (char *src, time_t *out); +ST_RET tstrStringToTm (char *src, struct tm *out); + +ST_RET tstrTimeToString (time_t t, char *dest); +ST_RET tstrTimeToStringGmt (time_t t, char *dest); + +ST_RET tstrTmToString (struct tm *t, char *dest); +ST_RET tstrTmToStringGmt (struct tm *t, char *dest); + +#define BTIME_DEF_TIME_FORMAT "%m-%d-%Y %H:%M:%S" + +ST_RET Btime6StringToVals (char *src, ST_INT32 *numDays, ST_INT32 *numMSec); +ST_RET Btime6ValsToString (char *dest, ST_INT32 numDays, ST_INT32 numMSec); + +ST_RET Btime4StringToVals (char *src, ST_INT32 *numMSec); +ST_RET Btime4ValsToString (char *dest, ST_INT32 numMSec); + +ST_RET UtcStringToVals (char *src, ST_UINT32 *pSecs, ST_UINT32 *pFraction, + ST_UINT32 *pQflags ); +ST_RET UtcValsToString (char *dest, ST_UINT32 secs, ST_UINT32 fraction, + ST_UINT32 qflags); +ST_RET UtcStringToValues (char *src, ST_UINT32 *pSecs, ST_UINT32 *pFraction); +ST_RET UtcValuesToString (char *dest, ST_UINT32 secs, ST_UINT32 fraction); +ST_RET XmlStringToUtcValue (ST_CHAR *src, SX_DATE_TIME *sxDateTime); +ST_RET UtcValueToXmlString (ST_CHAR *dest, ST_UINT destLen, SX_DATE_TIME *sxDateTime); +ST_DOUBLE CalculateTimeZoneOffset (ST_VOID); +#define UTC_DEF_TIME_FORMAT "%Y-%m-%dT%H:%M:%S" + +#define GET_TIME_AND_USEC_DEFINED 1 +time_t GetTimeAndUsec (long *usec); + +time_t usr_mkgmtime (struct tm * t); + +#ifdef __cplusplus +} /* End of 'C' functions */ + +#endif + diff --git a/mmslib/inc/tp0_sock.h b/mmslib/inc/tp0_sock.h new file mode 100644 index 0000000..5375d8c --- /dev/null +++ b/mmslib/inc/tp0_sock.h @@ -0,0 +1,268 @@ +#ifndef TP0_SOCK_INCLUDED +#define TP0_SOCK_INCLUDED +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1997 - 2006 All Rights Reserved */ +/* */ +/* MODULE NAME : tp0_sock.h */ +/* PRODUCT(S) : Lean-T Stack */ +/* */ +/* MODULE DESCRIPTION : */ +/* TP0/RFC1006 header file for "sockets" interface. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 10/26/06 EJV 30 Ported MMSEASE_MOSI code to HP-UX. */ +/* 06/19/06 EJV 29 Ported MMSEASE_MOSI code to Sun. */ +/* 08/03/05 EJV 28 SOCK_INFO: added rekeyTime */ +/* 07/19/05 EJV 27 Added SOCK_STATE_CONNECT_CANCELLED. */ +/* 06/30/05 EJV 26 SOCK_INFO: added recvCnt (for flow control) */ +/* 06/06/05 EJV 25 MMSEASE_MOSE: few more chgs to RFC1006_IPC* */ +/* 05/25/05 EJV 24 Added ssec.h */ +/* 04/25/05 JRB,EJV 23 Add RFC1006_IPC_MSG, RFC1006_LISTENER_.. defs*/ +/* 05/09/05 EJV 22 SOCK_INFO: added port field. sreadd add arg6.*/ +/* 05/05/05 EJV 21 np_connect_req: added rem_port param. */ +/* 03/08/05 JRB 20 Add RFC1006.. define. */ +/* 02/22/05 JRB 19 slistend,sreadd: chg ret from void to int. */ +/* 02/21/05 JRB 18 Del ioctlsocket define. Use def in gensock2.h*/ +/* 01/14/04 EJV 17 np_data_req: added eot param. */ +/* Added np_get_tx_queue_cnt func. */ +/* 10/23/03 JRB 16 Move all system includes to sysincs.h */ +/* 10/16/03 JRB 15 SOCK_INFO: add genSock. */ +/* 09/11/03 EJV 14 Del winsock.h (windows.h gets right winsock) */ +/* Added encrypt_ctrl arg to np_connect_req(). */ +/* SOCK_INFO: Add DBL_LNK l and encrypt_ctrl. */ +/* 07/16/02 JRB 13 Add arg to sreadd proto. */ +/* 06/20/02 JRB 12 Chg np_connect_req 2nd arg to ulong ipAddr. */ +/* 05/08/02 JRB 11 Chg connect_result to int (to store errno). */ +/* 05/03/02 JRB 10 Add ip_addr to SOCK_INFO to pass to Read task.*/ +/* 02/02/01 EJV 09 _AIX: added forward references for inet.h. */ +/* 01/02/01 EJV 08 Ported to _AIX. */ +/* 08/15/00 EJV 07 WIN32: Del pipe_msg_crit_sec, pipe_msg_count.*/ +/* 05/18/00 JRB 06 Del "select.h". See "sysincs.h". */ +/* Add for VXWORKS. */ +/* Improve "ioctlsocket" macros for non-WIN32. */ +/* 08/13/98 JRB 05 Lint cleanup. */ +/* Add for default system. */ +/* 12/09/97 JRB 04 Added __OS2__ support. */ +/* 11/14/97 JRB 03 Make PIPE_MSG for VXWORKS like _WIN32. */ +/* 11/10/97 JRB 02 Add VXWORKS support. */ +/* 08/01/97 JRB 01 Created (compatible with MMS-EASE 7.0). */ +/************************************************************************/ +#ifdef __cplusplus +extern "C" { +#endif + +#include "gensock2.h" /* need GEN_SOCK definition */ +#include "ssec.h" /* need S_SEC_ENCRYPT_CTRL */ + +/* Include sockets defs appropriate for this platform. */ +#if !defined (_WIN32) +#define closesocket close +#define WSAEWOULDBLOCK EWOULDBLOCK +#define WSAEINPROGRESS EINPROGRESS +#if defined (__OS2__) +#define WSAGetLastError() sock_errno() +#define GetLastError() errno +#else /* !__OS2__ */ +#define WSAGetLastError() errno +#endif /* !__OS2__ */ +#define SOCKET int +#define SOCKADDR struct sockaddr +#define SOCKADDR_IN struct sockaddr_in +#define PSOCKADDR struct sockaddr * +#define HOSTENT struct hostent +#define INVALID_SOCKET (-1) + +#if defined(sun) || defined(__hpux) +#if !defined(AF_LOCAL) +#define AF_LOCAL AF_UNIX +#endif +#endif /* defined(sun) */ + +#endif /* !_WIN32 */ + +/************************************************************************/ +/* Constant definitions. */ +/************************************************************************/ +#define IPPORT_RFC1006 102 +#define RFC1006_HEAD_LEN 4 +#define RFC1006_VERSION 3 /* first byte of TPKT is version*/ +#define INVALID_CONN_ID (-1L) +#define LISTEN_TASK_NAME "slistend" /* "Listen" task exe name*/ +#define READ_TASK_NAME "sreadd" /* "Read" task exe name */ +#define PIPE_TO_MAIN_NAME "/tmp/pipetp0main" +#define PIPE_TO_LISTEN_NAME "/tmp/pipetp0list" + +/************************************************************************/ +/* Variable type definitions. */ +/************************************************************************/ + +/* Defines of possible values for "state" in SOCK_INFO struct. */ +#define SOCK_STATE_ACCEPTED 0 +#define SOCK_STATE_CONNECTING 1 +#define SOCK_STATE_CONNECTED 2 +#define SOCK_STATE_DISCONNECTING 3 +#define SOCK_STATE_CONNECT_CANCELLED 4 +typedef struct + { + DBL_LNK l; /* needed to store this struct on linked list */ + GEN_SOCK *genSock; /* Use with gensock2. Otherwise, use "hSock" */ + SOCKET hSock; + ST_INT state; + ST_LONG user_conn_id; /* Received from user on N-CONNECT.req/rsp */ + ST_UINT32 ip_addr; /* IP addr as long int in network byte order. */ + ST_UINT16 port; /* RFC1006 port, defaults to 102 */ +#if !(defined(_WIN32) || defined (__OS2__)) + pid_t pid_read; /* Save READ process PID */ +#endif + S_SEC_ENCRYPT_CTRL encrypt_ctrl; + ST_UINT recvCnt; /* num of received (queued) data msgs */ + ST_DOUBLE rekeyTime; /* next time to check rekey if we are idle */ + } SOCK_INFO; + + +/* Info to pass to spawned thread. Can only pass 1 arg to thread, so */ +/* make it a structure, and put whatever we need in it. */ +typedef struct + { + SOCK_INFO *sock_info; /* to pass back to main in PIPE_MSG. */ + SOCKET hSock; /* copied from "sock_info" */ + ST_INT state; /* copied from "sock_info" */ + ST_UINT16 max_tpkt_len; /* Max len of RFC1006 TPKT. */ + } THREAD_INFO; + +typedef struct + { + SOCK_INFO *sock_info; + ST_INT connect_result; /* errno (WSAGetLastErr() for Windows)*/ + ST_UINT16 tpkt_len; +#if (defined (_WIN32) || defined (VXWORKS) || defined (__OS2__)) + ST_UCHAR *tpkt_ptr; +#else + ST_UCHAR tpkt_buf [1]; /* Beginning of buffer attached to this struct*/ +#endif + } PIPE_MSG; + +/* Use define for Length of PIPE_MSG without tpkt_buf at end. */ +#define PIPE_MSG_HEAD_LEN (sizeof(PIPE_MSG)-1) + +/************************************************************************/ +/* Global variables. */ +/************************************************************************/ +extern ST_UCHAR *g_tpkt_enc_buf; /* Buffer for encoding TPKTs. */ +extern SOCKET hSockListen; /* listen socket handle */ + +#if defined _WIN32 +extern HANDLE hPipeMainRead; /* read handle for pipe */ +extern HANDLE hPipeMainWrite; /* write handle for pipe */ +extern HANDLE hEventListenGo; +#endif +#if defined (__OS2__) +extern HFILE hPipeMainRead; /* read handle for pipe */ +extern HFILE hPipeMainWrite; /* write handle for pipe */ +extern HEV hEventListenGo; +extern ST_INT pipe_msg_count; +#endif /* __OS2__ */ + +/************************************************************************/ +/* Function Prototypes. */ +/************************************************************************/ +ST_RET np_init (ST_INT max_num_conns); +ST_RET np_end (ST_VOID); +ST_BOOLEAN np_event (ST_VOID); + +SOCK_INFO * np_connect_req (ST_LONG user_conn_id, ST_ULONG ipAddr, ST_UINT16 rem_port, + S_SEC_ENCRYPT_CTRL *encrypt_ctrl); +ST_VOID np_connect_cnf_pos (SOCK_INFO *sock_info, ST_LONG user_conn_id); +/* NOTE: np_connect_ind & np_connect_rsp not needed because user only */ +/* cares about Transport conn. Doesn't need to know about Network conn.*/ + +ST_RET np_data_req (SOCK_INFO *sock_info, ST_INT pdu_len, ST_UCHAR *pdu_ptr, ST_BOOLEAN eot); +ST_VOID np_data_ind (SOCK_INFO *sock_info, ST_UCHAR *pdu_ptr, ST_UINT16 pdu_len); +ST_UINT np_get_tx_queue_cnt (SOCK_INFO *sock_info); + +ST_RET np_disconnect_req (SOCK_INFO *sock_info); +ST_VOID np_disconnect_ind (SOCK_INFO *sock_info); + +ST_RET sockets_init (ST_INT max_num_conns); +ST_VOID sockets_end (ST_VOID); +ST_RET spawn_listen (SOCKET hSock); +ST_RET spawn_read (SOCK_INFO *sock_info); +ST_VOID handle_accepted_conn (SOCK_INFO *sock_info); +ST_VOID handle_connect_success (SOCK_INFO *sock_info); +ST_VOID handle_connect_fail (SOCK_INFO *sock_info); +ST_VOID handle_data (SOCK_INFO *sock_info, ST_UCHAR *tpkt_ptr, ST_UINT16 tpkt_len); +ST_VOID handle_disconnect (SOCK_INFO *sock_info); +SOCK_INFO *sock_info_alloc (SOCKET hSock, ST_INT state, ST_LONG user_conn_id); +ST_VOID sock_info_free (SOCK_INFO *sock_info); + +#if defined (_WIN32) +void ThreadSockListen (void *param); +void ThreadSockRead (void *param); +#endif /* _WIN32 */ +#if defined (__OS2__) +void _Optlink ThreadSockListen (void *param); +void _Optlink ThreadSockRead (void *param); +#endif /* __OS2__ */ + +int slistend (int arg1); +int sreadd (int arg1, int arg2, int arg3, int arg4, int arg5, int arg6); + +/************************************************************************/ +/* Code used by MMSEASE_MOSI. */ +/* Defines, etc. for interfacing to "rfc1006_listener" task. */ +/* Only used on LINUX, but the code should be portable to most UNIX-like*/ +/* systems. */ +/************************************************************************/ + +#if defined(MMSEASE_MOSI) +/* use the same task name and the UNIX domain listen socket name to */ +/* easy associate each other when viewing for example network stats */ +#if defined(linux) || defined(sun) +#define RFC1006_LISTENER_EXE_PATH "/usr/sisco/bin" +#define RFC1006_LISTENER_IPC_PATH "/tmp" +#endif +#if defined(__hpux) +#define RFC1006_LISTENER_EXE_PATH "/opt/sisco/bin" +#define RFC1006_LISTENER_IPC_PATH "/tmp" +#endif +#define RFC1006_LISTENER_NAME "rfc1006listenerd" +#define RFC1006_LISTENER_DOMSOCK "rfc1006listenerd.domsock" +#define RFC1006_LISTENER_LOG "rfc1006listenerd.log" + +#define RFC1006_IPC_MAGIC_NUM 0xBADC +/* defines for "opcode" in RFC1006_IPC_MSG. */ +#define RFC1006_IPC_OP_START 1 /* start RFC1006_LISTENER daemon */ +#define RFC1006_IPC_OP_STOP 2 /* stop RFC1006_LISTENER daemon */ +#define RFC1006_IPC_OP_BIND 3 +#define RFC1006_IPC_OP_UNBIND 4 +#define RFC1006_IPC_OP_CONNECT 5 /* TP0 connect indication */ +#define RFC1006_IPC_OP_SET_LOG 6 /* change RFC1006_LISTENER log masks */ + +typedef struct rfc1006_ipc_msg_tag + { + ST_UINT16 magic; /* always == RFC1006_IPC_MAGIC_NUM */ + ST_UINT16 opcode; /* one of RFC1006_IPC_OP.. values */ + ST_UINT16 data_len; /* length of data following this msg */ + } RFC1006_IPC_MSG; + +extern ST_BOOLEAN use_rfc1006_listener_task; +extern SOCKET domsock_listener; /* domain socket connected to the */ + /* RFC1006_LISTENER task. */ +ST_INT recvwait (SOCKET hSock, ST_VOID *buf, ST_INT numBytes, int flags); +ST_INT sendwait (SOCKET hSock, ST_VOID *buf, ST_INT numBytes, int flags); + +ST_RET setListenerIPCDir (ST_CHAR *dirPath); + +#endif /* defined(MMSEASE_MOSI) */ + +#ifdef __cplusplus +} +#endif + +#endif /* !TP0_SOCK_INCLUDED */ + diff --git a/mmslib/inc/tp4.h b/mmslib/inc/tp4.h new file mode 100644 index 0000000..1c2b1cf --- /dev/null +++ b/mmslib/inc/tp4.h @@ -0,0 +1,363 @@ +#ifndef TP4_INCLUDED +#define TP4_INCLUDED +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1996-2005 All Rights Reserved */ +/* */ +/* MODULE NAME : tp4.h */ +/* PRODUCT(S) : Lean-T Stack */ +/* */ +/* MODULE DESCRIPTION : */ +/* TP4 main header file. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 10/22/08 JRB 17 Add TPDU_ER structure. */ +/* 03/29/05 EJV 16 MMSEASE_MOSI: added tp0_check_... protos. */ +/* 01/13/04 EJV 15 Changed tp0_send_... funcs to return value. */ +/* 06/27/02 JRB 14 Add tp_dr_reason to TP_CONN. */ +/* 10/25/01 JRB 13 Move replacement func macros to tp4api.h */ +/* 05/07/01 JRB 12 Add loc_tsap, rem_tsap to TP_CONN, TP0_CONN. */ +/* 07/19/99 RKR 11 Modified a macro so this file will install */ +/* 06/08/99 JRB 10 Allow up to 1024 connections by using new */ +/* macros to compute loc_ref_offset & loc_ref. */ +/* 08/13/98 JRB 09 Lint cleanup. */ +/* 08/14/97 JRB 08 Use MAX_TSEL_LEN defined in tp4api.h */ +/* Add max_tpdu_len (negotiated) to TP_CONN. */ +/* Add TP0/RFC1006 support defines & protos. */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 03/21/97 JRB 07 Add tp_free_spdu_all function. */ +/* 02/20/97 EJV 06 Add session_timer to TP_CONN for MOSI implem.*/ +/* 10/04/96 JRB 05 Add global variable max_tpdu_len_enc. */ +/* Chg TPDU_CX param to max_tpdu_len_enc. */ +/* 10/04/96 JRB 04 Chg send_ak_flag to ak_delay. */ +/* 09/09/96 JRB 03 Add send_ak_flag to TP_CONN. */ +/* 09/09/96 JRB 02 Add tp_send_cr, tp_setup_and_send_??, */ +/* tp_send_dt_and_ak & tp_conn_clean prototypes.*/ +/* 07/17/96 JRB 01 Created */ +/************************************************************************/ +#include "tp4api.h" /* need some TP4 user defs. */ +#include "clnp_usr.h" /* TP4 uses CLNP user interface. */ + +#if defined (TP0_ENABLED) +#include "tp0_sock.h" /* TP0/RFC1006 sockets interface defs. */ +#endif /* TP0_ENABLED */ + +#ifdef __cplusplus +extern "C" { +#endif + +#define TP_MAX_CONN_UDATA 32 +#define TP4_EXCEPT() tp4_except (thisFileName, __LINE__) + +/************************************************************************/ +/* The following defines used in computing "loc_ref" (16-bit value): */ +/* TP_CONN_ID_BITS: number of bits to use for conn_id in loc_ref. */ +/* TP_MAX_NUM_CONNS: max number of connections allowed. */ +/* TP_CONN_ID_MASK: mask used to find conn_id in loc_ref. */ +/* TP_LOC_REF_MOD: modulus to use for loc_ref_offset wrap around. */ +/* When loc_ref_offset incremented to this value, */ +/* go back to 1 (not 0 so loc_ref can never be 0). */ +/* TP_CONN_ID_BITS, TP_CONN_ID_MASK, TP_MAX_NUM_CONNS & TP_LOC_REF_MOD */ +/* are all related. If one changes, they must all change. */ +/************************************************************************/ +#define TP_CONN_ID_BITS 10 +#define TP_CONN_ID_MASK 0x3ff /* 0000 0011 1111 1111 binary */ +#define TP_MAX_NUM_CONNS 0x400 /* conn_id = 0 thru 0x3ff */ +/* If 10 bits used for conn_id, 6 bits left for loc_ref_offset, so it */ +/* must wrap around when it reaches 0100 0000 binary (i.e. 0x40). */ +#define TP_LOC_REF_MOD 0x40 /* modulus for 6-bit value */ + +/************************************************************************/ +/* Structure typedefs. */ +/************************************************************************/ + +/* TPDU_CX - Used for CR or CC TPDU info. */ +typedef struct + { + /* NOTE: the following options not supported: */ + /* Transport Expedited Data. */ + /* Non-use of checksum. */ + /* Use of extended format. */ + /* When sending CR, don't request any. */ + /* When sending CC, don't accept any. */ + + ST_UCHAR loc_tsap [1+MAX_TSEL_LEN]; /* Local len & TSAP addr */ + ST_UCHAR rem_tsap [1+MAX_TSEL_LEN]; /* Remote len & TSAP addr */ + ST_UINT16 loc_ref; /* Local Reference for conn. */ + ST_UINT16 rem_ref; /* Remote Reference for conn. */ + ST_UCHAR max_tpdu_len_enc; /* Negotiated Max TPDU len (encoded). */ + ST_UCHAR preferred_class; /* Preferred Transport Class 0-4 */ + ST_UCHAR cdt; /* CDT */ + ST_UCHAR *rem_mac; /* Remote MAC addr */ + ST_UCHAR *rem_nsap; /* Remote len & NSAP addr */ + ST_UINT16 udata_len; /* Length of CR/CC User Data. */ + ST_CHAR udata_buf [TP_MAX_CONN_UDATA]; /* Buffer for CR/CC User Data. */ +#if defined (TP0_ENABLED) + SOCK_INFO *sock_info; /* socket info for TP0 conns only */ +#endif /* TP0_ENABLED */ + } TPDU_CX; + +typedef struct + { + ST_UINT16 loc_ref; /* Local Reference for conn. */ + ST_UINT16 rem_ref; /* Remote Reference for conn. */ + ST_UCHAR reason; /* Reason for disconnect. */ + ST_UCHAR *rem_mac; /* Remote MAC addr */ + ST_UCHAR *rem_nsap; /* Remote len & NSAP addr */ +#if defined (TP0_ENABLED) + SOCK_INFO *sock_info; /* socket info for TP0 conns only */ +#endif /* TP0_ENABLED */ + } TPDU_DR; + +typedef TPDU_DR TPDU_DC; /* Same as DR but ignore "reason". */ + +typedef struct + { + ST_UINT16 dst_ref; /* Dest Reference for conn. */ + ST_UCHAR sn; + ST_UCHAR cdt; + ST_UCHAR *rem_mac; /* Remote MAC addr */ + ST_UCHAR *rem_nsap; /* Remote len & NSAP addr */ + } TPDU_AK; + +typedef struct + { + ST_UINT16 dst_ref; /* Dest Reference for conn. */ + ST_UCHAR sn; /* Sequence #. */ + ST_BOOLEAN eot; /* DT TPDU contains or should contain EOT flag */ + ST_UCHAR *rem_mac; /* Remote MAC addr */ + ST_UCHAR *rem_nsap; /* Remote len & NSAP addr */ + ST_CHAR *udata_ptr; /* Pointer to DT User Data. */ + ST_UINT16 udata_len; /* Length of DT User Data. */ +#if defined (TP0_ENABLED) + SOCK_INFO *sock_info; /* socket info for TP0 conns only */ +#endif /* TP0_ENABLED */ + } TPDU_DT; + +typedef struct + { + ST_UINT16 dst_ref; /* Dest Reference for conn. */ + ST_UCHAR reject_cause; /* reason for error (0-3) */ + ST_UCHAR *invalid_tpdu_ptr; /* Pointer to TPDU hdr that caused reject*/ + ST_UCHAR invalid_tpdu_len; /* Length of TPDU hdr that caused reject*/ + /* NOTE: <= 255 (must fit in 1 byte). */ + ST_UCHAR *rem_mac; /* Remote MAC addr */ + ST_UCHAR *rem_nsap; /* Remote len & NSAP addr */ +#if defined (TP0_ENABLED) + SOCK_INFO *sock_info; /* socket info for TP0 conns only */ +#endif /* TP0_ENABLED */ + } TPDU_ER; + +typedef struct + { + ST_CHAR *spdu_ptr; /* Pointer to SPDU. */ + ST_UINT spdu_len; /* Length of SPDU. */ + ST_UINT offset; /* Offset into SPDU. */ + } SPDU_INFO; + +typedef struct + { + /* NOTE: "state" is first in this struct because it will be */ + /* accessed most often (every time connection made must scan array */ + /* for a TP_CONN with state == TP_STATE_CLOSED). */ + ST_UCHAR state; /* State of connection (initially CLOSED). */ + ST_UCHAR tp_dr_reason; /* reason for disconnect (0 if connected)*/ + ST_UINT16 loc_ref_offset; /* Used to compute loc_ref (see calc_loc_ref)*/ + ST_UINT16 rem_ref; /* Peer's reference # for this connection. */ + ST_UINT16 window_time; /* Window Time */ + ST_UINT16 inact_time; /* Inactivity Time */ + ST_UINT16 retrans_time; /* Retransmission Time */ + ST_UCHAR lower_tx_sn; /* Sequence # for peer's lower window edge. */ + ST_UCHAR adj_rem_cdt; /* Last CDT received from peer. */ + /* Adjusted to stay within our limits. */ + ST_UCHAR next_tx_sn; /* Sequence # for next TPDU to send to peer. */ + ST_UCHAR next_rx_sn; /* Sequence # for next TPDU to receive from peer*/ + TPDU_DT *tpdu_dt_tx; /* ptr to array of "max_rem_cdt" structs */ + /* Allocated by tp4_initialize (). */ + + ST_UCHAR num_spdu_outst; /* # of SPDUs outstanding */ + ST_UCHAR spdu_cnt_qued; /* Count of SPDUs queued. Goes to 0 on overflow */ + ST_UCHAR spdu_cnt_sent; /* Count of SPDUs sent. Goes to 0 on overflow */ + ST_UCHAR spdu_cnt_done; /* Count of SPDUs done. Goes to 0 on overflow */ + SPDU_INFO *spdu_tx; /* ptr to array of "max_spdu_outst" structs */ + SPDU_INFO spdu_rx; /* Struct for one received SPDU */ + ST_BOOLEAN spdu_rx_start; /* Next TPDU rcvd is start of SPDU. */ + /* Save rem_mac & rem_nsap received from CLNP with CR or CC. */ + ST_UCHAR rem_mac [CLNP_MAX_LEN_MAC]; /* Remote MAC addr */ + ST_UCHAR rem_nsap [1+CLNP_MAX_LEN_NSAP]; /* Remote len & NSAP addr */ + ST_UCHAR num_trans; /* (TX ONLY) # of times a TPDU transmitted */ + ST_LONG user_conn_id; /* User's ID for this conn. */ + TPDU_CX tpdu_cx; /* CR or CC Info to Send/Receive. */ + ST_UCHAR ak_delay; /* # of loops to delay sending AK. */ + + ST_UINT16 session_timer; /* Session timer for MOSI implementation */ + ST_UINT16 max_tpdu_len; /* Negotiated TPDU len on this conn. */ + ST_UCHAR loc_tsap [1+MAX_TSEL_LEN]; /* Local len & TSAP addr */ + ST_UCHAR rem_tsap [1+MAX_TSEL_LEN]; /* Remote len & TSAP addr */ + } TP_CONN; + +typedef struct + { + /* NOTE: "state" is first in this struct because it will be */ + /* accessed most often (every time connection made must scan array */ + /* for a TP_CONN with state == TP_STATE_CLOSED). */ + ST_UCHAR state; /* State of connection (initially CLOSED). */ + ST_UINT16 loc_ref_offset; /* Used to compute loc_ref (see calc_loc_ref)*/ + ST_UINT16 rem_ref; /* Peer's reference # for this connection. */ + + SPDU_INFO spdu_rx; /* Struct for one received SPDU */ + ST_BOOLEAN spdu_rx_start; /* Next TPDU rcvd is start of SPDU. */ + ST_LONG user_conn_id; /* User's ID for this conn. */ + TPDU_CX tpdu_cx; /* CR or CC Info to Send/Receive. */ + + ST_UINT16 session_timer; /* Session timer for MOSI implementation */ + ST_UINT16 max_tpdu_len; /* Negotiated TPDU len on this conn. */ +#if defined (TP0_ENABLED) + SOCK_INFO *sock_info; /* socket info for TP0 conns only */ +#endif /* TP0_ENABLED */ + ST_UCHAR loc_tsap [1+MAX_TSEL_LEN]; /* Local len & TSAP addr */ + ST_UCHAR rem_tsap [1+MAX_TSEL_LEN]; /* Remote len & TSAP addr */ + } TP0_CONN; + +/************************************************************************/ +/* Miscellaneous Defines. */ +/************************************************************************/ +#define MODULUS_SN 128 /* Sequence # Modulus (2**7) */ + +/************************************************************************/ +/* Defines for TP4 connection states. */ +/************************************************************************/ +#define TP_STATE_CLOSED 0 +#define TP_STATE_WFCC 1 +#define TP_STATE_WBCL 2 +#define TP_STATE_OPEN 3 +#define TP_STATE_WFTRESP 4 +#define TP_STATE_AKWAIT 5 +#define TP_STATE_CLOSING 6 +#define TP_STATE_WFNC 7 /* for TP0/RFC1006 only */ + +/************************************************************************/ +/* Defines for types of TPDUs. */ +/************************************************************************/ +#define TPDU_TYPE_CR 0 +#define TPDU_TYPE_CC 1 +#define TPDU_TYPE_DR 2 +#define TPDU_TYPE_DC 3 +#define TPDU_TYPE_DT 4 +#define TPDU_TYPE_AK 5 + +/************************************************************************/ +/* Miscellaneous defines. */ +/************************************************************************/ +#define MIN_TP0_CONN_ID 10000 /* min tp_conn_id for TP0 so */ + /* don't overlap with TP4 id's */ + +/* WARNING: We assume TP_MAX_NUM_CONNS <= MIN_TP0_CONN_ID so TP0 conn */ +/* id's can't overlap with TP4 conn id's. */ +/* Let's just make sure this assumption is valid. */ +#if (TP_MAX_NUM_CONNS > MIN_TP0_CONN_ID) +#error TP_MAX_NUM_CONNS > MIN_TP0_CONN_ID. Definitions incompatible. +#endif + +/************************************************************************/ +/* Global variables. */ +/************************************************************************/ +extern TP_CONN *tp_conn_arr; /* ptr to array of "max_num_conns" structs */ +extern ST_LONG only_tp4_bind_id; /* Only one tp4_bind_id. */ +extern ST_LONG only_user_bind_id; /* Only one user_bind_id. */ +extern ST_UCHAR only_loc_tsap []; /* Local len & TSAP addr */ +extern ST_UCHAR max_tpdu_len_enc; /* Binary encoded MAX TPDU len. */ + +extern TP0_CONN *tp0_conn_arr; /* ptr to array of "max_num_conns" structs */ +extern ST_LONG only_tp0_bind_id; /* Only one tp0_bind_id. */ +extern ST_LONG only_tp0_user_bind_id; /* Only one tp0_user_bind_id. */ +extern ST_UCHAR only_tp0_loc_tsap []; /* Local len & TSAP addr */ + +/************************************************************************/ +/* Prototypes */ +/************************************************************************/ +ST_VOID tp_setup_and_send_ak (TP_CONN *tp_conn); +ST_VOID tp_setup_and_send_dr (TP_CONN *tp_conn); + +ST_VOID tp_send_cr (TPDU_CX *tpdu_cr); +ST_VOID tp_send_cc (TPDU_CX *tpdu_cc); +ST_VOID tp_send_dr (TPDU_DR *tpdu_dr); +ST_VOID tp_send_dc (TPDU_DC *tpdu_dc); +ST_VOID tp_send_dt (TPDU_DT *tpdu_dt); +ST_VOID tp_send_ak (TPDU_AK *tpdu_ak); +ST_VOID tp_send_dt_and_ak (TPDU_DT *tpdu_dt, TPDU_AK *tpdu_ak); + +ST_VOID tp_process_cr (TPDU_CX *tpdu_cr_rx); +ST_VOID tp_process_cc (TPDU_CX *tpdu_cc_rx); +ST_VOID tp_process_dr (TPDU_DR *tpdu_dr_rx); +ST_VOID tp_process_dc (TPDU_DC *tpdu_dc_rx); +ST_VOID tp_process_dt (TPDU_DT *tpdu_dt_rx); +ST_VOID tp_process_ak (TPDU_AK *tpdu_ak_rx); +ST_VOID tp_conn_clean (TP_CONN *tp_conn); +ST_VOID tp_free_spdu_all (TP_CONN *tp_conn); + +ST_RET tp0_send_cr (TPDU_CX *tpdu_cr); +ST_RET tp0_send_cc (TPDU_CX *tpdu_cc); +ST_RET tp0_send_dr (TPDU_DR *tpdu_dr); +ST_RET tp0_send_dt (TPDU_DT *tpdu_dt); + +ST_VOID tp0_process_cr (TPDU_CX *tpdu_cr_rx); +ST_VOID tp0_process_cc (TPDU_CX *tpdu_cc_rx); +ST_VOID tp0_process_dr (TPDU_DR *tpdu_dr_rx); +ST_VOID tp0_process_dt (TPDU_DT *tpdu_dt_rx); + +ST_VOID tp0_conn_clean (TP0_CONN *tp_conn); + +#if defined(MMSEASE_MOSI) +ST_RET tp0_check_tsel (ST_UCHAR *tsel, ST_LONG *user_bind_id); +ST_RET tp0_check_bind_id (ST_LONG bind_id, ST_UCHAR **tsel); +#endif + +/************************************************************************/ +/* Macros. */ +/************************************************************************/ + +/*----------------------------------------------------------------------*/ +/* inc_loc_ref_offset */ +/* Increment "loc_ref_offset". When the value reaches TP_LOC_REF_MOD */ +/* (defined above), wrap around back to 1. */ +/* NOTE: We do not wrap to 0, so "loc_ref_offet" will never be 0. */ +/* "loc_ref_offset" is used to compute "loc_ref", so "loc_ref" */ +/* will also never be 0. */ +/* Arg #1: value (i.e. loc_ref_offset) to be incremented */ +/* Example of usage: */ +/* inc_loc_ref_offset (tp_conn->loc_ref_offset); */ +/*----------------------------------------------------------------------*/ +#define inc_loc_ref_offset(value) {\ + if (++(value) >= TP_LOC_REF_MOD) \ + (value) = 1; } /* comment necessary for DDB installation tool */ + +/*----------------------------------------------------------------------*/ +/* calc_loc_ref */ +/* Calculate loc_ref from conn_id and loc_ref_offset. */ +/* IMPORTANT: loc_ref_offset MUST NEVER be 0, so loc_ref will never be 0.*/ +/* This is accomplished by using ONLY the "inc_loc_ref_offset"*/ +/* macro above to change the value of "loc_ref_offset". */ +/*----------------------------------------------------------------------*/ +#define calc_loc_ref(conn_id,loc_ref_offset) \ + ((conn_id) | ((loc_ref_offset) << TP_CONN_ID_BITS)) + +/*----------------------------------------------------------------------*/ +/* calc_conn_id */ +/* Calculate conn_id from loc_ref. */ +/*----------------------------------------------------------------------*/ +#define calc_conn_id(loc_ref) \ + ((loc_ref) & TP_CONN_ID_MASK) + +#ifdef __cplusplus +} +#endif + +#endif /* !TP4_INCLUDED */ + diff --git a/mmslib/inc/tp4_encd.h b/mmslib/inc/tp4_encd.h new file mode 100644 index 0000000..051d46d --- /dev/null +++ b/mmslib/inc/tp4_encd.h @@ -0,0 +1,407 @@ +#ifndef TP4_ENCD_INCLUDED +#define TP4_ENCD_INCLUDED +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1996 - 2005, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : tp4_encd.h */ +/* PRODUCT(S) : Lean-T Stack */ +/* */ +/* MODULE DESCRIPTION : */ +/* This header file defines structures and functions for */ +/* encoding/decoding of class 4 TPDUs. */ +/* */ +/* Note: The following TP options are NOT supported: */ +/* Transport Expedited Data */ +/* Non-use of checksum */ +/* Use of extended format. */ +/* This is reflected in structures and defines below. */ +/* */ +/* For information see the: */ +/* ISO 8073 "Information processing systems - Open Systems */ +/* Interconnections - Connection oriented transport protocol */ +/* specification. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 10/22/08 JRB 08 tp_decode_ak(_dc,_er): change args. */ +/* Delete tp_decode_rj (not used in TP0 or TP4).*/ +/* 11/01/07 EJV 07 Added comments. */ +/* 05/25/05 EJV 06 Added include tp4.h */ +/* 01/28/99 JRB 05 Move cltp_decode_nsdu proto to ACSE file. */ +/* 12/01/97 JRB 04 CRITICAL: Don't use "sizeof" on structures. */ +/* Caused padding on VXWORKS. */ +/* 08/14/97 JRB 03 Add TP0/RFC1006 support defines & protos. */ +/* Add tp_decode_* protos (were static before). */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 11/22/96 JRB 02 Add TP_PDU_TYPE_UD & cltp_decode_nsdu for CLTP.*/ +/* 06/20/96 EJV 01 Created */ +/************************************************************************/ +#ifdef __cplusplus +extern "C" { +#endif + +#include "tp4.h" + + /* encoding for Transport Protocol class and options */ + +#define TP_CLASS_0 (ST_UCHAR) 0x00 +#define TP_CLASS_1 (ST_UCHAR) 0x10 +#define TP_CLASS_2 (ST_UCHAR) 0x20 +#define TP_CLASS_3 (ST_UCHAR) 0x30 +#define TP_CLASS_4 (ST_UCHAR) 0x40 + +#define TP_OPT_FORMAT_NORMAL (ST_UCHAR) 0x00 +#define TP_OPT_FORMAT_EXTENDED (ST_UCHAR) 0x02 + +#define TP_CLASS_4_NORMAL (ST_UCHAR) (TP_CLASS_4 | TP_OPT_FORMAT_NORMAL) +#define TP_CLASS_4_EXT (ST_UCHAR) (TP_CLASS_4 | TP_OPT_FORMAT_EXTENDED) + +#define TP_CLASS_MASK_OPT (ST_UCHAR) 0xF0 /* for masking opt in ASN1_CLASS_METHOD-OPT in CR */ + + /* encoding for TPDU type code */ + +#define TP_PDU_TYPE_CR (ST_UCHAR) 0xE0 /* 1110 xxxx */ +#define TP_PDU_TYPE_CC (ST_UCHAR) 0xD0 /* 1101 xxxx */ +#define TP_PDU_TYPE_DR (ST_UCHAR) 0x80 /* 1000 0000 */ +#define TP_PDU_TYPE_DC (ST_UCHAR) 0xC0 /* 1100 0000 */ +#define TP_PDU_TYPE_DT (ST_UCHAR) 0xF0 /* 1111 0000 */ +#define TP_PDU_TYPE_ED (ST_UCHAR) 0x10 /* 0001 0000 */ +#define TP_PDU_TYPE_AK (ST_UCHAR) 0x60 /* 0110 zzzz */ +#define TP_PDU_TYPE_EA (ST_UCHAR) 0x20 /* 0010 0000 */ +#define TP_PDU_TYPE_RJ (ST_UCHAR) 0x50 /* 0101 zzzz */ +#define TP_PDU_TYPE_ER (ST_UCHAR) 0x70 /* 0111 0000 */ +#define TP_PDU_TYPE_UD (ST_UCHAR) 0x40 /* 0100 0000 for CLTP */ + +#define TP_PDU_MASK_TYPE (ST_UCHAR) 0x0F /* for masking type to get CDT */ +#define TP_PDU_MASK_CDT (ST_UCHAR) 0xF0 /* for masking CTD to get type */ + +/* encoding for max size of TPDU (parameter in the CR) */ + +#define TP_PDU_MAX_SIZE_65531 (ST_UCHAR) 0x0E /* kluge for TP0/RFC1006 only*/ +#define TP_PDU_MAX_SIZE_8192 (ST_UCHAR) 0x0D +#define TP_PDU_MAX_SIZE_4096 (ST_UCHAR) 0x0C +#define TP_PDU_MAX_SIZE_2048 (ST_UCHAR) 0x0B +#define TP_PDU_MAX_SIZE_1024 (ST_UCHAR) 0x0A +#define TP_PDU_MAX_SIZE_512 (ST_UCHAR) 0x09 +#define TP_PDU_MAX_SIZE_256 (ST_UCHAR) 0x08 +#define TP_PDU_MAX_SIZE_128 (ST_UCHAR) 0x07 + +/* encoding EOT in DT TPDU - bit 8 */ + +#define TP_PDU_EOF (ST_UCHAR) 0x80 + +#define TP_PDU_MASK_EOF (ST_UCHAR) 0x7F /* for masking EOF to get SN (DT)*/ +#define TP_PDU_MASK_SN (ST_UCHAR) 0x80 /* for masking SN to get EOF (DT)*/ + +#define TP_PDU_MASK_BIT8 (ST_UCHAR) 0x7F /* for masking bit 8 to get SN (AK)*/ + +/* encoding for DR reason */ +/* for class 1 - 4 */ +#define TP_DR_NORMAL (ST_UCHAR) 0x80 +#define TP_DR_CONGESTION (ST_UCHAR) 0x81 +#define TP_DR_CLASS_UNSUPPORTED (ST_UCHAR) 0x82 +#define TP_DR_DUPLICATE_SRC_REF (ST_UCHAR) 0x83 +#define TP_DR_INVALID_REF (ST_UCHAR) 0x84 +#define TP_DR_PROT_ERROR (ST_UCHAR) 0x85 +#define TP_DR_REF_OVERFLOW (ST_UCHAR) 0x87 +#define TP_DR_CR_REFUSED (ST_UCHAR) 0x88 +#define TP_DR_HDR_INVALID (ST_UCHAR) 0x8A + +/* for all classes (TP0) */ +#define TP_DR_NO_REASON (ST_UCHAR) 0x00 +#define TP_DR_CONGESTION_AT_TSAP (ST_UCHAR) 0x01 +#define TP_DR_NO_SESSION (ST_UCHAR) 0x02 +#define TP_DR_ADDR_UNKNOWN (ST_UCHAR) 0x03 + + +/* misc defines */ + +#define TP_MAX_CDT (ST_UCHAR) 0x0F + + + + /*----------------------------------------------*/ + /* Encoding and structures for TP parameters */ + /*----------------------------------------------*/ + + /* encoding for TP version */ + +#define TP_VERSION (ST_UCHAR) 0x01 + + /* encoding for the parameter code in CR or CC TPDU variable part */ + +#define TP_PAR_CODE_TSAP_CALLING (ST_UCHAR) 0xC1 +#define TP_PAR_CODE_TSAP_CALLED (ST_UCHAR) 0xC2 +#define TP_PAR_CODE_TPDU_SIZE (ST_UCHAR) 0xC0 +#define TP_PAR_CODE_VERSION (ST_UCHAR) 0xC4 +#define TP_PAR_CODE_ADD_OPTIONS (ST_UCHAR) 0xC6 + + /* encoding for the parameter code in AK TPDU variable part */ + +#define TP_PAR_CODE_AK_SUB_SN (ST_UCHAR) 0x8A +#define TP_PAR_CODE_AK_FLOW_CTRL (ST_UCHAR) 0x8C + + /* encoding for the parameter code in ER TPDU variable part */ + +#define TP_PAR_CODE_ER_INVAL_TPDU (ST_UCHAR) 0xC1 + + /* encoding for the parameter code in variable part (common to */ + /* different TPDU types) */ + +#define TP_PAR_CODE_CHECKSUM (ST_UCHAR) 0xC3 + + + /* encoding for CR TPDU additional options */ + +#define TP_OPT_CHECKSUM_USE (ST_UCHAR) 0x00 +#define TP_OPT_CHECKSUM_NON_USE (ST_UCHAR) 0x02 + +#define TP_OPT_EXPEDITED_NON_USE (ST_UCHAR) 0x00 +#define TP_OPT_EXPEDITED_USE (ST_UCHAR) 0x01 + + +typedef struct + { + ST_UCHAR code; /* parameter code */ + ST_UCHAR len; /* Parameter length */ + ST_UCHAR value [2]; /* parameter value has variable length */ + /* (defined as 2 bytes buffer, the ptr */ + /* will allow us to access any len param*/ + }TP_PAR; + +#define TP_PAR_FIX_LEN 2 + /* define above specifies only the fixed part */ + /* of parameter (code and len) */ + + /* some parameters are fixed in size so we can define them here */ + + /* parameters length in CR or CC */ + +#define TP_PAR_LEN_TPDU_SIZE (TP_PAR_FIX_LEN + 1) +#define TP_PAR_LEN_VERSION (TP_PAR_FIX_LEN + 1) +#define TP_PAR_LEN_ADD_OPTIONS (TP_PAR_FIX_LEN + 1) + + /* parameters length in AK */ + +#define TP_PAR_LEN_AK_SUB_SN (TP_PAR_FIX_LEN + 2) +#define TP_PAR_LEN_AK_FLOW_CTRL (TP_PAR_FIX_LEN + 8) + + /* parameters length (common to different types of TPDU types) */ + +#define TP_PAR_LEN_CHECKSUM (TP_PAR_FIX_LEN + 2) + +/* ! */ +/* NOTE: ! only ST_UCHAR type should be in protocol structs to avoid */ +/* ! packing or problems with sizeof operator. */ +/* ! */ + + + /*----------------------------------------------*/ + /* Struct and defines for CR and CC TPDU */ + /*----------------------------------------------*/ + +typedef struct + { + /* fixed part of header */ + ST_UCHAR hdr_len; /* hdr length (don't count the len byte)*/ + ST_UCHAR type_cdt; /* TPDU type and CDT */ + ST_UCHAR dest_ref [2]; /* Remote connection id (set to 0) */ + ST_UCHAR src_ref [2]; /* Local connection id */ + ST_UCHAR class_opt; /* Class and options */ + }TP_FHDR_CX; + +#define TP_FHDR_CX_LEN 7 + + /* for alloc of n_unitdata purposes the max len will be used */ + /* fixed part of header */ + /* local & remote TSAP */ + /* TPDU size parameter */ + /* TP version parameter */ + /* checksum parameter */ + /* additional opt param */ + /* user data (max allowed)*/ + +#define TP_MAX_LEN_CX (TP_FHDR_CX_LEN + \ + 2*(TP_PAR_FIX_LEN + MAX_TSEL_LEN) + \ + TP_PAR_LEN_TPDU_SIZE + \ + TP_PAR_LEN_VERSION + \ + TP_PAR_LEN_CHECKSUM + \ + TP_PAR_LEN_ADD_OPTIONS + \ + TP_MAX_CONN_UDATA) + + /*--------------------------------------*/ + /* Struct and defines for DR TPDU */ + /*--------------------------------------*/ + +typedef struct + { + /* fixed part of header */ + ST_UCHAR hdr_len; /* hdr length (don't count the len byte)*/ + ST_UCHAR type; /* TPDU type */ + ST_UCHAR dest_ref [2]; /* Remote connection id (set to 0) */ + ST_UCHAR src_ref [2]; /* Local connection id */ + ST_UCHAR reason; /* Reason code for disconnect */ + }TP_FHDR_DR; + +#define TP_FHDR_DR_LEN 7 + + /* for alloc of n_unitdata the max len will be used. */ + +#define TP_MAX_LEN_DR (TP_FHDR_DR_LEN + TP_PAR_LEN_CHECKSUM) + + /* no additional info parameter or user data in DR */ + + /*--------------------------------------*/ + /* Struct and defines for DC TPDU */ + /*--------------------------------------*/ + +typedef struct + { + /* fixed part of header */ + ST_UCHAR hdr_len; /* hdr length (don't count the len byte)*/ + ST_UCHAR type; /* TPDU type */ + ST_UCHAR dest_ref [2]; /* Remote connection id (set to 0) */ + ST_UCHAR src_ref [2]; /* Local connection id */ + }TP_FHDR_DC; + +#define TP_FHDR_DC_LEN 6 + + /* for alloc of n_unitdata the max len will be used. */ + +#define TP_MAX_LEN_DC (TP_FHDR_DC_LEN + TP_PAR_LEN_CHECKSUM) + + + /*--------------------------------------*/ + /* Struct and defines for DT TPDU */ + /*--------------------------------------*/ + +typedef struct + { + ST_UCHAR hdr_len; /* hdr length (don't count the len byte)*/ + ST_UCHAR type; /* TPDU type */ + ST_UCHAR dest_ref [2]; /* Remote connection id */ + ST_UCHAR eot_sn; /* EOT flag and sequence number */ + }TP_FHDR_DT; + +#define TP_FHDR_DT_LEN 5 + + /* for alloc of n_unitdata use TP_HEAD_LEN_DT + udata_len */ + +#define TP_HEAD_LEN_DT (ST_UINT16)(TP_FHDR_DT_LEN + TP_PAR_LEN_CHECKSUM) + +/* TP0 DT same as TP4 except doesn't use DST-REF. */ +typedef struct + { + ST_UCHAR hdr_len; /* hdr length (don't count the len byte)*/ + ST_UCHAR type; /* TPDU type */ + ST_UCHAR eot_sn; /* EOT flag and sequence number */ + }TP0_FHDR_DT; + +#define TP0_FHDR_DT_LEN 3 +#define TP0_HEAD_LEN_DT (ST_UINT16)(TP0_FHDR_DT_LEN) /* no chksum*/ + + + /*--------------------------------------*/ + /* Struct and defines for AK TPDU */ + /*--------------------------------------*/ + + +typedef struct + { + ST_UCHAR hdr_len; /* hdr length (don't count the len byte)*/ + ST_UCHAR type_cdt; /* TPDU type and CDT */ + ST_UCHAR dest_ref [2]; /* Remote connection id */ + ST_UCHAR sn; /* Next expected DT TPDU sequence number*/ + }TP_FHDR_AK; + +#define TP_FHDR_AK_LEN 5 + + /* for alloc of n_unitdata the max len will be used. */ + +#define TP_MAX_LEN_AK (TP_FHDR_AK_LEN + TP_PAR_LEN_CHECKSUM) + + + /*--------------------------------------*/ + /* Struct and defines for RJ TPDU */ + /*--------------------------------------*/ + +typedef struct + { + ST_UCHAR hdr_len; /* hdr length (don't count the len byte)*/ + ST_UCHAR type_cdt; /* TPDU type and CDT */ + ST_UCHAR dest_ref [2]; /* Remote connection id */ + ST_UCHAR sn; /* Next expected DT TPDU sequence number*/ + }TP_FHDR_RJ; + +#define TP_FHDR_RJ_LEN 5 + + /* for alloc of n_unitdata the max len will be used. */ + +#define TP_MAX_LEN_RJ TP_FHDR_RJ_LEN + + /*--------------------------------------*/ + /* Struct and defines for ER TPDU */ + /*--------------------------------------*/ + +typedef struct + { + ST_UCHAR hdr_len; /* hdr length (don't count the len byte)*/ + ST_UCHAR type; /* TPDU type */ + ST_UCHAR dest_ref [2]; /* Remote connection id */ + ST_UCHAR reason; /* Code for reject couse */ + }TP_FHDR_ER; + +#define TP_FHDR_ER_LEN 5 + + /* for alloc of n_unitdata the max len will be used. */ + +#define TP_MAX_LEN_ER (TP_FHDR_ER_LEN + TP_PAR_LEN_CHECKSUM) + + + /*----------------------------------------------*/ + /* Function prototypes for encoding/decoding */ + /*----------------------------------------------*/ + +ST_UINT16 tp_encode_cx (ST_UCHAR *enc_buf, TPDU_CX *tpdu_cx, ST_UCHAR pdu_type); +ST_UINT16 tp_encode_dr (ST_UCHAR *enc_buf, TPDU_DR *tpdu_dr); +ST_UINT16 tp_encode_dc (ST_UCHAR *enc_buf, TPDU_DC *tpdu_dc); +ST_UINT16 tp_encode_dt (ST_UCHAR *enc_buf, TPDU_DT *tpdu_dt); +ST_UINT16 tp0_encode_dt (ST_UCHAR *enc_buf, TPDU_DT *tpdu_dt); +ST_UINT16 tp_encode_ak (ST_UCHAR *enc_buf, TPDU_AK *tpdu_ak); + +ST_RET tp_decode_nsdu (N_UNITDATA *n_unitdata); + +ST_UINT16 tp_decode_cx (TPDU_CX *tpdu_cx_rx, ST_UCHAR *pdu_ptr, + ST_UINT16 pdu_len, ST_UCHAR pdu_type, ST_UCHAR max_tpdu_len_enc); +ST_UINT16 tp_decode_dr (TPDU_DR *tpdu_dr_rx, ST_UCHAR *pdu_ptr, + ST_UINT16 pdu_len); +ST_UINT16 tp_decode_dc (TPDU_DC *tpdu_dc_rx, ST_UCHAR *pdu_ptr, + ST_UINT16 pdu_len); +ST_UINT16 tp_decode_dt (TPDU_DT *tpdu_dt_rx, ST_UCHAR *pdu_ptr, + ST_UINT16 pdu_len); +ST_UINT16 tp0_decode_dt (TPDU_DT *tpdu_dt_rx, ST_UCHAR *pdu_ptr, + ST_UINT16 pdu_len); +ST_UINT16 tp_decode_ak (TPDU_AK *tpdu_ak_rx, ST_UCHAR *pdu_ptr, + ST_UINT16 pdu_len); +ST_UINT16 tp_decode_er (TPDU_ER *tpdu_er_rx, ST_UCHAR *pdu_ptr, + ST_UINT16 pdu_len, + ST_INT tp_class); /* must be 0 or 4 */ + +ST_VOID tp_log_tsdu (ST_VOID *tsdu, ST_UCHAR type, ST_UCHAR mask); + +#ifdef __cplusplus +} +#endif + +#endif /* end of 'already included' */ + + diff --git a/mmslib/inc/tp4_log.h b/mmslib/inc/tp4_log.h new file mode 100644 index 0000000..37694f1 --- /dev/null +++ b/mmslib/inc/tp4_log.h @@ -0,0 +1,228 @@ +#ifndef TP4_LOG_INCLUDED +#define TP4_LOG_INCLUDED +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1996 - 2008, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : tp4_log.h */ +/* PRODUCT(S) : Lean-T Stack */ +/* */ +/* MODULE DESCRIPTION : */ +/* This header file contains logging macros for TP. */ +/* Note: To compile logging functions use the DEBUG_SISCO define */ +/* in the project make file. */ +/* */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 01/30/08 EJV 05 Converted to new SLOG macros. */ +/* 05/10/05 EJV 04 Added TP_LOG_ERR3. */ +/* 09/13/99 MDE 03 Added SD_CONST modifiers */ +/* 10/08/98 MDE 02 Migrated to updated SLOG interface */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 06/24/96 EJV 01 Created */ +/************************************************************************/ +#include "slog.h" +#include "tp4api.h" /* NOTE the masks are defined in tp4api.h, */ + /* should we include it here? */ + +#ifdef __cplusplus +extern "C" { +#endif + +/****************************************************************/ +/* Log Control types */ +/****************************************************************/ + +/* defined for TP_LOG.._RIn macros */ +#define TP_REQ (ST_UCHAR) 0 +#define TP_IND (ST_UCHAR) 1 + +#if defined(DEBUG_SISCO) + +extern SD_CONST ST_CHAR *SD_CONST _tp4_err_logstr; +extern SD_CONST ST_CHAR *SD_CONST _tp4_flowup_logstr; +extern SD_CONST ST_CHAR *SD_CONST _tp4_flowdown_logstr; + + /*--------------------------------------------*/ + /* errors logging */ + /*--------------------------------------------*/ + + #define TP_LOG_ERR0(a) SLOG_0 (tp4_debug_sel & TP4_LOG_ERR,_tp4_err_logstr,a) + #define TP_LOG_ERR1(a,b) SLOG_1 (tp4_debug_sel & TP4_LOG_ERR,_tp4_err_logstr,a,b) + #define TP_LOG_ERR2(a,b,c) SLOG_2 (tp4_debug_sel & TP4_LOG_ERR,_tp4_err_logstr,a,b,c) + #define TP_LOG_ERR3(a,b,c,d) SLOG_3 (tp4_debug_sel & TP4_LOG_ERR,_tp4_err_logstr,a,b,c,d) + + /* continuation log */ + + #define TP_LOGC_ERR0(a) SLOGC_0 (tp4_debug_sel & TP4_LOG_ERR,a) + #define TP_LOGC_ERR1(a,b) SLOGC_1 (tp4_debug_sel & TP4_LOG_ERR,a,b) + #define TP_LOGC_ERR2(a,b,c) SLOGC_2 (tp4_debug_sel & TP4_LOG_ERR,a,b,c) + #define TP_LOGC_ERR3(a,b,c,d) SLOGC_2 (tp4_debug_sel & TP4_LOG_ERR,a,b,c) + + /* hex logging */ + + #define TP_LOGH_ERR(a,b) SLOGH (tp4_debug_sel & TP4_LOG_ERR,a,b) + + /*--------------------------------------------*/ + /* Indication logging */ + /*--------------------------------------------*/ + + #define TP_LOG_IND0(a) SLOG_0 (tp4_debug_sel & TP4_LOG_FLOWUP,_tp4_flowup_logstr,a) + #define TP_LOG_IND1(a,b) SLOG_1 (tp4_debug_sel & TP4_LOG_FLOWUP,_tp4_flowup_logstr,a,b) + #define TP_LOG_IND2(a,b,c) SLOG_2 (tp4_debug_sel & TP4_LOG_FLOWUP,_tp4_flowup_logstr,a,b,c) + #define TP_LOG_IND3(a,b,c,d) SLOG_3 (tp4_debug_sel & TP4_LOG_FLOWUP,_tp4_flowup_logstr,a,b,c,d) + #define TP_LOG_IND4(a,b,c,d,e) SLOG_4 (tp4_debug_sel & TP4_LOG_FLOWUP,_tp4_flowup_logstr,a,b,c,d,e) + #define TP_LOG_IND5(a,b,c,d,e,f) SLOG_5 (tp4_debug_sel & TP4_LOG_FLOWUP,_tp4_flowup_logstr,a,b,c,d,e,f) + #define TP_LOG_IND6(a,b,c,d,e,f,g) SLOG_6 (tp4_debug_sel & TP4_LOG_FLOWUP,_tp4_flowup_logstr,a,b,c,d,e,f,g) + + /* continuation log */ + + #define TP_LOGC_IND0(a) SLOGC_0 (tp4_debug_sel & TP4_LOG_FLOWUP,a) + #define TP_LOGC_IND1(a,b) SLOGC_1 (tp4_debug_sel & TP4_LOG_FLOWUP,a,b) + #define TP_LOGC_IND2(a,b,c) SLOGC_2 (tp4_debug_sel & TP4_LOG_FLOWUP,a,b,c) + + /* hex logging */ + + #define TP_LOGH_IND(a,b) SLOGH (tp4_debug_sel & TP4_LOG_FLOWUP,a,b) + + /* continuation hex logging */ + + #define TP_LOGHC_IND(a,b) SLOGH (tp4_debug_sel & TP4_LOG_FLOWUP,a,b) + + /*--------------------------------------------*/ + /* Request logging */ + /*--------------------------------------------*/ + + #define TP_LOG_REQ0(a) SLOG_0 (tp4_debug_sel & TP4_LOG_FLOWDOWN,_tp4_flowdown_logstr,a) + #define TP_LOG_REQ1(a,b) SLOG_1 (tp4_debug_sel & TP4_LOG_FLOWDOWN,_tp4_flowdown_logstr,a,b) + #define TP_LOG_REQ2(a,b,c) SLOG_2 (tp4_debug_sel & TP4_LOG_FLOWDOWN,_tp4_flowdown_logstr,a,b,c) + #define TP_LOG_REQ3(a,b,c,d) SLOG_3 (tp4_debug_sel & TP4_LOG_FLOWDOWN,_tp4_flowdown_logstr,a,b,c,d) + #define TP_LOG_REQ4(a,b,c,d,e) SLOG_4 (tp4_debug_sel & TP4_LOG_FLOWDOWN,_tp4_flowdown_logstr,a,b,c,d,e) + #define TP_LOG_REQ5(a,b,c,d,e,f) SLOG_5 (tp4_debug_sel & TP4_LOG_FLOWDOWN,_tp4_flowdown_logstr,a,b,c,d,e,f) + #define TP_LOG_REQ6(a,b,c,d,e,f,g) SLOG_6 (tp4_debug_sel & TP4_LOG_FLOWDOWN,_tp4_flowdown_logstr,a,b,c,d,e,f,g) + + /* continuation log */ + + #define TP_LOGC_REQ0(a) SLOGC_0 (tp4_debug_sel & TP4_LOG_FLOWDOWN,a) + #define TP_LOGC_REQ1(a,b) SLOGC_1 (tp4_debug_sel & TP4_LOG_FLOWDOWN,a,b) + #define TP_LOGC_REQ2(a,b,c) SLOGC_2 (tp4_debug_sel & TP4_LOG_FLOWDOWN,a,b,c) + + /* hex logging */ + + #define TP_LOGH_REQ(a,b) SLOGH (tp4_debug_sel & TP4_LOG_FLOWDOWN,a,b) + + /* continuation hex logging */ + + #define TP_LOGHC_REQ(a,b) SLOGH (tp4_debug_sel & TP4_LOG_FLOWDOWN,a,b) + + /*--------------------------------------------------------------------*/ + /* macros below are used to log REQ or IND by passing mask to select */ + /* the logging macro (this is handy in log function so the macros */ + /* do not have to repeated in function for REQ and then for IND) */ + /*--------------------------------------------------------------------*/ + + #define TP_LOG_RI0(m,a) {if (m == TP_REQ) {TP_LOG_REQ0(a);} else {TP_LOG_IND0(a)};} + #define TP_LOG_RI1(m,a,b) {if (m == TP_REQ) {TP_LOG_REQ1(a,b);} else {TP_LOG_IND1(a,b);}} + #define TP_LOG_RI2(m,a,b,c) {if (m == TP_REQ) {TP_LOG_REQ2(a,b,c);} else {TP_LOG_IND2(a,b,c);}} + #define TP_LOG_RI3(m,a,b,c,d) {if (m == TP_REQ) {TP_LOG_REQ3(a,b,c,d);} else {TP_LOG_IND3(a,b,c,d);}} + #define TP_LOG_RI4(m,a,b,c,d,e) {if (m == TP_REQ) {TP_LOG_REQ4(a,b,c,d,e);} else {TP_LOG_IND4(a,b,c,d,e);}} + #define TP_LOG_RI5(m,a,b,c,d,e,f) {if (m == TP_REQ) {TP_LOG_REQ5(a,b,c,d,e,f);} else {TP_LOG_IND5(a,b,c,d,e,f);}} + #define TP_LOG_RI6(m,a,b,c,d,e,f,g) {if (m == TP_REQ) {TP_LOG_REQ6(a,b,c,d,e,f,g);} else {TP_LOG_IND6(a,b,c,d,e,f,g);}} + + #define TP_LOGC_RI0(m,a) {if (m == TP_REQ) {TP_LOGC_REQ0(a);} else {TP_LOGC_IND0(a);}} + #define TP_LOGC_RI1(m,a,b) {if (m == TP_REQ) {TP_LOGC_REQ1(a,b);} else {TP_LOGC_IND1(a,b);}} + #define TP_LOGC_RI2(m,a,b,c) {if (m == TP_REQ) {TP_LOGC_REQ2(a,b,c);} else {TP_LOGC_IND2(a,b,c);}} + + #define TP_LOGH_RI(m,a,b) {if (m == TP_REQ) {TP_LOGH_REQ(a,b);} else {TP_LOGH_IND(a,b);}} + #define TP_LOGHC_RI(m,a,b) {if (m == TP_REQ) {TP_LOGHC_REQ(a,b);} else {TP_LOGHC_IND(a,b);}} + + +#else /* macros if DEBUG_SISCO not defined */ + + /*--------------------------------------------*/ + /* errors logging */ + /*--------------------------------------------*/ + + #define TP_LOG_ERR0(a) + #define TP_LOG_ERR1(a,b) + #define TP_LOG_ERR2(a,b,c) + #define TP_LOG_ERR3(a,b,c,d) + + #define TP_LOGC_ERR0(a) + #define TP_LOGC_ERR1(a,b) + #define TP_LOGC_ERR2(a,b,c) + + #define TP_LOGH_ERR(a,b) + #define TP_LOGHC_ERR(a,b) + + /*--------------------------------------------*/ + /* Indication logging */ + /*--------------------------------------------*/ + + #define TP_LOG_IND0(a) + #define TP_LOG_IND1(a,b) + #define TP_LOG_IND2(a,b,c) + #define TP_LOG_IND3(a,b,c,d) + #define TP_LOG_IND4(a,b,c,d,e) + #define TP_LOG_IND5(a,b,c,d,e,f) + #define TP_LOG_IND6(a,b,c,d,e,f,g) + + #define TP_LOGC_IND0(a) + #define TP_LOGC_IND1(a,b) + #define TP_LOGC_IND2(a,b,c) + + #define TP_LOGH_IND(a,b) + #define TP_LOGHC_IND(a,b) + + /*--------------------------------------------*/ + /* Request logging */ + /*--------------------------------------------*/ + + #define TP_LOG_REQ0(a) + #define TP_LOG_REQ1(a,b) + #define TP_LOG_REQ2(a,b,c) + #define TP_LOG_REQ3(a,b,c,d) + #define TP_LOG_REQ4(a,b,c,d,e) + #define TP_LOG_REQ5(a,b,c,d,e,f) + #define TP_LOG_REQ6(a,b,c,d,e,f,g) + + #define TP_LOGC_REQ0(a) + #define TP_LOGC_REQ1(a,b) + #define TP_LOGC_REQ2(a,b,c) + + #define TP_LOGH_REQ(a,b) + #define TP_LOGHC_REQ(a,b) + + /*--------------------------------------------------------------------*/ + /* macros below are used to log REQ or IND by passing mask */ + /*--------------------------------------------------------------------*/ + + #define TP_LOG_RI0(m,a) + #define TP_LOG_RI1(m,a,b) + #define TP_LOG_RI2(m,a,b,c) + #define TP_LOG_RI3(m,a,b,c,d) + #define TP_LOG_RI4(m,a,b,c,d,e) + #define TP_LOG_RI5(m,a,b,c,d,e,f) + #define TP_LOG_RI6(m,a,b,c,d,e,f,g) + + #define TP_LOGC_RI0(m,a) + #define TP_LOGC_RI1(m,a,b) + #define TP_LOGC_RI2(m,a,b,c) + + #define TP_LOGH_RI(m,a,b) + #define TP_LOGHC_RI(m,a,b) + +#endif + +#ifdef __cplusplus +} +#endif + +#endif /* end of 'already included' */ + diff --git a/mmslib/inc/tp4api.h b/mmslib/inc/tp4api.h new file mode 100644 index 0000000..48543f3 --- /dev/null +++ b/mmslib/inc/tp4api.h @@ -0,0 +1,333 @@ +#ifndef TP4API_INCLUDED +#define TP4API_INCLUDED +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1996-2005 All Rights Reserved */ +/* */ +/* MODULE NAME : tp4api.h */ +/* PRODUCT(S) : TP4 API user include file */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 07/27/05 JRB 23 Del obsolete DS_INFO, tp4_ds_*, odbc_ds_*. */ +/* 05/05/05 EJV 22 TP0_CFG: added rfc1006_listen_port */ +/* TP4_ADDR added port. */ +/* 04/06/05 EJV 21 MMSEASE_MOSI: use 32 for MAX_TSEL_LEN */ +/* 09/17/04 JRB 20 Chg tp?_connect to ret ST_LONG (i.e. conn_id)*/ +/* 01/14/04 EJV 19 TP0_CFG: added max_spdu_outst. */ +/* 08/25/03 EJV 18 Added encrypt_ctrl arg to tp0_connect(). */ +/* Added param to tp4_connect macro. */ +/* 06/20/02 JRB 17 Replace net_addr with union in TP4_ADDR. */ +/* Chg addr args to tp4_connect_ind. */ +/* Add tp0_convert_ip proto. */ +/* 05/08/02 JRB 16 Add tp0_connect_outstanding_count proto. */ +/* 01/22/02 JRB 15 Add max_conns arg to tp*_initialize. */ +/* 05/10/01 JRB 14 Chg TSEL_LEN from 32 to 4. */ +/* 03/14/01 JRB 13 Add global session_cfg w/ disconnect_timeout.*/ +/* 08/05/99 JRB 12 Add hTcp... extern. */ +/* 06/08/99 JRB 11 Change max_num_conns to ST_UINT16 to allow */ +/* many more connections. */ +/* 01/28/99 JRB 10 Addec cltp_decode_nsdu_fun funct ptr. */ +/* 08/13/98 JRB 09 Lint cleanup. */ +/* 06/18/98 JRB 08 Add TP_TYPE_TPX. */ +/* 03/11/98 JRB 07 Del max_spdu_len from TP0_CFG & TP_CFG. */ +/* Add keepalive to TP0_CFG. */ +/* 09/04/07 JRB 06 Add max_spdu_len arg to tp4_initialize. */ +/* 08/14/97 JRB 05 RFC1006 changes: */ +/* - Add "tp0_*" protos. */ +/* - Add "tp_type" to TP4_ADDR. */ +/* - Add "tp0_cfg" config struct for RFC1006. */ +/* - Chg "tp4_data" arg "data_len" to ST_UINT. */ +/* - Replace tp4_reldata proto with dummy macro.*/ +/* - Chg MAX_TP4_SEL to MAX_TSEL_LEN (ACSE uses)*/ +/* - Chg MAX_NET_ADDR to MAX_IP_ADDR_LEN and */ +/* increase to allow IP hostname. */ +/* 08/04/97 JRB 04 Add max_tpdu_len_enc to TP_CFG (use instead */ +/* of global max_tpdu_len_enc). */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 05/07/97 JRB 03 Added Error codes. */ +/* 02/20/97 EJV 02 Added MOSI support: tp4_session_timer and */ +/* tp4_session_timer_expired. */ +/* 11/14/96 JRB 01 Created for LEAN_T only. */ +/************************************************************************/ + +#ifdef __cplusplus +extern "C" { +#endif + +#include "ssec.h" /* for S_SEC_ENCRYPT_CTRL */ +#include "clnp_usr.h" /* Need CLNP_MAX_LEN_NSAP define. */ + +/* Defines for Transport type. Used to set "tp_type" in TP4_ADDR. */ +#define TP_TYPE_TCP 0 +#define TP_TYPE_TP4 1 +#define TP_TYPE_TPX 2 /* allow TP4 and TCP at same time. */ + +/****************************************************************/ +/* Structure definitions */ +/****************************************************************/ + +#if defined(MMSEASE_MOSI) +#define MAX_TSEL_LEN 32 +#else +#define MAX_TSEL_LEN 4 /* GOSIP Ver2 recommends len of 2 */ +#endif +#define MAX_IP_ADDR_LEN 80 /* Big enough for IP hostname */ + +typedef struct tagTP4_ADDR + { +#if !defined(REDUCED_STACK) + ST_INT tp_type; /* Type of transport: TP_TYPE_TP4 or TP_TYPE_TCP.*/ + ST_UINT tp4_sel_len; + char tp4_sel[MAX_TSEL_LEN]; + ST_UINT net_addr_len; + union + { /* If TP_TYPE_TP4, use "nsap". If TP_TYPE_TCP, use "ip". */ + ST_UCHAR nsap [CLNP_MAX_LEN_NSAP]; /* NSAP OR */ + ST_ULONG ip; /* IP Addr (network byte order) */ + }netAddr; + ST_UINT16 port; /* remote port, optional param, */ + /* defaults to 102 if not config*/ +#else + ST_UINT16 adlcAddr; +#endif + } TP4_ADDR; + +/****************************************************************/ +/* API prototypes */ +/****************************************************************/ + +ST_RET tp4_initialize (ST_UINT max_conns, ST_UINT max_spdu_len); +ST_RET tp4_terminate (ST_VOID); + +ST_BOOLEAN tp4_event (ST_VOID); + +ST_RET tp4_bind (ST_LONG user_bind_id, TP4_ADDR *tp4_addr, + ST_INT sharable, ST_INT max_conns); +ST_RET tp4_unbind (ST_LONG tp4_bind_id); + +ST_LONG tp4_connect (ST_LONG tp4_bind_id, ST_LONG user_conn_id, + TP4_ADDR *rem_tp4_addr, + ST_INT conndata_len, + char *conndata, + S_SEC_ENCRYPT_CTRL *encrypt_ctrl); /* connection encryption info */ + +ST_RET tp4_accept (ST_LONG tp4_conn_id, ST_LONG user_conn_id, + ST_INT conndata_len, + char *conndata); +ST_RET tp4_disconnect (ST_LONG tp4_conn_id, + ST_INT conndata_len, + char *conndata); +ST_RET tp4_data (ST_LONG tp4_conn_id, + ST_INT eot, + ST_UINT data_len, + char *data); +ST_RET tp4_expdata (ST_LONG tp4_conn_id, + ST_UINT data_len, + char *data); + +/* The "tp4_reldata" function is not needed in this TP4 implementation, */ +/* so define "tp4_reldata" macro which does nothing. */ +#define tp4_reldata(databuf) + +/* Function for MOSI implementation: */ +ST_RET tp4_session_timer (ST_LONG tp_conn_id, ST_BOOLEAN start); + +ST_RET tp0_initialize (ST_UINT max_conns, ST_UINT max_spdu_len); +ST_RET tp0_terminate (ST_VOID); + +ST_BOOLEAN tp0_event (ST_VOID); + +ST_RET tp0_bind (ST_LONG user_bind_id, TP4_ADDR *tp4_addr, + ST_INT sharable, ST_INT max_conns); +ST_RET tp0_unbind (ST_LONG tp4_bind_id); + +ST_LONG tp0_connect (ST_LONG tp4_bind_id, ST_LONG user_conn_id, + TP4_ADDR *rem_tp4_addr, + ST_INT conndata_len, + char *conndata, + S_SEC_ENCRYPT_CTRL *encrypt_ctrl); +ST_INT tp0_connect_outstanding_count (TP4_ADDR *tp4Addr); +ST_RET tp0_accept (ST_LONG tp4_conn_id, ST_LONG user_conn_id, + ST_INT conndata_len, + char *conndata); +ST_RET tp0_disconnect (ST_LONG tp4_conn_id, + ST_INT conndata_len, + char *conndata); +ST_RET tp0_data (ST_LONG tp4_conn_id, + ST_INT eot, + ST_UINT data_len, + char *data); + +/* Function for MOSI implementation: */ +ST_RET tp0_session_timer (ST_LONG tp_conn_id, ST_BOOLEAN start); + +/****************************************************************/ +/* Event callback function prototypes */ +/****************************************************************/ + +ST_VOID tp4_bind_cnf (ST_LONG user_bind_id, ST_LONG tp4_bind_id, ST_RET result); +ST_VOID tp4_unbind_cnf (ST_LONG user_bind_id); + +ST_VOID tp4_connect_ind (ST_LONG user_bind_id, ST_LONG tp4_conn_id, + ST_UCHAR *loc_tsap, ST_UCHAR *rem_tsap, + ST_UCHAR *rem_nsap, ST_ULONG rem_ip, + ST_INT conndata_len, char *conndata); +ST_VOID tp4_connect_cnf (ST_LONG user_conn_id, ST_LONG tp4_conn_id, + ST_INT conndata_len, char *conndata); +ST_VOID tp4_disconnect_ind (ST_LONG user_conn_id, ST_INT reason, + ST_INT conndata_len, char *conndata); +ST_VOID tp4_data_ind (ST_LONG user_conn_id, ST_INT eot, + ST_UINT data_len, char *data); +ST_VOID tp4_expdata_ind (ST_LONG user_conn_id, + ST_UINT data_len, char *data); + +/* Function for MOSI implementation: */ +ST_VOID tp4_session_timer_expired (ST_LONG user_conn_id); + + +/****************************************************************/ +/* Log Control */ +/****************************************************************/ + +#define TP4_LOG_ERR 0x00000001 +#define TP4_LOG_FLOWUP 0x00000002 +#define TP4_LOG_FLOWDOWN 0x00000004 + +extern ST_UINT tp4_debug_sel; + +/****************************************************************/ +/* Error Codes */ +/****************************************************************/ + +#define TP4E_SHMALLOC 0x1201 +#define TP4E_BADCONN 0x1202 +#define TP4E_QUEUE_FULL 0x1203 +#define TP4E_CONN_STATE 0x1204 +#define TP4E_INVAL_TPDU_LEN 0x1205 +#define TP4E_INVAL_REM_CDT 0x1206 +#define TP4E_INVAL_LOC_CDT 0x1207 +#define TP4E_INVAL_SPDU_OUTST 0x1208 +#define TP4E_INVAL_NUM_CONNS 0x1209 +#define TP4E_INVAL_SPDU_LEN 0x120A +#define TP4E_INVAL_WINDOW_TIME 0x120B +#define TP4E_INVAL_INACT_TIME 0x120C +#define TP4E_INVAL_RETRANS_TIME 0x120D +#define TP4E_INVAL_MAX_TRANS 0x120E +#define TP4E_MALLOC 0x120F +#define TP4E_INVAL_TSEL 0x1210 +#define TP4E_TOO_MANY_BINDS 0x1211 + + +/************************************************************************/ +/* Global Configuration Structure Typedef. */ +/************************************************************************/ +typedef struct + { + ST_UINT16 max_tpdu_len; /* max len of TPDU. Base on SNPDU size.*/ + /* Use to allocate TPDU buffers. */ + ST_UCHAR max_tpdu_len_enc; /* Binary encoded MAX TPDU len. Computed*/ + /* from max_tpdu_len by tp4_initialize. */ + ST_UCHAR max_rem_cdt; /* Max credits we can handle. */ + /* Will allocate this many TPDU_DT */ + /* structs. */ + /* CRITICAL: MUST BE POWER OF 2. */ + ST_UCHAR loc_cdt; /* CDT value we will ALWAYS send in ACK */ + /* We only accept in-sequence TPDUs so */ + /* only purpose of this is to */ + /* allow peer to send ahead. */ + ST_UCHAR max_spdu_outst; /* Max # of SPDUs outstanding per conn. */ + /* Will allocate this many SPDU_INFO */ + /* structs for transmit queue. */ + /* CRITICAL: MUST BE POWER OF 2. */ + ST_UINT16 max_num_conns; /* Max # Connections */ + ST_UINT16 window_time; /* Window Time */ + ST_UINT16 inact_time; /* Inactivity Time */ + ST_UINT16 retrans_time; /* Retransmission Time */ + ST_UCHAR max_trans; /* Max # of transmissions of a TPDU */ + ST_UCHAR ak_delay; /* # of loops to delay sending AK. */ + } TP_CFG; + +typedef struct + { + ST_UINT16 max_tpdu_len; /* max len of TPDU. Base on SNPDU size.*/ + /* Use to allocate TPDU buffers. */ + ST_UCHAR max_tpdu_len_enc; /* Binary encoded MAX TPDU len. Computed*/ + /* from max_tpdu_len by tp0_initialize. */ + ST_UINT max_spdu_outst; /* Max # of SPDUs outstanding per conn. */ + /* that can be queued on the gensock2 */ + ST_UINT16 max_num_conns; /* Max # Connections */ + ST_BOOLEAN keepalive; /* Use KEEPALIVE option on Sockets? */ + ST_UINT16 rfc1006_listen_port;/* RFC1006 listen port, optional param, */ + /* will default to 102 if not configured*/ + } TP0_CFG; /* For TP0/RFC1006 only. */ + +typedef struct + { + ST_UINT16 disconnect_timeout; /* time to wait for T-disconnect. */ + } SESSION_CFG; + +/************************************************************************/ +/* Global Configuration Structure */ +/* This structure must be filled in by user BEFORE tp4_initialize (). */ +/* It MUST NOT change after tp4_initialize (). */ +/************************************************************************/ +extern TP_CFG tp_cfg; +extern TP0_CFG tp0_cfg; /* For TP0/RFC1006 only. */ +extern SESSION_CFG session_cfg; + +/************************************************************************/ +/* Global Variables */ +/************************************************************************/ +/* CLTP decode function pointer. */ +extern ST_VOID (*cltp_decode_nsdu_fun) (N_UNITDATA *n_unitdata); + +/************************************************************************/ +/* Additional Prototypes for LEAN_T only. */ +/************************************************************************/ + +ST_VOID tp4_except (ST_CHAR *filename, ST_INT line); +ST_VOID tp4_timer_tick (ST_VOID); +ST_RET tp4_config (ST_VOID); +ST_VOID tp4_init_timer (ST_VOID); +ST_VOID tp4_check_timer (ST_VOID); +ST_INT tp4_buffers_avail (ST_LONG tp4_conn_id); + +ST_VOID tp0_timer_tick (ST_VOID); +ST_INT tp0_buffers_avail (ST_LONG tp4_conn_id); +ST_ULONG tp0_convert_ip (ST_CHAR *hostname); + +/************************************************************************/ +/* Event semaphore to indicate TCP events. */ +/************************************************************************/ +extern ST_EVENT_SEM hTcpEvent; + +/************************************************************************/ +/* Replacement function macros. If no TP4, call TP0 functions. */ +/************************************************************************/ +#if !defined (TP4_ENABLED) +#define tp4_initialize(a,b) tp0_initialize(a,b) +#define tp4_terminate() tp0_terminate() +#define tp4_event() tp0_event() +#define tp4_bind(a,b,c,d) tp0_bind(a,b,c,d) +#define tp4_unbind(a) tp0_unbind(a) +#define tp4_connect(a,b,c,d,e,f) tp0_connect(a,b,c,d,e,f) +#define tp4_accept(a,b,c,d) tp0_accept(a,b,c,d) +#define tp4_disconnect(a,b,c) tp0_disconnect(a,b,c) +#define tp4_data(a,b,c,d) tp0_data(a,b,c,d) +#define tp4_session_timer(a,b) tp0_session_timer(a,b) +#define tp4_timer_tick() tp0_timer_tick() +#define tp4_buffers_avail(a) tp0_buffers_avail(a) +#endif /* !defined (TP4_ENABLED) */ + +#ifdef __cplusplus +} +#endif +#endif /* !TP4API_INCLUDED */ diff --git a/mmslib/inc/tp4api.h.bak b/mmslib/inc/tp4api.h.bak new file mode 100644 index 0000000..73cf08f --- /dev/null +++ b/mmslib/inc/tp4api.h.bak @@ -0,0 +1,333 @@ +#ifndef TP4API_INCLUDED +#define TP4API_INCLUDED +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1996-2005 All Rights Reserved */ +/* */ +/* MODULE NAME : tp4api.h */ +/* PRODUCT(S) : TP4 API user include file */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 07/27/05 JRB 23 Del obsolete DS_INFO, tp4_ds_*, odbc_ds_*. */ +/* 05/05/05 EJV 22 TP0_CFG: added rfc1006_listen_port */ +/* TP4_ADDR added port. */ +/* 04/06/05 EJV 21 MMSEASE_MOSI: use 32 for MAX_TSEL_LEN */ +/* 09/17/04 JRB 20 Chg tp?_connect to ret ST_LONG (i.e. conn_id)*/ +/* 01/14/04 EJV 19 TP0_CFG: added max_spdu_outst. */ +/* 08/25/03 EJV 18 Added encrypt_ctrl arg to tp0_connect(). */ +/* Added param to tp4_connect macro. */ +/* 06/20/02 JRB 17 Replace net_addr with union in TP4_ADDR. */ +/* Chg addr args to tp4_connect_ind. */ +/* Add tp0_convert_ip proto. */ +/* 05/08/02 JRB 16 Add tp0_connect_outstanding_count proto. */ +/* 01/22/02 JRB 15 Add max_conns arg to tp*_initialize. */ +/* 05/10/01 JRB 14 Chg TSEL_LEN from 32 to 4. */ +/* 03/14/01 JRB 13 Add global session_cfg w/ disconnect_timeout.*/ +/* 08/05/99 JRB 12 Add hTcp... extern. */ +/* 06/08/99 JRB 11 Change max_num_conns to ST_UINT16 to allow */ +/* many more connections. */ +/* 01/28/99 JRB 10 Addec cltp_decode_nsdu_fun funct ptr. */ +/* 08/13/98 JRB 09 Lint cleanup. */ +/* 06/18/98 JRB 08 Add TP_TYPE_TPX. */ +/* 03/11/98 JRB 07 Del max_spdu_len from TP0_CFG & TP_CFG. */ +/* Add keepalive to TP0_CFG. */ +/* 09/04/07 JRB 06 Add max_spdu_len arg to tp4_initialize. */ +/* 08/14/97 JRB 05 RFC1006 changes: */ +/* - Add "tp0_*" protos. */ +/* - Add "tp_type" to TP4_ADDR. */ +/* - Add "tp0_cfg" config struct for RFC1006. */ +/* - Chg "tp4_data" arg "data_len" to ST_UINT. */ +/* - Replace tp4_reldata proto with dummy macro.*/ +/* - Chg MAX_TP4_SEL to MAX_TSEL_LEN (ACSE uses)*/ +/* - Chg MAX_NET_ADDR to MAX_IP_ADDR_LEN and */ +/* increase to allow IP hostname. */ +/* 08/04/97 JRB 04 Add max_tpdu_len_enc to TP_CFG (use instead */ +/* of global max_tpdu_len_enc). */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 05/07/97 JRB 03 Added Error codes. */ +/* 02/20/97 EJV 02 Added MOSI support: tp4_session_timer and */ +/* tp4_session_timer_expired. */ +/* 11/14/96 JRB 01 Created for LEAN_T only. */ +/************************************************************************/ + +#ifdef __cplusplus +extern "C" { +#endif + +#include "ssec.h" /* for S_SEC_ENCRYPT_CTRL */ +#include "clnp_usr.h" /* Need CLNP_MAX_LEN_NSAP define. */ + +/* Defines for Transport type. Used to set "tp_type" in TP4_ADDR. */ +#define TP_TYPE_TCP 0 +#define TP_TYPE_TP4 1 +#define TP_TYPE_TPX 2 /* allow TP4 and TCP at same time. */ + +/****************************************************************/ +/* Structure definitions */ +/****************************************************************/ + +#if defined(MMSEASE_MOSI) +#define MAX_TSEL_LEN 32 +#else +#define MAX_TSEL_LEN 4 /* GOSIP Ver2 recommends len of 2 */ +#endif +#define MAX_IP_ADDR_LEN 80 /* Big enough for IP hostname */ + +typedef struct tagTP4_ADDR + { +#if !defined(REDUCED_STACK) + ST_INT tp_type; /* Type of transport: TP_TYPE_TP4 or TP_TYPE_TCP.*/ + ST_UINT tp4_sel_len; + char tp4_sel[MAX_TSEL_LEN]; + ST_UINT net_addr_len; + union + { /* If TP_TYPE_TP4, use "nsap". If TP_TYPE_TCP, use "ip". */ + ST_UCHAR nsap [CLNP_MAX_LEN_NSAP]; /* NSAP OR */ + ST_ULONG ip; /* IP Addr (network byte order) */ + }netAddr; + ST_UINT16 port; /* remote port, optional param, */ + /* defaults to 102 if not config*/ +#else + ST_UINT16 adlcAddr; +#endif + } TP4_ADDR; + +/****************************************************************/ +/* API prototypes */ +/****************************************************************/ + +ST_RET tp4_initialize (ST_UINT max_conns, ST_UINT max_spdu_len); +ST_RET tp4_terminate (ST_VOID); + +ST_BOOLEAN tp4_event (ST_VOID); + +ST_RET tp4_bind (ST_LONG user_bind_id, TP4_ADDR *tp4_addr, + ST_INT sharable, ST_INT max_conns); +ST_RET tp4_unbind (ST_LONG tp4_bind_id); + +ST_LONG tp4_connect (ST_LONG tp4_bind_id, ST_LONG user_conn_id, + TP4_ADDR *rem_tp4_addr, + ST_INT conndata_len, + char *conndata, + S_SEC_ENCRYPT_CTRL *encrypt_ctrl); /* connection encryption info */ + +ST_RET tp4_accept (ST_LONG tp4_conn_id, ST_LONG user_conn_id, + ST_INT conndata_len, + char *conndata); +ST_RET tp4_disconnect (ST_LONG tp4_conn_id, + ST_INT conndata_len, + char *conndata); +ST_RET tp4_data (ST_LONG tp4_conn_id, + ST_INT eot, + ST_UINT data_len, + char *data); +ST_RET tp4_expdata (ST_LONG tp4_conn_id, + ST_UINT data_len, + char *data); + +/* The "tp4_reldata" function is not needed in this TP4 implementation, */ +/* so define "tp4_reldata" macro which does nothing. */ +#define tp4_reldata(databuf) + +/* Function for MOSI implementation: */ +ST_RET tp4_session_timer (ST_LONG tp_conn_id, ST_BOOLEAN start); + +ST_RET tp0_initialize (ST_UINT max_conns, ST_UINT max_spdu_len); +ST_RET tp0_terminate (ST_VOID); + +ST_BOOLEAN tp0_event (ST_VOID); + +ST_RET tp0_bind (ST_LONG user_bind_id, TP4_ADDR *tp4_addr, + ST_INT sharable, ST_INT max_conns); +ST_RET tp0_unbind (ST_LONG tp4_bind_id); + +ST_LONG tp0_connect (ST_LONG tp4_bind_id, ST_LONG user_conn_id, + TP4_ADDR *rem_tp4_addr, + ST_INT conndata_len, + char *conndata, + S_SEC_ENCRYPT_CTRL *encrypt_ctrl); +ST_INT tp0_connect_outstanding_count (TP4_ADDR *tp4Addr); +ST_RET tp0_accept (ST_LONG tp4_conn_id, ST_LONG user_conn_id, + ST_INT conndata_len, + char *conndata); +ST_RET tp0_disconnect (ST_LONG tp4_conn_id, + ST_INT conndata_len, + char *conndata); +ST_RET tp0_data (ST_LONG tp4_conn_id, + ST_INT eot, + ST_UINT data_len, + char *data); + +/* Function for MOSI implementation: */ +ST_RET tp0_session_timer (ST_LONG tp_conn_id, ST_BOOLEAN start); + +/****************************************************************/ +/* Event callback function prototypes */ +/****************************************************************/ + +ST_VOID tp4_bind_cnf (ST_LONG user_bind_id, ST_LONG tp4_bind_id, ST_RET result); +ST_VOID tp4_unbind_cnf (ST_LONG user_bind_id); + +/*ST_VOID tp4_connect_ind (ST_LONG user_bind_id, ST_LONG tp4_conn_id, + ST_UCHAR *loc_tsap, ST_UCHAR *rem_tsap, + ST_UCHAR *rem_nsap, ST_ULONG rem_ip, + ST_INT conndata_len, char *conndata);*/ +ST_VOID tp4_connect_cnf (ST_LONG user_conn_id, ST_LONG tp4_conn_id, + ST_INT conndata_len, char *conndata); +ST_VOID tp4_disconnect_ind (ST_LONG user_conn_id, ST_INT reason, + ST_INT conndata_len, char *conndata); +ST_VOID tp4_data_ind (ST_LONG user_conn_id, ST_INT eot, + ST_UINT data_len, char *data); +ST_VOID tp4_expdata_ind (ST_LONG user_conn_id, + ST_UINT data_len, char *data); + +/* Function for MOSI implementation: */ +ST_VOID tp4_session_timer_expired (ST_LONG user_conn_id); + + +/****************************************************************/ +/* Log Control */ +/****************************************************************/ + +#define TP4_LOG_ERR 0x00000001 +#define TP4_LOG_FLOWUP 0x00000002 +#define TP4_LOG_FLOWDOWN 0x00000004 + +extern ST_UINT tp4_debug_sel; + +/****************************************************************/ +/* Error Codes */ +/****************************************************************/ + +#define TP4E_SHMALLOC 0x1201 +#define TP4E_BADCONN 0x1202 +#define TP4E_QUEUE_FULL 0x1203 +#define TP4E_CONN_STATE 0x1204 +#define TP4E_INVAL_TPDU_LEN 0x1205 +#define TP4E_INVAL_REM_CDT 0x1206 +#define TP4E_INVAL_LOC_CDT 0x1207 +#define TP4E_INVAL_SPDU_OUTST 0x1208 +#define TP4E_INVAL_NUM_CONNS 0x1209 +#define TP4E_INVAL_SPDU_LEN 0x120A +#define TP4E_INVAL_WINDOW_TIME 0x120B +#define TP4E_INVAL_INACT_TIME 0x120C +#define TP4E_INVAL_RETRANS_TIME 0x120D +#define TP4E_INVAL_MAX_TRANS 0x120E +#define TP4E_MALLOC 0x120F +#define TP4E_INVAL_TSEL 0x1210 +#define TP4E_TOO_MANY_BINDS 0x1211 + + +/************************************************************************/ +/* Global Configuration Structure Typedef. */ +/************************************************************************/ +typedef struct + { + ST_UINT16 max_tpdu_len; /* max len of TPDU. Base on SNPDU size.*/ + /* Use to allocate TPDU buffers. */ + ST_UCHAR max_tpdu_len_enc; /* Binary encoded MAX TPDU len. Computed*/ + /* from max_tpdu_len by tp4_initialize. */ + ST_UCHAR max_rem_cdt; /* Max credits we can handle. */ + /* Will allocate this many TPDU_DT */ + /* structs. */ + /* CRITICAL: MUST BE POWER OF 2. */ + ST_UCHAR loc_cdt; /* CDT value we will ALWAYS send in ACK */ + /* We only accept in-sequence TPDUs so */ + /* only purpose of this is to */ + /* allow peer to send ahead. */ + ST_UCHAR max_spdu_outst; /* Max # of SPDUs outstanding per conn. */ + /* Will allocate this many SPDU_INFO */ + /* structs for transmit queue. */ + /* CRITICAL: MUST BE POWER OF 2. */ + ST_UINT16 max_num_conns; /* Max # Connections */ + ST_UINT16 window_time; /* Window Time */ + ST_UINT16 inact_time; /* Inactivity Time */ + ST_UINT16 retrans_time; /* Retransmission Time */ + ST_UCHAR max_trans; /* Max # of transmissions of a TPDU */ + ST_UCHAR ak_delay; /* # of loops to delay sending AK. */ + } TP_CFG; + +typedef struct + { + ST_UINT16 max_tpdu_len; /* max len of TPDU. Base on SNPDU size.*/ + /* Use to allocate TPDU buffers. */ + ST_UCHAR max_tpdu_len_enc; /* Binary encoded MAX TPDU len. Computed*/ + /* from max_tpdu_len by tp0_initialize. */ + ST_UINT max_spdu_outst; /* Max # of SPDUs outstanding per conn. */ + /* that can be queued on the gensock2 */ + ST_UINT16 max_num_conns; /* Max # Connections */ + ST_BOOLEAN keepalive; /* Use KEEPALIVE option on Sockets? */ + ST_UINT16 rfc1006_listen_port;/* RFC1006 listen port, optional param, */ + /* will default to 102 if not configured*/ + } TP0_CFG; /* For TP0/RFC1006 only. */ + +typedef struct + { + ST_UINT16 disconnect_timeout; /* time to wait for T-disconnect. */ + } SESSION_CFG; + +/************************************************************************/ +/* Global Configuration Structure */ +/* This structure must be filled in by user BEFORE tp4_initialize (). */ +/* It MUST NOT change after tp4_initialize (). */ +/************************************************************************/ +extern TP_CFG tp_cfg; +extern TP0_CFG tp0_cfg; /* For TP0/RFC1006 only. */ +extern SESSION_CFG session_cfg; + +/************************************************************************/ +/* Global Variables */ +/************************************************************************/ +/* CLTP decode function pointer. */ +extern ST_VOID (*cltp_decode_nsdu_fun) (N_UNITDATA *n_unitdata); + +/************************************************************************/ +/* Additional Prototypes for LEAN_T only. */ +/************************************************************************/ + +ST_VOID tp4_except (ST_CHAR *filename, ST_INT line); +ST_VOID tp4_timer_tick (ST_VOID); +ST_RET tp4_config (ST_VOID); +ST_VOID tp4_init_timer (ST_VOID); +ST_VOID tp4_check_timer (ST_VOID); +ST_INT tp4_buffers_avail (ST_LONG tp4_conn_id); + +ST_VOID tp0_timer_tick (ST_VOID); +ST_INT tp0_buffers_avail (ST_LONG tp4_conn_id); +ST_ULONG tp0_convert_ip (ST_CHAR *hostname); + +/************************************************************************/ +/* Event semaphore to indicate TCP events. */ +/************************************************************************/ +extern ST_EVENT_SEM hTcpEvent; + +/************************************************************************/ +/* Replacement function macros. If no TP4, call TP0 functions. */ +/************************************************************************/ +#if !defined (TP4_ENABLED) +#define tp4_initialize(a,b) tp0_initialize(a,b) +#define tp4_terminate() tp0_terminate() +#define tp4_event() tp0_event() +#define tp4_bind(a,b,c,d) tp0_bind(a,b,c,d) +#define tp4_unbind(a) tp0_unbind(a) +#define tp4_connect(a,b,c,d,e,f) tp0_connect(a,b,c,d,e,f) +#define tp4_accept(a,b,c,d) tp0_accept(a,b,c,d) +#define tp4_disconnect(a,b,c) tp0_disconnect(a,b,c) +#define tp4_data(a,b,c,d) tp0_data(a,b,c,d) +#define tp4_session_timer(a,b) tp0_session_timer(a,b) +#define tp4_timer_tick() tp0_timer_tick() +#define tp4_buffers_avail(a) tp0_buffers_avail(a) +#endif /* !defined (TP4_ENABLED) */ + +#ifdef __cplusplus +} +#endif +#endif /* !TP4API_INCLUDED */ diff --git a/mmslib/mem/mem_chks.c b/mmslib/mem/mem_chks.c new file mode 100644 index 0000000..5c16df2 --- /dev/null +++ b/mmslib/mem/mem_chks.c @@ -0,0 +1,1837 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986-2008 All Rights Reserved */ +/* */ +/* MODULE NAME : mem_chks.c */ +/* PRODUCT(S) : MMSEASE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains enhanced memory allocation functions */ +/* for performing various integrity checks */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/04/08 EJV 56 _nd_chk_* corr: del ++/-- chk_curr_mem_count;*/ +/* (was not protected in multithreaded apps). */ +/* m_mem_debug: init to SD_TRUE for lib products*/ +/* 10/04/07 MDE 55 Tweaked LOGCFG_VALUE_GROUP/LOGCFGX_VALUE_MAP */ +/* 01/15/07 EJV 54 Chg S_LOCK_RESOURCES to S_LOCK_UTIL_RESOURCES*/ +/* 10/25/06 MDE 53 Removed msjexhnd.h include */ +/* 08/23/06 DSF 52 Call to ExpInit () no longer needed */ +/* 08/09/06 JRB 51 Log error if m_mem_debug changed after startup*/ +/* 07/14/06 DSF 50 Ported to VS2005 compiler */ +/* 03/01/06 EJV 49 Moved mem_chk.h outside define. */ +/* 02/28/06 RLH 48 avoid duplicate definition of #define */ +/* 01/30/06 GLB 47 Integrated porting changes for VMS */ +/* 10/13/05 EJV 46 dyn_mem_ptr_status2: combined 2 slogs. */ +/* 05/11/05 MDE 45 Minor logging */ +/* 05/23/05 EJV 44 Add memLogMaskMapCtrl & memDebugMapCtrl */ +/* for parsing logcfg.xml */ +/* 05/11/05 MDE 43 Now do list check for chk_calloc too */ +/* 03/10/04 EJV 42 Use '%lu' and typecast to (ST_ULONG) for */ +/* ST_UINT32 logging. */ +/* 02/06/04 EJV 42 Added dyn_mem_ptr_status2. */ +/* Use '%u' when logging memory statistics. */ +/* 06/06/03 JRB 41 Use S_LOCK_RESOURCES (new util mutex). */ +/* 04/08/03 DSF 40 1) No need to lock common resources in nd_ */ +/* functions or when checking if we've been */ +/* initialized */ +/* 2) Use Microsoft CRT Debug calls when */ +/* MEMCHK_WIN32_CRT_DEBUG is defined and */ +/* m_mem_crt_debug is set */ +/* 03/06/02 JRB 39 Add S_UNLOCK.. before ret in chk_alloc_ptr. */ +/* 02/11/02 DSF 38 Add a call to ExpInit () */ +/* 10/18/01 JRB 37 Eliminate warning. Fix *_memerr_fun calls. */ +/* 10/10/01 JRB 36 Del unused valid_string function. */ +/* 09/19/01 JRB 35 Add NULL ptr check in dyn_mem_ptr_status. */ +/* 08/29/01 EJV 34 mem_report: prevented stack overflow. */ +/* 08/20/01 JRB 33 If !DEBUG_SISCO, chk_* macros call nd_chk_*. */ +/* If DEBUG_SISCO, chk_* macros call x_chk_*. */ +/* nd_* functions use CHK_DYN_MEM_NODE_NDEBUG */ +/* Globals calling_file/line deleted (see args).*/ +/* Del (x_)chk_free_wipe functions. */ +/* 08/20/01 JRB 32 Del m_pad_string_len (use m_num_pad_bytes) */ +/* 08/20/01 JRB 31 Default m_find_node_enable=FALSE (faster). */ +/* Ignore m_track_prev_free (not effective). */ +/* 08/16/01 JRB 30 Delete SAVE_CALLING_ADDRESS code for DOS. */ +/* 04/02/01 JRB 29 ALWAYS call init_mem_chk automatically (not */ +/* depending on DEBUG_SISCO or m_mem_debug). */ +/* Fix previous chg to save m_mem_debug value. */ +/* 03/27/01 GLB 28 Added MEMCHK_WIN32_CRT_DEBUG */ +/* 03/03/01 GLB 27 save m_mem_debug in m_mem_debug_saved */ +/* 02/23/01 DSF 26 m_mem_debug should not be initialized to TRUE*/ +/* 01/30/01 DSF 25 Added WIN32 Debug CRT memory checks */ +/* 04/28/00 JRB 24 Lint cleanup. */ +/* 04/19/00 JRB 23 Del SD_CONST from def_realloc_err arg. */ +/* Fix "uninitialized" warnings in chk_realloc. */ +/* 10/13/99 RKR 22 Cast file to a ST_CHAR *, fixed a prototype */ +/* 09/13/99 MDE 21 Added SD_CONST modifiers */ +/* 09/07/99 MDE 20 Minor optimization for calloc (1, x) */ +/* 04/14/99 MDE 19 Cleaned up system dependency stuff a bit */ +/* 04/14/99 MDE 18 Fixed 'chk_strdup' file/line */ +/* 03/05/98 MDE 17 Added 'chk_strdup' */ +/* 02/23/99 RKR 16 fixed the redefinition of new_mem_node */ +/* 02/15/99 DSF 15 fixed a bug in the new chk_calloc() routine -*/ +/* don't fill allocated buffer */ +/* 02/09/99 DSF 14 chk_calloc () now makes direct calls to */ +/* RTL calloc () - faster */ +/* 02/02/99 JRB 13 Add "()" in free calls in chk_free: */ +/* helps some "free" macros work. */ +/* Don't init chk_debug_en in declaration: */ +/* some compilers put it in ROM (unchangable). */ +/* Don't use obsolete MEMCHK_ERR_PRINT. */ +/* 12/08/98 MDE 12 Added 'ST_BOOLEAN m_auto_hw_log' */ +/* 10/09/98 MDE 11 Changed 'MEMLOG_CHERR' usage per new macros */ +/* 10/08/98 MDE 10 Migrated to updated SLOG interface */ +/* 09/21/98 MDE 09 Minor lint cleanup */ +/* 06/15/98 MDE 08 Changes to allow compile under C++ */ +/* 01/30/98 EJV 07 Added typecating (ST_VOID **) in list funcs. */ +/* 10/14/97 DSF 06 m_bad_ptr_val is now a pointer */ +/* 10/13/97 DSF 05 Initialize chk_debug_en = MEM_LOG_ERR */ +/* 09/16/97 DSF 04 chk_debug_en is UINT */ +/* 06/19/97 RKR 03 Changed return code from MEM_PTR_CHK_ERROR2 */ +/* 05/27/97 DSF 02 Minor bug fix */ +/* 05/20/97 RKR 01 Changed default of m_mem_debug to SD_TRUE */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" +#include "mem_chk.h" + +#define MEM_CHK /* used in mem_chk.h */ +#include "memlog.h" +#include "gen_list.h" +#include + +/* WIN32 CRT Debug used for all but MMS-EASE Lite users */ +/* MMS-EASE Lite users can define in project if desired ... */ +#if defined (_WIN32) && defined (_DEBUG) && !defined(MMS_LITE) +#ifndef MEMCHK_WIN32_CRT_DEBUG +#define MEMCHK_WIN32_CRT_DEBUG +#endif +#endif + +#if defined(MEMCHK_WIN32_CRT_DEBUG) +#include +int mem_report (int reportType, char *userMessage, int *retVal); +ST_BOOLEAN m_mem_crt_debug; +#endif + +/************************************************************************/ +/************************************************************************/ +/* These should be defined on the compiler command line */ +/* #define DEBUG */ +/* #define NO_REALLOC_SMALLER */ + +#if (((defined(MSDOS) || defined(__MSDOS__)) && !defined(_WIN32)) && !defined(_WINDOWS)) +#define MSOFT_HEAP_CHECK +#endif + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/* These functions (with leading '_') are EXACTLY the same as the */ +/* "nd_chk_*" functions, but they are static so they can only be */ +/* called by the "x_chk_*" functions within this module, and */ +/* only if DEBUG_SISCO is defined. */ +/* This prevents the user from mixing debug and non-debug calling code. */ +/* If this module is compiled with DEBUG_SISCO defined, then ALL user */ +/* code must be compiled with DEBUG_SISCO defined, and the user code */ +/* will call "x_chk_*". */ +/* If this module is compiled with DEBUG_SISCO !defined, then ALL user*/ +/* code must be compiled with DEBUG_SISCO !defined, and the user code */ +/* will call "nd_chk_*". */ +/************************************************************************/ +#ifdef DEBUG_SISCO +static ST_VOID *_nd_chk_malloc (ST_UINT size); +static ST_VOID *_nd_chk_calloc (ST_UINT num, ST_UINT size); +static ST_VOID *_nd_chk_realloc (ST_VOID *ptr, ST_UINT size); +static ST_VOID _nd_chk_free (ST_VOID *del_mem_ptr); +#endif + +/************************************************************************/ +/************************************************************************/ +/* DEBUG related defines & variables (leave declared for both versions) */ + +ST_BOOLEAN m_mem_debug = SD_TRUE; +#ifdef DEBUG_SISCO +static ST_BOOLEAN m_mem_debug_saved; +#endif +ST_VOID *m_bad_ptr_val; + +/* Use 4 bytes (default) at the end of each buffer for overwrite detect */ +/* Default value used will be 0xDEADBEEF */ +ST_CHAR *m_pad_string; +ST_INT m_num_pad_bytes; + +/* Use this to fill malloc'ed and freed memory with garbage */ +ST_UCHAR m_fill_byte; +ST_BOOLEAN m_fill_en; + +/* This variable used to enable MSOFT heap check calls on every alloc */ +/* and free call. */ +ST_BOOLEAN m_heap_check_enable; + +/* This variable used to enable list validation and overwrite checking */ +/* on every alloc and free call. */ +ST_BOOLEAN m_check_list_enable; + +/* Set this variable SD_FALSE to speed up the debug version. When SD_TRUE, it */ +/* enables searching the memory list for the element before accessing */ +/* the memory during chk_realloc and chk_free calls */ +ST_BOOLEAN m_find_node_enable; + +/* This variable will cause chk_realloc to not realloc when the new */ +/* size is smaller than the old size */ +ST_BOOLEAN m_no_realloc_smaller; + +/* Dump memory table whenever high water mark is advanced */ +ST_BOOLEAN m_auto_hw_log; + +ST_BOOLEAN m_track_prev_free; /* NOT USED. Only for backward compat. */ + +/* Bit masked logging control variable */ +ST_UINT chk_debug_en; + +#ifdef DEBUG_SISCO +SD_CONST ST_CHAR *SD_CONST _mem_log_err_logstr = "MEM_LOG_ERR"; +SD_CONST ST_CHAR *SD_CONST _mem_log_calloc_logstr = "MEM_LOG_CALLOC"; +SD_CONST ST_CHAR *SD_CONST _mem_log_malloc_logstr = "MEM_LOG_MALLOC"; +SD_CONST ST_CHAR *SD_CONST _mem_log_realloc_logstr = "MEM_LOG_REALLOC"; +SD_CONST ST_CHAR *SD_CONST _mem_log_free_logstr = "MEM_LOG_FREE"; +SD_CONST ST_CHAR *SD_CONST _mem_log_nerr_logstr = "MEM_LOG_NERR"; +SD_CONST ST_CHAR *SD_CONST _mem_log_dump_logstr = "MEM_LOG_DUMP"; +LOGCFGX_VALUE_MAP memLogMaskMaps[] = + { + {"MEM_LOG_ERR", MEM_LOG_ERR, &chk_debug_en, _LOGCFG_DATATYPE_UINT_MASK, NULL, "Error"}, + {"MEM_LOG_CALLOC", MEM_LOG_CALLOC, &chk_debug_en, _LOGCFG_DATATYPE_UINT_MASK, NULL, "Calloc"}, + {"MEM_LOG_MALLOC", MEM_LOG_MALLOC, &chk_debug_en, _LOGCFG_DATATYPE_UINT_MASK, NULL, "Malloc"}, + {"MEM_LOG_REALLOC", MEM_LOG_REALLOC,&chk_debug_en, _LOGCFG_DATATYPE_UINT_MASK, NULL, "Realloc"}, + {"MEM_LOG_FREE", MEM_LOG_FREE, &chk_debug_en, _LOGCFG_DATATYPE_UINT_MASK, NULL, "Free"} + }; + +LOGCFG_VALUE_GROUP memLogMaskMapCtrl = + { + {NULL,NULL}, + "MemLogMasks", /* Parent Tag */ + sizeof(memLogMaskMaps)/sizeof(LOGCFGX_VALUE_MAP), + memLogMaskMaps + }; + +LOGCFGX_VALUE_MAP memDebugMaps[] = + { +/* Memory debugging */ + {"MemFillEnable", 0, &m_fill_en, _LOGCFG_DATATYPE_BOOLEAN}, + {"MemHeapCheck", 0, &m_heap_check_enable, _LOGCFG_DATATYPE_BOOLEAN}, + {"MemCheckList", 0, &m_check_list_enable, _LOGCFG_DATATYPE_BOOLEAN}, + {"MemFindNode", 0, &m_find_node_enable, _LOGCFG_DATATYPE_BOOLEAN}, + {"MemNoReallocSmaller", 0, &m_no_realloc_smaller, _LOGCFG_DATATYPE_BOOLEAN}, + + /* Old names */ + {"CheckListEnable", 0, &m_check_list_enable, _LOGCFG_DATATYPE_BOOLEAN}, + {"FindNodeEnable", 0, &m_find_node_enable, _LOGCFG_DATATYPE_BOOLEAN}, + {"NoReallocSmaller", 0, &m_no_realloc_smaller, _LOGCFG_DATATYPE_BOOLEAN} + }; + +LOGCFG_VALUE_GROUP memDebugMapCtrl = + { + {NULL,NULL}, + "MemAllocDbgCtrl", /* Parent Tag */ + sizeof(memDebugMaps)/sizeof(LOGCFGX_VALUE_MAP), + memDebugMaps + }; +#endif /* DEBUG_SISCO */ + +/* Declarations for functions and array of structures used to keep track*/ +/* of allocated memory. */ +ST_UINT32 chk_curr_mem_count; +ST_UINT32 chk_max_dyn_mem_ptrs; +ST_UINT32 chk_max_mem_allocated; +ST_UINT32 chk_curr_mem_size; + +/* This function pointer can be set to select a function to be called */ +/* in case of memory error. */ +ST_VOID (*mem_chk_err)(ST_VOID); + +/************************************************************************/ +/* Internal variables */ + +/* Memory block header, used for DEBUG to track all allocated memory */ + +#if defined(DEBUG_SISCO) +typedef struct chk_dyn_mem_node + { + DBL_LNK chk_mem_node_link; + ST_INT chk_alloc_mem_size; + ST_VOID *chk_alloc_mem_ptr; + ST_CHAR *file; /* File && line that allocated the memory */ + ST_INT line; + ST_UINT16 overwrite_prev_detected; /* flag to indicate that */ + /* overwrite previously detected */ + SD_END_STRUCT + } CHK_DYN_MEM_NODE; + +static CHK_DYN_MEM_NODE *head_dyn_mem_list; + +#endif /* DEBUG_SISCO */ + +/* nd_* functions use CHK_DYN_MEM_NODE_NDEBUG. This saves overhead if */ +/* !DEBUG_SISCO or if !m_mem_debug. */ +typedef struct chk_dyn_mem_node_ndebug + { + ST_INT chk_alloc_mem_size; + SD_END_STRUCT + } CHK_DYN_MEM_NODE_NDEBUG; + +/* The 'mem_chk' tools must be initialized before being used, esp. */ +/* in DEBUG mode, or we may write or flush a NULL stream */ +static ST_INT mem_chk_initialized; + +/************************************************************************/ +/* DEBUG internal variables and functions */ +#ifdef DEBUG_SISCO + +/* padding variables */ +static ST_UINT mem_overhead; + +static ST_RET check_overwrite (CHK_DYN_MEM_NODE *ptr); +static ST_VOID set_overwrite_value (CHK_DYN_MEM_NODE *ptr); + +#endif + +/************************************************************************/ +/* Internal functions */ + +static ST_VOID *def_malloc_err (ST_UINT size); +static ST_VOID *def_calloc_err (ST_UINT num, ST_UINT size); +static ST_VOID *def_realloc_err (ST_VOID *old, ST_UINT size); +static ST_VOID mem_fat_err (ST_VOID); + +/************************************************************************/ +/************************************************************************/ +/* def_xxx_err */ +/* default fatal error service functions - just return */ +/************************************************************************/ + +static ST_VOID *def_malloc_err (ST_UINT size) + { + mem_fat_err (); + return (NULL); + } + +static ST_VOID *def_calloc_err (ST_UINT num, ST_UINT size) + { + mem_fat_err (); + return (NULL); + } + +static ST_VOID *def_realloc_err (ST_VOID *old, ST_UINT size) + { + mem_fat_err (); + return (NULL); + } + +static ST_VOID mem_fat_err () + { +#ifdef DEBUG_SISCO + + if (m_mem_debug_saved) + { + MEMLOG_ERR0 ("Fatal Memory Allocation Error"); + MEMLOG_CERR1 ("Current number of allocated buffers : %lu", + (ST_ULONG) chk_curr_mem_count); + MEMLOG_CERR1 ("Current amount of memory allocated : %lu", + (ST_ULONG) chk_curr_mem_size); + MEMLOG_CERR1 ("Maximum number of pointers allocated : %lu", + (ST_ULONG) chk_max_dyn_mem_ptrs); + MEMLOG_CERR1 ("Maximum amount of memory allocated : %lu", + (ST_ULONG) chk_max_mem_allocated); + MEMLOG_PAUSEERR (""); + + if (mem_chk_err) + (*mem_chk_err)(); + + dyn_mem_ptr_status (); + } +#endif /* no debug, do nothing. Can't printf because may be windowing. */ + + exit (255); /* the default action includes exit! */ + } + +/************************************************************************/ +/* fatal error service function pointers, used for unrecoverable errors */ + +ST_VOID *(*m_memerr_fun)(ST_UINT size); +ST_VOID *(*c_memerr_fun)(ST_UINT num, ST_UINT size); +ST_VOID *(*r_memerr_fun)(ST_VOID *ptr, ST_UINT size); + +/************************************************************************/ +/* init_mem_chk */ +/************************************************************************/ + +ST_VOID init_mem_chk () + { + + if (mem_chk_initialized) + { /* do not allow reinitialize */ + return; + } + + S_LOCK_UTIL_RESOURCES (); + +#if defined(MEMCHK_WIN32_CRT_DEBUG) + if (m_mem_crt_debug) + m_mem_debug = SD_TRUE; +#endif + +#ifdef DEBUG_SISCO + + /* Save the current value of "m_mem_debug" to control debugging. */ + /* If it is changed later, it has no impact. */ + /* This prevents crashes caused by changing allocation mode in the */ + /* middle of a program. */ + + m_mem_debug_saved = m_mem_debug; + + chk_debug_en |= MEM_LOG_ERR; + + if (m_bad_ptr_val == NULL) + m_bad_ptr_val = (ST_VOID *) -1; + if (m_pad_string == NULL) + m_pad_string = "\336\255\276\357"; /* 0xDEADBEEF */ + if (m_num_pad_bytes == 0) + m_num_pad_bytes = 4; + if (m_fill_byte == 0) + m_fill_byte = (ST_UCHAR) 0xCC; + +/* Calculate the debug memory overhead */ + mem_overhead = sizeof (CHK_DYN_MEM_NODE) + m_num_pad_bytes; + +#if defined(MEMCHK_WIN32_CRT_DEBUG) +/* hook a debug report function */ + + _CrtSetReportHook (mem_report); + + { + int tmpFlag = _CrtSetDbgFlag (_CRTDBG_REPORT_FLAG); + tmpFlag |= _CRTDBG_LEAK_CHECK_DF; + + if (m_heap_check_enable) + tmpFlag |= _CRTDBG_CHECK_ALWAYS_DF; + +/* Set the new state for the flag */ + _CrtSetDbgFlag (tmpFlag); + } + +#endif + +#endif + + if (!m_memerr_fun) + m_memerr_fun = def_malloc_err; + if (!c_memerr_fun) + c_memerr_fun = def_calloc_err; + if (!r_memerr_fun) + r_memerr_fun = def_realloc_err; + mem_chk_initialized = SD_TRUE; + S_UNLOCK_UTIL_RESOURCES (); + } + +#if defined(MEMCHK_WIN32_CRT_DEBUG) +/************************************************************************/ +/* mem_report */ +/* Called by CRT Library to report a memory condition. */ +/************************************************************************/ + +int mem_report (int reportType, char *userMessage, int *retVal) + { +static int fileCreated = SD_FALSE; +static HANDLE hFile = INVALID_HANDLE_VALUE; +DWORD bytesWritten; + + *retVal = 0; + + if (hFile != INVALID_HANDLE_VALUE) + { + /* if file already open that means that we are called again */ + /* from the fprintf() below, */ + /* exit to prevent stack overflow in fprintf when _HEAPBADNODE err */ + return FALSE; + } + + hFile = CreateFile("MemReport.log", GENERIC_WRITE, + FILE_SHARE_WRITE, NULL, fileCreated ? OPEN_ALWAYS : CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL); + if (hFile == INVALID_HANDLE_VALUE) + return FALSE; + + fileCreated = SD_TRUE; + + SetFilePointer (hFile, 0, NULL, FILE_END); + WriteFile(hFile, userMessage, strlen (userMessage), &bytesWritten, NULL); + + CloseHandle (hFile); + hFile = INVALID_HANDLE_VALUE; + + return FALSE; + } + +#endif + + +/************************************************************************/ +/* x_chk_malloc */ +/* get memory via malloc, check for error condition */ +/* if error, invoke the fatal error function via pointer */ +/************************************************************************/ + +#if defined(DEBUG_SISCO) +ST_VOID *x_chk_malloc (ST_UINT size, + SD_CONST ST_CHAR *SD_CONST calling_file, + SD_CONST ST_INT calling_line) + { +CHK_DYN_MEM_NODE *new_mem_node; + +/* Verify mem_check tools have been initialized, do it if not */ + if (!mem_chk_initialized) + init_mem_chk (); + + if (m_mem_debug_saved != m_mem_debug) + { + MEMLOG_ERR1 ("ERROR: m_mem_debug flag changed to '%d' after first allocation. Not allowed so ignored.", + m_mem_debug); + m_mem_debug = m_mem_debug_saved; /* change it back so err logged only once*/ + } + + if (m_mem_debug_saved) + { + S_LOCK_UTIL_RESOURCES (); + +/* Do linked list && overwrite checks, if enabled */ + if (m_check_list_enable) + check_mem_list (); + +/* Perform heap validation, if enabled and the system supports it */ +#if defined(DEBUG_SISCO) && defined (MSOFT_HEAP_CHECK) + if (m_heap_check_enable) + msoft_heap_check (0); /* do not print the heap! */ +#endif + +/* It is not OK to malloc a buffer of size 0 - check for this */ + if (!size) + { + MEMLOG_ERR0 ("Attempting to malloc with size == 0"); + MEMLOG_CALLSTACK (NULL); + if (mem_chk_err) + (*mem_chk_err)(); + size++; + } + +/* Allocate the buffer using the standard 'malloc' call */ + +#if defined(MEMCHK_WIN32_CRT_DEBUG) + if (m_mem_crt_debug) + new_mem_node = (CHK_DYN_MEM_NODE *) _malloc_dbg (size + mem_overhead, _NORMAL_BLOCK, + calling_file, calling_line); + else + new_mem_node = (CHK_DYN_MEM_NODE *) malloc (size + mem_overhead); +#else + new_mem_node = (CHK_DYN_MEM_NODE *) malloc (size + mem_overhead); +#endif + + if (new_mem_node == NULL) + { /* see if we can call a function to get some memory back*/ + if (!(new_mem_node = (CHK_DYN_MEM_NODE *) + (*m_memerr_fun)(size + mem_overhead))) + { + MEMLOG_ERR0 ("WARNING : Returning NULL Pointer"); + MEMLOG_CALLSTACK (NULL); + if (mem_chk_err) + (*mem_chk_err)(); + + S_UNLOCK_UTIL_RESOURCES (); + return (NULL); /* if we can't get any back we return a NULL */ + } + } + +/* Set up the memory control block header */ + new_mem_node -> chk_alloc_mem_size = size; + new_mem_node -> chk_alloc_mem_ptr = (ST_VOID *)(new_mem_node+1); + +/* Fill memory with garbage */ + if (m_fill_en) + memset (new_mem_node -> chk_alloc_mem_ptr, m_fill_byte, size); + +/* Save file and line numbers */ + new_mem_node->file = (ST_CHAR *)calling_file; + new_mem_node->line = calling_line; + +/* Set the overwrite detect value at the end of the buffer */ + set_overwrite_value (new_mem_node); + +/* Now add this element to the allocation control list */ + list_add_first ((ST_VOID **)&head_dyn_mem_list, new_mem_node); + +/* Update memory allocation statistics parameters */ + chk_curr_mem_count++; + chk_curr_mem_size += size; + if (chk_curr_mem_count > chk_max_dyn_mem_ptrs) + chk_max_dyn_mem_ptrs = chk_curr_mem_count; + if (chk_curr_mem_size > chk_max_mem_allocated) + { + chk_max_mem_allocated = chk_curr_mem_size; + if (m_auto_hw_log) + dyn_mem_ptr_status (); + } +/* log allocation info, if enabled */ + MEMLOG_MALLOC2 ("chk_malloc : size = %05u, ptr = %08lx" + ,size, (ST_VOID *)(new_mem_node+1)); + if (calling_line != -1) + { + MEMLOG_CMALLOC2 ("File : %s, Line %d",calling_file, calling_line); + } + +/* return the user pointer */ + S_UNLOCK_UTIL_RESOURCES (); + return ((ST_VOID *)(new_mem_node+1)); + } + else /* !m_mem_debug_saved */ + return (_nd_chk_malloc (size)); + } +#endif /* DEBUG_SISCO */ + +/************************************************************************/ +/* nd_chk_malloc */ +/* This function is called if (!DEBUG_SISCO) OR (!m_mem_debug_saved). */ +/************************************************************************/ +#ifdef DEBUG_SISCO /* Use "static" for DEBUG, so user can't call. */ +static ST_VOID *_nd_chk_malloc (ST_UINT size) +#else +ST_VOID *nd_chk_malloc (ST_UINT size) +#endif + { +CHK_DYN_MEM_NODE_NDEBUG *new_mem_node; + +/* Verify mem_check tools have been initialized, do it if not */ + if (!mem_chk_initialized) + init_mem_chk (); + + new_mem_node = + (CHK_DYN_MEM_NODE_NDEBUG *) malloc (size + sizeof(CHK_DYN_MEM_NODE_NDEBUG)); + if (new_mem_node == NULL) + { /* malloc failed. Try err_fun to get mem*/ + new_mem_node = (CHK_DYN_MEM_NODE_NDEBUG *) + (*m_memerr_fun)(size + sizeof(CHK_DYN_MEM_NODE_NDEBUG)); + if (!new_mem_node) + { + return (NULL); /* can't get any back, so return NULL */ + } + } + new_mem_node -> chk_alloc_mem_size = size; + return ((ST_VOID *)(new_mem_node+1)); + } + +/************************************************************************/ +/* x_chk_calloc */ +/* get memory via calloc, check for error condition */ +/* if error, invoke the fatal error function via pointer */ +/************************************************************************/ + +#if defined(DEBUG_SISCO) +ST_VOID *x_chk_calloc (ST_UINT num, + ST_UINT size, + SD_CONST ST_CHAR *SD_CONST calling_file, + SD_CONST ST_INT calling_line) + { +CHK_DYN_MEM_NODE *new_mem_node; +ST_INT buf_size; + +/* Verify mem_check tools have been initialized, do it if not */ + if (!mem_chk_initialized) + init_mem_chk (); + + if (m_mem_debug_saved) + { + S_LOCK_UTIL_RESOURCES (); + +/* Do linked list && overwrite checks, if enabled */ + if (m_check_list_enable) + check_mem_list (); + +/* It is not OK to calloc a buffer of size 0 - check for this */ + if (!size) + { + MEMLOG_ERR0 ("Attempting to calloc with size == 0"); + MEMLOG_CALLSTACK (NULL); + if (mem_chk_err) + (*mem_chk_err)(); + size++; + } + if (!num) + { + MEMLOG_ERR0 ("Attempting to calloc with num == 0"); + MEMLOG_CALLSTACK (NULL); + if (mem_chk_err) + (*mem_chk_err)(); + num++; + } + +/* Calculate the size required ... Save a multiply? */ + if (num == 1) + buf_size = size; + else if (size == 1) + buf_size = num; + else + buf_size = num * size; + +/* get the buffer */ +#if defined(MEMCHK_WIN32_CRT_DEBUG) + if (m_mem_crt_debug) + new_mem_node = (CHK_DYN_MEM_NODE *) _calloc_dbg (1, buf_size + mem_overhead, _NORMAL_BLOCK, + calling_file, calling_line); + else + new_mem_node = (CHK_DYN_MEM_NODE *) calloc (1, buf_size + mem_overhead); +#else + new_mem_node = (CHK_DYN_MEM_NODE *) calloc (1, buf_size + mem_overhead); +#endif + +/* verify NULL not returned */ + if (!new_mem_node) + { + MEMLOG_ERR0 ("WARNING : Returning NULL Pointer"); + MEMLOG_CERR5 ("Parameters: num:%d size: %d file:%s line:%d %s", + num, size, calling_file, calling_line, ""); + MEMLOG_CALLSTACK (NULL); + if (mem_chk_err) + (*mem_chk_err)(); + S_UNLOCK_UTIL_RESOURCES (); + return (NULL); + } + +/* Set up the memory control block header */ + new_mem_node -> chk_alloc_mem_size = buf_size; + new_mem_node -> chk_alloc_mem_ptr = (ST_VOID *)(new_mem_node+1); + +/* Save file and line numbers */ + new_mem_node->file = (ST_CHAR *)calling_file; + new_mem_node->line = calling_line; + +/* Set the overwrite detect value at the end of the buffer */ + set_overwrite_value (new_mem_node); + +/* Now add this element to the allocation control list */ + list_add_first ((ST_VOID **)&head_dyn_mem_list, new_mem_node); + +/* Update memory allocation statistics parameters */ + chk_curr_mem_count++; + chk_curr_mem_size += buf_size; + if (chk_curr_mem_count > chk_max_dyn_mem_ptrs) + chk_max_dyn_mem_ptrs = chk_curr_mem_count; + if (chk_curr_mem_size > chk_max_mem_allocated) + { + chk_max_mem_allocated = chk_curr_mem_size; + if (m_auto_hw_log) + dyn_mem_ptr_status (); + } + +/* log allocation info, if enabled */ + MEMLOG_CALLOC3 ("chk_calloc : num = %05u, size = %05u Ptr = %08lx",num,size,new_mem_node+1); + if (calling_line != -1) + { + MEMLOG_CCALLOC2 ("File : %s, Line %d",calling_file, calling_line); + } + +/* return the user pointer */ + S_UNLOCK_UTIL_RESOURCES (); + return ((ST_VOID *)(new_mem_node+1)); + } + else /* !m_mem_debug_saved */ + return (_nd_chk_calloc (num, size)); + } +#endif /* DEBUG_SISCO */ + +/************************************************************************/ +/* nd_chk_calloc */ +/* This function is called if (!DEBUG_SISCO) OR (!m_mem_debug_saved). */ +/************************************************************************/ +#ifdef DEBUG_SISCO /* Use "static" for DEBUG, so user can't call. */ +static ST_VOID *_nd_chk_calloc (ST_UINT num, ST_UINT size) +#else +ST_VOID *nd_chk_calloc (ST_UINT num, ST_UINT size) +#endif + { +CHK_DYN_MEM_NODE_NDEBUG *new_mem_node; +ST_INT buf_size; + +/* Verify mem_check tools have been initialized, do it if not */ + if (!mem_chk_initialized) + init_mem_chk (); + + buf_size = num * size; /* chk_malloc adds overhead */ + new_mem_node = + (CHK_DYN_MEM_NODE_NDEBUG *) calloc (1, buf_size + sizeof(CHK_DYN_MEM_NODE_NDEBUG)); + if (new_mem_node == NULL) + { /* calloc failed. Try err_fun to get mem*/ + new_mem_node = (CHK_DYN_MEM_NODE_NDEBUG *) + (*c_memerr_fun)(1, buf_size + sizeof(CHK_DYN_MEM_NODE_NDEBUG)); + if (!new_mem_node) + { + return (NULL); /* can't get any back, so return NULL */ + } + } + new_mem_node -> chk_alloc_mem_size = buf_size; + return ((ST_VOID *)(new_mem_node+1)); + } + +/************************************************************************/ +/* x_chk_realloc */ +/* get memory via calloc, check for error condition */ +/* if error, invoke the fatal error function via pointer */ +/************************************************************************/ + +#if defined(DEBUG_SISCO) +ST_VOID *x_chk_realloc (ST_VOID *ptr, + ST_UINT size, + SD_CONST ST_CHAR *SD_CONST calling_file, + SD_CONST ST_INT calling_line) + { +CHK_DYN_MEM_NODE *old_mem_node, *new_mem_node; +ST_VOID *old_mem_ptr; +ST_UINT old_mem_size; +ST_BOOLEAN no_realloc; + +/* Verify mem_check tools have been initialized, do it if not */ + if (!mem_chk_initialized) + init_mem_chk (); + + if (m_mem_debug_saved) + { + S_LOCK_UTIL_RESOURCES (); +/* Do linked list && overwrite checks, if enabled */ + if (m_check_list_enable) + check_mem_list (); + +/* Perform heap validation, if enabled and the system supports it */ +#if defined(DEBUG_SISCO) && defined (MSOFT_HEAP_CHECK) + if (m_heap_check_enable) + msoft_heap_check (0); /* do not print the heap! */ +#endif + +/* It is not OK to pass in a NULL pointer, check for this */ + if (!ptr) + { + MEMLOG_ERR2 ("File : %s, Line %d", + calling_file, calling_line); + MEMLOG_CERR0 ("Attempting to realloc NULL pointer"); + MEMLOG_CALLSTACK (NULL); + MEMLOG_PAUSEERR (""); + if (mem_chk_err) + (*mem_chk_err)(); + S_UNLOCK_UTIL_RESOURCES (); + return (NULL); + } + +/* It is not OK to re-alloc a buffer of size 0 - check for this */ + if (!size) + { + MEMLOG_ERR0 ( "Attempting to realloc with size = 0"); + MEMLOG_CALLSTACK (NULL); + if (mem_chk_err) + (*mem_chk_err)(); + size++; + } + +/* Get the pointer to the control information */ + old_mem_node = ((CHK_DYN_MEM_NODE *)ptr)-1; + +/* Verify that this node is on the list before accessing it */ + if (m_find_node_enable == SD_TRUE) + { + if (list_find_node (head_dyn_mem_list, old_mem_node) != SD_SUCCESS) + { + goto MEM_REALLOC_ERROR; + } + } + +/* extract information from memory block header */ + old_mem_ptr = old_mem_node -> chk_alloc_mem_ptr; + old_mem_size = old_mem_node -> chk_alloc_mem_size; + + if (old_mem_ptr != ptr) /* verify that the ptr passed in matches */ + { +MEM_REALLOC_ERROR : + MEMLOG_ERR2 ("\n File : %s, Line %d", + calling_file, calling_line); + MEMLOG_CERR1 ( + "Invalid realloc (%08lx)",ptr); + + MEMLOG_CALLSTACK (NULL); + MEMLOG_PAUSEERR (""); + if (mem_chk_err) + (*mem_chk_err)(); + S_UNLOCK_UTIL_RESOURCES (); + return (ptr); /* just hope realloc was for smaller */ + } + +/* Update memory allocation statistics parameters */ + chk_curr_mem_count--; /* update the node count*/ + chk_curr_mem_size -= old_mem_size; /* update the mem size */ + + +/* Check for 'no realloc smaller' option */ +/* This is controlled either by compile time define or by variable */ +/* If new size is less than old size, just don't use the system realloc */ + + no_realloc = SD_FALSE; + +#if defined(NO_REALLOC_SMALLER) + if (size <= (ST_UINT) old_mem_node -> chk_alloc_mem_size) + { + no_realloc = SD_TRUE; + } +#else + if (m_no_realloc_smaller) + { + if (size <= (ST_UINT) old_mem_node -> chk_alloc_mem_size) + { + no_realloc = SD_TRUE; + } + } +#endif + + if (no_realloc) + new_mem_node = old_mem_node; /* Use original buffer. */ + else + { +/* invalidate the old block */ + old_mem_node->chk_alloc_mem_ptr = NULL; + +/* remove the old memory block from the mem_chk system */ + list_unlink ((ST_VOID **)&head_dyn_mem_list, old_mem_node); /* unlink the old node */ + +/* Use the system realloc to get the new pointer */ +#if defined(MEMCHK_WIN32_CRT_DEBUG) + if (m_mem_crt_debug) + new_mem_node = (CHK_DYN_MEM_NODE *) + _realloc_dbg ((ST_VOID *) old_mem_node, size + mem_overhead, _NORMAL_BLOCK, + calling_file, calling_line); + else + new_mem_node = (CHK_DYN_MEM_NODE *) + realloc ((ST_VOID *) old_mem_node, size + mem_overhead); +#else + new_mem_node = (CHK_DYN_MEM_NODE *) + realloc ((ST_VOID *) old_mem_node, size + mem_overhead); +#endif + + if (new_mem_node == NULL) + { + if (!(new_mem_node = (CHK_DYN_MEM_NODE *) + (*r_memerr_fun)((ST_VOID *) old_mem_node, + size + mem_overhead))) + { + MEMLOG_ERR0 ("WARNING : Returning NULL Pointer"); + MEMLOG_CALLSTACK (NULL); + if (mem_chk_err) + (*mem_chk_err)(); + S_UNLOCK_UTIL_RESOURCES (); + return( NULL ); /* if we can't get any back we return a NULL */ + } + } + +/* Now add this element to the allocation control list */ + list_add_first ((ST_VOID **)&head_dyn_mem_list, new_mem_node); + } + +/* Now we have a new memory block, initialize the mem_chk header and */ +/* put on the active list */ + new_mem_node -> chk_alloc_mem_size = size;/* update the header */ + new_mem_node -> chk_alloc_mem_ptr = (ST_VOID *)(new_mem_node+1); + + new_mem_node->file = (ST_CHAR *)calling_file; + new_mem_node->line = calling_line; + +/* Initialize the overwrite value */ + set_overwrite_value (new_mem_node); + +/* Update memory allocation statistics parameters */ + chk_curr_mem_size += size; /* add the new size */ + chk_curr_mem_count++; /* update the node count*/ + if (chk_curr_mem_size > chk_max_mem_allocated) + { + chk_max_mem_allocated = chk_curr_mem_size; + if (m_auto_hw_log) + dyn_mem_ptr_status (); + } +/* log allocation info, if enabled */ + MEMLOG_REALLOC3 ("chk_realloc : ptr = %08lx, size = %05u, ptr = %08lx", + ptr,size, (ST_VOID *)(new_mem_node+1)); + if (calling_line != -1) + { + MEMLOG_CREALLOC2 ("File : %s. Line %d", + calling_file, + calling_line); + } + S_UNLOCK_UTIL_RESOURCES (); + return ((ST_VOID *)(new_mem_node+1)); + } + else /* !m_mem_debug_saved */ + return (_nd_chk_realloc (ptr, size)); + } +#endif /* DEBUG_SISCO */ + +/************************************************************************/ +/* nd_chk_realloc */ +/* This function is called if (!DEBUG_SISCO) OR (!m_mem_debug_saved). */ +/************************************************************************/ +#ifdef DEBUG_SISCO /* Use "static" for DEBUG, so user can't call. */ +static ST_VOID *_nd_chk_realloc (ST_VOID *ptr, ST_UINT size) +#else +ST_VOID *nd_chk_realloc (ST_VOID *ptr, ST_UINT size) +#endif + { +CHK_DYN_MEM_NODE_NDEBUG *old_mem_node; +CHK_DYN_MEM_NODE_NDEBUG *new_mem_node; +ST_BOOLEAN no_realloc; + +/* Verify mem_check tools have been initialized, do it if not */ + if (!mem_chk_initialized) + init_mem_chk (); + +/* Get the pointer to the control information */ + old_mem_node = ((CHK_DYN_MEM_NODE_NDEBUG *)ptr)-1; + +/* Check for 'no realloc smaller' option */ +/* This is controlled either by compile time define or by variable */ +/* If new size is less than old size, just don't use the system realloc */ + + no_realloc = SD_FALSE; + +#if defined(NO_REALLOC_SMALLER) + if (size <= (ST_UINT) old_mem_node -> chk_alloc_mem_size) + { + no_realloc = SD_TRUE; + } +#else + if (m_no_realloc_smaller) + { + if (size <= (ST_UINT) old_mem_node -> chk_alloc_mem_size) + { + no_realloc = SD_TRUE; + } + } +#endif + + if (no_realloc) + new_mem_node = old_mem_node; /* Use original buffer. */ + else + { +/* Use the system realloc to get the new pointer */ + if ((new_mem_node = (CHK_DYN_MEM_NODE_NDEBUG *) + realloc ((ST_VOID *) old_mem_node, + size + sizeof (CHK_DYN_MEM_NODE_NDEBUG))) == NULL) + { + if (!(new_mem_node = + (CHK_DYN_MEM_NODE_NDEBUG *) (*r_memerr_fun)((ST_VOID *) old_mem_node, + size + sizeof (CHK_DYN_MEM_NODE_NDEBUG)))) + { + return( NULL ); /* if we can't get any back we return a NULL */ + } + } + } + + new_mem_node -> chk_alloc_mem_size = size; /* update the header */ + return ((ST_VOID *)(new_mem_node+1)); + } + +/************************************************************************/ +/* x_chk_free */ +/************************************************************************/ + +#if defined(DEBUG_SISCO) +ST_VOID x_chk_free (ST_VOID *del_mem_ptr, + SD_CONST ST_CHAR *SD_CONST calling_file, + SD_CONST ST_INT calling_line) + { +CHK_DYN_MEM_NODE *chk_mem_node; + +/* Verify mem_check tools have been initialized, do it if not */ + if (!mem_chk_initialized) + init_mem_chk (); + + if (m_mem_debug_saved) + { + S_LOCK_UTIL_RESOURCES (); + +/* Do linked list && overwrite checks, if enabled */ + if (m_check_list_enable) + check_mem_list (); /* check linked list. Works for all systems. */ + +/* Perform heap validation, if enabled and the system supports it */ +#if defined(DEBUG_SISCO) && defined (MSOFT_HEAP_CHECK) + if (m_heap_check_enable) + msoft_heap_check (0); /* do not print the heap! */ +#endif + +/* log allocation info, if enabled */ + MEMLOG_FREE1 ("chk_free : ptr = %08lx",del_mem_ptr); + + if (calling_line != -1) + { + MEMLOG_CFREE2 ("File : %s. Line %d", + calling_file, + calling_line); + } + +/* verify that a non-NULL pointer was passed in */ + if (!del_mem_ptr) + { + goto MEM_FREE_ERROR; + } + +/* Get the pointer to the control information */ + chk_mem_node = ((CHK_DYN_MEM_NODE *)del_mem_ptr)-1; + +/* Verify that this node is on the list before accessing it */ + if (m_find_node_enable == SD_TRUE) + { + if (list_find_node (head_dyn_mem_list, chk_mem_node) != SD_SUCCESS) + { + goto MEM_FREE_ERROR; + } + } + +/* verify that the pointer matches the expected pointer */ + if (chk_mem_node->chk_alloc_mem_ptr == del_mem_ptr) + { + if (check_overwrite (chk_mem_node)) + { + MEMLOG_ERR0 ("Memory overwrite at end of buffer detected"); + MEMLOG_CERR5 ( + "Node = %lx, Prev = %lx, Next = %lx, Len = %u, Curr = %lx", + chk_mem_node, + chk_mem_node->chk_mem_node_link.prev, + chk_mem_node->chk_mem_node_link.next, + chk_mem_node->chk_alloc_mem_size, + chk_mem_node->chk_alloc_mem_ptr); + MEMLOG_CHERR (chk_mem_node->chk_alloc_mem_size + + sizeof (CHK_DYN_MEM_NODE) + + m_num_pad_bytes, chk_mem_node); + +/* Take care of this memory block */ + chk_mem_node->chk_alloc_mem_ptr = NULL; /* invalidate the block */ + chk_curr_mem_size -= chk_mem_node -> chk_alloc_mem_size; + chk_curr_mem_count--; + list_unlink ((ST_VOID **)&head_dyn_mem_list, chk_mem_node); + + MEMLOG_CERR2 ("Pointer was allocated at file: %s, line %d ", + chk_mem_node->file,chk_mem_node->line); + goto MEM_FREE_ERROR2; /* print the call stack */ + } + else /* This is a good free, do it! */ + { + chk_mem_node->chk_alloc_mem_ptr = NULL; /* invalidate the block */ + chk_curr_mem_size -= chk_mem_node -> chk_alloc_mem_size; + chk_curr_mem_count--; + list_unlink ((ST_VOID **)&head_dyn_mem_list, chk_mem_node); + +/* Fill memory with garbage before freeing it */ +#ifdef MEM_FILL_CONTROL + if (m_fill_en) + memset (chk_mem_node, m_fill_byte, + chk_mem_node->chk_alloc_mem_size + + sizeof (CHK_DYN_MEM_NODE)); +#else + if (m_fill_en) + memset ((ST_CHAR *) chk_mem_node + sizeof (CHK_DYN_MEM_NODE), + m_fill_byte, + chk_mem_node->chk_alloc_mem_size); +#endif + +#if defined(MEMCHK_WIN32_CRT_DEBUG) + if (m_mem_crt_debug) + _free_dbg ((ST_VOID *)chk_mem_node, _NORMAL_BLOCK); + else + free ((ST_VOID *)chk_mem_node); +#else + free ((ST_VOID *)chk_mem_node); +#endif + } + } /* end if pointer matched expected */ + else /* Whoops, free error */ + { + if (chk_debug_en & MEM_LOG_ERR) + { +MEM_FREE_ERROR : + + MEMLOG_ERR1 ( + "Invalid Free (%08lx)",del_mem_ptr); + +MEM_FREE_ERROR2 : + MEMLOG_CERR2 ("Free call made from file : %s, Line %d ", + calling_file, + calling_line); + } + MEMLOG_CALLSTACK (NULL); + MEMLOG_PAUSEERR (""); + if (mem_chk_err) + (*mem_chk_err)(); + } + +/* Do linked list && overwrite checks, if enabled */ + if (m_check_list_enable) + check_mem_list (); /* check linked list. Works for all systems. */ + +/* Perform heap validation, if enabled and the system supports it */ +#if defined(DEBUG_SISCO) && defined (MSOFT_HEAP_CHECK) + if (m_heap_check_enable) + msoft_heap_check (0); /* do not print the heap! */ +#endif + S_UNLOCK_UTIL_RESOURCES (); + } + else /* !m_mem_debug_saved */ + _nd_chk_free (del_mem_ptr); + } +#endif /* DEBUG_SISCO */ + + +/************************************************************************/ +/* nd_chk_free */ +/* This function is called if (!DEBUG_SISCO) OR (!m_mem_debug_saved). */ +/************************************************************************/ +#ifdef DEBUG_SISCO /* Use "static" for DEBUG, so user can't call. */ +static ST_VOID _nd_chk_free (ST_VOID *del_mem_ptr) +#else +ST_VOID nd_chk_free (ST_VOID *del_mem_ptr) +#endif + { +/* Verify mem_check tools have been initialized, do it if not */ + if (!mem_chk_initialized) + init_mem_chk (); + + /* Extra () helps some "free" macros work. */ + free ((((CHK_DYN_MEM_NODE_NDEBUG *)del_mem_ptr)-1)); + } + +#if defined(DEBUG_SISCO) +/************************************************************************/ +/* x_chk_strdup */ +/************************************************************************/ + +ST_CHAR *x_chk_strdup (ST_CHAR *str, + SD_CONST ST_CHAR *SD_CONST file, + SD_CONST ST_INT line) + { +ST_CHAR *new_str; + + new_str = (ST_CHAR *) x_chk_malloc (strlen (str) + 1, file, line); + strcpy (new_str, str); + return (new_str); + } + +#else /* !DEBUG_SISCO */ +/************************************************************************/ +/* nd_chk_strdup */ +/************************************************************************/ + +ST_CHAR *nd_chk_strdup (ST_CHAR *str) + { +ST_CHAR *new_str; + + new_str = (ST_CHAR *) nd_chk_malloc (strlen (str) + 1); + strcpy (new_str, str); + return (new_str); + } +#endif /* !DEBUG_SISCO */ + +/***************************************************************************/ +/***************************************************************************/ +/* dyn_mem_ptr_status */ +/***************************************************************************/ + +ST_VOID dyn_mem_ptr_status () + { +#ifdef DEBUG_SISCO + dyn_mem_ptr_status2 (NULL); +#endif + } + +/***************************************************************************/ +/* dyn_mem_ptr_status2 */ +/* This function will log all nodes up to marker_ptr node and return */ +/* count of logged nodes. If market_ptr is NULL the function will log all */ +/* memory nodes. */ +/***************************************************************************/ + +ST_UINT dyn_mem_ptr_status2 (ST_VOID *marker_ptr) + { + ST_UINT logged_count = 0; +#ifdef DEBUG_SISCO + CHK_DYN_MEM_NODE *chk_mem_node; + ST_UINT32 count = 1; + ST_INT line = 1; + + if (m_mem_debug_saved) + { + S_LOCK_UTIL_RESOURCES (); + chk_mem_node = head_dyn_mem_list; + MEMLOG_LF (); + if (marker_ptr) + { + MEMLOG_DUMP0 ("DYNAMIC MEMORY POINTER TABLE ABOVE MARKER\n" + "----------------------------------------- "); + } + else + { + MEMLOG_DUMP0 ("DYNAMIC MEMORY POINTER TABLE\n" + "---------------------------- "); + } + while (count <= chk_curr_mem_count) + { + if (chk_mem_node == NULL) + { + MEMLOG_CDUMP0 ("Dump halted due to NULL pointer. Table corrupted."); + break; /* Break out of loop. */ + } + if (marker_ptr && chk_mem_node->chk_alloc_mem_ptr == marker_ptr) + break; + ++logged_count; +#if defined(MEMCHK_WIN32_CRT_DEBUG) + { + int req_num = -1; + _CrtIsMemoryBlock(chk_mem_node, + chk_mem_node->chk_alloc_mem_size + mem_overhead, + &req_num, NULL, NULL); + MEMLOG_CDUMP5 ("Ptr %08lx Size % 5u File : %-12s #%04d {%04d}", + chk_mem_node -> chk_alloc_mem_ptr, + chk_mem_node -> chk_alloc_mem_size, + chk_mem_node->file, + chk_mem_node->line, + req_num); + } +#else + MEMLOG_CDUMP4 ("Ptr %08lx Size % 5u File : %-12s #%04d", + chk_mem_node -> chk_alloc_mem_ptr, + chk_mem_node -> chk_alloc_mem_size, + chk_mem_node->file, + chk_mem_node->line); +#endif + + chk_mem_node = (CHK_DYN_MEM_NODE *) + chk_mem_node -> chk_mem_node_link.next; + count++; + + line++; + if (line > 10) + { + MEMLOG_PAUSE ("---- More Follows Press any key ----"); + line = 1; + } + } + MEMLOG_CDUMP0 ("---- END OF MEMORY POINTER TABLE ----------"); + + MEMLOG_CDUMP1 ("Total number of allocated pointers: %lu", + (ST_ULONG) chk_curr_mem_count); + MEMLOG_CDUMP1 ("Total amount of memory allocated: %lu bytes ", + (ST_ULONG) chk_curr_mem_size); + MEMLOG_CDUMP1 ("Maximum number of pointers allocated: %lu", + (ST_ULONG) chk_max_dyn_mem_ptrs); + MEMLOG_CDUMP1 ("Maximum amount of memory allocated: %lu bytes", + (ST_ULONG) chk_max_mem_allocated); + MEMLOG_PAUSE (""); + S_UNLOCK_UTIL_RESOURCES (); + } +#endif /* end of DEBUG_SISCO */ + return (logged_count); + } + +/***************************************************************************/ +/* dyn_mem_ptr_statistics */ +/***************************************************************************/ + +ST_VOID dyn_mem_ptr_statistics (ST_BOOLEAN log_to_screen) + { +#ifdef DEBUG_SISCO + CHK_DYN_MEM_NODE *chk_mem_node; + ST_UINT32 count = 1; + + if (m_mem_debug_saved) + { + S_LOCK_UTIL_RESOURCES (); + chk_mem_node = head_dyn_mem_list; + if ( log_to_screen == SD_TRUE ) + { +#ifndef _WINDOWS + printf("\nDYNAMIC MEMORY POINTER TABLE "); + printf("\n----------------------------- "); +#endif + } + else + { + MEMLOG_LF (); + MEMLOG_DUMP0 ("DYNAMIC MEMORY POINTER TABLE "); + MEMLOG_CDUMP0 ("----------------------------- "); + } + while (count <= chk_curr_mem_count) + { + chk_mem_node = (CHK_DYN_MEM_NODE *) + chk_mem_node -> chk_mem_node_link.next; + count++; + } + + if ( log_to_screen == SD_TRUE ) + { +#if !defined(_WINDOWS) || defined(_WIN32) + printf ("\nTotal number of allocated pointers: %lu", + (ST_ULONG) chk_curr_mem_count); + printf ("\nTotal amount of memory allocated: %lu bytes ", + (ST_ULONG) chk_curr_mem_size); + printf ("\nMaximum number of pointers allocated: %lu", + (ST_ULONG) chk_max_dyn_mem_ptrs); + printf ("\nMaximum amount of memory allocated: %lu bytes", + (ST_ULONG) chk_max_mem_allocated); +#endif + } + else + { + MEMLOG_CDUMP1 ("Total number of allocated pointers: %lu", + (ST_ULONG) chk_curr_mem_count); + MEMLOG_CDUMP1 ("Total amount of memory allocated: %lu bytes ", + (ST_ULONG) chk_curr_mem_size); + MEMLOG_CDUMP1 ("Maximum number of pointers allocated: %lu", + (ST_ULONG) chk_max_dyn_mem_ptrs); + MEMLOG_CDUMP1 ("Maximum amount of memory allocated: %lu bytes", + (ST_ULONG) chk_max_mem_allocated); + MEMLOG_PAUSE (""); + } + S_UNLOCK_UTIL_RESOURCES (); + return; + } +#endif /* end of DEBUG_SISCO */ + } + +/************************************************************************/ +/************************************************************************/ +/* chk_hp */ +/* Perform system specific heap validation */ +/************************************************************************/ + +ST_RET chk_hp (ST_INT16 prt_mask, ST_CHAR *file, ST_INT line) + { +ST_RET ret; + + ret = SD_SUCCESS; + +#if defined(DEBUG_SISCO) && defined (MSOFT_HEAP_CHECK) + S_LOCK_UTIL_RESOURCES (); + if (ret = msoft_heap_check (prt_mask)) + { + MEMLOG_ERR2 ("\nFILE : %s, LINE %d",file,line); + if (mem_chk_err) + (*mem_chk_err)(); + } + S_UNLOCK_UTIL_RESOURCES (); +#endif + + return (ret); + } + +/************************************************************************/ +/* msoft_heap_check */ +/* Perform Microsoft specific heap validation */ +/* Also sets all unused heap to 0x55 */ +/************************************************************************/ + +ST_RET msoft_heap_check (ST_INT16 prt_mask) + { +#if defined(DEBUG_SISCO) && defined (MSOFT_HEAP_CHECK) +struct _heapinfo entry; +ST_INT i; +ST_INT ret; +ST_BOOLEAN error; +ST_INT32 total_size; +ST_INT num_ptrs; + + S_LOCK_UTIL_RESOURCES (); + entry._pentry = NULL; /* start at the top of the list */ + error = SD_FALSE; + total_size = 0; + num_ptrs = 0; + for (i = 0; SD_TRUE; ++i) + { + ret = _heapwalk (&entry); + switch (ret) + { + case _HEAPBADPTR : + MEMLOG_ERR0 ("BAD HEAP : POINTER OUTSIDE HEAP"); + error = SD_TRUE; + break; + case _HEAPBADBEGIN : + MEMLOG_ERR0 ("BAD HEAP : INITIAL ENTRY"); + error = SD_TRUE; + break; + case _HEAPBADNODE : + MEMLOG_ERR0 ("BAD HEAP : BAD NODE "); + error = SD_TRUE; + break; + } + + if (prt_mask & DEBUG_HEAP_ENTRY) + { + if (ret == _HEAPEMPTY) + { + MEMLOG_DUMP0 ("Heap Empty"); + } + else if (ret == _HEAPEND) + { + MEMLOG_DUMP0 ("End Of Heap"); + } + else + { + MEMLOG_CDUMP1 (" Heap Entry %d :",i); + MEMLOG_CDUMP1 (" Pointer : %08lX",entry._pentry); + MEMLOG_CDUMP1 (" Size (decimal) : %d",entry._size); + MEMLOG_CDUMP1 (" Use Flag : %s", + entry._useflag == _USEDENTRY ? "USED" : "FREE"); + num_ptrs++; + total_size += entry._size; + } + + MEMLOG_PAUSE ("Hit any key to continue - "); + } + + if (ret == _HEAPEND || ret == _HEAPEMPTY || error) + break; + } + + if (prt_mask & DEBUG_HEAP_SUM) + { + MEMLOG_DUMP1 ("Total # Pointers : %d",num_ptrs); + MEMLOG_CDUMP1 ("Total memory malloc'd : %ld",total_size); + MEMLOG_PAUSE ("Hit any key to continue - "); + } + + _heapset ('\x55'); /* write all unused memory with 55's */ + + S_UNLOCK_UTIL_RESOURCES (); + return (SD_FALSE); +#elif defined(DEBUG_SISCO) && defined(MEMCHK_WIN32_CRT_DEBUG) + return _CrtCheckMemory () ? SD_FALSE : SD_TRUE; +#else + return (SD_FALSE); +#endif + } + + + +/************************************************************************/ +/************************************************************************/ +/* chk_alloc_ptr */ +/************************************************************************/ + +ST_RET chk_alloc_ptr (ST_VOID *mem_ptr) + { +#ifdef DEBUG_SISCO +CHK_DYN_MEM_NODE *chk_mem_node; + + if (m_mem_debug_saved) + { + S_LOCK_UTIL_RESOURCES (); +/* verify that a non-NULL pointer was passed in */ + if (!mem_ptr) + { + if (chk_debug_en & MEM_LOG_ERR) + { + MEMLOG_ERR0 ("NULL pointer in chk_alloc_ptr"); + goto MEM_PTR_CHK_ERROR; + } + S_UNLOCK_UTIL_RESOURCES (); + return(SD_FAILURE); + } + +/* verify that the pointer matches the expected pointer */ + chk_mem_node = ((CHK_DYN_MEM_NODE *)mem_ptr)-1; + +/* Verify that this node is on the list before accessing it */ + if (list_find_node (head_dyn_mem_list, chk_mem_node) != SD_SUCCESS) + { + if (chk_debug_en & MEM_LOG_ERR) + { + MEMLOG_ERR0 (" chk_alloc_ptr - pointer not on list"); + goto MEM_PTR_CHK_ERROR; + } + S_UNLOCK_UTIL_RESOURCES (); + return(SD_FAILURE); + } + + if (chk_mem_node->chk_alloc_mem_ptr == mem_ptr) + { + if (chk_mem_node->overwrite_prev_detected == SD_FALSE) + { + if (check_overwrite (chk_mem_node)) + { + MEMLOG_ERR0 ("Memory overwrite at end of buffer detected"); + chk_mem_node->overwrite_prev_detected=SD_TRUE; + MEMLOG_CERR5 ( + "Node = %lx, Prev = %lx, Next = %lx, Len = %u, Curr = %lx", + chk_mem_node, + chk_mem_node->chk_mem_node_link.prev, + chk_mem_node->chk_mem_node_link.next, + chk_mem_node->chk_alloc_mem_size, + chk_mem_node->chk_alloc_mem_ptr); + MEMLOG_CERR2 ("Pointer was allocated at file: %s, line %d ", + chk_mem_node->file,chk_mem_node->line); + MEMLOG_CHERR (chk_mem_node->chk_alloc_mem_size + + sizeof (CHK_DYN_MEM_NODE) + + m_num_pad_bytes, chk_mem_node); + goto MEM_PTR_CHK_ERROR2; + } + } /* end if overwrite not detected for this node */ + +#if defined(MEMCHK_WIN32_CRT_DEBUG) + if (_CrtIsMemoryBlock (chk_mem_node, chk_mem_node->chk_alloc_mem_size + mem_overhead, + NULL, NULL, NULL) == FALSE) + { + MEMLOG_ERR0 ("Buffer not a valid memory block"); + MEMLOG_CERR5 ( + "Node = %lx, Prev = %lx, Next = %lx, Len = %u, Curr = %lx", + chk_mem_node, + chk_mem_node->chk_mem_node_link.prev, + chk_mem_node->chk_mem_node_link.next, + chk_mem_node->chk_alloc_mem_size, + chk_mem_node->chk_alloc_mem_ptr); + MEMLOG_CERR2 ("Pointer was allocated at file: %s, line %d ", + chk_mem_node->file,chk_mem_node->line); + MEMLOG_CHERR (chk_mem_node->chk_alloc_mem_size + + sizeof (CHK_DYN_MEM_NODE) + + m_num_pad_bytes, chk_mem_node); + goto MEM_PTR_CHK_ERROR2; + } +#endif + } + else /* Pointer does not match header */ + { +MEM_PTR_CHK_ERROR : + + MEMLOG_ERR1 ("Pointer Does Not Exist (%08lx)",mem_ptr); + +MEM_PTR_CHK_ERROR2 : + MEMLOG_CALLSTACK (NULL); + MEMLOG_PAUSEERR (""); + if (mem_chk_err) + (*mem_chk_err)(); + S_UNLOCK_UTIL_RESOURCES (); + return(SD_FAILURE); + } + S_UNLOCK_UTIL_RESOURCES (); + } +#endif + return(SD_SUCCESS); + } + + +/************************************************************************/ +/* check_mem_list */ +/************************************************************************/ + +ST_VOID check_mem_list () + { +#ifdef DEBUG_SISCO +CHK_DYN_MEM_NODE *node; +CHK_DYN_MEM_NODE *prev; +CHK_DYN_MEM_NODE *next; +ST_INT len; +ST_VOID *curr; +ST_UINT32 j; + + if (m_mem_debug_saved) + { + S_LOCK_UTIL_RESOURCES (); + if ((node = head_dyn_mem_list) == NULL) + { + S_UNLOCK_UTIL_RESOURCES (); + return; /* list empty. Nothing to check */ + } + for (j = 0; j < chk_max_dyn_mem_ptrs; j++) + { + /* should break out when j = chk_curr_mem_count */ + prev = (CHK_DYN_MEM_NODE *) node->chk_mem_node_link.prev; + next = (CHK_DYN_MEM_NODE *) node->chk_mem_node_link.next; + len = node->chk_alloc_mem_size; + curr = node->chk_alloc_mem_ptr; + + /* check ptr to this node */ + if (curr != (ST_VOID *) (node + 1)) + { + MEMLOG_ERR1 ("Current node pointer corrupted on node #%d", j); + MEMLOG_CERR5 ( + "Node = %lx, Prev = %lx, Next = %lx, Len = %u, Curr = %lx", + node, prev, next, len, curr); + MEMLOG_CALLSTACK (NULL); + MEMLOG_PAUSEERR (""); + if (mem_chk_err) + (*mem_chk_err)(); + } + + /* check link list ptrs */ + if (node != (CHK_DYN_MEM_NODE *) next->chk_mem_node_link.prev) + { + MEMLOG_ERR1 ("\nLinked list corrupted at node #%d", j); + MEMLOG_CERR6 ( + "Node=%lx, Prev=%lx, Next=%lx, Len=%5u, Curr=%lx, Next node's prev=%lx", + node, prev, next, len, curr, next->chk_mem_node_link.prev); + MEMLOG_CALLSTACK (NULL); + MEMLOG_PAUSEERR (""); + if (mem_chk_err) + (*mem_chk_err)(); + } + + /* Check for buffer overwrite */ + if (check_overwrite (node)) + { + if(node->overwrite_prev_detected==SD_FALSE) + { + MEMLOG_ERR0 ("Memory overwrite at end of buffer detected"); + MEMLOG_CERR5 ( + "Node = %lx, Prev = %lx, Next = %lx, Len = %u, Curr = %lx", + node, prev, next, len, curr); + MEMLOG_CERR2 ("Pointer was allocated at file: %s, line %d ", + node->file,node->line); + MEMLOG_CHERR (node->chk_alloc_mem_size + + sizeof (CHK_DYN_MEM_NODE) + + m_num_pad_bytes, node); + MEMLOG_CALLSTACK (NULL); + MEMLOG_PAUSEERR (""); + if (mem_chk_err) + (*mem_chk_err)(); + node->overwrite_prev_detected=SD_TRUE; + } + } +#if defined(MEMCHK_WIN32_CRT_DEBUG) + else + { + if (_CrtIsMemoryBlock (node, node->chk_alloc_mem_size + mem_overhead, + NULL, NULL, NULL) == FALSE) + { + MEMLOG_ERR0 ("Buffer not a valid memory block"); + MEMLOG_CERR5 ( + "Node = %lx, Prev = %lx, Next = %lx, Len = %u, Curr = %lx", + node, + node->chk_mem_node_link.prev, + node->chk_mem_node_link.next, + node->chk_alloc_mem_size, + node->chk_alloc_mem_ptr); + MEMLOG_CERR2 ("Pointer was allocated at file: %s, line %d ", + node->file,node->line); + MEMLOG_CHERR (node->chk_alloc_mem_size + + sizeof (CHK_DYN_MEM_NODE) + + m_num_pad_bytes, node); + } + } +#endif + + if (next == head_dyn_mem_list) /* is this last node on list? */ + break; + + node = next; /* point to next node in linked list */ + } /* end "for" */ + + if (j >= chk_max_dyn_mem_ptrs) + { + MEMLOG_ERR1 ( + "Last node (Node #%d) does not point back to first.", j - 1); + MEMLOG_CALLSTACK (NULL); + MEMLOG_PAUSEERR (""); + if (mem_chk_err) + (*mem_chk_err)(); + } + else if (j + 1 != chk_curr_mem_count) + { + MEMLOG_CERR0 ("Linked list current count corrupted."); + MEMLOG_CERR2 ("Count = %lu, Should be = %lu.", + (ST_ULONG) chk_curr_mem_count, (ST_ULONG) (j + 1)); + MEMLOG_CALLSTACK (NULL); + MEMLOG_PAUSEERR (""); + if (mem_chk_err) + (*mem_chk_err)(); + } + S_UNLOCK_UTIL_RESOURCES (); + return; + } +#endif /* DEBUG_SISCO */ + } + +/************************************************************************/ +/* check_overwrite */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +static ST_RET check_overwrite (CHK_DYN_MEM_NODE *node) + { +ST_CHAR *bptr; +ST_CHAR *eptr; +ST_INT i; + +/* Get a pointer to the byte after the user's data */ + bptr = (ST_CHAR *) (node +1); + bptr += node->chk_alloc_mem_size; + eptr = bptr + m_num_pad_bytes; + +/* Verify the signature */ + i = 0; + while (bptr < eptr) + { + if (*(bptr++) != m_pad_string[i]) + return (SD_TRUE); /* Overwrite detected, return the error */ + + if (++i >= m_num_pad_bytes) /* if we have wrapped the string */ + i = 0; + } + +/* All is OK with the end of this buffer */ + return (SD_FALSE); + } +#endif + +/************************************************************************/ +/* set_overwrite_value */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +static ST_VOID set_overwrite_value (CHK_DYN_MEM_NODE *node) + { +ST_CHAR *bptr; +ST_CHAR *eptr; +ST_INT i; + +/* Get a pointer to the byte after the user's data */ + bptr = (ST_CHAR *)(node+1); + bptr += node->chk_alloc_mem_size; + eptr = bptr + m_num_pad_bytes; + +/* Set the signature */ + i = 0; + while (bptr < eptr) + { + *(bptr++) = m_pad_string[i]; + if (++i >= m_num_pad_bytes) /* if we have wrapped the string */ + i = 0; + } + + node->overwrite_prev_detected=SD_FALSE; + } +#endif + + diff --git a/mmslib/mmsl/mms_adl.c b/mmslib/mmsl/mms_adl.c new file mode 100644 index 0000000..7dcaf88 --- /dev/null +++ b/mmslib/mmsl/mms_adl.c @@ -0,0 +1,1346 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 1997, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : mms_adl.c */ +/* PRODUCT(S) : MMSEASE */ +/* */ +/* MODULE DESCRIPTION : */ +/* Function to convert ADL (Alternate Access Definition Language) into */ +/* alternate access structure */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 08/09/06 JRB 07 Added ms_adl_to_asn1_2. */ +/* 09/13/99 MDE 06 Added SD_CONST modifiers */ +/* 06/15/98 MDE 05 Changes to allow compile under C++ */ +/* 02/20/98 MDE 04 Minor variable initialization changes */ +/* 12/29/97 MDE 03 Corrected LOCK/UNLOCK problems */ +/* 12/10/97 MDE 02 Added logging for invalid sel_type */ +/* 05/21/97 IKE 01 Used '[' instead of ':' for nesting for an */ +/* array of structures */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" +#include +#include "mmsdefs.h" +#include "mms_pvar.h" +#include "mms_vvar.h" + +/************************************************************************/ + +#define MAX_NESTING_LEVEL 50 +#define MAX_NUM_AA 100 + +#define AA_STACK_EMPTY(a) (!((a)->brace_number)) /* is stack empty*/ +#define AA_STACK_FULL(a) ((a)->brace_number == MAX_NESTING_LEVEL) + +#define L_ANGLE_BRACKET '<' +#define R_ANGLE_BRACKET '>' +#define L_BRACE '[' +#define R_BRACE ']' +#define COMMA ',' +#define COLON ':' +#define ASTERISK '*' +#define NULL_CHARACTER '\0' + +#define ARRAY_ACCESS 0 +#define STRUCTURE_ACCESS 1 +#define L_BRACE_PARSE 2 +#define R_BRACE_PARSE 3 +#define COMMA_PARSE 4 +#define COLON_PARSE 5 +#define FINISH_PARSE 6 + +/* The following data structure is used to keep track of information */ +/* needed to handle ADL string internally. */ + +struct adl_info + { + ST_BOOLEAN comp_name_exists; /* is it a named alternate acces exist ? */ + ST_INT named_index; /* where exactly is the index of the name ? */ + ST_CHAR comp_name[MAX_IDENT_LEN+1]; /* what is the name of the component?*/ + ST_INT nest_count[MAX_NESTING_LEVEL]; /* nesting level per brace */ + ST_INT comp_count[MAX_NESTING_LEVEL]; /* comp nesting level */ + ST_INT brace_number; + ST_INT access_state; /* what to be parsed next ? */ + ST_BOOLEAN started_with_structure_access;/*start could be array or struct*/ + ST_BOOLEAN named_comp_allowed; /* are named components allowed ? */ + ST_BOOLEAN left_brace_allowed; /* is left brace allowed ? */ + }; +typedef struct adl_info ADL_INFO; + + +/************************************************************************/ +/* static variables used in this module */ +/************************************************************************/ + +SD_CONST static ST_CHAR seps[] = " []<>\t\n:,"; +SD_CONST static ST_CHAR ch_seps[] = "[]<>:,"; + +/************************************************************************/ +/* Internal functions for this module */ +/************************************************************************/ +static ST_RET get_alternate_access (ST_CHAR *pString, + ALT_ACCESS *alt_acc, + ADL_INFO *info); +static ST_RET get_structure_access (ST_CHAR **ppString, + ALT_ACCESS *alt_acc, + ADL_INFO *info); +static ST_RET get_array_access (ST_CHAR **ppString, + ALT_ACCESS *alt_acc, + ADL_INFO *info); +static ST_RET process_r_brace (ST_CHAR **ppString, + ALT_ACCESS *alt_acc, + ADL_INFO *info); +static ST_RET process_comma (ST_CHAR **ppString, + ALT_ACCESS *alt_acc, + ADL_INFO *info); +static ST_RET process_l_brace (ST_CHAR **ppString,ADL_INFO *info); +static ST_RET process_colon (ST_CHAR **ppString,ADL_INFO *info); +static ST_RET end_of_parsing (ALT_ACCESS *alt_acc,ADL_INFO *info); +static ST_RET get_named_component (ST_CHAR **ppString,ST_CHAR *token); +static ST_RET get_index_identifier (ST_CHAR **ppString,ALT_ACCESS *alt_acc); +static ST_RET get_sel_type (ST_CHAR **ppString,ST_INT type); +static ST_VOID copy_component_name (ALT_ACCESS *alt_acc,ADL_INFO *info); +static ST_RET isnumber (ST_CHAR *pString); +static ST_RET is_iso_identifier (ST_CHAR *pString); +static ST_VOID point_to_next_character (ST_INT length,ST_CHAR **ppString); +static ST_RET token_copy (ST_CHAR *token,ST_CHAR *pString,ST_INT max_token_length); +static ST_RET traverse_array (ALT_ACCESS *, ST_INT, ST_CHAR *,ST_INT); +static ST_RET get_alt_acc (ALT_ACCESS *); +static ST_RET separator_copy (ST_CHAR *adl,ST_INT *i,ST_CHAR separator, ST_INT max_adl_len); +static ST_RET comp_copy (ST_CHAR *adl,ST_INT *i,ST_CHAR *comp, ST_INT max_adl_len); + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/* ms_adl_to_aa */ +/* Function to parse ADL (Alternate Access Definition Language) and */ +/* put into alternate structure */ +/* Input : adl_str User allocates and frees it */ +/* Output : alt_acc User allocate and frees it */ +/* Output : alt_acc->aa : This function allocates and user frees it */ +/* The grammar of ADL is as follows */ +/* */ +/* ::= | */ +/* ::= | */ +/* */ +/* ::= */ +/* ::= | */ +/* */ +/* ::= | */ +/* ::="["{}"]"*/ +/* | "["{}"]" */ +/* ::= ISO Identifier */ +/* ::= "<"">" */ +/* ::= | | */ +/* ::= */ +/* ::= */ +/* ::= */ +/* ::= | */ +/* ::= "0" | "1" | "2" | "3" | "4" | "5" | "6" | "7" | "8" | "9"*/ +/* ::= "*" */ +/* ::= "," */ +/* ::= ":" */ +/************************************************************************/ + +ST_RET ms_adl_to_aa (ST_CHAR *adl_str,ALT_ACCESS *alt_acc) + { +ST_RET ret_value; +ST_CHAR *string; +ST_INT str_length; +ADL_INFO *info; + + S_LOCK_COMMON_RESOURCES (); + +/* initialize local variables */ + ret_value = MVE_INVALID_ADL; + str_length = strlen (adl_str); + string = (ST_CHAR *) chk_calloc (1,str_length+1); + info = (ADL_INFO *) chk_calloc (1,sizeof (ADL_INFO)); + +/* initialize alt_acc */ + alt_acc->num_aa = 0; + alt_acc->aa = (ALT_ACC_EL *) chk_calloc (MAX_NUM_AA,sizeof (ALT_ACC_EL)); + +/* make the duplicate copy of the adl_string and use it in the function */ +/* calls in case any function corrupts the string */ + strcpy (string,adl_str); + +/* initialize some state control variables */ + info->comp_name_exists = SD_FALSE; + info->named_comp_allowed = SD_FALSE; + info->left_brace_allowed = SD_TRUE; + +/* start parsing */ + ret_value = get_alternate_access (string,alt_acc,info); + +/* free what we allocated in this function */ + chk_free (info); + chk_free (string); + if (ret_value != SD_SUCCESS) + chk_free (alt_acc->aa); + +/* Take care of housekeeping */ + if (ret_value == SD_SUCCESS) + { + /* Log the alternate access, if selected */ + if (mms_debug_sel & MMS_LOG_AA) + ms_log_alt_access (alt_acc); + /* save the high water mark */ + if (alt_acc->num_aa > m_hw_dec_aa) + m_hw_dec_aa = alt_acc->num_aa; + } + S_UNLOCK_COMMON_RESOURCES (); + return (ret_value); + } + +/************************************************************************/ +/* ms_aa_to_adl */ +/* Function to extract information from alternate access structure and */ +/* make ADL string as output */ +/* Input : alt_acc user allocates and frees it */ +/* Output : adl_str : user is responsible and frees it */ +/************************************************************************/ +ST_RET ms_aa_to_adl (ALT_ACCESS *alt_acc, ST_CHAR *adl_str,ST_INT max_adl_len) + { +ST_INT num_of_els; +ST_RET ret; + + S_LOCK_COMMON_RESOURCES (); + num_of_els = get_alt_acc (alt_acc); + if (num_of_els == 0) + ret = MVE_INVALID_ADL; + else + ret = traverse_array (alt_acc, num_of_els, adl_str,max_adl_len); + + S_UNLOCK_COMMON_RESOURCES (); + return (ret); + } + +/************************************************************************/ +/* get_alternate_access */ +/* This function parses the passed string pString sequentially. While */ +/* parsing, this function works on state basis and calls the appropriate*/ +/* function on the basis. The called functions set the next state */ +/************************************************************************/ + +static ST_RET get_alternate_access (ST_CHAR *pString, + ALT_ACCESS *alt_acc, + ADL_INFO *info) + { +ST_INT ret_value; +ST_BOOLEAN all_done; + + ret_value = SD_SUCCESS; + all_done = SD_FALSE; + point_to_next_character (0,&pString); + if (*pString == L_BRACE) + { + info->brace_number++; + info->access_state = ARRAY_ACCESS; + info->started_with_structure_access = SD_FALSE; + point_to_next_character (1,&pString); + } + else + { + info->access_state = STRUCTURE_ACCESS; + info->started_with_structure_access = SD_TRUE; + } + + while ((all_done==SD_FALSE) && (ret_value == SD_SUCCESS)) + { + switch (info->access_state) + { + case STRUCTURE_ACCESS : + ret_value = get_structure_access (&pString,alt_acc,info); + break; + + case ARRAY_ACCESS : + ret_value = get_array_access (&pString,alt_acc,info); + break; + + case L_BRACE_PARSE : + ret_value = process_l_brace (&pString,info); + break; + + case R_BRACE_PARSE : + ret_value = process_r_brace (&pString,alt_acc,info); + break; + + case COMMA_PARSE : + ret_value = process_comma (&pString,alt_acc,info); + break; + + case COLON_PARSE : + ret_value = process_colon (&pString,info); + break; + + case FINISH_PARSE : + ret_value = end_of_parsing (alt_acc,info); + all_done = SD_TRUE; + break; + + default: + MLOG_NERR1("Unexpected %s",pString); + ret_value = MVE_INVALID_ADL; + break; + + } + } + + if (ret_value != SD_SUCCESS) + return (MVE_INVALID_ADL); + +/* Stack should be empty because all braces should be matched by now */ + if (info->brace_number) + { + MLOG_NERR0("Braces not matched"); + return (MVE_INVALID_ADL); + } + + return (SD_SUCCESS); + } + +/************************************************************************/ +/* get_structure_access */ +/* This function expects the syntax like comp1 or comp1 in the */ +/* beginning. It parses until the component ,checks the next character */ +/* and sets the next state */ +/************************************************************************/ + +static ST_RET get_structure_access (ST_CHAR **ppString, + ALT_ACCESS *alt_acc, + ADL_INFO *info) + { +ST_CHAR token[MAX_IDENT_LEN+1]; +ST_INT token_length; +ST_RET ret_value; +ST_CHAR *pString; +ALT_ACC_EL *aa; + + ret_value = SD_SUCCESS; + pString = *ppString; + aa = alt_acc->aa+alt_acc->num_aa; + if (*pString == L_ANGLE_BRACKET) /* alternate access has a name */ + { + if (info->comp_name_exists == SD_TRUE) /* name already defined */ + { + MLOG_NERR1("component name is allowed only once.Error at %s",pString); + return (MVE_INVALID_ADL); + } + info->comp_name_exists = SD_TRUE; + if (get_named_component (&pString,info->comp_name) != SD_SUCCESS) + return (MVE_INVALID_ADL); + } + if (!(token_length = token_copy (token,pString,MAX_IDENT_LEN))) + { + MLOG_NERR1("Expected component at %s",pString); + return (MVE_INVALID_ADL); + } + if (is_iso_identifier (token) == SD_FALSE) + { + MLOG_NERR1("Component %s is not a valid identifier",token); + return (MVE_INVALID_ADL); + } +/* set the aa pointer to the current structure to be filled in */ + aa = alt_acc->aa+alt_acc->num_aa; + +/* start filling the structure */ + aa->comp_name_pres = info->comp_name_exists; + if (aa->comp_name_pres) + strcpy (aa->comp_name,info->comp_name); + strcpy (aa->u.component,token); + aa->sel_type = get_sel_type (&pString,AA_COMP); + + if ((info->comp_name_exists == SD_TRUE) && (aa->sel_type == AA_COMP || aa->sel_type == AA_COMP_NEST)) + info->named_index = alt_acc->num_aa; + if (++alt_acc->num_aa > MAX_NUM_AA) + { + MLOG_NERR0("Number of elements in the structure exceeded the limit"); + return (MVE_INVALID_ADL); + } + point_to_next_character (token_length,&pString); + +/* Setting the next access state */ + switch (*pString) + { + case L_BRACE : + info->access_state = L_BRACE_PARSE; + break; + + case R_BRACE : + info->access_state = R_BRACE_PARSE; + break; + + case COMMA : + info->access_state = COMMA_PARSE; + break; + + case NULL_CHARACTER : + info->access_state = FINISH_PARSE; + break; + + default : + MLOG_NERR1("Unexpected %s",pString); + ret_value = MVE_INVALID_ADL; + info->access_state = -1; + break; + } +/* update argumet with the current position of the pointer to string */ + *ppString = pString; + return (ret_value); + } + +/************************************************************************/ +/* get_array_access */ +/* This function expects the syntax like 2:comp1 or 2[3 or 2,3 in the */ +/* beginning. It parses to get the index identifier, checks the next */ +/* character and sets the next state */ +/************************************************************************/ + +static ST_RET get_array_access (ST_CHAR **ppString, + ALT_ACCESS *alt_acc, + ADL_INFO *info) + { +ST_CHAR *pString; +ST_RET ret_value; + + ret_value = SD_SUCCESS; + pString = *ppString; + if (info->left_brace_allowed == SD_FALSE) + { + MLOG_NERR1("Syntax error at %s",pString); + return (MVE_INVALID_ADL); + } + if (get_index_identifier (&pString,alt_acc) != SD_SUCCESS) + return (MVE_INVALID_ADL); + if (++alt_acc->num_aa > MAX_NUM_AA) + { + MLOG_NERR0("Number of elements in the structure exceeded the limit"); + return (MVE_INVALID_ADL); + } +/* Setting the next access state */ + + switch (*pString) + { + case L_BRACE : + info->access_state = L_BRACE_PARSE; + break; + + case R_BRACE : + info->access_state = R_BRACE_PARSE; + break; + + case COLON : + info->access_state = COLON_PARSE; + break; + + default : + MLOG_NERR1("Unexpected %s",pString); + ret_value = MVE_INVALID_ADL; + info->access_state = -1; + break; + } +/* update argumet with the current position of the pointer to string */ + *ppString = pString; + return (ret_value); + } + +/************************************************************************/ +/* process_l_brace */ +/* If the left brace is encountered then we expect array access.We also */ +/* keep track of nesting associated with this brace */ +/************************************************************************/ + +static ST_RET process_l_brace (ST_CHAR **ppString,ADL_INFO *info) + { +ST_CHAR *pString; + + pString = *ppString; + if (AA_STACK_FULL (info)) + { + MLOG_NERR0("Nesting Level exceeded"); + return (MVE_INVALID_ADL); + } +/* we are nesting one level now associated with this brace */ + info -> nest_count[info->brace_number++] = 1; + point_to_next_character (1,&pString); + if (isdigit (*pString) || (*pString == ASTERISK)) + info->access_state = ARRAY_ACCESS; + else + info->access_state = STRUCTURE_ACCESS; + *ppString = pString; + return (SD_SUCCESS); + } + +/************************************************************************/ +/* process_r_brace */ +/* Right brace is used to end the array access. This function removes */ +/* the right brace from the passed string, checks the next character */ +/* and sets the next state */ +/************************************************************************/ + +static ST_RET process_r_brace (ST_CHAR **ppString, + ALT_ACCESS *alt_acc, + ADL_INFO *info) + { +ST_CHAR *pString; +ST_RET ret_value; +ST_INT i; +ST_INT brace_number; +ALT_ACC_EL *aa; + + ret_value = SD_SUCCESS; + aa = alt_acc->aa+alt_acc->num_aa; + pString = *ppString; + + info->left_brace_allowed = SD_FALSE; + if (AA_STACK_EMPTY (info)) + { + MLOG_NERR1("Syntax Error due to right brace at %s",pString); + return (MVE_INVALID_ADL); + } + brace_number = -- info->brace_number; + for (i=0;inest_count[brace_number];i++,aa++) + { + aa->sel_type = AA_END_NEST; + if (++alt_acc->num_aa > MAX_NUM_AA) + { + MLOG_NERR0("Number of elements in the structure exceeded the limit"); + return (MVE_INVALID_ADL); + } + } + point_to_next_character (1,&pString); + switch (*pString) + { + case R_BRACE : + info->access_state = R_BRACE_PARSE; + break; + + case COMMA : + /* comma is used to separate between different alternate accesses */ + /* it is invalid between between two array accesses like [2],[3] */ + if ((info->started_with_structure_access == SD_TRUE) || (info->brace_number)) + { + info->access_state = COMMA_PARSE; + } + else + { + info->access_state = -1; + MLOG_NERR1("Comma invalid at %s",pString); + ret_value = MVE_INVALID_ADL; + } + break; + + case NULL_CHARACTER : + info->access_state = FINISH_PARSE; + break; + + default : + info->access_state = -1; + MLOG_NERR1("Unexpected %s",pString); + ret_value = MVE_INVALID_ADL; + break; + } + *ppString = pString; + return (ret_value); + } + +/************************************************************************/ +/* process_comma */ +/* If the comma is encountered then we expect structure access */ +/************************************************************************/ + +static ST_RET process_comma (ST_CHAR **ppString, + ALT_ACCESS *alt_acc, + ADL_INFO *info) + { + info->named_comp_allowed = SD_TRUE; + info->access_state = STRUCTURE_ACCESS; + info->left_brace_allowed = SD_TRUE; +/* it is time to copy the name of the alternate access if there is any */ + if (info->comp_name_exists) + copy_component_name (alt_acc,info); + point_to_next_character (1,ppString); + if (**ppString == NULL_CHARACTER) + { + MLOG_NERR0("Comma unexpected at the end"); + return (MVE_INVALID_ADL); + } + return (SD_SUCCESS); + } + +/************************************************************************/ +/* process_colon */ +/* Colon means array index is nested with structure elements so we */ +/* increment the nesting level of the brace before colon by one */ +/************************************************************************/ + +static ST_RET process_colon (ST_CHAR **ppString,ADL_INFO *info) + { +ST_RET brace_number; + + if (AA_STACK_EMPTY (info)) + { + MLOG_NERR1("Syntax Error due to colon at %s",*ppString); + return (MVE_INVALID_ADL); + } + brace_number = info->brace_number - 1; + info -> nest_count[brace_number] ++; + info->access_state = STRUCTURE_ACCESS; + point_to_next_character (1,ppString); + return (SD_SUCCESS); + } + +/************************************************************************/ +/* end_of_parsing */ +/* At the end of parsing it checks if the name of the alternate access */ +/* needs to be copied into the structure */ +/************************************************************************/ + +static ST_RET end_of_parsing (ALT_ACCESS *alt_acc,ADL_INFO *info) + { +ALT_ACC_EL *aa; + + aa = alt_acc->aa+alt_acc->num_aa; + if ((info->comp_name_exists) && (info->named_comp_allowed)) + copy_component_name (alt_acc,info); + return (SD_SUCCESS); + } + +/************************************************************************/ +/* get_named_component */ +/* This function extracts "name1" from the syntax and points */ +/* to first non white space character after ">" */ +/************************************************************************/ + +static ST_RET get_named_component (ST_CHAR **ppString,ST_CHAR *token) + { +ST_INT token_length; +ST_CHAR *pString; + + pString = *ppString; + point_to_next_character (1,&pString); + if (!(token_length = token_copy (token,pString,MAX_IDENT_LEN))) + { + MLOG_NERR1("Expected name for the Alternate Access at %s",pString); + return (MVE_INVALID_ADL); + } + if (is_iso_identifier (token) == SD_FALSE) + { + MLOG_NERR1("not a valid ISO identifier %s",token); + return (MVE_INVALID_ADL); + } + point_to_next_character (token_length,&pString); + if (*pString != R_ANGLE_BRACKET)/* expect R_ANGLE_BRACKET */ + { + MLOG_NERR1("Right Angle Bracket expected at %s",pString); + return (MVE_INVALID_ADL); + } + point_to_next_character (1,&pString); /* remove white spaces between R_ANGLE_BRACKET*/ + *ppString = pString; + return (SD_SUCCESS); + } + +/************************************************************************/ +/* get_index_identifier */ +/* This function is called by the function get_array_access */ +/* Index Identifier could be one of these three types */ +/* */ +/* ::= */ +/* ::= "*" */ +/* where , and are decimal numbers */ +/************************************************************************/ + +static ST_RET get_index_identifier (ST_CHAR **ppString,ALT_ACCESS *alt_acc) + { +ST_CHAR *pString; +ST_INT token_length; +ST_CHAR token[MAX_IDENT_LEN+1]; +ALT_ACC_EL *aa; + + aa = alt_acc->aa+alt_acc->num_aa; + pString = *ppString; + if (!(token_length = token_copy (token,pString,MAX_IDENT_LEN))) + { + MLOG_NERR1("Expected an index after [ at %s",pString); + return (MVE_INVALID_ADL); + } + point_to_next_character (token_length,&pString); + switch (*pString) + { + case L_BRACE : + case R_BRACE : + case COLON : + if ((*token == ASTERISK) && (token_length == 1)) + { + aa->sel_type = get_sel_type (&pString,AA_ALL); + } + else + { + if (isnumber (token) == SD_FALSE) + { + MLOG_NERR1("Expected a number or '*' at %s",token); + return (MVE_INVALID_ADL); + } + aa->u.index = atol (token); + aa->sel_type = get_sel_type (&pString,AA_INDEX); + } + break; + + case COMMA : + if (isnumber (token) == SD_FALSE) + { + MLOG_NERR1("Expected a number at %s",token); + return (MVE_INVALID_ADL); + } + aa->u.ir.low_index = atol (token); + point_to_next_character (1,&pString); + if (!(token_length = token_copy (token,pString,MAX_IDENT_LEN+1))) + { + MLOG_NERR1("Expected an index at %s",pString); + return (MVE_INVALID_ADL); + } + point_to_next_character (token_length,&pString); + if ((*pString != L_BRACE) && (*pString != R_BRACE) + && (*pString != COLON)) + { + MLOG_NERR2("Unexpected character %c at %s", *pString,pString); + MLOG_NERR0("Expected characters []:"); + return (MVE_INVALID_ADL); + } + if (isnumber (token) == SD_FALSE) + { + MLOG_NERR1("Expected a number at %s",token); + return (MVE_INVALID_ADL); + } + aa->u.ir.num_elmnts = atol (token); + aa->sel_type = get_sel_type (&pString,AA_INDEX_RANGE); + break; + + default : + MLOG_NERR2("Unexpected character %c at %s ",*pString,pString); + MLOG_NERR0("Expected characters : [],:"); + return (MVE_INVALID_ADL); + break; + } + *ppString = pString; + return (SD_SUCCESS); + } + +/************************************************************************/ +/* get_sel_type */ +/* This function determines sel_type for Alternate Access if it nested */ +/* or not depending on the next separator. If type is nested it */ +/* increments a static variable nesting_count which is used to fill the */ +/* structure with sel_type of AA_END_NEST at the end of parsing. If type*/ +/* is not nested, it returns the passed type. This function does not */ +/* alter the passed string */ +/************************************************************************/ + +static ST_RET get_sel_type (ST_CHAR **ppString, ST_INT type) + { +ST_CHAR *next_separator; + + next_separator = strpbrk (*ppString,ch_seps); + if (!next_separator) + return (type); + + switch (type) + { + case AA_COMP : + if (*next_separator == L_BRACE) + type = AA_COMP_NEST; + break; + + case AA_INDEX : + if ((*next_separator == L_BRACE) || (*next_separator == COLON)) + type = AA_INDEX_NEST; + break; + + case AA_INDEX_RANGE : + if ((*next_separator == L_BRACE) || (*next_separator == COLON)) + type = AA_INDEX_RANGE_NEST; + break; + + case AA_ALL : + if ((*next_separator == L_BRACE) || (*next_separator == COLON)) + type = AA_ALL_NEST; + break; + } + return (type); + } + +/************************************************************************/ +/* copy_component_name */ +/* This function copies the name of the alternate access to the */ +/* structure at the right place */ +/************************************************************************/ + +static ST_VOID copy_component_name (ALT_ACCESS *alt_acc,ADL_INFO *info) + { +ALT_ACC_EL *aa; + aa = alt_acc -> aa + info->named_index; + strcpy (aa->comp_name,info->comp_name); + aa->comp_name_pres = SD_TRUE; + info->comp_name_exists = SD_FALSE; + } + +/************************************************************************/ +/* isnumber */ +/* This function checks if the passed string contains only digits */ +/************************************************************************/ + +static ST_RET isnumber (ST_CHAR *pString) + { + while (*pString) + { + if (isdigit (*pString++)==0) + return (SD_FALSE); + } + return (SD_TRUE); + } + +/************************************************************************/ +/* is_iso_identifier */ +/* This function checks the health of ISO identifier. ISO identifier */ +/* can not start with a number and it can have alphanumeric characters */ +/* underscore '_' and dollar sign '$' */ +/************************************************************************/ + +static ST_RET is_iso_identifier (ST_CHAR *pString) + { + if (isdigit (*pString)) /* the first letter may not be a digit */ + return (SD_FALSE); + while (*pString) + { + if ((!(isalnum (*pString))) && + (!(*pString == '_')) && + (!(*pString == '$'))) + return (SD_FALSE); + pString++; + } + return (SD_TRUE); + } + +/************************************************************************/ +/* point_to_next_character */ +/* This function wacks all the white spaces and pointer will be */ +/* pointing to the next character in the string or null character if */ +/* there are no more characters in the string */ +/************************************************************************/ + +static ST_VOID point_to_next_character (ST_INT length,ST_CHAR **ppString) + { + *ppString += length; + while (isspace (**ppString)) + (*ppString)++; + } + +/************************************************************************/ +/* token_copy */ +/* This funtion gets the token from the string and returns the strlen */ +/************************************************************************/ + +static ST_RET token_copy (ST_CHAR *token,ST_CHAR *pString,ST_INT max_token_length) + { +ST_INT counter; + + counter = 0; + while ((strchr (seps,*pString)==NULL) && (counter < max_token_length)) + { + *token++ = *pString++; + counter++; + } + *token = '\0'; + return (counter); + } + +/************************************************************************/ +/* get_alt_acc */ +/* This function is called by ms_adl_to_string */ +/************************************************************************/ +static ST_RET get_alt_acc (ALT_ACCESS *alt_acc) + { +ALT_ACC_EL *aa; +ST_INT el_count; +ST_INT error; +ST_INT index_count; /*keep track of nesting */ +ST_INT comp_nest_count[MAX_NESTING_LEVEL]; +ST_INT x; + + error = SD_FALSE; + x = -1; + index_count = 0; + aa = alt_acc->aa; + for (el_count = 0; el_count < alt_acc->num_aa; ++el_count, ++aa) + { + switch (aa->sel_type) + { + case AA_COMP_NEST : + index_count++; + comp_nest_count[++x] = index_count; + case AA_COMP : + break; + + case AA_INDEX_NEST : + index_count++; + case AA_INDEX : + break; + + case AA_INDEX_RANGE_NEST : + index_count++; + case AA_INDEX_RANGE : + break; + + case AA_ALL_NEST : + index_count++; + case AA_ALL : + break; + case AA_END_NEST : + if (index_count == comp_nest_count[x] && x >= 0) + comp_nest_count[x--] = 0; + index_count--; + break; + + default : /* should not be any other tag */ + MLOG_NERR0("Bad sel_type"); + error = SD_TRUE; + break; + } + if (error) + break; + } + + if (!error && el_count && !index_count) + { + alt_acc->num_aa = el_count; + return (el_count); + } + return (0); + } + +/************************************************************************/ +/* traverse_array */ +/* Interprets each element of AA structure and puts correct ADL syntax */ +/* into an array. This function is called through aa_to_adl. */ +/************************************************************************/ +static ST_RET traverse_array (ALT_ACCESS *alt_acc, + ST_INT count, + ST_CHAR *adl, + ST_INT max_adl_len) + { +ADL_INFO info; +ALT_ACC_EL *aa; +ST_INT loop_count; +ST_INT temp_count; +ST_INT prev_sel_type; /* Initialize to meaningless value */ +ST_INT lbrace_count; +ST_INT rbrace_count; +ST_INT x; +ST_INT y; +ST_INT len, len2; +ST_INT i; +ST_CHAR ch[MAX_IDENT_LEN]; /* Max length for unsigned long integer */ +ST_CHAR *pCount; +ST_CHAR *temp_ptr; + + prev_sel_type = 99; /* Initialize to meaningless value */ + x = -1; + y = 0; + i = 0; + + pCount = adl; + temp_ptr = adl; + memset (&info, 0, sizeof (ADL_INFO)); + aa = alt_acc->aa; + info.nest_count[0] = 0; + info.comp_count[0] = 0; + + switch (aa->sel_type) + { + case AA_INDEX : + case AA_INDEX_RANGE : + case AA_ALL : + case AA_ALL_NEST : + case AA_INDEX_NEST : + case AA_INDEX_RANGE_NEST : + info.access_state = ARRAY_ACCESS; + info.started_with_structure_access = SD_FALSE; + if (separator_copy (adl, &i, L_BRACE, max_adl_len) != SD_SUCCESS) + return (MVE_INVALID_ADL); + break; + default: + info.access_state = STRUCTURE_ACCESS; + info.started_with_structure_access = SD_TRUE; + break; + } + + for (loop_count = 0; loop_count < count; loop_count++, aa++) + { + switch (aa->sel_type) + { + case AA_COMP: + if ((prev_sel_type == AA_COMP) && (info.nest_count[0])) + { + i--; + if (separator_copy (adl, &i, COMMA, max_adl_len) != SD_SUCCESS) + return (MVE_INVALID_ADL); + } + else if ((prev_sel_type == AA_END_NEST) || (prev_sel_type == AA_COMP)) + { + if (separator_copy (adl, &i, COMMA, max_adl_len) != SD_SUCCESS) + return (MVE_INVALID_ADL); + } + if ((prev_sel_type == AA_INDEX_RANGE_NEST) || (prev_sel_type == AA_INDEX_NEST)) + { + i--; + if (separator_copy (adl, &i, L_BRACE, max_adl_len) != SD_SUCCESS) + return (MVE_INVALID_ADL); + } + else if ((prev_sel_type == AA_INDEX) || (prev_sel_type == AA_INDEX_RANGE) + || (prev_sel_type == AA_ALL_NEST)) + { + if (separator_copy (adl, &i, L_BRACE, max_adl_len) != SD_SUCCESS) + return (MVE_INVALID_ADL); + } + if (prev_sel_type == AA_COMP_NEST) + { + if (separator_copy (adl, &i, L_BRACE, max_adl_len) != SD_SUCCESS) + return (MVE_INVALID_ADL); + } + if ((aa->comp_name_pres) && (!info.comp_count[0])) + { + if (separator_copy (adl, &i, L_ANGLE_BRACKET, max_adl_len) != SD_SUCCESS) + return (MVE_INVALID_ADL); + if (comp_copy (adl, &i, aa->comp_name, max_adl_len) != SD_SUCCESS) + return (MVE_INVALID_ADL); + if (separator_copy (adl, &i, R_ANGLE_BRACKET, max_adl_len) != SD_SUCCESS) + return (MVE_INVALID_ADL); + } + if (comp_copy (adl, &i, aa->u.component, max_adl_len) != SD_SUCCESS) + return (MVE_INVALID_ADL); + len = strlen (aa->u.component); + len2 = strlen (aa->comp_name); + if (adl[i - len - 1] == L_BRACE || prev_sel_type == AA_COMP_NEST || + (aa->comp_name_pres && adl[i - len - len2 - 3] == L_BRACE)) + if (separator_copy (adl, &i, R_BRACE, max_adl_len) != SD_SUCCESS) + return (MVE_INVALID_ADL); + + info.comp_name_exists = SD_TRUE; + prev_sel_type = AA_COMP; + break; + + case AA_COMP_NEST: + if (prev_sel_type == AA_END_NEST) + { + if (separator_copy (adl, &i, COMMA, max_adl_len) != SD_SUCCESS) + return (MVE_INVALID_ADL); + } + + if ((prev_sel_type == AA_INDEX_NEST) && adl[i - 1] == R_BRACE) + { + i--; + if (separator_copy (adl, &i, L_BRACE, max_adl_len) != SD_SUCCESS) + return (MVE_INVALID_ADL); + } + else if ((prev_sel_type == AA_INDEX_NEST) || (prev_sel_type == AA_INDEX_RANGE_NEST) + || (prev_sel_type == AA_ALL_NEST)) + { + if (separator_copy (adl, &i, L_BRACE, max_adl_len) != SD_SUCCESS) + return (MVE_INVALID_ADL); + } + + if (prev_sel_type == AA_COMP) + { + if (separator_copy (adl, &i, COMMA, max_adl_len) != SD_SUCCESS) + return (MVE_INVALID_ADL); + } + + if (prev_sel_type == AA_COMP_NEST) + { + if (separator_copy (adl, &i, L_BRACE, max_adl_len) != SD_SUCCESS) + return (MVE_INVALID_ADL); + } + + if ((aa->comp_name_pres) && (!info.comp_count[0])) + { + if (separator_copy (adl, &i, L_ANGLE_BRACKET, max_adl_len) != SD_SUCCESS) + return (MVE_INVALID_ADL); + if (comp_copy (adl, &i, aa->comp_name, max_adl_len) != SD_SUCCESS) + return (MVE_INVALID_ADL); + if (separator_copy (adl, &i, R_ANGLE_BRACKET, max_adl_len) != SD_SUCCESS) + return (MVE_INVALID_ADL); + } + if (comp_copy (adl, &i, aa->u.component, max_adl_len) != SD_SUCCESS) + return (MVE_INVALID_ADL); + info.comp_name_exists = SD_TRUE; + prev_sel_type = AA_COMP_NEST; + info.nest_count[y] = AA_COMP_NEST; + info.comp_count[++x] = info.nest_count[y++]; + break; + + + case AA_INDEX_NEST: + info.nest_count[y++] = AA_INDEX_NEST; + if (prev_sel_type == AA_END_NEST) + { + if (separator_copy (adl, &i, COMMA, max_adl_len) != SD_SUCCESS) + return (MVE_INVALID_ADL); + } + + if ((prev_sel_type == AA_INDEX_RANGE_NEST) || (prev_sel_type == AA_COMP_NEST) || + (prev_sel_type == AA_ALL_NEST)) + { + if (separator_copy (adl, &i, L_BRACE, max_adl_len) != SD_SUCCESS) + return (MVE_INVALID_ADL); + } + + if (prev_sel_type == AA_INDEX_NEST) + { + i--; + if (separator_copy (adl, &i, L_BRACE, max_adl_len) != SD_SUCCESS) + return (MVE_INVALID_ADL); + } + sprintf (ch, "%lu", aa->u.index); + if (strlen (ch) > MAX_IDENT_LEN) + return (MVE_INVALID_ADL); + if (comp_copy (adl, &i, ch, max_adl_len) != SD_SUCCESS) + return (MVE_INVALID_ADL); + if (separator_copy (adl, &i, R_BRACE, max_adl_len) != SD_SUCCESS) + return (MVE_INVALID_ADL); + prev_sel_type = AA_INDEX_NEST; + break; + + case AA_INDEX: + if (prev_sel_type == AA_END_NEST) + { + if (separator_copy (adl, &i, COMMA, max_adl_len) != SD_SUCCESS) + return (MVE_INVALID_ADL); + } + + if (prev_sel_type == AA_INDEX_RANGE_NEST) + { + --i; + if (separator_copy (adl, &i, L_BRACE, max_adl_len) != SD_SUCCESS) + return (MVE_INVALID_ADL); + } + if ((prev_sel_type == AA_COMP_NEST) ||(prev_sel_type == AA_ALL_NEST)) + { + if (separator_copy (adl, &i, L_BRACE, max_adl_len) != SD_SUCCESS) + return (MVE_INVALID_ADL); + } + + if (prev_sel_type == AA_INDEX_NEST) + { + i--; + if (separator_copy (adl, &i, L_BRACE, max_adl_len) != SD_SUCCESS) + return (MVE_INVALID_ADL); + } + sprintf (ch, "%lu", aa->u.index); + if (strlen (ch) > MAX_IDENT_LEN) + return (MVE_INVALID_ADL); + if (comp_copy (adl, &i, ch, max_adl_len) != SD_SUCCESS) + return (MVE_INVALID_ADL); + if (separator_copy (adl, &i, R_BRACE, max_adl_len) != SD_SUCCESS) + return (MVE_INVALID_ADL); + prev_sel_type = AA_INDEX_NEST; + break; + + case AA_INDEX_RANGE_NEST: + info.nest_count[y++] = AA_INDEX_RANGE_NEST; + case AA_INDEX_RANGE: + if (prev_sel_type == AA_INDEX_NEST) + { + i--; + if (separator_copy (adl, &i, L_BRACE, max_adl_len) != SD_SUCCESS) + return (MVE_INVALID_ADL); + } + if (prev_sel_type == AA_END_NEST) + { + if (separator_copy (adl, &i, COMMA, max_adl_len) != SD_SUCCESS) + return (MVE_INVALID_ADL); + } + if (prev_sel_type == AA_COMP_NEST) + { + if (separator_copy (adl, &i, L_BRACE, max_adl_len) != SD_SUCCESS) + return (MVE_INVALID_ADL); + } + if (prev_sel_type == AA_INDEX_RANGE_NEST) + { + i--; + if (separator_copy (adl, &i, L_BRACE, max_adl_len) != SD_SUCCESS) + return (MVE_INVALID_ADL); + } + sprintf (ch, "%lu", aa->u.ir.low_index); + if (strlen (ch) > MAX_IDENT_LEN) + return (MVE_INVALID_ADL); + if (comp_copy (adl, &i, ch, max_adl_len) != SD_SUCCESS) + return (MVE_INVALID_ADL); + if (separator_copy (adl, &i, COMMA, max_adl_len) != SD_SUCCESS) + return (MVE_INVALID_ADL); + sprintf (ch, "%lu", aa->u.ir.num_elmnts); + if (strlen (ch) > MAX_IDENT_LEN) + return (MVE_INVALID_ADL); + if (comp_copy (adl, &i, ch, max_adl_len) != SD_SUCCESS) + return (MVE_INVALID_ADL); + if (separator_copy (adl, &i, R_BRACE, max_adl_len) != SD_SUCCESS) + return (MVE_INVALID_ADL); + prev_sel_type = AA_INDEX_RANGE_NEST; + break; + + case AA_ALL_NEST: + info.nest_count[y++] = AA_ALL_NEST; + case AA_ALL: + if (prev_sel_type == AA_END_NEST) + { + if (separator_copy (adl, &i, COMMA, max_adl_len) != SD_SUCCESS) + return (MVE_INVALID_ADL); + } + if ((prev_sel_type == AA_COMP_NEST) || (prev_sel_type == AA_ALL_NEST)) + { + if (separator_copy (adl, &i, L_BRACE, max_adl_len) != SD_SUCCESS) + return (MVE_INVALID_ADL); + } + + if (separator_copy (adl, &i, ASTERISK, max_adl_len) != SD_SUCCESS) + return (MVE_INVALID_ADL); + prev_sel_type = AA_ALL_NEST; + break; + + case AA_END_NEST: + if ((prev_sel_type != AA_END_NEST) && (adl[i - 1] == R_BRACE)) + { + i--; + adl[i] = 0; + } + y--; + if (info.nest_count[y] == info.comp_count[x] && x >= 0) + info.comp_count[x--] = 0; + + lbrace_count = rbrace_count = 0; + + if (separator_copy (adl, &i, R_BRACE, max_adl_len) != SD_SUCCESS) + return (MVE_INVALID_ADL); + + if (y == 0) + { + for (temp_count = 0; (temp_count <= (&adl[i] - temp_ptr)) && + (*pCount != 0); temp_count++, pCount++) + { + if (*pCount == L_BRACE) + lbrace_count++; + if (*pCount == R_BRACE) + rbrace_count++; + } + } + + adl[i] = 0; + prev_sel_type = AA_END_NEST; + break; + default: + MLOG_NERR1("Invalid sel_type : %d", aa->sel_type); + return (MVE_INVALID_ADL); + break; + } + } + + pCount = adl; + lbrace_count = rbrace_count = 0; + + for (temp_count = 0; (temp_count <= i) && (*pCount != 0); temp_count++, pCount++) + { + if (*pCount == L_BRACE) + lbrace_count++; + if (*pCount == R_BRACE) + rbrace_count++; + } + rbrace_count = lbrace_count - rbrace_count; + for (temp_count = 0; temp_count < rbrace_count; temp_count++) + { + *pCount = R_BRACE; + pCount++; + } + *pCount = 0; + return (SD_SUCCESS); + } + +/************************************************************************/ +/* separator_copy */ +/* This function takes start of string pointer, current string pointer */ +/* the string we want to copy and max len allowed, Before we copy str */ +/* into adl[*i] we validate for the overrun */ +/************************************************************************/ +static ST_RET separator_copy (ST_CHAR *adl,ST_INT *i,ST_CHAR sep, ST_INT max_adl_len) + { + if (*i + 1 >= max_adl_len) + return (SD_FAILURE); + adl[*i] = sep; + *i += 1; + adl[*i] = 0; /* Insure end of string is recognized */ + return (SD_SUCCESS); + } +/************************************************************************/ + +/************************************************************************/ +static ST_RET comp_copy (ST_CHAR *adl,ST_INT *i,ST_CHAR *comp, ST_INT max_adl_len) + { +ST_INT comp_len; + + comp_len = strlen (comp); + if (*i + comp_len + 1 >= max_adl_len) + return (SD_FAILURE); + strcpy (&adl[*i], comp); + *i += comp_len; + return (SD_SUCCESS); + } + +/************************************************************************/ +/* ms_adl_to_asn1_2 */ +/* Function to parse ADL (Alternate Access Definition Language) and */ +/* generate the ASN.1 encoding of the Alternate Access Definition. */ +/* NOTE: Suffix (_2) is just to avoid naming conflict with older funct. */ +/* NOTE: this function is thread-safe as long as the encode buffer */ +/* passed as arg (buf_ptr) is not being used by another thread. */ +/************************************************************************/ +ST_RET ms_adl_to_asn1_2 (ST_CHAR *pAdl, /* ADL string to be encoded */ + ST_UCHAR *buf_ptr, /* buffer in which to encode */ + ST_INT buf_len, /* buffer length */ + ST_UCHAR **asn1_ptr_out, /* ptr to ptr to encoded data */ + ST_INT *asn1_len_out) /* ptr to encoded length */ + { +ALT_ACCESS stAltAcc; +ST_RET retcode; + + /* First, convert from ADL string to ALT_ACCESS structure. */ + /* NOTE: if successful, this allocates "stAltAcc.aa". Be sure to free it.*/ + retcode = ms_adl_to_aa(pAdl, &stAltAcc); /* get ALT_ACCESS */ + if (retcode == SD_SUCCESS) + { + /* Next, convert from ALT_ACCESS structure to ASN.1 encoding. */ + retcode = ms_aa_to_asn1_2 (&stAltAcc, buf_ptr, buf_len, + asn1_ptr_out, asn1_len_out); + chk_free (stAltAcc.aa); /* free array allocated by ms_adl_to_aa */ + } + return (retcode); + } diff --git a/mmslib/mmsl/mms_alta.c b/mmslib/mmsl/mms_alta.c new file mode 100644 index 0000000..aac2358 --- /dev/null +++ b/mmslib/mmsl/mms_alta.c @@ -0,0 +1,934 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2006, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : mms_alta.c */ +/* PRODUCT(S) : MMSEASE */ +/* */ +/* MODULE DESCRIPTION : */ +/* Function to decode ASN.1 type definitions into Runtime typedefs */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 08/09/06 JRB 20 Add ms_aa_to_asn1_2. */ +/* 02/22/05 JRB 19 Make "sp" local to avoid VXWORKS conflict. */ +/* 02/06/02 JRB 18 Move ms_mk_rt_aa* to new mms_rtaa.c. */ +/* 12/20/01 JRB 17 Converted to use ASN1R (re-entrant ASN1) */ +/* 11/15/01 EJV 16 Added support for new MMS type UtcTime: */ +/* find_named_comp: added case for RT_UTC_TIME; */ +/* _ms_log_runtime_aa: add case for RT_UTC_TIME;*/ +/* 09/26/00 JRB 15 Add SD_CONST on ms_mk_rt_aa* */ +/* 07/28/00 JRB 14 Use ms_comp_name_find for everyone. */ +/* 07/13/00 JRB 13 Use new ms_comp_name_find for MMS LITE. */ +/* 04/28/00 JRB 12 Lint cleanup */ +/* 09/13/99 RKR 11 Respaced a macro for the install utility */ +/* 09/13/99 MDE 10 Added SD_CONST modifiers */ +/* 07/30/99 MDE 09 Replaced CSTR_DONE_FUN macro use */ +/* 09/21/98 MDE 08 Minor lint cleanup */ +/* 09/10/98 MDE 07 Changes to work better with MMS-LITE */ +/* 06/15/98 MDE 06 Changes to allow compile under C++ */ +/* 03/12/98 MDE 05 '_ms_m_get_rt_info' use change */ +/* 03/11/98 MDE 04 Removed NEST_RT_TYPES */ +/* 02/10/98 MDE 03 No longer use runtime type 'loops' element */ +/* rearranged for MMS-LITE (MMS_ALTA_DATA) */ +/* 12/29/97 MDE 02 Corrected LOCK/UNLOCK problems */ +/* 06/09/97 MDE 01 Modified Runtime Type handling */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" + +#include "mmsdefs.h" +#include "mms_pvar.h" +#include "mms_vvar.h" +#include "asn1defs.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ + +static ST_RET wr_altAcc (ASN1_ENC_CTXT *aCtx, ALT_ACC_EL **aap, ALT_ACC_EL *last_aa); +static ST_RET wr_altAccSel (ASN1_ENC_CTXT *aCtx, ALT_ACC_EL **aap, ALT_ACC_EL *last_aa); +static ALT_ACC_EL *find_start_aa_nest (ALT_ACC_EL *aa, ALT_ACC_EL *last_aa); +static ST_VOID alt_acc_seq_start (ASN1_DEC_CTXT *aCtx); +static ST_VOID alt_acc_seq_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID add_alt_acc_tags (ASN1_DEC_CTXT *aCtx); +static ST_VOID named_start (ASN1_DEC_CTXT *aCtx); +static ST_VOID get_component_name (ASN1_DEC_CTXT *aCtx); +static ST_VOID named_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID sel_acc_comp (ASN1_DEC_CTXT *aCtx); +static ST_VOID sel_acc_index (ASN1_DEC_CTXT *aCtx); +static ST_VOID sel_acc_index_range (ASN1_DEC_CTXT *aCtx); +static ST_VOID sel_acc_ir_low (ASN1_DEC_CTXT *aCtx); +static ST_VOID sel_acc_ir_num (ASN1_DEC_CTXT *aCtx); +static ST_VOID sel_acc_ir_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID sel_acc_all (ASN1_DEC_CTXT *aCtx); +static ST_VOID sel_alt_acc (ASN1_DEC_CTXT *aCtx); +static ST_VOID sel_alt_acc_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID sel_alt_acc_comp (ASN1_DEC_CTXT *aCtx); +static ST_VOID sel_alt_acc_index (ASN1_DEC_CTXT *aCtx); +static ST_VOID sel_alt_acc_index_range (ASN1_DEC_CTXT *aCtx); +static ST_VOID sel_alt_acc_ir_low (ASN1_DEC_CTXT *aCtx); +static ST_VOID sel_alt_acc_ir_num (ASN1_DEC_CTXT *aCtx); +static ST_VOID sel_alt_acc_ir_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID sel_alt_acc_all (ASN1_DEC_CTXT *aCtx); +static ST_VOID alt_acc_dec_done_ok (ASN1_DEC_CTXT *aCtx); +static ST_VOID inc_dest_aa (ASN1_DEC_CTXT *aCtx); + +/************************************************************************/ +/************************************************************************/ +/* Static internal variables, used during decode */ + +static ALT_ACC_EL *dest_aa; +static ALT_ACC_EL *end_dest_aa; + +/************************************************************************/ +/************************************************************************/ +/* ms_asn1_to_aa */ +/* Convert an ASN.1 encoded AA to an array of 'ALT_ACC_EL' */ +/* Allocates an array of 'm_max_dec_aa' elements, using chk_calloc, */ +/* does not realloc to correct size. */ +/************************************************************************/ + + +ST_RET ms_asn1_to_aa (ST_UCHAR *asn1ptr, ST_INT asn1len, ALT_ACCESS *alt_acc_out) + { +ALT_ACC_EL *dest_aa_head; +ASN1_DEC_CTXT localDecCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_DEC_CTXT *aCtx = &localDecCtx; + + memset (aCtx, 0, sizeof (ASN1_DEC_CTXT)); /* CRITICAL: start clean. */ + + S_LOCK_COMMON_RESOURCES (); + +/* Allocate the output AA array */ + dest_aa = (ALT_ACC_EL *) chk_calloc (m_max_dec_aa, sizeof (ALT_ACC_EL)); + end_dest_aa = dest_aa + (m_max_dec_aa -1); + dest_aa_head = dest_aa; + +/* Set up ASN.1 decode tools */ + aCtx->asn1r_decode_method = ASN1_TAG_METHOD; /* select tag method */ + aCtx->asn1r_decode_done_fun = asn1r_done_err;/* not legal to be done at this time */ + aCtx->asn1r_err_fun = NULL; + +/* We are using an alternate entry point into the ASN.1 decode, where */ +/* the outer tag is not required. */ + + add_alt_acc_tags (aCtx); + aCtx->asn1r_c_done_fun[0] = NULL; + aCtx->asn1r_decode_done_fun = alt_acc_dec_done_ok; + asn1r_decode_asn1_seq (aCtx, asn1ptr, asn1len); /* decode ASN.1 'Data' entity */ + + if (aCtx->asn1r_pdu_dec_err != NO_DECODE_ERR) /* check for sucess or return error */ + { + chk_free (dest_aa_head); + MLOG_NERR0 ("ASN.1 to AA Decode Error"); + S_UNLOCK_COMMON_RESOURCES (); + return (MVE_DATA_CONVERT); + } + + alt_acc_out->aa = dest_aa_head; + alt_acc_out->num_aa = dest_aa - dest_aa_head; + +/* Log the alternate access, if selected */ + if (mms_debug_sel & MMS_LOG_AA) + ms_log_alt_access (alt_acc_out); + +/* save the high water mark */ + if (alt_acc_out->num_aa > m_hw_dec_aa) + m_hw_dec_aa = alt_acc_out->num_aa; + + S_UNLOCK_COMMON_RESOURCES (); + return (SD_SUCCESS); + } + +/************************************************************************/ +/* alt_acc_seq_start */ +/* This function is called whe the outer UNI SEQ constructor of the */ +/* AlternateAcess is found. Used only for continuing the decode for a */ +/* nested AA spec, as the outer constructor is stripped */ +/************************************************************************/ + +static ST_VOID alt_acc_seq_start (ASN1_DEC_CTXT *aCtx) + { + add_alt_acc_tags (aCtx); + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = alt_acc_seq_cstr_done; + } + + +/************************************************************************/ +/* alt_acc_seq_cstr_done */ +/************************************************************************/ + +static ST_VOID alt_acc_seq_cstr_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("alt_acc_seq_cstr_done"); + } + +/************************************************************************/ +/************************************************************************/ +/* add_alt_acc_tags */ +/* Add appropriate tags for the outer 'AlternateAccess' */ +/************************************************************************/ + +static ST_VOID add_alt_acc_tags (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, sel_alt_acc); + ASN1R_TAG_ADD (aCtx, CTX, 1, sel_acc_comp); + ASN1R_TAG_ADD (aCtx, CTX, 2, sel_acc_index); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 3, sel_acc_index_range); + ASN1R_TAG_ADD (aCtx, CTX, 4, sel_acc_all); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 5, named_start); + } + +/************************************************************************/ +/* named_start */ +/* Constructor for the 'named' element of the 'AlternateAccess' */ +/************************************************************************/ + +static ST_VOID named_start (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("named_start"); + ASN1R_TAG_ADD (aCtx, CTX, 0, get_component_name); + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = named_cstr_done; + } + +/************************************************************************/ +/* get_component_name */ +/* The 'componentName' element of the 'named' element */ +/************************************************************************/ + +static ST_VOID get_component_name (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("get_component_name"); + if (asn1r_get_identifier (aCtx, dest_aa->comp_name)) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + else + { + dest_aa->comp_name_pres = SD_TRUE; + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, sel_alt_acc); + ASN1R_TAG_ADD (aCtx, CTX, 1, sel_acc_comp); + ASN1R_TAG_ADD (aCtx, CTX, 2, sel_acc_index); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 3, sel_acc_index_range); + ASN1R_TAG_ADD (aCtx, CTX, 4, sel_acc_all); + } + } + +/************************************************************************/ +/* named_cstr_done */ +/* End of 'named' constructor */ +/************************************************************************/ + +static ST_VOID named_cstr_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("named_cstr_done"); + add_alt_acc_tags (aCtx); + } + + +/************************************************************************/ +/* sel_acc_comp */ +/* The 'component' of the 'selectAccess' has been encountered */ +/************************************************************************/ + +static ST_VOID sel_acc_comp (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("sel_acc_comp"); + if (asn1r_get_identifier (aCtx, dest_aa->u.component)) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + else + { + dest_aa->sel_type = AA_COMP; + inc_dest_aa (aCtx); + add_alt_acc_tags (aCtx); + } + } + +/************************************************************************/ +/* sel_acc_index */ +/* The 'index' of the 'selectAccess' has been encountered */ +/************************************************************************/ + +static ST_VOID sel_acc_index (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("sel_acc_index"); + if (asn1r_get_u32 (aCtx, &dest_aa->u.index)) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + else + { + dest_aa->sel_type = AA_INDEX; + inc_dest_aa (aCtx); + add_alt_acc_tags (aCtx); + } + } + +/************************************************************************/ +/* sel_acc_index_range */ +/* The 'indexRange' of the 'selectAccess' has been encountered */ +/************************************************************************/ + +static ST_VOID sel_acc_index_range (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("sel_acc_index_range"); + + dest_aa->sel_type = AA_INDEX_RANGE; + ASN1R_TAG_ADD (aCtx, CTX,0, sel_acc_ir_low); + } + + +/************************************************************************/ +/* sel_acc_ir_low */ +/* The 'low_index' of the 'indexRange' has been encountered */ +/************************************************************************/ + +static ST_VOID sel_acc_ir_low (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("sel_acc_ir_low"); + if (asn1r_get_u32 (aCtx, &dest_aa->u.ir.low_index)) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + else + { + ASN1R_TAG_ADD (aCtx, CTX, 1, sel_acc_ir_num); + } + } + +/************************************************************************/ +/* sel_acc_ir_num */ +/* The 'numberOfElements' of the 'indexRange' has been encountered */ +/************************************************************************/ + +static ST_VOID sel_acc_ir_num (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("sel_acc_ir_num"); + if (asn1r_get_u32 (aCtx, &dest_aa->u.ir.num_elmnts)) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + else + { + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = sel_acc_ir_cstr_done; + } + } + +/************************************************************************/ +/* sel_acc_ir_cstr_done */ +/* End of the 'indexRange' constructor */ +/************************************************************************/ + +static ST_VOID sel_acc_ir_cstr_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("sel_acc_ir_cstr_done"); + inc_dest_aa (aCtx); + add_alt_acc_tags (aCtx); + } + + +/************************************************************************/ +/* sel_acc_all */ +/* The 'allElements' of the 'selectAccess' has been encountered */ +/************************************************************************/ + +static ST_VOID sel_acc_all (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("sel_acc_all"); + dest_aa->sel_type = AA_ALL; + inc_dest_aa (aCtx); + add_alt_acc_tags (aCtx); + } + + +/************************************************************************/ +/************************************************************************/ +/* sel_alt_acc */ +/* The 'selectAlternateAccess' constructor has been encountered */ +/************************************************************************/ + +static ST_VOID sel_alt_acc (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("sel_alt_acc"); + + ASN1R_TAG_ADD (aCtx, CTX, 0, sel_alt_acc_comp); + ASN1R_TAG_ADD (aCtx, CTX, 1, sel_alt_acc_index); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 2, sel_alt_acc_index_range); + ASN1R_TAG_ADD (aCtx, CTX, 3, sel_alt_acc_all); + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = sel_alt_acc_cstr_done; + } + + +/************************************************************************/ +/* sel_alt_acc_cstr_done */ +/* End of the 'selectAlternateAccess' constructor */ +/************************************************************************/ + +static ST_VOID sel_alt_acc_cstr_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("sel_alt_acc_cstr_done"); + dest_aa->sel_type = AA_END_NEST; + inc_dest_aa (aCtx); + add_alt_acc_tags (aCtx); + } + +/************************************************************************/ +/* sel_alt_acc_comp */ +/* The 'component' of the 'selectAlternateAccesss' has been encountered */ +/************************************************************************/ + +static ST_VOID sel_alt_acc_comp (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("sel_alt_acc_comp"); + if (asn1r_get_identifier (aCtx, dest_aa->u.component)) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + else + { + dest_aa->sel_type = AA_COMP_NEST; + inc_dest_aa (aCtx); + ASN1R_TAG_ADD (aCtx, UNI | CONSTR, SEQ_CODE, alt_acc_seq_start); + } + } + +/************************************************************************/ +/* sel_alt_acc_index */ +/* The 'index' of the 'selectAlternateAccesss' has been encountered */ +/************************************************************************/ + +static ST_VOID sel_alt_acc_index (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("sel_alt_acc_index"); + if (asn1r_get_u32 (aCtx, &dest_aa->u.index)) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + else + { + dest_aa->sel_type = AA_INDEX_NEST; + inc_dest_aa (aCtx); + ASN1R_TAG_ADD (aCtx, UNI | CONSTR, SEQ_CODE, alt_acc_seq_start); + } + } + +/************************************************************************/ +/* sel_alt_acc_index_range */ +/* The 'indexRange' of 'selectAlternateAccesss' has been encountered */ +/************************************************************************/ + +static ST_VOID sel_alt_acc_index_range (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("sel_alt_acc_index_range"); + dest_aa->sel_type = AA_INDEX_RANGE_NEST; + ASN1R_TAG_ADD (aCtx, CTX,0, sel_alt_acc_ir_low); + } + + +/************************************************************************/ +/* sel_alt_acc_ir_low */ +/* The 'low_index' of the 'indexRange' has been encountered */ +/************************************************************************/ + +static ST_VOID sel_alt_acc_ir_low (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("sel_alt_acc_ir_low"); + if (asn1r_get_u32 (aCtx, &dest_aa->u.ir.low_index)) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + else + { + ASN1R_TAG_ADD (aCtx, CTX, 1, sel_alt_acc_ir_num); + } + } + +/************************************************************************/ +/* sel_alt_acc_ir_num */ +/* The 'numberOfElements' of the 'indexRange' has been encountered */ +/************************************************************************/ + +static ST_VOID sel_alt_acc_ir_num (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("sel_alt_acc_ir_num"); + if (asn1r_get_u32 (aCtx, &dest_aa->u.ir.num_elmnts)) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + else + { + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = sel_alt_acc_ir_cstr_done; + } + } + +/************************************************************************/ +/* sel_alt_acc_ir_cstr_done */ +/* End of the 'indexRange' constructor */ +/************************************************************************/ + +static ST_VOID sel_alt_acc_ir_cstr_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("sel_alt_acc_ir_cstr_done"); + inc_dest_aa (aCtx); + ASN1R_TAG_ADD (aCtx, UNI | CONSTR, SEQ_CODE, alt_acc_seq_start); + } + + +/************************************************************************/ +/* sel_alt_acc_all */ +/* The 'allElements' of 'selectAlternateAccesss' has been encountered */ +/************************************************************************/ + +static ST_VOID sel_alt_acc_all (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("sel_alt_acc_all"); + dest_aa->sel_type = AA_ALL_NEST; + inc_dest_aa (aCtx); + ASN1R_TAG_ADD (aCtx, UNI | CONSTR, SEQ_CODE, alt_acc_seq_start); + } + + +/************************************************************************/ +/* inc_dest_aa */ +/* Increment the destination AA pointer, verify no overrun */ +/************************************************************************/ + +static ST_VOID inc_dest_aa (ASN1_DEC_CTXT *aCtx) + { + if (++dest_aa > end_dest_aa) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + } + +/************************************************************************/ +/* alt_acc_dec_done_ok */ +/* 'decode done fun' for the ASN.1 to AA decode */ +/************************************************************************/ + +static ST_VOID alt_acc_dec_done_ok (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("alt_dec_done_ok"); + } + +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ +/* ms_aa_to_asn1 */ +/* Encode Alternate Access, assume that the encode tools have been */ +/* initalized */ +/* NOTE: The higher level function "ms_aa_to_asn1_2" is more convenient.*/ +/* Call this directly only if "AA" encode is in the middle of a */ +/* larger encode. */ +/************************************************************************/ + +static ST_INT encodeDone; + +ST_RET ms_aa_to_asn1 (ASN1_ENC_CTXT *aCtx, ALT_ACCESS *alt_acc) + { +ALT_ACC_EL *aa; +ALT_ACC_EL *last_aa; +ST_RET ret; + + S_LOCK_COMMON_RESOURCES (); + aa = alt_acc->aa; + last_aa = aa; /* save pointer to aa[0] */ + aa += (alt_acc->num_aa-1); /* go from bottom to top */ + +/* Write the AlternateAccess 'Seq Of Choice' elements until we have */ +/* gone through all AA elements */ + ret = SD_SUCCESS; + encodeDone = SD_FALSE; + while (!encodeDone && ret == SD_SUCCESS) + { + if (aa == last_aa) + encodeDone = SD_TRUE; + ret = wr_altAcc (aCtx, &aa, last_aa); + } + +/* Verify no asn.1 encode buffer overrun */ + if (aCtx->asn1r_encode_overrun) + { + MLOG_NERR0 ("AA to ASN.1 : buffer overrun"); + ret = ME_ASN1_ENCODE_OVERRUN; + } + + S_UNLOCK_COMMON_RESOURCES (); + return (ret); + } + +/************************************************************************/ +/* wr_altAcc */ +/************************************************************************/ + +/* NOTE : This function is entered recursively to encode parts of the */ +/* AlternateAccess */ + +static ST_RET wr_altAcc (ASN1_ENC_CTXT *aCtx, ALT_ACC_EL **aap, ALT_ACC_EL *last_aa) + { +ALT_ACC_EL *aa; +ALT_ACC_EL *aa_start_nest; +ST_RET ret; + +/* get a working pointer */ + aa = *aap; + +/* Write the AlternateAccess sequence of choice element */ + +/* First need to see if this is the start of a named component, so */ +/* we can start the constructor if so */ + +/* If this is a nested AA element, need to find the start element */ + if (aa->sel_type == AA_END_NEST) + { + aa_start_nest = find_start_aa_nest (aa, last_aa); + if (!aa_start_nest) + { + MLOG_NERR0 ("AA to ASN.1 : Bad AA"); + return (MVE_AA_SELECT); + } + + if (aa_start_nest->comp_name_pres) + asn1r_strt_constr (aCtx); /* Start 'named' seq cstr */ + } + else /* not the start of a nested */ + { + if (aa->comp_name_pres) + asn1r_strt_constr (aCtx); /* Start 'named' seq cstr */ + } + +/* OK, if this was a named component, the constructor has been started */ +/* Go ahead and write the AlternateAccessSelection element */ + + ret = wr_altAccSel (aCtx, &aa, last_aa); /* write the altAccSel */ + + *aap = aa; + return (ret); + } + + +/************************************************************************/ +/* wr_altAccSel */ +/************************************************************************/ + +/* NOTE : This function is entered recursively to encode parts of the */ +/* AlternateAccess */ + +static ST_RET wr_altAccSel (ASN1_ENC_CTXT *aCtx, ALT_ACC_EL **aap, ALT_ACC_EL *last_aa) + { +ALT_ACC_EL *aa; +ALT_ACC_EL *aa_start_nest; +ST_RET ret; + + ret = SD_SUCCESS; + aa = *aap; /* get working pointer */ + switch (aa->sel_type) + { + case AA_COMP : + asn1r_wr_vstr (aCtx, aa->u.component); + asn1r_fin_prim (aCtx, 1,CTX); + break; + + case AA_INDEX : + asn1r_wr_u32 (aCtx, aa->u.index); + asn1r_fin_prim (aCtx, 2,CTX); + break; + + case AA_INDEX_RANGE : + asn1r_strt_constr (aCtx); + asn1r_wr_u32 (aCtx, aa->u.ir.num_elmnts); + asn1r_fin_prim (aCtx, 1,CTX); + asn1r_wr_u32 (aCtx, aa->u.ir.low_index); + asn1r_fin_prim (aCtx, 0,CTX); + asn1r_fin_constr (aCtx, 3,CTX,DEF); + break; + + case AA_ALL : + asn1r_fin_prim (aCtx, 4,CTX); + break; + + case AA_END_NEST : + + /* First we need to find the NEST START element so that we can */ + /* encode all elements on this level before returning, so that we */ + /* can add the outer constructor */ + + aa_start_nest = find_start_aa_nest (aa, last_aa); + if (!aa_start_nest) + { + MLOG_NERR0 ("AA to ASN.1 : Bad AA"); + return (MVE_AA_SELECT); + } + + asn1r_strt_constr (aCtx); /* Start SelectAlternateAccess constructor */ + asn1r_strt_constr (aCtx); /* Start outer AlternateAccess constructor */ + --aa; /* Begin with next element */ + while (aa != aa_start_nest) + { + ret = wr_altAcc (aCtx, &aa, last_aa); /* wr_altAcc will decrement aa */ + if (aa == last_aa) + encodeDone = SD_TRUE; + + if (ret != SD_SUCCESS) + return (ret); + } + asn1r_fin_constr (aCtx, SEQ_CODE,UNI,DEF); /* Outer AlternateAccess cstr */ + + /* Now write the accessSelection */ + switch (aa->sel_type) + { + case AA_COMP_NEST : + asn1r_wr_vstr (aCtx, aa->u.component); + asn1r_fin_prim (aCtx, 0,CTX); + break; + + case AA_INDEX_NEST : + asn1r_wr_u32 (aCtx, aa->u.index); + asn1r_fin_prim (aCtx, 1,CTX); + break; + + case AA_INDEX_RANGE_NEST : + asn1r_strt_constr (aCtx); + asn1r_wr_u32 (aCtx, aa->u.ir.num_elmnts); + asn1r_fin_prim (aCtx, 1,CTX); + asn1r_wr_u32 (aCtx, aa->u.ir.low_index); + asn1r_fin_prim (aCtx, 0,CTX); + asn1r_fin_constr (aCtx, 2,CTX,DEF); + break; + + case AA_ALL_NEST : + asn1r_fin_prim (aCtx, 3,CTX); + break; + } + + /* Finish the accessSelection constructor */ + asn1r_fin_constr (aCtx, 0,CTX,DEF); + break; + + /* These should never be encountered at this level */ + case AA_COMP_NEST : + case AA_INDEX_NEST : + case AA_INDEX_RANGE_NEST : + case AA_ALL_NEST : + default : + MLOG_NERR0 ("AA to ASN.1 : Bad AA sel_type value"); + return SD_FAILURE; + break; + } + + +/* For the elements that are not 'end nest', add the 'named' element */ +/* as required */ + + if (aa->sel_type != AA_END_NEST) + { + if (aa->comp_name_pres) + { + asn1r_wr_vstr (aCtx, aa->comp_name); /* Write the name */ + asn1r_fin_prim (aCtx, 0,CTX); + asn1r_fin_constr (aCtx, 5,CTX,DEF); /* Finish the 'named' cstr */ + } + } + + if (aa > last_aa) + --aa; + *aap = aa; + return (ret); + } + + +/************************************************************************/ +/* find_start_aa_nest */ +/************************************************************************/ + +static ALT_ACC_EL *find_start_aa_nest (ALT_ACC_EL *aa, + ALT_ACC_EL *last_aa) + { +ALT_ACC_EL *aa2; +ST_INT nest; + + aa2 = aa-1; /* Start with the element above */ + nest = 0; /* keep track of nesting level */ + while (SD_TRUE) + { + if (aa2->sel_type == AA_COMP_NEST || + aa2->sel_type == AA_INDEX_NEST || + aa2->sel_type == AA_INDEX_RANGE_NEST || + aa2->sel_type == AA_ALL_NEST) + { + if (nest == 0) /* we found the matching start nest */ + break; + + --nest; /* point to the next above element */ + if (nest < 0) /* sanity check - users make this tbl */ + { + return (NULL); + } + } + else /* not a start nest element, check to */ + { /* see if we are nesting further */ + if (aa2->sel_type == AA_END_NEST) + nest++; + } + + /* OK, we did not find the start element for the end nest, look */ + /* some more */ + if (aa2 == last_aa) /* sanity check - users make this tbl */ + { + MLOG_NERR0 ("AA to ASN.1 : Bad AA"); + return (NULL); + } + --aa2; + } + return (aa2); + } + +/************************************************************************/ +/* ms_log_alt_access */ +/************************************************************************/ + +ST_VOID ms_log_alt_access (ALT_ACCESS *alt_acc) + { +#ifdef DEBUG_SISCO +ALT_ACC_EL *aa; +ST_INT num_aa; +ST_INT i; +ST_INT indent; +/* Use these strings to keep logging aligned and indented as desired */ +#define MAX_INDENT 5 +SD_CONST ST_CHAR *sp[MAX_INDENT] = + { + " ", + " ", + " ", + " ", + " ", + }; +SD_CONST ST_CHAR *sp2[MAX_INDENT] = + { + " ", + " ", + " ", + " ", + "", + }; + + S_LOCK_COMMON_RESOURCES (); + aa = alt_acc->aa; + num_aa = alt_acc->num_aa; + indent = 0; + MLOG_ALWAYS1 ("Alternate Access : %d elements", num_aa); + + for (i = 0; i < num_aa; ++i, ++aa) + { + if (aa->comp_name_pres) + { + MLOG_CALWAYS3 ("%sNamed %s: %s", + sp[indent], + sp2[indent], + aa->comp_name); + } + + switch (aa->sel_type) + { + case AA_COMP : + MLOG_CALWAYS3 ("%sComp %s: %s", + sp[indent], + sp2[indent], + aa->u.component); + break; + case AA_INDEX : + MLOG_CALWAYS3 ("%sIndex %s: %ld", + sp[indent], + sp2[indent], + aa->u.index); + if (--indent < 0) + indent++; + break; + case AA_INDEX_RANGE : + MLOG_CALWAYS4 ("%sIndex Range%s: Low = %ld, Num = %ld", + sp[indent], + sp2[indent], + aa->u.ir.low_index, + aa->u.ir.num_elmnts); + if (--indent < 0) + indent++; + break; + case AA_ALL : + MLOG_CALWAYS2 ("%sAll %s:", + sp[indent], + sp2[indent]); + if (--indent < 0) + indent++; + break; + case AA_ALL_NEST : + MLOG_CALWAYS2 ("%sAll Nest %s:", + sp[indent], + sp2[indent]); + if (++indent >= MAX_INDENT) + indent--; + break; + case AA_COMP_NEST : + MLOG_CALWAYS3 ("%sComp Nest %s: %s", + sp[indent], + sp2[indent], + aa->u.component); + if (++indent >= MAX_INDENT) + indent--; + break; + case AA_INDEX_NEST : + MLOG_CALWAYS3 ("%sIndex Nest %s: %ld", + sp[indent], + sp2[indent], + aa->u.index); + if (++indent >= MAX_INDENT) + indent--; + break; + case AA_INDEX_RANGE_NEST : + MLOG_CALWAYS4 ("%sRange Nest %s: Low = %ld, Num = %ld", + sp[indent], + sp2[indent], + aa->u.ir.low_index, + aa->u.ir.num_elmnts); + if (++indent >= MAX_INDENT) + indent--; + break; + case AA_END_NEST : + MLOG_CALWAYS2 ("%sEnd Nest %s:", + sp[indent], + sp2[indent]); + if (--indent < 0) + indent++; + break; + + default : /* should not be any other tag */ + MLOG_CALWAYS1 (" **** UNKNOWN ELEMENT %02d ",i); + break; + } + } + S_UNLOCK_COMMON_RESOURCES (); +#endif + } + +/************************************************************************/ +/* ms_aa_to_asn1_2 */ +/************************************************************************/ +ST_RET ms_aa_to_asn1_2 (ALT_ACCESS *alt_acc, /* info to be encoded */ + ST_UCHAR *buf_ptr, /* buffer in which to encode */ + ST_INT buf_len, /* buffer length */ + ST_UCHAR **asn1_ptr_out, /* ptr to ptr to encoded data */ + ST_INT *asn1_len_out) /* ptr to encoded length */ + { +ASN1_ENC_CTXT aCtx; +ST_RET retcode; + + asn1r_strt_asn1_bld (&aCtx, buf_ptr, buf_len); /* start build*/ + retcode = ms_aa_to_asn1 (&aCtx, alt_acc); + if (retcode == SD_SUCCESS) + { + *asn1_ptr_out = ASN1_ENC_PTR(&aCtx); + *asn1_len_out = ASN1_ENC_LEN(&aCtx); + } + return (retcode); + } diff --git a/mmslib/mmsl/mms_aref.c b/mmslib/mmsl/mms_aref.c new file mode 100644 index 0000000..ff7c238 --- /dev/null +++ b/mmslib/mmsl/mms_aref.c @@ -0,0 +1,390 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2005, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : mms_aref.c */ +/* PRODUCT(S) : MMS-EASE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains functions for encoding and decoding and the */ +/* general manipulation of Application References. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/04/05 EJV 07 MMSEASE: needs suicscse.h. */ +/* 02/28/05 EJV 05 Elim Linux warnings in if (a=b) */ +/* 03/28/05 JRB 05 Del suicacse header. */ +/* 03/11/04 GLB 04 Cleaned up "thisFileName" */ +/* 12/20/01 JRB 03 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 02 Added SD_CONST modifiers */ +/* 07/29/97 DSF 01 Moved some of this functionality to SUIC */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#include "glbtypes.h" + +#include "sysincs.h" +#include "glbsem.h" + +#include "mmsdefs.h" +#include "mms_pcon.h" +#include "asn1defs.h" +#ifndef MMS_LITE +#include "suicacse.h" +#endif + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#if defined(DEBUG_SISCO) && defined(S_MT_SUPPORT) +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +static APP_REF *ar_fill_ptr; + +static ST_VOID ap_title_strt (ASN1_DEC_CTXT *aCtx); +static ST_VOID ap_invoke_strt (ASN1_DEC_CTXT *aCtx); +static ST_VOID ae_qual_strt (ASN1_DEC_CTXT *aCtx); +static ST_VOID ae_invoke_strt (ASN1_DEC_CTXT *aCtx); +static ST_VOID ar_ref_asn1_decode_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID ae_invoke_get (ASN1_DEC_CTXT *aCtx); +static ST_VOID ae_qual_cnstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID ae_qual_get (ASN1_DEC_CTXT *aCtx); +static ST_VOID ap_invoke_cnstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID ap_invoke_get (ASN1_DEC_CTXT *aCtx); +static ST_VOID ap_cnstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID ap_title_get (ASN1_DEC_CTXT *aCtx); +static ST_VOID ar_cnstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID ar_ref_strt (ASN1_DEC_CTXT *aCtx); + +/**************************************************************************/ +/* ms_appref_to_asn1 */ +/* Function to convert from an intermediate for of an ApplicationReference*/ +/* to ASN.1. Function only supports FORM_2 of and ApplicationReference */ +/**************************************************************************/ + +ST_RET ms_appref_to_asn1 (APP_REF *ar_ref_ptr, ST_UCHAR *build_buf_ptr, + ST_INT build_buf_len, ST_UCHAR **ret_ptr, + ST_INT *ret_len) + { +ST_INT ret_val; +ASN1_ENC_CTXT localEncCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_ENC_CTXT *aCtx = &localEncCtx; + + S_LOCK_COMMON_RESOURCES (); + if (ar_ref_ptr->form == APP_REF_FORM2) + { + asn1r_strt_asn1_bld (aCtx, build_buf_ptr,build_buf_len); + asn1r_strt_constr (aCtx); + + if (ar_ref_ptr->ae_invoke_pres) + { + asn1r_strt_constr (aCtx); + asn1r_wr_i32 (aCtx, ar_ref_ptr->ae_invoke); + asn1r_fin_prim (aCtx, INT_CODE,UNI); + asn1r_fin_constr (aCtx, 3,CTX,DEF); + } + + if (ar_ref_ptr->ae_qual_pres) + { + asn1r_strt_constr (aCtx); + asn1r_wr_i32 (aCtx, ar_ref_ptr->ae_qual.form_2); + asn1r_fin_prim (aCtx, INT_CODE,UNI); + asn1r_fin_constr (aCtx, 2,CTX,DEF); + } + + if (ar_ref_ptr->ap_invoke_pres) + { + asn1r_strt_constr (aCtx); + asn1r_wr_i32 (aCtx, ar_ref_ptr->ap_invoke); + asn1r_fin_prim (aCtx, INT_CODE,UNI); + asn1r_fin_constr (aCtx, 1,CTX,DEF); + } + + if ((ar_ref_ptr->ap_title.form_2.num_comps) && + (ar_ref_ptr->ap_title_pres)) + { + asn1r_strt_constr (aCtx); + asn1r_wr_objid (aCtx, &ar_ref_ptr->ap_title.form_2.comps[0], + ar_ref_ptr->ap_title.form_2.num_comps); + asn1r_fin_prim (aCtx, OBJ_ID_CODE,UNI); + asn1r_fin_constr (aCtx, 0,CTX,DEF); + } + + asn1r_fin_constr (aCtx, SEQ_CODE,UNI,DEF); + + *ret_ptr = aCtx->asn1r_field_ptr+1; + *ret_len = (&build_buf_ptr[build_buf_len] - aCtx->asn1r_field_ptr -1) & 0xffff; + ret_val = SD_SUCCESS; + } + else /* not form 2 */ + ret_val = MVE_BAD_APP_REF_FORM; + +/* Check for encode overrun */ + if (aCtx->asn1r_encode_overrun) + ret_val = ME_ASN1_ENCODE_OVERRUN; + + S_UNLOCK_COMMON_RESOURCES (); + return (ret_val); + } + + +/************************************************************************/ +/* DECODE FUNCTIONS FOR APPLICATION REFERENCE */ +/* ms_asn1_to_appref */ +/* Function to convert an ASN.1 encoded ApplicationReference to an */ +/* intermediate form. These decode functions only support FORM_2 */ +/************************************************************************/ + +ST_RET ms_asn1_to_appref (APP_REF *ar_ref_ptr, ST_UCHAR *buf_ptr, ST_INT buf_len) + { +ST_RET ret; +ASN1_DEC_CTXT localDecCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_DEC_CTXT *aCtx = &localDecCtx; + + memset (aCtx, 0, sizeof (ASN1_DEC_CTXT)); /* CRITICAL: start clean. */ + S_LOCK_COMMON_RESOURCES (); + ar_fill_ptr = ar_ref_ptr; + if (*buf_ptr == (CONSTR | SEQ_CODE)) + ar_fill_ptr->form = APP_REF_FORM2; + else + ar_fill_ptr->form = APP_REF_FORM1; + ar_fill_ptr->ap_title.form_2.num_comps = 0; + ar_fill_ptr->ap_invoke_pres = SD_FALSE; + ar_fill_ptr->ae_qual_pres = SD_FALSE; + ar_fill_ptr->ae_invoke_pres = SD_FALSE; + + aCtx->asn1r_decode_method = ASN1_TAG_METHOD; + ASN1R_TAG_ADD (aCtx, UNI|CONSTR,SEQ_CODE,ar_ref_strt); + aCtx->asn1r_decode_done_fun = asn1r_done_err; + aCtx->asn1r_err_fun = NULL; + asn1r_decode_asn1 (aCtx, buf_ptr,buf_len); + + if (aCtx->asn1r_pdu_dec_err == NO_DECODE_ERR) + ret = SD_SUCCESS; + else + ret = SD_FAILURE; + + S_UNLOCK_COMMON_RESOURCES (); + return (ret); + } + + +static ST_VOID ar_ref_strt (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,0,ap_title_strt); + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,1,ap_invoke_strt); + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,2,ae_qual_strt); + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,3,ae_invoke_strt); + aCtx->asn1r_decode_done_fun = ar_ref_asn1_decode_done; + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = ar_cnstr_done; + } + +static ST_VOID ar_cnstr_done (ASN1_DEC_CTXT *aCtx) + { + } + +static ST_VOID ap_title_strt (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, UNI,OBJ_ID_CODE,ap_title_get); + aCtx->asn1r_decode_done_fun = asn1r_done_err; + } + +static ST_VOID ap_title_get (ASN1_DEC_CTXT *aCtx) + { + + asn1r_get_objid (aCtx, &ar_fill_ptr->ap_title.form_2.comps[0], + &ar_fill_ptr->ap_title.form_2.num_comps); + if (ar_fill_ptr->ap_title.form_2.num_comps) + ar_fill_ptr->ap_title_pres = SD_TRUE; + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = ap_cnstr_done; + } + +static ST_VOID ap_cnstr_done (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,1,ap_invoke_strt); + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,2,ae_qual_strt); + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,3,ae_invoke_strt); + aCtx->asn1r_decode_done_fun = ar_ref_asn1_decode_done; + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = ar_cnstr_done; + } + +static ST_VOID ap_invoke_strt (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, UNI,INT_CODE,ap_invoke_get); + aCtx->asn1r_decode_done_fun = asn1r_done_err; + } + +static ST_VOID ap_invoke_get (ASN1_DEC_CTXT *aCtx) + { + + if (!asn1r_get_i32 (aCtx, &ar_fill_ptr->ap_invoke)) + ar_fill_ptr->ap_invoke_pres = SD_TRUE; + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = ap_invoke_cnstr_done; + } + +static ST_VOID ap_invoke_cnstr_done (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,2,ae_qual_strt); + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,3,ae_invoke_strt); + aCtx->asn1r_decode_done_fun = ar_ref_asn1_decode_done; + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = ar_cnstr_done; + } + +static ST_VOID ae_qual_strt (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, UNI,INT_CODE,ae_qual_get); + aCtx->asn1r_decode_done_fun = asn1r_done_err; + } + +static ST_VOID ae_qual_get (ASN1_DEC_CTXT *aCtx) + { + + if (!asn1r_get_i32 (aCtx, &ar_fill_ptr->ae_qual.form_2)) + ar_fill_ptr->ae_qual_pres = SD_TRUE; + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = ae_qual_cnstr_done; + } + +static ST_VOID ae_qual_cnstr_done (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,3,ae_invoke_strt); + aCtx->asn1r_decode_done_fun = ar_ref_asn1_decode_done; + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = ar_cnstr_done; + } + +static ST_VOID ae_invoke_strt (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, UNI,INT_CODE,ae_invoke_get); + aCtx->asn1r_decode_done_fun = asn1r_done_err; + } + +static ST_VOID ae_invoke_get (ASN1_DEC_CTXT *aCtx) + { + + if (!asn1r_get_i32 (aCtx, &ar_fill_ptr->ae_invoke)) + ar_fill_ptr->ae_invoke_pres = SD_TRUE; + aCtx->asn1r_decode_done_fun = ar_ref_asn1_decode_done; + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = ar_cnstr_done; + } + +static ST_VOID ar_ref_asn1_decode_done (ASN1_DEC_CTXT *aCtx) + { + } + +/************************************************************************/ +#ifndef MMS_LITE +/************************************************************************/ + +/************************************************************************/ +/* ms_arname_to_asn1 */ +/* Function to convert from an arname to the ASN.1 encoded equivalent of*/ +/* the ApplicationReference that corresponds to it. Returns SD_SUCCESS or */ +/* ERROR CODE. */ +/************************************************************************/ + +ST_RET ms_arname_to_asn1 (ST_CHAR *arname, ST_UCHAR *buf_ptr, + ST_INT buf_len, ST_UCHAR **ret_ptr_addr, + ST_INT *ret_len_addr) + { +ST_RET ret_val; +APP_REF *app_ref_ptr; + + S_LOCK_COMMON_RESOURCES (); + ret_val = MVE_DATA_CONVERT; + if (!(ret_val = ms_arname_to_appref (arname, &app_ref_ptr))) + { + ret_val = ms_appref_to_asn1(app_ref_ptr, buf_ptr, buf_len, + ret_ptr_addr, ret_len_addr); + } + S_UNLOCK_COMMON_RESOURCES (); + return (ret_val); + } + +/************************************************************************/ +/* ms_asn1_to_arname */ +/* Function to convert from an ASN.1 encoded application reference to */ +/* the arname that corresponds to it. Return SD_SUCCESS or ERROR CODE. */ +/************************************************************************/ + +ST_RET ms_asn1_to_arname (ST_CHAR *arname, ST_UCHAR *asn1_ptr, ST_INT asn1_len) + { +ST_RET ret_val; +APP_REF app_reference; + + S_LOCK_COMMON_RESOURCES (); + ret_val = MVE_ASN1_DECODE_ERR; + if (!(ret_val = ms_asn1_to_appref (&app_reference, asn1_ptr, asn1_len))) + { + ret_val = ms_appref_to_arname (arname, &app_reference); + } + S_UNLOCK_COMMON_RESOURCES (); + return (ret_val); + } + +/************************************************************************/ +/* ms_arname_to_appref */ +/* Function to convert from the C representation of an arname to the C */ +/* representation of an ApplicationReference. Returns SD_SUCCESS or */ +/* ERROR CODE. */ +/************************************************************************/ + +ST_RET ms_arname_to_appref (ST_CHAR *arname, APP_REF **appref_ptr_addr) + { +ST_RET ret_val; + + S_LOCK_COMMON_RESOURCES (); + ret_val = MVE_DATA_CONVERT; + if (arname) + { + if ((*appref_ptr_addr = s_find_proc (arname)) != NULL) + ret_val = SD_SUCCESS; + } + else + *appref_ptr_addr = NULL; + S_UNLOCK_COMMON_RESOURCES (); + return (ret_val); + } + +/************************************************************************/ +/* ms_appref_to_arname */ +/* Function to convert from the C representation of an ApplicationRef. */ +/* to the C representation of an arname. Returns SD_SUCCESS or ERROR CODE.*/ +/* The argument arname has to be a pointer to a place big enough to */ +/* hold the arname (MAX_AR_LEN+1). */ +/************************************************************************/ + +ST_RET ms_appref_to_arname (ST_CHAR *arname, APP_REF *appref_addr) + { +ST_RET ret; + + S_LOCK_COMMON_RESOURCES (); + ret = MVE_DATA_CONVERT; + if (arname && appref_addr) + { /* match the AE-Qualifier */ + if (s_find_arname (appref_addr, appref_addr->ae_qual_pres, arname)) + ret = SD_SUCCESS; + } + S_UNLOCK_COMMON_RESOURCES (); + return (ret); + } + +/************************************************************************/ +#endif /* end ifndef MMS_LITE */ +/************************************************************************/ diff --git a/mmslib/mmsl/mms_ced.c b/mmslib/mmsl/mms_ced.c new file mode 100644 index 0000000..678c07b --- /dev/null +++ b/mmslib/mmsl/mms_ced.c @@ -0,0 +1,265 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2002, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : mms_ced.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains common primitive encode/decode functions. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 01/22/02 JRB 05 Add _ms_fin_pdu & _ms_fin_pdu_log (these */ +/* replace functionality of _ms_fin_pdu_debug). */ +/* Use new "asn1r_buf_end" instead of globals. */ +/* 12/20/01 JRB 04 Converted to use ASN1R (re-entrant ASN1) */ +/* 04/28/00 JRB 03 Lint cleanup */ +/* 09/13/99 MDE 02 Added SD_CONST modifiers */ +/* 03/23/99 MDE 01 Changes to decode buffer allocation scheme */ +/* 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 "asn1defs.h" + +/************************************************************************/ +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + + +/************************************************************************/ +/* COMPANION STANDARD INFO DECODE FUNCTIONS */ +/************************************************************************/ + +#ifdef CS_SUPPORT +static ST_VOID mms_cs_start (ASN1_DEC_CTXT *aCtx); +static ST_VOID mms_cs_cstr_done (ASN1_DEC_CTXT *aCtx); +#endif + +/************************************************************************/ +/************************************************************************/ +/* _ms_set_cs_check */ +/* This function is used to check for CS info after rest of PDU has */ +/* been decoded. */ +/************************************************************************/ + +ST_VOID _ms_set_cs_check (ASN1_DEC_CTXT *aCtx) + { + aCtx->asn1r_decode_done_fun = _mms_dec_done_ok; + _ms_set_cs_check2 (aCtx); + } + +/************************************************************************/ +/* _ms_set_cs_check2 */ +/* use this function to avoid setting the aCtx->asn1r_decode_done_fun */ +/************************************************************************/ + +ST_VOID _ms_set_cs_check2 (ASN1_DEC_CTXT *aCtx) + { + aCtx->asn1r_decode_method = ASN1_TAG_METHOD; /* need to use TAG method */ + +#ifdef CS_SUPPORT +#ifndef MMS_LITE + if (mms_chan_info[_mmsdechan].version) /* IS only */ + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,79,mms_cs_start); /* need to check for CS */ +#else + if (mmsl_version) /* IS only */ + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,79,mms_cs_start); /* need to check for CS */ +#endif +#endif + /* in case this is cstr done */ + if (!aCtx->asn1r_msg_level) + aCtx->asn1r_c_done_fun[1] = NULL; /* OK for all to be complete */ + else /* need to go through all upper levels */ + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = _ms_set_cs_check2; + } + + +#ifdef CS_SUPPORT +/************************************************************************/ +/* mms_cs_start */ +/************************************************************************/ + +static ST_VOID mms_cs_start (ASN1_DEC_CTXT *aCtx) + { + _mmsdec_rslt->cs.cs_ptr = aCtx->asn1r_field_ptr; /* start of CS info */ + asn1r_set_all_cstr_done (aCtx); /* clear up all cstr done's */ + asn1r_parse_cstr_contents (aCtx, mms_cs_cstr_done); /* verify ASN.1 */ + } + +/************************************************************************/ +/* mms_cs_cstr_done */ +/************************************************************************/ + +static ST_VOID mms_cs_cstr_done (ASN1_DEC_CTXT *aCtx) + { + _mmsdec_rslt->cs.cs_pres = SD_TRUE; /* CS info was OK */ + _mmsdec_rslt->cs.cs_len = aCtx->asn1r_field_ptr - _mmsdec_rslt->cs.cs_ptr; + aCtx->asn1r_decode_done = SD_TRUE; + } +#endif + +/************************************************************************/ +/************************************************************************/ +/* EXTERNAL decode functions */ +/************************************************************************/ +/************************************************************************/ +/* _ms_chk_for_extern */ +/************************************************************************/ +/* This function is called when adding tags when an EXTERNAL may be */ +/* encountered. Pass in the destination and the constructor done fun */ +/* Currently do not parse EXTERNAL itself, allow user to do this. */ + +static ST_VOID (*ext_done_fun)(ASN1_DEC_CTXT *aCtx); + +static ST_VOID ext_seq_start (ASN1_DEC_CTXT *aCtx); + +static ST_INT *ext_len_ptr; /* save in case EXTERNAL found */ +static ST_UCHAR **ext_buf_ptr_ptr; + +ST_VOID _ms_chk_for_extern (ASN1_DEC_CTXT *aCtx, ST_INT *len_ptr, ST_UCHAR **buf_ptr_ptr, + ST_VOID (*done_fun)(ASN1_DEC_CTXT *aCtx)) + { + ASN1R_TAG_ADD (aCtx, UNI|CONSTR,EXTERN_CODE,ext_seq_start); /* get the EXT seq*/ + ext_done_fun = done_fun; + ext_len_ptr = len_ptr; + ext_buf_ptr_ptr = buf_ptr_ptr; + } + +/************************************************************************/ +/* ext_seq_start */ +/* External encountered */ +/************************************************************************/ + +static ST_VOID ext_seq_start (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("ext_seq_start"); + +/* save pointer and length of the external data element */ + *ext_len_ptr = aCtx->asn1r_elmnt_len + (aCtx->asn1r_field_ptr - aCtx->asn1r_field_start); + *ext_buf_ptr_ptr = aCtx->asn1r_field_start; + + asn1r_parse_cstr_contents (aCtx, ext_done_fun); + } + + +/************************************************************************/ +/************************************************************************/ +/* GENERAL DECODE FUNCTIONS */ +/************************************************************************/ +/* mms_req_not_supp */ +/************************************************************************/ + +ST_VOID mms_req_not_supp (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("mms_req_not_supp"); + + if (_mmsdec_rslt->op == MMSOP_INFO_RPT || + _mmsdec_rslt->op == MMSOP_USTATUS || + _mmsdec_rslt->op == MMSOP_EVENT_NOT) + asn1r_set_dec_err (aCtx, UNCONF_UNREC_SERV); + else + asn1r_set_dec_err (aCtx, REQ_UNREC_SERV); + } + +/************************************************************************/ +/* mms_rsp_not_supp */ +/************************************************************************/ + +ST_VOID mms_rsp_not_supp (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("mms_rsp_not_supp "); + + asn1r_set_dec_err (aCtx, RESP_UNREC_SERV); + } + +/************************************************************************/ +/************************************************************************/ +/* _mms_null_pdu_dec */ +/* This function is called from MMSDEC when the opcode for a NULL PDU */ +/* is being decoded. */ +/************************************************************************/ + +ST_VOID _mms_null_pdu_dec (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Decoding Null PDU (examine opcode for service)"); + + _ms_set_cs_check (aCtx); /* check to see of CS info pres */ + } + +/************************************************************************/ +/* _mms_dec_done_ok */ +/* general decode done function, used for most primitive decodes */ +/************************************************************************/ + +ST_VOID _mms_dec_done_ok (ASN1_DEC_CTXT *aCtx) + { + _mmsdec_rslt->data_pres = _mms_dec_info_pres; /* write data pres flag */ + _mmsdec_rslt->data_ptr = _mms_dec_info; /* write pointer */ + } + +/************************************************************************/ +/* _mms_dec_buf_free */ +/* error decoding the request: free allocated storage. */ +/************************************************************************/ + +ST_VOID _mms_dec_buf_free (ASN1_DEC_CTXT *aCtx, ST_RET err) + { + (*m_free_os_fun)(_mms_dec_info); + } + +/************************************************************************/ +/* _ms_fin_pdu */ +/* User passes ptr to PDU len pPduLen, this function sets (*pPduLen). */ +/* RETURNS: pointer to MMS PDU */ +/************************************************************************/ + +ST_UCHAR *_ms_fin_pdu (ASN1_ENC_CTXT *aCtx, ST_INT type, ST_INT *pPduLen) + { + asn1r_fin_constr (aCtx, (ST_INT16)type, CTX,DEF); + *pPduLen = aCtx->asn1r_buf_end - aCtx->asn1r_field_ptr; + return (aCtx->asn1r_field_ptr + 1); + } + +#ifdef DEBUG_SISCO +/************************************************************************/ +/* _ms_fin_pdu_log */ +/* Write complete MMS PDU to log. */ +/************************************************************************/ + +ST_VOID _ms_fin_pdu_log (ST_INT type, ST_CHAR *msg_ptr, + ST_UCHAR *pduPtr, ST_INT pduLen) + { +/* Do PDU Encode logging */ + if (type == MMSRESP) + { + MLOG_ENC2 ("%s Response built : len = %d",msg_ptr, pduLen); + } + else + { + MLOG_ENC2 ("%s Request built : len = %d",msg_ptr, pduLen); + } + MLOG_ENCH (pduLen,pduPtr); + + return; + } +#endif /* DEBUG_SISCO */ + diff --git a/mmslib/mmsl/mms_ced3.c b/mmslib/mmsl/mms_ced3.c new file mode 100644 index 0000000..d2afe65 --- /dev/null +++ b/mmslib/mmsl/mms_ced3.c @@ -0,0 +1,223 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : mms_ced3.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains common primitive encode/decode functions */ +/* particular to getting and writing object names. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/02/03 MDE 04 Added log for invalid object name tag */ +/* 12/20/01 JRB 03 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 02 Added SD_CONST modifiers */ +/* 06/09/97 MDE 01 Fixed object name decode for COMPACT */ +/* 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 "asn1defs.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ + +static ST_VOID objname_get_item_id (ASN1_DEC_CTXT *aCtx); +static ST_VOID objname_get_domain_id (ASN1_DEC_CTXT *aCtx); +static ST_VOID objname_get_vmd_spec (ASN1_DEC_CTXT *aCtx); +static ST_VOID objname_dom_spec_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID objname_dom_spec_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID objname_get_aa_spec (ASN1_DEC_CTXT *aCtx); + +/************************************************************************/ +/* global structures & functions */ +/************************************************************************/ + +static ST_VOID (*get_mms_objname_done) (ASN1_DEC_CTXT *aCtx); + +static OBJECT_NAME *obj_ptr; + +static ST_RET _error_code; + +/************************************************************************/ +/************************************************************************/ +/* _ms_get_mms_objname */ +/* Function to get an MMS object name from the received message. */ +/************************************************************************/ + +ST_VOID _ms_get_mms_objname (ASN1_DEC_CTXT *aCtx, OBJECT_NAME *data_ptr, ST_VOID (*done_fun) (ASN1_DEC_CTXT *aCtx)) + { + /* set decode error for request or response */ + if (_mmsdec_rslt->type == MMSRESP) + _error_code = RESP_BAD_VALUE; + else + _error_code = REQ_BAD_VALUE; + + obj_ptr = data_ptr; + get_mms_objname_done = done_fun; + + ASN1R_TAG_ADD (aCtx, CTX, 0, objname_get_vmd_spec); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1, objname_dom_spec_cstr); + ASN1R_TAG_ADD (aCtx, CTX, 2, objname_get_aa_spec); + } + +/************************************************************************/ +/* objname_get_vmd_spec */ +/* vmd-specific name was encountered. */ +/************************************************************************/ + +static ST_VOID objname_get_vmd_spec (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("objname_get_vmd_spec"); + + obj_ptr->object_tag = VMD_SPEC; /* set tag to vmd specific */ + +#if defined(USE_COMPACT_MMS_STRUCTS) + obj_ptr->obj_name.vmd_spec = (ST_CHAR *) (aCtx->asn1r_field_ptr - 1); +#endif + /* read name from message */ + if (asn1r_get_identifier (aCtx, obj_ptr->obj_name.vmd_spec)) + asn1r_set_dec_err (aCtx, _error_code); + + (*get_mms_objname_done) (aCtx); /* all done, call user set fun */ + } + +/************************************************************************/ +/* objname_dom_spec_cstr */ +/* domain specific constructor was encountered. */ +/************************************************************************/ + +static ST_VOID objname_dom_spec_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("objname_dom_spec_cstr"); + + obj_ptr->object_tag = DOM_SPEC; /* set tag to domain specific */ + + ASN1R_TAG_ADD (aCtx, UNI, VISTR_CODE, objname_get_domain_id); + } + +/************************************************************************/ +/* objname_get_domain_id */ +/* domain id was encountered. */ +/************************************************************************/ + +static ST_VOID objname_get_domain_id (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("objname_get_domain_id"); + +#if defined(USE_COMPACT_MMS_STRUCTS) + obj_ptr->domain_id = (ST_CHAR *) (aCtx->asn1r_field_ptr - 1); +#endif + /* read name from message */ + if (asn1r_get_identifier (aCtx, obj_ptr->domain_id)) + asn1r_set_dec_err (aCtx, _error_code); + + ASN1R_TAG_ADD (aCtx, UNI, VISTR_CODE, objname_get_item_id); + } + +/************************************************************************/ +/* objname_get_item_id */ +/* item id was encountered. */ +/************************************************************************/ + +static ST_VOID objname_get_item_id (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("objname_get_item_id"); + +#if defined(USE_COMPACT_MMS_STRUCTS) + obj_ptr->obj_name.item_id = (ST_CHAR *) (aCtx->asn1r_field_ptr - 1); +#endif + /* read name from message */ + if (asn1r_get_identifier (aCtx, obj_ptr->obj_name.item_id)) + asn1r_set_dec_err (aCtx, _error_code); + /* set constructor done fun */ + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = objname_dom_spec_cstr_done; + } + +/************************************************************************/ +/* objname_dom_spec_cstr_done */ +/* domain specific constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID objname_dom_spec_cstr_done (ASN1_DEC_CTXT *aCtx) + { + (*get_mms_objname_done) (aCtx); /* all done, call user set fun */ + } + +/************************************************************************/ +/* objname_get_aa_spec */ +/* aa-specific name was encountered. */ +/************************************************************************/ + +static ST_VOID objname_get_aa_spec (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("objname_get_aa_spec"); + + obj_ptr->object_tag = AA_SPEC; /* set tag to aa specific */ + +#if defined(USE_COMPACT_MMS_STRUCTS) + obj_ptr->obj_name.aa_spec = (ST_CHAR *) (aCtx->asn1r_field_ptr - 1); +#endif + /* read name from message */ + if (asn1r_get_identifier (aCtx, obj_ptr->obj_name.aa_spec)) + asn1r_set_dec_err (aCtx, _error_code); + + (*get_mms_objname_done) (aCtx); /* all done, call user set fun */ + } + +/************************************************************************/ +/************************************************************************/ +/* _ms_wr_mms_objname */ +/* Function to write an MMS object name to the message. */ +/************************************************************************/ + +ST_VOID _ms_wr_mms_objname (ASN1_ENC_CTXT *aCtx, OBJECT_NAME *data_ptr) + { + switch (data_ptr->object_tag) + { + case (VMD_SPEC) : /* write the vmd specific name */ + asn1r_wr_vstr (aCtx, data_ptr->obj_name.vmd_spec); + asn1r_fin_prim (aCtx, 0, CTX); /* context tag 0 */ + break; + + case (DOM_SPEC) : /* write domain specific name */ + asn1r_strt_constr (aCtx); + asn1r_wr_vstr (aCtx, data_ptr->obj_name.item_id); + asn1r_fin_prim (aCtx, VISTR_CODE, UNI); /* universal string */ + asn1r_wr_vstr (aCtx, data_ptr->domain_id); + asn1r_fin_prim (aCtx, VISTR_CODE, UNI); /* universal string */ + asn1r_fin_constr (aCtx, 1,CTX,DEF); /* context tag 1 */ + break; + + case (AA_SPEC) : /* write the aa specific name */ + asn1r_wr_vstr (aCtx, data_ptr->obj_name.aa_spec); + asn1r_fin_prim (aCtx, 2,CTX); /* context tag 2 */ + break; + + default: + MLOG_NERR1 ("Invalid object_tag: %d", data_ptr->object_tag); + break; + } + } + diff --git a/mmslib/mmsl/mms_ced4.c b/mmslib/mmsl/mms_ced4.c new file mode 100644 index 0000000..773c7af --- /dev/null +++ b/mmslib/mmsl/mms_ced4.c @@ -0,0 +1,936 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : mms_ced4.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains common primitive encode/decode functions */ +/* particular to getting and writing variables. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 02/09/09 JRB 04 Allow any value for DataAccessError. */ +/* 03/11/04 GLB 03 Remove "thisFileName" */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 01 Added SD_CONST modifiers */ +/* 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" + +/************************************************************************/ +static ST_VOID va_spec_objname_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID va_spec_vlist_list_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID va_spec_vlist_name_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID va_vlist_alt_acc_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID va_vlist_alt_acc_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID va_vlist_useq_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID va_vlist_var_spec_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID va_vlist_useq_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID va_var_spec_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID var_spec_type_spec (ASN1_DEC_CTXT *aCtx); +static ST_VOID var_spec_objname_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID var_spec_address_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID var_spec_var_descr_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID var_spec_scat_acc_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID var_spec_get_null (ASN1_DEC_CTXT *aCtx); +static ST_VOID alt_access_get_aa_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID scat_access_get_sa_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID type_spec_get_tspec_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID vdata_get_data_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID access_rslt_get_data_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID access_rslt_cstr_parse (ASN1_DEC_CTXT *aCtx, ST_UINT16 id); +static ST_VOID access_rslt_get_result (ASN1_DEC_CTXT *aCtx, ST_UINT16 id); +static ST_VOID address_unc_addr_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID address_get_num_addr (ASN1_DEC_CTXT *aCtx); +static ST_VOID address_get_sym_addr (ASN1_DEC_CTXT *aCtx); +static ST_VOID address_get_unc_addr (ASN1_DEC_CTXT *aCtx); +static ST_VOID address_unc_addr_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID (*get_va_address_done) (ASN1_DEC_CTXT *aCtx); +static ST_VOID (*get_va_access_rslt_done) (ASN1_DEC_CTXT *aCtx); +static ST_VOID (*get_va_data_done) (ASN1_DEC_CTXT *aCtx); +static ST_VOID (*get_va_type_spec_done) (ASN1_DEC_CTXT *aCtx); +static ST_VOID (*get_va_scat_access_done) (ASN1_DEC_CTXT *aCtx); +static ST_VOID (*get_va_alt_access_done) (ASN1_DEC_CTXT *aCtx); +static ST_VOID (*get_va_var_spec_done) (ASN1_DEC_CTXT *aCtx); +static ST_VOID (*get_va_spec_done) (ASN1_DEC_CTXT *aCtx); +static ST_VOID var_spec_cstr_get_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID va_spec_done (ASN1_DEC_CTXT *aCtx); + +/************************************************************************/ +/* global structures & functions */ +/************************************************************************/ + +static VAR_ACC_ADDR *addr_ptr; +static ACCESS_RESULT *acc_rslt_ptr; +static VAR_ACC_DATA *vdata_ptr; +static VAR_ACC_TSPEC *tspec_ptr; +static SCATTERED_ACCESS *scat_acc_ptr; +static ALTERNATE_ACCESS *alt_acc_ptr; +static VARIABLE_SPEC *var_spec_ptr; +static VARIABLE_LIST *var_list_ptr; +static VAR_ACC_SPEC *va_spec_ptr; +static VARIABLE_LIST *va_spec_vlist_ptr; + +static ST_INT *NUM_OF_VARS; +static ST_INT MAX_VARS; +static ST_RET ERROR_CODE; +static ST_INT save_dec_method; + +/************************************************************************/ +/************************************************************************/ +/* _ms_get_va_address */ +/* Function to get a variable access address from the received message. */ +/************************************************************************/ + +ST_VOID _ms_get_va_address (ASN1_DEC_CTXT *aCtx, VAR_ACC_ADDR *data_ptr, ST_VOID (*done_fun) (ASN1_DEC_CTXT *aCtx)) + { + + /* set decode error for request or response */ + if (_mmsdec_rslt->type == MMSRESP) + ERROR_CODE = RESP_BAD_VALUE; + else + ERROR_CODE = REQ_BAD_VALUE; + + addr_ptr = data_ptr; + get_va_address_done = done_fun; + + ASN1R_TAG_ADD (aCtx, CTX, 0, address_get_num_addr); + ASN1R_TAG_ADD (aCtx, CTX, 1, address_get_sym_addr); + ASN1R_TAG_ADD (aCtx, CTX, 2, address_get_unc_addr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 2, address_unc_addr_cstr); + } + +/************************************************************************/ +/* address_get_num_addr */ +/* numeric address was encountered. */ +/************************************************************************/ + +static ST_VOID address_get_num_addr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("get_num_addr"); + + addr_ptr->addr_tag = 0; /* set tag to numeric address */ + + /* read numeric address */ + if (asn1r_get_u32 (aCtx, &addr_ptr->addr.num_addr)) + asn1r_set_dec_err (aCtx, ERROR_CODE); + + (*get_va_address_done) (aCtx); /* all done, call user set fun */ + } + +/************************************************************************/ +/* address_get_sym_addr */ +/* symbolic address was encountered. */ +/************************************************************************/ + +static ST_VOID address_get_sym_addr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("address_get_sym_addr"); + + addr_ptr->addr_tag = 1; /* set tag to symbolic address */ + + /* decode symbolic address onto itself, shifted by 1 ST_CHAR */ + addr_ptr->addr.sym_addr = (ST_CHAR *) aCtx->asn1r_field_ptr - 1; + /* read symbolic address */ + if (asn1r_get_vstr (aCtx, addr_ptr->addr.sym_addr)) + asn1r_set_dec_err (aCtx, ERROR_CODE); + + (*get_va_address_done) (aCtx); /* all done, call user set fun */ + } + +/************************************************************************/ +/* address_get_unc_addr */ +/* unconstrained address primitive was encountered. */ +/************************************************************************/ + +static ST_VOID address_get_unc_addr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("address_get_unc_addr"); + + addr_ptr->addr_tag = 2; /* set tag to unconstrained */ + + /* decode unconstrained address onto itself, shifted by 1 ST_CHAR */ + addr_ptr->addr.unc_addr.unc_ptr = aCtx->asn1r_field_ptr - 1; + /* read unconstrained address */ + if (asn1r_get_octstr (aCtx, addr_ptr->addr.unc_addr.unc_ptr)) + asn1r_set_dec_err (aCtx, ERROR_CODE); + /* save the address length */ + addr_ptr->addr.unc_addr.unc_len = aCtx->asn1r_octetcount; + + (*get_va_address_done) (aCtx); /* all done, call user set fun */ + } + +/************************************************************************/ +/* address_unc_addr_cstr */ +/* unconstrained address constructor was encountered. */ +/************************************************************************/ + +static ST_VOID address_unc_addr_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("address_unc_addr_cstr"); + + addr_ptr->addr_tag = 2; /* set tag to unconstrained */ + + /* decode unconstrained address onto itself, shifted by 1 ST_CHAR */ + addr_ptr->addr.unc_addr.unc_ptr = aCtx->asn1r_field_ptr - 1; + + /* set up where to go when done decoding cstr */ + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = address_unc_addr_cstr_done; + + /* read unconstrained address from message */ + asn1r_get_octstr_cstr (aCtx, _mmsdec_msglen, addr_ptr->addr.unc_addr.unc_ptr); + } + +/************************************************************************/ +/* address_unc_addr_cstr_done */ +/* unconstrained address constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID address_unc_addr_cstr_done (ASN1_DEC_CTXT *aCtx) + { + /* save the address length */ + addr_ptr->addr.unc_addr.unc_len = aCtx->asn1r_octetcount; + + (*get_va_address_done) (aCtx); /* all done, call user set fun */ + } + + +/************************************************************************/ +/************************************************************************/ +/* _ms_get_va_access_rslt */ +/* Function to get a variable access access result from the received */ +/* message. */ +/************************************************************************/ + +ST_VOID _ms_get_va_access_rslt (ASN1_DEC_CTXT *aCtx, ACCESS_RESULT *data_ptr, + ST_VOID (*done_fun) (ASN1_DEC_CTXT *aCtx)) + { + /* set decode error for request or response */ + if (_mmsdec_rslt->type == MMSRESP) + ERROR_CODE = RESP_BAD_VALUE; + else + ERROR_CODE = REQ_BAD_VALUE; + + acc_rslt_ptr = data_ptr; + get_va_access_rslt_done = done_fun; + + acc_rslt_ptr->va_data.data = aCtx->asn1r_field_ptr; /* set data pointer */ + + save_dec_method = aCtx->asn1r_decode_method; + aCtx->asn1r_decode_method = ASN1_CLASS_METHOD; + + aCtx->asn1r_c_id_fun = access_rslt_get_result; /* decode access result */ + aCtx->asn1r_u_id_fun = asn1r_class_err; /* no universals */ + aCtx->asn1r_a_id_fun = asn1r_class_err; /* no applications */ + aCtx->asn1r_p_id_fun = asn1r_class_err; /* no privates */ + } + +/************************************************************************/ +/* access_rslt_get_result */ +/* get access result. */ +/************************************************************************/ + +static ST_VOID access_rslt_get_result (ASN1_DEC_CTXT *aCtx, ST_UINT16 id) + { + MLOG_CDEC0 ("access_rslt_get_result"); + + if (aCtx->asn1r_constr_elmnt) + { /* constructor, success */ + acc_rslt_ptr->acc_rslt_tag = ACC_RSLT_SUCCESS; + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = access_rslt_get_data_done; + aCtx->asn1r_c_id_fun = access_rslt_cstr_parse; /* decode access result */ + } + else + { /* primitive */ + if (id != 0) + { /* success */ + acc_rslt_ptr->acc_rslt_tag = ACC_RSLT_SUCCESS; + aCtx->asn1r_field_ptr += aCtx->asn1r_elmnt_len; /* move past data element */ + access_rslt_get_data_done (aCtx); + } + else + { /* failure */ + acc_rslt_ptr->acc_rslt_tag = ACC_RSLT_FAILURE; + /* read data access error */ + if (asn1r_get_i16 (aCtx, &acc_rslt_ptr->failure)) + asn1r_set_dec_err (aCtx, ERROR_CODE); + /* NOTE: DataAccessError should be [0-11] but allow any val here. */ + + aCtx->asn1r_decode_method = save_dec_method; /* restore original dec method */ + (*get_va_access_rslt_done) (aCtx); /* all done, call user set fun */ + } + } + } + +/************************************************************************/ +/* access_rslt_cstr_parse */ +/* in the middle of a result constructor, just accept the elements */ +/************************************************************************/ + +static ST_VOID access_rslt_cstr_parse (ASN1_DEC_CTXT *aCtx, ST_UINT16 id) + { + MLOG_CDEC0 ("access_rslt_cstr_parse"); + + if (!aCtx->asn1r_constr_elmnt) /* if primitive, need to move */ + aCtx->asn1r_field_ptr += aCtx->asn1r_elmnt_len; /* aCtx->asn1r_field_ptr */ + else /* if cstr, need to set cstr */ + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = NULL; /* done function == safe */ + } + +/************************************************************************/ +/* access_rslt_get_data_done */ +/* variable data has been obtianed. */ +/************************************************************************/ + +static ST_VOID access_rslt_get_data_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("access_rslt_get_data_done"); + /* set the variable data length */ + acc_rslt_ptr->va_data.len = + aCtx->asn1r_field_ptr - acc_rslt_ptr->va_data.data; + + aCtx->asn1r_decode_method = save_dec_method; /* restore original dec method */ + + (*get_va_access_rslt_done) (aCtx); /* all done, call user set fun */ + } + + +/************************************************************************/ +/************************************************************************/ +/* _ms_get_va_data */ +/* Function to get a variable access data from the received message. */ +/************************************************************************/ + +ST_VOID _ms_get_va_data (ASN1_DEC_CTXT *aCtx, VAR_ACC_DATA *data_ptr, ST_VOID (*done_fun) (ASN1_DEC_CTXT *aCtx)) + { + + vdata_ptr = data_ptr; + get_va_data_done = done_fun; + + vdata_ptr->data = aCtx->asn1r_field_ptr; /* set data pointer */ + + asn1r_parse_next (aCtx, vdata_get_data_done); /* parse entire element */ + } + +/************************************************************************/ +/* vdata_get_data_done */ +/* variable data has been parsed. */ +/************************************************************************/ + +static ST_VOID vdata_get_data_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("vdata_get_data_done"); + /* set the variable data length */ + vdata_ptr->len = aCtx->asn1r_field_ptr - vdata_ptr->data; + + (*get_va_data_done) (aCtx); /* all done, call user set fun */ + } + + +/************************************************************************/ +/************************************************************************/ +/* _ms_get_va_type_spec */ +/* Function to get a variable access type specification from the */ +/* received message. */ +/************************************************************************/ + +ST_VOID _ms_get_va_type_spec (ASN1_DEC_CTXT *aCtx, VAR_ACC_TSPEC *data_ptr, + ST_VOID (*done_fun) (ASN1_DEC_CTXT *aCtx)) + { + + tspec_ptr = data_ptr; + get_va_type_spec_done = done_fun; + + tspec_ptr->data = aCtx->asn1r_field_ptr; /* set data pointer */ + + asn1r_parse_next (aCtx, type_spec_get_tspec_done); /* parse entire element */ + } + +/************************************************************************/ +/* type_spec_get_tspec_done */ +/* valid type specification was encountered. */ +/************************************************************************/ + +static ST_VOID type_spec_get_tspec_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("type_spec_get_tspec_done"); + /* set type specification len */ + tspec_ptr->len = aCtx->asn1r_field_ptr - tspec_ptr->data; + + (*get_va_type_spec_done) (aCtx); /* all done, call user set fun */ + } + + +/************************************************************************/ +/************************************************************************/ +/* _ms_get_va_scat_access */ +/* Function to get a variable access scattered access from the received */ +/* message. */ +/************************************************************************/ + +ST_VOID _ms_get_va_scat_access (ASN1_DEC_CTXT *aCtx, SCATTERED_ACCESS *data_ptr, + ST_VOID (*done_fun) (ASN1_DEC_CTXT *aCtx)) + { + + scat_acc_ptr = data_ptr; + get_va_scat_access_done = done_fun; + + scat_acc_ptr->data = aCtx->asn1r_field_ptr; /* set data pointer */ + + asn1r_parse_next (aCtx, scat_access_get_sa_done); /* parse entire element */ + } + +/************************************************************************/ +/* scat_access_get_sa_done */ +/* scattered access universal sequence constructor was encountered. */ +/************************************************************************/ + +static ST_VOID scat_access_get_sa_done (ASN1_DEC_CTXT *aCtx) + { + /* set scattered access len */ + scat_acc_ptr->len = aCtx->asn1r_field_ptr - scat_acc_ptr->data; + + (*get_va_scat_access_done) (aCtx); /* all done, call user set fun */ + } + + +/************************************************************************/ +/************************************************************************/ +/* _ms_get_va_alt_access */ +/* Function to get a variable access alternate access from the received */ +/* message. */ +/************************************************************************/ + +ST_VOID _ms_get_va_alt_access (ASN1_DEC_CTXT *aCtx, ALTERNATE_ACCESS *data_ptr, + ST_VOID (*done_fun) (ASN1_DEC_CTXT *aCtx)) + { + MLOG_CDEC0 ("_ms_get_va_alt_access"); + + alt_acc_ptr = data_ptr; + get_va_alt_access_done = done_fun; + + alt_acc_ptr->data = aCtx->asn1r_field_ptr; /* set data pointer */ + + asn1r_parse_cstr_contents (aCtx, alt_access_get_aa_done); /* parse entire element */ + } + +/************************************************************************/ +/* alt_access_get_aa_done */ +/* scattered access was encountered. */ +/************************************************************************/ + +static ST_VOID alt_access_get_aa_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("alt_access_get_aa_done"); + /* set type specification len */ + alt_acc_ptr->len = aCtx->asn1r_field_ptr - alt_acc_ptr->data; + + (*get_va_alt_access_done) (aCtx); /* all done, call user set fun */ + } + + +/************************************************************************/ +/************************************************************************/ +/* _ms_get_va_var_spec */ +/* Function to get a variable access variable specification from the */ +/* received message. */ +/************************************************************************/ + +ST_VOID _ms_get_va_var_spec (ASN1_DEC_CTXT *aCtx, VARIABLE_SPEC *data_ptr, + ST_VOID (*done_fun) (ASN1_DEC_CTXT *aCtx)) + { + /* set decode error for request or response */ + if (_mmsdec_rslt->type == MMSRESP) + ERROR_CODE = RESP_BAD_VALUE; + else + ERROR_CODE = REQ_BAD_VALUE; + + var_spec_ptr = data_ptr; + get_va_var_spec_done = done_fun; + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, var_spec_objname_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1, var_spec_address_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 2, var_spec_var_descr_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 3, var_spec_scat_acc_cstr); + ASN1R_TAG_ADD (aCtx, CTX, 4, var_spec_get_null); + } + +/************************************************************************/ +/* var_spec_objname_cstr */ +/* variable specification object name constructor was encountered. */ +/************************************************************************/ + +static ST_VOID var_spec_objname_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("var_spec_objname_cstr"); + + var_spec_ptr->var_spec_tag = 0; /* set tag to name */ + + _ms_get_mms_objname (aCtx, &var_spec_ptr->vs.name, var_spec_cstr_get_done); + } + +/************************************************************************/ +/* var_spec_address_cstr */ +/* variable specification address was encountered. */ +/************************************************************************/ + +static ST_VOID var_spec_address_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("var_spec_address_cstr"); + + var_spec_ptr->var_spec_tag = 1; /* set tag to address */ + + _ms_get_va_address (aCtx, &var_spec_ptr->vs.address, var_spec_cstr_get_done); + } + +/************************************************************************/ +/* var_spec_var_descr_cstr */ +/* variable specification variable description constructor was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID var_spec_var_descr_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("var_spec_var_descr_cstr"); + + var_spec_ptr->var_spec_tag = 2; /* set tag to variable descr */ + + _ms_get_va_address (aCtx, &var_spec_ptr->vs.var_descr.address, var_spec_type_spec); + } + +/************************************************************************/ +/* var_spec_type_spec */ +/* variable specification address is done, get the type specification. */ +/************************************************************************/ + +static ST_VOID var_spec_type_spec (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("var_spec_type_spec"); + + _ms_get_va_type_spec (aCtx, &var_spec_ptr->vs.var_descr.type, var_spec_cstr_get_done); + } + +/************************************************************************/ +/* var_spec_scat_acc_cstr */ +/* variable specification scattered access constructor was encountered. */ +/************************************************************************/ + +static ST_VOID var_spec_scat_acc_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("var_spec_scat_acc_cstr"); + + var_spec_ptr->var_spec_tag = 3; /* set tag to scattered access */ + + _ms_get_va_scat_access (aCtx, &var_spec_ptr->vs.sa_descr, var_spec_cstr_get_done); + } + +/************************************************************************/ +/* var_spec_get_null */ +/* variable specification null was encountered. */ +/************************************************************************/ + +static ST_VOID var_spec_get_null (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("var_spec_get_null"); + + var_spec_ptr->var_spec_tag = 4; /* set tag to variable descr */ + + if (aCtx->asn1r_elmnt_len != 0) + { + asn1r_set_dec_err (aCtx, ERROR_CODE); + return; + } + + (*get_va_var_spec_done) (aCtx); /* all done, call user set fun */ + } + +/************************************************************************/ +/* var_spec_cstr_get_done */ +/* variable specification object name constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID var_spec_cstr_get_done (ASN1_DEC_CTXT *aCtx) + { + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = va_var_spec_done; + } + +/************************************************************************/ +/* va_var_spec_done */ +/* variable specification has been obtained, return to set-up function. */ +/************************************************************************/ + +static ST_VOID va_var_spec_done (ASN1_DEC_CTXT *aCtx) + { + (*get_va_var_spec_done) (aCtx); /* all done, call user set fun */ + } + + +/************************************************************************/ +/************************************************************************/ +/* _ms_get_va_var_list */ +/* Function to get a variable access variable list from the received */ +/* message. */ +/************************************************************************/ + +ST_VOID _ms_get_va_var_list (ASN1_DEC_CTXT *aCtx, VARIABLE_LIST *data_ptr, ST_INT *num_of_vars, + ST_INT max_vars, ST_VOID (*done_fun) (ASN1_DEC_CTXT *aCtx)) + { + /* set decode error for request or response */ + if (_mmsdec_rslt->type == MMSRESP) + ERROR_CODE = RESP_BAD_VALUE; + else + ERROR_CODE = REQ_BAD_VALUE; + + var_list_ptr = data_ptr; + NUM_OF_VARS = num_of_vars; + MAX_VARS = max_vars; + *NUM_OF_VARS = 0; /* initialize # of variables */ + + ASN1R_TAG_ADD (aCtx, UNI | CONSTR, SEQ_CODE, va_vlist_useq_cstr); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = done_fun; /* can be empty list */ + } + +/************************************************************************/ +/* va_vlist_useq_cstr */ +/* variable access variable list universal sequence was encountered. */ +/************************************************************************/ + +static ST_VOID va_vlist_useq_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("va_vlist_useq_cstr"); + + (*NUM_OF_VARS)++; /* increment # of variables */ + if (*NUM_OF_VARS > MAX_VARS) + asn1r_set_dec_err (aCtx, ERROR_CODE); + + var_list_ptr->alt_access_pres = SD_FALSE; + + _ms_get_va_var_spec (aCtx, &var_list_ptr->var_spec, va_vlist_var_spec_done); + } + +/************************************************************************/ +/* va_vlist_var_spec_done */ +/* variable access variable specification done, get alternate access. */ +/************************************************************************/ + +static ST_VOID va_vlist_var_spec_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("va_vlist_var_spec_done"); + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 5, va_vlist_alt_acc_cstr); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = va_vlist_useq_cstr_done; + } + +/************************************************************************/ +/* va_vlist_alt_acc_cstr */ +/* variable access variable list alternate access constructor was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID va_vlist_alt_acc_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("va_vlist_alt_acc_cstr"); + + var_list_ptr->alt_access_pres = SD_TRUE; /* set alternate access present */ + + _ms_get_va_alt_access (aCtx, &var_list_ptr->alt_access, va_vlist_alt_acc_done); + } + +/************************************************************************/ +/* va_vlist_alt_acc_done */ +/* variable specification alternate access has been obtained. */ +/************************************************************************/ + +static ST_VOID va_vlist_alt_acc_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("va_vlist_alt_acc_done"); + } + + +/************************************************************************/ +/* va_vlist_useq_cstr_done */ +/* variable access variable list universal sequence constructor done */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID va_vlist_useq_cstr_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("va_vlist_useq_cstr_done"); + var_list_ptr++; /* point to where next will go */ + + ASN1R_TAG_ADD (aCtx, UNI | CONSTR, SEQ_CODE, va_vlist_useq_cstr); + } + + +/************************************************************************/ +/************************************************************************/ +/* _ms_get_va_spec */ +/* Function to get a variable access specification from the received */ +/* message. */ +/************************************************************************/ + +ST_VOID _ms_get_va_spec (ASN1_DEC_CTXT *aCtx, VAR_ACC_SPEC *data_ptr, ST_INT max_vars, + ST_VOID (*done_fun) (ASN1_DEC_CTXT *aCtx)) + { + + /* set decode error for request or response */ + if (_mmsdec_rslt->type == MMSRESP) + ERROR_CODE = RESP_BAD_VALUE; + else + ERROR_CODE = REQ_BAD_VALUE; + + va_spec_ptr = data_ptr; + va_spec_vlist_ptr = (VARIABLE_LIST *) (va_spec_ptr + 1); + MAX_VARS = max_vars; + get_va_spec_done = done_fun; + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, va_spec_vlist_list_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1, va_spec_vlist_name_cstr); + } + +/************************************************************************/ +/* va_spec_vlist_list_cstr */ +/* variable access specification list of variables constructor was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID va_spec_vlist_list_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("va_spec_vlist_list_cstr"); + + va_spec_ptr->var_acc_tag = 0; /* set tag to list of variables */ + + _ms_get_va_var_list (aCtx, va_spec_vlist_ptr, &va_spec_ptr->num_of_variables, + MAX_VARS, va_spec_done); + } + +/************************************************************************/ +/* va_spec_vlist_name_cstr */ +/* variable access specification variable list name constructor was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID va_spec_vlist_name_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("va_spec_vlist_name_cstr"); + + va_spec_ptr->var_acc_tag = 1; /* set tag to var list name */ + + _ms_get_mms_objname (aCtx, &va_spec_ptr->vl_name, va_spec_objname_done); + } + +/************************************************************************/ +/* va_spec_objname_done */ +/* variable access specification variable list object name is complete. */ +/************************************************************************/ + +static ST_VOID va_spec_objname_done (ASN1_DEC_CTXT *aCtx) + { + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = va_spec_done; + } + +/************************************************************************/ +/* va_spec_done */ +/* variable access specification has been obtained, return to set-up */ +/* function. */ +/************************************************************************/ + +static ST_VOID va_spec_done (ASN1_DEC_CTXT *aCtx) + { + (*get_va_spec_done) (aCtx); /* all done, call user set fun */ + } + +/************************************************************************/ +/************************************************************************/ +/* _ms_wr_va_address */ +/* Function to write a variable access address to the message. */ +/************************************************************************/ + +ST_VOID _ms_wr_va_address (ASN1_ENC_CTXT *aCtx, VAR_ACC_ADDR *data_ptr) + { + switch (data_ptr->addr_tag) + { + case (0) : /* write the numeric address */ + asn1r_wr_u32 (aCtx, data_ptr->addr.num_addr); + asn1r_fin_prim (aCtx, 0, CTX); /* context tag 0 */ + break; + + case (1) : /* write the symbolic address */ + asn1r_wr_vstr (aCtx, data_ptr->addr.sym_addr); + asn1r_fin_prim (aCtx, 1,CTX); /* context tag 1 */ + break; + + case (2) : /* write the unconstrained addr */ + asn1r_wr_octstr (aCtx, data_ptr->addr.unc_addr.unc_ptr, + data_ptr->addr.unc_addr.unc_len); + asn1r_fin_prim (aCtx, 2,CTX); /* context tag 2 */ + break; + } + } + +/************************************************************************/ +/* _ms_wr_va_access_rslt */ +/* Function to write a variable access access result to the message. */ +/************************************************************************/ + +ST_VOID _ms_wr_va_access_rslt (ASN1_ENC_CTXT *aCtx, ACCESS_RESULT *data_ptr) + { + if (data_ptr->acc_rslt_tag == ACC_RSLT_SUCCESS) + _ms_wr_va_data (aCtx, &data_ptr->va_data); /* success, write data */ + else + { /* failure, write failure value */ + asn1r_wr_i16 (aCtx, data_ptr->failure); + asn1r_fin_prim (aCtx, 0, CTX); /* context tag 0 */ + } + } + +/************************************************************************/ +/* _ms_wr_va_data */ +/* Function to write a variable access data to the message. */ +/************************************************************************/ + +ST_VOID _ms_wr_va_data (ASN1_ENC_CTXT *aCtx, VAR_ACC_DATA *data_ptr) + { + asn1r_wr_delmnt (aCtx, data_ptr->data, data_ptr->len); + } + +/************************************************************************/ +/* _ms_wr_va_type_spec */ +/* Function to write a variable access type specification to the */ +/* message. */ +/************************************************************************/ + +ST_VOID _ms_wr_va_type_spec (ASN1_ENC_CTXT *aCtx, VAR_ACC_TSPEC *data_ptr) + { + asn1r_wr_delmnt (aCtx, data_ptr->data, data_ptr->len); + } + +/************************************************************************/ +/* _ms_wr_va_scat_access */ +/* Function to write a variable access scattered access to the message. */ +/************************************************************************/ + +ST_VOID _ms_wr_va_scat_access (ASN1_ENC_CTXT *aCtx, SCATTERED_ACCESS *data_ptr) + { + asn1r_wr_delmnt (aCtx, data_ptr->data, data_ptr->len); + } + +/************************************************************************/ +/* _ms_wr_va_alt_access */ +/* Function to write a variable access alternate access to the message. */ +/************************************************************************/ + +ST_VOID _ms_wr_va_alt_access (ASN1_ENC_CTXT *aCtx, ALTERNATE_ACCESS *data_ptr) + { + asn1r_wr_delmnt (aCtx, data_ptr->data, data_ptr->len); + } + +/************************************************************************/ +/* _ms_wr_va_var_spec */ +/* Function to write a variable access variable specification to the */ +/* message. */ +/************************************************************************/ + +ST_VOID _ms_wr_va_var_spec (ASN1_ENC_CTXT *aCtx, VARIABLE_SPEC *data_ptr) + { + switch (data_ptr->var_spec_tag) + { + case 0 : + asn1r_strt_constr (aCtx); + _ms_wr_mms_objname (aCtx, &data_ptr->vs.name); + asn1r_fin_constr (aCtx, 0, CTX, DEF); + break; + + case 1 : + asn1r_strt_constr (aCtx); + _ms_wr_va_address (aCtx, &data_ptr->vs.address); + asn1r_fin_constr (aCtx, 1, CTX, DEF); + break; + + case 2 : + asn1r_strt_constr (aCtx); + _ms_wr_va_type_spec (aCtx, &data_ptr->vs.var_descr.type); + _ms_wr_va_address (aCtx, &data_ptr->vs.var_descr.address); + asn1r_fin_constr (aCtx, 2, CTX, DEF); + break; + + case 3 : + asn1r_strt_constr (aCtx); + _ms_wr_va_scat_access (aCtx, &data_ptr->vs.sa_descr); + asn1r_fin_constr (aCtx, 3, CTX, DEF); + break; + + case 4 : + asn1r_fin_prim (aCtx, 4, CTX); + break; + } + } + +/************************************************************************/ +/* _ms_wr_va_var_list */ +/* Function to write a variable access variable list to the message. */ +/************************************************************************/ + +ST_VOID _ms_wr_va_var_list (ASN1_ENC_CTXT *aCtx, VARIABLE_LIST *data_ptr, ST_INT num_of_vars) + { +VARIABLE_LIST *vl_ptr; +ST_INT i; + + vl_ptr = data_ptr; + vl_ptr += num_of_vars - 1; /* point to last in the list */ + for (i = 0; i < num_of_vars; i++) + { + asn1r_strt_constr (aCtx); /* start universal sequece cstr */ + if (vl_ptr->alt_access_pres) + { + asn1r_strt_constr (aCtx); /* start context tag 5 cstr */ + _ms_wr_va_alt_access (aCtx, &vl_ptr->alt_access); + asn1r_fin_constr (aCtx, 5, CTX, DEF); + } + _ms_wr_va_var_spec (aCtx, &vl_ptr->var_spec); + asn1r_fin_constr (aCtx, SEQ_CODE, UNI, DEF); + vl_ptr--; /* point to previous var name */ + } + } + +/************************************************************************/ +/* _ms_wr_va_spec */ +/* Function to write a variable access specification to the message. */ +/************************************************************************/ + +ST_VOID _ms_wr_va_spec (ASN1_ENC_CTXT *aCtx, VAR_ACC_SPEC *data_ptr) + { +VARIABLE_LIST *vl_ptr; + + if (data_ptr->var_acc_tag == 1) + { + asn1r_strt_constr (aCtx); /* start context tag 1 cstr */ + _ms_wr_mms_objname (aCtx, &data_ptr->vl_name); + asn1r_fin_constr (aCtx, 1, CTX, DEF); + } + else + { + vl_ptr = (VARIABLE_LIST *) (data_ptr + 1); + asn1r_strt_constr (aCtx); /* start context tag 0 cstr */ + _ms_wr_va_var_list (aCtx, vl_ptr, data_ptr->num_of_variables); + asn1r_fin_constr (aCtx, 0, CTX, DEF); + } + } diff --git a/mmslib/mmsl/mms_ced5.c b/mmslib/mmsl/mms_ced5.c new file mode 100644 index 0000000..6a3ccf2 --- /dev/null +++ b/mmslib/mmsl/mms_ced5.c @@ -0,0 +1,77 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : mms_ced5.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains common primitive encode/decode functions */ +/* particular application references. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 03 Remove "thisFileName" */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 01 Added SD_CONST modifiers */ +/* 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 "asn1defs.h" + +/************************************************************************/ + +static ST_VOID app_ref_get_seq (ASN1_DEC_CTXT *aCtx); + +/************************************************************************/ +/* global structures & functions */ +/************************************************************************/ + +static ST_VOID (*get_mms_app_ref_done) (ASN1_DEC_CTXT *aCtx); + +/************************************************************************/ +/************************************************************************/ +/* _ms_get_mms_app_ref */ +/* Function to get an Application Reference from the received message. */ +/* Takes two destination element pointers because of op-specific struct */ +/* differences. */ +/************************************************************************/ + +ST_VOID _ms_get_mms_app_ref (ASN1_DEC_CTXT *aCtx, ST_UCHAR **ptr_ptr, ST_INT *len_ptr, + ST_VOID (*done_fun) (ASN1_DEC_CTXT *aCtx)) + { + + get_mms_app_ref_done = done_fun; + + *ptr_ptr = aCtx->asn1r_field_ptr; /* save pointer */ + *len_ptr = aCtx->asn1r_elmnt_len; /* save length of data */ + + ASN1R_TAG_ADD (aCtx, UNI|CONSTR, SEQ_CODE, app_ref_get_seq); + } + +/************************************************************************/ +/* app_ref_get_seq */ +/* Sequence was encountered, contents are 4 optional ASN.1 ANY's. */ +/************************************************************************/ + +static ST_VOID app_ref_get_seq (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("app_ref_get_seq"); + if (aCtx->asn1r_elmnt_len) /* if any contents, parse them */ + asn1r_parse_cstr_contents (aCtx, get_mms_app_ref_done); + else /* no contents, call user done function */ + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = get_mms_app_ref_done; + } + diff --git a/mmslib/mmsl/mms_ced6.c b/mmslib/mmsl/mms_ced6.c new file mode 100644 index 0000000..b5d6fd8 --- /dev/null +++ b/mmslib/mmsl/mms_ced6.c @@ -0,0 +1,151 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : mms_ced6.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains common primitive encode/decode functions */ +/* particular event time */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 04 Remove "thisFileName" */ +/* 12/20/01 JRB 03 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 02 Added SD_CONST modifiers */ +/* 08/15/97 MDE 01 BTOD handling changes */ +/* 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 "asn1defs.h" + +/************************************************************************/ +static ST_VOID evtime_get_time_of_day (ASN1_DEC_CTXT *aCtx); +static ST_VOID evtime_get_time_seq_id (ASN1_DEC_CTXT *aCtx); +static ST_VOID (*get_mms_evtime_done) (ASN1_DEC_CTXT *aCtx); +static ST_VOID evtime_get_undefined (ASN1_DEC_CTXT *aCtx); + +/************************************************************************/ +/* global structures & functions */ +/************************************************************************/ + +static EVENT_TIME *ev_time_ptr; + +static ST_RET _error_code; + + +/************************************************************************/ +/************************************************************************/ +/* _ms_get_mms_evtime */ +/* Function to get an Event Time from the received message. */ +/************************************************************************/ + +ST_VOID _ms_get_mms_evtime (ASN1_DEC_CTXT *aCtx, EVENT_TIME *data_ptr, ST_VOID (*done_fun) (ASN1_DEC_CTXT *aCtx)) + { + /* set decode error for request or response */ + if (_mmsdec_rslt->type == MMSRESP) + _error_code = RESP_BAD_VALUE; + else + _error_code = REQ_BAD_VALUE; + + ev_time_ptr = data_ptr; + get_mms_evtime_done = done_fun; + + ASN1R_TAG_ADD (aCtx, CTX, 0, evtime_get_time_of_day); + ASN1R_TAG_ADD (aCtx, CTX, 1, evtime_get_time_seq_id); +#ifndef MMS_LITE + if (mms_chan_info[_mmsdechan].version) /* IS */ +#else + if (mmsl_version) /* IS */ +#endif + ASN1R_TAG_ADD (aCtx, CTX, 2, evtime_get_undefined); + } + +/************************************************************************/ +/* evtime_get_time_of_day */ +/* time of day was encountered. */ +/************************************************************************/ + +static ST_VOID evtime_get_time_of_day (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("evtime_get_time_of_day"); + + ev_time_ptr->evtime_tag = 0; /* set tag to time of day */ + + /* read time from message */ + if (asn1r_get_btod (aCtx, &ev_time_ptr->evtime.time_of_day)) + asn1r_set_dec_err (aCtx, _error_code); + + (*get_mms_evtime_done) (aCtx); /* all done, call user set fun */ + } + +/************************************************************************/ +/* evtime_get_time_seq_id */ +/* time sequence identifier was encountered. */ +/************************************************************************/ + +static ST_VOID evtime_get_time_seq_id (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("evtime_get_time_seq_id"); + + ev_time_ptr->evtime_tag = 1; /* set tag to time seq id */ + + /* read time from message */ + if (asn1r_get_u32 (aCtx, &ev_time_ptr->evtime.time_seq_id)) + asn1r_set_dec_err (aCtx, _error_code); + + (*get_mms_evtime_done) (aCtx); /* all done, call user set fun */ + } + +/************************************************************************/ +/* evtime_get_undefined */ +/* undefined was encountered. */ +/************************************************************************/ + +static ST_VOID evtime_get_undefined (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("evtime_get_undefined"); + + ev_time_ptr->evtime_tag = 2; /* set tag to undefined */ + + (*get_mms_evtime_done) (aCtx); /* all done, call user set fun */ + } + + +/************************************************************************/ +/************************************************************************/ +/* _ms_wr_mms_evtime */ +/* Function to write an Event Time to the message. */ +/************************************************************************/ + +ST_VOID _ms_wr_mms_evtime (ASN1_ENC_CTXT *aCtx, EVENT_TIME *data_ptr) + { + if (data_ptr->evtime_tag == 0) + { /* write the time of day */ + asn1r_wr_btod (aCtx, &data_ptr->evtime.time_of_day); + asn1r_fin_prim (aCtx, 0, CTX); /* context tag 0 */ + } + else if (data_ptr->evtime_tag == 1) + { /* write time sequence id */ + asn1r_wr_u32 (aCtx, data_ptr->evtime.time_seq_id); + asn1r_fin_prim (aCtx, 1, CTX); /* context tag 1 */ + } + else + { /* IS - write undefined (null) */ + asn1r_fin_prim (aCtx, 2, CTX); /* context tag 2 */ + } + } + diff --git a/mmslib/mmsl/mms_ced7.c b/mmslib/mmsl/mms_ced7.c new file mode 100644 index 0000000..c6ca125 --- /dev/null +++ b/mmslib/mmsl/mms_ced7.c @@ -0,0 +1,543 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : mms_ced7.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains common primitive encode/decode functions */ +/* particular to getting and writing a list of modifiers. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 05 Remove "thisFileName" */ +/* 08/28/03 EJV 04 Corr spelling for 'receive'. */ +/* 03/31/03 JRB 03 asn1r_get_bitstr: add max_bits arg. */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 01 Added SD_CONST modifiers */ +/* 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 "asn1defs.h" + + +#ifdef MOD_SUPPORT +/************************************************************************/ +/************************************************************************/ +/* global structures & functions */ +/************************************************************************/ + +static ST_VOID modlist_attach_to_ec (ASN1_DEC_CTXT *aCtx); +static ST_VOID modlist_attach_to_sem (ASN1_DEC_CTXT *aCtx); +static ST_VOID modlist_modifier_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID modlist_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID atsem_get_priority (ASN1_DEC_CTXT *aCtx); +static ST_VOID atsem_get_acc_delay (ASN1_DEC_CTXT *aCtx); +static ST_VOID atsem_get_ctrl_timeout (ASN1_DEC_CTXT *aCtx); +static ST_VOID atsem_get_abrt_timeout (ASN1_DEC_CTXT *aCtx); +static ST_VOID atsem_get_rel_conn_lost (ASN1_DEC_CTXT *aCtx); +static ST_VOID atec_get_ct_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID atsem_get_named_token (ASN1_DEC_CTXT *aCtx); +static ST_VOID atsem_sem_name_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID atsem_objname_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID atsem_sem_name_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID atec_get_acc_delay (ASN1_DEC_CTXT *aCtx); +static ST_VOID atec_get_ct_prim (ASN1_DEC_CTXT *aCtx); +static ST_VOID atec_get_ct_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID atec_ecname_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID atec_ecname_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID atec_ecname_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID atec_eename_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID atec_eename_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID atec_eename_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID (*get_mms_modlist_done) (ASN1_DEC_CTXT *aCtx); + + +static MODIFIER *mod_ptr; +static ST_INT *NUM_OF_MODS; +static ST_INT MAX_MODS; +static ST_RET ERROR_CODE; + + +/************************************************************************/ +/************************************************************************/ +/* _ms_get_mms_modlist */ +/* Function to get an MMS list of modifiers from the received message. */ +/************************************************************************/ + +ST_VOID _ms_get_mms_modlist (ASN1_DEC_CTXT *aCtx, MODIFIER *data_ptr, ST_INT *num_ptr, + ST_INT max_mods, ST_VOID (*done_fun) (ASN1_DEC_CTXT *ac)) + { + /* set decode error for request or response */ + if (_mmsdec_rslt->type == MMSRESP) + ERROR_CODE = RESP_BAD_VALUE; + else + ERROR_CODE = REQ_BAD_VALUE; + + mod_ptr = data_ptr; + NUM_OF_MODS = num_ptr; + MAX_MODS = max_mods; + get_mms_modlist_done = done_fun; + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, modlist_attach_to_ec); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1, modlist_attach_to_sem); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = modlist_done; + } + +/************************************************************************/ +/************************************************************************/ +/* modlist_attach_to_ec */ +/* decoding list of modifiers: attach to event condition modifier cstr */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID modlist_attach_to_ec (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("modlist_attach_to_ec"); + + (*NUM_OF_MODS)++; /* increment # of modifiers */ + if (*NUM_OF_MODS > MAX_MODS) + asn1r_set_dec_err (aCtx, ERROR_CODE); + + mod_ptr->modifier_tag = 0; /* set tag to attach to ec */ + + ASN1R_TAG_ADD (aCtx, CTX |CONSTR, 0, atec_eename_cstr); + } + +/************************************************************************/ +/* atec_eename_cstr */ +/* decoding attach to event condition modifier: event enrollment name */ +/* constructor was encountered. */ +/************************************************************************/ + +static ST_VOID atec_eename_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("atec_eename_cstr"); + + _ms_get_mms_objname (aCtx,&mod_ptr->mod.atec.evenroll_name, atec_eename_done); + } + +/************************************************************************/ +/* atec_eename_done */ +/* decoding attach to event condition modifier: event enrollment name */ +/* has been obtained. */ +/************************************************************************/ + +static ST_VOID atec_eename_done (ASN1_DEC_CTXT *aCtx) + { + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = atec_eename_cstr_done; + } + +/************************************************************************/ +/* atec_eename_cstr_done */ +/* decoding attach to event condition modifier: event enrollment name */ +/* constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID atec_eename_cstr_done (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, CTX |CONSTR, 1, atec_ecname_cstr); + } + +/************************************************************************/ +/* atec_ecname_cstr */ +/* decoding attach to event condition modifier: event condition name */ +/* constructor was encountered. */ +/************************************************************************/ + +static ST_VOID atec_ecname_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("atec_ecname_cstr"); + + _ms_get_mms_objname (aCtx, &mod_ptr->mod.atec.evcon_name, atec_ecname_done); + } + +/************************************************************************/ +/* atec_ecname_done */ +/* decoding attach to event condition modifier: event condition name */ +/* has been obtained. */ +/************************************************************************/ + +static ST_VOID atec_ecname_done (ASN1_DEC_CTXT *aCtx) + { + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = atec_ecname_cstr_done; + } + +/************************************************************************/ +/* atec_ecname_cstr_done */ +/* decoding attach to event condition modifier: event condition name */ +/* constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID atec_ecname_cstr_done (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, CTX, 2,atec_get_ct_prim); + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,2,atec_get_ct_cstr); + } + +/************************************************************************/ +/* atec_get_ct_prim */ +/* decoding attach to event condition modifier: causing transitions */ +/* primitive was encountered. */ +/************************************************************************/ + +static ST_VOID atec_get_ct_prim (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("atec_get_ct_prim"); + if (!asn1r_get_bitstr (aCtx, &mod_ptr->mod.atec.causing_transitions, 7)) + atec_get_ct_done (aCtx); /* set up for the next data element */ + else + asn1r_set_dec_err (aCtx, ERROR_CODE); + } + +/************************************************************************/ +/* atec_get_ct_cstr */ +/* decoding attach to event condition modifier: causing transitions */ +/* constructor was encountered. */ +/************************************************************************/ + +static ST_VOID atec_get_ct_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("atec_get_ct_cstr"); + + /* set up bitstring cstr done function */ + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = atec_get_ct_done; + + asn1r_get_bitstr_cstr (aCtx, 7,&mod_ptr->mod.atec.causing_transitions); + } + +/************************************************************************/ +/* atec_get_ct_done */ +/* decoding attach to event condition modifier: causing transitions */ +/* constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID atec_get_ct_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("atec_get_ct_done"); + + /* Check aCtx->asn1r_bitcount for correct # of bits */ + if (aCtx->asn1r_bitcount != 7) /* should be 7 bits */ + asn1r_set_dec_err (aCtx, ERROR_CODE); + else /* now get acceptable delay */ + { + ASN1R_TAG_ADD (aCtx, CTX,3,atec_get_acc_delay); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = modlist_modifier_done; + } + } + +/************************************************************************/ +/* atec_get_acc_delay */ +/* decoding attach to event condition modifier: decode acceptable delay */ +/************************************************************************/ + +static ST_VOID atec_get_acc_delay (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("atec_get_acc_dela"); + + mod_ptr->mod.atec.acc_delay_pres = SD_TRUE; /* accept delay present */ + + /* read acceptable delay from message */ + if (asn1r_get_u32 (aCtx, &(mod_ptr->mod.atec.acc_delay))) + asn1r_set_dec_err (aCtx, ERROR_CODE); + } + +/************************************************************************/ +/************************************************************************/ +/* modlist_attach_to_sem */ +/* decoding list of modifiers: attach to semaphore modifier constructor */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID modlist_attach_to_sem (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("modlist_attach_to_sem"); + + (*NUM_OF_MODS)++; /* increment # of modifiers */ + if (*NUM_OF_MODS > MAX_MODS) + asn1r_set_dec_err (aCtx, ERROR_CODE); + + mod_ptr->modifier_tag = 1; /* set tag to attach to sem */ + + ASN1R_TAG_ADD (aCtx, CTX |CONSTR, 0, atsem_sem_name_cstr); + } + +/************************************************************************/ +/* atsem_sem_name_cstr */ +/* decoding attach to semaphore modifier: semaphore name constructor */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID atsem_sem_name_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("atsem_sem_name_cstr"); + + mod_ptr->mod.atsem.priority = MMS_NORM_PRIORITY; + mod_ptr->mod.atsem.rel_conn_lost = SD_TRUE; + + _ms_get_mms_objname (aCtx, &mod_ptr->mod.atsem.sem_name, atsem_objname_done); + } + +/************************************************************************/ +/* atsem_objname_done */ +/* decoding attach to semaphore modifier: semaphore name has been */ +/* obtained. */ +/************************************************************************/ + +static ST_VOID atsem_objname_done (ASN1_DEC_CTXT *aCtx) + { + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = atsem_sem_name_cstr_done; + } + +/************************************************************************/ +/* atsem_sem_name_cstr_done */ +/* decoding attach to semaphore modifier: semaphore name constructor */ +/* done was encountered. */ +/************************************************************************/ + +static ST_VOID atsem_sem_name_cstr_done (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, CTX, 1, atsem_get_named_token); + ASN1R_TAG_ADD (aCtx, CTX, 2, atsem_get_priority ); + ASN1R_TAG_ADD (aCtx, CTX, 3, atsem_get_acc_delay ); + ASN1R_TAG_ADD (aCtx, CTX, 4, atsem_get_ctrl_timeout); + ASN1R_TAG_ADD (aCtx, CTX, 5, atsem_get_abrt_timeout); + ASN1R_TAG_ADD (aCtx, CTX, 6, atsem_get_rel_conn_lost); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = modlist_modifier_done; + } + +/************************************************************************/ +/* atsem_get_named_token */ +/* decoding attach to semaphore modifier: named token name was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID atsem_get_named_token (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("atsem_get_named_token"); + + mod_ptr->mod.atsem.named_token_pres = SD_TRUE; /* named token present */ + + /* read named token from received message */ + if (asn1r_get_identifier (aCtx, mod_ptr->mod.atsem.named_token)) + asn1r_set_dec_err (aCtx, ERROR_CODE); + + ASN1R_TAG_ADD (aCtx, CTX, 2, atsem_get_priority ); + ASN1R_TAG_ADD (aCtx, CTX, 3, atsem_get_acc_delay ); + ASN1R_TAG_ADD (aCtx, CTX, 4, atsem_get_ctrl_timeout); + ASN1R_TAG_ADD (aCtx, CTX, 5, atsem_get_abrt_timeout); + ASN1R_TAG_ADD (aCtx, CTX, 6, atsem_get_rel_conn_lost); + } + +/************************************************************************/ +/* atsem_get_priority */ +/* decoding attach to semaphore modifier: decode the priority. */ +/************************************************************************/ + +static ST_VOID atsem_get_priority (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("atsem_get_priorit"); + /* read priority from received message */ + if (asn1r_get_u8 (aCtx, &(mod_ptr->mod.atsem.priority))) + asn1r_set_dec_err (aCtx, ERROR_CODE); + + ASN1R_TAG_ADD (aCtx, CTX, 3, atsem_get_acc_delay ); + ASN1R_TAG_ADD (aCtx, CTX, 4, atsem_get_ctrl_timeout); + ASN1R_TAG_ADD (aCtx, CTX, 5, atsem_get_abrt_timeout); + ASN1R_TAG_ADD (aCtx, CTX, 6, atsem_get_rel_conn_lost); + } + +/************************************************************************/ +/* atsem_get_acc_delay */ +/* decoding attach to semaphore modifier: decode acceptable delay */ +/************************************************************************/ + +static ST_VOID atsem_get_acc_delay (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("atsem_get_acc_dela"); + + mod_ptr->mod.atsem.acc_delay_pres = SD_TRUE; /* accept delay present */ + + /* read acceptable delay from message */ + if (asn1r_get_u32 (aCtx, &(mod_ptr->mod.atsem.acc_delay))) + asn1r_set_dec_err (aCtx, ERROR_CODE); + + ASN1R_TAG_ADD (aCtx, CTX, 4, atsem_get_ctrl_timeout); + ASN1R_TAG_ADD (aCtx, CTX, 5, atsem_get_abrt_timeout); + ASN1R_TAG_ADD (aCtx, CTX, 6, atsem_get_rel_conn_lost); + } + +/************************************************************************/ +/* atsem_get_ctrl_timeout */ +/* decoding attach to semaphore modifier: decode control timeout. */ +/************************************************************************/ + +static ST_VOID atsem_get_ctrl_timeout (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("atsem_get_ctrl_timeou"); + + mod_ptr->mod.atsem.ctrl_timeout_pres = SD_TRUE; /* ctrl timeout pres */ + + /* read control timeout from message */ + if (asn1r_get_u32 (aCtx, &(mod_ptr->mod.atsem.ctrl_timeout))) + asn1r_set_dec_err (aCtx, ERROR_CODE); + + ASN1R_TAG_ADD (aCtx, CTX, 5, atsem_get_abrt_timeout); + ASN1R_TAG_ADD (aCtx, CTX, 6, atsem_get_rel_conn_lost); + } + +/************************************************************************/ +/* atsem_get_abrt_timeout */ +/* decoding attach to semaphore modifier: decode abort timeout. */ +/************************************************************************/ + +static ST_VOID atsem_get_abrt_timeout (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("atsem_get_abrt_timeout"); + + mod_ptr->mod.atsem.abrt_on_timeout_pres = SD_TRUE; + + if (asn1r_get_bool (aCtx, &(mod_ptr->mod.atsem.abrt_on_timeout))) + asn1r_set_dec_err (aCtx, ERROR_CODE); + + ASN1R_TAG_ADD (aCtx, CTX, 6, atsem_get_rel_conn_lost); + } + +/************************************************************************/ +/* atsem_get_rel_conn_lost */ +/* decoding attach to semaphore modifier: decode relinquish if */ +/* connection lost. */ +/************************************************************************/ + +static ST_VOID atsem_get_rel_conn_lost (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("atsem_get_rel_conn_lost"); + + if (asn1r_get_bool (aCtx, &(mod_ptr->mod.atsem.rel_conn_lost))) + asn1r_set_dec_err (aCtx, ERROR_CODE); + } + +/************************************************************************/ +/* modlist_modifier_done */ +/* decoding attach to semaphore modifier: modifier constructor done */ +/* was encountered */ +/************************************************************************/ + +static ST_VOID modlist_modifier_done (ASN1_DEC_CTXT *aCtx) + { + mod_ptr++; /* point to where next will go */ + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, modlist_attach_to_ec); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1, modlist_attach_to_sem); + } + +/************************************************************************/ +/* modlist_done */ +/* decoding list of modifiers: list is done */ +/************************************************************************/ + +static ST_VOID modlist_done (ASN1_DEC_CTXT *aCtx) + { + (*get_mms_modlist_done) (aCtx); /* all done, call user set fun */ + } + + +/************************************************************************/ +/************************************************************************/ +/* _ms_wr_mms_modlist */ +/* Function to write an MMS list of modifiers to the message. */ +/************************************************************************/ + +ST_VOID _ms_wr_mms_modlist (ASN1_ENC_CTXT *aCtx, MODIFIER *data_ptr, ST_INT num_of_mods) + { +MODIFIER *modPtr; +ST_INT i; + + modPtr = data_ptr; + modPtr += num_of_mods - 1; /* point to last in the list */ + + for (i = 0; i < num_of_mods; i++) + { + asn1r_strt_constr (aCtx); /* start ctx tag 0 or 1 cstr */ + switch (modPtr->modifier_tag) + { + case (0) : /* write attach to event cond */ + if (modPtr->mod.atec.acc_delay_pres) + { + asn1r_wr_u32 (aCtx, modPtr->mod.atec.acc_delay); + asn1r_fin_prim (aCtx, 3, CTX); + } + + asn1r_wr_bitstr (aCtx, &modPtr->mod.atec.causing_transitions, 7); + asn1r_fin_prim (aCtx, 2, CTX); + + asn1r_strt_constr (aCtx); + _ms_wr_mms_objname (aCtx, &modPtr->mod.atec.evcon_name); + asn1r_fin_constr (aCtx, 1, CTX, DEF); + + asn1r_strt_constr (aCtx); + _ms_wr_mms_objname (aCtx, &modPtr->mod.atec.evenroll_name); + asn1r_fin_constr (aCtx, 0, CTX, DEF); + break; + + case (1) : /* write attach to semaphore */ + asn1r_wr_bool (aCtx, modPtr->mod.atsem.rel_conn_lost); + asn1r_fin_prim (aCtx, 6, CTX); + + if (modPtr->mod.atsem.abrt_on_timeout_pres) + { + asn1r_wr_bool (aCtx, modPtr->mod.atsem.abrt_on_timeout); + asn1r_fin_prim (aCtx, 5, CTX); + } + + if (modPtr->mod.atsem.ctrl_timeout_pres) + { + asn1r_wr_u32 (aCtx, modPtr->mod.atsem.ctrl_timeout); + asn1r_fin_prim (aCtx, 4, CTX); + } + + if (modPtr->mod.atsem.acc_delay_pres) + { + asn1r_wr_u32 (aCtx, modPtr->mod.atsem.acc_delay); + asn1r_fin_prim (aCtx, 3, CTX); + } + + if (modPtr->mod.atsem.priority != MMS_NORM_PRIORITY) + { + asn1r_wr_u8 (aCtx, modPtr->mod.atsem.priority); + asn1r_fin_prim (aCtx, 2, CTX); + } + + if (modPtr->mod.atsem.named_token_pres) + { + asn1r_wr_vstr (aCtx, modPtr->mod.atsem.named_token); + asn1r_fin_prim (aCtx, 1, CTX); + } + + asn1r_strt_constr (aCtx); + _ms_wr_mms_objname (aCtx, &modPtr->mod.atsem.sem_name); + asn1r_fin_constr (aCtx, 0, CTX, DEF); + break; + } + asn1r_fin_constr (aCtx, (ST_UINT16) modPtr->modifier_tag, CTX, DEF); + modPtr--; /* point to previous modifier */ + } + } +#endif diff --git a/mmslib/mmsl/mms_err.c b/mmslib/mmsl/mms_err.c new file mode 100644 index 0000000..7ca4486 --- /dev/null +++ b/mmslib/mmsl/mms_err.c @@ -0,0 +1,775 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2007, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : mms_err.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the MMS error functions for decoding */ +/* & encoding the error response PDUs : */ +/* confirmed-ErrorPDU */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 11/01/07 EJV 08 Rem obsolete LLC30... code. */ +/* 04/05/02 MDE 07 Added MLOG logging */ +/* 01/23/02 JRB 06 Fix "Response built" msg (was missing header)*/ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 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++ */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" + +#include "mmsdefs.h" +#include "mms_pcon.h" +#include "asn1defs.h" +#include "mloguser.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/* variables global to the decode : */ + +static ERR_INFO *err_info_ptr; + + +#ifdef MOD_SUPPORT +static ST_VOID err_mod_pos (ASN1_DEC_CTXT *aCtx); +#endif +static ST_VOID err_rsp2 (ASN1_DEC_CTXT *aCtx); +static ST_VOID err_class (ASN1_DEC_CTXT *aCtx); +static ST_VOID err_get_cac (ASN1_DEC_CTXT *aCtx); +#ifdef CS_SUPPORT +static ST_VOID err_get_cs (ASN1_DEC_CTXT *aCtx); +static ST_VOID err_cs_done (ASN1_DEC_CTXT *aCtx); +#endif +static ST_VOID err_class_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID err_get_add_code (ASN1_DEC_CTXT *aCtx); +static ST_VOID err_get_add_descr (ASN1_DEC_CTXT *aCtx); +static ST_VOID err_add_ssi_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID err_get_add_ssi_i16 (ASN1_DEC_CTXT *aCtx); +static ST_VOID err_get_add_ssi_u32 (ASN1_DEC_CTXT *aCtx); +static ST_VOID err_get_dee_obj_name (ASN1_DEC_CTXT *aCtx); +static ST_VOID err_dee_obj_name_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID err_get_add_serv_err (ASN1_DEC_CTXT *aCtx); +static ST_VOID err_adtnl_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID err_ssi_done (ASN1_DEC_CTXT *aCtx); + +/************************************************************************/ +/************************************************************************/ +/* mms_err_invoke_fun */ +/* This function is called from mmsdec.c when invoke ID is expected */ +/* in a CONFIRMED or CANCEL ERROR PDU. */ +/************************************************************************/ + +ST_VOID mms_err_invoke_fun (ASN1_DEC_CTXT *aCtx, ST_UINT16 id_code) + { +ST_INT pdutype; + + pdutype = _mmsdec_rslt->type; + if (aCtx->asn1r_constr_elmnt || id_code != 0) + { + asn1r_set_dec_err (aCtx, PDU_INVALID); /* wrong code or constructed int*/ + return; + } + if (asn1r_get_u32 (aCtx, &_mmsdec_rslt->id)) + { + if (pdutype == MMSCANERR) + asn1r_set_dec_err (aCtx, CANERR_INVAL_INVOKE); /* not a valid integer contents */ + else + asn1r_set_dec_err (aCtx, ERR_INVAL_INVOKE); /* not a valid integer contents */ + return; + } + + _mmsdec_rslt->dec_level = 2; /* set flag that Invoke ID is OK */ + + MLOG_CDEC1 ("Invoke ID present, = %ld",_mmsdec_rslt->id); + err_info_ptr = (ERR_INFO *) _m_get_dec_buf (aCtx, sizeof (ERR_INFO)); + if (pdutype == MMSCANERR) /* Cancel Error PDU, next must */ + ASN1R_TAG_ADD (aCtx, CTX | CONSTR,1,err_rsp2); /* be context tag 1 cstr */ + else + { /* Confirmed Error PDU, next */ +#ifdef MOD_SUPPORT + ASN1R_TAG_ADD (aCtx, CTX ,1,err_mod_pos); /* Context tag 1 (opt) */ +#endif + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,2,err_rsp2); /* Context tag 2 cstr */ + } + } + +#ifdef MOD_SUPPORT +/************************************************************************/ +/* err_mod_pos */ +/* This function is called when a modifier position is detected in a */ +/* confirmed_request_error PDU. The only thing which may follow is a */ +/* service error description. */ +/************************************************************************/ + +static ST_VOID err_mod_pos (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("err_mod_pos"); + + if (asn1r_get_i32 (aCtx, &(err_info_ptr->adtnl.mod_pos))) /* read mod position */ + asn1r_set_dec_err (aCtx, ERR_UNSPECIFIED); + err_info_ptr -> adtnl.mod_pos_pres = SD_TRUE; + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR,2,err_rsp2); /* Context tag 2 cstr */ + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* mms_err_rsp */ +/* This function is called from mmsdec.c when an Error Response PDU is */ +/* being decoded for initiate or conclude error ONLY */ +/* When this is called directly, we need to allocate the buffer */ +/************************************************************************/ + +ST_VOID mms_err_rsp (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("mms_err_rsp"); + + err_info_ptr = (ERR_INFO *) _m_get_dec_buf (aCtx, sizeof (ERR_INFO)); + aCtx->asn1r_err_fun = _mms_dec_buf_free; + err_rsp2 (aCtx); /* set tags */ + } + + +/************************************************************************/ +/************************************************************************/ +/* _mms_get_service_err */ +/* This function is called from rs_termd.c when IS is used and the */ +/* 'discarded' parameter is send (service error) -or- from rs_evnot.c */ +/* when the action result is failure. */ +/************************************************************************/ + +ST_VOID _mms_get_service_err (ASN1_DEC_CTXT *aCtx, ERR_INFO *err_ptr) + { + err_info_ptr = err_ptr; /* use caller's storage */ + err_rsp2 (aCtx); /* set tags */ + } + + +/************************************************************************/ +/************************************************************************/ +/* err_rsp2 */ +/* This function is called when an Error Response PDU is being decoded */ +/* for confirmed error. */ +/************************************************************************/ + +static ST_VOID err_rsp2 (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("err_rsp2"); + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,0,err_class); + } + +/************************************************************************/ +/* err_class */ +/* This function is invoked when the ServiceError is being decoded, and */ +/* the errorClass choice is encountered. */ +/************************************************************************/ + +static ST_VOID err_class (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("err_class"); + + ASN1R_TAG_ADD (aCtx, CTX, 0, err_get_cac); + ASN1R_TAG_ADD (aCtx, CTX, 1, err_get_cac); + ASN1R_TAG_ADD (aCtx, CTX, 2, err_get_cac); + ASN1R_TAG_ADD (aCtx, CTX, 3, err_get_cac); + ASN1R_TAG_ADD (aCtx, CTX, 4, err_get_cac); + ASN1R_TAG_ADD (aCtx, CTX, 5, err_get_cac); + ASN1R_TAG_ADD (aCtx, CTX, 6, err_get_cac); + ASN1R_TAG_ADD (aCtx, CTX, 7, err_get_cac); + ASN1R_TAG_ADD (aCtx, CTX, 8, err_get_cac); + ASN1R_TAG_ADD (aCtx, CTX, 9, err_get_cac); + ASN1R_TAG_ADD (aCtx, CTX,10, err_get_cac); + ASN1R_TAG_ADD (aCtx, CTX,11, err_get_cac); + ASN1R_TAG_ADD (aCtx, CTX,12, err_get_cac); +#ifdef CS_SUPPORT +#ifndef MMS_LITE + if (mms_chan_info[_mmsdechan].version) /* IS */ +#else + if (mmsl_version) /* IS */ +#endif + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,13, err_get_cs); /* CS error */ +#endif + } + +/************************************************************************/ +/* err_get_cac */ +/* error response is being decoded: context tagged error class has */ +/* been encountered, get the error class and error code. */ +/************************************************************************/ + +static ST_VOID err_get_cac (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("err_get_cac"); + + err_info_ptr->eclass = aCtx->asn1r_elmnt_id; /* save the error class */ + + if (asn1r_get_i16 (aCtx, &(err_info_ptr->code))) /* read the error code */ + asn1r_set_dec_err (aCtx, ERR_UNSPECIFIED); + + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = err_class_cstr_done; /* choice cstr done */ + } + +#ifdef CS_SUPPORT +/************************************************************************/ +/* err_get_cs */ +/* error response is being decoded: context tagged error class 13 has */ +/* been encountered, get the CS service error. */ +/************************************************************************/ + +static ST_VOID err_get_cs (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("err_get_cs"); + + err_info_ptr->adtnl.ss_error_data= aCtx->asn1r_field_ptr; /* save ptr to field */ + err_info_ptr->adtnl.ss_error_len = aCtx->asn1r_elmnt_len; /* save len of field */ + asn1r_parse_next (aCtx, err_cs_done); /* parse the contents */ + } + +/************************************************************************/ +/* err_cs_done */ +/* Companion Standard service error has been parsed OK. */ +/************************************************************************/ + +static ST_VOID err_cs_done (ASN1_DEC_CTXT *aCtx) + { + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = err_class_cstr_done; /* choice cstr done */ + } +#endif + +/************************************************************************/ +/* err_class_cstr_done */ +/* errorClass constructor (choice) is complete */ +/* set up to get additional (optional) information */ +/************************************************************************/ + +static ST_VOID err_class_cstr_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("err_class_cstr_done"); + + /* add tags for optional information */ + ASN1R_TAG_ADD (aCtx, CTX, 1, err_get_add_code); + ASN1R_TAG_ADD (aCtx, CTX, 2, err_get_add_descr); + ASN1R_TAG_ADD (aCtx, CTX|CONSTR, 3, err_add_ssi_cstr); + + aCtx->asn1r_decode_done_fun = _mms_dec_done_ok; + + if ((_mmsdec_rslt->type == MMSREQ) || /* terminate download request */ + (_mmsdec_rslt->type == MMSUNREQ)) /* or Event Notification */ + /* Terminate Download req or Event Notification unconfirmed */ + /* request is being decoded, decode can be done, but check for */ + /* companion standard information. */ + _ms_set_cs_check (aCtx); + else + asn1r_set_all_cstr_done (aCtx); /* clear all cstr done funtions */ + } + +/************************************************************************/ +/* err_get_add_code */ +/* error response is being decoded: additional error code has been */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID err_get_add_code (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("err_get_add_code"); + + err_info_ptr->adtnl.info_pres = SD_TRUE; /* set info present */ + err_info_ptr->adtnl.code_pres = SD_TRUE; /* set code present */ + + /* read the additional error code */ + if (asn1r_get_i32 (aCtx, &(err_info_ptr->adtnl.code))) + asn1r_set_dec_err (aCtx, ERR_UNSPECIFIED); + + ASN1R_TAG_ADD (aCtx, CTX, 2, err_get_add_descr); + ASN1R_TAG_ADD (aCtx, CTX|CONSTR, 3, err_add_ssi_cstr); + + if ((_mmsdec_rslt->type == MMSREQ) || /* terminate download request */ + (_mmsdec_rslt->type == MMSUNREQ)) /* or Event Notification */ + /* Terminate Download req or Event Notification unconfirmed */ + /* request is being decoded, decode can be done, but check for */ + /* companion standard information. */ + _ms_set_cs_check (aCtx); + else + asn1r_set_all_cstr_done (aCtx); /* clear all cstr done funtions */ + } + +/************************************************************************/ +/* err_get_add_descr */ +/* error response is being decoded: additional error description has */ +/* been encountered. */ +/************************************************************************/ + +static ST_VOID err_get_add_descr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("err_get_add_descr"); + + err_info_ptr->adtnl.info_pres = SD_TRUE; /* set info present */ + err_info_ptr->adtnl.descr_pres = SD_TRUE; /* set descr present */ + + /* read the additional error description */ +/* copy error description back onto itself shifted by one character */ + err_info_ptr->adtnl.descr = (ST_CHAR *)aCtx->asn1r_field_ptr -1; + if (asn1r_get_vstr (aCtx, err_info_ptr->adtnl.descr)) + asn1r_set_dec_err (aCtx, ERR_UNSPECIFIED); + + ASN1R_TAG_ADD (aCtx, CTX|CONSTR, 3, err_add_ssi_cstr); + + if ((_mmsdec_rslt->type == MMSREQ) || /* terminate download request */ + (_mmsdec_rslt->type == MMSUNREQ)) /* or Event Notification */ + /* Terminate Download req or Event Notification unconfirmed */ + /* request is being decoded, decode can be done, but check for */ + /* companion standard information. */ + _ms_set_cs_check (aCtx); + else + asn1r_set_all_cstr_done (aCtx); /* clear all cstr done funtions */ + } + +/************************************************************************/ +/* err_add_ssi_cstr */ +/* error response is being decoded: additional service specific error */ +/* information constructor has been encountered. */ +/************************************************************************/ + +static ST_VOID err_add_ssi_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("err_get_ssi_cstr"); + + /* add tags for all choices */ + ASN1R_TAG_ADD (aCtx, CTX, 0, err_get_add_ssi_i16); + ASN1R_TAG_ADD (aCtx, CTX, 1, err_get_add_ssi_i16); + ASN1R_TAG_ADD (aCtx, CTX, 2, err_get_add_ssi_i16); + ASN1R_TAG_ADD (aCtx, CTX, 3, err_get_add_ssi_i16); + ASN1R_TAG_ADD (aCtx, CTX, 4, err_get_add_ssi_i16); + ASN1R_TAG_ADD (aCtx, CTX, 5, err_get_add_ssi_u32); + ASN1R_TAG_ADD (aCtx, CTX, 6, err_get_add_ssi_u32); + ASN1R_TAG_ADD (aCtx, CTX, 7, err_get_add_ssi_u32); +#ifndef MMS_LITE + if (mms_chan_info[_mmsdechan].version) /* IS */ +#else + if (mmsl_version) /* IS */ +#endif + { + ASN1R_TAG_ADD (aCtx, CTX|CONSTR, 8, err_get_dee_obj_name); /* def ev enroll*/ + ASN1R_TAG_ADD (aCtx, CTX, 9, err_get_add_ssi_i16); /* file rename */ + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,10, err_get_add_serv_err); /* adtnl service*/ + } + else + { + ASN1R_TAG_ADD (aCtx, CTX, 8, err_get_add_ssi_i16); /* file rename */ + ASN1R_TAG_ADD (aCtx, CTX|CONSTR, 9, err_get_add_serv_err); /* adtnl service*/ + } + } + +/************************************************************************/ +/* err_get_add_ssi_i16 */ +/* error response is being decoded: additional service specific error */ +/* information has been encountered for obtain file, start, stop, */ +/* resume, reset or file rename. */ +/************************************************************************/ + +static ST_VOID err_get_add_ssi_i16 (ASN1_DEC_CTXT *aCtx) + { +ST_INT16 ssi_error; + + MLOG_CDEC0 ("err_get_add_ssi_i16"); + + err_info_ptr->adtnl.info_pres = SD_TRUE; /* set info present indicator */ + err_info_ptr->adtnl.ssi_pres = SD_TRUE; /* set additional service pres */ + + err_info_ptr->adtnl.service = aCtx->asn1r_elmnt_id; /* save the service id */ + + /* read the additional service error */ + if (asn1r_get_i16 (aCtx, &ssi_error)) + asn1r_set_dec_err (aCtx, ERR_UNSPECIFIED); + else + err_info_ptr->adtnl.ss_error_val = (ST_UINT32) ssi_error; + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = err_ssi_done; + } + +/************************************************************************/ +/* err_get_add_ssi_u32 */ +/* error response is being decoded: additional service specific error */ +/* information has been encountered for delete varaible access, delete */ +/* named variable list or delete named type. */ +/************************************************************************/ + +static ST_VOID err_get_add_ssi_u32 (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("err_get_add_ssi_u32"); + + err_info_ptr->adtnl.info_pres = SD_TRUE; /* set info present indicator */ + err_info_ptr->adtnl.ssi_pres = SD_TRUE; /* set additional service pres */ + + err_info_ptr->adtnl.service = aCtx->asn1r_elmnt_id; /* save the service id */ + + /* read the additional service error */ + if (asn1r_get_u32 (aCtx, &(err_info_ptr->adtnl.ss_error_val))) + asn1r_set_dec_err (aCtx, ERR_UNSPECIFIED); + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = err_ssi_done; + } + +/************************************************************************/ +/* err_get_dee_obj_name */ +/* error response is being decoded: additional service specific error */ +/* information has been encountered for define event enrollment error */ +/* get the object name. */ +/************************************************************************/ + +static ST_VOID err_get_dee_obj_name (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("err_get_dee_obj_name"); + + err_info_ptr->adtnl.info_pres = SD_TRUE; /* set info present indicator */ + err_info_ptr->adtnl.ssi_pres = SD_TRUE; /* set additional service pres */ + + err_info_ptr->adtnl.service = aCtx->asn1r_elmnt_id; /* save the service id */ + + /* read the object name */ + _ms_get_mms_objname (aCtx, &err_info_ptr->adtnl.ss_error_oname, + err_dee_obj_name_done); + } + +/************************************************************************/ +/* err_dee_obj_name_done */ +/* define event enrollment error is being decoded: object name has */ +/* been obtained. */ +/************************************************************************/ + +static ST_VOID err_dee_obj_name_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("err_dee_obj_name_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = err_adtnl_done; + } + +/************************************************************************/ +/* err_get_add_serv_err */ +/* error response is being decoded: additional service specific error */ +/* information has been encountered for additional service error. */ +/************************************************************************/ + +static ST_VOID err_get_add_serv_err (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("err_get_add_serv_err"); + + err_info_ptr->adtnl.info_pres = SD_TRUE; /* set info present indicator */ + err_info_ptr->adtnl.ssi_pres = SD_TRUE; /* set additional service pres */ + + err_info_ptr->adtnl.service = aCtx->asn1r_elmnt_id; /* save the service id */ + + /* Companion Standard additional service error */ + err_info_ptr->adtnl.ss_error_data = aCtx->asn1r_field_ptr; /* save ptr to field */ + err_info_ptr->adtnl.ss_error_len = aCtx->asn1r_elmnt_len; /* save len of field */ + asn1r_parse_next (aCtx, err_adtnl_done); /* parse contents */ + } + +/************************************************************************/ +/* err_adtnl_done */ +/* IS: define event enrollment, object name has been obtained -OR- */ +/* Companion Standard ANY has been parsed OK. Message is now done. */ +/************************************************************************/ + +static ST_VOID err_adtnl_done (ASN1_DEC_CTXT *aCtx) + { + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = err_ssi_done; + } + +/************************************************************************/ +/* err_ssi_done */ +/* Service specific info constructor done */ +/************************************************************************/ + +static ST_VOID err_ssi_done (ASN1_DEC_CTXT *aCtx) + { + if ((_mmsdec_rslt->type == MMSREQ) || /* terminate download request */ + (_mmsdec_rslt->type == MMSUNREQ)) /* or Event Notification */ + /* Terminate Download req or Event Notification unconfirmed */ + /* request is being decoded, decode can be done, but check for */ + /* companion standard information. */ + _ms_set_cs_check (aCtx); + else + aCtx->asn1r_decode_done = SD_TRUE; /* just terminate the parse */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_err_resp */ +/* Create and send a general error response */ +/************************************************************************/ + +ST_RET mp_err_resp (MMSREQ_IND *indptr, ST_INT16 class, ST_INT16 code) + { +ST_UCHAR *msg_ptr; /* pointer to start of message */ +ST_INT msg_len; /* length of message built */ +ST_RET ret; /* function return value */ +ASN1_ENC_CTXT localEncCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_ENC_CTXT *aCtx = &localEncCtx; + + S_LOCK_COMMON_RESOURCES (); + if (!(ret = _ms_check_ind_actv (indptr))) + { + msg_ptr = _ms_mk_err_resp (aCtx, m_build_buf,mms_max_msgsize,indptr->op,indptr->id, + class,code); + msg_len = M_BUILD_BUF_END - msg_ptr; + + if (aCtx->asn1r_encode_overrun) /* Check for encode overrun */ + ret = ME_ASN1_ENCODE_OVERRUN; + else + ret = _mms_send_data (indptr->chan, msg_len, msg_ptr, + indptr->context, indptr->add_addr_info); + + /* If a response logging function is installed, call it */ + if (!ret && m_log_error_resp_fun && (mms_debug_sel & MMS_LOG_RESP)) + (*m_log_error_resp_fun) (indptr, class, code); + + _ms_ind_serve_done (indptr); + } + S_UNLOCK_COMMON_RESOURCES (); + return (ret); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_err_resp */ +/* Create and send a general error response */ +/* Initiate, Conclude, Confirmed Service */ +/************************************************************************/ + +ST_RET mpl_err_resp (ST_INT opcode, ST_UINT32 invoke, + ST_INT16 err_class, ST_INT16 code) + { +ST_INT ret; +ASN1_ENC_CTXT localEncCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_ENC_CTXT *aCtx = &localEncCtx; +ERR_INFO err_info; + + S_LOCK_COMMON_RESOURCES (); + mmsl_msg_start = _ms_mk_err_resp (aCtx, mmsl_enc_buf,mmsl_enc_buf_size,opcode,invoke, + err_class,code); + mmsl_msg_len = (mmsl_enc_buf + mmsl_enc_buf_size) - mmsl_msg_start; + + if (!aCtx->asn1r_encode_overrun) /* Check for encode overrun */ + ret = SD_SUCCESS; + else + ret = ME_ASN1_ENCODE_OVERRUN; + + if ((mms_debug_sel & MMS_LOG_RESP) && ret == SD_SUCCESS && ml_log_error_resp_fun) + { + memset (&err_info, 0, sizeof (err_info)); + err_info.code = code; + err_info.eclass = err_class; + (*ml_log_error_resp_fun) (invoke, &err_info); + } + + S_UNLOCK_COMMON_RESOURCES (); + return (ret); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_err_resp */ +/* This function is called to build a general error response. */ +/* adtnl_err_info is a global variable containing additional error */ +/* information. */ +/************************************************************************/ + +ST_UCHAR *_ms_mk_err_resp (ASN1_ENC_CTXT *aCtx, ST_UCHAR *buf_ptr, ST_INT buf_len, ST_INT op, + ST_UINT32 id, ST_INT16 err_class, ST_INT16 code) + { +ST_INT pdu_type; /* PDU type to go in error PDU. */ +#ifdef DEBUG_SISCO +ST_UCHAR *msg_start; /* These variables used for */ +ST_INT msg_len; /* debug print only */ +#endif + + asn1r_strt_asn1_bld (aCtx, buf_ptr,buf_len); /* init the ASN.1 tools */ + _ms_wr_service_err (aCtx, err_class,code,&adtnl_err_info); + +/* Write SEQUENCE header and invoke id, if this opcode is NOT initiate */ +/* or conclude. */ + if ((op == MMSOP_INITIATE) || (op == MMSOP_CONCLUDE)) + ; + else + { /* Finish the serviceError sequence. */ + if (op == MMSOP_CANCEL) + asn1r_fin_constr (aCtx, 1,CTX,DEF); /* context tag 1 for cancel */ + else + asn1r_fin_constr (aCtx, 2,CTX,DEF); /* context 2 for confirmed err */ + +#ifdef MOD_SUPPORT + if (adtnl_err_info.mod_pos_pres) /* send the modifier position */ + { + asn1r_wr_u32 (aCtx, adtnl_err_info.mod_pos); + asn1r_fin_prim (aCtx, 1,CTX); + adtnl_err_info.mod_pos_pres = SD_FALSE; + } +#endif + + asn1r_wr_u32 (aCtx, id); /* Write the invoke ID. */ + asn1r_fin_prim (aCtx, 0,CTX); /* conf and cancl both use CTX 0 tag */ + } + + /* Reset add'l info structure to empty */ + adtnl_err_info.info_pres = SD_FALSE; + + switch (op) + { + case MMSOP_INITIATE : + pdu_type = MMSINITERR; + break; + case MMSOP_CONCLUDE : + pdu_type = MMSCNCLERR; + break; + case MMSOP_CANCEL : + pdu_type = MMSCANERR; + break; + default: + pdu_type = MMSERROR; + } + +#ifdef DEBUG_SISCO + asn1r_fin_constr (aCtx, (ST_UINT16) pdu_type,CTX,DEF); + msg_start = aCtx->asn1r_field_ptr + 1; + msg_len = (buf_ptr + buf_len) - msg_start; + MLOG_ENC1 ("ERROR Response built : len = %d ",msg_len); + MLOG_ENCH (msg_len,msg_start); + MLOG_PAUSEENC (NULL); + return (msg_start); +#else + asn1r_fin_constr (aCtx, (ST_UINT16) pdu_type,CTX,DEF); + return (aCtx->asn1r_field_ptr + 1); +#endif + } + + +/************************************************************************/ +/************************************************************************/ +/* wr_service_err */ +/************************************************************************/ + +ST_VOID _ms_wr_service_err (ASN1_ENC_CTXT *aCtx, ST_INT16 err_class, ST_INT16 code, + ADTNL_ERR_RESP_INFO *adtnl_info) + { +ST_INT16 ssi_error; + + asn1r_strt_constr (aCtx); /* start sequence constructor */ + if (adtnl_info->info_pres) + { /* write additional info if present */ + if (adtnl_info->ssi_pres) + { /* write the service specific info */ + asn1r_strt_constr (aCtx); + switch (adtnl_info->service) + { + case 0 : /* obtain file */ + case 1 : /* start */ + case 2 : /* stop */ + case 3 : /* resume */ + case 4 : /* reset */ + ssi_error = (ST_INT16) adtnl_info->ss_error_val; + asn1r_wr_i16 (aCtx, ssi_error); + asn1r_fin_prim (aCtx, adtnl_info->service,CTX); + break; + + case 5 : /* delete variable access */ + case 6 : /* delete named variable list */ + case 7 : /* delete named type */ + asn1r_wr_u32 (aCtx, adtnl_info->ss_error_val); + asn1r_fin_prim (aCtx, adtnl_info->service,CTX); + break; + + case 8 : +#ifndef MMS_LITE + if (mms_chan_info[_mmsdechan].version) /* IS */ +#else + if (mmsl_version) /* IS */ +#endif + { /* IS, define event enrollment */ + asn1r_strt_constr (aCtx); + _ms_wr_mms_objname (aCtx, &adtnl_info->ss_error_oname); + asn1r_fin_constr (aCtx, 8,CTX,DEF); + } + else + { /* DIS, file rename */ + ssi_error = (ST_INT16) adtnl_info->ss_error_val; + asn1r_wr_i16 (aCtx, ssi_error); + asn1r_fin_prim (aCtx, adtnl_info->service,CTX); + } + break; + + case 9 : +#ifndef MMS_LITE + if (mms_chan_info[_mmsdechan].version) /* IS */ +#else + if (mmsl_version) /* IS */ +#endif + { /* IS, file rename */ + ssi_error = (ST_INT16) adtnl_info->ss_error_val; + asn1r_wr_i16 (aCtx, ssi_error); + asn1r_fin_prim (aCtx, adtnl_info->service,CTX); + } + else + { /* DIS, additional service err */ + asn1r_strt_constr (aCtx); + asn1r_wr_delmnt (aCtx, adtnl_info->ss_error_data,adtnl_info->ss_error_len); + asn1r_fin_constr (aCtx, 9,CTX,DEF); + } + break; + + default: /* IS, additional service error */ + asn1r_strt_constr (aCtx); + asn1r_wr_delmnt (aCtx, adtnl_info->ss_error_data,adtnl_info->ss_error_len); + asn1r_fin_constr (aCtx, 10,CTX,DEF); + } + asn1r_fin_constr (aCtx, 3,CTX,DEF); + } + + if (adtnl_info->descr_pres) + { /* write the additional description */ + asn1r_wr_vstr (aCtx, adtnl_info->descr); + asn1r_fin_prim (aCtx, 2,CTX); + } + if (adtnl_info->code_pres) + { /* write the service specific info */ + asn1r_wr_i32 (aCtx, adtnl_info->code); + asn1r_fin_prim (aCtx, 1,CTX); + } + adtnl_info->info_pres = SD_FALSE; + } + + asn1r_strt_constr (aCtx); /* start choice constructor */ + asn1r_wr_i16 (aCtx, code); /* write the value */ + asn1r_fin_prim (aCtx, err_class,CTX); /* finish the contents */ + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* context 0 cstr */ + } + diff --git a/mmslib/mmsl/mms_err2.c b/mmslib/mmsl/mms_err2.c new file mode 100644 index 0000000..61a4464 --- /dev/null +++ b/mmslib/mmsl/mms_err2.c @@ -0,0 +1,110 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1993 - 1997, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : mms_err2.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the MMS error functions for decoding */ +/* & encoding the error response PDUs : */ +/* initiate-ErrorPDU */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/09/05 EJV 06 Fixed thisFileName for MMS-EASE */ +/* 03/17/04 RKR 05 Changed thisFileName */ +/* 03/11/04 GLB 04 Remove "thisFileName" */ +/* 09/13/99 MDE 02 Added SD_CONST modifiers */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" + +#include "mmsdefs.h" +#include "mms_pcon.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#if defined(DEBUG_SISCO) && !defined(MMS_LITE) +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +#ifndef MMS_LITE + +#include "mms_vcon.h" + +/************************************************************************/ +/* mp_init_err */ +/* Create and send an initiate error response */ +/************************************************************************/ + +ST_RET mp_init_err (MMSREQ_IND *indptr, ST_INT16 class, ST_INT16 code) + { +INIT_INFO *init_req; +INIT_INFO *init_resp; +CS_INIT_INFO *cs_init_resp; +ST_INT size; +ST_INT i; +ST_INT ret; + + S_LOCK_COMMON_RESOURCES (); + init_req = (INIT_INFO *) indptr->req_info_ptr; + +/* Allocate the INITIATE response info, make big enough for all CS init */ + size = sizeof (INIT_INFO) + + (MAX_INIT_CONTEXTS * sizeof (CS_INIT_INFO)); + init_resp = (INIT_INFO *) chk_calloc (1, size); + cs_init_resp = (CS_INIT_INFO *) (init_resp+1); + + if (!(ret = _ms_check_ind_actv (indptr))) + { + if (init_req->mms_p_context_pres) + { + init_resp->rslt.accept_context = SD_FALSE; + init_resp->rslt.err_info_pres = SD_TRUE; + init_resp->rslt.err.eclass = class; + init_resp->rslt.err.code = code; + } + + for (i = 0; i < init_req->num_cs_init; ++i, ++cs_init_resp) + { + cs_init_resp->rslt.accept_context = SD_FALSE; + cs_init_resp->rslt.err_info_pres = SD_TRUE; + cs_init_resp->rslt.err.eclass = class; + cs_init_resp->rslt.err.code = code; + } /* for each CS context */ + + mv_chk_init_resp_param (indptr,init_resp); + ret = mp_init_resp (indptr,init_resp); + } + + chk_free (init_resp); + S_UNLOCK_COMMON_RESOURCES (); + return (ret); + } + +#else +/************************************************************************/ +/* mpl_init_err */ +/* Create an initiate error response */ +/************************************************************************/ + +ST_RET mpl_init_err (ST_INT16 err_class, ST_INT16 code) + { + return (mpl_err_resp (MMSOP_INITIATE,0L,err_class,code)); + } +#endif diff --git a/mmslib/mmsl/mms_err3.c b/mmslib/mmsl/mms_err3.c new file mode 100644 index 0000000..1d88e4a --- /dev/null +++ b/mmslib/mmsl/mms_err3.c @@ -0,0 +1,75 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1993 - 2007, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : mms_err3.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the MMS error functions for decoding */ +/* & encoding the error response PDUs : */ +/* conclude-ErrorPDU */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 11/01/07 EJV 06 Rem obsolete LLC30... code. */ +/* 03/09/05 EJV 05 Fixed thisFileName for MMS-EASE */ +/* 03/17/04 RKR 04 Changed thisFileName */ +/* 03/11/04 GLB 03 Remove "thisFileName" */ +/* 09/13/99 MDE 02 Added SD_CONST modifiers */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" + +#include "mmsdefs.h" +#include "mms_pcon.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#if defined(DEBUG_SISCO) && !defined(MMS_LITE) +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +#ifndef MMS_LITE +/************************************************************************/ +/* mp_conclude_err */ +/************************************************************************/ + +ST_RET mp_conclude_err (MMSREQ_IND *indptr, ST_INT16 class, ST_INT16 code) + { +ST_RET ret; + + S_LOCK_COMMON_RESOURCES (); + mms_chan_info[indptr->chan].ctxt.chan_state &= ~M_CONCL_URESP_WAIT; + ret = mp_err_resp (indptr,class,code); + S_UNLOCK_COMMON_RESOURCES (); + return (ret); + } + +#else +/************************************************************************/ +/* mpl_conclude_err */ +/************************************************************************/ + +ST_RET mpl_conclude_err (ST_INT16 err_class, ST_INT16 code) + { + return (mpl_err_resp (MMSOP_CONCLUDE,0L,err_class,code)); + } + +#endif + + diff --git a/mmslib/mmsl/mms_err4.c b/mmslib/mmsl/mms_err4.c new file mode 100644 index 0000000..a38a6e6 --- /dev/null +++ b/mmslib/mmsl/mms_err4.c @@ -0,0 +1,96 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1993 - 2007, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : mms_err4.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the MMS error functions for decoding */ +/* & encoding the error response PDUs : */ +/* cancel-ErrorPDU */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 11/01/07 EJV 07 Rem obsolete LLC30... code. */ +/* 08/09/05 EJV 06 MMS_LITE does not need thisFileName. */ +/* 03/17/04 RKR 05 Changed thisFileName */ +/* 03/11/04 GLB 04 Remove "thisFileName" */ +/* 12/20/01 JRB 03 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 02 Added SD_CONST modifiers */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" + +#include "mmsdefs.h" +#include "mms_pcon.h" +#include "asn1defs.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#if defined(DEBUG_SISCO) && (defined(S_MT_SUPPORT) && !defined(MMS_LITE)) +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +#ifndef MMS_LITE +/************************************************************************/ +/* mp_cancel_err */ +/* Create and send a cancel error response */ +/************************************************************************/ + +ST_RET mp_cancel_err (MMSREQ_IND *indptr, ST_INT16 err_class, ST_INT16 code) + { +ST_UCHAR *msg_ptr; /* pointer to start of message */ +ST_INT msg_len; /* length of message built */ +ST_RET ret; /* function return value */ +ASN1_ENC_CTXT localEncCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_ENC_CTXT *aCtx = &localEncCtx; + + S_LOCK_COMMON_RESOURCES (); + if (!(ret = _ms_check_ind_actv (indptr))) + { + if (indptr->cancl_state != CANCELING) + { + S_UNLOCK_COMMON_RESOURCES (); + return (MVE_CANCEL_STATE); + } + msg_ptr = _ms_mk_err_resp (aCtx, m_build_buf,mms_max_msgsize,MMSOP_CANCEL,indptr->id, + err_class,code); + msg_len = M_BUILD_BUF_END - msg_ptr; /* find length */ + + if (aCtx->asn1r_encode_overrun) /* Check for encode overrun */ + ret = ME_ASN1_ENCODE_OVERRUN; + else + ret = _mms_send_data (indptr->chan, msg_len, msg_ptr, + indptr->context, indptr->add_addr_info); + } + S_UNLOCK_COMMON_RESOURCES (); + return (ret); + } + +#else +/************************************************************************/ +/* mpl_cancel_err */ +/* Create a cancel error response */ +/************************************************************************/ + +ST_RET mpl_cancel_err (ST_UINT32 invoke, ST_INT16 err_class, ST_INT16 code) + { + return (mpl_err_resp (MMSOP_CANCEL,invoke,err_class,code)); + } + +#endif diff --git a/mmslib/mmsl/mms_rej.c b/mmslib/mmsl/mms_rej.c new file mode 100644 index 0000000..991bc80 --- /dev/null +++ b/mmslib/mmsl/mms_rej.c @@ -0,0 +1,281 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2002, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : mms_rej.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the functions to decode/encode a reject */ +/* operation. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Cleaned up "thisFileName" */ +/* 01/18/02 JRB 05 Fix encoding if !DEBUG_SISCO (use new fcts */ +/* _ms_fin_pdu & _ms_fin_pdu_log. */ +/* 12/20/01 JRB 04 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 03 Added SD_CONST modifiers */ +/* 03/23/99 MDE 02 Changes to decode buffer allocation scheme */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" + +#include "mmsdefs.h" +#include "mms_pcon.h" +#include "asn1defs.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#if defined(DEBUG_SISCO) && defined(S_MT_SUPPORT) +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ + +static REJECT_RESP_INFO *rej_info_ptr; + +static ST_VOID rej_get_problem (ASN1_DEC_CTXT *aCtx, ST_UINT16 id_code); + + +/************************************************************************/ +/************************************************************************/ +/* mms_reject */ +/* Reject PDU is being decoded, and this is a context-specific element. */ +/* It should be an integer. */ +/************************************************************************/ + +ST_VOID mms_reject (ASN1_DEC_CTXT *aCtx, ST_UINT16 id_code) + { + MLOG_CDEC0 ("mms_reject"); + + if (aCtx->asn1r_constr_elmnt) + { + asn1r_set_dec_err (aCtx, PDU_INVALID); + return; + } + + rej_info_ptr = (REJECT_RESP_INFO *) _m_get_dec_buf (aCtx, sizeof (REJECT_RESP_INFO)); + aCtx->asn1r_decode_method = ASN1_CLASS_METHOD; + rej_info_ptr -> detected_here = SD_FALSE; /* reject detected remotely */ + rej_info_ptr -> pdu_type = UNKNOWNTYPE; /* in this case, no pdu type */ + + if (!id_code) /* if this is invoke id - */ + { + if (asn1r_get_u32 (aCtx, &rej_info_ptr -> invoke)) /* read invoke id */ + asn1r_set_dec_err (aCtx, PDU_INVALID); + else + { + rej_info_ptr -> invoke_known = SD_TRUE; /* set flag */ + _mmsdec_rslt -> dec_level = 2; + _mmsdec_rslt -> id = rej_info_ptr -> invoke; /* store invoke ID */ + aCtx->asn1r_c_id_fun = rej_get_problem; + } + } + else + { + rej_info_ptr -> invoke_known = SD_FALSE; /* clear */ + rej_get_problem (aCtx, id_code); /* call rejectreason fun direct */ + } + } + +/************************************************************************/ +/* rej_get_problem */ +/* Reject PDU is being decoded, and this is a context-specific element. */ +/* It should be an integer in which the tag is the error class and the */ +/* value is the error code. */ +/************************************************************************/ + +static ST_VOID rej_get_problem (ASN1_DEC_CTXT *aCtx, ST_UINT16 id_code) + { + MLOG_CDEC0 ("rej_get_problem"); + + if (aCtx->asn1r_constr_elmnt || id_code < 1 || id_code > 11 || aCtx->asn1r_elmnt_len > 1) + { /* better not be constructor */ + asn1r_set_dec_err (aCtx, PDU_INVALID); /* better be context tagged 1-4 */ + return; /* max value = 8 */ + } + +/* Information looks OK; extract it. */ + + rej_info_ptr -> rej_class = id_code; + asn1r_get_i16 (aCtx, &rej_info_ptr -> rej_code); /* get the problem value */ + + aCtx->asn1r_decode_done_fun = _mms_dec_done_ok; /* all done now */ + aCtx->asn1r_decode_done = SD_TRUE; + } + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_reject_resp */ +/* Sends reject message. Returns integer value indicating success */ +/* (value = 0) or failure (value <> 0) to send the reject message. */ +/************************************************************************/ + +ST_RET mp_reject_resp (ST_INT chan, REJECT_RESP_INFO *info_ptr) + { +ST_UCHAR *msg_ptr; +ST_INT msg_len; +LLP_ADDR_INFO add_llp_info; +ST_RET ret; +ASN1_ENC_CTXT localEncCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_ENC_CTXT *aCtx = &localEncCtx; + + S_LOCK_COMMON_RESOURCES (); + msg_ptr = _ms_mk_reject (aCtx, m_build_buf,mms_max_msgsize,info_ptr); + msg_len = M_BUILD_BUF_END - msg_ptr; /* find length */ + + add_llp_info.i.LLC.use_rem_addr = SD_FALSE; + add_llp_info.i.LLC.send_type = REJECT_PDU; + add_llp_info.i.LLC.req_ptr = (ST_CHAR *)NULL; + +/* Check for encode overrun */ + if (aCtx->asn1r_encode_overrun) + ret = ME_ASN1_ENCODE_OVERRUN; + else + ret = _mms_send_data (chan, msg_len, msg_ptr, P_context_sel[chan], &add_llp_info); + + S_UNLOCK_COMMON_RESOURCES (); + return (ret); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_reject_resp */ +/* Sends reject message. Returns integer value indicating success */ +/* (value = 0) or failure (value <> 0) to send the reject message. */ +/************************************************************************/ + +ST_RET mpl_reject_resp (REJECT_RESP_INFO *info_ptr) + { +ST_RET ret; +ASN1_ENC_CTXT localEncCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_ENC_CTXT *aCtx = &localEncCtx; + + S_LOCK_COMMON_RESOURCES (); + mmsl_msg_start = _ms_mk_reject (aCtx, mmsl_enc_buf,mmsl_enc_buf_size,info_ptr); + /* find length */ + mmsl_msg_len = (mmsl_enc_buf + mmsl_enc_buf_size) - mmsl_msg_start; + + if (aCtx->asn1r_encode_overrun) /* Check for encode overrun */ + ret = ME_ASN1_ENCODE_OVERRUN; + else + ret = SD_SUCCESS; + S_UNLOCK_COMMON_RESOURCES (); + return (ret); + } +#endif + +/************************************************************************/ +/* _ms_mk_reject */ +/* Construct a reject PDU. */ +/************************************************************************/ + +ST_UCHAR *_ms_mk_reject (ASN1_ENC_CTXT *aCtx, ST_UCHAR *msg_ptr, ST_INT buf_len, + REJECT_RESP_INFO *info_ptr) + { +ST_UCHAR *pduStart; +ST_INT pduLen; + + asn1r_strt_asn1_bld (aCtx, msg_ptr,buf_len); /* init the ASN.1 tools */ + + asn1r_wr_i16 (aCtx, info_ptr -> rej_code); + asn1r_fin_prim (aCtx, info_ptr -> rej_class,CTX); + +#ifndef MMS_LITE + if (info_ptr->invoke_known && info_ptr->invoke <= MAX_INVOKE) +#else + if (info_ptr->invoke_known) +#endif + { + asn1r_wr_u32 (aCtx, info_ptr -> invoke); /* if the invoke ID is known & */ + asn1r_fin_prim (aCtx, 0,CTX); /* is not artificial, write it */ + } + + pduStart = _ms_fin_pdu (aCtx, MMSREJECT, &pduLen); +#ifdef DEBUG_SISCO + _ms_fin_pdu_log (MMSREJECT, "REJECT", pduStart, pduLen); +#endif + + return (pduStart); + } + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* _ms_reject_resp */ +/* Function to reject an MMS confirmed response pdu, given the request */ +/* control structure. This must be a valid response, parsed OK. */ +/* Called by the user or virtual machine after the confirm is matched. */ +/************************************************************************/ + +ST_VOID _ms_reject_resp (MMSREQ_PEND *reqptr, ST_INT16 code) + { +REJECT_RESP_INFO info; /* reject input info structure */ + + info.detected_here = SD_TRUE; /* parse error detected locally */ + + info.invoke_known = SD_TRUE; + info.invoke = reqptr->id; + + info.pdu_type = MMSRESP; /* confirmed response */ + info.rej_code = code; /* include error code */ + info.rej_class = 2; /* invalid response class */ + + if (mp_reject_resp (reqptr->chan,&info)) /* send the reject pdu */ + (*u_mmsexcept_ind_fun)(reqptr->chan,MX_REJECT); + (*u_reject_ind_fun) (reqptr->chan,&info); + } + +/************************************************************************/ +/* mp_reject_ind */ +/************************************************************************/ + +ST_RET mp_reject_ind (MMSREQ_IND *req_ptr, REJECT_RESP_INFO *info_ptr) + { +ST_RET ret; /* function return value */ + + S_LOCK_COMMON_RESOURCES (); + if (!(ret = _ms_check_ind_actv (req_ptr))) + { + if (!(ret = mp_reject_resp (req_ptr->chan, info_ptr))) + _ms_ind_serve_done (req_ptr); + } + S_UNLOCK_COMMON_RESOURCES (); + return (ret); + } + +/************************************************************************/ +/* mp_reject_conf */ +/************************************************************************/ + +ST_RET mp_reject_conf (MMSREQ_PEND *req_ptr, REJECT_RESP_INFO *info_ptr) + { +ST_RET ret; /* function return value */ + + S_LOCK_COMMON_RESOURCES (); + if (!(ret = _ms_check_req_actv (req_ptr))) + { + ret = mp_reject_resp (req_ptr->chan, info_ptr); + } + S_UNLOCK_COMMON_RESOURCES (); + return (ret); + } + +#endif diff --git a/mmslib/mmsl/mms_rtaa.c b/mmslib/mmsl/mms_rtaa.c new file mode 100644 index 0000000..d80447b --- /dev/null +++ b/mmslib/mmsl/mms_rtaa.c @@ -0,0 +1,1222 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2002, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : mms_rtaa.c */ +/* PRODUCT(S) : MMSEASE */ +/* */ +/* MODULE DESCRIPTION : */ +/* Function to decode ASN.1 type definitions into Runtime typedefs */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* _ms_mk_rt_aa_all */ +/* _ms_mk_rt_aa */ +/* _ms_get_rtaa_data_size */ +/* _ms_log_runtime_aa */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 07/27/05 MDE 06 if m_max_rt_aa_cltr == 0 calc required size */ +/* 05/11/05 MDE 05 Added _ms_calc_rt_aa_size */ +/* 02/22/05 JRB 04 Make "sp" local to avoid VXWORKS conflict. */ +/* 04/02/03 JRB 03 Add UTF8string support (see RT_UTF8_STRING). */ +/* 03/04/02 JRB 02 Add more "SD_CONST RUNTIME_TYPE *". */ +/* Make sure str_end_rtaa, arr_end_rtaa init'd. */ +/* 02/06/02 JRB 01 New. Code from mms_alta.c moved here. */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" + +#include "mmsdefs.h" +#include "mms_pvar.h" +#include "mms_vvar.h" +#include "asn1defs.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/************************************************************************/ + +#define COPY_RTAA(dest,src) { dest->rt = src->rt;\ + dest->offset_to_data = src->offset_to_data; } + +/************************************************************************/ +/************************************************************************/ +/* This code is required for handling real alternate access data */ +/* conversion via mmsdataa, and for using the ARB DATA handlers. */ + +/************************************************************************/ +/************************************************************************/ +/* Runtime AA (RTAA) Handling */ +/************************************************************************/ +/************************************************************************/ +static ST_VOID _ms_calc_rt_aa_size (SD_CONST RUNTIME_TYPE *rt_head, ST_INT rt_num, + ST_INT *num_aa_out); + +static ST_RET get_struct_comps (AA_APPLY_CTRL *aa_app, RT_AA_CTRL *w_rtaa); +static ST_RET get_arr_elmnts (AA_APPLY_CTRL *aa_app, RT_AA_CTRL *w_rtaa); +static ST_INT count_num_comp (AA_APPLY_CTRL *aa_app, + ALT_ACC_EL *aa, + ST_INT *count_out); + +static RT_AA_CTRL *find_end_rtaa (AA_APPLY_CTRL *aa_app, + RT_AA_CTRL *start_rtaa); + +static RT_AA_CTRL *find_named_comp (AA_APPLY_CTRL *aa_app, + ST_CHAR *name, + RT_AA_CTRL *w_rtaa); + +static ST_RET get_component_elmnts (AA_APPLY_CTRL *aa_app, + RT_AA_CTRL *rtaa); + +static RT_AA_CTRL *find_arr_el (AA_APPLY_CTRL *aa_app, + RT_AA_CTRL *w_rtaa, + ST_INT el_index); +static ST_VOID ms_rtaa_el_size_calc (RT_AA_CTRL *runtime_aa, ST_INT num_rt_aa); + +static ST_INT arr_loop_level; +static ST_INT *arr_loops; + +/************************************************************************/ +/* Create a RTAA with all elements for the specified RT type */ +/* This table is allocated via chk_calloc, and is sized for the max */ +/* possible AA size. If desired, this may be realloc'd to the correct */ +/* size by the caller. */ + +ST_RET _ms_mk_rt_aa_all (SD_CONST RUNTIME_TYPE *rt_head, ST_INT rt_num, + RT_AA_CTRL **rt_aa_out, ST_INT *num_aa_out) + { +RT_AA_CTRL *rtaa; +ST_INT data_offset; +SD_CONST RUNTIME_TYPE *rt_end; +SD_CONST RUNTIME_TYPE *rt; +ST_INT arr_loop_buf[ASN1_MAX_LEVEL]; +ST_INT _max_rt_aa_ctrl; + + S_LOCK_COMMON_RESOURCES (); + + arr_loop_level = 0; + arr_loops = arr_loop_buf; + +/* Allocate the output array for max size */ + _max_rt_aa_ctrl = m_max_rt_aa_ctrl; + if (_max_rt_aa_ctrl == 0) + _ms_calc_rt_aa_size (rt_head, rt_num, &_max_rt_aa_ctrl); + + rtaa = (RT_AA_CTRL *) chk_calloc (_max_rt_aa_ctrl, sizeof (RT_AA_CTRL)); + *rt_aa_out = rtaa; + *num_aa_out = 0; + + rt = rt_head; /* set runtime ptr */ + rt_end = rt_head + rt_num; /* end block */ + data_offset = 0; + +/* Traverse the RT type as though we were doing a ASN.1 to LOCAL, and */ +/* set the RTAA RT pointer and offset as each element is encountered. */ + + while (rt < rt_end) + { + if (rt->el_tag == RT_ARR_END) /* treat case of array ending */ + { + if (--arr_loops[arr_loop_level] > 0) /* if need to do next ar elmnt */ + { + rt -= rt->u.arr.num_rt_blks; /* mv rt to start of arr */ + continue; + } + else + --arr_loop_level; + } + + (*num_aa_out)++; /* Count this one */ + rtaa->rt = rt; /* Set the RT pointer */ + rtaa->offset_to_data = data_offset; /* Set the offset */ + data_offset += rt->el_size; /* Offset for next */ + + if (rt->el_tag == RT_ARR_START) /* Set up array looping */ + { + ++arr_loop_level; + arr_loops[arr_loop_level] = rt->u.arr.num_elmnts; + } + + rtaa++; /* point to next runtime AA element */ + rt++; /* point to next runtime element */ + } + +/* Post process to calculate the 'rtaa->el_size' values (for packed */ +/* local representation). */ + ms_rtaa_el_size_calc (*rt_aa_out, *num_aa_out); + + if (mms_debug_sel & MMS_LOG_RTAA) + _ms_log_runtime_aa (*rt_aa_out, *num_aa_out); + +/* save the high water mark */ + if (*num_aa_out > m_hw_rt_aa_ctrl) + m_hw_rt_aa_ctrl = *num_aa_out; + + S_UNLOCK_COMMON_RESOURCES (); + return (SD_SUCCESS); + } + +/************************************************************************/ +/************************************************************************/ +/* _ms_calc_rt_aa_size */ +/************************************************************************/ + +static ST_VOID _ms_calc_rt_aa_size (SD_CONST RUNTIME_TYPE *rt_head, ST_INT rt_num, + ST_INT *num_aa_out) + { +SD_CONST RUNTIME_TYPE *rt_end; +SD_CONST RUNTIME_TYPE *rt; +ST_INT arr_loop_buf[ASN1_MAX_LEVEL]; +ST_INT num_aa; + + S_LOCK_COMMON_RESOURCES (); + arr_loop_level = 0; + arr_loops = arr_loop_buf; + + num_aa = 0; + rt = rt_head; /* set runtime ptr */ + rt_end = rt_head + rt_num; /* end block */ + +/* Traverse the RT type as though we were doing a ASN.1 to LOCAL, and */ +/* count the RTAA elements */ + while (rt < rt_end) + { + if (rt->el_tag == RT_ARR_END) /* treat case of array ending */ + { + if (--arr_loops[arr_loop_level] > 0) /* if need to do next ar elmnt */ + { + rt -= rt->u.arr.num_rt_blks; /* mv rt to start of arr */ + continue; + } + else + --arr_loop_level; + } + ++num_aa; /* Count this one */ + + if (rt->el_tag == RT_ARR_START) /* Set up array looping */ + { + ++arr_loop_level; + arr_loops[arr_loop_level] = rt->u.arr.num_elmnts; + } + rt++; /* point to next runtime element */ + } + *num_aa_out = num_aa; + S_UNLOCK_COMMON_RESOURCES (); + } + +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ +/* Create a RTAA with elements selected by a AA for the specified RT */ +/* type */ +/* This table is allocated via chk_calloc, and is sized for the max */ +/* possible AA size. If desired, this may be realloc'd to the correct */ +/* size by the caller. */ + +ST_RET _ms_mk_rt_aa (SD_CONST RUNTIME_TYPE *rt, ST_INT rt_num, + ALT_ACCESS *alt_acc, + RT_AA_CTRL **rt_aa_out, ST_INT *num_aa_out) + { +ALT_ACC_EL *aa; +ST_INT num_aa; +ST_RET ret; +ST_INT num_all_rtaa; +RT_AA_CTRL *all_rtaa; +RT_AA_CTRL *rtaa; +AA_APPLY_CTRL aa_app_ctrl; +ST_UINT32 mms_log_mask_save; +ST_INT _max_rt_aa_ctrl; + + S_LOCK_COMMON_RESOURCES (); + + aa = alt_acc->aa; + num_aa = alt_acc->num_aa; + +/* Make the 'all' rtaa - has all elements expanded, with offsets. */ +/* This is used with the AA to select the elements for the new RTAA */ + +/* Don't allow logging of the 'all' runtime aa table */ + mms_log_mask_save = mms_debug_sel; + mms_debug_sel &= ~MMS_LOG_RTAA; + ret = _ms_mk_rt_aa_all (rt, rt_num, &all_rtaa, &num_all_rtaa); + mms_debug_sel = mms_log_mask_save; + + if (ret) + { + S_UNLOCK_COMMON_RESOURCES (); + return (ret); + } + +/* Allocate the output (new) RT AA table */ + _max_rt_aa_ctrl = m_max_rt_aa_ctrl; + if (_max_rt_aa_ctrl == 0) + _ms_calc_rt_aa_size (rt, rt_num, &_max_rt_aa_ctrl); + + rtaa = (RT_AA_CTRL *) chk_calloc (_max_rt_aa_ctrl, sizeof (RT_AA_CTRL)); + *rt_aa_out = rtaa; + *num_aa_out = 0; + +/* Initialize the AA process control structure components */ + +/* Alternate Access */ + aa_app_ctrl.num_aa = num_aa; + aa_app_ctrl.aa_head = aa; + aa_app_ctrl.aa_end = aa + num_aa - 1; + aa_app_ctrl.curr_aa = aa; + +/* Default RTAA */ + aa_app_ctrl.num_all_rtaa = num_all_rtaa; + aa_app_ctrl.all_rtaa_head = all_rtaa; + aa_app_ctrl.all_rtaa_end = all_rtaa + (num_all_rtaa -1); + +/* New RTAA */ + aa_app_ctrl.num_rtaa = 0; + aa_app_ctrl.rtaa_head = rtaa; + aa_app_ctrl.curr_rtaa = rtaa; + +/* Nest Level */ + aa_app_ctrl.nest = 0; + +/* Get the appropriate rt_aa_ctrl elements */ +/* Start by getting the first nest level elements, based on the RT. */ +/* Note that these functions will call recursively to get handle */ +/* further nest levels */ + + if (rt->el_tag == RT_ARR_START) + { + ret = get_arr_elmnts (&aa_app_ctrl, all_rtaa); + } + else if (rt->el_tag == RT_STR_START) + { + ret = get_struct_comps (&aa_app_ctrl, all_rtaa); + } + else + { + MLOG_NERR0 ("Runtime Type must be a Structure or Array for AA"); + ret = MVE_RT_TYPE; + } + +/* If successful, set the output AA count and log if enabled */ + if (ret == SD_SUCCESS) + { + *num_aa_out = aa_app_ctrl.num_rtaa; + +/* Post process to calculate the 'rtaa->el_size' values (for packed */ +/* local representation). */ + ms_rtaa_el_size_calc (*rt_aa_out, *num_aa_out); + + if (mms_debug_sel & MMS_LOG_RTAA) + _ms_log_runtime_aa (*rt_aa_out, *num_aa_out); + +/* save the high water mark */ + if (*num_aa_out > m_hw_rt_aa_ctrl) + m_hw_rt_aa_ctrl = *num_aa_out; + } + else + { + chk_free (rtaa); /* If error, need to free the RTAA */ + } + + chk_free (all_rtaa); /* we are done with the 'all' RTAA */ + S_UNLOCK_COMMON_RESOURCES (); + + return (ret); + } + +/************************************************************************/ +/* We are working on a structure level, and need to copy the selected */ +/* RTAA components for this nest level. This function can be called */ +/* recursively as further nesting levels are encountered. */ +/* The 'w_rtaa' parameter is the 'working' RTAA, and is used to select */ +/* the scope (nest) for the operation */ + +static ST_RET get_struct_comps (AA_APPLY_CTRL *aa_app, RT_AA_CTRL *w_rtaa) + { +ST_RET ret; +RT_AA_CTRL *o_rtaa; +ALT_ACC_EL *aa; +ST_INT num_str_comp; +RT_AA_CTRL *start_rtaa; +RT_AA_CTRL *str_end_rtaa = NULL; +ST_BOOLEAN done; + +/* get working pointers */ + aa = aa_app->curr_aa; /* Current AA */ + o_rtaa = aa_app->curr_rtaa; /* Output RTAA */ + +/* Check to see if we need to have the outer structure */ +/* We need this if there are more than 1 named components selected */ + + if (count_num_comp (aa_app, aa, &num_str_comp)) + return (MVE_AA_SELECT); + + if (num_str_comp != 1) + { + str_end_rtaa = find_end_rtaa (aa_app, w_rtaa); + if (!str_end_rtaa) + return (MVE_AA_SELECT); + + /* Write the start component of the output rtaa */ + COPY_RTAA (o_rtaa,w_rtaa); + aa_app->num_rtaa++; + aa_app->curr_rtaa++; + } + +/* Get all selected named components */ + ret = SD_SUCCESS; + done = SD_FALSE; + while (!done && ret == SD_SUCCESS) + { + aa = aa_app->curr_aa; /* get current AA pointer */ + o_rtaa = aa_app->curr_rtaa; /* get the output RTAA pointer */ + + /* This AA sel type can be a named component (w/wo further nesting) */ + /* or a 'end nest' element. */ + switch (aa->sel_type) + { + case AA_COMP : + /* This AA selects a entire named component. Just find the */ + /* component name in the ALL RTAA and copy it's RTAA elements */ + + start_rtaa = find_named_comp (aa_app, aa->u.component, w_rtaa); + if (!start_rtaa) + { + return (MVE_AA_SELECT); + } + ret = get_component_elmnts (aa_app, start_rtaa); + ++aa_app->curr_aa; + break; + + case AA_COMP_NEST : + /* This AA selects a named component, with further selection. */ + /* Find the component name in the ALL RTAA and call recursively */ + /* to get the components. */ + + /* This component must be a structure or an array, so that we */ + /* need to call recursively to get the selected RT AA elements */ + + start_rtaa = find_named_comp (aa_app, aa->u.component, w_rtaa); + if (!start_rtaa) + return (MVE_AA_SELECT); + + ++aa_app->nest; /* Increment the nest level */ + /* Point to the next AA */ + if (aa_app->curr_aa < aa_app->aa_end) + ++aa_app->curr_aa; + else + { + MLOG_NERR0 ("AA table too small"); + return (MVE_AA_SELECT); + } + + /* Based on the RT type, get the next level with the scope */ + /* defined by the start RTAA. */ + if (start_rtaa->rt->el_tag == RT_ARR_START) + { + ret = get_arr_elmnts (aa_app, start_rtaa); + } + else if (start_rtaa->rt->el_tag == RT_STR_START) + { + ret = get_struct_comps (aa_app, start_rtaa); + } + else + { + MLOG_NERR0 ("Incorrect RT Type for further nesting"); + return (MVE_RT_TYPE); + } + --aa_app->nest; /* Decrement the nest level */ + + /* curr_aa should now point to our END_NEST, consume it */ + if (aa_app->curr_aa->sel_type != AA_END_NEST) + { + MLOG_NERR0 ("Required AA_END_NEST not present"); + return (MVE_AA_SELECT); + } + else /* Consume the AA_END_NEST */ + ++aa_app->curr_aa; + break; + + case AA_END_NEST : + done = SD_TRUE; /* This level is complete */ + break; + + case AA_ALL : + case AA_ALL_NEST : + case AA_INDEX_NEST : + case AA_INDEX_RANGE_NEST : + case AA_INDEX : + case AA_INDEX_RANGE : + MLOG_NERR0 ("Incorrect AA sel_type for structure component selection"); + return (MVE_AA_SELECT); + break; + + default : + MLOG_NERR0 ("Invalid AA sel_type"); + return (MVE_AA_SELECT); + break; + } + + /* Prepare to look at next AA, if this was not the last */ + if (aa_app->curr_aa > aa_app->aa_end) + done = SD_TRUE; + } /* End while getting named components at this level */ + + +/* Don't continue if an error was detected */ + if (ret) + return (ret); + + +/* Now copy the structure end element if required */ + if (num_str_comp != 1) + { + o_rtaa = aa_app->curr_rtaa; + COPY_RTAA (o_rtaa, str_end_rtaa); + aa_app->num_rtaa++; + aa_app->curr_rtaa++; + } + + return (ret); + } + +/************************************************************************/ +/* We are working on a array selection, and need to copy the selected */ +/* RTAA components for this selection. This function can be called */ +/* recusively as further nesting levels are encountered. */ +/* The 'w_rtaa' parameter is the 'working' RTAA, and is used to select */ +/* the scope (nest) for the operation */ + + +static ST_RET get_arr_elmnts (AA_APPLY_CTRL *aa_app, RT_AA_CTRL *w_rtaa) + { +ST_RET ret; +ST_INT i; +RT_AA_CTRL *el_rtaa; +RT_AA_CTRL *o_rtaa; +RT_AA_CTRL *arr_end_rtaa = NULL; +ST_INT nest; +ALT_ACC_EL *aa; +ST_INT num_el; +ST_INT start_el; +ST_INT curr_el; + + + ret = SD_SUCCESS; + +/* get working pointers */ + aa = aa_app->curr_aa; /* Current AA */ + o_rtaa = aa_app->curr_rtaa; /* Output RTAA */ + + /* This AA sel type must be one of the array selection types, */ + /* (w/wo further nesting) */ + + /* Start by determining the number of elements and the start element */ + switch (aa->sel_type) + { + case AA_INDEX : + case AA_INDEX_NEST : + num_el = 1; + start_el = (ST_INT) aa->u.index; + break; + + case AA_INDEX_RANGE : + case AA_INDEX_RANGE_NEST : + num_el = (ST_INT) aa->u.ir.num_elmnts; + start_el = (ST_INT) aa->u.ir.low_index; + if (!num_el && !start_el) + { + num_el = w_rtaa->rt->u.arr.num_elmnts; + start_el = 0; + } + break; + + case AA_ALL : + case AA_ALL_NEST : + num_el = w_rtaa->rt->u.arr.num_elmnts; + start_el = 0; + break; + + case AA_COMP : + case AA_COMP_NEST : + MLOG_NERR0 ("Invalid AA Type"); + return (MVE_AA_SELECT); + break; + + default : + MLOG_NERR0 ("Bad AA Type"); + return (MVE_AA_SELECT); + break; + } + +/* num_el is the number of elements to get, start_el is the base index */ +/* w_rtaa points to the start of the array in the default RTAA */ + +/* Determine whether the array elements have further AA select ... */ + if (aa->sel_type == AA_INDEX_NEST || + aa->sel_type == AA_INDEX_RANGE_NEST || + aa->sel_type == AA_ALL_NEST) + { + nest = SD_TRUE; + } + else + nest = SD_FALSE; + + +/* Check to see if we need to have the outer array */ +/* We need this if there are more than 1 element selected */ + + if (num_el != 1) + { + arr_end_rtaa = find_end_rtaa (aa_app, w_rtaa); + if (!arr_end_rtaa) + return (MVE_AA_SELECT); + + /* Write the start component of the output rtaa */ + COPY_RTAA (o_rtaa,w_rtaa); + aa_app->num_rtaa++; + aa_app->curr_rtaa++; + } + +/* Now we work through the array elements, getting them one at a time */ + curr_el = start_el; + for (i = 0; i < num_el && ret == SD_SUCCESS; ++i, ++curr_el) + { + aa_app->curr_aa = aa; /* Restore the working AA position */ + o_rtaa = aa_app->curr_rtaa; /* Output RTAA */ + + /* Move the working RTAA pointer to the next element to be selected */ + el_rtaa = find_arr_el (aa_app, w_rtaa, curr_el); + if (!el_rtaa) + return (MVE_AA_SELECT); + + /* If further selection is to take place, do it */ + if (nest) + { + /* Set up working parameters for the nest level of nesting */ + if (aa_app->curr_aa < aa_app->aa_end) + ++aa_app->curr_aa; + else + { + MLOG_NERR0 ("AA table too small"); + return (MVE_AA_SELECT); + } + ++aa_app->nest; /* Increment the nest level */ + + if (el_rtaa->rt->el_tag == RT_ARR_START) + { + ret = get_arr_elmnts (aa_app, el_rtaa); + } + else if (el_rtaa->rt->el_tag == RT_STR_START) + { + ret = get_struct_comps (aa_app, el_rtaa); + } + else /* Whoops, internal error */ + { + MLOG_NERR0 ("Bad RT Type for further AA selection"); + return (MVE_RT_TYPE); + } + --aa_app->nest; /* Decrement the nest level */ + } + else /* No further selection, copy the compoment */ + { + ret = get_component_elmnts (aa_app, el_rtaa); + } + } /* end for each selected element */ + + +/* Now copy the array end element if required */ + if (ret == SD_SUCCESS && num_el != 1) + { + o_rtaa = aa_app->curr_rtaa; + COPY_RTAA (o_rtaa, arr_end_rtaa); + aa_app->num_rtaa++; + aa_app->curr_rtaa++; + } + + if (nest) + { + /* curr_aa should now point to our END_NEST, consume it */ + if (aa_app->curr_aa->sel_type != AA_END_NEST) + { + MLOG_NERR0 ("Required AA_END_NEST not present"); + ret = MVE_AA_SELECT; + } + else /* Consume the AA_END_NEST */ + ++aa_app->curr_aa; + } + else + ++aa_app->curr_aa; /* Point to the next AA */ + + return (ret); + } + +/************************************************************************/ +/************************************************************************/ +/* Given the array or structure start RTAA pointer, return a pointer to */ +/* the corresponding end element */ + +static RT_AA_CTRL *find_end_rtaa (AA_APPLY_CTRL *aa_app, + RT_AA_CTRL *start_rtaa) + { +SD_CONST RUNTIME_TYPE *start_rt; +SD_CONST RUNTIME_TYPE *end_rt; +ST_INT num_rt; +RT_AA_CTRL *rtaa; + + start_rt = start_rtaa->rt; + if (start_rt->el_tag == RT_ARR_START) + { + num_rt = start_rt->u.arr.num_rt_blks; + } + else if (start_rt->el_tag == RT_STR_START) + { + num_rt = start_rt->u.str.num_rt_blks; + } + else + { + MLOG_NERR0 ("Bad RT Type"); + return (NULL); + } + + end_rt = start_rt + (num_rt + 1); + +/* Just a trivial sanity check */ + if (end_rt->el_tag != RT_ARR_END && + end_rt->el_tag != RT_STR_END) + { + MLOG_NERR0 ("Bad RT Type"); + return (NULL); + } + +/* Now find the RTAA that has a reference to the end structure */ +/* within this scope (we hope!) */ + + for (rtaa = start_rtaa; rtaa <= aa_app->all_rtaa_end; ++rtaa) + { + if (rtaa->rt == end_rt) + return (rtaa); + } + + MLOG_NERR0 ("End RT Not Found"); + return (NULL); + } + +/************************************************************************/ +/* Copy the current RTAA element, including any sub-elements */ + +static ST_RET get_component_elmnts (AA_APPLY_CTRL *aa_app, RT_AA_CTRL *rtaa) + { +RT_AA_CTRL *last_rtaa; +RT_AA_CTRL *dest_rtaa; + + if (rtaa->rt->el_tag == RT_ARR_START || + rtaa->rt->el_tag == RT_STR_START) + { + last_rtaa = find_end_rtaa (aa_app, rtaa); + if (!last_rtaa) + return (MVE_AA_SELECT); + } + else /* Simple element, just copy one */ + last_rtaa = rtaa; + + dest_rtaa = aa_app->curr_rtaa; + while (rtaa <= last_rtaa) + { + COPY_RTAA (dest_rtaa, rtaa); + aa_app->num_rtaa++; + aa_app->curr_rtaa++; + ++dest_rtaa; + ++rtaa; + } + return (SD_SUCCESS); + } + +/************************************************************************/ +/************************************************************************/ +/* Count the number of named components selected at this level */ +/* by the alternate access select */ + +static ST_INT count_num_comp (AA_APPLY_CTRL *aa_app, + ALT_ACC_EL *aa, + ST_INT *count_out) + { +ST_INT count; +ST_INT nest; +ST_INT done; + + done = SD_FALSE; + nest = 0; + count = 0; + while (done == SD_FALSE) + { + switch (aa->sel_type) + { + case AA_COMP : + if (nest == 0) + ++count; + break; + + case AA_COMP_NEST : + if (nest == 0) + ++count; + nest++; + break; + + case AA_INDEX : + case AA_INDEX_RANGE : + case AA_ALL : + break; + + case AA_INDEX_NEST : + case AA_INDEX_RANGE_NEST : + case AA_ALL_NEST : + nest++; + break; + + case AA_END_NEST : + if (--nest < 0) + done = SD_TRUE; + break; + + default : + MLOG_NERR0 ("Bad AA Type"); + return (MVE_AA_SELECT); + break; + } + + if (aa >= aa_app->aa_end) /* If we are done (level 0 only) */ + done = SD_TRUE; + + aa++; /* Point to next */ + } + + *count_out = count; + return (SD_SUCCESS); + } + + +/************************************************************************/ +/* Given a RTAA pointer, find a named component at the current nest */ +/* The 'w_rtaa' parameter is the 'working' RTAA, and is used to select */ +/* the scope (nest) for the operation */ + +static RT_AA_CTRL *find_named_comp (AA_APPLY_CTRL *aa_app, + ST_CHAR *name, + RT_AA_CTRL *w_rtaa) + { +ST_INT nest; +ST_INT err; + + if (w_rtaa->rt->el_tag != RT_STR_START) + { + MLOG_NERR0 ("Bad RT Type - must be structure start"); + return (NULL); + } + w_rtaa++; + + nest = 0; + err = SD_FALSE; + while (!err) + { + if (nest == 0 && + !strcmp (name, ms_comp_name_find (w_rtaa->rt))) + { + return (w_rtaa); + } + switch (w_rtaa->rt->el_tag) + { + case RT_ARR_START : + case RT_STR_START : + nest++; + break; + + case RT_STR_END : + case RT_ARR_END : + if (--nest < 0) + break; + break; + + case RT_BOOL : + case RT_BIT_STRING : + case RT_INTEGER : + case RT_UNSIGNED : + case RT_FLOATING_POINT : + case RT_OCTET_STRING : + case RT_VISIBLE_STRING : + case RT_GENERAL_TIME : + case RT_BINARY_TIME : + case RT_BCD : + case RT_UTC_TIME : + case RT_BOOLEANARRAY : + case RT_UTF8_STRING : + break; + + default : + err = SD_TRUE; + MLOG_NERR0 ("Bad RT Type"); + break; + } + + w_rtaa++; + if (w_rtaa >= aa_app->all_rtaa_end) + break; + } + + MLOG_NERR1 ("AA Named component (%s) not found", name); + return (NULL); + } + + +/************************************************************************/ +/************************************************************************/ +/* Given a 'working' RTAA pointer to the RT_ARR_START element and the */ +/* element index, return a pointer to the start RTAA for the element */ +/* The 'w_rtaa' parameter is the 'working' RTAA, and is used to select */ +/* the scope (nest) for the operation */ + +static RT_AA_CTRL *find_arr_el (AA_APPLY_CTRL *aa_app, + RT_AA_CTRL *w_rtaa, + ST_INT el_index) + { +RT_AA_CTRL *ret_rtaa; +SD_CONST RUNTIME_TYPE *arr_rt; +SD_CONST RUNTIME_TYPE *start_rt; +ST_INT el; + + arr_rt = w_rtaa->rt; + if (arr_rt->el_tag != RT_ARR_START) + { + MLOG_NERR0 ("RTAA is not RT_ARR_START"); + return (NULL); + } + if (el_index >= arr_rt->u.arr.num_elmnts) + { + MLOG_NERR0 ("Index out of range"); + return (NULL); + } + +/* Now we need to locate the el_index'th element. To do this, we first */ +/* get a pointer to the 0'th element's first RT block, then search for */ +/* the el_index'th occurance of the RT within the RTAA */ + + w_rtaa++; /* 0'th element */ + start_rt = w_rtaa->rt; /* Start RT block */ + el = 0; + while (w_rtaa <= aa_app->all_rtaa_end) /* while still in RTAA */ + { + if (w_rtaa->rt == start_rt) /* if start of an element */ + { + if (el == el_index) /* if selected element */ + return (w_rtaa); /* we found it */ + else + ++el; /* maybe next time */ + } + w_rtaa++; /* look at next RTAA */ + } + + ret_rtaa = (w_rtaa+1) + (el_index * arr_rt->u.arr.num_rt_blks); + return (ret_rtaa); + } + + +/************************************************************************/ +/* ms_rtaa_el_size_calc */ +/************************************************************************/ + +/* Given a RTAA table, calculate the 'el_size' for each element. This */ +/* is done by using the alignment control table, and is used only for */ +/* encoding/decoding AA data that is 'packed' in local memory. */ + +static ST_VOID ms_rtaa_el_size_calc (RT_AA_CTRL *runtime_aa, + ST_INT num_rt_aa) + { +ST_INT ellen; +SD_CONST RUNTIME_TYPE *rt; +RT_AA_CTRL *rtaa_above; +ST_INT curr_offset; +ST_INT pad; +ST_INT algn; +ST_INT i; + + curr_offset = 0; /* Offset from start of data */ + rtaa_above = NULL; + for (i = 0; i < num_rt_aa; ++i, ++runtime_aa) + { + rt = runtime_aa->rt; + + /* Get 'algnment index' and size of the element (excluding padding) */ + _ms_m_get_rt_info (rt, &algn, &ellen); + + /* Set the base element size, before padding */ + runtime_aa->el_size = ellen; + + /* Check to see if padding on the element above is required for */ + /* alignment for this element, add it if so. */ + /* Increment the offset until no bits are set that shouldn't be */ + pad = 0; + while (curr_offset & algn) + { + curr_offset++; + pad++; + } + + if (pad) + { + if (!rtaa_above) /* First element better not require alignment */ + { + MLOG_ERR0 ("Alignment table error"); + } + else /* add pad to element above */ + rtaa_above->el_size += pad; + } + + /* Save the pointer to the previous RT element (not this one's name) */ + rtaa_above = runtime_aa; + + /* Point past the current element */ + curr_offset += ellen; + } + } + +/************************************************************************/ +/* _ms_get_rtaa_data_size */ +/************************************************************************/ + +ST_INT _ms_get_rtaa_data_size (RT_AA_CTRL *runtime_aa, + ST_INT num_rt_aa) + { +ST_INT i; +ST_INT size; + + size = 0; + for (i = 0; i < num_rt_aa; ++i, ++runtime_aa) + size += runtime_aa->el_size; + return (size); + } + +/************************************************************************/ +/************************************************************************/ +/* LOGGING FUNCTIONS */ +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ +/* _ms_log_runtime_aa */ +/************************************************************************/ + +ST_VOID _ms_log_runtime_aa (RT_AA_CTRL *rt_aa, ST_INT num_aa) + { +#ifdef DEBUG_SISCO +SD_CONST RUNTIME_TYPE *rt; + +ST_INT i; +ST_INT indent; +SD_CONST ST_CHAR *comp_name; +/* Use these strings to keep logging aligned and indented as desired */ +#define MAX_INDENT 5 +SD_CONST ST_CHAR *sp[MAX_INDENT] = + { + " ", + " ", + " ", + " ", + " ", + }; +SD_CONST ST_CHAR *sp2[MAX_INDENT] = + { + " ", + " ", + " ", + " ", + "", + }; + + S_LOCK_COMMON_RESOURCES (); + indent = 0; + MLOG_ALWAYS1 ("RTAA : %d elements", num_aa); + + for (i = 0; i < num_aa; ++i, rt_aa++) + { + rt = rt_aa->rt; + comp_name = ms_comp_name_find (rt); + if (strlen (comp_name)) + { + MLOG_CALWAYS3 ("%sNamed comp %s: %s", + sp[indent], + sp2[indent], + comp_name); + } + + switch (rt->el_tag) + { + case RT_ARR_START : + MLOG_CALWAYS5 ("%sArray start %s: size %02d, %02d elmnts, %02d rt", + sp[indent], + sp2[indent], + rt_aa->el_size, + rt->u.arr.num_elmnts, + rt->u.arr.num_rt_blks); + if (++indent >= MAX_INDENT) + indent--; + break; + + case RT_ARR_END : + if (--indent < 0) + indent++; + MLOG_CALWAYS5 ("%sArray end %s: size %02d, %02d elmnts, %02d rt", + sp[indent], + sp2[indent], + rt_aa->el_size, + rt->u.arr.num_elmnts, + rt->u.arr.num_rt_blks); + break; + + case RT_STR_START : + MLOG_CALWAYS3 ("%sStruct start%s: size %02d", + sp[indent], + sp2[indent], + rt_aa->el_size); + if (++indent >= MAX_INDENT) + indent--; + break; + + case RT_STR_END : + if (--indent < 0) + indent++; + MLOG_CALWAYS3 ("%sStruct end %s: size %02d", + sp[indent], + sp2[indent], + rt_aa->el_size); + break; + + case RT_BOOL : + MLOG_CALWAYS5 ("%sBoolean %s: size %02d, precision %02d, offset %d", + sp[indent], + sp2[indent], + rt_aa->el_size, + rt->u.p.el_len, + rt_aa->offset_to_data); + break; + + case RT_BIT_STRING : + MLOG_CALWAYS5 ("%sBitstring %s: size %02d, precision %02d, offset %d", + sp[indent], + sp2[indent], + rt_aa->el_size, + rt->u.p.el_len, + rt_aa->offset_to_data); + break; + + case RT_INTEGER : + MLOG_CALWAYS5 ("%sInteger %s: size %02d, precision %02d, offset %d", + sp[indent], + sp2[indent], + rt_aa->el_size, + rt->u.p.el_len, + rt_aa->offset_to_data); + break; + + case RT_UNSIGNED : + MLOG_CALWAYS5 ("%sUnsigned %s: size %02d, precision %02d, offset %d", + sp[indent], + sp2[indent], + rt_aa->el_size, + rt->u.p.el_len, + rt_aa->offset_to_data); + break; + + case RT_FLOATING_POINT : + MLOG_CALWAYS5 ("%sFloat %s: size %02d, precision %02d, offset %d", + sp[indent], + sp2[indent], + rt_aa->el_size, + rt->u.p.el_len, + rt_aa->offset_to_data); + break; + + case RT_OCTET_STRING : + MLOG_CALWAYS5 ("%sOctet Str %s: size %02d, precision %02d, offset %d", + sp[indent], + sp2[indent], + rt_aa->el_size, + rt->u.p.el_len, + rt_aa->offset_to_data); + break; + + case RT_VISIBLE_STRING : + MLOG_CALWAYS5 ("%sVisible Str %s: size %02d, precision %02d, offset %d", + sp[indent], + sp2[indent], + rt_aa->el_size, + rt->u.p.el_len, + rt_aa->offset_to_data); + break; + + case RT_GENERAL_TIME : + MLOG_CALWAYS5 ("%sGen Time %s: size %02d, precision %02d, offset %d", + sp[indent], + sp2[indent], + rt_aa->el_size, + rt->u.p.el_len, + rt_aa->offset_to_data); + break; + + case RT_BINARY_TIME : + MLOG_CALWAYS5 ("%sBin Time %s: size %02d, precision %02d, offset %d", + sp[indent], + sp2[indent], + rt_aa->el_size, + rt->u.p.el_len, + rt_aa->offset_to_data); + break; + + case RT_BCD : + MLOG_CALWAYS5 ("%sBCD %s: size %02d, precision %02d, offset %d", + sp[indent], + sp2[indent], + rt_aa->el_size, + rt->u.p.el_len, + rt_aa->offset_to_data); + break; + + case RT_UTC_TIME : + MLOG_CALWAYS5 ("%sUtc Time %s: size %02d, precision %02d, offset %d", + sp[indent], + sp2[indent], + rt_aa->el_size, + rt->u.p.el_len, + rt_aa->offset_to_data); + break; + + case RT_UTF8_STRING : + MLOG_CALWAYS5 ("%sUTF8 Str %s: size %02d, precision %02d, offset %d", + sp[indent], + sp2[indent], + rt_aa->el_size, + rt->u.p.el_len, + rt_aa->offset_to_data); + break; + + default : /* should not be any other tag */ + MLOG_CALWAYS1 (" **** UNKNOWN ELEMENT %02d ",i); + break; + } + } + S_UNLOCK_COMMON_RESOURCES (); + +#endif + } + diff --git a/mmslib/mmsl/mms_tdef.c b/mmslib/mmsl/mms_tdef.c new file mode 100644 index 0000000..0727bc3 --- /dev/null +++ b/mmslib/mmsl/mms_tdef.c @@ -0,0 +1,3265 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2006, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : mms_tdef.c */ +/* PRODUCT(S) : MMSEASE */ +/* */ +/* MODULE DESCRIPTION : */ +/* Function to decode ASN.1 type definitions into Runtime typedefs */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* ms_runtime_create */ +/* ms_runtime_destroy */ +/* ms_is_rt_prim */ +/* ms_rt_el_tag_text */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 08/06/07 JRB 59 Chg ms_rt_bld_* to avoid realloc (reduces */ +/* max memory usage and fragmentation). */ +/* 04/17/07 JRB 58 ms_get_blocked_length: set also prim_count. */ +/* 02/02/07 JRB 57 Fix log message in ms_rt_bld_chk_state. */ +/* 10/30/06 JRB 56 Add ms_rt_bld_* functions. */ +/* 03/22/06 EJV 55 Chg RT_GENERAL_TIME to use time_t len & algn.*/ +/* 01/30/06 GLB 54 Integrated porting changes for VMS */ +/* 08/01/05 JRB 53 Avoid risky cast to remove const. */ +/* 04/07/05 MDE 52 Changed ERR log to NERR */ +/* 03/10/05 JRB 51 Add ms_rt_el_tag_text funct. */ +/* 02/23/05 JRB 50 ms_is_rt_prim: add SD_CONST to arg. */ +/* 02/21/05 JRB 49 Del m_struct_* for Lite, created by FOUNDRY. */ +/* Del asserts checking m_struct_*. */ +/* 01/27/05 JRB 48 Move m_lite_data.. extern to mms_vvar.h. */ +/* Init m_data_algn_tbl=NULL if FOUNDRY. */ +/* Add ; to one more MLOG* call. */ +/* 11/02/04 JRB 47 For MMS_LITE, use m_lite_data_algn_tbl */ +/* generated by Foundry for target platform. */ +/* 11/01/04 JRB 46 Add ; on MLOG* calls to work with new macros.*/ +/* 06/29/04 JRB 45 str_done: chk for empty structure. */ +/* 12/09/03 JRB 44 Add LYNX support. */ +/* 11/07/03 JRB 43 Fix misleading log message when decode done. */ +/* 10/13/03 EJV 42 Removed defined(__VAX). */ +/* 06/05/03 JRB 41 type_name_cstr_done: copy component names */ +/* for USE_RT_TYPE_2. */ +/* 04/28/03 JRB 40 Eliminate compiler warnings. */ +/* 04/28/03 JRB 39 Add UTF8string support (see RT_UTF8_STRING). */ +/* 03/13/03 JRB 38 u_ml_get_rt_type: chg from "func ptr" to func.*/ +/* 02/20/03 JRB 37 get_str_comp_name ret err if name index */ +/* can't be found for USE_RT_TYPE_3. */ +/* type_name_cstr_done save & restore comp name */ +/* for USE_RT_TYPE_2/USE_RT_TYPE_3. */ +/* 02/20/03 JRB 36 Del PSOS code. */ +/* 01/20/03 CRM 35 Added "defined(linux)" code. */ +/* 01/03/03 JRB 34 Move arr_loop* globals to locals in ms_get.. */ +/* 12/31/02 MDE 33 Eliminate use of m_calc_rt_size global. */ +/* 12/26/02 JRB 32 Add ms_asn1_to_runtime_x for backward compat.*/ +/* 12/16/02 JRB 31 Add ms_is_rt_prim funct. */ +/* 11/11/02 JRB 30 Chg ms_runtime_create/destroy args. */ +/* Make ms_asn1_to_runtime static, must call */ +/* ms_runtime_create instead. */ +/* Use DEC_INFO struct to avoid global vars. */ +/* Pass aCtx to ms_asn1_to_runtime & pass */ +/* DEC_INFO in aCtx->usr_info[0]. */ +/* 04/16/02 MDE 29 Now set name index for named struct elements */ +/* 03/04/02 JRB 28 Add more "SD_CONST RUNTIME_TYPE *". */ +/* 12/20/01 JRB 27 Converted to use ASN1R (re-entrant ASN1) */ +/* 11/14/01 EJV 26 Added support for new MMS type UtcTime: */ +/* Added fun get_utc_time_el; */ +/* set_type_tags: added code for tag 17; */ +/* _ms_m_get_rt_info: added case for RT_UTC_TIME*/ +/* _ms_log_runtime: added case for RT_UTC_TIME; */ +/* 10/18/01 JRB 25 Eliminate warning. */ +/* 08/29/00 JRB 24 Del ms_comp_name_find function. Use macro. */ +/* 07/28/00 JRB 23 Simplify RT_TYPE ifdefs. */ +/* Fix SD_CONST usage & lint warnings. */ +/* Make ms_type_nam* static. Only used here. */ +/* 07/13/00 JRB 22 Add ms_runtime_create, ms_runtime_destroy, */ +/* ms_comp_name_find. */ +/* 06/29/00 JRB 21 Make ms_asn1_to_runtime work for MMS LITE. */ +/* Must def USE_RT_TYPE_2 to save comp names. */ +/* 09/13/99 MDE 20 Added SD_CONST modifiers */ +/* 04/14/99 MDE 19 Removed unnecessary include files */ +/* 02/23/99 JRB 18 MMS_LITE: "m_data_algn.. = m_def_data_algn.."*/ +/* Don't need packed for backward compatibility.*/ +/* 09/10/98 MDE 17 Changes to work better with MMS-LITE */ +/* 08/21/98 EJV 16 __hpux STRSTRT_ALGN set from 3 to 0, and */ +/* 07/23/98 RKR 15 OPEN_VMS STRSTRT_ALGN set from 3 to 0 */ +/* 06/26/98 EJV 14 m_def_data_algn_tbl only for __alpha DECUNIX.*/ +/* 06/03/98 MDE 13 Corrected structure end alignment handling */ +/* 03/23/98 MDE 12 Tweaks to structure alignment */ +/* 03/12/98 MDE 11 Worked on structure alignment */ +/* 02/10/98 MDE 10 Runtime type changes for LITE */ +/* 11/04/97 DSF 09 Fixed alignment table for WIN32 */ +/* 10/30/97 MDE 08 Minor logging change */ +/* 09/29/97 MDE 07 Minor logging change */ +/* 08/27/97 MDE 06 Fixed problem with log runtime w/numrt = 0 */ +/* 08/15/97 MDE 05 BTOD handling changes */ +/* 08/04/97 MDE 04 Minor cleanup */ +/* 06/19/97 MDE 03 Added 64 bit integer support */ +/* 06/09/97 MDE 02 Fixed MMS-LITE compile problems, other minor */ +/* 04/08/97 MDE 01 Fixed 'RT Table too small prob w/named types */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#include "glbtypes.h" + +#include "sysincs.h" +#include "glbsem.h" +#include "mmsdefs.h" +#include "mms_pvar.h" +#include "mms_vvar.h" +#include "asn1defs.h" +#if defined(MMS_LITE) +#include "mvl_defs.h" +#endif + +/************************************************************************/ +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + + +/************************************************************************/ + +#ifdef MMS_LITE +ST_VOID (*u_rt_type_process) (SD_CONST RUNTIME_TYPE *rt, ST_INT num_rt); +#endif + +static ST_VOID _ms_log_runtime (ST_INT indent, SD_CONST RUNTIME_TYPE *rt, + ST_INT num_rt); + +static ST_VOID _do_padding (RUNTIME_TYPE *padDest, + ST_INT *curr_offset, + ST_INT algn); +static ST_VOID _get_struct_start_align (SD_CONST RUNTIME_TYPE *rt, + ST_INT *algn_out, + ST_INT *ellen_out); +static ST_VOID _get_struct_end_align (SD_CONST RUNTIME_TYPE *rt, + ST_INT *algn_out, + ST_INT *ellen_out); +static ST_VOID _get_arr_start_align (SD_CONST RUNTIME_TYPE *rt, + ST_INT *algn_out, + ST_INT *ellen_out); + +/************************************************************************/ + +static ST_VOID str_comp_seq_start (ASN1_DEC_CTXT *aCtx); /* CTX 1 CSTR - seq of comp */ +static ST_VOID get_num_arr_el (ASN1_DEC_CTXT *aCtx); +static ST_VOID array_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID arr_el_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID get_arr_el (ASN1_DEC_CTXT *aCtx); +static ST_VOID float_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID get_float_exp (ASN1_DEC_CTXT *aCtx); +static ST_VOID get_float_fract (ASN1_DEC_CTXT *aCtx); +static ST_VOID get_str_packed (ASN1_DEC_CTXT *aCtx); /* CTX 0 BOOL - packed */ +static ST_VOID get_arr_packed (ASN1_DEC_CTXT *aCtx); +static ST_VOID type_name_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID type_name_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID get_named_type (ASN1_DEC_CTXT *aCtx); +static ST_VOID get_array_el (ASN1_DEC_CTXT *aCtx); +static ST_VOID get_struct_el (ASN1_DEC_CTXT *aCtx); +static ST_VOID get_bool_el (ASN1_DEC_CTXT *aCtx); +static ST_VOID get_bitstr_el (ASN1_DEC_CTXT *aCtx); +static ST_VOID get_int_el (ASN1_DEC_CTXT *aCtx); +static ST_VOID get_uint_el (ASN1_DEC_CTXT *aCtx); +static ST_VOID get_float_el (ASN1_DEC_CTXT *aCtx); +static ST_VOID get_octstr_el (ASN1_DEC_CTXT *aCtx); +static ST_VOID get_vstr_el (ASN1_DEC_CTXT *aCtx); +static ST_VOID get_gtime_el (ASN1_DEC_CTXT *aCtx); +static ST_VOID get_btime_el (ASN1_DEC_CTXT *aCtx); +static ST_VOID get_bcd_el (ASN1_DEC_CTXT *aCtx); +static ST_VOID get_utc_time_el (ASN1_DEC_CTXT *aCtx); +static ST_VOID get_utf8_el (ASN1_DEC_CTXT *aCtx); +static ST_VOID set_type_tags (ASN1_DEC_CTXT *aCtx); +static ST_VOID td_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID td_err (ASN1_DEC_CTXT *aCtx, ST_RET err); + +/************************************************************************/ +/************************************************************************/ +/* Variables and definitions used in this module */ + +static RUNTIME_TYPE *rt_ptr; /* current runtime element */ + +static ST_INT rt_count; /* total elements in runtime table */ + /* (also index) */ +static ST_INT rt_limit; /* max # runtime elements */ + + +/* defines used during decode for various types of errors */ +#define PDU_ERR 2 +#define LENGTH_ERR 3 +#define UNSUPPORTED 4 +#define UNKNOWN_TYPENAME 5 +#define RUNTIME_LIMIT 6 + +static ST_INT arr_index[ASN1_MAX_LEVEL]; /* index to array element start */ +static RUNTIME_TYPE *struct_tracking[ASN1_MAX_LEVEL]; + +static OBJECT_NAME type_name; /* temp storage */ + + +/************************************************************************/ +/* ms_asn1_to_runtime */ +/************************************************************************/ + +static ST_INT _ms_asn1_to_runtime (ASN1_DEC_CTXT *aCtx, + ST_UCHAR *asn1ptr, ST_UINT asn1len, + RUNTIME_TYPE *rt_table, ST_INT rt_len) + { +MMSDEC_INFO dummy_rslt; +ASN1_TO_RT_DEC_INFO *decInfo = (ASN1_TO_RT_DEC_INFO *) aCtx->usr_info[0]; + + S_LOCK_COMMON_RESOURCES (); + + _mmsdec_rslt = &dummy_rslt; /* give _ms_get_mms_objname a place to point */ + /* to */ + rt_ptr = rt_table; /* initialize the element pointer */ + decInfo->rt_start = rt_table;/* initialize the element pointer */ + rt_limit = rt_len; /* save the limit */ + + rt_count = 0; /* set element count = 0 */ + +#if defined(USE_RT_TYPE_2) + decInfo->comp_name_used = 0; + decInfo->comp_name_ptr = decInfo->comp_name_buf; +#endif + + aCtx->asn1r_decode_method = ASN1_TAG_METHOD; + + aCtx->asn1r_decode_done_fun = td_done; /* set up done function */ + aCtx->asn1r_err_fun = td_err; /* set up error detected fun */ + + set_type_tags (aCtx); /* setup the legal tags */ + + asn1r_decode_asn1 (aCtx, asn1ptr,asn1len); /* do message decode and */ + +/* If decode was OK and we are producing a real RT table, need to set */ +/* the data element sizes. */ + if (rt_count && !decInfo->calc_only) + { + ms_rt_size_calc (rt_table,rt_count); + +/* Also log the runtime type, if selected */ + if (mms_debug_sel & MMS_LOG_RT) + ms_log_runtime (rt_table, rt_count); + } + + S_UNLOCK_COMMON_RESOURCES (); + return (rt_count); /* return # elements used */ + } + + +/************************************************************************/ +/* set_type_tags */ +/* setup tags for main TypeSpecfication decode */ +/************************************************************************/ + +static ST_VOID set_type_tags (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,0,get_named_type); + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,1,get_array_el); + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,2,get_struct_el); + ASN1R_TAG_ADD (aCtx, CTX,3,get_bool_el); + ASN1R_TAG_ADD (aCtx, CTX,4,get_bitstr_el); + ASN1R_TAG_ADD (aCtx, CTX,5,get_int_el); + ASN1R_TAG_ADD (aCtx, CTX,6,get_uint_el); + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,7,get_float_el); + ASN1R_TAG_ADD (aCtx, CTX,9,get_octstr_el); + ASN1R_TAG_ADD (aCtx, CTX,10,get_vstr_el); + ASN1R_TAG_ADD (aCtx, CTX,11,get_gtime_el); + ASN1R_TAG_ADD (aCtx, CTX,12,get_btime_el); + ASN1R_TAG_ADD (aCtx, CTX,13,get_bcd_el); + ASN1R_TAG_ADD (aCtx, CTX,17,get_utc_time_el); + ASN1R_TAG_ADD (aCtx, CTX,RT_UTF8_STRING,get_utf8_el); + } + +/************************************************************************/ +/* rt_ptr_inc */ +/* move the rt_ptr to next element and inc count. Checks vs limit. */ +/************************************************************************/ + +static ST_VOID rt_ptr_inc (ASN1_DEC_CTXT *aCtx) + { + if (++rt_count >= rt_limit) /* move the runtime pointer */ + { + MLOG_CDEC0 ("decode_done"); + aCtx->asn1r_decode_done = SD_TRUE; + } + else + rt_ptr++; /* point to next runtime element */ + } + +/************************************************************************/ +/************************************************************************/ +/* TypeSpecification element get start functions */ +/************************************************************************/ +/************************************************************************/ +/* get_named_type */ +/* named type element, check if in database, copy if so. */ +/************************************************************************/ + + +static ST_VOID get_named_type (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("get_named_type"); + +/* execute 'type_name_done' when type name has been extracted */ + _ms_get_mms_objname (aCtx, &type_name,type_name_done); + } + +/************************************************************************/ +/* type_name_done */ +/* The type_name objectName has been read, and is now in 'type_name' */ +/* That means that the type_name constructor now can be complete. */ +/************************************************************************/ + +static ST_VOID type_name_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("type_name_done"); + + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = type_name_cstr_done; + } + + +/************************************************************************/ +/* get_array_el */ +/* array element, setup to get array parameters. */ +/************************************************************************/ + +static ST_VOID get_array_el (ASN1_DEC_CTXT *aCtx) + { +ASN1_TO_RT_DEC_INFO *decInfo = (ASN1_TO_RT_DEC_INFO *) aCtx->usr_info[0]; + + MLOG_CDEC0 ("get_array_el"); + + if (!decInfo->calc_only) + rt_ptr->el_tag = RT_ARR_START; /* write the tag */ + + arr_index[aCtx->asn1r_msg_level] = rt_count; /* save index to this element */ + + ASN1R_TAG_ADD (aCtx, CTX,0,get_arr_packed);/* set up to get next items */ + ASN1R_TAG_ADD (aCtx, CTX,1,get_num_arr_el); + } + +/************************************************************************/ +/* get_struct_el */ +/* structure element, setup to get struct parameters. */ +/************************************************************************/ + +static ST_VOID get_struct_el (ASN1_DEC_CTXT *aCtx) + { +ASN1_TO_RT_DEC_INFO *decInfo = (ASN1_TO_RT_DEC_INFO *) aCtx->usr_info[0]; + + MLOG_CDEC0 ("get_struct_el"); + + if (++rt_count >= rt_limit) + { + MLOG_NERR0 ("ASN.1 to RT Error : RT Table too small"); + asn1r_set_dec_err (aCtx, RUNTIME_LIMIT); + } + else + { + if (!decInfo->calc_only) + { + rt_ptr->el_tag = RT_STR_START; /* write the tag */ + struct_tracking[aCtx->asn1r_msg_level] = rt_ptr; + rt_ptr++; /* point to next runtime element*/ + } + } + + ASN1R_TAG_ADD (aCtx, CTX,0,get_str_packed); + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,1,str_comp_seq_start); + } + +/************************************************************************/ +/* Simple type get functions */ +/************************************************************************/ +/************************************************************************/ +/* get_bool_el */ +/* boolean element encountered. */ +/************************************************************************/ + +static ST_VOID get_bool_el (ASN1_DEC_CTXT *aCtx) + { +ASN1_TO_RT_DEC_INFO *decInfo = (ASN1_TO_RT_DEC_INFO *) aCtx->usr_info[0]; + + MLOG_CDEC0 ("get_bool_el"); + + if (!decInfo->calc_only) + { + rt_ptr->el_tag = RT_BOOL; /* set data type tag */ + rt_ptr->u.p.el_len = 1; /* set max data length */ + } + rt_ptr_inc (aCtx); /* move rt ptr, inc count */ + } + +/************************************************************************/ +/* get_bitstr_el */ +/* bitstring element encountered. */ +/************************************************************************/ + +static ST_VOID get_bitstr_el (ASN1_DEC_CTXT *aCtx) + { +ASN1_TO_RT_DEC_INFO *decInfo = (ASN1_TO_RT_DEC_INFO *) aCtx->usr_info[0]; +ST_INT32 size; + + MLOG_CDEC0 ("get_bitstr_el"); + + if (asn1r_get_i32 (aCtx, &size)) + asn1r_set_dec_err (aCtx, PDU_ERR); /* too long */ + else + { + if (!decInfo->calc_only) + { + rt_ptr->el_tag = RT_BIT_STRING; /* set data type tag */ + rt_ptr->u.p.el_len = (ST_INT) size; /* save size */ + if (rt_ptr->u.p.el_len != (ST_INT) size) /* make sure OK cast */ + { + MLOG_NERR0 ("Bitstring size too big"); + asn1r_set_dec_err (aCtx, UNSUPPORTED); /* too long for MMS-EASE */ + } + } + rt_ptr_inc (aCtx); /* move rt ptr, inc count */ + } + } +/************************************************************************/ +/* get_int_el */ +/* integer element encountered. */ +/************************************************************************/ + +static ST_VOID get_int_el (ASN1_DEC_CTXT *aCtx) + { +ASN1_TO_RT_DEC_INFO *decInfo = (ASN1_TO_RT_DEC_INFO *) aCtx->usr_info[0]; +ST_UCHAR size; + + MLOG_CDEC0 ("get_int_el"); + + if (asn1r_get_u8 (aCtx, &size) || size %8) /* read integer */ + asn1r_set_dec_err (aCtx, LENGTH_ERR); /* if too long or not byte size */ + else + { + if (!decInfo->calc_only) + { + rt_ptr->el_tag = RT_INTEGER; /* set data type tag */ + rt_ptr->u.p.el_len = 1; /* set max data length */ + + rt_ptr->u.p.el_len = (ST_INT) size/8; /* looks OK so far */ + + if ((rt_ptr->u.p.el_len != sizeof (ST_CHAR) && + rt_ptr->u.p.el_len != sizeof (ST_INT16) && + rt_ptr->u.p.el_len != sizeof (ST_INT) && /*** decunix use 1,2,4,8 bytes ***/ +#ifdef INT64_SUPPORT + rt_ptr->u.p.el_len != sizeof (ST_INT64) && +#endif + rt_ptr->u.p.el_len != sizeof (ST_INT32)) || + size % 8) + { + MLOG_NERR0 ("Integer length not supported"); + asn1r_set_dec_err (aCtx, UNSUPPORTED); /* not standard size int */ + } + } + rt_ptr_inc (aCtx); /* move rt ptr, inc count */ + } + } + +/************************************************************************/ +/* get_uint_el */ +/* unsigned element encountered. */ +/************************************************************************/ + +static ST_VOID get_uint_el (ASN1_DEC_CTXT *aCtx) + { +ASN1_TO_RT_DEC_INFO *decInfo = (ASN1_TO_RT_DEC_INFO *) aCtx->usr_info[0]; +ST_UCHAR size; + + MLOG_CDEC0 ("get_uint_el"); + + if (asn1r_get_u8 (aCtx, &size) || size %8) /* read integer */ + asn1r_set_dec_err (aCtx, LENGTH_ERR); /* if too long or not byte size */ + else + { + if (!decInfo->calc_only) + { + rt_ptr->el_tag = RT_UNSIGNED; /* set data type tag */ + rt_ptr->u.p.el_len = (ST_INT) size/8; /* looks OK so far */ + if ((rt_ptr->u.p.el_len != sizeof (ST_CHAR) && + rt_ptr->u.p.el_len != sizeof (ST_INT16) && + rt_ptr->u.p.el_len != sizeof (ST_INT) && /*** decunix use 1,2,4,8 bytes ***/ +#ifdef INT64_SUPPORT + rt_ptr->u.p.el_len != sizeof (ST_INT64) && +#endif + rt_ptr->u.p.el_len != sizeof (ST_INT32)) || + size % 8) + { + MLOG_NERR0 ("Integer length not supported"); + asn1r_set_dec_err (aCtx, UNSUPPORTED); /* not standard size int */ + } + } + rt_ptr_inc (aCtx); /* move rt ptr, inc count */ + } + } + +/************************************************************************/ +/************************************************************************/ +/* get_float_el */ +/* float element encountered. */ +/************************************************************************/ + +static ST_UCHAR float_f; +static ST_UCHAR float_e; + +static ST_VOID get_float_el (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("get_float_el"); + + ASN1R_TAG_ADD (aCtx, UNI,INT_CODE,get_float_fract); + } + +/************************************************************************/ +/* get_float_fract */ +/* float element fractional positions (unsigned 8) encountered */ +/************************************************************************/ + +static ST_VOID get_float_fract (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("get_float_fract"); + + if (asn1r_get_u8 (aCtx, &float_f)) + asn1r_set_dec_err (aCtx, UNSUPPORTED); + else + ASN1R_TAG_ADD (aCtx, UNI,INT_CODE,get_float_exp); + } + +/************************************************************************/ +/* get_float_exp */ +/* float element fractional positions (unsigned 8) encountered */ +/************************************************************************/ + + +static ST_VOID get_float_exp (ASN1_DEC_CTXT *aCtx) + { +ASN1_TO_RT_DEC_INFO *decInfo = (ASN1_TO_RT_DEC_INFO *) aCtx->usr_info[0]; + + MLOG_CDEC0 ("get_float_exp"); + + if (asn1r_get_u8 (aCtx, &float_e)) + asn1r_set_dec_err (aCtx, UNSUPPORTED); + else + { /* IEEE 754 Single */ + if (!decInfo->calc_only) + { + rt_ptr->el_tag = RT_FLOATING_POINT; /* set data type tag */ + +/* Since DIS & IS differ on the values used to represent floating point */ +/* types, allow either. */ + + if ((float_f == SNGL_FRACT || float_f == SNGL_WHOLE) && + float_e == SNGL_EXP) + rt_ptr->u.p.el_len = 4; /* single precision */ + else + { /* IEEE 754 Double */ + if ((float_f == DOUBL_FRACT || float_f == DOUBL_WHOLE) && + float_e == DOUBL_EXP) + rt_ptr->u.p.el_len = 8; /* double precision */ + else + { + MLOG_NERR0 ("Float format not supported"); + asn1r_set_dec_err (aCtx, UNSUPPORTED); /* not standard size int */ + } + } + } + } +/* Float element constructor can now be done */ + + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = float_cstr_done; + } + +/************************************************************************/ +/* float_cstr_done */ +/* float element cstr done function, allow type decode to continue */ +/************************************************************************/ + +static ST_VOID float_cstr_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("float_cstr_done"); + rt_ptr_inc (aCtx); /* move rt ptr, inc count */ + } + + +/************************************************************************/ +/* get_octstr_el */ +/* octet string element encountered. */ +/************************************************************************/ + +static ST_VOID get_octstr_el (ASN1_DEC_CTXT *aCtx) + { +ASN1_TO_RT_DEC_INFO *decInfo = (ASN1_TO_RT_DEC_INFO *) aCtx->usr_info[0]; +ST_INT32 size; + + MLOG_CDEC0 ("get_octstr_el"); + + if (asn1r_get_i32 (aCtx, &size)) + asn1r_set_dec_err (aCtx, UNSUPPORTED); /* too long for MMS-EASE */ + else + { + if (!decInfo->calc_only) + { + rt_ptr->el_tag = RT_OCTET_STRING; /* set data type tag */ + rt_ptr->u.p.el_len = (ST_INT) size; /* save precision */ + if (rt_ptr->u.p.el_len != (ST_INT) size) /* make sure OK cast */ + { + MLOG_NERR0 ("Octet string too big"); + asn1r_set_dec_err (aCtx, UNSUPPORTED); /* too long for MMS-EASE */ + } + } + rt_ptr_inc (aCtx); /* move rt ptr, inc count */ + } + } + +/************************************************************************/ +/* get_vstr_el */ +/* visible string element encountered. */ +/************************************************************************/ + +static ST_VOID get_vstr_el (ASN1_DEC_CTXT *aCtx) + { +ASN1_TO_RT_DEC_INFO *decInfo = (ASN1_TO_RT_DEC_INFO *) aCtx->usr_info[0]; +ST_INT32 size; + + MLOG_CDEC0 ("get_vstr_el"); + + if (asn1r_get_i32 (aCtx, &size)) + asn1r_set_dec_err (aCtx, UNSUPPORTED); /* too long for MMS-EASE */ + else + { + if (!decInfo->calc_only) + { + rt_ptr->el_tag = RT_VISIBLE_STRING; /* set data type tag */ + rt_ptr->u.p.el_len = (ST_INT) size; /* save precision */ + if (rt_ptr->u.p.el_len != (ST_INT) size) /* make sure OK cast */ + { + MLOG_NERR0 ("Vis string too big"); + asn1r_set_dec_err (aCtx, UNSUPPORTED); /* too long for MMS-EASE */ + } + } + rt_ptr_inc (aCtx); /* move rt ptr, inc count */ + } + } + +/************************************************************************/ +/* get_gtime_el */ +/* generalized time element encountered. */ +/************************************************************************/ + +static ST_VOID get_gtime_el (ASN1_DEC_CTXT *aCtx) + { +ASN1_TO_RT_DEC_INFO *decInfo = (ASN1_TO_RT_DEC_INFO *) aCtx->usr_info[0]; + + MLOG_CDEC0 ("get_gtime_el"); + + if (!decInfo->calc_only) + { + rt_ptr->el_tag = RT_GENERAL_TIME; /* set data type tag */ + rt_ptr->u.p.el_len = sizeof(time_t);/* gen time precision */ + } + rt_ptr_inc (aCtx); /* move rt ptr, inc count */ + } + +/************************************************************************/ +/* get_btime_el */ +/* binary time element encountered. */ +/************************************************************************/ + +static ST_VOID get_btime_el (ASN1_DEC_CTXT *aCtx) + { +ASN1_TO_RT_DEC_INFO *decInfo = (ASN1_TO_RT_DEC_INFO *) aCtx->usr_info[0]; +ST_BOOLEAN dateFlag; + + MLOG_CDEC0 ("get_btime_el"); + + if (asn1r_get_bool (aCtx, &dateFlag)) /* get the 4/6 flag */ + asn1r_set_dec_err (aCtx, PDU_ERR); + else + { + if (!decInfo->calc_only) + { + rt_ptr->el_tag = RT_BINARY_TIME; /* set data type tag */ + if (dateFlag) /* if date included */ + rt_ptr->u.p.el_len = 6; /* expect 6 bytes */ + else /* no date */ + rt_ptr->u.p.el_len = 4; /* expect 4 bytes */ + } + rt_ptr_inc (aCtx); /* move rt ptr, inc count */ + } + } + +/************************************************************************/ +/* get_bcd_el */ +/* bcd element encountered. */ +/************************************************************************/ + +static ST_VOID get_bcd_el (ASN1_DEC_CTXT *aCtx) + { +ASN1_TO_RT_DEC_INFO *decInfo = (ASN1_TO_RT_DEC_INFO *) aCtx->usr_info[0]; +ST_UCHAR size; + + MLOG_CDEC0 ("get_bcd_el"); + + if (asn1r_get_u8 (aCtx, &size)) /* get the precision */ + asn1r_set_dec_err (aCtx, PDU_ERR); /* too long */ + else /* find # bytes */ + { + if (!decInfo->calc_only) + { + rt_ptr->el_tag = RT_BCD; /* set data type tag */ + rt_ptr->u.p.el_len = (ST_INT) size;/* save precision */ + if (size > 8) + { + MLOG_NERR0 ("BCD size too big"); + asn1r_set_dec_err (aCtx, UNSUPPORTED); /* too long for MMS-EASE */ + } + } + } + rt_ptr_inc (aCtx); /* move rt ptr, inc count */ + } + +/************************************************************************/ +/* get_utc_time_el */ +/* UTC Time element encountered. */ +/************************************************************************/ + +static ST_VOID get_utc_time_el (ASN1_DEC_CTXT *aCtx) + { +ASN1_TO_RT_DEC_INFO *decInfo = (ASN1_TO_RT_DEC_INFO *) aCtx->usr_info[0]; + + MLOG_CDEC0 ("get_utc_time_el"); + + if (!decInfo->calc_only) + { + rt_ptr->el_tag = RT_UTC_TIME; /* set data type tag */ + rt_ptr->u.p.el_len = 8; /* expect 8 bytes */ + } + rt_ptr_inc (aCtx); /* move rt ptr, inc count */ + } + + +/************************************************************************/ +/* get_utf8_el */ +/* Unicode UTF8string element encountered. */ +/************************************************************************/ + +static ST_VOID get_utf8_el (ASN1_DEC_CTXT *aCtx) + { +ASN1_TO_RT_DEC_INFO *decInfo = (ASN1_TO_RT_DEC_INFO *) aCtx->usr_info[0]; +ST_INT32 size; + + MLOG_CDEC0 ("get_utf8_el"); + + if (asn1r_get_i32 (aCtx, &size)) + asn1r_set_dec_err (aCtx, UNSUPPORTED); /* too long for MMS-EASE*/ + else + { + if (!decInfo->calc_only) + { + rt_ptr->el_tag = RT_UTF8_STRING; /* set data type tag */ + rt_ptr->u.p.el_len = (ST_RTINT) size; /* save size */ + if (rt_ptr->u.p.el_len != size) + { /* lost precision in cast*/ + MLOG_NERR0 ("Unicode UTF8 string too long"); + asn1r_set_dec_err (aCtx, UNSUPPORTED); /* too long for MMS-EASE*/ + } + } + rt_ptr_inc (aCtx); /* move rt ptr, inc count */ + } + } + +/************************************************************************/ +/************************************************************************/ +/* STRUCTURE COMPONENT DECODE */ +/************************************************************************/ +/* function declarations used in structure parsing */ + +static ST_VOID get_str_comp_seq (ASN1_DEC_CTXT *aCtx); /* UNI seq - comp */ +static ST_VOID get_str_comp_name (ASN1_DEC_CTXT *aCtx); /* CTX 0 comp ID */ +static ST_VOID get_str_comp_type (ASN1_DEC_CTXT *aCtx); /* CTX 1 CSTR - typedef */ +static ST_VOID str_comp_type_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID str_comp_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID str_comp_seq_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID str_done (ASN1_DEC_CTXT *aCtx); /* main struct cstr done */ + +/************************************************************************/ +/* get_str_packed */ +/************************************************************************/ + +static ST_VOID get_str_packed (ASN1_DEC_CTXT *aCtx) + { +#if !defined(USE_RT_TYPE_2) && !defined(USE_RT_TYPE_3) +ASN1_TO_RT_DEC_INFO *decInfo = (ASN1_TO_RT_DEC_INFO *) aCtx->usr_info[0]; +#endif +ST_UCHAR m_packed; + + MLOG_CDEC0 ("get_str_packed"); + + if (asn1r_get_u8 (aCtx, &m_packed)) /* get the boolean value */ + asn1r_set_dec_err (aCtx, PDU_ERR); /* too long */ + else + { +#if !defined(USE_RT_TYPE_2) && !defined(USE_RT_TYPE_3) + if (!decInfo->calc_only) + rt_ptr->u.str.packd = m_packed; +#endif + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,1,str_comp_seq_start); + } + } + +/************************************************************************/ +/* str_comp_seq_start */ +/* This is a 'seq' component , of the main struct 'seq of' */ +/* Next is an optional 'packed' or the components sequence */ +/************************************************************************/ + +static ST_VOID str_comp_seq_start (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("str_comp_seq_start"); + + ASN1R_TAG_ADD (aCtx, UNI|CONSTR,SEQ_CODE,get_str_comp_seq); + } + +/************************************************************************/ +/* get_str_comp_seq */ +/* This is a 'seq' component , of the main struct 'seq of' */ +/* Next is an optional 'packed' or the components sequence */ +/************************************************************************/ + +static ST_VOID get_str_comp_seq (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("get_str_comp_seq"); + + ASN1R_TAG_ADD (aCtx, CTX,0,get_str_comp_name); + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,1,get_str_comp_type); + } + + +/************************************************************************/ +/* get_str_comp_name */ +/* structure component name here */ +/* NOTE: USE_RT_TYPE_2 must be defined or this function will not save */ +/* component names (needs rt_ptr->comp_name_ptr). */ +/************************************************************************/ + +#if defined(USE_RT_TYPE_3) +static ST_INT _mvl_rt_name_to_index (ST_CHAR *name) + { +ST_INT i; + + for (i = 0; i < numMvlRtNames; ++i) + { + if (!strcmp (mvlRtNames[i], name)) + return (i); + } + return (-1); + } +#endif + + +static ST_VOID get_str_comp_name (ASN1_DEC_CTXT *aCtx) + { +ST_CHAR name[MAX_IDENT_LEN+1]; /* for component name element */ +ASN1_TO_RT_DEC_INFO *decInfo = (ASN1_TO_RT_DEC_INFO *) aCtx->usr_info[0]; +#if defined(USE_RT_TYPE_2) +ST_INT name_len; +#endif + + MLOG_CDEC0 ("get_str_comp_name"); + + if (asn1r_get_identifier (aCtx, name)) /* read the identifier */ + asn1r_set_dec_err (aCtx, PDU_ERR); /* too long */ + else + { +#ifdef USE_RT_TYPE_2 + name_len = strlen (name) + 1; /* make space for NULL */ + decInfo->comp_name_used += name_len;/* compute total len BEFORE copy*/ + if (!decInfo->calc_only) + { + if (decInfo->comp_name_ptr && + decInfo->comp_name_used <= decInfo->comp_name_size) /* enough space?*/ + { + strcpy (decInfo->comp_name_ptr, name); + rt_ptr->comp_name_ptr = decInfo->comp_name_ptr; /* Store name ptr*/ + decInfo->comp_name_ptr += name_len; + } + else + { /* Buffer too small. Should never happen. */ + MLOG_ERR0 ("ASN.1 to RT Error : Component name buffer overflow."); + asn1r_set_dec_err (aCtx, RUNTIME_LIMIT); + return; + } + } +#elif defined(USE_RT_TYPE_3) + if (!decInfo->calc_only) + { + rt_ptr->name_index = _mvl_rt_name_to_index (name); + if (rt_ptr->name_index < 0) + { + MLOG_NERR1 ("ASN.1 to RT Error : Component name '%s'cannot be converted to index", name); + asn1r_set_dec_err (aCtx, UNKNOWN_TYPENAME); + return; + } + } +#else /* Default */ + if (!decInfo->calc_only) + strcpy (rt_ptr->name, name); +#endif /* Default */ + + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,1,get_str_comp_type); /* need to get type next */ + } + } + + +/************************************************************************/ +/* get_str_comp_type */ +/* structure component, is a type definition */ +/* This constructor contains the type_definition element */ +/************************************************************************/ + +static ST_VOID get_str_comp_type (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("get_str_comp_type"); + + set_type_tags (aCtx); /* set up to get the type spec. */ + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = str_comp_type_done; + } + +/************************************************************************/ +/* str_comp_type_done */ +/* structure component typedef constructor complete */ +/* This just means that is is OK for this component to be done. */ +/************************************************************************/ + +static ST_VOID str_comp_type_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("str_comp_type_done"); + + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = str_comp_done; + } + +/************************************************************************/ +/* str_comp_done */ +/* structure component constructor complete */ +/* set up to get the next */ +/************************************************************************/ + +static ST_VOID str_comp_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("str_comp_done"); + + /* setup to get next struct component */ + ASN1R_TAG_ADD (aCtx, UNI|CONSTR,SEQ_CODE,get_str_comp_seq); + +/* since a struct comp has been read, OK for this seq to be done */ + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = str_comp_seq_done; + } + +/************************************************************************/ +/* str_comp_seq_done */ +/* structure component seq complete */ +/* set up to get the next seq, or could be done with this seq */ +/************************************************************************/ + +static ST_VOID str_comp_seq_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("str_comp_seq_done"); + +/* since a struct comp has been read, OK for this seq to be done */ + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = str_done; /* ok for this struct to be done */ + } + +/************************************************************************/ +/* str_done */ +/* structure complete */ +/* set up to get the next element */ +/************************************************************************/ + +static ST_VOID str_done (ASN1_DEC_CTXT *aCtx) + { +ASN1_TO_RT_DEC_INFO *decInfo = (ASN1_TO_RT_DEC_INFO *) aCtx->usr_info[0]; +RUNTIME_TYPE *start_rt_blk; +ST_INT num_rt; + + MLOG_CDEC0 ("str_done"); + + if (!decInfo->calc_only) + { + rt_ptr->el_tag = RT_STR_END; /* write the tag */ + +/* calculate where the corresponding STR_START elment is */ + start_rt_blk = struct_tracking[aCtx->asn1r_msg_level+1]; + +/* Set num_rt, for use in AA processing */ + num_rt = (rt_ptr - start_rt_blk - 1); + +/* If everything else working correctly, this error should never occur. */ + if (num_rt <= 0) + { + MLOG_ERR0 ("ASN.1 to RT Error : Structure empty."); + asn1r_set_dec_err (aCtx, LENGTH_ERR); + } + + start_rt_blk->u.str.num_rt_blks = num_rt; + rt_ptr->u.str.num_rt_blks = num_rt; + +#if !defined(USE_RT_TYPE_2) && !defined(USE_RT_TYPE_3) +/* copy the packed flag from the start block to the end block */ + rt_ptr->u.str.packd = start_rt_blk->u.str.packd; +#endif + } + rt_ptr_inc (aCtx); /* move rt ptr, inc count */ + } + + +/************************************************************************/ +/************************************************************************/ +/* ARRAY COMPONENT DECODE */ +/************************************************************************/ +/* get_arr_packed */ +/* packed flag received here, just ignore for now */ +/************************************************************************/ + +static ST_VOID get_arr_packed (ASN1_DEC_CTXT *aCtx) + { +#if !defined(USE_RT_TYPE_2) && !defined(USE_RT_TYPE_3) +ASN1_TO_RT_DEC_INFO *decInfo = (ASN1_TO_RT_DEC_INFO *) aCtx->usr_info[0]; +#endif +ST_UCHAR m_packed; + + MLOG_CDEC0 ("get_arr_packed"); + + if (asn1r_get_u8 (aCtx, &m_packed)) /* get the boolean value */ + asn1r_set_dec_err (aCtx, PDU_ERR); /* too long */ + else + { +#if !defined(USE_RT_TYPE_2) && !defined(USE_RT_TYPE_3) + if (!decInfo->calc_only) + rt_ptr->u.arr.packd = m_packed; +#endif + ASN1R_TAG_ADD (aCtx, CTX,1,get_num_arr_el); /* next must be number of elmnts*/ + } + } + +/************************************************************************/ +/* get_num_arr_el */ +/* number of array elements */ +/************************************************************************/ + +static ST_VOID get_num_arr_el (ASN1_DEC_CTXT *aCtx) + { +ASN1_TO_RT_DEC_INFO *decInfo = (ASN1_TO_RT_DEC_INFO *) aCtx->usr_info[0]; +ST_UINT32 num; + + MLOG_CDEC0 ("get_num_arr_el"); + + if (asn1r_get_u32 (aCtx, &num)) /* get the number of elements */ + asn1r_set_dec_err (aCtx, PDU_ERR); /* too long */ + else + { + if (!decInfo->calc_only) + { + rt_ptr->u.arr.num_elmnts = (ST_INT) num; + if (rt_ptr->u.arr.num_elmnts != (ST_INT) num) /* verify cast */ + { + MLOG_NERR0 ("Array size too big"); + asn1r_set_dec_err (aCtx, UNSUPPORTED); /* too long */ + } + } + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,2,get_arr_el); /* need to get type next */ + + if (++rt_count >= rt_limit) /* check runtime table limit */ + { + MLOG_NERR0 ("ASN.1 to RT Error : RT Table too small"); + asn1r_set_dec_err (aCtx, RUNTIME_LIMIT); + } + else + rt_ptr++; /* move rt ptr to next element */ + } + } + +/************************************************************************/ +/* get_arr_el */ +/* structure component, is a type definition */ +/* This constructor contains the type_definition element */ +/************************************************************************/ + +static ST_VOID get_arr_el (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("get_arr_el"); + + set_type_tags (aCtx); /* set up to get the type spec. */ + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = arr_el_cstr_done; + } + +/************************************************************************/ +/* arr_el_cstr_done */ +/* array element constructor complete */ +/* This means that the array sequence is complete */ +/************************************************************************/ + +static ST_VOID arr_el_cstr_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("arr_el_cstr_done"); + + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = array_done; /* set done function for array */ + } + +/************************************************************************/ +/* array_done */ +/* array constructor complete */ +/* calculate the # rt blocks is each element, update start/end of array */ +/************************************************************************/ + +static ST_VOID array_done (ASN1_DEC_CTXT *aCtx) + { +ST_INT num_rt; +RUNTIME_TYPE *start_rt_blk; +ASN1_TO_RT_DEC_INFO *decInfo = (ASN1_TO_RT_DEC_INFO *) aCtx->usr_info[0]; + + MLOG_CDEC0 ("array_done"); + + if (!decInfo->calc_only) + { + rt_ptr->el_tag = RT_ARR_END; /* write the tag */ + +/* calculate and write rt count for end, start blocks */ + start_rt_blk = decInfo->rt_start + arr_index[aCtx->asn1r_msg_level+1]; + num_rt = rt_count - arr_index[aCtx->asn1r_msg_level+1] -1; /* rt_count not inc'd yet*/ + + rt_ptr->u.arr.num_rt_blks = num_rt; + start_rt_blk->u.arr.num_rt_blks = num_rt; + +/* copy the element count from the start block to the end block */ + rt_ptr->u.arr.num_elmnts = start_rt_blk->u.arr.num_elmnts; + } + rt_ptr_inc (aCtx); /* move rt ptr, inc count */ + } + + +/************************************************************************/ +/************************************************************************/ +/* NAMED TYPE */ +/************************************************************************/ +/* type_name_cstr_done */ +/* type_name constructor complete */ +/* need to find in local database, copy the runtime elements */ +/************************************************************************/ + +static ST_VOID type_name_cstr_done (ASN1_DEC_CTXT *aCtx) + { +ASN1_TO_RT_DEC_INFO *decInfo = (ASN1_TO_RT_DEC_INFO *) aCtx->usr_info[0]; +RUNTIME_TYPE *sub_rt_head; /* ptr to first rt in sub-type */ +ST_INT sub_rt_num; /* num of rt in sub-type */ +#if !defined(MMS_LITE) +NAMED_TYPE *tptr; +#endif + +#if defined (USE_RT_TYPE_2) +ST_CHAR *name_ptr_save; +ST_INT j; +ST_INT comp_name_len; +#elif defined(USE_RT_TYPE_3) +ST_RTINT name_index_save; +#else +ST_CHAR name_save[MAX_IDENT_LEN+1]; +#endif + + MLOG_CDEC0 ("type_name_cstr_done"); + +#if !defined(MMS_LITE) + tptr = ms_find_named_type_obj (&type_name,0); + if (!tptr) + { + MLOG_NERR1 ("Named type %s not found", type_name.obj_name.vmd_spec); + asn1r_set_dec_err (aCtx, UNKNOWN_TYPENAME); + return; + } + sub_rt_num = tptr->rt_num; + sub_rt_head = tptr->rt_head; +#else + /* This function finds previously defined types. The default function */ + /* should be in the library, but user may replace it with customized funct.*/ + if (u_ml_get_rt_type (aCtx, &type_name, &sub_rt_head, &sub_rt_num) != SD_SUCCESS) + { + MLOG_NERR1 ("Named type %s not found", type_name.obj_name.vmd_spec); + asn1r_set_dec_err (aCtx, UNKNOWN_TYPENAME); + return; + } + +#endif + +/* OK, we have a pointer to the referenced runtime type and the number */ +/* of elements. We can either insert the referenced table into the */ +/* new one, OR we can just add a reference. */ + + if ((rt_count += sub_rt_num) > rt_limit) + { + MLOG_NERR0 ("ASN.1 to RT Error : RT Table too small"); + asn1r_set_dec_err (aCtx, RUNTIME_LIMIT); + return; + } + if (decInfo->calc_only) + { +#if defined(USE_RT_TYPE_2) /* make room to copy comp names from sub-type*/ + for (j = 0; j < sub_rt_num; ++j) + { + if (sub_rt_head[j].comp_name_ptr) + decInfo->comp_name_used += (strlen (sub_rt_head[j].comp_name_ptr) + 1); + } +#endif + } + else + { +#if defined(USE_RT_TYPE_2) + name_ptr_save = rt_ptr->comp_name_ptr; +#elif defined(USE_RT_TYPE_3) + name_index_save = rt_ptr->name_index; +#else + strcpy (name_save, rt_ptr->name); +#endif + + /* Copy array of RUNTIME_TYPE structs. */ + memcpy ((ST_CHAR *)rt_ptr,(ST_CHAR *)sub_rt_head, sizeof(RUNTIME_TYPE)*sub_rt_num); + +#if defined(USE_RT_TYPE_2) + /* Copy component names from sub-type into new type. */ + /* Must update comp_name_ptr in each rt. */ + for (j = 0; j < sub_rt_num; ++j) + { + if (sub_rt_head[j].comp_name_ptr) + { + /* check for buffer space BEFORE strcpy. */ + comp_name_len = (strlen(sub_rt_head[j].comp_name_ptr) + 1); + decInfo->comp_name_used += comp_name_len; + if (decInfo->comp_name_used <= decInfo->comp_name_size) /* enough space?*/ + { + strcpy (decInfo->comp_name_ptr, sub_rt_head[j].comp_name_ptr); + rt_ptr[j].comp_name_ptr = decInfo->comp_name_ptr; + decInfo->comp_name_ptr += comp_name_len; + } + else + { /* Buffer too small. Should never happen. */ + MLOG_ERR0 ("ASN.1 to RT Error : Component name buffer overflow."); + asn1r_set_dec_err (aCtx, RUNTIME_LIMIT); + return; + } + } + } + rt_ptr->comp_name_ptr = name_ptr_save; +#elif defined(USE_RT_TYPE_3) + rt_ptr->name_index = name_index_save; +#else + strcpy (rt_ptr->name, name_save); +#endif + rt_ptr += sub_rt_num; /* chg global rt_ptr to point after inserted sub-type*/ + } + } + + +/************************************************************************/ +/************************************************************************/ +/* DECODE DONE FUNCTIONS */ +/************************************************************************/ +/* td_done */ +/************************************************************************/ + + +static ST_VOID td_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("td_done"); + } + +/************************************************************************/ +/* td_err */ +/************************************************************************/ + +static ST_VOID td_err (ASN1_DEC_CTXT *aCtx, ST_RET err) + { + MLOG_CDEC0 ("td_err"); + + rt_count = 0; /* error, set count = 0 */ + mms_op_err = aCtx->asn1r_pdu_dec_err; /* save error code */ + } + +/************************************************************************/ +/* DATA ALIGNMENT TABLE DEFINITIONS */ +/************************************************************************/ + +/* This is the 'packed' data alignment table, which is used to emulate */ +/* the alignment used by previous versions of the data conversion */ +/* functions. */ + +SD_CONST ST_INT m_packed_data_algn_tbl[NUM_ALGN_TYPES] = + { + 0x0000, /* ARRSTRT_ALGN 00 */ + 0x0000, /* ARREND_ALGN 01 */ + 0x0000, /* STRSTRT_ALGN 02 */ + 0x0000, /* STREND_ALGN 03 */ + 0x0000, /* INT8_ALGN 04 */ + 0x0000, /* INT16_ALGN 05 */ + 0x0000, /* INT32_ALGN 06 */ + 0x0000, /* INT64_ALGN 07 */ + 0x0000, /* FLOAT_ALGN 08 */ + 0x0000, /* DOUBLE_ALGN 09 */ + 0x0000, /* OCT_ALGN 10 */ + 0x0000, /* BOOL_ALGN 11 */ + 0x0000, /* BCD1_ALGN 12 */ + 0x0000, /* BCD2_ALGN 13 */ + 0x0000, /* BCD4_ALGN 14 */ + 0x0000, /* BIT_ALGN 15 */ + 0x0000 /* VIS_ALGN 16 */ + }; + +/* CRITICAL: this global variable "m_data_algn_tbl" must be set before */ +/* any types are created. */ +#ifdef MMS_LITE +#if defined(FOUNDRY) +/* For some strange reason on "linux", the linker tries to get this */ +/* module again from the library (causing duplicates) if */ +/* m_data_algn_tbl is not initialized here. */ +SD_CONST ST_INT *m_data_algn_tbl=NULL; /* Foundry sets it as needed */ +#else +/* Use m_lite_data_algn_tbl generated by Foundry for target platform. */ +/* This assures that Foundry types & dynamic types have same alignment. */ +SD_CONST ST_INT *m_data_algn_tbl = m_lite_data_algn_tbl; +#endif +#else /* !MMS_LITE */ +/* Should use "m_def_data_algn_tbl" for all systems, but must */ +/* default to "m_packed_data_algn_tbl" for backward compatiblity with */ +/* very old MMS-EASE products. */ +#if !defined(NO_GLB_VAR_INIT) +SD_CONST ST_INT *m_data_algn_tbl = m_packed_data_algn_tbl; +#endif +#endif /* !MMS_LITE */ + +/* Here is where we create the 'default' alignment tables. These should */ +/* allow natural access to components. */ + +/* This data alignment table provides word alignment per the following */ +/* simple rule : */ +/* Align on the smaller of the size of the data type OR 2 bytes. */ +/* To do this we set the low bit for every type that is greater than */ +/* or equal to 2 bytes in size. */ + +#if !defined(MMS_LITE) /* m_def_data_algn_tbl NOT used for MMS_LITE */ +#if defined(MSDOS) + +#define M_STRSTART_MODE M_STRSTART_MODE_LARGEST +#define M_STREND_MODE M_STREND_MODE_LARGEST + +SD_CONST ST_INT m_def_data_algn_tbl[NUM_ALGN_TYPES] = + { + 0x0000, /* ARRSTRT_ALGN 00 */ + 0x0000, /* ARREND_ALGN 01 */ + 0x0000, /* STRSTRT_ALGN 02 */ + 0x0000, /* STREND_ALGN 03 */ + 0x0000, /* INT8_ALGN 04 */ + 0x0001, /* INT16_ALGN 05 */ + 0x0001, /* INT32_ALGN 06 */ + 0x0001, /* INT64_ALGN 07 */ + 0x0001, /* FLOAT_ALGN 08 */ + 0x0001, /* DOUBLE_ALGN 09 */ + 0x0000, /* OCT_ALGN 10 */ + 0x0000, /* BOOL_ALGN 11 */ + 0x0000, /* BCD1_ALGN 12 */ + 0x0001, /* BCD2_ALGN 13 */ + 0x0001, /* BCD4_ALGN 14 */ + 0x0000, /* BIT_ALGN 15 */ + 0x0000 /* VIS_ALGN 16 */ + }; +#endif + +/* This data alignment table provides word alignment per the following */ +/* simple rule : */ +/* Align on the smaller of the size of the data type OR 4 bytes. */ +/* To do this we set the low bit for every type that is equal to 2 */ +/* bytes in size, and the low two bits for every type that is greater */ +/* than or equal to 4 bytes in size. */ + +#if 0 + +#define M_STRSTART_MODE M_STRSTART_MODE_LARGEST +#define M_STREND_MODE M_STREND_MODE_LARGEST + +SD_CONST ST_INT m_def_data_algn_tbl[NUM_ALGN_TYPES] = + { + 0x0000, /* ARRSTRT_ALGN 00 */ + 0x0000, /* ARREND_ALGN 01 */ + 0x0000, /* STRSTRT_ALGN 02 */ + 0x0000, /* STREND_ALGN 03 */ + 0x0000, /* INT8_ALGN 04 */ + 0x0001, /* INT16_ALGN 05 */ + 0x0003, /* INT32_ALGN 06 */ + 0x0007, /* INT64_ALGN 07 */ + 0x0003, /* FLOAT_ALGN 08 */ + 0x0003, /* DOUBLE_ALGN 09 */ + 0x0000, /* OCT_ALGN 10 */ + 0x0000, /* BOOL_ALGN 11 */ + 0x0000, /* BCD1_ALGN 12 */ + 0x0000, /* BCD2_ALGN 13 */ + 0x0001, /* BCD4_ALGN 14 */ + 0x0000, /* BIT_ALGN 15 */ + 0x0000 /* VIS_ALGN 16 */ + }; +#endif + +#ifdef _AIX + +#define M_STRSTART_MODE M_STRSTART_MODE_LARGEST +#define M_STREND_MODE M_STREND_MODE_LARGEST + +SD_CONST ST_INT m_def_data_algn_tbl[NUM_ALGN_TYPES] = + { + 0x0000, /* ARRSTRT_ALGN 00 */ + 0x0000, /* ARREND_ALGN 01 */ + 0x0000, /* STRSTRT_ALGN 02 */ + 0x0000, /* STREND_ALGN 03 */ + 0x0000, /* INT8_ALGN 04 */ + 0x0001, /* INT16_ALGN 05 */ + 0x0003, /* INT32_ALGN 06 */ + 0x0007, /* INT64_ALGN 07 */ + 0x0003, /* FLOAT_ALGN 08 */ + 0x0003, /* DOUBLE_ALGN 09 */ + 0x0000, /* OCT_ALGN 10 */ + 0x0000, /* BOOL_ALGN 11 */ + 0x0000, /* BCD1_ALGN 12 */ + 0x0001, /* BCD2_ALGN 13 */ + 0x0003, /* BCD4_ALGN 14 */ + 0x0000, /* BIT_ALGN 15 */ + 0x0000 /* VIS_ALGN 16 */ + }; +#endif + +#if defined (__hpux) + +#define M_STRSTART_MODE M_STRSTART_MODE_LARGEST +#define M_STREND_MODE M_STREND_MODE_LARGEST + +SD_CONST ST_INT m_def_data_algn_tbl[NUM_ALGN_TYPES] = + { + 0x0000, /* ARRSTRT_ALGN 00 */ + 0x0000, /* ARREND_ALGN 01 */ + 0x0000, /* STRSTRT_ALGN 02 */ + 0x0000, /* STREND_ALGN 03 */ + 0x0000, /* INT8_ALGN 04 */ + 0x0001, /* INT16_ALGN 05 */ + 0x0003, /* INT32_ALGN 06 */ + 0x0007, /* INT64_ALGN 07 */ + 0x0003, /* FLOAT_ALGN 08 */ + 0x0007, /* DOUBLE_ALGN 09 */ + 0x0000, /* OCT_ALGN 10 */ + 0x0000, /* BOOL_ALGN 11 */ + 0x0000, /* BCD1_ALGN 12 */ + 0x0001, /* BCD2_ALGN 13 */ + 0x0003, /* BCD4_ALGN 14 */ + 0x0000, /* BIT_ALGN 15 */ + 0x0000 /* VIS_ALGN 16 */ + }; +#endif + +#ifdef __OS2__ + +#define M_STRSTART_MODE M_STRSTART_MODE_LARGEST +#define M_STREND_MODE M_STREND_MODE_LARGEST + +SD_CONST ST_INT m_def_data_algn_tbl[NUM_ALGN_TYPES] = + { + 0x0000, /* ARRSTRT_ALGN 00 */ + 0x0000, /* ARREND_ALGN 01 */ + 0x0000, /* STRSTRT_ALGN 02 */ + 0x0000, /* STREND_ALGN 03 */ + 0x0000, /* INT8_ALGN 04 */ + 0x0001, /* INT16_ALGN 05 */ + 0x0003, /* INT32_ALGN 06 */ + 0x0007, /* INT64_ALGN 07 */ + 0x0003, /* FLOAT_ALGN 08 */ + 0x0003, /* DOUBLE_ALGN 09 */ + 0x0000, /* OCT_ALGN 10 */ + 0x0000, /* BOOL_ALGN 11 */ + 0x0000, /* BCD1_ALGN 12 */ + 0x0001, /* BCD2_ALGN 13 */ + 0x0003, /* BCD4_ALGN 14 */ + 0x0000, /* BIT_ALGN 15 */ + 0x0000 /* VIS_ALGN 16 */ + }; +#endif + +#ifdef sun + +#define M_STRSTART_MODE M_STRSTART_MODE_LARGEST +#define M_STREND_MODE M_STREND_MODE_LARGEST + +SD_CONST ST_INT m_def_data_algn_tbl[NUM_ALGN_TYPES] = + { + 0x0000, /* ARRSTRT_ALGN 00 */ + 0x0000, /* ARREND_ALGN 01 */ + 0x0000, /* STRSTRT_ALGN 02 */ + 0x0000, /* STREND_ALGN 03 */ + 0x0000, /* INT8_ALGN 04 */ + 0x0001, /* INT16_ALGN 05 */ + 0x0003, /* INT32_ALGN 06 */ + 0x0007, /* INT64_ALGN 07 */ + 0x0003, /* FLOAT_ALGN 08 */ + 0x0007, /* DOUBLE_ALGN 09 */ + 0x0000, /* OCT_ALGN 10 */ + 0x0000, /* BOOL_ALGN 11 */ + 0x0000, /* BCD1_ALGN 12 */ + 0x0001, /* BCD2_ALGN 13 */ + 0x0003, /* BCD4_ALGN 14 */ + 0x0000, /* BIT_ALGN 15 */ + 0x0000 /* VIS_ALGN 16 */ + }; +#endif + +#if (defined(__ALPHA) && defined(__VMS)) + +#define M_STRSTART_MODE M_STRSTART_MODE_LARGEST +#define M_STREND_MODE M_STREND_MODE_LARGEST + +SD_CONST ST_INT m_def_data_algn_tbl[NUM_ALGN_TYPES] = + { + 0x0000, /* ARRSTRT_ALGN 00 */ + 0x0000, /* ARREND_ALGN 01 */ + 0x0000, /* STRSTRT_ALGN 02 */ + 0x0000, /* STREND_ALGN 03 */ + 0x0000, /* INT8_ALGN 04 */ + 0x0001, /* INT16_ALGN 05 */ + 0x0003, /* INT32_ALGN 06 */ + 0x0007, /* INT64_ALGN 07 */ + 0x0003, /* FLOAT_ALGN 08 */ + 0x0007, /* DOUBLE_ALGN 09 */ + 0x0000, /* OCT_ALGN 10 */ + 0x0000, /* BOOL_ALGN 11 */ + 0x0000, /* BCD1_ALGN 12 */ + 0x0001, /* BCD2_ALGN 13 */ + 0x0003, /* BCD4_ALGN 14 */ + 0x0000, /* BIT_ALGN 15 */ + 0x0000 /* VIS_ALGN 16 */ + }; +#endif + +#if defined(__alpha) && !defined(__VMS) + +#define M_STRSTART_MODE M_STRSTART_MODE_LARGEST +#define M_STREND_MODE M_STREND_MODE_LARGEST + +SD_CONST ST_INT m_def_data_algn_tbl[NUM_ALGN_TYPES] = + { + 0x0000, /* ARRSTRT_ALGN 00 */ + 0x0000, /* ARREND_ALGN 01 */ + 0x0000, /* STRSTRT_ALGN 02 */ + 0x0000, /* STREND_ALGN 03 */ + 0x0000, /* INT8_ALGN 04 */ + 0x0001, /* INT16_ALGN 05 */ + 0x0003, /* INT32_ALGN 06 */ + 0x0007, /* INT64_ALGN 07 */ + 0x0003, /* FLOAT_ALGN 08 */ + 0x0007, /* DOUBLE_ALGN 09 */ + 0x0000, /* OCT_ALGN 10 */ + 0x0000, /* BOOL_ALGN 11 */ + 0x0000, /* BCD1_ALGN 12 */ + 0x0001, /* BCD2_ALGN 13 */ + 0x0003, /* BCD4_ALGN 14 */ + 0x0000, /* BIT_ALGN 15 */ + 0x0000 /* VIS_ALGN 16 */ + }; +#endif + +#ifdef _WIN32 + +#define M_STRSTART_MODE M_STRSTART_MODE_LARGEST +#define M_STREND_MODE M_STREND_MODE_LARGEST + +SD_CONST ST_INT m_def_data_algn_tbl[NUM_ALGN_TYPES] = + { + 0x0000, /* ARRSTRT_ALGN 00 */ + 0x0000, /* ARREND_ALGN 01 */ + 0x0000, /* STRSTRT_ALGN 02 */ + 0x0000, /* STREND_ALGN 03 */ + 0x0000, /* INT8_ALGN 04 */ + 0x0001, /* INT16_ALGN 05 */ + 0x0003, /* INT32_ALGN 06 */ + 0x0007, /* INT64_ALGN 07 */ + 0x0003, /* FLOAT_ALGN 08 */ + 0x0007, /* DOUBLE_ALGN 09 */ + 0x0000, /* OCT_ALGN 10 */ + 0x0000, /* BOOL_ALGN 11 */ + 0x0000, /* BCD1_ALGN 12 */ + 0x0001, /* BCD2_ALGN 13 */ + 0x0003, /* BCD4_ALGN 14 */ + 0x0000, /* BIT_ALGN 15 */ + 0x0000 /* VIS_ALGN 16 */ + }; +#endif + +#ifdef VXWORKS + +#define M_STRSTART_MODE M_STRSTART_MODE_LARGEST +#define M_STREND_MODE M_STREND_MODE_LARGEST + +SD_CONST ST_INT m_def_data_algn_tbl[NUM_ALGN_TYPES] = + { + 0x0000, /* ARRSTRT_ALGN 00 */ + 0x0000, /* ARREND_ALGN 01 */ + 0x0000, /* STRSTRT_ALGN 02 */ + 0x0000, /* STREND_ALGN 03 */ + 0x0000, /* INT8_ALGN 04 */ + 0x0001, /* INT16_ALGN 05 */ + 0x0001, /* INT32_ALGN 06 */ + 0x0001, /* INT64_ALGN 07 */ + 0x0001, /* FLOAT_ALGN 08 */ + 0x0001, /* DOUBLE_ALGN 09 */ + 0x0000, /* OCT_ALGN 10 */ + 0x0000, /* BOOL_ALGN 11 */ + 0x0000, /* BCD1_ALGN 12 */ + 0x0001, /* BCD2_ALGN 13 */ + 0x0001, /* BCD4_ALGN 14 */ + 0x0000, /* BIT_ALGN 15 */ + 0x0000 /* VIS_ALGN 16 */ + }; +#endif + +#if defined (__QNX__) /* packed */ + +#define M_STRSTART_MODE M_STRSTART_MODE_LARGEST +#define M_STREND_MODE M_STREND_MODE_LARGEST + +SD_CONST ST_INT m_def_data_algn_tbl[NUM_ALGN_TYPES] = + { + 0x0000, /* ARRSTRT_ALGN 00 */ + 0x0000, /* ARREND_ALGN 01 */ + 0x0000, /* STRSTRT_ALGN 02 */ + 0x0000, /* STREND_ALGN 03 */ + 0x0000, /* INT8_ALGN 04 */ + 0x0000, /* INT16_ALGN 05 */ + 0x0000, /* INT32_ALGN 06 */ + 0x0000, /* INT64_ALGN 07 */ + 0x0000, /* FLOAT_ALGN 08 */ + 0x0000, /* DOUBLE_ALGN 09 */ + 0x0000, /* OCT_ALGN 10 */ + 0x0000, /* BOOL_ALGN 11 */ + 0x0000, /* BCD1_ALGN 12 */ + 0x0000, /* BCD2_ALGN 13 */ + 0x0000, /* BCD4_ALGN 14 */ + 0x0000, /* BIT_ALGN 15 */ + 0x0000 /* VIS_ALGN 16 */ + }; +#endif /* __QNX__ */ + +#if defined(linux) +#define M_STRSTART_MODE M_STRSTART_MODE_LARGEST +#define M_STREND_MODE M_STREND_MODE_LARGEST + + +SD_CONST ST_INT m_def_data_algn_tbl[NUM_ALGN_TYPES] = + { + 0x0000, /* ARRSTRT_ALGN 00 */ + 0x0000, /* ARREND_ALGN 01 */ + 0x0000, /* STRSTRT_ALGN 02 */ + 0x0000, /* STREND_ALGN 03 */ + 0x0000, /* INT8_ALGN 04 */ + 0x0001, /* INT16_ALGN 05 */ + 0x0003, /* INT32_ALGN 06 */ + 0x0003, /* INT64_ALGN 07 */ + 0x0003, /* FLOAT_ALGN 08 */ + 0x0003, /* DOUBLE_ALGN 09 */ + 0x0000, /* OCT_ALGN 10 */ + 0x0000, /* BOOL_ALGN 11 */ + 0x0000, /* BCD1_ALGN 12 */ + 0x0001, /* BCD2_ALGN 13 */ + 0x0003, /* BCD4_ALGN 14 */ + 0x0000, /* BIT_ALGN 15 */ + 0x0000 /* VIS_ALGN 16 */ + }; +#endif /* linux */ + +#if defined (__LYNX) + +#define M_STRSTART_MODE M_STRSTART_MODE_LARGEST +#define M_STREND_MODE M_STREND_MODE_LARGEST + +SD_CONST ST_INT m_def_data_algn_tbl[NUM_ALGN_TYPES] = + { + 0x0000, /* ARRSTRT_ALGN 00 */ + 0x0000, /* ARREND_ALGN 01 */ + 0x0000, /* STRSTRT_ALGN 02 */ + 0x0000, /* STREND_ALGN 03 */ + 0x0000, /* INT8_ALGN 04 */ + 0x0001, /* INT16_ALGN 05 */ + 0x0003, /* INT32_ALGN 06 */ + 0x0003, /* INT64_ALGN 07 */ + 0x0003, /* FLOAT_ALGN 08 */ + 0x0003, /* DOUBLE_ALGN 09 */ + 0x0000, /* OCT_ALGN 10 */ + 0x0000, /* BOOL_ALGN 11 */ + 0x0000, /* BCD1_ALGN 12 */ + 0x0001, /* BCD2_ALGN 13 */ + 0x0003, /* BCD4_ALGN 14 */ + 0x0000, /* BIT_ALGN 15 */ + 0x0000 /* VIS_ALGN 16 */ + }; +#endif /* __LYNX */ +#endif /* !defined(MMS_LITE) */ + + + +/************************************************************************/ +/************************************************************************/ +/* ms_rt_size_calc */ +/************************************************************************/ +/* */ +/* ****** PRIMITIVE elements alignment is well known. */ +/* Element above == primitive : Add padding to element above. */ +/* { */ +/* prim yy << pad */ +/* prim xx */ +/* } */ +/* Element above == struct end : Add padding to struct end above. */ +/* { */ +/* struct yy */ +/* { */ +/* ... */ +/* } << pad */ +/* prim xx */ +/* } */ +/* Element above == arr end : Add padding to array end above. */ +/* { */ +/* arr yy[zz]; */ +/* arr_end << pad */ +/* prim xx */ +/* } */ +/* */ +/* ****** STRUCTURE START elements alignment is derived from elements */ +/* Element above == primitive : Add padding to element above. */ +/* { */ +/* prim yy */ +/* struct << pad */ +/* { */ +/* ... */ +/* } xx */ +/* } */ +/* Element above == struct end : Add padding to struct end above. */ +/* { */ +/* struct yy */ +/* { */ +/* ... */ +/* } */ +/* struct << pad */ +/* { */ +/* ... */ +/* } xx */ +/* } */ +/* Element above == arr end : Add padding to array end above. */ +/* { */ +/* arr yy[zz]; */ +/* struct << pad */ +/* { */ +/* ... */ +/* } xx */ +/* } */ +/* */ +/* ****** ARRAY START elements alignment is derived from element */ +/* Element above == primitive : Add padding to element above. */ +/* { */ +/* prim yy << pad */ +/* arr xx[zz]; */ +/* } */ +/* Element above == struct end : Add padding to struct end above. */ +/* { */ +/* struct yy */ +/* { */ +/* ... */ +/* } << pad */ +/* arr xx[zz]; */ +/* } */ +/* Element above == arr end : Add padding to array end above. */ +/* { */ +/* arr yy[zz]; */ +/* arr_end << pad */ +/* arr xx[zz]; */ +/* } */ +/* */ +/* STRUCTURE SIZE PADDING - struct end */ +/* struct */ +/* { */ +/* xx */ +/* yy << Pad for structure size */ +/* } */ +/* */ +/* ARRAYS OF STRUCTURES - array of structure end */ +/* struct ss */ +/* { */ +/* xx */ +/* yy */ +/* } << Pad to accomadate ss and xx alignment requirements */ +/* [xx]; */ +/* */ +/* */ + +#if !defined(MMS_LITE) +/* NOTE: For MMS_LITE, these variables are created by Foundry and placed*/ +/* in the Foundry output 'c' file. */ +ST_INT m_struct_start_algn_mode = M_STRSTART_MODE; +ST_INT m_struct_end_algn_mode = M_STREND_MODE; +#endif + +ST_VOID ms_rt_size_calc (RUNTIME_TYPE *rt_head, ST_INT rt_num) + { +ST_INT ellen; +RUNTIME_TYPE *arr1_rt; +RUNTIME_TYPE *rt; +RUNTIME_TYPE *rt_end; +RUNTIME_TYPE *rt_pad_dest; +ST_INT curr_offset; +ST_INT algn; +ST_INT arr_level; +ST_INT arr_start_offset[ASN1_MAX_LEVEL]; +ST_INT arr_element_size; + + S_LOCK_COMMON_RESOURCES (); + + rt = rt_head; /* set runtime ptr */ + rt_end = rt_head + rt_num; /* end block */ + + arr_level = 0; + curr_offset = 0; /* Offset from start of data */ + + rt_pad_dest = NULL; + while (rt < rt_end) + { + if (rt->el_tag == RT_ARR_END) + { + /* Special handling for an array of structures */ + /* We need to check if the structure end needs to be padded */ + arr1_rt = rt - rt->u.arr.num_rt_blks; + if (arr1_rt->el_tag == RT_STR_START) + { + _get_struct_start_align (arr1_rt, &algn, &ellen); + _do_padding (rt_pad_dest, &curr_offset, algn); + } + + /* Now we need to multiply the size of this array element by the */ + /* number of elements in the array */ + --arr_level; + arr_element_size = curr_offset - arr_start_offset[arr_level]; + curr_offset += (arr_element_size * (rt->u.arr.num_elmnts-1)); + } + + /* Get the current RT element's alignment requirements and do any */ + /* required padding on the element above us. */ + _ms_m_get_rt_info (rt, &algn, &ellen); + _do_padding (rt_pad_dest, &curr_offset, algn); + + /* If we are starting an array, we must remember the start offset */ + if (rt->el_tag == RT_ARR_START) + { + arr_start_offset[arr_level] = curr_offset; + ++arr_level; + } + + /* Set the current element's nominal memory requirements */ + rt->el_size = ellen; + + /* Set the offset for the next element */ + curr_offset += ellen; + + /* Usually we pad the element directly above us ... */ + rt_pad_dest = rt; + rt++; + } + +/* We are all done with adjusting padding for our type. */ +/* Get the offset past the last element, for encoding */ + rt_head->offset_to_last = ms_get_blocked_length (rt_head,rt_num); + +/* Let the user have a shot at the runtime type if they want to */ + if (u_rt_type_process) + (*u_rt_type_process) (rt_head, rt_num); + + S_UNLOCK_COMMON_RESOURCES (); + } + +/************************************************************************/ +/* _ms_m_get_rt_info */ +/************************************************************************/ +/* WARNING: Recursive routine */ + +ST_RET _ms_m_get_rt_info (SD_CONST RUNTIME_TYPE *rt, ST_INT *algn_out, + ST_INT *ellen_out) + { +ST_INT algn_index = NUM_ALGN_TYPES; /* init to ILLEGAL value */ +ST_INT ellen; + + switch (rt->el_tag) + { + case RT_STR_START : /* structure starting */ + _get_struct_start_align (rt, algn_out, ellen_out); + return (SD_SUCCESS); + break; + + case RT_STR_END : /* structure done */ + _get_struct_end_align (rt, algn_out, ellen_out); + return (SD_SUCCESS); + break; + + case RT_ARR_START : /* array starting */ + _get_arr_start_align (rt, algn_out, ellen_out); + return (SD_SUCCESS); + break; + + case RT_ARR_END : /* array done */ + ellen = 0; + algn_index = ARREND_ALGN; + break; + + case RT_GENERAL_TIME : /* generalized time */ + ellen = sizeof(time_t); + algn_index = GENERAL_TIME_ALGN; + break; + + case RT_BINARY_TIME : /* binary time is one or 2 ST_INT32 */ + if (rt->u.p.el_len == 6) + ellen = 2 * sizeof(ST_INT32); + else + ellen = sizeof(ST_INT32); + algn_index = INT32_ALGN; + break; + + case RT_UTC_TIME : /* UTC Time is 3 ST_UINT32 in struct */ + ellen = sizeof (MMS_UTC_TIME); /* 3 * sizeof(ST_UINT32); */ + algn_index = INT32_ALGN; + break; + + case RT_INTEGER : /* integer */ + case RT_UNSIGNED : /* integer */ + ellen = rt->u.p.el_len; /* # bytes used */ + switch (ellen) + { + case 1 : + algn_index = INT8_ALGN; + break; + + case 2 : + algn_index = INT16_ALGN; + break; + + case 4 : + algn_index = INT32_ALGN; + break; + +#ifdef INT64_SUPPORT + case 8 : + algn_index = INT64_ALGN; + break; +#endif + } + break; + + case RT_FLOATING_POINT : /* float */ + ellen = rt->u.p.el_len; /* # bytes used */ + if (ellen == 4) + algn_index = FLOAT_ALGN; + else + algn_index = DOUBLE_ALGN; + break; + + case RT_OCTET_STRING : /* octet string */ + ellen = abs (rt->u.p.el_len); /* max # bytes used */ + if (rt->u.p.el_len < 0) /* if variable, allow for size */ + { + algn_index = INT16_ALGN; + ellen += sizeof (ST_INT16); + } + else + algn_index = OCT_ALGN; + break; + + case RT_BOOL : /* boolean */ + ellen = rt->u.p.el_len; /* # bytes used */ + algn_index = BOOL_ALGN; + break; + + case RT_BCD : /* bcd */ + if (rt->u.p.el_len <= 2) + { + ellen = 1; + algn_index = BCD1_ALGN; + } + else if (rt->u.p.el_len <= 4) + { + ellen = 2; + algn_index = BCD2_ALGN; + } + else + { + ellen = 4; + algn_index = BCD4_ALGN; + } + break; + + case RT_BIT_STRING : /* bit string */ + ellen = abs (rt->u.p.el_len)/8; /* # bytes used */ + if (rt->u.p.el_len % 8) /* if not a multiple of 8 */ + ellen++; /* add one to take spare bits */ + + if (rt->u.p.el_len < 0) /* if variable, allow for size */ + { + algn_index = INT16_ALGN; + ellen += sizeof (ST_INT16); + } + else + algn_index = BIT_ALGN; + break; + + case RT_VISIBLE_STRING : /* visible string */ + ellen = abs (rt->u.p.el_len) + 1; /* # bytes used */ + algn_index = VIS_ALGN; + break; + + case RT_UTF8_STRING : /* Unicode UTF8 string */ +#if (UNICODE_LOCAL_FORMAT==UNICODE_UTF8) + ellen = abs(rt->u.p.el_len)*4 + 1;/* # bytes (4 bytes per char + NULL)*/ + algn_index = VIS_ALGN; /* Same alignment as visible string*/ +#else /* assume UNICODE_UTF16 */ + ellen = abs(rt->u.p.el_len)*2 + 2;/* # bytes (2 bytes per char + 2 byte NULL)*/ + algn_index = INT16_ALGN; +#endif + break; + + default : /* should not be any other tag */ + MLOG_NERR0 ("Bad el_tag in RT"); + return (SD_FAILURE); + break; + } + + if (algn_index == NUM_ALGN_TYPES) /* ILLEGAL value */ + { + MLOG_ERR0 ("algn_index never set"); /* THIS SHOULD NEVER HAPPEN */ + return (SD_FAILURE); + } + + *algn_out = m_data_algn_tbl[algn_index]; + *ellen_out = ellen; + return (SD_SUCCESS); + } + +/************************************************************************/ +/* _get_struct_start_align */ +/************************************************************************/ +/* WARNING: Recursive routine */ + +static ST_VOID _get_struct_start_align (SD_CONST RUNTIME_TYPE *rt, + ST_INT *algn_out, + ST_INT *ellen_out) + { +ST_INT i; +ST_INT curr_algn; +ST_INT algn; +ST_INT ellen; +ST_INT num_rt; + + algn = m_data_algn_tbl[STRSTRT_ALGN]; + num_rt = rt->u.str.num_rt_blks; + ++rt; /* Point to first structure member */ + if (m_struct_start_algn_mode == M_STRSTART_MODE_LARGEST) + { + for (i = 0; i < num_rt; ++i, ++rt) + { + _ms_m_get_rt_info (rt, &curr_algn, &ellen); + if (curr_algn > algn) + algn = curr_algn; + } + } + else if (m_struct_start_algn_mode == M_STRSTART_MODE_FIRST) + _ms_m_get_rt_info (rt, &algn, &ellen); + + + *algn_out = algn; + *ellen_out = 0; + } + +/************************************************************************/ +/* _get_struct_end_align */ +/************************************************************************/ +/* WARNING: Recursive routine */ + +static ST_VOID _get_struct_end_align (SD_CONST RUNTIME_TYPE *rt, + ST_INT *algn_out, + ST_INT *ellen_out) + { +ST_INT i; +ST_INT algn; +ST_INT curr_algn; +ST_INT ellen; +ST_INT num_rt; + + num_rt = rt->u.str.num_rt_blks; + rt -= rt->u.str.num_rt_blks; + algn = m_data_algn_tbl[STREND_ALGN]; + if (m_struct_end_algn_mode == M_STREND_MODE_LARGEST) + { + for (i = 0; i < num_rt; ++i, ++rt) + { + _ms_m_get_rt_info (rt, &curr_algn, &ellen); + if (curr_algn > algn) + algn = curr_algn; + } + } + + *algn_out = algn; + *ellen_out = 0; + } + +/************************************************************************/ +/* _get_arr_start_align */ +/************************************************************************/ +/* WARNING: Recursive routine */ + +static ST_VOID _get_arr_start_align (SD_CONST RUNTIME_TYPE *rt, + ST_INT *algn_out, + ST_INT *ellen_out) + { +ST_INT i; +ST_INT algn; +ST_INT ellen; +ST_INT num_rt; + + algn = m_data_algn_tbl[ARRSTRT_ALGN]; + num_rt = rt->u.arr.num_rt_blks; + ++rt; + for (i = 0; i < num_rt; ++i, ++rt) + { + if (rt->el_tag != RT_ARR_START) + { + _ms_m_get_rt_info (rt, &algn, &ellen); + break; + } + } + *algn_out = algn; + *ellen_out = 0; + } + +/************************************************************************/ +/* _do_padding */ +/************************************************************************/ + +static ST_VOID _do_padding (RUNTIME_TYPE *padDest, + ST_INT *curr_offset, + ST_INT algn) + { +ST_INT pad; + +/*Increment the offset until no bits are set that shouldn't be */ + pad = 0; + while ((*curr_offset) & algn) + { + (*curr_offset)++; + pad++; + } + + /* If pad bytes are needed, add to the end struct element */ + if (pad) + { + if (!padDest) + { + MLOG_ERR0 ("Alignment table error"); + } + else + padDest->el_size += pad; + } + } + + +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ +/* ms_get_blocked_len */ +/* Function to return the size of buffer required for blocked data for */ +/* the data type selected. This is used when type definitions come over */ +/* the wire, and in general, when a type is created. */ +/************************************************************************/ + +#ifndef MMS_LITE + +ST_INT ms_get_blocked_len (NAMED_TYPE *tptr) + { + return (ms_get_blocked_length (tptr->rt_head,tptr->rt_num)); + } + +#endif + +/************************************************************************/ +/* ms_get_blocked_length */ +/* If MMS_LITE, this function also sets rt_head->mvluTypeInfo.prim_count*/ +/************************************************************************/ + +ST_INT ms_get_blocked_length (SD_CONST RUNTIME_TYPE *rt_head, ST_INT rt_num) + { +ST_INT total_size; +SD_CONST RUNTIME_TYPE *rt; /* current runtime element */ +SD_CONST RUNTIME_TYPE *rt_end; +ST_INT arr_loop_buf[ASN1_MAX_LEVEL]; +ST_INT arr_loop_level; +ST_INT *arr_loops; +ST_RTINT prim_count; + + S_LOCK_COMMON_RESOURCES (); + arr_loop_level = 0; + arr_loops = arr_loop_buf; + + rt = rt_head; /* set runtime ptr */ + rt_end = rt_head + rt_num; /* end block */ + total_size = 0; + prim_count = 0; /* initialize */ + + while (rt < rt_end) + { + if (rt->el_tag == RT_ARR_START) /* Set up array looping */ + { + ++arr_loop_level; + arr_loops[arr_loop_level] = rt->u.arr.num_elmnts; + } + + if (rt->el_tag == RT_ARR_END) /* treat case of array ending */ + { + if (--arr_loops[arr_loop_level] > 0) /* if need to do next ar elmnt */ + { + rt -= rt->u.arr.num_rt_blks; /* mv rt to start of arr */ + continue; + } + --arr_loop_level; + } + + total_size += rt->el_size; + if (ms_is_rt_prim (rt)) + prim_count++; + rt++; /* point to next runtime element*/ + } + +#if defined(MMS_LITE) + rt_head->mvluTypeInfo.prim_count = prim_count; +#endif + S_UNLOCK_COMMON_RESOURCES (); + return (total_size); + } + + +/************************************************************************/ +/* ms_log_runtime */ +/************************************************************************/ +/* list the elements in a runtime type def table */ + + +#define MAX_INDENT 5 + +ST_VOID ms_log_runtime (SD_CONST RUNTIME_TYPE *rt, ST_INT num_rt) + { + _ms_log_runtime (0, rt, num_rt); + } + + +static ST_VOID _ms_log_runtime (ST_INT indent, SD_CONST RUNTIME_TYPE *rt, ST_INT num_rt) + { +#if defined(DEBUG_SISCO) + +ST_INT i; +const ST_CHAR *comp_name; +ST_CHAR *sp[MAX_INDENT] = + { + " ", + " ", + " ", + " ", + " ", + }; +ST_CHAR *sp2[MAX_INDENT] = + { + " ", + " ", + " ", + " ", + "", + }; + + S_LOCK_COMMON_RESOURCES (); + + if (num_rt == 0) + { + MLOG_ALWAYS0 ("Runtime Type : 0 elements"); + } + else if (indent == 0) + { + MLOG_ALWAYS2 ("Runtime Type : %d elements, Offset past last : %d", + num_rt, rt->offset_to_last); + } + + for (i = 0; i < num_rt; ++i, rt++) + { + comp_name = ms_comp_name_find (rt); + if (strlen (comp_name)) + { + MLOG_CALWAYS3 ("%sNamed comp %s: %s", + sp[indent], + sp2[indent], + comp_name); + } + + switch (rt->el_tag) + { + case RT_ARR_START : + MLOG_CALWAYS5 ("%sArray start %s: size %02d, %02d elmnts, %02d rt", + sp[indent], + sp2[indent], + rt->el_size, + rt->u.arr.num_elmnts, + rt->u.arr.num_rt_blks); + if (++indent >= MAX_INDENT) + indent--; + break; + + case RT_ARR_END : + if (--indent < 0) + indent++; + MLOG_CALWAYS5 ("%sArray end %s: size %02d, %02d elmnts, %02d rt", + sp[indent], + sp2[indent], + rt->el_size, + rt->u.arr.num_elmnts, + rt->u.arr.num_rt_blks); + break; + + case RT_STR_START : + MLOG_CALWAYS4 ("%sStruct start%s: size %02d, %02d rt", + sp[indent], + sp2[indent], + rt->el_size, + rt->u.str.num_rt_blks); + if (++indent >= MAX_INDENT) + indent--; + break; + + case RT_STR_END : + if (--indent < 0) + indent++; + MLOG_CALWAYS3 ("%sStruct end %s: size %02d", + sp[indent], + sp2[indent], + rt->el_size); + break; + + case RT_BOOL : + MLOG_CALWAYS4 ("%sBoolean %s: size %02d, precision %02d", + sp[indent], + sp2[indent], + rt->el_size, + rt->u.p.el_len); + break; + + case RT_BIT_STRING : + MLOG_CALWAYS4 ("%sBitstring %s: size %02d, precision %02d", + sp[indent], + sp2[indent], + rt->el_size, + rt->u.p.el_len); + break; + + case RT_INTEGER : + MLOG_CALWAYS4 ("%sInteger %s: size %02d, precision %02d", + sp[indent], + sp2[indent], + rt->el_size, + rt->u.p.el_len); + break; + + case RT_UNSIGNED : + MLOG_CALWAYS4 ("%sUnsigned %s: size %02d, precision %02d", + sp[indent], + sp2[indent], + rt->el_size, + rt->u.p.el_len); + break; + + case RT_FLOATING_POINT : + MLOG_CALWAYS4 ("%sFloat %s: size %02d, precision %02d", + sp[indent], + sp2[indent], + rt->el_size, + rt->u.p.el_len); + break; + + case RT_OCTET_STRING : + MLOG_CALWAYS4 ("%sOctet Str %s: size %02d, precision %02d", + sp[indent], + sp2[indent], + rt->el_size, + rt->u.p.el_len); + break; + + case RT_VISIBLE_STRING : + MLOG_CALWAYS4 ("%sVisible Str %s: size %02d, precision %02d", + sp[indent], + sp2[indent], + rt->el_size, + rt->u.p.el_len); + break; + + case RT_GENERAL_TIME : + MLOG_CALWAYS4 ("%sGen Time %s: size %02d, precision %02d", + sp[indent], + sp2[indent], + rt->el_size, + rt->u.p.el_len); + break; + + case RT_BINARY_TIME : + MLOG_CALWAYS4 ("%sBin Time %s: size %02d, precision %02d", + sp[indent], + sp2[indent], + rt->el_size, + rt->u.p.el_len); + break; + + case RT_BCD : + MLOG_CALWAYS4 ("%sBCD %s: size %02d, precision %02d", + sp[indent], + sp2[indent], + rt->el_size, + rt->u.p.el_len); + break; + + case RT_UTC_TIME : + MLOG_CALWAYS4 ("%sUTC Time %s: size %02d, precision %02d", + sp[indent], + sp2[indent], + rt->el_size, + rt->u.p.el_len); + break; + + case RT_UTF8_STRING : + MLOG_CALWAYS4 ("%sUTF8string %s: size %02d, precision %02d", + sp[indent], + sp2[indent], + rt->el_size, + rt->u.p.el_len); + break; + + default : /* should not be any other tag */ + MLOG_CALWAYS1 (" **** UNKNOWN ELEMENT %02d ",i); + break; + } + } + + S_UNLOCK_COMMON_RESOURCES (); + +#endif + } + +/************************************************************************/ +/* ms_runtime_create */ +/* This function parses an ASN.1 type definition, and creates a Runtime */ +/* Type Table from it. It allocates memory for the table and fills it in.*/ +/* The table should be destroyed by calling "ms_runtime_destroy". */ +/************************************************************************/ +RUNTIME_CTRL *ms_runtime_create (ST_UCHAR *asn1_data, + ST_UINT asn1_len, + ST_INT max_num_rt) + { +RUNTIME_CTRL *rt_ctrl = NULL; /* assume failure */ +ST_INT num_rt; /* num entries in RUNTIME_TYPE array */ +ASN1_DEC_CTXT aCtx; /* Main decode struct */ +ASN1_TO_RT_DEC_INFO decInfo; /* temporary storage for extra decode info. */ +ST_UCHAR *asn1_tmp; /* temporary copy of asn1_data. */ + + assert (m_data_algn_tbl != NULL); /* ptr MUST be set before now. */ + + /* First decode only to compute "num_rt" (RUNTIME_TYPE array NOT alloc'd)*/ + memset (&aCtx, 0, sizeof (ASN1_DEC_CTXT)); /* CRITICAL: start clean.*/ + aCtx.usr_info[0] = &decInfo; /* save ptr to decInfo in context. */ + + /* set global variables to parse the type for size */ + decInfo.calc_only = SD_TRUE; /* flag to calculate num rt blocks*/ + + /* If USE_COMPACT_MMS_STRUCTS defined & ObjectNames included in ASN.1,*/ + /* (maybe other cases) the ASN1 buffer gets corrupted by decode. */ + /* Copy to tmp buffer & use tmp buffer on 1st decode. */ + asn1_tmp = (ST_UCHAR *) chk_calloc (1, asn1_len); + memcpy (asn1_tmp, asn1_data, asn1_len); + num_rt = _ms_asn1_to_runtime (&aCtx, asn1_tmp, asn1_len, NULL, max_num_rt); + chk_free (asn1_tmp); /* done with temporary copy */ + + /* Second decode to alloc & init array of RUNTIME_TYPE structs. */ + if (num_rt) + { + memset (&aCtx, 0, sizeof (ASN1_DEC_CTXT)); /* CRITICAL: start clean.*/ + aCtx.usr_info[0] = &decInfo; /* save ptr to decInfo in context.*/ + /* Allocate RUNTIME_CTRL struct plus array of RUNTIME_TYPE structs. */ + rt_ctrl = (RUNTIME_CTRL *) chk_calloc (1, sizeof (RUNTIME_CTRL) + num_rt * sizeof (RUNTIME_TYPE)); + rt_ctrl->rt_first = (RUNTIME_TYPE *)(rt_ctrl + 1); + + /* parse the type encoding a second time to get an RT TYPE */ + decInfo.calc_only = SD_FALSE; +#if defined(USE_RT_TYPE_2) + decInfo.comp_name_size = decInfo.comp_name_used; /* Save running count.*/ + if (decInfo.comp_name_size) + decInfo.comp_name_buf = (ST_CHAR *) chk_calloc (1, decInfo.comp_name_size); + else + decInfo.comp_name_buf = NULL; /* There is no buffer. */ +#endif /* USE_RT_TYPE_2 */ + rt_ctrl->rt_num = _ms_asn1_to_runtime (&aCtx, asn1_data, asn1_len, rt_ctrl->rt_first, num_rt); + if (rt_ctrl->rt_num == 0) + { /* 2nd decode failed. Should almost NEVER happen. Cleanup. */ +#if defined(USE_RT_TYPE_2) + if (decInfo.comp_name_buf) + chk_free (decInfo.comp_name_buf); +#endif + chk_free (rt_ctrl); + rt_ctrl = NULL; + } + } + /* rt_first & rt_num should now be set in rt_ctrl */ + return (rt_ctrl); + } + +/************************************************************************/ +/* ms_runtime_destroy */ +/* This function frees up all the memory for a Runtime Type Table */ +/* created by "ms_runtime_create". */ +/* It should not be called until all references to the Rumtime Type */ +/* (i.e. Variable associations, etc.) have been destroyed. */ +/************************************************************************/ +ST_VOID ms_runtime_destroy (RUNTIME_CTRL *rt_ctrl) + { +#if defined(USE_RT_TYPE_2) +RUNTIME_TYPE *rt_table = rt_ctrl->rt_first; +ST_INT j; + /* Component names only saved if USE_RT_TYPE_2 defined. Must free them.*/ + /* Find the first non-NULL comp_name_ptr. This should be the pointer */ + /* to the buffer allocated for "component names". Free the buffer. */ + for (j=0; j < rt_ctrl->rt_num; j++) + { + if (rt_table[j].comp_name_ptr != 0) + { + chk_free (rt_table[j].comp_name_ptr); /* Free the buffer of names*/ + break; + } + } +#endif /* USE_RT_TYPE_2 */ + + /* Free the table. */ + chk_free (rt_ctrl); + } + +/************************************************************************/ +/* ms_is_rt_prim */ +/************************************************************************/ +ST_BOOLEAN ms_is_rt_prim (SD_CONST RUNTIME_TYPE *rt) + { + switch (rt->el_tag) + { + case RT_BOOL : + case RT_BIT_STRING : + case RT_INTEGER : + case RT_UNSIGNED : + case RT_FLOATING_POINT : + case RT_OCTET_STRING : + case RT_VISIBLE_STRING : + case RT_GENERAL_TIME : + case RT_BINARY_TIME : + case RT_BCD : + case RT_BOOLEANARRAY : + case RT_UTC_TIME : + case RT_UTF8_STRING : + return (SD_TRUE); + break; + } + return (SD_FALSE); + } + +/************************************************************************/ +/* ms_rt_el_tag_text */ +/* Gets "el_tag" from RUNTIME_TYPE struct and converts is to text. */ +/************************************************************************/ +ST_CHAR *ms_rt_el_tag_text (SD_CONST RUNTIME_TYPE *rt_type) + { +ST_CHAR *el_tag_text; + + switch (rt_type->el_tag) + { + case RT_ARR_START: el_tag_text="RT_ARR_START"; break; + case RT_STR_START: el_tag_text="RT_STR_START"; break; + case RT_BOOL: el_tag_text="RT_BOOL"; break; + case RT_BIT_STRING: el_tag_text="RT_BIT_STRING"; break; + case RT_INTEGER: el_tag_text="RT_INTEGER"; break; + case RT_UNSIGNED: el_tag_text="RT_UNSIGNED"; break; + case RT_FLOATING_POINT: el_tag_text="RT_FLOATING_POINT"; break; + case RT_OCTET_STRING: el_tag_text="RT_OCTET_STRING"; break; + case RT_VISIBLE_STRING: el_tag_text="RT_VISIBLE_STRING"; break; + case RT_GENERAL_TIME: el_tag_text="RT_GENERAL_TIME"; break; + case RT_BINARY_TIME: el_tag_text="RT_BINARY_TIME"; break; + case RT_BCD: el_tag_text="RT_BCD"; break; + case RT_BOOLEANARRAY: el_tag_text="RT_BOOLEANARRAY"; break; + case RT_UTC_TIME: el_tag_text="RT_UTC_TIME"; break; + case RT_UTF8_STRING: el_tag_text="RT_UTF8_STRING"; break; + case RT_STR_END: el_tag_text="RT_STR_END"; break; + case RT_ARR_END: el_tag_text="RT_ARR_END"; break; + default: el_tag_text="RT_UNSUPPORTED"; break; /* should never happen*/ + } + return (el_tag_text); + } + +/************************************************************************/ +/* ms_asn1_to_runtime_x */ +/* For backward compatibility only. Does NOT work with USE_RT_TYPE_2. */ +/* New programs should use ms_runtime_create. */ +/************************************************************************/ + +#if !defined(MMS_LITE) +ST_INT ms_asn1_to_runtime_x (ST_UCHAR *asn1_data, ST_UINT asn1_len, + RUNTIME_TYPE *rt_table, ST_INT rt_len, + ST_BOOLEAN calc_only) + { +ST_INT rt_num; /* num entries in RUNTIME_TYPE array */ +ASN1_DEC_CTXT aCtx; /* Main decode struct */ +ASN1_TO_RT_DEC_INFO decInfo; /* temporary storage for extra decode info. */ + + memset (&aCtx, 0, sizeof (ASN1_DEC_CTXT)); /* CRITICAL: start clean.*/ + aCtx.usr_info[0] = &decInfo; /* save ptr to decInfo in context.*/ + decInfo.calc_only = calc_only; + + rt_num = _ms_asn1_to_runtime (&aCtx, asn1_data, asn1_len, rt_table, rt_len); + + /* rt_first & rt_num should now be set in rt_ctrl */ + return (rt_num); + } + +#endif /* !MMS_LITE */ + +#if defined(USE_RT_TYPE_2) +/* Currently, the ms_rt_bld*" functions work only if USE_RT_TYPE_2 */ +/* defined. Fix to work with other options, or eliminate them. */ + +/************************************************************************/ +/* ms_rt_bld_set_name */ +/* Copy the comp_name into the buffer and set the comp_name_ptr in the */ +/* current RUNTIME_TYPE pointing to it. */ +/************************************************************************/ +static ST_VOID ms_rt_bld_set_name (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name) + { + if (comp_name) + { + ctxt->rt_type->comp_name_ptr = ctxt->comp_name_buf + (ctxt->rt_ctrl->rt_num * (MAX_IDENT_LEN + 1)); + strcpy (ctxt->rt_type->comp_name_ptr, comp_name); + } + } +/************************************************************************/ +/* ms_rt_bld_compress */ +/* NOTE: don't need to save pointer to component name buffer allocated */ +/* here. This buf is freed in "ms_runtime_destroy" by using the */ +/* "comp_name_ptr" of the first RUNTIME_TYPE. */ +/************************************************************************/ +static ST_VOID ms_rt_bld_compress (RUNTIME_BUILD_CTXT *ctxt) + { +RUNTIME_CTRL *rt_ctrl = ctxt->rt_ctrl; +RUNTIME_TYPE *rt_type; +ST_CHAR *compressed_buf;/* allocated buf to store all component names. */ +ST_CHAR *cur_ptr; /* ptr to current position in buffer. */ +ST_INT j; +size_t total_len; + + /* Compute total len of all component names (including 1 byte NULL terminator).*/ + for (j = 0, rt_type = rt_ctrl->rt_first, total_len = 0; j< rt_ctrl->rt_num; j++, rt_type++) + { + if (rt_type->comp_name_ptr) + total_len += (strlen(rt_type->comp_name_ptr) + 1); + } + /* Allocate new buffer. Copy all component names to new buffer */ + /* and update each component name pointer. */ + compressed_buf = chk_malloc (total_len); + for (j = 0, rt_type = rt_ctrl->rt_first, cur_ptr = compressed_buf; + j< rt_ctrl->rt_num; + j++, rt_type++) + { + if (rt_type->comp_name_ptr) + { + strcpy (cur_ptr, rt_type->comp_name_ptr); + rt_type->comp_name_ptr = cur_ptr; + cur_ptr += (strlen(rt_type->comp_name_ptr) + 1); + } + } + assert (cur_ptr == compressed_buf + total_len); /* make sure we counted right*/ + /* Done with old buffer, so free it, and set pointer back to NULL. */ + chk_free (ctxt->comp_name_buf); + ctxt->comp_name_buf = NULL; + } + +/************************************************************************/ +/* ms_rt_bld_start */ +/* Start building a type. */ +/* If max_rt_num == 0: */ +/* Start computing the number of RUNTIME_TYPE elements */ +/* by setting "do_count=SD_TRUE" (used by all lower ms_rt_bld* functs).*/ +/* Call ms_rt_bld_get_count when build is done to get the count. */ +/* DO NOT need to call ..bld_finish or ..bld_cancel when build is done.*/ +/* If max_rt_num != 0: */ +/* Alloc that number of RUNTIME_TYPE elements and prepare to fill them in.*/ +/* MUST call ..bld_finish or ..bld_cancel to clean up when build is done.*/ +/************************************************************************/ +ST_VOID ms_rt_bld_start (RUNTIME_BUILD_CTXT *rt_ctxt, ST_INT max_rt_num) + { +RUNTIME_CTRL *rt_ctrl; + + if (max_rt_num==0) + { /* set up to compute number of RUNTIME_TYPE */ + /* NOTE: this memset effectively sets these paramters as we want: */ + /* rt_ctxt->curr_count = 0 (lower functions increment it). */ + /* rt_ctxt->rt_ctrl = NULL (must not write to it). */ + memset (rt_ctxt, 0, sizeof (RUNTIME_BUILD_CTXT)); /* start clean */ + rt_ctxt->do_count = SD_TRUE; + return; + } + + /* Allocate RUNTIME_CTRL struct plus array of RUNTIME_TYPE structs. */ + rt_ctrl = (RUNTIME_CTRL *) chk_calloc (1, sizeof (RUNTIME_CTRL) + max_rt_num * sizeof (RUNTIME_TYPE)); + rt_ctrl->rt_first = (RUNTIME_TYPE *)(rt_ctrl + 1); + /* NOTE: rt_ctrl->rt_num = 0 now. Incremented as types added. */ + + /* Initialize the runtime build context structure. */ + /* NOTE: this memset effectively sets these paramters as we want: */ + /* rt_ctxt->nest_level = 0; */ + /* rt_ctxt->errcode = SD_SUCCESS; */ + /* rt_ctxt->do_count = SD_FALSE; */ + memset (rt_ctxt, 0, sizeof (RUNTIME_BUILD_CTXT)); /* start clean */ + rt_ctxt->rt_ctrl = rt_ctrl; + rt_ctxt->rt_type = rt_ctrl->rt_first; /* point to first. This ptr */ + /* incremented as types added */ + rt_ctxt->max_rt_type = rt_ctrl->rt_first + max_rt_num; + /* Allocate buffer to store component names. Compress it later using */ + /* ms_rt_bld_compress. */ + rt_ctxt->comp_name_buf = chk_calloc (max_rt_num , (MAX_IDENT_LEN+1)); + memset (rt_ctxt->nest_start_ptr, 0, sizeof (rt_ctxt->nest_start_ptr)); + } +/************************************************************************/ +/************************************************************************/ +ST_VOID ms_rt_bld_cancel (RUNTIME_BUILD_CTXT *rt_ctxt) + { + if (rt_ctxt->do_count) + return; /* no cleanup necessary */ + + if (rt_ctxt->comp_name_buf) + { + chk_free (rt_ctxt->comp_name_buf); + rt_ctxt->comp_name_buf = NULL; + } + chk_free (rt_ctxt->rt_ctrl); + } +/************************************************************************/ +/************************************************************************/ +ST_VOID ms_rt_bld_finish (RUNTIME_BUILD_CTXT *rt_ctxt) + { + if (rt_ctxt->do_count) + return; /* no cleanup necessary */ + + /* This assert verifies rt_num & rt_type incremented/decremented correctly.*/ + assert (&rt_ctxt->rt_ctrl->rt_first[rt_ctxt->rt_ctrl->rt_num] == rt_ctxt->rt_type); + ms_rt_bld_compress (rt_ctxt); + + /* CRITICAL: this funct sets "el_size" in every RUNTIME_TYPE.*/ + ms_rt_size_calc (rt_ctxt->rt_ctrl->rt_first, rt_ctxt->rt_ctrl->rt_num); + } + +/************************************************************************/ +/************************************************************************/ +ST_RET ms_rt_bld_remove_last (RUNTIME_BUILD_CTXT *ctxt) + { +RUNTIME_TYPE *rt_type; + + if (ctxt->do_count) + { + assert (ctxt->curr_count > 0); /* this should never be called otherwise*/ + ctxt->curr_count--; + return (SD_SUCCESS); /* just counting, nothing else to do */ + } + + if (ctxt->rt_ctrl->rt_num > 0) + { + ctxt->rt_ctrl->rt_num--; + ctxt->rt_type--; /* always decrement this & rt_num at same time*/ + rt_type = ctxt->rt_type; + /* If removing STR_START or ARR_START must adjust nest level*/ + if (rt_type->el_tag==RT_STR_START || rt_type->el_tag== RT_ARR_START) + ctxt->nest_level--; + memset (rt_type, 0, sizeof (RUNTIME_TYPE)); /* clean struct */ + return (SD_SUCCESS); + } + else + return (SD_FAILURE); /* already empty. Nothing to remove.*/ + } +/************************************************************************/ +/* Check if state is valid to add another type. */ +/* CRITICAL: DO NOT use when (ctxt->do_count==SD_TRUE). */ +/************************************************************************/ +ST_RET ms_rt_bld_chk_state (RUNTIME_BUILD_CTXT *ctxt) + { + if (ctxt->errcode) + return (ctxt->errcode); /* err already set. Just return it. */ + + if (ctxt->rt_type >= ctxt->max_rt_type) + { + /* NOTE: if this error occurs, try calling ms_rt_bld_start with larger num*/ + /* NOTE: we want to log the "max_rt_num" passed to "ms_rt_bld_start"*/ + /* but we didn't save it, so use pointer arithmetic to compute it.*/ + MLOG_ERR1 ("Error building type. Exceeds max number of elements '%d'", + ctxt->max_rt_type - ctxt->rt_ctrl->rt_first); + ctxt->errcode = SD_FAILURE; /* set flag so all subsequent calls fail too.*/ + return (SD_FAILURE); + } + return (SD_SUCCESS); + } +/************************************************************************/ +/* Get current count. */ +/* CRITICAL: maximum count may be slightly more than current count */ +/* because RT_STR_START or RT_ARR_START may be temporarily added, then */ +/* removed later if they are empty (see ms_rt_bld_remove_last). */ +/************************************************************************/ +ST_INT ms_rt_bld_get_count (RUNTIME_BUILD_CTXT *ctxt) + { + if (ctxt->do_count) + return (ctxt->curr_count); + else + return (ctxt->rt_ctrl->rt_num); /* usually same as curr_count, */ + /* but may be different on error*/ + } +/************************************************************************/ +/* Get maximum count. */ +/* CRITICAL: maximum count may be slightly more than current count */ +/* because RT_STR_START or RT_ARR_START may be temporarily added, then */ +/* removed later if they are empty (see ms_rt_bld_remove_last). */ +/************************************************************************/ +ST_INT ms_rt_bld_get_max_count (RUNTIME_BUILD_CTXT *ctxt) + { + assert (ctxt->do_count!=SD_FALSE); /* only valid if do_count is TRUE.*/ + return (ctxt->max_count); + } +/************************************************************************/ +/* Increment the count and adjust the max count, if necessary. */ +/************************************************************************/ +static ST_VOID inc_count (RUNTIME_BUILD_CTXT *ctxt) + { + ctxt->curr_count++; + if (ctxt->curr_count > ctxt->max_count) + ctxt->max_count = ctxt->curr_count; /* update max */ + } +/************************************************************************/ +/************************************************************************/ +ST_RET ms_rt_bld_add_str_start (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name) + { +RUNTIME_TYPE *rt_type = ctxt->rt_type; +ST_RET ret; + if (ctxt->do_count) + { + inc_count (ctxt); + return (SD_SUCCESS); /* just counting, nothing else to do */ + } + if ((ret = ms_rt_bld_chk_state (ctxt)) != SD_SUCCESS) + return (ret); + + rt_type->el_tag = RT_STR_START; + ms_rt_bld_set_name (ctxt, comp_name); + ctxt->rt_ctrl->rt_num++; + ctxt->rt_type++; /* always increment this & rt_num at same time*/ + assert (ctxt->nest_level < ASN1_MAX_LEVEL); + ctxt->nest_start_ptr[ctxt->nest_level++] = rt_type; + return (SD_SUCCESS); + } +/************************************************************************/ +/************************************************************************/ +ST_RET ms_rt_bld_add_str_end (RUNTIME_BUILD_CTXT *ctxt) + { +RUNTIME_TYPE *rt_type = ctxt->rt_type; +ST_INT num_rt; +RUNTIME_TYPE *rt_start; +ST_RET ret; + if (ctxt->do_count) + { + inc_count (ctxt); + return (SD_SUCCESS); /* just counting, nothing else to do */ + } + if ((ret = ms_rt_bld_chk_state (ctxt)) != SD_SUCCESS) + return (ret); + + if (--ctxt->nest_level < 0) + { + MLOG_ERR0 ("STR_END does not have corresponding STR_START"); + ctxt->errcode = SD_FAILURE; /* DEBUG: use different errcode?*/ + return (ctxt->errcode); + } + rt_start = ctxt->nest_start_ptr[ctxt->nest_level]; + if (rt_start->el_tag != RT_STR_START) + { + MLOG_ERR0 ("STR_END does not have corresponding STR_START"); + ctxt->errcode = SD_FAILURE; /* DEBUG: use different errcode?*/ + return (ctxt->errcode); + } + num_rt = (rt_type - rt_start - 1); + rt_start->u.str.num_rt_blks = num_rt; + rt_type->u.str.num_rt_blks = num_rt; + rt_type->el_tag = RT_STR_END; + ctxt->rt_ctrl->rt_num++; + ctxt->rt_type++; /* always increment this & rt_num at same time*/ + return (SD_SUCCESS); + } +/************************************************************************/ +/************************************************************************/ +ST_RET ms_rt_bld_add_arr_start (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name, ST_INT array_count) + { +RUNTIME_TYPE *rt_type = ctxt->rt_type; +ST_RET ret; + if (ctxt->do_count) + { + inc_count (ctxt); + return (SD_SUCCESS); /* just counting, nothing else to do */ + } + if ((ret = ms_rt_bld_chk_state (ctxt)) != SD_SUCCESS) + return (ret); + + rt_type->el_tag = RT_ARR_START; + ms_rt_bld_set_name (ctxt, comp_name); + rt_type->u.arr.num_elmnts = array_count; + ctxt->rt_ctrl->rt_num++; + ctxt->rt_type++; /* always increment this & rt_num at same time*/ + ctxt->nest_start_ptr[ctxt->nest_level++] = rt_type; + return (SD_SUCCESS); + } +/************************************************************************/ +/************************************************************************/ +ST_RET ms_rt_bld_add_arr_end (RUNTIME_BUILD_CTXT *ctxt) + { +RUNTIME_TYPE *rt_type = ctxt->rt_type; +ST_INT num_rt; +RUNTIME_TYPE *rt_start; +ST_RET ret; + if (ctxt->do_count) + { + inc_count (ctxt); + return (SD_SUCCESS); /* just counting, nothing else to do */ + } + if ((ret = ms_rt_bld_chk_state (ctxt)) != SD_SUCCESS) + return (ret); + + if (--ctxt->nest_level < 0) + { + MLOG_ERR0 ("ARR_END does not have corresponding ARR_START"); + ctxt->errcode = SD_FAILURE; /* DEBUG: use different errcode?*/ + return (ctxt->errcode); + } + rt_start = ctxt->nest_start_ptr[ctxt->nest_level]; + if (rt_start->el_tag != RT_ARR_START) + { + MLOG_ERR0 ("ARR_END does not have corresponding ARR_START"); + ctxt->errcode = SD_FAILURE; /* DEBUG: use different errcode?*/ + return (ctxt->errcode); + } + num_rt = (rt_type - rt_start - 1); + rt_type->u.arr.num_rt_blks = num_rt; + rt_start->u.arr.num_rt_blks = num_rt; + +/* copy the element count from the start block to the end block */ + rt_type->u.arr.num_elmnts = rt_start->u.arr.num_elmnts; + + rt_type->el_tag = RT_ARR_END; + ctxt->rt_ctrl->rt_num++; + ctxt->rt_type++; /* always increment this & rt_num at same time*/ + return (SD_SUCCESS); + } +/************************************************************************/ +/************************************************************************/ +ST_RET ms_rt_bld_add_bool (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name) + { +RUNTIME_TYPE *rt_type = ctxt->rt_type; +ST_RET ret; + if (ctxt->do_count) + { + inc_count (ctxt); + return (SD_SUCCESS); /* just counting, nothing else to do */ + } + if ((ret = ms_rt_bld_chk_state (ctxt)) != SD_SUCCESS) + return (ret); + + rt_type->el_tag = RT_BOOL; + rt_type->u.p.el_len = 1; + ms_rt_bld_set_name (ctxt, comp_name); + ctxt->rt_ctrl->rt_num++; + ctxt->rt_type++; /* always increment this & rt_num at same time*/ + return (SD_SUCCESS); + } +/************************************************************************/ +/************************************************************************/ +ST_RET ms_rt_bld_add_int (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name, ST_INT el_len) + { +RUNTIME_TYPE *rt_type = ctxt->rt_type; +ST_RET ret; + if (ctxt->do_count) + { + inc_count (ctxt); + return (SD_SUCCESS); /* just counting, nothing else to do */ + } + if ((ret = ms_rt_bld_chk_state (ctxt)) != SD_SUCCESS) + return (ret); + + rt_type->el_tag = RT_INTEGER; + rt_type->u.p.el_len = el_len; + ms_rt_bld_set_name (ctxt, comp_name); + ctxt->rt_ctrl->rt_num++; + ctxt->rt_type++; /* always increment this & rt_num at same time*/ + return (SD_SUCCESS); + } +/************************************************************************/ +/************************************************************************/ +ST_RET ms_rt_bld_add_uint (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name, ST_INT el_len) + { +RUNTIME_TYPE *rt_type = ctxt->rt_type; +ST_RET ret; + if (ctxt->do_count) + { + inc_count (ctxt); + return (SD_SUCCESS); /* just counting, nothing else to do */ + } + if ((ret = ms_rt_bld_chk_state (ctxt)) != SD_SUCCESS) + return (ret); + + rt_type->el_tag = RT_UNSIGNED; + rt_type->u.p.el_len = el_len; + ms_rt_bld_set_name (ctxt, comp_name); + ctxt->rt_ctrl->rt_num++; + ctxt->rt_type++; /* always increment this & rt_num at same time*/ + return (SD_SUCCESS); + } +/************************************************************************/ +/************************************************************************/ +ST_RET ms_rt_bld_add_float (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name, ST_INT el_len) + { +RUNTIME_TYPE *rt_type = ctxt->rt_type; +ST_RET ret; + if (ctxt->do_count) + { + inc_count (ctxt); + return (SD_SUCCESS); /* just counting, nothing else to do */ + } + if ((ret = ms_rt_bld_chk_state (ctxt)) != SD_SUCCESS) + return (ret); + + rt_type->el_tag = RT_FLOATING_POINT; + rt_type->u.p.el_len = el_len; + ms_rt_bld_set_name (ctxt, comp_name); + ctxt->rt_ctrl->rt_num++; + ctxt->rt_type++; /* always increment this & rt_num at same time*/ + return (SD_SUCCESS); + } +/************************************************************************/ +/************************************************************************/ +ST_RET ms_rt_bld_add_bstring (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name, ST_INT el_len) + { +RUNTIME_TYPE *rt_type = ctxt->rt_type; +ST_RET ret; + if (ctxt->do_count) + { + inc_count (ctxt); + return (SD_SUCCESS); /* just counting, nothing else to do */ + } + if ((ret = ms_rt_bld_chk_state (ctxt)) != SD_SUCCESS) + return (ret); + + rt_type->el_tag = RT_BIT_STRING; + rt_type->u.p.el_len = el_len; + ms_rt_bld_set_name (ctxt, comp_name); + ctxt->rt_ctrl->rt_num++; + ctxt->rt_type++; /* always increment this & rt_num at same time*/ + return (SD_SUCCESS); + } +/************************************************************************/ +/************************************************************************/ +ST_RET ms_rt_bld_add_bvstring (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name, ST_INT el_len) + { +RUNTIME_TYPE *rt_type = ctxt->rt_type; +ST_RET ret; + if (ctxt->do_count) + { + inc_count (ctxt); + return (SD_SUCCESS); /* just counting, nothing else to do */ + } + if ((ret = ms_rt_bld_chk_state (ctxt)) != SD_SUCCESS) + return (ret); + + rt_type->el_tag = RT_BIT_STRING; + rt_type->u.p.el_len = -el_len; + ms_rt_bld_set_name (ctxt, comp_name); + ctxt->rt_ctrl->rt_num++; + ctxt->rt_type++; /* always increment this & rt_num at same time*/ + return (SD_SUCCESS); + } +/************************************************************************/ +/************************************************************************/ +ST_RET ms_rt_bld_add_vstring (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name, ST_INT el_len) + { +RUNTIME_TYPE *rt_type = ctxt->rt_type; +ST_RET ret; + if (ctxt->do_count) + { + inc_count (ctxt); + return (SD_SUCCESS); /* just counting, nothing else to do */ + } + if ((ret = ms_rt_bld_chk_state (ctxt)) != SD_SUCCESS) + return (ret); + + rt_type->el_tag = RT_VISIBLE_STRING; + rt_type->u.p.el_len = -el_len; + ms_rt_bld_set_name (ctxt, comp_name); + ctxt->rt_ctrl->rt_num++; + ctxt->rt_type++; /* always increment this & rt_num at same time*/ + return (SD_SUCCESS); + } +/************************************************************************/ +/************************************************************************/ +ST_RET ms_rt_bld_add_utctime (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name) + { +RUNTIME_TYPE *rt_type = ctxt->rt_type; +ST_RET ret; + if (ctxt->do_count) + { + inc_count (ctxt); + return (SD_SUCCESS); /* just counting, nothing else to do */ + } + if ((ret = ms_rt_bld_chk_state (ctxt)) != SD_SUCCESS) + return (ret); + + rt_type->el_tag = RT_UTC_TIME; + rt_type->u.p.el_len = 8; + ms_rt_bld_set_name (ctxt, comp_name); + ctxt->rt_ctrl->rt_num++; + ctxt->rt_type++; /* always increment this & rt_num at same time*/ + return (SD_SUCCESS); + } +/************************************************************************/ +/************************************************************************/ +ST_RET ms_rt_bld_add_btime6 (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name) + { +RUNTIME_TYPE *rt_type = ctxt->rt_type; +ST_RET ret; + if (ctxt->do_count) + { + inc_count (ctxt); + return (SD_SUCCESS); /* just counting, nothing else to do */ + } + if ((ret = ms_rt_bld_chk_state (ctxt)) != SD_SUCCESS) + return (ret); + + rt_type->el_tag = RT_BINARY_TIME; + rt_type->u.p.el_len = 6; + ms_rt_bld_set_name (ctxt, comp_name); + ctxt->rt_ctrl->rt_num++; + ctxt->rt_type++; /* always increment this & rt_num at same time*/ + return (SD_SUCCESS); + } +/************************************************************************/ +/************************************************************************/ +ST_RET ms_rt_bld_add_ostring (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name, ST_INT el_len) + { +RUNTIME_TYPE *rt_type = ctxt->rt_type; +ST_RET ret; + if (ctxt->do_count) + { + inc_count (ctxt); + return (SD_SUCCESS); /* just counting, nothing else to do */ + } + if ((ret = ms_rt_bld_chk_state (ctxt)) != SD_SUCCESS) + return (ret); + + rt_type->el_tag = RT_OCTET_STRING; + rt_type->u.p.el_len = el_len; + ms_rt_bld_set_name (ctxt, comp_name); + ctxt->rt_ctrl->rt_num++; + ctxt->rt_type++; /* always increment this & rt_num at same time*/ + return (SD_SUCCESS); + } +/************************************************************************/ +/************************************************************************/ +ST_RET ms_rt_bld_add_ovstring (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name, ST_INT el_len) + { +RUNTIME_TYPE *rt_type = ctxt->rt_type; +ST_RET ret; + if (ctxt->do_count) + { + inc_count (ctxt); + return (SD_SUCCESS); /* just counting, nothing else to do */ + } + if ((ret = ms_rt_bld_chk_state (ctxt)) != SD_SUCCESS) + return (ret); + + rt_type->el_tag = RT_OCTET_STRING; + rt_type->u.p.el_len = -el_len; + ms_rt_bld_set_name (ctxt, comp_name); + ctxt->rt_ctrl->rt_num++; + ctxt->rt_type++; /* always increment this & rt_num at same time*/ + return (SD_SUCCESS); + } +/************************************************************************/ +/************************************************************************/ +ST_RET ms_rt_bld_add_utf8vstring (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name, ST_INT el_len) + { +RUNTIME_TYPE *rt_type = ctxt->rt_type; +ST_RET ret; + if (ctxt->do_count) + { + inc_count (ctxt); + return (SD_SUCCESS); /* just counting, nothing else to do */ + } + if ((ret = ms_rt_bld_chk_state (ctxt)) != SD_SUCCESS) + return (ret); + + rt_type->el_tag = RT_UTF8_STRING; + rt_type->u.p.el_len = -el_len; + ms_rt_bld_set_name (ctxt, comp_name); + ctxt->rt_ctrl->rt_num++; + ctxt->rt_type++; /* always increment this & rt_num at same time*/ + return (SD_SUCCESS); + } +/************************************************************************/ +/* Use info from caller's RUNTIME_TYPE struct. */ +/************************************************************************/ +ST_RET ms_rt_bld_add_special (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name, RUNTIME_TYPE *special) + { +RUNTIME_TYPE *rt_type = ctxt->rt_type; +ST_RET ret; + if (ctxt->do_count) + { + inc_count (ctxt); + return (SD_SUCCESS); /* just counting, nothing else to do */ + } + if ((ret = ms_rt_bld_chk_state (ctxt)) != SD_SUCCESS) + return (ret); + + /* NOTE: only need el_tag & el_len */ + rt_type->el_tag = special->el_tag; + rt_type->u.p.el_len = special->u.p.el_len; + ms_rt_bld_set_name (ctxt, comp_name); + ctxt->rt_ctrl->rt_num++; + ctxt->rt_type++; /* always increment this & rt_num at same time*/ + return (SD_SUCCESS); + } +#endif /* defined(USE_RT_TYPE_2) */ diff --git a/mmslib/mmsl/mmscancl.c b/mmslib/mmsl/mmscancl.c new file mode 100644 index 0000000..99a672f --- /dev/null +++ b/mmslib/mmsl/mmscancl.c @@ -0,0 +1,73 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1993 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : mmscancl.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the common function to encode a conclude */ +/* operation. Note that the cancel request and the cancel */ +/* response are the same. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 01 Added SD_CONST modifiers */ +/* 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 "asn1defs.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/* _ms_mk_cancel */ +/* Construct a cancel response or request PDU. */ +/************************************************************************/ + +ST_UCHAR *_ms_mk_cancel (ASN1_ENC_CTXT *aCtx, ST_BOOLEAN request, ST_UCHAR *msg_ptr, ST_INT buf_len, ST_UINT32 id) + { +ST_UCHAR *msg_start; +#ifdef DEBUG_SISCO +ST_INT msg_len; /* Used for debug print only */ +#endif + + asn1r_strt_asn1_bld (aCtx, msg_ptr,buf_len); /* init the ASN.1 tools */ + + asn1r_wr_u32 (aCtx, id); /* write the invoke id */ + +/* Finish the PDU with the correct context tag. */ + if (request) + asn1r_fin_prim (aCtx, MMSCANREQ,CTX); + else + asn1r_fin_prim (aCtx, MMSCANRESP,CTX); + + msg_start = aCtx->asn1r_field_ptr + 1; +#ifdef DEBUG_SISCO + msg_len = (msg_ptr + buf_len) - msg_start; + MLOG_ENC1 ("CANCEL response built, len = %d", msg_len); + MLOG_ENCH (msg_len,msg_start); + MLOG_PAUSEENC (NULL); +#endif + + return (msg_start); + } diff --git a/mmslib/mmsl/mmsconcl.c b/mmslib/mmsl/mmsconcl.c new file mode 100644 index 0000000..0cfb145 --- /dev/null +++ b/mmslib/mmsl/mmsconcl.c @@ -0,0 +1,76 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : mmsconcl.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the common function to encode a conclude */ +/* operation. Note that the conclude request and the conclude */ +/* response are the same. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 01 Added SD_CONST modifiers */ +/* 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 "asn1defs.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_conclude */ +/* Function to construct a conclude message in selected buffer. */ +/* This may be used for either request or response by selecting the */ +/* PDU type desired. Pass a pointer to the end of the build buffer. */ +/* Returns a pointer to the first byte of the decoded message. */ +/************************************************************************/ + +ST_UCHAR *_ms_mk_conclude (ASN1_ENC_CTXT *aCtx, ST_UCHAR *buf_ptr, ST_INT buf_len, ST_INT pdutype) + { +#ifdef DEBUG_SISCO +ST_UCHAR *msg_start; /* These variables used for */ +ST_INT msg_len; /* debug print only */ +#endif + + asn1r_strt_asn1_bld (aCtx, buf_ptr,buf_len); /* init the ASN.1 tools */ + +/* The only data element is a context-tagged NULL. */ + +#ifdef DEBUG_SISCO + asn1r_fin_prim (aCtx, (ST_UINT16) pdutype, CTX); + msg_start = aCtx->asn1r_field_ptr + 1; + msg_len = (buf_ptr + buf_len) - msg_start; + MLOG_ENC2 ("CONCLUDE %s built, len = %d", + pdutype == MMSCNCLREQ ? "request" : "response", + msg_len); + MLOG_ENCH (msg_len,msg_start); + MLOG_PAUSEENC (NULL); + return (msg_start); +#else + asn1r_fin_prim (aCtx, (ST_UINT16) pdutype,CTX); + return (aCtx->asn1r_field_ptr + 1); +#endif + } diff --git a/mmslib/mmsl/mmsdata.c b/mmslib/mmsl/mmsdata.c new file mode 100644 index 0000000..585dc24 --- /dev/null +++ b/mmslib/mmsl/mmsdata.c @@ -0,0 +1,1758 @@ +/***********************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2008, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : mmsdata.c */ +/* PRODUCT(S) : MMSEASE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the functions employed by the virtual */ +/* machine for translating ASN.1 data (from the MMS 'Data' */ +/* production) to local data, and vice versa. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 08/26/09 JRB 31 Avoid moving constructed bstr, ostr data. */ +/* Del undocumented BAD_DATA, INTERNAL errcodes.*/ +/* 07/21/09 JRB 30 Chk new asn1r_bitstr_truncated flag. */ +/* 06/25/09 MDE 29 Fixed octet string overwrite hole */ +/* 05/01/08 JRB 28 ms_asn1_to_local: return error from decoder. */ +/* 04/09/08 JRB 27 wr_prim_dat: fail if BVstring, OVstring len<0*/ +/* 01/29/08 EJV 26 Use S_FMT_PTR macro to log pointers. */ +/* 08/09/06 JRB 25 Add ms_local_to_asn1_2. */ +/* Log TDL & data if wr_prim_dat fails. */ +/* 03/22/06 EJV 24 RT_GENERAL_TIME: cast datptr to (time_t *). */ +/* 10/29/04 JRB 23 Use ms_is_rt_prim, safer than el_tag range chk*/ +/* 01/20/04 MDE 22 Changed some MLOG_ERR to MLOG_NERR */ +/* 01/14/04 JRB 21 ms_local_to_asn1: stop encoding if */ +/* asn1r_encode_overrun flag is set. */ +/* 10/13/03 JRB 20 asn1r_magic error: Chg assert to err return. */ +/* 04/14/03 JRB 19 Eliminate compiler warnings. */ +/* 03/31/03 JRB 18 Add UTF8string support (see RT_UTF8_STRING). */ +/* Use new RT_MAX_PRIM_TAG in range chk. */ +/* asn1r_get_bitstr: add max_bits arg. */ +/* 12/12/02 JRB 17 Verify aCtx using asn1r_magic. */ +/* 07/12/02 JRB 16 Log Local Data Type (TDL) & maybe ASN.1 data */ +/* if conversion fails. */ +/* 01/23/02 JRB 15 Simplify use of usr_info (fixes QNX compile) */ +/* 12/06/01 JRB 14 Convert to use ASN1R (re-entrant ASN1). */ +/* Add ASN1_DEC_CTXT arg to ms_loc*_to_asn1. */ +/* Add function ms_local_to_asn1_easy. */ +/* On decode, replace globals with ..usr_info[].*/ +/* Use macros to access usr_info[], more readable.*/ +/* Pass datptr,rt_ptr as args to wr_prim_dat. */ +/* Delete all locks, functions now thread-safe. */ +/* 11/14/01 EJV 13 Added support for new MMS type UtcTime: */ +/* added get_utc_time_prim func; */ +/* ms_local_to_asn1: replaced RT_BOOLEANARRAY */ +/* with RT_UTC_TIME in range check; */ +/* wr_prim_dat: added case for RT_UTC_TIME; */ +/* 09/22/00 DSF 12 Truncate extended prim bitstrings */ +/* 09/13/99 MDE 11 Added SD_CONST modifiers */ +/* 03/11/98 MDE 10 Removed NEST_RT_TYPES */ +/* 02/10/98 MDE 09 No longer use runtime type 'loops' element */ +/* 12/10/97 MDE 08 Cast for call to get_i8 */ +/* 09/05/97 MDE 07 Minor logging changes */ +/* 08/15/97 MDE 06 BTOD handling changes */ +/* 08/14/97 MDE 05 Fixed get_bcd_prim (ST_CHAR -> ST_INT8) */ +/* 07/02/97 MDE 04 Check for ASN.1 encode overrun */ +/* 06/19/97 MDE 03 Added 64 bit integer support */ +/* 06/10/97 MDE 02 Removed stub functions (AA, AA Data) */ +/* 06/09/97 MDE 01 Modified Runtime Type handling */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#include "glbtypes.h" + +#include "sysincs.h" +#include "glbsem.h" + +#include "mmsdefs.h" +#include "mms_pvar.h" +#include "mms_vvar.h" +#include "asn1defs.h" +#if defined(_S_TEST_PROBES) +#include "stestprb.h" +#endif + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/* DEC_INFO - structure to store temporary decode information. */ +/************************************************************************/ +typedef struct + { + ST_INT arr_loop_level; + ST_INT *arr_loops; + SD_CONST RUNTIME_TYPE *rt_ptr; /* current RUNTIME_TYPE struct */ + SD_CONST RUNTIME_TYPE *rt_end; /* last RUNTIME_TYPE struct */ + ST_CHAR *datptr; /* decoded data destination */ + } DEC_INFO; + +/************************************************************************/ +/* Local functions for ASN1 decode. */ +/************************************************************************/ +static ST_VOID assign_tags (ASN1_DEC_CTXT *aCtx); +static ST_RET wr_prim_dat (ASN1_ENC_CTXT *aCtx, ST_CHAR *datptr, SD_CONST RUNTIME_TYPE *rt_ptr); +static ST_VOID get_bstr_cstr (ASN1_DEC_CTXT *aCtx); /* for constructed bitstrings */ +static ST_VOID bs_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID get_ostr_cstr (ASN1_DEC_CTXT *aCtx); /* for constructed octetstrings */ +static ST_VOID os_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID get_bool_prim (ASN1_DEC_CTXT *aCtx); /* for boolean primitives */ +static ST_VOID get_bitstr_prim (ASN1_DEC_CTXT *aCtx); /* for bitstring primitives */ +static ST_VOID get_int_prim (ASN1_DEC_CTXT *aCtx); /* for integer primitives */ +static ST_VOID get_uint_prim (ASN1_DEC_CTXT *aCtx); /* for unsigned integers */ +static ST_VOID get_float_prim (ASN1_DEC_CTXT *aCtx); /* for float primitives */ +static ST_VOID get_octstr_prim (ASN1_DEC_CTXT *aCtx); /* for octet string primitives */ +static ST_VOID get_vstr_prim (ASN1_DEC_CTXT *aCtx); /* for visible string primitives*/ +static ST_VOID get_gtime_prim (ASN1_DEC_CTXT *aCtx); /* for generalized time */ +static ST_VOID get_btime_prim (ASN1_DEC_CTXT *aCtx); /* for binary time primitives */ +static ST_VOID get_utc_time_prim (ASN1_DEC_CTXT *aCtx); /* for UTC time primitives */ +static ST_VOID get_bcd_prim (ASN1_DEC_CTXT *aCtx); /* for binary coded decimal */ +static ST_VOID get_utf8_prim (ASN1_DEC_CTXT *aCtx); /* for Unicode UTF8string */ +static ST_VOID arr_start (ASN1_DEC_CTXT *aCtx); +static ST_VOID str_start (ASN1_DEC_CTXT *aCtx); +static ST_VOID arr_done_fun (ASN1_DEC_CTXT *aCtx); +static ST_VOID str_done_fun (ASN1_DEC_CTXT *aCtx); +static ST_VOID data_asn1_decode_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID data_dec_err (ASN1_DEC_CTXT *aCtx,ST_RET); /* for type definition error */ + +static ST_VOID _log_data_type (SD_CONST RUNTIME_TYPE *rt_head, ST_INT rt_num); + +#if defined(_S_TEST_PROBES) + +static ST_RET _wr_constructed_bitstring (ASN1_ENC_CTXT *aCtx, ST_CHAR *datptr, + SD_CONST RUNTIME_TYPE *rt_ptr); + +static ST_RET _wr_constructed_octetstring (ASN1_ENC_CTXT *aCtx, ST_CHAR *datptr, + SD_CONST RUNTIME_TYPE *rt_ptr); + +#endif + +/************************************************************************/ +/* ms_asn1_to_locl */ +/* Function to convert an MMS ASN.1 'Data' entity into local blocked */ +/* data. Uses the ASN1DE decode tools to check the received data */ +/* against the expected data for the selected type using the runtime */ +/* type table for that type. Returns 0 if the decode is OK, else an */ +/* error code. */ +/************************************************************************/ + +#ifndef MMS_LITE + +ST_RET ms_asn1_to_locl (NAMED_TYPE *tptr, ST_UCHAR *asn1ptr, + ST_INT asn1len, ST_CHAR *dptr) + { + if (!tptr->rt_num) /* check to make sure some components */ + { + MLOG_NERR0 ("Named type has no runtime elements"); + return (MVE_RT_TYPE); /* 0 length typedef is error */ + } + return (ms_asn1_to_local (tptr->rt_head,tptr->rt_num, + asn1ptr,asn1len,dptr)); + } + +#endif + +/************************************************************************/ +/* ms_asn1_to_local */ +/************************************************************************/ + +ST_RET ms_asn1_to_local (SD_CONST RUNTIME_TYPE *rt_head, ST_INT rt_num, + ST_UCHAR *asn1ptr, ST_INT asn1len, ST_CHAR *dptr) + { +ST_RET ret; +ST_INT arr_loop_buf[ASN1_MAX_LEVEL]; +ASN1_DEC_CTXT aCtx; +DEC_INFO decInfo; /* temporary storage for decode info. */ + + /* Set initial values in decInfo. */ + decInfo.arr_loop_level = 0; + decInfo.arr_loops = arr_loop_buf; + decInfo.rt_ptr = rt_head; /* point to head rt_block */ + decInfo.rt_end = decInfo.rt_ptr + rt_num; /* done when pointer is here*/ + decInfo.datptr = dptr; /* datptr is the running dest pointer. */ + + /* Initialize the decode context "aCtx" and call "asn1r_decode_asn1". */ + memset (&aCtx, 0, sizeof (ASN1_DEC_CTXT)); /* CRITICAL: start clean.*/ + aCtx.usr_info[0] = &decInfo; /* save ptr to decInfo in context. */ + aCtx.asn1r_decode_method = ASN1_TAG_METHOD; /* select tag method */ + aCtx.asn1r_decode_done_fun = asn1r_done_err;/* not legal to be done at this time */ + aCtx.asn1r_err_fun = data_dec_err; /* parse error => call to data_dec_err */ + + assign_tags (&aCtx); /* set up tags allowed by 1st rt_block */ + asn1r_decode_asn1 (&aCtx,asn1ptr,asn1len);/* decode entire ASN.1 'Data' entity */ + + if (aCtx.asn1r_pdu_dec_err == NO_DECODE_ERR)/* check for sucess or return error */ + ret = SD_SUCCESS; + else + { + MLOG_NERR0 ("ASN.1 to Local data conversion error. ASN.1 data to convert:"); + if (mms_debug_sel & MMS_LOG_NERR) + { /* use ALWAYSH but only if NERR enabled*/ + MLOG_ALWAYSH (asn1len, asn1ptr); + } + /* Conversion failed, try to log the type used for the conversion. */ + _log_data_type (rt_head, rt_num); + + ret = aCtx.asn1r_pdu_dec_err; /* Just return ASN.1 decode error*/ + } + + return (ret); + } + +/************************************************************************/ +/* assign_tags */ +/* Function to assign tags to the ASN1DE tools based on what's expected */ +/* in the runtime_type definition table. At the beginning of the 'Data'*/ +/* entity, a DataAccessError type is allowed. WARNING: This function */ +/* requires that the current rt_block NOT be an end-of-array or end-of- */ +/* structure rt_block. If so, it will return an error. */ +/************************************************************************/ + +static ST_VOID assign_tags (ASN1_DEC_CTXT *aCtx) + { +DEC_INFO *decInfo = (DEC_INFO *) aCtx->usr_info[0]; /* get saved ptr*/ + if (decInfo->rt_ptr < decInfo->rt_end) /* if elements to look at */ + { + if (decInfo->rt_ptr->el_tag == RT_ARR_END) /* treat case of array ending*/ + { + if (--decInfo->arr_loops[decInfo->arr_loop_level] > 0) /* if need to do next ar elmnt */ + decInfo->rt_ptr -= decInfo->rt_ptr->u.arr.num_rt_blks; /* mv rtPtr to start of arr */ + else + --decInfo->arr_loop_level; + } + + switch (decInfo->rt_ptr->el_tag) + { + case RT_ARR_START : + ASN1R_TAG_ADD (aCtx,CTX|CONSTR,1,arr_start); /* expecting an array cstr */ + break; + + case RT_STR_START : + ASN1R_TAG_ADD (aCtx,CTX|CONSTR,2,str_start); /* expecting an struct cstr */ + break; + + case RT_BOOL : + ASN1R_TAG_ADD (aCtx,CTX,3,get_bool_prim); + break; + + case RT_BIT_STRING : + ASN1R_TAG_ADD (aCtx,CTX,4,get_bitstr_prim); + ASN1R_TAG_ADD (aCtx,CTX|CONSTR,4,get_bstr_cstr); + break; + + case RT_INTEGER : + ASN1R_TAG_ADD (aCtx,CTX,5,get_int_prim); + break; + + case RT_UNSIGNED : + ASN1R_TAG_ADD (aCtx,CTX,6,get_uint_prim); + break; + +#ifdef FLOAT_DATA_SUPPORT + case RT_FLOATING_POINT : + ASN1R_TAG_ADD (aCtx,CTX,7,get_float_prim); + break; +#endif + + case RT_OCTET_STRING : + ASN1R_TAG_ADD (aCtx,CTX,9,get_octstr_prim); + ASN1R_TAG_ADD (aCtx,CTX|CONSTR,9,get_ostr_cstr); + break; + + case RT_VISIBLE_STRING : + ASN1R_TAG_ADD (aCtx,CTX,10,get_vstr_prim); + break; + +#ifdef TIME_DATA_SUPPORT + case RT_GENERAL_TIME : + ASN1R_TAG_ADD (aCtx,CTX,11,get_gtime_prim); + break; +#endif + +#ifdef BTOD_DATA_SUPPORT + case RT_BINARY_TIME : + ASN1R_TAG_ADD (aCtx,CTX,12,get_btime_prim); + break; +#endif + + case RT_BCD : + ASN1R_TAG_ADD (aCtx,CTX,13,get_bcd_prim); + break; + + case RT_UTC_TIME : + ASN1R_TAG_ADD (aCtx,CTX,17,get_utc_time_prim); + break; + + case RT_UTF8_STRING : + ASN1R_TAG_ADD (aCtx,CTX,RT_UTF8_STRING,get_utf8_prim); + break; + + case RT_ARR_END : /* array done */ + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = arr_done_fun; /* the arr cstr must be done*/ + break; + + case RT_STR_END : /* structure done */ + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = str_done_fun; /* the str cstr must be done*/ + break; + + default : /* should not be any other tag */ + MLOG_NERR0 ("Bad tag in runtime type"); + asn1r_set_dec_err (aCtx,MVE_DATA_CONVERT); + return; + break; + } + } + else /* no more elements to do */ + { + aCtx->asn1r_decode_done = SD_TRUE; /* terminate decode */ + aCtx->asn1r_decode_done_fun = data_asn1_decode_done; /* ok to be done now */ + } + } +/****************************************************************** +Function name: +Author: YDF +Version: V1.00 +Date: 2008-5-14 +Description: 改进例程中的ms_asn1_to_local函数 +Input Parameter: NULL +Return Parameter: NULL +Modify History: + + ydf 2008-05-014 首次版本创建 +*******************************************************************/ +static ST_VOID assign_tags_new (ASN1_DEC_CTXT *aCtx); +ST_RET ms_asn1_to_local_new (ST_UCHAR tag, ST_INT16 size,ST_INT rt_num, + ST_UCHAR *asn1ptr, ST_INT asn1len, ST_CHAR *dptr) +{ +ST_RET ret; +ST_INT arr_loop_buf[ASN1_MAX_LEVEL]; +ASN1_DEC_CTXT aCtx; +DEC_INFO decInfo; /* temporary storage for decode info. */ +RUNTIME_TYPE rt_head; + + rt_head.el_tag=tag; + rt_head.el_size=size; + /* Set initial values in decInfo. */ + decInfo.arr_loop_level = 0; + decInfo.arr_loops = arr_loop_buf; + decInfo.rt_ptr = &rt_head; /* point to head rt_block */ + decInfo.rt_end = decInfo.rt_ptr + rt_num; /* done when pointer is here*/ + decInfo.datptr = dptr; /* datptr is the running dest pointer. */ + + /* Initialize the decode context "aCtx" and call "asn1r_decode_asn1". */ + memset (&aCtx, 0, sizeof (ASN1_DEC_CTXT)); /* CRITICAL: start clean.*/ + aCtx.usr_info[0] = &decInfo; /* save ptr to decInfo in context. */ + aCtx.asn1r_decode_method = ASN1_TAG_METHOD; /* select tag method */ + aCtx.asn1r_decode_done_fun = asn1r_done_err;/* not legal to be done at this time */ + aCtx.asn1r_err_fun = data_dec_err; /* parse error => call to data_dec_err */ + + assign_tags_new (&aCtx); /* set up tags allowed by 1st rt_block */ + asn1r_decode_asn1 (&aCtx,asn1ptr,asn1len);/* decode entire ASN.1 'Data' entity */ + + if (aCtx.asn1r_pdu_dec_err == NO_DECODE_ERR)/* check for sucess or return error */ + ret = SD_SUCCESS; + else + { + /* MLOG_NERR0 ("ASN.1 to Local data conversion error. ASN.1 data to convert:"); + if (mms_debug_sel & MMS_LOG_NERR) + { use ALWAYSH but only if NERR enabled + MLOG_ALWAYSH (asn1len, asn1ptr); + }*/ + /* Conversion failed, try to log the type used for the conversion. + _log_data_type (rt_head, rt_num); ydf add */ + + ret = MVE_DATA_CONVERT; + } + + return (ret); +} + + +/***************************************************************** +Function name: +Author: YDF +Version: V1.00 +Date: 2008-5-14 +Description: 改进例程中的assign_tags函数 +Input Parameter: NULL +Return Parameter: NULL +Modify History: + + ydf 2008-05-014 首次版本创建 +*******************************************************************/ +static ST_VOID assign_tags_new (ASN1_DEC_CTXT *aCtx) + { + DEC_INFO *decInfo = (DEC_INFO *) aCtx->usr_info[0]; /* get saved ptr*/ + if (decInfo->rt_ptr < decInfo->rt_end) /* if elements to look at */ + { +/* printk("decInfo->rt_ptr->el_tag = %x ", decInfo->rt_ptr->el_tag);*/ + switch (decInfo->rt_ptr->el_tag) + { + case RT_ARR_START : + ASN1R_TAG_ADD (aCtx,CTX|CONSTR,1,arr_start); /* expecting an array cstr */ + break; + + case RT_STR_START : + ASN1R_TAG_ADD (aCtx,CTX|CONSTR,2,str_start); /* expecting an struct cstr */ + break; + + case RT_BOOL : + ASN1R_TAG_ADD (aCtx,CTX,3,get_bool_prim); + break; + + case RT_BIT_STRING : + ASN1R_TAG_ADD (aCtx,CTX,4,get_bitstr_prim); + ASN1R_TAG_ADD (aCtx,CTX|CONSTR,4,get_bstr_cstr); + break; + + case RT_INTEGER : + ASN1R_TAG_ADD (aCtx,CTX,5,get_int_prim); + break; + + case RT_UNSIGNED : + ASN1R_TAG_ADD (aCtx,CTX,6,get_uint_prim); + break; + +#ifdef FLOAT_DATA_SUPPORT + case RT_FLOATING_POINT : + ASN1R_TAG_ADD (aCtx,CTX,7,get_float_prim); + break; +#endif + + case RT_OCTET_STRING : + ASN1R_TAG_ADD (aCtx,CTX,9,get_octstr_prim); + ASN1R_TAG_ADD (aCtx,CTX|CONSTR,9,get_ostr_cstr); + break; + + case RT_VISIBLE_STRING : + ASN1R_TAG_ADD (aCtx,CTX,10,get_vstr_prim); + break; + +#ifdef TIME_DATA_SUPPORT + case RT_GENERAL_TIME : + ASN1R_TAG_ADD (aCtx,CTX,11,get_gtime_prim); + break; +#endif + +#ifdef BTOD_DATA_SUPPORT + case RT_BINARY_TIME : + ASN1R_TAG_ADD (aCtx,CTX,12,get_btime_prim); + break; +#endif + + case RT_BCD : + ASN1R_TAG_ADD (aCtx,CTX,13,get_bcd_prim); + break; + + case RT_UTC_TIME : + ASN1R_TAG_ADD (aCtx,CTX,17,get_utc_time_prim); + break; + + case RT_UTF8_STRING : + ASN1R_TAG_ADD (aCtx,CTX,RT_UTF8_STRING,get_utf8_prim); + break; + + case RT_ARR_END : /* array done */ + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = arr_done_fun; /* the arr cstr must be done*/ + break; + + case RT_STR_END : /* structure done */ + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = str_done_fun; /* the str cstr must be done*/ + break; + + default : /* should not be any other tag */ + /* MLOG_NERR0 ("Bad tag in runtime type"); + asn1r_set_dec_err (aCtx,INTERNAL);*/ + return; + break; + } + } + else /* no more elements to do */ + { + aCtx->asn1r_decode_done = SD_TRUE; /* terminate decode */ + aCtx->asn1r_decode_done_fun = data_asn1_decode_done; /* ok to be done now */ + } + } + +/************************************************************************/ +/* arr_start */ +/* This is the function called when an array cstr is starting */ +/************************************************************************/ + +static ST_VOID arr_start (ASN1_DEC_CTXT *aCtx) + { +DEC_INFO *decInfo = (DEC_INFO *) aCtx->usr_info[0]; /* get saved ptr*/ + MLOG_CDEC0 ("arr_start"); + +/* initialize the loop counter for the array */ + + ++decInfo->arr_loop_level; + decInfo->arr_loops[decInfo->arr_loop_level] = decInfo->rt_ptr->u.arr.num_elmnts; + + decInfo->datptr += decInfo->rt_ptr->el_size; /* Adjust data pointer */ + decInfo->rt_ptr++; /* point to next runtime element */ + assign_tags (aCtx); /* setup to get next element */ + } + + +/************************************************************************/ +/* arr_done_fun */ +/* This is the cstr done function called when an array cstr is done */ +/************************************************************************/ + +static ST_VOID arr_done_fun (ASN1_DEC_CTXT *aCtx) + { +DEC_INFO *decInfo = (DEC_INFO *) aCtx->usr_info[0]; /* get saved ptr*/ + MLOG_CDEC0 ("arr_done_fun"); + + decInfo->datptr += decInfo->rt_ptr->el_size; /* Adjust data pointer */ + decInfo->rt_ptr++; /* point to next runtime element */ + assign_tags (aCtx); /* setup to get next element */ + } + + +/************************************************************************/ +/* str_start */ +/* This is the function called when an struct cstr is starting */ +/************************************************************************/ + +static ST_VOID str_start (ASN1_DEC_CTXT *aCtx) + { +DEC_INFO *decInfo = (DEC_INFO *) aCtx->usr_info[0]; /* get saved ptr*/ + MLOG_CDEC0 ("str_start"); + + decInfo->datptr += decInfo->rt_ptr->el_size; /* Adjust data pointer */ + decInfo->rt_ptr++; /* point to next runtime element */ + assign_tags (aCtx); /* setup to get next element */ + } + +/************************************************************************/ +/* str_done_fun */ +/* This is the cstr done function called when an struct cstr is done */ +/************************************************************************/ + +static ST_VOID str_done_fun (ASN1_DEC_CTXT *aCtx) + { +DEC_INFO *decInfo = (DEC_INFO *) aCtx->usr_info[0]; /* get saved ptr*/ + MLOG_CDEC0 ("str_done_fun"); + + decInfo->datptr += decInfo->rt_ptr->el_size; /* Adjust data pointer */ + decInfo->rt_ptr++; /* point to next runtime element */ + assign_tags (aCtx); /* setup to get next element */ + } + + +/************************************************************************/ +/* get_bstr_cstr */ +/* State function to extract a boolean value from an asn1 data element. */ +/************************************************************************/ + +static ST_VOID get_bstr_cstr (ASN1_DEC_CTXT *aCtx) + { +DEC_INFO *decInfo = (DEC_INFO *) aCtx->usr_info[0]; /* get saved ptr*/ + MLOG_CDEC0 ("get_bstr_cstr"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = bs_cstr_done; + + /* Pass different data pointer for fixed len or variable len bitstring.*/ + if (decInfo->rt_ptr->u.p.el_len >=0) /* fixed length */ + asn1r_get_bitstr_cstr (aCtx,abs (decInfo->rt_ptr->u.p.el_len), (ST_UCHAR *) decInfo->datptr); + else /* variable length */ + asn1r_get_bitstr_cstr (aCtx,abs (decInfo->rt_ptr->u.p.el_len), (ST_UCHAR *) decInfo->datptr + sizeof (ST_INT16)); + } + +/************************************************************************/ +/* bs_cstr_done */ +/* This function is called when an bit string constructor is */ +/* completed OK. Need to reset the decode state machine. */ +/************************************************************************/ + +static ST_VOID bs_cstr_done (ASN1_DEC_CTXT *aCtx) + { +ST_INT abs_len; +ST_INT abs_count; +DEC_INFO *decInfo = (DEC_INFO *) aCtx->usr_info[0]; /* get saved ptr*/ + + abs_count = abs (decInfo->rt_ptr->u.p.el_len); + abs_len = (abs_count+7) / 8; + +/* determine whether octect string is fixed or variable length */ + + if (decInfo->rt_ptr->u.p.el_len >=0) /* fixed length */ + { + if (aCtx->asn1r_bitstr_truncated || aCtx->asn1r_bitcount != abs_count) + { + MLOG_NERR0 ("Fixed length bit string mismatch"); + asn1r_set_dec_err (aCtx,MVE_DATA_CONVERT); + return; + } + } + else /* variable length bit string */ + { + /* Set length. */ + *((ST_INT16 *)decInfo->datptr) = (ST_INT16) aCtx->asn1r_bitcount; + } + + decInfo->datptr += decInfo->rt_ptr->el_size; /* Adjust data pointer */ + decInfo->rt_ptr++; /* point to next runtime element */ + assign_tags (aCtx); /* Assign tags for next data elt*/ + } + + +/************************************************************************/ +/* get_ostr_cstr */ +/* State function to extract an octet string from an asn1 data element. */ +/************************************************************************/ + +static ST_VOID get_ostr_cstr (ASN1_DEC_CTXT *aCtx) + { +DEC_INFO *decInfo = (DEC_INFO *) aCtx->usr_info[0]; /* get saved ptr*/ + MLOG_CDEC0 ("get_ostr_cstr"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = os_cstr_done; + + /* Pass different data pointer for fixed len or variable len octetstring.*/ + if (decInfo->rt_ptr->u.p.el_len >=0) /* fixed length */ + asn1r_get_octstr_cstr (aCtx,abs (decInfo->rt_ptr->u.p.el_len), (ST_UCHAR *) decInfo->datptr); + else /* variable length */ + asn1r_get_octstr_cstr (aCtx,abs (decInfo->rt_ptr->u.p.el_len), (ST_UCHAR *) decInfo->datptr + sizeof (ST_INT16)); + } + +/************************************************************************/ +/* os_cstr_done */ +/* This function is called when an octet string constructor is */ +/* completed OK. Need to reset the decode state machine. */ +/************************************************************************/ + +static ST_VOID os_cstr_done (ASN1_DEC_CTXT *aCtx) + { +ST_INT abs_len; +DEC_INFO *decInfo = (DEC_INFO *) aCtx->usr_info[0]; /* get saved ptr*/ + + abs_len = abs (decInfo->rt_ptr->u.p.el_len); + +/* determine whether octect string is fixed or variable length */ + + if (decInfo->rt_ptr->u.p.el_len >=0) /* fixed length */ + { + if (aCtx->asn1r_octetcount != abs_len) + { + MLOG_NERR0 ("Fixed length octet string mismatch"); + asn1r_set_dec_err (aCtx,MVE_DATA_CONVERT); + return; + } + } + else /* variable length octet string */ + { + /* Set length. */ + *((ST_INT16 *)decInfo->datptr) = (ST_INT16) aCtx->asn1r_octetcount; + } + + decInfo->datptr += decInfo->rt_ptr->el_size; /* Adjust data pointer */ + decInfo->rt_ptr++; /* point to next runtime element */ + assign_tags (aCtx); /* Assign tags for next data elt*/ + } + + +/************************************************************************/ +/* get_bool_prim */ +/* State function to extract a boolean prim from an asn1 data element. */ +/************************************************************************/ + +static ST_VOID get_bool_prim (ASN1_DEC_CTXT *aCtx) + { +DEC_INFO *decInfo = (DEC_INFO *) aCtx->usr_info[0]; /* get saved ptr*/ + MLOG_CDEC0 ("get_bool_prim"); + + if (asn1r_get_bool (aCtx,(ST_UCHAR *)decInfo->datptr)) /* Get the boolean length */ + asn1r_set_dec_err (aCtx,MVE_DATA_CONVERT); /* checked by get function */ + + decInfo->datptr += decInfo->rt_ptr->el_size; /* Adjust data pointer */ + decInfo->rt_ptr++; /* point to next runtime element */ + assign_tags (aCtx); /* continue the parse */ + } + +/************************************************************************/ +/* get_bitstr_prim */ +/* State function to extract an bitstring prim from an asn1 data element*/ +/************************************************************************/ + +static ST_VOID get_bitstr_prim (ASN1_DEC_CTXT *aCtx) + { +ST_INT abs_len; +ST_INT abs_count; +DEC_INFO *decInfo = (DEC_INFO *) aCtx->usr_info[0]; /* get saved ptr*/ + + MLOG_CDEC0 ("get_bitstr_prim"); + + abs_count = abs (decInfo->rt_ptr->u.p.el_len); + abs_len = CALC_BIT_LEN (abs_count); + +/* determine whether bitstring is fixed or variable length */ + if (decInfo->rt_ptr->u.p.el_len >= 0) + { + if (asn1r_get_bitstr (aCtx,(ST_UCHAR *)decInfo->datptr, abs_count)) + { + MLOG_CDEC0 ("Bitstring decode failed"); + asn1r_set_dec_err (aCtx,MVE_DATA_CONVERT); + } + else if (aCtx->asn1r_bitstr_truncated || aCtx->asn1r_bitcount != abs_count) + { + /* For 'fixed length' bitstr, length must match expected length. */ + /* If bitstr truncated, this implies length DID NOT match. */ + MLOG_CDEC0 ("Bitstring length incorrect"); + asn1r_set_dec_err (aCtx,MVE_DATA_CONVERT); + } + } + else /* variable length octet string */ + { + if (asn1r_get_bitstr (aCtx,(ST_UCHAR *)decInfo->datptr + sizeof (ST_INT16), abs_count)) + asn1r_set_dec_err (aCtx,MVE_DATA_CONVERT); + else + { + *((ST_INT16 *)decInfo->datptr) = (ST_INT16) aCtx->asn1r_bitcount; + } + } + + decInfo->datptr += decInfo->rt_ptr->el_size; /* Adjust data pointer */ + decInfo->rt_ptr++; /* point to next runtime element */ + assign_tags (aCtx); + } + +/************************************************************************/ +/* get_int_prim */ +/* State function to extract an integer prim from an asn1 data element. */ +/************************************************************************/ + +static ST_VOID get_int_prim (ASN1_DEC_CTXT *aCtx) + { +DEC_INFO *decInfo = (DEC_INFO *) aCtx->usr_info[0]; /* get saved ptr*/ + MLOG_CDEC0 ("get_int_prim"); + + switch (decInfo->rt_ptr -> u.p.el_len) /* determine length */ + { + case 1 : /* one byte int */ + if (asn1r_get_i8 (aCtx,(ST_INT8 *)decInfo->datptr)) /* write a single byte */ + asn1r_set_dec_err (aCtx,MVE_DATA_CONVERT); + break; + + case 2 : /* two byte int */ + if (asn1r_get_i16 (aCtx,(ST_INT16 *)decInfo->datptr)) /* read 16 bit integer */ + asn1r_set_dec_err (aCtx,MVE_DATA_CONVERT); + break; + + case 4 : /* four byte integer */ + if (asn1r_get_i32 (aCtx,(ST_INT32 *)decInfo->datptr))/* read 4 bytes*/ + asn1r_set_dec_err (aCtx,MVE_DATA_CONVERT); + break; + +#ifdef INT64_SUPPORT + case 8 : /* eight byte integer */ + if (asn1r_get_i64 (aCtx,(ST_INT64 *)decInfo->datptr))/* read 8 bytes*/ + asn1r_set_dec_err (aCtx,MVE_DATA_CONVERT); + break; +#endif + + default : + MLOG_NERR0 ("Invalid integer size in RT"); + asn1r_set_dec_err (aCtx,MVE_DATA_CONVERT); /* no other lengths are valid*/ + return; + } + + decInfo->datptr += decInfo->rt_ptr->el_size; /* Adjust data pointer */ + decInfo->rt_ptr++; /* point to next runtime element */ + assign_tags (aCtx); + } + +/************************************************************************/ +/* get_uint_prim */ +/* State function to extract an unsigned integer prim from an asn1 data */ +/* element. */ +/************************************************************************/ + +static ST_VOID get_uint_prim (ASN1_DEC_CTXT *aCtx) + { +DEC_INFO *decInfo = (DEC_INFO *) aCtx->usr_info[0]; /* get saved ptr*/ + MLOG_CDEC0 ("get_uint_prim"); + + switch (decInfo->rt_ptr -> u.p.el_len) /* determine length */ + { + case 1 : /* one byte int */ + if (asn1r_get_u8 (aCtx,(ST_UCHAR *)decInfo->datptr)) /* write a single byte */ + asn1r_set_dec_err (aCtx,MVE_DATA_CONVERT); + break; + + case 2 : /* two byte int */ + if (asn1r_get_u16 (aCtx,(ST_UINT16 *)decInfo->datptr)) /* read 16 bit integer */ + { + asn1r_set_dec_err (aCtx,MVE_DATA_CONVERT); + } + break; + + case 4 : /* four byte integer */ + if (asn1r_get_u32 (aCtx,(ST_UINT32 *)decInfo->datptr))/* read 4 bytes*/ + asn1r_set_dec_err (aCtx,MVE_DATA_CONVERT); + break; + +#ifdef INT64_SUPPORT + case 8 : /* eight byte integer */ + if (asn1r_get_u64 (aCtx,(ST_UINT64 *)decInfo->datptr))/* read 8 bytes*/ + asn1r_set_dec_err (aCtx,MVE_DATA_CONVERT); + break; +#endif + + default : + MLOG_NERR0 ("Invalid integer size in RT"); + asn1r_set_dec_err (aCtx,MVE_DATA_CONVERT); /* no other lengths are valid*/ + return; + } + decInfo->datptr += decInfo->rt_ptr->el_size; /* Adjust data pointer */ + decInfo->rt_ptr++; /* point to next runtime element */ + assign_tags (aCtx); + } + +/************************************************************************/ +/* get_float_prim */ +/* State function to extract a floating point primitive from an asn1 */ +/* data element. */ +/************************************************************************/ + +#ifdef FLOAT_DATA_SUPPORT + +static ST_VOID get_float_prim (ASN1_DEC_CTXT *aCtx) + { +DEC_INFO *decInfo = (DEC_INFO *) aCtx->usr_info[0]; /* get saved ptr*/ + MLOG_CDEC0 ("get_float_prim"); + + if (decInfo->rt_ptr -> u.p.el_len == 8) + { + if (asn1r_get_double (aCtx,(ST_DOUBLE *)decInfo->datptr)) + asn1r_set_dec_err (aCtx,MVE_DATA_CONVERT); + } + else if (decInfo->rt_ptr -> u.p.el_len == 4) + { + if (asn1r_get_float (aCtx,(ST_FLOAT *)decInfo->datptr)) + asn1r_set_dec_err (aCtx,MVE_DATA_CONVERT); + } + else + { + MLOG_NERR0 ("Bad float size in RT"); + asn1r_set_dec_err (aCtx,MVE_DATA_CONVERT); + return; + } + + decInfo->datptr += decInfo->rt_ptr->el_size; /* Adjust data pointer */ + decInfo->rt_ptr++; /* point to next runtime element */ + assign_tags (aCtx); + } + +#endif + +/************************************************************************/ +/* get_octstr_prim */ +/* State function to extract an octet string primitive from an asn1 */ +/* data element. */ +/************************************************************************/ + +static ST_VOID get_octstr_prim (ASN1_DEC_CTXT *aCtx) + { +ST_INT abs_len; +ST_INT var_len; /* variable length octetstring decoded length */ +DEC_INFO *decInfo = (DEC_INFO *) aCtx->usr_info[0]; /* get saved ptr*/ + + MLOG_CDEC0 ("get_octstr_prim"); + + abs_len = abs (decInfo->rt_ptr->u.p.el_len); + + if (decInfo->rt_ptr->u.p.el_len >= 0) /* fixed length */ + { + if (asn1r_get_octstr_fixlen (aCtx,(ST_UCHAR *) decInfo->datptr, abs_len)) + { + MLOG_NERR0 ("Fixed length octet string decode error"); + asn1r_set_dec_err (aCtx,MVE_DATA_CONVERT); + return; + } + } + else /* variable length */ + { + if (asn1r_get_octstr_varlen (aCtx,(ST_UCHAR *) decInfo->datptr + sizeof (ST_INT16), abs_len, &var_len)) + { + MLOG_NERR0 ("Variable length octet string decode error"); + asn1r_set_dec_err (aCtx,MVE_DATA_CONVERT); + return; + } + else + { + *((ST_INT16 *)decInfo->datptr) = (ST_INT16) var_len; + } + } + + decInfo->datptr += decInfo->rt_ptr->el_size; /* Adjust data pointer */ + decInfo->rt_ptr++; /* point to next runtime element */ + assign_tags (aCtx); + } + +/************************************************************************/ +/* get_vstr_prim */ +/* State function to extract a visible string primitive from an asn1 */ +/* data element. */ +/************************************************************************/ + +static ST_VOID get_vstr_prim (ASN1_DEC_CTXT *aCtx) + { +DEC_INFO *decInfo = (DEC_INFO *) aCtx->usr_info[0]; /* get saved ptr*/ + MLOG_CDEC0 ("get_vstr_prim"); + +/* When the u.p.el_len is positive the v-string is of fixed length */ +/* meaning that the aCtx->asn1r_elmnt_len has to be equal. It is ok for the */ +/* u.p.el_len to be negative. When this is encountered it means that */ +/* the v_string is of variable length, the aCtx->asn1r_elmnt_len has to be <= */ +/* u.p.el_len to be valid. */ + + if (((decInfo->rt_ptr -> u.p.el_len > 0) && + (aCtx->asn1r_elmnt_len != decInfo->rt_ptr->u.p.el_len)) || + (aCtx->asn1r_elmnt_len > abs (decInfo->rt_ptr -> u.p.el_len)) || + (asn1r_get_vstr (aCtx,decInfo->datptr))) + { + MLOG_NERR0 ("Vstring size or content problem"); + asn1r_set_dec_err (aCtx,MVE_DATA_CONVERT); + return; + } + /* v-strings are null term'd */ + decInfo->datptr += decInfo->rt_ptr->el_size; /* Adjust data pointer */ + decInfo->rt_ptr++; /* point to next runtime element */ + assign_tags (aCtx); + } + +/************************************************************************/ +/* get_utf8_prim */ +/* State function to extract a Unicode UTF8string primitive from an */ +/* ASN.1 data element. */ +/************************************************************************/ + +static ST_VOID get_utf8_prim (ASN1_DEC_CTXT *aCtx) + { +DEC_INFO *decInfo = (DEC_INFO *) aCtx->usr_info[0]; /* get saved ptr*/ + MLOG_CDEC0 ("get_utf8_prim"); + +/* If "el_len" is positive, the string is "fixed length" and this is the + * number of characters. + * If "el_len" is negative, the string is "variable length" and + * "abs(el_len)" is the "maximum" number of characters. + * Pass "el_len" to the ASN.1 function and it will take care of all len chks. + */ + + if (asn1r_get_utf8 (aCtx,decInfo->datptr,decInfo->rt_ptr->u.p.el_len)) + { + MLOG_NERR0 ("Unicode UTF8(V)string decode error"); + asn1r_set_dec_err (aCtx,MVE_DATA_CONVERT); + return; + } + decInfo->datptr += decInfo->rt_ptr->el_size; /* Adjust data pointer */ + decInfo->rt_ptr++; /* point to next runtime element */ + assign_tags (aCtx); + } + +/************************************************************************/ +/* get_gtime_prim */ +/* State function to extract a generalized time primitive from an asn1 */ +/* data element. */ +/************************************************************************/ + +#ifdef TIME_DATA_SUPPORT + +static ST_VOID get_gtime_prim (ASN1_DEC_CTXT *aCtx) + { +DEC_INFO *decInfo = (DEC_INFO *) aCtx->usr_info[0]; /* get saved ptr*/ + MLOG_CDEC0 ("get_gtime_prim"); + + if (asn1r_get_time (aCtx,(time_t *)decInfo->datptr)) + asn1r_set_dec_err (aCtx,MVE_DATA_CONVERT); + decInfo->datptr += decInfo->rt_ptr->el_size; /* Adjust data pointer */ + decInfo->rt_ptr++; /* point to next runtime element */ + assign_tags (aCtx); + } + +#endif + +/************************************************************************/ +/* get_btime_prim */ +/* State function to extract a binary time primitive from an asn1 data */ +/* element. */ +/************************************************************************/ + +#ifdef BTOD_DATA_SUPPORT + +static ST_VOID get_btime_prim (ASN1_DEC_CTXT *aCtx) + { +MMS_BTOD btod_data; +ST_INT32 *i32_ptr; +DEC_INFO *decInfo = (DEC_INFO *) aCtx->usr_info[0]; /* get saved ptr*/ + + MLOG_CDEC0 ("get_btime_prim"); + + if (asn1r_get_btod (aCtx,&btod_data)) + asn1r_set_dec_err (aCtx,MVE_DATA_CONVERT); + else if (btod_data.form != decInfo->rt_ptr->u.p.el_len) + { + MLOG_NERR0 ("BTOD form mismatch"); + asn1r_set_dec_err (aCtx,MVE_DATA_CONVERT); + return; + } + else + { + i32_ptr = (ST_INT32 *) decInfo->datptr; + *i32_ptr = btod_data.ms; + if (btod_data.form == MMS_BTOD6) + { + ++i32_ptr; + *i32_ptr = btod_data.day; + } + decInfo->datptr += decInfo->rt_ptr->el_size; /* Adjust data pointer */ + decInfo->rt_ptr++; /* point to next runtime element */ + assign_tags (aCtx); + } + } + +#endif + +/************************************************************************/ +/* get_bcd_prim */ +/* State function to extract a binary coded decimal primitive from an */ +/* asn1 data element. */ +/************************************************************************/ + +static ST_VOID get_bcd_prim (ASN1_DEC_CTXT *aCtx) + { +ST_INT32 range; +ST_INT8 btemp; +ST_INT16 stemp; +ST_INT32 ltemp; +ST_INT i; +DEC_INFO *decInfo = (DEC_INFO *) aCtx->usr_info[0]; /* get saved ptr*/ + + range = 0; + + MLOG_CDEC0 ("get_bcd_prim"); + +/* we have to calculate the legal range of digits this bcd type will */ +/* fit in. */ + + for (i = 0; i < decInfo->rt_ptr->u.p.el_len; i++) + range = (range * 10) + 9; + + if (decInfo->rt_ptr -> u.p.el_len <= 2) /* determine length */ + { + if (asn1r_get_i8 (aCtx,&btemp)) /* get a two nibble value */ + asn1r_set_dec_err (aCtx,MVE_DATA_CONVERT); + if ((btemp > (ST_CHAR)range) || /* is it in range */ + (btemp < 0)) + { + MLOG_NERR0 ("BCD value out of range"); + asn1r_set_dec_err (aCtx,MVE_DATA_CONVERT); + return; + } + else + memcpy (decInfo->datptr, &btemp, sizeof (ST_CHAR)); /* copy good data*/ + } + else if (decInfo->rt_ptr -> u.p.el_len <= 4) + { + if (asn1r_get_i16 (aCtx,&stemp)) /* read 4 nibble BCD */ + asn1r_set_dec_err (aCtx,MVE_DATA_CONVERT); + if ((stemp > (ST_INT16) range) || (stemp < 0)) + { + MLOG_NERR0 ("BCD value out of range"); + asn1r_set_dec_err (aCtx,MVE_DATA_CONVERT); + return; + } + else + memcpy (decInfo->datptr, &stemp, sizeof (ST_INT16)); /* copy good data */ + } + else if (decInfo->rt_ptr -> u.p.el_len <= 8) + { + if (asn1r_get_i32 (aCtx,<emp)) /* read 4 bytes */ + asn1r_set_dec_err (aCtx,MVE_DATA_CONVERT); + if ((ltemp > range) || (ltemp < 0)) + { + MLOG_NERR0 ("BCD value out of range"); + asn1r_set_dec_err (aCtx,MVE_DATA_CONVERT); + return; + } + else + memcpy (decInfo->datptr, <emp, sizeof (ST_INT32)); /* copy good data*/ + } + else + asn1r_set_dec_err (aCtx,MVE_DATA_CONVERT); /* no other lengths are valid*/ + + decInfo->datptr += decInfo->rt_ptr->el_size; /* Adjust data pointer */ + decInfo->rt_ptr++; /* point to next runtime element */ + assign_tags (aCtx); + } + +/************************************************************************/ +/* get_utc_time_prim */ +/* State function to extract a UTC time primitive from an asn1 data */ +/* element. */ +/************************************************************************/ + +static ST_VOID get_utc_time_prim (ASN1_DEC_CTXT *aCtx) + { +MMS_UTC_TIME utc_time; +DEC_INFO *decInfo = (DEC_INFO *) aCtx->usr_info[0]; /* get saved ptr*/ + + MLOG_CDEC0 ("get_utc_time_prim"); + + if (asn1r_get_utc_time (aCtx, &utc_time)) + asn1r_set_dec_err (aCtx,MVE_DATA_CONVERT); + else + /* just copy the whole struct */ + memcpy (decInfo->datptr, (ST_CHAR *)&utc_time, sizeof (MMS_UTC_TIME)); + + decInfo->datptr += decInfo->rt_ptr->el_size; /* Adjust data pointer */ + decInfo->rt_ptr++; /* point to next runtime element */ + assign_tags (aCtx); + } + +/************************************************************************/ +/* data_asn1_decode_done */ +/* Function called when the end of the ASN.1 'Data' entity is */ +/* detected. Checks this against the runtime type table. */ +/************************************************************************/ + +static ST_VOID data_asn1_decode_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("data_asn1_decode_done"); + } + +/************************************************************************/ +/* data_dec_err */ +/* Function called when an invalid tag is encountered in the ASN.1 */ +/* 'Data' entity. Stops the parse with a fatal error. */ +/************************************************************************/ + +static ST_VOID data_dec_err (ASN1_DEC_CTXT *aCtx, ST_RET err) + { + MLOG_CDEC1 ("data_dec_err %d", err); + /* NOTE: error already set. DO NOT call asn1r_set_dec_err. */ + /* DO NOT set (aCtx->asn1r_pdu_dec_err). */ + } + +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ +/* Block data to ASN.1 data section */ +/* Assumes that the ASN.1 tools have been initialized. */ +/************************************************************************/ +/************************************************************************/ +/* ms_locl_to_asn1 */ +/* Construct a 'data' element (ASN.1) from blocked data. */ +/* The user passes a pointer to the blocked data and the type def, */ +/* and the number of elements in the type definition table. */ +/* */ +/* Assume the build tools have been initialized, use ASN.1 build tools */ +/************************************************************************/ + +#ifndef MMS_LITE + +ST_RET ms_locl_to_asn1 (ASN1_ENC_CTXT *aCtx, NAMED_TYPE *tptr, ST_CHAR *dptr) + { + if (!tptr->rt_num) /* if len == 0 */ + { + MLOG_NERR0 ("Named type has no runtime elements"); + return (MVE_RT_TYPE); /* 0 length typedef is error */ + } + + return (ms_local_to_asn1 (aCtx, tptr->rt_head,tptr->rt_num, dptr)); + } + +#endif + +/************************************************************************/ +/* ms_local_to_asn1 */ +/* This function is most convenient when data is encoded in the */ +/* middle of a larger encode. */ +/* If data is encoded by itself, ms_local_to_asn1_2 is more */ +/* efficient and much easier to use. */ +/************************************************************************/ +//extern int flag_jou_asn1_endian;//lnk编译删除，原å‰ç½®ç¨‹åºæœªä½¿ç”¨ + +//void jou_endian_2(char *pval);//lnk编译删除，原å‰ç½®ç¨‹åºæœªä½¿ç”¨ +//void jou_endian_4(char *pval);//lnk编译删除，原å‰ç½®ç¨‹åºæœªä½¿ç”¨ + +ST_RET ms_local_to_asn1 (ASN1_ENC_CTXT *aCtx, + SD_CONST RUNTIME_TYPE *rt_head, + ST_INT rt_num, + ST_CHAR *dptr) + { +ST_INT done; +ST_RET ret_val; +ST_INT arr_loop_buf[ASN1_MAX_LEVEL]; +ST_CHAR *datptr; +SD_CONST RUNTIME_TYPE *rt_ptr; +SD_CONST RUNTIME_TYPE *rt_end; +ST_INT arr_loop_level; +ST_INT *arr_loops; + +/* Make sure that "asn1r_strt_asn1_bld" was called for this context. */ + if (aCtx->asn1r_magic != ASN1_ENC_MAGIC_NUMBER) + { + MLOG_ERR0 ("ASN1_ENC_CTXT not initialized. MUST call 'asn1r_strt_asn1_bld' first."); + return (MVE_ASN1_ENCODE_ERR); + } + + arr_loop_level = 0; + arr_loops = arr_loop_buf; + + rt_ptr = rt_head + rt_num -1; /* point to bottom rt element */ + rt_end = rt_head; /* head is end */ + +/* Set working data pointer to point below last data element */ + datptr = dptr + rt_head->offset_to_last; + + done = SD_FALSE; + ret_val = SD_SUCCESS; + while (!done && !ret_val && !aCtx->asn1r_encode_overrun) /* while not done*/ + { + if (ms_is_rt_prim (rt_ptr)) /* is this a primitive element? */ + { + datptr -= rt_ptr->el_size; /* Point to data for this element */ + + + //if(flag_jou_asn1_endian) + if(0)//lnk编译修改，原å‰ç½®ç¨‹åºæœªä½¿ç”¨ + { + if(rt_ptr->el_tag==RT_BIT_STRING) + { + jou_endian_2((char *)&datptr[0]); + jou_endian_2((char *)&datptr[2]); + } + if(rt_ptr->el_tag==RT_FLOATING_POINT) + { + jou_endian_4((char *)datptr); + } + if(rt_ptr->el_tag==RT_INTEGER) + { + if(rt_ptr -> u.p.el_len==2) jou_endian_2((char *)&datptr[0]); + if(rt_ptr -> u.p.el_len==4) jou_endian_4((char *)&datptr[0]); + } + if(rt_ptr->el_tag==RT_UTC_TIME) + { + jou_endian_4((char *)&datptr[0]); + jou_endian_4((char *)&datptr[4]); + } + } + ret_val = wr_prim_dat (aCtx, datptr, rt_ptr); /* Write the primitive data*/ + } + else /* not a primitive element */ + { + switch (rt_ptr->el_tag) + { + case RT_ARR_END : /* array end, start constructor */ + /* initialize loop count */ + ++arr_loop_level; + arr_loops[arr_loop_level] = rt_ptr->u.arr.num_elmnts; + asn1r_strt_constr (aCtx); + datptr -= rt_ptr->el_size; /* Point to data element above */ + break; + + case RT_ARR_START : /* array start */ + /* if more loops, move ptr back */ + if (--arr_loops[arr_loop_level] > 0) /* if need to do next ar elmnt */ + { + rt_ptr += rt_ptr->u.arr.num_rt_blks; + continue; /* Back to loop bottom */ + } + else + { + --arr_loop_level; + asn1r_fin_constr (aCtx,1,CTX,DEF); /* array done, fin the cstr*/ + datptr -= rt_ptr->el_size; + } + break; + + case RT_STR_END : /* array end, start constructor */ + asn1r_strt_constr (aCtx); + datptr -= rt_ptr->el_size; + break; + + case RT_STR_START : + asn1r_fin_constr (aCtx,2,CTX,DEF); /* struct done, fin the cstr*/ + datptr -= rt_ptr->el_size; + break; + + default : /* unknown typedef tag */ + MLOG_NERR0 ("Unknown RT type tag"); + ret_val = MVE_RT_TYPE; + } + } /* end if not primitive element */ + +/* All tags (EXCEPT array start when loopback) come here. */ + +/* Move the rt_ptr to the next element, check for done */ + if (rt_ptr == rt_end) /* If this was last element */ + done = SD_TRUE; + else + --rt_ptr; /* move pointer to next */ + } + + + if (ret_val == SD_SUCCESS) + { + if (aCtx->asn1r_encode_overrun) /* Check for encode overrun */ + ret_val = ME_ASN1_ENCODE_OVERRUN; + } + + /* If conversion failed, log the type used for the conversion. */ + if (ret_val) + { + MLOG_NERR1 ("Local to ASN.1 data conversion error = 0x%X", ret_val); + _log_data_type (rt_head, rt_num); + } + + return (ret_val); + } + +/************************************************************************/ +/* wr_prim_dat */ +/* Write a primitive data element from the user data to the message */ +/* under construction. */ +/************************************************************************/ + +static ST_RET wr_prim_dat (ASN1_ENC_CTXT *aCtx, ST_CHAR *datptr, SD_CONST RUNTIME_TYPE *rt_ptr) + { +ST_RET ret_val; +ST_INT16 len; +MMS_BTOD btod_data; +ST_INT32 *i32_ptr; + + ret_val = SD_SUCCESS; + +/* use the runtime type def table element and type to select storage */ + + switch (rt_ptr->el_tag) + { + case RT_BOOL : /* boolean */ + asn1r_wr_bool (aCtx,*((ST_UCHAR *)datptr)); /* write a single byte*/ + break; + + case RT_BIT_STRING : +#if defined(_S_TEST_PROBES) + if (_sTestProbeEnabledS("MmsConstructedBitstrings")) + { + ret_val = _wr_constructed_bitstring (aCtx, datptr, rt_ptr); + goto _CONSTRUCTED_BSOS_WRITTEN; + } +#endif + + if (rt_ptr->u.p.el_len >= 0) + asn1r_wr_bitstr (aCtx,(ST_UCHAR *)datptr,rt_ptr->u.p.el_len); /* bits */ + else + { /* variable length bitstring */ + len = *((ST_INT16 *)datptr); + if (len < 0 || len > abs(rt_ptr->u.p.el_len)) + { + MLOG_NERR1 ("Invalid variable length bitstring length: %d", + (ST_INT) len); + ret_val = MVE_RT_TYPE; + } + else + asn1r_wr_bitstr (aCtx,(ST_UCHAR *) (datptr + sizeof(ST_INT16)), len); + } + break; + + case RT_INTEGER : + switch (rt_ptr -> u.p.el_len) /* determine length */ + { + case 1 : /* one byte int */ + asn1r_wr_i8 (aCtx,*datptr); /* write a single byte */ + break; + + case 2 : /* two byte int */ + asn1r_wr_i16 (aCtx,*((ST_INT16 *)datptr)); + break; + + case 4 : /* four byte integer */ + asn1r_wr_i32 (aCtx,*((ST_INT32 *) datptr)); + break; + +#ifdef INT64_SUPPORT + case 8 : /* eight byte integer */ + asn1r_wr_i64 (aCtx,*((ST_INT64 *) datptr)); + break; +#endif + + default : + MLOG_NERR0 ("Invalid integer length"); + ret_val = MVE_RT_TYPE; + } + break; + + case RT_UNSIGNED : + switch (rt_ptr -> u.p.el_len) /* determine length */ + { + case 1 : /* one byte unsigned int */ + asn1r_wr_u8 (aCtx,*((ST_UCHAR *)datptr)); + break; + + case 2 : /* two byte unsigned int */ + asn1r_wr_u16 (aCtx,*((ST_UINT16 *) datptr)); + break; + + case 4 : /* four byte unsigned integer */ + asn1r_wr_u32 (aCtx,*((ST_UINT32 *) datptr)); + break; + +#ifdef INT64_SUPPORT + case 8 : /* eight byte unsigned integer */ + asn1r_wr_u64 (aCtx,*((ST_UINT64 *) datptr)); + break; +#endif + + default : + MLOG_NERR0 ("Invalid integer length"); + ret_val = MVE_RT_TYPE; + } + break; + +#ifdef FLOAT_DATA_SUPPORT + case RT_FLOATING_POINT : + if (rt_ptr -> u.p.el_len != sizeof (ST_FLOAT)) + asn1r_wr_double (aCtx,*((ST_DOUBLE *)datptr)); + else + asn1r_wr_float (aCtx,*((ST_FLOAT *)datptr)); + break; +#endif + + case RT_OCTET_STRING : +#if defined(_S_TEST_PROBES) + if (_sTestProbeEnabledS("MmsConstructedOctetstrings")) + { + ret_val = _wr_constructed_octetstring (aCtx, datptr, rt_ptr); + goto _CONSTRUCTED_BSOS_WRITTEN; + } +#endif + + if (rt_ptr->u.p.el_len >= 0) + asn1r_wr_octstr (aCtx,(ST_UCHAR *)datptr, rt_ptr->u.p.el_len); + else + { /* variable length octetstring */ + len = *((ST_INT16 *)datptr); + if (len < 0 || len > abs(rt_ptr->u.p.el_len)) + { + MLOG_NERR1 ("Invalid variable length octetstring length: %d", + (ST_INT) len); + ret_val = MVE_RT_TYPE; + } + else + asn1r_wr_octstr (aCtx,(ST_UCHAR *) (datptr + sizeof(ST_INT16)), len); + } + break; + + case RT_VISIBLE_STRING : + if (((rt_ptr -> u.p.el_len > 0) && + (strlen (datptr) != (ST_UINT) rt_ptr->u.p.el_len)) || + (strlen (datptr) > (ST_UINT) abs (rt_ptr->u.p.el_len))) + { + MLOG_ENC0 ("Data is illegal for VISIBLE_STRING type."); + ret_val = MVE_ASN1_ENCODE_ERR; /* say data is illegal for type */ + } + else + asn1r_wr_vstr (aCtx,datptr); + break; + +#ifdef TIME_DATA_SUPPORT + case RT_GENERAL_TIME : + asn1r_wr_time (aCtx,*((time_t *)datptr)); + break; +#endif + +#ifdef BTOD_DATA_SUPPORT + case RT_BINARY_TIME : + i32_ptr = (ST_INT32 *) datptr; + btod_data.ms = *i32_ptr; + if (rt_ptr->u.p.el_len == 6) + { + btod_data.form = MMS_BTOD6; + ++i32_ptr; + btod_data.day = *i32_ptr; + } + else + btod_data.form = MMS_BTOD4; + + asn1r_wr_btod (aCtx,&btod_data); + break; +#endif + +/* The u.p.el_len for BCD indicates the number of digits in the value. */ +/* Digits are represented as [0..9] requiring one nibble of storage */ +/* each. Because all BCD values are sent over the wire as integers and */ +/* the C programming language has no native BCD type, BCD values are */ +/* handled by MMS-EASE as integers. */ + + case RT_BCD: + if (rt_ptr->u.p.el_len <= 2) + asn1r_wr_i8 (aCtx,*datptr); /* write a single byte */ + else if (rt_ptr->u.p.el_len <= 4) + asn1r_wr_i16 (aCtx,*((ST_INT16 *)datptr)); + else + asn1r_wr_i32 (aCtx,*((ST_INT32 *) datptr)); + break; + + case RT_UTC_TIME : + { + MMS_UTC_TIME *utc_time = (MMS_UTC_TIME *) datptr; + asn1r_wr_utc_time (aCtx,utc_time); + } + break; + + case RT_UTF8_STRING : + /* asn1r_wr_utf8 returns SD_SUCCESS or error code, so chk return */ + if (asn1r_wr_utf8 (aCtx,datptr,rt_ptr->u.p.el_len)) + { + MLOG_NERR1 ("Data or len is illegal for UTF8(V)string%d.", + abs(rt_ptr->u.p.el_len)); + ret_val = MVE_ASN1_ENCODE_ERR; /* say data is illegal for type */ + } + break; + + default : + MLOG_NERR0 ("Bad RT tag"); + ret_val = MVE_RT_TYPE; + } + + asn1r_fin_prim (aCtx,rt_ptr->el_tag,CTX); /* finish the primitive */ + +#if defined(_S_TEST_PROBES) +_CONSTRUCTED_BSOS_WRITTEN: +#endif + + if (ret_val) + { + ST_CHAR tmp_tdl [MAX_IDENT_LEN+1]; + MLOG_ERR0 ("Local data could not be converted to ASN.1"); + if (ms_runtime_to_tdl (rt_ptr, 1, tmp_tdl, MAX_IDENT_LEN) > 0) + MLOG_CERR1 ("Data type TDL=%s", tmp_tdl); + else + MLOG_CERR1 ("Data type tag=%d", rt_ptr->el_tag); + MLOG_CERR0 ("Local Data:"); + MLOG_ERRH (rt_ptr->el_size, datptr); + } + return (ret_val); + } + +/************************************************************************/ +/************************************************************************/ + +#if defined(_S_TEST_PROBES) + +static ST_RET _wr_constructed_bitstring (ASN1_ENC_CTXT *aCtx, ST_CHAR *datptr, + SD_CONST RUNTIME_TYPE *rt_ptr) + { +ST_INT16 len; +ST_INT16 el_len; +ST_INT j; +ST_INT extra_bits; +ST_INT numbytes; +ST_UCHAR *bitstr_data; +static ST_BOOLEAN firstTime = SD_TRUE; + + if (firstTime) + { + SLOGALWAYS0 ("TEST: Using constructed bitstrings"); + firstTime = SD_FALSE; + } + + + el_len = rt_ptr->u.p.el_len; + if (el_len > 8 || (el_len < 0 && *(ST_INT16*)datptr > 8)) + { /* bitstring longer than 8 bits */ + if (el_len < 0) + { + bitstr_data = datptr + 2; /* point after ST_INT16 len */ + len = *(ST_INT16 *)datptr; + } + else + { + bitstr_data = datptr; + len = el_len; + } + extra_bits = len % 8; + numbytes = len / 8; + + asn1r_strt_constr (aCtx); + asn1r_strt_constr (aCtx); /* nested constr. Should be ignored.*/ +#if 0 /* DEBUG: enable this to send 1 garbage bit after last real segment.*/ + /* Should cause truncation for "variable length" bitstr */ + /* (error for "fixed length" bitstr). */ + asn1r_wr_bitstr (aCtx, bitstr_data, 1); /* write 1 bit bitstr*/ + asn1r_fin_prim (aCtx,BITS_CODE,UNI); +#endif + /* encoding backward, so loop backward through bits.*/ + if (extra_bits) + { + asn1r_wr_bitstr (aCtx, bitstr_data+numbytes, extra_bits); + /* NOTE: Tag is UNI class.*/ + asn1r_fin_prim (aCtx,BITS_CODE,UNI); + } + for (j = numbytes-1; j >= 0; j--) + { + asn1r_wr_bitstr (aCtx, bitstr_data+j, 8); /* write 8 bit bitstr*/ + asn1r_fin_prim (aCtx,BITS_CODE,UNI); /* finish the primitive */ + } +#if 0 /* DEBUG: enable this to send 1 garbage bit before first real segment.*/ + /* Should cause decode error. First segment must be multiple of 8 bits*/ + asn1r_wr_bitstr (aCtx, &onebit, 1); /* write 1 bit bitstr*/ + asn1r_fin_prim (aCtx,BITS_CODE,UNI); +#endif + asn1r_fin_constr (aCtx, BITS_CODE, UNI,DEF); /* nested constr. Should be ignored.*/ + asn1r_fin_constr (aCtx, RT_BIT_STRING, CTX,DEF); /* finish the constructor*/ + } + else + { + asn1r_wr_bitstr (aCtx,(ST_UCHAR *)datptr,rt_ptr->u.p.el_len); /* bits */ + asn1r_fin_prim (aCtx, RT_BIT_STRING, CTX); /* finish the primitive */ + } + return (SD_SUCCESS); + } + +/************************************************************************/ + +static ST_RET _wr_constructed_octetstring (ASN1_ENC_CTXT *aCtx, ST_CHAR *datptr, + SD_CONST RUNTIME_TYPE *rt_ptr) + { +ST_INT16 len; +ST_INT j; +static ST_BOOLEAN firstTime = SD_TRUE; + + if (firstTime) + { + SLOGALWAYS0 ("TEST: Using constructed octetstrings"); + firstTime = SD_FALSE; + } + + len = rt_ptr->u.p.el_len; + if (len < 0) + { + len = *(ST_INT16 *)datptr; + datptr += 2; /* point after ST_INT16 len */ + } + + asn1r_strt_constr (aCtx); + asn1r_strt_constr (aCtx); /* nested constr. Should be ignored.*/ + /* encoding backward, so loop backward through bytes.*/ + for (j = len-1; j >= 0; j--) + { + asn1r_wr_octstr (aCtx, &datptr[j], 1); /* write 1 byte*/ + /* NOTE: all prim octstr inside constructed octstr, must be UNI.*/ + asn1r_fin_prim (aCtx,OCT_CODE,UNI); /* finish the primitive */ + } + asn1r_fin_constr (aCtx,OCT_CODE, UNI,DEF); /* nested constr. Should be ignored.*/ + asn1r_fin_constr (aCtx,RT_OCTET_STRING,CTX,DEF); /* finish the constructor*/ + return (SD_SUCCESS); + } + +#endif + +/************************************************************************/ +/* ms_local_to_asn1_easy */ +/* If a data encode is NOT part of a bigger encode, */ +/* this function is more efficient and easier to use. */ +/* NOTE: ms_local_to_asn1_2 is almost the same but its arguments are */ +/* more consistent with other encoding functions. */ +/************************************************************************/ +ST_UCHAR *ms_local_to_asn1_easy (SD_CONST RUNTIME_TYPE *rt_head, ST_INT rt_num, + ST_CHAR *dptr, + ST_UCHAR *asn1Buf, + ST_INT asn1BufLen, + ST_INT *asn1LenOut) + { +ST_RET ret_val; +ASN1_ENC_CTXT aCtx; +ST_UCHAR *asn1Start = NULL; /* ptr to start of ASN1 encoded data */ + /* init to NULL (i.e. failure) */ + + asn1r_strt_asn1_bld (&aCtx, asn1Buf, asn1BufLen); + + /* encode everything using new context. */ + ret_val = ms_local_to_asn1 (&aCtx, rt_head, rt_num, dptr); + + /* When the ASN.1 encode is complete, 'asn1_field_ptr' points 1 byte */ + /* ahead of the start of the message. The ASN.1 message is built from */ + /* back to front, so the length = (ptr to end) - (ptr to start) */ + if (ret_val == SD_SUCCESS) + { + asn1Start = aCtx.asn1r_field_ptr+1; + *asn1LenOut = (asn1Buf + asn1BufLen) - asn1Start; + } + return (asn1Start); /* ptr to start (or NULL on error) */ + } + +/************************************************************************/ +/* ms_local_to_asn1_2 */ +/* If a data encode is NOT part of a bigger encode, */ +/* this function is easier to use. */ +/************************************************************************/ +ST_RET ms_local_to_asn1_2 (SD_CONST RUNTIME_TYPE *rt_head, ST_INT rt_num, + ST_CHAR *dptr, /* local data to encode */ + ST_UCHAR *buf_ptr, /* buffer in which to encode */ + ST_INT buf_len, /* buffer length */ + ST_UCHAR **asn1_ptr_out, /* ptr to ptr to encoded data */ + ST_INT *asn1_len_out) /* ptr to encoded length */ + { +ST_RET ret_val; +ASN1_ENC_CTXT aCtx; + + asn1r_strt_asn1_bld (&aCtx, buf_ptr, buf_len); + + /* encode everything using new context. */ + ret_val = ms_local_to_asn1 (&aCtx, rt_head, rt_num, dptr); + + if (ret_val == SD_SUCCESS) + { + /* Set output parameters (ptr & len). */ + *asn1_ptr_out = ASN1_ENC_PTR(&aCtx); + *asn1_len_out = ASN1_ENC_LEN(&aCtx); + } + return (ret_val); + } + +/************************************************************************/ +/* _log_data_type */ +/* Log the data type (as TDL so average user can read it). */ +/************************************************************************/ +static ST_VOID _log_data_type (SD_CONST RUNTIME_TYPE *rt_head, ST_INT rt_num) + { +/*ST_CHAR tdl_buf [500];*/ +ST_CHAR tdl_buf [500]; +ST_INT tdl_len; + + tdl_len = sizeof (tdl_buf); /* init to max allowed tdl len */ + tdl_len = ms_runtime_to_tdl (rt_head, rt_num, tdl_buf, tdl_len); + + if (tdl_len != 0) /* conversion to tdl succeeded */ + { + MLOG_CALWAYS1 ("Local Data Type TDL: %s", tdl_buf); /* should be CERR1?*/ + } + else + { /* conversion failed. Just log what we can. */ + MLOG_CALWAYS2 ("Local Runtime Type Array ptr = " S_FMT_PTR ", Num Entries = %d", + rt_head, rt_num); + } + } + diff --git a/mmslib/mmsl/mmsdatat.c b/mmslib/mmsl/mmsdatat.c new file mode 100644 index 0000000..a2ebf26 --- /dev/null +++ b/mmslib/mmsl/mmsdatat.c @@ -0,0 +1,1231 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1997 - 2006, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : mmsdatat.c */ +/* PRODUCT(S) : none */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the functions employed by the virtual */ +/* machine for parsing an ASN.1 data string and creating the */ +/* run-time type specification from it. */ +/* Adapted from mmsdata.c */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/17/08 JRB 19 Del m_use_long_ints flag & assume smallest */ +/* integer is 4 bytes. */ +/* 02/19/07 JRB 18 Add error log message. */ +/* 03/22/06 EJV 17 Changed RT_GENERAL_TIME st_size and el_len to*/ +/* sizeof(time_t) (VS 2005 has 64-bit time_t).*/ +/* 01/30/06 GLB 16 Integrated porting changes for VMS */ +/* 10/27/03 JRB 15 Assume all UTF8strings are variable-length. */ +/* Add code to adjust len for array of UTF8str..*/ +/* 10/16/03 MDE 14 Fixed leak for data conversion error */ +/* 05/08/03 JRB 13 Fix TAG_ADD for "array" of RT_UTF8_STRING. */ +/* 04/02/03 JRB 12 Add UTF8string support (see RT_UTF8_STRING). */ +/* 12/20/01 JRB 11 Converted to use ASN1R (re-entrant ASN1) */ +/* 11/15/01 EJV 10 Added support for new MMS type UtcTime. */ +/* 10/06/00 MDE 09 Now set asn1_decode_method */ +/* 04/20/00 JRB 08 Undo last chg, fix mms_vvar.h instead. Lint. */ +/* 10/13/99 RKR 07 Added SD_CONST to function headers */ +/* 09/13/99 MDE 06 Added SD_CONST modifiers */ +/* 06/03/98 MDE 05 Allow for 0 length variable length items */ +/* 03/12/98 MDE 04 Fixed 'loops' change - whoops! */ +/* 02/10/98 MDE 03 No longer use runtime type 'loops' element */ +/* 08/15/97 MDE 02 BTOD handling changes */ +/* 07/03/97 MDE 01 Fixed problem w/structures */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#include "glbtypes.h" + +#include "sysincs.h" +#include "glbsem.h" + +#include "mmsdefs.h" +#include "mms_pvar.h" +#include "mms_vvar.h" +#include "asn1defs.h" +#include "mem_chk.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ + +static ST_VOID assign_tags (ASN1_DEC_CTXT *aCtx); +static int init_new_RT (ASN1_DEC_CTXT *aCtx, ST_UCHAR tag, ST_INT el_len); +#if 0 /* Constructed bitstrings and octetstrings not supported */ +static ST_VOID get_bstr_cstr (ASN1_DEC_CTXT *aCtx); /* for constructed bitstrings */ +static ST_VOID get_ostr_cstr (ASN1_DEC_CTXT *aCtx); /* for constructed octetstrings */ +static ST_VOID bs_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID os_cstr_done (ASN1_DEC_CTXT *aCtx); +#endif +static ST_VOID get_bool_prim (ASN1_DEC_CTXT *aCtx); /* for boolean primitives */ +static ST_VOID get_bitstr_prim (ASN1_DEC_CTXT *aCtx); /* for bitstring primitives */ +static ST_VOID get_int_prim (ASN1_DEC_CTXT *aCtx); /* for integer primitives */ +static ST_VOID get_uint_prim (ASN1_DEC_CTXT *aCtx); /* for unsigned integers */ +static ST_VOID get_float_prim (ASN1_DEC_CTXT *aCtx); /* for float primitives */ +static ST_VOID get_octstr_prim (ASN1_DEC_CTXT *aCtx); /* for octet string primitives */ +static ST_VOID get_vstr_prim (ASN1_DEC_CTXT *aCtx); /* for visible string primitives*/ +static ST_VOID get_gtime_prim (ASN1_DEC_CTXT *aCtx); /* for generalized time */ +static ST_VOID get_btime_prim (ASN1_DEC_CTXT *aCtx); /* for binary time primitives */ +static ST_VOID get_bcd_prim (ASN1_DEC_CTXT *aCtx); /* for binary coded decimal */ +static ST_VOID get_utc_time_prim (ASN1_DEC_CTXT *aCtx); /* for UTC time primitives */ +static ST_VOID get_utf8_prim (ASN1_DEC_CTXT *aCtx); /* for UTF8string primitives */ +static ST_VOID arr_start (ASN1_DEC_CTXT *aCtx); +static ST_VOID str_start (ASN1_DEC_CTXT *aCtx); +static ST_VOID arr_done_fun (ASN1_DEC_CTXT *aCtx); +static ST_VOID str_done_fun (ASN1_DEC_CTXT *aCtx); +static ST_VOID err_clean_fun (ASN1_DEC_CTXT *aCtx, ST_RET err_code); + + +typedef enum { UNDEF, STRUCT, ARRAY } ConstrType; /* Constructor types */ + + +static RUNTIME_TYPE *rt_base; /* Base ptr for runtime array */ +static RUNTIME_TYPE *cur_rt; /* Current runtime element ptr */ +static RUNTIME_TYPE *nxt_un_rt; /* Next unused RT el in buffer */ +static RUNTIME_TYPE *rt_EOB_ptr; /* One past end of RT buffer. */ +static int local_alloc_flag; + /* Block pointer for arrs & structs */ +static RUNTIME_TYPE *rt_blk_start[ASN1_MAX_LEVEL]; +static ConstrType constr_type[ASN1_MAX_LEVEL]; /* Cstr type */ +static ST_INT arr_loop_level; +static ST_INT *arr_loops; + +/* The following defines specify the various error codes that are used */ +/* in ms_asn1_to_locl and its subordinate functions. These are in ad- */ +/* dition to the error codes that can be generated by ASN1DE internally,*/ +/* and both translate into return values that are one greater than the */ +/* error codes themselves. */ + +#define BAD_DATA 100 /* Data not consistent with */ + /* type specification. */ +#define INTERNAL 101 /* Type specif'n bad, not data. */ + +/************************************************************************/ +/************************************************************************/ + +ST_RET ms_asn1_data_to_locl (ST_UCHAR *asn1_data, + ST_INT asn1_data_len, + ST_VOID **data_dest, + ST_INT *data_dest_len, + RUNTIME_TYPE **rt, + ST_INT *t_len) + { +ST_RET rc; +RUNTIME_TYPE *rt_in; + + /* First, build runtime from data string */ + rt_in = *rt; + rc = ms_asn1_data_to_runtime (rt, t_len, asn1_data, asn1_data_len); + if (rc != SD_SUCCESS) + return (rc); + +/* verify that the supplied data buffer is big enough */ + if (*data_dest && *data_dest_len < (*rt)->offset_to_last) + { + if (!rt_in) /* RT table was chk_calloc'd */ + chk_free (*rt); + + return (MVE_DATA_SPACE); + } + + if (!*data_dest) + { + *data_dest_len = (*rt)->offset_to_last; + + /* Variable length items can have a data length of 0 */ + if (*data_dest_len) + { + *data_dest = chk_calloc (1, (*rt)->offset_to_last); + + /* OK, go ahead and do the data conversion */ + rc = ms_asn1_to_local (*rt, *t_len, asn1_data, asn1_data_len, (ST_CHAR *) *data_dest); + if (rc) + { + chk_free (*data_dest); + if (!rt_in) /* RT table was chk_calloc'd */ + chk_free (*rt); + } + } + else + *data_dest = chk_calloc (1, 1); + } + else /* OK, go ahead and do the data conversion */ + { + + rc = ms_asn1_to_local (*rt, *t_len, asn1_data, asn1_data_len, (ST_CHAR *) *data_dest); + if (rc && !rt_in) /* Error and RT table was chk_calloc'd */ + chk_free (*rt); + } + return (rc); + } + + +/************************************************************************/ +/* ms_asn1_data_to_runtime */ +/* Creates a run-time data defn table from the input ASN.1 data string. */ +/* Input parameters: */ +/* RUNTIME_TYPE **tptr Pointer^2 to runtime buffer. */ +/* ST_INT *t_len Length of runtime buffer, in runtime elements. */ +/* ST_UCHAR *asn1ptr Pointer to input ASN.1 string */ +/* ST_INT asn1len Length of ASN.1 string, in bytes. */ +/* Returns: SD_SUCCESS, SD_FAILURE or INTERNAL. If SD_FAILURE, aCtx->asn1r_pdu_dec_err */ +/* has the specific error code. */ +/* Output globals: aCtx->asn1r_decode_done_fun */ +/* Static variables set: rt_base, rt_EOB_ptr, cur_rt, nxt_un_rt */ +/************************************************************************/ + + +ST_RET ms_asn1_data_to_runtime (RUNTIME_TYPE **tptr, + ST_INT *t_len, + ST_UCHAR *asn1ptr, + ST_INT asn1_len) + { +ST_RET ret; +ST_INT arr_loop_buf[ASN1_MAX_LEVEL]; +ASN1_DEC_CTXT localDecCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_DEC_CTXT *aCtx = &localDecCtx; + + memset (aCtx, 0, sizeof (ASN1_DEC_CTXT)); /* CRITICAL: start clean. */ + + local_alloc_flag = SD_FALSE; + if (tptr == NULL) /* What? Parameter error, fix that. */ + { + return (MVE_RT_TYPE); + } + + S_LOCK_COMMON_RESOURCES (); + arr_loop_level = 0; + arr_loops = arr_loop_buf; + if (*tptr != NULL) + { /* Type buffer already allocated, use it. */ + rt_base = *tptr; /* Init pointer to runtime buffer. */ + if (*t_len <= 0) /* Check size. */ + { + S_UNLOCK_COMMON_RESOURCES (); + return (MVE_RT_TYPE); /* Parameter error. */ + } + else + rt_EOB_ptr = rt_base + *t_len; /* Init end-of-buffer pointer */ + } + else /* Allocate a default-size buffer here. */ + { + rt_base = (RUNTIME_TYPE *) chk_calloc (m_rt_type_limit, sizeof (RUNTIME_TYPE)); + rt_EOB_ptr = rt_base + m_rt_type_limit; + local_alloc_flag = SD_TRUE; + } + + cur_rt = nxt_un_rt = rt_base; + rt_blk_start[0] = rt_base; /* Starting block for level 0 is first block. */ + constr_type[0] = UNDEF; /* Constructed type initializes to UNDEF. */ + /* These variables are used by the tag routines */ + /* to build the runtime type table. */ + + aCtx->asn1r_decode_method = ASN1_TAG_METHOD; + assign_tags (aCtx); /* Assign tags. First type can be anything. */ + + aCtx->asn1r_decode_done_fun = NULL; + aCtx->asn1r_err_fun = err_clean_fun; + + asn1r_decode_asn1 (aCtx, asn1ptr, asn1_len); /* Build the type table. */ + + *tptr = rt_base; /* Local buffer de-allocated on error. */ + if (rt_base != NULL) /* Check for error to prevent doing */ + { /* arithmetic with NULL pointers. */ + *t_len = nxt_un_rt - rt_base; + ms_rt_size_calc (rt_base, *t_len); /* Fix up element offsets in table */ + } + else + *t_len = 0; + + ret = (aCtx->asn1r_pdu_dec_err == NO_DECODE_ERR) ? SD_SUCCESS : MVE_DATA_TO_RT ; + S_UNLOCK_COMMON_RESOURCES (); + return (ret); + } + +/************************************************************************/ +/* assign_tags */ +/* Function to assign tags to the ASN1DE tools based on what's expected */ +/* in the runtime_type definition table. At the beginning of the 'Data'*/ +/* entity, a DataAccessError type is allowed. WARNING: This function */ +/* requires that the current rt_block NOT be an end-of-array or end-of- */ +/* structure rt_block. If so, it will return an error. */ +/************************************************************************/ + +static ST_VOID assign_tags (ASN1_DEC_CTXT *aCtx) + { /* There are two possible cases here: */ + /* 1.) We are parsing through terra incognita and don't know */ + /* what to expect (yet). All possible tags are legal. */ + /* Set up to build type definitions for what we find. */ + /* 2.) We are parsing through the 2nd or later element of an */ + /* array and know what tag we should get next. If the */ + /* array is a sub-array of an enveloping array, we will */ + /* have an element count for it; check that too. Verify */ + /* tags against what we expect to see. */ + + if (cur_rt < nxt_un_rt) /* if this is the 2nd or later element */ + { /* of an array & types are defined, */ + if (cur_rt->el_tag == RT_ARR_END) /* treat case of array ending */ + { /* Only possible if we've seen this array before as */ + /* an element of an enveloping array, otherwise */ + /* there would be no RT_ARR_END runtime record yet. */ + if (--arr_loops[arr_loop_level] > 0) /* if need to do next ar elmnt */ + cur_rt -= cur_rt->u.arr.num_rt_blks; + } /* mv cur_rt to start of arr */ + + switch (cur_rt->el_tag) + { + case RT_ARR_START : + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,1,arr_start); /* expecting an array cstr */ + break; + + case RT_STR_START : + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,2,str_start); /* expecting a struct cstr */ + break; + + case RT_BOOL : + ASN1R_TAG_ADD (aCtx, CTX,3,get_bool_prim); + break; + + case RT_BIT_STRING : + ASN1R_TAG_ADD (aCtx, CTX,4,get_bitstr_prim); +#if 0 /* Constructed bitstrings and octetstrings not supported */ + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,4,get_bstr_cstr); +#endif + break; + + case RT_INTEGER : + ASN1R_TAG_ADD (aCtx, CTX,5,get_int_prim); + break; + + case RT_UNSIGNED : + ASN1R_TAG_ADD (aCtx, CTX,6,get_uint_prim); + break; + +#ifdef FLOAT_DATA_SUPPORT + case RT_FLOATING_POINT : + ASN1R_TAG_ADD (aCtx, CTX,7,get_float_prim); + break; +#endif + + case RT_OCTET_STRING : + ASN1R_TAG_ADD (aCtx, CTX,9,get_octstr_prim); +#if 0 /* Constructed bitstrings and octetstrings not supported */ + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,9,get_ostr_cstr); +#endif + break; + + case RT_VISIBLE_STRING : + ASN1R_TAG_ADD (aCtx, CTX,10,get_vstr_prim); + break; + +#ifdef TIME_DATA_SUPPORT + case RT_GENERAL_TIME : + ASN1R_TAG_ADD (aCtx, CTX,11,get_gtime_prim); + break; +#endif + +#ifdef BTOD_DATA_SUPPORT + case RT_BINARY_TIME : + ASN1R_TAG_ADD (aCtx, CTX,12,get_btime_prim); + break; +#endif + + case RT_BCD : + ASN1R_TAG_ADD (aCtx, CTX,13,get_bcd_prim); + break; + + case RT_UTC_TIME : + ASN1R_TAG_ADD (aCtx, CTX,17,get_utc_time_prim); + break; + + case RT_UTF8_STRING : + ASN1R_TAG_ADD (aCtx, CTX,RT_UTF8_STRING,get_utf8_prim); + break; + + case RT_ARR_END : /* array done */ + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = arr_done_fun; /* the arr cstr must be done*/ + break; + + case RT_STR_END : /* structure done */ + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = str_done_fun; /* the str cstr must be done*/ + break; + + default : /* should not be any other tag */ + MLOG_ERR0 ("Bad tag in runtime type"); + asn1r_set_dec_err (aCtx, INTERNAL); + return; + break; + } + } + else /* In terra incognita, next element can be anything */ + { + /* Allow for any type of data in the data string. */ + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,1,arr_start); + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,2,str_start); + ASN1R_TAG_ADD (aCtx, CTX,3,get_bool_prim); + ASN1R_TAG_ADD (aCtx, CTX,4,get_bitstr_prim); +#if 0 /* Constructed bitstrings and octetstrings not supported */ + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,4,get_bstr_cstr); +#endif + ASN1R_TAG_ADD (aCtx, CTX,5,get_int_prim); + ASN1R_TAG_ADD (aCtx, CTX,6,get_uint_prim); + ASN1R_TAG_ADD (aCtx, CTX,7,get_float_prim); + ASN1R_TAG_ADD (aCtx, CTX,9,get_octstr_prim); +#if 0 /* Constructed bitstrings and octetstrings not supported */ + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,9,get_ostr_cstr); +#endif + ASN1R_TAG_ADD (aCtx, CTX,10,get_vstr_prim); + ASN1R_TAG_ADD (aCtx, CTX,11,get_gtime_prim); + ASN1R_TAG_ADD (aCtx, CTX,12,get_btime_prim); + ASN1R_TAG_ADD (aCtx, CTX,13,get_bcd_prim); + ASN1R_TAG_ADD (aCtx, CTX,17,get_utc_time_prim); + ASN1R_TAG_ADD (aCtx, CTX,RT_UTF8_STRING,get_utf8_prim); + } + } + + + +/************************************************************************/ +/* init_new_RT */ +/* This is the function called to check to see if a new RT table entry */ +/* is required and available, and initializes it if so. */ +/* Parameters: */ +/* tag Tag value for the field type. */ +/* el_len Element length, in its own units. 0 for constructed */ +/* types. Units are bytes except for bitstrings (length */ +/* given in bits). */ +/* Globals input: */ +/* cur_rt, nxt_un_rt, rt_EOB_ptr */ +/* Globals output: */ +/* nxt_un_rt */ +/* Returns: */ +/* 0 if OK, 1 if error (table overflow). */ +/************************************************************************/ + +static int init_new_RT (ASN1_DEC_CTXT *aCtx, ST_UCHAR tag, ST_INT el_len) + { +ST_BOOLEAN prim; +ST_INT st_size; + + prim = SD_TRUE; + switch (tag) /* Calc storage size based on element fundamentals */ + { + case RT_BOOL: /* Size must be 1, so ignore it. */ + st_size = 1; + break; + + case RT_BIT_STRING: /* el_len was converted to bits */ + st_size = CALC_BIT_LEN (el_len); /* Calculate byte count. */ + break; + + case RT_INTEGER: /* Size is in bytes. */ + case RT_UNSIGNED: + st_size = el_len; /* already conditioned (1,2,4) */ + break; + + case RT_BCD: /* always put into ST_INT32 */ + st_size = 4; + el_len = 8; /* assume type is 8 BCD digits */ + break; + + case RT_FLOATING_POINT: + /* Decrement el_len because it's used for storage size later */ + st_size = (--el_len == 4) ? sizeof (float) : sizeof (double); + break; + + case RT_OCTET_STRING: /* Size is in bytes. */ + st_size = el_len; /* No terminating null */ + break; /* If variable length, size will */ + /* be increased by sizeof (ST_INT16) */ + + case RT_VISIBLE_STRING: /* Size is in bytes. */ + st_size = el_len+1; /* Add space for terminating null */ + break; /* No increase for variable length */ + + case RT_GENERAL_TIME: /* Generalized time */ + st_size = sizeof (time_t); + el_len = sizeof (time_t); + break; + + case RT_BINARY_TIME: /* Binary time */ + if (el_len == 6) + st_size = 2 * sizeof (ST_INT32); + else + st_size = sizeof (ST_INT32); + break; + + case RT_UTC_TIME: /* UTC time */ + st_size = sizeof (MMS_UTC_TIME); /* 3 * sizeof (ST_UINT32); */ + break; + + case RT_UTF8_STRING: /* Unicode UTF8string */ +#if (UNICODE_LOCAL_FORMAT==UNICODE_UTF8) + st_size = abs(el_len)*4 + 1; /* # bytes (4 bytes per char + NULL)*/ +#else /* assume UNICODE_UTF16 */ + st_size = abs(el_len)*2 + 2; /* # bytes (2 bytes per char + 2 byte NULL)*/ +#endif + break; + + default: + prim = SD_FALSE; /* Not a primitive element. */ + st_size = 0; + break; + } + + if (cur_rt == nxt_un_rt) /* If this element is not already defined, */ + { /* We need to use another el, do ovrfl check */ + if (nxt_un_rt == rt_EOB_ptr) /* Check against EOB pointer. */ + { + asn1r_set_dec_err (aCtx, MX_MEMORY_ALLOC); /* Table is full, declare error & return */ + MLOG_ERR1 ("Exceeded %d limit on number of elements in RUNTIME_TYPE array", rt_EOB_ptr - rt_base); + return SD_FAILURE; /* Error value. */ + } + ++nxt_un_rt; /* Used one more element. */ + /* Clear the new element. */ + memset ((char *)cur_rt, 0, sizeof (RUNTIME_TYPE)); + cur_rt->el_tag = tag; /* Set the tag value. */ + cur_rt->el_size = st_size; /* Set storage size */ + if (prim) + { + if (tag == RT_BCD) + cur_rt->u.p.el_len = 8; + else + cur_rt->u.p.el_len = el_len; /* Set initial data size for prim */ + } + if (tag == RT_ARR_START) + cur_rt->u.arr.num_rt_blks = -1; /* Flag unfinished constructor */ + else if (tag == RT_STR_START) + cur_rt->u.str.num_rt_blks = -1; /* Flag unfinished constructor */ + + return SD_SUCCESS; /* New element, done. */ + } + + /* The following code executes if this is an element of an array. */ + /* It adjusts sizes if necessary. For example, if the second Vstring */ + /* in an array is longer than the first, the el_len and el_size are */ + /* increased to handle it. */ + + /* This is an "old" element. Check data sizes */ + /* and update as required. Check for variable */ + switch (tag) /* length issues in byte and bit strings. */ + { + case RT_BIT_STRING: /* Size is in bits */ + if (cur_rt->u.p.el_len < 0) /* Is variable */ + { /* Re-size if necessary */ + if (-cur_rt->u.p.el_len < el_len) /* New one is bigger */ + { + cur_rt->u.p.el_len = -el_len; /* Set new length */ + cur_rt->el_size = st_size + sizeof (ST_INT16); + } + } + else if (cur_rt->u.p.el_len != el_len) /* Different length */ + { /* Make variable length */ + if (cur_rt->u.p.el_len > el_len) /* Size for biggest seen */ + el_len = cur_rt->u.p.el_len; + + cur_rt->u.p.el_len = -el_len; + cur_rt->el_size = CALC_BIT_LEN (el_len) + sizeof (ST_INT16); + } + break; + + case RT_INTEGER: /* Size is in bytes. */ + case RT_UNSIGNED: + if (st_size > cur_rt->el_size) /* If this one is bigger, */ + { /* set both storage size */ + cur_rt->el_size = /* and element length. */ + cur_rt->u.p.el_len = st_size; + } + break; + + case RT_OCTET_STRING: /* Size is in bytes. */ + if (cur_rt->u.p.el_len < 0) /* Variable size */ + { + if (-cur_rt->u.p.el_len < el_len) /* New one is longer */ + { + cur_rt->u.p.el_len = -el_len; /* Bump size up */ + cur_rt->el_size = el_len + sizeof (ST_INT16); + } + } + else if (cur_rt->u.p.el_len != el_len) /* Different size */ + { + if (-cur_rt->u.p.el_len > el_len) /* If old is bigger, */ + el_len = -cur_rt->u.p.el_len; /* keep it, otherwise */ + cur_rt->u.p.el_len = -el_len; /* use this size. */ + cur_rt->el_size = el_len + sizeof (ST_INT16); + } + break; + + case RT_VISIBLE_STRING: /* Size is in bytes. */ + if (cur_rt->u.p.el_len < 0) /* Variable len */ + { + if (cur_rt->u.p.el_len > -el_len) /* New one is bigger. */ + cur_rt->u.p.el_len = -el_len; + } + else if (cur_rt->u.p.el_len != el_len) /* Length different */ + { /* Make variable length */ + if (cur_rt->u.p.el_len > el_len) + el_len = cur_rt->u.p.el_len; + cur_rt->u.p.el_len = -el_len; + } + cur_rt->el_size = abs (cur_rt->u.p.el_len) + 1; + break; + + case RT_UTF8_STRING: /* Unicode UTF8string */ + /* If new len > old len, force string to be "variable-len" & increase len.*/ + if (abs(el_len) > abs(cur_rt->u.p.el_len)) /* New one is bigger. */ + { + cur_rt->u.p.el_len = -abs(el_len); /* increase len */ + /* adjust el_size */ +#if (UNICODE_LOCAL_FORMAT==UNICODE_UTF8) + cur_rt->el_size = abs(cur_rt->u.p.el_len)*4 + 1; /* # bytes (4 bytes per char + NULL)*/ +#else /* assume UNICODE_UTF16 */ + cur_rt->el_size = abs(cur_rt->u.p.el_len)*2 + 2; /* # bytes (2 bytes per char + 2 byte NULL)*/ +#endif + } + break; + + default: /* Other types are fixed length */ + break; + } + + return SD_SUCCESS; /* All OK. */ + } + + + +/************************************************************************/ +/* next_rt_index */ +/* Sets cur_rt to the correct value for the next data element in */ +/* the parse. If the current message level is an unfinished array, */ +/* it increments the u.arr.num_elmnts member of the header. */ +/* Parameters: None. */ +/* Globals input: cur_rt, nxt_un_rt, constr_type[] */ +/* Globals output: cur_rt */ +/* Other variables changed: cur_rt->u.arr.num_elmnts */ +/************************************************************************/ + +static ST_VOID next_rt_index (ASN1_DEC_CTXT *aCtx) + { + if (++cur_rt < nxt_un_rt) /* Next RT element already defined? */ + return; /* Return, done. */ + /* The current message level isn't complete yet. Check type. */ + if (constr_type[aCtx->asn1r_msg_level] == ARRAY) /* This is an unfinished array. */ + { + cur_rt = rt_blk_start[aCtx->asn1r_msg_level]; /* Loop back to array start */ + cur_rt->u.arr.num_elmnts++; /* Inc # of elements. */ + ++cur_rt; /* Point to contents. */ + } + /* Done. No loopback is required for structures, only arrays. */ + } + + + +/************************************************************************/ +/* arr_start */ +/* This is the function called when an array cstr is starting */ +/************************************************************************/ + +static ST_VOID arr_start (ASN1_DEC_CTXT *aCtx) + { +/* initialize the loop counter for the array */ + MLOG_CDEC0 ("pars_arr_start"); + + if (init_new_RT (aCtx, RT_ARR_START, 0)) /* Return if error. */ + return; + /* Check to see if the end-contructor for this array */ + /* has been encountered before. */ + + ++arr_loop_level; + if (cur_rt->u.arr.num_rt_blks == -1) + { + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = arr_done_fun; /* Init now if new array */ + } + else /* We've seen this array before as an element of a larger array. We */ + /* know the size. Initialize the loop count in the RT_ARR_END block. */ + { + arr_loops[arr_loop_level] = cur_rt->u.arr.num_elmnts; + } + + + rt_blk_start[aCtx->asn1r_msg_level] = cur_rt; /* Point to initial element */ + constr_type[aCtx->asn1r_msg_level] = ARRAY; + cur_rt++; /* Increment index (no loopback) */ + assign_tags (aCtx); /* Assign tags for next data element. */ + } + + +/************************************************************************/ +/* arr_done_fun */ +/* This is the cstr done function called when an array cstr is done */ +/* Note: aCtx->asn1r_msg_level is one less than the value given to array_start (). */ +/************************************************************************/ + +static ST_VOID arr_done_fun (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("pars_arr_done_fun"); + + if (rt_blk_start[aCtx->asn1r_msg_level+1]->u.arr.num_rt_blks == -1) + { /* Unfinished array, build RT_ARR_END record. */ + cur_rt = nxt_un_rt; /* Point to one past end */ + if (init_new_RT (aCtx, RT_ARR_END, 0)) /* Init a new RT block */ + return; + + cur_rt->u.arr.num_rt_blks = /* Calc RT block count for array. */ + rt_blk_start[aCtx->asn1r_msg_level+1]->u.arr.num_rt_blks = + (cur_rt - rt_blk_start[aCtx->asn1r_msg_level+1] - 1);/* Copy count back to start. */ + + cur_rt->u.arr.num_elmnts = /* Copy element count to */ + rt_blk_start[aCtx->asn1r_msg_level+1]->u.arr.num_elmnts;/* end-array element.*/ + } + else + { /* This is the end of a finished array. */ + if (arr_loops[arr_loop_level]) /* Loop count down to 0? */ + { + MLOG_NERR0 ("Malformed array data"); + asn1r_set_dec_err (aCtx, BAD_DATA); /* If not exactly 0, error. */ + } + } + --arr_loop_level; + + next_rt_index (aCtx); + assign_tags (aCtx); /* setup to get next element */ + } + +/************************************************************************/ +/* str_start */ +/* This is the function called when a struct cstr is starting */ +/************************************************************************/ + +static ST_VOID str_start (ASN1_DEC_CTXT *aCtx) + { + + if (init_new_RT (aCtx, RT_STR_START, 0)) + return; + + if (cur_rt->u.str.num_rt_blks == -1) + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = str_done_fun; /* Init now if new struct */ + + rt_blk_start[aCtx->asn1r_msg_level] = cur_rt; /* Point to initial element */ + constr_type[aCtx->asn1r_msg_level] = STRUCT; + cur_rt++; /* point to next runtime element always */ + assign_tags (aCtx); /* setup to get next element */ + } + +/************************************************************************/ +/* str_done_fun */ +/* This is the cstr done function called when a struct cstr is done */ +/* Note: aCtx->asn1r_msg_level is one less than the value given to str_start (). */ +/************************************************************************/ + +static ST_VOID str_done_fun (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("pars_str_done_fun"); + + if (init_new_RT (aCtx, RT_STR_END, 0)) + return; + + cur_rt->u.str.num_rt_blks = /* Calc RT block count for struct. */ + rt_blk_start[aCtx->asn1r_msg_level+1]->u.str.num_rt_blks = + (cur_rt - rt_blk_start[aCtx->asn1r_msg_level+1] - 1); /* Copy count back to start. */ + + next_rt_index (aCtx); /* point to next runtime element */ + assign_tags (aCtx); /* setup to get next element */ + } + + +/************************************************************************/ +/************************************************************************/ +#if 0 /* Constructed bitstrings and octetstrings not supported */ +/************************************************************************/ +/************************************************************************/ +/* get_bstr_cstr */ +/* State function to extract a boolean value from an asn1 data element. */ +/************************************************************************/ + + +static ST_VOID get_bstr_cstr (ASN1_DEC_CTXT *aCtx) &&& This code not implemented. + { + MLOG_CDEC0 ("pars_get_bstr_cstr"); + + if (init_new_RT (aCtx, RT_STR_END, 0)) + return; + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = bs_cstr_done; + + next_rt_index (aCtx); /* point to next runtime element */ + assign_tags (aCtx); /* setup to get next element */ + } + + +/************************************************************************/ +/* bs_cstr_done */ +/* This function is called when an bit string constructor is */ +/* completed OK. Need to reset the decode state machine. */ +/* Note: aCtx->asn1r_msg_level is one less than the value given to get_bstr_cstr (). */ +/************************************************************************/ + +static ST_VOID bs_cstr_done (ASN1_DEC_CTXT *aCtx) &&& Not implemented yet + { +ST_INT abs_len; +ST_INT abs_count; +int i; +ST_CHAR *to_ptr; +ST_CHAR *from_ptr; + + abs_count = abs (cur_rt->u.p.el_len); + abs_len = CALC_BIT_LEN (abs_count); + +/* determine whether octet string is fixed or variable length */ + + if (cur_rt->u.p.el_len >=0) /* fixed length */ + { + if (aCtx->asn1r_bitcount != abs_count) + { + MLOG_NERR0 ("Fixed length bit string mismatch"); + asn1r_set_dec_err (aCtx, BAD_DATA); + } + } + else /* variable length bit string */ + { /* need to move down to allow for size ST_INT16 */ + from_ptr = datptr+abs_len-1; + to_ptr = from_ptr+sizeof (ST_INT16); + for (i = 0; i < abs_count; ++i) + *(to_ptr--) = *(from_ptr--); + + *((ST_INT16 *)datptr) = (ST_INT16) aCtx->asn1r_bitcount; + } + + datptr += cur_rt->el_size; /* Adjust data pointer */ + cur_rt++; /* point to next runtime element */ + assign_tags (aCtx); /* Assign tags for next data elt*/ + } + + +/************************************************************************/ +/* get_ostr_cstr */ +/* State function to extract an octet string from an asn1 data element. */ +/************************************************************************/ + +static ST_VOID get_ostr_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("pars_get_ostr_cstr"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = os_cstr_done; + asn1r_get_octstr_cstr (aCtx, abs (cur_rt->u.p.el_len), datptr); + } + +/************************************************************************/ +/* os_cstr_done */ +/* This function is called when an octet string constructor is */ +/* completed OK. Need to reset the decode state machine. */ +/************************************************************************/ + +static ST_VOID os_cstr_done (ASN1_DEC_CTXT *aCtx) + { +ST_INT abs_len; +int i; +ST_CHAR *to_ptr; +ST_CHAR *from_ptr; + + abs_len = abs (cur_rt->u.p.el_len); + +/* determine whether octect string is fixed or variable length */ + + if (cur_rt->u.p.el_len >=0) /* fixed length */ + { + if (aCtx->asn1r_octetcount != abs_len) + { + MLOG_NERR0 ("Fixed length octet string mismatch"); + asn1r_set_dec_err (aCtx, BAD_DATA); + } + } + else /* variable length octet string */ + { /* need to move down to allow for size ST_INT16 */ + from_ptr = datptr+abs_len-1; + to_ptr = from_ptr+sizeof (ST_INT16); + for (i = 0; i < aCtx->asn1r_octetcount; ++i) + *(to_ptr--) = *(from_ptr--); + + *((ST_INT16 *)datptr) = (ST_INT16) aCtx->asn1r_octetcount; + } + + datptr += cur_rt->el_size; /* Adjust data pointer */ + cur_rt++; /* point to next runtime element */ + assign_tags (aCtx); /* Assign tags for next data elt*/ + } + +/************************************************************************/ +#endif +/************************************************************************/ +/************************************************************************/ + +/************************************************************************/ +/* get_bool_prim */ +/* State function to extract a boolean prim from an asn1 data element. */ +/************************************************************************/ + +static ST_VOID get_bool_prim (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("pars_get_bool_prim"); + + if (init_new_RT (aCtx, RT_BOOL, aCtx->asn1r_elmnt_len)) + return; + + if (aCtx->asn1r_elmnt_len != 1) + { + MLOG_NERR0 ("Malformed boolean data"); + asn1r_set_dec_err (aCtx, BAD_DATA); /* checked by get function */ + } + aCtx->asn1r_field_ptr += aCtx->asn1r_elmnt_len; /* Skip over data */ + + next_rt_index (aCtx); /* point to next runtime element */ + assign_tags (aCtx); /* setup to get next element */ + } + +/************************************************************************/ +/* get_bitstr_prim */ +/* State function to extract a bitstring prim from an asn1 data element */ +/************************************************************************/ + +static ST_VOID get_bitstr_prim (ASN1_DEC_CTXT *aCtx) + { +ST_INT bit_count; + + MLOG_CDEC0 ("pars_get_bitstr_prim"); + + bit_count = (aCtx->asn1r_elmnt_len > 1) ? ((aCtx->asn1r_elmnt_len-1)*8 - (*aCtx->asn1r_field_ptr & 7)) : 0; + if (!aCtx->asn1r_elmnt_len || (!bit_count && *aCtx->asn1r_field_ptr)) + { + MLOG_NERR0 ("Malformed bitstring data"); + asn1r_set_dec_err (aCtx, BAD_DATA); + } + + if (init_new_RT (aCtx, RT_BIT_STRING, bit_count)) + return; + + aCtx->asn1r_field_ptr += aCtx->asn1r_elmnt_len; + + next_rt_index (aCtx); /* point to next runtime element */ + assign_tags (aCtx); + } + +/************************************************************************/ +/* get_int_prim */ +/* State function to extract an integer prim from an asn1 data element. */ +/************************************************************************/ + +static ST_VOID get_int_prim (ASN1_DEC_CTXT *aCtx) + { +ST_INT el_len; + + MLOG_CDEC0 ("pars_get_int_prim"); + + switch (aCtx->asn1r_elmnt_len) /* determine internal length */ + { + case 1: /* one byte int */ + el_len = 1; + break; + + case 2: /* two byte int */ + el_len = 2; + break; + + case 3: /* three byte int, expand to 4 */ + case 4: /* four byte integer */ + el_len = 4; + break; + +#ifdef INT64_SUPPORT + case 5: + case 6: + case 7: + case 8: + el_len = 8; + break; +#endif + + default : + MLOG_NERR0 ("Malformed integer data"); + asn1r_set_dec_err (aCtx, BAD_DATA); /* no other lengths are valid */ + return; + } + +/* Assume all integers at least 4 bytes (i.e. ST_INT32). */ + if (el_len < 4) + el_len = 4; + + if (init_new_RT (aCtx, RT_INTEGER, el_len)) + return; + + aCtx->asn1r_field_ptr += aCtx->asn1r_elmnt_len; + next_rt_index (aCtx); /* point to next runtime element */ + assign_tags (aCtx); + } + +/************************************************************************/ +/* get_uint_prim */ +/* State function to extract an unsigned integer prim from an asn1 data */ +/* element. */ +/************************************************************************/ + +static ST_VOID get_uint_prim (ASN1_DEC_CTXT *aCtx) + { +ST_INT el_len; +ST_INT asn1ElmntLen; + + MLOG_CDEC0 ("pars_get_uint_prim"); + +/* Unsigned data may have a leading 0x00 if it otherwise would be neg */ + asn1ElmntLen = aCtx->asn1r_elmnt_len; + if (aCtx->asn1r_elmnt_len > 1 && + *aCtx->asn1r_field_ptr == 0 && + *(aCtx->asn1r_field_ptr+1) & 0x80) + { + --asn1ElmntLen; + } + + switch (asn1ElmntLen) /* determine internal length */ + { + case 1: /* one byte */ + el_len = 1; + break; + + case 2: /* two bytes */ + el_len = 2; + break; + + case 3: /* three bytes, expand to 4 */ + case 4: /* four bytes */ + el_len = 4; + break; + +#ifdef INT64_SUPPORT + case 5: + case 6: + case 7: + case 8: + el_len = 8; + break; +#endif + + default : + MLOG_NERR0 ("Malformed unsigned data"); + asn1r_set_dec_err (aCtx, BAD_DATA); /* no other lengths are valid */ + return; + } + +/* Assume all unsigned integers at least 4 bytes (i.e. ST_UINT32). */ + if (el_len < 4) + el_len = 4; + + if (init_new_RT (aCtx, RT_UNSIGNED, el_len)) + return; + + aCtx->asn1r_field_ptr += aCtx->asn1r_elmnt_len; + next_rt_index (aCtx); /* point to next runtime element */ + assign_tags (aCtx); + } + +/************************************************************************/ +/* get_float_prim */ +/* State function to extract a floating point primitive from an asn1 */ +/* data element. */ +/************************************************************************/ + +#ifdef FLOAT_DATA_SUPPORT + +static ST_VOID get_float_prim (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("pars_get_float_prim"); + + if (init_new_RT (aCtx, RT_FLOATING_POINT, aCtx->asn1r_elmnt_len)) + return; + + aCtx->asn1r_field_ptr += aCtx->asn1r_elmnt_len; + next_rt_index (aCtx); /* point to next runtime element */ + assign_tags (aCtx); + } + +#endif + +/************************************************************************/ +/* get_octstr_prim */ +/* State function to extract an octet string primitive from an asn1 */ +/* data element. */ +/************************************************************************/ + +static ST_VOID get_octstr_prim (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("pars_get_octstr_prim"); + + if (init_new_RT (aCtx, RT_OCTET_STRING, aCtx->asn1r_elmnt_len)) + return; + + aCtx->asn1r_field_ptr += aCtx->asn1r_elmnt_len; + next_rt_index (aCtx); /* point to next runtime element */ + assign_tags (aCtx); + } + +/************************************************************************/ +/* get_vstr_prim */ +/* State function to extract a visible string primitive from an asn1 */ +/* data element. */ +/************************************************************************/ + +static ST_VOID get_vstr_prim (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("pars_get_vstr_prim"); + + if (init_new_RT (aCtx, RT_VISIBLE_STRING, aCtx->asn1r_elmnt_len)) + return; + + aCtx->asn1r_field_ptr += aCtx->asn1r_elmnt_len; + next_rt_index (aCtx); /* point to next runtime element*/ + assign_tags (aCtx); + } + +/************************************************************************/ +/* get_gtime_prim */ +/* State function to extract a generalized time primitive from an asn1 */ +/* data element. */ +/************************************************************************/ + +#ifdef TIME_DATA_SUPPORT + +static ST_VOID get_gtime_prim (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("pars_get_gtime_prim"); + + if (init_new_RT (aCtx, RT_GENERAL_TIME, aCtx->asn1r_elmnt_len)) + return; + + aCtx->asn1r_field_ptr += aCtx->asn1r_elmnt_len; + next_rt_index (aCtx); /* point to next runtime element */ + assign_tags (aCtx); + } + +#endif + +/************************************************************************/ +/* get_btime_prim */ +/* State function to extract a binary time primitive from an asn1 data */ +/* element. */ +/************************************************************************/ + +#ifdef BTOD_DATA_SUPPORT + +static ST_VOID get_btime_prim (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("pars_get_btime_prim"); + + if (init_new_RT (aCtx, RT_BINARY_TIME, aCtx->asn1r_elmnt_len)) + return; + + aCtx->asn1r_field_ptr += aCtx->asn1r_elmnt_len; + next_rt_index (aCtx); /* point to next runtime element */ + assign_tags (aCtx); + } + +#endif + +/************************************************************************/ +/* get_bcd_prim */ +/* State function to extract a binary coded decimal primitive from an */ +/* asn1 data element. */ +/************************************************************************/ + +static ST_VOID get_bcd_prim (ASN1_DEC_CTXT *aCtx) + { + + MLOG_CDEC0 ("pars_get_bcd_prim"); + + if (aCtx->asn1r_elmnt_len > 4) + { + MLOG_NERR0 ("Malformed bcd data"); + asn1r_set_dec_err (aCtx, BAD_DATA); + return; + } + + if (init_new_RT (aCtx, RT_BCD, aCtx->asn1r_elmnt_len)) + return; + + aCtx->asn1r_field_ptr += aCtx->asn1r_elmnt_len; /* Adjust data pointer */ + next_rt_index (aCtx); /* point to next runtime element */ + assign_tags (aCtx); + } + +/************************************************************************/ +/* get_utc_time_prim */ +/* State function to extract a utc time primitive from an asn1 data */ +/* element. */ +/************************************************************************/ + +static ST_VOID get_utc_time_prim (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("pars_get_utc_time_prim"); + + if (init_new_RT (aCtx, RT_UTC_TIME, aCtx->asn1r_elmnt_len)) + return; + + aCtx->asn1r_field_ptr += aCtx->asn1r_elmnt_len; + next_rt_index (aCtx); /* point to next runtime element */ + assign_tags (aCtx); + } + +/************************************************************************/ +/* get_utf8_prim */ +/* State function to extract a Unicode UTF8string primitive from an */ +/* asn1 data element. */ +/* Assume string is "variable-length", so pass "negative" len. The len */ +/* is the number of Unicode characters. Each Unicode character takes */ +/* at least 1 byte, so the number of characters is ALWAYS <= */ +/* the ASN.1 encoded size. */ +/************************************************************************/ + +static ST_VOID get_utf8_prim (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("get_utf8_prim"); + + /* Pass "negative" len to indicate "variable-length". */ + if (init_new_RT (aCtx, RT_UTF8_STRING, -aCtx->asn1r_elmnt_len)) + return; + + aCtx->asn1r_field_ptr += aCtx->asn1r_elmnt_len; + next_rt_index (aCtx); /* point to next runtime element */ + assign_tags (aCtx); + } + +/************************************************************************/ +/* err_clean_fun */ +/************************************************************************/ + + +static ST_VOID err_clean_fun (ASN1_DEC_CTXT *aCtx, ST_RET err_code) + { + if (local_alloc_flag) + { + chk_free (rt_base); + rt_base = NULL; + } + nxt_un_rt = rt_base; /* Zero length runtime buffer. */ + } + + diff --git a/mmslib/mmsl/mmsdec.c b/mmslib/mmsl/mmsdec.c new file mode 100644 index 0000000..08bd1f7 --- /dev/null +++ b/mmslib/mmsl/mmsdec.c @@ -0,0 +1,768 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2008, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : mmsdec.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the initial MMS message decode functions. */ +/* Decodes the header portion of MMS PDUs. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/17/08 EJV 10 Added slog. */ +/* 12/19/05 JRB 22 Chg cr to cr_mms, del static to fix warning.*/ +/* 09/07/05 JRB 08 Fix backwards client/server error log msgs. */ +/* 07/24/02 EJV 07 mmsdec_ucreq_opcode: corr err in the check */ +/* opcode due to recent MMSOP_xxx changes. */ +/* 12/20/01 JRB 06 Converted to use ASN1R (re-entrant ASN1) */ +/* Del mms_err_invoke_fun proto (see mms_dfun.h)*/ +/* 09/13/99 MDE 05 Added SD_CONST modifiers */ +/* 04/07/99 MDE 04 Logging improvements (unsupported service) */ +/* 03/23/99 MDE 03 Changes to decode buffer allocation scheme */ +/* 06/15/98 MDE 02 Changes to allow compile under C++ */ +/* 03/18/98 JRB 01 Fix mmsdec_map_err for new error values. */ +/* 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_err.h" +#include "asn1defs.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ + +static ST_VOID mmsdec_start (ASN1_DEC_CTXT *aCtx, ST_UINT16 id_code); +static ST_VOID mmsdec_invoke_id (ASN1_DEC_CTXT *aCtx, ST_UINT16 id_code); +#ifdef MOD_SUPPORT /* support modifiers */ +static ST_VOID mmsdec_modlist (ASN1_DEC_CTXT *aCtx, ST_UINT16 el_id); +static ST_VOID mmsdec_modlist_done_fun (ASN1_DEC_CTXT *aCtx); +#endif +static ST_VOID mmsdec_opcode (ASN1_DEC_CTXT *aCtx, ST_UINT16 id_code); +static ST_VOID mmsdec_ucreq_opcode (ASN1_DEC_CTXT *aCtx, ST_UINT16 id_code); +static ST_RET mmsdec_chk_req_op (ASN1_DEC_CTXT *aCtx, ST_INT opcode, ST_INT unsupp_code); +static ST_RET mmsdec_chk_resp_op (ASN1_DEC_CTXT *aCtx, ST_UINT opcode); +static ST_VOID mmsdec_map_err (ASN1_DEC_CTXT *aCtx); /* maps ASN.1 tool errors to MMS */ +#ifndef MMS_LITE /* don't assign op id's */ +static ST_VOID mmsdec_assign_rid (ST_INT opcode); +#endif + +/************************************************************************/ +const ST_CHAR cr_mms[] = + "(c) COPYRIGHT SYSTEMS INTEGRATION SPECIALISTS COMPANY INC., 1986 - 2005. All Rights Reserved."; +/************************************************************************/ +/* Operation Specific Decode Buffer Management */ + +ST_VOID *(*m_calloc_os_fun)(ST_UINT num, ST_UINT size); +ST_VOID *(*m_realloc_os_fun)(ST_VOID *old, ST_UINT new_size); +ST_VOID (*m_free_os_fun)(ST_VOID *buf); + +/************************************************************************/ +/* The array below is used to check the constructed state of a PDU */ + +SD_CONST static ST_UINT16 mmspdu_cstr_chk[] = + { + CONSTR, /* CONFIRMED REQUEST IS CONSTRUCTOR */ + CONSTR, /* CONFIRMED RESPONSE */ + CONSTR, /* CONFIRMED ERROR */ + CONSTR, /* UNCONFIRMED PDU */ + CONSTR, /* REJECT */ + 0, /* CANCEL REQUEST */ + 0, /* CANCEL RESPONSE */ + CONSTR, /* CANCEL ERROR */ + CONSTR, /* INITIATE REQUEST */ + CONSTR, /* INITIATE RESPONSE */ + CONSTR, /* INITIATE ERROR */ + 0, /* CONCLUDE REQUEST IS PRIMITIVE */ + 0, /* CONCLUDE RESPONSE */ + CONSTR /* CONCLUDE ERROR IS CONSTRUCTOR */ + }; + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mms_decode */ +/* Function to setup and initiate MMS PDU decode */ +/* Only fourteen context specific codes are legal at start */ +/* Input parameters : pointer to message start, length of message, */ +/* pointer to result buffer. */ +/************************************************************************/ + +ST_RET _ms_mms_decode (ST_UCHAR *msg_ptr, ST_INT len, MMSDEC_INFO *rslt_ptr) + { +ASN1_DEC_CTXT localDecCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_DEC_CTXT *aCtx = &localDecCtx; + + MLOG_DEC0 ("Decoding MMS PDU"); + memset (aCtx, 0, sizeof (ASN1_DEC_CTXT)); /* CRITICAL: start clean. */ + + aCtx->asn1r_decode_method = ASN1_CLASS_METHOD; /* select the class method */ + aCtx->asn1r_c_id_fun = mmsdec_start; /* point to mms decode initial function */ + aCtx->asn1r_u_id_fun = asn1r_class_err; /* no universals to start */ + aCtx->asn1r_a_id_fun = asn1r_class_err; /* no applications to start */ + aCtx->asn1r_p_id_fun = asn1r_class_err; /* no privates to start */ + + aCtx->asn1r_decode_done_fun = asn1r_done_err; /* done function = error fun */ + aCtx->asn1r_err_fun = NULL; /* set up error detected fun */ + + _mmsdec_msglen = len; /* save decode message length */ + _mmsdec_msgptr = msg_ptr; /* save decode message ptr */ + _mmsdec_rslt = rslt_ptr; /* save the result pointer */ + rslt_ptr->err_code = NO_DECODE_ERR; /* start with no error */ + rslt_ptr->dec_level = 0; /* start with no usable info */ + rslt_ptr->data_pres = SD_FALSE; + rslt_ptr->mods.info_pres = SD_FALSE; + rslt_ptr->cs.cs_pres = SD_FALSE; + _mms_dec_info_pres = SD_FALSE; + +/* ASN.1 decode machine is set up for initial MMS decode. */ +/* Call 'asn1r_decode_asn1' to parse the message. */ + + asn1r_decode_asn1 (aCtx, msg_ptr,len); /* do message decode */ + mmsdec_map_err (aCtx); /* write the error code */ + if (aCtx->asn1r_pdu_dec_err == NO_DECODE_ERR) + return (SD_SUCCESS); /* return 'no error' code */ +#ifndef MMS_LITE + else + { + if (_mmsdec_rslt->mods.info_pres) /* see if there were any mods */ + chk_free (_mmsdec_rslt->mods.mod_list_ptr); + +/* Note that op specific buffer are free'd in _mms_dec_buf_free on error */ + + } +#endif + return (MVE_ASN1_DECODE_ERR); /* return error code */ + } + +/************************************************************************/ +/************************************************************************/ +/* mmsdec_start */ +/* Initial MMS decode context-specific code service function. This */ +/* function is called when the first data element of the message is a */ +/* context-specific class. */ +/************************************************************************/ + +#define MAX_MMS_PDU_TAG 13 + +static ST_VOID mmsdec_start (ASN1_DEC_CTXT *aCtx, ST_UINT16 id_code) + { + MLOG_CDEC0 ("mmsdec_start"); + +/* check for valid MMS PDU type, such as request, response, error, etc. */ +/* if valid tag and constructed state OK */ + if (id_code <= MAX_MMS_PDU_TAG && + !(mmspdu_cstr_chk[id_code] ^ aCtx->asn1r_constr_elmnt)) + { + _mmsdec_rslt->dec_level = 1; /* set flag that PDU type is OK */ + _mmsdec_rslt->type = id_code; /* save the type for the user */ + switch (id_code) + { + case MMSREQ : /* Confirmed Request PDU */ + aCtx->asn1r_u_id_fun = mmsdec_invoke_id; /* next must be uni, integer */ + /* invoke ID */ + aCtx->asn1r_c_id_fun = asn1r_class_err; /* can not context specific */ + break; + + case MMSRESP : /* Confirmed Response PDU */ + aCtx->asn1r_u_id_fun = mmsdec_invoke_id; /* next must be uni, integer */ + /* invoke ID */ + aCtx->asn1r_c_id_fun = asn1r_class_err; /* cannot be context specific */ + break; + + case MMSERROR : /* Confirmed Error PDU */ + aCtx->asn1r_c_id_fun = mms_err_invoke_fun; /* must be context specific */ + break; /* integer (invoke ID) */ + + case MMSUNREQ : /* Unconfirmed PDU */ + aCtx->asn1r_c_id_fun = mmsdec_ucreq_opcode; /* expect context-specific tag */ + break; + + case MMSREJECT : /* Reject PDU */ + aCtx->asn1r_c_id_fun = mms_reject; /* expect context-specific */ + break; + + case MMSCANREQ : /* Cancel Request PDU */ + if (!(mmsop_en[MMSOP_CANCEL] & RESP_EN)) /* protocol error if */ + asn1r_set_dec_err (aCtx, CANREQ_UNSPECIFIED); /* unsupported service */ + else + { + if (asn1r_get_u32 (aCtx, &_mmsdec_rslt->id)) + asn1r_set_dec_err (aCtx, CANREQ_INVAL_INVOKE); + else + { + _mmsdec_rslt->dec_level = 2; + (*mms_req_decode_fun [MMSOP_CANCEL]) (aCtx); + } + } + break; + + case MMSCANRESP : /* Cancel Response PDU */ + if (!(mmsop_en[MMSOP_CANCEL] & REQ_EN)) /* protocol error if */ + asn1r_set_dec_err (aCtx, CANRESP_UNSPECIFIED); /* not supported */ + else + { + if (asn1r_get_u32 (aCtx, &_mmsdec_rslt->id)) + asn1r_set_dec_err (aCtx, CANRESP_INVAL_INVOKE); + else + { + _mmsdec_rslt->dec_level = 2; /* Save inv. ID in rslt */ + (*mms_rsp_decode_fun [MMSOP_CANCEL]) (aCtx); + } + } + break; + + case MMSCANERR : /* Cancel Error PDU */ + if (!(mmsop_en[MMSOP_CANCEL] & REQ_EN)) /* protocol error if */ + asn1r_set_dec_err (aCtx, CANERR_INVAL_SERV); /* is not supported */ + else /* expect context-spec */ + aCtx->asn1r_c_id_fun = mms_err_invoke_fun; + break; + + case MMSINITREQ : /* Initiate Request PDU */ + if (!(mmsop_en[MMSOP_INITIATE] & RESP_EN)) /* if not enabled */ + asn1r_set_dec_err (aCtx, REQ_UNREC_SERV); /* as responder */ + else + { +#ifndef MMS_LITE + mmsdec_assign_rid (MMSOP_INITIATE); /* Assign opcode and */ + /* reserved Initiate ID */ +#endif + (*mms_req_decode_fun [MMSOP_INITIATE]) (aCtx); + } + break; + + case MMSINITRESP : /* Initiate Response PDU */ + if (!(mmsop_en[MMSOP_INITIATE] & REQ_EN)) /* if not enabled */ + asn1r_set_dec_err (aCtx, RESP_UNREC_SERV); /* as responder */ + else + { +#ifndef MMS_LITE + mmsdec_assign_rid (MMSOP_INITIATE); /* Assign opcode and */ + /* reserved Initiate ID */ +#endif + (*mms_rsp_decode_fun [MMSOP_INITIATE]) (aCtx); + } + break; + + case MMSINITERR : /* Initiate Error PDU */ + if (!(mmsop_en[MMSOP_INITIATE] & REQ_EN)) /* protocol error if */ + asn1r_set_dec_err (aCtx, ERR_UNREC_SERV); /* is not supported */ + else + { +#ifndef MMS_LITE + mmsdec_assign_rid (MMSOP_INITIATE); /* Assign opcode and */ + /* reserved Initiate ID */ +#endif + mms_err_rsp (aCtx); /* general err function */ + } + break; + + case MMSCNCLREQ : /* Conclude Requset PDU */ + if (!(mmsop_en[MMSOP_CONCLUDE] & RESP_EN)) /* protocol error if */ + asn1r_set_dec_err (aCtx, CONREQ_UNSPECIFIED); /* not supported */ + else + { + if (aCtx->asn1r_elmnt_len) + asn1r_set_dec_err (aCtx, CONREQ_INVAL_ARG); + else + { +#ifndef MMS_LITE + mmsdec_assign_rid (MMSOP_CONCLUDE);/* Assign opcode and */ + /* reserved Conclude ID */ +#endif + (*mms_req_decode_fun [MMSOP_CONCLUDE]) (aCtx); + } + } + break; + + case MMSCNCLRESP : /* Conclude Response PDU */ + if (!(mmsop_en[MMSOP_CONCLUDE] & REQ_EN)) /* protocol error if */ + asn1r_set_dec_err (aCtx, CONRESP_UNSPECIFIED); /* not supported */ + else + { + if (aCtx->asn1r_elmnt_len) + asn1r_set_dec_err (aCtx, CONRESP_INVAL_RSLT); /* if constructor */ + else + { +#ifndef MMS_LITE + mmsdec_assign_rid (MMSOP_CONCLUDE); /* Assign opcode and */ + /* reserved Concl ID */ +#endif + (*mms_rsp_decode_fun [MMSOP_CONCLUDE]) (aCtx); + } + } + break; + + case MMSCNCLERR : /* Conclude Error PDU */ + if (!(mmsop_en[MMSOP_CONCLUDE] & REQ_EN)) /* protocol error if */ + asn1r_set_dec_err (aCtx, CONERR_INVAL_SERV); /* is not supported */ + else + { +#ifndef MMS_LITE + mmsdec_assign_rid (MMSOP_CONCLUDE); /* Assign opcode and */ + /* reserved Conclude ID */ +#endif + mms_err_rsp (aCtx); /* general err function */ + } + break; + + default: + asn1r_set_dec_err (aCtx, PDU_UNKNOWN_TYPE); /* Not a legal MMS PDU type. */ + } + } + else + asn1r_set_dec_err (aCtx, PDU_UNKNOWN_TYPE); /* Not a legal MMS PDU type. */ + } /* or constructor error */ + + +/************************************************************************/ +/************************************************************************/ +/* mmsdec_invoke_id */ +/* Universal class service function called when invoke ID is expected */ +/* (after first data element in most MMS confirmed services has been */ +/* decoded, and this data element is a universal). */ +/************************************************************************/ + +static ST_VOID mmsdec_invoke_id (ASN1_DEC_CTXT *aCtx, ST_UINT16 id_code) + { + if (aCtx->asn1r_constr_elmnt || id_code != INT_CODE) + asn1r_set_dec_err (aCtx, PDU_INVALID); /* not a constr or INTEGER type */ + else + { + if (asn1r_get_u32 (aCtx, &_mmsdec_rslt->id)) + { + if (_mmsdec_rslt->type == MMSREQ) + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); /* not a valid 4-byte integer */ + else + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); /* not a valid 4-byte integer */ + return; + } + } + + MLOG_CDEC1 ("Invoke ID = %lu",_mmsdec_rslt->id); + + _mmsdec_rslt->dec_level = 2; /* set flag that Invoke ID is OK */ + /* setup function pointers for next */ + aCtx->asn1r_c_id_fun = mmsdec_opcode; /* next is explicit context tag */ +#ifdef MOD_SUPPORT + if (_mmsdec_rslt->type == MMSREQ)/* if MMSREQ a modifier could be next */ + aCtx->asn1r_u_id_fun = mmsdec_modlist; /* modifiers are tagged universal */ + else +#endif + aCtx->asn1r_u_id_fun = asn1r_class_err; /* no more universals */ + } + +#ifdef MOD_SUPPORT +/************************************************************************/ +/************************************************************************/ +/* mmsdec_modlist */ +/* An MMS request has been received with a modifier list present. We */ +/* change the asn1_decode_method to TAG so _ms_get_mms_modlist can decode it. */ +/* During the decode the modifier list will be attached to _mmsdec_rslt. */ +/* Upon completion of the decode we see if we can give back any unused */ +/* memory and change the decod_method back to CLASS. */ +/************************************************************************/ + +static ST_VOID mmsdec_modlist (ASN1_DEC_CTXT *aCtx, ST_UINT16 el_id) + { +#ifdef MMS_LITE +extern ST_CHAR mms_dec_modbuf []; +#endif + + aCtx->asn1r_decode_method = ASN1_TAG_METHOD; /* select TAG method for get_mms_modifer*/ + + _mmsdec_rslt->mods.num_of_mods = 0; +#ifndef MMS_LITE + _mmsdec_rslt->mods.mod_list_ptr = (MODIFIER *) + chk_calloc (m_max_mods, + sizeof (MODIFIER)); +#else + _mmsdec_rslt->mods.mod_list_ptr = (MODIFIER *) mms_dec_modbuf; +#endif + _ms_get_mms_modlist (aCtx, _mmsdec_rslt->mods.mod_list_ptr, + &(_mmsdec_rslt->mods.num_of_mods), + m_max_mods, + mmsdec_modlist_done_fun); + } + +/************************************************************************/ +/************************************************************************/ +/* mmsdec_modlist_done_fun */ +/* This function is called when the modifier list has been decoded. */ +/************************************************************************/ + +static ST_VOID mmsdec_modlist_done_fun (ASN1_DEC_CTXT *aCtx) + { + + aCtx->asn1r_decode_method = ASN1_CLASS_METHOD; /* restore the class method */ + _mmsdec_rslt->mods.info_pres = SD_TRUE; + + } +#endif + +/************************************************************************/ +/************************************************************************/ +/* mmsdec_opcode */ +/* An MMS request with good invoke ID has been detected. Next field */ +/* should be an implicit context tag which represents the opcode. */ +/* This function is called if a context class is decoded. */ +/************************************************************************/ + +static ST_VOID mmsdec_opcode (ASN1_DEC_CTXT *aCtx, ST_UINT16 id_code) + { +ST_INT operr; + +#ifndef MMS_LITE + if (id_code > MAX_MMS_OPCODE) + { /* Must be a legal MMS opcode */ + if (_mmsdec_rslt->type == MMSREQ) + asn1r_set_dec_err (aCtx, REQ_UNREC_SERV); + else + asn1r_set_dec_err (aCtx, RESP_UNREC_SERV); + return; + } +#endif + + _mmsdec_rslt->dec_level = 3; /* set flag that opcode is read OK */ + _mmsdec_rslt->op = id_code; /* save the opcode for the user */ + + MLOG_CDEC1 ("MMS Opcode = %d",_mmsdec_rslt->op); + +/* Opcode has been saved. Check that the service corresponding to this */ +/* opcode is supported and there are no parse errors. */ + + if (_mmsdec_rslt->type == MMSREQ) + { + /* pass err code */ + operr = mmsdec_chk_req_op (aCtx, _mmsdec_rslt->op,REQ_UNREC_SERV); + if (!operr) + (*mms_req_decode_fun [_mmsdec_rslt->op]) (aCtx); + } + else + { + operr = mmsdec_chk_resp_op (aCtx, _mmsdec_rslt->op); + if (!operr) + (*mms_rsp_decode_fun [_mmsdec_rslt->op]) (aCtx); + } + } + + +/************************************************************************/ +/************************************************************************/ +/* mmsdec_ucreq_opcode */ +/* An MMS unconfirmed request has been detected. Next field should be */ +/* an implicit context tag which represents the opcode. This function */ +/* is called if a context class is decoded. */ +/************************************************************************/ + +static ST_VOID mmsdec_ucreq_opcode (ASN1_DEC_CTXT *aCtx, ST_UINT16 id_code) + { + if (id_code == 0) + _mmsdec_rslt->op = MMSOP_INFO_RPT; + else if (id_code == 1) + _mmsdec_rslt->op = MMSOP_USTATUS; + else if (id_code == 2) + _mmsdec_rslt->op = MMSOP_EVENT_NOT; + else + { /* Must be a legal MMS opcode */ + asn1r_set_dec_err (aCtx, PDU_INVALID); + return; + } + + MLOG_CDEC1 ("Unconfirmed request opcode = %d",_mmsdec_rslt->op); + + _mmsdec_rslt->dec_level = 3; /* set flag that opcode is read OK */ + _mmsdec_rslt->id = UNREQ_INVOKE; + +/* Opcode has been saved. Check that the service corresponding to this */ +/* opcode is supported and there are no parse errors. */ + + if (!mmsdec_chk_req_op (aCtx, _mmsdec_rslt->op,UNCONF_UNREC_SERV)) + (*mms_req_decode_fun [_mmsdec_rslt->op]) (aCtx); /* continue decode */ + } + + +/************************************************************************/ +/* mmsdec_chk_req_op */ +/* mmsdec_chk_resp_op */ +/* This function checks whether the given opcode is supported as */ +/* request or response (or both), if the data element containing the */ +/* opcode is of the proper form (either primitive or constructor), */ +/* and if it is a NULL when it is supposed to be. The mmsop_en table */ +/* contains the opcode support information. */ +/* Returns 0 for success, else non-zero error code */ +/************************************************************************/ + +static ST_RET mmsdec_chk_req_op (ASN1_DEC_CTXT *aCtx, ST_INT opcode, ST_INT unsupp_code) + { +ST_UCHAR op_en; + +/* First check that opcode range, then whether it is enabled */ + + if ((opcode > MAX_MMSOP_DIS) || ! ((op_en = mmsop_en[opcode]) & RESP_EN)) + { + if (opcode <= MAX_MMSOP_DIS) + { + MLOG_NERR1 ("MMS service %s not supported as server (cannot decode request)", + mms_op_string[opcode]); + } + else + { + MLOG_NERR1 ("MMS service opcode %d out of range", opcode); + } + asn1r_set_dec_err (aCtx, unsupp_code); /* req not supported */ + return (MVE_REQ_NOT_SUPP); + } + else + { + if ((aCtx->asn1r_constr_elmnt && !(op_en & 0x04)) || + (!aCtx->asn1r_constr_elmnt && (op_en & 0x04)) || + (aCtx->asn1r_elmnt_len > 0 && (op_en & 0x10))) + { + asn1r_set_dec_err (aCtx, PDU_INVALID); + return (MVE_INVALID_PDU); + } + return (SD_SUCCESS); /* return success code */ + } + } + +/************************************************************************/ +static ST_RET mmsdec_chk_resp_op (ASN1_DEC_CTXT *aCtx, ST_UINT opcode) + { +ST_UCHAR op_en; + +/* First check that opcode range, then whether it is enabled */ + + if ((opcode > MAX_MMSOP_DIS) || ! ((op_en = mmsop_en[opcode]) & REQ_EN)) + { + if (opcode <= MAX_MMSOP_DIS) + { + MLOG_NERR1 ("MMS service %s not supported as client (cannot decode response)", + mms_op_string[opcode]); + } + else + { + MLOG_NERR1 ("MMS service opcode %d out of range", opcode); + } + + asn1r_set_dec_err (aCtx, RESP_UNREC_SERV); /* resp not supported */ + return (MVE_RESP_NOT_SUPP); + } + else + { + if (opcode == MMSOP_INIT_DOWNLOAD) + { +#ifndef MMS_LITE + if (mms_chan_info[_mmsdechan].version) /* IS */ +#else + if (mmsl_version) /* IS */ +#endif + { + if (aCtx->asn1r_constr_elmnt || aCtx->asn1r_elmnt_len) + { + asn1r_set_dec_err (aCtx, PDU_INVALID); + return (MVE_INVALID_PDU); + } + } + else /* DIS */ + { + if (!aCtx->asn1r_constr_elmnt || !aCtx->asn1r_elmnt_len) + { + asn1r_set_dec_err (aCtx, PDU_INVALID); + return (MVE_INVALID_PDU); + } + } + } + else + { + if ((aCtx->asn1r_constr_elmnt && !(op_en & 0x08)) || + (!aCtx->asn1r_constr_elmnt && (op_en & 0x08)) || + (aCtx->asn1r_elmnt_len > 0 && (op_en & 0x20))) + { + asn1r_set_dec_err (aCtx, PDU_INVALID); + return (MVE_INVALID_PDU); + } + } + + return (SD_SUCCESS); /* return success code */ + } + } + + +/************************************************************************/ +/* mmsdec_map_err */ +/* Function to map the error codes supplied by the generic ASN.1 tools */ +/* to the MMS error codes specified for the Reject service. Inputs are */ +/* the global variables: */ +/* ST_UINT16 aCtx->asn1r_pdu_dec_err; */ +/* MMSDEC_INFO *_mmsdec_rslt; */ +/* */ +/* (A aCtx->asn1r_pdu_dec_err value of 0 should not occur and maps to UNSPECIFIED.) */ +/************************************************************************/ +static ST_VOID mmsdec_map_err (ASN1_DEC_CTXT *aCtx) + { +ST_INT level; + + level = 0; + +/* asn1_pdu_dec_err codes of NO_DECODE_ERR are OK, and codes of > 15 have been */ +/* set by the MMS decode logic and so are OK. 15 is a special number */ +/* because the lowest reject code is a 0x10(REQ_UNSPECIFIED) */ + + if (aCtx->asn1r_pdu_dec_err == NO_DECODE_ERR || aCtx->asn1r_pdu_dec_err >= REQ_UNSPECIFIED) + { + _mmsdec_rslt->err_code = aCtx->asn1r_pdu_dec_err; + } + +/* We started to decode some type of PDU and it wasn't valid. Here we */ +/* try to determine how much of the PDU we parsed and generate a */ +/* pertainent error code */ + + else + { + level = _mmsdec_rslt -> dec_level; + if (level == 0) /* did we determine it's type ? */ + _mmsdec_rslt->err_code = PDU_INVALID; + else /* if we knew it's type we */ + { /* switch to figure out more */ + switch (_mmsdec_rslt->type) + { + +/* About the only time we get here and have to do this is when the MMS */ +/* decoder temporarily turned the decode over the the ASN.1 tools (via */ +/* parse_next, parse_cstr_contents, etc) and an error was discovered. */ +/* The error the ASN.1 tools will report is <= 15. Some, most or all */ +/* of the PDU was decoded. It's not fair to just say we couldn't tell */ +/* anything at all about the PDU. */ +/* These are the rules for determining what reject class and code get */ +/* returned for the rejected PDU. The protocol for the begining of */ +/* each MMSpdu is different so almost each type has to dealt with on an */ +/* individual basis. */ + + case MMSREQ : /* request for most confirmed services */ + if (level >= 2) + _mmsdec_rslt->err_code = REQ_INVAL_ARG; + else + _mmsdec_rslt->err_code = REQ_UNSPECIFIED; + break; + + case MMSRESP : /* response for most confirmed services */ + if (level >= 2) + _mmsdec_rslt->err_code = RESP_INVAL_RSLT; + else + _mmsdec_rslt->err_code = RESP_UNSPECIFIED; + break; + + case MMSERROR : /* error for most confirmed services */ + _mmsdec_rslt->err_code = ERR_UNSPECIFIED; + break; + + case MMSUNREQ : /* request for unconfirmed services */ + _mmsdec_rslt->err_code = UNCONF_UNSPECIFIED; + break; + + case MMSREJECT : /* reject */ + _mmsdec_rslt->err_code = PDU_UNKNOWN_TYPE; + break; + + case MMSCANREQ : /* request for the Cancel service */ + _mmsdec_rslt->err_code = CANREQ_UNSPECIFIED; + break; + + case MMSCANRESP : /* response for the Cancel service */ + _mmsdec_rslt->err_code = CANRESP_UNSPECIFIED; + break; + + case MMSCANERR : /* error for Cancel service */ + _mmsdec_rslt->err_code = CANERR_UNSPECIFIED; + break; + + case MMSINITREQ : /* request for Initiate service */ + _mmsdec_rslt->err_code = REQ_BAD_VALUE; + break; + + case MMSINITRESP : /* response for Initiate service */ + _mmsdec_rslt->err_code = RESP_BAD_VALUE; + break; + + case MMSINITERR : /* error for Initiate service */ + _mmsdec_rslt->err_code = ERR_BAD_VALUE; + break; + + case MMSCNCLREQ : /* request for Conclude service */ + _mmsdec_rslt->err_code = CONREQ_UNSPECIFIED; + break; + + case MMSCNCLRESP : /* response for Conclude service */ + _mmsdec_rslt->err_code = CONRESP_UNSPECIFIED; + break; + + case MMSCNCLERR : /* error for Conclude service */ + _mmsdec_rslt->err_code = CONERR_UNSPECIFIED; + break; + + default: + _mmsdec_rslt->err_code = PDU_INVALID; + break; + } + } + } + } + +/************************************************************************/ +/* mmsdec_assign_rid */ +/* Assign a reserved invoke ID for the given service on this channel */ +/* and store it in the _mmsdec_rslt structure. Also, set the opcode for */ +/* the specified service, which must be either Initiate or Conclude */ +/* (or their error responses). */ +/************************************************************************/ + +#ifndef MMS_LITE + +static ST_VOID mmsdec_assign_rid (ST_INT opcode) + { + /* assign reserved invoke id */ + if (opcode == MMSOP_INITIATE) + _mmsdec_rslt->id = INIT_INVOKE_ID + _mmsdechan; /* for Initiate */ + else + _mmsdec_rslt->id = CONCL_INVOKE_ID + _mmsdechan; /* for Conclude */ + + _mmsdec_rslt->op = opcode; /* save the opcode */ + _mmsdec_rslt->dec_level = 3; /* opcode & invoke ID are valid */ + } + +#endif + +/************************************************************************/ +/************************************************************************/ +/* _m_get_dec_buf */ +/************************************************************************/ + +ST_VOID *_m_get_dec_buf (ASN1_DEC_CTXT *aCtx, ST_UINT size) + { + _mms_dec_info = (*m_calloc_os_fun)(1, size); + aCtx->asn1r_err_fun = _mms_dec_buf_free; + _mms_dec_info_pres = SD_TRUE; + aCtx->asn1r_decode_method = ASN1_TAG_METHOD; /* select TAG method for get_mms_modifer*/ + return (_mms_dec_info); + } diff --git a/mmslib/mmsl/mmsdtext.c b/mmslib/mmsl/mmsdtext.c new file mode 100644 index 0000000..450f6a6 --- /dev/null +++ b/mmslib/mmsl/mmsdtext.c @@ -0,0 +1,729 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2004-2004 All Rights Reserved */ +/* */ +/* MODULE NAME : mmsdtext.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* Functions to convert local data to text. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* ms_local_to_text */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 05/13/08 JRB 04 Fix fraction & add qflags in LocToTextUtc. */ +/* 09/01/04 JRB 03 Add mmsdefs.h, mms_vvar.h (don't know how */ +/* it compiled before without them). */ +/* 08/06/04 JRB 02 Cast 1-st arg in call to LocToTextUtf8. */ +/* 01/23/04 JRB 01 New. Possible replacement for sxaLocalToText.*/ +/************************************************************************/ +#include "glbtypes.h" +#include "sysincs.h" +#include "time.h" +#include "time_str.h" +#include "mem_chk.h" +#include "mms_log.h" +#include "mmslog.h" +#include "mmsdefs.h" +#include "mms_vvar.h" /* need RUNTIME_TYPE */ + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +#define TEMP_DATA_BUF_SIZE (100*1024) +#define DATA_SEPARATOR '\n' /* newline */ + +/************************************************************************/ +/* AddString */ +/* Copy "Src" string to end of the "Dst" string. */ +/************************************************************************/ +static ST_RET AddString (ST_CHAR *Src, ST_CHAR *Dst, ST_UINT DstSize, ST_UINT *pDstLen) + { +ST_UINT tmpDstLen = *pDstLen; + /* Watch out for overrun */ + if ((tmpDstLen + strlen (Src) + 1) > DstSize) + { + MLOG_NERR0 ("Local->Text buffer overrun"); + return (SD_FAILURE); + } + + /* Add separator after each string. Later strip off last separator. */ + strcpy (&Dst[tmpDstLen],Src); + tmpDstLen += strlen (Src); + Dst[tmpDstLen++] = DATA_SEPARATOR; + *pDstLen = tmpDstLen; /* update caller's buf len */ + return (SD_SUCCESS); + } +/************************************************************************/ +/* LocToTextInt8 () */ +/************************************************************************/ +static ST_RET LocToTextInt8 (ST_INT8 *pSrc, RUNTIME_TYPE *rt, ST_CHAR *text) + { + sprintf (text,"%d", (int) *pSrc); + return (SD_SUCCESS); + } +/************************************************************************/ +/* LocToTextInt16 () */ +/************************************************************************/ +static ST_RET LocToTextInt16 (ST_INT16 *pSrc, RUNTIME_TYPE *rt, ST_CHAR *text) + { + sprintf (text,"%d",(int) *pSrc); + return (SD_SUCCESS); + } +/************************************************************************/ +/* LocToTextInt32 () */ +/************************************************************************/ +static ST_RET LocToTextInt32 (ST_INT32 *pSrc, RUNTIME_TYPE *rt, ST_CHAR *text) + { + sprintf (text,"%ld",*pSrc); + return (SD_SUCCESS); + } +/************************************************************************/ +/* LocToTextInt64 () */ +/************************************************************************/ +#if defined(INT64_SUPPORT) +static ST_RET LocToTextInt64 (ST_INT64 *pSrc, RUNTIME_TYPE *rt, ST_CHAR *text) + { +#ifdef _WIN32 + sprintf (text,"%I64d",*pSrc); +#elif defined(_AIX) || defined(__hpux) || defined(linux) || defined(sun) || defined(__LYNX) + sprintf (text,"%lld",*pSrc); +#elif (defined(__alpha) && !defined(__VMS)) + sprintf (text,"%ld",*pSrc); +#else + #error Missing INT64 code for this platform. +#endif + return (SD_SUCCESS); + } +#endif +/************************************************************************/ +/* LocToTextUint8 () */ +/************************************************************************/ +static ST_RET LocToTextUint8 (ST_UINT8 *pSrc, RUNTIME_TYPE *rt, ST_CHAR *text) + { + sprintf (text,"%u",(unsigned) *pSrc); + return (SD_SUCCESS); + } +/************************************************************************/ +/* LocToTextUint16 () */ +/************************************************************************/ +static ST_RET LocToTextUint16 (ST_UINT16 *pSrc, RUNTIME_TYPE *rt, ST_CHAR *text) + { + sprintf (text,"%u",(unsigned) *pSrc); + return (SD_SUCCESS); + } +/************************************************************************/ +/* LocToTextUint32 () */ +/************************************************************************/ +static ST_RET LocToTextUint32 (ST_UINT32 *pSrc, RUNTIME_TYPE *rt, ST_CHAR *text) + { + sprintf (text,"%lu",(unsigned long) *pSrc); + return (SD_SUCCESS); + } +/************************************************************************/ +/* LocToTextUint64 () */ +/************************************************************************/ +#if defined(INT64_SUPPORT) +static ST_RET LocToTextUint64 (ST_UINT64 *pSrc, RUNTIME_TYPE *rt, ST_CHAR *text) + { +#ifdef _WIN32 + sprintf (text,"%I64u", *pSrc); +#elif defined(_AIX) || defined(__hpux) || defined(linux) || defined(sun) || defined(__LYNX) + sprintf (text,"%llu", *pSrc); +#elif (defined(__alpha) && !defined(__VMS)) + sprintf (text,"%lu", *pSrc); +#else + #error Missing INT64 code for this platform. +#endif + return (SD_SUCCESS); + } +#endif +/************************************************************************/ +/* LocToTextBcd1 () */ +/************************************************************************/ +static ST_RET LocToTextBcd1 (ST_INT8 *pSrc, RUNTIME_TYPE *rt, ST_CHAR *text) + { + sprintf (text,"%d", (int) *pSrc); + return (SD_SUCCESS); + } +/************************************************************************/ +/* LocToTextBcd2 () */ +/************************************************************************/ +static ST_RET LocToTextBcd2 (ST_INT16 *pSrc, RUNTIME_TYPE *rt, ST_CHAR *text) + { + sprintf (text,"%d",(int) *pSrc); + return (SD_SUCCESS); + } +/************************************************************************/ +/* LocToTextBcd4 () */ +/************************************************************************/ +static ST_RET LocToTextBcd4 (ST_INT32 *pSrc, RUNTIME_TYPE *rt, ST_CHAR *text) + { + sprintf (text,"%ld",*pSrc); + return (SD_SUCCESS); + } +/************************************************************************/ +/* LocToTextBool () */ +/************************************************************************/ +static ST_RET LocToTextBool (ST_BOOLEAN *pSrc, RUNTIME_TYPE *rt, ST_CHAR *text) + { + sprintf (text,"%u",(unsigned) *pSrc); + return (SD_SUCCESS); + } +/************************************************************************/ +/* LocToTextFlt () */ +/************************************************************************/ +static ST_RET LocToTextFlt (ST_FLOAT *pSrc, RUNTIME_TYPE *rt, ST_CHAR *text) + { +#if defined(_WIN32) || defined(__QNX__) + /* 7 significant digits */ + /*gcvt((ST_DOUBLE) *pSrc, 7, text);*/ + sprintf (text, "%.4f", (ST_DOUBLE) (*pSrc)); +#else + sprintf (text, "%.7g", (ST_DOUBLE) (*pSrc)); +#endif + return (SD_SUCCESS); + } +/************************************************************************/ +/* LocToTextDbl () */ +/************************************************************************/ +static ST_RET LocToTextDbl (ST_DOUBLE *pSrc, RUNTIME_TYPE *rt, ST_CHAR *text) + { +#if defined(_WIN32) || defined(__QNX__) + /* 16 significant digits */ + gcvt(*pSrc, 16, text); +#else + sprintf (text, "%.16g", *pSrc); +#endif + return (SD_SUCCESS); + } +/************************************************************************/ +/* LocToTextOct */ +/************************************************************************/ +static ST_RET LocToTextOct (ST_UCHAR *pSrc, RUNTIME_TYPE *rt, ST_CHAR *text) + { +int i, k; +int numBytes; +ST_INT16 *sp; +ST_CHAR *destBuf; + + text[0] = 0; + numBytes = rt->u.p.el_len; + + if (numBytes < 0) /* a variable length octet string */ + { + sp = (ST_INT16 *) pSrc; + numBytes = *sp; + k=2; + } + else + k=0; + + /* We take 3 bytes per octet, make sure it fits */ + if (numBytes > TEMP_DATA_BUF_SIZE/3) + { + MLOG_NERR1 ("Octet String (%d bytes) too long to encode", numBytes); + return SD_FAILURE; + } + + destBuf = text; + for (i = 0; i < numBytes; ++i, ++k) + { + sprintf (destBuf, "%02x ", (unsigned int) pSrc[k]); + destBuf += 3; + } + + /* Eliminate the trailing space */ + *(destBuf - 1) = 0; +#ifdef WIN32 //renxiaobao mod + if(text[0]==0) strcpy(destBuf,"0"); +#endif + return (SD_SUCCESS); + } +/************************************************************************/ +/* LocToTextBs */ +/************************************************************************/ +static ST_RET LocToTextBs (ST_UCHAR *pSrc, RUNTIME_TYPE *rt, ST_CHAR *text) + { +int i; +int j; +int k; +int numBits; +ST_INT16 *sp; +ST_CHAR *destBuf; +ST_UCHAR mask; + + text[0] = 0; + numBits = rt->u.p.el_len; + +/* We take 1 dest byte per bit, make sure it fits */ + if (numBits > TEMP_DATA_BUF_SIZE-1) + { + MLOG_NERR1 ("Bit String (%d bits) too long to encode", numBits); + return (SD_FAILURE); + } + + if (numBits < 0) /* a variable length bit string */ + { + sp = (ST_INT16 *) pSrc; + numBits = *sp; + k=2; + } + else + k=0; + + destBuf = text; + for (i = 0; i < numBits; ++k) /* for each byte, while bits remain */ + { + mask = 0x80; + for (j = 0; j < 8 && i < numBits; ++i, ++j) + { + if (pSrc[k] & mask) + destBuf[i] = '1'; + else + destBuf[i] = '0'; + mask >>= 1; + } + } + destBuf[i] = 0; +#ifdef WIN32 //renxiaobao mod + if(text[0]==0) strcpy(destBuf,"0"); +#endif + return (SD_SUCCESS); + } +/************************************************************************/ +/* LocToTextBtime4 */ +/************************************************************************/ +static ST_RET LocToTextBtime4 (ST_INT32 *pSrc, RUNTIME_TYPE *rt, ST_CHAR *text) + { + if (Btime4ValsToString (text, *pSrc)) + { + MLOG_NERR0 ("Btime4 String conversion error."); + return (SD_FAILURE); + } + + return (SD_SUCCESS); + } +/************************************************************************/ +/* LocToTextBtime6 */ +/************************************************************************/ +static ST_RET LocToTextBtime6 (ST_INT32 *pSrc, RUNTIME_TYPE *rt, ST_CHAR *text) + { +ST_INT32 *pDays, *pMsec; + + pMsec = pSrc; + pDays = (pSrc+1); + if (Btime6ValsToString (text, *pDays, *pMsec)) + { + MLOG_NERR0 ("Btime6 String conversion error."); + return (SD_FAILURE); + } + + return (SD_SUCCESS); + } +/************************************************************************/ +/* LocToTextGtime */ +/************************************************************************/ +static ST_RET LocToTextGtime (time_t *pSrc, RUNTIME_TYPE *rt, ST_CHAR *text) + { + if (tstrTimeToString (*pSrc, text)) + { + MLOG_NERR0 ("Time to String conversion error"); + return (SD_FAILURE); + } + + return (SD_SUCCESS); + } +/************************************************************************/ +/* LocToTextUtc */ +/************************************************************************/ +#ifdef WIN32 +//void printf_utctime(char *buf,void *utctime);//lnk±àÒëɾ³ý£¬Ô­Ç°ÖóÌÐòδʹÓà +#endif +static ST_RET LocToTextUtc (MMS_UTC_TIME *pSrc, RUNTIME_TYPE *rt, ST_CHAR *text) + { +#ifdef WIN32 + char tmpbuf[128]; + //printf_utctime(text,pSrc); + strcpy(text, "");//lnk±àÒëÐ޸ģ¬Ô­Ç°ÖóÌÐòδʹÓà +/* sprintf (tmpbuf," %02x",pSrc->qflags);*/ /*renxiaobao ʱ¼äÆ·ÖÊ*/ +/* strcat(text,tmpbuf);*/ +#else + sprintf (text,"UTC TIME seconds=%lu, fraction=%lu, qflags=%lu", + pSrc->secs, pSrc->fraction, pSrc->qflags); +#endif + return (SD_SUCCESS); + } +/************************************************************************/ +/* LocToTextUtf8 */ +/************************************************************************/ +#ifdef WIN32 +//void utf8_convert_gb2312(char *pOut, char *pText, int pLen); //lnk±àÒëɾ³ý£¬Ô­Ç°ÖóÌÐòδʹÓà +#endif +static ST_RET LocToTextUtf8 (ST_UCHAR *pSrc, RUNTIME_TYPE *rt, ST_CHAR *text) + { +#ifdef WIN32 + int len =strlen((char *)pSrc); + //if(len) utf8_convert_gb2312(text,(char *)pSrc,len);//lnk±àÒëÐ޸ģ¬Ô­Ç°ÖóÌÐòδʹÓà + if (len) { + memcpy(text, pSrc, len); + text[len] = 0; + } + else strcpy(text," "); + return (SD_SUCCESS); +#endif + sprintf (text,"UTF8string: can't display"); + return (SD_SUCCESS); + } + +/************************************************************************/ +/* ms_local_to_text */ +/* NOTE: tmpBuf is passed to most "LocToText.." static functions. These */ +/* functions must NOT write past end of tmpBuf. */ +/************************************************************************/ + +ST_CHAR *ms_local_to_text (ST_CHAR *datptr, SD_CONST RUNTIME_TYPE *rt_head, ST_INT rt_num, + ST_CHAR *textBuf, ST_UINT textBufSize) + { +RUNTIME_TYPE *rt_ptr; +RUNTIME_TYPE *rt_end; +ST_RET uDataRet; +ST_INT arr_loop_level,total_len; +ST_INT arr_loops[ASN1_MAX_LEVEL]; +ST_CHAR *ret_ptr; +static ST_CHAR tmpBuf[TEMP_DATA_BUF_SIZE]; +ST_UINT nStrLen = 0; /* Current text total length */ + + + tmpBuf[0] = 0;/*renxiaobao add*/ + + nStrLen = 0; + + arr_loop_level = 0; + + rt_ptr = (RUNTIME_TYPE *) rt_head; /* point to head rt_block */ + rt_end = rt_ptr + rt_num; /* done when pointer is here */ + + uDataRet = SD_SUCCESS; + while (rt_ptr < rt_end && uDataRet == SD_SUCCESS) + { + if (rt_ptr->el_tag == RT_ARR_END) /* treat case of array ending */ + { + if (--arr_loops[arr_loop_level] > 0) /* if need to do next ar elmnt */ + rt_ptr -= rt_ptr->u.arr.num_rt_blks; /* mv rt_ptr to start of arr */ + else + --arr_loop_level; + } + if (rt_ptr->el_tag == RT_ARR_START) /* treat case of array starting */ + { + /* initialize the loop counter for the array */ + ++arr_loop_level; + arr_loops[arr_loop_level] = rt_ptr->u.arr.num_elmnts; + } + + switch (rt_ptr->el_tag) + { + case RT_ARR_START : + break; /* do nothing */ + + case RT_ARR_END : /* array done */ + break; /* do nothing */ + + case RT_STR_START : + uDataRet = AddString ("{", textBuf, textBufSize, &nStrLen); + break; + + case RT_STR_END : /* structure done */ + uDataRet = AddString ("}", textBuf, textBufSize, &nStrLen); + break; + + case RT_BOOL : + uDataRet = LocToTextBool ((ST_BOOLEAN *) datptr, rt_ptr, tmpBuf); + if (uDataRet==SD_SUCCESS) /* If converted OK, add to working text*/ + uDataRet = AddString (tmpBuf, textBuf, textBufSize, &nStrLen); + break; + + case RT_BIT_STRING : + uDataRet = LocToTextBs ((ST_UCHAR *) datptr, rt_ptr, tmpBuf); + if (uDataRet==SD_SUCCESS) /* If converted OK, add to working text*/ + uDataRet = AddString (tmpBuf, textBuf, textBufSize, &nStrLen); + break; + + case RT_INTEGER : + switch (rt_ptr->u.p.el_len) /* determine length */ + { + case 1 : /* one byte int */ + uDataRet = LocToTextInt8 ((ST_INT8 *) datptr, rt_ptr, tmpBuf); + break; + + case 2 : /* two byte int */ + uDataRet = LocToTextInt16 ((ST_INT16 *) datptr, rt_ptr, tmpBuf); + break; + + case 4 : /* four byte integer */ + uDataRet = LocToTextInt32 ((ST_INT32 *) datptr, rt_ptr, tmpBuf); + break; + +#ifdef INT64_SUPPORT + case 8 : /* eight byte integer */ + uDataRet = LocToTextInt64 ((ST_INT64 *) datptr, rt_ptr, tmpBuf); + break; +#endif + default: + uDataRet = SD_FAILURE; + break; + } + if (uDataRet==SD_SUCCESS) /* If converted OK, add to working text*/ + uDataRet = AddString (tmpBuf, textBuf, textBufSize, &nStrLen); + break; + + case RT_UNSIGNED : + switch (rt_ptr->u.p.el_len) /* determine length */ + { + case 1 : /* one byte int */ + uDataRet = LocToTextUint8 ((ST_UCHAR *) datptr, rt_ptr, tmpBuf); + break; + + case 2 : /* two byte int */ + uDataRet = LocToTextUint16 ((ST_UINT16 *) datptr, rt_ptr, tmpBuf); + break; + + case 4 : /* four byte integer */ + uDataRet = LocToTextUint32 ((ST_UINT32 *) datptr, rt_ptr, tmpBuf); + break; + +#ifdef INT64_SUPPORT + case 8 : /* eight byte integer */ + uDataRet = LocToTextUint64 ((ST_UINT64 *) datptr, rt_ptr, tmpBuf); + break; +#endif /* INT64_SUPPORT */ + default: + uDataRet = SD_FAILURE; + break; + } + if (uDataRet==SD_SUCCESS) /* If converted OK, add to working text*/ + uDataRet = AddString (tmpBuf, textBuf, textBufSize, &nStrLen); + break; + +#ifdef FLOAT_DATA_SUPPORT + case RT_FLOATING_POINT : + if (rt_ptr->u.p.el_len != sizeof (ST_FLOAT)) + uDataRet = LocToTextDbl ((ST_DOUBLE *) datptr, rt_ptr, tmpBuf); + else + uDataRet = LocToTextFlt ((ST_FLOAT *) datptr, rt_ptr, tmpBuf); + if (uDataRet==SD_SUCCESS) /* If converted OK, add to working text*/ + uDataRet = AddString (tmpBuf, textBuf, textBufSize, &nStrLen); + break; +#endif + + case RT_OCTET_STRING : + uDataRet = LocToTextOct ((ST_UCHAR *) datptr, rt_ptr, tmpBuf); + if (uDataRet==SD_SUCCESS) /* If converted OK, add to working text*/ + uDataRet = AddString (tmpBuf, textBuf, textBufSize, &nStrLen); + break; + + case RT_VISIBLE_STRING : /* No conversion needed. Just add to working text*/ + #ifdef WIN32 //renxiaobao mod + if(datptr[0]==0) uDataRet = AddString (" ", textBuf, textBufSize, &nStrLen); + else + #endif + uDataRet = AddString (datptr, textBuf, textBufSize, &nStrLen); + break; + +#ifdef TIME_DATA_SUPPORT + case RT_GENERAL_TIME : + uDataRet = LocToTextGtime ((time_t *) datptr, rt_ptr, tmpBuf); + if (uDataRet==SD_SUCCESS) /* If converted OK, add to working text*/ + uDataRet = AddString (tmpBuf, textBuf, textBufSize, &nStrLen); + break; +#endif + +#ifdef BTOD_DATA_SUPPORT + case RT_BINARY_TIME : + switch (rt_ptr->u.p.el_len) /* determine length */ + { + case 4: + uDataRet = LocToTextBtime4 ((ST_INT32 *) datptr, rt_ptr, tmpBuf); + break; + case 6: + uDataRet = LocToTextBtime6 ((ST_INT32 *) datptr, rt_ptr, tmpBuf); + break; + default: + uDataRet = SD_FAILURE; + break; + } + if (uDataRet==SD_SUCCESS) /* If converted OK, add to working text*/ + uDataRet = AddString (tmpBuf, textBuf, textBufSize, &nStrLen); + break; +#endif + + case RT_BCD : + if (rt_ptr->u.p.el_len <= 2) + uDataRet = LocToTextBcd1 ((ST_INT8 *) datptr, rt_ptr, tmpBuf); + else if (rt_ptr->u.p.el_len <= 4) + uDataRet = LocToTextBcd2 ((ST_INT16 *) datptr, rt_ptr, tmpBuf); + else if (rt_ptr->u.p.el_len <= 8) + uDataRet = LocToTextBcd4 ((ST_INT32 *) datptr, rt_ptr, tmpBuf); + else + uDataRet = SD_FAILURE; + if (uDataRet==SD_SUCCESS) /* If converted OK, add to working text*/ + uDataRet = AddString (tmpBuf, textBuf, textBufSize, &nStrLen); + break; + + case RT_UTC_TIME : + uDataRet = LocToTextUtc ((MMS_UTC_TIME *) datptr, rt_ptr, tmpBuf); + if (uDataRet==SD_SUCCESS) /* If converted OK, add to working text*/ + uDataRet = AddString (tmpBuf, textBuf, textBufSize, &nStrLen); + break; + + case RT_UTF8_STRING : + uDataRet = LocToTextUtf8 ((ST_UCHAR *) datptr, rt_ptr, tmpBuf); + if (uDataRet==SD_SUCCESS) /* If converted OK, add to working text*/ + uDataRet = AddString (tmpBuf, textBuf, textBufSize, &nStrLen); + break; + + default : /* should not be any other tag */ + MLOG_ERR1 ("Invalid tag: %d", (int) rt_ptr->el_tag); + uDataRet = SD_FAILURE; + break; + } + if(strlen (tmpBuf)>sizeof (tmpBuf)) + { + total_len = strlen (tmpBuf); + } + assert (strlen (tmpBuf) < sizeof (tmpBuf)); /* Must not exceed buffer*/ + + datptr += rt_ptr->el_size; /* Adjust data pointer */ + rt_ptr++; /* point to next rt element */ + } + + assert (nStrLen <= textBufSize); /* checked in AddString so this should never fail*/ + if (uDataRet) + ret_ptr = NULL; + else + { + textBuf [--nStrLen] = '\0'; /* replace last '\n' with '\0' */ + ret_ptr = textBuf; + } + return (ret_ptr); + } +#if defined(WIN32) +char *va_data_to_text (char **va_data,RUNTIME_TYPE **rt_head, RUNTIME_TYPE *rt_end,int read_num) +{ + static char ret_text[128]; + static char ret_text_buf[12800]; + RUNTIME_TYPE *rt_ptr; + char *datptr,done; + ST_RET uDataRet; + static int arr_loop_level; + static int arr_loops[ASN1_MAX_LEVEL]; + + + rt_ptr = *rt_head; + datptr = *va_data; + ret_text_buf[0] = 0; + ret_text[0] = 0; + if(read_num==0) arr_loop_level = 0; + done = 0; + while(rt_ptrel_tag == RT_ARR_END) + { + if(--arr_loops[arr_loop_level] > 0) rt_ptr -= rt_ptr->u.arr.num_rt_blks; + else --arr_loop_level; + } + if (rt_ptr->el_tag == RT_ARR_START) + { + ++arr_loop_level;arr_loops[arr_loop_level] = rt_ptr->u.arr.num_elmnts; + } + switch (rt_ptr->el_tag) + { + case RT_ARR_START : break; + case RT_ARR_END : break; + case RT_STR_START : break; + case RT_STR_END : break; + case RT_BOOL : + uDataRet = LocToTextBool ((ST_BOOLEAN *)datptr, rt_ptr, ret_text); + done = 1; + break; + case RT_BIT_STRING : + uDataRet = LocToTextBs ((ST_UCHAR *) datptr, rt_ptr, ret_text); + done = 1; + break; + case RT_INTEGER : + if (rt_ptr->u.p.el_len==1) uDataRet = LocToTextInt8 ((ST_INT8 *) datptr, rt_ptr, ret_text); + else if(rt_ptr->u.p.el_len==2) uDataRet = LocToTextInt16((ST_INT16 *) datptr, rt_ptr, ret_text); + else if(rt_ptr->u.p.el_len==4) uDataRet = LocToTextInt32((ST_INT32 *) datptr, rt_ptr, ret_text); + done = 1; + break; + case RT_UNSIGNED : + if (rt_ptr->u.p.el_len==1) uDataRet = LocToTextUint8 ((ST_UINT8 *) datptr, rt_ptr, ret_text); + else if(rt_ptr->u.p.el_len==2) uDataRet = LocToTextUint16((ST_UINT16 *) datptr, rt_ptr, ret_text); + else if(rt_ptr->u.p.el_len==4) uDataRet = LocToTextUint32((ST_UINT32 *) datptr, rt_ptr, ret_text); + done = 1; + break; + case RT_FLOATING_POINT : + if (rt_ptr->u.p.el_len != sizeof (ST_FLOAT)) + uDataRet = LocToTextDbl ((ST_DOUBLE *) datptr, rt_ptr, ret_text); + else + uDataRet = LocToTextFlt ((ST_FLOAT *) datptr, rt_ptr, ret_text); + done = 1; + break; + case RT_OCTET_STRING : + uDataRet = LocToTextOct ((ST_UCHAR *) datptr, rt_ptr, ret_text); + done = 1; + break; + case RT_VISIBLE_STRING : + strcpy(ret_text,datptr); + done = 1; + break; + case RT_GENERAL_TIME : + uDataRet = LocToTextGtime ((time_t *) datptr, rt_ptr, ret_text); + done = 1; + break; + case RT_BINARY_TIME : + if (rt_ptr->u.p.el_len==4) LocToTextBtime4 ((ST_INT32 *) datptr, rt_ptr, ret_text); + else if(rt_ptr->u.p.el_len==6) LocToTextBtime6 ((ST_INT32 *) datptr, rt_ptr, ret_text); + done = 1; + break; + case RT_BCD : + if(rt_ptr->u.p.el_len <= 2) + uDataRet = LocToTextBcd1 ((ST_INT8 *) datptr, rt_ptr, ret_text); + else if (rt_ptr->u.p.el_len <= 4) + uDataRet = LocToTextBcd2 ((ST_INT16 *) datptr, rt_ptr, ret_text); + else if (rt_ptr->u.p.el_len <= 8) + uDataRet = LocToTextBcd4 ((ST_INT32 *) datptr, rt_ptr, ret_text); + done = 1; + break; + case RT_UTC_TIME : + uDataRet = LocToTextUtc ((MMS_UTC_TIME *) datptr, rt_ptr, ret_text); + done = 1; + break; + case RT_UTF8_STRING : + uDataRet = LocToTextUtf8 ((ST_UCHAR *) datptr, rt_ptr, ret_text); + done = 1; + break; + default : + break; + } + datptr += rt_ptr->el_size; + rt_ptr++; + if(done) strcat(ret_text_buf,ret_text); + if((read_num>=0)&&(done)) break; + done=0; + } + *rt_head=rt_ptr; + *va_data=datptr; + return ret_text_buf; +} +#endif diff --git a/mmslib/mmsl/mmsinit.c b/mmslib/mmsl/mmsinit.c new file mode 100644 index 0000000..71029b1 --- /dev/null +++ b/mmslib/mmsl/mmsinit.c @@ -0,0 +1,587 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : mmsinit.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the common functions to decode and encode */ +/* an initiate operation. Note that the initiate request and the */ +/* initiate response are the same. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/31/03 JRB 06 Support MMS Version2. */ +/* asn1r_get_bitstr: add max_bits arg. */ +/* If received bitstr too long, truncate. */ +/* If received bitstr too short, set missing bits=0*/ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 04 Added SD_CONST modifiers */ +/* 03/23/99 MDE 03 Changes to decode buffer allocation scheme */ +/* 12/10/97 MDE 02 Chaned max_nest to ST_INT8 */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 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_pcon.h" +#include "asn1defs.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +#define MMS_V0_PARAM_SUPP_BITS 7 /* DIS */ +#define MMS_V1_PARAM_SUPP_BITS 11 +#define MMS_V1_SERV_SUPP_BITS 85 +/************************************************************************/ + +static INIT_INFO *info; + +#ifdef CS_SUPPORT +static CS_INIT_INFO *cs_info; +static ST_UCHAR *init_detail_start; +#endif + +static ST_BOOLEAN request; /* req/resp flag */ +static ST_RET val_err; /* asn1_set_dec_err code for bad value */ + + +/************************************************************************/ +/* static functions in this module */ +static ST_VOID get_maxseg (ASN1_DEC_CTXT *aCtx); +static ST_VOID get_maxreq_calling (ASN1_DEC_CTXT *aCtx); +static ST_VOID get_maxreq_called (ASN1_DEC_CTXT *aCtx); +static ST_VOID get_max_nest (ASN1_DEC_CTXT *aCtx); +static ST_VOID get_detail_seq (ASN1_DEC_CTXT *aCtx); +static ST_VOID get_version (ASN1_DEC_CTXT *aCtx); +static ST_VOID get_param_prim (ASN1_DEC_CTXT *aCtx); +static ST_VOID get_param_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID get_param_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID get_services_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID get_services_prim (ASN1_DEC_CTXT *aCtx); +static ST_VOID get_services_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID mms_detail_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID init_seq_done (ASN1_DEC_CTXT *aCtx); + +/************************************************************************/ +/************************************************************************/ +/* _mms_init_dec */ +/* This function is called from mmsdec.c when an initiate (req or resp) */ +/* is being decoded. We are in the InitiatePDU sequence. */ +/* Allocate an operation specific structure and set up to get either */ +/* the segment size or the max outstanding calling */ +/************************************************************************/ + +ST_VOID _mms_init_dec (ASN1_DEC_CTXT *aCtx, ST_BOOLEAN req) + { + request = req; /* save the request flag */ + if (request) + val_err = REQ_BAD_VALUE; + else + val_err = RESP_BAD_VALUE; + +/* Create an init_info structure data area to put the decoded info into.*/ + + + /* CRITICAL: "info" struct must be calloc'd, so if received bitstrings + * are too short, the missing bits=0. + */ +#ifdef CS_SUPPORT + if (_mmsdec_ctxt == MMS_PCI) + info = (INIT_INFO *) _m_get_dec_buf (aCtx, sizeof (INIT_INFO)); + else + cs_info = (CS_INIT_INFO *) _m_get_dec_buf (aCtx, sizeof (CS_INIT_INFO)); +#else + info = (INIT_INFO *) _m_get_dec_buf (aCtx, sizeof (INIT_INFO)); +#endif + + ASN1R_TAG_ADD (aCtx, CTX,0,get_maxseg); /* max seg size (opt) */ + ASN1R_TAG_ADD (aCtx, CTX,1,get_maxreq_calling); /* max outstdg calling */ + } + + +/************************************************************************/ +/* get_maxseg */ +/* The max_msgsegsize parameter has been encountered. Read its value. */ +/************************************************************************/ + +static ST_VOID get_maxseg (ASN1_DEC_CTXT *aCtx) + { +ST_INT32 local_detail; + + MLOG_CDEC0 ("get_maxseg"); + + if (asn1r_get_i32 (aCtx, &local_detail) || local_detail < 0) + { + if (request) + asn1r_set_dec_err (aCtx, REQ_INVAL_ARG); + else + asn1r_set_dec_err (aCtx, RESP_INVAL_RSLT); + } + else + { +#ifdef CS_SUPPORT + if (_mmsdec_ctxt == MMS_PCI) + { + info->max_segsize_pres = SD_TRUE; /* set present flag for segsize */ + info->max_segsize = local_detail; + } + else + { + cs_info->local_detail_pres = SD_TRUE; /* set present flag */ + cs_info->local_detail = local_detail; + } +#else + info->max_segsize_pres = SD_TRUE; /* set present flag for segsize */ + info->max_segsize = local_detail; +#endif + ASN1R_TAG_ADD (aCtx, CTX,1,get_maxreq_calling); + } + } + +/************************************************************************/ +/* get_maxreq_calling */ +/* proposed/negiotiated max outstanding calling encountered */ +/************************************************************************/ + +static ST_VOID get_maxreq_calling (ASN1_DEC_CTXT *aCtx) + { +ST_INT16 maxreq_calling; + + MLOG_CDEC0 ("get_maxreq_calling"); + +/* Get the value of the maxreq_calling parameter. */ + + if (asn1r_get_i16 (aCtx, &maxreq_calling)) + asn1r_set_dec_err (aCtx, val_err); + +#ifdef CS_SUPPORT + if (_mmsdec_ctxt == MMS_PCI) + info->maxreq_calling = maxreq_calling; + else + cs_info->maxreq_calling = maxreq_calling; +#else + info->maxreq_calling = maxreq_calling; +#endif + +/* The next data element is the maxreq_called parameter. */ + + ASN1R_TAG_ADD (aCtx, CTX,2,get_maxreq_called); + } + +/************************************************************************/ +/* get_maxreq_called */ +/* proposed/negiotiated max outstanding called encountered */ +/************************************************************************/ + +static ST_VOID get_maxreq_called (ASN1_DEC_CTXT *aCtx) + { +ST_INT16 maxreq_called; + + MLOG_CDEC0 ("get_maxreq_called"); + +/* Get the value of the maxreq_called parameter. */ + + if (asn1r_get_i16 (aCtx, &maxreq_called)) + asn1r_set_dec_err (aCtx, val_err); + +#ifdef CS_SUPPORT + if (_mmsdec_ctxt == MMS_PCI) + info->maxreq_called = maxreq_called; + else + cs_info->maxreq_called = maxreq_called; +#else + info->maxreq_called = maxreq_called; +#endif + +/* The next data element is either the max_nest parameter (optional) or */ +/* the initiate detail sequence or the CS detail. */ +/* All are optional, so we could be done */ + + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = init_seq_done; + ASN1R_TAG_ADD (aCtx, CTX,3,get_max_nest); + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,4,get_detail_seq); + } + +/************************************************************************/ +/* get_max_nest */ +/* The max_nest parameter has been encountered. Read its value. */ +/************************************************************************/ + +static ST_VOID get_max_nest (ASN1_DEC_CTXT *aCtx) + { +ST_INT8 max_nest; + + MLOG_CDEC0 ("get_max_nest"); + +/* Get the value of the max_nest parameter. */ + + if (asn1r_get_i8 (aCtx, &max_nest)) + asn1r_set_dec_err (aCtx, val_err); + else + { +#ifdef CS_SUPPORT + if (_mmsdec_ctxt == MMS_PCI) + { + info->max_nest_pres = SD_TRUE; + info->max_nest = max_nest; + } + else + { + cs_info->max_nest_pres = SD_TRUE; + cs_info->max_nest = max_nest; + /* Initiate detail sequence may be next, or CS detail */ + init_detail_start = aCtx->asn1r_field_ptr; + } +#else + info->max_nest_pres = SD_TRUE; + info->max_nest = max_nest; +#endif + } + + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,4,get_detail_seq); + } + +/************************************************************************/ +/* get_detail_seq */ +/* The mms init detail sequence is now starting, first is version # */ +/************************************************************************/ + +static ST_VOID get_detail_seq (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("get_detail_seq"); + +/* Check if decoding an MMS CORE Initiate or a CS Initiate */ + +#ifdef CS_SUPPORT + if (_mmsdec_ctxt == MMS_PCI) + { + info->mms_detail_pres = SD_TRUE; /* set detail present flag */ + ASN1R_TAG_ADD (aCtx, CTX,0,get_version); /* Next comes version */ + } + else /* Companion Standard Initiate, accept sequence */ + asn1r_parse_cstr_contents (aCtx, mms_detail_cstr_done); +#else + info->mms_detail_pres = SD_TRUE; /* set detail present flag */ + ASN1R_TAG_ADD (aCtx, CTX,0,get_version); /* Next comes version */ +#endif + } + +/************************************************************************/ +/* get_version */ +/* The mms init detail sequence is now starting, this is version # */ +/************************************************************************/ + +static ST_VOID get_version (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("get_version"); + +/* Get the value of the max_nest parameter. */ + + if (asn1r_get_i16 (aCtx, &info->version) || info->version <0) + asn1r_set_dec_err (aCtx, val_err); + +/* Next is parameter support options, a 6 bit bitstring (prim or cstr) */ + + ASN1R_TAG_ADD (aCtx, CTX,1,get_param_prim); + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,1,get_param_cstr); + } + + +/************************************************************************/ +/* get_param_prim */ +/* The parameter support BS has been encountered as a primitive data */ +/* element. Read its value. */ +/************************************************************************/ + +static ST_VOID get_param_prim (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("get_param_prim"); + + /* NOTE: decode only the bits we recognize. + * For version0 (DIS) should get 7 bits. + * For version1 (IS) should get 11 bits. + * For version2 and higher, may get more than 11, but we ignore the + * higher bits because we don't support them. + */ + if (!asn1r_get_bitstr (aCtx, info->param_supp, MMS_V1_PARAM_SUPP_BITS)) + get_param_done (aCtx); /* set up for the next data element */ + else + asn1r_set_dec_err (aCtx, val_err); + } + +/************************************************************************/ +/* get_param_cstr */ +/* The parameter suport has been encountered as a constructor data */ +/* element. Read its value. */ +/************************************************************************/ + +static ST_VOID get_param_cstr (ASN1_DEC_CTXT *aCtx) + { + + MLOG_CDEC0 ("get_param_cstr"); + +/* Set up to call this function when done with constructor bitstring. */ + + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = get_param_done; + +/* Get the value of the parameter support. For constructor */ +/* bitstrings, this requires returning and letting the ASN.1 tools */ +/* parse it to any nesting level. */ + + asn1r_get_bitstr_cstr (aCtx, MMS_V1_PARAM_SUPP_BITS,info->param_supp); + } + +/************************************************************************/ +/* get_param_done */ +/* Function called after the supported parameter has been parsed. */ +/************************************************************************/ + +static ST_VOID get_param_done (ASN1_DEC_CTXT *aCtx) + { + + MLOG_CDEC0 ("get_param_done"); + + ASN1R_TAG_ADD (aCtx, CTX,2,get_services_prim); + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,2,get_services_cstr); + } + +/************************************************************************/ +/* get_services_prim */ +/* The services support BS has been encountered as a primitive data */ +/* element. Read its value. */ +/************************************************************************/ + +static ST_VOID get_services_prim (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("get_services_prim"); + + /* NOTE: decode only the bits we recognize. + * For version0 (DIS) and version1 (IS) should get 85 bits. + * For version2 and higher, may get more than 85, but we ignore the + * higher bits because we don't support them. + */ + if (!asn1r_get_bitstr (aCtx, info->serv_supp, MMS_V1_SERV_SUPP_BITS)) + get_services_done (aCtx); /* set up for the next data element */ + else + asn1r_set_dec_err (aCtx, val_err); + } + +/************************************************************************/ +/* get_services_cstr */ +/* The service suport BS has been encountered as a constructor data */ +/* element. Read its value. */ +/************************************************************************/ + +static ST_VOID get_services_cstr (ASN1_DEC_CTXT *aCtx) + { + + MLOG_CDEC0 ("get_services_cstr"); + +/* Set up to call this function when done with constructor bitstring. */ + + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = get_services_done; + +/* Get the value of the service support. For constructor */ +/* bitstrings, this requires returning and letting the ASN.1 tools */ +/* parse it to any nesting level. */ + + asn1r_get_bitstr_cstr (aCtx, MMS_V1_SERV_SUPP_BITS,info->serv_supp); + } + +/************************************************************************/ +/* get_services_done */ +/* Function called when entire mms_detail constructor is done */ +/************************************************************************/ + +static ST_VOID get_services_done (ASN1_DEC_CTXT *aCtx) + { + + MLOG_CDEC0 ("get_services_done"); + + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = mms_detail_cstr_done; + } + +/************************************************************************/ +/* mms_detail_cstr_done */ +/* Function called when entire mms_detail constructor is done */ +/************************************************************************/ + +static ST_VOID mms_detail_cstr_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("mms_detail_cstr_done"); + +#ifdef CS_SUPPORT + if (_mmsdec_ctxt != MMS_PCI) + { + cs_info->init_detail_len = aCtx->asn1r_field_ptr - init_detail_start; + cs_info->init_detail = init_detail_start; + } +#endif + } + +/************************************************************************/ +/* init_seq_done */ +/* The parse of the Initiate PDU is complete, either with or without */ +/* CS detail. Just set decode done flag. */ +/************************************************************************/ + +static ST_VOID init_seq_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("init_seq_done"); + + aCtx->asn1r_decode_done = SD_TRUE; + aCtx->asn1r_decode_done_fun = _mms_dec_done_ok; + } + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_init */ +/* Function to construct an Initiate request or response PDU in the */ +/* selected buffer. Pass a pointer to the end of the build buffer, and */ +/* a pointer to a structure of type init_info that contains the build */ +/* control and data information. Returns a pointer to the first byte */ +/* of the encoded message. */ +/************************************************************************/ + +ST_UCHAR *_ms_mk_init (ASN1_ENC_CTXT *aCtx, ST_UCHAR *buf_ptr, ST_INT buf_len, + INIT_INFO *info_ptr, ST_INT pdutype, + ST_BOOLEAN cs_init) + { +#ifdef DEBUG_SISCO +ST_UCHAR *msg_start; /* These variables used for */ +ST_INT msg_len; /* debug print only. */ +#endif +#ifdef CS_SUPPORT +CS_INIT_INFO *cs_init_ptr; +#endif + + asn1r_strt_asn1_bld (aCtx, buf_ptr,buf_len); /* Initialize the ASN.1 tools */ + +#ifdef CS_SUPPORT + if (cs_init) /* COMPANION STANDARD INITIATE PDU */ + { + cs_init_ptr = (CS_INIT_INFO *) info_ptr; + +/* write the CS init detail constructor */ + asn1r_strt_constr (aCtx); /* start the CTX 5 cstr */ + asn1r_wr_octstr (aCtx, cs_init_ptr->init_detail,cs_init_ptr->init_detail_len); + asn1r_fin_constr (aCtx, 4,CTX,DEF); /* close the CS detail cstr */ + +/* maximum data nesting (optional) */ + if (cs_init_ptr->max_nest_pres) /* if desired to send - */ + { + asn1r_wr_i8 (aCtx, (ST_CHAR)cs_init_ptr->max_nest); + asn1r_fin_prim (aCtx, 3,CTX); /* context-specific, tag 2 */ + } + +/* max outstanding requests from called MMS-user */ + asn1r_wr_i16 (aCtx, cs_init_ptr->maxreq_called); + asn1r_fin_prim (aCtx, 2,CTX); /* context-specific, tag 2 */ + +/* max outstanding requests from calling MMS-user */ + asn1r_wr_i16 (aCtx, cs_init_ptr->maxreq_calling); + asn1r_fin_prim (aCtx, 1,CTX); /* context-specific, tag 1 */ + +/* max segment size (optional) */ + if (cs_init_ptr->local_detail_pres) /* if enabled */ + { + asn1r_wr_i32 (aCtx, cs_init_ptr->local_detail); + asn1r_fin_prim (aCtx, 0,CTX); /* context-specific, tag 0 */ + } + } + else /* MMS CORE INITIATE PDU */ + { +#endif +/* Now begin writing primitive data elements from back of PDU to front. */ + +/* write the mms init detail constructor, if enabled */ + if (info_ptr->mms_detail_pres) /* if we have MMS detail */ + { + asn1r_strt_constr (aCtx); + asn1r_wr_bitstr (aCtx, info_ptr->serv_supp,MMS_V1_SERV_SUPP_BITS); /* services supported BS */ + asn1r_fin_prim (aCtx, 2,CTX); /* context-specific, tag 2 */ + +/* parameters supported BS, write either 7 (DIS) or 11 (IS) bits */ + if (info_ptr->version == 0) /* If DIS is being proposed */ + { + asn1r_wr_bitstr (aCtx, info_ptr->param_supp,MMS_V0_PARAM_SUPP_BITS); + asn1r_fin_prim (aCtx, 1,CTX); + } + else /* IS is being proposed */ + { + asn1r_wr_bitstr (aCtx, info_ptr->param_supp,MMS_V1_PARAM_SUPP_BITS); + asn1r_fin_prim (aCtx, 1,CTX); /* context-specific, tag 1 */ + } + + asn1r_wr_i16 (aCtx, info_ptr->version); /* version number */ + asn1r_fin_prim (aCtx, 0,CTX); /* context-specific, tag 0 */ + + asn1r_fin_constr (aCtx, 4,CTX,DEF); /* close the MMS detail cstr */ + } + +/* Now write the core initiate parameters */ + +/* maximum data nesting (optional) */ + if (info_ptr->max_nest_pres) /* if desired to send - */ + { + asn1r_wr_i8 (aCtx, (ST_CHAR)info_ptr->max_nest); + asn1r_fin_prim (aCtx, 3,CTX); /* context-specific, tag 2 */ + } + +/* max outstanding requests from called MMS-user */ + asn1r_wr_i16 (aCtx, info_ptr->maxreq_called); + asn1r_fin_prim (aCtx, 2,CTX); /* context-specific, tag 2 */ + +/* max outstanding requests from calling MMS-user */ + asn1r_wr_i16 (aCtx, info_ptr->maxreq_calling); + asn1r_fin_prim (aCtx, 1,CTX); /* context-specific, tag 1 */ + +/* max segment size (optional) */ + if (info_ptr->max_segsize_pres) /* if enabled */ + { + asn1r_wr_i32 (aCtx, info_ptr->max_segsize); + asn1r_fin_prim (aCtx, 0,CTX); /* context-specific, tag 0 */ + } +#ifdef CS_SUPPORT + } +#endif + +/* Close the PDU. Building of either the request or response message */ +/* is complete. */ + +#ifdef DEBUG_SISCO + asn1r_fin_constr (aCtx, (ST_UINT16) pdutype,CTX,DEF); + msg_start = aCtx->asn1r_field_ptr + 1; + msg_len = (buf_ptr + buf_len) - msg_start; + + MLOG_ENC2 ("INITIATE %s built, len = %d", + pdutype == MMSINITREQ ? "request" : "response", + msg_len); + MLOG_ENCH (msg_len,msg_start); + MLOG_PAUSEENC (NULL); + + return (msg_start); +#else + asn1r_fin_constr (aCtx, (ST_UINT16) pdutype,CTX,DEF); + return (aCtx->asn1r_field_ptr + 1); +#endif + } diff --git a/mmslib/mmsl/mmsl_fin.c b/mmslib/mmsl/mmsl_fin.c new file mode 100644 index 0000000..8569e04 --- /dev/null +++ b/mmslib/mmsl/mmsl_fin.c @@ -0,0 +1,355 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1993 - 2002, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : mmsl_fin.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains common functions used to finish various */ +/* types of MMS PDU's */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* ST_INT16 mms_fin_null_resp (invoke_id,opcode) */ +/* ST_INT16 mms_fin_null_req (opcode) */ +/* ST_INT16 mms_resp_fin (opcode,invoke_id,mk_fun,info_ptr) */ +/* ST_INT16 mms_req_fin (opcode,mk_ptr,info_ptr) */ +/* ST_INT16 mms_unconf_req_fin (opcode,mk_ptr,info_ptr) */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/18/07 MDE 13 Fixed request log mask */ +/* 11/12/07 MDE 12 Pass MMSOP_READ to logging when usr handled */ +/* 04/09/07 MDE 11 Enhanced filtered logging */ +/* 03/11/04 GLB 10 Remove "thisFileName" */ +/* 12/12/02 JRB 09 _mms_unconf_req_fin: Add ASN1_ENC_CTXT arg, */ +/* do NOT call asn1r_strt_asn1_bld, do NOT set */ +/* global vars "mmsl_msg_*". */ +/* 04/08/02 MDE 08 Added log function pointers */ +/* 04/05/02 MDE 07 Cleaned up MMS Lite use of MLOG */ +/* 01/18/02 JRB 06 Del _ms_fin_pdu_debug. Use new _ms_fin_pdu */ +/* and _ms_fin_pdu_log (in mms_ced.c). */ +/* 01/02/02 JRB 05 Converted to use ASN1R. */ +/* Add ASN1_DEC_CTXT to (*mk_fun) calls in */ +/* mms_req_fin, mms_resp_fin, mms_unconf_req_fin*/ +/* 09/13/99 MDE 04 Added SD_CONST modifiers */ +/* 06/15/98 MDE 03 Changes to allow compile under C++ */ +/* 03/20/98 JRB 02 Don't need mmsop_en.h anymore. */ +/* 09/10/97 MDE 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" + +#include "mmsdefs.h" +#include "mloguser.h" +#include "mvl_defs.h" +#include "mvl_log.h" +#include "asn1defs.h" + +/************************************************************************/ +/************************************************************************/ + +ST_VOID (*ml_log_req_info_fun) (ST_INT invokeId, ST_INT op, ST_VOID *info); +ST_VOID (*ml_log_ind_info_fun) (ST_INT invokeId, ST_INT op, ST_VOID *info); + +ST_VOID (*ml_log_resp_info_fun) (ST_INT invokeId, ST_INT op, ST_VOID *info); +ST_VOID (*ml_log_conf_info_fun) (ST_INT invokeId, ST_INT op, ST_VOID *info); + +ST_VOID (*ml_log_unsol_req_info_fun) (ST_INT op, ST_VOID *info); +ST_VOID (*ml_log_unsol_ind_info_fun) (ST_INT op, ST_VOID *info); + +ST_VOID (*ml_log_error_conf_fun) (ST_INT invokeId, ST_VOID *info); +ST_VOID (*ml_log_error_resp_fun) (ST_INT invokeId, ST_VOID *info); + +ST_VOID (*ml_log_reject_send_fun) (ST_VOID *info); +ST_VOID (*ml_log_reject_recv_fun) (ST_VOID *info); + +/************************************************************************/ +/************************************************************************/ +/* GENERAL PDU FINISH FUNCTIONS */ +/************************************************************************/ +/* mms_fin_null_resp */ +/* general NULL response function, used for prim NULL responses */ +/************************************************************************/ + +ST_RET _mms_fin_null_resp (ST_UINT32 invoke_id, ST_INT opcode) + { +ASN1_ENC_CTXT localEncCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_ENC_CTXT *aCtx = &localEncCtx; + + asn1r_strt_asn1_bld (aCtx, mmsl_enc_buf,mmsl_enc_buf_size); /* init the builder */ + +#ifdef CS_SUPPORT /* Check for CS information */ + if (cs_send.cs_pres) + { + asn1r_strt_constr (aCtx); + asn1r_wr_delmnt (aCtx, cs_send.cs_ptr,cs_send.cs_len); + cs_send.cs_pres = cs_send_reset_val; + asn1r_fin_constr (aCtx, 79,CTX|CONSTR,DEF); + } +#endif + +/* write the context specific explicit asn1_tag for this opcode. */ + asn1r_fin_prim (aCtx, (ST_INT16)opcode,CTX); /* asn1_tag = opcode, ctx prim */ + + asn1r_wr_u32 (aCtx, invoke_id); /* write the invoke id */ + asn1r_fin_prim (aCtx, INT_CODE,UNI); + + mmsl_msg_start = _ms_fin_pdu (aCtx, MMSRESP, &mmsl_msg_len); +#ifdef DEBUG_SISCO + _ms_fin_pdu_log (MMSRESP, mms_op_string[opcode],mmsl_msg_start,mmsl_msg_len); +#endif + + if (aCtx->asn1r_encode_overrun) /* Check for encode overrun */ + return (ME_ASN1_ENCODE_OVERRUN); + + return (SD_SUCCESS); + } + +/************************************************************************/ +/************************************************************************/ +/* mms_fin_null_req */ +/* general NULL request function, used for prim NULL requests */ +/************************************************************************/ + +ST_RET _mms_fin_null_req (ST_INT opcode) + { +ASN1_ENC_CTXT localEncCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_ENC_CTXT *aCtx = &localEncCtx; + + asn1r_strt_asn1_bld (aCtx, mmsl_enc_buf,mmsl_enc_buf_size); /* init the builder */ + +#ifdef CS_SUPPORT /* Check for CS information */ + if (cs_send.cs_pres) + { + asn1r_strt_constr (aCtx); + asn1r_wr_delmnt (aCtx, cs_send.cs_ptr,cs_send.cs_len); + cs_send.cs_pres = cs_send_reset_val; + asn1r_fin_constr (aCtx, 79,CTX|CONSTR,DEF); + } +#endif + +/* Write the context specific explicit asn1_tag for this opcode on a NULL */ +/* data element. */ + + asn1r_fin_prim (aCtx, (ST_INT16)opcode, CTX); /* asn1_tag = opcode, context */ + +#ifdef MOD_SUPPORT /* check for modifier info */ + if ( modifier_list.info_pres ) + { + asn1r_strt_constr (aCtx); + wr_mms_modlist( modifier_list.mod_list_ptr, + modifier_list.num_of_mods ); + asn1r_fin_constr (aCtx, SEQ_CODE,UNI,DEF); + modifier_list.info_pres = SD_FALSE; + } +#endif + + asn1r_wr_u32 (aCtx, mmsl_invoke_id++); /* write the invoke id */ + asn1r_fin_prim (aCtx, INT_CODE,UNI); + +/* Complete the outer ASN.1 element */ + mmsl_msg_start = _ms_fin_pdu (aCtx, MMSREQ, &mmsl_msg_len); +#ifdef DEBUG_SISCO + _ms_fin_pdu_log (MMSREQ, mms_op_string[opcode],mmsl_msg_start,mmsl_msg_len); +#endif + + if (aCtx->asn1r_encode_overrun) /* Check for encode overrun */ + { + return (ME_ASN1_ENCODE_OVERRUN); + } + +/* OK, message has been build successfully */ + return (SD_SUCCESS); + } + +/************************************************************************/ +/************************************************************************/ +/* mms_resp_fin */ +/* general mp_xxxxxx response function, used for prim responses */ +/************************************************************************/ + +ST_RET _mms_resp_fin (ST_INT opcode, ST_UINT32 invoke_id, + ST_VOID (*mk_fun)(ASN1_ENC_CTXT *ac, ST_CHAR *info), ST_CHAR *info_ptr) + { +ASN1_ENC_CTXT localEncCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_ENC_CTXT *aCtx = &localEncCtx; + + asn1r_strt_asn1_bld (aCtx, mmsl_enc_buf,mmsl_enc_buf_size); /* init the builder */ + +#ifdef CS_SUPPORT /* Check for CS information */ + if (cs_send.cs_pres) + { + asn1r_strt_constr (aCtx); + asn1r_wr_delmnt (aCtx, cs_send.cs_ptr,cs_send.cs_len); + cs_send.cs_pres = cs_send_reset_val; + asn1r_fin_constr (aCtx, 79,CTX|CONSTR,DEF); + } +#endif + + (*mk_fun) (aCtx, info_ptr); + + asn1r_wr_u32 (aCtx, invoke_id); /* write the invoke id */ + asn1r_fin_prim (aCtx, INT_CODE,UNI); + + mmsl_msg_start = _ms_fin_pdu (aCtx, MMSRESP, &mmsl_msg_len); +#ifdef DEBUG_SISCO + _ms_fin_pdu_log (MMSRESP, mms_op_string[opcode],mmsl_msg_start,mmsl_msg_len); +#endif + + if (aCtx->asn1r_encode_overrun) /* Check for encode overrun */ + { + + printf("asn1r_encode_overrun %d\n",mmsl_enc_buf_size); + return (ME_ASN1_ENCODE_OVERRUN); + } + + return (SD_SUCCESS); + } + +/************************************************************************/ +/************************************************************************/ +/* mms_req_fin */ +/* general mp_xxxxx request function, used for prim requests */ +/************************************************************************/ + +ST_RET _mms_req_fin (ST_INT opcode, ST_VOID (*mk_ptr)(ASN1_ENC_CTXT *ac, ST_CHAR *info), + ST_CHAR *info_ptr) + { +ASN1_ENC_CTXT localEncCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_ENC_CTXT *aCtx = &localEncCtx; + + asn1r_strt_asn1_bld (aCtx, mmsl_enc_buf,mmsl_enc_buf_size); /* init the builder */ + +#ifdef CS_SUPPORT /* Check for CS information */ + if (cs_send.cs_pres) + { + asn1r_strt_constr (aCtx); + asn1r_wr_delmnt (aCtx, cs_send.cs_ptr,cs_send.cs_len); + cs_send.cs_pres = cs_send_reset_val; + asn1r_fin_constr (aCtx, 79,CTX|CONSTR,DEF); + } +#endif + + (*mk_ptr)(aCtx, info_ptr); /* write the PDU */ + +#ifdef MOD_SUPPORT /* check for modifier info */ + if ( modifier_list.info_pres ) + { + asn1r_strt_constr (aCtx); + wr_mms_modlist( modifier_list.mod_list_ptr, + modifier_list.num_of_mods ); + asn1r_fin_constr (aCtx, SEQ_CODE,UNI,DEF); + modifier_list.info_pres = SD_FALSE; + } +#endif + + asn1r_wr_u32 (aCtx, mmsl_invoke_id++); /* write the invoke id */ + asn1r_fin_prim (aCtx, INT_CODE,UNI); + + mmsl_msg_start = _ms_fin_pdu (aCtx, MMSREQ, &mmsl_msg_len); +#ifdef DEBUG_SISCO + _ms_fin_pdu_log (MMSREQ, mms_op_string[opcode],mmsl_msg_start,mmsl_msg_len); +#endif + + if (aCtx->asn1r_encode_overrun) /* Check for encode overrun */ + { + return (ME_ASN1_ENCODE_OVERRUN); + } + return (SD_SUCCESS); + } + +/************************************************************************/ +/* mms_unconf_req_fin */ +/* general mp_xxxxx request function, for unconfirmed requests */ +/************************************************************************/ + +ST_RET _mms_unconf_req_fin (ASN1_ENC_CTXT *aCtx, ST_INT opcode, ST_VOID (*mk_ptr)(ASN1_ENC_CTXT *ac, ST_CHAR *info), + ST_CHAR *info_ptr) + { +ST_UCHAR *msg_ptr; +ST_INT msg_len; + +/* Make sure that "asn1r_strt_asn1_bld" was called for this context. */ + assert (aCtx->asn1r_magic == ASN1_ENC_MAGIC_NUMBER); + +#ifdef CS_SUPPORT /* Check for CS information */ + if (cs_send.cs_pres) + { + asn1r_strt_constr (aCtx); + asn1r_wr_delmnt (aCtx, cs_send.cs_ptr,cs_send.cs_len); + cs_send.cs_pres = cs_send_reset_val; + asn1r_fin_constr (aCtx, 79,CTX|CONSTR,DEF); + } +#endif + + (*mk_ptr)(aCtx, info_ptr); /* write the PDU */ + + msg_ptr = _ms_fin_pdu (aCtx, MMSUNREQ, &msg_len); +#ifdef DEBUG_SISCO + _ms_fin_pdu_log (MMSUNREQ, mms_op_string[opcode],msg_ptr,msg_len); +#endif + + if (aCtx->asn1r_encode_overrun) /* Check for encode overrun */ + return (ME_ASN1_ENCODE_OVERRUN); + + return (SD_SUCCESS); + } + + + +/************************************************************************/ +/************************************************************************/ +/* mpl_resp_log */ +/************************************************************************/ + +ST_VOID mpl_resp_log (MVL_IND_PEND *indCtrl, ST_VOID *respInfo) + { + if ((mms_debug_sel & MMS_LOG_RESP) && ml_log_resp_info_fun != NULL) + { + if (mvl_conn_filtered_logging == SD_FALSE || indCtrl->event->net_info->log_enable) + { + (*ml_log_resp_info_fun) (indCtrl->event->u.mms.dec_rslt.id, + indCtrl->op == MMSOP_RD_USR_HANDLED ? MMSOP_READ : indCtrl->op, + respInfo); + } + } + } + + +/************************************************************************/ +/* mpl_req_log */ +/************************************************************************/ + +ST_VOID mpl_req_log (MVL_REQ_PEND *reqCtrl, ST_VOID *reqInfo) + { + if ((mms_debug_sel & MMS_LOG_REQ) && ml_log_req_info_fun != NULL) + { + if (mvl_conn_filtered_logging == SD_FALSE || reqCtrl->net_info->log_enable) + { + (*ml_log_req_info_fun) (reqCtrl->invoke_id, reqCtrl->op, reqInfo); + } + } + } + + +/************************************************************************/ +/* mpl_unsol_req_log */ +/************************************************************************/ + +ST_VOID mpl_unsol_req_log (MVL_NET_INFO *netInfo, ST_INT op, ST_VOID *reqInfo) + { + if ((mms_debug_sel & MMS_LOG_REQ) && ml_log_unsol_req_info_fun != NULL) + { + if (mvl_conn_filtered_logging == SD_FALSE || netInfo->log_enable) + { + (*ml_log_unsol_req_info_fun) (op, reqInfo); + } + } + } diff --git a/mmslib/mmsl/mmslvar.c b/mmslib/mmsl/mmslvar.c new file mode 100644 index 0000000..bc4516d --- /dev/null +++ b/mmslib/mmsl/mmslvar.c @@ -0,0 +1,232 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1993 - 2005, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : mmslvar.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* All global MMSEASE-LITE variables are defined in this module, */ +/* and declared in LMMSDEFS.H */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* NONE */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/17/08 JRB 15 Del m_use_long_ints flag. */ +/* 10/04/07 MDE 14 Tweaked LOGCFG_VALUE_GROUP/LOGCFGX_VALUE_MAP */ +/* 06/22/05 JRB 13 Remove static from usrLog* var. */ +/* 06/06/05 EJV 12 usrLogMaskMapCtrl not used when FOUNDRY def. */ +/* 05/23/05 EJV 11 Add xxxLogMaskMapCtrl for parsing logcfg.xml */ +/* 09/04/03 EJV 10 Chg mms_debug_sel to ST_UINT (from ST_UINT32)*/ +/* 03/13/03 JRB 09 Del u_ml_get_rt_type func ptr, it is func now*/ +/* 01/02/03 JRB 08 Add arg to u_ml_get_rt_type. */ +/* 03/15/01 JRB 07 Added user_debug_sel & _user_*_logstr */ +/* 09/13/99 MDE 06 Added SD_CONST modifiers */ +/* 02/23/99 JRB 05 Don't init m_data_algn_tbl, it's a constant. */ +/* 10/21/98 MDE 04 Removed VMS ifdef */ +/* 10/08/98 MDE 03 Migrated to updated SLOG interface */ +/* 11/05/97 MDE 02 Changed mmsl_msg_start to ST_UCHAR * */ +/* 09/10/97 MDE 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" + +#include "mmsdefs.h" +#include "mms_err.h" +#include "mms_pvar.h" +#include "mms_vvar.h" + + +/************************************************************************/ +/************************************************************************/ +/* MMSEASE-LITE Global Variables */ +/************************************************************************/ + +ST_INT mmsl_enc_buf_size; +ST_UCHAR *mmsl_enc_buf; +ST_INT mmsl_dec_info_size; + +#if !defined(NO_GLB_VAR_INIT) +ST_INT16 mmsl_version = 1; /* select IS for version */ +ST_UINT32 mmsl_invoke_id = 1; +#else +ST_INT16 mmsl_version; /* select IS for version */ +ST_UINT32 mmsl_invoke_id; +#endif + +ST_UCHAR *mmsl_msg_start; +ST_INT mmsl_msg_len; + +/************************************************************************/ +/* Variables in common with MMS-EASE */ + +#if !defined(NO_GLB_VAR_INIT) +ST_UINT _mmsdec_ctxt = MMS_PCI;/* decode context type, default to core */ +#else +ST_UINT _mmsdec_ctxt; /* decode context type, default to core */ +#endif +ST_INT _mmsdec_msglen; /* MMS decode message length */ +ST_UCHAR *_mmsdec_msgptr; /* MMS decode message ptr */ +ST_BOOLEAN _mms_dec_info_pres; +MMSDEC_INFO *_mmsdec_rslt; +ST_VOID *_mms_dec_info; + +ADTNL_ERR_RESP_INFO adtnl_err_info; + +ST_RET mms_op_err; + + +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ +/* Some Alternate Access related variables. These are defined in */ +/* mmsvar.c for MMS-EASE, but are put here for MMS-LITE */ + +#if !defined(NO_GLB_VAR_INIT) +ST_INT m_max_dec_aa = 50; +ST_INT m_max_rt_aa_ctrl = 1000; +#else +ST_INT m_max_dec_aa; +ST_INT m_max_rt_aa_ctrl; +#endif + +ST_INT m_hw_dec_aa; +ST_INT m_hw_rt_aa_ctrl; +ST_BOOLEAN m_alt_acc_packed; + +/************************************************************************/ +/************************************************************************/ +/* This variable can be set to force use of the DIS MMS floating point */ +/* type protocol (used in any over the wire and internal ASN.1 type */ +/* definitions). */ +/************************************************************************/ + +ST_BOOLEAN m_use_dis_float; + +/************************************************************************/ +/* Global variables for modifier support */ +/************************************************************************/ + +#if !defined (NO_GLB_VAR_INIT) +LIST_OF_MODS modifier_list; /* used to encode modifier info */ +ST_INT m_max_mods = 1; /* num of modifier structs calloced during dec. */ +#else +LIST_OF_MODS modifier_list; +ST_INT m_max_mods; +#endif + +/************************************************************************/ +/* Global variables for compantion standard (IS) */ +/************************************************************************/ + +CSI cs_send; /* SEND CS info structure */ +ST_BOOLEAN cs_send_reset_val; + +/************************************************************************/ +/* Logging variables */ +/************************************************************************/ + +#if !defined(NO_GLB_VAR_INIT) +ST_UINT mms_debug_sel = MMS_LOG_ERR; +ST_UINT user_debug_sel = USER_LOG_ERR; +#else +ST_UINT mms_debug_sel; +ST_UINT user_debug_sel; +#endif + +#ifdef DEBUG_SISCO +SD_CONST ST_CHAR *SD_CONST _mms_log_dec_logstr = "MMS_LOG_DEC"; +SD_CONST ST_CHAR *SD_CONST _mms_log_enc_logstr = "MMS_LOG_ENC"; +SD_CONST ST_CHAR *SD_CONST _mms_log_acse_logstr = "MMS_LOG_ACSE"; +SD_CONST ST_CHAR *SD_CONST _mms_log_llc_logstr = "MMS_LOG_LLC"; +SD_CONST ST_CHAR *SD_CONST _mms_log_ique_logstr = "MMS_LOG_IQUE"; +SD_CONST ST_CHAR *SD_CONST _mms_log_rque_logstr = "MMS_LOG_RQUE"; +SD_CONST ST_CHAR *SD_CONST _mms_log_ind_logstr = "MMS_LOG_IND"; +SD_CONST ST_CHAR *SD_CONST _mms_log_conf_logstr = "MMS_LOG_CONF"; +SD_CONST ST_CHAR *SD_CONST _mms_log_vm_logstr = "MMS_LOG_VM"; +SD_CONST ST_CHAR *SD_CONST _mms_log_err_logstr = "MMS_LOG_ERR"; +SD_CONST ST_CHAR *SD_CONST _mms_log_nerr_logstr = "MMS_LOG_NERR"; +SD_CONST ST_CHAR *SD_CONST _mms_log_pdu_logstr = "MMS_LOG_PDU"; +SD_CONST ST_CHAR *SD_CONST _mms_log_config_logstr = "MMS_LOG_CONFIG"; +SD_CONST ST_CHAR *SD_CONST _mms_log_always_logstr = "MMS_LOG_ALWAYS"; + +SD_CONST ST_CHAR *SD_CONST _user_err_logstr = "USER_LOG_ERR"; +SD_CONST ST_CHAR *SD_CONST _user_client_logstr = "USER_LOG_CLIENT"; +SD_CONST ST_CHAR *SD_CONST _user_server_logstr = "USER_LOG_SERVER"; + +LOGCFGX_VALUE_MAP mmsLogMaskMaps[] = + { + {"MMS_LOG_ERR", MMS_LOG_ERR, &mms_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "Error"}, + {"MMS_LOG_NERR", MMS_LOG_NERR, &mms_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "Notice"}, + {"MMS_LOG_DEC", MMS_LOG_DEC, &mms_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "Decode"}, + {"MMS_LOG_ENC", MMS_LOG_ENC, &mms_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "Encode"}, + + {"MMS_LOG_CLIENT", MMS_LOG_REQ|MMS_LOG_CONF, &mms_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "Client"}, + {"MMS_LOG_SERVER", MMS_LOG_IND|MMS_LOG_RESP, &mms_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "Server"}, + + {"MMS_LOG_REQ", MMS_LOG_REQ, &mms_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "Request"}, + {"MMS_LOG_RESP", MMS_LOG_RESP, &mms_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "Response"}, + {"MMS_LOG_IND", MMS_LOG_IND, &mms_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "Indication"}, + {"MMS_LOG_CONF", MMS_LOG_CONF, &mms_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "Confirm"}, + {"MMS_LOG_RT", MMS_LOG_RT, &mms_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "RuntimeType"}, + {"MMS_LOG_RTAA", MMS_LOG_RTAA, &mms_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "RuntimeAlternateAccess"}, + {"MMS_LOG_AA", MMS_LOG_AA, &mms_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "AlternateAccess"}, + }; + +LOGCFG_VALUE_GROUP mmsLogMaskMapCtrl = + { + {NULL,NULL}, + "MmsLogMasks", /* Parent Tag */ + sizeof(mmsLogMaskMaps)/sizeof(LOGCFGX_VALUE_MAP), + mmsLogMaskMaps + }; + +LOGCFGX_VALUE_MAP usrLogMaskMaps[] = + { + {"USER_LOG_ERR", USER_LOG_ERR, &user_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "Error"}, + {"USER_LOG_CLIENT", USER_LOG_CLIENT, &user_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "Client"}, + {"USER_LOG_SERVER", USER_LOG_SERVER, &user_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "Server"} + }; + +LOGCFG_VALUE_GROUP usrLogMaskMapCtrl = + { + {NULL,NULL}, + "UserLogMasks", /* Parent Tag */ + sizeof(usrLogMaskMaps)/sizeof(LOGCFGX_VALUE_MAP), + usrLogMaskMaps + }; +#endif /* DEBUG_SISCO */ + +/************************************************************************/ +/* m_init_glb_vars */ +/************************************************************************/ + +#if defined(NO_GLB_VAR_INIT) +ST_VOID a_init_glb_vars (ST_VOID); + +ST_VOID m_init_glb_vars (ST_VOID) + { + a_init_glb_vars (); + mmsl_version = 1; + mmsl_invoke_id = 1; + _mmsdec_ctxt = MMS_PCI; + m_max_mods = 1; + mms_debug_sel = MMS_LOG_ERR; +#if defined(NO_GLB_VAR_INIT) + if (!m_data_algn_tbl) + m_data_algn_tbl = m_packed_data_algn_tbl; +#endif + m_max_dec_aa = 50; + m_max_rt_aa_ctrl = 1000; + } + +#endif + diff --git a/mmslib/mmsl/mmsstat.c b/mmslib/mmsl/mmsstat.c new file mode 100644 index 0000000..c055704 --- /dev/null +++ b/mmslib/mmsl/mmsstat.c @@ -0,0 +1,205 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : mmsstat.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the common functions to perform the decode */ +/* of a status response or an unsolicited status request, which */ +/* have identical syntax. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 03/31/03 JRB 05 asn1r_get_bitstr: add max_bits arg. */ +/* 12/20/01 JRB 04 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 03 Added SD_CONST modifiers */ +/* 03/23/99 MDE 02 Changes to decode buffer allocation scheme */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 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_pvmd.h" +#include "asn1defs.h" + +/************************************************************************/ + +static STATUS_RESP_INFO *info; + +static ST_VOID local_detail_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID get_local_detail_prim (ASN1_DEC_CTXT *aCtx); +static ST_VOID get_local_detail_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID get_physical_stat (ASN1_DEC_CTXT *aCtx); +static ST_VOID get_logical_stat (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_status */ +/* This function is called from mms_status_rsp (in rq_stat.c) or from */ +/* mms_ustatus_req (in rs_ustat.c) to decode either a Status response */ +/* PDU or an UnsolicitedStatus request PDU after the PDU type has been */ +/* determined. It sets up the parse of the next data element and */ +/* returns, letting the ASN.1 tools take over. */ +/************************************************************************/ + +ST_VOID mms_status (ASN1_DEC_CTXT *aCtx) + { +/* Create status_resp_info structure data area to put decoded info into.*/ + info = (STATUS_RESP_INFO *) _m_get_dec_buf (aCtx, sizeof (STATUS_RESP_INFO)); + +/* (NOTE: A structure of typp_info is excactly the same as */ +/* a structure of type ustat so this logic works with both */ + + ASN1R_TAG_ADD (aCtx, CTX,0,get_logical_stat);/* Set up to parse 1st param.*/ + } + + +/************************************************************************/ +/* get_logical_stat */ +/* The logical status parameter has been encountered. Read its value. */ +/************************************************************************/ + +static ST_VOID get_logical_stat (ASN1_DEC_CTXT *aCtx) + { +ST_INT high_lim; + + MLOG_CDEC0 ("get_logical_stat"); + + if (asn1r_get_i16 (aCtx, &info->logical_stat)) /* Read logical status. */ + { /* If error reading integer, */ + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); /* stop parse, report error */ + return; /* and return. */ + } + +#ifndef MMS_LITE + if (mms_chan_info[_mmsdechan].version) /* IS */ +#else + if (mmsl_version) /* IS */ +#endif + high_lim = 3; + else /* DIS */ + high_lim = 2; + + if ((info->logical_stat < 0) || (info->logical_stat > high_lim)) + { /* validate range of values */ + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + +/* The next data element expected is the physical status. */ + ASN1R_TAG_ADD (aCtx, CTX,1,get_physical_stat); + } + + +/************************************************************************/ +/* get_physical_stat */ +/* The physical status parameter has been encountered. Read its value. */ +/************************************************************************/ + +static ST_VOID get_physical_stat (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("get_physical_stat"); + +/* Get the value of the physical status parameter. */ + + if (asn1r_get_i16 (aCtx, &info->physical_stat)) /* Read physical status. */ + { /* If error reading integer, */ + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); /* stop parse, report error */ + return; /* and return. */ + } + + if ((info->physical_stat < 0) || (info->physical_stat > 3)) + { /* validate range [0..3] */ + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + +/* The next data element is either the local detail parameter or the */ +/* additional detail parameter, or there may be no other data elements. */ + + ASN1R_TAG_ADD (aCtx, CTX,2,get_local_detail_prim); + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,2,get_local_detail_cstr); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +/************************************************************************/ +/* get_local_detail_prim */ +/* The local detail parameter has been encountered as a primitive data */ +/* element. Read its value. */ +/************************************************************************/ + +static ST_VOID get_local_detail_prim (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("get_local_detail_prim"); + +/* Get the value of the local detail parameter. */ + + if (aCtx->asn1r_elmnt_len <= MAX_IDENT_LEN)/* check length before moving data */ + { + if (!asn1r_get_bitstr (aCtx, info->local_detail, sizeof(info->local_detail)*8)) + { /* If everything is kosher, */ + local_detail_done (aCtx); /* set up for the next data element. */ + return; /* Return success and continue parse. */ + } + } + +/* Problem getting value - stop parse and report error. */ + + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + +/************************************************************************/ +/* get_local_detail_cstr */ +/* The local detail parameter has been encountered as a constructor */ +/* data element. Read its value. */ +/************************************************************************/ + +static ST_VOID get_local_detail_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("get_local_detail_cstr"); + +/* Set up to call this function when done with constructor bitstring. */ + + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = local_detail_done; + +/* Get the value of the local detail parameter. For constructor */ +/* bitstrings, this requires returning and letting the ASN.1 tools */ +/* parse it to any nesting level. */ + + asn1r_get_bitstr_cstr (aCtx, 16,info->local_detail); + } + + +/************************************************************************/ +/* local_detail_done */ +/* Function called after the local_detail parameter has been parsed. */ +/************************************************************************/ + +static ST_VOID local_detail_done (ASN1_DEC_CTXT *aCtx) + { + + info -> local_detail_pres = SD_TRUE; + info -> local_detail_len = aCtx->asn1r_bitcount; + +/* The next data element, if there is one, is the additional detail */ +/* parameter. */ + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } diff --git a/mmslib/mmsl/ms_ext.c b/mmslib/mmsl/ms_ext.c new file mode 100644 index 0000000..1981789 --- /dev/null +++ b/mmslib/mmsl/ms_ext.c @@ -0,0 +1,442 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : ms_ext.c */ +/* PRODUCT(S) : MMSEASE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 04 Cleaned up "thisFileName" */ +/* 03/31/03 JRB 03 asn1r_get_bitstr: add max_bits arg. */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 01 Added SD_CONST modifiers */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" + +#include "mmsdefs.h" +#include "asn1defs.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#if defined(DEBUG_SISCO) && defined(S_MT_SUPPORT) +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/************************************************************************/ + +ST_VOID ms_get_extern (ASN1_DEC_CTXT *aCtx, EXTERN_INFO *dest); + +static EXTERN_INFO *ext_dest; + +static ST_VOID ext_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID ext_cstr_done (ASN1_DEC_CTXT *aCtx); + +static ST_INT save_method; /* storage for decode method */ + +/************************************************************************/ +/* ms_decode_extern */ +/************************************************************************/ + +ST_RET ms_decode_extern (ST_UCHAR *asn1ptr, ST_INT asn1len, + EXTERN_INFO *dest) + { +ST_RET ret; +ASN1_DEC_CTXT localDecCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_DEC_CTXT *aCtx = &localDecCtx; + + memset (aCtx, 0, sizeof (ASN1_DEC_CTXT)); /* CRITICAL: start clean. */ + S_LOCK_COMMON_RESOURCES (); + aCtx->asn1r_decode_method = ASN1_TAG_METHOD; /* select tag method */ + aCtx->asn1r_decode_done_fun = asn1r_done_err;/* not legal to be done at this time */ + aCtx->asn1r_err_fun = NULL; + + ext_dest = dest; + + ASN1R_TAG_ADD (aCtx, UNI|CONSTR, EXTERN_CODE, ext_cstr); + asn1r_decode_asn1 (aCtx, asn1ptr,asn1len);/* decode entire ASN.1 'Data' entity */ + + if (aCtx->asn1r_pdu_dec_err == NO_DECODE_ERR) /* check for sucess or return error */ + ret = SD_SUCCESS; + else + ret = MVE_DATA_CONVERT; + + S_UNLOCK_COMMON_RESOURCES (); + return (ret); + } + +/************************************************************************/ +/* ext_cstr */ +/* This function is called when an 'EXTERNAL' data element has been */ +/* found. It will put info into the selected structure. */ +/************************************************************************/ + +static ST_VOID ext_cstr (ASN1_DEC_CTXT *aCtx) + { + ms_get_extern (aCtx, ext_dest); + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = ext_cstr_done; + } + + +static ST_VOID ext_cstr_done (ASN1_DEC_CTXT *aCtx) + { + aCtx->asn1r_decode_done = SD_TRUE; + aCtx->asn1r_decode_done_fun = NULL; + } + + +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ + +static EXTERN_INFO *ext_info_ptr; +static ST_VOID get_dir_ref (ASN1_DEC_CTXT *aCtx); +static ST_VOID get_indir_ref (ASN1_DEC_CTXT *aCtx); +static ST_VOID get_objdesc (ASN1_DEC_CTXT *aCtx); +static ST_VOID get_sngl_asn1 (ASN1_DEC_CTXT *aCtx); +static ST_VOID sngl_parse_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID sngl_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID get_oct_alignd_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID get_oct_alignd_prim (ASN1_DEC_CTXT *aCtx); +static ST_VOID oct_alignd_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID get_arb_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID get_arb_prim (ASN1_DEC_CTXT *aCtx); +static ST_VOID arb_done (ASN1_DEC_CTXT *aCtx); + +/************************************************************************/ +/************************************************************************/ +/* ms_get_extern */ +/* This function is called when an 'EXTERNAL' data element has been */ +/* found. It will put info into the selected structure. */ +/************************************************************************/ + +ST_VOID ms_get_extern (ASN1_DEC_CTXT *aCtx, EXTERN_INFO *dest) + { + save_method = aCtx->asn1r_decode_method; /* use class method */ + aCtx->asn1r_decode_method = ASN1_TAG_METHOD; + + ext_info_ptr = dest; /* save the destination */ + ext_info_ptr -> dir_ref_pres = SD_FALSE; /* clear pres flag */ + ext_info_ptr -> indir_ref_pres = SD_FALSE; /* clear pres flag */ + ext_info_ptr -> dv_descr_pres = SD_FALSE; /* clear present flag */ + + ASN1R_TAG_ADD (aCtx, UNI,OBJ_ID_CODE,get_dir_ref); /* transfer syntax name */ + ASN1R_TAG_ADD (aCtx, UNI,INT_CODE,get_indir_ref); /* PCI */ + ASN1R_TAG_ADD (aCtx, UNI,OBJDSCR_CODE,get_objdesc); /* object descripter */ + /* Data Types */ + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,0,get_sngl_asn1); /* single asn1 type */ + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,1,get_oct_alignd_cstr); /* oct alignd, cstr */ + ASN1R_TAG_ADD (aCtx, CTX,1,get_oct_alignd_prim); /* oct alignd, prim */ + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,2,get_arb_cstr); /* arbitrary, cstr */ + ASN1R_TAG_ADD (aCtx, CTX,2,get_arb_prim); /* arbitrary, prim */ + } + +/************************************************************************/ +/* get_dir_ref */ +/* This is the function called when : */ +/************************************************************************/ + +static ST_VOID get_dir_ref (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("get_dir_ref"); + + ext_info_ptr->dir_ref_pres = SD_TRUE; /* mark present */ + + if (asn1r_get_objid (aCtx, ext_info_ptr->dir_ref.comps, + &ext_info_ptr->dir_ref.num_comps)) + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + + ASN1R_TAG_ADD (aCtx, UNI,INT_CODE,get_indir_ref); /* indir ref maybe */ + ASN1R_TAG_ADD (aCtx, UNI,OBJDSCR_CODE,get_objdesc); /* object descripter */ + /* Data Types */ + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,0,get_sngl_asn1); /* single asn1 type */ + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,1,get_oct_alignd_cstr); /* oct alignd, cstr */ + ASN1R_TAG_ADD (aCtx, CTX,1,get_oct_alignd_prim); /* oct alignd, prim */ + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,2,get_arb_cstr); /* arbitrary, cstr */ + ASN1R_TAG_ADD (aCtx, CTX,2,get_arb_prim); /* arbitrary, prim */ + } + +/************************************************************************/ +/* get_indir_ref */ +/* This is the function called when the PCI element of a PDV is found */ +/************************************************************************/ + +static ST_VOID get_indir_ref (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("get_indir_ref"); + + if (asn1r_get_i32 (aCtx, &ext_info_ptr->indir_ref)) /* If out of range for us */ + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + else + { + ext_info_ptr->indir_ref_pres = SD_TRUE; + ASN1R_TAG_ADD (aCtx, UNI,OBJDSCR_CODE,get_objdesc); /* object descripter */ + /* Data Types */ + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,0,get_sngl_asn1); /* single asn1 type */ + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,1,get_oct_alignd_cstr); /* oct alignd, cstr */ + ASN1R_TAG_ADD (aCtx, CTX,1,get_oct_alignd_prim); /* oct alignd, prim */ + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,2,get_arb_cstr); /* arbitrary, cstr */ + ASN1R_TAG_ADD (aCtx, CTX,2,get_arb_prim); /* arbitrary, prim */ + } + } + +/************************************************************************/ +/* get_objdesc */ +/* This is the function called when the PCI element of a PDV is found */ +/************************************************************************/ + +static ST_VOID get_objdesc (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("get_objdesc"); + + ext_info_ptr->dv_descr_pres = SD_TRUE; /* mark present */ + ext_info_ptr->dv_descr_len = aCtx->asn1r_elmnt_len; /* len of string */ + ext_info_ptr->dv_descr = aCtx->asn1r_field_ptr; /* leave it lie */ + aCtx->asn1r_field_ptr += aCtx->asn1r_elmnt_len; /* skip over */ + +/* set up to get presentation data values - choice of three */ + + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,0,get_sngl_asn1); /* single asn1 type */ + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,1,get_oct_alignd_cstr); /* oct alignd, cstr */ + ASN1R_TAG_ADD (aCtx, CTX,1,get_oct_alignd_prim); /* oct alignd, prim */ + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,2,get_arb_cstr); /* arbitrary, cstr */ + ASN1R_TAG_ADD (aCtx, CTX,2,get_arb_prim); /* arbitrary, prim */ + } + +/************************************************************************/ +/* get_sngl_asn1 */ +/* This is the function called when : */ +/************************************************************************/ + +static ST_VOID get_sngl_asn1 (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("get_sngl_asn1"); + +/* aCtx->asn1r_field_ptr points to 'any', elmnt is length of data */ + ext_info_ptr->encoding_tag = 0; /* write tag */ + ext_info_ptr->data_len = aCtx->asn1r_elmnt_len; /* len of ANY */ + ext_info_ptr->data_ptr = aCtx->asn1r_field_ptr; /* leave it lie */ + + asn1r_parse_next (aCtx, sngl_parse_done); + } + + +/************************************************************************/ +/* sngl_parse_done */ +/* */ +/************************************************************************/ + +static ST_VOID sngl_parse_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("sngl_parse_done"); + + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = sngl_done; + } + +/************************************************************************/ +/* sngl_done */ +/* This is the cstr done function called when : */ +/************************************************************************/ + +static ST_VOID sngl_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("sngl_done"); + + aCtx->asn1r_decode_method = save_method; /* this extern is now done */ + } + + +/************************************************************************/ +/* get_oct_alignd_prim */ +/* This is the function called when : */ +/************************************************************************/ + +static ST_VOID get_oct_alignd_prim (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("get_oct_alignd_prim"); + +/* aCtx->asn1r_elmnt_len == # octects */ + + ext_info_ptr->encoding_tag = 1; /* write tag */ + ext_info_ptr->data_len = aCtx->asn1r_elmnt_len; /* len of ANY */ + ext_info_ptr->data_ptr = aCtx->asn1r_field_ptr; /* leave it lie */ + + aCtx->asn1r_field_ptr += aCtx->asn1r_elmnt_len; /* skip over data */ + + aCtx->asn1r_decode_method = save_method; /* this extern is now done */ + } + +/************************************************************************/ +/* get_oct_alignd_cstr */ +/* This is the function called when : */ +/************************************************************************/ + +static ST_VOID get_oct_alignd_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("get_oct_alignd_cstr"); + + ext_info_ptr->encoding_tag = 1; /* write tag */ + ext_info_ptr->data_ptr = aCtx->asn1r_field_ptr; /* leave it lie */ + asn1r_get_octstr_cstr (aCtx, ASN1_MAX_PDU, aCtx->asn1r_field_ptr); + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = oct_alignd_done; + } + +/************************************************************************/ +/* oct_alignd_done */ +/* This is the cstr done function called when : */ +/************************************************************************/ + +static ST_VOID oct_alignd_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("oct_alignd_done"); + + ext_info_ptr->data_len = aCtx->asn1r_octetcount; /* len of octet string */ + aCtx->asn1r_decode_method = save_method; /* this extern is now done */ + } + +/************************************************************************/ +/* get_arb_prim */ +/* This is the function called when : */ +/************************************************************************/ + +static ST_VOID get_arb_prim (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("get_arb_prim"); + +/* aCtx->asn1r_bitcount = bits */ + + ext_info_ptr->encoding_tag = 2; /* write tag */ + ext_info_ptr->data_len = aCtx->asn1r_elmnt_len-1; /* len of ANY */ + ext_info_ptr->data_ptr = aCtx->asn1r_field_ptr; /* leave it lie */ + asn1r_get_bitstr (aCtx, aCtx->asn1r_field_ptr,0); /* max_bits=0 (no limit)*/ + ext_info_ptr->num_bits = aCtx->asn1r_bitcount; + aCtx->asn1r_decode_method = save_method; /* this extern is now done */ + } + +/************************************************************************/ +/* get_arb_cstr */ +/* This is the function called when : */ +/************************************************************************/ + +static ST_VOID get_arb_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("get_arb_cstr"); + + ext_info_ptr->encoding_tag = 2; /* write tag */ + ext_info_ptr->data_ptr = aCtx->asn1r_field_ptr; /* leave it lie */ + + asn1r_get_bitstr_cstr (aCtx, ASN1_MAX_PDU, aCtx->asn1r_field_ptr); + + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = arb_done; + } + + +/************************************************************************/ +/* arb_done */ +/* This is the cstr done function called when : */ +/************************************************************************/ + +static ST_VOID arb_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("arb_done"); + + ext_info_ptr->num_bits = aCtx->asn1r_bitcount; + ext_info_ptr->data_len = CALC_BIT_LEN (aCtx->asn1r_bitcount); + aCtx->asn1r_decode_method = save_method; /* this extern is now done */ + } + +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ +/* ms_encode_extern */ +/************************************************************************/ + +ST_RET ms_encode_extern (EXTERN_INFO *ext, ST_UCHAR *dest, ST_INT dest_len, + ST_INT *ext_len, ST_UCHAR **ext_ptr) + { +ST_RET ret; +ASN1_ENC_CTXT localEncCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_ENC_CTXT *aCtx = &localEncCtx; + + S_LOCK_COMMON_RESOURCES (); + asn1r_strt_asn1_bld (aCtx, dest,dest_len); /* init the builder */ + wr_external (aCtx, ext); + + *ext_ptr = aCtx->asn1r_field_ptr + 1; + *ext_len = (dest+dest_len) - *ext_ptr; + + if (!aCtx->asn1r_encode_overrun) /* Check for encode overrun */ + ret = SD_SUCCESS; + else + ret = ME_ASN1_ENCODE_OVERRUN; + + S_UNLOCK_COMMON_RESOURCES (); + return (ret); + } + +/************************************************************************/ +/* wr_external */ +/************************************************************************/ + +ST_VOID wr_external (ASN1_ENC_CTXT *aCtx, EXTERN_INFO *ext) + { + asn1r_strt_constr (aCtx); /* start EXTERNAL */ + + if (ext->encoding_tag == 0) /* ANY */ + { + asn1r_wr_octstr (aCtx, ext->data_ptr,ext->data_len); + asn1r_fin_constr (aCtx, 0,CTX,DEF); + } + else if (ext->encoding_tag == 1) /* Octet Aligned */ + { + asn1r_wr_octstr (aCtx, ext->data_ptr,ext->data_len); + asn1r_fin_prim (aCtx, 1,CTX); /* finish octet-aligned string */ + } + else if (ext->encoding_tag == 2) /* Arbitrary */ + { + asn1r_wr_bitstr (aCtx, ext->data_ptr,ext->num_bits); + asn1r_fin_prim (aCtx, 2,CTX); + } + + if (ext->dv_descr_pres) + { + asn1r_wr_octstr (aCtx, ext->dv_descr,ext->dv_descr_len); + asn1r_fin_prim (aCtx, OBJDSCR_CODE,UNI); /* object descripter */ + } + + if (ext->indir_ref_pres) + { + asn1r_wr_i32 (aCtx, ext->indir_ref); + asn1r_fin_prim (aCtx, INT_CODE,UNI); + } + + if (ext->dir_ref_pres) + { + asn1r_wr_objid (aCtx, ext->dir_ref.comps,ext->dir_ref.num_comps); + asn1r_fin_prim (aCtx, OBJ_ID_CODE,UNI); + } + + asn1r_fin_constr (aCtx, EXTERN_CODE,UNI,DEF); /* finish EXTERNAL */ + } + + diff --git a/mmslib/mmsl/ms_size.c b/mmslib/mmsl/ms_size.c new file mode 100644 index 0000000..3d59e8f --- /dev/null +++ b/mmslib/mmsl/ms_size.c @@ -0,0 +1,600 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : ms_size.c */ +/* PRODUCT(S) : MMSEASE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains support functions for estimating maximum */ +/* size of Variable Access service PDUs (Read, Write, and InfoRpt).*/ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/14/03 JRB 09 Eliminate compiler warnings. */ +/* 04/02/03 JRB 08 Add UTF8string support (see RT_UTF8_STRING). */ +/* 11/14/01 EJV 07 Added support for new MMS type UtcTime: */ +/* ms_data_size: added case for RT_UTC_TIME */ +/* 10/18/00 RKR 06 Changed RT_UNSIGNED in ms_data_size */ +/* 09/15/00 MDE 05 Fixed MMS-EASE compile error */ +/* 09/07/00 MDE 04 Added MMS-LITE support */ +/* 02/10/98 MDE 03 Now don't use runtime type loops element */ +/* 08/15/97 MDE 02 Minor cleanup */ +/* 06/09/97 MDE 01 Changed Runtime Type, and it's use */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" +#include "mmsdefs.h" +#include "mms_pvar.h" +#include "mms_vvar.h" +#include "asn1defs.h" +#if defined(MMS_LITE) +#include "mvl_defs.h" +#endif + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#if defined(DEBUG_SISCO) && defined(S_MT_SUPPORT) +static ST_CHAR *thisFileName = __FILE__; +#endif + +static ST_LONG address_size (VAR_ACC_ADDR *address, ST_BOOLEAN req); +static ST_LONG obj_name_size (OBJECT_NAME *name, ST_BOOLEAN req); +static ST_LONG ms_data_size (RUNTIME_TYPE *rt_ptr, ST_INT rt_num, + ST_INT alt_len, ST_UCHAR *alt_ptr, + ST_BOOLEAN req); + +static ST_INT arr_loop_level; +static ST_INT *arr_loops; + +/************************************************************************/ +/************************************************************************/ +/* To allow the user to specify either MMS-EASE or UNKNOWN PDU style, */ +/* the following definitions & data structures are used. */ +/* See ms_size.doc for information on how these were derived. */ + +ST_INT ms_req_bld_id = UNKNOWN_BUILDER; +ST_INT ms_resp_bld_id = UNKNOWN_BUILDER; + +/* Because the MMS-EASE ASN.1 tools are a bit conservitive, need to */ +/* provide for a little extra overhead. */ +ST_INT ms_size_oh_pad = ASN1_MAX_ELEMENT_OVERHEAD; + +ST_LONG large_el_oh[] = + { + 6L, /* MMS-EASE is PDU Builder */ + 8L /* UNKNOWN PDU Builder */ + }; +ST_LONG med_el_oh[] = + { + 4L, /* MMS-EASE is PDU Builder */ + 8L /* UNKNOWN PDU Builder */ + }; +ST_LONG small_el_oh[] = + { + 2L, /* MMS-EASE is PDU Builder */ + 8L /* UNKNOWN PDU Builder */ + }; + +#define LARGE_EL_REQ_OH large_el_oh[ms_req_bld_id] +#define MED_EL_REQ_OH med_el_oh[ms_req_bld_id] +#define SMALL_EL_REQ_OH small_el_oh[ms_req_bld_id] + +#define LARGE_EL_RESP_OH large_el_oh[ms_resp_bld_id] +#define MED_EL_RESP_OH med_el_oh[ms_resp_bld_id] +#define SMALL_EL_RESP_OH small_el_oh[ms_resp_bld_id] + +/************************************************************************/ +/************************************************************************/ +/* Overhead for various types of MMS ASN.1 data elements */ + + +#define CONF_REQ_PDU_OH (ms_size_oh_pad+MED_EL_REQ_OH+SMALL_EL_REQ_OH+4) +#define CONF_RESP_PDU_OH (ms_size_oh_pad+MED_EL_RESP_OH+SMALL_EL_RESP_OH+4) +#define UNCONF_PDU_OH (ms_size_oh_pad+MED_EL_REQ_OH) + +/* Overhead for empty PDU's of various types */ +#define READ_REQ_OH (CONF_REQ_PDU_OH + (MED_EL_REQ_OH * 2)) +#define READ_RESP_OH (CONF_RESP_PDU_OH + (MED_EL_RESP_OH * 2)) +#define WRITE_REQ_OH (CONF_REQ_PDU_OH + (MED_EL_REQ_OH * 2)) +#define WRITE_RESP_OH (CONF_RESP_PDU_OH + MED_EL_RESP_OH) +#define INFO_REQ_OH (UNCONF_PDU_OH + (MED_EL_REQ_OH * 2)) + +/* Overhead for various components of interest */ +#define SPEC_IN_RSLT_SIZE (MED_EL_REQ_OH + 1) + +/* Object name overhead */ +#define VMD_OBJ_NAME_REQ_OH SMALL_EL_REQ_OH +#define DOM_OBJ_NAME_REQ_OH (MED_EL_REQ_OH + (SMALL_EL_REQ_OH * 2)) +#define AA_OBJ_NAME_REQ_OH SMALL_EL_REQ_OH + +#define VMD_OBJ_NAME_RESP_OH SMALL_EL_RESP_OH +#define DOM_OBJ_NAME_RESP_OH (MED_EL_RESP_OH + (SMALL_EL_RESP_OH * 2)) +#define AA_OBJ_NAME_RESP_OH SMALL_EL_RESP_OH + + +#define GENTIME_LEN 18L + +/************************************************************************/ +/************************************************************************/ + +/************************************************************************/ +/* ms_init_va_size */ +/* This function is called from the user as a first step in estimating */ +/* the maximum size of both the request and response PDUs of any of the */ +/* Variable Access services (Read, Write, and InformationReport). This */ +/* function initializes the values pointed to by req_size and resp_size */ +/* to the overhead in the PDU (before determining the size of the data */ +/* and specification of each variable to be included). The companion */ +/* function ms_va_size is then called for each variable to add on the */ +/* estimated size attributable to that variable. This function returns */ +/* 0 for success, else an error code. */ +/************************************************************************/ + +ST_RET ms_init_va_size (ST_INT op, ST_UCHAR spec_in_rslt, ST_INT16 var_acc_tag, + OBJECT_NAME *vl_name, ST_LONG *req_size, ST_LONG *resp_size) + { +ST_RET ret; + + S_LOCK_COMMON_RESOURCES (); + ret = SD_SUCCESS; + switch (op) + { + case MMSOP_READ: +/* initialize sizes to include all overhead for basic request */ + *req_size = READ_REQ_OH; + *resp_size = READ_RESP_OH; + +/* To send request for spec in result takes extra bytes, do does */ +/* sending the VA spec in the response. */ + if (spec_in_rslt) + { + *req_size += SPEC_IN_RSLT_SIZE; + *resp_size += MED_EL_RESP_OH; + } + break; + + case MMSOP_WRITE: +/* initialize sizes to include all overhead for basic request */ + *req_size = WRITE_REQ_OH; + *resp_size = WRITE_RESP_OH; + break; + + case MMSOP_INFO_RPT: +/* initialize sizes to include all overhead for basic request */ + *req_size = INFO_REQ_OH; + *resp_size = 0; + break; + + default : + ret = MVE_WRONG_OP; + } + +/* If the variable specification is a named list, add in the name, else */ +/* add in the sequence of sequence constructor overhead */ +/* Note that this is done here, NOT in later calls to ms_va_size */ + + if (var_acc_tag == VAR_ACC_NAMEDLIST) /* list of variables case */ + *req_size += MED_EL_REQ_OH + obj_name_size (vl_name,SD_TRUE); + else + *req_size += MED_EL_REQ_OH; /* seq of seq */ + + S_UNLOCK_COMMON_RESOURCES (); + return (ret); + } + + +/************************************************************************/ +/* ms_va_size */ +/* This function is called from the user repetitively for each variable */ +/* expected to be included in a Read, Write, or InfoRpt PDU. Note that */ +/* the function ms_init_va_size should be called first to initialize */ +/* the two outputs req_size and resp_size. The values pointed to by */ +/* req_size and resp_size are incremented by the appropriate amount, */ +/* so that after this function has been called for all variables, they */ +/* represent valid estimates of the size of the request and response */ +/* PDUs for the given service (indicated by op). In some cases, the */ +/* type of the variable may be indicated both by the vl_ptr argument */ +/* and by the type argument; in this case, both must still be specified */ +/* and it is up to the user to verify that they are equal. This */ +/* function returns 0 for success, else an error code. */ +/* */ +/* NOTE: In the case of accessing a variable list object (as opposed */ +/* to a list of variable objects), a variable_list structure must */ +/* be built and filled in appropriately, with var_spec_tag set to */ +/* 5. (Otherwise, the value pointed to by req_size and, in */ +/* certain cases, the value pointed to by resp_size will be */ +/* much larger than necessary. */ +/************************************************************************/ + +#if !defined(MMS_LITE) +ST_RET ms_va_size (ST_INT op, ST_UCHAR spec_in_rslt, ST_INT16 var_acc_tag, + VARIABLE_LIST *vl_ptr, NAMED_TYPE *type, + ST_LONG *req_size, ST_LONG *resp_size) +#else +ST_RET ms_va_size (ST_INT op, ST_UCHAR spec_in_rslt, ST_INT16 var_acc_tag, + VARIABLE_LIST *vl_ptr, ST_INT type_id, + ST_LONG *req_size, ST_LONG *resp_size) +#endif + { +ST_LONG size; +ST_INT alt_acc_len; +RUNTIME_TYPE *rt; +ST_INT rt_num; +#if defined(MMS_LITE) +ST_INT rc; +#endif + +#if !defined(MMS_LITE) + rt = type->rt_head; + rt_num = type->rt_num; +#else + rc = mvl_get_runtime (type_id, &rt, &rt_num); + if (rc != SD_SUCCESS) + return (rc); +#endif + + S_LOCK_COMMON_RESOURCES (); + +/* non functional at this time */ + if (vl_ptr->alt_access_pres) + alt_acc_len = vl_ptr->alt_access.len; + else + alt_acc_len = 0; + +/* get the size of the data element based on the MMS type and add the */ +/* data element size to the target PDU */ + + if (op == MMSOP_READ) /* read response carries data */ + { + size = ms_data_size (rt, rt_num, alt_acc_len, + vl_ptr->alt_access.data,SD_FALSE); + *resp_size += size; + } + else /* WRITE or INFO */ + { + size = ms_data_size (rt, rt_num, alt_acc_len, + vl_ptr->alt_access.data,SD_TRUE); + *req_size += size; + + if (op == MMSOP_WRITE) /* Write response carries result */ + *resp_size += SMALL_EL_RESP_OH + 1; /* assume failure (+1) */ + } + if (size <= 0) /* verify the data size was OK */ + { + S_UNLOCK_COMMON_RESOURCES (); + return (MVE_TYPENAME); + } + +/* Now calculate the size of the variable access spec for this var. */ +/* Only req'd if var_acc_tag is list of vars (list name added already) */ + if (var_acc_tag == VAR_ACC_VARLIST) + { + size = MED_EL_REQ_OH; + switch (vl_ptr->var_spec.var_spec_tag) + { + case VA_SPEC_NAMED : + size += obj_name_size (&vl_ptr->var_spec.vs.name,SD_TRUE); + break; + +#if !defined(MMS_LITE) + case VA_SPEC_DESCRIBED : /* described gets address & type */ + size += type->asn1len + + address_size (&vl_ptr->var_spec.vs.address,SD_TRUE); + break; +#endif + + case VA_SPEC_ADDRESSED : + size += address_size (&vl_ptr->var_spec.vs.address,SD_TRUE); + break; + + case VA_SPEC_SCATTERED : /* not currently supported */ + case VA_SPEC_INVALIDATED : + default: + S_UNLOCK_COMMON_RESOURCES (); + return (MVE_VM_SERVICE_NOTSUPP); + } + +/* not really supported at this time, leave in anyway */ + if (vl_ptr->alt_access_pres) + size += (ST_LONG) alt_acc_len; + +/* Now we have the variable specification size, add to the request */ + *req_size += size; + +/* Now, if spec in result requested, calculate VA spec size for resp */ + if (op == MMSOP_READ && spec_in_rslt) + { + size = MED_EL_RESP_OH; + switch (vl_ptr->var_spec.var_spec_tag) + { + case VA_SPEC_NAMED : + size += obj_name_size (&vl_ptr->var_spec.vs.name,SD_FALSE); + break; + +#if !defined(MMS_LITE) + case VA_SPEC_DESCRIBED : /* described gets address & type */ + size += type->asn1len + + address_size (&vl_ptr->var_spec.vs.address,SD_FALSE); + + break; +#endif + + case VA_SPEC_ADDRESSED : + size += address_size (&vl_ptr->var_spec.vs.address,SD_FALSE); + break; + + case 5: /* variable list object case */ + S_UNLOCK_COMMON_RESOURCES (); + return (SD_SUCCESS); /* No variable spec. req'd */ + break; + + case VA_SPEC_SCATTERED : /* not currently supported */ + case VA_SPEC_INVALIDATED : + default: + S_UNLOCK_COMMON_RESOURCES (); + return (MVE_VM_SERVICE_NOTSUPP); + } + *resp_size += size; + } + } /* if VAR_ACC_VARLIST */ + +/* Now, if WRITE, need to add write result */ + + + S_UNLOCK_COMMON_RESOURCES (); + return (SD_SUCCESS); + } + + +/************************************************************************/ +/* obj_name_size */ +/* This function is called from ms_init_va_size and ms_va_size to */ +/* calculate (exactly) the size that a particular object name will take */ +/* up in a request or response PDU for the Read, Write, and InfoReport */ +/* services. Returns the size of the object name, or 0 if there is a */ +/* problem. */ +/************************************************************************/ + +static ST_LONG obj_name_size (OBJECT_NAME *name, ST_BOOLEAN req) + { +ST_LONG oh; + + switch (name->object_tag) + { + case VMD_SPEC : + if (req) /* if calculating for a request */ + oh = VMD_OBJ_NAME_REQ_OH; + else + oh = VMD_OBJ_NAME_RESP_OH; + + return (oh + (ST_LONG) strlen (name->obj_name.vmd_spec)); + break; + + case DOM_SPEC : + if (req) /* if calculating for a request */ + oh = DOM_OBJ_NAME_REQ_OH; + else + oh = DOM_OBJ_NAME_RESP_OH; + + return (oh + (ST_LONG) (strlen (name->obj_name.item_id) + + strlen (name->domain_id))); + break; + + case AA_SPEC : + if (req) /* if calculating for a request */ + oh = AA_OBJ_NAME_REQ_OH; + else + oh = AA_OBJ_NAME_RESP_OH; + + return (oh + (ST_LONG) strlen (name->obj_name.aa_spec)); + break; + } + + mms_op_err = MVE_OBJECT_SCOPE; + return (0L); /* indicates error condition */ + } + + +/************************************************************************/ +/* address_size */ +/* This function is called from ms_va_size to calculate (exactly) the */ +/* size that a particular address will take up in a request or response */ +/* PDU for the Read, Write, and InfoReport services. Returns the size */ +/* of the address, or 0 if there is a problem. */ +/************************************************************************/ + +static ST_LONG address_size (VAR_ACC_ADDR *address, ST_BOOLEAN req) + { +ST_LONG size; +ST_LONG numaddr; + + switch (address->addr_tag) + { + case NUM_ADDR : + if (req) /* if calculating for a request */ + size = SMALL_EL_REQ_OH; + else + size = SMALL_EL_RESP_OH; + numaddr = address->addr.num_addr; + if (numaddr < 128L) + size += 1; + else if (numaddr < 32768L) + size += 2; + else if (numaddr < 8388608L) + size += 3; + else + size += 4; + break; + + case SYM_ADDR : + if (req) /* if calculating for a request */ + size = MED_EL_REQ_OH; + else + size = MED_EL_RESP_OH; + size += strlen (address->addr.sym_addr); + break; + + case UNCON_ADDR : + if (req) /* if calculating for a request */ + size = MED_EL_REQ_OH; + else + size = MED_EL_RESP_OH; + size += address->addr.unc_addr.unc_len; + break; + + default: + mms_op_err = MVE_ADDR; + return (0); + } + return (size); + } + + +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ +/* ms_data_size */ +/* This function is called from the user or the MMS-EASE virtual */ +/* machine to estimate the size that the data corresponding to a */ +/* particular type will take up in a request or response PDU for the */ +/* Read, Write, and InfoReport services. Returns the size of the data, */ +/* or 0 if there is a problem. (A rough error code can be found in */ +/* mms_op_err; a more detailed one in asn1_pdu_dec_err.) */ +/* */ +/* Note: Alternate access may be used to modify a type, thereby */ +/* affecting the size of the corresponding data. However, */ +/* the alternate access inputs are disregarded at this time. */ +/* This will be fixed in a later revision. */ +/************************************************************************/ + +static ST_LONG ms_data_size (RUNTIME_TYPE *rt_ptr, ST_INT rt_num, + ST_INT alt_len, ST_UCHAR *alt_ptr, + ST_BOOLEAN req) + { +ST_LONG size; +RUNTIME_TYPE *rt_end; +ST_LONG med_oh; +ST_LONG small_oh; +ST_UINT ellen; +ST_LONG len; +ST_INT arr_loop_buf[ASN1_MAX_LEVEL]; +ST_UINT el_size; /* num bytes to encode data */ + + arr_loop_level = 0; + arr_loops = arr_loop_buf; + + if (req) /* if calculating for a request */ + { + med_oh = MED_EL_REQ_OH; + small_oh = SMALL_EL_REQ_OH; + } + else /* calculating for response */ + { + med_oh = MED_EL_RESP_OH; + small_oh = SMALL_EL_RESP_OH; + } + + rt_end = rt_ptr + rt_num; /* end block */ + + size = 0; + while (rt_ptr < rt_end) + { + if (rt_ptr->el_tag == RT_ARR_END) /* treat case of array ending */ + { /* loops set at start of array */ + if (--arr_loops[arr_loop_level] > 0) /* if need to do next ar elmnt */ + rt_ptr -= rt_ptr->u.arr.num_rt_blks; /* mv rt_ptr to start of arr */ + else + --arr_loop_level; + } + + ellen = abs (rt_ptr->u.p.el_len); /* make sure positive */ + switch (rt_ptr->el_tag) + { + case RT_ARR_START : /* arrays don't have to be aligned */ + ++arr_loop_level; + arr_loops[arr_loop_level] = rt_ptr->u.arr.num_elmnts; + /* let fall through to STR_MMSOP_START */ + + case RT_STR_START : /* structure starting */ + size += med_oh; /* add in data element overhead */ + break; + + case RT_UNSIGNED : /* unsigned integer */ + size += small_oh + ellen + 1; /* high order bit set needs 0x00*/ + break; + + case RT_UTC_TIME : /* UTC time */ + case RT_BINARY_TIME : /* binary time */ + case RT_INTEGER : /* integer */ + case RT_FLOATING_POINT : /* float */ + size += small_oh + ellen; + break; + + case RT_VISIBLE_STRING : /* visible string */ + case RT_OCTET_STRING : /* octet string */ + size += ellen; + if (ellen < 128) + size += small_oh; + else + size += med_oh; + break; + + case RT_GENERAL_TIME : /* generalized time */ + size += small_oh + GENTIME_LEN; + break; + + case RT_BOOL : /* boolean */ + size += small_oh +1; + break; + + case RT_BCD : /* bcd */ + size += small_oh + ellen; + break; + + case RT_BIT_STRING : /* bit string */ + len = 1 + CALC_BIT_LEN (ellen); + + if (len < 128) + size += small_oh + len; /* add in data element overhead */ + else + size += med_oh + len; /* add in data element overhead */ + + break; + + case RT_UTF8_STRING : /* Unicode UTF8 string */ + el_size = ellen*4; /* Could take 4 bytes per char */ + size += el_size; + if (el_size < 128) + size += small_oh; + else + size += med_oh; + break; + + case RT_ARR_END : /* array done */ + case RT_STR_END : /* structure done */ + break; + + default : /* should not be any other tag */ + return (0); + break; + } + rt_ptr++; /* point to next block */ + } /* while (rt blocks) */ + return (size); + } + + diff --git a/mmslib/mmsl/ms_tdef.c b/mmslib/mmsl/ms_tdef.c new file mode 100644 index 0000000..e59eef7 --- /dev/null +++ b/mmslib/mmsl/ms_tdef.c @@ -0,0 +1,1153 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : ms_tdef.c */ +/* PRODUCT(S) : MMS-EASE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains some MMS-EASE virtual machine support */ +/* functions that help the user with MMS variable access and */ +/* type specifications. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 06/22/07 JRB 26 Log max on buffer overrun. */ +/* 01/17/06 NAV 25 ms_runtime_to_tdl: fix tdl_buf overwrite */ +/* 07/12/04 JRB 24 For RT_UTF8_STRING, chg "t18" to "t16" in */ +/* "tdlTypes" to match latest 61850-8-1. */ +/* 05/03/04 JRB 23 ms_mk_asn1_type: return err if struct empty, */ +/* ignore extra commas, use ASN1_ENC_* macros, */ +/* & log the ASN.1 produced. */ +/* type_subst: remove whitespace in dest string.*/ +/* 10/13/03 JRB 22 ms_runtime_to_tdl: Chg assert to err return. */ +/* 07/14/03 JRB 21 Use strlen(comp_name), was assuming maxlen=32*/ +/* 04/22/03 JRB 20 Allow fixed len UTF8 only if local fmt=UTF16.*/ +/* 04/02/03 JRB 19 Add UTF8string support (see RT_UTF8_STRING). */ +/* Use "RT_*" defines in "switch (type)". */ +/* DRASTICALLY simplify ms_runtime_to_tdl. */ +/* add_tdl_separator: add args (& fix spelling):*/ +/* - allows 3 global vars to be eliminated. */ +/* - allows semaphore to be eliminated. */ +/* 12/15/02 JRB 18 Add ms_tdl_to_runtime function. */ +/* 11/11/02 JRB 17 Replace ms_asn1_to.. w/ ms_runtime_create. */ +/* 03/04/02 JRB 16 Add more SD_CONST. Add str_util.h. */ +/* 12/20/01 JRB 15 Converted to use ASN1R (re-entrant ASN1) */ +/* 11/13/01 EJV 14 Added support for new MMS type UtcTime: */ +/* tdlTypes[]: added new type "Utctime" [17] */ +/* ms_mk_asn1_type: added case for type 17. */ +/* anticipated[]: added type 17 and moved other.*/ +/* ms_runtime_to_tdl: added RT_UTC_TIME case. */ +/* 03/08/01 JRB 13 Chk return val from ms_comp_name_find. */ +/* 08/24/00 JRB 12 Use ms_comp_name_find, so code works for */ +/* MMS_LITE (i.e. USE_RT_TYPE_2 or USE_RT_TYPE_3*/ +/* defined). */ +/* 07/28/00 JRB 11 Use new defines in #ifdef. */ +/* 09/13/99 MDE 10 Added SD_CONST modifiers */ +/* 09/21/98 MDE 09 Minor lint cleanup */ +/* 08/21/98 MDE 08 Eliminated warning in ms_asn1_to_tdl. */ +/* 06/03/98 MDE 07 Now check 'ms_asn1_to_runtime' return code */ +/* 03/11/98 MDE 06 Removed NEST_RT_TYPES */ +/* 02/10/98 MDE 05 Runtime type changes for LITE */ +/* 10/30/97 MDE 04 Calculate size of RT table before alloc */ +/* 09/16/97 MDE 03 Now don't require @VMD for referenced type */ +/* 06/19/97 MDE 02 Added 64 bit integer support, cleanup */ +/* 06/09/97 MDE 01 Changed Runtime Type, and it's use */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" +#include "mmsdefs.h" +#include "asn1defs.h" +#include "mem_chk.h" +#include "str_util.h" /* for strnicmp */ + +/************************************************************************/ + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + + +/************************************************************************/ +/* TDL DEFINES */ +/* Defined constants giving the primitive syntax for the keywords: */ +/* Bool, Byte, Short, Long, Ubyte, Ushort, Ulong, Float, Double, */ +/* Vstring, Fstring, Ostring, Bstring, Gtime, Btime4, Btime8, respec- */ +/* tively. */ +/* These are used in 'ms_mk_asn1_type' for substitutions */ +/************************************************************************/ + +/************************************************************************/ + +static ST_INT type_subst (ST_CHAR *dest_str, ST_CHAR *src_str, ST_INT src_len); +static ST_RET wr_object_name (ASN1_ENC_CTXT *aCtx, ST_CHAR *objname); +static ST_UCHAR *err_rtn (ST_RET error, ST_CHAR *tspec); + +#ifdef MMS_LITE +ST_INT m_rt_type_limit = 50; /* max number of runtime blocks per def */ +#endif + +/* These checks catch if a define change breaks the code using "tdlTypes"*/ +/* The way "tdlTypes" is used, does not work if any of the RT_* defines change.*/ +/* It would be better to modify the code to always use the RT_* defines,*/ +/* but that is not so easy now. */ +#if (RT_BOOL != 3) +#error define does't match expected. tdlTypes array won't work. +#endif +#if (RT_BIT_STRING != 4) +#error define does't match expected. tdlTypes array won't work. +#endif +#if (RT_INTEGER != 5) +#error define does't match expected. tdlTypes array won't work. +#endif +#if (RT_UNSIGNED != 6) +#error define does't match expected. tdlTypes array won't work. +#endif +#if (RT_FLOATING_POINT != 7) +#error define does't match expected. tdlTypes array won't work. +#endif +#if (RT_OCTET_STRING != 9) +#error define does't match expected. tdlTypes array won't work. +#endif +#if (RT_VISIBLE_STRING != 10) +#error define does't match expected. tdlTypes array won't work. +#endif +#if (RT_GENERAL_TIME != 11) +#error define does't match expected. tdlTypes array won't work. +#endif +#if (RT_BINARY_TIME != 12) +#error define does't match expected. tdlTypes array won't work. +#endif +#if (RT_BCD != 13) +#error define does't match expected. tdlTypes array won't work. +#endif +#if (RT_BOOLEANARRAY != 14) +#error define does't match expected. tdlTypes array won't work. +#endif +#if (RT_UTC_TIME != 17) +#error define does't match expected. tdlTypes array won't work. +#endif +#if (RT_UTF8_STRING != 16) +#error define does't match expected. tdlTypes array won't work. +#endif + +/************************************************************************/ + +typedef struct + { + ST_CHAR *abbrev; + ST_CHAR *subType; + } TDL_TYPES; + +/* tdlTypes array + * CRITICAL: the number after the "t" in the 2nd string of each struct + * MUST match the ASN.1 tag for that type. The tags are defined in "mms_vvar.h" + * and they have a prefix of "RT_". + * For example, the ASN.1 tag for Boolean is 3, so "mms_vvar.h" has the define: + * #define RT_BOOL 3 + * and the string in this array for Boolean is: + * "t3" + */ + +TDL_TYPES tdlTypes[] = + { + { "Bool", "t3" }, + { "Byte", "t5+8" }, + { "Short", "t5+16" }, + { "Long", "t5+32" }, +#ifdef INT64_SUPPORT + { "Int64", "t5+64" }, +#endif + { "Ubyte", "t6+8" }, + { "Ushort", "t6+16" }, + { "Ulong", "t6+32" }, +#ifdef INT64_SUPPORT + { "Uint64", "t6+64" }, +#endif + { "Float", "t7+2071" }, + { "Double", "t7+2868" }, + { "Vstring", "t10-" }, + { "Fstring", "t10+" }, + { "Ostring", "t9+" }, + { "OVstring", "t9-" }, + { "Bstring", "t4+" }, + { "BVstring", "t4-" }, + { "Gtime", "t11" }, + { "Btime4", "t12+0" }, + { "Btime6", "t12+1" }, + { "Bcd", "t13+" }, + { "Utctime", "t17" }, + { "UTF8Vstring", "t16-" }, +#if (UNICODE_LOCAL_FORMAT==UNICODE_UTF16) + { "UTF8string", "t16+" }, +#endif + }; +ST_INT numTdlTypes = (sizeof (tdlTypes)/sizeof(TDL_TYPES)); + +/************************************************************************/ +/* ms_mk_asn1_type */ +/* Function to convert a character string type specification to an */ +/* ASN.1 string, as required by the ms_add_named_type function. It */ +/* is assumed that the function strt_asn1 has been called elsewhere */ +/* in the user's program. The input 'tspec' character string must */ +/* conform to the following syntax for specifying a type: */ +/* */ +/* Let N be a number, i.e. a sequence of digits. Let */ +/* IDENTIFIER be a character string which is a valid MMS */ +/* identifier. And let OBJECT_NAME be a character string */ +/* which represents a valid MMS object name of the form: */ +/* string1:IDENTIFIER, where string1 is "+" for a VMD- */ +/* specific object, "-" for an AA-specific object, or a */ +/* valid IDENTIFIER naming a domain for a domain-specific */ +/* object. Then we have the following Bacchus-Nauer rules */ +/* for specifying the syntax: */ +/* */ +/* Type ::= | tN+N | tN-N | tN | [N:Type] */ +/* | [pN:Type] | {Component_list} | {p:Component_list} */ +/* Component_list ::= Component | Component_list,Component */ +/* Component ::= Type | (IDENTIFIER)Type */ +/* */ +/* The above syntax may contain white space (blanks, tabs and new- */ +/* lines) to make it more readable. (Hence, a character string */ +/* constant input for 'tspec' may extend over several lines.) */ +/* However, the symbols appearing in the definition above (called */ +/* terminal symbols), such as '<', '>', 't', '+', ,'-', '[', ':', ']', */ +/* '{', '}', '(', ')', 'p' and ',', must be used exactly as specified. */ +/* The meaning of the above syntax is given below: */ +/* */ +/* - Name of a type object that has already been */ +/* declared to MMS-EASE using ms_add_named_type */ +/* or ms_add_std_types. */ +/* tN+N, tN-N, tN - Primitive type, where the first N indicates */ +/* the basic type, and the second N is the */ +/* length of the type (normally in bits, but */ +/* for octet-strings and visible-strings, it */ +/* represents the number of bytes, and floats */ +/* are a special case - see note below). The */ +/* basic types are explained below. If the type */ +/* length (+N or -N) is left off, it defaults */ +/* to zero. Note that char strings may have */ +/* negative type lengths, indicating variable- */ +/* length (i.e., can be <= N), but all other */ +/* types must have nonnegative type lengths. */ +/* [N:Type] - Array of N elements of the specified type. */ +/* {Component_list} - Structure consisting of one or more compo- */ +/* nents, separated by commas, with or without */ +/* component names. */ +/* (IDENTIFIER)Type - A component of a structure identified by a */ +/* component name, in order that it may be */ +/* referenced in a subsequent alternate access. */ +/* p - Used in arrays or structures to indicate */ +/* that it is 'packed', i.e. compressed in some */ +/* implementation-specific way. */ +/* */ +/* The basic types are numbers (first N following the 't' of a primi- */ +/* tive type) with the following meanings: */ +/* */ +/* 3 - Boolean, type length = 0 (or absent). Ex: "t3". */ +/* 4 - Bit-string, type length >= 0. Ex: "t4+27" for a 27-bit */ +/* bit-string. */ +/* 5 - Integer, type length = 16 or 32 for most computers. Ex: */ +/* "t5+16" for a 2-byte integer, "t5+32" for a 4-byte int. */ +/* 6 - Unsigned, type length = 16 or 32 for most computers. Ex: */ +/* "t6+16" for a 2-byte unsigned integer. */ +/* 7 - Floating point, type length = 2071 for single precision */ +/* or 2868 for double precision on most computers. See */ +/* the note below. */ +/* 9 - Octet-string, type length >= 0. Ex: "t9+19" for a 19- */ +/* byte octet-string. */ +/* 10 - Visible-string, any type length. Ex: "t10+30" specifies */ +/* a fixed-length string of exactly 30 characters, whereas */ +/* "t10-12" specifies a variable-length string of at most */ +/* 12 characters. */ +/* 11 - Generalized-time, type length = 0 (or absent). Ex: "t11". */ +/* 12 - Binary-time, type length = 0 or 1 (SD_FALSE or SD_TRUE). Ex: */ +/* "t12+1" for a 6-byte binary-time time of day, including */ +/* date. */ +/* 13 - BCD, type length >= 0 AND <= 8 */ +/* computers). Ex: "t13+8" for a 8-nibble BCD integer. */ +/* 17 - UTC Time is struct of 3 unsigned integers encoded as */ +/* 8 bytes octet string (ssssqmmm), where */ +/* ssss seconds since Jan 1, 1970, 4 bytes padded with */ +/* leading 0's */ +/* q quality flags, 1 byte */ +/* mmm microseconds in a second, 3 bytes in range */ +/* [0,999999], padded with 0's. */ +/* Note: this is new type added to the spec in 2001/2002. */ +/* 16 - UTF8string, any type length. Ex: "t16+30" specifies */ +/* a fixed-length string of exactly 30 characters, whereas */ +/* "t16-12" specifies a variable-length string of at most */ +/* 12 characters. */ +/* */ +/* NOTE: Floating point is a special case in that its length is */ +/* a combination of two numbers: fractional width (say 52 bits) */ +/* and exponent width (say 11 bits). The length of the floating */ +/* point type is computed according to the following algorithm: */ +/* N = e*256 + f, */ +/* where f = fractional width and e = exponent width. For stan- */ +/* dard IEEE floating point format, N = 2071 for single-precision */ +/* and N = 2868 for double-precision. Hence, most users will use */ +/* the following notation for floating point types: */ +/* "t7+2071" for single prec. and "t7+2868" for double prec. */ +/* WARNING: This function will not accept type specifications for */ +/* floating point exponents with a width greater than 127 bits or */ +/* mantissas with a width greater than 255 bits. */ +/* */ +/* The other input arguments of this function are the length of a */ +/* buffer to hold the ASN.1 string, and a pointer to that buffer. */ +/* The 'asn1_len' argument is modified to equal the actual length of */ +/* the ASN.1 string produced. */ +/* */ +/* If there is no error in this function, the return value is a */ +/* pointer to where the ASN.1 string starts in the buffer. (The */ +/* ASN.1 string always ends at the end of the buffer, but it begins */ +/* anywhere within the buffer.) If an error does occur in this */ +/* function, a NULL pointer is returned, and the global variable */ +/* 'mms_op_err' gives further detail as to the nature of the problem */ +/* that has caused this function to fail. */ +/************************************************************************/ + +#define TYPE_NAME 0 +#define BEG_STRUCT 2 +#define PACKED 0 +#define COMPONENT_NAME 0 +#define BEG_COMP_TYPE 1 + + +ST_UCHAR *ms_mk_asn1_type (ST_INT *asn1_len, ST_UCHAR *asn1, ST_CHAR *type_spec) + { +ST_CHAR *tspec; +ST_INT type; +ST_BOOLEAN literal; +ST_BOOLEAN number; +ST_INT type_len; +ST_BOOLEAN name; +ST_BOOLEAN m_packed; +ST_INT i; +ST_LONG num_elts; +ST_UCHAR acc_float_size; +ASN1_ENC_CTXT localEncCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_ENC_CTXT *aCtx = &localEncCtx; + + +/* Initialize everything first. */ + + S_LOCK_COMMON_RESOURCES (); + num_elts = 0L; + number = SD_FALSE; + name = SD_FALSE; + literal = SD_FALSE; + m_packed = SD_FALSE; + type_len = 0; + i = strlen (type_spec); + tspec = (ST_CHAR *) chk_malloc (2*i); + asn1r_strt_asn1_bld (aCtx, asn1,*asn1_len); + +/* Replace abbreviations in the type definition string with the */ +/* appropriate syntax and reset new length of type spec string. */ + if ((i = type_subst (tspec,type_spec,i)) < 1) + { + S_UNLOCK_COMMON_RESOURCES (); + return (err_rtn (MVE_TYPEDEF_LEN0,tspec)); + } +/* Loop through the 'tspec' string, from the back to the front. */ + + while (i > 0) + { + switch (tspec[--i]) + { + case '>' : + if (number || m_packed) + { + S_UNLOCK_COMMON_RESOURCES (); + return (err_rtn (MVE_TYPEDEF_SYM_GT,tspec)); + } + literal = SD_TRUE; + tspec[i] = '\0'; + asn1r_strt_constr (aCtx); + break; + + case '<' : + if (number || m_packed) + { + S_UNLOCK_COMMON_RESOURCES (); + return (err_rtn (MVE_TYPEDEF_SYM_LT,tspec)); + } + literal = SD_FALSE; + if (wr_object_name (aCtx, &tspec[i+1])) + { + S_UNLOCK_COMMON_RESOURCES (); + return (err_rtn (MVE_TYPEDEF_OBJNAME,tspec)); + } + asn1r_fin_constr (aCtx, TYPE_NAME, CTX, 0); + break; + + case '}' : + if (number || m_packed) + { + S_UNLOCK_COMMON_RESOURCES (); + return (err_rtn (MVE_TYPEDEF_SYM_RBRACE,tspec)); + } + asn1r_strt_constr (aCtx); /* Start structure type.*/ + asn1r_strt_constr (aCtx); /* Start component part.*/ + asn1r_strt_constr (aCtx); /* Start last component.*/ + asn1r_strt_constr (aCtx); /* Start component's */ + break; /* explicit type spec. */ + + case '{' : + if (number) + { + S_UNLOCK_COMMON_RESOURCES (); + return (err_rtn (MVE_TYPEDEF_SYM_LBRACE,tspec)); + } + if (tspec[i+1]=='}') /* Empty struct */ + { + MLOG_ERR2 ("ms_mk_asn1_type: empty struct defined starting at offset %d TDL=%s", i, &tspec[i]); + S_UNLOCK_COMMON_RESOURCES (); + return (err_rtn (MVE_TYPEDEF_SYM_LBRACE,tspec)); + } + if (!name) + asn1r_fin_constr (aCtx, BEG_COMP_TYPE, CTX, 0); + asn1r_fin_constr (aCtx, SEQ_CODE, UNI, 0); + name = SD_FALSE; + asn1r_fin_constr (aCtx, 1, CTX, 0); + if (m_packed) + { + asn1r_wr_i16 (aCtx, 1); + asn1r_fin_prim (aCtx, PACKED,CTX); + } + asn1r_fin_constr (aCtx, BEG_STRUCT, CTX, 0); + m_packed = SD_FALSE; + break; + + case ',' : + if (number) + { + S_UNLOCK_COMMON_RESOURCES (); + return (err_rtn (MVE_TYPEDEF_SYM_COMMA,tspec)); + } + if (tspec[i+1]=='}' || tspec[i+1]==',') /* Ignore extra commas */ + { + MLOG_ENC0 ("ms_mk_asn1_type: ',' followed by ',' or '}' in TDL string ignored."); + } + else + { + if (!name) + asn1r_fin_constr (aCtx, BEG_COMP_TYPE, CTX, 0); + asn1r_fin_constr (aCtx, SEQ_CODE, UNI, 0); + name = SD_FALSE; + asn1r_strt_constr (aCtx); + asn1r_strt_constr (aCtx); + } + break; + + case ')' : + if (number || m_packed) + { + S_UNLOCK_COMMON_RESOURCES (); + return (err_rtn (MVE_TYPEDEF_SYM_RPAREN,tspec)); + } + asn1r_fin_constr (aCtx, BEG_COMP_TYPE, CTX, 0); + name = SD_TRUE; + literal = SD_TRUE; + tspec[i] = '\0'; + break; + + case '(' : + if (number || m_packed) + { + S_UNLOCK_COMMON_RESOURCES (); + return (err_rtn (MVE_TYPEDEF_SYM_LPAREN,tspec)); + } + literal = SD_FALSE; + asn1r_wr_vstr (aCtx, &tspec[i+1]); + asn1r_fin_prim (aCtx, COMPONENT_NAME, CTX); + break; + + case 'p' : + if (literal) + break; + if (m_packed) + { + S_UNLOCK_COMMON_RESOURCES (); + return (err_rtn (MVE_TYPEDEF_SYM_P,tspec)); + } + m_packed = SD_TRUE; + break; + + case '+' : + if (literal) + break; + if (!number || m_packed) + { + S_UNLOCK_COMMON_RESOURCES (); + return (err_rtn (MVE_TYPEDEF_SYM_PLUS,tspec)); + } + type_len = atoi (&tspec[i+1]); + tspec[i] = '\0'; + number = SD_FALSE; + break; + + case '-' : + if (literal) + break; + if (!number || m_packed) + { + S_UNLOCK_COMMON_RESOURCES (); + return (err_rtn (MVE_TYPEDEF_SYM_MINUS,tspec)); + } + type_len = -atoi (&tspec[i+1]); + tspec[i] = '\0'; + number = SD_FALSE; + break; + + case 't' : + if (literal) + break; + if (!number || m_packed) + { + S_UNLOCK_COMMON_RESOURCES (); + return (err_rtn (MVE_TYPEDEF_SYM_T,tspec)); + } + type = atoi (&tspec[i+1]); + switch (type) + { + case RT_BOOL : + case RT_GENERAL_TIME : + case RT_UTC_TIME : + if (type_len) + { + S_UNLOCK_COMMON_RESOURCES (); + return (err_rtn (MVE_TYPEDEF_BADLEN3,tspec)); + } + asn1r_fin_prim (aCtx, (ST_UINT16) type,CTX); + break; + + case RT_BIT_STRING : + case RT_OCTET_STRING : + case RT_VISIBLE_STRING : + case RT_UTF8_STRING: + asn1r_wr_i32 (aCtx, (ST_INT32) type_len); + asn1r_fin_prim (aCtx, (ST_UINT16) type,CTX); + break; + + case RT_INTEGER : + case RT_UNSIGNED : + case RT_BINARY_TIME : + if (type_len > 127) + { + S_UNLOCK_COMMON_RESOURCES (); + return (err_rtn (MVE_TYPEDEF_BADLEN5,tspec)); + } + asn1r_wr_u8 (aCtx, (ST_UCHAR) type_len); + asn1r_fin_prim (aCtx, (ST_UINT16) type, CTX); + break; + + case RT_BCD : + if (type_len > 8 || type_len <= 0) + { + S_UNLOCK_COMMON_RESOURCES (); + return (err_rtn (MVE_TYPEDEF_BADLEN5,tspec)); + } + asn1r_wr_u8 (aCtx, (ST_UCHAR) type_len); + asn1r_fin_prim (aCtx, (ST_UINT16) type, CTX); + break; + + case RT_FLOATING_POINT : + if (type_len < 256) + { + S_UNLOCK_COMMON_RESOURCES (); + return (err_rtn (MVE_TYPEDEF_BADLEN7,tspec)); + } + asn1r_strt_constr (aCtx); + asn1r_wr_u8 (aCtx, (ST_UCHAR) ((type_len>>8) & 0xFF)); /* write exp */ + asn1r_fin_prim (aCtx, INT_CODE,UNI); + +/* For IS MMS, first octet is exponent + sign + mantissa */ +/* For DIS MMS, first octet is mantissa */ + + if (!m_use_dis_float) + { + acc_float_size =(ST_UCHAR) ((type_len>>8) & 0xFF); /* exp */ + acc_float_size += (ST_UCHAR)(type_len & 0xFF); /* fract*/ + ++acc_float_size; /* sign */ + asn1r_wr_u8 (aCtx, acc_float_size); + } + else + asn1r_wr_u8 (aCtx, (ST_UCHAR)(type_len & 0xFF)); /* write fract */ + + asn1r_fin_prim (aCtx, INT_CODE,UNI); + asn1r_fin_constr (aCtx, (ST_UINT16) type, CTX, 0); + break; + + default : + S_UNLOCK_COMMON_RESOURCES (); + return (err_rtn (MVE_TYPEDEF_BADTYPE,tspec)); + } + type_len = 0; + number = SD_FALSE; + break; + + case ':' : + if (literal) + break; + if (number || m_packed) + { + S_UNLOCK_COMMON_RESOURCES (); + return (err_rtn (MVE_TYPEDEF_SYM_COLON,tspec)); + } + tspec [i] = '\0'; + num_elts = -1L; + break; + + case ']' : + if (number || m_packed) + { + S_UNLOCK_COMMON_RESOURCES (); + return (err_rtn (MVE_TYPEDEF_SYM_RBRACKET,tspec)); + } + asn1r_strt_constr (aCtx); + asn1r_strt_constr (aCtx); + tspec [i] = '\0'; + break; + + case '[' : + if (!number || !num_elts) + { + S_UNLOCK_COMMON_RESOURCES (); + return (err_rtn (MVE_TYPEDEF_SYM_LBRACKET,tspec)); + } + asn1r_fin_constr (aCtx, 2,CTX,0); + if (m_packed) + num_elts = atol (strchr(&tspec[i+1],'p') + 1); + else + num_elts = atol (&tspec[i+1]); + if (num_elts < 1L) + { + S_UNLOCK_COMMON_RESOURCES (); + return (err_rtn (MVE_TYPEDEF_NUM_ELTS,tspec)); + } + asn1r_wr_i32 (aCtx, num_elts); + asn1r_fin_prim (aCtx, 1, CTX); + if (m_packed) + { + asn1r_wr_i16 (aCtx, 1); + asn1r_fin_prim (aCtx, PACKED,CTX); + } + asn1r_fin_constr (aCtx, 1, CTX, 0); + num_elts = 0L; + number = SD_FALSE; + m_packed = SD_FALSE; + break; + + case ' ' : + case '\t' : + case '\n' : + break; + + default : + if (literal) + break; + if (tspec[i] >= '0' && tspec[i] <= '9') + { + if (m_packed) + { + S_UNLOCK_COMMON_RESOURCES (); + return (err_rtn (MVE_TYPEDEF_SYM_DIGIT,tspec)); + } + number = SD_TRUE; + break; + } + else + { + S_UNLOCK_COMMON_RESOURCES (); + return (err_rtn (MVE_TYPEDEF_SYM_OTHER,tspec)); + } + } + } /* end of while loop */ + + + chk_free (tspec); + if (aCtx->asn1r_encode_overrun) + { + mms_op_err = ME_ASN1_ENCODE_OVERRUN; + S_UNLOCK_COMMON_RESOURCES (); + return (NULL); + } + S_UNLOCK_COMMON_RESOURCES (); + MLOG_ENC1 ("ASN.1 type def encoded from TDL=%s", type_spec); + MLOG_ENCH (ASN1_ENC_LEN(aCtx), ASN1_ENC_PTR(aCtx)); + *asn1_len = ASN1_ENC_LEN(aCtx); + return (ASN1_ENC_PTR(aCtx)); + } + +/************************************************************************/ +/* type_subst */ +/* Function to pre-processes type definition strings. It substitutes */ +/* primitive syntax for certain abbreviations defined in the 'abbrev' */ +/* array. The syntax of the resulting string is able to be parsed */ +/* simply by ms_mk_asn1_type. This function returns the length of the */ +/* destination string. */ +/************************************************************************/ + +static ST_INT type_subst (ST_CHAR *dest_str, ST_CHAR *src_str, ST_INT src_len) + { +ST_BOOLEAN literal1, literal2; /* booleans indicating we're in a type */ + /* name or component name literal string*/ +ST_INT i, j, k, n; /* indexes and counters */ +ST_BOOLEAN found; /* boolean indicating a string starting */ + /* with a capital letter matches an */ + /* abbreviation and is to be replaced */ + + literal1 = literal2 = SD_FALSE; + i = j = 0; + + while (i < src_len) /* step through the source string */ + { + if (literal1) + { + if (src_str[i] == '>') /* Keep track of when a type name */ + literal1 = SD_FALSE; /* (delimited by '<' and '>') is */ + } /* beginning and ending. Abbreviations */ + else if (literal2) /* are not substituted inside type */ + { /* names. Ditto for component names */ + if (src_str[i] == ')') /* (delimited by '(' and ')'). */ + literal2 = SD_FALSE; + } + else if (src_str[i] == '<') + literal1 = SD_TRUE; + else if (src_str[i] == '(') + literal2 = SD_TRUE; + else if (src_str[i] >= 'A' && src_str[i] <= 'z') + { + found = SD_FALSE; + for (n = 0; n < numTdlTypes; n++) + { + if (strnicmp (tdlTypes[n].abbrev, &src_str[i], strlen (tdlTypes[n].abbrev))) + continue; + else + { + found = SD_TRUE; + break; + } + } + if (found) + { + k = strlen (tdlTypes[n].subType); + memcpy (&dest_str[j],tdlTypes[n].subType,k); + j += k; + i += strlen (tdlTypes[n].abbrev); + continue; + } + } + if (!isspace(src_str[i])) /* do not copy whitespace chars */ + dest_str[j++] = src_str[i]; + i++; /* ALWAYS increment src index */ + } + dest_str[j] = '\0'; + return (j); + } + + + +/************************************************************************/ +/* wr_object_name */ +/* Function to write an object name string to the ASN.1 stream */ +/* according to the ObjectName production in the MMS protocol */ +/* specification. The input string takes the form: */ +/* string1:IDENTIFIER, where string1 is "@VMD" for a VMD-specific */ +/* object, "@AA" for an AA-specific object, or a valid IDENTIFIER */ +/* naming a domain for a domain-specific object. IDENTIFIER is the */ +/* actual name of the object within the domain, VMD, or association- */ +/* specific environment. Returns 0 if successful, nonzero otherwise. */ +/************************************************************************/ + +static ST_RET wr_object_name (ASN1_ENC_CTXT *aCtx, ST_CHAR *objname) + { +ST_CHAR *ptr; + + if ((ptr = strchr (objname,':')) == NULL) /* check for colon */ + { + asn1r_wr_vstr (aCtx, objname); /* Default is VMD specific */ + asn1r_fin_prim (aCtx, 0,CTX); + return (SD_SUCCESS); + } + + *ptr = '\0'; /* replace colon with null char */ + ptr++; /* "ptr" pts to string after ':'*/ + if (!strcmp (objname,"@VMD")) + { + asn1r_wr_vstr (aCtx, ptr); + asn1r_fin_prim (aCtx, 0,CTX); + } + else if (!strcmp (objname,"@AA")) + { + asn1r_wr_vstr (aCtx, ptr); + asn1r_fin_prim (aCtx, 2,CTX); + } + else + { + asn1r_strt_constr (aCtx); /* Domain-specific when string */ + asn1r_wr_vstr (aCtx, ptr); /* before ':' is anything else */ + asn1r_fin_prim (aCtx, VISTR_CODE,UNI); + asn1r_wr_vstr (aCtx, objname); + asn1r_fin_prim (aCtx, VISTR_CODE,UNI); + asn1r_fin_constr (aCtx, 1,CTX,0); + } + return (SD_SUCCESS); + } + + +/************************************************************************/ +/* err_rtn */ +/* Function to be called when there is an error in ms_mk_asn1_type. */ +/************************************************************************/ + +static ST_UCHAR *err_rtn (ST_RET error, ST_CHAR *tspec) + { + mms_op_err = error; + chk_free (tspec); + return (NULL); + } + + +/************************************************************************/ +/* ms_asn1_to_tdl */ +/************************************************************************/ + +ST_CHAR *ms_asn1_to_tdl (ST_UCHAR *asn1_ptr, ST_INT asn1_len, ST_INT max_tdl_len) + { +ST_CHAR *tdl_buf; +ST_INT tdl_len; +RUNTIME_CTRL *rt_ctrl; + + S_LOCK_COMMON_RESOURCES (); + + /* Create temporary runtime type table. */ + /* Last arg allows biggest array "theoretically" possible to allocate.*/ + rt_ctrl = ms_runtime_create (asn1_ptr, asn1_len, + (UINT_MAX/sizeof(RUNTIME_TYPE))-100); + if (!rt_ctrl) /* if ASN.1 decode failed */ + { + mms_op_err = MVE_ASN1_TO_RT; + S_UNLOCK_COMMON_RESOURCES (); + return (NULL); /* quit */ + } + + tdl_buf = (ST_CHAR *) chk_calloc (1, max_tdl_len); + tdl_len = ms_runtime_to_tdl (rt_ctrl->rt_first, rt_ctrl->rt_num, tdl_buf, max_tdl_len); + + if (tdl_len == 0) + { + mms_op_err = MVE_ASN1_TO_RT; + chk_free (tdl_buf); + S_UNLOCK_COMMON_RESOURCES (); + return (NULL); + } + + tdl_buf = (ST_CHAR *) chk_realloc (tdl_buf, tdl_len); + ms_runtime_destroy (rt_ctrl); /* destroy temp rt type */ + + S_UNLOCK_COMMON_RESOURCES (); + return (tdl_buf); + } + +/************************************************************************/ +/* ms_runtime_to_tdl */ +/************************************************************************/ +static ST_INT add_tdl_separator (ST_CHAR *tdl_buf, ST_INT index, + ST_BOOLEAN member_found, + ST_BOOLEAN named_component_found); + +ST_INT ms_runtime_to_tdl (SD_CONST RUNTIME_TYPE *rt, ST_INT rt_num, + ST_CHAR *tdl_buf, ST_INT max_tdl_len) + { +ST_INT i; +ST_INT total_size; +SD_CONST RUNTIME_TYPE * rt_ptr; +#define SIZE_OF_TEMP_BUF 30 +ST_CHAR temp_buf[SIZE_OF_TEMP_BUF]; +ST_INT temp_size; /* len of string in temp_buf */ +ST_BOOLEAN overrun_detected; +SD_CONST ST_CHAR * comp_name; /* component name */ +ST_INT comp_name_len; /* len of component name*/ + +struct struct_tracking { + ST_BOOLEAN member_found; + }; +struct struct_tracking nest_level[ASN1_MAX_LEVEL]; +ST_BOOLEAN named_component_found; + +ST_INT cur_nest_level; + + for (i = 0; i < ASN1_MAX_LEVEL; i++) + { + nest_level[i].member_found = SD_FALSE; + } + + i=0; + overrun_detected = SD_FALSE; + rt_ptr = rt; + total_size = 0; + cur_nest_level = 0; + while ((i < rt_num) && (overrun_detected == SD_FALSE)) + { + named_component_found = SD_FALSE; /* assume comp name not found */ + comp_name = ms_comp_name_find (rt_ptr); + if (comp_name != NULL && comp_name[0] != 0) + { + comp_name_len = strlen (comp_name); + + /* Make sure there's room for comp_name + separator + '(' + ')'. */ + if ((total_size + comp_name_len + 3) < max_tdl_len) + { + /* CRITICAL: named_component_found is not yet set for this call.*/ + total_size += add_tdl_separator (tdl_buf, total_size, + nest_level[cur_nest_level].member_found, + named_component_found); + strcpy (&tdl_buf[total_size], "("); + total_size += 1; + strcpy (&tdl_buf[total_size],comp_name); + total_size += comp_name_len; + strcpy (&tdl_buf[total_size], ")"); + total_size += 1; + } + else + { + overrun_detected = SD_TRUE; + } + named_component_found = SD_TRUE; + } + + if (rt_ptr->el_tag == RT_ARR_END || rt_ptr->el_tag == RT_STR_END) + nest_level[cur_nest_level].member_found = SD_FALSE; + else + { + if (total_size + 1 < max_tdl_len) + { + total_size += add_tdl_separator (tdl_buf, total_size, + nest_level[cur_nest_level].member_found, + named_component_found); + } + else + overrun_detected = SD_TRUE; + nest_level[cur_nest_level].member_found = SD_TRUE; + } + + temp_buf[0] = '\0'; /* start with NULL string */ + switch (rt_ptr->el_tag) + { + case RT_ARR_START : + sprintf (temp_buf, "[%d:", (ST_INT)rt_ptr->u.arr.num_elmnts); + cur_nest_level++; + break; + + case RT_STR_START : + strcpy (temp_buf, "{"); + cur_nest_level++; + break; + + case RT_BOOL : + strcpy (temp_buf, "Bool"); + break; + + case RT_BIT_STRING : + if (rt_ptr->u.p.el_len < 0) + sprintf (temp_buf, "BVstring%d", abs (rt_ptr->u.p.el_len)); + else + sprintf (temp_buf, "Bstring%d", rt_ptr->u.p.el_len); + break; + + case RT_INTEGER : + switch (rt_ptr->u.p.el_len) + { + case 1: + strcpy (temp_buf, "Byte"); + break; + case 2: + strcpy (temp_buf, "Short"); + break; + case 4: + strcpy (temp_buf, "Long"); + break; +#ifdef INT64_SUPPORT + case 8: + strcpy (temp_buf, "Int64"); + break; +#endif + } + break; + + case RT_UNSIGNED : + switch (rt_ptr->u.p.el_len) + { + case 1: + strcpy (temp_buf, "Ubyte"); + break; + case 2: + strcpy (temp_buf, "Ushort"); + break; + case 4: + strcpy (temp_buf, "Ulong"); + break; +#ifdef INT64_SUPPORT + case 8: + strcpy (temp_buf, "Uint64"); + break; +#endif + } + break; + + case RT_FLOATING_POINT : + switch (rt_ptr->u.p.el_len) + { + case 4: + strcpy (temp_buf, "Float"); + break; + case 8: + strcpy (temp_buf, "Double"); + break; + } + break; + + case RT_OCTET_STRING : + if (rt_ptr->u.p.el_len < 0) + sprintf (temp_buf, "OVstring%d", abs (rt_ptr->u.p.el_len)); + else + sprintf (temp_buf, "Ostring%d", rt_ptr->u.p.el_len); + break; + + case RT_VISIBLE_STRING : + if (rt_ptr->u.p.el_len < 0) + sprintf (temp_buf, "Vstring%d", abs (rt_ptr->u.p.el_len)); + else + sprintf (temp_buf, "Fstring%d", rt_ptr->u.p.el_len); + break; + + case RT_GENERAL_TIME : + strcpy (temp_buf, "Gtime"); + break; + + case RT_BINARY_TIME : + sprintf (temp_buf, "Btime%d", rt_ptr->u.p.el_len); + break; + + case RT_BCD : + sprintf (temp_buf, "Bcd%d", (ST_INT)rt_ptr->u.p.el_len); + break; + + case RT_BOOLEANARRAY : + break; + + case RT_UTC_TIME: + strcpy (temp_buf, "Utctime"); + break; + + case RT_UTF8_STRING: + if (rt_ptr->u.p.el_len < 0) + sprintf (temp_buf, "UTF8Vstring%d", (ST_INT) abs (rt_ptr->u.p.el_len)); + else + sprintf (temp_buf, "UTF8string%d", (ST_INT) (rt_ptr->u.p.el_len)); + break; + + case RT_STR_END : + strcpy (temp_buf, "}"); + cur_nest_level--; + break; + + case RT_ARR_END : + strcpy (temp_buf, "]"); + cur_nest_level--; + break; + } + + + temp_size = strlen (temp_buf); + if (temp_size == 0) + { /* If buffer empty, rt_ptr contains unrecognized type*/ + /* DEBUG: this should NEVER happen. Chk for memory corruption. */ + MLOG_ERR1 ("RUNTIME_TYPE contains illegal el_tag = %d", rt_ptr->el_tag); + return (0); /* error */ + } + if (total_size + temp_size < max_tdl_len) + { + strcpy (&tdl_buf[total_size], temp_buf); + total_size += temp_size; + } + else + overrun_detected = SD_TRUE; + + rt_ptr++; /* point to next runtime element*/ + i++; + } /* end main loop*/ + + if (overrun_detected == SD_TRUE) + { + MLOG_NERR1 ("ms_runtime_to_tdl: tdl buffer overrun (max=%d)", max_tdl_len); + total_size = 0; + } + else + { + tdl_buf[total_size] = 0; /* ensure a Null terminator */ + total_size++; /* account for a Null terminator*/ + } + + return (total_size); + } + +/************************************************************************/ +/* add_tdl_separator */ +/************************************************************************/ + +static ST_INT add_tdl_separator (ST_CHAR *tdl_buf, ST_INT index, + ST_BOOLEAN member_found, + ST_BOOLEAN named_component_found) + { + if ((member_found == SD_TRUE) && + (named_component_found == SD_FALSE)) + { + strcpy (&tdl_buf[index], ","); + return (1); + } + else + { + return (0); + } + } + +/************************************************************************/ +/* ms_tdl_to_runtime */ +/* This function converts TDL to ASN.1 and then ASN.1 to RUNTIME_TYPE. */ +/* NOTE: this function allocates array of RUNTIME_TYPE structs by */ +/* calling "ms_runtime_create". The array must be freed by */ +/* calling "ms_runtime_destroy" (DO NOT use M_FREE or chk_free). */ +/************************************************************************/ +RUNTIME_CTRL *ms_tdl_to_runtime (ST_CHAR *tdl, /* TDL string */ + ST_UCHAR *asn1_buf, /* ASN.1 buffer */ + ST_INT asn1_buf_len) /* buffer len */ + { +ST_UCHAR *asn1_start; /* ptr to ASN.1 encoded type */ +RUNTIME_CTRL *rt_ctrl = NULL; /* assume failure */ + + /* NOTE: ms_mk_.. overwrites asn1_buf_len with len of ASN.1 encoding */ + asn1_start = ms_mk_asn1_type (&asn1_buf_len, asn1_buf, tdl); + if (asn1_start) /* successful */ + rt_ctrl = ms_runtime_create (asn1_start, asn1_buf_len, + (UINT_MAX/sizeof(RUNTIME_TYPE))-100); + return (rt_ctrl); + } diff --git a/mmslib/mmsl/ms_tdef2.c b/mmslib/mmsl/ms_tdef2.c new file mode 100644 index 0000000..91f4afa --- /dev/null +++ b/mmslib/mmsl/ms_tdef2.c @@ -0,0 +1,226 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : mms_tdef2.c */ +/* PRODUCT(S) : MMSEASE */ +/* */ +/* MODULE DESCRIPTION : */ +/* Functions to assist in using NESTED RUNTIME TYPES */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 08/01/05 JRB 13 Avoid risky cast to remove const. */ +/* 04/02/03 JRB 12 Add UTF8string support (see RT_UTF8_STRING). */ +/* 12/20/01 JRB 11 Converted to use ASN1R (re-entrant ASN1) */ +/* 11/14/01 EJV 10 Added support for new MMS type UtcTime: */ +/* ms_runtime_to_asn1: add case for RT_UTC_TIME */ +/* 10/18/01 JRB 09 Eliminate warning. */ +/* 07/28/00 JRB 08 Use ms_comp_name_find for everyone. */ +/* 07/13/00 JRB 07 Use new ms_comp_name_find to get comp names. */ +/* 09/13/99 MDE 06 Added SD_CONST modifiers */ +/* 04/14/99 MDE 05 Removed unnecessary include files */ +/* 09/10/98 MDE 04 Removed 'mvlRtNames' declaration */ +/* 08/13/98 MDE 03 Added asn1 encode overrun test to loop */ +/* 03/11/98 MDE 02 Removed NEST_RT_TYPES */ +/* 04/08/97 MDE 01 Fixed 'RT Table too small prob w/named types */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" +#include "mmsdefs.h" +#include "mms_pvar.h" +#include "mms_vvar.h" +#include "asn1defs.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/************************************************************************/ +/* ms_runtime_to_tdl */ +/************************************************************************/ +/* Converts RUNTIME TYPE to ASN.1. ASN.1 build must be started */ + +ST_RET ms_runtime_to_asn1 (ASN1_ENC_CTXT *aCtx, SD_CONST RUNTIME_TYPE *rt, ST_INT rt_num) + { +ST_INT i; +ST_INT level; +SD_CONST RUNTIME_TYPE *rt_ptr; +ST_BOOLEAN structComp[ASN1_MAX_LEVEL]; +ST_UCHAR v1; +ST_UCHAR v2; +const ST_CHAR *comp_name; + + S_LOCK_COMMON_RESOURCES (); + + level = 0; + rt_ptr = rt + (rt_num - 1); + for (i = 0; i < rt_num && aCtx->asn1r_encode_overrun == SD_FALSE; ++i, --rt_ptr) + { + switch (rt_ptr->el_tag) + { + case RT_ARR_START : + --level; + /* Finish typeSpecification */ + asn1r_fin_constr (aCtx, 2, CTX, SD_FALSE); + + /* Write numberOfElements */ + asn1r_wr_i32 (aCtx, (ST_INT32) rt_ptr->u.arr.num_elmnts); + asn1r_fin_prim (aCtx, 1,CTX); + + /* Finish array */ + asn1r_fin_constr (aCtx, 1, CTX, SD_FALSE); + break; + + case RT_ARR_END : + ++level; + structComp[level] = SD_FALSE; + asn1r_strt_constr (aCtx); /* Start array */ + asn1r_strt_constr (aCtx); /* Start typeSpecification */ + break; + + case RT_STR_START : + --level; + asn1r_fin_constr (aCtx, 1, CTX, SD_FALSE); /* Finish components */ + asn1r_fin_constr (aCtx, 2, CTX, SD_FALSE); /* Finish structure */ + break; + + case RT_STR_END : + ++level; + structComp[level] = SD_TRUE; + + asn1r_strt_constr (aCtx); /* Start structure */ + asn1r_strt_constr (aCtx); /* Start components */ + /* prepare for first component */ + asn1r_strt_constr (aCtx); /* Start component seq of seq */ + asn1r_strt_constr (aCtx); /* Start component type */ + break; + + case RT_BOOL : + asn1r_fin_prim (aCtx, RT_BOOL, CTX); + break; + + case RT_INTEGER : + asn1r_wr_u8 (aCtx, (ST_UCHAR) (rt_ptr->u.p.el_len * 8)); + asn1r_fin_prim (aCtx, RT_INTEGER, CTX); + break; + + case RT_UNSIGNED : + asn1r_wr_u8 (aCtx, (ST_UCHAR) (rt_ptr->u.p.el_len * 8)); + asn1r_fin_prim (aCtx, RT_UNSIGNED, CTX); + break; + + case RT_FLOATING_POINT : + asn1r_strt_constr (aCtx); + if (rt_ptr->u.p.el_len == 4) /* single precision */ + { + v1 = SNGL_EXP; + if (!m_use_dis_float) + v2 = SNGL_WHOLE; + else + v2 = SNGL_FRACT; + } + else + { + v1 = DOUBL_EXP; + if (!m_use_dis_float) + v2 = DOUBL_WHOLE; + else + v2 = DOUBL_FRACT; + } + asn1r_wr_u8 (aCtx, v1); /* write exp */ + asn1r_fin_prim (aCtx, INT_CODE,UNI); + asn1r_wr_u8 (aCtx, v2); + asn1r_fin_prim (aCtx, INT_CODE,UNI); + asn1r_fin_constr (aCtx, RT_FLOATING_POINT, CTX, SD_FALSE); + break; + + case RT_BIT_STRING : + case RT_OCTET_STRING : + case RT_VISIBLE_STRING : + case RT_UTF8_STRING : /* all same encoding w/ different tags*/ + asn1r_wr_i32 (aCtx, (ST_INT32) rt_ptr->u.p.el_len); + asn1r_fin_prim (aCtx, rt_ptr->el_tag, CTX); + break; + + case RT_GENERAL_TIME : + asn1r_fin_prim (aCtx, RT_GENERAL_TIME, CTX); + break; + + case RT_BINARY_TIME : + if (rt_ptr->u.p.el_len == 4) + asn1r_wr_u8 (aCtx, 0); + else + asn1r_wr_u8 (aCtx, 1); + asn1r_fin_prim (aCtx, RT_BINARY_TIME, CTX); + break; + + case RT_UTC_TIME : + asn1r_fin_prim (aCtx, RT_UTC_TIME, CTX); + break; + + case RT_BCD : + asn1r_wr_u8 (aCtx, (ST_UCHAR) rt_ptr->u.p.el_len); + asn1r_fin_prim (aCtx, RT_BCD, CTX); + break; + + case RT_BOOLEANARRAY : + break; + + default : + MLOG_ERR1 ("MS_RUNTIME_TO_ASN1: Invalid element tag (%d)", + rt_ptr->el_tag); + S_UNLOCK_COMMON_RESOURCES (); + return (SD_FAILURE); + break; + } + + if (level > 0 && structComp[level] == SD_TRUE && + rt_ptr->el_tag != RT_STR_END) + { + asn1r_fin_constr (aCtx, 1, CTX, SD_FALSE); /* Finish typeSpec */ + + comp_name = ms_comp_name_find (rt_ptr); + if (strlen (comp_name)) + { + asn1r_wr_vstr (aCtx, comp_name); + asn1r_fin_prim (aCtx, 0, CTX); + } + asn1r_fin_constr (aCtx, SEQ_CODE, UNI, SD_FALSE); + + if ((rt_ptr-1)->el_tag != RT_STR_START) + { + /* prepare for the next component */ + asn1r_strt_constr (aCtx); /* Start component seq of seq */ + asn1r_strt_constr (aCtx); /* Start component type */ + } + } + } + + S_UNLOCK_COMMON_RESOURCES (); + + if (aCtx->asn1r_encode_overrun) + { + MLOG_NERR0 ("ms_runtime_to_asn1 : ASN.1 encode overrun"); + return (SD_FAILURE); + } + return (SD_SUCCESS); + } + + diff --git a/mmslib/mmsl/ms_tdef4.c b/mmslib/mmsl/ms_tdef4.c new file mode 100644 index 0000000..2feec0b --- /dev/null +++ b/mmslib/mmsl/ms_tdef4.c @@ -0,0 +1,51 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2003 - 2003, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : ms_tdef4.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* Function called by "ms_runtime_create" to find base types when */ +/* building complex types. */ +/* NOTE: This module should be included in a library & should contain */ +/* ONLY "u_ml_get_rt_type", so that the user can easily replace */ +/* this function with a customized function. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* u_ml_get_rt_type */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 02/21/07 JRB 02 Just log & return error (removes dependence */ +/* on "mvl" library). If base types needed, */ +/* user app should create customized funct. */ +/* 04/24/03 JRB 01 New module. */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "mmsdefs.h" +#include "mms_vvar.h" + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/* u_ml_get_rt_type */ +/* Called by "ms_runtime_create" to find base types (INT32S, etc.). */ +/************************************************************************/ +ST_RET u_ml_get_rt_type (ASN1_DEC_CTXT *aCtx, OBJECT_NAME *type_name, + RUNTIME_TYPE **rt_out, ST_INT *num_rt_out) + { + /* DEBUG: if this error occurs, create customized function in user */ + /* application (see sample applications). */ + MLOG_ERR0 ("u_ml_get_rt_type: Finding base types not supported."); + return (SD_FAILURE); + } diff --git a/mmslib/mmsl/msdataas.c b/mmslib/mmsl/msdataas.c new file mode 100644 index 0000000..95c8eca --- /dev/null +++ b/mmslib/mmsl/msdataas.c @@ -0,0 +1,101 @@ +/***********************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2002, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : msdataas.c */ +/* PRODUCT(S) : MMSEASE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 01/02/02 JRB 04 Convert to use ASN1R (re-entrant ASN1). */ +/* 04/28/00 JRB 03 Lint cleanup */ +/* 09/13/99 MDE 02 Added SD_CONST modifiers */ +/* 06/09/97 MDE 01 Modified Runtime Type handling */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" +#include "mmsdefs.h" +#include "mms_pvar.h" +#include "mms_vvar.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/* Stub functions, included to allow transparent linking */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +static ST_CHAR *nfStubMsg = "Non-functional stub function called"; +#endif + +/************************************************************************/ +/************************************************************************/ +/* The real version of these functions are found in mmsdataa.c */ + +#ifndef MMS_LITE + +ST_RET ms_asn1_to_locl_aa (NAMED_TYPE *tptr, + ALT_ACCESS *alt_acc, + ST_UCHAR *asn1ptr, /* pointer to ASN.1 'Data' */ + ST_INT asn1len, /* length of ASN.1 'Data' */ + ST_CHAR *dptr) /* local data buffer pointer */ + { + MLOG_NERR0 (nfStubMsg); + return (SD_FAILURE); + } +#endif + +ST_RET ms_asn1_to_local_aa (SD_CONST RUNTIME_TYPE *rt_head, + ST_INT rt_num, + ALT_ACCESS *alt_acc, + ST_UCHAR *asn1ptr, + ST_INT asn1len, + ST_CHAR *dptr) + { + MLOG_NERR0 (nfStubMsg); + return (SD_FAILURE); + } + +/************************************************************************/ +/* The real version of these functions are found in mmsdataa.c */ + +#ifndef MMS_LITE + +ST_RET ms_locl_to_asn1_aa (ASN1_ENC_CTXT *aCtx, NAMED_TYPE *tptr, + ALT_ACCESS *alt_acc, + ST_CHAR *dptr) + { + MLOG_NERR0 (nfStubMsg); + return (SD_FAILURE); + } +#endif + + +ST_RET ms_local_to_asn1_aa (ASN1_ENC_CTXT *aCtx, SD_CONST RUNTIME_TYPE *rt_head, + ST_INT rt_num, + ALT_ACCESS *alt_acc, + ST_CHAR *dptr) + { + MLOG_NERR0 (nfStubMsg); + return (SD_FAILURE); + } + diff --git a/mmslib/mmsl/rq_ackev.c b/mmslib/mmsl/rq_ackev.c new file mode 100644 index 0000000..9abc569 --- /dev/null +++ b/mmslib/mmsl/rq_ackev.c @@ -0,0 +1,113 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_ackev.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of the acknowledge */ +/* event notification operation. It decodes the acknowledge event */ +/* notification response (confirm) & encodes the acknowledge event */ +/* notification request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 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_pevn.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : NONE */ + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +/************************************************************************/ +/************************************************************************/ +/* mms_ackevnot_rsp */ +/* NOTE : Since the mms_ackevnot_type_rsp is a NULL PDU, the decode is */ +/* continued by '_mms_null_pdu_dec', which simply sets decode done = 1 */ +/* and sets the decode done function to point to the general decode done*/ +/* fun. See mmsdec.c for the general functions. */ +/************************************************************************/ + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_ackevnot */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE & send the acknowledge event notification request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_ackevnot (ST_INT chan, ACKEVNOT_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_ACK_EVENT_NOT, + M_CAST_MK_FUN (_ms_mk_ackevnot_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_ackevnot */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the acknowledge event notification request. */ +/************************************************************************/ + +ST_RET mpl_ackevnot (ACKEVNOT_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_ACK_EVENT_NOT, + M_CAST_MK_FUN (_ms_mk_ackevnot_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_ackevnot_req */ +/* construct an acknowledge event notification request. */ +/************************************************************************/ + +ST_VOID _ms_mk_ackevnot_req (ASN1_ENC_CTXT *aCtx, ACKEVNOT_REQ_INFO *info) + { + /* check for acknowledgement event condition name */ + if (info->ackec_name_pres) + { /* ack event cond name present */ + asn1r_strt_constr (aCtx); /* start context tag 1 cstr */ + _ms_wr_mms_objname (aCtx, &info->ackec_name); /* write ack event cond name */ + asn1r_fin_constr (aCtx, 4, CTX, DEF); /* context tag 4 */ + } + + asn1r_strt_constr (aCtx); /* start context tag 3 cstr */ + _ms_wr_mms_evtime (aCtx, &info->evtime); + asn1r_fin_constr (aCtx, 3, CTX, DEF); /* finish context tag 3 */ + + asn1r_wr_i16 (aCtx, info->ack_state); /* write ack state */ + asn1r_fin_prim (aCtx, 2, CTX); /* context tag 2 */ + + asn1r_strt_constr (aCtx); /* start context tag 0 cstr */ + _ms_wr_mms_objname (aCtx, &info->evenroll_name);/* write event condition name */ + asn1r_fin_constr (aCtx, 0, CTX, DEF); /* context tag 0 */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_ACK_EVENT_NOT,CTX,DEF); /* tag = opcode, ctx cstr */ + } diff --git a/mmslib/mmsl/rq_cancl.c b/mmslib/mmsl/rq_cancl.c new file mode 100644 index 0000000..8fbc16f --- /dev/null +++ b/mmslib/mmsl/rq_cancl.c @@ -0,0 +1,153 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2005, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_cancl.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of the cancel */ +/* operation. It decodes the cancel response (confirm) & encodes */ +/* the cancel request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 02/28/05 EJV 04 Elim Linux warnings in if (a=b) */ +/* 03/11/04 GLB 03 Cleaned up "thisFileName" */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 01 Added SD_CONST modifiers */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" + +#include "mmsdefs.h" +#include "mms_pcon.h" +#include "asn1defs.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#if defined(DEBUG_SISCO) && defined(S_MT_SUPPORT) +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ + +/* variables global to the DECODE portion : NONE */ +/* variables global to the ENCODE portion : NONE */ + + +/************************************************************************/ +/************************************************************************/ +/* mms_cancel_rsp */ +/* This function is called from mmsdec when a response is received and */ +/* the opcode for this operation is decoded. Set up state machine */ +/* function pointers to end the parse, since the parse is complete. */ +/************************************************************************/ + +ST_VOID mms_cancel_rsp (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Cancel Response"); + + _mmsdec_rslt->data_pres = SD_FALSE; /* cancel just has invoke id */ + aCtx->asn1r_decode_done = SD_TRUE; + asn1r_set_all_cstr_done (aCtx); + aCtx->asn1r_decode_done_fun = NULL; + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_cancel */ +/* Send cancel request. Returns a pointer to the same request control */ +/* structure that was input unless the cancel request does not get sent.*/ +/************************************************************************/ + +MMSREQ_PEND *mp_cancel (MMSREQ_PEND *reqptr) + { +ST_UCHAR *msg_ptr; +ST_INT msg_len; +LLP_ADDR_INFO add_llp_info; +ASN1_ENC_CTXT localEncCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_ENC_CTXT *aCtx = &localEncCtx; + + if (reqptr -> op > MAX_MMS_OPCODE) + { + mms_op_err = MVE_WRONG_OP; + return ((MMSREQ_PEND *)0); + } + + S_LOCK_COMMON_RESOURCES (); + msg_ptr = _ms_mk_cancel (aCtx, SD_TRUE,m_build_buf,mms_max_msgsize,reqptr -> id); + msg_len = M_BUILD_BUF_END - msg_ptr; /* find length of message */ + + add_llp_info.i.LLC.use_rem_addr = SD_FALSE; + add_llp_info.i.LLC.send_type = CONFIRMED_REQ_PDU; + add_llp_info.i.LLC.req_ptr = (ST_CHAR *)reqptr; + + if (aCtx->asn1r_encode_overrun) /* Check for encode overrun */ + { + mms_op_err = ME_ASN1_ENCODE_OVERRUN; + S_UNLOCK_COMMON_RESOURCES (); + return ((MMSREQ_PEND *)NULL); /* return error code */ + } + else if ((mms_op_err = _mms_send_data (reqptr->chan, msg_len, msg_ptr, + reqptr->context, &add_llp_info)) != 0) + { + S_UNLOCK_COMMON_RESOURCES (); + return ((MMSREQ_PEND *)NULL); /* return error code */ + } + else + { /* Adjust state of service request to be cancelled. */ + reqptr -> cancl_state = CANCEL_REQUESTED; + S_UNLOCK_COMMON_RESOURCES (); + return (reqptr); + } + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_cancel */ +/* Send cancel request. Returns a pointer to the same request control */ +/* structure that was input unless the cancel request does not get sent.*/ +/************************************************************************/ + +ST_RET mpl_cancel (ST_VOID) + { +ST_RET ret; +ASN1_ENC_CTXT localEncCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_ENC_CTXT *aCtx = &localEncCtx; + + mmsl_msg_start = _ms_mk_cancel (aCtx, SD_TRUE, mmsl_enc_buf, mmsl_enc_buf_size, + mmsl_invoke_id); + mmsl_msg_len = (mmsl_enc_buf + mmsl_enc_buf_size) - mmsl_msg_start; + + if (!aCtx->asn1r_encode_overrun) /* Check for encode overrun */ + ret = SD_SUCCESS; + else + ret = ME_ASN1_ENCODE_OVERRUN; + + S_UNLOCK_COMMON_RESOURCES (); + return (ret); + } +#endif + +/************************************************************************/ +/* _ms_mk_cancel */ +/* Note that there is only one _ms_mk_cancel function, and it is listed in */ +/* the mmscancl.c module. */ +/************************************************************************/ diff --git a/mmslib/mmsl/rq_concl.c b/mmslib/mmsl/rq_concl.c new file mode 100644 index 0000000..fd4edba --- /dev/null +++ b/mmslib/mmsl/rq_concl.c @@ -0,0 +1,151 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2007, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_concl.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of the conclude */ +/* operation. It decodes the conclude response (confirm) & */ +/* encodes the conclude request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 11/01/07 EJV 05 Rem obsolete LLC30... code. */ +/* 02/28/05 EJV 04 Elim Linux warnings in if (a=b) */ +/* 03/11/04 GLB 03 Cleaned up "thisFileName" */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 01 Added SD_CONST modifiers */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" + +#include "mmsdefs.h" +#include "mms_pcon.h" +#include "asn1defs.h" +#include "slog.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#if defined(DEBUG_SISCO) && defined(S_MT_SUPPORT) +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/* External functions (see mmsconcl) : */ +/* ST_CHAR *_ms_mk_conclude (buf_ptr,buf_len,pdutype) */ + +/************************************************************************/ +/************************************************************************/ +/* mms_conclude_rsp */ +/* NOTE : Since a CONCLUDE is a NULL PDU, the decode is continued */ +/* by '_mms_null_pdu_dec', which simply sets decode done = 1 and sets */ +/* the decode done function to point to the general decode done fun */ +/* See mmsdec.c for the general functions. */ +/************************************************************************/ + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_conclude */ +/* create and send a conclude request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_conclude (ST_INT chan) + { +ST_UCHAR *msg_ptr; +ST_INT msg_len; +MMSREQ_PEND *reqptr; +LLP_ADDR_INFO add_llp_info; +ASN1_ENC_CTXT localEncCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_ENC_CTXT *aCtx = &localEncCtx; + + S_LOCK_COMMON_RESOURCES (); + + reqptr = _ms_get_req_ptr (chan,MMSOP_CONCLUDE,(ST_CHAR *) 0); + if (!reqptr) + { + S_UNLOCK_COMMON_RESOURCES (); + return ((MMSREQ_PEND *) 0); + } + + msg_ptr = _ms_mk_conclude (aCtx,m_build_buf,mms_max_msgsize,MMSCNCLREQ); + msg_len = M_BUILD_BUF_END - msg_ptr; /* find length */ + + add_llp_info.i.LLC.use_rem_addr = SD_FALSE; + add_llp_info.i.LLC.send_type = CONCLUDE_REQ_PDU; + add_llp_info.i.LLC.req_ptr = (ST_CHAR *)reqptr; + + if (aCtx->asn1r_encode_overrun) /* Check for encode overrun */ + { + mms_op_err = ME_ASN1_ENCODE_OVERRUN; + _ms_deact_pend_req (reqptr); /* move from pend to avail */ + S_UNLOCK_COMMON_RESOURCES (); + return ((MMSREQ_PEND *) 0); /* return error code */ + } + else if ((mms_op_err = _mms_send_data (chan, msg_len, msg_ptr, + reqptr->context, &add_llp_info)) != 0) + { /* need to recover req ctrl */ + _ms_deact_pend_req (reqptr); /* move from pend to avail */ + S_UNLOCK_COMMON_RESOURCES (); + return ((MMSREQ_PEND *) 0); /* return error code */ + } + else + { + mms_chan_info[chan].ctxt.chan_state |= M_CONCL_REQ_PEND; + + /* If a request logging function is installed, call it */ + if (m_log_req_info_fun && (mms_debug_sel & MMS_LOG_REQ)) + (*m_log_req_info_fun) (reqptr, NULL); + + S_UNLOCK_COMMON_RESOURCES (); + return (reqptr); + } + } +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_conclude */ +/* create a conclude request. */ +/************************************************************************/ + +ST_RET mpl_conclude (ST_VOID) + { +ST_RET ret; +ASN1_ENC_CTXT localEncCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_ENC_CTXT *aCtx = &localEncCtx; + + S_LOCK_COMMON_RESOURCES (); + mmsl_msg_start = _ms_mk_conclude (aCtx, mmsl_enc_buf, mmsl_enc_buf_size, MMSCNCLREQ); + mmsl_msg_len = (mmsl_enc_buf + mmsl_enc_buf_size) - mmsl_msg_start; + + if (!aCtx->asn1r_encode_overrun) /* Check for encode overrun */ + ret = SD_SUCCESS; + else + ret = ME_ASN1_ENCODE_OVERRUN; + + S_UNLOCK_COMMON_RESOURCES (); + return (ret); + } +#endif + +/************************************************************************/ +/* _ms_mk_conclude */ +/* Note that there is only one _ms_mk_conclude function, and it is listed */ +/* in the mmsconcl.c module. */ +/************************************************************************/ + diff --git a/mmslib/mmsl/rq_defee.c b/mmslib/mmsl/rq_defee.c new file mode 100644 index 0000000..d0ced02 --- /dev/null +++ b/mmslib/mmsl/rq_defee.c @@ -0,0 +1,127 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_defee.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of define event */ +/* enrollment. It decodes the define event enrollment response */ +/* (confirm) & encodes the define event enrollment request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 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_pevn.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : NONE */ + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ +/************************************************************************/ +/************************************************************************/ +/* mms_defee_rsp */ +/* NOTE : Since the mms_defee_rsp is a NULL PDU, the decode is */ +/* continued by '_mms_null_pdu_dec', which simply sets decode done = 1 */ +/* and sets the decode done function to point to the general decode done*/ +/* fun. See mmsdec.c for the general functions. */ +/************************************************************************/ + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_defee */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the define event enrollment request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_defee (ST_INT chan, DEFEE_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_DEF_EE, + M_CAST_MK_FUN (_ms_mk_defee_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_defee */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the define event enrollment request. */ +/************************************************************************/ + +ST_RET mpl_defee (DEFEE_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_DEF_EE, + M_CAST_MK_FUN (_ms_mk_defee_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_defee_req */ +/* ENCODE a define event enrollment REQUEST: */ +/************************************************************************/ + +ST_VOID _ms_mk_defee_req (ASN1_ENC_CTXT *aCtx, DEFEE_REQ_INFO *info) + { + if (info->ackec_name_pres) + { + asn1r_strt_constr (aCtx); /* start ctx tag 6 constructor */ + _ms_wr_mms_objname (aCtx, &info->ackec_name); /* write ack event cond name */ + asn1r_fin_constr (aCtx, 6,CTX,DEF); /* context specific tag 6 */ + } + + if (info->client_app_pres) + { + asn1r_strt_constr (aCtx); /* start the ctx 5 constr */ + asn1r_wr_delmnt (aCtx, info->client_app,info->client_app_len); + asn1r_fin_constr (aCtx, 5,CTX,DEF); /* finish ctx 5 constructor */ + } + + if (info->evact_name_pres) + { + asn1r_strt_constr (aCtx); /* start ctx tag 4 constructor */ + _ms_wr_mms_objname (aCtx, &info->evact_name); /* write event action name */ + asn1r_fin_constr (aCtx, 4,CTX,DEF); /* context specific tag 4 */ + } + + asn1r_wr_i16 (aCtx, info->alarm_ack_rule); + asn1r_fin_prim (aCtx, 3, CTX); + + asn1r_wr_bitstr (aCtx, (ST_UCHAR *)&info->ec_transitions, 7); + asn1r_fin_prim (aCtx, 2, CTX); + + asn1r_strt_constr (aCtx); /* start ctx tag 1 constructor */ + _ms_wr_mms_objname (aCtx, &info->evcon_name); /* write event condition name */ + asn1r_fin_constr (aCtx, 1,CTX,DEF); /* context specific tag 1 */ + + asn1r_strt_constr (aCtx); /* start ctx tag 0 constructor */ + _ms_wr_mms_objname (aCtx, &info->evenroll_name);/* write event enrollment name */ + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* context specific tag 0 */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_DEF_EE,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsl/rq_evnot.c b/mmslib/mmsl/rq_evnot.c new file mode 100644 index 0000000..d8ec771 --- /dev/null +++ b/mmslib/mmsl/rq_evnot.c @@ -0,0 +1,181 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2004, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_evnot.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of the event */ +/* notification service. It encodes the event notification */ +/* request. There is no response (confirm). */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/28/05 JRB 05 Incl suicacse if MMS_LITE not defined. */ +/* 09/17/04 EJV 04 Use new mms_chk_resource. */ +/* 12/12/02 JRB 03 Add ASN1_ENC_CTXT arg to mpl_evnot */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 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 "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +#ifndef MMS_LITE +#include "mms_pevn.h" +#include "suicacse.h" /* for SE_QUE_FULL only */ + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/************************************************************************/ +/* mp_evnot */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE & send the event notification request. */ +/************************************************************************/ + +ST_RET mp_evnot (ST_INT chan, EVNOT_REQ_INFO *info_ptr) + { +ST_RET rc; +ST_INT avail; + + /* locking here will assure that _mms_chk_resource will work in */ + /* multiple threads when mp_* functions are called to send */ + /* unconfirmed requests */ + S_LOCK_COMMON_RESOURCES (); + + avail = _mms_chk_resource (chan); + if (avail > 0) + rc = _mms_unconf_req_send (MMSOP_EVENT_NOT, + M_CAST_MK_FUN (_ms_mk_evnot_req), + chan,(ST_CHAR *)info_ptr); + else + rc = SE_QUE_FULL; + + S_UNLOCK_COMMON_RESOURCES (); + + return (rc); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_evnot */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the event notification request. */ +/************************************************************************/ + +ST_RET mpl_evnot (ASN1_ENC_CTXT *aCtx, EVNOT_REQ_INFO *info_ptr) + { + return (_mms_unconf_req_fin (aCtx, MMSOP_EVENT_NOT, + M_CAST_MK_FUN (_ms_mk_evnot_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_evnot_req */ +/* construct an event notification request. */ +/************************************************************************/ + +ST_VOID _ms_mk_evnot_req (ASN1_ENC_CTXT *aCtx, EVNOT_REQ_INFO *info) + { + if (info->evact_result_pres) + { /* write event action result */ + asn1r_strt_constr (aCtx); /* start context tag 8 cstr */ + asn1r_strt_constr (aCtx); /* start ctx tag 0 or 1 cstr */ + + if (info->evact_result_tag == 1) /* failure, write service error */ + { /* then check for modifier pos */ + _ms_wr_service_err (aCtx, (info->serv_err)->eclass,(info->serv_err)->code, + &(info->serv_err)->adtnl); + asn1r_fin_constr (aCtx, 1, CTX, DEF); + +#ifdef MOD_SUPPORT + if (info->mod_pos_pres) + { + asn1r_wr_u32 (aCtx, info->mod_pos); + asn1r_fin_prim (aCtx, 0, CTX); + } +#endif + } + else /* SD_SUCCESS */ + { +#ifdef CS_SUPPORT /* first check for CS response detail */ + if (info->cs_rdetail_pres) + { + asn1r_strt_constr (aCtx); /* start context tag 79 cstr */ + asn1r_wr_delmnt (aCtx, info->cs_rdetail, info->cs_rdetail_len); + asn1r_fin_constr (aCtx, 79, CTX, DEF); /* CS is cstr 79 */ + } +#endif + asn1r_wr_delmnt (aCtx, info->conf_serv_resp, info->conf_serv_resp_len); + } + asn1r_fin_constr (aCtx, info->evact_result_tag, CTX, DEF); /* cstr 0 or 1 */ + _ms_wr_mms_objname (aCtx, &info->evact_name); /* write event action name */ + asn1r_fin_constr (aCtx, 8, CTX, DEF); /* finish context tag 8 cstr */ + } + + if (info->alarm_ack_rule_pres) + { /* write alarm ack rule */ + asn1r_wr_i16 (aCtx, info->alarm_ack_rule); + asn1r_fin_prim (aCtx, 7, CTX); + } + + if (info->not_lost) + { /* not the defalut */ + asn1r_wr_bool (aCtx, info->not_lost); /* write notification lost */ + asn1r_fin_prim (aCtx, 6, CTX); + } + + asn1r_strt_constr (aCtx); /* start context tag 4 cstr */ + _ms_wr_mms_evtime (aCtx, &info->trans_time); /* write event time */ + asn1r_fin_constr (aCtx, 4, CTX, DEF); /* finish context tag 4 cstr */ + + if (info->cur_state_pres) + { + asn1r_wr_i16 (aCtx, info->cur_state); /* write the current state */ + asn1r_fin_prim (aCtx, 3, CTX); + } + + asn1r_wr_u8 (aCtx, info->severity); /* write the severity */ + asn1r_fin_prim (aCtx, 2, CTX); + + asn1r_strt_constr (aCtx); /* start context tag 1 cstr */ + _ms_wr_mms_objname (aCtx, &info->evcon_name); /* write event condition name */ + asn1r_fin_constr (aCtx, 1,CTX,DEF); /* finish the ev con name cstr */ + + asn1r_strt_constr (aCtx); /* start event enrollment name */ + _ms_wr_mms_objname (aCtx, &info->evenroll_name);/* write event enrollment name */ + asn1r_fin_constr (aCtx, 0, CTX, DEF); /* finish eventenrollment cstr */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, 2,CTX,DEF); /* tag = opcode, ctx */ + } diff --git a/mmslib/mmsl/rq_getcl.c b/mmslib/mmsl/rq_getcl.c new file mode 100644 index 0000000..1993b7a --- /dev/null +++ b/mmslib/mmsl/rq_getcl.c @@ -0,0 +1,225 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_getcl.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of get capability */ +/* list. It decodes the get capability list response (confirm) & */ +/* encodes the get capability list request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 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++ */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 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_pvmd.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : NONE */ + +static GETCL_RESP_INFO *rsp_info; + +static ST_CHAR **cap_ptr; +static ST_INT max_capabilities; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID getcl_cap_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID getcl_get_cap (ASN1_DEC_CTXT *aCtx); +static ST_VOID getcl_cap_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID getcl_get_more_follows (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_getcl_rsp */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_getcl_rsp (ASN1_DEC_CTXT *aCtx) + { +ST_INT rsp_size; + + MLOG_CDEC0 ("Get Capability List Response"); + +#if defined(FIXED_DECBUF) + max_capabilities = m_cl_max_getcl_cap; + rsp_size = mmsl_dec_info_size; +#else + /* determine maximum size */ + max_capabilities = _mmsdec_msglen/2; + if (m_cl_max_getcl_cap && (max_capabilities > m_cl_max_getcl_cap)) + max_capabilities = m_cl_max_getcl_cap; + +/* get storage for resp info */ + rsp_size = sizeof (GETCL_RESP_INFO) + + (max_capabilities * (sizeof (ST_CHAR *))); +#endif + +/* get storage for request information */ + rsp_info = (GETCL_RESP_INFO *) _m_get_dec_buf (aCtx, rsp_size); + cap_ptr = (ST_CHAR **) (rsp_info + 1); + rsp_info->more_follows = SD_TRUE; + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, getcl_cap_cstr); + } + +/************************************************************************/ +/* getcl_cap_cstr */ +/* get capability list RESPONSE (confirm) is being decoded: */ +/* capability list constructor was encountered. */ +/************************************************************************/ + +static ST_VOID getcl_cap_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getcl_cap_cstr"); + + ASN1R_TAG_ADD (aCtx, UNI, VISTR_CODE, getcl_get_cap); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = getcl_cap_cstr_done; + aCtx->asn1r_decode_done_fun = _mms_dec_done_ok; + } + +/************************************************************************/ +/* getcl_get_cap */ +/* get capability list RESPONSE (confirm) is being decoded: */ +/* capability was encountered. */ +/************************************************************************/ + +static ST_VOID getcl_get_cap (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getcl_get_cap"); + + rsp_info->num_of_capab++; /* increment # of capabilities */ + if (rsp_info->num_of_capab > max_capabilities) + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + + /* copy capability back onto itself shifted by one character */ + *cap_ptr = (ST_CHAR *) aCtx->asn1r_field_ptr - 1; + if (asn1r_get_vstr (aCtx, *cap_ptr)) + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + cap_ptr++; + + ASN1R_TAG_ADD (aCtx, UNI, VISTR_CODE, getcl_get_cap); + } + +/************************************************************************/ +/* getcl_cap_cstr_done */ +/* get capability list RESPONSE (confirm) is being decoded: */ +/* capability list constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID getcl_cap_cstr_done (ASN1_DEC_CTXT *aCtx) + { +ST_INT rsp_size; + + /* find actual size for response info */ +/* OK to be done, or may have more follows indicator */ + rsp_size = sizeof (GETCL_RESP_INFO) + + (sizeof (ST_CHAR *) * rsp_info->num_of_capab); + + /* give back unused _mms_dec_info; */ + _mms_dec_info = (*m_realloc_os_fun) (_mms_dec_info,rsp_size); + rsp_info = (GETCL_RESP_INFO *) _mms_dec_info; + + ASN1R_TAG_ADD (aCtx, CTX,1,getcl_get_more_follows); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* getcl_get_more_follows */ +/* get capability list RESPONSE (confirm) is being decoded: */ +/* more follows was encountered. */ +/************************************************************************/ + +static ST_VOID getcl_get_more_follows (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getcl_get_more_follows"); + + if (asn1r_get_bool (aCtx, &rsp_info->more_follows)) + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_getcl */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the get capability list request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_getcl (ST_INT chan, GETCL_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_GET_CAP_LIST, + M_CAST_MK_FUN (_ms_mk_getcl_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_getcl */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the get capability list request. */ +/************************************************************************/ + +ST_RET mpl_getcl (GETCL_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_GET_CAP_LIST, + M_CAST_MK_FUN (_ms_mk_getcl_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_getcl_req */ +/* ENCODE a get capability list REQUEST: */ +/************************************************************************/ + +ST_VOID _ms_mk_getcl_req (ASN1_ENC_CTXT *aCtx, GETCL_REQ_INFO *info) + { + + if (info->cont_after_pres) + { + asn1r_wr_vstr (aCtx, info->continue_after); /* write the continue after */ + asn1r_fin_prim (aCtx, VISTR_CODE,UNI); + } + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_GET_CAP_LIST,CTX,DEF); /* tag = opcode, context */ + } diff --git a/mmslib/mmsl/rq_getdo.c b/mmslib/mmsl/rq_getdo.c new file mode 100644 index 0000000..35fa83f --- /dev/null +++ b/mmslib/mmsl/rq_getdo.c @@ -0,0 +1,354 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_getdom.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of get domain */ +/* attribute. It decodes the get domain attribute response */ +/* (confirm) & encodes the get domain attribute request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 05 Remove "thisFileName" */ +/* 12/20/01 JRB 04 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 03 Added SD_CONST modifiers */ +/* 03/23/99 MDE 02 Changes to decode buffer allocation scheme */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 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_pdom.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : NONE */ + +static GETDOM_RESP_INFO *rsp_info; + + +static ST_CHAR **cap_ptr; +static ST_CHAR **pin_ptr; +static ST_INT max_capabilities; +static ST_INT max_pi_names; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID getdom_get_upl_in_prog (ASN1_DEC_CTXT *aCtx); +static ST_VOID getdom_get_pin (ASN1_DEC_CTXT *aCtx); +static ST_VOID getdom_pin_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID getdom_pin_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID getdom_get_sharable (ASN1_DEC_CTXT *aCtx); +static ST_VOID getdom_get_mms_deletable (ASN1_DEC_CTXT *aCtx); +static ST_VOID getdom_get_state (ASN1_DEC_CTXT *aCtx); +static ST_VOID getdom_get_cap (ASN1_DEC_CTXT *aCtx); +static ST_VOID getdom_cap_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID getdom_cap_cstr (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_get_dom_attr_rsp */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_get_dom_attr_rsp (ASN1_DEC_CTXT *aCtx) + { +ST_INT rsp_size; + + MLOG_CDEC0 ("Get Domain Attribute Response"); + +#if defined(FIXED_DECBUF) + max_capabilities = _mmsdec_msglen/2; + max_pi_names = _mmsdec_msglen/2; + rsp_size = mmsl_dec_info_size; +#else + /* determine maximum size */ + max_capabilities = _mmsdec_msglen/2; + max_pi_names = _mmsdec_msglen/2; + if (m_cl_max_getdom_cap && (max_capabilities > m_cl_max_getdom_cap)) + max_capabilities = m_cl_max_getdom_cap; + if (m_cl_max_getdom_pi && (max_pi_names > m_cl_max_getdom_pi)) + max_pi_names = m_cl_max_getdom_pi; + rsp_size = sizeof (GETDOM_RESP_INFO) + + (max_capabilities * (sizeof (ST_CHAR *))) + + (max_pi_names * (sizeof (ST_CHAR *))); + /* get storage for resp info */ +#endif + +/* get storage for request information */ + rsp_info = (GETDOM_RESP_INFO *) _m_get_dec_buf (aCtx, rsp_size); + cap_ptr = (ST_CHAR **) (rsp_info + 1); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, getdom_cap_cstr);/* cap list is next*/ + } + +/************************************************************************/ +/* getdom_cap_cstr */ +/* get domain attribute RESPONSE (confirm) is being decoded: */ +/* capability list constructor was encountered. */ +/************************************************************************/ + +static ST_VOID getdom_cap_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getdom_cap_cstr"); + + ASN1R_TAG_ADD (aCtx, UNI, VISTR_CODE, getdom_get_cap); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = getdom_cap_cstr_done; + } + +/************************************************************************/ +/* getdom_get_cap */ +/* get domain attribute RESPONSE (confirm) is being decoded: */ +/* capability was encountered. */ +/************************************************************************/ + +static ST_VOID getdom_get_cap (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getdom_get_cap"); + + rsp_info->num_of_capab++; /* increment # of capabilities */ + if (rsp_info->num_of_capab > max_capabilities) + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + + /* copy capability back onto itself shifted by one character */ + *cap_ptr = (ST_CHAR *) aCtx->asn1r_field_ptr - 1; + if (asn1r_get_vstr (aCtx, *cap_ptr)) + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + cap_ptr++; + + ASN1R_TAG_ADD (aCtx, UNI, VISTR_CODE, getdom_get_cap); + } + +/************************************************************************/ +/* getdom_cap_cstr_done */ +/* get domain attribute RESPONSE (confirm) is being decoded: */ +/* capability list constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID getdom_cap_cstr_done (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, CTX, 1, getdom_get_state); + } + +/************************************************************************/ +/* getdom_get_state */ +/* get domain attribute RESPONSE (confirm) is being decoded: */ +/* state was encountered. */ +/************************************************************************/ + +static ST_VOID getdom_get_state (ASN1_DEC_CTXT *aCtx) + { +ST_INT ver; + + MLOG_CDEC0 ("getdom_get_state"); + +#ifndef MMS_LITE + ver = mms_chan_info[_mmsdechan].version; +#else + ver = mmsl_version; +#endif + + if ((asn1r_get_i16 (aCtx, &(rsp_info->state))) || /* get & verify state */ + (rsp_info->state < 0) || + (!ver && rsp_info->state > 5) || /* DIS */ + (ver && rsp_info->state > 15)) /* IS */ + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + + ASN1R_TAG_ADD (aCtx, CTX, 2, getdom_get_mms_deletable); + } + +/************************************************************************/ +/* getdom_get_mms_deletable */ +/* get domain attribute RESPONSE (confirm) is being decoded: */ +/* mms deletable was encountered. */ +/************************************************************************/ + +static ST_VOID getdom_get_mms_deletable (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getdom_get_mms_deletable"); + + if (asn1r_get_bool (aCtx, &(rsp_info->mms_deletable))) /* get mms deletable */ + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + + ASN1R_TAG_ADD (aCtx, CTX, 3, getdom_get_sharable); + } + +/************************************************************************/ +/* getdom_get_sharable */ +/* get domain attribute RESPONSE (confirm) is being decoded: */ +/* sharable was encountered. */ +/************************************************************************/ + +static ST_VOID getdom_get_sharable (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getdom_get_sharable"); + + if (asn1r_get_bool (aCtx, &(rsp_info->sharable))) /* get sharable */ + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 4, getdom_pin_cstr); + } + + +/************************************************************************/ +/* getdom_pin_cstr */ +/* get domain attribute RESPONSE (confirm) is being decoded: */ +/* program invocation name list constructor was encountered. */ +/************************************************************************/ + +static ST_VOID getdom_pin_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getdom_pin_cstr"); + + pin_ptr = (ST_CHAR **) (cap_ptr); + + ASN1R_TAG_ADD (aCtx, UNI, VISTR_CODE, getdom_get_pin); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = getdom_pin_cstr_done; + } + +/************************************************************************/ +/* getdom_get_pin */ +/* get domain attribute RESPONSE (confirm) is being decoded: */ +/* progran invocation name was encountered. */ +/************************************************************************/ + +static ST_VOID getdom_get_pin (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getdom_get_pin"); + + rsp_info->num_of_pinames++; /* increment # of pi names */ + if (rsp_info->num_of_pinames > max_pi_names) + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + + /* copy pi name back onto itself shifted by one character */ + *pin_ptr = (ST_CHAR *) aCtx->asn1r_field_ptr - 1; + if (asn1r_get_identifier (aCtx, *pin_ptr)) + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + pin_ptr++; + + ASN1R_TAG_ADD (aCtx, UNI, VISTR_CODE, getdom_get_pin); + } + +/************************************************************************/ +/* getdom_pin_cstr_done */ +/* get domain attribute RESPONSE (confirm) is being decoded: */ +/* program invocation name list constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID getdom_pin_cstr_done (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, CTX, 5, getdom_get_upl_in_prog); + } + +/************************************************************************/ +/* getdom_get_upl_in_prog */ +/* get domain attribute RESPONSE (confirm) is being decoded: */ +/* upload in progress was encountered. */ +/************************************************************************/ + +static ST_VOID getdom_get_upl_in_prog (ASN1_DEC_CTXT *aCtx) + { +ST_INT rsp_size; + + MLOG_CDEC0 ("getdom_get_upl_in_prog"); + + if (asn1r_get_i8 (aCtx, &(rsp_info->upload_in_progress))) + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + + /* find actual size for response info */ + rsp_size = sizeof (GETDOM_RESP_INFO) + + (sizeof (ST_CHAR *) * rsp_info->num_of_capab) + + (sizeof (ST_CHAR *) * rsp_info->num_of_pinames); + + /* give back unused storage */ + _mms_dec_info = (*m_realloc_os_fun) (_mms_dec_info,rsp_size); + rsp_info = (GETDOM_RESP_INFO *) _mms_dec_info; + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_getdom */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the get domain attribute request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_getdom (ST_INT chan, GETDOM_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_GET_DOM_ATTR, + M_CAST_MK_FUN (_ms_mk_getdom_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_getdom */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the get domain attribute request. */ +/************************************************************************/ + +ST_RET mpl_getdom (GETDOM_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_GET_DOM_ATTR, + M_CAST_MK_FUN (_ms_mk_getdom_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_getdom_req */ +/* ENCODE a get domain attribute REQUEST: */ +/************************************************************************/ + +ST_VOID _ms_mk_getdom_req (ASN1_ENC_CTXT *aCtx, GETDOM_REQ_INFO *info) + { + asn1r_wr_vstr (aCtx, info->dname); /* write the domain name */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_prim (aCtx, MMSOP_GET_DOM_ATTR,CTX); /* tag = opcode, context */ + } diff --git a/mmslib/mmsl/rq_getea.c b/mmslib/mmsl/rq_getea.c new file mode 100644 index 0000000..828c609 --- /dev/null +++ b/mmslib/mmsl/rq_getea.c @@ -0,0 +1,290 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_geteaa.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of the get event */ +/* action attributes. It decodes the get event action attributes */ +/* response (confirm) & encodes the get event action attributes */ +/* request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 07 Remove "thisFileName" */ +/* 12/20/01 JRB 06 Converted to use ASN1R (re-entrant ASN1) */ +/* 04/28/00 JRB 05 Lint cleanup */ +/* 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++ */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 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_pevn.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static GETEAA_RESP_INFO *rsp_info; + +#ifdef MOD_SUPPORT +static MODIFIER *mod_ptr; +static ST_INT max_modifiers; +#endif + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID geteaa_get_mms_deletable (ASN1_DEC_CTXT *aCtx); +static ST_VOID geteaa_get_modlist (ASN1_DEC_CTXT *aCtx); +static ST_VOID geteaa_modlist_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID geteaa_conf_serv_req_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID geteaa_conf_serv_req_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID geteaa_conf_serv_req_cstr_done (ASN1_DEC_CTXT *aCtx); +#ifdef CS_SUPPORT +static ST_VOID geteaa_cs_rdetail_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID geteaa_cs_rdetail_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID geteaa_cs_rdetail_cstr_done (ASN1_DEC_CTXT *aCtx); +#endif + + +/************************************************************************/ +/************************************************************************/ +/* mms_geteaa_rsp */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_geteaa_rsp (ASN1_DEC_CTXT *aCtx) + { +ST_INT rsp_size; + + MLOG_CDEC0 ("Get Event Action Attributes Response"); + /* find maximum size for response info */ + +#if defined(FIXED_DECBUF) + rsp_size = sizeof (GETEAA_RESP_INFO); +#else +#ifdef MOD_SUPPORT + max_modifiers = _mmsdec_msglen / 2; + rsp_size = sizeof (GETEAA_RESP_INFO) + + (sizeof (MODIFIER) * max_modifiers); + mod_ptr = (MODIFIER *) (rsp_info + 1); +#else + rsp_size = sizeof (GETEAA_RESP_INFO); +#endif +#endif + +/* get storage for request information */ + rsp_info = (GETEAA_RESP_INFO *) _m_get_dec_buf (aCtx, rsp_size); + + ASN1R_TAG_ADD (aCtx, CTX, 0, geteaa_get_mms_deletable); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1, geteaa_get_modlist); + } + +/************************************************************************/ +/* geteaa_get_mms_deletable */ +/* Decoding get event action attributes response: mms deletable was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID geteaa_get_mms_deletable (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("geteaa_get_mms_deletable"); + /* read mms deletable */ + if (asn1r_get_bool (aCtx, &(rsp_info->mms_deletable))) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1, geteaa_get_modlist); + } + +/************************************************************************/ +/* geteaa_get_modlist */ +/* Decoding get event action attributes response: list of modifiers */ +/* constructor was encountered. */ +/************************************************************************/ + +static ST_VOID geteaa_get_modlist (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("geteaa_get_modlist"); + +#ifdef MOD_SUPPORT + _ms_get_mms_modlist (aCtx, mod_ptr, &rsp_info->num_of_modifiers, + max_modifiers, geteaa_modlist_done); +#else /* must be empty if not supported */ + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = geteaa_modlist_done; +#endif + } + +/************************************************************************/ +/* geteaa_modlist_done */ +/* Decoding get event action attributes response: list of modifiers */ +/* constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID geteaa_modlist_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("geteaa_modlist_done"); + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 2, geteaa_conf_serv_req_cstr); + } + +/************************************************************************/ +/* geteaa_conf_serv_req_cstr */ +/* Decoding get event action attributes response: confirmed service */ +/* request constructor was encountered. */ +/************************************************************************/ + +static ST_VOID geteaa_conf_serv_req_cstr (ASN1_DEC_CTXT *aCtx) + { +ST_INT rsp_size; + + MLOG_CDEC0 ("geteaa_conf_serv_req_cstr"); + /* find actual size for response info */ + rsp_size = sizeof (GETEAA_RESP_INFO) + + (sizeof (MODIFIER)*rsp_info->num_of_modifiers); + + /* give back unused storage */ + _mms_dec_info = (*m_realloc_os_fun) (_mms_dec_info, rsp_size); + rsp_info = (GETEAA_RESP_INFO *) _mms_dec_info; + + /* get the confirmed service request */ + rsp_info->conf_serv_req = aCtx->asn1r_field_ptr; + + asn1r_parse_next (aCtx, geteaa_conf_serv_req_done); /* parse the contents */ + } + +/************************************************************************/ +/* geteaa_conf_serv_req_done */ +/* Decoding get event action attributes response: confirmed service */ +/* request has been obtained. */ +/************************************************************************/ + +static ST_VOID geteaa_conf_serv_req_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("geteaa_conf_serv_req_done"); + + rsp_info->conf_serv_req_len = aCtx->asn1r_octetcount; /* save the length */ + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = geteaa_conf_serv_req_cstr_done; + } + +/************************************************************************/ +/* geteaa_conf_serv_req_cstr_done */ +/* Decoding get event action attributes response: confirmed service */ +/* request constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID geteaa_conf_serv_req_cstr_done (ASN1_DEC_CTXT *aCtx) + { +#ifdef CS_SUPPORT + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 79, geteaa_cs_rdetail_cstr); +#endif + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +#ifdef CS_SUPPORT +/************************************************************************/ +/* geteaa_cs_rdetail_cstr */ +/* Decoding get event action attributes response: companion standard */ +/* request detail was encountered. */ +/************************************************************************/ + +static ST_VOID geteaa_cs_rdetail_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("geteaa_cs_rdetail_cstr"); + + rsp_info->cs_rdetail_pres = SD_TRUE; /* set flag */ + + rsp_info->cs_rdetail = aCtx->asn1r_field_ptr; /* get the CS request detail */ + asn1r_parse_next (aCtx, geteaa_cs_rdetail_done); /* parse the contents */ + } + +/************************************************************************/ +/* geteaa_cs_rdetail_done */ +/************************************************************************/ + +static ST_VOID geteaa_cs_rdetail_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("geteaa_cs_rdetail_done"); + + rsp_info->cs_rdetail_len = aCtx->asn1r_octetcount; /* save the length */ + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = geteaa_cs_rdetail_cstr_done; + } + +/************************************************************************/ +/* geteaa_cs_rdetail_cstr_done */ +/* event notification request is being decoded: action result success: */ +/* confirmed service response cstr done has been encountered. */ +/************************************************************************/ + +static ST_VOID geteaa_cs_rdetail_cstr_done (ASN1_DEC_CTXT *aCtx) + { + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } +#endif + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_geteaa */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE & send the get event action attributes request */ +/************************************************************************/ + +MMSREQ_PEND *mp_geteaa (ST_INT chan, GETEAA_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_GET_EA_ATTR, + M_CAST_MK_FUN (_ms_mk_geteaa_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_geteaa */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the get event action attributes request. */ +/************************************************************************/ + +ST_RET mpl_geteaa (GETEAA_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_GET_EA_ATTR, + M_CAST_MK_FUN (_ms_mk_geteaa_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_geteaa_req */ +/* construct a get event action attributes request */ +/************************************************************************/ + +ST_VOID _ms_mk_geteaa_req (ASN1_ENC_CTXT *aCtx, GETEAA_REQ_INFO *info) + { + _ms_wr_mms_objname (aCtx, &info->evact_name); /* write event action name */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_GET_EA_ATTR,CTX,DEF); /* tag = opcode, ctx */ + } diff --git a/mmslib/mmsl/rq_getec.c b/mmslib/mmsl/rq_getec.c new file mode 100644 index 0000000..e31f2b9 --- /dev/null +++ b/mmslib/mmsl/rq_getec.c @@ -0,0 +1,321 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_geteca.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of get event */ +/* condition attributes. It decodes the get event condition */ +/* attributes response (confirm) and encodes the get event */ +/* condition attributes request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 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++ */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 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_pevn.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static GETECA_RESP_INFO *rsp_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID geteca_var_ref_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID geteca_get_ec_class (ASN1_DEC_CTXT *aCtx); +static ST_VOID geteca_get_severity (ASN1_DEC_CTXT *aCtx); +static ST_VOID geteca_get_as_reports (ASN1_DEC_CTXT *aCtx); +static ST_VOID geteca_monitored_var_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID geteca_monitored_var_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID geteca_get_eval_int (ASN1_DEC_CTXT *aCtx); +static ST_VOID geteca_get_var_ref_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID geteca_get_undefined (ASN1_DEC_CTXT *aCtx); +static ST_VOID geteca_get_priority (ASN1_DEC_CTXT *aCtx); +static ST_VOID geteca_get_mms_deletable (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_geteca_rsp */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_geteca_rsp (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Get Event Condition Attributes Response"); + + +/* get storage for request information */ + rsp_info = (GETECA_RESP_INFO *) _m_get_dec_buf (aCtx, sizeof (GETECA_RESP_INFO)); + rsp_info->priority = MMS_NORM_PRIORITY; /* set default value */ + rsp_info->severity = MMS_NORM_SEVERITY; +/* rsp_info->mms_deletable = SD_FALSE; */ +/* rsp_info->as_reports = SD_FALSE; */ +/* rsp_info->addl_detail_pres = SD_FALSE; */ +/* rsp_info->eval_int_pres = SD_FALSE; */ + + ASN1R_TAG_ADD (aCtx, CTX, 0, geteca_get_mms_deletable); + ASN1R_TAG_ADD (aCtx, CTX, 1, geteca_get_ec_class); + } + +/************************************************************************/ +/* geteca_get_mms_deletable */ +/* Decoding get event condition attributes response: mms deletable was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID geteca_get_mms_deletable (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("geteca_get_mms_deletable"); + /* read mms deletable */ + if (asn1r_get_u8 (aCtx, &(rsp_info->mms_deletable))) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + + ASN1R_TAG_ADD (aCtx, CTX, 1, geteca_get_ec_class); + } + +/************************************************************************/ +/* geteca_get_ec_class */ +/* Decoding get event condition attributes response: ec class was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID geteca_get_ec_class (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("geteca_get_ec_class"); + /* read event condition class */ + if (asn1r_get_i16 (aCtx, &(rsp_info->eclass))) + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + else if ((rsp_info->eclass < 0) || (rsp_info->eclass > 1)) + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + + ASN1R_TAG_ADD (aCtx, CTX, 2, geteca_get_priority); + ASN1R_TAG_ADD (aCtx, CTX, 3, geteca_get_severity); + ASN1R_TAG_ADD (aCtx, CTX, 4, geteca_get_as_reports); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 6, geteca_monitored_var_cstr); + ASN1R_TAG_ADD (aCtx, CTX, 7, geteca_get_eval_int); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* geteca_get_priority */ +/* Decoding get event condition attributes response: priority was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID geteca_get_priority (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("geteca_get_priority"); + /* read priority */ + if (asn1r_get_u8 (aCtx, &(rsp_info->priority))) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + + ASN1R_TAG_ADD (aCtx, CTX, 3, geteca_get_severity); + ASN1R_TAG_ADD (aCtx, CTX, 4, geteca_get_as_reports); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 6, geteca_monitored_var_cstr); + ASN1R_TAG_ADD (aCtx, CTX, 7, geteca_get_eval_int); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* geteca_get_severity */ +/* Decoding get event condition attributes response: severity was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID geteca_get_severity (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("geteca_get_severity"); + /* read severity */ + if (asn1r_get_u8 (aCtx, &(rsp_info->severity))) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + + ASN1R_TAG_ADD (aCtx, CTX, 4, geteca_get_as_reports); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 6, geteca_monitored_var_cstr); + ASN1R_TAG_ADD (aCtx, CTX, 7, geteca_get_eval_int); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* geteca_get_as_reports */ +/* Decoding get event condition attributes response: alarm summary */ +/* reports was encountered. */ +/************************************************************************/ + +static ST_VOID geteca_get_as_reports (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("geteca_get_as_reports"); + /* read alarm summary reports */ + if (asn1r_get_u8 (aCtx, &(rsp_info->as_reports))) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 6, geteca_monitored_var_cstr); + ASN1R_TAG_ADD (aCtx, CTX, 7, geteca_get_eval_int); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* geteca_monitored_var_cstr */ +/* Decoding get event condition attributes response: monitored variable */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID geteca_monitored_var_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("geteca_monitored_var_cstr"); + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, geteca_get_var_ref_cstr); + ASN1R_TAG_ADD (aCtx, CTX, 1, geteca_get_undefined); + } + +/************************************************************************/ +/* geteca_get_var_ref_cstr */ +/* Decoding get event condition attributes response: variable reference */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID geteca_get_var_ref_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("geteca_get_var_ref_cstr"); + + rsp_info->mon_var_tag = SD_SUCCESS; /* set to variable reference */ + + _ms_get_va_var_spec (aCtx, &rsp_info->var_ref, geteca_var_ref_done); + } + +/************************************************************************/ +/* geteca_var_ref_done */ +/************************************************************************/ + +static ST_VOID geteca_var_ref_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("geteca_var_ref_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = NULL; + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level-1] = geteca_monitored_var_cstr_done; + } + +/************************************************************************/ +/* geteca_get_undefined */ +/* Decoding get event condition attributes response: undefined was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID geteca_get_undefined (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("geteca_get_undefined"); + + rsp_info->mon_var_tag = SD_FAILURE; /* set to undefined */ + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = geteca_monitored_var_cstr_done; + } + +/************************************************************************/ +/* geteca_monitored_var_cstr_done */ +/* Decoding get event condition attributes response: monitored variable */ +/* constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID geteca_monitored_var_cstr_done (ASN1_DEC_CTXT *aCtx) + { + rsp_info->mon_var_pres = SD_TRUE; + ASN1R_TAG_ADD (aCtx, CTX, 7, geteca_get_eval_int); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* geteca_get_eval_int */ +/* Decoding get event condition attributes response: evaluation */ +/* interval was encountered. */ +/************************************************************************/ + +static ST_VOID geteca_get_eval_int (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("geteca_get_eval_int"); + + rsp_info->eval_int_pres = SD_TRUE; + /* read evaluation interval */ + if (asn1r_get_u32 (aCtx, &(rsp_info->eval_interval))) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_geteca */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the get event condition attributes */ +/* request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_geteca (ST_INT chan, GETECA_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_GET_EC_ATTR, + M_CAST_MK_FUN (_ms_mk_geteca_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_geteca */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the get event condition attributes request. */ +/************************************************************************/ + +ST_RET mpl_geteca (GETECA_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_GET_EC_ATTR, + M_CAST_MK_FUN (_ms_mk_geteca_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_geteca_req */ +/* construct a get event condition attributes request */ +/************************************************************************/ + +ST_VOID _ms_mk_geteca_req (ASN1_ENC_CTXT *aCtx, GETECA_REQ_INFO *info) + { + _ms_wr_mms_objname (aCtx, &info->evcon_name); /* write the object name */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_GET_EC_ATTR,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsl/rq_getee.c b/mmslib/mmsl/rq_getee.c new file mode 100644 index 0000000..ba431f9 --- /dev/null +++ b/mmslib/mmsl/rq_getee.c @@ -0,0 +1,807 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_geteea.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of the get event */ +/* enrollment attributes. It decodes the get event enrollment */ +/* attributes response (confirm) & encodes the get event */ +/* enrollment attributes request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 07 Remove "thisFileName" */ +/* 12/20/01 JRB 06 Converted to use ASN1R (re-entrant ASN1) */ +/* 04/28/00 JRB 05 Lint cleanup */ +/* 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++ */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 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_pevn.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static GETEEA_RESP_INFO *rsp_info; + +static EVENT_ENROLLMENT *ee_ptr; +static ST_INT max_ev_enrolls; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID _g_eelist_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID _g_evenroll_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID _g_eename_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID _g_eename_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID _g_eename_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID _g_ecname_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID _g_ecname_objname (ASN1_DEC_CTXT *aCtx); +static ST_VOID _g_ecname_objname_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID _g_ecname_objname_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID _g_ecname_undefined (ASN1_DEC_CTXT *aCtx); +static ST_VOID _g_ecname_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID _g_eaname_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID _g_eaname_objname (ASN1_DEC_CTXT *aCtx); +static ST_VOID _g_eaname_objname_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID _g_eaname_objname_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID _g_eaname_undefined (ASN1_DEC_CTXT *aCtx); +static ST_VOID _g_eaname_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID _g_client_app_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID _g_app_ref_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID _g_client_app_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID _g_get_mms_deletable (ASN1_DEC_CTXT *aCtx); +static ST_VOID _g_get_ee_class (ASN1_DEC_CTXT *aCtx); +static ST_VOID _g_get_duration (ASN1_DEC_CTXT *aCtx); +static ST_VOID _g_get_invoke (ASN1_DEC_CTXT *aCtx); +static ST_VOID _g_get_rem_acc_delay (ASN1_DEC_CTXT *aCtx); +#ifdef CS_SUPPORT +static ST_VOID _g_addl_detail_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID _g_addl_detail_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID _g_addl_detail_cstr_done (ASN1_DEC_CTXT *aCtx); +#endif +static ST_VOID _g_aecname_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID _g_aecname_objname (ASN1_DEC_CTXT *aCtx); +static ST_VOID _g_aecname_objname_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID _g_aecname_objname_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID _g_aecname_undefined (ASN1_DEC_CTXT *aCtx); +static ST_VOID _g_aecname_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID _g_evenroll_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID _g_eelist_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID _g_get_more_follows (ASN1_DEC_CTXT *aCtx); +static ST_VOID _g_dec_done (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_geteea_rsp */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_geteea_rsp (ASN1_DEC_CTXT *aCtx) + { +ST_INT rsp_size; + + MLOG_CDEC0 ("Get Event Enrollment Attributes Response"); + +#if defined(FIXED_DECBUF) + max_ev_enrolls = m_cl_max_event_enrollment; + rsp_size = mmsl_dec_info_size; +#else + max_ev_enrolls = _mmsdec_msglen / 2; /* find maximum size for response info */ + if (m_cl_max_event_enrollment && (max_ev_enrolls > m_cl_max_event_enrollment)) + max_ev_enrolls = m_cl_max_event_enrollment; + +/* get storage for request information */ + rsp_size = sizeof (GETEEA_RESP_INFO) + + (sizeof (EVENT_ENROLLMENT) * max_ev_enrolls); +#endif + +/* get storage for request information */ + rsp_info = (GETEEA_RESP_INFO *) _m_get_dec_buf (aCtx, rsp_size); + ee_ptr = (EVENT_ENROLLMENT *) (rsp_info + 1); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, _g_eelist_cstr); + } + +/************************************************************************/ +/* _g_eelist_cstr */ +/* Decoding get event enrollment attributes response: list of event */ +/* enrollment names constructor was encountered. */ +/************************************************************************/ + +static ST_VOID _g_eelist_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("_g_eelist_cstr"); + + ASN1R_TAG_ADD (aCtx, UNI | CONSTR, SEQ_CODE, _g_evenroll_cstr); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = _g_eelist_cstr_done; + } + +/************************************************************************/ +/* _g_evenroll_cstr */ +/* decoding get event enrollment attributes response: event enrollment */ +/* constructor was encountered. */ +/************************************************************************/ + +static ST_VOID _g_evenroll_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("_g_evenroll_cstr"); + + rsp_info->num_of_evenroll++; /* inc # of event enrollments */ + if (rsp_info->num_of_evenroll > max_ev_enrolls) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + else + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, _g_eename_cstr); + } + +/************************************************************************/ +/* _g_eename_cstr */ +/* decoding get event enrollment attributes response: event enrollment */ +/* name constructor was encountered. */ +/************************************************************************/ + +static ST_VOID _g_eename_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("_g_eename_cstr"); + + _ms_get_mms_objname (aCtx, &ee_ptr->evenroll_name, _g_eename_done); + } + +/************************************************************************/ +/* _g_eename_done */ +/* decoding get event enrollment attributes response: event enrollment */ +/* name has been decoded. */ +/************************************************************************/ + +static ST_VOID _g_eename_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("_g_eename_done"); + /* set the cstr done function */ + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = _g_eename_cstr_done; + } + +/************************************************************************/ +/* _g_eename_cstr_done */ +/* decoding get event enrollment attributes response: event enrollment */ +/* name constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID _g_eename_cstr_done (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1, _g_ecname_cstr); + } + +/************************************************************************/ +/* _g_ecname_cstr */ +/* decoding get event enrollment attributes response: event condition */ +/* name constructor was encountered */ +/************************************************************************/ + +static ST_VOID _g_ecname_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("_g_ecname_cstr"); + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, _g_ecname_objname); + ASN1R_TAG_ADD (aCtx, CTX, 1, _g_ecname_undefined); + } + +/************************************************************************/ +/* _g_ecname_objname */ +/* decoding get event enrollment attributes response: event condition */ +/* name object name constructor was encountered. */ +/************************************************************************/ + +static ST_VOID _g_ecname_objname (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("_g_ecname_objname"); + + ee_ptr->evcon_name_tag = 0; /* set tag to event condition */ + + _ms_get_mms_objname (aCtx, &ee_ptr->evcon_name, _g_ecname_objname_done); + } + +/************************************************************************/ +/* _g_ecname_objname_done */ +/* decoding get event enrollment attributes response: event condition */ +/* name object name has been obtained. */ +/************************************************************************/ + +static ST_VOID _g_ecname_objname_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("_g_ecname_objname_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = _g_ecname_objname_cstr_done; + } + +/************************************************************************/ +/* _g_ecname_objname_cstr_done */ +/* decoding get event enrollment attributes response: event condition */ +/* name object name constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID _g_ecname_objname_cstr_done (ASN1_DEC_CTXT *aCtx) + { + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = _g_ecname_cstr_done; + } + +/************************************************************************/ +/* _g_ecname_undefined */ +/* decoding get event enrollment attributes response: event condition */ +/* name undefined primitive was encountered. */ +/************************************************************************/ + +static ST_VOID _g_ecname_undefined (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("_g_ecname_undefined"); + + ee_ptr->evcon_name_tag = 1; /* set tag to undefined */ + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = _g_ecname_cstr_done; + } + +/************************************************************************/ +/* _g_ecname_cstr_done */ +/* decoding get event enrollment attributes response: event condition */ +/* name constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID _g_ecname_cstr_done (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 2, _g_eaname_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 3, _g_client_app_cstr); + ASN1R_TAG_ADD (aCtx, CTX, 4, _g_get_mms_deletable); + ASN1R_TAG_ADD (aCtx, CTX, 5, _g_get_ee_class); + } + +/************************************************************************/ +/* _g_eaname_cstr */ +/* decoding get event enrollment attributes response: event action */ +/* name constructor was encountered */ +/************************************************************************/ + +static ST_VOID _g_eaname_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("_g_eaname_cstr"); + + ee_ptr->evact_name_pres = SD_TRUE; /* event action name present */ + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, _g_eaname_objname); + ASN1R_TAG_ADD (aCtx, CTX, 1, _g_eaname_undefined); + } + +/************************************************************************/ +/* _g_eaname_objname */ +/* decoding get event enrollment attributes response: event action */ +/* name object name constructor was encountered. */ +/************************************************************************/ + +static ST_VOID _g_eaname_objname (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("_g_eaname_objname"); + + ee_ptr->evact_name_tag = 0; /* set tag to event action */ + + _ms_get_mms_objname (aCtx, &ee_ptr->evact_name, _g_eaname_objname_done); + } + +/************************************************************************/ +/* _g_eaname_objname_done */ +/* decoding get event enrollment attributes response: event action */ +/* name object name has been obtained. */ +/************************************************************************/ + +static ST_VOID _g_eaname_objname_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("_g_eaname_objname_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = _g_eaname_objname_cstr_done; + } + +/************************************************************************/ +/* _g_eaname_objname_cstr_done */ +/* decoding get event enrollment attributes response: event action */ +/* name object name constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID _g_eaname_objname_cstr_done (ASN1_DEC_CTXT *aCtx) + { + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = _g_eaname_cstr_done; + } + +/************************************************************************/ +/* _g_eaname_undefined */ +/* decoding get event enrollment attributes response: event action */ +/* name undefined primitive was encountered. */ +/************************************************************************/ + +static ST_VOID _g_eaname_undefined (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("_g_eaname_undefined"); + + ee_ptr->evact_name_tag = 1; /* set tag to undefined */ + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = _g_eaname_cstr_done; + } + +/************************************************************************/ +/* _g_eaname_cstr_done */ +/* decoding get event enrollment attributes response: event action */ +/* name constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID _g_eaname_cstr_done (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 3, _g_client_app_cstr); + ASN1R_TAG_ADD (aCtx, CTX, 4, _g_get_mms_deletable); + ASN1R_TAG_ADD (aCtx, CTX, 5, _g_get_ee_class); + } + +/************************************************************************/ +/* _g_client_app_cstr */ +/* Decoding get event enrollment attributes response: client application*/ +/* constructor was encountered. */ +/************************************************************************/ + +static ST_VOID _g_client_app_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("_g_client_app_cstr"); + + ee_ptr->client_app_pres = SD_TRUE; /* set client app present */ + + _ms_get_mms_app_ref (aCtx, &ee_ptr->client_app,&ee_ptr->client_app_len, + _g_app_ref_done); + } + +/************************************************************************/ +/* _g_app_ref_done */ +/* Decoding get event enrollment attributes response: client application*/ +/* has been obtained. */ +/************************************************************************/ + +static ST_VOID _g_app_ref_done (ASN1_DEC_CTXT *aCtx) + { + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = _g_client_app_cstr_done; + } + +/************************************************************************/ +/* _g_client_app_cstr_done */ +/* Decoding get event enrollment attributes response: client application*/ +/* constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID _g_client_app_cstr_done (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, CTX, 4, _g_get_mms_deletable); + ASN1R_TAG_ADD (aCtx, CTX, 5, _g_get_ee_class); + } + +/************************************************************************/ +/* _g_get_mms_deletable */ +/* Decoding get event enrollment attributes response: mms deletable was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID _g_get_mms_deletable (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("_g_get_mms_deletable"); + /* read mms deletable */ + if (asn1r_get_bool (aCtx, &(ee_ptr->mms_deletable))) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + + ASN1R_TAG_ADD (aCtx, CTX, 5, _g_get_ee_class); + } + +/************************************************************************/ +/* _g_get_ee_class */ +/* Decoding get event enrollment attributes response: event enrollment */ +/* class was encountered. */ +/************************************************************************/ + +static ST_VOID _g_get_ee_class (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("_g_get_ee_class"); + /* read event condition class */ + if (asn1r_get_i16 (aCtx, &(ee_ptr->ee_class))) + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + else if ((ee_ptr->ee_class < 0) || (ee_ptr->ee_class > 1)) + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + + ASN1R_TAG_ADD (aCtx, CTX, 6, _g_get_duration); + ASN1R_TAG_ADD (aCtx, CTX, 7, _g_get_invoke); + ASN1R_TAG_ADD (aCtx, CTX, 8, _g_get_rem_acc_delay); +#ifdef CS_SUPPORT + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 9, _g_addl_detail_cstr); +#endif + ASN1R_TAG_ADD (aCtx, CTX | CONSTR,10, _g_aecname_cstr); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = _g_evenroll_cstr_done; + } + +/************************************************************************/ +/* _g_get_duration */ +/* Decoding get event enrollment attributes response: duration was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID _g_get_duration (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("_g_get_duration"); + /* read the duration */ + if (asn1r_get_i16 (aCtx, &(ee_ptr->duration))) + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + else if ((ee_ptr->duration < 0) || (ee_ptr->duration > 1)) + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + + ASN1R_TAG_ADD (aCtx, CTX, 7, _g_get_invoke); + ASN1R_TAG_ADD (aCtx, CTX, 8, _g_get_rem_acc_delay); +#ifdef CS_SUPPORT + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 9, _g_addl_detail_cstr); +#endif + ASN1R_TAG_ADD (aCtx, CTX | CONSTR,10, _g_aecname_cstr); + } + +/************************************************************************/ +/* _g_get_invoke */ +/* Decoding get event enrollment attributes response: invoke was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID _g_get_invoke (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("_g_get_invoke"); + + ee_ptr->invoke_id_pres = SD_TRUE; /* set invoke id present */ + + /* read the invoke id */ + if (asn1r_get_u32 (aCtx, &(ee_ptr->invoke_id))) + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + + ASN1R_TAG_ADD (aCtx, CTX, 8, _g_get_rem_acc_delay); +#ifdef CS_SUPPORT + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 9, _g_addl_detail_cstr); +#endif + ASN1R_TAG_ADD (aCtx, CTX | CONSTR,10, _g_aecname_cstr); + } + +/************************************************************************/ +/* _g_get_rem_acc_delay */ +/* Decoding get event enrollment attributes response: remaining */ +/* acceptable delay was encountered. */ +/************************************************************************/ + +static ST_VOID _g_get_rem_acc_delay (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("_g_get_rem_acc_delay"); + + ee_ptr->rem_acc_delay_pres = SD_TRUE; /* set rem acc delay present */ + + /* read the rem acc delay */ + if (asn1r_get_u32 (aCtx, &(ee_ptr->rem_acc_delay))) + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + +#ifdef CS_SUPPORT + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 9, _g_addl_detail_cstr); +#endif + ASN1R_TAG_ADD (aCtx, CTX | CONSTR,10, _g_aecname_cstr); + } + +#ifdef CS_SUPPORT +/************************************************************************/ +/* _g_addl_detail_cstr */ +/* Decoding get event enrollment attributes response: additional detail */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID _g_addl_detail_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("_g_addl_detail_cstr"); + + ee_ptr->addl_detail_pres = SD_TRUE; /* set flag */ + ee_ptr->addl_detail = aCtx->asn1r_field_ptr; + + asn1r_parse_next (aCtx, _g_addl_detail_done); /* parse the contents */ + } + +/************************************************************************/ +/* _g_addl_detail_done */ +/************************************************************************/ + +static ST_VOID _g_addl_detail_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("_g_addl_detail_done"); + + ee_ptr->addl_detail_len = aCtx->asn1r_octetcount; /* save length */ + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = _g_addl_detail_cstr_done; + } + +/************************************************************************/ +/* _g_addl_detail_cstr_done */ +/************************************************************************/ + +static ST_VOID _g_addl_detail_cstr_done (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, CTX | CONSTR,10, _g_aecname_cstr); + } +#endif + +/************************************************************************/ +/* _g_aecname_cstr */ +/* decoding get event enrollment attributes response: acknowledgement */ +/* event condition name constructor was encountered */ +/************************************************************************/ + +static ST_VOID _g_aecname_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("_g_aecname_cstr"); + + ee_ptr->ackec_name_pres = SD_TRUE; /* event action name present */ + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, _g_aecname_objname); + ASN1R_TAG_ADD (aCtx, CTX, 1, _g_aecname_undefined); + } + +/************************************************************************/ +/* _g_aecname_objname */ +/* decoding get event enrollment attributes response: acknowledgement */ +/* event condition name object name was encountered. */ +/************************************************************************/ + +static ST_VOID _g_aecname_objname (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("_g_aecname_objname"); + + ee_ptr->ackec_name_tag = 0; /* set tag to event action */ + + _ms_get_mms_objname (aCtx, &ee_ptr->ackec_name, _g_aecname_objname_done); + } + +/************************************************************************/ +/* _g_aecname_objname_done */ +/* decoding get event enrollment attributes response: acknowledgement */ +/* event condition name object name has been obtained. */ +/************************************************************************/ + +static ST_VOID _g_aecname_objname_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("_g_aecname_objname_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = _g_aecname_objname_cstr_done; + } + +/************************************************************************/ +/* _g_aecname_objname_cstr_done */ +/* decoding get event enrollment attributes response: acknowledgement */ +/* event condition name object name constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID _g_aecname_objname_cstr_done (ASN1_DEC_CTXT *aCtx) + { + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = _g_aecname_cstr_done; + } + +/************************************************************************/ +/* _g_aecname_undefined */ +/* decoding get event enrollment attributes response: acknowledgement */ +/* event condition name undefined primitive was encountered. */ +/************************************************************************/ + +static ST_VOID _g_aecname_undefined (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("_g_aecname_undefined"); + + ee_ptr->ackec_name_tag = 1; /* set tag to undefined */ + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = _g_aecname_cstr_done; + } + +/************************************************************************/ +/* _g_aecname_cstr_done */ +/* decoding get event enrollment attributes response: acknowledgement */ +/* event condition name constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID _g_aecname_cstr_done (ASN1_DEC_CTXT *aCtx) + { + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = _g_evenroll_cstr_done; + } + +/************************************************************************/ +/* _g_evenroll_cstr_done */ +/* Decoding get event enrollment attributes response: event enrollment */ +/* constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID _g_evenroll_cstr_done (ASN1_DEC_CTXT *aCtx) + { + ee_ptr++; /* point to where next will go */ + + ASN1R_TAG_ADD (aCtx, UNI | CONSTR, SEQ_CODE, _g_evenroll_cstr); + } + +/************************************************************************/ +/* _g_eelist_cstr_done */ +/* Decoding get event enrollment attributes response: list of event */ +/* enrollments constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID _g_eelist_cstr_done (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, CTX, 1, _g_get_more_follows); + + aCtx->asn1r_decode_done_fun = _g_dec_done; /* ok to be done */ + _ms_set_cs_check2 (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* _g_get_more_follows */ +/* Decoding get event enrollment attributes response: more follows was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID _g_get_more_follows (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("_g_get_more_follows"); + /* read more follows */ + if (asn1r_get_bool (aCtx, &(rsp_info->more_follows))) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + + _ms_set_cs_check2 (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* _g_dec_done */ +/* decode done, realloc the structure to desired size */ +/************************************************************************/ + +static ST_VOID _g_dec_done (ASN1_DEC_CTXT *aCtx) + { +ST_INT rsp_size; + /* find actual size for request info */ + rsp_size = sizeof (GETEEA_RESP_INFO) + + (sizeof (EVENT_ENROLLMENT) * rsp_info->num_of_evenroll); + + /* give back unused storage */ + _mms_dec_info = (*m_realloc_os_fun) (_mms_dec_info,rsp_size); + rsp_info = (GETEEA_RESP_INFO *) _mms_dec_info; + + _mms_dec_done_ok (aCtx); + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_geteea */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE & send the get event enrollment attributes request */ +/************************************************************************/ + +MMSREQ_PEND *mp_geteea (ST_INT chan, GETEEA_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_GET_EE_ATTR, + M_CAST_MK_FUN (_ms_mk_geteea_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_geteea */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the get event enrollment attributes request. */ +/************************************************************************/ + +ST_RET mpl_geteea (GETEEA_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_GET_EE_ATTR, + M_CAST_MK_FUN (_ms_mk_geteea_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_geteea_req */ +/* construct a get event enrollment attributes request */ +/************************************************************************/ + +ST_VOID _ms_mk_geteea_req (ASN1_ENC_CTXT *aCtx, GETEEA_REQ_INFO *info) + { +ST_INT i; +OBJECT_NAME *obj_ptr; + + if (info->ca_name_pres) + { + asn1r_strt_constr (aCtx); /* start ctx tag 5 constructor */ + _ms_wr_mms_objname (aCtx, &info->ca_name); /* write continue after name */ + asn1r_fin_constr (aCtx, 5,CTX,DEF); /* finish ctx tag 5 constructor */ + } + + if (info->evact_name_pres) + { + asn1r_strt_constr (aCtx); /* start ctx tag 4 constructor */ + _ms_wr_mms_objname (aCtx, &info->evact_name); /* write event enrollment name */ + asn1r_fin_constr (aCtx, 4,CTX,DEF); /* finish ctx tag 4 constructor */ + } + + if (info->evcon_name_pres) + { + asn1r_strt_constr (aCtx); /* start ctx tag 3 constructor */ + _ms_wr_mms_objname (aCtx, &info->evcon_name); /* write event condition name */ + asn1r_fin_constr (aCtx, 3,CTX,DEF); /* finish ctx tag 3 constructor */ + } + + if (info->client_app_pres) + { + asn1r_strt_constr (aCtx); /* start ctx tag 2 constructor */ + asn1r_wr_delmnt (aCtx, info->client_app,info->client_app_len); + asn1r_fin_constr (aCtx, 2,CTX,DEF); /* finish ctx tag 2 constructor */ + } + + if (info->eenames_pres) + { + asn1r_strt_constr (aCtx); /* start context tag 1 cstr */ + obj_ptr = (OBJECT_NAME *) (info + 1); + obj_ptr +=info->num_of_eenames-1; /* point to last object name */ + for (i = 0; i < info->num_of_eenames; i++) + { + _ms_wr_mms_objname (aCtx, obj_ptr); + obj_ptr--; + } + asn1r_fin_constr (aCtx, 1,CTX,DEF); /* finish context tag 1 cstr */ + } + + if (info->scope_of_req != 1) + { /* not the default (1 = client) */ + asn1r_wr_i16 (aCtx, info->scope_of_req); /* write the scope of request */ + asn1r_fin_prim (aCtx, 0, CTX); /* ctx tag 0 */ + } + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_GET_EE_ATTR,CTX,DEF); /* tag = opcode, ctx */ + } diff --git a/mmslib/mmsl/rq_getpi.c b/mmslib/mmsl/rq_getpi.c new file mode 100644 index 0000000..0aab577 --- /dev/null +++ b/mmslib/mmsl/rq_getpi.c @@ -0,0 +1,327 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_getpi.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of get program */ +/* invocation attribute. It decodes the get program invocation */ +/* attribute response (confirm) & encodes the get program */ +/* invocation attribute request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 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++ */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 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_pprg.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static GETPI_RESP_INFO *rsp_info; + +static ST_CHAR **dom_ptr; +static ST_INT max_domain_names; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID getpi_get_monitor (ASN1_DEC_CTXT *aCtx); +static ST_VOID getpi_get_start_arg (ASN1_DEC_CTXT *aCtx); +static ST_VOID getpi_domain_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID getpi_get_reusable (ASN1_DEC_CTXT *aCtx); +static ST_VOID getpi_get_mms_deletable (ASN1_DEC_CTXT *aCtx); +static ST_VOID getpi_get_domain_name (ASN1_DEC_CTXT *aCtx); +static ST_VOID getpi_domain_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID getpi_get_state (ASN1_DEC_CTXT *aCtx); +static ST_VOID extern_done (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_get_pi_rsp */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_get_pi_rsp (ASN1_DEC_CTXT *aCtx) + { +ST_INT rsp_size; + + MLOG_CDEC0 ("Get Program Invocation Attribute Response"); + +#if defined(FIXED_DECBUF) + max_domain_names = m_cl_max_getpi_doms; + rsp_size = mmsl_dec_info_size; +#else + /* determine maximum size */ + max_domain_names = _mmsdec_msglen/2; + if (m_cl_max_getpi_doms && (max_domain_names > m_cl_max_getpi_doms)) + max_domain_names = m_cl_max_getpi_doms; + + /* get storage for resp info */ + rsp_size = sizeof (GETPI_RESP_INFO) + (max_domain_names * (sizeof (ST_CHAR *))); +#endif + +/* get storage for request information */ + rsp_info = (GETPI_RESP_INFO *) _m_get_dec_buf (aCtx, rsp_size); + dom_ptr = (ST_CHAR **) (rsp_info + 1); + ASN1R_TAG_ADD (aCtx, CTX, 0, getpi_get_state); /* state is next */ + } + +/************************************************************************/ +/* getpi_get_state */ +/* get program invocation attribute RESPONSE (confirm) is being decoded:*/ +/* decode the state. */ +/************************************************************************/ + +static ST_VOID getpi_get_state (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getpi_get_state"); + + if (asn1r_get_i16 (aCtx, &(rsp_info->state))) /* read state from the message */ + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1, getpi_domain_cstr); + } + +/************************************************************************/ +/* getpi_domain_cstr */ +/* get program invocation attribute RESPONSE (confirm) is being decoded:*/ +/* domain name list constructor was encountered. */ +/************************************************************************/ + +static ST_VOID getpi_domain_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getpi_domain_cstr"); + + ASN1R_TAG_ADD (aCtx, UNI, VISTR_CODE, getpi_get_domain_name); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = getpi_domain_cstr_done; + } + +/************************************************************************/ +/* getpi_get_domain_name */ +/* get program invocation attribute RESPONSE (confirm) is being decoded:*/ +/* domain name was encountered. */ +/************************************************************************/ + +static ST_VOID getpi_get_domain_name (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getpi_get_domain_name"); + + rsp_info->num_of_dnames++; /* increment # of domain names */ + if (rsp_info->num_of_dnames > max_domain_names) + { /* too many domain names */ + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + + if (aCtx->asn1r_elmnt_len > MAX_IDENT_LEN) + { /* domain name is too ST_INT32 */ + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + + /* copy domain name back onto itself shifted by one character */ + *dom_ptr = (ST_CHAR *) aCtx->asn1r_field_ptr - 1; + if (asn1r_get_identifier (aCtx, *dom_ptr)) + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + dom_ptr++; + + ASN1R_TAG_ADD (aCtx, UNI, VISTR_CODE, getpi_get_domain_name); + } + +/************************************************************************/ +/* getpi_domain_cstr_done */ +/* get program invocation attribute RESPONSE (confirm) is being decoded:*/ +/* domain name list constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID getpi_domain_cstr_done (ASN1_DEC_CTXT *aCtx) + { +ST_INT rsp_size; + + rsp_size = sizeof (GETPI_RESP_INFO) + + (sizeof (ST_CHAR *) * rsp_info->num_of_dnames); + + /* give back unused storage */ + _mms_dec_info = (*m_realloc_os_fun) (_mms_dec_info,rsp_size); + rsp_info = (GETPI_RESP_INFO *) _mms_dec_info; + + + ASN1R_TAG_ADD (aCtx, CTX, 2, getpi_get_mms_deletable); + } + +/************************************************************************/ +/* getpi_get_mms_deletable */ +/* get program invocation attribute RESPONSE (confirm) is being decoded:*/ +/* decode the mms deletable flag. */ +/************************************************************************/ + +static ST_VOID getpi_get_mms_deletable (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getpi_get_mms_deletable"); + + if (asn1r_get_bool (aCtx, &(rsp_info->mms_deletable))) /* read mms deletable */ + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + ASN1R_TAG_ADD (aCtx, CTX, 3, getpi_get_reusable); + } + +/************************************************************************/ +/* getpi_get_reusable */ +/* get program invocation attribute RESPONSE (confirm) is being decoded:*/ +/* decode the mms reusable flag. */ +/************************************************************************/ + +static ST_VOID getpi_get_reusable (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getpi_get_reusable"); + + if (asn1r_get_bool (aCtx, &(rsp_info->reusable))) /* read mms deletable */ + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + ASN1R_TAG_ADD (aCtx, CTX, 4, getpi_get_monitor); + } + +/************************************************************************/ +/* getpi_get_monitor */ +/* get program invocation attribute RESPONSE (confirm) is being decoded:*/ +/* decode the monitor flag. */ +/************************************************************************/ + +static ST_VOID getpi_get_monitor (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getpi_get_monitor"); + + if (asn1r_get_bool (aCtx, &(rsp_info->monitor))) /* read monitor from message */ + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + ASN1R_TAG_ADD (aCtx, CTX, 5, getpi_get_start_arg); + +/* If MMS IS, Check for ENCODED string */ +#ifndef MMS_LITE + if (mms_chan_info[_mmsdechan].version) /* IS */ +#else + if (mmsl_version) /* IS */ +#endif + _ms_chk_for_extern (aCtx, &rsp_info->start_arg_len, + &rsp_info->start_arg, + extern_done); + } + +/************************************************************************/ +/* getpi_get_start_arg */ +/* get program invocation attribute RESPONSE (confirm) is being decoded:*/ +/* decode the start argument. */ +/************************************************************************/ + +static ST_VOID getpi_get_start_arg (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getpi_get_start_arg"); + + rsp_info->start_arg = (ST_UCHAR *) aCtx->asn1r_field_ptr - 1; + rsp_info->start_arg_type = ARG_TYPE_SIMPLE; + + if (asn1r_get_vstr (aCtx, (ST_CHAR *) rsp_info->start_arg)) + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* extern_done */ +/************************************************************************/ + +static ST_VOID extern_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("extern_done"); + + rsp_info->start_arg_type = ARG_TYPE_ENCODED; + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_getpi */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the get program invocation attrubute */ +/* request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_getpi (ST_INT chan, GETPI_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_GET_PI_ATTR, + M_CAST_MK_FUN (_ms_mk_getpi_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_getpi */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the get program invocation attrubute request. */ +/************************************************************************/ + +ST_RET mpl_getpi (GETPI_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_GET_PI_ATTR, + M_CAST_MK_FUN (_ms_mk_getpi_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_getpi_req */ +/* ENCODE a get program invocation attribute REQUEST: */ +/************************************************************************/ + +ST_VOID _ms_mk_getpi_req (ASN1_ENC_CTXT *aCtx, GETPI_REQ_INFO *info) + { + + asn1r_wr_vstr (aCtx, info->piname); /* write pgm invocation name */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_prim (aCtx, MMSOP_GET_PI_ATTR,CTX); /* tag = opcode, context */ + } diff --git a/mmslib/mmsl/rq_getty.c b/mmslib/mmsl/rq_getty.c new file mode 100644 index 0000000..c2572b9 --- /dev/null +++ b/mmslib/mmsl/rq_getty.c @@ -0,0 +1,141 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_gettype.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of the get named */ +/* type attributes. It decodes the get named type attributes */ +/* response (confirm) & encodes the get named type attributes */ +/* request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 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++ */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 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 GETTYPE_RESP_INFO *rsp_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID gettype_type_spec_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID gettype_get_mms_deletable (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_get_type_rsp */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_get_type_rsp (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Get Named Type Attributes Response"); + +/* get storage for request information */ + rsp_info = (GETTYPE_RESP_INFO *) _m_get_dec_buf (aCtx, sizeof (GETTYPE_RESP_INFO)); + ASN1R_TAG_ADD (aCtx, CTX, 0, gettype_get_mms_deletable); + } + +/************************************************************************/ +/* gettype_get_mms_deletable */ +/* Decoding get named type attributes response: mms deletable was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID gettype_get_mms_deletable (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("gettype_get_mms_deletable"); + /* read mms deletable */ + if (asn1r_get_bool (aCtx, &(rsp_info->mms_deletable))) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + + _ms_get_va_type_spec (aCtx, &rsp_info->type_spec, gettype_type_spec_done); + } + +/************************************************************************/ +/* gettype_type_spec_done */ +/* Decoding get named type attributes response: type specification has */ +/* been decoded. */ +/************************************************************************/ + +static ST_VOID gettype_type_spec_done (ASN1_DEC_CTXT *aCtx) + { + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_gettype */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the get named type attributes request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_gettype (ST_INT chan, GETTYPE_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_GET_TYPE, + M_CAST_MK_FUN (_ms_mk_gettype_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_gettype */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the get named type attributes request. */ +/************************************************************************/ + +ST_RET mpl_gettype (GETTYPE_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_GET_TYPE, + M_CAST_MK_FUN (_ms_mk_gettype_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_gettype_req */ +/* construct a get named type attributes request */ +/************************************************************************/ + +ST_VOID _ms_mk_gettype_req (ASN1_ENC_CTXT *aCtx, GETTYPE_REQ_INFO *info) + { + _ms_wr_mms_objname (aCtx, &info->type_name); /* write the type name */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_GET_TYPE,CTX,DEF); /* tag = opcode, ctx */ + } diff --git a/mmslib/mmsl/rq_getva.c b/mmslib/mmsl/rq_getva.c new file mode 100644 index 0000000..ca441f7 --- /dev/null +++ b/mmslib/mmsl/rq_getva.c @@ -0,0 +1,225 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_getvar.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of the get variable */ +/* access attributes. It decodes the get variable access */ +/* attributes response (confirm) & encodes the get variable access */ +/* attributes request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 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++ */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 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 GETVAR_RESP_INFO *rsp_info; + + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +/* static functions with multiple references */ + +static ST_VOID getvar_typespec_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID getvar_typespec_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID getvar_address_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID getvar_address_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID getvar_address_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID getvar_get_mms_deletable (ASN1_DEC_CTXT *aCtx); +static ST_VOID getvar_typespec_cstr_done (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_get_var_rsp */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_get_var_rsp (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Get Variable Access Attributes Response"); + +/* get storage for request information */ + rsp_info = (GETVAR_RESP_INFO *) _m_get_dec_buf (aCtx, sizeof (GETVAR_RESP_INFO)); + rsp_info->address_pres = SD_FALSE; /* set default value */ + + ASN1R_TAG_ADD (aCtx, CTX, 0, getvar_get_mms_deletable); + } + +/************************************************************************/ +/* getvar_get_mms_deletable */ +/* Decoding get variable access attributes response: mms deletable was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID getvar_get_mms_deletable (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getvar_get_mms_deletable"); + /* read mms deletable */ + if (asn1r_get_bool (aCtx, &(rsp_info->mms_deletable))) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1, getvar_address_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 2, getvar_typespec_cstr); + } + +/************************************************************************/ +/* getvar_address_cstr */ +/* get variable access attributes request: address constructor was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID getvar_address_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getvar_address_cstr"); + + rsp_info->address_pres = SD_TRUE; /* set address present */ + + _ms_get_va_address (aCtx, &rsp_info->address, getvar_address_done); + } + +/************************************************************************/ +/* getvar_address_done */ +/* get variable access attributes request: address has been decoded */ +/************************************************************************/ + +static ST_VOID getvar_address_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getvar_address_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = getvar_address_cstr_done; + } + +/************************************************************************/ +/* getvar_address_cstr_done */ +/* get variable access attributes request: address constructor done was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID getvar_address_cstr_done (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 2, getvar_typespec_cstr); + } + +/************************************************************************/ +/* getvar_typespec_cstr */ +/* get variable access attributes request: type spec constructor was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID getvar_typespec_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getvar_typespec_cstr"); + + _ms_get_va_type_spec (aCtx, &rsp_info->type_spec, getvar_typespec_done); + } + +/************************************************************************/ +/* getvar_typespec_done */ +/* get variable access attributes request: type spec has been decoded */ +/************************************************************************/ + +static ST_VOID getvar_typespec_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getvar_typespec_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = getvar_typespec_cstr_done; + } + +/************************************************************************/ +/* getvar_typespec_cstr_done */ +/* get variable access attributes request: typespec constructor done was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID getvar_typespec_cstr_done (ASN1_DEC_CTXT *aCtx) + { + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_getvar */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE & send the get variable access attributes request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_getvar (ST_INT chan, GETVAR_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_GET_VAR, + M_CAST_MK_FUN (_ms_mk_getvar_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_getvar */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the get variable access attributes request. */ +/************************************************************************/ + +ST_RET mpl_getvar (GETVAR_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_GET_VAR, + M_CAST_MK_FUN (_ms_mk_getvar_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_getvar_req */ +/* construct a get variable access attributes request */ +/************************************************************************/ + +ST_VOID _ms_mk_getvar_req (ASN1_ENC_CTXT *aCtx, GETVAR_REQ_INFO *info) + { + if (info->req_tag == 1) + { + asn1r_strt_constr (aCtx); /* start context tag 1 cstr */ + _ms_wr_va_address (aCtx, &info->address); /* write the address */ + asn1r_fin_constr (aCtx, 1, CTX, DEF); /* finish context tag 1 cstr */ + } + else + { + asn1r_strt_constr (aCtx); /* start context tag 0 cstr */ + _ms_wr_mms_objname (aCtx, &info->name); /* write the object name */ + asn1r_fin_constr (aCtx, 0, CTX, DEF); /* finish context tag 0 cstr */ + } + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_GET_VAR,CTX,DEF); /* tag = opcode, ctx */ + } diff --git a/mmslib/mmsl/rq_getvl.c b/mmslib/mmsl/rq_getvl.c new file mode 100644 index 0000000..0270d75 --- /dev/null +++ b/mmslib/mmsl/rq_getvl.c @@ -0,0 +1,187 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_getvlist.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of the get named */ +/* variable list attributes. It decodes the get named variable */ +/* list attributes response (confirm) & encodes the get named */ +/* variable list attributes request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 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++ */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 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 GETVLIST_RESP_INFO *rsp_info; + +static VARIABLE_LIST *vl_ptr; +static ST_INT max_vars; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID getvlist_list_of_var_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID getvlist_get_varlist (ASN1_DEC_CTXT *aCtx); +static ST_VOID getvlist_get_mms_deletable (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_get_vlist_rsp */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_get_vlist_rsp (ASN1_DEC_CTXT *aCtx) + { +ST_INT rsp_size; + + MLOG_CDEC0 ("Get Named Variable List Attributes Response"); + +#if defined(FIXED_DECBUF) + max_vars = m_cl_max_getvla_vars; + rsp_size = mmsl_dec_info_size; +#else + /* find maximum storage required */ + max_vars = _mmsdec_msglen / 4; + if (m_cl_max_getvla_vars && (max_vars > m_cl_max_getvla_vars)) + max_vars = m_cl_max_getvla_vars; + + rsp_size = sizeof (GETVLIST_RESP_INFO) + + (sizeof (VARIABLE_LIST) * max_vars); +#endif + +/* get storage for request information */ + rsp_info = (GETVLIST_RESP_INFO *) _m_get_dec_buf (aCtx, rsp_size); + vl_ptr = (VARIABLE_LIST *) (rsp_info + 1); + + ASN1R_TAG_ADD (aCtx, CTX, 0, getvlist_get_mms_deletable); + } + +/************************************************************************/ +/* getvlist_get_mms_deletable */ +/* Decoding get named variable list attributes response: mms deletable */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID getvlist_get_mms_deletable (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getvlist_get_mms_deletable"); + /* read mms deletable */ + if (asn1r_get_bool (aCtx, &(rsp_info->mms_deletable))) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1, getvlist_get_varlist); + } + +/************************************************************************/ +/* getvlist_get_varlist */ +/* Decoding get named variable list attributes response: list of */ +/* variables constructor was encountered. */ +/************************************************************************/ + +static ST_VOID getvlist_get_varlist (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getvlist_get_varlist"); + + _ms_get_va_var_list (aCtx, vl_ptr, &rsp_info->num_of_variables, + max_vars, getvlist_list_of_var_done); + } + +/************************************************************************/ +/* getvlist_list_of_var_done */ +/* get named variable list attributes request: list of variables has */ +/* been obtained. */ +/************************************************************************/ + +static ST_VOID getvlist_list_of_var_done (ASN1_DEC_CTXT *aCtx) + { +ST_INT rsp_size; + + MLOG_CDEC0 ("getvlist_list_of_var_done"); + /* find actual size for request info */ + rsp_size = sizeof (GETVLIST_RESP_INFO) + + (sizeof (VARIABLE_LIST) * rsp_info->num_of_variables); + + /* give back unused storage */ + _mms_dec_info = (*m_realloc_os_fun) (_mms_dec_info,rsp_size); + rsp_info = (GETVLIST_RESP_INFO *) _mms_dec_info; + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_getvlist */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE & send the get named variable list attributes */ +/* request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_getvlist (ST_INT chan, GETVLIST_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_GET_VLIST, + M_CAST_MK_FUN (_ms_mk_getvlist_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_getvlist */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the get named variable list attributes request. */ +/************************************************************************/ + +ST_RET mpl_getvlist (GETVLIST_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_GET_VLIST, + M_CAST_MK_FUN (_ms_mk_getvlist_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_getvlist_req */ +/* construct a get named variable list attributes request */ +/************************************************************************/ + +ST_VOID _ms_mk_getvlist_req (ASN1_ENC_CTXT *aCtx, GETVLIST_REQ_INFO *info) + { + _ms_wr_mms_objname (aCtx, &info->vl_name); /* write named var list name */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_GET_VLIST,CTX,DEF); /* tag = opcode, ctx */ + } diff --git a/mmslib/mmsl/rq_ident.c b/mmslib/mmsl/rq_ident.c new file mode 100644 index 0000000..d40874f --- /dev/null +++ b/mmslib/mmsl/rq_ident.c @@ -0,0 +1,247 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_ident.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of the Identify */ +/* service. It decodes the Identify response (indication) and */ +/* encodes the Identify request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 05 Remove "thisFileName" */ +/* 12/20/01 JRB 04 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 03 Added SD_CONST modifiers */ +/* 03/23/99 MDE 02 Changes to decode buffer allocation scheme */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 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_pvmd.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : NONE */ + +static IDENT_RESP_INFO *info; +static ST_CHAR *vstr; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID ident_get_model (ASN1_DEC_CTXT *aCtx); +static ST_VOID ident_get_vendor (ASN1_DEC_CTXT *aCtx); +static ST_VOID ident_get_rev (ASN1_DEC_CTXT *aCtx); +static ST_VOID ident_start_as (ASN1_DEC_CTXT *aCtx); +static ST_VOID ident_get_as (ASN1_DEC_CTXT *aCtx); +static ST_VOID ident_as_seq_done (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_identify_rsp */ +/* Function called to decode an Identify response PDU after the PDU */ +/* type has been determined. Sets up state machine function pointers */ +/* and returns, letting the ASN1DE tools take over. */ +/************************************************************************/ + +ST_VOID mms_identify_rsp (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Identify Response"); + + +/* get storage for request information */ + info = (IDENT_RESP_INFO *) _m_get_dec_buf (aCtx, sizeof (IDENT_RESP_INFO)); + ASN1R_TAG_ADD (aCtx, CTX,0,ident_get_vendor); + } + +/************************************************************************/ +/* ident_get_vendor */ +/* Identify response is being decoded: vendor name has been encountered.*/ +/************************************************************************/ + +static ST_VOID ident_get_vendor (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("ident_get_vendor"); + +/* copy vendor name back onto itself shifted by one character */ + + vstr = (ST_CHAR *) aCtx->asn1r_field_ptr - 1; + if (asn1r_get_vstr (aCtx, vstr)) + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + + if (strlen (vstr) < MAX_VEND_LEN) + strcpy (info->vend, vstr); + else + memcpy (info->vend, vstr, MAX_VEND_LEN); /* only take up to MAX_VEND_LEN */ + info->vend[ MAX_VEND_LEN ] = 0x00; /* NULL term. end just in case */ + + ASN1R_TAG_ADD (aCtx, CTX,1,ident_get_model); + } + + +/************************************************************************/ +/* ident_get_model */ +/* Identify response is being decoded: model name has been encountered. */ +/************************************************************************/ + +static ST_VOID ident_get_model (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("ident_get_model"); + + vstr = (ST_CHAR *) aCtx->asn1r_field_ptr - 1; + if (asn1r_get_vstr (aCtx, vstr)) + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + + if (strlen (vstr) < MAX_MOD_LEN) + strcpy (info->model, vstr); + else + memcpy (info->model, vstr, MAX_MOD_LEN); /* only take up to MAX_MOD_LEN */ + info->model[ MAX_MOD_LEN ] = 0x00; /* NULL term. end just in case */ + + ASN1R_TAG_ADD (aCtx, CTX,2,ident_get_rev); + } + +/************************************************************************/ +/* ident_get_rev */ +/* Identify response is being decoded: revision name was encountered. */ +/************************************************************************/ + +static ST_VOID ident_get_rev (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("ident_get_rev"); + + vstr = (ST_CHAR *) aCtx->asn1r_field_ptr - 1; + if (asn1r_get_vstr (aCtx, vstr)) + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + + if (strlen (vstr) < MAX_REV_LEN) + strcpy (info->rev, vstr); + else + memcpy (info->rev, vstr, MAX_REV_LEN); /* only take up to MAX_REV_LEN */ + info->rev[ MAX_REV_LEN ] = 0x00; /* NULL term. end just in case */ + + + _ms_set_cs_check (aCtx); /* check for CS info */ + +/* if using IS, could have a list of abstract syntax's following */ + +#ifndef MMS_LITE + if (mms_chan_info[_mmsdechan].version) /* IS */ + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,3,ident_start_as); +#else + if (mmsl_version) /* IS */ + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,3,ident_start_as); +#endif + } + +/************************************************************************/ +/* ident_start_as */ +/* Identify response is being decoded: AS sequence detected */ +/************************************************************************/ + +static ST_VOID ident_start_as (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("ident_start_as"); + + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = ident_as_seq_done; + + ASN1R_TAG_ADD (aCtx, UNI,OBJ_ID_CODE,ident_get_as); + } + +/************************************************************************/ +/* ident_get_as */ +/* Identify response is being decoded: AS obj id found */ +/************************************************************************/ + +static ST_VOID ident_get_as (ASN1_DEC_CTXT *aCtx) + { +ST_INT new_size; +struct mms_obj_id *obj; + + MLOG_CDEC0 ("ident_get_as"); + + new_size = sizeof (IDENT_RESP_INFO) + + (sizeof (struct mms_obj_id) * (info->num_as+1)); + + _mms_dec_info = (*m_realloc_os_fun) (_mms_dec_info,new_size); + info = (IDENT_RESP_INFO *) _mms_dec_info; + obj = (struct mms_obj_id *) (info +1); /* point to first */ + obj += info->num_as; /* point to next spot */ + + + if (asn1r_get_objid (aCtx, obj->comps,&obj->num_comps)) + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + +/* get ready for another in the sequence */ + ASN1R_TAG_ADD (aCtx, UNI,OBJ_ID_CODE,ident_get_as); + info->num_as++; + } + +/************************************************************************/ +/* ident_as_seq_done */ +/* Identify response is being decoded: AS sequence complete */ +/************************************************************************/ + +static ST_VOID ident_as_seq_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("ident_as_seq_done"); + + _ms_set_cs_check (aCtx); /* check for CS info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_ident */ +/* This function is called from the user to ENCODE and send the */ +/* Identify request PDU. */ +/************************************************************************/ + +MMSREQ_PEND *mp_ident (ST_INT chan) + { + return (_mms_send_null_req (chan,MMSOP_IDENTIFY)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_ident */ +/* This function is called from the user to ENCODE and send the */ +/* Identify request PDU. */ +/************************************************************************/ + +ST_RET mpl_ident (ST_VOID) + { + return (_mms_fin_null_req (MMSOP_IDENTIFY)); + } + +#endif diff --git a/mmslib/mmsl/rq_info.c b/mmslib/mmsl/rq_info.c new file mode 100644 index 0000000..42ebce0 --- /dev/null +++ b/mmslib/mmsl/rq_info.c @@ -0,0 +1,127 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2004, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_info.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of information */ +/* report. It encodes the information report request. There */ +/* is no response (confirm). */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/28/05 JRB 05 Incl suicacse if MMS_LITE not defined. */ +/* 09/17/04 EJV 04 Use new mms_chk_resource. */ +/* 12/12/02 JRB 03 Add ASN1_ENC_CTXT arg to mpl_info */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 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 : NONE */ + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + + +#ifndef MMS_LITE +#include "mms_vcon.h" +#include "suicacse.h" /* for SE_QUE_FULL only */ + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/************************************************************************/ +/* mp_info */ +/* Create and send an information report request. */ +/************************************************************************/ + +ST_RET mp_info (ST_INT chan, INFO_REQ_INFO *info_ptr) + { +ST_RET rc; +ST_INT avail; + + /* locking here will assure that _mms_chk_resource will work in */ + /* multiple threads when mp_* functions are called to send */ + /* unconfirmed requests */ + S_LOCK_COMMON_RESOURCES (); + + avail = _mms_chk_resource (chan); + if (avail > 0) + rc = _mms_unconf_req_send (MMSOP_INFO_RPT, + M_CAST_MK_FUN (_ms_mk_info_req), + chan,(ST_CHAR *)info_ptr); + else + rc = SE_QUE_FULL; + + S_UNLOCK_COMMON_RESOURCES (); + + return (rc); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_info */ +/* Create an information report request. */ +/************************************************************************/ + +ST_RET mpl_info (ASN1_ENC_CTXT *aCtx, INFO_REQ_INFO *info_ptr) + { + return (_mms_unconf_req_fin (aCtx, MMSOP_INFO_RPT, + M_CAST_MK_FUN (_ms_mk_info_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_info_req */ +/* construct an information report request */ +/************************************************************************/ + +ST_VOID _ms_mk_info_req (ASN1_ENC_CTXT *aCtx, INFO_REQ_INFO *info_ptr) + { +ST_INT i; +ACCESS_RESULT *ar_ptr; + + asn1r_strt_constr (aCtx); /* start context tag 0 cstr */ + ar_ptr = info_ptr->acc_rslt_list; + ar_ptr += info_ptr->num_of_acc_result - 1; + for (i = 0; i < info_ptr->num_of_acc_result; i++) + { + _ms_wr_va_access_rslt (aCtx, ar_ptr); + ar_ptr--; + } + asn1r_fin_constr (aCtx, 0, CTX, DEF); /* finish context tag 0 cstr */ + + _ms_wr_va_spec (aCtx, &info_ptr->va_spec); + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsl/rq_init.c b/mmslib/mmsl/rq_init.c new file mode 100644 index 0000000..50fe6e3 --- /dev/null +++ b/mmslib/mmsl/rq_init.c @@ -0,0 +1,251 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2005, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_init.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of the initiate */ +/* operation. It decodes the initiate response (confirm) & */ +/* encodes the initiate request. */ +/* This module makes use of common functions in mmsinit.c */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 02/28/05 EJV 04 Elim Linux warnings in if (a=b) */ +/* Fixed thisFileName for MMS-EASE */ +/* 03/11/04 GLB 03 Cleaned up "thisFileName" */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 01 Added SD_CONST modifiers */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" + +#include "mmsdefs.h" +#include "mms_pcon.h" +#ifndef MMS_LITE +#include "mms_ms.h" +#endif +#include "asn1defs.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#if defined(DEBUG_SISCO) && (defined(S_MT_SUPPORT) || !defined(MMS_LITE)) +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/************************************************************************/ +/* mms_init_rsp */ +/* Function called to decode an Initiate response PDU after the PDU */ +/* type has been determined. Sets request to false, and calls the */ +/* common initiate decode function. */ +/* */ +/* NOTE : This functionality has been moved to mmsinit.c, because the */ +/* request and response are identical. The call to mms_init_rsp was */ +/* put back to better support MMSEASE-LITE. */ +/************************************************************************/ + +ST_VOID mms_init_rsp (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("decode initiate response"); + _mms_init_dec (aCtx, SD_FALSE); + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_init */ +/* create and send an initiate request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_init (ST_INT chan, ST_CHAR *partner, INIT_INFO *info_ptr) + { +ST_UCHAR *msg_ptr; +MMSREQ_PEND *reqptr; +LLP_ADDR_INFO add_llp_info; +ST_INT i; +ST_INT num_ui; +INIT_UI *ui; +INIT_UI *ui_ptr; +ST_UCHAR *buf; +ST_INT16 pend_req_save; +ST_INT num_cs; +ST_INT cs_count; +CS_INIT_INFO *cs_info_ptr; +ST_UCHAR *cs_build_bufs[MAX_INIT_CONTEXTS]; +ST_INT req_count; +ASN1_ENC_CTXT localEncCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_ENC_CTXT *aCtx = &localEncCtx; + + if (info_ptr->num_cs_init > MAX_INIT_CONTEXTS) + { + mms_op_err = ME_TOO_MANY_CONTEXTS; + return ((MMSREQ_PEND *) 0); + } + +/* Make sure this channel is IDLE */ + if (mms_chan_info[chan].ctxt.chan_state != M_IDLE) + { + mms_op_err = ME_CHAN_STATE; + return ((MMSREQ_PEND *) 0); + } + + S_LOCK_COMMON_RESOURCES (); + +/* Flush all pending requests (should be 0 already, check anyway) */ + req_count = ms_count_req_pend (chan); + if (req_count) + { + MLOG_ERR2 ("%d Pending Requests on Idle Channel %d ", + req_count, + (ST_INT) chan); + } + ms_disconn_pend_req (chan); + + +/* Need to save the max pending request count (could be 0) before */ +/* getting the request control pointer. */ + + pend_req_save = mms_chan_info[chan].maxpend_req; + mms_chan_info[chan].maxpend_req = 1; + + reqptr = _ms_get_req_ptr (chan,MMSOP_INITIATE,(ST_CHAR *)info_ptr); + +/* restore max pending request for initiate request */ + mms_chan_info[chan].maxpend_req = pend_req_save; + + if (reqptr) + { + _mms_pend_init[chan].req = reqptr; /* save INITIATE request ctrl */ + + num_ui = num_cs = info_ptr->num_cs_init; + if (info_ptr->mms_p_context_pres) + num_ui++; + + ui = ui_ptr = (INIT_UI *) chk_calloc (num_ui, sizeof (INIT_UI)); + cs_count = 0; + cs_info_ptr = (CS_INIT_INFO *) (info_ptr + 1); + for (i = 0; i < num_ui; ++i, ++ui_ptr) + { +/* build the core initiate, if used and position reached or if no */ +/* companion standard initiates are to be sent */ + + if ((info_ptr->mms_p_context_pres && i == info_ptr->core_position) || + !info_ptr->num_cs_init) + { + msg_ptr = _ms_mk_init (aCtx, m_build_buf,mms_max_msgsize,info_ptr,MMSINITREQ,SD_FALSE); + ui_ptr->context = MMS_PCI; + ui_ptr->ui_len = M_BUILD_BUF_END - msg_ptr; + ui_ptr->ui_ptr = msg_ptr; + } + else /* build a CS Initiate PDU */ + { + buf = cs_build_bufs[cs_count++] = (ST_UCHAR *) + chk_calloc (1,M_INIT_BUILD_LEN); + msg_ptr = _ms_mk_init (aCtx, buf,M_INIT_BUILD_LEN, + (INIT_INFO *) cs_info_ptr,MMSINITREQ,SD_TRUE); + + ui_ptr->context = cs_info_ptr->p_context; + ui_ptr->ui_len = (buf + M_INIT_BUILD_LEN) - msg_ptr; + ui_ptr->ui_ptr = msg_ptr; + ++cs_info_ptr; + } + } + + add_llp_info.i.LLC.use_rem_addr = SD_FALSE; + add_llp_info.i.LLC.req_ptr = (ST_CHAR *)reqptr; + add_llp_info.i.LLC.send_type = INITIATE_REQ_PDU; + + /* If a request logging function is installed, call it */ + if (m_log_req_info_fun && (mms_debug_sel & MMS_LOG_REQ)) + (*m_log_req_info_fun) (reqptr, info_ptr); + + if ((mms_op_err = _mllp_init_req (chan, partner, reqptr->context, + num_ui, ui,&add_llp_info)) != 0) + { + _ms_deact_pend_req (reqptr); + chk_free (ui); + S_UNLOCK_COMMON_RESOURCES (); + return ((MMSREQ_PEND *) 0); + } + + chk_free (ui); + for (i = 0; i < num_cs; ++i) /* free CS build buffers */ + chk_free (cs_build_bufs[i]); + } + S_UNLOCK_COMMON_RESOURCES (); + return (reqptr); /* return request control ptr */ + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_init */ +/* create a core initiate request. */ +/************************************************************************/ + +ST_RET mpl_init (INIT_INFO *info_ptr) + { +ST_RET ret; +ASN1_ENC_CTXT localEncCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_ENC_CTXT *aCtx = &localEncCtx; + + S_LOCK_COMMON_RESOURCES (); + mmsl_msg_start = _ms_mk_init (aCtx, mmsl_enc_buf, mmsl_enc_buf_size, + info_ptr,MMSINITREQ,SD_FALSE); + mmsl_msg_len = (mmsl_enc_buf + mmsl_enc_buf_size) - mmsl_msg_start; + + if (!aCtx->asn1r_encode_overrun) /* Check for encode overrun */ + ret = SD_SUCCESS; + else + ret = ME_ASN1_ENCODE_OVERRUN; + S_UNLOCK_COMMON_RESOURCES (); + return (ret); + } + +#ifdef CS_SUPPORT +/************************************************************************/ +/************************************************************************/ +/* mpl_cs_init */ +/* create a companion standard initiate request. */ +/************************************************************************/ + +ST_INT16 mpl_cs_init (CS_INIT_INFO *info_ptr) + { +ASN1_ENC_CTXT localEncCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_ENC_CTXT *aCtx = &localEncCtx; + + mmsl_msg_start = _ms_mk_init (aCtx, mmsl_enc_buf, mmsl_enc_buf_size, + (INIT_INFO *) info_ptr,MMSINITREQ,SD_TRUE); + mmsl_msg_len = (mmsl_enc_buf + mmsl_enc_buf_size) - mmsl_msg_start; + + if (aCtx->asn1r_encode_overrun) /* Check for encode overrun */ + return (ME_ASN1_ENCODE_OVERRUN); + return (SD_SUCCESS); + } +#endif + +#endif + +/************************************************************************/ +/* mk_initiate */ +/* Note that there is only one mk_initiate function, and it is listed */ +/* in the mmsinit.c module. */ +/************************************************************************/ + diff --git a/mmslib/mmsl/rq_namel.c b/mmslib/mmsl/rq_namel.c new file mode 100644 index 0000000..0fd3a9b --- /dev/null +++ b/mmslib/mmsl/rq_namel.c @@ -0,0 +1,253 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_namelist.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of the GetNameList */ +/* service. It decodes the GetNameList response (indication) and */ +/* encodes the GetNameList request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 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++ */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 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_pvmd.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : NONE */ + +static NAMELIST_RESP_INFO *info; + +static ST_CHAR **nptr; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID namelist_get_list_of_ident (ASN1_DEC_CTXT *aCtx); +static ST_VOID namelist_get_identifier (ASN1_DEC_CTXT *aCtx); +static ST_VOID namelist_list_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID namelist_more_follows (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_namelist_rsp */ +/* Function called to decode a GetNameList response PDU after the PDU */ +/* type has been determined. Sets up state machine function pointers */ +/* and returns, letting the ASN1DE tools take over. */ +/************************************************************************/ + +ST_VOID mms_namelist_rsp (ASN1_DEC_CTXT *aCtx) + { +ST_INT rsp_size; +ST_INT max_vstr; + + MLOG_CDEC0 ("Get Named List"); + +#if defined(FIXED_DECBUF) + max_vstr = m_cl_max_namel_names; + rsp_size = mmsl_dec_info_size; +#else + +/* Allocate enough memory to hold the namelist_resp_info structure and */ +/* a list of pointers to the names returned in the GetNameList response.*/ + + max_vstr = _mmsdec_msglen/2; + if (m_cl_max_namel_names && (max_vstr > m_cl_max_namel_names)) + max_vstr = m_cl_max_namel_names; + rsp_size = sizeof(NAMELIST_RESP_INFO) + (sizeof(ST_CHAR *) * max_vstr); +#endif + +/* get storage for request information */ + info = (NAMELIST_RESP_INFO *) _m_get_dec_buf (aCtx, rsp_size); + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,0,namelist_get_list_of_ident); /* declare next elmnt expected */ + } + +/************************************************************************/ +/* namelist_get_list_of_ident */ +/* GetNameList response is being decoded: the SEQUENCEOF Identifier has */ +/* been encountered. */ +/************************************************************************/ + +static ST_VOID namelist_get_list_of_ident (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("namelist_get_list_of_ident"); + +/* Initialize nptr to just after the namelist_resp_info structure, and */ +/* initialize the number of names to zero. */ + + nptr = (ST_CHAR **) (info + 1); + info -> num_names = 0; + info -> more_follows = SD_TRUE; /* set the default value */ + + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = namelist_list_done; + ASN1R_TAG_ADD (aCtx, UNI,VISTR_CODE,namelist_get_identifier); + } + +/************************************************************************/ +/* namelist_get_identifier */ +/* GetNameList resp. is being decoded: model name has been encountered. */ +/************************************************************************/ + +static ST_VOID namelist_get_identifier (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("namelist_get_identifier"); + +/* Increment the number of names, assign the pointer to the new name, */ +/* and read the name into the space in the existing message. */ + + nptr[info->num_names] = (ST_CHAR *) aCtx->asn1r_field_ptr - 1; + if (asn1r_get_identifier (aCtx, nptr[info->num_names])) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + ++info->num_names; + + asn1r_tag_restore (aCtx); + } + +/************************************************************************/ +/* namelist_list_done */ +/* GetNameList response is being decoded: end of name list encountered. */ +/************************************************************************/ + +static ST_VOID namelist_list_done (ASN1_DEC_CTXT *aCtx) + { +ST_INT resp_size; + +/* There are no other data elements in the message, resize the struct. */ + + /* find the exact size of the storage used */ + resp_size = sizeof (NAMELIST_RESP_INFO) + + (info->num_names) * sizeof (ST_CHAR *); + + /* give back unused storage */ + _mms_dec_info = (*m_realloc_os_fun) (_mms_dec_info,resp_size); + info = (NAMELIST_RESP_INFO *) _mms_dec_info; + + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + ASN1R_TAG_ADD (aCtx, CTX,1,namelist_more_follows); + } + +/************************************************************************/ +/* namelist_more_follows */ +/* GetNameList response is being decoded: the more follows parameter */ +/* has been encountered. */ +/************************************************************************/ + +static ST_VOID namelist_more_follows (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("namelist_more_follows"); + + if (aCtx->asn1r_elmnt_len != 1) + { /* If not of length 1 (boolean),*/ + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); /* stop parse, report error */ + return; /* and return. */ + } + + if (asn1r_get_bool (aCtx, &info -> more_follows)) /* Read more_follows boolean. */ + { /* If error reading integer, */ + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); /* stop parse, report error */ + return; /* and return. */ + } + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_namelist */ +/* ENCODE and send a GetNameList REQUEST: */ +/************************************************************************/ + +MMSREQ_PEND *mp_namelist (ST_INT chan, NAMELIST_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_GET_NAMLIST, + M_CAST_MK_FUN (_ms_mk_namel_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_namelist */ +/* ENCODE a GetNameList REQUEST: */ +/************************************************************************/ + +ST_RET mpl_namelist (NAMELIST_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_GET_NAMLIST, + M_CAST_MK_FUN (_ms_mk_namel_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_namel_req */ +/* ENCODE a GetNameList REQUEST: */ +/************************************************************************/ + +ST_VOID _ms_mk_namel_req (ASN1_ENC_CTXT *aCtx, NAMELIST_REQ_INFO *info_ptr) + { + + if (info_ptr->cont_after_pres) + { + asn1r_wr_vstr (aCtx, info_ptr->continue_after); /* write continue-after name */ + asn1r_fin_prim (aCtx, 2,CTX); + } + + asn1r_strt_constr (aCtx); /* start the object scope cstr */ + + if (info_ptr->objscope == DOM_SPEC) /* if domain specific */ + asn1r_wr_vstr (aCtx, info_ptr->dname); /* write domain_name identifier */ + asn1r_fin_prim (aCtx, info_ptr->objscope,CTX); /* either NULL or identifier */ + + asn1r_fin_constr (aCtx, 1,CTX,DEF); /* finish the object scope cstr */ + + asn1r_strt_constr (aCtx); /* start extendedObjectClass */ +#ifdef CS_SUPPORT + if (info_ptr->cs_objclass_pres) /* if companion standard */ + { + asn1r_wr_octstr (aCtx, info_ptr->obj.cs.cs_class,info_ptr->obj.cs.len); + asn1r_fin_constr (aCtx, 1,CTX,DEF); + } + else + { + asn1r_wr_i16 (aCtx, info_ptr->obj.mms_class); /* write the object scope */ + asn1r_fin_prim (aCtx, 0,CTX); + } +#else + asn1r_wr_i16 (aCtx, info_ptr->obj.mms_class); /* write the object scope */ + asn1r_fin_prim (aCtx, 0,CTX); +#endif + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* finish the extendedObjClass */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_GET_NAMLIST,CTX,DEF); /* complete GetNameList req */ + } + diff --git a/mmslib/mmsl/rq_read.c b/mmslib/mmsl/rq_read.c new file mode 100644 index 0000000..5783b40 --- /dev/null +++ b/mmslib/mmsl/rq_read.c @@ -0,0 +1,276 @@ +/************************************************************************/ +/* 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 */ + } diff --git a/mmslib/mmsl/rq_repea.c b/mmslib/mmsl/rq_repea.c new file mode 100644 index 0000000..e1c7ac7 --- /dev/null +++ b/mmslib/mmsl/rq_repea.c @@ -0,0 +1,117 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_repeas.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of the report event */ +/* action status. It decodes the report event action status */ +/* response (confirm) & encodes the report event action status */ +/* request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 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++ */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 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_pevn.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static REPEAS_RESP_INFO *rsp_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + + +/************************************************************************/ +/************************************************************************/ +/* mms_repeas_rsp */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_repeas_rsp (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Report Event Action Status Response"); + +/* get storage for request information */ + rsp_info = (REPEAS_RESP_INFO *) _m_get_dec_buf (aCtx, sizeof (REPEAS_RESP_INFO)); + + if (asn1r_get_u32 (aCtx, &rsp_info->num_of_ev_enroll)) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + else + { + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_repeas */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE & send the report event action status request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_repeas (ST_INT chan, REPEAS_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_REP_EA_STAT, + M_CAST_MK_FUN (_ms_mk_repeas_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_repeas */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the report event action status request. */ +/************************************************************************/ + +ST_RET mpl_repeas (REPEAS_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_REP_EA_STAT, + M_CAST_MK_FUN (_ms_mk_repeas_req), + (ST_CHAR *)info_ptr)); + } + +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_repeas_req */ +/* construct a get event action attributes request */ +/************************************************************************/ + +ST_VOID _ms_mk_repeas_req (ASN1_ENC_CTXT *aCtx, REPEAS_REQ_INFO *info) + { + _ms_wr_mms_objname (aCtx, &info->evact_name); /* write event action name */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_REP_EA_STAT,CTX,DEF); /* tag = opcode, ctx */ + } diff --git a/mmslib/mmsl/rq_repec.c b/mmslib/mmsl/rq_repec.c new file mode 100644 index 0000000..60e6a44 --- /dev/null +++ b/mmslib/mmsl/rq_repec.c @@ -0,0 +1,249 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_repecs.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of report event */ +/* condition status. It decodes the report event condition */ +/* status response (confirm) and encodes the report event */ +/* condition status request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 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++ */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 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_pevn.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static REPECS_RESP_INFO *rsp_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID repecs_tta_time_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID repecs_tti_time_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID repecs_tta_time_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID repecs_tta_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID repecs_get_enabled (ASN1_DEC_CTXT *aCtx); +static ST_VOID repecs_get_enrolls (ASN1_DEC_CTXT *aCtx); +static ST_VOID repecs_get_cur_state (ASN1_DEC_CTXT *aCtx); +static ST_VOID repecs_tti_done (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_repecs_rsp */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_repecs_rsp (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Report Event Condition Status Response"); + + + +/* get storage for request information */ + rsp_info = (REPECS_RESP_INFO *) _m_get_dec_buf (aCtx, sizeof (REPECS_RESP_INFO)); + rsp_info->enabled_pres = SD_FALSE; /* set default value */ + rsp_info->tta_time_pres = SD_FALSE; + rsp_info->tti_time_pres = SD_FALSE; + + ASN1R_TAG_ADD (aCtx, CTX, 0, repecs_get_cur_state); + } + +/************************************************************************/ +/* repecs_get_cur_state */ +/* Decoding report event condition status response: current state was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID repecs_get_cur_state (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("repecs_get_cur_state"); + /* read current state */ + if (asn1r_get_i16 (aCtx, &(rsp_info->cur_state))) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + + ASN1R_TAG_ADD (aCtx, CTX, 1, repecs_get_enrolls); + } + +/************************************************************************/ +/* repecs_get_enrolls */ +/* Decoding report event condition status response: number of event */ +/* enrollments was encountered. */ +/************************************************************************/ + +static ST_VOID repecs_get_enrolls (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("repecs_get_enrolls"); + /* read number of event enrollments */ + if (asn1r_get_u32 (aCtx, &(rsp_info->num_of_ev_enroll))) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + + ASN1R_TAG_ADD (aCtx, CTX, 2, repecs_get_enabled); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 3, repecs_tta_time_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 4, repecs_tti_time_cstr); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* repecs_get_enabled */ +/* Decoding report event condition status response: enabled indicator */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID repecs_get_enabled (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("repecs_get_enabled"); + + rsp_info->enabled_pres = SD_TRUE; /* set enabled present */ + /* read enabled indicator */ + if (asn1r_get_bool (aCtx, &(rsp_info->enabled))) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 3, repecs_tta_time_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 4, repecs_tti_time_cstr); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* repecs_tta_time_cstr */ +/* Decoding report event condition status response: transition to */ +/* active time cstr was encountered. */ +/************************************************************************/ + +static ST_VOID repecs_tta_time_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("repecs_tta_time_cstr"); + + rsp_info->tta_time_pres = SD_TRUE; /* set tran to active present */ + + _ms_get_mms_evtime (aCtx, &rsp_info->tta_time, repecs_tta_done); + } + +/************************************************************************/ +/* repecs_tta_done */ +/* Decoding report event condition status response: transition to */ +/* active time has been obtained. */ +/************************************************************************/ + +static ST_VOID repecs_tta_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("repecs_tta_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = repecs_tta_time_cstr_done; + } + +/************************************************************************/ +/* repecs_tta_time_cstr_done */ +/* Decoding report event condition status response: transition to */ +/* active time cstr done has been encountered. */ +/************************************************************************/ + +static ST_VOID repecs_tta_time_cstr_done (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 4, repecs_tti_time_cstr); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* repecs_tti_time_cstr */ +/* Decoding report event condition status response: transition to */ +/* idle time cstr has been encountered. */ +/************************************************************************/ + +static ST_VOID repecs_tti_time_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("repecs_tti_time_cstr"); + + rsp_info->tti_time_pres = SD_TRUE; /* set tran to active present */ + + _ms_get_mms_evtime (aCtx, &rsp_info->tti_time, repecs_tti_done); + } + +/************************************************************************/ +/* repecs_tti_done */ +/* Decoding report event condition status response: transition to */ +/* idle time has been obtained. */ +/************************************************************************/ + +static ST_VOID repecs_tti_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("repecs_tti_done"); + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_repecs */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the report event condition status */ +/* request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_repecs (ST_INT chan, REPECS_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_REP_EC_STAT, + M_CAST_MK_FUN (_ms_mk_repecs_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_repecs */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the report event condition status request. */ +/************************************************************************/ + +ST_RET mpl_repecs (REPECS_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_REP_EC_STAT, + M_CAST_MK_FUN (_ms_mk_repecs_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_repecs_req */ +/* construct a report event condition status request */ +/************************************************************************/ + +ST_VOID _ms_mk_repecs_req (ASN1_ENC_CTXT *aCtx, REPECS_REQ_INFO *info) + { + _ms_wr_mms_objname (aCtx, &info->evcon_name); /* write the object name */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_REP_EC_STAT,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsl/rq_repee.c b/mmslib/mmsl/rq_repee.c new file mode 100644 index 0000000..00d0e0a --- /dev/null +++ b/mmslib/mmsl/rq_repee.c @@ -0,0 +1,262 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_repees.c */ +/* PRODUCT(S) : MMSEASE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of the report event */ +/* enrollment status. It decodes the report event enrollment */ +/* status response (confirm) & encodes the report event enrollment */ +/* status request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 07 Remove "thisFileName" */ +/* 03/31/03 JRB 06 asn1r_get_bitstr: add max_bits arg. */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 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++ */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 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_pevn.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static REPEES_RESP_INFO *rsp_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID repees_get_ect_prim (ASN1_DEC_CTXT *aCtx); +static ST_VOID repees_get_ect_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID repees_get_ect_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID repees_get_not_lost (ASN1_DEC_CTXT *aCtx); +static ST_VOID repees_get_duration (ASN1_DEC_CTXT *aCtx); +static ST_VOID repees_get_alarm_ack_rule (ASN1_DEC_CTXT *aCtx); +static ST_VOID repees_get_cur_state (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_repees_rsp */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_repees_rsp (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Report Event Enrollment Status Response"); + +/* get storage for request information */ + rsp_info = (REPEES_RESP_INFO *) _m_get_dec_buf (aCtx, sizeof (REPEES_RESP_INFO)); + ASN1R_TAG_ADD (aCtx, CTX, 0, repees_get_ect_prim); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, repees_get_ect_cstr); + } + +/************************************************************************/ +/* repees_get_ect_prim */ +/* report event enrollment status response is being decoded: event */ +/* condition transitions primitive was encountered. */ +/************************************************************************/ + +static ST_VOID repees_get_ect_prim (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("repees_get_ect_prim"); + if (!asn1r_get_bitstr (aCtx, &rsp_info->ec_transitions, 7)) + repees_get_ect_done (aCtx); /* set up for the next data element */ + else + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + } + +/************************************************************************/ +/* repees_get_ect_cstr */ +/* report event enrollment status response is being decoded: event */ +/* condition transitions constructor was encountered. */ +/************************************************************************/ + +static ST_VOID repees_get_ect_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("repees_get_ect_cstr"); + /* set up bitstring cstr done function */ + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = repees_get_ect_done; + + asn1r_get_bitstr_cstr (aCtx, 7,&rsp_info->ec_transitions); + } + +/************************************************************************/ +/* repees_get_ect_done */ +/* report event enrollment status response is being decoded: event */ +/* condition transitions constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID repees_get_ect_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("repees_get_ect_done"); + /* Check aCtx->asn1r_bitcount for correct # of bits */ + if (aCtx->asn1r_bitcount != 7) /* should be 7 bits */ + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + else /* now get alarm ack rule */ + { + ASN1R_TAG_ADD (aCtx, CTX, 1, repees_get_not_lost); + ASN1R_TAG_ADD (aCtx, CTX, 2, repees_get_duration); + } + } + +/************************************************************************/ +/* repees_get_not_lost */ +/* report event enrollment status response is being decoded: */ +/* notification lost has been encountered. */ +/************************************************************************/ + +static ST_VOID repees_get_not_lost (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("repees_get_not_lost"); + + if (asn1r_get_bool (aCtx, &(rsp_info->not_lost))) /* get notification lost*/ + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + + ASN1R_TAG_ADD (aCtx, CTX, 2, repees_get_duration); + } + +/************************************************************************/ +/* repees_get_duration */ +/* Decoding report event enrollment status response: duration was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID repees_get_duration (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("repees_get_duration"); + /* read duration */ + if (asn1r_get_i16 (aCtx, &(rsp_info->duration))) + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + else if ((rsp_info->duration < 0) || (rsp_info->duration > 1)) + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + + ASN1R_TAG_ADD (aCtx, CTX, 3, repees_get_alarm_ack_rule); + ASN1R_TAG_ADD (aCtx, CTX, 4, repees_get_cur_state); + } + +/************************************************************************/ +/* repees_get_alarm_ack_rule */ +/* Decoding report event enrollment status response: alarm ack rule */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID repees_get_alarm_ack_rule (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("repees_get_alarm_ack_rule"); + + rsp_info->alarm_ack_rule_pres = SD_TRUE; + /* read alarm ack rule */ + if (asn1r_get_i16 (aCtx, &(rsp_info->alarm_ack_rule))) + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + else if ((rsp_info->alarm_ack_rule < 0) || (rsp_info->alarm_ack_rule > 3)) + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + + ASN1R_TAG_ADD (aCtx, CTX, 4, repees_get_cur_state); + } + +/************************************************************************/ +/* repees_get_cur_state */ +/* Decoding report event enrollment status response: current state was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID repees_get_cur_state (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("repees_get_cur_state"); + /* read current state */ + if (asn1r_get_i16 (aCtx, &(rsp_info->cur_state))) + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + else if ((rsp_info->cur_state < 0) || (rsp_info->cur_state > 7)) + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_repees */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE & send the report event enrollment status request */ +/************************************************************************/ + +MMSREQ_PEND *mp_repees (ST_INT chan, REPEES_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_REP_EE_STAT, + M_CAST_MK_FUN (_ms_mk_repees_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_repees */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the report event enrollment status request. */ +/************************************************************************/ + +ST_RET mpl_repees (REPEES_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_REP_EE_STAT, + M_CAST_MK_FUN (_ms_mk_repees_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_repees_req */ +/* construct a report event enrollment status response */ +/************************************************************************/ + +ST_VOID _ms_mk_repees_req (ASN1_ENC_CTXT *aCtx, REPEES_REQ_INFO *info) + { + _ms_wr_mms_objname (aCtx, &info->evenroll_name);/* write event enrollment name */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_REP_EE_STAT,CTX,DEF); /* tag = opcode, ctx */ + } diff --git a/mmslib/mmsl/rq_stat.c b/mmslib/mmsl/rq_stat.c new file mode 100644 index 0000000..dfbb6b7 --- /dev/null +++ b/mmslib/mmsl/rq_stat.c @@ -0,0 +1,107 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_stat.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the functions to decode a status response */ +/* and encode a status request message. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 04 Remove "thisFileName" */ +/* 12/20/01 JRB 03 Converted to use ASN1R (re-entrant ASN1) */ +/* Deleted mms_status proto (see mms_dfun.h) */ +/* 09/13/99 MDE 02 Added SD_CONST modifiers */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 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_pvmd.h" +#include "asn1defs.h" + +/************************************************************************/ +/************************************************************************/ +/* mms_status_rsp */ +/* This function is called from mmsdec to decode a Status response PDU */ +/* after the PDU type has been determined. It simply calls mms_status */ +/* in the module mmsstat.c. */ +/************************************************************************/ + +ST_VOID mms_status_rsp (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("decode status response"); + + mms_status (aCtx); + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_status */ +/* This function is called from the user to ENCODE and send the */ +/* Status request PDU. */ +/************************************************************************/ + +MMSREQ_PEND *mp_status (ST_INT chan, STATUS_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_STATUS, + M_CAST_MK_FUN (_ms_mk_stat_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_status */ +/* This function is called by the user to ENCODE the Status request */ +/* PDU. */ +/************************************************************************/ + +ST_RET mpl_status (STATUS_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_STATUS, + M_CAST_MK_FUN (_ms_mk_stat_req), + (ST_CHAR *)info_ptr)); + } +#endif + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_stat_req */ +/* ENCODE an Status REQUEST: */ +/************************************************************************/ + +ST_VOID _ms_mk_stat_req (ASN1_ENC_CTXT *aCtx, STATUS_REQ_INFO *info_ptr) + { + +/* Write the ST_BOOLEAN value represented by the "extended" component of */ +/* the status_req_info structure (0 means false, nonzero means true). */ + + if (info_ptr -> extended) + asn1r_wr_bool (aCtx, 0x7F); + else + asn1r_wr_bool (aCtx, 0x00); + +/* Write the context specific explicit tag for this opcode on the */ +/* ST_BOOLEAN data element just written. */ + + asn1r_fin_prim (aCtx, MMSOP_STATUS,CTX); /* tag = opcode, context */ + } + + diff --git a/mmslib/mmsl/rq_trige.c b/mmslib/mmsl/rq_trige.c new file mode 100644 index 0000000..8db0111 --- /dev/null +++ b/mmslib/mmsl/rq_trige.c @@ -0,0 +1,104 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_trige.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of trigger event. */ +/* It decodes the trigger event response (confirm) & encodes the */ +/* trigger event request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 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_pevn.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : NONE */ + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + + +/************************************************************************/ +/************************************************************************/ +/* mms_trige_rsp */ +/* NOTE : Since the mms_trige_rsp is a NULL PDU, the decode is */ +/* continued by '_mms_null_pdu_dec', which simply sets decode done = 1 */ +/* and sets the decode done function to point to the general decode done*/ +/* fun. See mmsdec.c for the general functions. */ +/************************************************************************/ + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_trige */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the trigger event request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_trige (ST_INT chan, TRIGE_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_TRIGGER_EV, + M_CAST_MK_FUN (_ms_mk_trige_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_trige */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the trigger event request. */ +/************************************************************************/ + +ST_RET mpl_trige (TRIGE_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_TRIGGER_EV, + M_CAST_MK_FUN (_ms_mk_trige_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_trige_req */ +/* ENCODE a trigger event REQUEST: */ +/************************************************************************/ + +ST_VOID _ms_mk_trige_req (ASN1_ENC_CTXT *aCtx, TRIGE_REQ_INFO *info) + { + if (info->priority_pres) + { + asn1r_wr_u8 (aCtx, info->priority); /* write the priority */ + asn1r_fin_prim (aCtx, 1, CTX); /* ctx tag 1 */ + } + + asn1r_strt_constr (aCtx); /* start ctx tag 0 constructor */ + _ms_wr_mms_objname (aCtx, &info->evcon_name); /* write event cond mon name */ + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* context specific tag 0 */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_TRIGGER_EV,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsl/rq_ustat.c b/mmslib/mmsl/rq_ustat.c new file mode 100644 index 0000000..618e128 --- /dev/null +++ b/mmslib/mmsl/rq_ustat.c @@ -0,0 +1,118 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_ustat.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the functions to encode an unsolicited */ +/* status request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/28/05 JRB 05 Incl suicacse if MMS_LITE not defined. */ +/* 09/17/04 EJV 04 Use new mms_chk_resource. */ +/* 12/12/02 JRB 03 Add ASN1_ENC_CTXT arg to mpl_ustatus. */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 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 "asn1defs.h" + +#ifndef MMS_LITE +#include "mms_pvmd.h" +#include "suicacse.h" /* for SE_QUE_FULL only */ + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/************************************************************************/ +/* mp_ustatus */ +/* This function is called from the user to ENCODE and send the */ +/* Unsolicited Status request PDU. */ +/************************************************************************/ + +ST_RET mp_ustatus (ST_INT chan, USTATUS_REQ_INFO *info_ptr) + { +ST_RET rc; +ST_INT avail; + + /* locking here will assure that _mms_chk_resource will work in */ + /* multiple threads when mp_* functions are called to send */ + /* unconfirmed requests */ + S_LOCK_COMMON_RESOURCES (); + + avail = _mms_chk_resource (chan); + if (avail > 0) + rc = _mms_unconf_req_send (MMSOP_USTATUS, + M_CAST_MK_FUN (_ms_mk_ustat_req), + chan,(ST_CHAR *)info_ptr); + else + rc = SE_QUE_FULL; + + S_UNLOCK_COMMON_RESOURCES (); + + return (rc); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_ustatus */ +/* This function is called by the user to ENCODE an Unsolicited Status */ +/* request PDU. */ +/************************************************************************/ + +ST_RET mpl_ustatus (ASN1_ENC_CTXT *aCtx, USTATUS_REQ_INFO *info_ptr) + { + return (_mms_unconf_req_fin (aCtx, MMSOP_USTATUS, + M_CAST_MK_FUN (_ms_mk_ustat_req), + (ST_CHAR *)info_ptr)); + } +#endif + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_ustat_req */ +/* ENCODE an Status RESPONSE: */ +/************************************************************************/ + +ST_VOID _ms_mk_ustat_req (ASN1_ENC_CTXT *aCtx, USTATUS_REQ_INFO *info) + { + + if (info->local_detail_pres) /* if present, write the local */ + { /* detail parameter */ + asn1r_wr_bitstr (aCtx, info->local_detail,info->local_detail_len); + asn1r_fin_prim (aCtx, 2,CTX); + } + + asn1r_wr_i16 (aCtx, info->physical_stat); /* write the physical status */ + asn1r_fin_prim (aCtx, 1,CTX); + + asn1r_wr_i16 (aCtx, info->logical_stat); /* write the logical status */ + asn1r_fin_prim (aCtx, 0,CTX); + +/* Write the context-specific tag for this unconfirmed request service. */ + asn1r_fin_constr (aCtx, 1,CTX,DEF); + } + diff --git a/mmslib/mmsl/rq_write.c b/mmslib/mmsl/rq_write.c new file mode 100644 index 0000000..1a1c10b --- /dev/null +++ b/mmslib/mmsl/rq_write.c @@ -0,0 +1,212 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_write.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of variable write. */ +/* It decodes the variable write response (confirm) & encodes */ +/* the variable write request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 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++ */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 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 WRITE_RESP_INFO *rsp_info; + +static WRITE_RESULT *rslt_ptr; +static ST_INT max_rslts; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID write_get_failure (ASN1_DEC_CTXT *aCtx); +static ST_VOID write_get_success (ASN1_DEC_CTXT *aCtx); +static ST_VOID write_all_done (ASN1_DEC_CTXT *aCtx); + +/************************************************************************/ +/************************************************************************/ +/* mms_write_rsp */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_write_rsp (ASN1_DEC_CTXT *aCtx) + { +ST_INT rsp_size; + + MLOG_CDEC0 ("Variable Write Response"); + +#if defined(FIXED_DECBUF) + max_rslts = m_cl_max_write_rslts; + rsp_size = mmsl_dec_info_size; +#else + max_rslts = _mmsdec_msglen / 2; /* find maximum storage required */ + if (m_cl_max_write_rslts && (max_rslts > m_cl_max_write_rslts)) + max_rslts = m_cl_max_write_rslts; + + rsp_size = sizeof (WRITE_RESP_INFO) + (sizeof (WRITE_RESULT) * max_rslts); +#endif + +/* get storage for request information */ + rsp_info = (WRITE_RESP_INFO *) _m_get_dec_buf (aCtx, rsp_size); + + rsp_info->num_of_result = 0; + rslt_ptr = (WRITE_RESULT *) (rsp_info + 1); + + ASN1R_TAG_ADD (aCtx, CTX, 0, write_get_failure); + ASN1R_TAG_ADD (aCtx, CTX, 1, write_get_success); + aCtx->asn1r_decode_done_fun = write_all_done; + } + +/************************************************************************/ +/* write_get_failure */ +/* Decoding variable write response: failure was encountered. */ +/************************************************************************/ + +static ST_VOID write_get_failure (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("write_get_failure"); + + if (++rsp_info->num_of_result > max_rslts) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + rslt_ptr->resp_tag = SD_FALSE; /* set tag to failure */ + + if (asn1r_get_i16 (aCtx, &(rslt_ptr->failure))) /* read the failure code */ + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + + rslt_ptr++; /* point at the next element */ + ASN1R_TAG_ADD (aCtx, CTX, 0, write_get_failure); + ASN1R_TAG_ADD (aCtx, CTX, 1, write_get_success); + _ms_set_cs_check2 (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* write_get_success */ +/* Decoding variable write response: success was encountered. */ +/************************************************************************/ + +static ST_VOID write_get_success (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("write_get_success"); + + if (++rsp_info->num_of_result > max_rslts) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + rslt_ptr->resp_tag = SD_TRUE; /* set tag to success */ + + if (aCtx->asn1r_elmnt_len != SD_FALSE) /* verify the null */ + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + + rslt_ptr++; /* point at the next element */ + ASN1R_TAG_ADD (aCtx, CTX, 0, write_get_failure); + ASN1R_TAG_ADD (aCtx, CTX, 1, write_get_success); + _ms_set_cs_check2 (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* write_all_done */ +/* All of the write response has been obtained, give back unused */ +/* storage. */ +/************************************************************************/ + +static ST_VOID write_all_done (ASN1_DEC_CTXT *aCtx) + { +ST_INT rsp_size; + + /* find actual size for request info */ + rsp_size = sizeof (WRITE_RESP_INFO) + + (sizeof (WRITE_RESULT) * rsp_info->num_of_result); + + /* give back unused storage */ + _mms_dec_info = (*m_realloc_os_fun) (_mms_dec_info, rsp_size); + rsp_info = (WRITE_RESP_INFO *) _mms_dec_info; + + _mms_dec_done_ok (aCtx); + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_write */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE & send the variable write request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_write (ST_INT chan, WRITE_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_WRITE, + M_CAST_MK_FUN (_ms_mk_write_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_write */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the variable write request. */ +/************************************************************************/ + +ST_RET mpl_write (WRITE_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_WRITE, + M_CAST_MK_FUN (_ms_mk_write_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_write_req */ +/* construct a variable write request. */ +/************************************************************************/ + +ST_VOID _ms_mk_write_req (ASN1_ENC_CTXT *aCtx, WRITE_REQ_INFO *info) + { +ST_INT i; +VAR_ACC_DATA *data_ptr; + + asn1r_strt_constr (aCtx); /* start context tag 0 cstr */ + data_ptr = info->va_data; + data_ptr += (info->num_of_data - 1); + for (i = 0; i < info->num_of_data; i++) + { + _ms_wr_va_data (aCtx, data_ptr); + data_ptr--; + } + asn1r_fin_constr (aCtx, 0, CTX, DEF); /* finish context tag 0 cstr */ + + _ms_wr_va_spec (aCtx, &info->va_spec); + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_WRITE,CTX,DEF); /* tag = opcode, ctx */ + } diff --git a/mmslib/mmsl/rs_ackev.c b/mmslib/mmsl/rs_ackev.c new file mode 100644 index 0000000..245702d --- /dev/null +++ b/mmslib/mmsl/rs_ackev.c @@ -0,0 +1,231 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_ackevnot.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of the acknowledge */ +/* event notification operation. It decodes the acknowledge event */ +/* notification request (indication) and encodes the acknowledge */ +/* event notification response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 04 Added SD_CONST modifiers */ +/* 03/23/99 MDE 03 Changes to decode buffer allocation scheme */ +/* 07/03/97 MDE 02 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pevn.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static ACKEVNOT_REQ_INFO *req_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID ackevnot_enroll_name_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID ackevnot_enroll_name_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID ackevnot_enroll_name_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID ackevnot_get_state (ASN1_DEC_CTXT *aCtx); +static ST_VOID ackevnot_evtime_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID ackevnot_evtime_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID ackevnot_evtime_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID ackevnot_ack_name_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID ackevnot_ack_name_done (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_ackevnot_req */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_ackevnot_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Acknowledge Event Notification Request"); + + +/* get storage for request information */ + req_info = (ACKEVNOT_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (ACKEVNOT_REQ_INFO)); + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, ackevnot_enroll_name_cstr); + } + +/************************************************************************/ +/* ackevnot_enroll_name_cstr */ +/* decoding acknowledge event notification request: event enrollment */ +/* name constructor was encountered. */ +/************************************************************************/ + +static ST_VOID ackevnot_enroll_name_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("ackevnot_enroll_name_cstr"); + + _ms_get_mms_objname (aCtx, &req_info->evenroll_name, ackevnot_enroll_name_done); + } + +/************************************************************************/ +/* ackevnot_enroll_name_done */ +/* decoding acknowledge event notification request: event enrollment */ +/* name has been obtained. */ +/************************************************************************/ + +static ST_VOID ackevnot_enroll_name_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("ackevnot_enroll_name_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = ackevnot_enroll_name_cstr_done; + } + +/************************************************************************/ +/* ackevnot_enroll_name_cstr_done */ +/* decoding acknowledge event notification request: event enrollment */ +/* name constructor done has been encountered. */ +/************************************************************************/ + +static ST_VOID ackevnot_enroll_name_cstr_done (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, CTX,2, ackevnot_get_state); + } + +/************************************************************************/ +/* ackevnot_get_state */ +/* acknowledge event notification REQUEST is being decoded: acknowledge */ +/* state was encountered. */ +/************************************************************************/ + +static ST_VOID ackevnot_get_state (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("ackevnot_get_state"); + + if (asn1r_get_i16 (aCtx, &(req_info->ack_state))) /* acknowledge state */ + { + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + else if ((req_info->ack_state < 0) || (req_info->ack_state > 2)) + { + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 3, ackevnot_evtime_cstr); + } + +/************************************************************************/ +/* ackevnot_evtime_cstr */ +/* decoding event notification request: event time constructor was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID ackevnot_evtime_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("ackevnot_evtime_cstr"); + + _ms_get_mms_evtime (aCtx, &req_info->evtime, ackevnot_evtime_done); + } + +/************************************************************************/ +/* ackevnot_evtime_done */ +/* decoding acknowledge event notification request: event time has been */ +/* obtained. */ +/************************************************************************/ + +static ST_VOID ackevnot_evtime_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("ackevnot_evtime_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = ackevnot_evtime_cstr_done; + } + +/************************************************************************/ +/* ackevnot_evtime_cstr_done */ +/* decoding acknowledge event notification request: event time */ +/* constructor done has been encountered. */ +/************************************************************************/ + +static ST_VOID ackevnot_evtime_cstr_done (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, CTX|CONSTR, 4, ackevnot_ack_name_cstr); + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* ackevnot_ack_name_cstr */ +/* acknowledge event notification REQUEST is being decoded: */ +/* acknowledgment event condition constructor was encountered. */ +/************************************************************************/ + +static ST_VOID ackevnot_ack_name_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("ackevnot_ack_name_cstr"); + + req_info->ackec_name_pres = SD_TRUE; /* ack event cond name present */ + + _ms_get_mms_objname (aCtx, &req_info->ackec_name, ackevnot_ack_name_done); + } + +/************************************************************************/ +/* ackevnot_ack_name_done */ +/* decoding acknowledge event notification request: acknowledgement */ +/* event condition name has been obtained. */ +/************************************************************************/ + +static ST_VOID ackevnot_ack_name_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("ackevnot_ack_name_done"); + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_ackevnot_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE & send the acknowledge event notification response.*/ +/************************************************************************/ + +ST_RET mp_ackevnot_resp (MMSREQ_IND *indptr) + { + return (_mms_send_null_resp (indptr,MMSOP_ACK_EVENT_NOT)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_ackevnot_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the acknowledge event notification response. */ +/************************************************************************/ + +ST_RET mpl_ackevnot_resp (ST_UINT32 invoke_id) + { + return (_mms_fin_null_resp (invoke_id,MMSOP_ACK_EVENT_NOT)); + } +#endif diff --git a/mmslib/mmsl/rs_cancl.c b/mmslib/mmsl/rs_cancl.c new file mode 100644 index 0000000..856d5ce --- /dev/null +++ b/mmslib/mmsl/rs_cancl.c @@ -0,0 +1,147 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2007, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_cancl.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of the cancel */ +/* operation. It decodes the cancel request (indication) and */ +/* encodes the cancel response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 11/01/07 EJV 06 Rem obsolete LLC30... code. */ +/* 03/09/05 EJV 05 Fixed thisFileName for MMS-EASE */ +/* 03/11/04 GLB 04 Cleaned up "thisFileName" */ +/* 12/20/01 JRB 03 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 02 Added SD_CONST modifiers */ +/* 05/07/98 MDE 01 Fixed logging */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" + +#include "mmsdefs.h" +#include "mms_pcon.h" +#include "asn1defs.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#if defined(DEBUG_SISCO) && (defined(S_MT_SUPPORT) || !defined(MMS_LITE)) +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ + + +/* variables global to the DECODE portion : NONE */ +/* variables global to the ENCODE portion : NONE */ + +/************************************************************************/ +/************************************************************************/ +/* mms_cancel_req */ +/* This function is called from mmsdec when a request is received and */ +/* the opcode for this operation is decoded. Set up state machine */ +/* function pointers to end the parse, since the parse is complete. */ +/************************************************************************/ + +ST_VOID mms_cancel_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Cancel Request"); + + _mmsdec_rslt->data_pres = SD_FALSE; /* cancel just has invoke id */ + aCtx->asn1r_decode_done = SD_TRUE; + asn1r_set_all_cstr_done (aCtx); + aCtx->asn1r_decode_done_fun = NULL; + } + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_cancel_resp */ +/* Format a Cancel response PDU. */ +/************************************************************************/ + +ST_RET mp_cancel_resp (MMSREQ_IND *indptr) + { +ST_UCHAR *msg_ptr; +ST_INT msg_len; +ST_RET ret; +ASN1_ENC_CTXT localEncCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_ENC_CTXT *aCtx = &localEncCtx; + + S_LOCK_COMMON_RESOURCES (); + if (!(ret = _ms_check_ind_actv (indptr))) + { + if (indptr -> cancl_state != CANCEL_REQUESTED) + { + S_UNLOCK_COMMON_RESOURCES (); + return (MVE_CANCEL_STATE); + } + msg_ptr = _ms_mk_cancel (aCtx, SD_FALSE,m_build_buf,mms_max_msgsize,indptr->id); + msg_len = M_BUILD_BUF_END - msg_ptr; + + if (aCtx->asn1r_encode_overrun) /* Check for encode overrun */ + ret = ME_ASN1_ENCODE_OVERRUN; + else + ret = _mms_send_data (indptr->chan, msg_len, msg_ptr, + indptr->context, indptr->add_addr_info); + + + MLOG_ALWAYS0 ("ISSUING MMS CANCEL RESPONSE"); + MLOG_CALWAYS1 ("Channel = %d",indptr->chan); + MLOG_CALWAYS1 ("Context = %02x",indptr->context); + MLOG_CALWAYS1 ("Original Invoke ID = %lu",indptr->id); + + } + S_UNLOCK_COMMON_RESOURCES (); + return (ret); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_cancel_resp */ +/* Create a Cancel response PDU. */ +/************************************************************************/ +ST_RET mpl_cancel_resp (ST_VOID) + { +ST_RET ret; +ASN1_ENC_CTXT localEncCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_ENC_CTXT *aCtx = &localEncCtx; + + S_LOCK_COMMON_RESOURCES (); + mmsl_msg_start = _ms_mk_cancel (aCtx, SD_FALSE, mmsl_enc_buf, mmsl_enc_buf_size, + mmsl_invoke_id); + mmsl_msg_len = (mmsl_enc_buf + mmsl_enc_buf_size) - mmsl_msg_start; + + if (!aCtx->asn1r_encode_overrun) /* Check for encode overrun */ + ret = SD_SUCCESS; + else + ret = ME_ASN1_ENCODE_OVERRUN; + + S_UNLOCK_COMMON_RESOURCES (); + return (ret); + } +#endif + + +/************************************************************************/ +/* _ms_mk_cancel */ +/* Note that there is only one _ms_mk_cancel function, and it is listed in */ +/* the mmscancl.c module. */ +/************************************************************************/ diff --git a/mmslib/mmsl/rs_concl.c b/mmslib/mmsl/rs_concl.c new file mode 100644 index 0000000..1c3ef7f --- /dev/null +++ b/mmslib/mmsl/rs_concl.c @@ -0,0 +1,136 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2007, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_conclude.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of the conclude */ +/* operation. It decodes the conclude request (indication) and */ +/* encodes the conclude response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 11/01/07 EJV 04 Rem obsolete LLC30... code. */ +/* 03/11/04 GLB 03 Cleaned up "thisFileName" */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 01 Added SD_CONST modifiers */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" + +#include "mmsdefs.h" +#include "mms_pcon.h" +#include "asn1defs.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#if defined(DEBUG_SISCO) && defined(S_MT_SUPPORT) +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/* External conclude functions (see mmsconcl) : */ +/* ST_CHAR *_ms_mk_conclude (buf_ptr,buf_len,pdutype) */ + +/************************************************************************/ +/************************************************************************/ +/* mms_conclude_req */ +/* NOTE : Since a MMSOP_CONCLUDE is a NULL PDU, the decode is continued */ +/* by '_mms_null_pdu_dec', which simply sets decode done = 1 and sets */ +/* the decode done function to point to the general decode done fun */ +/* See mmsdec.c for the general functions. */ +/************************************************************************/ + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_concl_resp */ +/* create and send a conclude response. */ +/************************************************************************/ + +ST_RET mp_conclude_resp (MMSREQ_IND *indptr) + { +ST_UCHAR *msg_ptr; +ST_INT msg_len; +ST_RET ret; +ASN1_ENC_CTXT localEncCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_ENC_CTXT *aCtx = &localEncCtx; + + S_LOCK_COMMON_RESOURCES (); + if (!(ret = _ms_check_ind_actv (indptr))) + { + msg_ptr = _ms_mk_conclude (aCtx, m_build_buf,mms_max_msgsize,MMSCNCLRESP); + msg_len = M_BUILD_BUF_END - msg_ptr; + + if (aCtx->asn1r_encode_overrun) /* Check for encode overrun */ + { + S_UNLOCK_COMMON_RESOURCES (); + return (ME_ASN1_ENCODE_OVERRUN); + } + else + ret = _mms_send_data (indptr->chan, msg_len, msg_ptr, + indptr->context, indptr->add_addr_info); + + if (!ret) + { + mms_chan_info[indptr->chan].ctxt.chan_state |= M_REL_IND_WAIT; + + /* If a response logging function is installed, call it */ + if (m_log_resp_info_fun && (mms_debug_sel & MMS_LOG_RESP)) + (*m_log_resp_info_fun) (indptr, NULL); + } + + _ms_ind_serve_done (indptr); + } + S_UNLOCK_COMMON_RESOURCES (); + return (ret); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_concl_resp */ +/* create a conclude response. */ +/************************************************************************/ + +ST_RET mpl_conclude_resp (ST_VOID) + { +ST_RET ret; +ASN1_ENC_CTXT localEncCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_ENC_CTXT *aCtx = &localEncCtx; + + S_LOCK_COMMON_RESOURCES (); + mmsl_msg_start = _ms_mk_conclude (aCtx, mmsl_enc_buf, mmsl_enc_buf_size, MMSCNCLRESP); + mmsl_msg_len = (mmsl_enc_buf + mmsl_enc_buf_size) - mmsl_msg_start; + + if (!aCtx->asn1r_encode_overrun) /* Check for encode overrun */ + ret = SD_SUCCESS; + else + ret = ME_ASN1_ENCODE_OVERRUN; + + S_UNLOCK_COMMON_RESOURCES (); + return (ret); + } +#endif + +/************************************************************************/ +/* _ms_mk_conclude */ +/* Note that there is only one _ms_mk_conclude function, and it is listed */ +/* in the mmsconcl.c module. */ +/************************************************************************/ + diff --git a/mmslib/mmsl/rs_defee.c b/mmslib/mmsl/rs_defee.c new file mode 100644 index 0000000..080dc5d --- /dev/null +++ b/mmslib/mmsl/rs_defee.c @@ -0,0 +1,387 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_defee.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of define event */ +/* enrollment. It decodes the define event enrollment request */ +/* (indication) & encodes the define event enrollment response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 03/31/03 JRB 05 asn1r_get_bitstr: add max_bits arg. */ +/* 12/20/01 JRB 04 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 03 Added SD_CONST modifiers */ +/* 03/23/99 MDE 02 Changes to decode buffer allocation scheme */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pevn.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static DEFEE_REQ_INFO *req_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID defee_eename_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID defee_eename_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID defee_eename_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID defee_ecname_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID defee_ecname_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID defee_ecname_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID defee_get_ect_prim (ASN1_DEC_CTXT *aCtx); +static ST_VOID defee_get_ect_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID defee_get_ect_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID defee_get_alarm_ack_rule (ASN1_DEC_CTXT *aCtx); +static ST_VOID defee_eaname_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID defee_eaname_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID defee_eaname_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID defee_client_app_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID defee_app_ref_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID defee_client_app_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID defee_aecname_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID defee_aecname_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID defee_aecname_cstr_done (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_defee_req */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_defee_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Define Event Enrollment Request"); + + +/* get storage for request information */ + req_info = (DEFEE_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (DEFEE_REQ_INFO)); + +/* req_info->evact_name_pres = SD_FALSE; */ +/* req_info->client_app_pres = SD_FALSE; */ + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, defee_eename_cstr); + } + +/************************************************************************/ +/* defee_eename_cstr */ +/* define event enrollment request is being decoded: event enrollment */ +/* name constructor was encountered. */ +/************************************************************************/ + +static ST_VOID defee_eename_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("defee_eename_cstr"); + + _ms_get_mms_objname (aCtx, &req_info->evenroll_name, defee_eename_done); + } + +/************************************************************************/ +/* defee_eename_done */ +/* define event enrollment request is being decoded: event enrollment */ +/* name has been obtained. */ +/************************************************************************/ + +static ST_VOID defee_eename_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("defee_eename_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = defee_eename_cstr_done; + } + +/************************************************************************/ +/* defee_eename_cstr_done */ +/* define event enrollment request is being decoded: event enrollment */ +/* name constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID defee_eename_cstr_done (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1, defee_ecname_cstr); + } + +/************************************************************************/ +/* defee_ecname_cstr */ +/* define event enrollment request is being decoded: event condition */ +/* name constructor was encountered. */ +/************************************************************************/ + +static ST_VOID defee_ecname_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("defee_ecname_cstr"); + + _ms_get_mms_objname (aCtx, &req_info->evcon_name, defee_ecname_done); + } + +/************************************************************************/ +/* defee_ecname_done */ +/* define event enrollment request is being decoded: event condition */ +/* name has been obtained. */ +/************************************************************************/ + +static ST_VOID defee_ecname_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("defee_ecname_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = defee_ecname_cstr_done; + } + +/************************************************************************/ +/* defee_ecname_cstr_done */ +/* define event enrollment request is being decoded: event condition */ +/* name constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID defee_ecname_cstr_done (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, CTX, 2, defee_get_ect_prim); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 2, defee_get_ect_cstr); + } + +/************************************************************************/ +/* defee_get_ect_prim */ +/* define event enrollment request is being decoded: event condition */ +/* transitions primitive was encountered. */ +/************************************************************************/ + +static ST_VOID defee_get_ect_prim (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("defee_get_ect_prim"); + /* check length before moving bitstring */ + if (!asn1r_get_bitstr (aCtx, &req_info->ec_transitions, 7)) + defee_get_ect_done (aCtx); /* set up for the next data element */ + else + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + } + +/************************************************************************/ +/* defee_get_ect_cstr */ +/* define event enrollment request is being decoded: event condition */ +/* transitions constructor was encountered. */ +/************************************************************************/ + +static ST_VOID defee_get_ect_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("defee_get_ect_cstr"); + /* set up bitstring cstr done function */ + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = defee_get_ect_done; + + asn1r_get_bitstr_cstr (aCtx, 7,&req_info->ec_transitions); + } + +/************************************************************************/ +/* defee_get_ect_done */ +/* define event enrollment request is being decoded: event condition */ +/* transitions constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID defee_get_ect_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("defee_get_ect_done"); + /* Check aCtx->asn1r_bitcount for correct # of bits */ + if (aCtx->asn1r_bitcount != 7) /* should be 7 bits */ + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + else /* now get alarm ack rule */ + ASN1R_TAG_ADD (aCtx, CTX,3,defee_get_alarm_ack_rule); + } + +/************************************************************************/ +/* defee_get_alarm_ack_rule */ +/* Decoding define event enrollment request: alarm acknowledgment rule */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID defee_get_alarm_ack_rule (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("defee_get_alarm_ack_rule"); + /* read alarm ack rule */ + if (asn1r_get_i16 (aCtx, &(req_info->alarm_ack_rule))) + { + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + else if ((req_info->alarm_ack_rule < 0) || (req_info->alarm_ack_rule > 3)) + { + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 4, defee_eaname_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 5, defee_client_app_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 6, defee_aecname_cstr); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* defee_eaname_cstr */ +/* define event enrollment request is being decoded: event action */ +/* name constructor was encountered. */ +/************************************************************************/ + +static ST_VOID defee_eaname_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("defee_eaname_cstr"); + + req_info->evact_name_pres = SD_TRUE; + + _ms_get_mms_objname (aCtx, &req_info->evact_name, defee_eaname_done); + } + +/************************************************************************/ +/* defee_eaname_done */ +/* define event enrollment request is being decoded: event action */ +/* name has been obtained. */ +/************************************************************************/ + +static ST_VOID defee_eaname_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("defee_eaname_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = defee_eaname_cstr_done; + } + +/************************************************************************/ +/* defee_eaname_cstr_done */ +/* define event enrollment request is being decoded: event action */ +/* name constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID defee_eaname_cstr_done (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 5, defee_client_app_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 6, defee_aecname_cstr); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* defee_client_app_cstr */ +/* Decoding define event enrollment request: client application cstr */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID defee_client_app_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("defee_client_app_cstr"); + + req_info->client_app_pres = SD_TRUE; + + _ms_get_mms_app_ref (aCtx, &req_info->client_app,&req_info->client_app_len, + defee_app_ref_done); + } + +/************************************************************************/ +/* defee_app_ref_done */ +/* Decoding define event enrollment request: client application has */ +/* been obtained. */ +/************************************************************************/ + +static ST_VOID defee_app_ref_done (ASN1_DEC_CTXT *aCtx) + { + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = defee_client_app_cstr_done; + } + +/************************************************************************/ +/* defee_client_app_cstr_done */ +/* Decoding define event enrollment request: client application cstr */ +/* done was encountered. */ +/************************************************************************/ + +static ST_VOID defee_client_app_cstr_done (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 6, defee_aecname_cstr); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* defee_aecname_cstr */ +/* define event enrollment request is being decoded: acknowledgement */ +/* event condition name constructor was encountered. */ +/************************************************************************/ + +static ST_VOID defee_aecname_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("defee_aecname_cstr"); + + req_info->ackec_name_pres = SD_TRUE; + + _ms_get_mms_objname (aCtx, &req_info->ackec_name, defee_aecname_done); + } + +/************************************************************************/ +/* defee_aecname_done */ +/* define event enrollment request is being decoded: event action */ +/* name has been obtained. */ +/************************************************************************/ + +static ST_VOID defee_aecname_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("defee_aecname_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = defee_aecname_cstr_done; + } + +/************************************************************************/ +/* defee_aecname_cstr_done */ +/* define event enrollment request is being decoded: event action */ +/* name constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID defee_aecname_cstr_done (ASN1_DEC_CTXT *aCtx) + { + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_defee_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the define event enrollment response. */ +/************************************************************************/ + +ST_RET mp_defee_resp (MMSREQ_IND *indptr) + { + return (_mms_send_null_resp (indptr,MMSOP_DEF_EE)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_defee_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the define event enrollment response. */ +/************************************************************************/ + +ST_RET mpl_defee_resp (ST_UINT32 invoke_id) + { + return (_mms_fin_null_resp (invoke_id,MMSOP_DEF_EE)); + } +#endif diff --git a/mmslib/mmsl/rs_evnot.c b/mmslib/mmsl/rs_evnot.c new file mode 100644 index 0000000..99db09a --- /dev/null +++ b/mmslib/mmsl/rs_evnot.c @@ -0,0 +1,479 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_evnot.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of event */ +/* notification. It decodes the event notification request */ +/* (indication). There is no response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* ST_VOID mms_evnot_req () */ +/* */ +/* 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) */ +/* 04/28/00 JRB 06 More Lint */ +/* 04/27/00 MDE 05 Lint cleanup */ +/* 09/13/99 MDE 04 Added SD_CONST modifiers */ +/* 03/23/99 MDE 03 Changes to decode buffer allocation scheme */ +/* 07/03/97 MDE 02 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pevn.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static EVNOT_REQ_INFO *req_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID evnot_enrol_name_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID evnot_enrol_name_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID evnot_enrol_name_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID evnot_cond_name_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID evnot_cond_name_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID evnot_cond_name_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID evnot_get_severity (ASN1_DEC_CTXT *aCtx); +static ST_VOID evnot_get_state (ASN1_DEC_CTXT *aCtx); +static ST_VOID evnot_evtime_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID evnot_evtime_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID evnot_evtime_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID evnot_get_not_lost (ASN1_DEC_CTXT *aCtx); +static ST_VOID evnot_get_alarm_ack_rule (ASN1_DEC_CTXT *aCtx); +static ST_VOID evnot_action_result_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID evnot_ar_ean_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID evnot_ar_get_success (ASN1_DEC_CTXT *aCtx); +static ST_VOID evnot_ars_csr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID evnot_ar_get_failure (ASN1_DEC_CTXT *aCtx); +#ifdef MOD_SUPPORT +static ST_VOID evnot_arf_get_mod_pos (ASN1_DEC_CTXT *aCtx); +#endif +static ST_VOID evnot_arf_get_serv_err (ASN1_DEC_CTXT *aCtx); +#ifdef CS_SUPPORT +static ST_VOID evnot_ars_cs_rdet_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID evnot_ars_cs_rdet_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID evnot_ars_cs_rdet_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID evnot_action_result_cstr_done (ASN1_DEC_CTXT *aCtx); +#endif + +/************************************************************************/ +/************************************************************************/ +/* mms_evnot_req */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_evnot_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Event Notification Request"); + +/* get storage for request information */ + req_info = (EVNOT_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (EVNOT_REQ_INFO) + sizeof (ERR_INFO)); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, evnot_enrol_name_cstr); + } + +/************************************************************************/ +/* evnot_enrol_name_cstr */ +/* decoding event notification request: event enrollment name cstr */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID evnot_enrol_name_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("evnot_enrol_name_cstr"); + + _ms_get_mms_objname (aCtx, &req_info->evenroll_name, evnot_enrol_name_done); + } + +/************************************************************************/ +/* evnot_enrol_name_done */ +/* decoding event notification request: event enrollment name has been */ +/* obtained. */ +/************************************************************************/ + +static ST_VOID evnot_enrol_name_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("evnot_enrol_name_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = evnot_enrol_name_cstr_done; + } + +/************************************************************************/ +/* evnot_enrol_name_cstr_done */ +/* decoding event notification request: event enrollment name cstr */ +/* has been decoded OK. */ +/************************************************************************/ + +static ST_VOID evnot_enrol_name_cstr_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("evnot_enrol_name_cstr_done"); + + ASN1R_TAG_ADD (aCtx, CTX|CONSTR, 1, evnot_cond_name_cstr); + } + +/************************************************************************/ +/* evnot_cond_name_cstr */ +/* decoding event notification request: event condition name cstr */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID evnot_cond_name_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("evnot_cond_name_cstr"); + + _ms_get_mms_objname (aCtx, &req_info->evcon_name, evnot_cond_name_done); + } + +/************************************************************************/ +/* evnot_cond_name_done */ +/* decoding event notification request: event condition name has been */ +/* obtained. */ +/************************************************************************/ + +static ST_VOID evnot_cond_name_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("evnot_cond_name_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = evnot_cond_name_cstr_done; + } + +/************************************************************************/ +/* evnot_cond_name_cstr_done */ +/* decoding event notification request: event condition name cstr */ +/* has been encountered. */ +/************************************************************************/ + +static ST_VOID evnot_cond_name_cstr_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("evnot_cond_name_cstr_done"); + + ASN1R_TAG_ADD (aCtx, CTX, 2, evnot_get_severity); + } + +/************************************************************************/ +/* evnot_get_severity */ +/* event notification REQUEST is being decoded: severity was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID evnot_get_severity (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("evnot_get_severity"); + + if (asn1r_get_u8 (aCtx, &(req_info->severity))) /* get severity */ + { + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + + ASN1R_TAG_ADD (aCtx, CTX, 3, evnot_get_state); + ASN1R_TAG_ADD (aCtx, CTX|CONSTR, 4, evnot_evtime_cstr); + } + +/************************************************************************/ +/* evnot_get_state */ +/* event notification REQUEST is being decoded: state was encountered. */ +/************************************************************************/ + +static ST_VOID evnot_get_state (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("evnot_get_state"); + + if (asn1r_get_i16 (aCtx, &(req_info->cur_state)) || /* get current state */ + (req_info->cur_state < 0) || + (req_info->cur_state > 2)) + { + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + req_info->cur_state_pres = SD_TRUE; /* set present flag */ + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 4, evnot_evtime_cstr); + } + +/************************************************************************/ +/* evnot_evtime_cstr */ +/* decoding event notification request: event time constructor was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID evnot_evtime_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("evnot_evtime_cstr"); + + _ms_get_mms_evtime (aCtx, &req_info->trans_time, evnot_evtime_done); + } + +/************************************************************************/ +/* evnot_evtime_done */ +/* decoding event notification request: event time has been obtained. */ +/************************************************************************/ + +static ST_VOID evnot_evtime_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("evnot_evtime_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = evnot_evtime_cstr_done; + } + +/************************************************************************/ +/* evnot_evtime_cstr_done */ +/* decoding event notification request: event time constructor done */ +/* has been encountered. */ +/************************************************************************/ + +static ST_VOID evnot_evtime_cstr_done (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, CTX, 6, evnot_get_not_lost); + ASN1R_TAG_ADD (aCtx, CTX, 7, evnot_get_alarm_ack_rule); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 8, evnot_action_result_cstr); + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* evnot_get_not_lost */ +/* decoding event notification request: notification lost has been */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID evnot_get_not_lost (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("evnot_get_not_lost"); + + if (asn1r_get_bool (aCtx, &(req_info->not_lost))) /* notification lost */ + { + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + + ASN1R_TAG_ADD (aCtx, CTX, 7, evnot_get_alarm_ack_rule); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 8, evnot_action_result_cstr); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* evnot_get_alarm_ack_rule */ +/* decoding event notification request: alarm ack rule has been */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID evnot_get_alarm_ack_rule (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("evnot_get_alarm_ack_rule"); + + req_info->alarm_ack_rule_pres = SD_TRUE; /* set alarm ack rult present */ + + if (asn1r_get_i16 (aCtx, &(req_info->alarm_ack_rule))) /* get alarm ack rule */ + { + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + else if ((req_info->alarm_ack_rule < 0) || (req_info->alarm_ack_rule > 3)) + { + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 8, evnot_action_result_cstr); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* evnot_action_result_cstr */ +/* decoding event notification request: action result constructor */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID evnot_action_result_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("evnot_action_result_cstr"); + + req_info->evact_result_pres = SD_TRUE; /* set action result present */ + + _ms_get_mms_objname (aCtx, &req_info->evact_name, evnot_ar_ean_done); + } + +/************************************************************************/ +/* evnot_ar_ean_done */ +/* decoding event notification request: action result event action name */ +/* has been obtained. */ +/************************************************************************/ + +static ST_VOID evnot_ar_ean_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("evnot_ar_ean_done"); + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, evnot_ar_get_success); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1, evnot_ar_get_failure); + } + +/************************************************************************/ +/* evnot_ar_get_success */ +/* decoding event notification request: action result success has */ +/* been encountered, get the confirmed service response. */ +/************************************************************************/ + +static ST_VOID evnot_ar_get_success (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("evnot_ar_get_success"); + + req_info->evact_result_tag = 0; /* set success action result */ + + /* leave confirmed service response in place; just parse it. */ + req_info->conf_serv_resp = aCtx->asn1r_field_ptr; + asn1r_parse_next (aCtx, evnot_ars_csr_done); + } + +/************************************************************************/ +/* evnot_ars_csr_done */ +/* event notification request is being decoded: action result success: */ +/* confirmed service response has been parsed. */ +/************************************************************************/ + +static ST_VOID evnot_ars_csr_done (ASN1_DEC_CTXT *aCtx) + { + req_info->conf_serv_resp_len = aCtx->asn1r_octetcount; /* save length */ +#ifdef CS_SUPPORT /* check for Companion Standard response detail */ + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 79, evnot_ars_cs_rdet_cstr); +#endif + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +#ifdef CS_SUPPORT +/************************************************************************/ +/* evnot_ars_cs_rdet_cstr */ +/* decoding event notification request: action result success: */ +/* companion standard response detail constructor has been encountered. */ +/************************************************************************/ + +static ST_VOID evnot_ars_cs_rdet_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("evnot_ars_cs_rdet_cstr"); + + req_info->cs_rdetail_pres = SD_TRUE; /* set the present flag */ + + /* leave CS response detail in place; just parse it. */ + req_info->cs_rdetail = aCtx->asn1r_field_ptr; + asn1r_parse_next (aCtx, evnot_ars_cs_rdet_done); + } + +/************************************************************************/ +/* evnot_ars_cs_rdet_done */ +/* event notification request is being decoded: action result success: */ +/* companion standard response detail has been parsed. */ +/************************************************************************/ + +static ST_VOID evnot_ars_cs_rdet_done (ASN1_DEC_CTXT *aCtx) + { + req_info->cs_rdetail_len = aCtx->asn1r_octetcount; /* save length */ + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = evnot_ars_cs_rdet_cstr_done; + } + +/************************************************************************/ +/* evnot_ars_cs_rdet_cstr_done */ +/* event notification request is being decoded: action result success: */ +/* confirmed service response cstr done has been encountered. */ +/************************************************************************/ + +static ST_VOID evnot_ars_cs_rdet_cstr_done (ASN1_DEC_CTXT *aCtx) + { + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = evnot_action_result_cstr_done; + } +#endif + +/************************************************************************/ +/* evnot_ar_get_failure */ +/* decoding event notification request: action result failure has */ +/* been encountered. */ +/************************************************************************/ + +static ST_VOID evnot_ar_get_failure (ASN1_DEC_CTXT *aCtx) + { + + MLOG_CDEC0 ("evnot_ar_get_failure"); + + req_info->evact_result_tag = 1; /* get failure action result */ + +#ifdef MOD_SUPPORT /* IS, could have modifier position */ + ASN1R_TAG_ADD (aCtx, CTX, 0, evnot_arf_get_mod_pos); +#endif + ASN1R_TAG_ADD (aCtx, CTX|CONSTR, 1, evnot_arf_get_serv_err); + } + +#ifdef MOD_SUPPORT +/************************************************************************/ +/* evnot_arf_get_mod_pos */ +/* decoding event notification request: action result failure: modifier */ +/* position has been encountered. */ +/************************************************************************/ + +static ST_VOID evnot_arf_get_mod_pos (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("evnot_arf_get_mod_pos"); + + req_info->mod_pos_pres = SD_TRUE; /* set modifier pos present */ + + if (asn1r_get_u32 (aCtx, &(req_info->mod_pos))) /* get modifier position */ + { + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + + ASN1R_TAG_ADD (aCtx, CTX|CONSTR, 1, evnot_arf_get_serv_err); + } +#endif + +/************************************************************************/ +/* evnot_arf_get_serv_err */ +/* event notification request is being decoded: action result failure: */ +/* service error constructor has been encountered. */ +/************************************************************************/ + +static ST_VOID evnot_arf_get_serv_err (ASN1_DEC_CTXT *aCtx) + { + + MLOG_CDEC0 ("evnot_arf_get_serv_err"); + + /* set up pointer (already allocated) */ + req_info->serv_err = (ERR_INFO *) (req_info+1); + /* decode service error contents */ + _mms_get_service_err (aCtx, req_info->serv_err); + } + +/************************************************************************/ +/* evnot_action_result_cstr_done */ +/* decoding event notification request: action_result_cstr_done has */ +/* been encountered. */ +/************************************************************************/ + +#ifdef CS_SUPPORT + +static ST_VOID evnot_action_result_cstr_done (ASN1_DEC_CTXT *aCtx) + { + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +#endif diff --git a/mmslib/mmsl/rs_getcl.c b/mmslib/mmsl/rs_getcl.c new file mode 100644 index 0000000..4f3a39f --- /dev/null +++ b/mmslib/mmsl/rs_getcl.c @@ -0,0 +1,158 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_getcl.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of get capability */ +/* list. It decodes the get capability list request (indication) */ +/* & encodes the get capability list response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 07 Remove "thisFileName" */ +/* 12/20/01 JRB 06 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 05 Added SD_CONST modifiers */ +/* 03/23/99 MDE 04 Changes to decode buffer allocation scheme */ +/* 06/15/98 MDE 03 Changes to allow compile under C++ */ +/* 07/03/97 MDE 02 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pvmd.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static GETCL_REQ_INFO *req_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID getcl_get_cont_after (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_getcl_req */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_getcl_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Get Capability List Request"); + + +/* get storage for request information */ + req_info = (GETCL_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (GETCL_REQ_INFO)); + req_info->cont_after_pres = SD_FALSE; + + ASN1R_TAG_ADD (aCtx, UNI, VISTR_CODE, getcl_get_cont_after); + asn1r_set_all_cstr_done (aCtx); /* clear cstr done functions */ + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* getcl_get_cont_after */ +/* get capability list REQUEST (indication) is being decoded: */ +/* continue after was encountered. */ +/************************************************************************/ + +static ST_VOID getcl_get_cont_after (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getcl_get_cont_after"); + + req_info->cont_after_pres = SD_TRUE; + +/* copy continue after back onto itself, shifted by one character */ + req_info->continue_after = (ST_CHAR *) aCtx->asn1r_field_ptr - 1; + if (asn1r_get_vstr (aCtx, req_info->continue_after)) + { + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_getcl_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the get capability list response. */ +/************************************************************************/ + +ST_RET mp_getcl_resp (MMSREQ_IND *indptr, GETCL_RESP_INFO *info_ptr) + { + return (_mms_resp_send (MMSOP_GET_CAP_LIST,indptr, + M_CAST_MK_FUN (_ms_mk_getcl_resp), + (ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_getcl_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the get capability list response. */ +/************************************************************************/ + +ST_RET mpl_getcl_resp (ST_UINT32 invoke_id, GETCL_RESP_INFO *info_ptr) + { + return (_mms_resp_fin (MMSOP_GET_CAP_LIST,invoke_id, + M_CAST_MK_FUN (_ms_mk_getcl_resp), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_getcl_resp */ +/* ENCODE a get capability list RESPONSE: */ +/************************************************************************/ + +ST_VOID _ms_mk_getcl_resp (ASN1_ENC_CTXT *aCtx, GETCL_RESP_INFO *info) + { +ST_INT i; +ST_CHAR **cap_ptr; + + if (!info->more_follows) /* not the default of SD_TRUE */ + { /* write more follows not pres */ + asn1r_wr_bool (aCtx, info->more_follows); + asn1r_fin_prim (aCtx, 1,CTX); + } + + asn1r_strt_constr (aCtx); /* start ctx tag 1 constructor */ + + cap_ptr = (ST_CHAR **) (info + 1); + cap_ptr += (info->num_of_capab - 1); /* point to last capability */ + for (i = 0; i < info->num_of_capab; i++) + { + asn1r_wr_vstr (aCtx, *cap_ptr); + asn1r_fin_prim (aCtx, VISTR_CODE, UNI); + cap_ptr--; + } + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* ctx tag 1 constructor */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_GET_CAP_LIST,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsl/rs_getdo.c b/mmslib/mmsl/rs_getdo.c new file mode 100644 index 0000000..03cf2ff --- /dev/null +++ b/mmslib/mmsl/rs_getdo.c @@ -0,0 +1,151 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_getdom.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of get domain */ +/* attribute. It decodes the get domain attribute request */ +/* (indication) & encodes the get domain attribute response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 07 Remove "thisFileName" */ +/* 12/20/01 JRB 06 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 05 Added SD_CONST modifiers */ +/* 03/23/99 MDE 04 Changes to decode buffer allocation scheme */ +/* 06/15/98 MDE 03 Changes to allow compile under C++ */ +/* 07/03/97 MDE 02 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pdom.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static GETDOM_REQ_INFO *req_info; + + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + + +/************************************************************************/ +/************************************************************************/ +/* mms_get_dom_attr_req */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_get_dom_attr_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Get Domain Attribute Request"); + + +/* get storage for request information */ + req_info = (GETDOM_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (GETDOM_REQ_INFO)); + if (asn1r_get_identifier (aCtx, req_info->dname)) /* read the domain name */ + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_getdom_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the get domain attribute response. */ +/************************************************************************/ + +ST_RET mp_getdom_resp (MMSREQ_IND *indptr, GETDOM_RESP_INFO *info_ptr) + { + return (_mms_resp_send (MMSOP_GET_DOM_ATTR,indptr, + M_CAST_MK_FUN (_ms_mk_getdom_resp), + (ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_getdom_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the get domain attribute response. */ +/************************************************************************/ + +ST_RET mpl_getdom_resp (ST_UINT32 invoke_id, GETDOM_RESP_INFO *info_ptr) + { + return (_mms_resp_fin (MMSOP_GET_DOM_ATTR,invoke_id, + M_CAST_MK_FUN (_ms_mk_getdom_resp), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_getdom_resp */ +/* ENCODE a get domain attribute RESPONSE: */ +/************************************************************************/ + +ST_VOID _ms_mk_getdom_resp (ASN1_ENC_CTXT *aCtx, GETDOM_RESP_INFO *info) + { +ST_INT i; +ST_CHAR **cap_ptr; +ST_CHAR **pin_ptr; + + asn1r_wr_i8 (aCtx, info->upload_in_progress); /* write upload in progress */ + asn1r_fin_prim (aCtx, 5,CTX); /* ctx tag 5 */ + + asn1r_strt_constr (aCtx); /* start ctx tag 4 constructor */ + cap_ptr = (ST_CHAR **) (info + 1); + cap_ptr += (info->num_of_capab - 1); /* point to last capability */ + pin_ptr = cap_ptr + 1; + pin_ptr += (info->num_of_pinames-1); /* point to last pi name */ + for (i = 0; i < info->num_of_pinames; i++) + { + asn1r_wr_vstr (aCtx, *pin_ptr); + asn1r_fin_prim (aCtx, VISTR_CODE, UNI); + pin_ptr--; + } + asn1r_fin_constr (aCtx, 4,CTX,DEF); /* ctx tag 4 constructor */ + + asn1r_wr_bool (aCtx, info->sharable); /* write sharable */ + asn1r_fin_prim (aCtx, 3,CTX); /* ctx tag 3 */ + + asn1r_wr_bool (aCtx, info->mms_deletable); /* write mms deletable */ + asn1r_fin_prim (aCtx, 2,CTX); /* ctx tag 2 */ + + asn1r_wr_i16 (aCtx, info->state); /* write state */ + asn1r_fin_prim (aCtx, 1,CTX); /* ctx tag 1 */ + + asn1r_strt_constr (aCtx); /* start ctx tag 0 constructor */ + for (i = 0; i < info->num_of_capab; i++) + { + asn1r_wr_vstr (aCtx, *cap_ptr); + asn1r_fin_prim (aCtx, VISTR_CODE, UNI); + cap_ptr--; + } + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* ctx tag 0 constructor */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_GET_DOM_ATTR,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsl/rs_getea.c b/mmslib/mmsl/rs_getea.c new file mode 100644 index 0000000..5fcc60a --- /dev/null +++ b/mmslib/mmsl/rs_getea.c @@ -0,0 +1,154 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_geteaa.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of the get event */ +/* action attributes. It decodes the get event action attributes */ +/* request (indication) and encodes the get event action */ +/* attributes response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 07 Remove "thisFileName" */ +/* 12/20/01 JRB 06 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 05 Added SD_CONST modifiers */ +/* 03/23/99 MDE 04 Changes to decode buffer allocation scheme */ +/* 06/15/98 MDE 03 Changes to allow compile under C++ */ +/* 07/03/97 MDE 02 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pevn.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static GETEAA_REQ_INFO *req_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID geteaa_objname_done (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_geteaa_req */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_geteaa_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Get Event Action Attributes Request"); + +/* get storage for request information */ + req_info = (GETEAA_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (GETEAA_REQ_INFO)); + _ms_get_mms_objname (aCtx, &req_info->evact_name, geteaa_objname_done); + } + +/************************************************************************/ +/* geteaa_objname_done */ +/* Decoding get event action attributes request: event action name */ +/* has been obtained. */ +/************************************************************************/ + +static ST_VOID geteaa_objname_done (ASN1_DEC_CTXT *aCtx) + { + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_geteaa_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the get event action attributes response */ +/************************************************************************/ + +ST_RET mp_geteaa_resp (MMSREQ_IND *indptr, GETEAA_RESP_INFO *info_ptr) + { + return (_mms_resp_send (MMSOP_GET_EA_ATTR,indptr, + M_CAST_MK_FUN (_ms_mk_geteaa_resp), + (ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_geteaa_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the get event action attributes response. */ +/************************************************************************/ + +ST_RET mpl_geteaa_resp (ST_UINT32 invoke_id, GETEAA_RESP_INFO *info_ptr) + { + return (_mms_resp_fin (MMSOP_GET_EA_ATTR,invoke_id, + M_CAST_MK_FUN (_ms_mk_geteaa_resp), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_geteaa_resp */ +/* Construct a get event action attributes response. */ +/************************************************************************/ + +ST_VOID _ms_mk_geteaa_resp (ASN1_ENC_CTXT *aCtx, GETEAA_RESP_INFO *info) + { +#ifdef MOD_SUPPORT +MODIFIER *mod_ptr; + + mod_ptr = (MODIFIER *) (info + 1); +#endif + +#ifdef CS_SUPPORT /* if companion standards are supported */ + if (info->cs_rdetail_pres) /* check for CS request detail */ + { + asn1r_strt_constr (aCtx); /* start ctx tag 79 constructor */ + asn1r_wr_delmnt (aCtx, info->cs_rdetail, info->cs_rdetail_len); + asn1r_fin_constr (aCtx, 79, CTX, DEF); /* CS is cstr 79 */ + } +#endif + + asn1r_strt_constr (aCtx); /* start ctx tag 2 constructor */ + asn1r_wr_delmnt (aCtx, info->conf_serv_req,info->conf_serv_req_len); + asn1r_fin_constr (aCtx, 2,CTX,DEF); /* finish ctx tag 2 constructor */ + + asn1r_strt_constr (aCtx); /* start ctx tag 1 constructor */ +#ifdef MOD_SUPPORT /* don't write if not supported */ + _ms_wr_mms_modlist (aCtx, mod_ptr, info->num_of_modifiers); +#endif + asn1r_fin_constr (aCtx, 1,CTX,DEF); /* finish ctx tag 1 constructor */ + + if (info->mms_deletable) + { /* not the default */ + asn1r_wr_u8 (aCtx, info->mms_deletable); /* write mms deletable indicator*/ + asn1r_fin_prim (aCtx, 0, CTX); /* ctx tag 0 */ + } + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_GET_EA_ATTR,CTX,DEF); /* tag = opcode, ctx */ + } diff --git a/mmslib/mmsl/rs_getec.c b/mmslib/mmsl/rs_getec.c new file mode 100644 index 0000000..f116474 --- /dev/null +++ b/mmslib/mmsl/rs_getec.c @@ -0,0 +1,170 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_geteca.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of the get event */ +/* condition attributes. It decodes the get event condition */ +/* attributes request (indication) and encodes the get event */ +/* condition attributes response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 07 Remove "thisFileName" */ +/* 12/20/01 JRB 06 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 05 Added SD_CONST modifiers */ +/* 03/23/99 MDE 04 Changes to decode buffer allocation scheme */ +/* 06/15/98 MDE 03 Changes to allow compile under C++ */ +/* 07/03/97 MDE 02 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pevn.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static GETECA_REQ_INFO *req_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID geteca_objname_done (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_geteca_req */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_geteca_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Get Event Condition Attributes Request"); +/* get storage for request information */ + req_info = (GETECA_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (GETECA_REQ_INFO)); + _ms_get_mms_objname (aCtx, &req_info->evcon_name, geteca_objname_done); + } + +/************************************************************************/ +/* geteca_objname_done */ +/* Decoding get event condition attributes request: event condition */ +/* name has been obtained */ +/************************************************************************/ + +static ST_VOID geteca_objname_done (ASN1_DEC_CTXT *aCtx) + { + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_geteca_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the get event condition attributes */ +/* response. */ +/************************************************************************/ + +ST_RET mp_geteca_resp (MMSREQ_IND *indptr, GETECA_RESP_INFO *info_ptr) + { + return (_mms_resp_send (MMSOP_GET_EC_ATTR,indptr, + M_CAST_MK_FUN (_ms_mk_geteca_resp), + (ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_geteca_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the get event condition attributes response. */ +/************************************************************************/ + +ST_RET mpl_geteca_resp (ST_UINT32 invoke_id, GETECA_RESP_INFO *info_ptr) + { + return (_mms_resp_fin (MMSOP_GET_EC_ATTR,invoke_id, + M_CAST_MK_FUN (_ms_mk_geteca_resp), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_geteca_resp */ +/* Construct a get event condition attributes response. */ +/************************************************************************/ + +ST_VOID _ms_mk_geteca_resp (ASN1_ENC_CTXT *aCtx, GETECA_RESP_INFO *info) +{ + if (info->eval_int_pres) + { + asn1r_wr_u32 (aCtx, info->eval_interval); /* write evaluation interval */ + asn1r_fin_prim (aCtx, 7, CTX); /* ctx tag 7 */ + } + + if (info->mon_var_pres) + { + asn1r_strt_constr (aCtx); /* start ctx tag 6 constructor */ + if (info->mon_var_tag == SD_TRUE) /* write undefined (NULL) */ + asn1r_fin_prim (aCtx, 1, CTX); /* ctx tag 1 */ + else + { /* write variable reference */ + asn1r_strt_constr (aCtx); /* start ctx tag 0 constructor */ + _ms_wr_va_var_spec (aCtx, &info->var_ref); + asn1r_fin_constr (aCtx, 0, CTX, DEF); /* finish ctx tag 0 */ + } + asn1r_fin_constr (aCtx, 6, CTX, DEF); /* finish ctx tag 6 */ + } + + if (info->as_reports) + { /* not the default */ + asn1r_wr_u8 (aCtx, info->as_reports); /* write alarm summary reports */ + asn1r_fin_prim (aCtx, 4, CTX); /* ctx tag 4 */ + } + + if (info->severity != MMS_NORM_SEVERITY) + { /* not the default */ + asn1r_wr_u8 (aCtx, info->severity); + asn1r_fin_prim (aCtx, 3, CTX); + } + + if (info->priority != MMS_NORM_PRIORITY) + { /* not the default */ + asn1r_wr_u8 (aCtx, info->priority); + asn1r_fin_prim (aCtx, 2, CTX); + } + + asn1r_wr_i16 (aCtx, info->eclass); + asn1r_fin_prim (aCtx, 1, CTX); + + if (info->mms_deletable) + { /* not the default */ + asn1r_wr_u8 (aCtx, info->mms_deletable); /* write mms deletable indicator*/ + asn1r_fin_prim (aCtx, 0, CTX); /* ctx tag 0 */ + } + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_GET_EC_ATTR,CTX,DEF); /* tag = opcode, ctx */ + } diff --git a/mmslib/mmsl/rs_getee.c b/mmslib/mmsl/rs_getee.c new file mode 100644 index 0000000..89b4196 --- /dev/null +++ b/mmslib/mmsl/rs_getee.c @@ -0,0 +1,527 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_geteea.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of the get event */ +/* enrollment attributes. It decodes the get event enrollment */ +/* attributes request (indication) and encodes the get event */ +/* enrollment attributes response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 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/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pevn.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static GETEEA_REQ_INFO *req_info; + +static OBJECT_NAME *obj_ptr; +static ST_INT max_obj_name; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID geteea_get_scope (ASN1_DEC_CTXT *aCtx); +static ST_VOID geteea_eelist_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID geteea_objname_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID geteea_eelist_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID geteea_client_app_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID geteea_client_app_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID geteea_client_app_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID geteea_ecname_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID geteea_ecname_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID geteea_ecname_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID geteea_eaname_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID geteea_eaname_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID geteea_eaname_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID geteea_caname_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID geteea_caname_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID geteea_caname_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID geteea_dec_done (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_geteea_req */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_geteea_req (ASN1_DEC_CTXT *aCtx) + { +ST_INT req_size; + + MLOG_CDEC0 ("Get Event Enrollment Attributes Request"); + +#if defined(FIXED_DECBUF) + max_obj_name = m_sv_max_obj_name; + req_size = mmsl_dec_info_size; +#else + max_obj_name = _mmsdec_msglen / 2; /* find maximum size */ + if (m_sv_max_obj_name && (max_obj_name > m_sv_max_obj_name)) + max_obj_name = m_sv_max_obj_name; + req_size = sizeof (GETEEA_REQ_INFO) + (sizeof (OBJECT_NAME) * max_obj_name); +#endif + +/* get storage for request information */ + req_info = (GETEEA_REQ_INFO *) _m_get_dec_buf (aCtx, req_size); + + req_info->scope_of_req = 1; /* default is client */ +/* req_info->eenames_pres = SD_FALSE; default not present */ +/* req_info->client_app_pres = SD_FALSE; default not present */ +/* req_info->evcon_pres = SD_FALSE; default not present */ +/* req_info->evact_pres = SD_FALSE; default not present */ +/* req_info->ca_name_pres = SD_FALSE; default not present */ + + ASN1R_TAG_ADD (aCtx, CTX, 0, geteea_get_scope); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1, geteea_eelist_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 2, geteea_client_app_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 3, geteea_ecname_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 4, geteea_eaname_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 5, geteea_caname_cstr); + + aCtx->asn1r_decode_done_fun = geteea_dec_done; /* ok to be done */ + _ms_set_cs_check2 (aCtx); /* check for CS info */ + } + +/************************************************************************/ +/* geteea_get_scope */ +/* Decoding get event enrollment attributes request: scope was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID geteea_get_scope (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("geteea_get_scope"); + /* read the scope */ + if (asn1r_get_i16 (aCtx, &(req_info->scope_of_req))) + { + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + else if ((req_info->scope_of_req < 0) || (req_info->scope_of_req > 3)) + { + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1, geteea_eelist_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 2, geteea_client_app_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 3, geteea_ecname_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 4, geteea_eaname_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 5, geteea_caname_cstr); + _ms_set_cs_check2 (aCtx); /* check for CS info */ + } + +/************************************************************************/ +/* geteea_eelist_cstr */ +/* decoding get event enrollment attributes request: event enrollment */ +/* name list constructor was encountered. */ +/************************************************************************/ + +static ST_VOID geteea_eelist_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("geteea_eelist_cstr"); + + req_info->eenames_pres = SD_TRUE; /* set list of names present */ + obj_ptr = (OBJECT_NAME *) (req_info + 1); + + _ms_get_mms_objname (aCtx, obj_ptr, geteea_objname_done); + + /* set the cstr done function */ + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = geteea_eelist_cstr_done; + } + +/************************************************************************/ +/* geteea_objname_done */ +/* decoding get event enrollment attributes request: object name has */ +/* been decoded. */ +/************************************************************************/ + +static ST_VOID geteea_objname_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("geteea_objname_done"); + + req_info->num_of_eenames++; /* inc # of event enroll names */ + if (req_info->num_of_eenames > max_obj_name) + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + else + { + obj_ptr++; /* point to where next will go */ + _ms_get_mms_objname (aCtx, obj_ptr, geteea_objname_done); + } + } + +/************************************************************************/ +/* geteea_eelist_cstr_done */ +/* decoding get event enrollment attributes request: event enrollment */ +/* name list constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID geteea_eelist_cstr_done (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 2, geteea_client_app_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 3, geteea_ecname_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 4, geteea_eaname_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 5, geteea_caname_cstr); + _ms_set_cs_check2 (aCtx); /* check for CS info */ + } + +/************************************************************************/ +/* geteea_client_app_cstr */ +/* Decoding get event enrollment attributes request: client application */ +/* constructor was encountered. */ +/************************************************************************/ + +static ST_VOID geteea_client_app_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("geteea_client_app_cstr"); + + req_info->client_app_pres = SD_TRUE; /* set client app present */ + + _ms_get_mms_app_ref (aCtx, &req_info->client_app,&req_info->client_app_len, + geteea_client_app_done); + } + +/************************************************************************/ +/* geteea_client_app_done */ +/* Decoding get event enrollment attributes request: client application */ +/* has been obtained. */ +/************************************************************************/ + +static ST_VOID geteea_client_app_done (ASN1_DEC_CTXT *aCtx) + { + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = geteea_client_app_cstr_done; + } + +/************************************************************************/ +/* geteea_client_app_cstr_done */ +/* Decoding get event enrollment attributes request: client application */ +/* constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID geteea_client_app_cstr_done (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 3, geteea_ecname_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 4, geteea_eaname_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 5, geteea_caname_cstr); + _ms_set_cs_check2 (aCtx); /* check for CS info */ + } + +/************************************************************************/ +/* geteea_ecname_cstr */ +/* decoding get event enrollment attributes request: event condition */ +/* name constructor was encountered */ +/************************************************************************/ + +static ST_VOID geteea_ecname_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("geteea_ecname_cstr"); + + req_info->evcon_name_pres = SD_TRUE; /* event condition name present */ + + _ms_get_mms_objname (aCtx, &req_info->evcon_name, geteea_ecname_done); + } + +/************************************************************************/ +/* geteea_ecname_done */ +/* decoding get event enrollment attributes request: event condition */ +/* name has been obtained. */ +/************************************************************************/ + +static ST_VOID geteea_ecname_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("geteea_ecname_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = geteea_ecname_cstr_done; + } + +/************************************************************************/ +/* geteea_ecname_cstr_done */ +/* decoding get event enrollment attributes request: event condition */ +/* name constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID geteea_ecname_cstr_done (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 4, geteea_eaname_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 5, geteea_caname_cstr); + _ms_set_cs_check2 (aCtx); /* check for CS info */ + } + +/************************************************************************/ +/* geteea_eaname_cstr */ +/* decoding get event enrollment attributes request: event action */ +/* name constructor was encountered */ +/************************************************************************/ + +static ST_VOID geteea_eaname_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("geteea_eaname_cstr"); + + req_info->evact_name_pres = SD_TRUE; /* event action name present */ + + _ms_get_mms_objname (aCtx, &req_info->evact_name, geteea_eaname_done); + } + +/************************************************************************/ +/* geteea_eaname_done */ +/* decoding get event enrollment attributes request: event action */ +/* name has been obtained. */ +/************************************************************************/ + +static ST_VOID geteea_eaname_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("geteea_eaname_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = geteea_eaname_cstr_done; + } + +/************************************************************************/ +/* geteea_eaname_cstr_done */ +/* decoding get event enrollment attributes request: event condition */ +/* name constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID geteea_eaname_cstr_done (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 5, geteea_caname_cstr); + _ms_set_cs_check2 (aCtx); /* check for CS info */ + } + +/************************************************************************/ +/* geteea_caname_cstr */ +/* decoding get event enrollment attributes request: continue after */ +/* name constructor was encountered */ +/************************************************************************/ + +static ST_VOID geteea_caname_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("geteea_caname_cstr"); + + req_info->ca_name_pres = SD_TRUE; /* continue after name present */ + + _ms_get_mms_objname (aCtx, &req_info->ca_name, geteea_caname_done); + } + +/************************************************************************/ +/* geteea_caname_done */ +/* decoding get event enrollment attributes request: continue after */ +/* name has been obtained. */ +/************************************************************************/ + +static ST_VOID geteea_caname_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("geteea_caname_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = geteea_caname_cstr_done; + } + +/************************************************************************/ +/* geteea_caname_cstr_done */ +/* decoding get event enrollment attributes request: continue after */ +/* name constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID geteea_caname_cstr_done (ASN1_DEC_CTXT *aCtx) + { + _ms_set_cs_check2 (aCtx); /* check for CS info */ + } + +/************************************************************************/ +/* geteea_dec_done */ +/* decode done, realloc the structure to desired size */ +/************************************************************************/ + +static ST_VOID geteea_dec_done (ASN1_DEC_CTXT *aCtx) + { +ST_INT req_size; + /* find actual size for request info */ + req_size = sizeof (GETEEA_REQ_INFO) + + (sizeof (OBJECT_NAME) * req_info->num_of_eenames); + + /* give back unused storage */ + _mms_dec_info = (*m_realloc_os_fun) (_mms_dec_info,req_size); + req_info = (GETEEA_REQ_INFO *) _mms_dec_info; + + _mms_dec_done_ok (aCtx); + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_geteea_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the get event enrollment attributes */ +/* response. */ +/************************************************************************/ + +ST_RET mp_geteea_resp (MMSREQ_IND *indptr, GETEEA_RESP_INFO *info_ptr) + { + return (_mms_resp_send (MMSOP_GET_EE_ATTR,indptr, + M_CAST_MK_FUN (_ms_mk_geteea_resp), + (ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_geteea_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the get event enrollment attributes response. */ +/************************************************************************/ + +ST_RET mpl_geteea_resp (ST_UINT32 invoke_id, GETEEA_RESP_INFO *info_ptr) + { + return (_mms_resp_fin (MMSOP_GET_EE_ATTR,invoke_id, + M_CAST_MK_FUN (_ms_mk_geteea_resp), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_geteea_resp */ +/* Construct a get event enrollment attributes attributes response. */ +/************************************************************************/ + +ST_VOID _ms_mk_geteea_resp (ASN1_ENC_CTXT *aCtx, GETEEA_RESP_INFO *info) + { +ST_INT i; +EVENT_ENROLLMENT *ee_ptr; + + if (info->more_follows) + { /* not the default */ + asn1r_wr_u8 (aCtx, info->more_follows); /* write more follows indicator */ + asn1r_fin_prim (aCtx, 1, CTX); /* ctx tag 1 */ + } + + asn1r_strt_constr (aCtx); /* start ctx tag 0 constructor */ + ee_ptr = (EVENT_ENROLLMENT *) (info + 1); + ee_ptr +=info->num_of_evenroll-1; /* point to last event enroll */ + for (i = 0; i < info->num_of_evenroll; i++) + { + asn1r_strt_constr (aCtx); /* start uni seq constructor */ + if (ee_ptr->ackec_name_pres) + { + asn1r_strt_constr (aCtx); /* start ctx tag 10 constructor */ + if (ee_ptr->ackec_name_tag == 1) + asn1r_fin_prim (aCtx, 1, CTX); /* event action name undefined */ + else + { /* write event action name */ + asn1r_strt_constr (aCtx); /* start ctx tag 0 constructor */ + _ms_wr_mms_objname (aCtx, &ee_ptr->ackec_name); + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* finish ctx tag 0 constructor */ + } + asn1r_fin_constr (aCtx, 10,CTX,DEF); /* finish ctx tag 10 constructor */ + } + +#ifdef CS_SUPPORT + if (ee_ptr->addl_detail_pres) + { + asn1r_strt_constr (aCtx); /* start ctx tag 9 constructor */ + asn1r_wr_delmnt (aCtx, ee_ptr->addl_detail,ee_ptr->addl_detail_len); + asn1r_fin_constr (aCtx, 9,CTX,DEF); /* finish ctx tag 9 constructor */ + } +#endif + + if (ee_ptr->rem_acc_delay_pres) + { + asn1r_wr_u32 (aCtx, ee_ptr->rem_acc_delay); /* write remaining acc delay */ + asn1r_fin_prim (aCtx, 8, CTX); /* ctx tag 8 */ + } + + if (ee_ptr->invoke_id_pres) + { + asn1r_wr_u32 (aCtx, ee_ptr->invoke_id); /* write the invoke id */ + asn1r_fin_prim (aCtx, 7, CTX); /* ctx tag 7 */ + } + + if (ee_ptr->duration != 0) + { /* not the default of current */ + asn1r_wr_i16 (aCtx, ee_ptr->duration); /* write the duration */ + asn1r_fin_prim (aCtx, 6, CTX); /* ctx tag 6 */ + } + + asn1r_wr_i16 (aCtx, ee_ptr->ee_class); /* write event enrollment class */ + asn1r_fin_prim (aCtx, 5, CTX); /* ctx tag 5 */ + + if (ee_ptr->mms_deletable) + { /* not the default of SD_FALSE */ + asn1r_wr_bool (aCtx, ee_ptr->mms_deletable); /* write mms deletable */ + asn1r_fin_prim (aCtx, 4, CTX); /* ctx tag 4 */ + } + + if (ee_ptr->client_app_pres) + { + asn1r_strt_constr (aCtx); /* start ctx tag 3 constructor */ + asn1r_wr_delmnt (aCtx, ee_ptr->client_app,ee_ptr->client_app_len); + asn1r_fin_constr (aCtx, 3,CTX,DEF); /* finish ctx tag 3 constructor */ + } + + if (ee_ptr->evact_name_pres) + { + asn1r_strt_constr (aCtx); /* start ctx tag 2 constructor */ + if (ee_ptr->evact_name_tag == 1) + asn1r_fin_prim (aCtx, 1, CTX); /* event action name undefined */ + else + { /* write event action name */ + asn1r_strt_constr (aCtx); /* start ctx tag 0 constructor */ + _ms_wr_mms_objname (aCtx, &ee_ptr->evact_name); + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* finish ctx tag 0 constructor */ + } + asn1r_fin_constr (aCtx, 2,CTX,DEF); /* finish ctx tag 2 constructor */ + } + + asn1r_strt_constr (aCtx); /* start ctx tag 1 constructor */ + if (ee_ptr->evcon_name_tag == 1) + asn1r_fin_prim (aCtx, 1, CTX); /* event condition name undef */ + else + { /* write event condition name */ + asn1r_strt_constr (aCtx); /* start ctx tag 0 constructor */ + _ms_wr_mms_objname (aCtx, &ee_ptr->evcon_name); + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* finish ctx tag 0 constructor */ + } + asn1r_fin_constr (aCtx, 1,CTX,DEF); /* finish ctx tag 1 constructor */ + + asn1r_strt_constr (aCtx); /* start ctx tag 0 constructor */ + _ms_wr_mms_objname (aCtx, &ee_ptr->evenroll_name); + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* finish ctx tag 0 constructor */ + + asn1r_fin_constr (aCtx, SEQ_CODE,UNI,DEF); /* finish uni seq constructor */ + ee_ptr--; + } + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* finish ctx tag 0 constructor */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_GET_EE_ATTR,CTX,DEF); /* tag = opcode, ctx */ + } diff --git a/mmslib/mmsl/rs_getpi.c b/mmslib/mmsl/rs_getpi.c new file mode 100644 index 0000000..5daddc1 --- /dev/null +++ b/mmslib/mmsl/rs_getpi.c @@ -0,0 +1,148 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_getpi.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of get program */ +/* invocation attribute. It decodes the get program invocation */ +/* attribute request (indication) & encodes the get program */ +/* invocation attribute response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 07 Remove "thisFileName" */ +/* 12/20/01 JRB 06 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 05 Added SD_CONST modifiers */ +/* 03/23/99 MDE 04 Changes to decode buffer allocation scheme */ +/* 06/15/98 MDE 03 Changes to allow compile under C++ */ +/* 07/03/97 MDE 02 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pprg.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static GETPI_REQ_INFO *req_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + + +/************************************************************************/ +/************************************************************************/ +/* mms_get_pi_req */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_get_pi_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Get Program Invocation Attribute Request"); + + +/* get storage for request information */ + req_info = (GETPI_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (GETPI_REQ_INFO)); + if (asn1r_get_identifier (aCtx, req_info->piname))/* read program invocation name */ + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_getpi_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the get program invocation attribute */ +/* response. */ +/************************************************************************/ + +ST_RET mp_getpi_resp (MMSREQ_IND *indptr, GETPI_RESP_INFO *info_ptr) + { + return (_mms_resp_send (MMSOP_GET_PI_ATTR,indptr, + M_CAST_MK_FUN (_ms_mk_getpi_resp), + (ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_getpi_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the get program invocation attribute response. */ +/************************************************************************/ + +ST_RET mpl_getpi_resp (ST_UINT32 invoke_id, GETPI_RESP_INFO *info_ptr) + { + return (_mms_resp_fin (MMSOP_GET_PI_ATTR,invoke_id, + M_CAST_MK_FUN (_ms_mk_getpi_resp), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_getpi_resp */ +/* ENCODE a get program invocation attribute RESPONSE: */ +/************************************************************************/ + +ST_VOID _ms_mk_getpi_resp (ASN1_ENC_CTXT *aCtx, GETPI_RESP_INFO *info) +{ +ST_INT i; +ST_CHAR **dom_ptr; + + if (info->start_arg_type == ARG_TYPE_SIMPLE) + { + asn1r_wr_vstr (aCtx, (ST_CHAR *)info->start_arg); /* write the start argument */ + asn1r_fin_prim (aCtx, 5,CTX); /* ctx tag 5 */ + } + else /* ENCODED data, write as complete ASN.1 EXTERNAL */ + asn1r_wr_delmnt (aCtx, info->start_arg,info->start_arg_len); + + asn1r_wr_bool (aCtx, info->monitor); /* write the monitor flag */ + asn1r_fin_prim (aCtx, 4,CTX); /* ctx tag 4 */ + + asn1r_wr_bool (aCtx, info->reusable); /* write the reusable flag */ + asn1r_fin_prim (aCtx, 3,CTX); /* ctx tag 3 */ + + asn1r_wr_bool (aCtx, info->mms_deletable); /* write mms deletable flag */ + asn1r_fin_prim (aCtx, 2,CTX); /* ctx tag 2 */ + + asn1r_strt_constr (aCtx); /* start ctx tag 2 constructor */ + dom_ptr = (ST_CHAR **) (info + 1); + dom_ptr += (info->num_of_dnames - 1); /* point to last domain name */ + for (i = 0; i < info->num_of_dnames; i++) + { + asn1r_wr_vstr (aCtx, *dom_ptr); + asn1r_fin_prim (aCtx, VISTR_CODE, UNI); + dom_ptr--; + } + asn1r_fin_constr (aCtx, 1,CTX,DEF); /* ctx tag 1 constructor */ + + asn1r_wr_i16 (aCtx, info->state); /* write the state */ + asn1r_fin_prim (aCtx, 0,CTX); /* ctx tag 0 */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_GET_PI_ATTR,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsl/rs_getty.c b/mmslib/mmsl/rs_getty.c new file mode 100644 index 0000000..59d2290 --- /dev/null +++ b/mmslib/mmsl/rs_getty.c @@ -0,0 +1,126 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_gettype.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of get named type */ +/* attributes. It decodes the get named type attributes request */ +/* (indication) & encodes the get named type attributes response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 07 Remove "thisFileName" */ +/* 12/20/01 JRB 06 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 05 Added SD_CONST modifiers */ +/* 03/23/99 MDE 04 Changes to decode buffer allocation scheme */ +/* 06/15/98 MDE 03 Changes to allow compile under C++ */ +/* 07/03/97 MDE 02 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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 GETTYPE_REQ_INFO *req_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID gettype_type_name_done (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_get_type_req */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_get_type_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Get Named Type Attributes Request"); + +/* get storage for request information */ + req_info = (GETTYPE_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (GETTYPE_REQ_INFO)); + _ms_get_mms_objname (aCtx, &req_info->type_name, gettype_type_name_done); + } + +/************************************************************************/ +/* gettype_type_name_done */ +/* decoding get named type attributes request: type name has been */ +/* obtained. */ +/************************************************************************/ + +static ST_VOID gettype_type_name_done (ASN1_DEC_CTXT *aCtx) + { + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_gettype_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the get named type attributes response. */ +/************************************************************************/ + +ST_RET mp_gettype_resp (MMSREQ_IND *indptr, GETTYPE_RESP_INFO *info_ptr) + { + return (_mms_resp_send (MMSOP_GET_TYPE,indptr, + M_CAST_MK_FUN (_ms_mk_gettype_resp), + (ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_gettype_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the get named type attributes response. */ +/************************************************************************/ + +ST_RET mpl_gettype_resp (ST_UINT32 invoke_id, GETTYPE_RESP_INFO *info_ptr) + { + return (_mms_resp_fin (MMSOP_GET_TYPE,invoke_id, + M_CAST_MK_FUN (_ms_mk_gettype_resp), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_gettype_resp */ +/* Construct a get named type attributes response. */ +/************************************************************************/ + +ST_VOID _ms_mk_gettype_resp (ASN1_ENC_CTXT *aCtx, GETTYPE_RESP_INFO *info) + { + _ms_wr_va_type_spec (aCtx, &info->type_spec); /* write the type specification */ + + asn1r_wr_bool (aCtx , info->mms_deletable); /* write mms deletable flag */ + asn1r_fin_prim (aCtx , 0,CTX); /* context tag 1 */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx , MMSOP_GET_TYPE,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsl/rs_getva.c b/mmslib/mmsl/rs_getva.c new file mode 100644 index 0000000..f48e1a4 --- /dev/null +++ b/mmslib/mmsl/rs_getva.c @@ -0,0 +1,170 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_getvar.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of get variable */ +/* access attributes. It decodes the get variable access */ +/* attributes request (indication) & encodes the get variable */ +/* access attributes response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 07 Remove "thisFileName" */ +/* 12/20/01 JRB 06 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 05 Added SD_CONST modifiers */ +/* 03/23/99 MDE 04 Changes to decode buffer allocation scheme */ +/* 06/15/98 MDE 03 Changes to allow compile under C++ */ +/* 07/03/97 MDE 02 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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 GETVAR_REQ_INFO *req_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID getvar_na_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID getvar_name_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID getvar_addr_cstr (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_get_var_req */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_get_var_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Get Variable Access Attributes Request"); + + /* get storage for request information */ +/* get storage for request information */ + req_info = (GETVAR_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (GETVAR_REQ_INFO)); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, getvar_name_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1, getvar_addr_cstr); + } + +/************************************************************************/ +/* getvar_name_cstr */ +/* decoding get variable access attributes request: name constructor */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID getvar_name_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getvar_name_cstr"); + + req_info->req_tag = SD_SUCCESS; /* set tag to name */ + + _ms_get_mms_objname (aCtx, &req_info->name, getvar_na_done); + } + +/************************************************************************/ +/* getvar_addr_cstr */ +/* decoding get variable access attributes request: address constructor */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID getvar_addr_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getvar_addr_cstr"); + + req_info->req_tag = SD_TRUE; /* set tag to address */ + + _ms_get_va_address (aCtx, &req_info->address, getvar_na_done); + } + +/************************************************************************/ +/* getvar_na_done */ +/* decoding get variable access attributes request: name or address has */ +/* been obtained. */ +/************************************************************************/ + +static ST_VOID getvar_na_done (ASN1_DEC_CTXT *aCtx) + { + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_getvar_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE & send the get variable access attributes response */ +/************************************************************************/ + +ST_RET mp_getvar_resp (MMSREQ_IND *indptr, GETVAR_RESP_INFO *info_ptr) + { + return (_mms_resp_send (MMSOP_GET_VAR,indptr, + M_CAST_MK_FUN (_ms_mk_getvar_resp), + (ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_getvar_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the get variable access attributes response */ +/************************************************************************/ + +ST_RET mpl_getvar_resp (ST_UINT32 invoke_id, GETVAR_RESP_INFO *info_ptr) + { + return (_mms_resp_fin (MMSOP_GET_VAR,invoke_id, + M_CAST_MK_FUN (_ms_mk_getvar_resp), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_getvar_resp */ +/* Construct a get variable access attributes response. */ +/************************************************************************/ + +ST_VOID _ms_mk_getvar_resp (ASN1_ENC_CTXT *aCtx, GETVAR_RESP_INFO *info) + { + asn1r_strt_constr (aCtx); /* start context tag 2 cstr */ + _ms_wr_va_type_spec (aCtx, &info->type_spec); /* write the type specification */ + asn1r_fin_constr (aCtx, 2, CTX, DEF); /* finish context tag 2 cstr */ + + if (info->address_pres) + { + asn1r_strt_constr (aCtx); /* start context tag 1 cstr */ + _ms_wr_va_address (aCtx, &info->address); /* write the address */ + asn1r_fin_constr (aCtx, 1, CTX, DEF); /* finish context tag 1 cstr */ + } + + asn1r_wr_bool (aCtx, info->mms_deletable); /* write mms deletable flag */ + asn1r_fin_prim (aCtx, 0,CTX); /* context tag 1 */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_GET_VAR,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsl/rs_getvl.c b/mmslib/mmsl/rs_getvl.c new file mode 100644 index 0000000..34955ec --- /dev/null +++ b/mmslib/mmsl/rs_getvl.c @@ -0,0 +1,139 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_getvlist.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of get scattered */ +/* access attributes. It decodes the get named variable list */ +/* attributes request (indication) & encodes the get scattered */ +/* access attributes response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 07 Remove "thisFileName" */ +/* 12/20/01 JRB 06 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 05 Added SD_CONST modifiers */ +/* 03/23/99 MDE 04 Changes to decode buffer allocation scheme */ +/* 06/15/98 MDE 03 Changes to allow compile under C++ */ +/* 07/03/97 MDE 02 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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 GETVLIST_REQ_INFO *req_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID getvlist_name_done (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_get_vlist_req */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_get_vlist_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Get Named Variable List Attributes Request"); + + /* get storage for request information */ +/* get storage for request information */ + req_info = (GETVLIST_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (GETVLIST_REQ_INFO)); + _ms_get_mms_objname (aCtx, &req_info->vl_name, getvlist_name_done); + } + +/************************************************************************/ +/* getvlist_name_done */ +/* decoding get named variable list attributes request: variable list */ +/* name has been obtained. */ +/************************************************************************/ + +static ST_VOID getvlist_name_done (ASN1_DEC_CTXT *aCtx) + { + asn1r_set_all_cstr_done (aCtx); /* clear cstr done functions */ + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_getvlist_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE & send the get named variable list attributes */ +/* response. */ +/************************************************************************/ + +ST_RET mp_getvlist_resp (MMSREQ_IND *indptr, GETVLIST_RESP_INFO *info_ptr) + { + return (_mms_resp_send (MMSOP_GET_VLIST,indptr, + M_CAST_MK_FUN (_ms_mk_getvlist_resp), + (ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_getvlist_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the get named variable list attributes response. */ +/************************************************************************/ + +ST_RET mpl_getvlist_resp (ST_UINT32 invoke_id, + GETVLIST_RESP_INFO *info_ptr) + { + return (_mms_resp_fin (MMSOP_GET_VLIST,invoke_id, + M_CAST_MK_FUN (_ms_mk_getvlist_resp), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_getvlist_resp */ +/* Construct a get named variable list attributes response. */ +/************************************************************************/ + +ST_VOID _ms_mk_getvlist_resp (ASN1_ENC_CTXT *aCtx, GETVLIST_RESP_INFO *info) + { +VARIABLE_LIST *vl_ptr; + + /* get ptr to list of variables */ + vl_ptr = (VARIABLE_LIST *) (info + 1); + + asn1r_strt_constr (aCtx); /* start context tag 1 cstr */ + _ms_wr_va_var_list (aCtx, vl_ptr, info->num_of_variables); + asn1r_fin_constr (aCtx, 1, CTX, DEF); /* finish context tag 1 cstr */ + + asn1r_wr_bool (aCtx, info->mms_deletable); /* write mms deletable flag */ + asn1r_fin_prim (aCtx, 0,CTX); /* context tag 0 */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_GET_VLIST,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsl/rs_ident.c b/mmslib/mmsl/rs_ident.c new file mode 100644 index 0000000..1b78a90 --- /dev/null +++ b/mmslib/mmsl/rs_ident.c @@ -0,0 +1,122 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_ident.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of the Identify */ +/* service. It decodes the Identify request (indication) and */ +/* encodes the Identify response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 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_pvmd.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : NONE */ + +/************************************************************************/ +/* variables global to the ENCODE portion : */ +/* IDENT_RESP_INFO mmse_ident_info; */ + + +/************************************************************************/ +/************************************************************************/ +/* mms_identify_req */ +/* NOTE : Since the identify req is a NULL PDU, the decode is continued */ +/* by '_mms_null_pdu_dec', which simply sets decode done = 1 and sets */ +/* the decode done function to point to the general decode done fun */ +/* See mmsdec.c for the general functions. */ +/************************************************************************/ + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_ident_resp */ +/* This function is called from the user to ENCODE and send the */ +/* Identify response PDU. */ +/************************************************************************/ + +ST_RET mp_ident_resp (MMSREQ_IND *indptr, IDENT_RESP_INFO *info_ptr) + { + return (_mms_resp_send (MMSOP_IDENTIFY,indptr, + M_CAST_MK_FUN (_ms_mk_ident_resp), + (ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_ident_resp */ +/* This function is called from the user to ENCODE the Identify */ +/* response PDU. */ +/************************************************************************/ + +ST_RET mpl_ident_resp (ST_UINT32 invoke_id, IDENT_RESP_INFO *info_ptr) + { + return (_mms_resp_fin (MMSOP_IDENTIFY,invoke_id, + M_CAST_MK_FUN (_ms_mk_ident_resp), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_ident_resp */ +/* ENCODE an Identify RESPONSE: */ +/************************************************************************/ + +ST_VOID _ms_mk_ident_resp (ASN1_ENC_CTXT *aCtx, IDENT_RESP_INFO *info) + { +ST_INT i; +struct mms_obj_id *obj; + + asn1r_strt_constr (aCtx); + + if (info->num_as) /* if user wants to send AS */ + { + asn1r_strt_constr (aCtx); /* sequence */ + obj = (struct mms_obj_id *) (info +1); /* point to first AS */ + + for (i = 0; i < info->num_as; ++i, ++obj) + { + asn1r_wr_objid (aCtx, obj->comps, obj->num_comps); + asn1r_fin_prim (aCtx, OBJ_ID_CODE,UNI); + } + asn1r_fin_constr (aCtx, 3,CTX,DEF); /* finish sequence of AS */ + } + + asn1r_wr_vstr (aCtx, info->rev); /* write the revision name */ + asn1r_fin_prim (aCtx, 2,CTX); + + asn1r_wr_vstr (aCtx, info->model); /* write the model name */ + asn1r_fin_prim (aCtx, 1,CTX); + + asn1r_wr_vstr (aCtx, info->vend); /* write the vendor name */ + asn1r_fin_prim (aCtx, 0,CTX); + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_IDENTIFY,CTX,DEF); /* tag = opcode, context */ + } diff --git a/mmslib/mmsl/rs_info.c b/mmslib/mmsl/rs_info.c new file mode 100644 index 0000000..127496a --- /dev/null +++ b/mmslib/mmsl/rs_info.c @@ -0,0 +1,184 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_info.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of information */ +/* report. It decodes the information report request (indication). */ +/* There is no response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 05 Remove "thisFileName" */ +/* 12/20/01 JRB 04 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 03 Added SD_CONST modifiers */ +/* 03/23/99 MDE 02 Changes to decode buffer allocation scheme */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 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 INFO_REQ_INFO *req_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 info_acc_rslt_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID info_acc_rslt_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID info_acc_rslt_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID info_va_spec_done (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_info_rpt_req */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_info_rpt_req (ASN1_DEC_CTXT *aCtx) + { +ST_INT size1; +ST_INT size2; +ST_INT req_size; + + MLOG_CDEC0 ("Information Report Request"); + +#if defined(FIXED_DECBUF) + max_acc_rslt = m_cl_max_info_acc_rslt; + max_vars = m_cl_max_info_var_spec; + req_size = mmsl_dec_info_size; +#else + +/* First assume a list of variables (each var has a data) */ + max_vars = _mmsdec_msglen / 7; + if (m_cl_max_info_var_spec && (max_vars > m_cl_max_info_var_spec)) + max_vars = m_cl_max_info_var_spec; + + size1 = sizeof(INFO_REQ_INFO) + + (max_vars * (sizeof(VARIABLE_LIST) + sizeof(ACCESS_RESULT))); + +/* Now assume a named variable list name */ + max_acc_rslt = _mmsdec_msglen / 3; + if (m_cl_max_info_acc_rslt && (max_acc_rslt > m_cl_max_info_acc_rslt)) + max_acc_rslt = m_cl_max_info_acc_rslt; + size2 = sizeof(INFO_REQ_INFO) + (sizeof(ACCESS_RESULT) * max_acc_rslt); + + req_size = max(size1, size2); +#endif + +/* get storage for request information */ + req_info = (INFO_REQ_INFO *) _m_get_dec_buf (aCtx, req_size); + _ms_get_va_spec (aCtx, &req_info->va_spec, max_vars, info_va_spec_done); + } + +/************************************************************************/ +/* info_va_spec_done */ +/* decoding information report request: variable access specification */ +/* has been decoded. */ +/************************************************************************/ + +static ST_VOID info_va_spec_done (ASN1_DEC_CTXT *aCtx) + { + +VARIABLE_LIST *temp; + + MLOG_CDEC0 ("info_va_spec_done"); + + temp = (VARIABLE_LIST *) (req_info + 1); + temp += req_info->va_spec.num_of_variables; + + req_info->acc_rslt_list = (ACCESS_RESULT *) temp; + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, info_acc_rslt_cstr); + } + +/************************************************************************/ +/* info_acc_rslt_cstr */ +/* decoding information report request: access result constructor was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID info_acc_rslt_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("info_acc_rslt_cstr"); + + ar_ptr = req_info->acc_rslt_list; + + _ms_get_va_access_rslt (aCtx, ar_ptr, info_acc_rslt_done); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = info_acc_rslt_cstr_done; + } + +/************************************************************************/ +/* info_acc_rslt_done */ +/* decoding information report request: access result has been decoded. */ +/************************************************************************/ + +static ST_VOID info_acc_rslt_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("info_acc_rslt_done"); + + req_info->num_of_acc_result++; + if ((req_info->num_of_acc_result + 1) <= max_acc_rslt) + { + ar_ptr++; + _ms_get_va_access_rslt (aCtx, ar_ptr, info_acc_rslt_done); + } + } + +/************************************************************************/ +/* info_acc_rslt_cstr_done */ +/* decoding information report request: access result constructor done */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID info_acc_rslt_cstr_done (ASN1_DEC_CTXT *aCtx) + { +ST_INT req_size; +VARIABLE_LIST *temp; + + MLOG_CDEC0 ("info_acc_rslt_cstr_done"); + /* find actual size for request info */ + req_size = sizeof (INFO_REQ_INFO) + + (sizeof (VARIABLE_LIST)*req_info->va_spec.num_of_variables) + + (sizeof (ACCESS_RESULT)*req_info->num_of_acc_result); + + /* give back unused storage */ + _mms_dec_info = (*m_realloc_os_fun) (_mms_dec_info,req_size); + req_info = (INFO_REQ_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 info_req_info */ +/* we have to update the acc_rslt_list ptr to point to this new mem loc */ + + temp = (VARIABLE_LIST *) (req_info + 1); + temp += req_info->va_spec.num_of_variables; + req_info->acc_rslt_list = (ACCESS_RESULT *) temp; + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } diff --git a/mmslib/mmsl/rs_init.c b/mmslib/mmsl/rs_init.c new file mode 100644 index 0000000..b51c136 --- /dev/null +++ b/mmslib/mmsl/rs_init.c @@ -0,0 +1,266 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2007, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_init.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of the initiate */ +/* operation. It decodes the initiate request (indication) and */ +/* encodes the initiate response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 11/01/07 EJV 09 Rem obsolete LLC30... code. */ +/* 03/09/05 EJV 08 Fixed thisFileName for MMS-EASE */ +/* 03/11/04 GLB 07 Cleaned up "thisFileName" */ +/* 12/20/01 JRB 06 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/08/00 RKR 05 Log error response for negative initiate resp*/ +/* instead of calling m_log_resp_info_fun. */ +/* 09/13/99 MDE 04 Added SD_CONST modifiers */ +/* 04/07/98 MDE 01 Minor restructure to eliminate warnings */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" + +#include "mmsdefs.h" +#include "mms_pcon.h" +#include "asn1defs.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#if defined(DEBUG_SISCO) && (defined(S_MT_SUPPORT) || !defined(MMS_LITE)) +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/************************************************************************/ +/* mms_init_req */ +/* Function called to decode an Initiate request PDU after the PDU type */ +/* has been determined. Sets up the parse of the next data element and */ +/* returns, letting the ASN.1 tools take over. */ +/* */ +/* NOTE : This functionality has been moved to mmsinit.c, because the */ +/* request and response are identical. The call to mms_init_req was */ +/* put back to better support MMSEASE-LITE. */ +/************************************************************************/ + +ST_VOID mms_init_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("decode initiate request"); + _mms_init_dec (aCtx, SD_TRUE); + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_init_resp */ +/* create and send an initiate response */ +/************************************************************************/ + +ST_RET mp_init_resp (MMSREQ_IND *indptr, INIT_INFO *info) + { +ST_UCHAR *msg_ptr; +ST_RET ret; +ST_INT i; +ST_INT num_ui; +INIT_UI *ui; +INIT_UI *ui_ptr; +ST_INT cs_count; +CS_INIT_INFO *cs_info_ptr; +ST_UCHAR *cs_build_bufs[MAX_INIT_CONTEXTS]; +ST_UCHAR *buf; +ST_BOOLEAN context_accepted; +ST_RET result; +ST_INT16 reason; +ST_INT16 eclass; +ST_INT16 code; +ASN1_ENC_CTXT localEncCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_ENC_CTXT *aCtx = &localEncCtx; + + if (info->num_cs_init > MAX_INIT_CONTEXTS) + return (ME_TOO_MANY_CONTEXTS); + + S_LOCK_COMMON_RESOURCES (); + context_accepted = SD_FALSE; /* clear flag */ + + if (!(ret = _ms_check_ind_actv (indptr))) + { + num_ui = info->num_cs_init; + if (info->mms_p_context_pres) + num_ui++; + + if (num_ui) + ui = ui_ptr = (INIT_UI *) chk_calloc (num_ui, sizeof (INIT_UI)); + else + ui = NULL; + + cs_count = 0; + cs_info_ptr = (CS_INIT_INFO *) (info + 1); + for (i = 0; i < num_ui; ++i, ++ui_ptr) + { +/* build the core initiate, if used and position reached or if no */ +/* companion standard initiates are to be sent */ + + if ((info->mms_p_context_pres && i == info->core_position) || + !info->num_cs_init) + { + if (info->rslt.accept_context) + { + context_accepted = SD_TRUE; /* set flag */ + msg_ptr = _ms_mk_init (aCtx, m_build_buf,mms_max_msgsize,info,MMSINITRESP,SD_FALSE); + } + else + { + msg_ptr = _ms_mk_err_resp (aCtx, m_build_buf,mms_max_msgsize,indptr->op,indptr->id, + info->rslt.err.eclass,info->rslt.err.code); + eclass = info->rslt.err.eclass; + code = info->rslt.err.code; + } + ui_ptr->context = MMS_PCI; + if (info->rslt.accept_context) + ui_ptr->reject = SD_FALSE; + else + ui_ptr->reject = SD_TRUE; + ui_ptr->ui_len = M_BUILD_BUF_END - msg_ptr; + } + else + { + buf = cs_build_bufs[cs_count++] = (ST_UCHAR *) + chk_calloc (1,M_INIT_BUILD_LEN); + if (cs_info_ptr->rslt.accept_context) + { + context_accepted = SD_TRUE; /* set flag */ + msg_ptr = _ms_mk_init (aCtx, buf,M_INIT_BUILD_LEN, + (INIT_INFO *) cs_info_ptr,MMSINITRESP,SD_TRUE); + } + else + { + msg_ptr = _ms_mk_err_resp (aCtx, buf,M_INIT_BUILD_LEN,indptr->op,indptr->id, + cs_info_ptr->rslt.err.eclass,cs_info_ptr->rslt.err.code); + eclass = cs_info_ptr->rslt.err.eclass; + code = cs_info_ptr->rslt.err.code; + } + + ui_ptr->context = cs_info_ptr->p_context; + if (cs_info_ptr->rslt.accept_context) + ui_ptr->reject = SD_FALSE; + else + ui_ptr->reject = SD_TRUE; + ui_ptr->ui_len = (buf + M_INIT_BUILD_LEN) - msg_ptr; + } + ui_ptr->ui_ptr = msg_ptr; + } + +/* Now set up the ACSE result & reason parameteds */ + if (context_accepted) /* if any context accepted */ + { + result = 0; + reason = 0; + } + else /* no context was accepted */ + { + result = 1; + reason = 1; + } + + /* If a response logging function is installed, call it */ + + if (result==0) + { + if (m_log_resp_info_fun && (mms_debug_sel & MMS_LOG_RESP)) + (*m_log_resp_info_fun) (indptr, info); + } + else + { + if (m_log_error_resp_fun && (mms_debug_sel & MMS_LOG_RESP)) + (*m_log_error_resp_fun) (indptr, eclass, code); + } + + ret = _mllp_init_resp (indptr->chan,result,reason, + num_ui, ui,indptr->add_addr_info); + + _ms_ind_serve_done (indptr); + + if (ui) + chk_free (ui); + + for (i = 0; i < info->num_cs_init; ++i) /* free CS build buffers */ + chk_free (cs_build_bufs[i]); + } + S_UNLOCK_COMMON_RESOURCES (); + return (ret); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_init_resp */ +/* create an initiate response */ +/************************************************************************/ + +ST_RET mpl_init_resp (INIT_INFO *info_ptr) + { +ST_RET ret; +ASN1_ENC_CTXT localEncCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_ENC_CTXT *aCtx = &localEncCtx; + + S_LOCK_COMMON_RESOURCES (); + + mmsl_msg_start = _ms_mk_init (aCtx, mmsl_enc_buf, mmsl_enc_buf_size, + info_ptr,MMSINITRESP,SD_FALSE); + mmsl_msg_len = (mmsl_enc_buf + mmsl_enc_buf_size) - mmsl_msg_start; + + if (!aCtx->asn1r_encode_overrun) /* Check for encode overrun */ + ret = SD_SUCCESS; + else + ret = ME_ASN1_ENCODE_OVERRUN; + + S_UNLOCK_COMMON_RESOURCES (); + return (ret); + } + +#ifdef CS_SUPPORT +/************************************************************************/ +/************************************************************************/ +/* mpl_cs_init_resp */ +/* create a companion standard initiate response */ +/************************************************************************/ + +ST_RET mpl_cs_init_resp (CS_INIT_INFO *info_ptr) + { +ASN1_ENC_CTXT localEncCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_ENC_CTXT *aCtx = &localEncCtx; + + mmsl_msg_start = _ms_mk_init (aCtx, mmsl_enc_buf, mmsl_enc_buf_size, + (INIT_INFO *) info_ptr,MMSINITRESP,SD_TRUE); + mmsl_msg_len = (mmsl_enc_buf + mmsl_enc_buf_size) - mmsl_msg_start; + + if (aCtx->asn1r_encode_overrun) /* Check for encode overrun */ + return (ME_ASN1_ENCODE_OVERRUN); + return (SD_SUCCESS); + } +#endif + +#endif + +/************************************************************************/ +/* mk_initiate */ +/* Note that there is only one mk_initiate function, and it is listed */ +/* in the mmsinit.c module. */ +/************************************************************************/ diff --git a/mmslib/mmsl/rs_namel.c b/mmslib/mmsl/rs_namel.c new file mode 100644 index 0000000..6527041 --- /dev/null +++ b/mmslib/mmsl/rs_namel.c @@ -0,0 +1,341 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2002, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_namel.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of the GetNameList */ +/* service. It decodes the GetNameList request (indication) and */ +/* encodes the GetNameList response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 10 Remove "thisFileName" */ +/* 07/01/02 EJV 09 NLV: support namelist for dom specific jou. */ +/* 12/20/01 JRB 08 Converted to use ASN1R (re-entrant ASN1) */ +/* 05/05/00 JRB 07 Lint cleanup */ +/* 04/07/00 RKR 06 Added code to check for illegal scope & class*/ +/* 09/13/99 MDE 05 Added SD_CONST modifiers */ +/* 03/23/99 MDE 04 Changes to decode buffer allocation scheme */ +/* 06/15/98 MDE 03 Changes to allow compile under C++ */ +/* 07/03/97 MDE 02 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pvmd.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static NAMELIST_REQ_INFO *info; + +/* static functions */ +static ST_VOID namelist_get_extobjclass (ASN1_DEC_CTXT *aCtx); +static ST_VOID namelist_get_objclass (ASN1_DEC_CTXT *aCtx); +#ifdef CS_SUPPORT +static ST_VOID namelist_get_cs_objclass (ASN1_DEC_CTXT *aCtx); +static ST_VOID namelist_cs_objclass_done (ASN1_DEC_CTXT *aCtx); +#endif +static ST_VOID namelist_extobj_class_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID namelist_get_objscope (ASN1_DEC_CTXT *aCtx); +static ST_VOID namelist_get_vmdscope (ASN1_DEC_CTXT *aCtx); +static ST_VOID namelist_get_domscope (ASN1_DEC_CTXT *aCtx); +static ST_VOID namelist_get_aascope (ASN1_DEC_CTXT *aCtx); +static ST_VOID namelist_objscope_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID namelist_get_continue_after (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_namelist_req */ +/* This function is called from MMSDEC when the opcode of a request */ +/* PDU for this operation is decoded. Setup state machine function */ +/* pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_namelist_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("GetNameList Request"); + + +/* get storage for request information */ + info = (NAMELIST_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (NAMELIST_REQ_INFO)); + + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,0,namelist_get_extobjclass); + } + +/************************************************************************/ +/* namelist_get_extobjclass */ +/* GetNameList response is being decoded: object class parameter has */ +/* been encountered. */ +/************************************************************************/ + +static ST_VOID namelist_get_extobjclass (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("namelist_get_extobjclass"); + + ASN1R_TAG_ADD (aCtx, CTX,0,namelist_get_objclass); +#ifdef CS_SUPPORT + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,1,namelist_get_cs_objclass); +#endif + } + +/************************************************************************/ +/* namelist_get_objclass */ +/* GetNameList response is being decoded: object class parameter has */ +/* been encountered. */ +/************************************************************************/ + +static ST_VOID namelist_get_objclass (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("namelist_get_objclass"); + /* read the object class */ + if (asn1r_get_i16 (aCtx, &info->obj.mms_class) || + info->obj.mms_class < 0 || + info->obj.mms_class > 11) + { + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = namelist_extobj_class_done; + } + +#ifdef CS_SUPPORT +/************************************************************************/ +/* namelist_get_cs_objclass */ +/* GetNameList response is being decoded: CS object class parameter has */ +/* been encountered. The contents here are a ANY, defined by CS. */ +/************************************************************************/ + +static ST_VOID namelist_get_cs_objclass (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("namelist_get_cs_objclass"); + + info->cs_objclass_pres = SD_TRUE; /* set flag for CS object */ + info->obj.cs.len = aCtx->asn1r_elmnt_len; /* save pointer and len */ + info->obj.cs.cs_class = aCtx->asn1r_field_ptr; + + asn1r_parse_next (aCtx, namelist_cs_objclass_done); /* ensure valid ASN.1 CS data */ + } + +/************************************************************************/ +/* namelist_cs_objclass_done */ +/************************************************************************/ + +static ST_VOID namelist_cs_objclass_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("namelist_cs_objclass_done"); + /* OK for extended object class to be done */ + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = namelist_extobj_class_done; + } +#endif + +/************************************************************************/ +/* namelist_extobj_class_done */ +/* extendedObjectClass constructor done function. Set up to get Scope */ +/************************************************************************/ + +static ST_VOID namelist_extobj_class_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("namelist_extobj_class_done"); + + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,1,namelist_get_objscope); /* get Object Scope */ + } + +/************************************************************************/ +/* namelist_get_objscope */ +/* GetNameList response is being decoded: object scope constructor has */ +/* been encountered, set up to get scope */ +/************************************************************************/ + +static ST_VOID namelist_get_objscope (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("namelist_get_objscope"); + +/* This constructor contains one of three data elements, where the tag */ +/* is the scope identifier. */ + + ASN1R_TAG_ADD (aCtx, CTX,0,namelist_get_vmdscope); + ASN1R_TAG_ADD (aCtx, CTX,1,namelist_get_domscope); + ASN1R_TAG_ADD (aCtx, CTX,2,namelist_get_aascope); + } + +/************************************************************************/ +/* namelist_get_vmdscope */ +/* VMD scope, must be null */ +/************************************************************************/ + +static ST_VOID namelist_get_vmdscope (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("namelist_get_vmdscope"); + + if (aCtx->asn1r_elmnt_len) /* if not NULL */ + { + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + + info->objscope = VMD_SPEC; /* set scope */ + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = namelist_objscope_done; + } + +/************************************************************************/ +/* namelist_get_domscope */ +/* VMD scope, must be null */ +/************************************************************************/ + +static ST_VOID namelist_get_domscope (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("namelist_get_domscope"); + + if ((asn1r_get_identifier (aCtx, info->dname)) || /* read the domain name */ + (info->obj.mms_class == MMS_CLASS_DOM) || + (info->obj.mms_class == MMS_CLASS_PI) || + (info->obj.mms_class == MMS_CLASS_OPER_STA)) + { + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + + info->objscope = DOM_SPEC; /* set scope */ + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = namelist_objscope_done; + } + +/************************************************************************/ +/* namelist_get_aascope */ +/* VMD scope, must be null */ +/************************************************************************/ + +static ST_VOID namelist_get_aascope (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("namelist_get_aascope"); + + if ((aCtx->asn1r_elmnt_len) || /* if not NULL */ + (info->obj.mms_class == MMS_CLASS_DOM) || + (info->obj.mms_class == MMS_CLASS_PI) || + (info->obj.mms_class == MMS_CLASS_OPER_STA) || + (info->obj.mms_class == MMS_CLASS_SEM)) + { + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + + info->objscope = AA_SPEC; /* set scope */ + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = namelist_objscope_done; + } + +/************************************************************************/ +/* namelist_objscope_done */ +/* object scope constructor complete, now the message could be done. */ +/************************************************************************/ + +static ST_VOID namelist_objscope_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("namelist_objscope_done"); + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + ASN1R_TAG_ADD (aCtx, CTX,2,namelist_get_continue_after); + } + +/************************************************************************/ +/* namelist_get_continue_after */ +/* GetNameList response is being decoded: continue after parameter was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID namelist_get_continue_after (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("namelist_get_continue_after"); + + info->cont_after_pres = SD_TRUE; /* read the continue */ + if (asn1r_get_identifier (aCtx, info->continue_after)) /* after parameter */ + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + +/* There are no other data elements in the message. Indicate that the */ +/* end of the message should have been reached, and that all construc- */ +/* tors should have ended at this point. */ + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_namelist_resp */ +/* This function is called from the user to ENCODE and send the */ +/* GetNameList response PDU. */ +/************************************************************************/ + +ST_RET mp_namelist_resp (MMSREQ_IND *indptr, NAMELIST_RESP_INFO *info_ptr) + { + return (_mms_resp_send (MMSOP_GET_NAMLIST,indptr, + M_CAST_MK_FUN (_ms_mk_namel_resp), + (ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_namelist_resp */ +/* This function is called by the user to ENCODE a GetNameList response */ +/* PDU. */ +/************************************************************************/ + +ST_RET mpl_namelist_resp (ST_UINT32 invoke_id, NAMELIST_RESP_INFO *info_ptr) + { + return (_mms_resp_fin (MMSOP_GET_NAMLIST,invoke_id, + M_CAST_MK_FUN (_ms_mk_namel_resp), + (ST_CHAR *)info_ptr)); + } +#endif + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_namel_resp */ +/* Construct a GetNameList RESPONSE: */ +/************************************************************************/ + +ST_VOID _ms_mk_namel_resp (ASN1_ENC_CTXT *aCtx, NAMELIST_RESP_INFO *info_ptr) + { +ST_CHAR **nptr; /* Ptr to array of name ptrs */ +ST_INT i; + + if (!info_ptr -> more_follows) /* if not default value (SD_TRUE) */ + { + asn1r_wr_bool (aCtx, info_ptr -> more_follows); /* write end of list boolean */ + asn1r_fin_prim (aCtx, 1,CTX); + } + + asn1r_strt_constr (aCtx); /* start the 'seqof' names cstr */ + +/* Calculate the address of the first name pointer. */ + + nptr = (ST_CHAR **)(info_ptr + 1); + nptr += (info_ptr->num_names - 1); /* point to last name */ + + for (i=0;i < info_ptr -> num_names;i++) + { + asn1r_wr_vstr (aCtx, *nptr); /* write the list of names */ + asn1r_fin_prim (aCtx, VISTR_CODE,UNI); + nptr--; + } + + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* complete sequence of names */ + asn1r_fin_constr (aCtx, MMSOP_GET_NAMLIST,CTX,DEF); /* complete GetNameList resp */ + } diff --git a/mmslib/mmsl/rs_read.c b/mmslib/mmsl/rs_read.c new file mode 100644 index 0000000..7ccd932 --- /dev/null +++ b/mmslib/mmsl/rs_read.c @@ -0,0 +1,209 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_read.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of variable read. */ +/* It decodes the variable read request (indication) & encodes */ +/* the variable read response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 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/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_REQ_INFO *req_info; +static ST_INT max_vars; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID read_va_spec_cstr (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_get_spec_in_rslt (ASN1_DEC_CTXT *aCtx); + +/************************************************************************/ +/************************************************************************/ +/* mms_read_req */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_read_req (ASN1_DEC_CTXT *aCtx) + { +ST_INT req_size; + + MLOG_CDEC0 ("Variable Read Request"); + +#if defined(FIXED_DECBUF) + max_vars = m_sv_max_read_var_spec; + req_size = mmsl_dec_info_size; +#else + max_vars = _mmsdec_msglen / 4; /* find maximum storage required */ + if (m_sv_max_read_var_spec && (max_vars > m_sv_max_read_var_spec)) + max_vars = m_sv_max_read_var_spec; + req_size = sizeof (READ_REQ_INFO) + (sizeof (VARIABLE_LIST) * max_vars); +#endif + +/* get storage for request information */ + req_info = (READ_REQ_INFO *) _m_get_dec_buf (aCtx, req_size); + req_info->spec_in_result = SD_FALSE; /* set default value */ + ASN1R_TAG_ADD (aCtx, CTX, 0, read_get_spec_in_rslt); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1, read_va_spec_cstr); + } + +/************************************************************************/ +/* read_get_spec_in_rslt */ +/* decoding variable read request: specification in result was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID read_get_spec_in_rslt (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("read_get_spec_in_rslt"); + + req_info->spec_in_result = SD_TRUE; /* specification in rslt pres */ + if (asn1r_get_bool (aCtx, &req_info->spec_in_result)) + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1, read_va_spec_cstr); + } + +/************************************************************************/ +/* read_va_spec_cstr */ +/* decoding variable read request: variable access specification */ +/* constructor was encountered. */ +/************************************************************************/ + +static ST_VOID read_va_spec_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("read_va_spec_cstr"); + + _ms_get_va_spec (aCtx, &req_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 specification */ +/* constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID read_va_spec_cstr_done (ASN1_DEC_CTXT *aCtx) + { +ST_INT req_size; + + /* find actual size for request info */ + req_size = sizeof (READ_REQ_INFO) + + (sizeof (VARIABLE_LIST)*req_info->va_spec.num_of_variables); + + /* give back unused storage */ + _mms_dec_info = (*m_realloc_os_fun) (_mms_dec_info,req_size); + req_info = (READ_REQ_INFO *) _mms_dec_info; + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_read_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE & send the variable read response. */ +/************************************************************************/ + +ST_RET mp_read_resp (MMSREQ_IND *indptr, READ_RESP_INFO *info_ptr) + { + return (_mms_resp_send (MMSOP_READ,indptr, + M_CAST_MK_FUN (_ms_mk_read_resp), + (ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_read_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the variable read response. */ +/************************************************************************/ + +ST_RET mpl_read_resp (ST_UINT32 invoke_id, READ_RESP_INFO *info_ptr) + { + return (_mms_resp_fin (MMSOP_READ,invoke_id, + M_CAST_MK_FUN (_ms_mk_read_resp), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_read_resp */ +/* Construct a variable read response. */ +/************************************************************************/ + +ST_VOID _ms_mk_read_resp (ASN1_ENC_CTXT *aCtx, READ_RESP_INFO *info) + { +ST_INT i; +ACCESS_RESULT *ar_ptr; + + asn1r_strt_constr (aCtx); /* start context tag 1 cstr */ + ar_ptr = info->acc_rslt_list; + ar_ptr += info->num_of_acc_result - 1; + for (i = 0; i < info->num_of_acc_result; i++) + { + _ms_wr_va_access_rslt (aCtx, ar_ptr); + ar_ptr--; + } + asn1r_fin_constr (aCtx, 1,CTX, DEF); /* finish context tag 1 cstr */ + + if (info->va_spec_pres) + { + asn1r_strt_constr (aCtx); /* start context tag 0 cstr */ + _ms_wr_va_spec (aCtx, &info->va_spec); + asn1r_fin_constr (aCtx, 0, CTX, DEF); /* finish context tag 0 cstr */ + } + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_READ,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsl/rs_repea.c b/mmslib/mmsl/rs_repea.c new file mode 100644 index 0000000..0c702db --- /dev/null +++ b/mmslib/mmsl/rs_repea.c @@ -0,0 +1,126 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_repeas.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of the report event */ +/* action status. It decodes the report event action status */ +/* request (indication) and encodes the report event action */ +/* status response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 07 Remove "thisFileName" */ +/* 12/20/01 JRB 06 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 05 Added SD_CONST modifiers */ +/* 03/23/99 MDE 04 Changes to decode buffer allocation scheme */ +/* 06/15/98 MDE 03 Changes to allow compile under C++ */ +/* 07/03/97 MDE 02 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pevn.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static REPEAS_REQ_INFO *req_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID repeas_objname_done (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_repeas_req */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_repeas_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Report Event Action Status Request"); + +/* get storage for request information */ + req_info = (REPEAS_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (REPEAS_REQ_INFO)); + aCtx->asn1r_err_fun = _mms_dec_buf_free; + _ms_get_mms_objname (aCtx, &req_info->evact_name, repeas_objname_done); + } + +/************************************************************************/ +/* repeas_objname_done */ +/* Decoding get event action attributes request: event action name */ +/* has been obtained. */ +/************************************************************************/ + +static ST_VOID repeas_objname_done (ASN1_DEC_CTXT *aCtx) + { + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_repeas_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the report event action status response */ +/************************************************************************/ + +ST_RET mp_repeas_resp (MMSREQ_IND *indptr, REPEAS_RESP_INFO *info_ptr) + { + return (_mms_resp_send (MMSOP_REP_EA_STAT,indptr, + M_CAST_MK_FUN (_ms_mk_repeas_resp), + (ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_repeas_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the report event action status response. */ +/************************************************************************/ + +ST_RET mpl_repeas_resp (ST_UINT32 invoke_id, REPEAS_RESP_INFO *info_ptr) + { + return (_mms_resp_fin (MMSOP_REP_EA_STAT,invoke_id, + M_CAST_MK_FUN (_ms_mk_repeas_resp), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_repeas_resp */ +/* Construct a get event action attributes response. */ +/************************************************************************/ + +ST_VOID _ms_mk_repeas_resp (ASN1_ENC_CTXT *aCtx, REPEAS_RESP_INFO *info) + { + asn1r_wr_u32 (aCtx, info->num_of_ev_enroll); /* write # of event enrollments */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_prim (aCtx, MMSOP_REP_EA_STAT,CTX); /* tag = opcode, ctx */ + } diff --git a/mmslib/mmsl/rs_repec.c b/mmslib/mmsl/rs_repec.c new file mode 100644 index 0000000..5856aba --- /dev/null +++ b/mmslib/mmsl/rs_repec.c @@ -0,0 +1,148 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_repec.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of the report event */ +/* condition status. It decodes the report event condition status */ +/* request (indication) and encodes the report event condition */ +/* status response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 07 Remove "thisFileName" */ +/* 12/20/01 JRB 06 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 05 Added SD_CONST modifiers */ +/* 03/23/99 MDE 04 Changes to decode buffer allocation scheme */ +/* 06/15/98 MDE 03 Changes to allow compile under C++ */ +/* 07/03/97 MDE 02 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pevn.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static REPECS_REQ_INFO *req_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID repecs_objname_done (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_repecs_req */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_repecs_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Report Event Condition Status Request"); + /* get storage for request information */ + req_info = (REPECS_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (REPECS_REQ_INFO)); + _ms_get_mms_objname (aCtx, &req_info->evcon_name, repecs_objname_done); + } + +/************************************************************************/ +/* repecs_objname_done */ +/* Decoding report event condition status request: event condition */ +/* name has been obtained */ +/************************************************************************/ + +static ST_VOID repecs_objname_done (ASN1_DEC_CTXT *aCtx) + { + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_repecs_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the report event condition status */ +/************************************************************************/ + +ST_RET mp_repecs_resp (MMSREQ_IND *indptr, REPECS_RESP_INFO *info_ptr) + { + return (_mms_resp_send (MMSOP_REP_EC_STAT,indptr, + M_CAST_MK_FUN (_ms_mk_repecs_resp), + (ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_repecs_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the report event condition status. */ +/************************************************************************/ + +ST_RET mpl_repecs_resp (ST_UINT32 invoke_id, REPECS_RESP_INFO *info_ptr) + { + return (_mms_resp_fin (MMSOP_REP_EC_STAT,invoke_id, + M_CAST_MK_FUN (_ms_mk_repecs_resp), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_repecs_resp */ +/* Construct a report event condition status response. */ +/************************************************************************/ + +ST_VOID _ms_mk_repecs_resp (ASN1_ENC_CTXT *aCtx, REPECS_RESP_INFO *info) + { + if (info->tti_time_pres) + { /* write tran to idle time */ + asn1r_strt_constr (aCtx); /* start ctx tag 4 constructor */ + _ms_wr_mms_evtime (aCtx, &info->tti_time); + asn1r_fin_constr (aCtx, 4,CTX,DEF); /* finish ctx tag 4 constructor */ + } + + if (info->tta_time_pres) + { /* write tran to active time */ + asn1r_strt_constr (aCtx); /* start ctx tag 3 constructor */ + _ms_wr_mms_evtime (aCtx, &info->tta_time); + asn1r_fin_constr (aCtx, 3,CTX,DEF); /* finish ctx tag 3 constructor */ + } + + if (info->enabled_pres) + { /* write enabled indicator */ + asn1r_wr_bool (aCtx, info->enabled); + asn1r_fin_prim (aCtx, 2,CTX); /* finish ctx tag 2 */ + } + + asn1r_wr_u32 (aCtx, info->num_of_ev_enroll); /* write # of event enrollments */ + asn1r_fin_prim (aCtx, 1, CTX); /* ctx tag 1 */ + + asn1r_wr_i16 (aCtx, info->cur_state); + asn1r_fin_prim (aCtx, 0, CTX); + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_REP_EC_STAT,CTX,DEF); /* tag = opcode, ctx */ + } diff --git a/mmslib/mmsl/rs_repee.c b/mmslib/mmsl/rs_repee.c new file mode 100644 index 0000000..af79040 --- /dev/null +++ b/mmslib/mmsl/rs_repee.c @@ -0,0 +1,142 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_repees.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of the report event */ +/* enrollment status. It decodes the report event enrollment */ +/* status request (indication) and encodes the report event */ +/* enrollment status response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 07 Remove "thisFileName" */ +/* 12/20/01 JRB 06 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 05 Added SD_CONST modifiers */ +/* 03/23/99 MDE 04 Changes to decode buffer allocation scheme */ +/* 06/15/98 MDE 03 Changes to allow compile under C++ */ +/* 07/03/97 MDE 02 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pevn.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static REPEES_REQ_INFO *req_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID repees_objname_done (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_repees_req */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_repees_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Report Event Enrollment Status Request"); + req_info = (REPEES_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (REPEES_REQ_INFO)); + _ms_get_mms_objname (aCtx, &req_info->evenroll_name, repees_objname_done); + } + +/************************************************************************/ +/* repees_objname_done */ +/* Decoding report event enrollment status request: event enrollment */ +/* name has been obtained. */ +/************************************************************************/ + +static ST_VOID repees_objname_done (ASN1_DEC_CTXT *aCtx) + { + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_repees_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE & send the report event enrollment status response */ +/************************************************************************/ + +ST_RET mp_repees_resp (MMSREQ_IND *indptr, REPEES_RESP_INFO *info_ptr) + { + return (_mms_resp_send (MMSOP_REP_EE_STAT,indptr, + M_CAST_MK_FUN (_ms_mk_repees_resp), + (ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_repees_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the report event enrollment status response. */ +/************************************************************************/ + +ST_RET mpl_repees_resp (ST_UINT32 invoke_id, REPEES_RESP_INFO *info_ptr) + { + return (_mms_resp_fin (MMSOP_REP_EE_STAT,invoke_id, + M_CAST_MK_FUN (_ms_mk_repees_resp), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_repees_resp */ +/* Construct a report event enrollment status response. */ +/************************************************************************/ + +ST_VOID _ms_mk_repees_resp (ASN1_ENC_CTXT *aCtx, REPEES_RESP_INFO *info) + { + asn1r_wr_i16 (aCtx, info->cur_state); /* write current state */ + asn1r_fin_prim (aCtx, 4, CTX); /* ctx tag 4 */ + + if (info->alarm_ack_rule_pres) + { + asn1r_wr_i16 (aCtx, info->alarm_ack_rule); /* write alarm ack rule */ + asn1r_fin_prim (aCtx, 3, CTX); /* ctx tag 3 */ + } + + asn1r_wr_i16 (aCtx, info->duration); /* write the duration */ + asn1r_fin_prim (aCtx, 2, CTX); /* ctx tag 2 */ + + if (info->not_lost) + { /* not the default */ + asn1r_wr_u8 (aCtx, info->not_lost); /* write notification lost */ + asn1r_fin_prim (aCtx, 1, CTX); /* ctx tag 1 */ + } + + asn1r_wr_bitstr (aCtx, &info->ec_transitions, 7); + asn1r_fin_prim (aCtx, 0, CTX); + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_REP_EE_STAT,CTX,DEF); /* tag = opcode, ctx */ + } diff --git a/mmslib/mmsl/rs_stat.c b/mmslib/mmsl/rs_stat.c new file mode 100644 index 0000000..33b0e67 --- /dev/null +++ b/mmslib/mmsl/rs_stat.c @@ -0,0 +1,120 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_stat.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the functions to decode a status request */ +/* and encode a status response message. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 07 Remove "thisFileName" */ +/* 12/20/01 JRB 06 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 05 Added SD_CONST modifiers */ +/* 03/23/99 MDE 04 Changes to decode buffer allocation scheme */ +/* 06/15/98 MDE 03 Changes to allow compile under C++ */ +/* 07/03/97 MDE 02 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pvmd.h" +#include "asn1defs.h" + +/************************************************************************/ + +static STATUS_REQ_INFO *info; + + +/************************************************************************/ +/************************************************************************/ +/* mms_status_req */ +/* This function is called from mmsdec to decode a Status request PDU */ +/* after the PDU type has been determined. It sets up the parse of */ +/* the next data element and returns, letting the ASN.1 tools take over.*/ +/************************************************************************/ + +ST_VOID mms_status_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("decode status request"); + + info = (STATUS_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (STATUS_REQ_INFO)); + if (asn1r_get_bool (aCtx, &info -> extended)) /* Read extended flag. */ + { /* If error reading boolean, */ + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); /* stop parse, report error */ + return; /* and return. */ + } + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_status_resp */ +/* This function is called from the user to ENCODE and send the */ +/* Status response PDU. */ +/************************************************************************/ + +ST_RET mp_status_resp (MMSREQ_IND *indptr, STATUS_RESP_INFO *info_ptr) + { + return (_mms_resp_send (MMSOP_STATUS,indptr, + M_CAST_MK_FUN (_ms_mk_stat_resp), + (ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_status_resp */ +/* This function is called by the user to ENCODE the Status response */ +/* PDU. */ +/************************************************************************/ + +ST_RET mpl_status_resp (ST_UINT32 invoke_id, STATUS_RESP_INFO *info_ptr) + { + return (_mms_resp_fin (MMSOP_STATUS,invoke_id, + M_CAST_MK_FUN (_ms_mk_stat_resp), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_stat_req */ +/* ENCODE a Status RESPONSE: */ +/************************************************************************/ + +ST_VOID _ms_mk_stat_resp (ASN1_ENC_CTXT *aCtx, STATUS_RESP_INFO *info_ptr) + { + if (info_ptr->local_detail_pres) /* if present, write the local */ + { /* detail parameter */ + asn1r_wr_bitstr (aCtx, info_ptr->local_detail,info_ptr->local_detail_len); + asn1r_fin_prim (aCtx, 2,CTX); + } + + asn1r_wr_i16 (aCtx, info_ptr->physical_stat); /* write the physical status */ + asn1r_fin_prim (aCtx, 1,CTX); + + asn1r_wr_i16 (aCtx, info_ptr->logical_stat); /* write the logical status */ + asn1r_fin_prim (aCtx, 0,CTX); + +/* Write the context-specific tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_STATUS,CTX,DEF); + } diff --git a/mmslib/mmsl/rs_trige.c b/mmslib/mmsl/rs_trige.c new file mode 100644 index 0000000..9bf3c74 --- /dev/null +++ b/mmslib/mmsl/rs_trige.c @@ -0,0 +1,151 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_trige.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of trigger event. */ +/* It decodes the trigger event request (indication) & encodes */ +/* the trigger event response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 05 Remove "thisFileName" */ +/* 12/20/01 JRB 04 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 03 Added SD_CONST modifiers */ +/* 03/23/99 MDE 02 Changes to decode buffer allocation scheme */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pevn.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static TRIGE_REQ_INFO *req_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID trige_get_priority (ASN1_DEC_CTXT *aCtx); +static ST_VOID trige_name_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID trige_name_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID trige_name_cstr (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_trige_req */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_trige_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Trigger Event Request"); + req_info = (TRIGE_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (TRIGE_REQ_INFO)); + +/* req_info->priority_pres = SD_FALSE; set default values */ + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, trige_name_cstr); + } + +/************************************************************************/ +/* trige_name_cstr */ +/* trigger event request is being decoded: event condition name constr */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID trige_name_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("trige_name_cstr"); + + _ms_get_mms_objname (aCtx, &req_info->evcon_name, trige_name_done); + } + +/************************************************************************/ +/* trige_name_done */ +/* trigger event request is being decoded: event condition name has */ +/* been obtained. */ +/************************************************************************/ + +static ST_VOID trige_name_done (ASN1_DEC_CTXT *aCtx) + { + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = trige_name_cstr_done; + } + +/************************************************************************/ +/* trige_name_cstr_done */ +/* trigger event request is being decoded: event condition name constr */ +/* done was encountered. */ +/************************************************************************/ + +static ST_VOID trige_name_cstr_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("trige_name_done"); + + ASN1R_TAG_ADD (aCtx, CTX, 1, trige_get_priority); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* trige_get_priority */ +/* Decoding trigger event request: priority was encountered. */ +/************************************************************************/ + +static ST_VOID trige_get_priority (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("trige_get_priority"); + + req_info->priority_pres = SD_TRUE; + + if (asn1r_get_u8 (aCtx, &(req_info->priority))) /* read priority */ + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_trige_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the trigger event response. */ +/************************************************************************/ + +ST_RET mp_trige_resp (MMSREQ_IND *indptr) + { + return (_mms_send_null_resp (indptr,MMSOP_TRIGGER_EV)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_trige_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the trigger event response. */ +/************************************************************************/ + +ST_RET mpl_trige_resp (ST_UINT32 invoke_id) + { + return (_mms_fin_null_resp (invoke_id,MMSOP_TRIGGER_EV)); + } +#endif diff --git a/mmslib/mmsl/rs_ustat.c b/mmslib/mmsl/rs_ustat.c new file mode 100644 index 0000000..3aed6b9 --- /dev/null +++ b/mmslib/mmsl/rs_ustat.c @@ -0,0 +1,47 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_ustat.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the functions to decode an Unsolicited */ +/* status request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 03 Remove "thisFileName" */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* Deleted mms_status proto (see mms_dfun.h) */ +/* 09/13/99 MDE 01 Added SD_CONST modifiers */ +/* 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 "asn1defs.h" + +/************************************************************************/ +/************************************************************************/ +/* mms_ustatus_req */ +/* This function is called from mmsdec to decode an UnsolicitedStatus */ +/* request PDU after the PDU type has been determined. It simply calls */ +/* mms_status in the module mmsstat.c. */ +/************************************************************************/ + +ST_VOID mms_ustatus_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("decode unsolicited status reques"); + mms_status (aCtx); + } diff --git a/mmslib/mmsl/rs_write.c b/mmslib/mmsl/rs_write.c new file mode 100644 index 0000000..8988cdb --- /dev/null +++ b/mmslib/mmsl/rs_write.c @@ -0,0 +1,248 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_write.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of variable write. */ +/* It decodes the variable write request (indication) & encodes */ +/* the variable write response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 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++ */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 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 WRITE_REQ_INFO *req_info; + +static VAR_ACC_DATA *data_ptr; +static ST_INT max_vars; +static ST_INT max_data_count; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID write_data_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID write_data_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID write_data_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID write_va_spec_done (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_write_req */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_write_req (ASN1_DEC_CTXT *aCtx) + { +ST_INT req_size; +ST_INT req_size1; +ST_INT req_size2; + + MLOG_CDEC0 ("Variable Write Request"); + +#if defined(FIXED_DECBUF) + max_vars = m_sv_max_write_var_spec; + max_data_count = m_sv_max_write_data; + req_size = mmsl_dec_info_size; +#else + max_vars = _mmsdec_msglen / 7; + max_data_count = _mmsdec_msglen / 3; + + if (m_sv_max_write_var_spec && (max_vars > m_sv_max_write_var_spec)) + max_vars = m_sv_max_write_var_spec; + + if (m_sv_max_write_data && (max_data_count > m_sv_max_write_data)) + max_data_count = m_sv_max_write_data; + +/* Case of list of variables */ + req_size1 = (sizeof(VARIABLE_LIST) + sizeof(VAR_ACC_DATA)) * max_vars; + +/* Case of named variable list */ + req_size2 = sizeof (VAR_ACC_DATA) * max_data_count; + +/* Choose the largest */ + req_size = sizeof (WRITE_REQ_INFO) + max (req_size1, req_size2); +#endif + +/* get storage for request information */ + req_info = (WRITE_REQ_INFO *) _m_get_dec_buf (aCtx, req_size); + _ms_get_va_spec (aCtx, &req_info->va_spec, max_vars, write_va_spec_done); + } + +/************************************************************************/ +/* write_va_spec_done */ +/* decoding variable write request: variable access specification */ +/* has been decoded. */ +/************************************************************************/ + +static ST_VOID write_va_spec_done (ASN1_DEC_CTXT *aCtx) + { +VARIABLE_LIST *temp; + + MLOG_CDEC0 ("write_va_spec_done"); + + temp = (VARIABLE_LIST *) (req_info + 1); + temp += req_info->va_spec.num_of_variables; + + req_info->va_data = (VAR_ACC_DATA *) temp; + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, write_data_cstr); + } + +/************************************************************************/ +/* write_data_cstr */ +/* decoding variable write request: write data constructor was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID write_data_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("write_data_cstr"); + + data_ptr = req_info->va_data; + + _ms_get_va_data (aCtx, data_ptr, write_data_done); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = write_data_cstr_done; + } + +/************************************************************************/ +/* write_data_done */ +/* decoding variable write request: write data has been decoded. */ +/************************************************************************/ + +static ST_VOID write_data_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("write_data_done"); + + req_info->num_of_data++; + if ((req_info->num_of_data + 1) <= max_data_count) + { + data_ptr++; + _ms_get_va_data (aCtx, data_ptr, write_data_done); + } + } + +/************************************************************************/ +/* write_data_cstr_done */ +/* decoding variable write request: write data constructor done was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID write_data_cstr_done (ASN1_DEC_CTXT *aCtx) + { +ST_INT req_size; +VARIABLE_LIST *temp; + + MLOG_CDEC0 ("write_data_cstr_done"); + /* find actual size for request info */ + req_size = sizeof (WRITE_REQ_INFO) + + (sizeof (VARIABLE_LIST)*req_info->va_spec.num_of_variables) + + (sizeof (VAR_ACC_DATA) *req_info->num_of_data); + + /* give back unused storage */ + _mms_dec_info = (*m_realloc_os_fun) (_mms_dec_info,req_size); + req_info = (WRITE_REQ_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 write_req_info */ +/* we have to update the va_data to point to this new mem loc */ + temp = (VARIABLE_LIST *) (req_info + 1); + temp += req_info->va_spec.num_of_variables; + + req_info->va_data = (VAR_ACC_DATA *) temp; + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_write_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE & send the variable write response. */ +/************************************************************************/ + +ST_RET mp_write_resp (MMSREQ_IND *indptr, WRITE_RESP_INFO *info_ptr) + { + return (_mms_resp_send (MMSOP_WRITE,indptr, + M_CAST_MK_FUN (_ms_mk_write_resp), + (ST_CHAR *) info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_write_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE & send the variable write response. */ +/************************************************************************/ + +ST_RET mpl_write_resp (ST_UINT32 invoke_id, WRITE_RESP_INFO *info_ptr) + { + return (_mms_resp_fin (MMSOP_WRITE,invoke_id, + M_CAST_MK_FUN (_ms_mk_write_resp), + (ST_CHAR *) info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_write_resp */ +/* Construct a variable write response. */ +/************************************************************************/ + +ST_VOID _ms_mk_write_resp (ASN1_ENC_CTXT *aCtx, WRITE_RESP_INFO *info) + { +ST_INT i; +WRITE_RESULT *temp; /* index into array of structs */ + + temp = (WRITE_RESULT *) (info + 1); + temp += (info->num_of_result - 1); + for (i = info->num_of_result; i ; --i) + { + if (temp->resp_tag == SD_TRUE) + { /* success, null response */ + asn1r_fin_prim (aCtx, 1, CTX); /* finish context tag 1 prim */ + } + else + { /* failure, write failure code */ + asn1r_wr_i16 (aCtx, temp->failure); + asn1r_fin_prim (aCtx, 0, CTX); /* finish context tag 0 prim */ + } + temp--; + } + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_WRITE,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsle/mms_ced1.c b/mmslib/mmsle/mms_ced1.c new file mode 100644 index 0000000..f015b60 --- /dev/null +++ b/mmslib/mmsle/mms_ced1.c @@ -0,0 +1,448 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : mms_ced1.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains common primitive encode/decode functions */ +/* particular to get and write journal service. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 05 Remove "thisFileName" */ +/* 12/20/01 JRB 04 Converted to use ASN1R (re-entrant ASN1) */ +/* 04/28/00 JRB 03 Lint cleanup */ +/* 09/13/99 MDE 02 Added SD_CONST modifiers */ +/* 08/15/97 MDE 01 BTOD handling changes */ +/* 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_pjou.h" +#include "asn1defs.h" + +/************************************************************************/ +/* global structures & functions */ +/************************************************************************/ + +static ENTRY_CONTENT *ent_cont_ptr; + +static ST_VOID (*get_jou_ent_cont_done) (ASN1_DEC_CTXT *aCtx); +static ST_VOID jec_get_data_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID jec_get_annotation (ASN1_DEC_CTXT *aCtx); +static ST_VOID jec_list_of_var_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID jec_vlist_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID jec_vlist_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID jec_vs_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID jec_value_spec_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID jec_get_var_tag (ASN1_DEC_CTXT *aCtx); +static ST_VOID jec_event_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID jec_get_state (ASN1_DEC_CTXT *aCtx); +static ST_VOID jec_evcon_name_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID jec_ecn_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID jec_evcon_name_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID jec_event_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID jec_data_cstr_done (ASN1_DEC_CTXT *aCtx); +#ifdef CS_SUPPORT +static ST_VOID jec_addl_detail_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID jec_addl_detail_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID jec_get_addl_detail (ASN1_DEC_CTXT *aCtx); +#endif +static ST_VOID jec_get_occur_time (ASN1_DEC_CTXT *aCtx); + +static VAR_INFO *var_info_ptr; + +static ST_INT MAX_DATA_VARS; +static ST_RET ERROR_CODE; + + +/************************************************************************/ +/************************************************************************/ +/* _ms_get_jou_ent_cont */ +/* Function to get a Journal Entry Content from the received message. */ +/************************************************************************/ + +ST_VOID _ms_get_jou_ent_cont (ASN1_DEC_CTXT *aCtx, ENTRY_CONTENT *data_ptr, + ST_INT max_vars, + ST_VOID (*done_fun) (ASN1_DEC_CTXT *aCtx)) + { + /* set decode error for request or response */ + if (_mmsdec_rslt->type == MMSRESP) + ERROR_CODE = RESP_BAD_VALUE; + else + ERROR_CODE = REQ_BAD_VALUE; + + ent_cont_ptr = data_ptr; + MAX_DATA_VARS = max_vars; + get_jou_ent_cont_done = done_fun; + + ent_cont_ptr->addl_detail_pres = SD_FALSE; /* set default values */ + ent_cont_ptr->entry_form_tag = 0; + ASN1R_TAG_ADD (aCtx, CTX, 0, jec_get_occur_time); + } + +/************************************************************************/ +/* jec_get_occur_time */ +/* journal entry content is being decoded: occurrence time was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID jec_get_occur_time (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jec_get_occur_time"); + /* read time from message */ + if (asn1r_get_btod (aCtx, &ent_cont_ptr->occur_time)) + asn1r_set_dec_err (aCtx, ERROR_CODE); + +#ifdef CS_SUPPORT + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1, jec_get_addl_detail); +#endif + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 2, jec_get_data_cstr); + ASN1R_TAG_ADD (aCtx, CTX, 3, jec_get_annotation); + + /* set cstr done function */ + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = get_jou_ent_cont_done; + } + +#ifdef CS_SUPPORT +/************************************************************************/ +/* jec_get_addl_detail */ +/* journal entry content is being decoded: additional detail was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID jec_get_addl_detail (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jec_get_addl_detail"); + + ent_cont_ptr->addl_detail_pres = SD_TRUE; /* set addl detail pres */ + + /* leave additional detail in place; just parse it. */ + ent_cont_ptr->addl_detail = aCtx->asn1r_field_ptr; + asn1r_parse_next (aCtx, jec_addl_detail_done); + } + +/************************************************************************/ +/* jec_addl_detail_done */ +/* journal entry content is being decoded: additional detail has been */ +/* parsed. */ +/************************************************************************/ + +static ST_VOID jec_addl_detail_done (ASN1_DEC_CTXT *aCtx) + { + + ent_cont_ptr->addl_detail_len = aCtx->asn1r_octetcount; /* save length */ + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = jec_addl_detail_cstr_done; + } + +/************************************************************************/ +/* jec_addl_detail_cstr_done */ +/* journal entry content is being decoded: additional detail cstr done */ +/* has been encountered. */ +/************************************************************************/ + +static ST_VOID jec_addl_detail_cstr_done (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 2, jec_get_data_cstr); + ASN1R_TAG_ADD (aCtx, CTX, 3, jec_get_annotation); + } +#endif + +/************************************************************************/ +/* jec_get_data_cstr */ +/* journal entry content is being decoded: data constructor was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID jec_get_data_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jec_get_data_cstr"); + + ent_cont_ptr->entry_form_tag = 2; /* set data form tag */ + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, jec_event_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1, jec_list_of_var_cstr); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = jec_data_cstr_done; + } + +/************************************************************************/ +/* jec_event_cstr */ +/* journal entry content is being decoded: event cstr was encountered. */ +/************************************************************************/ + +static ST_VOID jec_event_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jec_event_cstr"); + + ent_cont_ptr->ef.data.event_pres = SD_TRUE; /* set event present */ + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, jec_evcon_name_cstr); + } + +/************************************************************************/ +/* jec_evcon_name_cstr */ +/* journal entry content is being decoded: event condition name cstr */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID jec_evcon_name_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jec_evcon_name_cstr"); + + _ms_get_mms_objname (aCtx, &ent_cont_ptr->ef.data.evcon_name, jec_ecn_done); + } + +/************************************************************************/ +/* jec_ecn_done */ +/* journal entry content is being decoded: event condition name has */ +/* been obtained. */ +/************************************************************************/ + +static ST_VOID jec_ecn_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jec_ecn_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = jec_evcon_name_cstr_done; + } + +/************************************************************************/ +/* jec_evcon_name_cstr_done */ +/* journal entry content is being decoded: event condition name cstr */ +/* done was encountered. */ +/************************************************************************/ + +static ST_VOID jec_evcon_name_cstr_done (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, CTX, 1, jec_get_state); + } + +/************************************************************************/ +/* jec_get_state */ +/* journal entry content is being decoded: current state was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID jec_get_state (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jec_get_state"); + /* read time from message */ + if (asn1r_get_i16 (aCtx, &ent_cont_ptr->ef.data.cur_state) || + (ent_cont_ptr->ef.data.cur_state < 0) || + (ent_cont_ptr->ef.data.cur_state > 2)) + asn1r_set_dec_err (aCtx, UNCONF_BAD_VALUE); + /* set cstr done function */ + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = jec_event_cstr_done; + } + +/************************************************************************/ +/* jec_event_cstr_done */ +/* journal entry content is being decoded: event cstr done was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID jec_event_cstr_done (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1, jec_list_of_var_cstr); + } + +/************************************************************************/ +/* jec_list_of_var_cstr */ +/* journal entry content is being decoded: list of variables cstr was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID jec_list_of_var_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jec_list_of_var_cstr"); + + ent_cont_ptr->ef.data.list_of_var_pres = SD_TRUE; + + ent_cont_ptr->ef.data.num_of_var = 0; /* initialize # of variables */ + /* initialize var list pointer*/ + var_info_ptr = (VAR_INFO *) (ent_cont_ptr + 1); + + ASN1R_TAG_ADD (aCtx, UNI | CONSTR, SEQ_CODE, jec_vlist_cstr); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = NULL; + } + +/************************************************************************/ +/* jec_vlist_cstr */ +/* journal entry content is being decoded: variable list constructor */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID jec_vlist_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jec_vlist_cstr"); + + ent_cont_ptr->ef.data.num_of_var++; /* increment # of variables */ + if (ent_cont_ptr->ef.data.num_of_var > MAX_DATA_VARS) + asn1r_set_dec_err (aCtx, ERROR_CODE); + + ASN1R_TAG_ADD (aCtx, CTX, 0, jec_get_var_tag); + } + +/************************************************************************/ +/* jec_get_var_tag */ +/* journal entry content is being decoded: variable tag was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID jec_get_var_tag (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jec_get_var_tag"); + + /* copy variable tag back onto itself shifted by 1 char */ + var_info_ptr->var_tag = (ST_CHAR *) aCtx->asn1r_field_ptr - 1; + + /* read variable tag from message */ + if (asn1r_get_vstr (aCtx, var_info_ptr->var_tag)) + asn1r_set_dec_err (aCtx, ERROR_CODE); + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1, jec_value_spec_cstr); + } + +/************************************************************************/ +/* jec_value_spec_cstr */ +/* journal entry content is being decoded: value specification cstr */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID jec_value_spec_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jec_value_spec_cstr"); + + _ms_get_va_data (aCtx, &var_info_ptr->value_spec, jec_vs_done); + } + +/************************************************************************/ +/* jec_vs_done */ +/* journal entry content is being decoded: value specification has been */ +/* obtained. */ +/************************************************************************/ + +static ST_VOID jec_vs_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jec_vs_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = NULL; + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level-1] = jec_vlist_cstr_done; + } + +/************************************************************************/ +/* jec_vlist_cstr_done */ +/* journal entry content is being decoded: variable list constructor */ +/* done was encountered. */ +/************************************************************************/ + +static ST_VOID jec_vlist_cstr_done (ASN1_DEC_CTXT *aCtx) + { + var_info_ptr++; /* point to where next will go */ + + ASN1R_TAG_ADD (aCtx, UNI | CONSTR, SEQ_CODE, jec_vlist_cstr); + } + +/************************************************************************/ +/* jec_data_cstr_done */ +/* journal entry content is being decoded: data constructor done was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID jec_data_cstr_done (ASN1_DEC_CTXT *aCtx) + { + } + +/************************************************************************/ +/* jec_get_annotation */ +/* journal entry content is being decoded: annotation was encountered. */ +/************************************************************************/ + +static ST_VOID jec_get_annotation (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jec_get_annotation"); + + /* copy annotation back onto itself shifted by 1 char */ + + ent_cont_ptr->entry_form_tag = 3; + ent_cont_ptr->ef.annotation = (ST_CHAR *) aCtx->asn1r_field_ptr - 1; + + if (asn1r_get_vstr (aCtx, ent_cont_ptr->ef.annotation)) /* read annotation */ + asn1r_set_dec_err (aCtx, ERROR_CODE); + } + + +/************************************************************************/ +/************************************************************************/ +/* _ms_wr_jou_ent_cont */ +/* Function to write a Journal Entry Content to the message. */ +/************************************************************************/ + +ST_VOID _ms_wr_jou_ent_cont (ASN1_ENC_CTXT *aCtx, ENTRY_CONTENT *data_ptr) + { +VAR_INFO *vi_ptr; +ST_INT i; + + if (data_ptr->entry_form_tag == 3) + { /* write annotation */ + asn1r_wr_vstr (aCtx, data_ptr->ef.annotation); + asn1r_fin_prim (aCtx, 3, CTX); /* context tag 3 */ + } + else + { + asn1r_strt_constr (aCtx); /* start context tag 2 cstr */ + if (data_ptr->ef.data.list_of_var_pres) + { + asn1r_strt_constr (aCtx); /* start context tag 1 cstr */ + vi_ptr = (VAR_INFO *) (data_ptr + 1); + vi_ptr += data_ptr->ef.data.num_of_var - 1; + for (i = 0; i < data_ptr->ef.data.num_of_var; i++) + { + asn1r_strt_constr (aCtx); /* start universal sequece cstr */ + asn1r_strt_constr (aCtx); /* start context tag 1 cstr */ + _ms_wr_va_data (aCtx, &vi_ptr->value_spec); + asn1r_fin_constr (aCtx, 1, CTX, DEF); /* finish context tag 1 cstr */ + asn1r_wr_vstr (aCtx, vi_ptr->var_tag); + asn1r_fin_prim (aCtx, 0, CTX); + asn1r_fin_constr (aCtx, SEQ_CODE, UNI, DEF); + vi_ptr--; /* point to previous var name */ + } + asn1r_fin_constr (aCtx, 1, CTX, DEF); /* finish context tag 1 cstr */ + } + if (data_ptr->ef.data.event_pres) + { + asn1r_strt_constr (aCtx); /* start context tag 0 cstr */ + asn1r_wr_i16 (aCtx, data_ptr->ef.data.cur_state);/* write the current state */ + asn1r_fin_prim (aCtx, 1,CTX); /* context tag 1 */ + asn1r_strt_constr (aCtx); /* start context tag 0 cstr */ + _ms_wr_mms_objname (aCtx, &data_ptr->ef.data.evcon_name); + asn1r_fin_constr (aCtx, 0, CTX, DEF); /* finish context tag 0 cstr */ + asn1r_fin_constr (aCtx, 0, CTX, DEF); /* finish context tag 0 cstr */ + } + asn1r_fin_constr (aCtx, 2, CTX, DEF); /* finish context tag 2 cstr */ + } + + if (data_ptr->addl_detail_pres) + { + asn1r_strt_constr (aCtx); /* start context tag 1 cstr */ + asn1r_wr_delmnt (aCtx, data_ptr->addl_detail,data_ptr->addl_detail_len); + asn1r_fin_constr (aCtx, 1, CTX, DEF); /* context tag 1 */ + } + /* select short form if not present */ + asn1r_wr_btod (aCtx, &data_ptr->occur_time); + asn1r_fin_prim (aCtx, 0, CTX); /* context tag 0 */ + } diff --git a/mmslib/mmsle/mms_ced2.c b/mmslib/mmsle/mms_ced2.c new file mode 100644 index 0000000..c122451 --- /dev/null +++ b/mmslib/mmsle/mms_ced2.c @@ -0,0 +1,115 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : mms_ced2.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains common primitive encode/decode functions */ +/* particular getting and writing filenames. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 03 Remove "thisFileName" */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 01 Added SD_CONST modifiers */ +/* 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 "asn1defs.h" + +/************************************************************************/ + +static ST_VOID fname_get_name (ASN1_DEC_CTXT *aCtx); + +/************************************************************************/ +/* global structures & functions */ +/************************************************************************/ + +static FILE_NAME *fname_ptr; + + +static ST_INT MAX_FNAMES; +static ST_INT *fname_count; +static ST_RET ERROR_CODE; + + +/************************************************************************/ +/************************************************************************/ +/* _ms_get_mms_fname */ +/************************************************************************/ + +ST_VOID _ms_get_mms_fname (ASN1_DEC_CTXT *aCtx, FILE_NAME *data_ptr, ST_INT ptr_len, + ST_INT *num_of_names_ptr) + { + MLOG_CDEC0 ("_ms_get_mms_fname"); + + if (_mmsdec_rslt->type == MMSRESP) + ERROR_CODE = RESP_BAD_VALUE; + else + ERROR_CODE = REQ_BAD_VALUE; + + fname_ptr = data_ptr; /* save the addr of the array */ + MAX_FNAMES = ptr_len; /* save the array upper bounds */ + fname_count = num_of_names_ptr; /* save the ptr to the count */ + ASN1R_TAG_ADD (aCtx, UNI, GRAFSTR_CODE, fname_get_name); + } + +/************************************************************************/ +/* fname_get_name */ +/************************************************************************/ + +static ST_VOID fname_get_name (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("fname_get_name"); + + (*fname_count)++; /* increment # of file names */ + if (*fname_count > MAX_FNAMES) + { + asn1r_set_dec_err (aCtx, ERROR_CODE); + return; + } + /* save file name pointer & length */ + fname_ptr->fn_len = aCtx->asn1r_elmnt_len; + fname_ptr->fname = (ST_CHAR *) aCtx->asn1r_field_ptr; + asn1r_get_octstr (aCtx, (ST_UCHAR *) fname_ptr->fname); + + fname_ptr++; /* point to where next will go */ + + ASN1R_TAG_ADD (aCtx, UNI, GRAFSTR_CODE, fname_get_name); + } + + +/************************************************************************/ +/************************************************************************/ +/* _ms_wr_mms_fname */ +/* encode a list of file names. */ +/************************************************************************/ + +ST_VOID _ms_wr_mms_fname (ASN1_ENC_CTXT *aCtx, FILE_NAME *data_ptr, ST_INT len) + { +ST_INT i; +FILE_NAME *fn_ptr; + + fn_ptr = data_ptr; + fn_ptr += len - 1; /* point to last file name */ + for (i = 0; i < len; i++) + { + asn1r_wr_octstr (aCtx, (ST_UCHAR *) fn_ptr->fname,fn_ptr->fn_len);/* file name */ + asn1r_fin_prim (aCtx, GRAFSTR_CODE,UNI); /* universal grafstring */ + fn_ptr--; + } + } diff --git a/mmslib/mmsle/rq_altec.c b/mmslib/mmsle/rq_altec.c new file mode 100644 index 0000000..a064b74 --- /dev/null +++ b/mmslib/mmsle/rq_altec.c @@ -0,0 +1,124 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_altec.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of alter event */ +/* condition monitoring. It decodes the alter event condition */ +/* monitoring response (confirm) & encodes the alter event */ +/* condition monitoring request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 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_pevn.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : NONE */ + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + + +/************************************************************************/ +/************************************************************************/ +/* mms_altecm_rsp */ +/* NOTE : Since the mms_altecm_rsp is a NULL PDU, the decode is */ +/* continued by '_mms_null_pdu_dec', which simply sets decode done = 1 */ +/* and sets the decode done function to point to the general decode done*/ +/* fun. See mmsdec.c for the general functions. */ +/************************************************************************/ + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_altecm */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the alter event condition monitoring */ +/* request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_altecm (ST_INT chan, ALTECM_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_ALT_EC_MON, + M_CAST_MK_FUN (_ms_mk_altecm_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_altecm */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the alter event condition monitoring request. */ +/************************************************************************/ + +ST_RET mpl_altecm (ALTECM_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_ALT_EC_MON, + M_CAST_MK_FUN (_ms_mk_altecm_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_altecm_req */ +/* ENCODE a alter event condition monitoring REQUEST: */ +/************************************************************************/ + +ST_VOID _ms_mk_altecm_req (ASN1_ENC_CTXT *aCtx, ALTECM_REQ_INFO *info) + { + if (info->eval_int_pres) + { + asn1r_wr_u32 (aCtx, info->eval_int); /* write evaluation interval */ + asn1r_fin_prim (aCtx, 4, CTX); /* ctx tag 4 */ + } + + if (info->as_reports_pres) + { + asn1r_wr_bool (aCtx, info->as_reports); /* write alarm summary reports */ + asn1r_fin_prim (aCtx, 3, CTX); /* ctx tag 3 */ + } + + if (info->priority_pres) + { + asn1r_wr_u8 (aCtx, info->priority); /* write the priority */ + asn1r_fin_prim (aCtx, 2, CTX); /* ctx tag 2 */ + } + + if (info->enabled_pres) + { + asn1r_wr_bool (aCtx, info->enabled); /* write enabled */ + asn1r_fin_prim (aCtx, 1, CTX); /* ctx tag 1 */ + } + + asn1r_strt_constr (aCtx); /* start ctx tag 0 constructor */ + _ms_wr_mms_objname (aCtx, &info->evcon_name); /* write event cond mon name */ + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* context specific tag 0 */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_ALT_EC_MON,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsle/rq_altee.c b/mmslib/mmsle/rq_altee.c new file mode 100644 index 0000000..c0d6e07 --- /dev/null +++ b/mmslib/mmsle/rq_altee.c @@ -0,0 +1,233 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_altee.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of alter event */ +/* enrollment. It decodes the alter event enrollment response */ +/* (confirm) & encodes the alter event enrollment request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 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++ */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 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_pevn.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static ALTEE_RESP_INFO *rsp_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID altee_cur_state_cstr (ASN1_DEC_CTXT *ac); +static ST_VOID altee_get_state (ASN1_DEC_CTXT *ac); +static ST_VOID altee_get_undef (ASN1_DEC_CTXT *ac); +static ST_VOID altee_cur_state_cstr_done (ASN1_DEC_CTXT *ac); +static ST_VOID altee_ttime_cstr (ASN1_DEC_CTXT *ac); +static ST_VOID altee_ttime_done (ASN1_DEC_CTXT *ac); +static ST_VOID altee_ttime_cstr_done (ASN1_DEC_CTXT *ac); + + +/************************************************************************/ +/************************************************************************/ +/* mms_altee_rsp */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_altee_rsp (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Alter Event Enrollment Response"); + +/* get storage for request information */ + rsp_info = (ALTEE_RESP_INFO *) _m_get_dec_buf (aCtx, sizeof (ALTEE_RESP_INFO)); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, altee_cur_state_cstr); + } + +/************************************************************************/ +/* altee_cur_state_cstr */ +/* Decoding alter event enrollment response: current state constructor */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID altee_cur_state_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("altee_cur_state_cstr"); + + ASN1R_TAG_ADD (aCtx, CTX, 0, altee_get_state); + ASN1R_TAG_ADD (aCtx, CTX, 1, altee_get_undef); + } + +/************************************************************************/ +/* altee_get_state */ +/* Decoding alter event enrollment request: state was encountered. */ +/************************************************************************/ + +static ST_VOID altee_get_state (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("altee_get_state"); + + rsp_info->cur_state_tag = 0; /* set tag to state */ + + if (asn1r_get_i16 (aCtx, &(rsp_info->state))) + { /* read the state */ + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + else if ((rsp_info->state < 0) || (rsp_info->state > 7)) + { + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = altee_cur_state_cstr_done; + } + +/************************************************************************/ +/* altee_get_undef */ +/* Decoding alter event enrollment request: undefined was encountered. */ +/************************************************************************/ + +static ST_VOID altee_get_undef (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("altee_get_undef"); + + rsp_info->cur_state_tag = 1; /* set tag to undefined */ + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = altee_cur_state_cstr_done; + } + +/************************************************************************/ +/* altee_cur_state_cstr_done */ +/* Decoding alter event enrollment response: current state constructor */ +/* done was encountered. */ +/************************************************************************/ + +static ST_VOID altee_cur_state_cstr_done (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1, altee_ttime_cstr); + } + +/************************************************************************/ +/* altee_ttime_cstr */ +/* Decoding alter event enrollment response: transition time constr */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID altee_ttime_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("altee_ttime_cstr"); + + _ms_get_mms_evtime (aCtx, &rsp_info->trans_time, altee_ttime_done); + } + +/************************************************************************/ +/* altee_ttime_done */ +/* Decoding alter event enrollment response: transition time has been */ +/* obtained. */ +/************************************************************************/ + +static ST_VOID altee_ttime_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("altee_ttime_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = altee_ttime_cstr_done; + } + +/************************************************************************/ +/* altee_ttime_cstr_done */ +/* Decoding alter event enrollment response: transition time constr */ +/* done was encountered. */ +/************************************************************************/ + +static ST_VOID altee_ttime_cstr_done (ASN1_DEC_CTXT *aCtx) + { + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_altee */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the alter event enrollment request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_altee (ST_INT chan, ALTEE_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_ALT_EE, + M_CAST_MK_FUN (_ms_mk_altee_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_altee */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the alter event enrollment request. */ +/************************************************************************/ + +ST_RET mpl_altee (ALTEE_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_ALT_EE, + M_CAST_MK_FUN (_ms_mk_altee_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_altee_req */ +/* ENCODE a alter event enrollment REQUEST: */ +/************************************************************************/ + +ST_VOID _ms_mk_altee_req (ASN1_ENC_CTXT *aCtx, ALTEE_REQ_INFO *info) + { + if (info->alarm_ack_rule_pres) + { + asn1r_wr_i16 (aCtx, info->alarm_ack_rule); + asn1r_fin_prim (aCtx, 2, CTX); + } + + if (info->ec_transitions_pres) + { + asn1r_wr_bitstr (aCtx, &info->ec_transitions, 7); + asn1r_fin_prim (aCtx, 1, CTX); + } + + asn1r_strt_constr (aCtx); /* start ctx tag 0 constructor */ + _ms_wr_mms_objname (aCtx, &info->evenroll_name);/* write event enrollment name */ + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* context specific tag 0 */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_ALT_EE,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsle/rq_crepi.c b/mmslib/mmsle/rq_crepi.c new file mode 100644 index 0000000..9fb7c51 --- /dev/null +++ b/mmslib/mmsle/rq_crepi.c @@ -0,0 +1,122 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_crepi.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of create program */ +/* invocation. It decodes the create program invocation response */ +/* (confirm) & encodes the create program invocation request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 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_pprg.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : NONE */ + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +/************************************************************************/ +/************************************************************************/ +/* mms_create_pi_rsp */ +/* NOTE: Since the mms_create_pi_rsp is a NULL PDU, the decode is */ +/* continued by '_mms_null_pdu_dec', which simply sets decode done = 1 */ +/* and sets the decode done function to point to the general decode */ +/* done fun. See mmsdec.c for the general functions. */ +/************************************************************************/ + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_crepi */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the create program invocation request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_crepi (ST_INT chan, CREPI_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_CREATE_PI, + M_CAST_MK_FUN (_ms_mk_crepi_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_crepi */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the create program invocation request. */ +/************************************************************************/ + +ST_RET mpl_crepi (CREPI_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_CREATE_PI, + M_CAST_MK_FUN (_ms_mk_crepi_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_crepi_req */ +/* construct a create program invocation request */ +/************************************************************************/ + +ST_VOID _ms_mk_crepi_req (ASN1_ENC_CTXT *aCtx, CREPI_REQ_INFO *info) + { +ST_INT i; +ST_CHAR **dom_ptr; + + if (info->monitor_pres) + { + asn1r_wr_bool (aCtx, info->monitor); /* write the monitor flag */ + asn1r_fin_prim (aCtx, 3,CTX); /* ctx tag 3 */ + } + + if (!info->reusable) /* SD_TRUE is default */ + { + asn1r_wr_bool (aCtx, info->reusable); /* write the re-usable flag */ + asn1r_fin_prim (aCtx, 2,CTX); /* ctx tag 2 */ + } + /* Write list of Domain Names */ + asn1r_strt_constr (aCtx); /* start ctx tag 1 constructor */ + dom_ptr = (ST_CHAR **) (info + 1); + dom_ptr += (info->num_of_dnames - 1); /* point to last domain name */ + for (i = 0; i < info->num_of_dnames; i++) + { + asn1r_wr_vstr (aCtx, *dom_ptr); + asn1r_fin_prim (aCtx, VISTR_CODE, UNI); + dom_ptr--; + } + asn1r_fin_constr (aCtx, 1,CTX,DEF); /* ctx tag 1 constructor */ + + asn1r_wr_vstr (aCtx, info->piname); /* write pgm invocation name */ + asn1r_fin_prim (aCtx, 0,CTX); /* ctx tag 0 */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_CREATE_PI,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsle/rq_defea.c b/mmslib/mmsle/rq_defea.c new file mode 100644 index 0000000..30f5e45 --- /dev/null +++ b/mmslib/mmsle/rq_defea.c @@ -0,0 +1,125 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_defea.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of define event */ +/* action. It decodes the define event action response (confirm) */ +/* & encodes the define event action request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 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_pevn.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : NONE */ + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + + +/************************************************************************/ +/************************************************************************/ +/* mms_defea_rsp */ +/* NOTE : Since the mms_defea_rsp is a NULL PDU, the decode is */ +/* continued by '_mms_null_pdu_dec', which simply sets decode done = 1 */ +/* and sets the decode done function to point to the general decode done*/ +/* fun. See mmsdec.c for the general functions. */ +/************************************************************************/ + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_defea */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the define event action request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_defea (ST_INT chan, DEFEA_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_DEF_EA, + M_CAST_MK_FUN (_ms_mk_defea_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_defea */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the define event action request. */ +/************************************************************************/ + +ST_RET mpl_defea (DEFEA_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_DEF_EA, + M_CAST_MK_FUN (_ms_mk_defea_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_defea_req */ +/* ENCODE a define event action REQUEST: */ +/************************************************************************/ + +ST_VOID _ms_mk_defea_req (ASN1_ENC_CTXT *aCtx, DEFEA_REQ_INFO *info) + { +#ifdef MOD_SUPPORT +MODIFIER *mod_ptr; +#endif + +#ifdef CS_SUPPORT /* if companion standards are supported */ + if (info->cs_rdetail_pres) /* check for CS request detail */ + { + asn1r_strt_constr (aCtx); /* start ctx tag 79 constructor */ + asn1r_wr_delmnt (aCtx, info->cs_rdetail, info->cs_rdetail_len); + asn1r_fin_constr (aCtx, 79, CTX, DEF); /* CS is cstr 79 */ + } +#endif + + asn1r_strt_constr (aCtx); /* start ctx tag 2 constructor */ + asn1r_wr_delmnt (aCtx, info->conf_serv_req,info->conf_serv_req_len); + asn1r_fin_constr (aCtx, 2,CTX,DEF); /* finish ctx tag 2 constructor */ + +#ifdef MOD_SUPPORT + if (info->modlist_pres) + { + mod_ptr = (MODIFIER *) (info + 1); + asn1r_strt_constr (aCtx); /* start ctx tag 1 constructor */ + _ms_wr_mms_modlist (aCtx, mod_ptr, info->num_of_modifiers); + asn1r_fin_constr (aCtx, 1,CTX,DEF); /* finish ctx tag 1 constructor */ + } +#endif + + asn1r_strt_constr (aCtx); /* start ctx tag 0 constructor */ + _ms_wr_mms_objname (aCtx, &info->evact_name); /* write event action name */ + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* context specific tag 0 */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_DEF_EA,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsle/rq_defec.c b/mmslib/mmsle/rq_defec.c new file mode 100644 index 0000000..3e125cd --- /dev/null +++ b/mmslib/mmsle/rq_defec.c @@ -0,0 +1,131 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_defec.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of define event */ +/* condition. It decodes the define event condition response */ +/* (confirm) & encodes the define event condition request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 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_pevn.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : NONE */ + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +/************************************************************************/ +/************************************************************************/ +/* mms_defec_rsp */ +/* NOTE : Since the mms_defec_rsp is a NULL PDU, the decode is */ +/* continued by '_mms_null_pdu_dec', which simply sets decode done = 1 */ +/* and sets the decode done function to point to the general decode done*/ +/* fun. See mmsdec.c for the general functions. */ +/************************************************************************/ + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_defec */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the define event condition request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_defec (ST_INT chan, DEFEC_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_DEF_EC, + M_CAST_MK_FUN (_ms_mk_defec_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_defec */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the define event condition request. */ +/************************************************************************/ + +ST_RET mpl_defec (DEFEC_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_DEF_EC, + M_CAST_MK_FUN (_ms_mk_defec_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_defec_req */ +/* ENCODE a define event condition REQUEST: */ +/************************************************************************/ + +ST_VOID _ms_mk_defec_req (ASN1_ENC_CTXT *aCtx, DEFEC_REQ_INFO *info) + { + if (info->eval_int_pres) + { + asn1r_wr_u32 (aCtx, info->eval_interval); /* write evaluation interval */ + asn1r_fin_prim (aCtx, 7, CTX); /* ctx tag 7 */ + } + + if (info->mon_var_pres) + { /* write variable specification */ + asn1r_strt_constr (aCtx); /* start ctx tag 6 constructor */ + _ms_wr_va_var_spec (aCtx, &info->var_ref); + asn1r_fin_constr (aCtx, 6, CTX, DEF); /* finish ctx tag 6 */ + } + + if (info->as_reports_pres) + { + asn1r_wr_bool (aCtx, info->as_reports); /* write alarm summary reports */ + asn1r_fin_prim (aCtx, 4, CTX); /* ctx tag 4 */ + } + + if (info->severity != MMS_NORM_SEVERITY) + { /* not the default */ + asn1r_wr_u8 (aCtx, info->severity); + asn1r_fin_prim (aCtx, 3, CTX); + } + + if (info->priority != MMS_NORM_PRIORITY) + { /* not the default */ + asn1r_wr_u8 (aCtx, info->priority); + asn1r_fin_prim (aCtx, 2, CTX); + } + + asn1r_wr_i16 (aCtx, info->eclass); + asn1r_fin_prim (aCtx, 1, CTX); + + asn1r_strt_constr (aCtx); /* start ctx tag 0 constructor */ + _ms_wr_mms_objname (aCtx, &info->evcon_name); /* write event condition name */ + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* context specific tag 0 */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_DEF_EC,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsle/rq_defsc.c b/mmslib/mmsle/rq_defsc.c new file mode 100644 index 0000000..4360abc --- /dev/null +++ b/mmslib/mmsle/rq_defsc.c @@ -0,0 +1,100 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_defscat.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of define scattered */ +/* access. It decodes the define scattered access response */ +/* (confirm) & encodes the define scattered access request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 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 : NONE */ + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + + +/************************************************************************/ +/************************************************************************/ +/* mms_def_scat_rsp */ +/* NOTE : Since the mms_def_scat_rsp is a NULL PDU, the decode is */ +/* continued by '_mms_null_pdu_dec', which simply sets decode done = 1 */ +/* and sets the decode done function to point to the general decode done*/ +/* fun. See mmsdec.c for the general functions. */ +/************************************************************************/ + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_defscat */ +/* Create and send a define scattered access request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_defscat (ST_INT chan, DEFSCAT_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_DEF_SCAT, + M_CAST_MK_FUN (_ms_mk_defscat_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_defscat */ +/* Create a define scattered access request. */ +/************************************************************************/ + +ST_RET mpl_defscat (DEFSCAT_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_DEF_SCAT, + M_CAST_MK_FUN (_ms_mk_defscat_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_defscat_req */ +/* construct a define scattered access request */ +/************************************************************************/ + +ST_VOID _ms_mk_defscat_req (ASN1_ENC_CTXT *aCtx, DEFSCAT_REQ_INFO *info_ptr) + { + asn1r_strt_constr (aCtx); /* start context tag 1 cstr */ + _ms_wr_va_scat_access (aCtx, &info_ptr->sa_descr); + asn1r_fin_constr (aCtx, 1, CTX, DEF); /* finish context tag 1 cstr */ + + asn1r_strt_constr (aCtx); /* start context tag 0 cstr */ + _ms_wr_mms_objname (aCtx, &info_ptr->sa_name); + asn1r_fin_constr (aCtx, 0, CTX, DEF); /* finish context tag 0 cstr */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_DEF_SCAT,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsle/rq_defse.c b/mmslib/mmsle/rq_defse.c new file mode 100644 index 0000000..2c64429 --- /dev/null +++ b/mmslib/mmsle/rq_defse.c @@ -0,0 +1,104 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_defsem.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of the define */ +/* semaphore. It decodes the define semaphore response (confirm) */ +/* and encodes the define semaphore request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 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_psem.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : NONE */ + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +/************************************************************************/ +/************************************************************************/ +/* mms_defsem_rsp */ +/* NOTE : Since the mms_defsem_rsp is a NULL PDU, the decode is */ +/* continued by '_mms_null_pdu_dec', which simply sets decode done = 1 */ +/* and sets the decode done function to point to the general decode done*/ +/* fun. See mmsdec.c for the general functions. */ +/************************************************************************/ + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_defsem */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the define semaphore request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_defsem (ST_INT chan, DEFSEM_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_DEFINE_SEM, + M_CAST_MK_FUN (_ms_mk_defsem_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_defsem */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the define semaphore request. */ +/************************************************************************/ + +ST_RET mpl_defsem (DEFSEM_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_DEFINE_SEM, + M_CAST_MK_FUN (_ms_mk_defsem_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_defsem_req */ +/* construct a define semaphore request */ +/************************************************************************/ + +ST_VOID _ms_mk_defsem_req (ASN1_ENC_CTXT *aCtx, DEFSEM_REQ_INFO *info) + { + asn1r_strt_constr (aCtx); /* start sequence constr */ + + asn1r_wr_u16 (aCtx, info->num_of_tokens); /* write number of named tokens */ + asn1r_fin_prim (aCtx, 1, CTX); /* context tag 1 */ + + asn1r_strt_constr (aCtx); /* object name constructor */ + + _ms_wr_mms_objname (aCtx, &info->sem_name); /* write the object name */ + + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* context tag 0 */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_DEFINE_SEM,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsle/rq_defty.c b/mmslib/mmsle/rq_defty.c new file mode 100644 index 0000000..b2a8d72 --- /dev/null +++ b/mmslib/mmsle/rq_defty.c @@ -0,0 +1,96 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_deftype.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of define named */ +/* type. It decodes the define named type response (confirm) & */ +/* encodes the define named type request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 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 : NONE */ + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + + +/************************************************************************/ +/************************************************************************/ +/* mms_def_type_rsp */ +/* NOTE : Since the mms_def_type_rsp is a NULL PDU, the decode is */ +/* continued by '_mms_null_pdu_dec', which simply sets decode done = 1 */ +/* and sets the decode done function to point to the general decode done*/ +/* fun. See mmsdec.c for the general functions. */ +/************************************************************************/ + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_deftype */ +/* Create and send a define named type request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_deftype (ST_INT chan, DEFTYPE_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_DEF_TYPE, + M_CAST_MK_FUN (_ms_mk_deftype_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_deftype */ +/* Create a define named type request. */ +/************************************************************************/ + +ST_RET mpl_deftype (DEFTYPE_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_DEF_TYPE, + M_CAST_MK_FUN (_ms_mk_deftype_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_deftype_req */ +/* construct a define type definition request */ +/************************************************************************/ + +ST_VOID _ms_mk_deftype_req (ASN1_ENC_CTXT *aCtx, DEFTYPE_REQ_INFO *info_ptr) + { + _ms_wr_va_type_spec (aCtx, &info_ptr->type_spec); + + _ms_wr_mms_objname (aCtx, &info_ptr->type_name); + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_DEF_TYPE,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsle/rq_defva.c b/mmslib/mmsle/rq_defva.c new file mode 100644 index 0000000..fc6faaa --- /dev/null +++ b/mmslib/mmsle/rq_defva.c @@ -0,0 +1,100 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_defvar.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of define named */ +/* variable. It decodes the define named variable response */ +/* (confirm) & encodes the define named variable request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* ST_VOID mms_def_var_rsp () */ +/* MMSREQ_PEND *mp_defvar (chan,info_ptr) */ +/* ST_INT16 mpl_defvar (info_ptr) - MMSEASE-LITE */ +/* ST_VOID _ms_mk_defvar_req (info) */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 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 ENCODE portion : NONE */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_defvar */ +/* Create and send a define named variable request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_defvar (ST_INT chan, DEFVAR_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_DEF_VAR, + M_CAST_MK_FUN (_ms_mk_defvar_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_defvar */ +/* Create a define named variable request. */ +/************************************************************************/ + +ST_RET mpl_defvar (DEFVAR_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_DEF_VAR, + M_CAST_MK_FUN (_ms_mk_defvar_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_defvar_req */ +/* construct a define named variable request */ +/************************************************************************/ + +ST_VOID _ms_mk_defvar_req (ASN1_ENC_CTXT *aCtx, DEFVAR_REQ_INFO *info_ptr) + { + if (info_ptr->type_spec_pres) + { + asn1r_strt_constr (aCtx); /* start context tag 2 cstr */ + _ms_wr_va_type_spec (aCtx, &info_ptr->type_spec); + asn1r_fin_constr (aCtx, 2, CTX, DEF); /* finish context tag 2 cstr */ + } + + asn1r_strt_constr (aCtx); /* start context tag 1 cstr */ + _ms_wr_va_address (aCtx, &info_ptr->address); + asn1r_fin_constr (aCtx, 1, CTX, DEF); /* finish context tag 1 cstr */ + + asn1r_strt_constr (aCtx); /* start context tag 0 cstr */ + _ms_wr_mms_objname (aCtx, &info_ptr->name); + asn1r_fin_constr (aCtx, 0, CTX, DEF); /* finish context tag 0 cstr */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_DEF_VAR,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsle/rq_defvl.c b/mmslib/mmsle/rq_defvl.c new file mode 100644 index 0000000..f7f67dd --- /dev/null +++ b/mmslib/mmsle/rq_defvl.c @@ -0,0 +1,106 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_defvlist.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of the define named */ +/* variable list. It decodes the get named variable list */ +/* response (confirm) & encodes the get named variable list */ +/* request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 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 : NONE */ + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + + +/************************************************************************/ +/************************************************************************/ +/* mms_def_vlist_rsp */ +/* NOTE : Since the mms_def_vlist_rsp is a NULL PDU, the decode is */ +/* continued by '_mms_null_pdu_dec', which simply sets decode done = 1 */ +/* and sets the decode done function to point to the general decode done*/ +/* fun. See mmsdec.c for the general functions. */ +/************************************************************************/ + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_defvlist */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE & send the define named variable list request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_defvlist (ST_INT chan, DEFVLIST_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_DEF_VLIST, + M_CAST_MK_FUN (_ms_mk_defvlist_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_defvlist */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the define named variable list request. */ +/************************************************************************/ + +ST_RET mpl_defvlist (DEFVLIST_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_DEF_VLIST, + M_CAST_MK_FUN (_ms_mk_defvlist_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_defvlist_req */ +/* construct a define named variable list request */ +/************************************************************************/ + +ST_VOID _ms_mk_defvlist_req (ASN1_ENC_CTXT *aCtx, DEFVLIST_REQ_INFO *info) + { +VARIABLE_LIST *vl_ptr; + + /* get ptr to list of variables */ + vl_ptr = (VARIABLE_LIST *) (info + 1); + + asn1r_strt_constr (aCtx); /* start context tag 0 cstr */ + _ms_wr_va_var_list (aCtx, vl_ptr, info->num_of_variables); + asn1r_fin_constr (aCtx, 0, CTX, DEF); /* finish context tag 0 cstr */ + + _ms_wr_mms_objname (aCtx, &info->vl_name); /* write the variable list name */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_DEF_VLIST,CTX,DEF); /* tag = opcode, ctx */ + } diff --git a/mmslib/mmsle/rq_deldo.c b/mmslib/mmsle/rq_deldo.c new file mode 100644 index 0000000..3f0beb3 --- /dev/null +++ b/mmslib/mmsle/rq_deldo.c @@ -0,0 +1,93 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_deldom.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of delete domain. */ +/* It decodes the delete domain response (confirm) & encodes the */ +/* delete domain request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 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_pdom.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : NONE */ +/* variables global to the ENCODE portion : NONE */ + +/************************************************************************/ +/************************************************************************/ +/* mms_delete_domain_rsp */ +/* NOTE : Since the mms_delete_domain_rsp is a NULL PDU, the decode is */ +/* continued by '_mms_null_pdu_dec', which simply sets decode done = 1 */ +/* and sets the decode done function to point to the general decode done*/ +/* fun. See mmsdec.c for the general functions. */ +/************************************************************************/ + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_deldom */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the delete domain request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_deldom (ST_INT chan, DELDOM_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_DELETE_DOMAIN, + M_CAST_MK_FUN (_ms_mk_deldom_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_deldom */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the delete domain request. */ +/************************************************************************/ + +ST_RET mpl_deldom (DELDOM_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_DELETE_DOMAIN, + M_CAST_MK_FUN (_ms_mk_deldom_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_deldom_req */ +/* construct a delete domain request */ +/************************************************************************/ + +ST_VOID _ms_mk_deldom_req (ASN1_ENC_CTXT *aCtx, DELDOM_REQ_INFO *info) + { + asn1r_wr_vstr (aCtx, info->dname); /* write the domain name */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_prim (aCtx, MMSOP_DELETE_DOMAIN,CTX); /* tag = opcode, ctx prim */ + } diff --git a/mmslib/mmsle/rq_delea.c b/mmslib/mmsle/rq_delea.c new file mode 100644 index 0000000..15fe71a --- /dev/null +++ b/mmslib/mmsle/rq_delea.c @@ -0,0 +1,141 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_delea.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of delete event */ +/* action. It decodes the delete event action response (confirm) */ +/* & encodes the delete event action request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 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++ */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 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_pevn.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static DELEA_RESP_INFO *rsp_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + + +/************************************************************************/ +/************************************************************************/ +/* mms_delea_rsp */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_delea_rsp (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Decoding : Delete Event Action Response"); + +/* get storage for request information */ + rsp_info = (DELEA_RESP_INFO *) _m_get_dec_buf (aCtx, sizeof (DELEA_RESP_INFO)); + if (asn1r_get_u32 (aCtx, &rsp_info->cand_not_deleted)) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + else + { + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_delea */ +/* Create and send a delete event action request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_delea (ST_INT chan, DELEA_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_DEL_EA, + M_CAST_MK_FUN (_ms_mk_delea_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_delea */ +/* Create a delete event action request. */ +/************************************************************************/ + +ST_RET mpl_delea (DELEA_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_DEL_EA, + M_CAST_MK_FUN (_ms_mk_delea_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_delea_req */ +/* construct a delete event action request */ +/************************************************************************/ + +ST_VOID _ms_mk_delea_req (ASN1_ENC_CTXT *aCtx, DELEA_REQ_INFO *info_ptr) + { +ST_INT i; +OBJECT_NAME *obj_ptr; + + switch (info_ptr->req_tag) + { + case 4 : + asn1r_fin_prim (aCtx, 4, CTX); /* ctx tag 4, vmd is null */ + break; + + case 3 : + asn1r_wr_vstr (aCtx, info_ptr->dname); /* write the domain name */ + asn1r_fin_prim (aCtx, 3,CTX); /* context tag 3 */ + break; + + case 1 : + asn1r_fin_prim (aCtx, 1, CTX); /* ctx tag 1, aa spec is null */ + break; + + case 0 : + asn1r_strt_constr (aCtx); /* start context tag 0 cstr */ + obj_ptr = (OBJECT_NAME *) (info_ptr + 1); + obj_ptr +=info_ptr->num_of_names-1;/* point to last object name */ + for (i = 0; i < info_ptr->num_of_names; i++) + { + _ms_wr_mms_objname (aCtx, obj_ptr); + obj_ptr--; + } + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* finish context tag 0 cstr */ + break; + } + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_DEL_EA,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsle/rq_delec.c b/mmslib/mmsle/rq_delec.c new file mode 100644 index 0000000..d3ad1df --- /dev/null +++ b/mmslib/mmsle/rq_delec.c @@ -0,0 +1,142 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_delec.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of delete event */ +/* condition. It decodes the delete event condition response */ +/* (confirm) & encodes the delete event condition request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 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++ */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 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_pevn.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static DELEC_RESP_INFO *rsp_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + + +/************************************************************************/ +/************************************************************************/ +/* mms_delec_rsp */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_delec_rsp (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Decoding : Delete Event Condition Response"); + +/* get storage for request information */ + rsp_info = (DELEC_RESP_INFO *) _m_get_dec_buf (aCtx, sizeof (DELEC_RESP_INFO)); + + if (asn1r_get_u32 (aCtx, &rsp_info->cand_not_deleted)) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + else + { + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_delec */ +/* Create and send a delete event condition request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_delec (ST_INT chan, DELEC_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_DEL_EC, + M_CAST_MK_FUN (_ms_mk_delec_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_delec */ +/* Create a delete event condition request. */ +/************************************************************************/ + +ST_RET mpl_delec (DELEC_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_DEL_EC, + M_CAST_MK_FUN (_ms_mk_delec_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_delec_req */ +/* construct a delete event condition request */ +/************************************************************************/ + +ST_VOID _ms_mk_delec_req (ASN1_ENC_CTXT *aCtx, DELEC_REQ_INFO *info_ptr) + { +ST_INT i; +OBJECT_NAME *obj_ptr; + + switch (info_ptr->req_tag) + { + case 3 : + asn1r_fin_prim (aCtx, 3, CTX); /* ctx tag 3, vmd is null */ + break; + + case 2 : + asn1r_wr_vstr (aCtx, info_ptr->dname); /* write the domain name */ + asn1r_fin_prim (aCtx, 2,CTX); /* context tag 2 */ + break; + + case 1 : + asn1r_fin_prim (aCtx, 1, CTX); /* ctx tag 1, aa spec is null */ + break; + + case 0 : + asn1r_strt_constr (aCtx); /* start context tag 0 cstr */ + obj_ptr = (OBJECT_NAME *) (info_ptr + 1); + obj_ptr +=info_ptr->num_of_names-1;/* point to last object name */ + for (i = 0; i < info_ptr->num_of_names; i++) + { + _ms_wr_mms_objname (aCtx, obj_ptr); + obj_ptr--; + } + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* finish context tag 0 cstr */ + break; + } + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_DEL_EC,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsle/rq_delee.c b/mmslib/mmsle/rq_delee.c new file mode 100644 index 0000000..1802694 --- /dev/null +++ b/mmslib/mmsle/rq_delee.c @@ -0,0 +1,141 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_delee.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of delete event */ +/* enrollment. It decodes the delete event enrollment response */ +/* (confirm) & encodes the delete event enrollment request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 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++ */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 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_pevn.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static DELEE_RESP_INFO *rsp_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + + +/************************************************************************/ +/************************************************************************/ +/* mms_delee_rsp */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_delee_rsp (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Delete Event Enrollment Response"); + +/* get storage for request information */ + rsp_info = (DELEE_RESP_INFO *) _m_get_dec_buf (aCtx, sizeof (DELEE_RESP_INFO)); + if (asn1r_get_u32 (aCtx, &rsp_info->cand_not_deleted)) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + else + { + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_delee */ +/* Create and send a delete event enrollment request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_delee (ST_INT chan, DELEE_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_DEL_EE, + M_CAST_MK_FUN (_ms_mk_delee_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_delee */ +/* Create a delete event enrollment request. */ +/************************************************************************/ + +ST_RET mpl_delee (DELEE_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_DEL_EE, + M_CAST_MK_FUN (_ms_mk_delee_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_delee_req */ +/* construct a delete event enrollment request */ +/************************************************************************/ + +ST_VOID _ms_mk_delee_req (ASN1_ENC_CTXT *aCtx, DELEE_REQ_INFO *info_ptr) + { +ST_INT i; +OBJECT_NAME *obj_ptr; + + switch (info_ptr->req_tag) + { + case 2 : /* event action */ + asn1r_strt_constr (aCtx); /* start context tag 2 cstr */ + _ms_wr_mms_objname (aCtx, &info_ptr->sod.evact_name); + asn1r_fin_constr (aCtx, 2,CTX,DEF); /* finish context tag 2 cstr */ + break; + + case 1 : /* event condition */ + asn1r_strt_constr (aCtx); /* start context tag 1 cstr */ + _ms_wr_mms_objname (aCtx, &info_ptr->sod.evcon_name); + asn1r_fin_constr (aCtx, 1,CTX,DEF); /* finish context tag 1 cstr */ + break; + + case 0 : /* specific */ + asn1r_strt_constr (aCtx); /* start context tag 0 cstr */ + obj_ptr = (OBJECT_NAME *) (info_ptr + 1); + /* point to last object name */ + obj_ptr +=info_ptr->sod.num_of_names-1; + for (i = 0; i < info_ptr->sod.num_of_names; i++) + { + _ms_wr_mms_objname (aCtx, obj_ptr); + obj_ptr--; + } + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* finish context tag 0 cstr */ + break; + } + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_DEL_EE,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsle/rq_delpi.c b/mmslib/mmsle/rq_delpi.c new file mode 100644 index 0000000..146febb --- /dev/null +++ b/mmslib/mmsle/rq_delpi.c @@ -0,0 +1,96 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_delpi.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of delete program */ +/* invocation. It decodes the delete program invocation response */ +/* (confirm) & encodes the delete program invocation request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 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_pprg.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : NONE */ + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +/************************************************************************/ +/************************************************************************/ +/* mms_delete_pi_rsp */ +/* NOTE: Since the mms_delete_pi_rsp is a NULL PDU, the decode is */ +/* continued by '_mms_null_pdu_dec', which simply sets decode done = 1 */ +/* and sets the decode done function to point to the general decode */ +/* done fun. See mmsdec.c for the general functions. */ +/************************************************************************/ + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_delpi */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the delete program invocation request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_delpi (ST_INT chan, DELPI_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_DELETE_PI, + M_CAST_MK_FUN (_ms_mk_delpi_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_delpi */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the delete program invocation request. */ +/************************************************************************/ + +ST_RET mpl_delpi (DELPI_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_DELETE_PI, + M_CAST_MK_FUN (_ms_mk_delpi_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_delpi_req */ +/* construct a delete program invocation request */ +/************************************************************************/ + +ST_VOID _ms_mk_delpi_req (ASN1_ENC_CTXT *aCtx, DELPI_REQ_INFO *info) + { + + asn1r_wr_vstr (aCtx, info->piname); /* write pgm invocation name */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_prim (aCtx, MMSOP_DELETE_PI,CTX); /* tag = opcode, ctx prim */ + } diff --git a/mmslib/mmsle/rq_delse.c b/mmslib/mmsle/rq_delse.c new file mode 100644 index 0000000..888a5ab --- /dev/null +++ b/mmslib/mmsle/rq_delse.c @@ -0,0 +1,97 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_delsem.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of the delete */ +/* semaphore. It decodes the file delete semaphore response */ +/* (confirm) and encodes the delete semaphore request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 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_psem.h" +#include "asn1defs.h" + + +/************************************************************************/ +/* variables global to the DECODE portion : NONE */ + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +/************************************************************************/ +/************************************************************************/ +/* mms_delsem_rsp */ +/* NOTE : Since the mms_delsem_rsp is a NULL PDU, the decode is */ +/* continued by '_mms_null_pdu_dec', which simply sets decode done = 1 */ +/* and sets the decode done function to point to the general decode done*/ +/* fun. See mmsdec.c for the general functions. */ +/************************************************************************/ + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_delsem */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the delete semaphore request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_delsem (ST_INT chan, DELSEM_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_DELETE_SEM, + M_CAST_MK_FUN (_ms_mk_delsem_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_delsem */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the delete semaphore request. */ +/************************************************************************/ + +ST_RET mpl_delsem (DELSEM_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_DELETE_SEM, + M_CAST_MK_FUN (_ms_mk_delsem_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_delsem_req */ +/* construct a delete semaphore request */ +/************************************************************************/ + +ST_VOID _ms_mk_delsem_req (ASN1_ENC_CTXT *aCtx, DELSEM_REQ_INFO *info) + { + + _ms_wr_mms_objname (aCtx, &info->sem_name); /* write the object name */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_DELETE_SEM,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsle/rq_delty.c b/mmslib/mmsle/rq_delty.c new file mode 100644 index 0000000..954f55b --- /dev/null +++ b/mmslib/mmsle/rq_delty.c @@ -0,0 +1,169 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_deltype.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of delete named */ +/* type. It decodes the delete named type response (confirm) & */ +/* encodes the delete named type request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 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++ */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 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 DELTYPE_RESP_INFO *rsp_info; + + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID deltyp_num_matched (ASN1_DEC_CTXT *aCtx); +static ST_VOID deltyp_num_deleted (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_del_type_rsp */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_del_type_rsp (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Delete Type Response"); + +/* get storage for request information */ + rsp_info = (DELTYPE_RESP_INFO *) _m_get_dec_buf (aCtx, sizeof (DELTYPE_RESP_INFO)); + ASN1R_TAG_ADD (aCtx, CTX, 0, deltyp_num_matched); + } + +/************************************************************************/ +/* deltyp_num_matched */ +/* number matched element encountered, read into info structure. */ +/************************************************************************/ + +static ST_VOID deltyp_num_matched (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("deltyp_num_matched"); + + if (asn1r_get_u32 (aCtx, &rsp_info->num_matched)) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + else + ASN1R_TAG_ADD (aCtx, CTX, 1, deltyp_num_deleted); + } + +/************************************************************************/ +/* deltyp_num_deleted */ +/* number deleted element encountered, read into info structure. */ +/************************************************************************/ + +static ST_VOID deltyp_num_deleted (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("deltyp_num_delete"); + + if (asn1r_get_u32 (aCtx, &rsp_info->num_deleted)) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + else + { + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_deltype */ +/* Create and send a delete named type request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_deltype (ST_INT chan, DELTYPE_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_DEL_TYPE, + M_CAST_MK_FUN (_ms_mk_deltype_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_deltype */ +/* Create and send a delete named type request. */ +/************************************************************************/ + +ST_RET mpl_deltype (DELTYPE_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_DEL_TYPE, + M_CAST_MK_FUN (_ms_mk_deltype_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_deltype_req */ +/* construct a delete type definition request */ +/************************************************************************/ + +ST_VOID _ms_mk_deltype_req (ASN1_ENC_CTXT *aCtx, DELTYPE_REQ_INFO *info_ptr) + { +ST_INT i; +OBJECT_NAME *obj_ptr; + + if (info_ptr->dname_pres) + { + asn1r_wr_vstr (aCtx, info_ptr->dname); /* write the domain name */ + asn1r_fin_prim (aCtx, 2,CTX); /* context tag 2 */ + } + + if (info_ptr->tnames_pres) + { + asn1r_strt_constr (aCtx); /* start context tag 1 cstr */ + obj_ptr = (OBJECT_NAME *) (info_ptr + 1); + obj_ptr +=info_ptr->num_of_tnames-1;/* point to last type name */ + for (i = 0; i < info_ptr->num_of_tnames; i++) + { + _ms_wr_mms_objname (aCtx, obj_ptr); + obj_ptr--; + } + asn1r_fin_constr (aCtx, 1,CTX,DEF); /* finish context tag 1 cstr */ + } + + if (info_ptr->scope != 0) /* default is 0-specific */ + { /* not the default, so */ + asn1r_wr_i16 (aCtx, info_ptr->scope); /* write the scope of delete */ + asn1r_fin_prim (aCtx, 0,CTX); /* context tag 0 */ + } + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_DEL_TYPE,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsle/rq_delva.c b/mmslib/mmsle/rq_delva.c new file mode 100644 index 0000000..be56894 --- /dev/null +++ b/mmslib/mmsle/rq_delva.c @@ -0,0 +1,168 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_delvar.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of delete variable */ +/* access. It decodes the delete variable access response */ +/* (confirm) & encodes the delete variable access request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 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++ */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 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 DELVAR_RESP_INFO *rsp_info; + +static ST_VOID delvar_num_matched (ASN1_DEC_CTXT *aCtx); +static ST_VOID delvar_num_deleted (ASN1_DEC_CTXT *aCtx); + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + + +/************************************************************************/ +/************************************************************************/ +/* mms_del_var_rsp */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_del_var_rsp (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Delete Variable Access Response"); + +/* get storage for request information */ + rsp_info = (DELVAR_RESP_INFO *) _m_get_dec_buf (aCtx, sizeof (DELVAR_RESP_INFO)); + ASN1R_TAG_ADD (aCtx, CTX, 0, delvar_num_matched); + } + +/************************************************************************/ +/* delvar_num_matched */ +/* number matched element encountered, read into info structure. */ +/************************************************************************/ + +static ST_VOID delvar_num_matched (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("delvar_num_matched"); + + if (asn1r_get_u32 (aCtx, &rsp_info->num_matched)) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + else + ASN1R_TAG_ADD (aCtx, CTX, 1, delvar_num_deleted); + } + +/************************************************************************/ +/* delvar_num_deleted */ +/* number deleted element encountered, read into info structure. */ +/************************************************************************/ + +static ST_VOID delvar_num_deleted (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("delvar_num_deleted"); + + if (asn1r_get_u32 (aCtx, &rsp_info->num_deleted)) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + else + { + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_delvar */ +/* Create and send a delete named variable request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_delvar (ST_INT chan, DELVAR_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_DEL_VAR, + M_CAST_MK_FUN (_ms_mk_delvar_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_delvar */ +/* Create and send a delete named variable request. */ +/************************************************************************/ + +ST_RET mpl_delvar (DELVAR_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_DEL_VAR, + M_CAST_MK_FUN (_ms_mk_delvar_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_delvar_req */ +/* construct a delete variable access request */ +/************************************************************************/ + +ST_VOID _ms_mk_delvar_req (ASN1_ENC_CTXT *aCtx, DELVAR_REQ_INFO *info_ptr) + { +ST_INT i; +OBJECT_NAME *obj_ptr; + + if (info_ptr->dname_pres) + { + asn1r_wr_vstr (aCtx, info_ptr->dname); /* write the domain name */ + asn1r_fin_prim (aCtx, 2,CTX); /* context tag 2 */ + } + + if (info_ptr->vnames_pres) + { + asn1r_strt_constr (aCtx); /* start context tag 1 cstr */ + obj_ptr = (OBJECT_NAME *) (info_ptr + 1); + obj_ptr +=info_ptr->num_of_vnames-1;/* point to last variable name */ + for (i = 0; i < info_ptr->num_of_vnames; i++) + { + _ms_wr_mms_objname (aCtx, obj_ptr); + obj_ptr--; + } + asn1r_fin_constr (aCtx, 1,CTX,DEF); /* finish context tag 1 cstr */ + } + + if (info_ptr->scope != 0) /* default is 0-specific */ + { /* not the default, so */ + asn1r_wr_i16 (aCtx, info_ptr->scope); /* write the scope of delete */ + asn1r_fin_prim (aCtx, 0,CTX); /* context tag 0 */ + } + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_DEL_VAR,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsle/rq_delvl.c b/mmslib/mmsle/rq_delvl.c new file mode 100644 index 0000000..3be8a53 --- /dev/null +++ b/mmslib/mmsle/rq_delvl.c @@ -0,0 +1,171 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_delvlist.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of delete named */ +/* variable list. It decodes the delete named variable list */ +/* response (confirm) & encodes the delete named variable list */ +/* request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 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++ */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 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 DELVLIST_RESP_INFO *rsp_info; + +static ST_VOID delvlist_num_matched (ASN1_DEC_CTXT *aCtx); +static ST_VOID delvlist_num_deleted (ASN1_DEC_CTXT *aCtx); + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + + +/************************************************************************/ +/************************************************************************/ +/* mms_del_vlist_rsp */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_del_vlist_rsp (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Delete Named Variable List Response"); + +/* get storage for request information */ + rsp_info = (DELVLIST_RESP_INFO *) _m_get_dec_buf (aCtx, sizeof (DELVLIST_RESP_INFO)); + ASN1R_TAG_ADD (aCtx, CTX, 0, delvlist_num_matched); + } + +/************************************************************************/ +/* delvlist_num_matched */ +/* Decoding delete named variable list response: number matched was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID delvlist_num_matched (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("delvlist_num_matched"); + + if (asn1r_get_u32 (aCtx, &rsp_info->num_matched)) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + else + ASN1R_TAG_ADD (aCtx, CTX, 1, delvlist_num_deleted); + } + +/************************************************************************/ +/* delvlist_num_deleted */ +/* Decoding delete named variable list response: number deleted was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID delvlist_num_deleted (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("delvlist_num_deleted"); + + if (asn1r_get_u32 (aCtx, &rsp_info->num_deleted)) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + else + { + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_delvlist */ +/* Create and send a delete named variable list request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_delvlist (ST_INT chan, DELVLIST_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_DEL_VLIST, + M_CAST_MK_FUN (_ms_mk_delvlist_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_delvlist */ +/* Create a delete named variable list request. */ +/************************************************************************/ + +ST_RET mpl_delvlist (DELVLIST_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_DEL_VLIST, + M_CAST_MK_FUN (_ms_mk_delvlist_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_delvlist_req */ +/* construct a delete named variable list request */ +/************************************************************************/ + +ST_VOID _ms_mk_delvlist_req (ASN1_ENC_CTXT *aCtx, DELVLIST_REQ_INFO *info_ptr) + { +ST_INT i; +OBJECT_NAME *obj_ptr; + + if (info_ptr->dname_pres) + { + asn1r_wr_vstr (aCtx, info_ptr->dname); /* write the domain name */ + asn1r_fin_prim (aCtx, 2,CTX); /* context tag 2 */ + } + + if (info_ptr->vnames_pres) + { + asn1r_strt_constr (aCtx); /* start context tag 1 cstr */ + obj_ptr = (OBJECT_NAME *) (info_ptr + 1); + obj_ptr +=info_ptr->num_of_vnames-1;/* point to last variable name */ + for (i = 0; i < info_ptr->num_of_vnames; i++) + { + _ms_wr_mms_objname (aCtx, obj_ptr); + obj_ptr--; + } + asn1r_fin_constr (aCtx, 1,CTX,DEF); /* finish context tag 1 cstr */ + } + + if (info_ptr->scope != 0) /* default is 0-specific */ + { /* not the default, so */ + asn1r_wr_i16 (aCtx, info_ptr->scope); /* write the scope of delete */ + asn1r_fin_prim (aCtx, 0,CTX); /* context tag 0 */ + } + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_DEL_VLIST,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsle/rq_downl.c b/mmslib/mmsle/rq_downl.c new file mode 100644 index 0000000..43527c0 --- /dev/null +++ b/mmslib/mmsle/rq_downl.c @@ -0,0 +1,214 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_download.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of the download */ +/* segment. It decodes the download segment response (confirm) */ +/* & encodes the download segment request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 07 Remove "thisFileName" */ +/* 08/28/03 EJV 06 Corr spelling for 'receive'. */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 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++ */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 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_pdom.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static DOWNLOAD_RESP_INFO *rsp_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID download_get_more_follows (ASN1_DEC_CTXT *aCtx); +static ST_VOID download_get_load_data (ASN1_DEC_CTXT *aCtx); +static ST_VOID download_load_data_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID download_load_data_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID extern_done (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_download_rsp */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_download_rsp (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Download Segment Response"); + +/* get storage for request information */ + rsp_info = (DOWNLOAD_RESP_INFO *) _m_get_dec_buf (aCtx, sizeof (DOWNLOAD_RESP_INFO)); + rsp_info->more_follows = SD_TRUE; /* set default value */ + + ASN1R_TAG_ADD (aCtx, CTX, 0, download_get_load_data); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, download_load_data_cstr); + +/* If MMS IS, Check for CODED load data */ +#ifndef MMS_LITE + if (mms_chan_info[_mmsdechan].version) /* IS */ +#else + if (mmsl_version) /* IS */ +#endif + _ms_chk_for_extern (aCtx, &rsp_info->load_data_len, + &rsp_info->load_data, + extern_done); + } + +/************************************************************************/ +/* download_get_load_data */ +/* Decoding download segment response: load data octets primitive was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID download_get_load_data (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("download_get_load_data"); + + /* decode load data onto itself, shifted by one character */ + rsp_info->load_data = aCtx->asn1r_field_ptr -1; + /* read load data */ + if (asn1r_get_octstr (aCtx, rsp_info->load_data)) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + + rsp_info->load_data_type = LOAD_DATA_NON_CODED; + rsp_info->load_data_len = aCtx->asn1r_octetcount; /* save the load data length */ + + ASN1R_TAG_ADD (aCtx, CTX, 1, download_get_more_follows); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* download_load_data_cstr */ +/* Decoding download segment response: load data octets constructor was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID download_load_data_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("download_load_data_cstr"); + + /* decode entry id onto itself, shifted by one character */ + rsp_info->load_data = aCtx->asn1r_field_ptr - 1; + + /* set up where to go when done decoding cstr */ + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = download_load_data_cstr_done; + + /* read load data from the received message */ + asn1r_get_octstr_cstr (aCtx, _mmsdec_msglen, rsp_info->load_data); + } + +/************************************************************************/ +/* download_load_data_cstr_done */ +/* Decoding download segment response: load data octets constructor */ +/* done was encountered. */ +/************************************************************************/ + +static ST_VOID download_load_data_cstr_done (ASN1_DEC_CTXT *aCtx) + { + + rsp_info->load_data_len = aCtx->asn1r_octetcount; /* save the load data length */ + + ASN1R_TAG_ADD (aCtx, CTX, 1, download_get_more_follows); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* extern_done */ +/************************************************************************/ + +static ST_VOID extern_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("extern_done"); + + rsp_info->load_data_type = LOAD_DATA_CODED; + ASN1R_TAG_ADD (aCtx, CTX, 1, download_get_more_follows); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* download_get_more_follows */ +/* Decoding download segment response: more follows was encountered. */ +/************************************************************************/ + +static ST_VOID download_get_more_follows (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("download_get_more_follows"); + /* read more follows */ + if (asn1r_get_bool (aCtx, &(rsp_info->more_follows))) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_download */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the download segment request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_download (ST_INT chan, DOWNLOAD_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_DOWN_LOAD, + M_CAST_MK_FUN (_ms_mk_download_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_download */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the download segment request. */ +/************************************************************************/ + +ST_RET mpl_download (DOWNLOAD_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_DOWN_LOAD, + M_CAST_MK_FUN (_ms_mk_download_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/* _ms_mk_download_req */ +/* construct a download segment request */ +/************************************************************************/ + +ST_VOID _ms_mk_download_req (ASN1_ENC_CTXT *aCtx, DOWNLOAD_REQ_INFO *info) + { + asn1r_wr_vstr (aCtx, info->dname); /* write the domain name */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_prim (aCtx, MMSOP_DOWN_LOAD,CTX); /* tag = opcode, ctx */ + } diff --git a/mmslib/mmsle/rq_fclos.c b/mmslib/mmsle/rq_fclos.c new file mode 100644 index 0000000..ca56777 --- /dev/null +++ b/mmslib/mmsle/rq_fclos.c @@ -0,0 +1,96 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_fclose.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of the file close. */ +/* It decodes the file close response (confirm) & encodes the */ +/* file close request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 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_pfil.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : NONE */ + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +/************************************************************************/ +/************************************************************************/ +/* mms_file_close_rsp */ +/* NOTE : Since the mms_file_close_rsp is a NULL PDU, the decode is */ +/* continued by '_mms_null_pdu_dec', which simply sets decode done = 1 */ +/* and sets the decode done function to point to the general decode done*/ +/* fun. See mmsdec.c for the general functions. */ +/************************************************************************/ + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_fclose */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the file close request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_fclose (ST_INT chan, FCLOSE_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_FILE_CLOSE, + M_CAST_MK_FUN (_ms_mk_fclose_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_fclose */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the file close request. */ +/************************************************************************/ + +ST_RET mpl_fclose (FCLOSE_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_FILE_CLOSE, + M_CAST_MK_FUN (_ms_mk_fclose_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_fclose_req */ +/* construct a file close request */ +/************************************************************************/ + +ST_VOID _ms_mk_fclose_req (ASN1_ENC_CTXT *aCtx, FCLOSE_REQ_INFO *info) + { + + asn1r_wr_i32 (aCtx, info->frsmid); /* write the frsmid */ + + /* write the context specific tag for this opcode. */ + asn1r_fin_prim (aCtx, MMSOP_FILE_CLOSE,CTX); + } diff --git a/mmslib/mmsle/rq_fdele.c b/mmslib/mmsle/rq_fdele.c new file mode 100644 index 0000000..a6c5adc --- /dev/null +++ b/mmslib/mmsle/rq_fdele.c @@ -0,0 +1,97 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_fdelete.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of the file delete. */ +/* It decodes the file delete response (confirm) & encodes the */ +/* file delete request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 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_pfil.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : NONE */ + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +/************************************************************************/ +/************************************************************************/ +/* mms_file_delete_rsp */ +/* NOTE : Since the mms_file_delete_rsp is a NULL PDU, the decode is */ +/* continued by '_mms_null_pdu_dec', which simply sets decode done = 1 */ +/* and sets the decode done function to point to the general decode done*/ +/* fun. See mmsdec.c for the general functions. */ +/************************************************************************/ + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_fdelete */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the file delete request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_fdelete (ST_INT chan, FDELETE_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_FILE_DELETE, + M_CAST_MK_FUN (_ms_mk_fdelete_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_fdelete */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the file delete request. */ +/************************************************************************/ + +ST_RET mpl_fdelete (FDELETE_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_FILE_DELETE, + M_CAST_MK_FUN (_ms_mk_fdelete_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_fdelete_req */ +/* construct a file delete request */ +/************************************************************************/ + +ST_VOID _ms_mk_fdelete_req (ASN1_ENC_CTXT *aCtx, FDELETE_REQ_INFO *info) + { + asn1r_strt_constr (aCtx); + _ms_wr_mms_fname (aCtx, (FILE_NAME *)(info + 1), + info -> num_of_fname); + + /* write the context specific tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_FILE_DELETE,CTX,DEF); + } diff --git a/mmslib/mmsle/rq_fdir.c b/mmslib/mmsle/rq_fdir.c new file mode 100644 index 0000000..28994d2 --- /dev/null +++ b/mmslib/mmsle/rq_fdir.c @@ -0,0 +1,351 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_fdir.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of file directory. */ +/* It decodes the file directory response (confirm) & encodes the */ +/* file directory request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 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++ */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 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_pfil.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static FDIR_RESP_INFO *fop_info; + +static FDIR_DIR_ENT *ent_ptr; +static FDIR_DIR_ENT *dir_ptr; +static ST_INT max_dir_ents; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID fdir_dir_entry (ASN1_DEC_CTXT *aCtx); +static ST_VOID fdir_more_follows (ASN1_DEC_CTXT *aCtx); +static ST_VOID fdir_get_fil_mtim (ASN1_DEC_CTXT *aCtx); +static ST_VOID fdir_dir_ent_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID fdir_get_fil_siz (ASN1_DEC_CTXT *aCtx); +static ST_VOID fdir_get_fil_attr (ASN1_DEC_CTXT *aCtx); +static ST_VOID fdir_fname_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID fdir_fname_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID fdir_dir_list_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID fdir_dir_seq (ASN1_DEC_CTXT *aCtx); +static ST_VOID fdir_dir_list (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_file_dir_rsp */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_file_dir_rsp (ASN1_DEC_CTXT *aCtx) + { +ST_INT rsp_size; + + MLOG_CDEC0 ("File Directory Response"); + + +#if defined(FIXED_DECBUF) + max_dir_ents = m_cl_max_file_directory; + rsp_size = mmsl_dec_info_size; +#else + max_dir_ents = _mmsdec_msglen/8; /* determine maximum size */ + if (m_cl_max_file_directory && (max_dir_ents > m_cl_max_file_directory)) + max_dir_ents = m_cl_max_file_directory; + +/* get storage for resp info */ + rsp_size = sizeof (FDIR_RESP_INFO) + + (max_dir_ents * (sizeof (FDIR_DIR_ENT))) + + (max_dir_ents * (sizeof (FILE_NAME))); +#endif + +/* get storage for request information */ + fop_info = (FDIR_RESP_INFO *) _m_get_dec_buf (aCtx, rsp_size); + fop_info->num_dir_ent = 0; /* set default values */ + fop_info->more_follows = SD_FALSE; + ent_ptr = (FDIR_DIR_ENT *) (fop_info + 1); + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, fdir_dir_list); + } + +/************************************************************************/ +/* fdir_dir_list */ +/* file directory response is being decoded: directory list constructor */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID fdir_dir_list (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("fdir_dir_list"); + + ASN1R_TAG_ADD (aCtx, UNI | CONSTR, SEQ_CODE, fdir_dir_seq); + } + +/************************************************************************/ +/* fdir_dir_seq */ +/* file directory response is being decoded: directory entry constr */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID fdir_dir_seq (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("fdir_dir_seq"); + + ASN1R_TAG_ADD (aCtx, UNI | CONSTR, SEQ_CODE, fdir_dir_entry); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = NULL; + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level - 1] = fdir_dir_list_done; + } + +/************************************************************************/ +/* fdir_dir_entry */ +/* file directory response is being decoded: directory sequence was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID fdir_dir_entry (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("fdir_dir_entry"); + + fop_info->num_dir_ent++; /* increment directory entry count */ + if (fop_info->num_dir_ent > max_dir_ents) + asn1r_set_dec_err (aCtx, RESP_UNSPECIFIED); + + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,0,fdir_fname_cstr); + } + +/************************************************************************/ +/* fdir_fname_cstr */ +/* request domain download request is being decoded: filename cstr was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID fdir_fname_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("fdir_fname_cstr"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = fdir_fname_cstr_done; + _ms_get_mms_fname (aCtx, (FILE_NAME *)(ent_ptr + 1), + max_dir_ents, &ent_ptr->num_of_fname); + } + +/************************************************************************/ +/* fdir_fname_cstr_done */ +/* request domain download request is being decoded: file name list */ +/* constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID fdir_fname_cstr_done (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1, fdir_get_fil_attr); + } + +/************************************************************************/ +/* fdir_get_fil_attr */ +/* file directory response is being decoded: file attributes constr was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID fdir_get_fil_attr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("fdir_get_fil_attr"); + + ASN1R_TAG_ADD (aCtx, CTX, 0, fdir_get_fil_siz); + } + +/************************************************************************/ +/* fdir_get_fil_siz */ +/* file directory response is being decoded: file size was found, */ +/* modified time can be next, or can be done. */ +/************************************************************************/ + +static ST_VOID fdir_get_fil_siz (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("fdir_get_fil_si"); + + if (asn1r_get_u32 (aCtx, &(ent_ptr->fsize))) /* read the file size */ + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + + ASN1R_TAG_ADD (aCtx, CTX,1,fdir_get_fil_mtim); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = NULL; /* ok for file attr to be done */ + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level-1] = fdir_dir_ent_done; + } + +/************************************************************************/ +/* fdir_get_fil_mtim */ +/* file directory response is being decoded: directory entry was */ +/* encountered, and modified time was found; creator can be next. */ +/************************************************************************/ + +static ST_VOID fdir_get_fil_mtim (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("fdir_get_fil_mtim"); + + ent_ptr->mtimpres = SD_TRUE; /* set modify time present */ + if (asn1r_get_time (aCtx, &ent_ptr->mtime)) /* read the last modified time */ + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + } + +/************************************************************************/ +/* fdir_dir_ent_done */ +/* DECODING file directory response: directory entry was completed. */ +/* Re-initialize the valid states. */ +/************************************************************************/ + +static ST_VOID fdir_dir_ent_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("fdir_dir_ent_done"); + +/* point to where the next directory entry will start */ + + ent_ptr = (FDIR_DIR_ENT *)(((FILE_NAME *)(ent_ptr + 1)) + + (ent_ptr -> num_of_fname)); + + ASN1R_TAG_ADD (aCtx, UNI | CONSTR, SEQ_CODE, fdir_dir_entry); + } + +/************************************************************************/ +/* fdir_dir_list_done */ +/* DECODING file directory response: directory list was completed. */ +/* Re-initialize the valid states. */ +/************************************************************************/ + +static ST_VOID fdir_dir_list_done (ASN1_DEC_CTXT *aCtx) + { +ST_INT resp_size; +ST_INT i; +ST_INT fname_count; + + MLOG_CDEC0 ("fdir_dir_list_done"); + + fname_count = 0; + ASN1R_TAG_ADD (aCtx, CTX, 1, fdir_more_follows); + + /* find the exact size of the storage used */ + + dir_ptr = (FDIR_DIR_ENT *)(fop_info + 1); + for (i=0; i < fop_info->num_dir_ent; ++i) + { + fname_count += dir_ptr->num_of_fname; + dir_ptr = (FDIR_DIR_ENT *)(((FILE_NAME *)(dir_ptr + 1)) + + (dir_ptr -> num_of_fname)); + } + /* give back unused storage */ + resp_size = sizeof (FDIR_RESP_INFO) + + ((fop_info->num_dir_ent) * sizeof (FDIR_DIR_ENT)) + + (fname_count * sizeof (FILE_NAME)); + _mms_dec_info = (*m_realloc_os_fun) (_mms_dec_info,resp_size); + fop_info = (FDIR_RESP_INFO *) _mms_dec_info; + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* fdir_more_follows */ +/* file directory response is being decoded: more follows indicator */ +/* has been encountered. */ +/************************************************************************/ + +static ST_VOID fdir_more_follows (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("fdir_more_follows"); + + if (asn1r_get_bool (aCtx, &(fop_info->more_follows))) /* read more follows */ + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_fdir */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the file directory request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_fdir (ST_INT chan, FDIR_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_FILE_DIR, + M_CAST_MK_FUN (_ms_mk_fdir_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_fdir */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the file directory request. */ +/************************************************************************/ + +ST_RET mpl_fdir (FDIR_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_FILE_DIR, + M_CAST_MK_FUN (_ms_mk_fdir_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_fdir_req */ +/* ENCODE a file directory REQUEST: */ +/************************************************************************/ + +ST_VOID _ms_mk_fdir_req (ASN1_ENC_CTXT *aCtx, FDIR_REQ_INFO *info) + { +FILE_NAME *fname_idx; + + if (info->cont_after_pres) + { /* write continue after name */ + asn1r_strt_constr (aCtx); + fname_idx = (FILE_NAME *)(info + 1); + fname_idx += info->num_of_fs_fname; + _ms_wr_mms_fname (aCtx, fname_idx, info->num_of_ca_fname); + asn1r_fin_constr (aCtx, 1,CTX,DEF); /* context specific tag 1 */ + } + + if (info->filespec_pres) + { /* write the file specification */ + asn1r_strt_constr (aCtx); + fname_idx = (FILE_NAME *)(info + 1); + _ms_wr_mms_fname (aCtx, fname_idx, info->num_of_fs_fname); + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* context specific tag 0 */ + } + + /* write the context specific tag for this opcode */ + asn1r_fin_constr (aCtx, MMSOP_FILE_DIR,CTX,DEF); + } diff --git a/mmslib/mmsle/rq_fopen.c b/mmslib/mmsle/rq_fopen.c new file mode 100644 index 0000000..c9313d5 --- /dev/null +++ b/mmslib/mmsle/rq_fopen.c @@ -0,0 +1,197 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_fopen.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of the file open. */ +/* It decodes the file open response (confirm) & encodes the */ +/* file open request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 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++ */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 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_pfil.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static FOPEN_RESP_INFO *fop_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID fopen_fil_attr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID fopen_get_fil_mtim (ASN1_DEC_CTXT *aCtx); +static ST_VOID fopen_get_fil_siz (ASN1_DEC_CTXT *aCtx); +static ST_VOID fopen_get_fil_attr (ASN1_DEC_CTXT *aCtx); +static ST_VOID fopen_get_frsmid (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_file_open_rsp */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_file_open_rsp (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("File Open Response"); + + +/* get storage for request information */ + fop_info = (FOPEN_RESP_INFO *) _m_get_dec_buf (aCtx, sizeof (FOPEN_RESP_INFO)); + ASN1R_TAG_ADD (aCtx, CTX, 0, fopen_get_frsmid); + } + +/************************************************************************/ +/* fopen_get_frsmid */ +/* file open response is being decoded: file read state machine id was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID fopen_get_frsmid (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("fopen_get_frsmid"); + + if (asn1r_get_i32 (aCtx, &(fop_info->frsmid))) /* read the frsmid */ + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1, fopen_get_fil_attr); + } + +/************************************************************************/ +/* fopen_get_fil_attr */ +/* file open response is being decoded: file attributes constr was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID fopen_get_fil_attr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("fopen_get_fil_attr"); + + ASN1R_TAG_ADD (aCtx, CTX, 0, fopen_get_fil_siz); + } + +/************************************************************************/ +/* fopen_get_fil_siz */ +/* file open response is being decoded: file size was found, last */ +/* modified time can be next, or can be done. */ +/************************************************************************/ + +static ST_VOID fopen_get_fil_siz (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("fopen_get_fil_siz"); + + if (asn1r_get_u32 (aCtx, &(fop_info->ent.fsize))) /* read the file size */ + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + + ASN1R_TAG_ADD (aCtx, CTX,1,fopen_get_fil_mtim); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = fopen_fil_attr_done; + } + +/************************************************************************/ +/* fopen_get_fil_mtim */ +/* file open response is being decoded: modified time was encountered, */ +/* must be done now. */ +/************************************************************************/ + +static ST_VOID fopen_get_fil_mtim (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("fopen_get_fil_mtim"); + + fop_info->ent.mtimpres = SD_TRUE; /* set modify time present */ + if (asn1r_get_time (aCtx, &fop_info->ent.mtime)) /* read the last modified time */ + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + } + +/************************************************************************/ +/* fopen_fil_attr_done */ +/* DECODING file open response: file attribute constructor completed. */ +/* Set the valid state to done. */ +/************************************************************************/ + +static ST_VOID fopen_fil_attr_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("fopen_fil_attr_done"); + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_fopen */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the file open request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_fopen (ST_INT chan, FOPEN_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_FILE_OPEN, + M_CAST_MK_FUN (_ms_mk_fopen_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_fopen */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the file open request. */ +/************************************************************************/ + +ST_RET mpl_fopen (FOPEN_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_FILE_OPEN, + M_CAST_MK_FUN (_ms_mk_fopen_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_fopen_req */ +/* ENCODE a file openectory REQUEST: */ +/************************************************************************/ + +ST_VOID _ms_mk_fopen_req (ASN1_ENC_CTXT *aCtx, FOPEN_REQ_INFO *info) + { + + asn1r_wr_u32 (aCtx, info->init_pos); /* write the initial position */ + asn1r_fin_prim (aCtx, 1,CTX); /* context specific tag 1 */ + + asn1r_strt_constr (aCtx); + _ms_wr_mms_fname (aCtx, (FILE_NAME *)(info + 1), + info -> num_of_fname); + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* context specific tag 0 */ + + /* write the context specific tag for this opcode */ + asn1r_fin_constr (aCtx, MMSOP_FILE_OPEN,CTX,DEF); + } diff --git a/mmslib/mmsle/rq_fread.c b/mmslib/mmsle/rq_fread.c new file mode 100644 index 0000000..b17e69b --- /dev/null +++ b/mmslib/mmsle/rq_fread.c @@ -0,0 +1,190 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_fread.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of the file read. */ +/* It decodes the file read response (confirm) & encodes the */ +/* file read request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 07 Remove "thisFileName" */ +/* 08/28/03 EJV 06 Corr spelling for 'receive'. */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 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++ */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 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_pfil.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static FREAD_RESP_INFO *fop_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +/************************************************************************/ +/* static functions with multiple references */ + +static ST_VOID fread_file_data_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID fread_get_fd_prim (ASN1_DEC_CTXT *aCtx); +static ST_VOID fread_get_fd_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID fread_get_more_follows (ASN1_DEC_CTXT *aCtx); + +/************************************************************************/ +/* mms_file_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_file_read_rsp (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("File Read Response"); + + +/* get storage for request information */ + fop_info = (FREAD_RESP_INFO *) _m_get_dec_buf (aCtx, sizeof (FREAD_RESP_INFO)); + fop_info->more_follows = SD_TRUE; /* set default value */ + ASN1R_TAG_ADD (aCtx, CTX,0, fread_get_fd_prim); + ASN1R_TAG_ADD (aCtx, CTX|CONSTR, 0, fread_get_fd_cstr); + } + + +/************************************************************************/ +/* fread_get_fd_prim */ +/* file read response is being decoded: file data was encountered. */ +/************************************************************************/ + +static ST_VOID fread_get_fd_prim (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("fread_get_fd_prim"); + + /* decode file data back onto itself */ + fop_info->filedata = aCtx->asn1r_field_ptr; + + if (asn1r_get_octstr (aCtx, fop_info->filedata)) /* read file data from message */ + asn1r_set_dec_err (aCtx, RESP_UNSPECIFIED); + + fread_file_data_done (aCtx); /* save octet count, setup to continue */ + } + +/************************************************************************/ +/* fread_get_fd_cstr */ +/* file read response is being decoded: file data was encountered. */ +/************************************************************************/ + +static ST_VOID fread_get_fd_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("fread_get_fd_cstr"); + + /* decode file data back onto itself */ + fop_info->filedata = aCtx->asn1r_field_ptr; + + /* set up done decoding octet cstr destination */ + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = fread_file_data_done; + + /* get file data from the received message */ + /* set maximum length to accept entire message */ + asn1r_get_octstr_cstr (aCtx, _mmsdec_msglen, fop_info->filedata); + } + +/************************************************************************/ +/* fread_file_data_done */ +/* file read response is being decoded: end of file data constructor */ +/* This is called directly from prim octet or from c_done fun. */ +/************************************************************************/ + +static ST_VOID fread_file_data_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("data_don"); + + fop_info->fd_len = aCtx->asn1r_octetcount; /* save the file data length */ + /* set up done decoding file data cstr dest */ + + ASN1R_TAG_ADD (aCtx, CTX, 1, fread_get_more_follows); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* fread_get_more_follows */ +/* file read response is being decoded: more data follows indicator was */ +/* encountered, must be done now. */ +/************************************************************************/ + +static ST_VOID fread_get_more_follows (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("fread_get_more_follows"); + + if (asn1r_get_bool (aCtx, &(fop_info->more_follows))) /* read more follows */ + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_fread */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the file read request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_fread (ST_INT chan, FREAD_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_FILE_READ, + M_CAST_MK_FUN (_ms_mk_fread_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_fread */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the file read request. */ +/************************************************************************/ + +ST_RET mpl_fread (FREAD_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_FILE_READ, + M_CAST_MK_FUN (_ms_mk_fread_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_fread_req */ +/* ENCODE a file readectory REQUEST: */ +/************************************************************************/ + +ST_VOID _ms_mk_fread_req (ASN1_ENC_CTXT *aCtx, FREAD_REQ_INFO *info) + { + asn1r_wr_i32 (aCtx, info->frsmid); /* write the frsmid */ + /* write the context specific tag for this opcode */ + asn1r_fin_prim (aCtx, MMSOP_FILE_READ,CTX); + } diff --git a/mmslib/mmsle/rq_frena.c b/mmslib/mmsle/rq_frena.c new file mode 100644 index 0000000..0d80e66 --- /dev/null +++ b/mmslib/mmsle/rq_frena.c @@ -0,0 +1,108 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_frename.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of the file rename. */ +/* It decodes the file rename response (confirm) & encodes the */ +/* file rename request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 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_pfil.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : NONE */ + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +/************************************************************************/ +/************************************************************************/ +/* mms_file_rename_rsp */ +/* NOTE : Since the mms_file_rename_rsp is a NULL PDU, the decode is */ +/* continued by '_mms_null_pdu_dec', which simply sets decode done = 1 */ +/* and sets the decode done function to point to the general decode done*/ +/* fun. See mmsdec.c for the general functions. */ +/************************************************************************/ + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_frename */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the file rename request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_frename (ST_INT chan, FRENAME_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_FILE_RENAME, + M_CAST_MK_FUN (_ms_mk_frename_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_frename */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the file rename request. */ +/************************************************************************/ + +ST_RET mpl_frename (FRENAME_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_FILE_RENAME, + M_CAST_MK_FUN (_ms_mk_frename_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_frename_req */ +/* construct a file rename request */ +/************************************************************************/ + +ST_VOID _ms_mk_frename_req (ASN1_ENC_CTXT *aCtx, FRENAME_REQ_INFO *info) + { +FILE_NAME *fname_idx; + + /* write the new file name */ + asn1r_strt_constr (aCtx); + fname_idx = (FILE_NAME *)(info + 1); + fname_idx += info->num_of_cur_fname; + _ms_wr_mms_fname (aCtx, fname_idx, info -> num_of_new_fname); + asn1r_fin_constr (aCtx, 1,CTX,DEF); /* context specific tag 1 */ + + /* write the current file name */ + asn1r_strt_constr (aCtx); + fname_idx = (FILE_NAME *)(info + 1); + _ms_wr_mms_fname (aCtx, fname_idx, info -> num_of_cur_fname); + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* context specific tag 0 */ + + /* write the context specific tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_FILE_RENAME,CTX,DEF); + } diff --git a/mmslib/mmsle/rq_getae.c b/mmslib/mmsle/rq_getae.c new file mode 100644 index 0000000..27c75a0 --- /dev/null +++ b/mmslib/mmsle/rq_getae.c @@ -0,0 +1,682 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_getaes.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of get alarm */ +/* enrollment summary. It decodes the get alarm enrollment */ +/* summary response (confirm) & encodes the get alarm enrollment */ +/* summary request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 04/28/00 JRB 04 Lint cleanup */ +/* 09/13/99 MDE 03 Added SD_CONST modifiers */ +/* 03/23/99 MDE 02 Changes to decode buffer allocation scheme */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 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_pevn.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : NONE */ + +static GETAES_RESP_INFO *rsp_info; + +static ALARM_ENROLL_SUMMARY *aes_ptr; +static ST_INT max_enroll_sums; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID getaes_aes_list_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID getaes_eename_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID getaes_eename_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID getaes_eename_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID getaes_client_app_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID getaes_client_app_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID getaes_client_app_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID getaes_get_severity (ASN1_DEC_CTXT *aCtx); +static ST_VOID getaes_get_cur_state (ASN1_DEC_CTXT *aCtx); +#ifdef CS_SUPPORT +static ST_VOID getaes_addl_detail_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID getaes_addl_detail_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID getaes_addl_detail_cstr_done (ASN1_DEC_CTXT *aCtx); +#endif +static ST_VOID getaes_get_not_lost (ASN1_DEC_CTXT *aCtx); +static ST_VOID getaes_get_alarm_ack_rule (ASN1_DEC_CTXT *aCtx); +static ST_VOID getaes_get_ee_state (ASN1_DEC_CTXT *aCtx); +static ST_VOID getaes_tta_time_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID getaes_tta_time_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID getaes_tta_time_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID getaes_aack_time_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID getaes_aack_time_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID getaes_aack_time_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID getaes_tti_time_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID getaes_tti_time_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID getaes_tti_time_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID getaes_iack_time_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID getaes_iack_time_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID getaes_alarm_esum_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID getaes_alarm_esum_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID getaes_aes_list_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID getaes_get_more_follows (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_getaes_rsp */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_getaes_rsp (ASN1_DEC_CTXT *aCtx) + { +ST_INT rsp_size; + + MLOG_CDEC0 ("Get Alarm Enrollment Summary Response"); + +#if defined(FIXED_DECBUF) + max_enroll_sums = m_cl_max_enrollment_summary; + rsp_size = mmsl_dec_info_size; +#else + max_enroll_sums = _mmsdec_msglen/8; /* determine maximum size */ + if (m_cl_max_enrollment_summary && (max_enroll_sums > m_cl_max_enrollment_summary)) + max_enroll_sums = m_cl_max_enrollment_summary; + rsp_size = sizeof (GETAES_RESP_INFO) + + (max_enroll_sums * (sizeof (ALARM_ENROLL_SUMMARY))); + /* get storage for resp info */ +#endif + +/* get storage for request information */ + rsp_info = (GETAES_RESP_INFO *) _m_get_dec_buf (aCtx, rsp_size); + aes_ptr = (ALARM_ENROLL_SUMMARY *) (rsp_info + 1); + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, getaes_aes_list_cstr); + } + +/************************************************************************/ +/* getaes_aes_list_cstr */ +/* decoding get alarm enrollment summary RESPONSE (confirm): */ +/* alarm enrollment summary list constructor was encountered. */ +/************************************************************************/ + +static ST_VOID getaes_aes_list_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getaes_aes_list_cstr"); + + ASN1R_TAG_ADD (aCtx, UNI | CONSTR, SEQ_CODE, getaes_alarm_esum_cstr); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = getaes_aes_list_cstr_done; + } + +/************************************************************************/ +/* getaes_alarm_esum_cstr */ +/* decoding get alarm enrollment summary RESPONSE (confirm): */ +/* alarm enrollment summary was encountered. */ +/************************************************************************/ + +static ST_VOID getaes_alarm_esum_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getaes_alarm_esum_cstr"); + + rsp_info->num_of_alarm_esum++; /* inc alarm enrollment sum cnt */ + + if (rsp_info->num_of_alarm_esum > max_enroll_sums) + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, getaes_eename_cstr); + } + +/************************************************************************/ +/* getaes_eename_cstr */ +/* decoding get alarm enrollment summary RESPONSE (confirm): */ +/* event enrollment name cstr was encountered. */ +/************************************************************************/ + +static ST_VOID getaes_eename_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getaes_eename_cstr"); + + _ms_get_mms_objname (aCtx, &aes_ptr->evenroll_name, getaes_eename_done); + } + +/************************************************************************/ +/* getaes_eename_done */ +/* decoding get alarm enrollment summary RESPONSE (confirm): */ +/* event enrollment name has been obtained. */ +/************************************************************************/ + +static ST_VOID getaes_eename_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getaes_eename_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = getaes_eename_cstr_done; + } + +/************************************************************************/ +/* getaes_eename_cstr_done */ +/* decoding get alarm enrollment summary RESPONSE (confirm): */ +/* event enrollment name cstr done has been encountered. */ +/************************************************************************/ + +static ST_VOID getaes_eename_cstr_done (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 2, getaes_client_app_cstr); + ASN1R_TAG_ADD (aCtx, CTX, 3, getaes_get_severity); + } + +/************************************************************************/ +/* getaes_client_app_cstr */ +/* decoding get alarm enrollment summary RESPONSE (confirm): */ +/* client application constructor was encountered. */ +/************************************************************************/ + +static ST_VOID getaes_client_app_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getaes_client_app_cstr"); + + aes_ptr->client_app_pres = SD_TRUE; /* set client app present */ + + _ms_get_mms_app_ref (aCtx, &aes_ptr->client_app,&aes_ptr->client_app_len, + getaes_client_app_done); + } + +/************************************************************************/ +/* getaes_client_app_done */ +/* decoding get alarm enrollment summary RESPONSE (confirm): */ +/* client application has been obtained. */ +/************************************************************************/ + +static ST_VOID getaes_client_app_done (ASN1_DEC_CTXT *aCtx) + { + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = getaes_client_app_cstr_done; + } + +/************************************************************************/ +/* getaes_client_app_cstr_done */ +/* decoding get alarm enrollment summary RESPONSE (confirm): */ +/* client application constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID getaes_client_app_cstr_done (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, CTX, 3, getaes_get_severity); + } + +/************************************************************************/ +/* getaes_get_severity */ +/* decoding get alarm enrollment summary RESPONSE (confirm): */ +/* severity was encountered. */ +/************************************************************************/ + +static ST_VOID getaes_get_severity (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getaes_get_severity"); + + if (asn1r_get_u8 (aCtx, &aes_ptr->severity)) /* get the severity */ + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + + ASN1R_TAG_ADD (aCtx, CTX, 4, getaes_get_cur_state); + } + +/************************************************************************/ +/* getaes_get_cur_state */ +/* decoding get alarm enrollment summary RESPONSE (confirm): */ +/* current state was encountered. */ +/************************************************************************/ + +static ST_VOID getaes_get_cur_state (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getaes_get_cur_state"); + + if (asn1r_get_i16 (aCtx, &aes_ptr->cur_state)) /* get current state */ + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + else if ((aes_ptr->cur_state < 0) || (aes_ptr->cur_state > 2)) + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + +#ifdef CS_SUPPORT + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 5, getaes_addl_detail_cstr); +#endif + ASN1R_TAG_ADD (aCtx, CTX, 6, getaes_get_not_lost); + ASN1R_TAG_ADD (aCtx, CTX, 7, getaes_get_alarm_ack_rule); + } + +#ifdef CS_SUPPORT +/************************************************************************/ +/* getaes_addl_detail_cstr */ +/* decoding get alarm enrollment summary RESPONSE (confirm): */ +/* additional detail constructor was encountered. */ +/************************************************************************/ + +static ST_VOID getaes_addl_detail_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getaes_addl_detail_cstr"); + + aes_ptr->addl_detail_pres = SD_TRUE; /* set flag */ + aes_ptr->addl_detail = aCtx->asn1r_field_ptr; + aes_ptr->addl_detail_len = aCtx->asn1r_elmnt_len; + + asn1r_parse_next (aCtx, getaes_addl_detail_done); /* parse the contents */ + } + +/************************************************************************/ +/* getaes_addl_detail_done */ +/* decoding get alarm enrollment summary RESPONSE (confirm): */ +/* additional detail has been obtained. */ +/************************************************************************/ + +static ST_VOID getaes_addl_detail_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getaes_addl_detail_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = getaes_addl_detail_cstr_done; + } + +/************************************************************************/ +/* getaes_addl_detail_cstr_done */ +/* decoding get alarm enrollment summary RESPONSE (confirm): */ +/* additional detail constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID getaes_addl_detail_cstr_done (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, CTX, 6, getaes_get_not_lost); + ASN1R_TAG_ADD (aCtx, CTX, 7, getaes_get_alarm_ack_rule); + } +#endif + +/************************************************************************/ +/* getaes_get_not_lost */ +/* decoding get alarm enrollment summary RESPONSE (confirm): */ +/* notification lost was encountered. */ +/************************************************************************/ + +static ST_VOID getaes_get_not_lost (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getaes_get_not_lost"); + + if (asn1r_get_bool (aCtx, &(aes_ptr->not_lost))) /* get notification lost*/ + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + + ASN1R_TAG_ADD (aCtx, CTX, 7, getaes_get_alarm_ack_rule); + } + +/************************************************************************/ +/* getaes_get_alarm_ack_rule */ +/* decoding get alarm enrollment summary RESPONSE (confirm): */ +/* alarm acknowledgment rule was encountered. */ +/************************************************************************/ + +static ST_VOID getaes_get_alarm_ack_rule (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getaes_get_alarm_ack_rule"); + /* read alarm ack rule */ + if (asn1r_get_i16 (aCtx, &(aes_ptr->alarm_ack_rule))) + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + else if ((aes_ptr->alarm_ack_rule < 0) || (aes_ptr->alarm_ack_rule > 3)) + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + + ASN1R_TAG_ADD (aCtx, CTX, 8, getaes_get_ee_state); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 9, getaes_tta_time_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR,10, getaes_aack_time_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR,11, getaes_tti_time_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR,12, getaes_iack_time_cstr); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = getaes_alarm_esum_cstr_done; + } + +/************************************************************************/ +/* getaes_get_ee_state */ +/* decoding get alarm enrollment summary RESPONSE (confirm): */ +/* event enrollment state was encountered. */ +/************************************************************************/ + +static ST_VOID getaes_get_ee_state (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getaes_get_ee_state"); + + aes_ptr->ee_state_pres = SD_TRUE; /* set event cond state pres */ + + if (asn1r_get_i16 (aCtx, &aes_ptr->ee_state)) /* get event cond state */ + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + else if ((aes_ptr->ee_state < 0) || (aes_ptr->ee_state > 7)) + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 9, getaes_tta_time_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR,10, getaes_aack_time_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR,11, getaes_tti_time_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR,12, getaes_iack_time_cstr); + } + +/************************************************************************/ +/* getaes_tta_time_cstr */ +/* decoding get alarm enrollment summary RESPONSE (confirm): */ +/* transition to active time cstr was encountered. */ +/************************************************************************/ + +static ST_VOID getaes_tta_time_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getaes_tta_time_cstr"); + + aes_ptr->tta_time_pres = SD_TRUE; /* set tran to active present */ + + _ms_get_mms_evtime (aCtx, &aes_ptr->tta_time, getaes_tta_time_done); + } + +/************************************************************************/ +/* getaes_tta_time_done */ +/* decoding get alarm enrollment summary RESPONSE (confirm): */ +/* transition to active time has been obtained. */ +/************************************************************************/ + +static ST_VOID getaes_tta_time_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getaes_tta_time_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = getaes_tta_time_cstr_done; + } + +/************************************************************************/ +/* getaes_tta_time_cstr_done */ +/* decoding get alarm enrollment summary RESPONSE (confirm): */ +/* transition to active time cstr done has been encountered. */ +/************************************************************************/ + +static ST_VOID getaes_tta_time_cstr_done (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, CTX | CONSTR,10, getaes_aack_time_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR,11, getaes_tti_time_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR,12, getaes_iack_time_cstr); + } + +/************************************************************************/ +/* getaes_aack_time_cstr */ +/* decoding get alarm enrollment summary RESPONSE (confirm): */ +/* active acknowledgment time cstr was encountered. */ +/************************************************************************/ + +static ST_VOID getaes_aack_time_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getaes_aack_time_cstr"); + + aes_ptr->aack_time_pres = SD_TRUE; /* active acknowledgment pres */ + + _ms_get_mms_evtime (aCtx, &aes_ptr->aack_time, getaes_aack_time_done); + } + +/************************************************************************/ +/* getaes_aack_time_done */ +/* decoding get alarm enrollment summary RESPONSE (confirm): */ +/* active acknowledgment time has been obtained. */ +/************************************************************************/ + +static ST_VOID getaes_aack_time_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getaes_aack_time_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = getaes_aack_time_cstr_done; + } + +/************************************************************************/ +/* getaes_aack_time_cstr_done */ +/* decoding get alarm enrollment summary RESPONSE (confirm): */ +/* active acknowledgment time cstr done was encountered. */ +/************************************************************************/ + +static ST_VOID getaes_aack_time_cstr_done (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, CTX | CONSTR,11, getaes_tti_time_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR,12, getaes_iack_time_cstr); + } + +/************************************************************************/ +/* getaes_tti_time_cstr */ +/* decoding get alarm enrollment summary RESPONSE (confirm): */ +/* transition to idle time cstr was encountered. */ +/************************************************************************/ + +static ST_VOID getaes_tti_time_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getaes_tti_time_cstr"); + + aes_ptr->tti_time_pres = SD_TRUE; /* set tran to idle present */ + + _ms_get_mms_evtime (aCtx, &aes_ptr->tti_time, getaes_tti_time_done); + } + +/************************************************************************/ +/* getaes_tti_time_done */ +/* decoding get alarm enrollment summary RESPONSE (confirm): */ +/* transition to idle time has been obtained. */ +/************************************************************************/ + +static ST_VOID getaes_tti_time_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getaes_tti_time_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = getaes_tti_time_cstr_done; + } + +/************************************************************************/ +/* getaes_tti_time_cstr_done */ +/* decoding get alarm enrollment summary RESPONSE (confirm): */ +/* transition to idle time cstr done was encountered. */ +/************************************************************************/ + +static ST_VOID getaes_tti_time_cstr_done (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, CTX | CONSTR,12, getaes_iack_time_cstr); + } + +/************************************************************************/ +/* getaes_iack_time_cstr */ +/* decoding get alarm enrollment summary RESPONSE (confirm): */ +/* idle acknowledgment time cstr was encountered. */ +/************************************************************************/ + +static ST_VOID getaes_iack_time_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getaes_iack_time_cstr"); + + aes_ptr->iack_time_pres = SD_TRUE; /* idle acknowledgment present */ + + _ms_get_mms_evtime (aCtx, &aes_ptr->iack_time, getaes_iack_time_done); + } + +/************************************************************************/ +/* getaes_iack_time_done */ +/* decoding get alarm enrollment summary RESPONSE (confirm): */ +/* idle acknowledgment time has been obtained. */ +/************************************************************************/ + +static ST_VOID getaes_iack_time_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getaes_iack_time_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = NULL; + } + +/************************************************************************/ +/* getaes_alarm_esum_cstr_done */ +/* decoding get alarm enrollment summary RESPONSE (confirm): alarm */ +/* summary constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID getaes_alarm_esum_cstr_done (ASN1_DEC_CTXT *aCtx) + { + aes_ptr++; /* point to where next will go */ + + ASN1R_TAG_ADD (aCtx, UNI | CONSTR, SEQ_CODE, getaes_alarm_esum_cstr); + } + +/************************************************************************/ +/* getaes_aes_list_cstr_done */ +/* decoding get alarm enrollment summary RESPONSE (confirm): alarm */ +/* summary list constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID getaes_aes_list_cstr_done (ASN1_DEC_CTXT *aCtx) + { +ST_INT rsp_size; + /* find actual size for response info */ + rsp_size = sizeof (GETAES_RESP_INFO) + + (sizeof (ALARM_ENROLL_SUMMARY) * rsp_info->num_of_alarm_esum); + + /* give back unused storage */ + _mms_dec_info = (*m_realloc_os_fun) (_mms_dec_info,rsp_size); + rsp_info = (GETAES_RESP_INFO *) _mms_dec_info; + + ASN1R_TAG_ADD (aCtx, CTX, 1, getaes_get_more_follows); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* getaes_get_more_follows */ +/* decoding get alarm enrollment summary RESPONSE (confirm): more */ +/* follows indicator was encountered. */ +/************************************************************************/ + +static ST_VOID getaes_get_more_follows (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getaes_get_more_follows"); + + if (asn1r_get_bool (aCtx, &rsp_info->more_follows)) + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_getaes */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the decoding get alarm enrollment summary */ +/* request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_getaes (ST_INT chan, GETAES_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_GET_ALARM_ESUM, + M_CAST_MK_FUN (_ms_mk_getaes_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_getaes */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the decoding get alarm enrollment summary request. */ +/************************************************************************/ + +ST_RET mpl_getaes (GETAES_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_GET_ALARM_ESUM, + M_CAST_MK_FUN (_ms_mk_getaes_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_getaes_req */ +/* ENCODE a decoding get alarm enrollment summary REQUEST: */ +/************************************************************************/ + +ST_VOID _ms_mk_getaes_req (ASN1_ENC_CTXT *aCtx, GETAES_REQ_INFO *info) + { + if (info->ca_name_pres) + { + asn1r_strt_constr (aCtx); /* start ctx tag 5 cstr */ + _ms_wr_mms_objname (aCtx, &info->ca_name); /* write continue after name */ + asn1r_fin_constr (aCtx, 5,CTX,DEF); /* finish ctx tag 5 cstr */ + } + + if (info->least_sev_filter != 127 || /* not the defaults */ + info->most_sev_filter != 0) + { + asn1r_strt_constr (aCtx); /* start ctx tag 3 cstr */ + asn1r_wr_u8 (aCtx, info->least_sev_filter); /* write least severe filter */ + asn1r_fin_prim (aCtx, 1,CTX); + + asn1r_wr_u8 (aCtx, info->most_sev_filter); /* write most severe filter */ + asn1r_fin_prim (aCtx, 0,CTX); + asn1r_fin_constr (aCtx, 3,CTX,DEF); /* finish ctx tag 3 cstr */ + } + + if (info->ack_filter != SD_FALSE) + { + asn1r_wr_i16 (aCtx, info->ack_filter); /* write acknowledge filter */ + asn1r_fin_prim (aCtx, 2,CTX); + } + + if (!info->act_alarms_only) + { + asn1r_wr_bool (aCtx, info->act_alarms_only); /* write active alarms only */ + asn1r_fin_prim (aCtx, 1,CTX); + } + + if (!info->enroll_only) + { + asn1r_wr_bool (aCtx, info->enroll_only); /* write enrollments only */ + asn1r_fin_prim (aCtx, 0,CTX); + } + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_GET_ALARM_ESUM,CTX,DEF); /* tag = opcode, context */ + } diff --git a/mmslib/mmsle/rq_getas.c b/mmslib/mmsle/rq_getas.c new file mode 100644 index 0000000..64f1611 --- /dev/null +++ b/mmslib/mmsle/rq_getas.c @@ -0,0 +1,498 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_getas.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of get alarm */ +/* summary. It decodes the get alarm summary response (confirm) */ +/* & encodes the get alarm summary request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 04/28/00 JRB 04 Lint cleanup */ +/* 09/13/99 MDE 03 Added SD_CONST modifiers */ +/* 03/23/99 MDE 02 Changes to decode buffer allocation scheme */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 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_pevn.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : NONE */ + +static GETAS_RESP_INFO *rsp_info; + +static ALARM_SUMMARY *as_ptr; +static ST_INT max_summaries; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +/* static functions with multiple references */ +static ST_VOID getas_as_list_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID getas_alarm_sum_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID getas_cond_name_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID getas_cond_name_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID getas_cond_name_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID getas_get_severity (ASN1_DEC_CTXT *aCtx); +static ST_VOID getas_get_state (ASN1_DEC_CTXT *aCtx); +static ST_VOID getas_get_unack_state (ASN1_DEC_CTXT *aCtx); +#ifdef CS_SUPPORT +static ST_VOID getas_addl_detail_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID getas_addl_detail_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID getas_addl_detail_cstr_done (ASN1_DEC_CTXT *aCtx); +#endif +static ST_VOID getas_tta_time_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID getas_tta_time_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID getas_tta_time_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID getas_tti_time_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID getas_tti_time_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID getas_alarm_sum_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID getas_as_list_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID getas_get_more_follows (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_getas_rsp */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_getas_rsp (ASN1_DEC_CTXT *aCtx) + { +ST_INT rsp_size; + + MLOG_CDEC0 ("Get Alarm Summary Response"); + +#if defined(FIXED_DECBUF) + max_summaries = m_cl_max_alarm_summary; + rsp_size = mmsl_dec_info_size; +#else + max_summaries = _mmsdec_msglen/8; /* determine maximum size */ + if (m_cl_max_alarm_summary && (max_summaries > m_cl_max_alarm_summary)) + max_summaries = m_cl_max_alarm_summary; + +/* get storage for resp info */ + rsp_size = sizeof (GETAS_RESP_INFO) + + (max_summaries * (sizeof (ALARM_SUMMARY))); +#endif + +/* get storage for request information */ + rsp_info = (GETAS_RESP_INFO *) _m_get_dec_buf (aCtx, rsp_size); + as_ptr = (ALARM_SUMMARY *) (rsp_info + 1); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, getas_as_list_cstr); + } + +/************************************************************************/ +/* getas_as_list_cstr */ +/* get alarm summary RESPONSE (confirm) is being decoded: */ +/* alarm summary list constructor was encountered. */ +/************************************************************************/ + +static ST_VOID getas_as_list_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getas_as_list_cstr"); + + ASN1R_TAG_ADD (aCtx, UNI | CONSTR, SEQ_CODE, getas_alarm_sum_cstr); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = getas_as_list_cstr_done; + } + +/************************************************************************/ +/* getas_alarm_sum_cstr */ +/* get alarm summary RESPONSE (confirm) is being decoded: */ +/* alarm summary was encountered. */ +/************************************************************************/ + +static ST_VOID getas_alarm_sum_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getas_alarm_sum_cstr"); + + rsp_info->num_of_alarm_sum++; /* increment alarm summary cnt */ + + if (rsp_info->num_of_alarm_sum > max_summaries) + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, getas_cond_name_cstr); + } + +/************************************************************************/ +/* getas_cond_name_cstr */ +/* get alarm summary RESPONSE (confirm) is being decoded: */ +/* event condition name cstr was encountered. */ +/************************************************************************/ + +static ST_VOID getas_cond_name_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getas_cond_name_cstr"); + + _ms_get_mms_objname (aCtx, &as_ptr->evcon_name, getas_cond_name_done); + } + +/************************************************************************/ +/* getas_cond_name_done */ +/* get alarm summary RESPONSE (confirm) is being decoded: */ +/* event condition name has been obtained. */ +/************************************************************************/ + +static ST_VOID getas_cond_name_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getas_cond_name_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = getas_cond_name_cstr_done; + } + +/************************************************************************/ +/* getas_cond_name_cstr_done */ +/* get alarm summary RESPONSE (confirm) is being decoded: */ +/* event condition name cstr done has been encountered. */ +/************************************************************************/ + +static ST_VOID getas_cond_name_cstr_done (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, CTX, 1, getas_get_severity); + } + +/************************************************************************/ +/* getas_get_severity */ +/* get alarm summary RESPONSE (confirm) is being decoded: */ +/* severity was encountered. */ +/************************************************************************/ + +static ST_VOID getas_get_severity (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getas_get_severity"); + + if (asn1r_get_u8 (aCtx, &as_ptr->severity)) /* get the severity */ + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + + ASN1R_TAG_ADD (aCtx, CTX, 2, getas_get_state); + } + +/************************************************************************/ +/* getas_get_state */ +/* get alarm summary RESPONSE (confirm) is being decoded: */ +/* current state was encountered. */ +/************************************************************************/ + +static ST_VOID getas_get_state (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getas_get_state"); + + if (asn1r_get_i16 (aCtx, &as_ptr->cur_state)) /* get current state */ + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + else if ((as_ptr->cur_state < 0) || (as_ptr->cur_state > 2)) + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + + ASN1R_TAG_ADD (aCtx, CTX, 3, getas_get_unack_state); + } + +/************************************************************************/ +/* getas_get_unack_state */ +/* get alarm summary RESPONSE (confirm) is being decoded: */ +/* unack state was encountered. */ +/************************************************************************/ + +static ST_VOID getas_get_unack_state (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getas_get_unack_state"); + + if (asn1r_get_i16 (aCtx, &as_ptr->unack_state)) /* get unack state */ + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + else if ((as_ptr->unack_state < 0) || (as_ptr->unack_state > 3)) + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + +#ifdef CS_SUPPORT + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 4, getas_addl_detail_cstr); +#endif + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 5, getas_tta_time_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 6, getas_tti_time_cstr); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = getas_alarm_sum_cstr_done; + } + +#ifdef CS_SUPPORT +/************************************************************************/ +/* getas_addl_detail_cstr */ +/* get alarm summary RESPONSE (confirm) is being decoded: additional */ +/* detail was encountered. */ +/************************************************************************/ + +static ST_VOID getas_addl_detail_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getas_addl_detail_cstr"); + + as_ptr->addl_detail_pres = SD_TRUE; /* set add'nl detail present */ + + /* leave additional detail in place; just parse it. */ + as_ptr->addl_detail = aCtx->asn1r_field_ptr; + asn1r_parse_next (aCtx, getas_addl_detail_done); + } + +/************************************************************************/ +/* getas_addl_detail_done */ +/* get alarm summary RESPONSE (confirm) is being decoded: additional */ +/* detail has been parsed. */ +/************************************************************************/ + +static ST_VOID getas_addl_detail_done (ASN1_DEC_CTXT *aCtx) + { + + as_ptr->addl_detail_len = aCtx->asn1r_octetcount; /* save length */ + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = getas_addl_detail_cstr_done; + } + +/************************************************************************/ +/* getas_addl_detail_cstr_done */ +/* get alarm summary RESPONSE (confirm) is being decoded: additional */ +/* detail cstr done has been encountered. */ +/************************************************************************/ + +static ST_VOID getas_addl_detail_cstr_done (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 5, getas_tta_time_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 6, getas_tti_time_cstr); + } +#endif + +/************************************************************************/ +/* getas_tta_time_cstr */ +/* get alarm summary RESPONSE (confirm) is being decoded: */ +/* transition to active time cstr was encountered. */ +/************************************************************************/ + +static ST_VOID getas_tta_time_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getas_tta_time_cstr"); + + as_ptr->tta_time_pres = SD_TRUE; /* set tran to active present */ + + _ms_get_mms_evtime (aCtx, &as_ptr->tta_time, getas_tta_time_done); + } + +/************************************************************************/ +/* getas_tta_time_done */ +/* get alarm summary RESPONSE (confirm) is being decoded: */ +/* transition to active time has been obtained. */ +/************************************************************************/ + +static ST_VOID getas_tta_time_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getas_tta_time_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = getas_tta_time_cstr_done; + } + +/************************************************************************/ +/* getas_tta_time_cstr_done */ +/* get alarm summary RESPONSE (confirm) is being decoded: */ +/* transition to active time cstr done has been encountered. */ +/************************************************************************/ + +static ST_VOID getas_tta_time_cstr_done (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 6, getas_tti_time_cstr); + } + +/************************************************************************/ +/* getas_tti_time_cstr */ +/* get alarm summary RESPONSE (confirm) is being decoded: */ +/* transition to idle time cstr was encountered. */ +/************************************************************************/ + +static ST_VOID getas_tti_time_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getas_tti_time_cstr"); + + as_ptr->tti_time_pres = SD_TRUE; /* set tran to active present */ + + _ms_get_mms_evtime (aCtx, &as_ptr->tti_time, getas_tti_time_done); + } + +/************************************************************************/ +/* getas_tti_time_done */ +/* get alarm summary RESPONSE (confirm) is being decoded: */ +/* transition to idle time has been obtained. */ +/************************************************************************/ + +static ST_VOID getas_tti_time_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getas_tti_time_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = NULL; + } + +/************************************************************************/ +/* getas_alarm_sum_cstr_done */ +/* get alarm summary RESPONSE (confirm) is being decoded: alarm */ +/* summary constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID getas_alarm_sum_cstr_done (ASN1_DEC_CTXT *aCtx) + { + + as_ptr++; /* point to where next will go */ + + ASN1R_TAG_ADD (aCtx, UNI | CONSTR, SEQ_CODE, getas_alarm_sum_cstr); + } + +/************************************************************************/ +/* getas_as_list_cstr_done */ +/* get alarm summary RESPONSE (confirm) is being decoded: alarm */ +/* summary list constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID getas_as_list_cstr_done (ASN1_DEC_CTXT *aCtx) + { +ST_INT rsp_size; + + ASN1R_TAG_ADD (aCtx, CTX, 1, getas_get_more_follows); + /* find actual size for response info */ + rsp_size = sizeof (GETAS_RESP_INFO) + + (sizeof (ALARM_SUMMARY) * rsp_info->num_of_alarm_sum); + + /* give back unused storage */ + _mms_dec_info = (*m_realloc_os_fun) (_mms_dec_info,rsp_size); + rsp_info = (GETAS_RESP_INFO *) _mms_dec_info; + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* getas_get_more_follows */ +/* get alarm summary RESPONSE (confirm) is being decoded: more */ +/* follows indicator was encountered. */ +/************************************************************************/ + +static ST_VOID getas_get_more_follows (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getas_get_more_follows"); + + if (asn1r_get_bool (aCtx, &rsp_info->more_follows)) + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_getas */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the get alarm summary request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_getas (ST_INT chan, GETAS_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_GET_ALARM_SUM, + M_CAST_MK_FUN (_ms_mk_getas_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_getas */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the get alarm summary request. */ +/************************************************************************/ + +ST_RET mpl_getas (GETAS_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_GET_ALARM_SUM, + M_CAST_MK_FUN (_ms_mk_getas_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_getas_req */ +/* ENCODE a get alarm summary REQUEST: */ +/************************************************************************/ + +ST_VOID _ms_mk_getas_req (ASN1_ENC_CTXT *aCtx, GETAS_REQ_INFO *info) + { + if (info->ca_pres) + { + asn1r_strt_constr (aCtx); /* start ctx tag 5 cstr */ + _ms_wr_mms_objname (aCtx, &info->ca_name); /* write continue after name */ + asn1r_fin_constr (aCtx, 5,CTX,DEF); /* finish ctx tag 5 cstr */ + } + + if (info->least_sev_filter != 127 || /* not the defaults */ + info->most_sev_filter != 0) + { + asn1r_strt_constr (aCtx); /* start ctx tag 3 cstr */ + asn1r_wr_u8 (aCtx, info->least_sev_filter); /* write least severe filter */ + asn1r_fin_prim (aCtx, 1,CTX); + + asn1r_wr_u8 (aCtx, info->most_sev_filter); /* write most severe filter */ + asn1r_fin_prim (aCtx, 0,CTX); + asn1r_fin_constr (aCtx, 3,CTX,DEF); /* finish ctx tag 3 cstr */ + } + + if (info->ack_filter != SD_FALSE) + { + asn1r_wr_i16 (aCtx, info->ack_filter); /* write acknowledge filter */ + asn1r_fin_prim (aCtx, 2,CTX); + } + + if (!info->act_alarms_only) + { + asn1r_wr_bool (aCtx, info->act_alarms_only); /* write active alarms only */ + asn1r_fin_prim (aCtx, 1,CTX); + } + + if (!info->enroll_only) + { + asn1r_wr_bool (aCtx, info->enroll_only); /* write enrollments only */ + asn1r_fin_prim (aCtx, 0,CTX); + } + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_GET_ALARM_SUM,CTX,DEF); /* tag = opcode, context */ + } diff --git a/mmslib/mmsle/rq_getsc.c b/mmslib/mmsle/rq_getsc.c new file mode 100644 index 0000000..ef9299d --- /dev/null +++ b/mmslib/mmsle/rq_getsc.c @@ -0,0 +1,168 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_getscat.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of the get scattered */ +/* access attributes. It decodes the get scattered access */ +/* attributes response (confirm) & encodes the get scattered */ +/* access attributes request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 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++ */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 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 GETSCAT_RESP_INFO *rsp_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID getscat_scat_acc_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID getscat_scat_acc_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID getscat_scat_acc_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID getscat_get_mms_deletable (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_get_scat_rsp */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_get_scat_rsp (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Get Scattered Access Attributes Response"); + +/* get storage for request information */ + rsp_info = (GETSCAT_RESP_INFO *) _m_get_dec_buf (aCtx, sizeof (GETSCAT_RESP_INFO)); + ASN1R_TAG_ADD (aCtx, CTX, 0, getscat_get_mms_deletable); + } + +/************************************************************************/ +/* getscat_get_mms_deletable */ +/* Decoding get scattered access attributes response: mms deletable was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID getscat_get_mms_deletable (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getscat_get_mms_deletable"); + /* read mms deletable */ + if (asn1r_get_bool (aCtx, &(rsp_info->mms_deletable))) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1, getscat_scat_acc_cstr); + } + +/************************************************************************/ +/* getscat_scat_acc_cstr */ +/* get scattered access attributes request: scattered access constr was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID getscat_scat_acc_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getscat_scat_acc_cstr"); + + _ms_get_va_scat_access (aCtx, &rsp_info->sa_descr, getscat_scat_acc_done); + } + +/************************************************************************/ +/* getscat_scat_acc_done */ +/* get scattered access attributes request: scattered access has been */ +/* decoded. */ +/************************************************************************/ + +static ST_VOID getscat_scat_acc_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getscat_scat_acc_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = getscat_scat_acc_cstr_done; + } + +/************************************************************************/ +/* getscat_scat_acc_cstr_done */ +/* get scattered access attributes request: scattered access constr */ +/* done was encountered. */ +/************************************************************************/ + +static ST_VOID getscat_scat_acc_cstr_done (ASN1_DEC_CTXT *aCtx) + { + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_getscat */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE & send the get scattered access attributes request */ +/************************************************************************/ + +MMSREQ_PEND *mp_getscat (ST_INT chan, GETSCAT_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_GET_SCAT, + M_CAST_MK_FUN (_ms_mk_getscat_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_getscat */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the get scattered access attributes request. */ +/************************************************************************/ + +ST_RET mpl_getscat (GETSCAT_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_GET_SCAT, + M_CAST_MK_FUN (_ms_mk_getscat_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_getscat_req */ +/* construct a get scattered access attributes request */ +/************************************************************************/ + +ST_VOID _ms_mk_getscat_req (ASN1_ENC_CTXT *aCtx, GETSCAT_REQ_INFO *info) + { + _ms_wr_mms_objname (aCtx, &info->sa_name); /* write scattered access name */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_GET_SCAT,CTX,DEF); /* tag = opcode, ctx */ + } diff --git a/mmslib/mmsle/rq_initd.c b/mmslib/mmsle/rq_initd.c new file mode 100644 index 0000000..071323c --- /dev/null +++ b/mmslib/mmsle/rq_initd.c @@ -0,0 +1,146 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_initdown.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of initiate download */ +/* sequence. It decodes the initiate download sequence response */ +/* (confirm) & encodes the initiate download sequence request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 04 Remove "thisFileName" */ +/* 12/20/01 JRB 03 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 02 Added SD_CONST modifiers */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 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_pdom.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID init_download_null (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_init_download_rsp */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_init_download_rsp (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Initiate Download Sequence Response"); + +#ifndef MMS_LITE + if (mms_chan_info[_mmsdechan].version) /* IS */ +#else + if (mmsl_version) /* IS */ +#endif + _mms_null_pdu_dec (aCtx); /* IS PDU is NULL */ + else /* DIS */ + { + aCtx->asn1r_decode_method = ASN1_TAG_METHOD; /* Set decode method to TAG */ + ASN1R_TAG_ADD (aCtx, UNI, NULL_CODE, init_download_null); + } + } + +/************************************************************************/ +/* init_download_null */ +/* This function is called from MMSDEC when the NULL contents of this */ +/* response is found. No action required. */ +/************************************************************************/ + +static ST_VOID init_download_null (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("init_download_null"); + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_initdown */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the initiate download sequence. */ +/************************************************************************/ + +MMSREQ_PEND *mp_initdown (ST_INT chan, INITDOWN_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_INIT_DOWNLOAD, + M_CAST_MK_FUN (_ms_mk_initdown_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_initdown */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the initiate download sequence. */ +/************************************************************************/ + +ST_RET mpl_initdown (INITDOWN_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_INIT_DOWNLOAD, + M_CAST_MK_FUN (_ms_mk_initdown_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_initdown_req */ +/* ENCODE an initiate download sequence REQUEST: */ +/************************************************************************/ + +ST_VOID _ms_mk_initdown_req (ASN1_ENC_CTXT *aCtx, INITDOWN_REQ_INFO *info) + { +ST_INT16 i; +ST_CHAR **cap_ptr; + + asn1r_wr_bool (aCtx, info->sharable); /* write 'sharable' element */ + asn1r_fin_prim (aCtx, 2,CTX); + +/* Write the list of capabilities */ + + asn1r_strt_constr (aCtx); /* start ctx tag 1 constructor */ + cap_ptr = (ST_CHAR **) (info + 1); + cap_ptr += info->num_of_capab - 1; /* point to last capability */ + for (i = 0; i < info->num_of_capab; i++) + { + asn1r_wr_vstr (aCtx, *cap_ptr); /* write the capability */ + asn1r_fin_prim (aCtx, VISTR_CODE,UNI); /* universal string */ + cap_ptr--; + } + asn1r_fin_constr (aCtx, 1,CTX,DEF); /* ctx tag 1 constructor done */ + + asn1r_wr_vstr (aCtx, info->dname); /* write the domain name */ + asn1r_fin_prim (aCtx, 0,CTX); /* context specific tag 0 */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_INIT_DOWNLOAD,CTX,DEF); /* tag = opcode, ctx constr */ + } + diff --git a/mmslib/mmsle/rq_initu.c b/mmslib/mmsle/rq_initu.c new file mode 100644 index 0000000..3073c38 --- /dev/null +++ b/mmslib/mmsle/rq_initu.c @@ -0,0 +1,215 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_initupl.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of initiate upload */ +/* sequence. It decodes the initiate upload sequence response */ +/* (confirm) & encodes the initiate upload sequence request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 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++ */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 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_pdom.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : NONE */ + +static INITUPL_RESP_INFO *rsp_info; + +static ST_CHAR **cap_ptr; +static ST_INT max_capabilities; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID initupl_get_cap (ASN1_DEC_CTXT *aCtx); +static ST_VOID initupl_cap_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID initupl_cap_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID initupl_get_ulsmid (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_init_upload_rsp */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_init_upload_rsp (ASN1_DEC_CTXT *aCtx) + { +ST_INT rsp_size; + + MLOG_CDEC0 ("Initiate Upload Sequence Response"); + +#if defined(FIXED_DECBUF) + max_capabilities = m_cl_max_initupl_cap; + rsp_size = mmsl_dec_info_size; +#else + max_capabilities = _mmsdec_msglen/2; /* determine maximum size */ + if (m_cl_max_initupl_cap && (max_capabilities > m_cl_max_initupl_cap)) + max_capabilities = m_cl_max_initupl_cap; + rsp_size = sizeof (INITUPL_RESP_INFO) + + (max_capabilities * (sizeof (ST_CHAR *))); +#endif + +/* get storage for request information */ + rsp_info = (INITUPL_RESP_INFO *) _m_get_dec_buf (aCtx, rsp_size); + cap_ptr = (ST_CHAR **) (rsp_info + 1); + ASN1R_TAG_ADD (aCtx, CTX, 0, initupl_get_ulsmid); /* ulsm id is next */ + } + +/************************************************************************/ +/* initupl_get_ulsmid */ +/* initiate upload sequence RESPONSE (confirm) is being decoded: */ +/* decode the upload state machine id. */ +/************************************************************************/ + +static ST_VOID initupl_get_ulsmid (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("initupl_get_ulsmid"); + + if (asn1r_get_i32 (aCtx, &(rsp_info->ulsmid))) /* get upload state machine id */ + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1, initupl_cap_cstr); + } + +/************************************************************************/ +/* initupl_cap_cstr */ +/* initiate upload sequence RESPONSE (confirm) is being decoded: */ +/* capability list constructor was encountered. */ +/************************************************************************/ + +static ST_VOID initupl_cap_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("initupl_cap_cstr"); + + ASN1R_TAG_ADD (aCtx, UNI, VISTR_CODE, initupl_get_cap); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = initupl_cap_cstr_done; + } + +/************************************************************************/ +/* initupl_get_cap */ +/* initiate upload sequence RESPONSE (confirm) is being decoded: */ +/* capability was encountered. */ +/************************************************************************/ + +static ST_VOID initupl_get_cap (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("initupl_get_cap"); + + rsp_info->num_of_capab++; /* increment # of capabilities */ + if (rsp_info->num_of_capab > max_capabilities) + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + + /* copy capability back onto itself shifted by one character */ + *cap_ptr = (ST_CHAR *) aCtx->asn1r_field_ptr - 1; + if (asn1r_get_vstr (aCtx, *cap_ptr)) + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + cap_ptr++; + + ASN1R_TAG_ADD (aCtx, UNI, VISTR_CODE, initupl_get_cap); + } + +/************************************************************************/ +/* initupl_cap_cstr_done */ +/* initiate upload sequence RESPONSE (confirm) is being decoded: */ +/* capability list constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID initupl_cap_cstr_done (ASN1_DEC_CTXT *aCtx) + { +ST_INT rsp_size; + +/* OK to be done, or may have upload detail */ + + /* find actual size for response info */ + rsp_size = sizeof (INITUPL_RESP_INFO) + + (sizeof (ST_CHAR *) * rsp_info->num_of_capab); + + /* give back unused storage */ + _mms_dec_info = (*m_realloc_os_fun) (_mms_dec_info,rsp_size); + rsp_info = (INITUPL_RESP_INFO *) _mms_dec_info; + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_initupl */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the initiate upload sequence. */ +/************************************************************************/ + +MMSREQ_PEND *mp_initupl (ST_INT chan, INITUPL_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_INIT_UPLOAD, + M_CAST_MK_FUN (_ms_mk_initupl_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_initupl */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the initiate upload sequence. */ +/************************************************************************/ + +ST_RET mpl_initupl (INITUPL_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_INIT_UPLOAD, + M_CAST_MK_FUN (_ms_mk_initupl_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_initupl_req */ +/* ENCODE an initiate upload sequence REQUEST: */ +/************************************************************************/ + +ST_VOID _ms_mk_initupl_req (ASN1_ENC_CTXT *aCtx, INITUPL_REQ_INFO *info) + { + asn1r_wr_vstr (aCtx, info->dname); /* write the domain name */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_prim (aCtx, MMSOP_INIT_UPLOAD,CTX); /* tag = opcode, context */ + } diff --git a/mmslib/mmsle/rq_input.c b/mmslib/mmsle/rq_input.c new file mode 100644 index 0000000..127b896 --- /dev/null +++ b/mmslib/mmsle/rq_input.c @@ -0,0 +1,146 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_input.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of the input */ +/* operation. It decodes the input request (indication) and */ +/* encodes the input response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 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++ */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 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_pocs.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static INPUT_RESP_INFO *rsp_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + + +/************************************************************************/ +/************************************************************************/ +/* mms_input_rsp */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_input_rsp (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Input Response"); + + +/* get storage for request information */ + rsp_info = (INPUT_RESP_INFO *) _m_get_dec_buf (aCtx, sizeof (INPUT_RESP_INFO)); + rsp_info->input_resp = (ST_CHAR *) aCtx->asn1r_field_ptr - 1; /* set ptr to in rsp*/ + if (asn1r_get_vstr (aCtx, rsp_info->input_resp)) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_input */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the input request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_input (ST_INT chan, INPUT_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_INPUT, + M_CAST_MK_FUN (_ms_mk_input_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_input */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the input request. */ +/************************************************************************/ + +ST_RET mpl_input (INPUT_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_INPUT, + M_CAST_MK_FUN (_ms_mk_input_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_input_req */ +/* ENCODE an input REQUEST: */ +/************************************************************************/ + +ST_VOID _ms_mk_input_req (ASN1_ENC_CTXT *aCtx, INPUT_REQ_INFO *info) + { +ST_INT i; +ST_CHAR **prompt_data; + + asn1r_strt_constr (aCtx); /* start sequence constructor */ + + if (info->timeout_pres) + { + asn1r_wr_u32 (aCtx, info->timeout); /* write input timeout */ + asn1r_fin_prim (aCtx, 3,CTX); /* context specific tag 3 */ + } + + if (info->prompt_pres) + { + asn1r_strt_constr (aCtx); /* start prompt data list cstr */ + prompt_data = (ST_CHAR **) (info + 1);/* point to first prompt data */ + prompt_data += info->prompt_count -1; /* point to last prompt data */ + for (i = 0; i < info->prompt_count; i++) + { + asn1r_wr_vstr (aCtx, *prompt_data); /* write the prompt data */ + asn1r_fin_prim (aCtx, VISTR_CODE,UNI); /* universal string */ + prompt_data--; + } + asn1r_fin_constr (aCtx, 2,CTX,DEF); /* context specific tag 2 */ + } + + if (!info->echo) + { /* different from default */ + asn1r_wr_bool (aCtx, info->echo); /* write the echo */ + asn1r_fin_prim (aCtx, 1,CTX); /* context tag 1 */ + } + + asn1r_wr_vstr (aCtx, info->station_name); /* write the station name */ + asn1r_fin_prim (aCtx, 0,CTX); /* context tag 0 */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_INPUT,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsle/rq_jcrea.c b/mmslib/mmsle/rq_jcrea.c new file mode 100644 index 0000000..51c079e --- /dev/null +++ b/mmslib/mmsle/rq_jcrea.c @@ -0,0 +1,97 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_jcreate.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of create journal. */ +/* It decodes the create journal response (confirm) & encodes the */ +/* create journal request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 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_pjou.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : NONE */ + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +/************************************************************************/ +/************************************************************************/ +/* mms_jcreate_rsp */ +/* NOTE : Since the mms_jcreate_rsp is a NULL PDU, the decode is */ +/* continued by '_mms_null_pdu_dec', which simply sets decode done = 1 */ +/* and sets the decode done function to point to the general decode done*/ +/* fun. See mmsdec.c for the general functions. */ +/************************************************************************/ + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_jcreate */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the create journal request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_jcreate (ST_INT chan, JCREATE_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_CREATE_JOURNAL, + M_CAST_MK_FUN (_ms_mk_jcreate_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_jcreate */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the create journal request. */ +/************************************************************************/ + +ST_RET mpl_jcreate (JCREATE_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_CREATE_JOURNAL, + M_CAST_MK_FUN (_ms_mk_jcreate_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_jcreate_req */ +/* ENCODE a create journal REQUEST: */ +/************************************************************************/ + +ST_VOID _ms_mk_jcreate_req (ASN1_ENC_CTXT *aCtx, JCREATE_REQ_INFO *info) + { + asn1r_strt_constr (aCtx); /* start ctx tag 0 constructor */ + _ms_wr_mms_objname (aCtx, &info->jou_name); /* write the journal name */ + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* context specific tag 0 */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_CREATE_JOURNAL,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsle/rq_jdele.c b/mmslib/mmsle/rq_jdele.c new file mode 100644 index 0000000..b68decf --- /dev/null +++ b/mmslib/mmsle/rq_jdele.c @@ -0,0 +1,97 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_jdelete.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of delete journal. */ +/* It decodes the delete journal response (confirm) & encodes the */ +/* delete journal request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 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_pjou.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : NONE */ + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +/************************************************************************/ +/************************************************************************/ +/* mms_jdelete_rsp */ +/* NOTE : Since the mms_jdelete_rsp is a NULL PDU, the decode is */ +/* continued by '_mms_null_pdu_dec', which simply sets decode done = 1 */ +/* and sets the decode done function to point to the general decode done*/ +/* fun. See mmsdec.c for the general functions. */ +/************************************************************************/ + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_jdelete */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the delete journal request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_jdelete (ST_INT chan, JDELETE_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_DELETE_JOURNAL, + M_CAST_MK_FUN (_ms_mk_jdelete_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_jdelete */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the delete journal request. */ +/************************************************************************/ + +ST_RET mpl_jdelete (JDELETE_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_DELETE_JOURNAL, + M_CAST_MK_FUN (_ms_mk_jdelete_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_jdelete_req */ +/* ENCODE a delete journal REQUEST: */ +/************************************************************************/ + +ST_VOID _ms_mk_jdelete_req (ASN1_ENC_CTXT *aCtx, JDELETE_REQ_INFO *info) + { + asn1r_strt_constr (aCtx); /* start ctx tag 0 constructor */ + _ms_wr_mms_objname (aCtx, &info->jou_name); /* write the journal name */ + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* context specific tag 0 */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_DELETE_JOURNAL,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsle/rq_jinit.c b/mmslib/mmsle/rq_jinit.c new file mode 100644 index 0000000..65841c3 --- /dev/null +++ b/mmslib/mmsle/rq_jinit.c @@ -0,0 +1,130 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_jinit.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requestor portion of initialize */ +/* journal. It decodes the initialize journal response (confirm) */ +/* and encodes the initialize journal request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 07 Remove "thisFileName" */ +/* 12/20/01 JRB 06 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 05 Added SD_CONST modifiers */ +/* 03/23/99 MDE 04 Changes to decode buffer allocation scheme */ +/* 06/15/98 MDE 03 Changes to allow compile under C++ */ +/* 08/15/97 MDE 02 BTOD handling changes */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 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_pjou.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static JINIT_RESP_INFO *rsp_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + + +/************************************************************************/ +/************************************************************************/ +/* mms_jinit_rsp */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_jinit_rsp (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Initialize Journal Response"); + + +/* get storage for request information */ + rsp_info = (JINIT_RESP_INFO *) _m_get_dec_buf (aCtx, sizeof (JINIT_RESP_INFO)); + if (asn1r_get_u32 (aCtx, &rsp_info->del_entries)) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_jinit */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the initialize journal request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_jinit (ST_INT chan, JINIT_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_INIT_JOURNAL, + M_CAST_MK_FUN (_ms_mk_jinit_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_jinit */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the initialize journal request. */ +/************************************************************************/ + +ST_RET mpl_jinit (JINIT_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_INIT_JOURNAL, + M_CAST_MK_FUN (_ms_mk_jinit_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_jinit_req */ +/* ENCODE an initialize journal REQUEST: */ +/************************************************************************/ + +ST_VOID _ms_mk_jinit_req (ASN1_ENC_CTXT *aCtx, JINIT_REQ_INFO *info) + { + + if (info->limit_spec_pres) + { /* write limit specification */ + asn1r_strt_constr (aCtx); /* start context tag 1 cstr */ + if (info->limit_entry_pres) + { /* write limiting entry */ + asn1r_wr_octstr (aCtx, info->limit_entry, info->limit_entry_len); + asn1r_fin_prim (aCtx, 1,CTX); + } + asn1r_wr_btod (aCtx, &info->limit_time); + asn1r_fin_prim (aCtx, 0,CTX); + asn1r_fin_constr (aCtx, 1,CTX,DEF); /* finish context tag 1 cstr */ + } + + asn1r_strt_constr (aCtx); /* start context tag 0 cstr */ + _ms_wr_mms_objname (aCtx, &info->jou_name); /* write the journal name */ + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* finish context tag 0 cstr */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_INIT_JOURNAL,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsle/rq_jread.c b/mmslib/mmsle/rq_jread.c new file mode 100644 index 0000000..d95998f --- /dev/null +++ b/mmslib/mmsle/rq_jread.c @@ -0,0 +1,431 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_jread.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of read journal. */ +/* It decodes the read journal response (confirm) & encodes the */ +/* read journal request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 07 Remove "thisFileName" */ +/* 08/28/03 EJV 06 Corr spelling for 'receive'. */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 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++ */ +/* 08/15/97 MDE 01 BTOD handling changes */ +/* 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_pjou.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static JREAD_RESP_INFO *rsp_info; + +static JOURNAL_ENTRY *je_ptr; +static ST_INT max_jou_ent; +static ST_INT max_ec_vars; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID jread_get_orig_ae (ASN1_DEC_CTXT *aCtx); +static ST_VOID jread_jou_entry_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID jread_get_more_follows (ASN1_DEC_CTXT *aCtx); +static ST_VOID jread_jou_entry_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID jread_ec_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID jread_ec_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID jread_orig_ae_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID jread_orig_ae_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID jread_entry_id_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID jread_entry_id_prim (ASN1_DEC_CTXT *aCtx); +static ST_VOID jread_entry_id_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID jread_list_of_je_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID jread_list_of_je_cstr (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_jread_rsp */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_jread_rsp (ASN1_DEC_CTXT *aCtx) + { +ST_INT rsp_size; + + MLOG_CDEC0 ("Read Journal Response"); + +#if defined(FIXED_DECBUF) + max_jou_ent = m_cl_max_journal_entries; + max_ec_vars = m_cl_max_entry_content; + rsp_size = mmsl_dec_info_size; +#else +/* determine maximum storage - this over-estimates the maximum */ +/* required storage, storage for the maximum number of journal */ +/* entries would be sufficient. */ + max_jou_ent = _mmsdec_msglen/10; + max_ec_vars = _mmsdec_msglen/4; + + if (m_cl_max_journal_entries && (max_jou_ent > m_cl_max_journal_entries)) + max_jou_ent = m_cl_max_journal_entries; + if (m_cl_max_entry_content && (max_ec_vars > m_cl_max_entry_content)) + max_ec_vars = m_cl_max_entry_content; + rsp_size = sizeof (JREAD_RESP_INFO) + + (sizeof (JOURNAL_ENTRY) * max_jou_ent) + + (sizeof (VAR_INFO) * max_ec_vars); +#endif + +/* get storage for request information */ + rsp_info = (JREAD_RESP_INFO *) _m_get_dec_buf (aCtx, rsp_size); + je_ptr = (JOURNAL_ENTRY *) (rsp_info + 1); + rsp_info->more_follows = SD_FALSE; /* set default value */ + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, jread_list_of_je_cstr); + } + +/************************************************************************/ +/* jread_list_of_je_cstr */ +/* read journal RESPONSE (confirm) is being decoded: list of journal */ +/* entry constructor was encountered. */ +/************************************************************************/ + +static ST_VOID jread_list_of_je_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jread_list_of_je_cstr"); + + ASN1R_TAG_ADD (aCtx, UNI | CONSTR, SEQ_CODE, jread_jou_entry_cstr); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = jread_list_of_je_cstr_done; + } + +/************************************************************************/ +/* jread_jou_entry_cstr */ +/* read journal response is being decoded: journal entry cstr was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID jread_jou_entry_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jread_jou_entry_cstr"); + + rsp_info->num_of_jou_entry++; /* increment # of journal entry */ + if (rsp_info->num_of_jou_entry > max_jou_ent) + { + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + + ASN1R_TAG_ADD (aCtx, CTX, 0, jread_entry_id_prim); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, jread_entry_id_cstr); + } + +/************************************************************************/ +/* jread_entry_id_prim */ +/* read journal response is being decoded: entry id primitive was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID jread_entry_id_prim (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jread_entry_id_prim"); + + /* decode entry id back onto itself */ + je_ptr->entry_id = aCtx->asn1r_field_ptr; + + if (asn1r_get_octstr (aCtx, je_ptr->entry_id)) /* read entry id */ + asn1r_set_dec_err (aCtx, RESP_UNSPECIFIED); + + je_ptr->entry_id_len = aCtx->asn1r_octetcount; + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1, jread_get_orig_ae); + } + +/************************************************************************/ +/* jread_entry_id_cstr */ +/* read journal response is being decoded: entry id constructor was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID jread_entry_id_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jread_entry_id_cstr"); + + /* decode entry id back onto itself */ + je_ptr->entry_id = aCtx->asn1r_field_ptr; + + /* set up done decoding octet cstr destination */ + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = jread_entry_id_cstr_done; + + /* get entry id from the received message */ + /* set maximum length to accept entire message */ + asn1r_get_octstr_cstr (aCtx, _mmsdec_msglen, je_ptr->entry_id); + } + +/************************************************************************/ +/* jread_entry_id_cstr_done */ +/* read journal response is being decoded: entry id constructor done */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID jread_entry_id_cstr_done (ASN1_DEC_CTXT *aCtx) + { + + je_ptr->entry_id_len = aCtx->asn1r_octetcount; /* save entry id len */ + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1, jread_get_orig_ae); + } + +/************************************************************************/ +/* jread_get_orig_ae */ +/* read journal response is being decoded: originating ae cstr was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID jread_get_orig_ae (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jread_get_orig_ae"); + + _ms_get_mms_app_ref (aCtx, &je_ptr->orig_ae, &je_ptr->orig_ae_len, jread_orig_ae_done); + } + +/************************************************************************/ +/* jread_orig_ae_done */ +/* read journal response is being decoded: originating ae cstr done was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID jread_orig_ae_done (ASN1_DEC_CTXT *aCtx) + { + + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = jread_orig_ae_cstr_done; + } + +/************************************************************************/ +/* jread_orig_ae_cstr_done */ +/* read journal response is being decoded: originating ae cstr done was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID jread_orig_ae_cstr_done (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 2, jread_ec_cstr); + } + +/************************************************************************/ +/* jread_ec_cstr */ +/* read journal response is being decoded: entry content constructor */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID jread_ec_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jread_ec_cstr"); + + _ms_get_jou_ent_cont (aCtx, &je_ptr->ent_content, max_ec_vars, jread_ec_done); + } + +/************************************************************************/ +/* jread_ec_done */ +/* read journal response is being decoded: entry content has been */ +/* obtained. */ +/************************************************************************/ + +static ST_VOID jread_ec_done (ASN1_DEC_CTXT *aCtx) + { +VAR_INFO *vi_ptr; + + MLOG_CDEC0 ("jread_ec_done"); + + /* point to where next will go */ + if (je_ptr->ent_content.entry_form_tag == 2 && + je_ptr->ent_content.ef.data.list_of_var_pres) + { + vi_ptr = (VAR_INFO *) (je_ptr + 1); + je_ptr = (JOURNAL_ENTRY *) + (vi_ptr + je_ptr->ent_content.ef.data.num_of_var); + } + else + je_ptr++; + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = jread_jou_entry_cstr_done; + } + +/************************************************************************/ +/* jread_jou_entry_cstr_done */ +/* read journal response is being decoded: journal entry constructor */ +/* done was encountered. */ +/************************************************************************/ + +static ST_VOID jread_jou_entry_cstr_done (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, UNI | CONSTR, SEQ_CODE, jread_jou_entry_cstr); + } + +/************************************************************************/ +/* jread_list_of_je_cstr_done */ +/* read journal response is being decoded: list of journal entry cstr */ +/* done was encountered. */ +/************************************************************************/ + +static ST_VOID jread_list_of_je_cstr_done (ASN1_DEC_CTXT *aCtx) + { +ST_INT rsp_size; + + ASN1R_TAG_ADD (aCtx, CTX, 1, jread_get_more_follows); + /* find actual size for response info */ + rsp_size = (char *) je_ptr - (char *) rsp_info; + + /* give back unused storage */ + _mms_dec_info = (*m_realloc_os_fun) (_mms_dec_info,rsp_size); + rsp_info = (JREAD_RESP_INFO *) _mms_dec_info; + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* jread_get_more_follows */ +/* read journal response is being decoded: more follows indicator */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID jread_get_more_follows (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jread_get_more_follows"); + + if (asn1r_get_bool (aCtx, &rsp_info->more_follows)) /* read more follows */ + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_jread */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the read journal request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_jread (ST_INT chan, JREAD_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_READ_JOURNAL, + M_CAST_MK_FUN (_ms_mk_jread_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_jread */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the read journal request. */ +/************************************************************************/ + +ST_RET mpl_jread (JREAD_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_READ_JOURNAL, + M_CAST_MK_FUN (_ms_mk_jread_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_jread_req */ +/* ENCODE a read journal REQUEST: */ +/************************************************************************/ + +ST_VOID _ms_mk_jread_req (ASN1_ENC_CTXT *aCtx, JREAD_REQ_INFO *info) + { +ST_INT i; +ST_CHAR **var_ptr; + + asn1r_strt_constr (aCtx); /* start sequence constructor */ + + if (info->sa_entry_pres) + { /* write start after entry */ + asn1r_strt_constr (aCtx); /* start context tag 5 cstr */ + asn1r_wr_octstr (aCtx, info->entry_spec, info->entry_spec_len); + asn1r_fin_prim (aCtx, 1,CTX); + asn1r_wr_btod (aCtx, &info->time_spec); + asn1r_fin_prim (aCtx, 0,CTX); + asn1r_fin_constr (aCtx, 5,CTX,DEF); /* finish context tag 5 cstr */ + } + + if (info->list_of_var_pres) + { /* write list of variables */ + asn1r_strt_constr (aCtx); /* start context tag 4 cstr */ + var_ptr = (ST_CHAR **) (info + 1); + var_ptr += info->num_of_var - 1; /* point to last entry */ + for (i = 0; i < info->num_of_var; i++) + { + asn1r_wr_vstr (aCtx, *var_ptr); /* write the variable */ + asn1r_fin_prim (aCtx, VISTR_CODE,UNI); /* universal string */ + var_ptr--; + } + asn1r_fin_constr (aCtx, 4,CTX,DEF); /* finish context tag 4 cstr */ + } + + if (info->range_stop_pres) + { /* write range stop */ + asn1r_strt_constr (aCtx); /* start context tag 2 cstr */ + if (info->stop_tag == SD_TRUE) + { /* write the number of entries */ + asn1r_wr_i32 (aCtx, info->num_of_entries); + asn1r_fin_prim (aCtx, 1,CTX); + } + else + { /* write the ending time */ + asn1r_wr_btod (aCtx, &info->end_time); + asn1r_fin_prim (aCtx, 0,CTX); + } + asn1r_fin_constr (aCtx, 2,CTX,DEF); /* finish context tag 2 cstr */ + } + + if (info->range_start_pres) + { /* write range start */ + asn1r_strt_constr (aCtx); /* start context tag 1 cstr */ + if (info->start_tag == 1) + { /* write the starting entry */ + asn1r_wr_octstr (aCtx, info->start_entry, info->start_entry_len); + asn1r_fin_prim (aCtx, 1,CTX); + } + else + { /* write the starting time */ + asn1r_wr_btod (aCtx, &info->start_time); + asn1r_fin_prim (aCtx, 0,CTX); + } + asn1r_fin_constr (aCtx, 1,CTX,DEF); /* finish context tag 1 cstr */ + } + + asn1r_strt_constr (aCtx); /* start context tag 0 cstr */ + _ms_wr_mms_objname (aCtx, &info->jou_name); /* write the journal name */ + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* finish context tag 0 cstr */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_READ_JOURNAL,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsle/rq_jstat.c b/mmslib/mmsle/rq_jstat.c new file mode 100644 index 0000000..1a81fdb --- /dev/null +++ b/mmslib/mmsle/rq_jstat.c @@ -0,0 +1,144 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_jstat.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requestor portion of report journal */ +/* status. It decodes the report journal status response (confirm) */ +/* and encodes the report journal status request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 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++ */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 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_pjou.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static JSTAT_RESP_INFO *rsp_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID jstat_get_deletable (ASN1_DEC_CTXT *aCtx); +static ST_VOID jstat_get_cur_entries (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_jstat_rsp */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_jstat_rsp (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Report Journal Status Response"); + +/* get storage for request information */ + rsp_info = (JSTAT_RESP_INFO *) _m_get_dec_buf (aCtx, sizeof (JSTAT_RESP_INFO)); + + ASN1R_TAG_ADD (aCtx, CTX, 0, jstat_get_cur_entries); + } + +/************************************************************************/ +/* jstat_get_cur_entries */ +/* report journal status response is being decoded: current entries */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID jstat_get_cur_entries (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Report journal status response"); + + if (asn1r_get_u32 (aCtx, &rsp_info->cur_entries)) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + + ASN1R_TAG_ADD (aCtx, CTX, 1, jstat_get_deletable); /* deletable is next */ + } + +/************************************************************************/ +/* jstat_get_deletable */ +/* report journal status response is being decoded: current entries */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID jstat_get_deletable (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jstat_get_deletable"); + + if (asn1r_get_bool (aCtx, &rsp_info->mms_deletable)) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_jstat */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the report journal status request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_jstat (ST_INT chan, JSTAT_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_STAT_JOURNAL, + M_CAST_MK_FUN (_ms_mk_jstat_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_jstat */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the report journal status request. */ +/************************************************************************/ + +ST_RET mpl_jstat (JSTAT_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_STAT_JOURNAL, + M_CAST_MK_FUN (_ms_mk_jstat_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_jstat_req */ +/* ENCODE a report journal status REQUEST: */ +/************************************************************************/ + +ST_VOID _ms_mk_jstat_req (ASN1_ENC_CTXT *aCtx, JSTAT_REQ_INFO *info) + { + _ms_wr_mms_objname (aCtx, &info->jou_name); /* write the journal name */ +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_STAT_JOURNAL,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsle/rq_jwrit.c b/mmslib/mmsle/rq_jwrit.c new file mode 100644 index 0000000..48b1e74 --- /dev/null +++ b/mmslib/mmsle/rq_jwrit.c @@ -0,0 +1,144 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_jwrite.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of write journal. */ +/* It decodes the write journal response (confirm) & encodes the */ +/* write journal request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 03 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 02 Added SD_CONST modifiers */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 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_pjou.h" +#include "asn1defs.h" +#include "mem_chk.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/* variables global to the DECODE portion : NONE */ + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +/************************************************************************/ +/************************************************************************/ +/* mms_jwrite_rsp */ +/* NOTE : Since the mms_jwrite_rsp is a NULL PDU, the decode is */ +/* continued by '_mms_null_pdu_dec', which simply sets decode done = 1 */ +/* and sets the decode done function to point to the general decode done*/ +/* fun. See mmsdec.c for the general functions. */ +/************************************************************************/ + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_jwrite */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the write journal request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_jwrite (ST_INT chan, JWRITE_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_WRITE_JOURNAL, + M_CAST_MK_FUN (_ms_mk_jwrite_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_jwrite */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the write journal request. */ +/************************************************************************/ + +ST_RET mpl_jwrite (JWRITE_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_WRITE_JOURNAL, + M_CAST_MK_FUN (_ms_mk_jwrite_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_jwrite_req */ +/* ENCODE a write journal REQUEST: */ +/************************************************************************/ + +ST_VOID _ms_mk_jwrite_req (ASN1_ENC_CTXT *aCtx, JWRITE_REQ_INFO *info) + { +ST_INT i; +ENTRY_CONTENT **ec_list; +ENTRY_CONTENT *ec_ptr; +VAR_INFO *vi_ptr; +ST_INT ecl_size; + + ecl_size = sizeof (ENTRY_CONTENT *) * info->num_of_jou_entry; + ec_list = (ENTRY_CONTENT **) chk_calloc (1, ecl_size); + + /* find first entry content */ + ec_ptr = (ENTRY_CONTENT *) (info + 1); + for (i = 0; i < info->num_of_jou_entry; i++) + { /* find ptrs to entry contents */ + /* if variable list follows */ + *(ec_list++) = ec_ptr; + if (ec_ptr->entry_form_tag == 2 && ec_ptr->ef.data.list_of_var_pres) + { + vi_ptr = (VAR_INFO *) (ec_ptr + 1); + vi_ptr += ec_ptr->ef.data.num_of_var; + ec_ptr = (ENTRY_CONTENT *) vi_ptr; + } + else + ec_ptr++; /* annoatation or no var list */ + + } + + asn1r_strt_constr (aCtx); /* start context tag 1 cstr */ + for (i = 0; i < info->num_of_jou_entry; i++) + { + ec_ptr = *(--ec_list); + asn1r_strt_constr (aCtx); /* start universal seq cstr */ + _ms_wr_jou_ent_cont (aCtx, ec_ptr); /* write the entry content */ + asn1r_fin_constr (aCtx, SEQ_CODE,UNI,DEF); /* finish universal seq cstr */ + } + asn1r_fin_constr (aCtx, 1,CTX,DEF); /* finish context tag 1 cstr */ + chk_free (ec_list); + + asn1r_strt_constr (aCtx); /* start ctx tag 0 constructor */ + _ms_wr_mms_objname (aCtx, &info->jou_name); /* write the journal name */ + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* context specific tag 0 */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_WRITE_JOURNAL,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsle/rq_kill.c b/mmslib/mmsle/rq_kill.c new file mode 100644 index 0000000..1be3e00 --- /dev/null +++ b/mmslib/mmsle/rq_kill.c @@ -0,0 +1,96 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_kill.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of the kill */ +/* operation. It decodes the kill response (confirm) & encodes */ +/* the kill request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 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_pprg.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : NONE */ + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +/************************************************************************/ +/************************************************************************/ +/* mms_kill_rsp */ +/* NOTE : Since the mms_kill_rsp is a NULL PDU, the decode is continued */ +/* by '_mms_null_pdu_dec', which simply sets decode done = 1 and sets */ +/* the decode done function to point to the general decode done fun */ +/* See mmsdec.c for the general functions. */ +/************************************************************************/ + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_kill */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the kill request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_kill (ST_INT chan, KILL_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_KILL, + M_CAST_MK_FUN (_ms_mk_kill_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_kill */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the kill request. */ +/************************************************************************/ + +ST_RET mpl_kill (KILL_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_KILL, + M_CAST_MK_FUN (_ms_mk_kill_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_kill_req */ +/* Construct a kill request */ +/************************************************************************/ + +ST_VOID _ms_mk_kill_req (ASN1_ENC_CTXT *aCtx, KILL_REQ_INFO *info) + { + asn1r_wr_vstr (aCtx, info->piname); /* write pgm invocation name */ + asn1r_fin_prim (aCtx, 0, CTX); /* context tag 0 */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_KILL,CTX,DEF); /* tag = opcode, ctx cstr */ + } diff --git a/mmslib/mmsle/rq_loadd.c b/mmslib/mmsle/rq_loadd.c new file mode 100644 index 0000000..97587ac --- /dev/null +++ b/mmslib/mmsle/rq_loadd.c @@ -0,0 +1,126 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_loaddom.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of load domain */ +/* content. It decodes the load domain content response (confirm) */ +/* & encodes the load domain content request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 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_pdom.h" +#include "asn1defs.h" + +/* variables global to the DECODE portion : NONE */ + +/* variables global to the ENCODE portion : NONE */ + + +/************************************************************************/ +/************************************************************************/ +/* mms_load_domain_rsp */ +/* NOTE : Since the mms_load_domain_rsp is a NULL PDU, the decode is */ +/* continued by '_mms_null_pdu_dec', which simply sets decode done = 1 */ +/* and sets the decode done function to point to the general decode done*/ +/* fun. See mmsdec.c for the general functions. */ +/************************************************************************/ + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_loaddom */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the load domain content request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_loaddom (ST_INT chan, LOADDOM_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_LOAD_DOMAIN, + M_CAST_MK_FUN (_ms_mk_loaddom_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_loaddom */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the load domain content request. */ +/************************************************************************/ + +ST_RET mpl_loaddom (LOADDOM_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_LOAD_DOMAIN, + M_CAST_MK_FUN (_ms_mk_loaddom_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_loaddom_req */ +/* ENCODE a load domain content REQUEST: */ +/************************************************************************/ + +ST_VOID _ms_mk_loaddom_req (ASN1_ENC_CTXT *aCtx, LOADDOM_REQ_INFO *info) + { +ST_INT i; +ST_CHAR **cap_ptr; +FILE_NAME *fname_idx; + + if (info->third_pty_pres) + { + asn1r_wr_delmnt (aCtx, info->third_pty, info->third_pty_len); + *(aCtx->asn1r_field_ptr+1) = (ST_UCHAR) 0xA5; + } + + asn1r_strt_constr (aCtx); + cap_ptr = (ST_CHAR **) (info + 1); + cap_ptr += info->num_of_capab; /* point to first file_name */ + fname_idx = (FILE_NAME *)cap_ptr; + _ms_wr_mms_fname (aCtx, fname_idx, info -> num_of_fname); + asn1r_fin_constr (aCtx, 4,CTX,DEF); /* context specific tag 4 */ + + asn1r_wr_bool (aCtx, info->sharable); /* write the sharable flag */ + asn1r_fin_prim (aCtx, 2,CTX); /* context specific tag 2 */ + + asn1r_strt_constr (aCtx); /* start ctx tag 1 constructor */ + cap_ptr--; /* point to last capability */ + for (i = 0; i < info->num_of_capab; i++) + { + asn1r_wr_vstr (aCtx, *cap_ptr); /* write the capability */ + asn1r_fin_prim (aCtx, VISTR_CODE,UNI); /* universal string */ + cap_ptr--; + } + asn1r_fin_constr (aCtx, 1,CTX,DEF); /* ctx tag 1 constructor done */ + + asn1r_wr_vstr (aCtx, info->dname); /* write the domain name */ + asn1r_fin_prim (aCtx, 0,CTX); /* context specific tag 0 */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_LOAD_DOMAIN,CTX,DEF); /* tag = opcode, ctx constr */ + } + diff --git a/mmslib/mmsle/rq_obtfi.c b/mmslib/mmsle/rq_obtfi.c new file mode 100644 index 0000000..76687f5 --- /dev/null +++ b/mmslib/mmsle/rq_obtfi.c @@ -0,0 +1,115 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_obtfile.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of the obtain file. */ +/* It decodes the obtain file response (confirm) & encodes the */ +/* obtain file request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 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_pfil.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : NONE */ + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +/************************************************************************/ +/************************************************************************/ +/* mms_obtain_file_rsp */ +/* NOTE : Since the mms_obtain_file_rsp is a NULL PDU, the decode is */ +/* continued by '_mms_null_pdu_dec', which simply sets decode done = 1 */ +/* and sets the decode done function to point to the general decode done*/ +/* fun. See mmsdec.c for the general functions. */ +/************************************************************************/ + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_obtfile */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the obtain file request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_obtfile (ST_INT chan, OBTFILE_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_OBTAIN_FILE, + M_CAST_MK_FUN (_ms_mk_obtfile_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_obtfile */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the obtain file request. */ +/************************************************************************/ + +ST_RET mpl_obtfile (OBTFILE_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_OBTAIN_FILE, + M_CAST_MK_FUN (_ms_mk_obtfile_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_obtfile_req */ +/* construct an obtain file request */ +/************************************************************************/ + +ST_VOID _ms_mk_obtfile_req (ASN1_ENC_CTXT *aCtx, OBTFILE_REQ_INFO *info) + { +FILE_NAME *fname_idx; + + /* write the destinaion file */ + asn1r_strt_constr (aCtx); + fname_idx = (FILE_NAME *)(info + 1); + fname_idx += info->num_of_src_fname; + _ms_wr_mms_fname (aCtx, fname_idx, info->num_of_dest_fname); + asn1r_fin_constr (aCtx, 2,CTX,DEF); /* context specific tag 2 */ + + /* write the source file */ + asn1r_strt_constr (aCtx); + fname_idx = (FILE_NAME *)(info + 1); + _ms_wr_mms_fname (aCtx, fname_idx, info->num_of_src_fname); + asn1r_fin_constr (aCtx, 1,CTX,DEF); /* context specific tag 1 */ + + if (info->ar_title_pres) + { + asn1r_wr_delmnt (aCtx, info->ar_title, info->ar_len); + *(aCtx->asn1r_field_ptr+1) = (ST_UCHAR) 0xA0; + } + +/* Obtain file request contents complete, finish the sequence by */ +/* writing the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_OBTAIN_FILE,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsle/rq_outpu.c b/mmslib/mmsle/rq_outpu.c new file mode 100644 index 0000000..aec9c61 --- /dev/null +++ b/mmslib/mmsle/rq_outpu.c @@ -0,0 +1,110 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_output.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of the output */ +/* operation. It decodes the output response (confirm) & encodes */ +/* the output request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 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_pocs.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : NONE */ + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +/************************************************************************/ +/************************************************************************/ +/* mms_output_rsp */ +/* NOTE : Since the mms_output_rsp is a NULL PDU, the decode is */ +/* continued by '_mms_null_pdu_dec', which simply sets decode done = 1 */ +/* and sets the decode done function to point to the general decode done*/ +/* fun. See mmsdec.c for the general functions. */ +/************************************************************************/ + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_output */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the output request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_output (ST_INT chan, OUTPUT_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_OUTPUT, + M_CAST_MK_FUN (_ms_mk_output_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_output */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the output request. */ +/************************************************************************/ + +ST_RET mpl_output (OUTPUT_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_OUTPUT, + M_CAST_MK_FUN (_ms_mk_output_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_output_req */ +/* construct an output request */ +/************************************************************************/ + +ST_VOID _ms_mk_output_req (ASN1_ENC_CTXT *aCtx, OUTPUT_REQ_INFO *info) + { +ST_INT i; +ST_CHAR **output_data; + + asn1r_strt_constr (aCtx); /* start sequence constr */ + output_data = (ST_CHAR **) (info + 1); /* point to first output string */ + output_data += info->data_count - 1; /* point to last output string */ + for (i = 0; i < info->data_count; i++) + { + asn1r_wr_vstr (aCtx, *output_data); /* write the output data */ + asn1r_fin_prim (aCtx, VISTR_CODE,UNI); /* universal string */ + output_data--; /* point to previous string */ + } + asn1r_fin_constr (aCtx, 1, CTX, DEF); /* context tag 1 */ + + asn1r_wr_vstr (aCtx, info->station_name); /* write the station name */ + asn1r_fin_prim (aCtx, 0,CTX); /* universal string */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_OUTPUT,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsle/rq_rddwn.c b/mmslib/mmsle/rq_rddwn.c new file mode 100644 index 0000000..367c0f4 --- /dev/null +++ b/mmslib/mmsle/rq_rddwn.c @@ -0,0 +1,121 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_rddwn.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of request domain */ +/* download. It decodes the request domain download response */ +/* (confirm) & encodes the request domain download request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 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_pdom.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + + +/************************************************************************/ +/************************************************************************/ +/* mms_rddwn_rsp */ +/* NOTE : Since the mms_rddwn_rsp is a NULL PDU, the decode is continued*/ +/* by '_mms_null_pdu_dec', which simply sets decode done = 1 and sets the*/ +/* decode done function to point to the general decode done fun. See */ +/* mmsdec.c for the general functions. */ +/************************************************************************/ + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_rddwn */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the request domain download request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_rddwn (ST_INT chan, RDDWN_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_REQ_DOM_DOWN, + M_CAST_MK_FUN (_ms_mk_rddwn_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_rddwn */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the request domain download request. */ +/************************************************************************/ + +ST_RET mpl_rddwn (RDDWN_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_REQ_DOM_DOWN, + M_CAST_MK_FUN (_ms_mk_rddwn_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_rddwn_req */ +/* ENCODE a request domain download REQUEST: */ +/************************************************************************/ + +ST_VOID _ms_mk_rddwn_req (ASN1_ENC_CTXT *aCtx, RDDWN_REQ_INFO *info) + { +ST_INT i; +ST_CHAR **cap_ptr; +FILE_NAME *fname_idx; + + asn1r_strt_constr (aCtx); + cap_ptr = (ST_CHAR **) (info + 1); + cap_ptr += info->num_of_capab; /* point to first file_name */ + fname_idx = (FILE_NAME *)(cap_ptr); + _ms_wr_mms_fname (aCtx, fname_idx, info->num_of_fname); + asn1r_fin_constr (aCtx, 4,CTX,DEF); /* context specific tag 4 */ + + asn1r_wr_bool (aCtx, info->sharable); /* write 'sharable' element */ + asn1r_fin_prim (aCtx, 2,CTX); + +/* Write the list of capabilities */ + + asn1r_strt_constr (aCtx); /* start ctx tag 1 constructor */ + cap_ptr--; /* point to last capability */ + for (i = 0; i < info->num_of_capab; i++) + { + asn1r_wr_vstr (aCtx, *cap_ptr); /* write the capability */ + asn1r_fin_prim (aCtx, VISTR_CODE,UNI); /* universal string */ + cap_ptr--; + } + asn1r_fin_constr (aCtx, 1,CTX,DEF); /* ctx tag 1 constructor done */ + + asn1r_wr_vstr (aCtx, info->dname); /* write the domain name */ + asn1r_fin_prim (aCtx, 0,CTX); /* context specific tag 0 */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_REQ_DOM_DOWN,CTX,DEF); /* tag = opcode, ctx constr */ + } + diff --git a/mmslib/mmsle/rq_rdupl.c b/mmslib/mmsle/rq_rdupl.c new file mode 100644 index 0000000..e4fadd4 --- /dev/null +++ b/mmslib/mmsle/rq_rdupl.c @@ -0,0 +1,100 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_rdupl.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of request domain */ +/* upload. It decodes the request domain upload response */ +/* (confirm) & encodes the request domain upload request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 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_pdom.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + + +/************************************************************************/ +/************************************************************************/ +/* mms_rdupl_rsp */ +/* NOTE : Since the mms_rdupl_rsp is a NULL PDU, the decode is continued*/ +/* by '_mms_null_pdu_dec', which simply sets decode done = 1 and sets the*/ +/* decode done function to point to the general decode done fun. See */ +/* mmsdec.c for the general functions. */ +/************************************************************************/ + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_rdupl */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the request domain upload request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_rdupl (ST_INT chan, RDUPL_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_REQ_DOM_UPL, + M_CAST_MK_FUN (_ms_mk_rdupl_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_rdupl */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the request domain upload request. */ +/************************************************************************/ + +ST_RET mpl_rdupl (RDUPL_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_REQ_DOM_UPL, + M_CAST_MK_FUN (_ms_mk_rdupl_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_rdupl_req */ +/* ENCODE a request domain upload REQUEST: */ +/************************************************************************/ + +ST_VOID _ms_mk_rdupl_req (ASN1_ENC_CTXT *aCtx, RDUPL_REQ_INFO *info) + { + asn1r_strt_constr (aCtx); + _ms_wr_mms_fname (aCtx, (FILE_NAME *)(info + 1), + info->num_of_fname); + asn1r_fin_constr (aCtx, 1,CTX,DEF); /* context specific tag 1 */ + + asn1r_wr_vstr (aCtx, info->dname); /* write the domain name */ + asn1r_fin_prim (aCtx, 0,CTX); /* context specific tag 0 */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_REQ_DOM_UPL,CTX,DEF); /* tag = opcode, ctx constr */ + } + diff --git a/mmslib/mmsle/rq_relct.c b/mmslib/mmsle/rq_relct.c new file mode 100644 index 0000000..de7955e --- /dev/null +++ b/mmslib/mmsle/rq_relct.c @@ -0,0 +1,108 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_relctrl.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of relinquish */ +/* semaphore control. It decodes the relinquish control response */ +/* (confirm) & encodes the relinguish control request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 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_psem.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : NONE */ + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +/************************************************************************/ +/************************************************************************/ +/* mms_relctrl_rsp */ +/* NOTE : Since the mms_relctrl_rsp is a NULL PDU, the decode is */ +/* continued by '_mms_null_pdu_dec', which simply sets decode done = 1 */ +/* and sets the decode done function to point to the general decode done*/ +/* fun. See mmsdec.c for the general functions. */ +/************************************************************************/ + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_relctrl */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the relinquish control request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_relctrl (ST_INT chan, RELCTRL_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_REL_CONTROL, + M_CAST_MK_FUN (_ms_mk_relctrl_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_relctrl */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the relinquish control request. */ +/************************************************************************/ + +ST_RET mpl_relctrl (RELCTRL_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_REL_CONTROL, + M_CAST_MK_FUN (_ms_mk_relctrl_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_relctrl_req */ +/* construct a relinquish control request */ +/************************************************************************/ + +ST_VOID _ms_mk_relctrl_req (ASN1_ENC_CTXT *aCtx, RELCTRL_REQ_INFO *info) + { + + asn1r_strt_constr (aCtx); /* start sequence constr */ + + if (info->named_token_pres) + { + asn1r_wr_vstr (aCtx, info->named_token); /* write the named token */ + asn1r_fin_prim (aCtx, 1, CTX); /* context tag 1 */ + } + + asn1r_strt_constr (aCtx); /* object name constructor */ + + _ms_wr_mms_objname (aCtx, &info->sem_name); /* write the object name */ + + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* context tag 0 */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_REL_CONTROL,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsle/rq_renam.c b/mmslib/mmsle/rq_renam.c new file mode 100644 index 0000000..e4abcc9 --- /dev/null +++ b/mmslib/mmsle/rq_renam.c @@ -0,0 +1,120 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_rename.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of the rename */ +/* service. It decodes the rename response (indication) and */ +/* encodes the rename request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 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_pvmd.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : NONE */ + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + + +/************************************************************************/ +/************************************************************************/ +/* mms_rename_rsp */ +/* NOTE : Since the mms_rename_rsp is a NULL PDU, the decode is */ +/* continued by '_mms_null_pdu_dec', which simply sets decode done = 1 */ +/* and sets the decode done function to point to the general decode done*/ +/* fun. See mmsdec.c for the general functions. */ +/************************************************************************/ + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_rename */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send a rename REQUEST: */ +/************************************************************************/ + +MMSREQ_PEND *mp_rename (ST_INT chan, RENAME_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_RENAME, + M_CAST_MK_FUN (_ms_mk_rename_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_rename */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE a rename REQUEST: */ +/************************************************************************/ + +ST_RET mpl_rename (RENAME_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_RENAME, + M_CAST_MK_FUN (_ms_mk_rename_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_rename_req */ +/* ENCODE a rename REQUEST: */ +/************************************************************************/ + +ST_VOID _ms_mk_rename_req (ASN1_ENC_CTXT *aCtx, RENAME_REQ_INFO *info_ptr) + { + asn1r_wr_vstr (aCtx, info_ptr->new_ident); /* write the new identifier */ + asn1r_fin_prim (aCtx, 2,CTX); /* context specific tag 2 */ + + asn1r_strt_constr (aCtx); /* start ctx tag 1 constructor */ + _ms_wr_mms_objname (aCtx, &info_ptr->cur_name); /* write the current name */ + asn1r_fin_constr (aCtx, 1,CTX,DEF); /* context specific tag 1 */ + + asn1r_strt_constr (aCtx); /* start extendedObjectClass */ +#ifdef CS_SUPPORT + if (info_ptr->cs_objclass_pres) /* if companion standard */ + { + asn1r_strt_constr (aCtx); /* start cs ObjectClass cstr */ + asn1r_wr_octstr (aCtx, info_ptr->obj.cs.cs_class,info_ptr->obj.cs.len); + asn1r_fin_constr (aCtx, 1,CTX,DEF); + } + else + { + asn1r_wr_i16 (aCtx, info_ptr->obj.mms_class); /* write the object scope */ + asn1r_fin_prim (aCtx, 0,CTX); + } +#else + asn1r_wr_i16 (aCtx, info_ptr->obj.mms_class); /* write the object scope */ + asn1r_fin_prim (aCtx, 0,CTX); +#endif + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* finish the extendedObjClass */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_RENAME,CTX,DEF); /* complete rename req */ + } diff --git a/mmslib/mmsle/rq_reset.c b/mmslib/mmsle/rq_reset.c new file mode 100644 index 0000000..225a8be --- /dev/null +++ b/mmslib/mmsle/rq_reset.c @@ -0,0 +1,96 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_reset.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of the reset */ +/* operation. It decodes the reset response (confirm) & encodes */ +/* the reset request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 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_pprg.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : NONE */ + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +/************************************************************************/ +/************************************************************************/ +/* mms_reset_rsp */ +/* NOTE: Since the mms_reset_ rsp is a NULL PDU, the decode is continued*/ +/* by '_mms_null_pdu_dec', which simply sets decode done = 1 and sets */ +/* the decode done function to point to the general decode done fun */ +/* See mmsdec.c for the general functions. */ +/************************************************************************/ + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_reset */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the reset request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_reset (ST_INT chan, RESET_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_RESET, + M_CAST_MK_FUN (_ms_mk_reset_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_reset */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the reset request. */ +/************************************************************************/ + +ST_RET mpl_reset (RESET_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_RESET, + M_CAST_MK_FUN (_ms_mk_reset_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_reset_req */ +/* construct a reset request */ +/************************************************************************/ + +ST_VOID _ms_mk_reset_req (ASN1_ENC_CTXT *aCtx, RESET_REQ_INFO *info) + { + asn1r_wr_vstr (aCtx, info->piname); /* write pgm invocation name */ + asn1r_fin_prim (aCtx, 0, CTX); /* context tag 0 */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_RESET,CTX,DEF); /* tag = opcode, ctx cstr */ + } diff --git a/mmslib/mmsle/rq_resum.c b/mmslib/mmsle/rq_resum.c new file mode 100644 index 0000000..bd92ad2 --- /dev/null +++ b/mmslib/mmsle/rq_resum.c @@ -0,0 +1,107 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_resume.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of the resume */ +/* operation. It decodes the resume response (confirm) & encodes */ +/* the resume request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 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_pprg.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : NONE */ + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +/************************************************************************/ +/************************************************************************/ +/* mms_resume_rsp */ +/* NOTE: Since the mms_resume_rsp is a NULL PDU, the decode is continued*/ +/* by '_mms_null_pdu_dec', which simply sets decode done = 1 and sets */ +/* the decode done function to point to the general decode done fun */ +/* See mmsdec.c for the general functions. */ +/************************************************************************/ + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_resume */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the resume request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_resume (ST_INT chan, RESUME_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_RESUME, + M_CAST_MK_FUN (_ms_mk_resume_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_resume */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the resume request. */ +/************************************************************************/ + +ST_RET mpl_resume (RESUME_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_RESUME, + M_CAST_MK_FUN (_ms_mk_resume_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_resume_req */ +/* construct a resume request */ +/************************************************************************/ + +ST_VOID _ms_mk_resume_req (ASN1_ENC_CTXT *aCtx, RESUME_REQ_INFO *info) + { + if (info->resume_arg_pres) + { + if (info->resume_arg_type == ARG_TYPE_SIMPLE) + { + asn1r_wr_vstr (aCtx, (ST_CHAR *)info->resume_arg); /* write the resume argument */ + asn1r_fin_prim (aCtx, 1, CTX); /* context tag 1 */ + } + else /* ENCODED data, write as complete ASN.1 EXTERNAL */ + asn1r_wr_delmnt (aCtx, info->resume_arg,info->resume_arg_len); + } + + asn1r_wr_vstr (aCtx, info->piname); /* write pgm invocation name */ + asn1r_fin_prim (aCtx, 0, CTX); /* context tag 0 */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_RESUME,CTX,DEF); /* tag = opcode, ctx cstr */ + } diff --git a/mmslib/mmsle/rq_rsent.c b/mmslib/mmsle/rq_rsent.c new file mode 100644 index 0000000..8872b37 --- /dev/null +++ b/mmslib/mmsle/rq_rsent.c @@ -0,0 +1,457 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_rsentry.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of report semaphore */ +/* entry status. It decodes the report semaphore entry status */ +/* response (confirm) & encodes the report semaphore entry status */ +/* request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 08/28/03 EJV 05 Corr spelling for 'receive'. */ +/* 12/20/01 JRB 04 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 03 Added SD_CONST modifiers */ +/* 03/23/99 MDE 02 Changes to decode buffer allocation scheme */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 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_psem.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static RSENTRY_RESP_INFO *rsp_info; + +static SEMAPHORE_ENTRY *sent_ptr; +static ST_INT max_sem_entries; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID rsentry_get_entry_class (ASN1_DEC_CTXT *aCtx); +static ST_VOID rsentry_app_ref_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID rsentry_get_priority (ASN1_DEC_CTXT *aCtx); +static ST_VOID rsentry_get_rem_timeout (ASN1_DEC_CTXT *aCtx); +static ST_VOID rsentry_get_abrt_timeout (ASN1_DEC_CTXT *aCtx); +static ST_VOID rsentry_get_rel_conn_lost (ASN1_DEC_CTXT *aCtx); +static ST_VOID rsentry_entry_seq_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID rsentry_get_named_token (ASN1_DEC_CTXT *aCtx); +static ST_VOID rsentry_entry_seq_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID app_ref_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID app_ref_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID rsentry_entry_id_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID rsentry_get_entry_id (ASN1_DEC_CTXT *aCtx); +static ST_VOID rsentry_entry_id_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID rsentry_sem_entry_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID rsentry_sem_entry_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID rsentry_get_more_follows (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_rsentry_rsp */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_rsentry_rsp (ASN1_DEC_CTXT *aCtx) + { +ST_INT rsp_size; + + MLOG_CDEC0 ("Report Semaphore Entry Status Response"); + +#if defined(FIXED_DECBUF) + max_sem_entries = m_cl_max_semaphore_entries; + rsp_size = mmsl_dec_info_size; +#else + max_sem_entries = _mmsdec_msglen / 6; /* find maximum size of response info */ + if (m_cl_max_semaphore_entries && (max_sem_entries > m_cl_max_semaphore_entries)) + max_sem_entries = m_cl_max_semaphore_entries; + rsp_size = sizeof (RSENTRY_RESP_INFO) + + (sizeof (SEMAPHORE_ENTRY) * max_sem_entries); +#endif + +/* get storage for request information */ + rsp_info = (RSENTRY_RESP_INFO *) _m_get_dec_buf (aCtx, rsp_size); + sent_ptr = (SEMAPHORE_ENTRY *) (rsp_info + 1); + + rsp_info->more_follows = SD_TRUE;/* set default value for more follows */ + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, rsentry_sem_entry_cstr); + } + +/************************************************************************/ +/* rsentry_sem_entry_cstr */ +/* Decoding report semaphore entry status request: semaphore entry list */ +/* constructor was encountered. */ +/************************************************************************/ + +static ST_VOID rsentry_sem_entry_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("rsentry_sem_entry_cstr"); + + ASN1R_TAG_ADD (aCtx, UNI | CONSTR, SEQ_CODE, rsentry_entry_seq_cstr); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = rsentry_sem_entry_cstr_done; + } + +/************************************************************************/ +/* rsentry_entry_seq_cstr */ +/* Decoding report semaphore entry status request: semaphore entry */ +/* sequence constructor was encountered. */ +/************************************************************************/ + +static ST_VOID rsentry_entry_seq_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("rsentry_entry_seq_cstr"); + + rsp_info->num_of_sent++; /* increment number of entries */ + if (rsp_info->num_of_sent > max_sem_entries) + { /* too many semaphore entries */ + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + + sent_ptr->priority = MMS_NORM_PRIORITY; /* set defaults */ + sent_ptr->rel_conn_lost = SD_TRUE; + + ASN1R_TAG_ADD (aCtx, CTX, 0, rsentry_get_entry_id); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, rsentry_entry_id_cstr); + } + +/************************************************************************/ +/* rsentry_get_entry_id */ +/* Decoding report semaphore entry status request: entry id primitive */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID rsentry_get_entry_id (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("txdwn_get_entry_id"); + + /* decode entry id onto itself, shifted by one character */ + sent_ptr->entry_id = aCtx->asn1r_field_ptr - 1; + + /* read entry id from message */ + if (asn1r_get_octstr (aCtx, sent_ptr->entry_id)) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + + sent_ptr->ei_len = aCtx->asn1r_octetcount; /* save the entry id length */ + + ASN1R_TAG_ADD (aCtx, CTX, 1, rsentry_get_entry_class); + } + +/************************************************************************/ +/* rsentry_entry_id_cstr */ +/* Decoding report semaphore entry status request: entry id constructor */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID rsentry_entry_id_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("rsentry_entry_id_cstr"); + + /* decode entry id onto itself, shifted by one character */ + sent_ptr->entry_id = aCtx->asn1r_field_ptr - 1; + + /* set up where to go when done decoding cstr */ + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = rsentry_entry_id_cstr_done; + + /* read entry id from the received message */ + asn1r_get_octstr_cstr (aCtx, _mmsdec_msglen, sent_ptr->entry_id); + } + +/************************************************************************/ +/* rsentry_entry_id_cstr_done */ +/* Decoding report semaphore entry status request: entry id constructor */ +/* done was encountered. */ +/************************************************************************/ + +static ST_VOID rsentry_entry_id_cstr_done (ASN1_DEC_CTXT *aCtx) + { + + sent_ptr->ei_len = aCtx->asn1r_octetcount; /* save the entry id length */ + + ASN1R_TAG_ADD (aCtx, CTX, 1, rsentry_get_entry_class); + } + +/************************************************************************/ +/* rsentry_get_entry_class */ +/* Decoding report semaphore entry status request: entry class */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID rsentry_get_entry_class (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("rsentry_get_entry_class"); + + if (asn1r_get_i8 (aCtx, &sent_ptr->entry_class)) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 2, rsentry_app_ref_cstr); + } + + +/************************************************************************/ +/* rsentry_app_ref_cstr */ +/* Decoding report semaphore entry status request: application */ +/* reference constructor was encountered. */ +/************************************************************************/ + +static ST_VOID rsentry_app_ref_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("rsentry_app_ref_cstr"); + + _ms_get_mms_app_ref (aCtx, &sent_ptr->app_ref,&sent_ptr->app_ref_len, + app_ref_done); + } + +/************************************************************************/ +/* app_ref_done */ +/* Decoding report semaphore entry status request: application */ +/* reference constructor has ben read, OK for CTX 2 to be done. */ +/************************************************************************/ + +static ST_VOID app_ref_done (ASN1_DEC_CTXT *aCtx) + { + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = app_ref_cstr_done; + } + +/************************************************************************/ +/* app_ref_cstr_done */ +/* Decoding report semaphore entry status request: application */ +/* reference constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID app_ref_cstr_done (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, CTX, 3, rsentry_get_named_token ); + ASN1R_TAG_ADD (aCtx, CTX, 4, rsentry_get_priority); + ASN1R_TAG_ADD (aCtx, CTX, 5, rsentry_get_rem_timeout); + ASN1R_TAG_ADD (aCtx, CTX, 6, rsentry_get_abrt_timeout); + ASN1R_TAG_ADD (aCtx, CTX, 7, rsentry_get_rel_conn_lost); + +/* Was last mandatory SemaphoreEntry Parameter, OK for it to be done */ + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = rsentry_entry_seq_cstr_done; + } + +/************************************************************************/ +/* rsentry_get_named_token */ +/* Decoding report semaphore entry status request: named token */ +/* primitve was encountered. */ +/************************************************************************/ + +static ST_VOID rsentry_get_named_token (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("rsentry_get_named_token"); + + if (aCtx->asn1r_elmnt_len > MAX_IDENT_LEN) + { /* named token is too ST_INT32 */ + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + /* read named token from the received message */ + sent_ptr->named_token_pres = SD_TRUE; + if (asn1r_get_vstr (aCtx, sent_ptr->named_token)) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + + ASN1R_TAG_ADD (aCtx, CTX, 4, rsentry_get_priority); + ASN1R_TAG_ADD (aCtx, CTX, 5, rsentry_get_rem_timeout); + ASN1R_TAG_ADD (aCtx, CTX, 6, rsentry_get_abrt_timeout); + ASN1R_TAG_ADD (aCtx, CTX, 7, rsentry_get_rel_conn_lost); + } + +/************************************************************************/ +/* rsentry_get_priority */ +/* Decoding report semaphore entry status request: priority primitive */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID rsentry_get_priority (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("rsentry_get_priority"); + + /* read priority from the received message */ + if (asn1r_get_u8 (aCtx, &(sent_ptr->priority))) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + + ASN1R_TAG_ADD (aCtx, CTX, 5, rsentry_get_rem_timeout); + ASN1R_TAG_ADD (aCtx, CTX, 6, rsentry_get_abrt_timeout); + ASN1R_TAG_ADD (aCtx, CTX, 7, rsentry_get_rel_conn_lost); + } + +/************************************************************************/ +/* rsentry_get_rem_timeout */ +/* Decoding report semaphore entry status request: remaining timeout */ +/* primitve was encountered. */ +/************************************************************************/ + +static ST_VOID rsentry_get_rem_timeout (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("rsentry_get_rem_timeout"); + /* read remaining timeout from received message */ + sent_ptr->rem_timeout_pres = SD_TRUE; + if (asn1r_get_u32 (aCtx, &(sent_ptr->rem_timeout))) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + + ASN1R_TAG_ADD (aCtx, CTX, 6, rsentry_get_abrt_timeout); + ASN1R_TAG_ADD (aCtx, CTX, 7, rsentry_get_rel_conn_lost); + } + +/************************************************************************/ +/* rsentry_get_abrt_timeout */ +/* Decoding report semaphore entry status request: relinquish if */ +/* connection lost primitve was encountered. */ +/************************************************************************/ + +static ST_VOID rsentry_get_abrt_timeout (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("rsentry_get_abrt_timeout"); + /* read abort on timeout */ + sent_ptr->abrt_on_timeout_pres = SD_TRUE; + if (asn1r_get_bool (aCtx, &sent_ptr->abrt_on_timeout)) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + ASN1R_TAG_ADD (aCtx, CTX, 7, rsentry_get_rel_conn_lost); + } + +/************************************************************************/ +/* rsentry_get_rel_conn_lost */ +/* Decoding report semaphore entry status request: relinquish if */ +/* connection lost primitve was encountered. */ +/************************************************************************/ + +static ST_VOID rsentry_get_rel_conn_lost (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("rsentry_get_rel_conn_lost"); + /* read relinquish if conn lost from message */ + if (asn1r_get_bool (aCtx, &(sent_ptr->rel_conn_lost))) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + } + +/************************************************************************/ +/* rsentry_entry_seq_cstr_done */ +/* Decoding report semaphore entry status request: semaphore entry */ +/* sequence constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID rsentry_entry_seq_cstr_done (ASN1_DEC_CTXT *aCtx) + { + + sent_ptr++; /* point to where next will go */ + + ASN1R_TAG_ADD (aCtx, UNI | CONSTR, SEQ_CODE, rsentry_entry_seq_cstr); + } + +/************************************************************************/ +/* rsentry_sem_entry_cstr_done */ +/* Decoding report semaphore entry status request: semaphore entry */ +/* constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID rsentry_sem_entry_cstr_done (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, CTX, 1, rsentry_get_more_follows); + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* rsentry_get_more_follows */ +/* Decoding report semaphore entry status request: more follows */ +/* indicator was encountered. */ +/************************************************************************/ + +static ST_VOID rsentry_get_more_follows (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("rsentry_get_more_follows"); + /* read more follows indicator from message */ + if (asn1r_get_bool (aCtx, &(rsp_info->more_follows))) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_rsentry */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the report semaphore entry status request.*/ +/************************************************************************/ + +MMSREQ_PEND *mp_rsentry (ST_INT chan, RSENTRY_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_REP_SEMENTRY, + M_CAST_MK_FUN (_ms_mk_rsentry_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_rsentry */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the report semaphore entry status request. */ +/************************************************************************/ + +ST_RET mpl_rsentry (RSENTRY_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_REP_SEMENTRY, + M_CAST_MK_FUN (_ms_mk_rsentry_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_rsentry_req */ +/* construct a report semaphore entry status request */ +/************************************************************************/ + +ST_VOID _ms_mk_rsentry_req (ASN1_ENC_CTXT *aCtx, RSENTRY_REQ_INFO *info) + { + + asn1r_strt_constr (aCtx); /* start sequence constructor */ + + if (info->start_after_pres) + { /* write app to start after */ + asn1r_wr_octstr (aCtx, info->start_after, info->sa_len); + asn1r_fin_prim (aCtx, 2, CTX); /* context tag 2 */ + } + + asn1r_wr_i16 (aCtx, info->state); /* write the semaphore state */ + asn1r_fin_prim (aCtx, 1, CTX); /* context tag 1 */ + + asn1r_strt_constr (aCtx); /* start object name constr */ + + _ms_wr_mms_objname (aCtx, &info->sem_name); /* write the object name */ + + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* context tag 0 */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_REP_SEMENTRY,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsle/rq_rspoo.c b/mmslib/mmsle/rq_rspoo.c new file mode 100644 index 0000000..7d1897d --- /dev/null +++ b/mmslib/mmsle/rq_rspoo.c @@ -0,0 +1,221 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_rspool.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of report pool */ +/* semaphore status. It decodes the report pool semaphore status */ +/* response (confirm) & encodes the report pool semahpore status */ +/* request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 08/28/03 EJV 05 Corr spelling for 'receive'. */ +/* 12/20/01 JRB 04 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 03 Added SD_CONST modifiers */ +/* 03/23/99 MDE 02 Changes to decode buffer allocation scheme */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 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_psem.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static RSPOOL_RESP_INFO *rsp_info; + + +static TOKEN_ID *token_ptr; +static ST_INT max_named_tokens; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID rspool_get_named_token (ASN1_DEC_CTXT *aCtx); +static ST_VOID rspool_named_token_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID rspool_named_token_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID rspool_get_more_follows (ASN1_DEC_CTXT *aCtx); + +/************************************************************************/ +/************************************************************************/ +/* mms_rspool_rsp */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_rspool_rsp (ASN1_DEC_CTXT *aCtx) + { +ST_INT rsp_size; + + MLOG_CDEC0 ("Report Pool Semaphore Status Response"); + +#if defined(FIXED_DECBUF) + max_named_tokens = m_cl_max_named_tokens; + rsp_size = mmsl_dec_info_size; +#else + max_named_tokens = _mmsdec_msglen / 2; /* find maximum size */ + if (m_cl_max_named_tokens && (max_named_tokens > m_cl_max_named_tokens)) + max_named_tokens = m_cl_max_named_tokens; + rsp_size = sizeof (RSPOOL_RESP_INFO) + + (sizeof (TOKEN_ID) * max_named_tokens); +#endif + +/* get storage for request information */ + rsp_info = (RSPOOL_RESP_INFO *) _m_get_dec_buf (aCtx, rsp_size); + token_ptr = (TOKEN_ID *) (rsp_info + 1); + + rsp_info->num_of_tokens = 0; /* initialize number of named tokens */ + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, rspool_named_token_cstr); + } + +/************************************************************************/ +/* rspool_named_token_cstr */ +/* Decoding report pool semaphore status request: named token list */ +/* constructor was encountered. */ +/************************************************************************/ + +static ST_VOID rspool_named_token_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("rspool_named_token_cstr"); + + ASN1R_TAG_ADD (aCtx, CTX, 0, rspool_get_named_token); + ASN1R_TAG_ADD (aCtx, CTX, 1, rspool_get_named_token); + ASN1R_TAG_ADD (aCtx, CTX, 2, rspool_get_named_token); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = rspool_named_token_cstr_done; + } + +/************************************************************************/ +/* rspool_get_named_token */ +/* Decoding report pool semaphore status request: named token was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID rspool_get_named_token (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("rspool_get_named_token"); + + rsp_info->num_of_tokens++; + if (rsp_info->num_of_tokens > max_named_tokens) + { /* too many named tokens */ + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + + token_ptr->token_tag = aCtx->asn1r_elmnt_id; + +#if defined(USE_COMPACT_MMS_STRUCTS) + token_ptr->named_token = (ST_CHAR *) (aCtx->asn1r_field_ptr - 1); +#endif + + /* read free token from the received message */ + if (asn1r_get_identifier (aCtx, token_ptr->named_token)) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + + token_ptr++; /* point to where next named token will go */ + asn1r_tag_restore (aCtx); + } + +/************************************************************************/ +/* rspool_named_token_cstr_done */ +/* Decoding report pool semaphore status request: named token constr */ +/* done was encountered. */ +/************************************************************************/ + +static ST_VOID rspool_named_token_cstr_done (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, CTX, 1, rspool_get_more_follows); + } + +/************************************************************************/ +/* rspool_get_more_follows */ +/* Decoding report pool semaphore status request: more follows indicator*/ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID rspool_get_more_follows (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("rspool_get_more_follows"); + /* read more follows indicator from message */ + if (asn1r_get_bool (aCtx, &(rsp_info->more_follows))) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_rspool */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the report pool semaphore status request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_rspool (ST_INT chan, RSPOOL_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_REP_SEMPOOL, + M_CAST_MK_FUN (_ms_mk_rspool_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_rspool */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the report pool semaphore status request. */ +/************************************************************************/ + +ST_RET mpl_rspool (RSPOOL_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_REP_SEMPOOL, + M_CAST_MK_FUN (_ms_mk_rspool_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_rspool_req */ +/* construct a report pool semaphore status request */ +/************************************************************************/ + +ST_VOID _ms_mk_rspool_req (ASN1_ENC_CTXT *aCtx, RSPOOL_REQ_INFO *info) + { + + if (info->start_after_pres) + { + asn1r_wr_vstr (aCtx, info->start_after); /* write app to start after */ + asn1r_fin_prim (aCtx, 1, CTX); /* context tag 1 */ + } + + asn1r_strt_constr (aCtx); /* start object name constr */ + + _ms_wr_mms_objname (aCtx, &info->sem_name); /* write the object name */ + + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* context tag 0 */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_REP_SEMPOOL,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsle/rq_rssta.c b/mmslib/mmsle/rq_rssta.c new file mode 100644 index 0000000..3f4d7e1 --- /dev/null +++ b/mmslib/mmsle/rq_rssta.c @@ -0,0 +1,198 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_rsstat.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of report semaphore */ +/* status. It decodes the report semaphore status response */ +/* (confirm) and encodes the report semaphore status request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 07 Remove "thisFileName" */ +/* 09/30/03 EJV 06 Corr spelling for 'receive' */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 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++ */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 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_psem.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + + +static RSSTAT_RESP_INFO *rsp_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID rsstat_get_num_of_owned (ASN1_DEC_CTXT *aCtx); +static ST_VOID rsstat_get_num_of_tokens (ASN1_DEC_CTXT *aCtx); +static ST_VOID rsstat_get_class (ASN1_DEC_CTXT *aCtx); +static ST_VOID rsstat_get_mms_deletable (ASN1_DEC_CTXT *aCtx); +static ST_VOID rsstat_get_num_of_hung (ASN1_DEC_CTXT *aCtx); + +/************************************************************************/ +/************************************************************************/ +/* mms_rsstat_rsp */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_rsstat_rsp (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Report Semaphore Status Response"); + +/* get storage for request information */ + rsp_info = (RSSTAT_RESP_INFO *) _m_get_dec_buf (aCtx, sizeof (RSSTAT_RESP_INFO)); + ASN1R_TAG_ADD (aCtx, CTX, 0, rsstat_get_mms_deletable); + } + +/************************************************************************/ +/* rsstat_get_mms_deletable */ +/* Decoding report semaphore status request: mms deletable name was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID rsstat_get_mms_deletable (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("rsstat_get_mms_deletable"); + /* read mms deletable from received message */ + if (asn1r_get_bool (aCtx, &(rsp_info->mms_deletable))) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + + ASN1R_TAG_ADD (aCtx, CTX, 1, rsstat_get_class); + } + +/************************************************************************/ +/* rsstat_get_class */ +/* Decoding report semaphore status request: class was encountered. */ +/************************************************************************/ + +static ST_VOID rsstat_get_class (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("rsstat_get_class"); + /* read the class from the received message */ + if (asn1r_get_i16 (aCtx, &(rsp_info->tclass))) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + + if ((rsp_info->tclass < 0) || (rsp_info->tclass > 1)) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + + ASN1R_TAG_ADD (aCtx, CTX, 2, rsstat_get_num_of_tokens); + } + +/************************************************************************/ +/* rsstat_get_num_of_tokens */ +/* Decoding report semaphore status request: number of tokens was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID rsstat_get_num_of_tokens (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("rsstat_get_num_of_tokens"); + /* read number of tokens from received message */ + if (asn1r_get_u16 (aCtx, &(rsp_info->num_of_tokens))) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + + ASN1R_TAG_ADD (aCtx, CTX, 3, rsstat_get_num_of_owned); + } + +/************************************************************************/ +/* rsstat_get_num_of_owned */ +/* Decoding report semaphore status request: number of owned tokens was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID rsstat_get_num_of_owned (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("rsstat_get_num_of_owned"); + /* read number of owned tokens from message */ + if (asn1r_get_u16 (aCtx, &(rsp_info->num_of_owned))) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + + ASN1R_TAG_ADD (aCtx, CTX, 4, rsstat_get_num_of_hung); + } + +/************************************************************************/ +/* rsstat_get_num_of_hung */ +/* Decoding report semaphore status request: number of hung tokens was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID rsstat_get_num_of_hung (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("rsstat_get_num_of_hung"); + /* read number of hung tokens from message */ + if (asn1r_get_u16 (aCtx, &(rsp_info->num_of_hung))) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_rsstat */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the report semaphore status request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_rsstat (ST_INT chan, RSSTAT_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_REP_SEMSTAT, + M_CAST_MK_FUN (_ms_mk_rsstat_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_rsstat */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the report semaphore status request. */ +/************************************************************************/ + +ST_RET mpl_rsstat (RSSTAT_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_REP_SEMSTAT, + M_CAST_MK_FUN (_ms_mk_rsstat_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_rsstat_req */ +/* construct a report semaphore status request */ +/************************************************************************/ + +ST_VOID _ms_mk_rsstat_req (ASN1_ENC_CTXT *aCtx, RSSTAT_REQ_INFO *info) + { + + _ms_wr_mms_objname (aCtx, &info->sem_name); /* write the object name */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_REP_SEMSTAT,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsle/rq_start.c b/mmslib/mmsle/rq_start.c new file mode 100644 index 0000000..f8a5d1f --- /dev/null +++ b/mmslib/mmsle/rq_start.c @@ -0,0 +1,108 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_start.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of the start */ +/* operation. It decodes the start response (confirm) & encodes */ +/* the start request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 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_pprg.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : NONE */ + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +/************************************************************************/ +/************************************************************************/ +/* mms_start_resp */ +/* NOTE : Since the start resp is a NULL PDU, the decode is continued */ +/* by '_mms_null_pdu_dec', which simply sets decode done = 1 and sets */ +/* the decode done function to point to the general decode done fun */ +/* See mmsdec.c for the general functions. */ +/************************************************************************/ + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_start */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the start request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_start (ST_INT chan, START_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_START, + M_CAST_MK_FUN (_ms_mk_start_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_start */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the start request. */ +/************************************************************************/ + +ST_RET mpl_start (START_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_START, + M_CAST_MK_FUN (_ms_mk_start_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_start_req */ +/* construct a start request */ +/************************************************************************/ + +ST_VOID _ms_mk_start_req (ASN1_ENC_CTXT *aCtx, START_REQ_INFO *info) + { + + if (info->start_arg_pres) + { + if (info->start_arg_type == ARG_TYPE_SIMPLE) + { + asn1r_wr_vstr (aCtx, (ST_CHAR *)info->start_arg); /* write the start argument */ + asn1r_fin_prim (aCtx, 1, CTX); /* context tag 1 */ + } + else /* ENCODED data, write as complete ASN.1 EXTERNAL */ + asn1r_wr_delmnt (aCtx, info->start_arg,info->start_arg_len); + } + + asn1r_wr_vstr (aCtx, info->piname); /* write pgm invocation name */ + asn1r_fin_prim (aCtx, 0, CTX); /* context tag 0 */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_START,CTX,DEF); /* tag = opcode, ctx cstr */ + } diff --git a/mmslib/mmsle/rq_stop.c b/mmslib/mmsle/rq_stop.c new file mode 100644 index 0000000..218d17d --- /dev/null +++ b/mmslib/mmsle/rq_stop.c @@ -0,0 +1,96 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_stop.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of the stop */ +/* operation. It decodes the stop response (confirm) & encodes */ +/* the stop request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 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_pprg.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : NONE */ + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +/************************************************************************/ +/************************************************************************/ +/* mms_stop_rsp */ +/* NOTE : Since the mms_stop_rsp is a NULL PDU, the decode is continued */ +/* by '_mms_null_pdu_dec', which simply sets decode done = 1 and sets */ +/* the decode done function to point to the general decode done fun */ +/* See mmsdec.c for the general functions. */ +/************************************************************************/ + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_stop */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the stop request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_stop (ST_INT chan, STOP_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_STOP, + M_CAST_MK_FUN (_ms_mk_stop_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_stop */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the stop request. */ +/************************************************************************/ + +ST_RET mpl_stop (STOP_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_STOP, + M_CAST_MK_FUN (_ms_mk_stop_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_stop_req */ +/* construct a stop request */ +/************************************************************************/ + +ST_VOID _ms_mk_stop_req (ASN1_ENC_CTXT *aCtx, STOP_REQ_INFO *info) + { + asn1r_wr_vstr (aCtx, info->piname); /* write pgm invocation name */ + asn1r_fin_prim (aCtx, 0, CTX); /* context tag 0 */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_STOP,CTX,DEF); /* tag = opcode, ctx cstr */ + } diff --git a/mmslib/mmsle/rq_store.c b/mmslib/mmsle/rq_store.c new file mode 100644 index 0000000..0350cf5 --- /dev/null +++ b/mmslib/mmsle/rq_store.c @@ -0,0 +1,108 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_storedom.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of store domain */ +/* content. It decodes the store domain content response (confirm) */ +/* & encodes the store domain content request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 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_pdom.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : NONE */ +/* variables global to the ENCODE portion : NONE */ + +/************************************************************************/ +/************************************************************************/ +/* mms_store_domain_rsp */ +/* NOTE : Since the mms_store_domain_rsp is a NULL PDU, the decode is */ +/* continued by '_mms_null_pdu_dec', which simply sets decode done = 1 */ +/* and sets the decode done function to point to the general decode done*/ +/* fun. See mmsdec.c for the general functions. */ +/************************************************************************/ + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_storedom */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the store domain content request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_storedom (ST_INT chan, STOREDOM_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_STORE_DOMAIN, + M_CAST_MK_FUN (_ms_mk_storedom_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_storedom */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the store domain content request. */ +/************************************************************************/ + +ST_RET mpl_storedom (STOREDOM_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_STORE_DOMAIN, + M_CAST_MK_FUN (_ms_mk_storedom_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_storedom_req */ +/* ENCODE a store domain content REQUEST: */ +/************************************************************************/ + +ST_VOID _ms_mk_storedom_req (ASN1_ENC_CTXT *aCtx, STOREDOM_REQ_INFO *info) + { + asn1r_strt_constr (aCtx); /* start sequence constructor */ + + if (info->third_pty_pres) + { + asn1r_wr_delmnt (aCtx, info->third_pty, info->third_pty_len); + *(aCtx->asn1r_field_ptr+1) = (ST_UCHAR) 0xA2; + } + + asn1r_strt_constr (aCtx); + _ms_wr_mms_fname (aCtx, (FILE_NAME *)(info + 1), + info -> num_of_fname); + asn1r_fin_constr (aCtx, 1,CTX,DEF); /* context specific tag 1 */ + + asn1r_wr_vstr (aCtx, info->dname); /* write the domain name */ + asn1r_fin_prim (aCtx, 0,CTX); /* context specific tag 0 */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_STORE_DOMAIN,CTX,DEF); /* tag = opcode, ctx constr */ + } + diff --git a/mmslib/mmsle/rq_takec.c b/mmslib/mmsle/rq_takec.c new file mode 100644 index 0000000..8256e92 --- /dev/null +++ b/mmslib/mmsle/rq_takec.c @@ -0,0 +1,192 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_takectrl.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of take semahpore */ +/* control. It decodes the take control response (confirm) & */ +/* encodes the take control request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 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++ */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 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_psem.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static TAKECTRL_RESP_INFO *info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID takectrl_get_named_token (ASN1_DEC_CTXT *aCtx); +static ST_VOID takectrl_get_null (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_takectrl_rsp */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_takectrl_rsp (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Take Control Response"); + +/* get storage for request information */ + info = (TAKECTRL_RESP_INFO *) _m_get_dec_buf (aCtx, sizeof (TAKECTRL_RESP_INFO)); + ASN1R_TAG_ADD (aCtx, CTX, 0, takectrl_get_null); + ASN1R_TAG_ADD (aCtx, CTX, 1, takectrl_get_named_token); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* takectrl_get_null */ +/* take control response is being decoded: ctx 0 was encountered. */ +/************************************************************************/ + +static ST_VOID takectrl_get_null (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("takectrl_get_null"); + + info->resp_tag = SD_FALSE; /* set tag to NULL response */ + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* takectrl_get_named_token */ +/* take control response is being decoded: ctx 1 was encountered. */ +/************************************************************************/ + +static ST_VOID takectrl_get_named_token (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("takectrl_get_named_token"); + + info->resp_tag = SD_TRUE; /* set tag to named token resp */ + + if (asn1r_get_identifier (aCtx, info->named_token)) + { /* not a visible string */ + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + return; + } + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_takectrl */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the take control request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_takectrl (ST_INT chan, TAKECTRL_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_TAKE_CONTROL, + M_CAST_MK_FUN (_ms_mk_takectrl_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_takectrl */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the take control request. */ +/************************************************************************/ + +ST_RET mpl_takectrl (TAKECTRL_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_TAKE_CONTROL, + M_CAST_MK_FUN (_ms_mk_takectrl_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_takectrl_req */ +/* construct a take control request */ +/************************************************************************/ + +ST_VOID _ms_mk_takectrl_req (ASN1_ENC_CTXT *aCtx, TAKECTRL_REQ_INFO *info_ptr) + { + if (info_ptr->app_preempt_pres) + { + asn1r_wr_delmnt (aCtx, info_ptr->app_preempt, info_ptr->app_len); + *(aCtx->asn1r_field_ptr+1) = (ST_UCHAR) 0xA7; + } + + if (!info_ptr->rel_conn_lost) + { /* NOT the default */ + asn1r_wr_bool (aCtx, info_ptr->rel_conn_lost); /* write the rel if conn lost */ + asn1r_fin_prim (aCtx, 6, CTX); /* context tag 6 */ + } + + if (info_ptr->abrt_on_timeout_pres) + { + asn1r_wr_bool (aCtx, info_ptr->abrt_on_timeout);/* write the abort on timeout */ + asn1r_fin_prim (aCtx, 5, CTX); /* context tag 5 */ + } + + if (info_ptr->ctrl_timeout_pres) + { + asn1r_wr_u32 (aCtx, info_ptr->ctrl_timeout); /* write the control timeout */ + asn1r_fin_prim (aCtx, 4, CTX); /* context tag 4 */ + } + + if (info_ptr->acc_delay_pres) + { + asn1r_wr_u32 (aCtx, info_ptr->acc_delay); /* write the acceptable delay */ + asn1r_fin_prim (aCtx, 3, CTX); /* context tag 3 */ + } + + if (info_ptr->priority != MMS_NORM_PRIORITY) + { /* NOT the default */ + asn1r_wr_bool (aCtx, info_ptr->priority); /* write the priority */ + asn1r_fin_prim (aCtx, 2, CTX); /* context tag 2 */ + } + + if (info_ptr->named_token_pres) + { + asn1r_wr_vstr (aCtx, info_ptr->named_token); /* write the named token */ + asn1r_fin_prim (aCtx, 1, CTX); /* context tag 1 */ + } + + asn1r_strt_constr (aCtx); /* object name constructor */ + + _ms_wr_mms_objname (aCtx, &info_ptr->sem_name); /* write the object name */ + + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* context tag 0 */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_TAKE_CONTROL,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsle/rq_termd.c b/mmslib/mmsle/rq_termd.c new file mode 100644 index 0000000..e23bf75 --- /dev/null +++ b/mmslib/mmsle/rq_termd.c @@ -0,0 +1,143 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2005, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_termdown.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of the terminate */ +/* download sequence. It decodes the terminate download sequence */ +/* response (confirm) & encodes the terminate download sequence */ +/* request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 08/09/05 EJV 06 MMS_LITE does not need thisFileName. */ +/* 03/17/04 RKR 05 Changed thisFileName */ +/* 03/11/04 GLB 04 Remove "thisFileName" */ +/* 12/20/01 JRB 03 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 02 Added SD_CONST modifiers */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" + +#include "mmsdefs.h" +#include "mms_pdom.h" +#include "asn1defs.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#if defined(DEBUG_SISCO) && (defined(S_MT_SUPPORT) && !defined(MMS_LITE)) +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/* variables global to the DECODE portion : NONE */ + +#ifndef MMS_LITE +/* variables global to the ENCODE portion : */ +static ST_INT channel; +#else +/* variables global to the ENCODE portion : NONE */ +#endif + + +/************************************************************************/ +/************************************************************************/ +/* mms_term_download_rsp */ +/* NOTE : Since the mms_term_download_rsp is a NULL PDU, the decode is */ +/* continued by '_mms_null_pdu_dec', which simply sets decode done = 1 */ +/* and sets the decode done function to point to the general decode done*/ +/* fun. See mmsdec.c for the general functions. */ +/************************************************************************/ + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_termdown */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the terminate download sequence request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_termdown (ST_INT chan, TERMDOWN_REQ_INFO *info_ptr) + { +MMSREQ_PEND *ret; + + S_LOCK_COMMON_RESOURCES (); + channel = chan; /* save for mk function to use */ + ret = _mms_req_send (MMSOP_TERM_DOWNLOAD, + M_CAST_MK_FUN (_ms_mk_termdown_req), + + chan, (ST_CHAR *)info_ptr); + S_UNLOCK_COMMON_RESOURCES (); + return (ret); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_termdown */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the terminate download sequence request. */ +/************************************************************************/ + +ST_RET mpl_termdown (TERMDOWN_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_TERM_DOWNLOAD, + M_CAST_MK_FUN (_ms_mk_termdown_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_termdown_req */ +/* construct a terminate download sequence request */ +/************************************************************************/ + +ST_VOID _ms_mk_termdown_req (ASN1_ENC_CTXT *aCtx, TERMDOWN_REQ_INFO *info) + { + asn1r_strt_constr (aCtx); /* start sequence constr */ + + if (info->discarded) + { /* NOT the default (SD_FALSE) */ +#ifndef MMS_LITE + if (mms_chan_info[channel].version) /* IS */ +#else + if (mmsl_version) /* IS */ +#endif + { + _ms_wr_service_err (aCtx, (info->err)->eclass,(info->err)->code, + &(info->err)->adtnl); + asn1r_fin_constr (aCtx, 1,CTX,DEF); + } + else /* DIS */ + { + asn1r_wr_bool (aCtx, info->discarded); /* write the discard flag */ + asn1r_fin_prim (aCtx, 1, CTX); /* context tag 1 */ + } + } + + asn1r_wr_vstr (aCtx, info->dname); /* write the domain name */ + asn1r_fin_prim (aCtx, 0, CTX); /* context tag 0 */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_TERM_DOWNLOAD,CTX,DEF); /* tag = opcode, ctx constr */ + } + diff --git a/mmslib/mmsle/rq_termu.c b/mmslib/mmsle/rq_termu.c new file mode 100644 index 0000000..6cca8b7 --- /dev/null +++ b/mmslib/mmsle/rq_termu.c @@ -0,0 +1,94 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_termupl.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of terminate upload */ +/* sequence. It decodes the terminate upload sequence response */ +/* (confirm) & encodes the terminate upload sequence request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 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_pdom.h" +#include "asn1defs.h" + +/* variables global to the DECODE portion : NONE */ + +/* variables global to the ENCODE portion : NONE */ + + +/************************************************************************/ +/************************************************************************/ +/* mms_term_upload_rsp */ +/* NOTE : Since the mms_term_upload_rsp is a NULL PDU, the decode is */ +/* continued by '_mms_null_pdu_dec', which simply sets decode done = 1 */ +/* and sets the decode done function to point to the general decode done*/ +/* fun. See mmsdec.c for the general functions. */ +/************************************************************************/ + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_termupl */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the terminate upload sequence request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_termupl (ST_INT chan, TERMUPL_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_TERM_UPLOAD, + M_CAST_MK_FUN (_ms_mk_termupl_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_termupl */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the terminate upload sequence request. */ +/************************************************************************/ + +ST_RET mpl_termupl (TERMUPL_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_TERM_UPLOAD, + M_CAST_MK_FUN (_ms_mk_termupl_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_termupl_req */ +/* construct a terminate upload sequence request */ +/************************************************************************/ + +ST_VOID _ms_mk_termupl_req (ASN1_ENC_CTXT *aCtx, TERMUPL_REQ_INFO *info) + { + asn1r_wr_i32 (aCtx, info->ulsmid); /* write upload state machind id*/ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_prim (aCtx, MMSOP_TERM_UPLOAD,CTX); /* tag = opcode, ctx prim */ + } diff --git a/mmslib/mmsle/rq_uploa.c b/mmslib/mmsle/rq_uploa.c new file mode 100644 index 0000000..9c463aa --- /dev/null +++ b/mmslib/mmsle/rq_uploa.c @@ -0,0 +1,216 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rq_upload.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the requester portion of upload segment. */ +/* It decodes the upload segment response (confirm) & encodes the */ +/* upload segment request. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 07 Remove "thisFileName" */ +/* 08/28/03 EJV 06 Corr spelling for 'receive'. */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 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++ */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 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_pdom.h" +#include "asn1defs.h" + + +/************************************************************************/ +/* variables global to the DECODE portion : NONE */ + +static UPLOAD_RESP_INFO *rsp_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID upload_get_more_follows (ASN1_DEC_CTXT *aCtx); +static ST_VOID upload_load_data_prim (ASN1_DEC_CTXT *aCtx); +static ST_VOID upload_load_data_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID upload_load_data_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID extern_done (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_upload_rsp */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_upload_rsp (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Upload Segment Response"); + + +/* get storage for request information */ + rsp_info = (UPLOAD_RESP_INFO *) _m_get_dec_buf (aCtx, sizeof (UPLOAD_RESP_INFO)); + rsp_info->more_follows = SD_TRUE; /* set default value */ + + ASN1R_TAG_ADD (aCtx, CTX, 0, upload_load_data_prim); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, upload_load_data_cstr); + +/* If MMS IS, Check for CODED load data */ +#ifndef MMS_LITE + if (mms_chan_info[_mmsdechan].version) /* IS */ +#else + if (mmsl_version) /* IS */ +#endif + _ms_chk_for_extern (aCtx, &rsp_info->load_data_len, + &rsp_info->load_data, + extern_done); + } + +/************************************************************************/ +/* upload_load_data_prim */ +/* upload segment response: decode the load data primitive */ +/************************************************************************/ + +static ST_VOID upload_load_data_prim (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("upload_load_data_pri"); + + /* decode load data back onto itself, shifted by one character */ + rsp_info->load_data = aCtx->asn1r_field_ptr - 1; + + /* read load data from message */ + if (asn1r_get_octstr (aCtx, rsp_info->load_data)) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + + rsp_info->load_data_len = aCtx->asn1r_octetcount; + + ASN1R_TAG_ADD (aCtx, CTX, 1, upload_get_more_follows); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + + } + +/************************************************************************/ +/* upload_load_data_cstr */ +/* upload segment response: decode load data constructor */ +/************************************************************************/ + +static ST_VOID upload_load_data_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("upload_load_data_cstr"); + + /* decode load data back onto itself, shifted by one character */ + rsp_info->load_data = aCtx->asn1r_field_ptr - 1; + + /* set up where to go when done decoding cstr */ + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = upload_load_data_cstr_done; + + /* get load data from the received message */ + asn1r_get_octstr_cstr (aCtx, _mmsdec_msglen, rsp_info->load_data); + } + +/************************************************************************/ +/* upload_load_data_cstr_done */ +/* upload segment response: load data constructor is done */ +/************************************************************************/ + +static ST_VOID upload_load_data_cstr_done (ASN1_DEC_CTXT *aCtx) + { + rsp_info->load_data_len = aCtx->asn1r_octetcount; /* save the load data length */ + + ASN1R_TAG_ADD (aCtx, CTX, 1, upload_get_more_follows); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* extern_done */ +/************************************************************************/ + +static ST_VOID extern_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("extern_done"); + + rsp_info->load_data_type = LOAD_DATA_CODED; + ASN1R_TAG_ADD (aCtx, CTX, 1, upload_get_more_follows); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* upload_get_more_follows */ +/* upload segment response: decode the more follows flag */ +/************************************************************************/ + +static ST_VOID upload_get_more_follows (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("upload_get_more_follows"); + /* read end of pgm from message */ + if (asn1r_get_bool (aCtx, &(rsp_info->more_follows))) + asn1r_set_dec_err (aCtx, RESP_BAD_VALUE); + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_upload */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the upload segment request. */ +/************************************************************************/ + +MMSREQ_PEND *mp_upload (ST_INT chan, UPLOAD_REQ_INFO *info_ptr) + { + return (_mms_req_send (MMSOP_UP_LOAD, + M_CAST_MK_FUN (_ms_mk_upload_req), + chan,(ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_upload */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the upload segment request. */ +/************************************************************************/ + +ST_RET mpl_upload (UPLOAD_REQ_INFO *info_ptr) + { + return (_mms_req_fin (MMSOP_UP_LOAD, + M_CAST_MK_FUN (_ms_mk_upload_req), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_upload_req */ +/* construct an upload segment request */ +/************************************************************************/ + +ST_VOID _ms_mk_upload_req (ASN1_ENC_CTXT *aCtx, UPLOAD_REQ_INFO *info) + { + asn1r_strt_constr (aCtx); /* start sequence constr */ + + asn1r_wr_i32 (aCtx, info->ulsmid); /* write upload state machine id*/ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_prim (aCtx, MMSOP_UP_LOAD,CTX); /* tag = opcode, ctx */ + } diff --git a/mmslib/mmsle/rs_altec.c b/mmslib/mmsle/rs_altec.c new file mode 100644 index 0000000..f7044b1 --- /dev/null +++ b/mmslib/mmsle/rs_altec.c @@ -0,0 +1,226 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_altecm.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of alter event */ +/* condition monitoring. It decodes the alter event condition */ +/* monitoring request (indication) & encodes the alter event */ +/* condition monitoring response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------ */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 04 Added SD_CONST modifiers */ +/* 03/23/99 MDE 03 Changes to decode buffer allocation scheme */ +/* 07/03/97 MDE 02 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pevn.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static ALTECM_REQ_INFO *req_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID altecm_name_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID altecm_name_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID altecm_name_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID altecm_get_enabled (ASN1_DEC_CTXT *aCtx); +static ST_VOID altecm_get_priority (ASN1_DEC_CTXT *aCtx); +static ST_VOID altecm_get_as_reports (ASN1_DEC_CTXT *aCtx); +static ST_VOID altecm_get_eval_int (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_altecm_req */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_altecm_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Alter Event Condition Monitoring Request"); + + +/* get storage for request information */ + req_info = (ALTECM_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (ALTECM_REQ_INFO)); + +/* req_info->enabled_pres = SD_FALSE; set default values */ +/* req_info->priority_pres = SD_FALSE; */ +/* req_info->as_reports_pres = SD_FALSE; */ + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, altecm_name_cstr); + } + +/************************************************************************/ +/* altecm_name_cstr */ +/* alter event condition monitoring request is being decoded: event */ +/* condition name constructor was encountered. */ +/************************************************************************/ + +static ST_VOID altecm_name_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("altecm_name_cstr"); + + _ms_get_mms_objname (aCtx, &req_info->evcon_name, altecm_name_done); + } + +/************************************************************************/ +/* altecm_name_done */ +/* alter event condition monitoring request is being decoded: event */ +/* condition name has been obtained. */ +/************************************************************************/ + +static ST_VOID altecm_name_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("altecm_name_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = altecm_name_cstr_done; + } + +/************************************************************************/ +/* altecm_name_cstr_done */ +/* alter event condition monitoring request is being decoded: event */ +/* condition name constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID altecm_name_cstr_done (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, CTX, 1, altecm_get_enabled); + ASN1R_TAG_ADD (aCtx, CTX, 2, altecm_get_priority); + ASN1R_TAG_ADD (aCtx, CTX, 3, altecm_get_as_reports); + ASN1R_TAG_ADD (aCtx, CTX, 4, altecm_get_eval_int); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* altecm_get_enabled */ +/* Decoding alter event condition monitoring request: enabled was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID altecm_get_enabled (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("altecm_get_enabled"); + + req_info->enabled_pres = SD_TRUE; + + if (asn1r_get_bool (aCtx, &(req_info->enabled))) /* read enabled */ + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + ASN1R_TAG_ADD (aCtx, CTX, 2, altecm_get_priority); + ASN1R_TAG_ADD (aCtx, CTX, 3, altecm_get_as_reports); + ASN1R_TAG_ADD (aCtx, CTX, 4, altecm_get_eval_int); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* altecm_get_priority */ +/* Decoding alter event condition monitoring request: priority was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID altecm_get_priority (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("altecm_get_priority"); + + req_info->priority_pres = SD_TRUE; + + if (asn1r_get_u8 (aCtx, &(req_info->priority))) /* read priority */ + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + ASN1R_TAG_ADD (aCtx, CTX, 3, altecm_get_as_reports); + ASN1R_TAG_ADD (aCtx, CTX, 4, altecm_get_eval_int); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* altecm_get_as_reports */ +/* Decoding alter event condition monitoring request: alarm summary */ +/* reports was encountered. */ +/************************************************************************/ + +static ST_VOID altecm_get_as_reports (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("altecm_get_as_reports"); + + req_info->as_reports_pres = SD_TRUE; /* set present flag */ + /* read alarm summary reports */ + if (asn1r_get_bool (aCtx, &(req_info->as_reports))) + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + ASN1R_TAG_ADD (aCtx, CTX, 4, altecm_get_eval_int); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* altecm_get_eval_int */ +/* Decoding alter event condition monitoring request: evaluation */ +/* interval was encountered. */ +/************************************************************************/ + +static ST_VOID altecm_get_eval_int (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("altecm_get_eval_int"); + + req_info->eval_int_pres = SD_TRUE; + + if (asn1r_get_u32 (aCtx, &(req_info->eval_int))) /* read evaluation int */ + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_altecm_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the alter event condition monitoring */ +/* response. */ +/************************************************************************/ + +ST_RET mp_altecm_resp (MMSREQ_IND *indptr) + { + return (_mms_send_null_resp (indptr,MMSOP_ALT_EC_MON)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_altecm_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the alter event condition monitoring response. */ +/************************************************************************/ + +ST_RET mpl_altecm_resp (ST_UINT32 invoke_id) + { + return (_mms_fin_null_resp (invoke_id,MMSOP_ALT_EC_MON)); + } +#endif diff --git a/mmslib/mmsle/rs_altee.c b/mmslib/mmsle/rs_altee.c new file mode 100644 index 0000000..0b7f314 --- /dev/null +++ b/mmslib/mmsle/rs_altee.c @@ -0,0 +1,256 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_altee.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of alter event */ +/* enrollment. It decodes the alter event enrollment request */ +/* (indication) & encodes the alter event enrollment response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 07 Remove "thisFileName" */ +/* 03/31/03 JRB 06 asn1r_get_bitstr: add max_bits arg. */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 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++ */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pevn.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static ALTEE_REQ_INFO *req_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID altee_eename_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID altee_eename_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID altee_eename_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID altee_get_ect_prim (ASN1_DEC_CTXT *aCtx); +static ST_VOID altee_get_ect_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID altee_get_ect_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID altee_get_alarm_ack_rule (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_altee_req */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_altee_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Alter Event Enrollment Request"); + + +/* get storage for request information */ + req_info = (ALTEE_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (ALTEE_REQ_INFO)); + +/* req_info->ec_transitions_pres = SD_FALSE; */ +/* req_info->alarm_ack_rule_pres = SD_FALSE; */ + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, altee_eename_cstr); + } + +/************************************************************************/ +/* altee_eename_cstr */ +/* alter event enrollment request is being decoded: event enrollment */ +/* name constructor was encountered. */ +/************************************************************************/ + +static ST_VOID altee_eename_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("altee_eename_cstr"); + + _ms_get_mms_objname (aCtx, &req_info->evenroll_name, altee_eename_done); + } + +/************************************************************************/ +/* altee_eename_done */ +/* alter event enrollment request is being decoded: event enrollment */ +/* name has been obtained. */ +/************************************************************************/ + +static ST_VOID altee_eename_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("altee_eename_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = altee_eename_cstr_done; + } + +/************************************************************************/ +/* altee_eename_cstr_done */ +/* alter event enrollment request is being decoded: event enrollment */ +/* name constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID altee_eename_cstr_done (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, CTX, 1, altee_get_ect_prim); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1, altee_get_ect_cstr); + ASN1R_TAG_ADD (aCtx, CTX, 2, altee_get_alarm_ack_rule); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* altee_get_ect_prim */ +/* alter event enrollment request is being decoded: event condition */ +/* transitions primitive was encountered. */ +/************************************************************************/ + +static ST_VOID altee_get_ect_prim (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("altee_get_ect_prim"); + /* check length before moving bitstring */ + if (!asn1r_get_bitstr (aCtx, &req_info->ec_transitions, 7)) + altee_get_ect_done (aCtx); /* set up for the next data element */ + else + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + } + +/************************************************************************/ +/* altee_get_ect_cstr */ +/* alter event enrollment request is being decoded: event condition */ +/* transitions constructor was encountered. */ +/************************************************************************/ + +static ST_VOID altee_get_ect_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("altee_get_ect_cstr"); + /* set up bitstring cstr done function */ + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = altee_get_ect_done; + + asn1r_get_bitstr_cstr (aCtx, 7,&req_info->ec_transitions); + } + +/************************************************************************/ +/* altee_get_ect_done */ +/* alter event enrollment request is being decoded: event condition */ +/* transitions constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID altee_get_ect_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("altee_get_ect_done"); + + req_info->ec_transitions_pres = SD_TRUE; /* set present flag */ + + /* Check aCtx->asn1r_bitcount for correct # of bits */ + if (aCtx->asn1r_bitcount != 7) /* should be 7 bits */ + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + else /* now get alarm ack rule */ + { + ASN1R_TAG_ADD (aCtx, CTX,2,altee_get_alarm_ack_rule); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + } + +/************************************************************************/ +/* altee_get_alarm_ack_rule */ +/* Decoding alter event enrollment request: alarm acknowledgment rule */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID altee_get_alarm_ack_rule (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("altee_get_alarm_ack_rule"); + + req_info->alarm_ack_rule_pres = SD_TRUE; + /* read alarm ack rule */ + if (asn1r_get_i16 (aCtx, &(req_info->alarm_ack_rule))) + { + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + else if ((req_info->alarm_ack_rule < 0) || (req_info->alarm_ack_rule > 3)) + { + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_altee_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the alter event enrollment response. */ +/************************************************************************/ + +ST_RET mp_altee_resp (MMSREQ_IND *indptr, ALTEE_RESP_INFO *info_ptr) + { + return (_mms_resp_send (MMSOP_ALT_EE,indptr, + M_CAST_MK_FUN (_ms_mk_altee_resp), + (ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_altee_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the alter event enrollment response. */ +/************************************************************************/ + +ST_RET mpl_altee_resp (ST_UINT32 invoke_id, ALTEE_RESP_INFO *info_ptr) + { + return (_mms_resp_fin (MMSOP_ALT_EE,invoke_id, + M_CAST_MK_FUN (_ms_mk_altee_resp), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_altee_resp */ +/* ENCODE an alter event enrollment RESPONSE: */ +/************************************************************************/ + +ST_VOID _ms_mk_altee_resp (ASN1_ENC_CTXT *aCtx, ALTEE_RESP_INFO *info) + { + asn1r_strt_constr (aCtx); /* start ctx tag 1 constructor */ + _ms_wr_mms_evtime (aCtx, &info->trans_time); + asn1r_fin_constr (aCtx, 1,CTX,DEF); /* finish ctx tag 1 constructor */ + + asn1r_strt_constr (aCtx); /* start ctx tag 0 constructor */ + if (info->cur_state_tag == 1) + asn1r_fin_prim (aCtx, 1, CTX); /* write undefined */ + else + { + asn1r_wr_i16 (aCtx, info->state); /* write state */ + asn1r_fin_prim (aCtx, 0, CTX); + } + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* finish ctx tag 0 constructor */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_ALT_EE,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsle/rs_crepi.c b/mmslib/mmsle/rs_crepi.c new file mode 100644 index 0000000..c944ac0 --- /dev/null +++ b/mmslib/mmsle/rs_crepi.c @@ -0,0 +1,242 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_crepi.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of create program */ +/* invocation. It decodes the create program invocation request */ +/* (indication) & encodes the create program invocation response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 05 Remove "thisFileName" */ +/* 12/20/01 JRB 04 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 03 Added SD_CONST modifiers */ +/* 03/23/99 MDE 02 Changes to decode buffer allocation scheme */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pprg.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static CREPI_REQ_INFO *req_info; + +static ST_CHAR **dom_ptr; +static ST_INT max_vstr; +static ST_INT num_vstr; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID crepi_get_reusable (ASN1_DEC_CTXT *aCtx); +static ST_VOID crepi_get_monitor (ASN1_DEC_CTXT *aCtx); +static ST_VOID crepi_get_domain_name (ASN1_DEC_CTXT *aCtx); +static ST_VOID crepi_domain_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID crepi_domain_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID crepi_get_piname (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_create_pi_req */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_create_pi_req (ASN1_DEC_CTXT *aCtx) + { +ST_INT req_size; + + MLOG_CDEC0 ("Create Program Invocation Request"); + +#if defined(FIXED_DECBUF) + max_vstr = m_sv_max_vstr; + req_size = mmsl_dec_info_size; +#else + max_vstr = _mmsdec_msglen/2; /* determine maximum size */ + if (m_sv_max_vstr && (max_vstr > m_sv_max_vstr)) + max_vstr = m_sv_max_vstr; + + req_size = sizeof (CREPI_REQ_INFO) + (sizeof (ST_CHAR *)*max_vstr); +#endif + +/* get storage for request information */ + req_info = (CREPI_REQ_INFO *) _m_get_dec_buf (aCtx, req_size); + dom_ptr = (ST_CHAR **) (req_info + 1); /* point to where first will go */ + num_vstr = 0; + ASN1R_TAG_ADD (aCtx, CTX, 0, crepi_get_piname); /* pi name is next */ + } + +/************************************************************************/ +/* crepi_get_piname */ +/* create program invocation REQUEST (indication) is being decoded: */ +/* decode the state. */ +/************************************************************************/ + +static ST_VOID crepi_get_piname (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("crepi_get_piname"); + + if (asn1r_get_identifier (aCtx, req_info->piname))/* read the pgm invocation name */ + { + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1, crepi_domain_cstr); + } + +/************************************************************************/ +/* crepi_domain_cstr */ +/* create program invocation REQUEST (indication) is being decoded: */ +/* domain name list constructor was encountered. */ +/************************************************************************/ + +static ST_VOID crepi_domain_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("crepi_domain_cstr"); + + ASN1R_TAG_ADD (aCtx, UNI, VISTR_CODE, crepi_get_domain_name); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = crepi_domain_cstr_done; + } + +/************************************************************************/ +/* crepi_get_domain_name */ +/* create program invocation REQUEST (indication) is being decoded: */ +/* domain name was encountered. */ +/************************************************************************/ + +static ST_VOID crepi_get_domain_name (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("crepi_get_domain_name"); + + req_info->num_of_dnames++; /* increment # of domain names */ + + num_vstr++; /* increment number of vstr */ + if (num_vstr > max_vstr) + { /* too many visible strings */ + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + + /* copy domain name back onto itself shifted by one character */ + *dom_ptr = (ST_CHAR *) aCtx->asn1r_field_ptr - 1; + if (asn1r_get_identifier (aCtx, *dom_ptr)) + { + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + dom_ptr++; /* point to where next will go */ + + asn1r_tag_restore (aCtx); + } + +/************************************************************************/ +/* crepi_domain_cstr_done */ +/* create program invocation REQUEST (indication) is being decoded: */ +/* domain name list constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID crepi_domain_cstr_done (ASN1_DEC_CTXT *aCtx) + { +ST_INT req_size; + + req_info->reusable = SD_TRUE; /* SD_TRUE us default value */ + ASN1R_TAG_ADD (aCtx, CTX, 2, crepi_get_reusable); + ASN1R_TAG_ADD (aCtx, CTX, 3, crepi_get_monitor); + + /* find actual size for request info */ + req_size = (ST_CHAR *)dom_ptr - ((ST_CHAR *) req_info) + 1; + /* give back unused storage */ + _mms_dec_info = (*m_realloc_os_fun) (_mms_dec_info,req_size); + req_info = (CREPI_REQ_INFO *) _mms_dec_info; + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +/************************************************************************/ +/* crepi_get_reusable */ +/* create program invocation REQUEST (indication) is being decoded: */ +/* decode the reusable flag. */ +/************************************************************************/ + +static ST_VOID crepi_get_reusable (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("crepi_get_reusable"); + + if (asn1r_get_bool (aCtx, &(req_info->reusable))) /* read reusable from message */ + { + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + ASN1R_TAG_ADD (aCtx, CTX, 3, crepi_get_monitor); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* crepi_get_monitor */ +/* create program invocation REQUEST (indication) is being decoded: */ +/* decode the monitor flag. */ +/************************************************************************/ + +static ST_VOID crepi_get_monitor (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("crepi_get_monitor"); + + req_info->monitor_pres = SD_TRUE; /* set monitor present */ + + if (asn1r_get_bool (aCtx, &(req_info->monitor))) /* read monitor from message */ + { + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_crepi_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the create program invocation response. */ +/************************************************************************/ + +ST_RET mp_crepi_resp (MMSREQ_IND *indptr) + { + return (_mms_send_null_resp (indptr,MMSOP_CREATE_PI)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_crepi_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the create program invocation response. */ +/************************************************************************/ + +ST_RET mpl_crepi_resp (ST_UINT32 invoke_id) + { + return (_mms_fin_null_resp (invoke_id,MMSOP_CREATE_PI)); + } +#endif diff --git a/mmslib/mmsle/rs_defea.c b/mmslib/mmsle/rs_defea.c new file mode 100644 index 0000000..aec5158 --- /dev/null +++ b/mmslib/mmsle/rs_defea.c @@ -0,0 +1,315 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_defea.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of define event */ +/* action. It decodes the define event action request */ +/* (indication) & encodes the define event action response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 04/28/00 JRB 04 Lint cleanup */ +/* 09/13/99 MDE 03 Added SD_CONST modifiers */ +/* 03/23/99 MDE 02 Changes to decode buffer allocation scheme */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 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_pevn.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static DEFEA_REQ_INFO *req_info; + +#ifdef MOD_SUPPORT +static MODIFIER *mod_ptr; +static ST_INT max_modifiers; +#endif + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +/* static functions with multiple references */ +static ST_VOID defea_name_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID defea_name_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID defea_name_cstr_done (ASN1_DEC_CTXT *aCtx); +#ifdef MOD_SUPPORT +static ST_VOID defea_get_modlist (ASN1_DEC_CTXT *aCtx); +static ST_VOID defea_modlist_done (ASN1_DEC_CTXT *aCtx); +#endif +static ST_VOID defea_get_conf_serv_req (ASN1_DEC_CTXT *aCtx); +static ST_VOID defea_conf_serv_req_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID defea_conf_serv_cstr_done (ASN1_DEC_CTXT *aCtx); +#ifdef CS_SUPPORT +static ST_VOID defea_cs_rdetail_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID defea_cs_rdetail_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID defea_cs_rdetail_cstr_done (ASN1_DEC_CTXT *aCtx); +#endif + +/************************************************************************/ +/************************************************************************/ +/* mms_defea_req */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_defea_req (ASN1_DEC_CTXT *aCtx) + { +ST_INT req_size; + + MLOG_CDEC0 ("Define Event Action Request"); + /* find maximum size for request info */ + +#if defined(FIXED_DECBUF) + max_modifiers = 0; + req_size = sizeof (DEFEA_REQ_INFO); +#else +#ifdef MOD_SUPPORT + max_modifiers = _mmsdec_msglen / 2; + req_size = sizeof (DEFEA_REQ_INFO) + + (sizeof (MODIFIER) * max_modifiers); +#else + req_size = sizeof (DEFEA_REQ_INFO); +#endif +#endif + +/* get storage for request information */ + req_info = (DEFEA_REQ_INFO *) _m_get_dec_buf (aCtx, req_size); + + +/* req_info->modlist_pres = SD_FALSE; set default values */ + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, defea_name_cstr); + } + +/************************************************************************/ +/* defea_name_cstr */ +/* define event action request is being decoded: event action name */ +/* constructor was encountered. */ +/************************************************************************/ + +static ST_VOID defea_name_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("defea_name_cstr"); + + _ms_get_mms_objname (aCtx, &req_info->evact_name, defea_name_done); + } + +/************************************************************************/ +/* defea_name_done */ +/* define event action request is being decoded: event action name */ +/* has been obtained. */ +/************************************************************************/ + +static ST_VOID defea_name_done (ASN1_DEC_CTXT *aCtx) + { + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = defea_name_cstr_done; + } + +/************************************************************************/ +/* defea_name_cstr_done */ +/* define event action request is being decoded: event action name */ +/* constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID defea_name_cstr_done (ASN1_DEC_CTXT *aCtx) + { + +#ifdef MOD_SUPPORT + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1, defea_get_modlist); +#endif + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 2, defea_get_conf_serv_req); +#ifdef CS_SUPPORT + ASN1R_TAG_ADD (aCtx, CTX | CONSTR,79, defea_cs_rdetail_cstr); +#endif + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +#ifdef MOD_SUPPORT +/************************************************************************/ +/* defea_get_modlist */ +/* Decoding define event action request: list of modifiers constructor */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID defea_get_modlist (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("defea_get_modlist"); + + req_info->modlist_pres = SD_TRUE; /* list of modifiers present */ + + mod_ptr = (MODIFIER *) (req_info + 1); + + _ms_get_mms_modlist (aCtx, mod_ptr, &req_info->num_of_modifiers, + max_modifiers, defea_modlist_done); + } + +/************************************************************************/ +/* defea_modlist_done */ +/* Decoding define event action request: list of modifiers constructor */ +/* done was encountered. */ +/************************************************************************/ + +static ST_VOID defea_modlist_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("defea_modlist_done"); + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 2, defea_get_conf_serv_req); +#ifdef CS_SUPPORT + ASN1R_TAG_ADD (aCtx, CTX | CONSTR,79, defea_cs_rdetail_cstr); +#endif + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } +#endif + +/************************************************************************/ +/* defea_get_conf_serv_req */ +/* Decoding define event action request: confirmed service request */ +/* constructor was encountered. */ +/************************************************************************/ + +static ST_VOID defea_get_conf_serv_req (ASN1_DEC_CTXT *aCtx) + { +#ifdef MOD_SUPPORT +ST_INT req_size; +#endif + + MLOG_CDEC0 ("defea_get_conf_serv_req"); + /* find actual size for request info */ +#ifdef MOD_SUPPORT + req_size = sizeof (DEFEA_REQ_INFO) + + (sizeof (MODIFIER)*req_info->num_of_modifiers); + + /* give back unused storage */ + _mms_dec_info = (*m_realloc_os_fun) (_mms_dec_info, req_size); + req_info = (DEFEA_REQ_INFO *) _mms_dec_info; +#endif + + /* get the confirmed service request */ + req_info->conf_serv_req = aCtx->asn1r_field_ptr; + + asn1r_parse_next (aCtx, defea_conf_serv_req_done); /* parse the contents */ + } + +/************************************************************************/ +/* defea_conf_serv_req_done */ +/* Decoding define event action request: confirmed service request */ +/* has been obtained. */ +/************************************************************************/ + +static ST_VOID defea_conf_serv_req_done (ASN1_DEC_CTXT *aCtx) + { + req_info->conf_serv_req_len = aCtx->asn1r_octetcount; /* save length */ + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = defea_conf_serv_cstr_done; + } + +/************************************************************************/ +/* defea_conf_serv_cstr_done */ +/* Decoding define event action request: confirmed service request */ +/* constructor done has been encountered. */ +/************************************************************************/ + +static ST_VOID defea_conf_serv_cstr_done (ASN1_DEC_CTXT *aCtx) + { +#ifdef CS_SUPPORT + /* check for Companion Standard request detail */ + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 79, defea_cs_rdetail_cstr); +#endif + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +#ifdef CS_SUPPORT +/************************************************************************/ +/* defea_cs_rdetail_cstr */ +/* Decoding define event action request: companion standard request */ +/* detail constructor has been encountered. */ +/************************************************************************/ + +static ST_VOID defea_cs_rdetail_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("defea_cs_rdetail_cstr"); + + req_info->cs_rdetail_pres = SD_TRUE; /* set the present flag */ + + /* leave CS response detail in place; just parse it. */ + req_info->cs_rdetail = aCtx->asn1r_field_ptr; + asn1r_parse_next (aCtx, defea_cs_rdetail_done); + } + +/************************************************************************/ +/* defea_cs_rdetail_done */ +/* event notification request is being decoded: action result success: */ +/* companion standard response detail has been parsed. */ +/************************************************************************/ + +static ST_VOID defea_cs_rdetail_done (ASN1_DEC_CTXT *aCtx) + { + req_info->cs_rdetail_len = aCtx->asn1r_octetcount; /* save length */ + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = defea_cs_rdetail_cstr_done; + } + +/************************************************************************/ +/* defea_cs_rdetail_cstr_done */ +/* event notification request is being decoded: action result success: */ +/* confirmed service response cstr done has been encountered. */ +/************************************************************************/ + +static ST_VOID defea_cs_rdetail_cstr_done (ASN1_DEC_CTXT *aCtx) + { + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } +#endif + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_defea_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the define event action response. */ +/************************************************************************/ + +ST_RET mp_defea_resp (MMSREQ_IND *indptr) + { + return (_mms_send_null_resp (indptr,MMSOP_DEF_EA)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_defea_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the define event action response. */ +/************************************************************************/ + +ST_RET mpl_defea_resp (ST_UINT32 invoke_id) + { + return (_mms_fin_null_resp (invoke_id,MMSOP_DEF_EA)); + } +#endif diff --git a/mmslib/mmsle/rs_defec.c b/mmslib/mmsle/rs_defec.c new file mode 100644 index 0000000..b68cbca --- /dev/null +++ b/mmslib/mmsle/rs_defec.c @@ -0,0 +1,290 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_defec.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of define event */ +/* condition. It decodes the define event condition request */ +/* (indication) & encodes the define event condition response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 05 Remove "thisFileName" */ +/* 12/20/01 JRB 04 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 03 Added SD_CONST modifiers */ +/* 03/23/99 MDE 02 Changes to decode buffer allocation scheme */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pevn.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static DEFEC_REQ_INFO *req_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID defec_get_severity (ASN1_DEC_CTXT *aCtx); +static ST_VOID defec_get_as_reports (ASN1_DEC_CTXT *aCtx); +static ST_VOID defec_monitored_var_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID defec_get_eval_int (ASN1_DEC_CTXT *aCtx); +static ST_VOID defec_monitored_var_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID defec_var_spec_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID defec_get_priority (ASN1_DEC_CTXT *aCtx); +static ST_VOID defec_get_ec_class (ASN1_DEC_CTXT *aCtx); +static ST_VOID defec_name_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID defec_name_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID defec_name_cstr (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_defec_req */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_defec_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Define Event Condition Request"); + + +/* get storage for request information */ + req_info = (DEFEC_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (DEFEC_REQ_INFO)); + + req_info->priority = MMS_NORM_PRIORITY; /* set default value */ + req_info->severity = MMS_NORM_SEVERITY; +/* req_info->as_reports = SD_FALSE; */ +/* req_info->addl_detail_pres = SD_FALSE; */ +/* req_info->mon_var_pres = SD_FALSE; */ +/* req_info->eval_int_pres = SD_FALSE; */ + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, defec_name_cstr); + } + +/************************************************************************/ +/* defec_name_cstr */ +/* define event condition request is being decoded: event condition */ +/* name constructor was encountered. */ +/************************************************************************/ + +static ST_VOID defec_name_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("defec_name_cstr"); + + _ms_get_mms_objname (aCtx, &req_info->evcon_name, defec_name_done); + } + +/************************************************************************/ +/* defec_name_done */ +/* define event condition request is being decoded: event condition */ +/* name has been obtained. */ +/************************************************************************/ + +static ST_VOID defec_name_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("defec_name_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = defec_name_cstr_done; + } + +/************************************************************************/ +/* defec_name_cstr_done */ +/* define event condition request is being decoded: event condition */ +/* name constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID defec_name_cstr_done (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, CTX, 1, defec_get_ec_class); + } + +/************************************************************************/ +/* defec_get_ec_class */ +/* Decoding define event condition request: ec class was encountered. */ +/************************************************************************/ + +static ST_VOID defec_get_ec_class (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("defec_get_ec_class"); + /* read event condition class */ + if (asn1r_get_i16 (aCtx, &(req_info->eclass))) + { + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + else if ((req_info->eclass < 0) || (req_info->eclass > 1)) + { + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + + ASN1R_TAG_ADD (aCtx, CTX, 2, defec_get_priority); + ASN1R_TAG_ADD (aCtx, CTX, 3, defec_get_severity); + ASN1R_TAG_ADD (aCtx, CTX, 4, defec_get_as_reports); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 6, defec_monitored_var_cstr); + ASN1R_TAG_ADD (aCtx, CTX, 7, defec_get_eval_int); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* defec_get_priority */ +/* Decoding define event condition request: priority was encountered. */ +/************************************************************************/ + +static ST_VOID defec_get_priority (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("defec_get_priority"); + /* read priority */ + if (asn1r_get_u8 (aCtx, &(req_info->priority))) + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + ASN1R_TAG_ADD (aCtx, CTX, 3, defec_get_severity); + ASN1R_TAG_ADD (aCtx, CTX, 4, defec_get_as_reports); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 6, defec_monitored_var_cstr); + ASN1R_TAG_ADD (aCtx, CTX, 7, defec_get_eval_int); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* defec_get_severity */ +/* Decoding define event condition request: severity was encountered. */ +/************************************************************************/ + +static ST_VOID defec_get_severity (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("defec_get_severity"); + /* read severity */ + if (asn1r_get_u8 (aCtx, &(req_info->severity))) + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + ASN1R_TAG_ADD (aCtx, CTX, 4, defec_get_as_reports); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 6, defec_monitored_var_cstr); + ASN1R_TAG_ADD (aCtx, CTX, 7, defec_get_eval_int); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* defec_get_as_reports */ +/* Decoding define event condition request: alarm summary reports was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID defec_get_as_reports (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("defec_get_as_reports"); + + req_info->as_reports_pres = SD_TRUE; /* set present flag */ + /* read alarm summary reports */ + if (asn1r_get_bool (aCtx, &(req_info->as_reports))) + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 6, defec_monitored_var_cstr); + ASN1R_TAG_ADD (aCtx, CTX, 7, defec_get_eval_int); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* defec_monitored_var_cstr */ +/* Decoding define event condition request: monitored variable was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID defec_monitored_var_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("defec_monitored_var_cstr"); + + req_info->mon_var_pres = SD_TRUE; /* set present flag */ + + _ms_get_va_var_spec (aCtx, &req_info->var_ref, defec_var_spec_done); + } + +/************************************************************************/ +/* defec_var_spec_done */ +/************************************************************************/ + +static ST_VOID defec_var_spec_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("defec_var_spec_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = defec_monitored_var_cstr_done; + } + +/************************************************************************/ +/* defec_monitored_var_cstr_done */ +/* Decoding define event condition request: monitored variable constr */ +/* done was encountered. */ +/************************************************************************/ + +static ST_VOID defec_monitored_var_cstr_done (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, CTX, 7, defec_get_eval_int); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* defec_get_eval_int */ +/* Decoding define event condition request: evaluation interval was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID defec_get_eval_int (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("defec_get_eval_int"); + + req_info->eval_int_pres = SD_TRUE; + /* read evaluation interval */ + if (asn1r_get_u32 (aCtx, &(req_info->eval_interval))) + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_defec_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the define event condition response. */ +/************************************************************************/ + +ST_RET mp_defec_resp (MMSREQ_IND *indptr) + { + return (_mms_send_null_resp (indptr,MMSOP_DEF_EC)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_defec_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the define event condition response. */ +/************************************************************************/ + +ST_RET mpl_defec_resp (ST_UINT32 invoke_id) + { + return (_mms_fin_null_resp (invoke_id,MMSOP_DEF_EC)); + } +#endif diff --git a/mmslib/mmsle/rs_defsc.c b/mmslib/mmsle/rs_defsc.c new file mode 100644 index 0000000..85dfa41 --- /dev/null +++ b/mmslib/mmsle/rs_defsc.c @@ -0,0 +1,169 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_defscat.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of define scattered */ +/* access. It decodes the define scattered access request */ +/* (indication) and encodes the define scattered access response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 05 Remove "thisFileName" */ +/* 12/20/01 JRB 04 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 03 Added SD_CONST modifiers */ +/* 03/23/99 MDE 02 Changes to decode buffer allocation scheme */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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 DEFSCAT_REQ_INFO *req_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID defscat_scat_acc_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID defscat_scat_acc_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID defscat_scat_acc_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID defscat_name_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID defscat_objname_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID defscat_name_cstr (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_def_scat_req */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_def_scat_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Define Scattered Access Request"); + +/* get storage for request information */ + req_info = (DEFSCAT_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (DEFSCAT_REQ_INFO)); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, defscat_name_cstr); + } + +/************************************************************************/ +/* defscat_name_cstr */ +/* define scattered access request: scattered access name constr was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID defscat_name_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("defscat_name_cstr"); + + _ms_get_mms_objname (aCtx, &req_info->sa_name, defscat_objname_done); + } + +/************************************************************************/ +/* defscat_objname_done */ +/* define scattered access request: scattered access name has been */ +/* decoded. */ +/************************************************************************/ + +static ST_VOID defscat_objname_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("defscat_objname_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = defscat_name_cstr_done; + } + +/************************************************************************/ +/* defscat_name_cstr_done */ +/* define scattered access request: scattered access name constructor */ +/* done was encountered. */ +/************************************************************************/ + +static ST_VOID defscat_name_cstr_done (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1, defscat_scat_acc_cstr); + } + +/************************************************************************/ +/* defscat_address_cstr */ +/* define scattered access request: scattered access constructor was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID defscat_scat_acc_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("defscat_scat_acc_cstr"); + + _ms_get_va_scat_access (aCtx, &req_info->sa_descr, defscat_scat_acc_done); + } + +/************************************************************************/ +/* defscat_scat_acc_done */ +/* define scattered access request: scattered access has been decoded. */ +/************************************************************************/ + +static ST_VOID defscat_scat_acc_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("defscat_scat_acc_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = defscat_scat_acc_cstr_done; + } + +/************************************************************************/ +/* defscat_scat_acc_cstr_done */ +/* define scattered access request: scattered access constr done was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID defscat_scat_acc_cstr_done (ASN1_DEC_CTXT *aCtx) + { + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_defscat_resp */ +/* Create and send a define scattered access response. */ +/************************************************************************/ + +ST_RET mp_defscat_resp (MMSREQ_IND *indptr) + { + return (_mms_send_null_resp (indptr,MMSOP_DEF_SCAT)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_defscat_resp */ +/* Create a define scattered access response. */ +/************************************************************************/ + +ST_RET mpl_defscat_resp (ST_UINT32 invoke_id) + { + return (_mms_fin_null_resp (invoke_id,MMSOP_DEF_SCAT)); + } +#endif diff --git a/mmslib/mmsle/rs_defse.c b/mmslib/mmsle/rs_defse.c new file mode 100644 index 0000000..5e9c22b --- /dev/null +++ b/mmslib/mmsle/rs_defse.c @@ -0,0 +1,147 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_defsem.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of the define */ +/* semaphore operation. It decodes the define semaphore request */ +/* (indication) and encodes the define semaphore response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 08/28/03 EJV 05 Corr spelling for 'receive'. */ +/* 12/20/01 JRB 04 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 03 Added SD_CONST modifiers */ +/* 03/23/99 MDE 02 Changes to decode buffer allocation scheme */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_psem.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static DEFSEM_REQ_INFO *req_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID defsem_sem_name_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID defsem_objname_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID defsem_sem_name_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID defsem_get_num_of_tokens (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_defsem_req */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_defsem_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Define Semaphore Request"); + +/* get storage for request information */ + req_info = (DEFSEM_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (DEFSEM_REQ_INFO)); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, defsem_sem_name_cstr); + } + +/************************************************************************/ +/* defsem_sem_name_cstr */ +/* Decoding define semaphore request: semaphore name constructor was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID defsem_sem_name_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Define Semaphore Request"); + _ms_get_mms_objname (aCtx, &req_info->sem_name, defsem_objname_done); + } + +/************************************************************************/ +/* defsem_objname_done */ +/* Decoding Define Semaphore Request: Semaphore name has been obtained. */ +/************************************************************************/ + +static ST_VOID defsem_objname_done (ASN1_DEC_CTXT *aCtx) + { + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = defsem_sem_name_cstr_done; + } + +/************************************************************************/ +/* defsem_sem_name_cstr_done */ +/* Decoding define semaphore request: semaphore name contructor done */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID defsem_sem_name_cstr_done (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, CTX, 1, defsem_get_num_of_tokens); + } + +/************************************************************************/ +/* defsem_get_num_of_tokens */ +/* Decoding define semaphore request: number of tokens name was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID defsem_get_num_of_tokens (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("defsem_get_num_of_tokens"); + + /* read number of tokens from received message */ + if (asn1r_get_u16 (aCtx, &(req_info->num_of_tokens))) + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_defsem_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the define semaphore response. */ +/************************************************************************/ + +ST_RET mp_defsem_resp (MMSREQ_IND *indptr) + { + return (_mms_send_null_resp (indptr,MMSOP_DEFINE_SEM)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_defsem_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the define semaphore response. */ +/************************************************************************/ + +ST_RET mpl_defsem_resp (ST_UINT32 invoke_id) + { + return (_mms_fin_null_resp (invoke_id,MMSOP_DEFINE_SEM)); + } +#endif diff --git a/mmslib/mmsle/rs_defty.c b/mmslib/mmsle/rs_defty.c new file mode 100644 index 0000000..568a6fa --- /dev/null +++ b/mmslib/mmsle/rs_defty.c @@ -0,0 +1,116 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_deftype.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of define named */ +/* type. It decodes the define named type request (indication) */ +/* and encodes the define named type response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 05 Remove "thisFileName" */ +/* 12/20/01 JRB 04 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 03 Added SD_CONST modifiers */ +/* 03/23/99 MDE 02 Changes to decode buffer allocation scheme */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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 DEFTYPE_REQ_INFO *req_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID deftype_typespec_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID deftype_objname_done (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_def_type_req */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_def_type_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Define Named Type Request"); + +/* get storage for request information */ + req_info = (DEFTYPE_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (DEFTYPE_REQ_INFO)); + + _ms_get_mms_objname (aCtx, &req_info->type_name, deftype_objname_done); + } + +/************************************************************************/ +/* deftype_objname_done */ +/* define named type request: type name has been decoded. */ +/************************************************************************/ + +static ST_VOID deftype_objname_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("deftype_objname_done"); + + _ms_get_va_type_spec (aCtx, &req_info->type_spec, deftype_typespec_done); + } + +/************************************************************************/ +/* deftype_typespec_done */ +/* define named type request: type specification has been decoded. */ +/************************************************************************/ + +static ST_VOID deftype_typespec_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("deftype_typespec_done"); + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_deftype_resp */ +/* Create and send a define named type response. */ +/************************************************************************/ + +ST_RET mp_deftype_resp (MMSREQ_IND *indptr) + { + return (_mms_send_null_resp (indptr,MMSOP_DEF_TYPE)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_deftype_resp */ +/* Create a define named type response. */ +/************************************************************************/ + +ST_RET mpl_deftype_resp (ST_UINT32 invoke_id) + { + return (_mms_fin_null_resp (invoke_id,MMSOP_DEF_TYPE)); + } +#endif diff --git a/mmslib/mmsle/rs_defva.c b/mmslib/mmsle/rs_defva.c new file mode 100644 index 0000000..3462a70 --- /dev/null +++ b/mmslib/mmsle/rs_defva.c @@ -0,0 +1,198 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_defvar.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of define named */ +/* variable. It decodes the define named variable request */ +/* (indication) and encodes the define named variable response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 05 Remove "thisFileName" */ +/* 12/20/01 JRB 04 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 03 Added SD_CONST modifiers */ +/* 03/23/99 MDE 02 Changes to decode buffer allocation scheme */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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 DEFVAR_REQ_INFO *req_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID defvar_typespec_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID defvar_address_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID defvar_address_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID defvar_address_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID defvar_name_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID defvar_objname_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID defvar_name_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID defvar_typespec_done (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_def_var_req */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_def_var_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Define Named Variable Request"); + +/* get storage for request information */ + req_info = (DEFVAR_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (DEFVAR_REQ_INFO)); + req_info->type_spec_pres = SD_FALSE; /* set default value */ + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, defvar_name_cstr); + } + +/************************************************************************/ +/* defvar_name_cstr */ +/* define named variable request: variable name constructor was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID defvar_name_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("defvar_name_cstr"); + + _ms_get_mms_objname (aCtx, &req_info->name, defvar_objname_done); + } + +/************************************************************************/ +/* defvar_objname_done */ +/* define named variable request: variable name has been decoded. */ +/************************************************************************/ + +static ST_VOID defvar_objname_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("defvar_objname_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = defvar_name_cstr_done; + } + +/************************************************************************/ +/* defvar_name_cstr_done */ +/* define named variable request: variable name constructor done was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID defvar_name_cstr_done (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1, defvar_address_cstr); + } + +/************************************************************************/ +/* defvar_address_cstr */ +/* define named variable request: address constructor was encountered. */ +/************************************************************************/ + +static ST_VOID defvar_address_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("defvar_address_cstr"); + + _ms_get_va_address (aCtx, &req_info->address, defvar_address_done); + } + +/************************************************************************/ +/* defvar_address_done */ +/* define named variable request: address has been decoded. */ +/************************************************************************/ + +static ST_VOID defvar_address_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("defvar_address_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = defvar_address_cstr_done; + } + +/************************************************************************/ +/* defvar_address_cstr_done */ +/* define named variable request: address constructor done was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID defvar_address_cstr_done (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 2, defvar_typespec_cstr); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* defvar_typespec_cstr */ +/* define named variable request: type spec constructor was encountered */ +/************************************************************************/ + +static ST_VOID defvar_typespec_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("defvar_typespec_cstr"); + + req_info->type_spec_pres = SD_TRUE; /* set type specification pres */ + + _ms_get_va_type_spec (aCtx, &req_info->type_spec, defvar_typespec_done); + } + +/************************************************************************/ +/* defvar_typespec_done */ +/* define named type request: type specification has been decoded. */ +/************************************************************************/ + +static ST_VOID defvar_typespec_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("defvar_typespec_done"); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_defvar_resp */ +/* Create and send a define named variable response. */ +/************************************************************************/ + +ST_RET mp_defvar_resp (MMSREQ_IND *indptr) + { + return (_mms_send_null_resp (indptr,MMSOP_DEF_VAR)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_defvar_resp */ +/* Create a define named variable response. */ +/************************************************************************/ + +ST_RET mpl_defvar_resp (ST_UINT32 invoke_id) + { + return (_mms_fin_null_resp (invoke_id,MMSOP_DEF_VAR)); + } +#endif diff --git a/mmslib/mmsle/rs_defvl.c b/mmslib/mmsle/rs_defvl.c new file mode 100644 index 0000000..27cfa1b --- /dev/null +++ b/mmslib/mmsle/rs_defvl.c @@ -0,0 +1,177 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_defvlist.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of define named */ +/* variable list. It decodes the define named variable list */ +/* request (indication) & encodes the define named variable list */ +/* response. */ +/* */ +/* 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) */ +/* 08/21/01 JRB 06 Don't allow compile if INT_MAX not defined. */ +/* 06/22/01 RKR 05 Added limits.h */ +/* 04/27/00 MDE 04 Lint cleanup */ +/* 09/13/99 MDE 03 Added SD_CONST modifiers */ +/* 03/23/99 MDE 02 Changes to decode buffer allocation scheme */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include +#ifndef INT_MAX +#error INT_MAX must be defined. Usually defined in limits.h +#endif +#include "mmsdefs.h" +#include "mms_pvar.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static VARIABLE_LIST *vlist_ptr; +static ST_INT max_num_vars; + +static DEFVLIST_REQ_INFO *req_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID defvlist_list_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID defvlist_get_varlist (ASN1_DEC_CTXT *aCtx); +static ST_VOID defvlist_name_done (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_def_vlist_req */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +/* This is used to restrict the maximum buffer size to 0xFF00, which is */ +/* close to the max allowed for the chk_xxx series for 16 bit systems */ +#define MAX_ALLOWED_VARS ((0xFF00 - sizeof (DEFVLIST_REQ_INFO)) / sizeof (VARIABLE_LIST)) + + +ST_VOID mms_def_vlist_req (ASN1_DEC_CTXT *aCtx) + { +ST_INT req_size; + + MLOG_CDEC0 ("Define Named Variable List Request"); + +#if defined(FIXED_DECBUF) + max_num_vars = m_sv_max_num_vars; + req_size = mmsl_dec_info_size; +#else + max_num_vars = _mmsdec_msglen / 2; + if (m_sv_max_num_vars && (max_num_vars > m_sv_max_num_vars)) + max_num_vars = m_sv_max_num_vars; + + /* verify buffer size is allocatable */ +#if (INT_MAX <= 0x7FFF) + if (max_num_vars > MAX_ALLOWED_VARS) + max_num_vars = MAX_ALLOWED_VARS; +#endif + + req_size = sizeof(DEFVLIST_REQ_INFO) + + (sizeof(VARIABLE_LIST) * max_num_vars); +#endif + +/* get storage for request information */ + req_info = (DEFVLIST_REQ_INFO *) _m_get_dec_buf (aCtx, req_size); + vlist_ptr = (VARIABLE_LIST *) (req_info + 1); + + _ms_get_mms_objname (aCtx, &req_info->vl_name, defvlist_name_done); + } + +/************************************************************************/ +/* defvlist_name_done */ +/* decoding define named variable list request: variable list name has */ +/* been obtained. */ +/************************************************************************/ + +static ST_VOID defvlist_name_done (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, defvlist_get_varlist); + } + +/************************************************************************/ +/* defvlist_get_varlist */ +/* decoding define named variable list request: list of variables */ +/* constructor has been obtained. */ +/************************************************************************/ + +static ST_VOID defvlist_get_varlist (ASN1_DEC_CTXT *aCtx) + { + + req_info->num_of_variables = 0; + _ms_get_va_var_list (aCtx, vlist_ptr, &req_info->num_of_variables, + max_num_vars, defvlist_list_done); + } + +/************************************************************************/ +/* defvlist_list_done */ +/* decoding define named variable list request: list of variables has */ +/* been obtained. */ +/************************************************************************/ + +static ST_VOID defvlist_list_done (ASN1_DEC_CTXT *aCtx) + { +ST_INT req_size; + + /* find actual size for request info */ + req_size = sizeof (DEFVLIST_REQ_INFO) + + (sizeof (VARIABLE_LIST)*req_info->num_of_variables); + + /* give back unused storage */ + _mms_dec_info = (*m_realloc_os_fun) (_mms_dec_info, req_size); + req_info = (DEFVLIST_REQ_INFO *) _mms_dec_info; + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_defvlist_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the define named variable list response. */ +/************************************************************************/ + +ST_RET mp_defvlist_resp (MMSREQ_IND *indptr) + { + return (_mms_send_null_resp (indptr,MMSOP_DEF_VLIST)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_defvlist_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the define named variable list response. */ +/************************************************************************/ + +ST_RET mpl_defvlist_resp (ST_UINT32 invoke_id) + { + return (_mms_fin_null_resp (invoke_id,MMSOP_DEF_VLIST)); + } +#endif diff --git a/mmslib/mmsle/rs_deldo.c b/mmslib/mmsle/rs_deldo.c new file mode 100644 index 0000000..6adc2c6 --- /dev/null +++ b/mmslib/mmsle/rs_deldo.c @@ -0,0 +1,96 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_deldom.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of delete domain. */ +/* It decodes the delete domain request (indication) & encodes */ +/* the delete domain response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 08/28/03 EJV 05 Corr spelling for 'receive'. */ +/* 12/20/01 JRB 04 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 03 Added SD_CONST modifiers */ +/* 03/23/99 MDE 02 Changes to decode buffer allocation scheme */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pdom.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : NONE */ + +static DELDOM_REQ_INFO *req_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + + +/************************************************************************/ +/************************************************************************/ +/* mms_delete_domain_req */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_delete_domain_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Delete Domain Request"); + + +/* get storage for request information */ + req_info = (DELDOM_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (DELDOM_REQ_INFO)); + /* read doamin name from received message */ + if (asn1r_get_identifier (aCtx, req_info->dname)) + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_deldom_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the delete domain response. */ +/************************************************************************/ + +ST_RET mp_deldom_resp (MMSREQ_IND *indptr) + { + return (_mms_send_null_resp (indptr,MMSOP_DELETE_DOMAIN)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_deldom_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the delete domain response. */ +/************************************************************************/ + +ST_RET mpl_deldom_resp (ST_UINT32 invoke_id) + { + return (_mms_fin_null_resp (invoke_id,MMSOP_DELETE_DOMAIN)); + } +#endif diff --git a/mmslib/mmsle/rs_delea.c b/mmslib/mmsle/rs_delea.c new file mode 100644 index 0000000..3c38da2 --- /dev/null +++ b/mmslib/mmsle/rs_delea.c @@ -0,0 +1,250 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_delea.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of delete event */ +/* action. It decodes the delete event action request */ +/* (indication) and encodes the delete event action response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 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/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pevn.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static DELEA_REQ_INFO *req_info; + +static OBJECT_NAME *obj_ptr; +static ST_INT max_obj_name; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID delea_name_list_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID delea_objname_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID delea_name_list_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID delea_get_aa_spec (ASN1_DEC_CTXT *aCtx); +static ST_VOID delea_get_domain (ASN1_DEC_CTXT *aCtx); +static ST_VOID delea_get_vmd (ASN1_DEC_CTXT *aCtx); +static ST_VOID delea_dec_done (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_delea_req */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_delea_req (ASN1_DEC_CTXT *aCtx) + { +ST_INT req_size; + + MLOG_CDEC0 ("Delete Event Action Request"); + +#if defined(FIXED_DECBUF) + max_obj_name = m_sv_max_obj_name; + req_size = mmsl_dec_info_size; +#else + max_obj_name = _mmsdec_msglen / 2; /* find maximum size */ + if (m_sv_max_obj_name && (max_obj_name > m_sv_max_obj_name)) + max_obj_name = m_sv_max_obj_name; + req_size = sizeof (DELEA_REQ_INFO) + (sizeof (OBJECT_NAME) * max_obj_name); +#endif + +/* get storage for request information */ + req_info = (DELEA_REQ_INFO *) _m_get_dec_buf (aCtx, req_size); + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, delea_name_list_cstr); + ASN1R_TAG_ADD (aCtx, CTX, 1, delea_get_aa_spec); + ASN1R_TAG_ADD (aCtx, CTX, 3, delea_get_domain); + ASN1R_TAG_ADD (aCtx, CTX, 4, delea_get_vmd); + } + +/************************************************************************/ +/* delea_name_list_cstr */ +/* decoding delete event action request: decode the specific name list */ +/* constructor. */ +/************************************************************************/ + +static ST_VOID delea_name_list_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("delea_name_list_cstr"); + + req_info->req_tag = 0; /* set tag to specific */ + obj_ptr = (OBJECT_NAME *) (req_info + 1); + + _ms_get_mms_objname (aCtx, obj_ptr, delea_objname_done); + + /* set the cstr done function */ + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = delea_name_list_cstr_done; + } + +/************************************************************************/ +/* delea_objname_done */ +/* decoding delete event action request: object name has been */ +/* decoded. */ +/************************************************************************/ + +static ST_VOID delea_objname_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("delea_objname_done"); + + req_info->num_of_names++; /* inc # of variable names */ + if (req_info->num_of_names > max_obj_name) + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + else + { + obj_ptr++; /* point to where next will go */ + _ms_get_mms_objname (aCtx, obj_ptr, delea_objname_done); + } + } + +/************************************************************************/ +/* delea_name_list_cstr_done */ +/* decoding delete event action request: specific name list constr */ +/* done was encountered. */ +/************************************************************************/ + +static ST_VOID delea_name_list_cstr_done (ASN1_DEC_CTXT *aCtx) + { + aCtx->asn1r_decode_done_fun = delea_dec_done; + _ms_set_cs_check2 (aCtx); + } + +/************************************************************************/ +/* delea_get_aa_spec */ +/* decoding delete event action request: aa specific was encountered */ +/************************************************************************/ + +static ST_VOID delea_get_aa_spec (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("delea_get_aa_spec"); + + req_info->req_tag = 1; /* set tag to aa specific */ + aCtx->asn1r_decode_done_fun = delea_dec_done; + _ms_set_cs_check2 (aCtx); + } + +/************************************************************************/ +/* delea_get_domain */ +/* decoding delete event action request: domain was encountered. */ +/************************************************************************/ + +static ST_VOID delea_get_domain (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("delea_get_domain"); + + req_info->req_tag = 3; /* set tag to domain */ + + if (asn1r_get_identifier (aCtx, req_info->dname))/* read the domain name */ + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + aCtx->asn1r_decode_done_fun = delea_dec_done; + _ms_set_cs_check2 (aCtx); + } + +/************************************************************************/ +/* delea_get_vmd */ +/* decoding delete event action request: vmd was encountered. */ +/************************************************************************/ + +static ST_VOID delea_get_vmd (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("delea_get_vmd"); + + req_info->req_tag = 4; /* set tag to vmd */ + aCtx->asn1r_decode_done_fun = delea_dec_done; + _ms_set_cs_check2 (aCtx); + } + +/************************************************************************/ +/* delea_dec_done */ +/* decode done, realloc the structure to desired size */ +/************************************************************************/ + +static ST_VOID delea_dec_done (ASN1_DEC_CTXT *aCtx) + { +ST_INT req_size; + /* find actual size for request info */ + req_size = sizeof (DELEA_REQ_INFO) + + (sizeof (OBJECT_NAME) * req_info->num_of_names); + + /* give back unused storage */ + _mms_dec_info = (*m_realloc_os_fun) (_mms_dec_info,req_size); + req_info = (DELEA_REQ_INFO *) _mms_dec_info; + + _mms_dec_done_ok (aCtx); + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_delea_resp */ +/* Create and send a delete event action response. */ +/************************************************************************/ + +ST_RET mp_delea_resp (MMSREQ_IND *indptr, DELEA_RESP_INFO *info_ptr) + { + return (_mms_resp_send (MMSOP_DEL_EA,indptr, + M_CAST_MK_FUN (_ms_mk_delea_resp), + (ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_delea_resp */ +/* Create a delete event action response. */ +/************************************************************************/ + +ST_RET mpl_delea_resp (ST_UINT32 invoke_id, DELEA_RESP_INFO *info_ptr) + { + return (_mms_resp_fin (MMSOP_DEL_EA,invoke_id, + M_CAST_MK_FUN (_ms_mk_delea_resp), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_delea_resp */ +/* construct a delete event action response. */ +/************************************************************************/ + +ST_VOID _ms_mk_delea_resp (ASN1_ENC_CTXT *aCtx, DELEA_RESP_INFO *info) + { + asn1r_wr_u32 (aCtx, info->cand_not_deleted); /* canditates not deleted */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_prim (aCtx, MMSOP_DEL_EA,CTX); /* tag = opcode, ctx primitive */ + } diff --git a/mmslib/mmsle/rs_delec.c b/mmslib/mmsle/rs_delec.c new file mode 100644 index 0000000..20609ab --- /dev/null +++ b/mmslib/mmsle/rs_delec.c @@ -0,0 +1,250 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_delec.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of delete event */ +/* condition. It decodes the delete event condition request */ +/* (indication) and encodes the delete event condition response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 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/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pevn.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static DELEC_REQ_INFO *req_info; + +static OBJECT_NAME *obj_ptr; +static ST_INT max_obj_name; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID delec_dec_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID delec_name_list_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID delec_objname_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID delec_name_list_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID delec_get_aa_spec (ASN1_DEC_CTXT *aCtx); +static ST_VOID delec_get_domain (ASN1_DEC_CTXT *aCtx); +static ST_VOID delec_get_vmd (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_delec_req */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_delec_req (ASN1_DEC_CTXT *aCtx) + { +ST_INT req_size; + + MLOG_CDEC0 ("Delete Event Condition Request"); + +#if defined(FIXED_DECBUF) + max_obj_name = m_sv_max_obj_name; + req_size = mmsl_dec_info_size; +#else + max_obj_name = _mmsdec_msglen / 2; /* find maximum size */ + if (m_sv_max_obj_name && (max_obj_name > m_sv_max_obj_name)) + max_obj_name = m_sv_max_obj_name; + req_size = sizeof (DELEC_REQ_INFO) + (sizeof (OBJECT_NAME) * max_obj_name); +#endif + +/* get storage for request information */ + req_info = (DELEC_REQ_INFO *) _m_get_dec_buf (aCtx, req_size); + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, delec_name_list_cstr); + ASN1R_TAG_ADD (aCtx, CTX, 1, delec_get_aa_spec); + ASN1R_TAG_ADD (aCtx, CTX, 2, delec_get_domain); + ASN1R_TAG_ADD (aCtx, CTX, 3, delec_get_vmd); + } + +/************************************************************************/ +/* delec_name_list_cstr */ +/* decoding delete event condition request: decode the specific */ +/* name list constructor. */ +/************************************************************************/ + +static ST_VOID delec_name_list_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("delec_name_list_cstr"); + + req_info->req_tag = 0; /* set tag to specific */ + obj_ptr = (OBJECT_NAME *) (req_info + 1); + + _ms_get_mms_objname (aCtx, obj_ptr, delec_objname_done); + + /* set the cstr done function */ + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = delec_name_list_cstr_done; + } + +/************************************************************************/ +/* delec_objname_done */ +/* decoding delete event condition request: object name has been */ +/* decoded. */ +/************************************************************************/ + +static ST_VOID delec_objname_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("delec_objname_done"); + + req_info->num_of_names++; /* inc # of variable names */ + if (req_info->num_of_names > max_obj_name) + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + else + { + obj_ptr++; /* point to where next will go */ + _ms_get_mms_objname (aCtx, obj_ptr, delec_objname_done); + } + } + +/************************************************************************/ +/* delec_name_list_cstr_done */ +/* decoding delete event condition request: specific name list constr */ +/* done was encountered. */ +/************************************************************************/ + +static ST_VOID delec_name_list_cstr_done (ASN1_DEC_CTXT *aCtx) + { + aCtx->asn1r_decode_done_fun = delec_dec_done; + _ms_set_cs_check2 (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* delec_get_aa_spec */ +/* decoding delete event condition request: aa specific was encountered */ +/************************************************************************/ + +static ST_VOID delec_get_aa_spec (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("delec_get_aa_spec"); + + req_info->req_tag = 1; /* set tag to aa specific */ + aCtx->asn1r_decode_done_fun = delec_dec_done; + _ms_set_cs_check2 (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* delec_get_domain */ +/* decoding delete event condition request: domain was encountered. */ +/************************************************************************/ + +static ST_VOID delec_get_domain (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("delec_get_domain"); + + req_info->req_tag = 2; /* set tag to domain */ + + if (asn1r_get_identifier (aCtx, req_info->dname))/* read the domain name */ + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + aCtx->asn1r_decode_done_fun = delec_dec_done; + _ms_set_cs_check2 (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* delec_get_vmd */ +/* decoding delete event condition request: vmd was encountered. */ +/************************************************************************/ + +static ST_VOID delec_get_vmd (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("delec_get_vmd"); + + req_info->req_tag = 3; /* set tag to vmd */ + aCtx->asn1r_decode_done_fun = delec_dec_done; + _ms_set_cs_check2 (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* delec_dec_done */ +/* decode done, realloc the structure to desired size */ +/************************************************************************/ + +static ST_VOID delec_dec_done (ASN1_DEC_CTXT *aCtx) + { +ST_INT req_size; + /* find actual size for request info */ + req_size = sizeof (DELEC_REQ_INFO) + + (sizeof (OBJECT_NAME) * req_info->num_of_names); + + /* give back unused storage */ + _mms_dec_info = (*m_realloc_os_fun) (_mms_dec_info,req_size); + req_info = (DELEC_REQ_INFO *) _mms_dec_info; + + _mms_dec_done_ok (aCtx); + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_delec_resp */ +/* Create and send a delete event condition response. */ +/************************************************************************/ + +ST_RET mp_delec_resp (MMSREQ_IND *indptr, DELEC_RESP_INFO *info_ptr) + { + return (_mms_resp_send (MMSOP_DEL_EC,indptr, + M_CAST_MK_FUN (_ms_mk_delec_resp), + (ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_delec_resp */ +/* Create a delete event condition response. */ +/************************************************************************/ + +ST_RET mpl_delec_resp (ST_UINT32 invoke_id, DELEC_RESP_INFO *info_ptr) + { + return (_mms_resp_fin (MMSOP_DEL_EC,invoke_id, + M_CAST_MK_FUN (_ms_mk_delec_resp), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_delec_resp */ +/* construct a delete event condition response. */ +/************************************************************************/ + +ST_VOID _ms_mk_delec_resp (ASN1_ENC_CTXT *aCtx, DELEC_RESP_INFO *info) + { + asn1r_wr_u32 (aCtx, info->cand_not_deleted); /* canditates not deleted */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_prim (aCtx, MMSOP_DEL_EC,CTX); /* tag = opcode, ctx primitive */ + } diff --git a/mmslib/mmsle/rs_delee.c b/mmslib/mmsle/rs_delee.c new file mode 100644 index 0000000..a11c93c --- /dev/null +++ b/mmslib/mmsle/rs_delee.c @@ -0,0 +1,286 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_delee.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of delete event */ +/* enrollment. It decodes the delete event enrollment request */ +/* (indication) and encodes the delete event enrollment response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 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/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pevn.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static DELEE_REQ_INFO *req_info; + +static OBJECT_NAME *obj_ptr; +static ST_INT max_obj_name; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID delee_dec_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID delee_eaname_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID delee_eaname_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID delee_ecname_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID delee_ecname_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID delee_objname_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID delee_name_list_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID delee_name_list_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID delee_ecname_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID delee_eaname_cstr (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_delee_req */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_delee_req (ASN1_DEC_CTXT *aCtx) + { +ST_INT req_size; + + MLOG_CDEC0 ("Delete Event Enrollment Request"); + +#if defined(FIXED_DECBUF) + max_obj_name = m_sv_max_obj_name; + req_size = mmsl_dec_info_size; +#else + max_obj_name = _mmsdec_msglen / 2; /* find maximum size */ + if (m_sv_max_obj_name && (max_obj_name > m_sv_max_obj_name)) + max_obj_name = m_sv_max_obj_name; + req_size = sizeof (DELEE_REQ_INFO) + (sizeof (OBJECT_NAME) * max_obj_name); +#endif + +/* get storage for request information */ + req_info = (DELEE_REQ_INFO *) _m_get_dec_buf (aCtx, req_size); + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, delee_name_list_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1, delee_ecname_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 2, delee_eaname_cstr); + } + +/************************************************************************/ +/* delee_name_list_cstr */ +/* decoding delete event enrollment request: decode the specific name */ +/* list constructor. */ +/************************************************************************/ + +static ST_VOID delee_name_list_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("delee_name_list_cstr"); + + req_info->req_tag = 0; /* set tag to specific */ + obj_ptr = (OBJECT_NAME *) (req_info + 1); + + _ms_get_mms_objname (aCtx, obj_ptr, delee_objname_done); + + /* set the cstr done function */ + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = delee_name_list_cstr_done; + } + +/************************************************************************/ +/* delee_objname_done */ +/* decoding delete event enrollment request: object name has been */ +/* decoded. */ +/************************************************************************/ + +static ST_VOID delee_objname_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("delee_objname_done"); + + req_info->sod.num_of_names++; /* inc # of object names */ + if (req_info->sod.num_of_names > max_obj_name) + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + else + { + obj_ptr++; /* point to where next will go */ + _ms_get_mms_objname (aCtx, obj_ptr, delee_objname_done); + } + } + +/************************************************************************/ +/* delee_name_list_cstr_done */ +/* decoding delete event enrollment request: specific name list constr */ +/* done was encountered. */ +/************************************************************************/ + +static ST_VOID delee_name_list_cstr_done (ASN1_DEC_CTXT *aCtx) + { + aCtx->asn1r_decode_done_fun = delee_dec_done; + _ms_set_cs_check2 (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* delee_ecname_cstr */ +/* decoding delete event enrollment request: event condition name cstr */ +/* was encountered */ +/************************************************************************/ + +static ST_VOID delee_ecname_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("delee_ecname_cstr"); + + req_info->req_tag = 1; /* set tag to event condition */ + + _ms_get_mms_objname (aCtx, &req_info->sod.evcon_name, delee_ecname_done); + } + +/************************************************************************/ +/* delee_ecname_done */ +/* delete event enrollment request is being decoded: event condition */ +/* name has been obtained. */ +/************************************************************************/ + +static ST_VOID delee_ecname_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("delee_ecname_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = delee_ecname_cstr_done; + } + +/************************************************************************/ +/* delee_ecname_cstr_done */ +/* delete event enrollment request is being decoded: event condition */ +/* name constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID delee_ecname_cstr_done (ASN1_DEC_CTXT *aCtx) + { + aCtx->asn1r_decode_done_fun = delee_dec_done; + _ms_set_cs_check2 (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* delee_eaname_cstr */ +/* decoding delete event enrollment request: event action name cstr */ +/* was encountered */ +/************************************************************************/ + +static ST_VOID delee_eaname_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("delee_eaname_cstr"); + + req_info->req_tag = 2; /* set tag to event action */ + + _ms_get_mms_objname (aCtx, &req_info->sod.evact_name, delee_eaname_done); + } + +/************************************************************************/ +/* delee_eaname_done */ +/* delete event enrollment request is being decoded: event action */ +/* name has been obtained. */ +/************************************************************************/ + +static ST_VOID delee_eaname_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("delee_eaname_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = delee_eaname_cstr_done; + } + +/************************************************************************/ +/* delee_eaname_cstr_done */ +/* delete event enrollment request is being decoded: event action */ +/* name constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID delee_eaname_cstr_done (ASN1_DEC_CTXT *aCtx) + { + _ms_set_cs_check2 (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* delee_dec_done */ +/* decode done, realloc the structure to desired size */ +/************************************************************************/ + +static ST_VOID delee_dec_done (ASN1_DEC_CTXT *aCtx) + { +ST_INT req_size; + /* find actual size for request info */ + req_size = sizeof (DELEE_REQ_INFO) + + (sizeof (OBJECT_NAME) * req_info->sod.num_of_names); + + /* give back unused storage */ + _mms_dec_info = (*m_realloc_os_fun) (_mms_dec_info,req_size); + req_info = (DELEE_REQ_INFO *) _mms_dec_info; + + _mmsdec_rslt->data_pres = SD_TRUE; + _mmsdec_rslt->data_ptr = (ST_CHAR *) req_info; + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_delee_resp */ +/* Create and send a delete event enrollment response. */ +/************************************************************************/ + +ST_RET mp_delee_resp (MMSREQ_IND *indptr, DELEE_RESP_INFO *info_ptr) + { + return (_mms_resp_send (MMSOP_DEL_EE,indptr, + M_CAST_MK_FUN (_ms_mk_delee_resp), + (ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_delee_resp */ +/* Create a delete event enrollment response. */ +/************************************************************************/ + +ST_RET mpl_delee_resp (ST_UINT32 invoke_id, DELEE_RESP_INFO *info_ptr) + { + return (_mms_resp_fin (MMSOP_DEL_EE,invoke_id, + M_CAST_MK_FUN (_ms_mk_delee_resp), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_delee_resp */ +/* construct a delete event enrollment response. */ +/************************************************************************/ + +ST_VOID _ms_mk_delee_resp (ASN1_ENC_CTXT *aCtx, DELEE_RESP_INFO *info) + { + asn1r_wr_u32 (aCtx, info->cand_not_deleted); /* canditates not deleted */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_prim (aCtx, MMSOP_DEL_EE,CTX); /* tag = opcode, ctx primitive */ + } diff --git a/mmslib/mmsle/rs_delpi.c b/mmslib/mmsle/rs_delpi.c new file mode 100644 index 0000000..8402c0c --- /dev/null +++ b/mmslib/mmsle/rs_delpi.c @@ -0,0 +1,95 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_delpi.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of delete program */ +/* invocation. It decodes the delete program invocation request */ +/* (indication) & encodes the delete program invocation response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 05 Remove "thisFileName" */ +/* 12/20/01 JRB 04 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 03 Added SD_CONST modifiers */ +/* 03/23/99 MDE 02 Changes to decode buffer allocation scheme */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pprg.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static DELPI_REQ_INFO *req_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + + +/************************************************************************/ +/************************************************************************/ +/* mms_delete_pi_req */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_delete_pi_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Delete Program Invocation Request"); + + +/* get storage for request information */ + req_info = (DELPI_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (DELPI_REQ_INFO)); + /* read program invocation name from message */ + if (asn1r_get_identifier (aCtx, req_info->piname)) + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_delpi_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the delete program invocation response. */ +/************************************************************************/ + +ST_RET mp_delpi_resp (MMSREQ_IND *indptr) + { + return (_mms_send_null_resp (indptr,MMSOP_DELETE_PI)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_delpi_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the delete program invocation response. */ +/************************************************************************/ + +ST_RET mpl_delpi_resp (ST_UINT32 invoke_id) + { + return (_mms_fin_null_resp (invoke_id,MMSOP_DELETE_PI)); + } +#endif diff --git a/mmslib/mmsle/rs_delse.c b/mmslib/mmsle/rs_delse.c new file mode 100644 index 0000000..9cedc53 --- /dev/null +++ b/mmslib/mmsle/rs_delse.c @@ -0,0 +1,102 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_delsem.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of the delete */ +/* semaphore. It decodes the delete semaphore request (indication) */ +/* and encodes the delete semaphore response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 05 Remove "thisFileName" */ +/* 12/20/01 JRB 04 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 03 Added SD_CONST modifiers */ +/* 03/23/99 MDE 02 Changes to decode buffer allocation scheme */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_psem.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static DELSEM_REQ_INFO *req_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID delsem_objname_done (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_delsem_req */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_delsem_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Delete Semaphore Request"); + +/* get storage for request information */ + req_info = (DELSEM_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (DELSEM_REQ_INFO)); + _ms_get_mms_objname (aCtx, &req_info->sem_name, delsem_objname_done); + } + +/************************************************************************/ +/* delsem_objname_done */ +/* Decoding delete semaphore request: semaphore name obtained */ +/************************************************************************/ + +static ST_VOID delsem_objname_done (ASN1_DEC_CTXT *aCtx) + { + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_delsem_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the delete semaphore response. */ +/************************************************************************/ + +ST_RET mp_delsem_resp (MMSREQ_IND *indptr) + { + return (_mms_send_null_resp (indptr,MMSOP_DELETE_SEM)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_delsem_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the delete semaphore response. */ +/************************************************************************/ + +ST_RET mpl_delsem_resp (ST_UINT32 invoke_id) + { + return (_mms_fin_null_resp (invoke_id,MMSOP_DELETE_SEM)); + } +#endif diff --git a/mmslib/mmsle/rs_delty.c b/mmslib/mmsle/rs_delty.c new file mode 100644 index 0000000..72da936 --- /dev/null +++ b/mmslib/mmsle/rs_delty.c @@ -0,0 +1,251 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_deltype.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of delete named */ +/* type. It decodes the delete named type request (indication) */ +/* and encodes the delete named type response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 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/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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 DELTYPE_REQ_INFO *req_info; + +static OBJECT_NAME *obj_ptr; +static ST_INT max_obj_name; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ +/* static functions with multiple references */ + +static ST_VOID deltype_get_dname (ASN1_DEC_CTXT *aCtx); +static ST_VOID deltype_name_list_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID deltype_objname_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID deltype_name_list_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID deltype_dec_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID deltype_get_scope (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_del_type_req */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_del_type_req (ASN1_DEC_CTXT *aCtx) + { +ST_INT req_size; + + MLOG_CDEC0 ("Delete Named Type Request"); + +#if defined(FIXED_DECBUF) + max_obj_name = m_sv_max_obj_name; + req_size = mmsl_dec_info_size; +#else + max_obj_name = _mmsdec_msglen / 2; /* find maximum size */ + if (m_sv_max_obj_name && (max_obj_name > m_sv_max_obj_name)) + max_obj_name = m_sv_max_obj_name; + req_size = sizeof (DELTYPE_REQ_INFO) + (sizeof (OBJECT_NAME) * max_obj_name); +#endif + +/* get storage for request information */ + req_info = (DELTYPE_REQ_INFO *) _m_get_dec_buf (aCtx, req_size); + +/* req_info->tnames_pres = SD_FALSE; */ +/* req_info->num_of_tnames = ZERO_ENTRIES; */ +/* req_info->dname_pres = SD_FALSE; */ + + + ASN1R_TAG_ADD (aCtx, CTX, 0, deltype_get_scope); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1, deltype_name_list_cstr); + ASN1R_TAG_ADD (aCtx, CTX, 2, deltype_get_dname); + _ms_set_cs_check2 (aCtx); /* check for Companion Standard info */ + + asn1r_set_all_cstr_done (aCtx); /* clear cstr done functions */ + aCtx->asn1r_decode_done_fun = deltype_dec_done; /* ok to be done, set done fun */ + } + +/************************************************************************/ +/* deltype_get_scope */ +/* delete named type request: decode the scope. */ +/************************************************************************/ + +static ST_VOID deltype_get_scope (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("deltype_get_scope"); + /* read scope from message */ + if (asn1r_get_i16 (aCtx, &req_info->scope)) + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + if ((req_info->scope < 0) || (req_info->scope > 3)) + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); /* validate range of scope [0..3] */ + + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1, deltype_name_list_cstr); + ASN1R_TAG_ADD (aCtx, CTX, 2, deltype_get_dname); + _ms_set_cs_check2 (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* deltype_name_list_cstr */ +/* delete named type request: decode the type name constructor */ +/************************************************************************/ + +static ST_VOID deltype_name_list_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("deltype_name_list_cstr"); + + req_info->tnames_pres = SD_TRUE; /* set type name list present */ + + obj_ptr = (OBJECT_NAME *) (req_info + 1); + + _ms_get_mms_objname (aCtx, obj_ptr, deltype_objname_done); + + /* set the cstr done function */ + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = deltype_name_list_cstr_done; + } + +/************************************************************************/ +/* deltype_objname_done */ +/* delete named type request: type name has been decoded. */ +/************************************************************************/ + +static ST_VOID deltype_objname_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("deltype_objname_done"); + + req_info->num_of_tnames++; /* increment # of type names */ + if ((req_info->num_of_tnames + 1) <= max_obj_name) + { + obj_ptr++; /* point to where next will go */ + _ms_get_mms_objname (aCtx, obj_ptr, deltype_objname_done); + } + } + +/************************************************************************/ +/* deltype_name_list_cstr_done */ +/* delete named type request: end of the type name list constructor was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID deltype_name_list_cstr_done (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, CTX, 2, deltype_get_dname); + _ms_set_cs_check2 (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* deltype_get_dname */ +/* delete named type request: domain name was encountered. */ +/************************************************************************/ + +static ST_VOID deltype_get_dname (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("deltype_get_dname"); + + req_info->dname_pres = SD_TRUE; /* set domain name present */ + + if (asn1r_get_identifier (aCtx, req_info->dname))/* read the domain name */ + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + _ms_set_cs_check2 (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* deltype_dec_done */ +/* decode done, realloc the structure to desired size */ +/************************************************************************/ + +static ST_VOID deltype_dec_done (ASN1_DEC_CTXT *aCtx) + { +ST_INT req_size; + + /* find actual size for request info */ + req_size = sizeof (DELTYPE_REQ_INFO) + + (sizeof (OBJECT_NAME) * req_info->num_of_tnames); + + /* give back unused storage */ + _mms_dec_info = (*m_realloc_os_fun) (_mms_dec_info,req_size); + req_info = (DELTYPE_REQ_INFO *) _mms_dec_info; + _mms_dec_done_ok (aCtx); /* decode done, set done, etc */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_deltype_resp */ +/* Create and send a delete type response. */ +/************************************************************************/ + +ST_RET mp_deltype_resp (MMSREQ_IND *indptr, DELTYPE_RESP_INFO *info_ptr) + { + return (_mms_resp_send (MMSOP_DEL_TYPE,indptr, + M_CAST_MK_FUN (_ms_mk_deltype_resp), + (ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_deltype_resp */ +/* Create a delete type response. */ +/************************************************************************/ + +ST_RET mpl_deltype_resp (ST_UINT32 invoke_id, DELTYPE_RESP_INFO *info_ptr) + { + return (_mms_resp_fin (MMSOP_DEL_TYPE,invoke_id, + M_CAST_MK_FUN (_ms_mk_deltype_resp), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_deltype_resp */ +/* construct a delete type response. */ +/************************************************************************/ + +ST_VOID _ms_mk_deltype_resp (ASN1_ENC_CTXT *aCtx, DELTYPE_RESP_INFO *info) + { + asn1r_wr_u32 (aCtx, info->num_deleted); /* write # deleted */ + asn1r_fin_prim (aCtx, 1,CTX); + + asn1r_wr_u32 (aCtx, info->num_matched); /* write # matched */ + asn1r_fin_prim (aCtx, 0,CTX); + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_DEL_TYPE,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsle/rs_delva.c b/mmslib/mmsle/rs_delva.c new file mode 100644 index 0000000..3c0d0a1 --- /dev/null +++ b/mmslib/mmsle/rs_delva.c @@ -0,0 +1,101 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_delvar.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of delete variable */ +/* access. It decodes the delete variable access request */ +/* (indication) and encodes the delete variable access response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 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 : */ + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + + +/************************************************************************/ +/************************************************************************/ +/* mms_del_var_req */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_del_var_req (ASN1_DEC_CTXT *aCtx) + { + mms_del_type_req (aCtx); + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_delvar_resp */ +/* Create and send a delete variable access response. */ +/************************************************************************/ + +ST_RET mp_delvar_resp (MMSREQ_IND *indptr, DELVAR_RESP_INFO *info_ptr) + { + return (_mms_resp_send (MMSOP_DEL_VAR,indptr, + M_CAST_MK_FUN (_ms_mk_delvar_resp), + (ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_delvar_resp */ +/* Create a delete variable access response. */ +/************************************************************************/ + +ST_RET mpl_delvar_resp (ST_UINT32 invoke_id, DELVAR_RESP_INFO *info_ptr) + { + return (_mms_resp_fin (MMSOP_DEL_VAR,invoke_id, + M_CAST_MK_FUN (_ms_mk_delvar_resp), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_delvar_resp */ +/* construct a delete variable access response. */ +/************************************************************************/ + +ST_VOID _ms_mk_delvar_resp (ASN1_ENC_CTXT *aCtx, DELVAR_RESP_INFO *info) + { + asn1r_wr_u32 (aCtx, info->num_deleted); /* write # deleted */ + asn1r_fin_prim (aCtx, 1,CTX); + + asn1r_wr_u32 (aCtx, info->num_matched); /* write # matched */ + asn1r_fin_prim (aCtx, 0,CTX); + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_DEL_VAR,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsle/rs_delvl.c b/mmslib/mmsle/rs_delvl.c new file mode 100644 index 0000000..0abc702 --- /dev/null +++ b/mmslib/mmsle/rs_delvl.c @@ -0,0 +1,103 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_delvlist.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of delete named */ +/* variable list. It decodes the delete named variable list */ +/* request (indication) and encodes the delete named variable */ +/* list response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 02 Converted to use ASN1R (re-entrant ASN1) */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 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 : */ + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + + +/************************************************************************/ +/************************************************************************/ +/* mms_del_vlist_req */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_del_vlist_req (ASN1_DEC_CTXT *aCtx) + { + mms_del_type_req (aCtx); + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_delvlist_resp */ +/* Create and send a delete named variable list response. */ +/************************************************************************/ + +ST_RET mp_delvlist_resp (MMSREQ_IND *indptr, DELVLIST_RESP_INFO *info_ptr) + { + return (_mms_resp_send (MMSOP_DEL_VLIST,indptr, + M_CAST_MK_FUN (_ms_mk_delvlist_resp), + (ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_delvlist_resp */ +/* Create a delete named variable list response. */ +/************************************************************************/ + +ST_RET mpl_delvlist_resp (ST_UINT32 invoke_id, + DELVLIST_RESP_INFO *info_ptr) + { + return (_mms_resp_fin (MMSOP_DEL_VLIST,invoke_id, + M_CAST_MK_FUN (_ms_mk_delvlist_resp), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_delvlist_resp */ +/* construct a delete named variable list response. */ +/************************************************************************/ + +ST_VOID _ms_mk_delvlist_resp (ASN1_ENC_CTXT *aCtx, DELVLIST_RESP_INFO *info) + { + asn1r_wr_u32 (aCtx, info->num_deleted); /* write # deleted */ + asn1r_fin_prim (aCtx, 1,CTX); + + asn1r_wr_u32 (aCtx, info->num_matched); /* write # matched */ + asn1r_fin_prim (aCtx, 0,CTX); + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_DEL_VLIST,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsle/rs_downl.c b/mmslib/mmsle/rs_downl.c new file mode 100644 index 0000000..663d036 --- /dev/null +++ b/mmslib/mmsle/rs_downl.c @@ -0,0 +1,130 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_download.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of download segment. */ +/* It decodes the download segment request (indication) & encodes */ +/* the download segment response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 08 Remove "thisFileName" */ +/* 08/28/03 EJV 07 Corr spelling for 'receive'. */ +/* 12/20/01 JRB 06 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 05 Added SD_CONST modifiers */ +/* 03/23/99 MDE 04 Changes to decode buffer allocation scheme */ +/* 06/15/98 MDE 03 Changes to allow compile under C++ */ +/* 07/03/97 MDE 02 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pdom.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static DOWNLOAD_REQ_INFO *req_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + + +/************************************************************************/ +/************************************************************************/ +/* mms_download_req */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_download_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Download Segment Request"); + +/* get storage for request information */ + req_info = (DOWNLOAD_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (DOWNLOAD_REQ_INFO)); + /* read domain name from the received message */ + if (asn1r_get_identifier (aCtx, req_info->dname)) + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_download_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the download segment response. */ +/************************************************************************/ + +ST_RET mp_download_resp (MMSREQ_IND *indptr,DOWNLOAD_RESP_INFO *info_ptr) + { + return (_mms_resp_send (MMSOP_DOWN_LOAD,indptr, + M_CAST_MK_FUN (_ms_mk_download_resp), + (ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_download_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the download segment response. */ +/************************************************************************/ + +ST_RET mpl_download_resp (ST_UINT32 invoke_id, + DOWNLOAD_RESP_INFO *info_ptr) + { + return (_mms_resp_fin (MMSOP_DOWN_LOAD,invoke_id, + M_CAST_MK_FUN (_ms_mk_download_resp), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_download_resp */ +/* Construct a download segment response. */ +/************************************************************************/ + +ST_VOID _ms_mk_download_resp (ASN1_ENC_CTXT *aCtx, DOWNLOAD_RESP_INFO *info) +{ + asn1r_strt_constr (aCtx); /* start the sequence constr */ + if (!info->more_follows) + { /* NOT the default (SD_TRUE) */ + asn1r_wr_bool (aCtx, info->more_follows); /* write more follows indicator */ + asn1r_fin_prim (aCtx, 1,CTX); /* context tag 1 */ + } + + if (info->load_data_type == LOAD_DATA_NON_CODED) + { + asn1r_wr_octstr (aCtx, info->load_data,info->load_data_len); + asn1r_fin_prim (aCtx, 0,CTX); /* context tag 0 */ + } + else /* CODED data, write as complete ASN.1 EXTERNAL */ + asn1r_wr_delmnt (aCtx, info->load_data,info->load_data_len); + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_DOWN_LOAD,CTX,DEF); /* tag = opcode, ctx constr */ + } + diff --git a/mmslib/mmsle/rs_fclos.c b/mmslib/mmsle/rs_fclos.c new file mode 100644 index 0000000..41f618e --- /dev/null +++ b/mmslib/mmsle/rs_fclos.c @@ -0,0 +1,101 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_fclose.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of the file close. */ +/* It decodes the file close request (indication) and encodes */ +/* the file close response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* ST_VOID mms_file_close_req () */ +/* ST_INT16 mp_fclose_resp (indptr) */ +/* ST_INT16 mpl_fclose_resp (invoke_id) - MMSEASE-LITE */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 07 Remove "thisFileName" */ +/* 08/28/03 EJV 06 Corr spelling for 'receive'. */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 04 Added SD_CONST modifiers */ +/* 03/23/99 MDE 03 Changes to decode buffer allocation scheme */ +/* 07/03/97 MDE 02 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pfil.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static FCLOSE_REQ_INFO *fop_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + + +/************************************************************************/ +/************************************************************************/ +/* mms_file_close_req */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_file_close_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("File Close Request"); + + +/* get storage for request information */ + fop_info = (FCLOSE_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (FCLOSE_REQ_INFO)); + + /* read frsmid from the received message */ + if (asn1r_get_i32 (aCtx, &(fop_info->frsmid))) + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_fclose_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the file close response. */ +/************************************************************************/ + +ST_RET mp_fclose_resp (MMSREQ_IND *indptr) + { + return (_mms_send_null_resp (indptr,MMSOP_FILE_CLOSE)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_fclose_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the file close response. */ +/************************************************************************/ + +ST_RET mpl_fclose_resp (ST_UINT32 invoke_id) + { + return (_mms_fin_null_resp (invoke_id,MMSOP_FILE_CLOSE)); + } +#endif diff --git a/mmslib/mmsle/rs_fdele.c b/mmslib/mmsle/rs_fdele.c new file mode 100644 index 0000000..570b759 --- /dev/null +++ b/mmslib/mmsle/rs_fdele.c @@ -0,0 +1,134 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_fdelete.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of the file delete. */ +/* It decodes the file delete request (indication) and encodes */ +/* the file delete response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 05 Remove "thisFileName" */ +/* 12/20/01 JRB 04 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 03 Added SD_CONST modifiers */ +/* 03/23/99 MDE 02 Changes to decode buffer allocation scheme */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pfil.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static FDELETE_REQ_INFO *info; + +static ST_INT max_fnames; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID fdelete_fname_cstr_done (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_file_delete_req */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/* file delete request: decode the file name. */ +/************************************************************************/ + +ST_VOID mms_file_delete_req (ASN1_DEC_CTXT *aCtx) + { +ST_INT req_size; + + MLOG_CDEC0 ("File Delete Request"); + + + if (aCtx->asn1r_elmnt_len > MAX_FILE_NAME) + { /* delete file name is too ST_INT32 */ + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + +#if defined(FIXED_DECBUF) + max_fnames = m_sv_max_file_names; + req_size = mmsl_dec_info_size; +#else + max_fnames = (_mmsdec_msglen/2); + if (m_sv_max_file_names && (max_fnames > m_sv_max_file_names)) + max_fnames = m_sv_max_file_names; + req_size = sizeof (FDELETE_REQ_INFO) + (max_fnames * sizeof (FILE_NAME)); +#endif + +/* get storage for request information */ + info = (FDELETE_REQ_INFO *) _m_get_dec_buf (aCtx, req_size); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = fdelete_fname_cstr_done; + _ms_get_mms_fname (aCtx, (FILE_NAME *)(info + 1), max_fnames, &info->num_of_fname); + } + +/************************************************************************/ +/* fdelete_fname_cstr_done */ +/* file delete request is being decoded: file name list constructor */ +/* done was encountered. */ +/************************************************************************/ + +static ST_VOID fdelete_fname_cstr_done (ASN1_DEC_CTXT *aCtx) + { +ST_INT req_size; + + /* find actual size for request info */ + req_size = sizeof (FDELETE_REQ_INFO) + + (sizeof (FILE_NAME) * info->num_of_fname); + + /* give back unused storage */ + _mms_dec_info = (*m_realloc_os_fun) (_mms_dec_info,req_size); + info = (FDELETE_REQ_INFO *) _mms_dec_info; + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_fdelete_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the file delete response. */ +/************************************************************************/ + +ST_RET mp_fdelete_resp (MMSREQ_IND *indptr) + { + return (_mms_send_null_resp (indptr,MMSOP_FILE_DELETE)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_fdelete_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the file delete response. */ +/************************************************************************/ + +ST_RET mpl_fdelete_resp (ST_UINT32 invoke_id) + { + return (_mms_fin_null_resp (invoke_id,MMSOP_FILE_DELETE)); + } +#endif diff --git a/mmslib/mmsle/rs_fdir.c b/mmslib/mmsle/rs_fdir.c new file mode 100644 index 0000000..3175b6b --- /dev/null +++ b/mmslib/mmsle/rs_fdir.c @@ -0,0 +1,298 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_fdir.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of file directory. */ +/* It decodes the file directory request (indication) and encodes */ +/* the file directory response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 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/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pfil.h" +#include "asn1defs.h" +#include "mem_chk.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static FDIR_REQ_INFO *fop_info; + +static ST_INT max_fnames; +static FILE_NAME *fname_idx; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID fdir_fs_fname_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID fdir_ca_fname_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID fdir_ca_fname_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID fdir_fs_fname_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID fdir_dec_done_ok (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_file_dir_req */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_file_dir_req (ASN1_DEC_CTXT *aCtx) + { +ST_INT req_size; + + MLOG_CDEC0 ("File Directory Request"); + +#if defined(FIXED_DECBUF) + max_fnames = m_sv_max_file_names; + req_size = mmsl_dec_info_size; +#else + max_fnames = (_mmsdec_msglen/2); + if (m_sv_max_file_names && (max_fnames > m_sv_max_file_names)) + max_fnames = m_sv_max_file_names; + req_size = sizeof (FDIR_REQ_INFO) + (max_fnames * sizeof (FILE_NAME)); +#endif + +/* get storage for request information */ + fop_info = (FDIR_REQ_INFO *) _m_get_dec_buf (aCtx, req_size); + if (aCtx->asn1r_elmnt_len > 0) /* a constructor is present */ + { + fname_idx = (FILE_NAME *)(fop_info + 1); + ASN1R_TAG_ADD (aCtx, CTX|CONSTR, 0, fdir_fs_fname_cstr); + ASN1R_TAG_ADD (aCtx, CTX|CONSTR, 1, fdir_ca_fname_cstr); + } + else /* all optional constructors were excluded */ + { + fop_info->filespec_pres = SD_FALSE; /* reset filespec present */ + fop_info->cont_after_pres = SD_FALSE; /* reset continue after present */ + } + aCtx->asn1r_decode_done_fun = fdir_dec_done_ok; + _ms_set_cs_check2 (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* fdir_fs_fname_cstr */ +/* file directory request is being decoded: file specification filename */ +/* cstr was encountered. */ +/************************************************************************/ + +static ST_VOID fdir_fs_fname_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("fdir_fs_fname_cstr"); + + fop_info->filespec_pres = SD_TRUE; /* set file spec present */ + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = fdir_fs_fname_cstr_done; + _ms_get_mms_fname (aCtx, fname_idx, max_fnames, &fop_info->num_of_fs_fname); + } + +/************************************************************************/ +/* fdir_fs_fname_cstr_done */ +/* file directory request is being decoded: file specification file */ +/* name list constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID fdir_fs_fname_cstr_done (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, CTX|CONSTR, 1, fdir_ca_fname_cstr); + _ms_set_cs_check2 (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* fdir_ca_fname_cstr */ +/* file directory request is being decoded: continue after filename */ +/* cstr was encountered. */ +/************************************************************************/ + +static ST_VOID fdir_ca_fname_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("fdir_ca_fname_cstr"); + + fop_info->cont_after_pres = SD_TRUE; /* set continue name present */ + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = fdir_ca_fname_cstr_done; + fname_idx += fop_info -> num_of_fs_fname; + _ms_get_mms_fname (aCtx, fname_idx, max_fnames, &fop_info->num_of_ca_fname); + } + +/************************************************************************/ +/* fdir_ca_fname_cstr_done */ +/* file directory request is being decoded: continue after file name */ +/* list constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID fdir_ca_fname_cstr_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("fdir_ca_fname_cstr_done"); + + _ms_set_cs_check2 (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* fdir_dec_done_ok */ +/* file directory request is completely done. Any extra storage is */ +/* given back. */ +/************************************************************************/ + +static ST_VOID fdir_dec_done_ok (ASN1_DEC_CTXT *aCtx) + { +ST_INT req_size; + /* find actual size for request info */ + req_size = sizeof (FDIR_REQ_INFO) + + (sizeof (FILE_NAME) * fop_info->num_of_fs_fname) + + (sizeof (FILE_NAME) * fop_info->num_of_ca_fname); + + /* give back unused storage */ + _mms_dec_info = (*m_realloc_os_fun) (_mms_dec_info,req_size); + fop_info = (FDIR_REQ_INFO *) _mms_dec_info; + + _mms_dec_done_ok (aCtx); + + MLOG_PAUSEDEC (NULL); + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_fdir_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the file directory response. */ +/************************************************************************/ + +ST_RET mp_fdir_resp (MMSREQ_IND *indptr, FDIR_RESP_INFO *info_ptr) + { + return (_mms_resp_send (MMSOP_FILE_DIR,indptr, + M_CAST_MK_FUN (_ms_mk_fdir_resp), + (ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_fdir_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the file directory response. */ +/************************************************************************/ + +ST_RET mpl_fdir_resp (ST_UINT32 invoke_id, FDIR_RESP_INFO *info_ptr) + { + return (_mms_resp_fin (MMSOP_FILE_DIR,invoke_id, + M_CAST_MK_FUN (_ms_mk_fdir_resp), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_fdir_resp */ +/* ENCODE a file directory RESPONSE: */ +/************************************************************************/ + +ST_VOID _ms_mk_fdir_resp (ASN1_ENC_CTXT *aCtx, FDIR_RESP_INFO *info_ptr) + { +FDIR_DIR_ENT *ent_ptr; +ST_INT i; +ST_INT tab_size; +FDIR_DIR_ENT **dir_ent_tab; +FDIR_DIR_ENT *dir_ptr; +ST_INT dir_ent_idx; + +/* allocate an array of fdir_dir_ent pointers */ + + tab_size = info_ptr->num_dir_ent * sizeof (FDIR_DIR_ENT *); + tab_size++; /* make sure not 0 */ + + dir_ent_tab = (FDIR_DIR_ENT **)chk_calloc (1, tab_size); + + dir_ptr = (FDIR_DIR_ENT *)(info_ptr + 1); + + for (i=0; i < info_ptr->num_dir_ent; ++i) + { + dir_ent_tab[ i ] = dir_ptr; + dir_ptr = (FDIR_DIR_ENT *) + ((FILE_NAME *) (dir_ptr + 1) + dir_ptr -> num_of_fname); + } + + asn1r_strt_constr (aCtx); /* start the fdir seq constr */ + + if (info_ptr->more_follows) + { /* NOT the default value - */ + asn1r_wr_bool (aCtx, info_ptr->more_follows); /* encode more follows */ + asn1r_fin_prim (aCtx, 1,CTX); /* finish the primitive */ + } + + asn1r_strt_constr (aCtx); /* start list of dir ent constr */ + asn1r_strt_constr (aCtx); /* start seq of dir ent constr */ + + if (info_ptr->num_dir_ent > 0) /* if data is to be included - */ + { + /* point to last dir entry */ + dir_ent_idx = info_ptr->num_dir_ent - 1; + ent_ptr = dir_ent_tab[ dir_ent_idx ]; + for (i = 0; i < info_ptr->num_dir_ent; ++i) + { + asn1r_strt_constr (aCtx); /* start the dir entry constr */ + + asn1r_strt_constr (aCtx); /* start the file attr constr */ + if (ent_ptr->mtimpres) + { + asn1r_wr_time (aCtx, ent_ptr->mtime); /* write the last modified time */ + asn1r_fin_prim (aCtx, 1,CTX); + } + asn1r_wr_u32 (aCtx, ent_ptr->fsize); /* write the file size */ + asn1r_fin_prim (aCtx, 0,CTX); + asn1r_fin_constr (aCtx, 1,CTX,DEF); /* close file attr constructor */ + + /* write the file name */ + asn1r_strt_constr (aCtx); + _ms_wr_mms_fname (aCtx, (FILE_NAME *)(ent_ptr + 1), + ent_ptr->num_of_fname); + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* context specific tag 0 */ + + asn1r_fin_constr (aCtx, SEQ_CODE,UNI,DEF); /* close dir entry constructor */ + dir_ent_idx--; + ent_ptr = dir_ent_tab[ dir_ent_idx ]; + } + } + + asn1r_fin_constr (aCtx, SEQ_CODE,UNI,DEF); /* finish seq of dir ents cstr */ + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* finish list of dir ents cstr */ + +/* write the context specific explicit tag for this opcode. */ + + asn1r_fin_constr (aCtx, MMSOP_FILE_DIR,CTX,DEF); /* tag = opcode, ctx constr */ + chk_free (dir_ent_tab); + } diff --git a/mmslib/mmsle/rs_fopen.c b/mmslib/mmsle/rs_fopen.c new file mode 100644 index 0000000..32bfd0c --- /dev/null +++ b/mmslib/mmsle/rs_fopen.c @@ -0,0 +1,190 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_fopen.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of the file open. */ +/* It decodes the file open request (indication) and encodes */ +/* the file open response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 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/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pfil.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static FOPEN_REQ_INFO *fop_info; + +static ST_INT max_fnames; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID fopen_fname_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID fopen_fname_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID fopen_get_init_pos (ASN1_DEC_CTXT *aCtx); + +/************************************************************************/ +/* mms_file_open_req */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_file_open_req (ASN1_DEC_CTXT *aCtx) + { +ST_INT req_size; + + MLOG_CDEC0 ("File Open Request"); + +#if defined(FIXED_DECBUF) + max_fnames = m_sv_max_file_names; + req_size = mmsl_dec_info_size; +#else + max_fnames = (_mmsdec_msglen/2); + if (m_sv_max_file_names && (max_fnames > m_sv_max_file_names)) + max_fnames = m_sv_max_file_names; + req_size = sizeof (FOPEN_REQ_INFO) + (max_fnames * (sizeof (FILE_NAME))); +#endif + +/* get storage for request information */ + fop_info = (FOPEN_REQ_INFO *) _m_get_dec_buf (aCtx, req_size); + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,0,fopen_fname_cstr); + } + +/************************************************************************/ +/* fopen_fname_cstr */ +/* file open request is being decoded: filename cstr was encountered. */ +/************************************************************************/ + +static ST_VOID fopen_fname_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("fopen_fname_cstr"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = fopen_fname_cstr_done; + _ms_get_mms_fname (aCtx, (FILE_NAME *)(fop_info + 1), max_fnames, + &fop_info->num_of_fname); + } + +/************************************************************************/ +/* fopen_fname_cstr_done */ +/* file open request is being decoded: file name list constructor done */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID fopen_fname_cstr_done (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, CTX, 1, fopen_get_init_pos); + } + +/************************************************************************/ +/* fopen_get_init_pos */ +/* file open request is being decoded: initial position was encountered */ +/* this must be all. */ +/************************************************************************/ + +static ST_VOID fopen_get_init_pos (ASN1_DEC_CTXT *aCtx) + { +ST_INT req_size; + + MLOG_CDEC0 ("fopen_get_init_pos"); + + if (asn1r_get_u32 (aCtx, &(fop_info->init_pos))) /* read the initial position */ + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + /* find actual size for request info */ + req_size = sizeof (FOPEN_REQ_INFO) + + (sizeof (FILE_NAME) * fop_info->num_of_fname); + + /* give back unused storage */ + _mms_dec_info = (*m_realloc_os_fun) (_mms_dec_info,req_size); + fop_info = (FOPEN_REQ_INFO *) _mms_dec_info; + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_fopen_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the file open response. */ +/************************************************************************/ + +ST_RET mp_fopen_resp (MMSREQ_IND *indptr, FOPEN_RESP_INFO *info_ptr) + { + return (_mms_resp_send (MMSOP_FILE_OPEN,indptr, + M_CAST_MK_FUN (_ms_mk_fopen_resp), + (ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_fopen_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the file open response. */ +/************************************************************************/ + +ST_RET mpl_fopen_resp (ST_UINT32 invoke_id, FOPEN_RESP_INFO *info_ptr) + { + return (_mms_resp_fin (MMSOP_FILE_OPEN,invoke_id, + M_CAST_MK_FUN (_ms_mk_fopen_resp), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_fopen_resp */ +/* ENCODE a file open RESPONSE: */ +/************************************************************************/ + +ST_VOID _ms_mk_fopen_resp (ASN1_ENC_CTXT *aCtx, FOPEN_RESP_INFO *info_ptr) + { + asn1r_strt_constr (aCtx); /* start the file attr constr */ + if (info_ptr->ent.mtimpres) /* if data is to be included - */ + { + asn1r_wr_time (aCtx, info_ptr->ent.mtime); /* write the last modified time */ + asn1r_fin_prim (aCtx, 1,CTX); + } + + asn1r_wr_u32 (aCtx, info_ptr->ent.fsize); /* write the file size */ + asn1r_fin_prim (aCtx, 0,CTX); + + asn1r_fin_constr (aCtx, 1,CTX,DEF); /* close file attr constructor */ + + asn1r_wr_i32 (aCtx, info_ptr->frsmid); /* write the frsmid */ + asn1r_fin_prim (aCtx, 0,CTX); + + /* write the context specific tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_FILE_OPEN,CTX,DEF); + } diff --git a/mmslib/mmsle/rs_fread.c b/mmslib/mmsle/rs_fread.c new file mode 100644 index 0000000..a812cbf --- /dev/null +++ b/mmslib/mmsle/rs_fread.c @@ -0,0 +1,122 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_fread.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of the file read. */ +/* It decodes the file read request (indication) and encodes */ +/* the file read response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 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++ */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pfil.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static FREAD_REQ_INFO *fop_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + + +/************************************************************************/ +/************************************************************************/ +/* mms_file_read_req */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_file_read_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("File Read Request"); + +/* get storage for request information */ + fop_info = (FREAD_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (FREAD_REQ_INFO)); + if (asn1r_get_i32 (aCtx, &(fop_info->frsmid))) /* read the frsmid */ + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_fread_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the file read response. */ +/************************************************************************/ + +ST_RET mp_fread_resp (MMSREQ_IND *indptr, FREAD_RESP_INFO *info_ptr) + { + return (_mms_resp_send (MMSOP_FILE_READ,indptr, + M_CAST_MK_FUN (_ms_mk_fread_resp), + (ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_fread_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the file read response. */ +/************************************************************************/ + +ST_RET mpl_fread_resp (ST_UINT32 invoke_id, FREAD_RESP_INFO *info_ptr) + { + return (_mms_resp_fin (MMSOP_FILE_READ,invoke_id, + M_CAST_MK_FUN (_ms_mk_fread_resp), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_fread_resp */ +/* ENCODE a file read RESPONSE: */ +/************************************************************************/ + +ST_VOID _ms_mk_fread_resp (ASN1_ENC_CTXT *aCtx, FREAD_RESP_INFO *info_ptr) + { + + if (!info_ptr->more_follows) /* if data is to be included - */ + { /* different from the default */ + asn1r_wr_bool (aCtx, info_ptr->more_follows); /* write more follows indicator */ + asn1r_fin_prim (aCtx, 1,CTX); + } + + /* write the file data octets */ + asn1r_wr_octstr (aCtx, info_ptr->filedata, info_ptr->fd_len); + asn1r_fin_prim (aCtx, 0,CTX); + + /* write the context specific tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_FILE_READ,CTX,DEF); + } diff --git a/mmslib/mmsle/rs_frena.c b/mmslib/mmsle/rs_frena.c new file mode 100644 index 0000000..1787b47 --- /dev/null +++ b/mmslib/mmsle/rs_frena.c @@ -0,0 +1,172 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_frena.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of the file rename. */ +/* It decodes the file rename request (indication) and encodes */ +/* the file rename response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 05 Remove "thisFileName" */ +/* 12/20/01 JRB 04 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 03 Added SD_CONST modifiers */ +/* 03/23/99 MDE 02 Changes to decode buffer allocation scheme */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pfil.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static FRENAME_REQ_INFO *fop_info; + +static ST_INT max_fnames; +static FILE_NAME *fname_idx; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID frename_new_fname_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID frename_new_fname_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID frename_cur_fname_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID frename_cur_fname_cstr (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_file_rename_req */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_file_rename_req (ASN1_DEC_CTXT *aCtx) + { +ST_INT req_size; + + MLOG_CDEC0 ("File Rename Request"); + +#if defined(FIXED_DECBUF) + max_fnames = m_sv_max_file_names; + req_size = mmsl_dec_info_size; +#else + max_fnames = (_mmsdec_msglen/2); + if (m_sv_max_file_names && (max_fnames > m_sv_max_file_names)) + max_fnames = m_sv_max_file_names; + req_size = sizeof (FRENAME_REQ_INFO) + (max_fnames * sizeof (FILE_NAME)); +#endif + +/* get storage for request information */ + fop_info = (FRENAME_REQ_INFO *) _m_get_dec_buf (aCtx, req_size); + fname_idx = (FILE_NAME *)(fop_info + 1); + ASN1R_TAG_ADD (aCtx, CTX|CONSTR, 0, frename_cur_fname_cstr); + } + +/************************************************************************/ +/* frename_cur_fname_cstr */ +/* request domain download request is being decoded: filename cstr was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID frename_cur_fname_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("frename_cur_fname_cstr"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = frename_cur_fname_cstr_done; + _ms_get_mms_fname (aCtx, fname_idx, max_fnames, &fop_info->num_of_cur_fname); + } + +/************************************************************************/ +/* frename_cur_fname_cstr_done */ +/* file rename request is being decoded: file name list constructor */ +/* done was encountered. */ +/************************************************************************/ + +static ST_VOID frename_cur_fname_cstr_done (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, CTX|CONSTR, 1, frename_new_fname_cstr); + } + +/************************************************************************/ +/* frename_new_fname_cstr */ +/* request domain download request is being decoded: filename cstr was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID frename_new_fname_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("frename_new_fname_cstr"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = frename_new_fname_cstr_done; + fname_idx += fop_info -> num_of_cur_fname; + _ms_get_mms_fname (aCtx, fname_idx, max_fnames, &fop_info->num_of_new_fname); + } + +/************************************************************************/ +/* frename_new_fname_cstr_done */ +/* request domain download request is being decoded: file name list */ +/* constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID frename_new_fname_cstr_done (ASN1_DEC_CTXT *aCtx) + { +ST_INT req_size; + + /* find actual size for request info */ + req_size = sizeof (FRENAME_REQ_INFO) + + (sizeof (FILE_NAME) * fop_info->num_of_cur_fname) + + (sizeof (FILE_NAME) * fop_info->num_of_new_fname); + + /* give back unused storage */ + _mms_dec_info = (*m_realloc_os_fun) (_mms_dec_info,req_size); + fop_info = (FRENAME_REQ_INFO *) _mms_dec_info; + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_frename_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the file rename response. */ +/************************************************************************/ + +ST_RET mp_frename_resp (MMSREQ_IND *indptr) + { + return (_mms_send_null_resp (indptr,MMSOP_FILE_RENAME)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_frename_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the file rename response. */ +/************************************************************************/ + +ST_RET mpl_frename_resp (ST_UINT32 invoke_id) + { + return (_mms_fin_null_resp (invoke_id,MMSOP_FILE_RENAME)); + } +#endif diff --git a/mmslib/mmsle/rs_getae.c b/mmslib/mmsle/rs_getae.c new file mode 100644 index 0000000..f71c38f --- /dev/null +++ b/mmslib/mmsle/rs_getae.c @@ -0,0 +1,378 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_getaes.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of get alarm */ +/* enrollment summary. It decodes the get alarm enrollment */ +/* summary request (indication) & encodes the get alarm */ +/* enrollment summary response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/21/08 JRB 08 Use asn1r_wr_bool to write aes_ptr->not_lost.*/ +/* 03/11/04 GLB 07 Remove "thisFileName" */ +/* 12/20/01 JRB 06 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 05 Added SD_CONST modifiers */ +/* 03/23/99 MDE 04 Changes to decode buffer allocation scheme */ +/* 06/15/98 MDE 03 Changes to allow compile under C++ */ +/* 07/03/97 MDE 02 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pevn.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static GETAES_REQ_INFO *req_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID getaes_get_enrolls_only (ASN1_DEC_CTXT *aCtx); +static ST_VOID getaes_get_act_alarms_only (ASN1_DEC_CTXT *aCtx); +static ST_VOID getaes_get_ack_filter (ASN1_DEC_CTXT *aCtx); +static ST_VOID getaes_sev_filter_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID getaes_get_most_sev (ASN1_DEC_CTXT *aCtx); +static ST_VOID getaes_get_least_sev (ASN1_DEC_CTXT *aCtx); +static ST_VOID getaes_sev_filter_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID getaes_ca_name_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID getaes_ca_name_done (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_getaes_req */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_getaes_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Get Alarm Enrollment Summary Request"); + + +/* get storage for request information */ + req_info = (GETAES_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (GETAES_REQ_INFO)); + req_info->enroll_only = SD_TRUE; /* set default values */ + req_info->act_alarms_only = SD_TRUE; + +/* Done by calloc */ +/* req_info->ack_filter = 0; */ +/* req_info->most_sev_filter = 0; */ + req_info->least_sev_filter = 127; + + ASN1R_TAG_ADD (aCtx, CTX, 0, getaes_get_enrolls_only); + ASN1R_TAG_ADD (aCtx, CTX, 1, getaes_get_act_alarms_only); + ASN1R_TAG_ADD (aCtx, CTX, 2, getaes_get_ack_filter); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 3, getaes_sev_filter_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 5, getaes_ca_name_cstr); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* getaes_get_enrolls_only */ +/* get alarm enrollment summary REQUEST (indication) is being decoded: */ +/* enrollments only was encountered. */ +/************************************************************************/ + +static ST_VOID getaes_get_enrolls_only (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getaes_get_enrolls_only"); + + if (asn1r_get_bool (aCtx, &req_info->enroll_only)) /* get enrollments only */ + { + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + + ASN1R_TAG_ADD (aCtx, CTX, 1, getaes_get_act_alarms_only); + ASN1R_TAG_ADD (aCtx, CTX, 2, getaes_get_ack_filter); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 3, getaes_sev_filter_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 5, getaes_ca_name_cstr); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* getaes_get_act_alarms_only */ +/* get alarm enrollment summary REQUEST is being decoded: active */ +/* enrollments only was encountered. */ +/************************************************************************/ + +static ST_VOID getaes_get_act_alarms_only (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getaes_get_act_alarms_only"); + + if (asn1r_get_bool (aCtx, &req_info->act_alarms_only)) /* active enrollments */ + { + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + + ASN1R_TAG_ADD (aCtx, CTX, 2, getaes_get_ack_filter); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 3, getaes_sev_filter_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 5, getaes_ca_name_cstr); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* getaes_get_ack_filter */ +/* get alarm enrollment summary REQUEST is being decoded: ack filter */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID getaes_get_ack_filter (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getaes_get_ack_filter"); + + if (asn1r_get_i16 (aCtx, &req_info->ack_filter)) /* get ack filter */ + { + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + else if ((req_info->ack_filter < 0) || (req_info->ack_filter > 2)) + { + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 3, getaes_sev_filter_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 5, getaes_ca_name_cstr); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* getaes_sev_filter_cstr */ +/* get alarm enrollment summary REQUEST is being decoded: severity */ +/* filter constructor was encountered. */ +/************************************************************************/ + +static ST_VOID getaes_sev_filter_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getaes_sev_filter_cstr"); + + ASN1R_TAG_ADD (aCtx, CTX, 0, getaes_get_most_sev); + ASN1R_TAG_ADD (aCtx, CTX, 1, getaes_get_least_sev); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = getaes_sev_filter_cstr_done; + } + +/************************************************************************/ +/* getaes_get_most_sev */ +/* get alarm enrollment summary REQUEST is being decoded: most severe */ +/* filter was encountered. */ +/************************************************************************/ + +static ST_VOID getaes_get_most_sev (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getaes_get_most_sev"); + + if (asn1r_get_u8 (aCtx, &req_info->most_sev_filter)) /* most severe filter */ + { + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + + ASN1R_TAG_ADD (aCtx, CTX, 1, getaes_get_least_sev); + } + +/************************************************************************/ +/* getaes_get_least_sev */ +/* get alarm enrollment summary REQUEST is being decoded: least severe */ +/* filter was encountered. */ +/************************************************************************/ + +static ST_VOID getaes_get_least_sev (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getaes_get_least_sev"); + + if (asn1r_get_u8 (aCtx, &req_info->least_sev_filter)) /* least severe filter */ + { + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + } + +/************************************************************************/ +/* getaes_sev_filter_cstr_done */ +/* get alarm enrollment summary REQUEST is being decoded: severity */ +/* filter constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID getaes_sev_filter_cstr_done (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 5, getaes_ca_name_cstr); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* getaes_ca_name_cstr */ +/* get alarm enrollment summary REQUEST is being decoded: continue */ +/* after name constructor was encountered. */ +/************************************************************************/ + +static ST_VOID getaes_ca_name_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getaes_ca_name_cstr"); + + req_info->ca_name_pres = SD_TRUE; /* continue after name present */ + + _ms_get_mms_objname (aCtx, &req_info->ca_name, getaes_ca_name_done); + } + +/************************************************************************/ +/* getaes_ca_name_done */ +/* get alarm enrollment summary RESPONSE (confirm) is being decoded: */ +/* continue after name has been obtained. */ +/************************************************************************/ + +static ST_VOID getaes_ca_name_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getaes_ca_name_done"); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_getaes_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the get alarm enrollment summary response */ +/************************************************************************/ + +ST_RET mp_getaes_resp (MMSREQ_IND *indptr, GETAES_RESP_INFO *info_ptr) + { + return (_mms_resp_send (MMSOP_GET_ALARM_ESUM,indptr, + M_CAST_MK_FUN (_ms_mk_getaes_resp), + (ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_getaes_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the get alarm enrollment summary response. */ +/************************************************************************/ + +ST_RET mpl_getaes_resp (ST_UINT32 invoke_id, GETAES_RESP_INFO *info_ptr) + { + return (_mms_resp_fin (MMSOP_GET_ALARM_ESUM,invoke_id, + M_CAST_MK_FUN (_ms_mk_getaes_resp), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_getaes_resp */ +/* ENCODE a get alarm enrollment summary RESPONSE: */ +/************************************************************************/ + +ST_VOID _ms_mk_getaes_resp (ASN1_ENC_CTXT *aCtx, GETAES_RESP_INFO *info) + { +ST_INT i; +ALARM_ENROLL_SUMMARY *aes_ptr; + + if (info->more_follows) + { /* not the default */ + asn1r_wr_bool (aCtx, info->more_follows); /* write more follows indicator */ + asn1r_fin_prim (aCtx, 1, CTX); /* ctx tag 1 */ + } + + asn1r_strt_constr (aCtx); /* start ctx tag 0 constructor */ + aes_ptr = (ALARM_ENROLL_SUMMARY *) (info + 1); + /* point to last alarm enrollment summary */ + aes_ptr += (info->num_of_alarm_esum-1); + for (i = 0; i < info->num_of_alarm_esum; i++) + { + asn1r_strt_constr (aCtx); /* start universal seq cstr */ + if (aes_ptr->iack_time_pres) + { /* write idle acknowlegment time*/ + asn1r_strt_constr (aCtx); /* start ctx tag 12 constructor */ + _ms_wr_mms_evtime (aCtx, &aes_ptr->iack_time); + asn1r_fin_constr (aCtx, 12,CTX,DEF); /* finish ctx tag 12 constructor */ + } + if (aes_ptr->tti_time_pres) + { /* write tran to idle time */ + asn1r_strt_constr (aCtx); /* start ctx tag 11 constructor */ + _ms_wr_mms_evtime (aCtx, &aes_ptr->tti_time); + asn1r_fin_constr (aCtx, 11,CTX,DEF); /* finish ctx tag 11 constructor */ + } + if (aes_ptr->aack_time_pres) + { /* write active acknowledge time*/ + asn1r_strt_constr (aCtx); /* start ctx tag 10 constructor */ + _ms_wr_mms_evtime (aCtx, &aes_ptr->aack_time); + asn1r_fin_constr (aCtx, 10,CTX,DEF); /* finish ctx tag 10 constructor */ + } + if (aes_ptr->tta_time_pres) + { /* write tran to active time */ + asn1r_strt_constr (aCtx); /* start ctx tag 9 constructor */ + _ms_wr_mms_evtime (aCtx, &aes_ptr->tta_time); + asn1r_fin_constr (aCtx, 9,CTX,DEF); /* finish ctx tag 9 constructor */ + } + if (aes_ptr->ee_state_pres) + { /* write event enroll state */ + asn1r_wr_i16 (aCtx, aes_ptr->ee_state); + asn1r_fin_prim (aCtx, 8, CTX); + } + asn1r_wr_i16 (aCtx, aes_ptr->alarm_ack_rule); + asn1r_fin_prim (aCtx, 7, CTX); + + if (aes_ptr->not_lost) + { /* not the default of SD_FALSE */ + asn1r_wr_bool (aCtx, aes_ptr->not_lost); /* write notification lost */ + asn1r_fin_prim (aCtx, 6, CTX); + } +#ifdef CS_SUPPORT + if (aes_ptr->addl_detail_pres) + { /* write additional detail */ + asn1r_strt_constr (aCtx); /* start ctx tag 5 constructor */ + asn1r_wr_delmnt (aCtx, aes_ptr->addl_detail,aes_ptr->addl_detail_len); + asn1r_fin_constr (aCtx, 5,CTX,DEF); /* finish ctx tag 5 constructor */ + } +#endif + asn1r_wr_i16 (aCtx, aes_ptr->cur_state); + asn1r_fin_prim (aCtx, 4, CTX); + + asn1r_wr_u8 (aCtx, aes_ptr->severity); + asn1r_fin_prim (aCtx, 3, CTX); + + if (aes_ptr->client_app_pres) + { + asn1r_strt_constr (aCtx); /* start ctx tag 2 constructor */ + asn1r_wr_delmnt (aCtx, aes_ptr->client_app,aes_ptr->client_app_len); + asn1r_fin_constr (aCtx, 2,CTX,DEF); /* finish ctx tag 2 constructor */ + } + asn1r_strt_constr (aCtx); /* start ctx tag 0 constructor */ + _ms_wr_mms_objname (aCtx, &aes_ptr->evenroll_name); + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* finish ctx tag 0 constructor */ + + asn1r_fin_constr (aCtx, SEQ_CODE,UNI,DEF); /* finish universal seq cstr */ + aes_ptr--; + } + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* ctx tag 0 constructor */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_GET_ALARM_ESUM,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsle/rs_getas.c b/mmslib/mmsle/rs_getas.c new file mode 100644 index 0000000..e234bd8 --- /dev/null +++ b/mmslib/mmsle/rs_getas.c @@ -0,0 +1,348 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_getas.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of get alarm */ +/* summary. It decodes the get alarm summary request (indication) */ +/* & encodes the get alarm summary response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 07 Remove "thisFileName" */ +/* 12/20/01 JRB 06 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 05 Added SD_CONST modifiers */ +/* 03/23/99 MDE 04 Changes to decode buffer allocation scheme */ +/* 06/15/98 MDE 03 Changes to allow compile under C++ */ +/* 07/03/97 MDE 02 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pevn.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static GETAS_REQ_INFO *req_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID getas_get_enrolls_only (ASN1_DEC_CTXT *aCtx); +static ST_VOID getas_get_act_alarms_only (ASN1_DEC_CTXT *aCtx); +static ST_VOID getas_get_ack_filter (ASN1_DEC_CTXT *aCtx); +static ST_VOID getas_sev_filter_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID getas_get_most_sev (ASN1_DEC_CTXT *aCtx); +static ST_VOID getas_get_least_sev (ASN1_DEC_CTXT *aCtx); +static ST_VOID getas_sev_filter_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID getas_ca_name_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID getas_ca_name_done (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_getas_req */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_getas_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Get Alarm Summary Request"); + + +/* get storage for request information */ + req_info = (GETAS_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (GETAS_REQ_INFO)); + req_info->enroll_only = SD_TRUE; /* set default values */ + req_info->act_alarms_only = SD_TRUE; + +/* Done by calloc */ +/* req_info->ack_filter = 0; */ +/* req_info->most_sev_filter = 0; */ + req_info->least_sev_filter = 127; + + ASN1R_TAG_ADD (aCtx, CTX, 0, getas_get_enrolls_only); + ASN1R_TAG_ADD (aCtx, CTX, 1, getas_get_act_alarms_only); + ASN1R_TAG_ADD (aCtx, CTX, 2, getas_get_ack_filter); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 3, getas_sev_filter_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 5, getas_ca_name_cstr); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* getas_get_enrolls_only */ +/* get alarm summary REQUEST (indication) is being decoded: */ +/* enrollments only was encountered. */ +/************************************************************************/ + +static ST_VOID getas_get_enrolls_only (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getas_get_enrolls_only"); + + if (asn1r_get_bool (aCtx, &req_info->enroll_only)) /* get enrollments only */ + { + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + + ASN1R_TAG_ADD (aCtx, CTX, 1, getas_get_act_alarms_only); + ASN1R_TAG_ADD (aCtx, CTX, 2, getas_get_ack_filter); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 3, getas_sev_filter_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 5, getas_ca_name_cstr); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* getas_get_act_alarms_only */ +/* get alarm summary REQUEST is being decoded: active enrollments only */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID getas_get_act_alarms_only (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getas_get_act_alarms_only"); + + if (asn1r_get_bool (aCtx, &req_info->act_alarms_only)) /* active enrollments */ + { + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + + ASN1R_TAG_ADD (aCtx, CTX, 2, getas_get_ack_filter); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 3, getas_sev_filter_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 5, getas_ca_name_cstr); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* getas_get_ack_filter */ +/* get alarm summary REQUEST is being decoded: ack filter was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID getas_get_ack_filter (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getas_get_ack_filter"); + + if (asn1r_get_i16 (aCtx, &req_info->ack_filter)) /* get ack filter */ + { + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + else if ((req_info->ack_filter < 0) || (req_info->ack_filter > 2)) + { + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 3, getas_sev_filter_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 5, getas_ca_name_cstr); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* getas_sev_filter_cstr */ +/* get alarm summary REQUEST is being decoded: severity filter cstr was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID getas_sev_filter_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getas_sev_filter_cstr"); + + ASN1R_TAG_ADD (aCtx, CTX, 0, getas_get_most_sev); + ASN1R_TAG_ADD (aCtx, CTX, 1, getas_get_least_sev); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = getas_sev_filter_cstr_done; + } + +/************************************************************************/ +/* getas_get_most_sev */ +/* get alarm summary REQUEST is being decoded: most severe filter was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID getas_get_most_sev (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getas_get_most_sev"); + + if (asn1r_get_u8 (aCtx, &req_info->most_sev_filter)) /* most severe filter */ + { + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + + ASN1R_TAG_ADD (aCtx, CTX, 1, getas_get_least_sev); + } + +/************************************************************************/ +/* getas_get_least_sev */ +/* get alarm summary REQUEST is being decoded: least severe filter was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID getas_get_least_sev (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getas_get_least_sev"); + + if (asn1r_get_u8 (aCtx, &req_info->least_sev_filter)) /* least severe filter */ + { + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + } + +/************************************************************************/ +/* getas_sev_filter_cstr_done */ +/* get alarm summary REQUEST is being decoded: severity filter cstr */ +/* done was encountered. */ +/************************************************************************/ + +static ST_VOID getas_sev_filter_cstr_done (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 5, getas_ca_name_cstr); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* getas_ca_name_cstr */ +/* get alarm summary REQUEST is being decoded: continue after name */ +/* constructor was encountered. */ +/************************************************************************/ + +static ST_VOID getas_ca_name_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getas_ca_name_cstr"); + + req_info->ca_pres = SD_TRUE; + _ms_get_mms_objname (aCtx, &req_info->ca_name, getas_ca_name_done); + } + +/************************************************************************/ +/* getas_ca_name_done */ +/* get alarm summary RESPONSE (confirm) is being decoded: */ +/* continue after name has been obtained. */ +/************************************************************************/ + +static ST_VOID getas_ca_name_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("getas_ca_name_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = NULL; /* clear cstr done functions */ + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_getas_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the get alarm summary response. */ +/************************************************************************/ + +ST_RET mp_getas_resp (MMSREQ_IND *indptr, GETAS_RESP_INFO *info_ptr) + { + return (_mms_resp_send (MMSOP_GET_ALARM_SUM,indptr, + M_CAST_MK_FUN (_ms_mk_getas_resp), + (ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_getas_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the get alarm summary response. */ +/************************************************************************/ + +ST_RET mpl_getas_resp (ST_UINT32 invoke_id, GETAS_RESP_INFO *info_ptr) + { + return (_mms_resp_fin (MMSOP_GET_ALARM_SUM,invoke_id, + M_CAST_MK_FUN (_ms_mk_getas_resp), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_getas_resp */ +/* ENCODE a get alarm summary RESPONSE: */ +/************************************************************************/ + +ST_VOID _ms_mk_getas_resp (ASN1_ENC_CTXT *aCtx, GETAS_RESP_INFO *info) + { +ST_INT i; +ALARM_SUMMARY *as_ptr; + + if (info->more_follows) + { /* not the default */ + asn1r_wr_bool (aCtx, info->more_follows); /* write more follows indicator */ + asn1r_fin_prim (aCtx, 1, CTX); /* ctx tag 1 */ + } + + asn1r_strt_constr (aCtx); /* start ctx tag 0 constructor */ + as_ptr = (ALARM_SUMMARY *) (info + 1); + as_ptr += (info->num_of_alarm_sum-1); /* point to last alarm summary */ + for (i = 0; i < info->num_of_alarm_sum; i++) + { + asn1r_strt_constr (aCtx); /* start universal seq cstr */ + if (as_ptr->tti_time_pres) + { /* write tran to idle time */ + asn1r_strt_constr (aCtx); /* start ctx tag 6 constructor */ + _ms_wr_mms_evtime (aCtx, &as_ptr->tti_time); + asn1r_fin_constr (aCtx, 6,CTX,DEF); /* finish ctx tag 6 constructor */ + } + if (as_ptr->tta_time_pres) + { /* write tran to active time */ + asn1r_strt_constr (aCtx); /* start ctx tag 5 constructor */ + _ms_wr_mms_evtime (aCtx, &as_ptr->tta_time); + asn1r_fin_constr (aCtx, 5,CTX,DEF); /* finish ctx tag 5 constructor */ + } +#ifdef CS_SUPPORT + if (as_ptr->addl_detail_pres) + { /* write additional detail */ + asn1r_strt_constr (aCtx); /* start ctx tag 4 constructor */ + asn1r_wr_delmnt (aCtx, as_ptr->addl_detail,as_ptr->addl_detail_len); + asn1r_fin_constr (aCtx, 4,CTX,DEF); /* finish ctx tag 4 constructor */ + } +#endif + asn1r_wr_i16 (aCtx, as_ptr->unack_state); + asn1r_fin_prim (aCtx, 3, CTX); + + asn1r_wr_i16 (aCtx, as_ptr->cur_state); + asn1r_fin_prim (aCtx, 2, CTX); + + asn1r_wr_u8 (aCtx, as_ptr->severity); + asn1r_fin_prim (aCtx, 1, CTX); + + asn1r_strt_constr (aCtx); /* start ctx tag 0 constructor */ + _ms_wr_mms_objname (aCtx, &as_ptr->evcon_name); + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* finish ctx tag 0 constructor */ + + asn1r_fin_constr (aCtx, SEQ_CODE,UNI,DEF); /* finish universal seq cstr */ + as_ptr--; + } + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* ctx tag 0 constructor */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_GET_ALARM_SUM,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsle/rs_getsc.c b/mmslib/mmsle/rs_getsc.c new file mode 100644 index 0000000..4fa082c --- /dev/null +++ b/mmslib/mmsle/rs_getsc.c @@ -0,0 +1,135 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_getscat.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of get scattered */ +/* access attributes. It decodes the get scattered access */ +/* attributes request (indication) & encodes the get scattered */ +/* access attributes response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 07 Remove "thisFileName" */ +/* 12/20/01 JRB 06 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 05 Added SD_CONST modifiers */ +/* 03/23/99 MDE 04 Changes to decode buffer allocation scheme */ +/* 06/15/98 MDE 03 Changes to allow compile under C++ */ +/* 07/03/97 MDE 02 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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 GETSCAT_REQ_INFO *req_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +/************************************************************************/ +/* static functions with multiple references */ + +static ST_VOID getscat_name_done (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_get_scat_req */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_get_scat_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Get Scattered Access Attributes Request"); + +/* get storage for request information */ + req_info = (GETSCAT_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (GETSCAT_REQ_INFO)); + _ms_get_mms_objname (aCtx, &req_info->sa_name, getscat_name_done); + } + +/************************************************************************/ +/* getscat_name_done */ +/* decoding get scattered access attributes request: scattered access */ +/* name has been obtained. */ +/************************************************************************/ + +static ST_VOID getscat_name_done (ASN1_DEC_CTXT *aCtx) + { + asn1r_set_all_cstr_done (aCtx); /* clear cstr done functions */ + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_getscat_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE & send the get scattered access attributes */ +/* response. */ +/************************************************************************/ + +ST_RET mp_getscat_resp (MMSREQ_IND *indptr, GETSCAT_RESP_INFO *info_ptr) + { + return (_mms_resp_send (MMSOP_GET_SCAT,indptr, + M_CAST_MK_FUN (_ms_mk_getscat_resp), + (ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_getscat_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the get scattered access attributes response. */ +/************************************************************************/ + +ST_RET mpl_getscat_resp (ST_UINT32 invoke_id, GETSCAT_RESP_INFO *info_ptr) + { + return (_mms_resp_fin (MMSOP_GET_SCAT,invoke_id, + M_CAST_MK_FUN (_ms_mk_getscat_resp), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_getscat_resp */ +/* Construct a get scattered access attributes response. */ +/************************************************************************/ + +ST_VOID _ms_mk_getscat_resp (ASN1_ENC_CTXT *aCtx, GETSCAT_RESP_INFO *info) + { + asn1r_strt_constr (aCtx); /* start context tag 1 cstr */ + _ms_wr_va_scat_access (aCtx, &info->sa_descr); /* write scattered access descr */ + asn1r_fin_constr (aCtx, 1, CTX, DEF); /* finish context tag 1 cstr */ + + asn1r_wr_bool (aCtx, info->mms_deletable); /* write mms deletable flag */ + asn1r_fin_prim (aCtx, 0,CTX); /* context tag 0 */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_GET_SCAT,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsle/rs_initd.c b/mmslib/mmsle/rs_initd.c new file mode 100644 index 0000000..f239c2f --- /dev/null +++ b/mmslib/mmsle/rs_initd.c @@ -0,0 +1,240 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_initdown.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of initiate download */ +/* sequence. It decodes the initiate download sequence request */ +/* (indication) & encodes the initiate download sequence response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* _ms_mk_initdown_resp:added ST_VOID *dummyInfo*/ +/* 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/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pdom.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static INITDOWN_REQ_INFO *req_info; + +static ST_CHAR **cap_ptr; +static ST_INT max_capabilities; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID initdown_get_sharable (ASN1_DEC_CTXT *aCtx); +static ST_VOID initdown_get_cap (ASN1_DEC_CTXT *aCtx); +static ST_VOID initdown_cap_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID initdown_cap_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID initdown_get_dname (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_init_download_req */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_init_download_req (ASN1_DEC_CTXT *aCtx) + { +ST_INT req_size; + + MLOG_CDEC0 ("Initiate Download Sequence Request"); + +#if defined(FIXED_DECBUF) + max_capabilities = m_sv_max_initdnld_cap; + req_size = mmsl_dec_info_size; +#else + max_capabilities = (_mmsdec_msglen/2); + if (m_sv_max_initdnld_cap && (max_capabilities > m_sv_max_initdnld_cap)) + max_capabilities = m_sv_max_initdnld_cap; + req_size = sizeof (INITDOWN_REQ_INFO) + (max_capabilities * sizeof (ST_CHAR *)); +#endif + +/* get storage for request information */ + req_info = (INITDOWN_REQ_INFO *) _m_get_dec_buf (aCtx, req_size); + cap_ptr = (ST_CHAR **) (req_info + 1); + aCtx->asn1r_err_fun = _mms_dec_buf_free; + ASN1R_TAG_ADD (aCtx, CTX, 0,initdown_get_dname); + } + +/************************************************************************/ +/* initdown_get_dname */ +/* initiate download sequence request is being decoded: domain name */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID initdown_get_dname (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("initdown_get_dname"); + + if (asn1r_get_identifier (aCtx, req_info->dname)) /* read the domain name */ + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1, initdown_cap_cstr); + } + +/************************************************************************/ +/* initdown_cap_cstr */ +/* initiate download sequence request is being decoded: capability */ +/* list constructor was encountered. */ +/************************************************************************/ + +static ST_VOID initdown_cap_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("initdown_cap_cstr"); + + ASN1R_TAG_ADD (aCtx, UNI,VISTR_CODE,initdown_get_cap); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = initdown_cap_cstr_done; + } + +/************************************************************************/ +/* initdown_get_cap */ +/* initiate download sequence request is being decoded: capability */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID initdown_get_cap (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("initdown_get_cap"); + + req_info->num_of_capab++; /* increment # of capabilities */ + if (req_info->num_of_capab > max_capabilities) + { + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + + /* copy capability back onto itself shifted by one character */ + *cap_ptr = (ST_CHAR *) aCtx->asn1r_field_ptr - 1; + if (asn1r_get_vstr (aCtx, *cap_ptr)) + { /* capability is too ST_INT32 */ + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + cap_ptr++; /* point to where next will go */ + + ASN1R_TAG_ADD (aCtx, UNI,VISTR_CODE,initdown_get_cap); + } + +/************************************************************************/ +/* initdown_cap_cstr_done */ +/* initiate download sequence request is being decoded: capability */ +/* list constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID initdown_cap_cstr_done (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, CTX,2,initdown_get_sharable); + } + +/************************************************************************/ +/* initdown_get_sharable */ +/* initiate download sequence request is being decoded: sharable */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID initdown_get_sharable (ASN1_DEC_CTXT *aCtx) + { +ST_INT req_size; + + MLOG_CDEC0 ("initdown_get_sharable"); + + /* read sharable from the received message */ + if (asn1r_get_bool (aCtx, &(req_info->sharable))) + { /* sharable is too ST_INT32 */ + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + + /* find actual size for request info */ + req_size = sizeof (INITDOWN_REQ_INFO) + + (sizeof (ST_CHAR *) * req_info->num_of_capab); + + /* give back unused storage */ + _mms_dec_info = (*m_realloc_os_fun) (_mms_dec_info,req_size); + req_info = (INITDOWN_REQ_INFO *) _mms_dec_info; + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_initdown_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the initiate download sequence response. */ +/************************************************************************/ + +ST_RET mp_initdown_resp (MMSREQ_IND *indptr) + { + if (mms_chan_info[_mmsdechan].version) /* IS */ + return (_mms_send_null_resp (indptr,MMSOP_INIT_DOWNLOAD)); + else /* DIS */ + return (_mms_resp_send (MMSOP_INIT_DOWNLOAD,indptr, + M_CAST_MK_FUN (_ms_mk_initdown_resp), + NULL)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_initdown_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the initiate download sequence response. */ +/************************************************************************/ + +ST_RET mpl_initdown_resp (ST_UINT32 invoke_id) + { + if (mmsl_version) /* IS */ + return (_mms_fin_null_resp (invoke_id,MMSOP_INIT_DOWNLOAD)); + else /* DIS */ + return (_mms_resp_fin (MMSOP_INIT_DOWNLOAD,invoke_id, + M_CAST_MK_FUN (_ms_mk_initdown_resp), + NULL)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_initdown_resp */ +/* ENCODE an initiate download RESPONSE: */ +/************************************************************************/ + +ST_VOID _ms_mk_initdown_resp (ASN1_ENC_CTXT *aCtx, ST_VOID *dummyInfo) + { +/* write the context specific explicit tag for this opcode. */ + + asn1r_fin_prim (aCtx, NULL_CODE,0); /* Write NULL field */ + asn1r_fin_constr (aCtx, MMSOP_INIT_DOWNLOAD,CTX,DEF); /* tag = opcode, ctx cstr */ + } diff --git a/mmslib/mmsle/rs_initu.c b/mmslib/mmsle/rs_initu.c new file mode 100644 index 0000000..9d21c7c --- /dev/null +++ b/mmslib/mmsle/rs_initu.c @@ -0,0 +1,132 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_initupl.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of initiate upload */ +/* sequence. It decodes the initiate upload sequence request */ +/* (indication) & encodes the initiate upload sequence response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 07 Remove "thisFileName" */ +/* 12/20/01 JRB 06 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 05 Added SD_CONST modifiers */ +/* 03/23/99 MDE 04 Changes to decode buffer allocation scheme */ +/* 06/15/98 MDE 03 Changes to allow compile under C++ */ +/* 07/03/97 MDE 02 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pdom.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static INITUPL_REQ_INFO *req_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + + +/************************************************************************/ +/************************************************************************/ +/* mms_init_upload_req */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_init_upload_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Initiate Upload Sequence Request"); + + +/* get storage for request information */ + req_info = (INITUPL_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (INITUPL_REQ_INFO)); + aCtx->asn1r_err_fun = _mms_dec_buf_free; + + if (asn1r_get_identifier (aCtx, req_info->dname)) /* read the domain name */ + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_initupl_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the initiate upload sequence response. */ +/************************************************************************/ + +ST_RET mp_initupl_resp (MMSREQ_IND *indptr, INITUPL_RESP_INFO *info_ptr) + { + return (_mms_resp_send (MMSOP_INIT_UPLOAD,indptr, + M_CAST_MK_FUN (_ms_mk_initupl_resp), + (ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_initupl_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the initiate upload sequence response. */ +/************************************************************************/ + +ST_RET mpl_initupl_resp (ST_UINT32 invoke_id, INITUPL_RESP_INFO *info_ptr) + { + return (_mms_resp_fin (MMSOP_INIT_UPLOAD,invoke_id, + M_CAST_MK_FUN (_ms_mk_initupl_resp), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_initupl_resp */ +/* ENCODE an initiate upload sequence RESPONSE: */ +/************************************************************************/ + +ST_VOID _ms_mk_initupl_resp (ASN1_ENC_CTXT *aCtx, INITUPL_RESP_INFO *info) + { +ST_INT i; +ST_CHAR **cap_ptr; + + asn1r_strt_constr (aCtx); /* start ctx tag 1 constructor */ + + cap_ptr = (ST_CHAR **) (info + 1); + cap_ptr += (info->num_of_capab - 1); /* point to last capability */ + for (i = 0; i < info->num_of_capab; i++) + { + asn1r_wr_vstr (aCtx, *cap_ptr); + asn1r_fin_prim (aCtx, VISTR_CODE, UNI); + cap_ptr--; + } + asn1r_fin_constr (aCtx, 1,CTX,DEF); /* ctx tag 1 constructor */ + + asn1r_wr_i32 (aCtx, info->ulsmid); /* write upload state machine id*/ + asn1r_fin_prim (aCtx, 0,CTX); /* ctx tag 0 */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_INIT_UPLOAD,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsle/rs_input.c b/mmslib/mmsle/rs_input.c new file mode 100644 index 0000000..8589b21 --- /dev/null +++ b/mmslib/mmsle/rs_input.c @@ -0,0 +1,251 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_input.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of the input */ +/* operation. It decodes the input request (indication) and */ +/* encodes the input response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 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/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pocs.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static INPUT_REQ_INFO *req_info; + +static ST_INT max_prompt_count; +static ST_CHAR **prompt_ptr; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID input_prompt_data_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID input_get_timeout (ASN1_DEC_CTXT *aCtx); +static ST_VOID input_get_prompt_data (ASN1_DEC_CTXT *aCtx); +static ST_VOID input_prompt_data_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID input_get_echo (ASN1_DEC_CTXT *aCtx); +static ST_VOID input_get_station_name (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_input_req */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_input_req (ASN1_DEC_CTXT *aCtx) + { +ST_INT req_size; + + MLOG_CDEC0 ("Input Request"); + +#if defined(FIXED_DECBUF) + max_prompt_count = m_sv_max_prompt_count; + req_size = mmsl_dec_info_size; +#else + max_prompt_count = _mmsdec_msglen / 2; /* find maximum size */ + if (m_sv_max_prompt_count && (max_prompt_count > m_sv_max_prompt_count)) + max_prompt_count = m_sv_max_prompt_count; + req_size = sizeof (INPUT_REQ_INFO) + (sizeof (ST_CHAR *) * max_prompt_count); +#endif + +/* get storage for request information */ + req_info = (INPUT_REQ_INFO *) _m_get_dec_buf (aCtx, req_size); + prompt_ptr = (ST_CHAR **) (req_info + 1); + req_info->echo = SD_TRUE; + req_info->timeout_pres = SD_FALSE; + req_info->prompt_count = 0; + + ASN1R_TAG_ADD (aCtx, CTX, 0, input_get_station_name); + } + +/************************************************************************/ +/* input_get_station_name */ +/* input request is being decoded: get the station name. */ +/************************************************************************/ + +static ST_VOID input_get_station_name (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("input_get_station_name"); + + if (asn1r_get_identifier (aCtx, req_info->station_name)) /* read station name */ + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + ASN1R_TAG_ADD (aCtx, CTX, 1, input_get_echo); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 2, input_prompt_data_cstr); + ASN1R_TAG_ADD (aCtx, CTX, 3, input_get_timeout); + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* input_get_echo */ +/* input request is being decoded: input echo was encountered. */ +/************************************************************************/ + +static ST_VOID input_get_echo (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("input_get_echo"); + + if (asn1r_get_bool (aCtx, &req_info->echo)) /* read input echo */ + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 2, input_prompt_data_cstr); + ASN1R_TAG_ADD (aCtx, CTX, 3, input_get_timeout); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* input_prompt_data_cstr */ +/* input request is being decoded: prompt data list constructor was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID input_prompt_data_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("input_prompt_data_cstr"); + + ASN1R_TAG_ADD (aCtx, UNI, VISTR_CODE, input_get_prompt_data); + req_info->prompt_pres = SD_TRUE; + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = input_prompt_data_cstr_done; + } + +/************************************************************************/ +/* input_get_prompt_data */ +/* input request is being decoded: prompt data was encountered. */ +/************************************************************************/ + +static ST_VOID input_get_prompt_data (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("input_get_prompt_dat"); + + req_info->prompt_count++; /* increment prompt data count */ + if (req_info->prompt_count > max_prompt_count) + { /* too many prompt data strings */ + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + + *prompt_ptr = (ST_CHAR *) aCtx->asn1r_field_ptr-1; /* set prompt data pointer */ + if (asn1r_get_vstr (aCtx, *prompt_ptr)) /* shift prompt data left */ + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + prompt_ptr++; /* point to where next will go */ + ASN1R_TAG_ADD (aCtx, UNI, VISTR_CODE, input_get_prompt_data); + } + +/************************************************************************/ +/* input_prompt_data_cstr_done */ +/* input request is being decoded: prompt data list constructor done */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID input_prompt_data_cstr_done (ASN1_DEC_CTXT *aCtx) + { +ST_INT req_size; + + /* find actual size for request info */ + req_size = sizeof (INPUT_REQ_INFO) + + (sizeof (ST_CHAR *) * req_info->prompt_count); + + /* give back unused storage */ + _mms_dec_info = (*m_realloc_os_fun) (_mms_dec_info,req_size); + req_info = (INPUT_REQ_INFO *) _mms_dec_info; + ASN1R_TAG_ADD (aCtx, CTX, 3, input_get_timeout); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* input_get_timeout */ +/* input request is being decoded: input timeout was encountered. */ +/************************************************************************/ + +static ST_VOID input_get_timeout (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("input_get_timeou"); + + req_info->timeout_pres = SD_TRUE; /* set input timeout present */ + + if (asn1r_get_u32 (aCtx, &req_info->timeout)) + { + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_input_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the input response. */ +/************************************************************************/ + +ST_RET mp_input_resp (MMSREQ_IND *indptr, INPUT_RESP_INFO *info_ptr) + { + return (_mms_resp_send (MMSOP_INPUT,indptr, + M_CAST_MK_FUN (_ms_mk_input_resp), + (ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_input_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the input response. */ +/************************************************************************/ + +ST_RET mpl_input_resp (ST_UINT32 invoke_id, INPUT_RESP_INFO *info_ptr) + { + return (_mms_resp_fin (MMSOP_INPUT,invoke_id, + M_CAST_MK_FUN (_ms_mk_input_resp), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_input_resp */ +/* ENCODE an input RESPONSE: */ +/************************************************************************/ + +ST_VOID _ms_mk_input_resp (ASN1_ENC_CTXT *aCtx, INPUT_RESP_INFO *info_ptr) + { + asn1r_wr_vstr (aCtx, info_ptr->input_resp); /* encode the input response */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_prim (aCtx, MMSOP_INPUT,CTX); /* tag = opcode, ctx */ + } diff --git a/mmslib/mmsle/rs_jcrea.c b/mmslib/mmsle/rs_jcrea.c new file mode 100644 index 0000000..33c68fd --- /dev/null +++ b/mmslib/mmsle/rs_jcrea.c @@ -0,0 +1,133 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_jcreate.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of create journal. */ +/* It decodes the create journal request (indication) & encodes */ +/* the create journal response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 05 Remove "thisFileName" */ +/* 12/20/01 JRB 04 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 03 Added SD_CONST modifiers */ +/* 03/23/99 MDE 02 Changes to decode buffer allocation scheme */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pjou.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static JCREATE_REQ_INFO *req_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID jcreate_jname_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID jcreate_jname_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID jcreate_jname_cstr (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_jcreate_req */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_jcreate_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Create Journal Request"); + + +/* get storage for request information */ + req_info = (JCREATE_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (JCREATE_REQ_INFO)); + aCtx->asn1r_err_fun = _mms_dec_buf_free; + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, jcreate_jname_cstr); + } + +/************************************************************************/ +/* jcreate_jname_cstr */ +/* create journal request is being decoded: journal name constructor */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID jcreate_jname_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jcreate_jname_cstr"); + + _ms_get_mms_objname (aCtx, &req_info->jou_name, jcreate_jname_done); + } + +/************************************************************************/ +/* jcreate_jname_done */ +/* create journal request is being decoded: journal name has been */ +/* obtained. */ +/************************************************************************/ + +static ST_VOID jcreate_jname_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jcreate_jname_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = jcreate_jname_cstr_done; + } + +/************************************************************************/ +/* jcreate_jname_cstr_done */ +/* create journal request is being decoded: journal name cstr done was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID jcreate_jname_cstr_done (ASN1_DEC_CTXT *aCtx) + { + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_jcreate_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the create journal response. */ +/************************************************************************/ + +ST_RET mp_jcreate_resp (MMSREQ_IND *indptr) + { + return (_mms_send_null_resp (indptr,MMSOP_CREATE_JOURNAL)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_jcreate_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the create journal response. */ +/************************************************************************/ + +ST_RET mpl_jcreate_resp (ST_UINT32 invoke_id) + { + return (_mms_fin_null_resp (invoke_id,MMSOP_CREATE_JOURNAL)); + } +#endif diff --git a/mmslib/mmsle/rs_jdele.c b/mmslib/mmsle/rs_jdele.c new file mode 100644 index 0000000..726c46b --- /dev/null +++ b/mmslib/mmsle/rs_jdele.c @@ -0,0 +1,132 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_jdelete.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of delete journal. */ +/* It decodes the delete journal request (indication) & encodes */ +/* the delete journal response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 05 Remove "thisFileName" */ +/* 12/20/01 JRB 04 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 03 Added SD_CONST modifiers */ +/* 03/23/99 MDE 02 Changes to decode buffer allocation scheme */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pjou.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static JDELETE_REQ_INFO *req_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID jdelete_jname_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID jdelete_jname_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID jdelete_jname_cstr (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_jdelete_req */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_jdelete_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Delete Journal Request"); + + +/* get storage for request information */ + req_info = (JDELETE_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (JDELETE_REQ_INFO)); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, jdelete_jname_cstr); + } + +/************************************************************************/ +/* jdelete_jname_cstr */ +/* delete journal request is being decoded: journal name constructor */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID jdelete_jname_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jdelete_jname_cstr"); + + _ms_get_mms_objname (aCtx, &req_info->jou_name, jdelete_jname_done); + } + +/************************************************************************/ +/* jdelete_jname_done */ +/* delete journal request is being decoded: journal name has been */ +/* obtained. */ +/************************************************************************/ + +static ST_VOID jdelete_jname_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jdelete_jname_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = jdelete_jname_cstr_done; + } + +/************************************************************************/ +/* jdelete_jname_cstr_done */ +/* delete journal request is being decoded: journal name cstr done was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID jdelete_jname_cstr_done (ASN1_DEC_CTXT *aCtx) + { + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_jdelete_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the delete journal response. */ +/************************************************************************/ + +ST_RET mp_jdelete_resp (MMSREQ_IND *indptr) + { + return (_mms_send_null_resp (indptr,MMSOP_DELETE_JOURNAL)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_jdelete_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the delete journal response. */ +/************************************************************************/ + +ST_RET mpl_jdelete_resp (ST_UINT32 invoke_id) + { + return (_mms_fin_null_resp (invoke_id,MMSOP_DELETE_JOURNAL)); + } +#endif diff --git a/mmslib/mmsle/rs_jinit.c b/mmslib/mmsle/rs_jinit.c new file mode 100644 index 0000000..34acde0 --- /dev/null +++ b/mmslib/mmsle/rs_jinit.c @@ -0,0 +1,260 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_jinit.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of initialize */ +/* journal. It decodes the initialize journal request (indication) */ +/* & encodes the initialize journal response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 09 Remove "thisFileName" */ +/* 08/28/03 EJV 08 Corr spelling for 'receive'. */ +/* 12/20/01 JRB 07 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 06 Added SD_CONST modifiers */ +/* 03/23/99 MDE 05 Changes to decode buffer allocation scheme */ +/* 06/15/98 MDE 04 Changes to allow compile under C++ */ +/* 08/15/97 MDE 03 BTOD handling changes */ +/* 07/03/97 MDE 02 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pjou.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static JINIT_REQ_INFO *req_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID jinit_limit_spec_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID jinit_le_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID jinit_get_le_prim (ASN1_DEC_CTXT *aCtx); +static ST_VOID jinit_get_le_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID jinit_get_limit_time (ASN1_DEC_CTXT *aCtx); +static ST_VOID jinit_limit_spec_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID jinit_jou_name_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID jinit_jn_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID jinit_jou_name_cstr (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_jinit_req */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_jinit_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Initialize Journal Request"); + +/* get storage for request information */ + req_info = (JINIT_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (JINIT_REQ_INFO)); + req_info->limit_spec_pres = SD_FALSE; + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, jinit_jou_name_cstr); + } + +/************************************************************************/ +/* jinit_jou_name_cstr */ +/* initialize journal request is being decoded: journal name cstr */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID jinit_jou_name_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jinit_jou_name_cstr"); + _ms_get_mms_objname (aCtx, &req_info->jou_name, jinit_jn_done); + } + +/************************************************************************/ +/* jinit_jn_done */ +/* initialize journal request is being decoded: journal name has been */ +/* obtained. */ +/************************************************************************/ + +static ST_VOID jinit_jn_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jinit_jn_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = jinit_jou_name_cstr_done; + } + +/************************************************************************/ +/* jinit_jou_name_cstr_done */ +/* initialize journal request is being decoded: journal name cstr done */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID jinit_jou_name_cstr_done (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1, jinit_limit_spec_cstr); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* jinit_limit_spec_cstr */ +/* initialize journal request is being decoded: limit specification */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID jinit_limit_spec_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jinit_limit_spec_cstr"); + + req_info->limit_spec_pres = SD_TRUE; + + ASN1R_TAG_ADD (aCtx, CTX, 0, jinit_get_limit_time); + } + +/************************************************************************/ +/* jinit_get_limit_time */ +/* initialize journal request is being decoded: limit time was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID jinit_get_limit_time (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jinit_get_limit_tim"); + + if (asn1r_get_btod (aCtx, &req_info->limit_time)) /* get limiting time */ + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + ASN1R_TAG_ADD (aCtx, CTX, 1, jinit_get_le_prim); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1, jinit_get_le_cstr); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = jinit_limit_spec_cstr_done; + } + +/************************************************************************/ +/* jinit_get_le_prim */ +/* initialize journal request is being decoded: limit entry primitive */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID jinit_get_le_prim (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jinit_get_le_prim"); + /* decode limit entry back onto itself */ + + req_info->limit_entry_pres = SD_TRUE; + req_info->limit_entry = aCtx->asn1r_field_ptr; + + if (asn1r_get_octstr (aCtx, req_info->limit_entry)) /* read limit entry */ + asn1r_set_dec_err (aCtx, REQ_UNSPECIFIED); + + req_info->limit_entry_len = aCtx->asn1r_octetcount; + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = jinit_limit_spec_cstr_done; + } + +/************************************************************************/ +/* jinit_get_le_cstr */ +/* initialize journal request is being decoded: limit entry cstr */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID jinit_get_le_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jinit_get_le_cstr"); + + /* decode limit entry back onto itself */ + req_info->limit_entry_pres = SD_TRUE; + req_info->limit_entry = aCtx->asn1r_field_ptr; + + /* set up done decoding octet cstr destination */ + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = jinit_le_cstr_done; + + /* get limit entry from the received message */ + /* set maximum length to accept entire message */ + asn1r_get_octstr_cstr (aCtx, _mmsdec_msglen, req_info->limit_entry); + } + +/************************************************************************/ +/* jinit_le_cstr_done */ +/* initialize journal request is being decoded: limit entry cstr done */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID jinit_le_cstr_done (ASN1_DEC_CTXT *aCtx) + { + req_info->limit_entry_len = aCtx->asn1r_octetcount; /* save limit entry len */ + /* cstr done already set*/ + } + +/************************************************************************/ +/* jinit_limit_spec_cstr_done */ +/* initialize journal request is being decoded: limit specification */ +/* cstr done was encountered. */ +/************************************************************************/ + +static ST_VOID jinit_limit_spec_cstr_done (ASN1_DEC_CTXT *aCtx) + { + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_jinit_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the initialize journal response. */ +/************************************************************************/ + +ST_RET mp_jinit_resp (MMSREQ_IND *indptr, JINIT_RESP_INFO *info_ptr) + { + return (_mms_resp_send (MMSOP_INIT_JOURNAL,indptr, + M_CAST_MK_FUN (_ms_mk_jinit_resp), + (ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_jinit_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the initialize journal response. */ +/************************************************************************/ + +ST_RET mpl_jinit_resp (ST_UINT32 invoke_id, JINIT_RESP_INFO *info_ptr) + { + return (_mms_resp_fin (MMSOP_INIT_JOURNAL,invoke_id, + M_CAST_MK_FUN (_ms_mk_jinit_resp), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_jinit_resp */ +/* ENCODE an initialize journal RESPONSE: */ +/************************************************************************/ + +ST_VOID _ms_mk_jinit_resp (ASN1_ENC_CTXT *aCtx, JINIT_RESP_INFO *info_ptr) + { + asn1r_wr_u32 (aCtx, info_ptr->del_entries); /* encode deleted entries */ +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_prim (aCtx, MMSOP_INIT_JOURNAL,CTX); /* tag = opcode, ctx */ + } diff --git a/mmslib/mmsle/rs_jread.c b/mmslib/mmsle/rs_jread.c new file mode 100644 index 0000000..b80a7b8 --- /dev/null +++ b/mmslib/mmsle/rs_jread.c @@ -0,0 +1,620 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_jread.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of read journal. */ +/* It decodes the read journal request (indication) & encodes */ +/* the read journal response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 08/28/03 EJV 07 Corr spelling for 'receive'. */ +/* 12/20/01 JRB 06 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 05 Added SD_CONST modifiers */ +/* 03/23/99 MDE 04 Changes to decode buffer allocation scheme */ +/* 06/15/98 MDE 03 Changes to allow compile under C++ */ +/* 08/15/97 MDE 02 BTOD handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pjou.h" +#include "asn1defs.h" +#include "mem_chk.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static JREAD_REQ_INFO *req_info; + +static ST_CHAR **var_ptr; +static ST_INT max_vars; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID jread_range_stop_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID jread_list_of_var_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID jread_sa_entry_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID jread_range_start_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID jread_range_stop_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID jread_sa_entry_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID jread_entry_spec_prim (ASN1_DEC_CTXT *aCtx); +static ST_VOID jread_entry_spec_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID jread_get_time_spec (ASN1_DEC_CTXT *aCtx); +static ST_VOID jread_get_var (ASN1_DEC_CTXT *aCtx); +static ST_VOID jread_list_of_var_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID jread_get_stop_time (ASN1_DEC_CTXT *aCtx); +static ST_VOID jread_get_num_of_ent (ASN1_DEC_CTXT *aCtx); +static ST_VOID jread_start_entry_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID jread_get_start_time (ASN1_DEC_CTXT *aCtx); +static ST_VOID jread_start_entry_prim (ASN1_DEC_CTXT *aCtx); +static ST_VOID jread_start_entry_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID jread_range_start_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID jread_jname_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID jread_jname_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID jread_jname_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID jread_entry_spec_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID jread_dec_done (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_jread_req */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_jread_req (ASN1_DEC_CTXT *aCtx) + { +ST_INT req_size; + + MLOG_CDEC0 ("Read Journal Request"); + +#if defined(FIXED_DECBUF) + max_vars = m_sv_max_jread_vars; + req_size = mmsl_dec_info_size; +#else + max_vars = (_mmsdec_msglen/2); + if (m_sv_max_jread_vars && (max_vars > m_sv_max_jread_vars)) + max_vars = m_sv_max_jread_vars; + + req_size = sizeof (JREAD_REQ_INFO) + (max_vars * sizeof (ST_CHAR *)); +#endif + +/* get storage for request information */ + req_info = (JREAD_REQ_INFO *) _m_get_dec_buf (aCtx, req_size); + var_ptr = (ST_CHAR **) (req_info + 1); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, jread_jname_cstr); + } + +/************************************************************************/ +/* jread_jname_cstr */ +/* read journal request is being decoded: journal name constructor */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID jread_jname_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jread_jname_cstr"); + + _ms_get_mms_objname (aCtx, &req_info->jou_name, jread_jname_done); + } + +/************************************************************************/ +/* jread_jname_done */ +/* read journal request is being decoded: journal name has been */ +/* obtained. */ +/************************************************************************/ + +static ST_VOID jread_jname_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jread_jname_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = jread_jname_cstr_done; + } + +/************************************************************************/ +/* jread_jname_cstr_done */ +/* read journal request is being decoded: journal name constructor */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID jread_jname_cstr_done (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1, jread_range_start_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 2, jread_range_stop_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 4, jread_list_of_var_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 5, jread_sa_entry_cstr); + + aCtx->asn1r_decode_done_fun = jread_dec_done; /* ok to be done, set done fun */ + _ms_set_cs_check2 (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* jread_range_start_cstr */ +/* read journal request is being decoded: range start constructor */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID jread_range_start_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jread_range_start_cstr"); + + req_info->range_start_pres = SD_TRUE; + + ASN1R_TAG_ADD (aCtx, CTX, 0, jread_get_start_time); + ASN1R_TAG_ADD (aCtx, CTX, 1, jread_start_entry_prim); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1, jread_start_entry_cstr); + _ms_set_cs_check2 (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* jread_get_start_time */ +/* initialize journal request is being decoded: start time was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID jread_get_start_time (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jread_get_start_tim"); + + req_info->start_tag = SD_SUCCESS; /* set start time */ + + if (asn1r_get_btod (aCtx, &req_info->start_time)) /* get start time */ + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = jread_range_start_cstr_done; + } + +/************************************************************************/ +/* jread_start_entry_prim */ +/* read journal request is being decoded: start entry primitive was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID jread_start_entry_prim (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jread_start_entry_prim"); + + req_info->start_tag = SD_TRUE; /* set start entry */ + + /* decode start entry back onto itself */ + req_info->start_entry = aCtx->asn1r_field_ptr; + + if (asn1r_get_octstr (aCtx, req_info->start_entry)) /* read start entry */ + asn1r_set_dec_err (aCtx, REQ_UNSPECIFIED); + + req_info->start_entry_len = aCtx->asn1r_octetcount; + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = jread_range_start_cstr_done; + } + +/************************************************************************/ +/* jread_start_entry_cstr */ +/* read journal request is being decoded: start entry constructor */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID jread_start_entry_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jread_start_entry_cstr"); + + req_info->start_tag = SD_TRUE; /* set start entry */ + + /* decode start entry back onto itself */ + req_info->start_entry = aCtx->asn1r_field_ptr; + + /* set up done decoding octet cstr destination */ + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = jread_start_entry_cstr_done; + + /* get start entry from the received message */ + /* set maximum length to accept entire message */ + asn1r_get_octstr_cstr (aCtx, _mmsdec_msglen, req_info->start_entry); + } + +/************************************************************************/ +/* jread_start_entry_cstr_done */ +/* read journal request is being decoded: start entry constructor done */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID jread_start_entry_cstr_done (ASN1_DEC_CTXT *aCtx) + { + + req_info->start_entry_len = aCtx->asn1r_octetcount; /* save start entry len */ + + /* set up done decoding start spec cstr dest */ + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = jread_range_start_cstr_done; + } + +/************************************************************************/ +/* jread_range_start_cstr_done */ +/* read journal request is being decoded: range start constructor */ +/* done was encountered. */ +/************************************************************************/ + +static ST_VOID jread_range_start_cstr_done (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 2, jread_range_stop_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 4, jread_list_of_var_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 5, jread_sa_entry_cstr); + _ms_set_cs_check2 (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* jread_range_stop_cstr */ +/* read journal request is being decoded: range stop constructor */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID jread_range_stop_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jread_range_stop_cstr"); + + req_info->range_stop_pres = SD_TRUE; + + ASN1R_TAG_ADD (aCtx, CTX, 0, jread_get_stop_time); + ASN1R_TAG_ADD (aCtx, CTX, 1, jread_get_num_of_ent); + _ms_set_cs_check2 (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* jread_get_stop_time */ +/* initialize journal request is being decoded: ending time was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID jread_get_stop_time (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jread_get_stop_tim"); + + req_info->stop_tag = SD_SUCCESS; /* set ending time */ + + if (asn1r_get_btod (aCtx, &req_info->end_time)) /* get ending time */ + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = jread_range_stop_cstr_done; + } + +/************************************************************************/ +/* jread_get_num_of_ent */ +/* read journal request is being decoded: number of entries was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID jread_get_num_of_ent (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jread_get_num_of_ent"); + + req_info->stop_tag = SD_TRUE; /* set num of entries */ + + if (asn1r_get_i32 (aCtx, &req_info->num_of_entries)) /* read number of entry */ + { + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = jread_range_stop_cstr_done; + } + +/************************************************************************/ +/* jread_range_stop_cstr_done */ +/* read journal request is being decoded: range stop constructor */ +/* done was encountered. */ +/************************************************************************/ + +static ST_VOID jread_range_stop_cstr_done (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 4, jread_list_of_var_cstr); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 5, jread_sa_entry_cstr); + _ms_set_cs_check2 (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* jread_list_of_var_cstr */ +/* read journal request is being decoded: list of variables constructor */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID jread_list_of_var_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jread_list_of_var_cstr"); + + req_info->list_of_var_pres = SD_TRUE; + + ASN1R_TAG_ADD (aCtx, UNI, VISTR_CODE, jread_get_var); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = jread_list_of_var_cstr_done; + } + +/************************************************************************/ +/* jread_get_var */ +/* read journal request is being decoded: variable was encountered. */ +/************************************************************************/ + +static ST_VOID jread_get_var (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jread_get_var"); + + req_info->num_of_var++; /* increment # of var */ + if (req_info->num_of_var > max_vars) + { + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + + /* copy variable back onto itself shifted by one character */ + *var_ptr = (ST_CHAR *) aCtx->asn1r_field_ptr - 1; + if (asn1r_get_vstr (aCtx, *var_ptr)) + { /* variable is too ST_INT32 */ + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + var_ptr++; /* point to where next will go */ + + ASN1R_TAG_ADD (aCtx, UNI, VISTR_CODE, jread_get_var); + } + +/************************************************************************/ +/* jread_list_of_var_cstr_done */ +/* read journal request is being decoded: list of variable constructor */ +/* done was encountered. */ +/************************************************************************/ + +static ST_VOID jread_list_of_var_cstr_done (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 5, jread_sa_entry_cstr); + _ms_set_cs_check2 (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* jread_sa_entry_cstr */ +/* read journal request is being decoded: start after entry constructor */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID jread_sa_entry_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jread_sa_entry_cstr"); + + req_info->sa_entry_pres = SD_TRUE; + + ASN1R_TAG_ADD (aCtx, CTX, 0, jread_get_time_spec); + } + +/************************************************************************/ +/* jread_get_time_spec */ +/* initialize journal request is being decoded: time specification was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID jread_get_time_spec (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jread_get_time_spec"); + + if (asn1r_get_btod (aCtx, &req_info->time_spec)) /* get time spec */ + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + ASN1R_TAG_ADD (aCtx, CTX, 1, jread_entry_spec_prim); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1, jread_entry_spec_cstr); + } + +/************************************************************************/ +/* jread_entry_spec_prim */ +/* read journal request is being decoded: entry specification prim was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID jread_entry_spec_prim (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jread_entry_spec_prim"); + + /* decode entry spec back onto itself */ + req_info->entry_spec = aCtx->asn1r_field_ptr; + + if (asn1r_get_octstr (aCtx, req_info->entry_spec)) /* read entry spec */ + asn1r_set_dec_err (aCtx, REQ_UNSPECIFIED); + + req_info->entry_spec_len = aCtx->asn1r_octetcount; + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = jread_sa_entry_cstr_done; + } + +/************************************************************************/ +/* jread_entry_spec_cstr */ +/* read journal request is being decoded: entry specification cstr */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID jread_entry_spec_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jread_entry_spec_cstr"); + + /* decode entry spec back onto itself */ + req_info->entry_spec = aCtx->asn1r_field_ptr; + + /* set up done decoding octet cstr destination */ + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = jread_entry_spec_cstr_done; + + /* get entry spec from the received message */ + /* set maximum length to accept entire message */ + asn1r_get_octstr_cstr (aCtx, _mmsdec_msglen, req_info->entry_spec); + } + +/************************************************************************/ +/* jread_entry_spec_cstr_done */ +/* read journal request is being decoded: entry spec constructor done */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID jread_entry_spec_cstr_done (ASN1_DEC_CTXT *aCtx) + { + + req_info->entry_spec_len = aCtx->asn1r_octetcount; /* save entry spec len */ + + /* set up done decoding entry spec cstr dest */ + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = jread_sa_entry_cstr_done; + } + +/************************************************************************/ +/* jread_sa_entry_cstr_done */ +/* read journal request is being decoded: start after entry constructor */ +/* done was encountered. */ +/************************************************************************/ + +static ST_VOID jread_sa_entry_cstr_done (ASN1_DEC_CTXT *aCtx) + { + _ms_set_cs_check2 (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* jread_dec_done */ +/* read journal request is completely done. Any extra storage is */ +/* given back. */ +/************************************************************************/ + +static ST_VOID jread_dec_done (ASN1_DEC_CTXT *aCtx) + { +ST_INT req_size; + + /* find actual size for request info */ + req_size = sizeof (JREAD_REQ_INFO) + + (sizeof (ST_CHAR *) * req_info->num_of_var); + + /* give back unused storage */ + _mms_dec_info = (*m_realloc_os_fun) (_mms_dec_info,req_size); + req_info = (JREAD_REQ_INFO *) _mms_dec_info; + + _mms_dec_done_ok (aCtx); + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_jread_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the read journal response. */ +/************************************************************************/ + +ST_RET mp_jread_resp (MMSREQ_IND *indptr, JREAD_RESP_INFO *info_ptr) + { + return (_mms_resp_send (MMSOP_READ_JOURNAL,indptr, + M_CAST_MK_FUN (_ms_mk_jread_resp), + (ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_jread_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the read journal response. */ +/************************************************************************/ + +ST_RET mpl_jread_resp (ST_UINT32 invoke_id, JREAD_RESP_INFO *info_ptr) + { + return (_mms_resp_fin (MMSOP_READ_JOURNAL,invoke_id, + M_CAST_MK_FUN (_ms_mk_jread_resp), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_jread_resp */ +/* ENCODE a read journal RESPONSE: */ +/************************************************************************/ + +ST_VOID _ms_mk_jread_resp (ASN1_ENC_CTXT *aCtx, JREAD_RESP_INFO *info_ptr) + { +ST_INT i; +ST_INT jel_size; +JOURNAL_ENTRY **je_list; +JOURNAL_ENTRY **je_list_save; +JOURNAL_ENTRY *je_ptr; +VAR_INFO *vi_ptr; + + if (info_ptr->more_follows) + + { /* not the default */ + asn1r_wr_bool (aCtx, info_ptr->more_follows); + asn1r_fin_prim (aCtx, 1,CTX); /* context tag 1 */ + } + + + + + + /* allocate storage for ec ptrs */ + jel_size = sizeof (JOURNAL_ENTRY *) * (info_ptr->num_of_jou_entry+1); + je_list = (JOURNAL_ENTRY **) chk_calloc (1, jel_size); + je_list_save = je_list; /* save the ptr list pointer */ + /* find first journal entry */ + je_ptr = (JOURNAL_ENTRY *) (info_ptr + 1); + *(je_list) = je_ptr; + for (i = 1; i < info_ptr->num_of_jou_entry; i++) + { /* find ptrs to journal entries */ + if (je_ptr->ent_content.entry_form_tag == 2 && + je_ptr->ent_content.ef.data.list_of_var_pres) + { + vi_ptr = (VAR_INFO *) (je_ptr + 1); + vi_ptr += je_ptr->ent_content.ef.data.num_of_var; + je_ptr = (JOURNAL_ENTRY *) vi_ptr; + } + else + je_ptr++; + + *(++je_list) = je_ptr; + } + + asn1r_strt_constr (aCtx); /* start context tag 0 cstr */ + for (i=0; i < info_ptr->num_of_jou_entry; i++) + { + asn1r_strt_constr (aCtx); /* start journal entry cstr */ + je_ptr = *(je_list--); + asn1r_strt_constr (aCtx); /* start context tag 2 cstr */ + _ms_wr_jou_ent_cont (aCtx, &je_ptr->ent_content); + asn1r_fin_constr (aCtx, 2,CTX,DEF); /* finish context tag 2 cstr */ + asn1r_strt_constr (aCtx); /* start originating ae cstr */ + asn1r_wr_delmnt (aCtx, je_ptr->orig_ae,je_ptr->orig_ae_len); + asn1r_fin_constr (aCtx, 1,CTX,DEF); /* finish context tag 1 cstr */ + asn1r_wr_octstr (aCtx, je_ptr->entry_id, je_ptr->entry_id_len); + asn1r_fin_prim (aCtx, 0,CTX); /* finish context tag 0 */ + asn1r_fin_constr (aCtx, SEQ_CODE,UNI,DEF); /* finish journal entry cstr */ + } + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* finish context tag 0 cstr */ + chk_free (je_list_save); /* free the list pointer */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_READ_JOURNAL,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsle/rs_jstat.c b/mmslib/mmsle/rs_jstat.c new file mode 100644 index 0000000..06391d8 --- /dev/null +++ b/mmslib/mmsle/rs_jstat.c @@ -0,0 +1,130 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_jstat.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of report journal */ +/* status. It decodes the report journal status request */ +/* (indication) & encodes the report journal status response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 07 Remove "thisFileName" */ +/* 12/20/01 JRB 06 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 05 Added SD_CONST modifiers */ +/* 03/23/99 MDE 04 Changes to decode buffer allocation scheme */ +/* 06/15/98 MDE 03 Changes to allow compile under C++ */ +/* 07/03/97 MDE 02 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pjou.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static JSTAT_REQ_INFO *req_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID jstat_jn_done (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_jstat_req */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_jstat_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Report Journal Status Request"); + + +/* get storage for request information */ + req_info = (JSTAT_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (JSTAT_REQ_INFO)); + _ms_get_mms_objname (aCtx, &req_info->jou_name, jstat_jn_done); + } + +/************************************************************************/ +/* jstat_jn_done */ +/* report journal status request is being decoded: journal name has */ +/* been obtained. */ +/************************************************************************/ + +static ST_VOID jstat_jn_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jstat_jn_done"); + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_jstat_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the report journal status response. */ +/************************************************************************/ + +ST_RET mp_jstat_resp (MMSREQ_IND *indptr, JSTAT_RESP_INFO *info_ptr) + { + return (_mms_resp_send (MMSOP_STAT_JOURNAL,indptr, + M_CAST_MK_FUN (_ms_mk_jstat_resp), + (ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_jstat_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the report journal status response. */ +/************************************************************************/ + +ST_RET mpl_jstat_resp (ST_UINT32 invoke_id, JSTAT_RESP_INFO *info_ptr) + { + return (_mms_resp_fin (MMSOP_STAT_JOURNAL,invoke_id, + M_CAST_MK_FUN (_ms_mk_jstat_resp), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_jstat_resp */ +/* ENCODE a report journal status RESPONSE: */ +/************************************************************************/ + +ST_VOID _ms_mk_jstat_resp (ASN1_ENC_CTXT *aCtx, JSTAT_RESP_INFO *info_ptr) + { + asn1r_wr_bool (aCtx, info_ptr->mms_deletable); /* write the deletable param */ + asn1r_fin_prim (aCtx, 1,CTX); + + asn1r_wr_u32 (aCtx, info_ptr->cur_entries); /* encode current entries */ + asn1r_fin_prim (aCtx, 0,CTX); + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_STAT_JOURNAL,CTX,DEF); /* tag = opcode, ctx */ + } diff --git a/mmslib/mmsle/rs_jwrit.c b/mmslib/mmsle/rs_jwrit.c new file mode 100644 index 0000000..2cc4e12 --- /dev/null +++ b/mmslib/mmsle/rs_jwrit.c @@ -0,0 +1,241 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_jwrite.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of write journal. */ +/* It decodes the write journal request (indication) & encodes */ +/* the write journal response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 05 Remove "thisFileName" */ +/* 12/20/01 JRB 04 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 03 Added SD_CONST modifiers */ +/* 03/23/99 MDE 02 Changes to decode buffer allocation scheme */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pjou.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static JWRITE_REQ_INFO *req_info; + +static ENTRY_CONTENT *ec_ptr; +static ST_INT max_entries; +static ST_INT max_data_vars; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +/************************************************************************/ +/* static functions with multiple references */ + +static ST_VOID jwrite_jou_entry_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID jwrite_je_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID jwrite_list_of_je_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID jwrite_list_of_je_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID jwrite_jname_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID jwrite_jname_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID jwrite_jname_cstr (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_jwrite_req */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_jwrite_req (ASN1_DEC_CTXT *aCtx) + { +ST_INT req_size; + + MLOG_CDEC0 ("Write Journal Request"); + +#if defined(FIXED_DECBUF) + max_entries = m_sv_max_entry_content; + max_data_vars = m_sv_max_data_vars; + req_size = mmsl_dec_info_size; +#else + max_entries = (_mmsdec_msglen/4); + max_data_vars = (_mmsdec_msglen/6); + if (m_sv_max_entry_content && (max_entries > m_sv_max_entry_content)) + max_entries = m_sv_max_entry_content; + if (m_sv_max_data_vars && (max_data_vars > m_sv_max_data_vars)) + max_data_vars = m_sv_max_data_vars; + + req_size = sizeof (JWRITE_REQ_INFO) + + (max_entries * sizeof (ENTRY_CONTENT)) + + (max_data_vars * sizeof (VAR_INFO)); +#endif + +/* get storage for request information */ + req_info = (JWRITE_REQ_INFO *) _m_get_dec_buf (aCtx, req_size); + ec_ptr = (ENTRY_CONTENT *) (req_info + 1); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, jwrite_jname_cstr); + } + +/************************************************************************/ +/* jwrite_jname_cstr */ +/* write journal request is being decoded: journal name constructor */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID jwrite_jname_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jwrite_jname_cstr"); + + _ms_get_mms_objname (aCtx, &req_info->jou_name, jwrite_jname_done); + } + +/************************************************************************/ +/* jwrite_jname_done */ +/* write journal request is being decoded: journal name has been */ +/* obtained. */ +/************************************************************************/ + +static ST_VOID jwrite_jname_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jwrite_jname_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = jwrite_jname_cstr_done; + } + +/************************************************************************/ +/* jwrite_jname_cstr_done */ +/* write journal request is being decoded: journal name cstr done was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID jwrite_jname_cstr_done (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1, jwrite_list_of_je_cstr); + } + +/************************************************************************/ +/* jwrite_list_of_je_cstr */ +/* write journal request is being decoded: list of journal entry cstr */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID jwrite_list_of_je_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jwrite_list_of_je_cstr"); + + ASN1R_TAG_ADD (aCtx, UNI | CONSTR, SEQ_CODE, jwrite_jou_entry_cstr); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = jwrite_list_of_je_cstr_done; + } + +/************************************************************************/ +/* jwrite_jou_entry_cstr */ +/* write journal request is being decoded: journal entry cstr was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID jwrite_jou_entry_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("jwrite_jou_entry_cstr"); + + req_info->num_of_jou_entry++; /* increment # of journal entry */ + if (req_info->num_of_jou_entry > max_entries) + { + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + + _ms_get_jou_ent_cont (aCtx, ec_ptr, max_data_vars, jwrite_je_done); + } + +/************************************************************************/ +/* jwrite_je_done */ +/* write journal request is being decoded: journal entry has been */ +/* obtained. */ +/************************************************************************/ + +static ST_VOID jwrite_je_done (ASN1_DEC_CTXT *aCtx) + { +VAR_INFO *vi_ptr; + + MLOG_CDEC0 ("jwrite_je_done"); + + /* point to where next will go */ + if (ec_ptr->entry_form_tag == 2 && ec_ptr->ef.data.list_of_var_pres) + { + vi_ptr = (VAR_INFO *) (ec_ptr + 1); + ec_ptr = (ENTRY_CONTENT *) (vi_ptr + ec_ptr->ef.data.num_of_var); + } + else + ec_ptr++; + + ASN1R_TAG_ADD (aCtx, UNI | CONSTR, SEQ_CODE, jwrite_jou_entry_cstr); + } + +/************************************************************************/ +/* jwrite_list_of_je_cstr_done */ +/* write journal request is being decoded: list of journal entry cstr */ +/* done was encountered. */ +/************************************************************************/ + +static ST_VOID jwrite_list_of_je_cstr_done (ASN1_DEC_CTXT *aCtx) + { +ST_INT req_size; + + /* find actual size for request info */ + req_size = (ST_CHAR *) ec_ptr - (ST_CHAR *) req_info; + + /* give back unused storage */ + _mms_dec_info = (*m_realloc_os_fun) (_mms_dec_info, req_size); + req_info = (JWRITE_REQ_INFO *) _mms_dec_info; + + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_jwrite_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the write journal response. */ +/************************************************************************/ + +ST_RET mp_jwrite_resp (MMSREQ_IND *indptr) + { + return (_mms_send_null_resp (indptr,MMSOP_WRITE_JOURNAL)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_jwrite_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the write journal response. */ +/************************************************************************/ + +ST_RET mpl_jwrite_resp (ST_UINT32 invoke_id) + { + return (_mms_fin_null_resp (invoke_id,MMSOP_WRITE_JOURNAL)); + } +#endif diff --git a/mmslib/mmsle/rs_kill.c b/mmslib/mmsle/rs_kill.c new file mode 100644 index 0000000..183f22d --- /dev/null +++ b/mmslib/mmsle/rs_kill.c @@ -0,0 +1,109 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_kill.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of the kill */ +/* operation. It decodes the kill request (indication) and */ +/* encodes the kill response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 05 Remove "thisFileName" */ +/* 12/20/01 JRB 04 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 03 Added SD_CONST modifiers */ +/* 03/23/99 MDE 02 Changes to decode buffer allocation scheme */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pprg.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static KILL_REQ_INFO *req_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID kill_get_piname (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_kill_req */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_kill_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Kill Request"); + + +/* get storage for request information */ + req_info = (KILL_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (KILL_REQ_INFO)); + ASN1R_TAG_ADD (aCtx, CTX, 0, kill_get_piname); + } + +/************************************************************************/ +/* kill_get_piname */ +/* kill request is being decoded: get the program invocation name. */ +/************************************************************************/ + +static ST_VOID kill_get_piname (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("kill_get_piname"); + + /* read program invocation name from message */ + if (asn1r_get_identifier (aCtx, req_info->piname)) + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_kill_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the kill response. */ +/************************************************************************/ + +ST_RET mp_kill_resp (MMSREQ_IND *indptr) + { + return (_mms_send_null_resp (indptr,MMSOP_KILL)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_kill_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the kill response. */ +/************************************************************************/ + +ST_RET mpl_kill_resp (ST_UINT32 invoke_id) + { + return (_mms_fin_null_resp (invoke_id,MMSOP_KILL)); + } +#endif diff --git a/mmslib/mmsle/rs_loadd.c b/mmslib/mmsle/rs_loadd.c new file mode 100644 index 0000000..2c19a8b --- /dev/null +++ b/mmslib/mmsle/rs_loadd.c @@ -0,0 +1,288 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_loaddom.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of load domain */ +/* content. It decodes the load domain content request */ +/* (indication) & encodes the load domain content response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 05 Remove "thisFileName" */ +/* 12/20/01 JRB 04 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 03 Added SD_CONST modifiers */ +/* 03/23/99 MDE 02 Changes to decode buffer allocation scheme */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 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_pdom.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static LOADDOM_REQ_INFO *req_info; + +static ST_CHAR **cap_ptr; +static ST_INT max_capabilities; +static ST_INT max_fnames; +static ST_UCHAR *ar_start; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ +static ST_VOID loaddom_fname_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID loaddom_fname_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID loaddom_get_sharable (ASN1_DEC_CTXT *aCtx); +static ST_VOID loaddom_get_cap (ASN1_DEC_CTXT *aCtx); +static ST_VOID loaddom_cap_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID loaddom_cap_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID loaddom_get_dname (ASN1_DEC_CTXT *aCtx); +static ST_VOID loaddom_third_pty_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID third_pty_cstr_done (ASN1_DEC_CTXT *aCtx); + +/************************************************************************/ +/************************************************************************/ +/* mms_load_domain_req */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_load_domain_req (ASN1_DEC_CTXT *aCtx) + { +ST_INT req_size; + + MLOG_CDEC0 ("Load Domain Content Request"); + + +#if defined(FIXED_DECBUF) + max_fnames = m_sv_max_file_names; + max_capabilities = m_sv_max_loadd_cap; + req_size = mmsl_dec_info_size; +#else + max_capabilities = (_mmsdec_msglen/2); + max_fnames = (_mmsdec_msglen/2); + if (m_sv_max_loadd_cap && (max_capabilities > m_sv_max_loadd_cap)) + max_capabilities = m_sv_max_loadd_cap; + if (m_sv_max_file_names && (max_fnames > m_sv_max_file_names)) + max_fnames = m_sv_max_file_names; + req_size = sizeof(LOADDOM_REQ_INFO) + + (max_fnames * sizeof(FILE_NAME)) + + (max_capabilities * sizeof(ST_CHAR *)); +#endif + +/* get storage for request information */ + req_info = (LOADDOM_REQ_INFO *) _m_get_dec_buf (aCtx, req_size); + cap_ptr = (ST_CHAR **) (req_info + 1); + ASN1R_TAG_ADD (aCtx, CTX, 0,loaddom_get_dname); + } + +/************************************************************************/ +/* loaddom_get_dname */ +/* load domain content request is being decoded: domain name was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID loaddom_get_dname (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("loaddom_get_dname"); + + if (asn1r_get_identifier (aCtx, req_info->dname)) /* read the domain name */ + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1,loaddom_cap_cstr); + } + +/************************************************************************/ +/* loaddom_cap_cstr */ +/* load domain content request is being decoded: capability list */ +/* constructor was encountered. */ +/************************************************************************/ + +static ST_VOID loaddom_cap_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("loaddom_cap_cstr"); + + ASN1R_TAG_ADD (aCtx, UNI,VISTR_CODE,loaddom_get_cap); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = loaddom_cap_cstr_done; + } + +/************************************************************************/ +/* loaddom_get_cap */ +/* load domain content request is being decoded: capability string */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID loaddom_get_cap (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("loaddom_get_cap"); + + req_info->num_of_capab++; /* increment # of capabilities */ + if (req_info->num_of_capab > max_capabilities) + { + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + + /* copy capability back onto itself shifted by one character */ + *cap_ptr = (ST_CHAR *) aCtx->asn1r_field_ptr - 1; + if (asn1r_get_vstr (aCtx, *cap_ptr)) + { /* capability is too ST_INT32 */ + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + cap_ptr++; /* point to where next will go */ + + ASN1R_TAG_ADD (aCtx, UNI,VISTR_CODE,loaddom_get_cap); + } + +/************************************************************************/ +/* loaddom_cap_cstr_done */ +/* load domain content request is being decoded: capability list */ +/* constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID loaddom_cap_cstr_done (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, CTX,2,loaddom_get_sharable); + } + +/************************************************************************/ +/* loaddom_get_sharable */ +/* load domain content request is being decoded: sharable was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID loaddom_get_sharable (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("loaddom_get_sharable"); + /* read sharable from the received message */ + if (asn1r_get_bool (aCtx, &(req_info->sharable))) + { /* sharable is too ST_INT32 */ + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,4,loaddom_fname_cstr); + } + +/************************************************************************/ +/* loaddom_fname_cstr */ +/* load domain content request is being decoded: filename cstr was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID loaddom_fname_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("loaddom_fname_cstr"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = loaddom_fname_cstr_done; + +/* In the case of a request domain download request the file names are */ +/* put right after the cabability string pointers. The max number of */ +/* these file names is the same worst case as the capability strings. */ + + _ms_get_mms_fname (aCtx, (FILE_NAME *) cap_ptr, max_fnames, &req_info->num_of_fname); + } + +/************************************************************************/ +/* loaddom_fname_cstr_done */ +/* load domain content request is being decoded: file name list */ +/* constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID loaddom_fname_cstr_done (ASN1_DEC_CTXT *aCtx) + { +ST_INT req_size; + + /* find actual size for request info */ + req_size = sizeof (LOADDOM_REQ_INFO) + + (sizeof (ST_CHAR *) * req_info->num_of_capab) + + (sizeof (FILE_NAME) * req_info->num_of_fname); + + /* give back unused storage */ + _mms_dec_info = (*m_realloc_os_fun) (_mms_dec_info, req_size); + req_info = (LOADDOM_REQ_INFO *) _mms_dec_info; + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 5, loaddom_third_pty_cstr); + ar_start = aCtx->asn1r_field_ptr; /* save in case third party rcvd */ + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* loaddom_third_pty_cstr */ +/* load domain content request is being decoded: third party */ +/* cstr was encountered. */ +/************************************************************************/ + +static ST_VOID loaddom_third_pty_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("loaddom_third_pty_cstr"); + + req_info->third_pty_pres = SD_TRUE; /* set third party */ + req_info->third_pty = ar_start; /* save_start */ + *ar_start = '\x30'; /* change tag */ + + if (aCtx->asn1r_elmnt_len) + asn1r_parse_cstr_contents (aCtx, third_pty_cstr_done); + else + aCtx->asn1r_c_done_fun[ aCtx->asn1r_msg_level ] = third_pty_cstr_done; + } + +/************************************************************************/ +/* third_pty_cstr_done */ +/* load domain content request is being decoded: third party */ +/* was encountered and read into req structure. */ +/************************************************************************/ + +static ST_VOID third_pty_cstr_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("third_pty_cstr_done"); + + req_info->third_pty_len = aCtx->asn1r_field_ptr - ar_start; + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_loaddom_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the load domain content response. */ +/************************************************************************/ + +ST_RET mp_loaddom_resp (MMSREQ_IND *indptr) + { + return (_mms_send_null_resp (indptr,MMSOP_LOAD_DOMAIN)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_loaddom_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the load domain content response. */ +/************************************************************************/ + +ST_RET mpl_loaddom_resp (ST_UINT32 invoke_id) + { + return (_mms_fin_null_resp (invoke_id,MMSOP_LOAD_DOMAIN)); + } +#endif diff --git a/mmslib/mmsle/rs_obtfi.c b/mmslib/mmsle/rs_obtfi.c new file mode 100644 index 0000000..a15225c --- /dev/null +++ b/mmslib/mmsle/rs_obtfi.c @@ -0,0 +1,217 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_obtfile.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of the obtain file. */ +/* It decodes the obtain file request (indication) and encodes */ +/* the obtain file response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 05 Remove "thisFileName" */ +/* 12/20/01 JRB 04 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 03 Added SD_CONST modifiers */ +/* 03/23/99 MDE 02 Changes to decode buffer allocation scheme */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pfil.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static OBTFILE_REQ_INFO *reqinfo; + +static ST_INT max_fnames; +static FILE_NAME *fname_idx; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +/************************************************************************/ +/* static functions with multiple references */ +static ST_VOID obtfile_src_fname_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID ar_title_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID obtfile_dest_fname_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID obtfile_dest_fname_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID obtfile_src_fname_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID obtfile_ar_title_cstr (ASN1_DEC_CTXT *aCtx); + +static ST_UCHAR *ar_start; + + +/************************************************************************/ +/************************************************************************/ +/* mms_obtain_file_req */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_obtain_file_req (ASN1_DEC_CTXT *aCtx) + { +ST_INT req_size; + + MLOG_CDEC0 ("Obtain File Request"); + +#if defined(FIXED_DECBUF) + max_fnames = m_sv_max_file_names; + req_size = mmsl_dec_info_size; +#else + max_fnames = (_mmsdec_msglen/2); + if (m_sv_max_file_names && (max_fnames > m_sv_max_file_names)) + max_fnames = m_sv_max_file_names; + req_size = sizeof (OBTFILE_REQ_INFO) + (max_fnames * sizeof (FILE_NAME)); +#endif + +/* get storage for request information */ + reqinfo = (OBTFILE_REQ_INFO *) _m_get_dec_buf (aCtx, req_size); + reqinfo->ar_title_pres = SD_FALSE; /* set default value */ + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, obtfile_ar_title_cstr); + ASN1R_TAG_ADD (aCtx, CTX|CONSTR, 1, obtfile_src_fname_cstr); + + ar_start = aCtx->asn1r_field_ptr; /* save start of AR constructor */ + } + +/************************************************************************/ +/* obtfile_ar_title_cstr */ +/* obtain file request is being decoded : application title constructor */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID obtfile_ar_title_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("obtfile_ar_title_cstr"); + + reqinfo->ar_title_pres = SD_TRUE; /* set ap title present */ + reqinfo->ar_title = ar_start; /* save start */ + *ar_start = '\x30'; /* change tag */ + + if (aCtx->asn1r_elmnt_len) + asn1r_parse_cstr_contents (aCtx, ar_title_cstr_done); + else /* no contents, call user done function */ + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = ar_title_cstr_done; + } + +/************************************************************************/ +/* ar_title_cstr_done */ +/* obtain file request is being decoded : application title primitive */ +/* was encountered and read. */ +/************************************************************************/ + +static ST_VOID ar_title_cstr_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("ar_title_cstr_done"); + + reqinfo->ar_len = aCtx->asn1r_field_ptr - ar_start; + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,1,obtfile_src_fname_cstr); + } + +/************************************************************************/ +/* obtfile_src_fname_cstr */ +/* obtain file request is being decoded: source filename cstr was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID obtfile_src_fname_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("obtfile_src_fname_cstr"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = obtfile_src_fname_cstr_done; + fname_idx = (FILE_NAME *)(reqinfo + 1); + _ms_get_mms_fname (aCtx, fname_idx, max_fnames, &reqinfo->num_of_src_fname); + } + +/************************************************************************/ +/* obtfile_src_fname_cstr_done */ +/* obtain file request is being decoded: source file name list */ +/* constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID obtfile_src_fname_cstr_done (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,2,obtfile_dest_fname_cstr); + } + +/************************************************************************/ +/* obtfile_dest_fname_cstr */ +/* obtain file request is being decoded: destination filename cstr was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID obtfile_dest_fname_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("obtfile_dest_fname_cstr"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = obtfile_dest_fname_cstr_done; + fname_idx += reqinfo -> num_of_src_fname; + _ms_get_mms_fname (aCtx, fname_idx, max_fnames, &reqinfo->num_of_dest_fname); + } + +/************************************************************************/ +/* obtfile_dest_fname_cstr_done */ +/* obtain file request is being decoded: destination file name list */ +/* constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID obtfile_dest_fname_cstr_done (ASN1_DEC_CTXT *aCtx) + { +ST_INT req_size; + + /* find actual size for request info */ + req_size = sizeof (OBTFILE_REQ_INFO) + + (sizeof (FILE_NAME) * reqinfo->num_of_src_fname) + + (sizeof (FILE_NAME) * reqinfo->num_of_dest_fname); + + /* give back unused storage */ + _mms_dec_info = (*m_realloc_os_fun) (_mms_dec_info,req_size); + reqinfo = (OBTFILE_REQ_INFO *) _mms_dec_info; + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_obtfile_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the obtain file response. */ +/************************************************************************/ + +ST_RET mp_obtfile_resp (MMSREQ_IND *indptr) + { + return (_mms_send_null_resp (indptr,MMSOP_OBTAIN_FILE)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_obtfile_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the obtain file response. */ +/************************************************************************/ + +ST_RET mpl_obtfile_resp (ST_UINT32 invoke_id) + { + return (_mms_fin_null_resp (invoke_id,MMSOP_OBTAIN_FILE)); + } +#endif diff --git a/mmslib/mmsle/rs_outpu.c b/mmslib/mmsle/rs_outpu.c new file mode 100644 index 0000000..9a6b988 --- /dev/null +++ b/mmslib/mmsle/rs_outpu.c @@ -0,0 +1,184 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_output.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of the output */ +/* operation. It decodes the output request (indication) and */ +/* encodes the output response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 05 Remove "thisFileName" */ +/* 12/20/01 JRB 04 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 03 Added SD_CONST modifiers */ +/* 03/23/99 MDE 02 Changes to decode buffer allocation scheme */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pocs.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static OUTPUT_REQ_INFO *req_info; + +static ST_INT max_data_count; +static ST_CHAR **data_ptr; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID output_get_data (ASN1_DEC_CTXT *aCtx); +static ST_VOID output_data_list_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID output_get_data_list_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID output_get_station_name (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_output_req */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_output_req (ASN1_DEC_CTXT *aCtx) + { +ST_INT req_size; + + MLOG_CDEC0 ("Output Request"); + +#if defined(FIXED_DECBUF) + req_size = mmsl_dec_info_size; + max_data_count = m_sv_max_data_count; +#else + max_data_count = _mmsdec_msglen / 2; /* find maximum size */ + if (m_sv_max_data_count && (max_data_count > m_sv_max_data_count)) + max_data_count = m_sv_max_data_count; + req_size = sizeof (OUTPUT_REQ_INFO) + (sizeof (ST_CHAR *) * max_data_count); +#endif + +/* get storage for request information */ + req_info = (OUTPUT_REQ_INFO *) _m_get_dec_buf (aCtx, req_size); + data_ptr = (ST_CHAR **) (req_info + 1); + req_info->data_count = 0; + + ASN1R_TAG_ADD (aCtx, CTX, 0, output_get_station_name); + } + +/************************************************************************/ +/* output_get_station_name */ +/* Output request: decode the operator station name */ +/************************************************************************/ + +static ST_VOID output_get_station_name (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("output_get_station_name"); + /* read station name from message */ + if (asn1r_get_identifier (aCtx, req_info->station_name)) + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1, output_get_data_list_cstr); + } + +/************************************************************************/ +/* output_get_data_list_cstr */ +/* Output request: decode the output data constructor */ +/************************************************************************/ + +static ST_VOID output_get_data_list_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("output_get_data_list_cstr"); + + ASN1R_TAG_ADD (aCtx, UNI, VISTR_CODE, output_get_data); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = output_data_list_cstr_done; + } + +/************************************************************************/ +/* output_get_data */ +/* Output request: decode the output data */ +/************************************************************************/ + +static ST_VOID output_get_data (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("output_get_data"); + + req_info->data_count++; /* increment output data count */ + if (req_info->data_count > max_data_count) + { /* too many output data strings */ + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + + *data_ptr = (ST_CHAR *) aCtx->asn1r_field_ptr-1; /* set output data pointer */ + if (asn1r_get_vstr (aCtx, *data_ptr)) /* shift output data left */ + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + data_ptr++; /* point to where next will go */ + + ASN1R_TAG_ADD (aCtx, UNI, VISTR_CODE, output_get_data); + } + +/************************************************************************/ +/* output_data_list_cstr_done */ +/* Output request: output data list constructor done */ +/************************************************************************/ + +static ST_VOID output_data_list_cstr_done (ASN1_DEC_CTXT *aCtx) + { +ST_INT req_size; + + /* find actual size for request info */ + req_size = sizeof (OUTPUT_REQ_INFO) + + (sizeof (ST_CHAR *) * req_info->data_count); + + /* give back unused storage */ + _mms_dec_info = (*m_realloc_os_fun) (_mms_dec_info,req_size); + req_info = (OUTPUT_REQ_INFO *) _mms_dec_info; + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_output_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the output response. */ +/************************************************************************/ + +ST_RET mp_output_resp (MMSREQ_IND *indptr) + { + return (_mms_send_null_resp (indptr,MMSOP_OUTPUT)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_output_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the output response. */ +/************************************************************************/ + +ST_RET mpl_output_resp (ST_UINT32 invoke_id) + { + return (_mms_fin_null_resp (invoke_id,MMSOP_OUTPUT)); + } +#endif diff --git a/mmslib/mmsle/rs_rddwn.c b/mmslib/mmsle/rs_rddwn.c new file mode 100644 index 0000000..f5d6efa --- /dev/null +++ b/mmslib/mmsle/rs_rddwn.c @@ -0,0 +1,251 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_rddwn.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of request domain */ +/* download. It decodes the request domain download request */ +/* (indication) & encodes the request domain download response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 05 Remove "thisFileName" */ +/* 12/20/01 JRB 04 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 03 Added SD_CONST modifiers */ +/* 03/23/99 MDE 02 Changes to decode buffer allocation scheme */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 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_pdom.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static RDDWN_REQ_INFO *req_info; + +static ST_CHAR **cap_ptr; +static ST_INT max_capabilities; +static ST_INT max_fnames; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID rddwn_fname_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID rddwn_get_sharable (ASN1_DEC_CTXT *aCtx); +static ST_VOID rddwn_get_cap (ASN1_DEC_CTXT *aCtx); +static ST_VOID rddwn_cap_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID rddwn_cap_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID rddwn_get_dname (ASN1_DEC_CTXT *aCtx); +static ST_VOID rddwn_fname_cstr_done (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_rddwn_req */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_rddwn_req (ASN1_DEC_CTXT *aCtx) + { +ST_INT req_size; + + MLOG_CDEC0 ("Request Domain Download Request"); + + +#if defined(FIXED_DECBUF) + max_fnames = m_sv_max_file_names; + max_capabilities = m_sv_max_rqdlnl_cap; + req_size = mmsl_dec_info_size; +#else + max_capabilities = (_mmsdec_msglen/2); + max_fnames = (_mmsdec_msglen/2); + if (m_sv_max_rqdlnl_cap && (max_capabilities > m_sv_max_rqdlnl_cap)) + max_capabilities = m_sv_max_rqdlnl_cap; + if (m_sv_max_file_names && (max_fnames > m_sv_max_file_names)) + max_fnames = m_sv_max_file_names; + req_size = sizeof(RDDWN_REQ_INFO) + + (max_fnames * sizeof(FILE_NAME)) + + (max_capabilities * sizeof(ST_CHAR *)); +#endif + +/* get storage for request information */ + req_info = (RDDWN_REQ_INFO *) _m_get_dec_buf (aCtx, req_size); + cap_ptr = (ST_CHAR **) (req_info + 1); + ASN1R_TAG_ADD (aCtx, CTX, 0,rddwn_get_dname); + } + +/************************************************************************/ +/* rddwn_get_dname */ +/* request domain download request is being decoded: domain name */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID rddwn_get_dname (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("rddwn_get_dname"); + + if (asn1r_get_identifier (aCtx, req_info->dname)) /* read the domain name */ + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1, rddwn_cap_cstr); + } + +/************************************************************************/ +/* rddwn_cap_cstr */ +/* request domain download request is being decoded: capability list */ +/* constructor was encountered. */ +/************************************************************************/ + +static ST_VOID rddwn_cap_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("rddwn_cap_cstr"); + + ASN1R_TAG_ADD (aCtx, UNI,VISTR_CODE,rddwn_get_cap); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = rddwn_cap_cstr_done; + } + +/************************************************************************/ +/* rddwn_get_cap */ +/* request domain download request is being decoded: capability was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID rddwn_get_cap (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("rddwn_get_cap"); + + req_info->num_of_capab++; /* increment # of capabilities */ + if (req_info->num_of_capab > max_capabilities) + { + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + + /* copy capability back onto itself shifted by one character */ + *cap_ptr = (ST_CHAR *) aCtx->asn1r_field_ptr - 1; + if (asn1r_get_vstr (aCtx, *cap_ptr)) + { /* capability is too ST_INT32 */ + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + cap_ptr++; /* point to where next will go */ + + ASN1R_TAG_ADD (aCtx, UNI,VISTR_CODE,rddwn_get_cap); + } + +/************************************************************************/ +/* rddwn_cap_cstr_done */ +/* request domain download request is being decoded: capability list */ +/* constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID rddwn_cap_cstr_done (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, CTX,2,rddwn_get_sharable); + } + +/************************************************************************/ +/* rddwn_get_sharable */ +/* request domain download request is being decoded: sharable was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID rddwn_get_sharable (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("rddwn_get_sharable"); + + /* read sharable from the received message */ + if (asn1r_get_bool (aCtx, &(req_info->sharable))) + { /* sharable is too ST_INT32 */ + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,4,rddwn_fname_cstr); + } + +/************************************************************************/ +/* rddwn_fname_cstr */ +/* request domain download request is being decoded: filename cstr was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID rddwn_fname_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("rddwn_fname_cstr"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = rddwn_fname_cstr_done; + +/* In the case of a request domain download request the file names are */ +/* put right after the cabability string pointers. The max number of */ +/* these file names is the same worst case as the capability strings. */ + + _ms_get_mms_fname (aCtx, (FILE_NAME *) cap_ptr, max_fnames, &req_info->num_of_fname); + } + +/************************************************************************/ +/* rddwn_fname_cstr_done */ +/* request domain download request is being decoded: file name list */ +/* constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID rddwn_fname_cstr_done (ASN1_DEC_CTXT *aCtx) + { +ST_INT req_size; + /* find actual size for request info */ + req_size = sizeof (RDDWN_REQ_INFO) + + (sizeof (ST_CHAR *) * req_info->num_of_capab) + + (sizeof (FILE_NAME) * req_info->num_of_fname); + + /* give back unused storage */ + _mms_dec_info = (*m_realloc_os_fun) (_mms_dec_info,req_size); + req_info = (RDDWN_REQ_INFO *) _mms_dec_info; + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_rddwn_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the request domain download response. */ +/************************************************************************/ + +ST_RET mp_rddwn_resp (MMSREQ_IND *indptr) + { + return (_mms_send_null_resp (indptr,MMSOP_REQ_DOM_DOWN)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_rddwn_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the request domain download response. */ +/************************************************************************/ + +ST_RET mpl_rddwn_resp (ST_UINT32 invoke_id) + { + return (_mms_fin_null_resp (invoke_id,MMSOP_REQ_DOM_DOWN)); + } +#endif diff --git a/mmslib/mmsle/rs_rdupl.c b/mmslib/mmsle/rs_rdupl.c new file mode 100644 index 0000000..ae8d25b --- /dev/null +++ b/mmslib/mmsle/rs_rdupl.c @@ -0,0 +1,157 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_rdupl.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of request domain */ +/* upload. It decodes the request domain upload request */ +/* (indication) & encodes the request domain upload response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------ */ +/* 03/11/04 GLB 05 Remove "thisFileName" */ +/* 12/20/01 JRB 04 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 03 Added SD_CONST modifiers */ +/* 03/23/99 MDE 02 Changes to decode buffer allocation scheme */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pdom.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static RDUPL_REQ_INFO *req_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : */ +static ST_INT max_fnames; + +static ST_VOID rdupl_fname_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID rdupl_get_dname (ASN1_DEC_CTXT *aCtx); +static ST_VOID rdupl_fname_cstr_done (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_rdupl_req */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_rdupl_req (ASN1_DEC_CTXT *aCtx) + { +ST_INT req_size; + + MLOG_CDEC0 ("Request Domain Upload Request"); + +#if defined(FIXED_DECBUF) + max_fnames = m_sv_max_file_names; + req_size = mmsl_dec_info_size; +#else + max_fnames = (_mmsdec_msglen/2); + if (m_sv_max_file_names && (max_fnames > m_sv_max_file_names)) + max_fnames = m_sv_max_file_names; + req_size = sizeof (RDUPL_REQ_INFO) + (max_fnames * sizeof (FILE_NAME)); +#endif + +/* get storage for request information */ + req_info = (RDUPL_REQ_INFO *) _m_get_dec_buf (aCtx, req_size); + ASN1R_TAG_ADD (aCtx, CTX, 0,rdupl_get_dname); + } + +/************************************************************************/ +/* rdupl_get_dname */ +/* request domain upload request is being decoded: domain name was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID rdupl_get_dname (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("rdupl_get_dname"); + + if (asn1r_get_identifier (aCtx, req_info->dname)) /* read the domain name */ + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,1,rdupl_fname_cstr); + } + +/************************************************************************/ +/* rdupl_fname_cstr */ +/* request domain upload request is being decoded: filename cstr was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID rdupl_fname_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("rdupl_fname_cstr"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = rdupl_fname_cstr_done; + _ms_get_mms_fname (aCtx, (FILE_NAME *)(req_info + 1), max_fnames, + &req_info->num_of_fname); + } + +/************************************************************************/ +/* rdupl_fname_cstr_done */ +/* request domain upload request is being decoded: file name list */ +/* constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID rdupl_fname_cstr_done (ASN1_DEC_CTXT *aCtx) + { +ST_INT req_size; + /* find actual size for request info */ + req_size = sizeof (RDUPL_REQ_INFO) + + (sizeof (FILE_NAME) * req_info->num_of_fname); + + /* give back unused storage */ + _mms_dec_info = (*m_realloc_os_fun) (_mms_dec_info,req_size); + req_info = (RDUPL_REQ_INFO *) _mms_dec_info; + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_rdupl_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the request domain upload response. */ +/************************************************************************/ + +ST_RET mp_rdupl_resp (MMSREQ_IND *indptr) + { + return (_mms_send_null_resp (indptr,MMSOP_REQ_DOM_UPL)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_rdupl_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the request domain upload response. */ +/************************************************************************/ + +ST_RET mpl_rdupl_resp (ST_UINT32 invoke_id) + { + return (_mms_fin_null_resp (invoke_id,MMSOP_REQ_DOM_UPL)); + } +#endif diff --git a/mmslib/mmsle/rs_relct.c b/mmslib/mmsle/rs_relct.c new file mode 100644 index 0000000..5d438bd --- /dev/null +++ b/mmslib/mmsle/rs_relct.c @@ -0,0 +1,148 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_relctrl.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of relinquish */ +/* semaphore control. It decodes the relinquish control request */ +/* (indication) and encodes the relinquish control response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 08/28/03 EJV 05 Corr spelling for 'receive'. */ +/* 12/20/01 JRB 04 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 03 Added SD_CONST modifiers */ +/* 03/23/99 MDE 02 Changes to decode buffer allocation scheme */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_psem.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static RELCTRL_REQ_INFO *req_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID relctrl_sem_name_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID relctrl_objname_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID relctrl_sem_name_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID relctrl_get_named_token (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_relctrl_req */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_relctrl_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Relinquish Control Request"); + req_info = (RELCTRL_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (RELCTRL_REQ_INFO)); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, relctrl_sem_name_cstr); + } + +/************************************************************************/ +/* relctrl_sem_name_cstr */ +/* Decoding relinquish control request: semaphore name constructor was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID relctrl_sem_name_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("relctrl_sem_name_cstr"); + req_info->named_token_pres = SD_FALSE; /* set default value */ + _ms_get_mms_objname (aCtx, &req_info->sem_name, relctrl_objname_done); + } + +/************************************************************************/ +/* relctrl_objname_done */ +/* Decoding take control request: Semaphore name has been obtained */ +/************************************************************************/ + +static ST_VOID relctrl_objname_done (ASN1_DEC_CTXT *aCtx) + { + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = relctrl_sem_name_cstr_done; + } + +/************************************************************************/ +/* relctrl_sem_name_cstr_done */ +/* Decoding relinquish control request: semaphore name contructor done */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID relctrl_sem_name_cstr_done (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, CTX, 1, relctrl_get_named_token ); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* relctrl_get_named_token */ +/* Decoding relinquish control request: named token was encountered. */ +/************************************************************************/ + +static ST_VOID relctrl_get_named_token (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("relctrl_get_named_token"); + + req_info->named_token_pres = SD_TRUE; /* set named token present */ + + /* read named token from received message */ + if (asn1r_get_identifier (aCtx, req_info->named_token)) + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_relctrl_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the relinquish control response. */ +/************************************************************************/ + +ST_RET mp_relctrl_resp (MMSREQ_IND *indptr) + { + return (_mms_send_null_resp (indptr,MMSOP_REL_CONTROL)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_relctrl_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the relinquish control response. */ +/************************************************************************/ + +ST_RET mpl_relctrl_resp (ST_UINT32 invoke_id) + { + return (_mms_fin_null_resp (invoke_id,MMSOP_REL_CONTROL)); + } +#endif diff --git a/mmslib/mmsle/rs_renam.c b/mmslib/mmsle/rs_renam.c new file mode 100644 index 0000000..9d01190 --- /dev/null +++ b/mmslib/mmsle/rs_renam.c @@ -0,0 +1,232 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_rename.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of the Rename */ +/* service. It decodes the Rename request (indication) and */ +/* encodes the Rename response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 04/28/00 JRB 04 Lint cleanup */ +/* 09/13/99 MDE 03 Added SD_CONST modifiers */ +/* 03/23/99 MDE 02 Changes to decode buffer allocation scheme */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pvmd.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static RENAME_REQ_INFO *info; + +static ST_VOID rename_ext_objclass (ASN1_DEC_CTXT *aCtx); +static ST_VOID rename_get_objclass (ASN1_DEC_CTXT *aCtx); +#ifdef CS_SUPPORT +static ST_VOID rename_get_cs_objclass (ASN1_DEC_CTXT *aCtx); +static ST_VOID rename_cs_objclass_done (ASN1_DEC_CTXT *aCtx); +#endif +static ST_VOID rename_ext_objclass_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID rename_get_curname (ASN1_DEC_CTXT *aCtx); +static ST_VOID rename_curname_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID rename_curname_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID rename_get_new_ident (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_rename_req */ +/* This function is called from MMSDEC when the opcode of a request */ +/* PDU for this operation is decoded. Setup state machine function */ +/* pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_rename_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Rename Request"); + + info = (RENAME_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (RENAME_REQ_INFO)); + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,0,rename_ext_objclass); + } + +/************************************************************************/ +/* rename_ext_objclass */ +/* Rename response is being decoded: object class parameter has */ +/* been encountered. */ +/************************************************************************/ + +static ST_VOID rename_ext_objclass (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("rename_ext_objclass"); + + ASN1R_TAG_ADD (aCtx, CTX, 0,rename_get_objclass); +#ifdef CS_SUPPORT + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,1,rename_get_cs_objclass); +#endif + } + +/************************************************************************/ +/* rename_get_objclass */ +/* Rename response is being decoded: object class parameter has */ +/* been encountered. */ +/************************************************************************/ + +static ST_VOID rename_get_objclass (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("rename_get_objclass"); + /* read the object class */ + if (asn1r_get_i16 (aCtx, &info->obj.mms_class) || + info->obj.mms_class < 0 || + info->obj.mms_class > 11) + { + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + return; + } + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = rename_ext_objclass_done; + } + +#ifdef CS_SUPPORT +/************************************************************************/ +/* rename_get_cs_objclass */ +/* Rename response is being decoded: CS object class parameter has */ +/* been encountered. The contents here are a ANY, defined by CS. */ +/************************************************************************/ + +static ST_VOID rename_get_cs_objclass (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("rename_get_cs_objclass"); + + info->cs_objclass_pres = SD_TRUE; /* set flag for CS object */ + info->obj.cs.len = aCtx->asn1r_elmnt_len; /* save pointer and len */ + info->obj.cs.cs_class = aCtx->asn1r_field_ptr; + + asn1r_parse_next (aCtx, rename_cs_objclass_done); /* ensure valid ASN.1 CS data */ + } + +/************************************************************************/ +/* rename_cs_objclass_done */ +/************************************************************************/ + +static ST_VOID rename_cs_objclass_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("rename_cs_objclass_done"); + /* OK for extended object class to be done */ + aCtx->asn1r_c_done_fun[aCtx->asn1r_msg_level] = rename_ext_objclass_done; + } +#endif + +/************************************************************************/ +/* rename_ext_objclass_done */ +/* extendedObjectClass constructor done function. Set up to get Scope */ +/************************************************************************/ + +static ST_VOID rename_ext_objclass_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("rename_extobj_class_done"); + + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,1,rename_get_curname); /* get current Name */ + } + +/************************************************************************/ +/* rename_get_curname */ +/* Rename response is being decoded: object name constructor has */ +/* been encountered, set up to get the current name */ +/************************************************************************/ + +static ST_VOID rename_get_curname (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("rename_get_curname"); + + _ms_get_mms_objname (aCtx, &info->cur_name, rename_curname_done); + } + +/************************************************************************/ +/* rename_curname_done */ +/* rename request is being decoded: current name has been obtained. */ +/************************************************************************/ + +static ST_VOID rename_curname_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("rename_curname_done"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = rename_curname_cstr_done; + } + +/************************************************************************/ +/* rename_curname_cstr_done */ +/* rename request is being decoded: current name constr done was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID rename_curname_cstr_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("rename_curname_cstr_done"); + + ASN1R_TAG_ADD (aCtx, CTX,2,rename_get_new_ident); + } + +/************************************************************************/ +/* rename_get_new_ident */ +/* Rename response is being decoded: new identifier parameter was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID rename_get_new_ident (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("rename_get_new_ident"); + + if (asn1r_get_identifier (aCtx, info->new_ident)) /* new identifier */ + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_rename_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the rename response. */ +/************************************************************************/ + +ST_RET mp_rename_resp (MMSREQ_IND *indptr) + { + return (_mms_send_null_resp (indptr,MMSOP_RENAME)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_rename_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the rename response. */ +/************************************************************************/ + +ST_RET mpl_rename_resp (ST_UINT32 invoke_id) + { + return (_mms_fin_null_resp (invoke_id,MMSOP_RENAME)); + } +#endif diff --git a/mmslib/mmsle/rs_reset.c b/mmslib/mmsle/rs_reset.c new file mode 100644 index 0000000..0fcdf22 --- /dev/null +++ b/mmslib/mmsle/rs_reset.c @@ -0,0 +1,109 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_reset.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of the reset */ +/* operation. It decodes the reset request (indication) and */ +/* encodes the reset response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 05 Remove "thisFileName" */ +/* 12/20/01 JRB 04 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 03 Added SD_CONST modifiers */ +/* 03/23/99 MDE 02 Changes to decode buffer allocation scheme */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pprg.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static RESET_REQ_INFO *req_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID reset_get_piname (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_reset_req */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_reset_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Reset Request"); + + +/* get storage for request information */ + req_info = (RESET_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (RESET_REQ_INFO)); + ASN1R_TAG_ADD (aCtx, CTX, 0, reset_get_piname); + } + +/************************************************************************/ +/* reset_get_piname */ +/* reset request is being decoded: get the program invocation name. */ +/************************************************************************/ + +static ST_VOID reset_get_piname (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("reset_get_piname"); + + /* read program invocation name from message */ + if (asn1r_get_identifier (aCtx, req_info->piname)) + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_reset_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the reset response. */ +/************************************************************************/ + +ST_RET mp_reset_resp (MMSREQ_IND *indptr) + { + return (_mms_send_null_resp (indptr,MMSOP_RESET)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_reset_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the reset response. */ +/************************************************************************/ + +ST_RET mpl_reset_resp (ST_UINT32 invoke_id) + { + return (_mms_fin_null_resp (invoke_id,MMSOP_RESET)); + } +#endif diff --git a/mmslib/mmsle/rs_resum.c b/mmslib/mmsle/rs_resum.c new file mode 100644 index 0000000..d6dc3f6 --- /dev/null +++ b/mmslib/mmsle/rs_resum.c @@ -0,0 +1,157 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_resume.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of the resume */ +/* operation. It decodes the resume request (indication) and */ +/* encodes the resume response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 05 Remove "thisFileName" */ +/* 12/20/01 JRB 04 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 03 Added SD_CONST modifiers */ +/* 03/23/99 MDE 02 Changes to decode buffer allocation scheme */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pprg.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static RESUME_REQ_INFO *req_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID resume_get_arg (ASN1_DEC_CTXT *aCtx); +static ST_VOID resume_get_piname (ASN1_DEC_CTXT *aCtx); +static ST_VOID extern_done (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_resume_req */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_resume_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Resume Request"); + + +/* get storage for request information */ + req_info = (RESUME_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (RESUME_REQ_INFO)); + ASN1R_TAG_ADD (aCtx, CTX, 0, resume_get_piname); + } + +/************************************************************************/ +/* resume_get_piname */ +/* resume request is being decoded: get the program invocation name. */ +/************************************************************************/ + +static ST_VOID resume_get_piname (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("resume_get_piname"); + + /* read program invocation name from message */ + if (asn1r_get_identifier (aCtx, req_info->piname)) + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + + ASN1R_TAG_ADD (aCtx, CTX, 1, resume_get_arg); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + +/* If MMS IS, Check for ENCODED string */ +#ifndef MMS_LITE + if (mms_chan_info[_mmsdechan].version) /* IS */ +#else + if (mmsl_version) /* IS */ +#endif + _ms_chk_for_extern (aCtx, &req_info->resume_arg_len, + &req_info->resume_arg, + extern_done); + } + +/************************************************************************/ +/* resume_get_arg */ +/* resume request is being decoded: get the resume argument. */ +/************************************************************************/ + +static ST_VOID resume_get_arg (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("resume_get_arg"); + + req_info->resume_arg_pres = SD_TRUE; /* set resume arg pres */ + + /* copy resume argument back onto itself shifted by one ST_CHAR */ + req_info->resume_arg = aCtx->asn1r_field_ptr - 1; + + req_info->resume_arg_type = ARG_TYPE_SIMPLE; + if (asn1r_get_vstr (aCtx, (ST_CHAR *)req_info->resume_arg)) + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* extern_done */ +/************************************************************************/ + +static ST_VOID extern_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("extern_done"); + + req_info->resume_arg_pres = SD_TRUE; /* set resume arg pres */ + req_info->resume_arg_type = ARG_TYPE_ENCODED; + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_resume_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the resume response. */ +/************************************************************************/ + +ST_RET mp_resume_resp (MMSREQ_IND *indptr) + { + return (_mms_send_null_resp (indptr,MMSOP_RESUME)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_resume_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the resume response. */ +/************************************************************************/ + +ST_RET mpl_resume_resp (ST_UINT32 invoke_id) + { + return (_mms_fin_null_resp (invoke_id,MMSOP_RESUME)); + } +#endif diff --git a/mmslib/mmsle/rs_rsent.c b/mmslib/mmsle/rs_rsent.c new file mode 100644 index 0000000..a39dbb5 --- /dev/null +++ b/mmslib/mmsle/rs_rsent.c @@ -0,0 +1,305 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_rsentry.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of report semaphore */ +/* entry status. It decodes the report semaphore entry status */ +/* request (indication) and encodes the report semaphore status */ +/* response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 08 Remove "thisFileName" */ +/* 08/28/03 EJV 07 Corr spelling for 'receive'. */ +/* 12/20/01 JRB 06 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 05 Added SD_CONST modifiers */ +/* 03/23/99 MDE 04 Changes to decode buffer allocation scheme */ +/* 06/15/98 MDE 03 Changes to allow compile under C++ */ +/* 07/03/97 MDE 02 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_psem.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static RSENTRY_REQ_INFO *req_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID rsentry_start_after_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID rsentry_get_start_after (ASN1_DEC_CTXT *aCtx); +static ST_VOID rsentry_start_after_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID rsentry_get_state (ASN1_DEC_CTXT *aCtx); +static ST_VOID rsentry_sem_name_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID rsentry_objname_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID rsentry_sem_name_cstr (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_rsentry_req */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_rsentry_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Report Semaphore Entry Status Request"); + + +/* get storage for request information */ + req_info = (RSENTRY_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (RSENTRY_REQ_INFO)); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, rsentry_sem_name_cstr); + } + +/************************************************************************/ +/* rsentry_sem_name_cstr */ +/* Decoding report semaphore entry status request: semaphore name */ +/* constructor was encountered. */ +/************************************************************************/ + +static ST_VOID rsentry_sem_name_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("rsentry_sem_name_cstr"); + + _ms_get_mms_objname (aCtx, &req_info->sem_name, rsentry_objname_done); + } + +/************************************************************************/ +/* rsentry_objname_done */ +/* Decoding a Report Semaphore Entry Status Request: Semaphore name has */ +/* been obtained. */ +/************************************************************************/ + +static ST_VOID rsentry_objname_done (ASN1_DEC_CTXT *aCtx) + { + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = rsentry_sem_name_cstr_done; + } + +/************************************************************************/ +/* rsentry_sem_name_cstr_done */ +/* Decoding report semaphore entry status request: semaphore name */ +/* contructor done was encountered. */ +/************************************************************************/ + +static ST_VOID rsentry_sem_name_cstr_done (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, CTX, 1, rsentry_get_state); + } + +/************************************************************************/ +/* rsentry_get_state */ +/* Decoding report semaphore entry status request: semaphore state was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID rsentry_get_state (ASN1_DEC_CTXT *aCtx) + { +ST_INT16 state; + + MLOG_CDEC0 ("rsentry_get_state"); + + /* read semaphore state from received message */ + if (asn1r_get_i16 (aCtx, &state)) + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + if ((state < 0) || (state > 2)) /* validate range of state [0..2]*/ + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + else + req_info->state = state; /* valid semaphore state */ + + ASN1R_TAG_ADD (aCtx, CTX, 2, rsentry_get_start_after); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 2, rsentry_start_after_cstr); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* rsentry_get_start_after */ +/* Decoding report semaphore entry status request: entry id to start */ +/* after primitive was encountered. */ +/************************************************************************/ + +static ST_VOID rsentry_get_start_after (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("rsentry_get_start_after"); + + req_info->start_after_pres = SD_TRUE; /* set start after name present */ + + /* decode entry id onto itself, shifted by one character */ + req_info->start_after = aCtx->asn1r_field_ptr - 1; + + /* read entry id from message */ + if (asn1r_get_octstr (aCtx, req_info->start_after)) + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + req_info->sa_len = aCtx->asn1r_octetcount; /* save entry id length */ + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* rsentry_start_after_cstr */ +/* Decoding report semaphore entry status request: entry id to start */ +/* after constructor was encountered. */ +/************************************************************************/ + +static ST_VOID rsentry_start_after_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("rsentry_start_after_cstr"); + + req_info->start_after_pres = SD_TRUE; /* set start after name present */ + + /* decode entry id onto itself, shifted by one character */ + req_info->start_after = aCtx->asn1r_field_ptr - 1; + + /* set up where to go when done decoding cstr */ + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = rsentry_start_after_cstr_done; + + /* read entry id from the received message */ + asn1r_get_octstr_cstr (aCtx, _mmsdec_msglen, req_info->start_after); + } + +/************************************************************************/ +/* rsentry_start_after_cstr_done */ +/* Decoding report semaphore entry status request: entry id to start */ +/* after constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID rsentry_start_after_cstr_done (ASN1_DEC_CTXT *aCtx) + { + + req_info->sa_len = aCtx->asn1r_octetcount; /* save the start after length */ + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_rsentry_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the report pool semaphore entry status */ +/* response. */ +/************************************************************************/ + +ST_RET mp_rsentry_resp (MMSREQ_IND *indptr, RSENTRY_RESP_INFO *info_ptr) + { + return (_mms_resp_send (MMSOP_REP_SEMENTRY,indptr, + M_CAST_MK_FUN (_ms_mk_rsentry_resp), + (ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_rsentry_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the report pool semaphore entry status response. */ +/************************************************************************/ + +ST_RET mpl_rsentry_resp (ST_UINT32 invoke_id, RSENTRY_RESP_INFO *info_ptr) + { + return (_mms_resp_fin (MMSOP_REP_SEMENTRY,invoke_id, + M_CAST_MK_FUN (_ms_mk_rsentry_resp), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_rsentry_resp */ +/* Construct a report semaphore entry status response. */ +/************************************************************************/ + +ST_VOID _ms_mk_rsentry_resp (ASN1_ENC_CTXT *aCtx, RSENTRY_RESP_INFO *info) + { +SEMAPHORE_ENTRY *entry_ptr; +ST_INT i; + + asn1r_strt_constr (aCtx); /* start the sequence constr */ + + if (!info->more_follows) /* if not default value */ + { + asn1r_wr_bool (aCtx, info->more_follows); /* write more follows indicator */ + asn1r_fin_prim (aCtx, 1,CTX); + } + + asn1r_strt_constr (aCtx); /* start the ctx 0 constr */ + + entry_ptr = (SEMAPHORE_ENTRY *) (info + 1); + entry_ptr += info->num_of_sent - 1; /* point to last sem entry */ + for (i = 0; i < info->num_of_sent; i++) + { + asn1r_strt_constr (aCtx); /* start the sequence constr */ + /* write the entry id */ + if (!entry_ptr->rel_conn_lost) + { /* NOT the default value */ + asn1r_wr_bool (aCtx, entry_ptr->rel_conn_lost); + asn1r_fin_prim (aCtx, 7,CTX); + } + + if (entry_ptr->abrt_on_timeout_pres) + { + asn1r_wr_bool (aCtx, entry_ptr->abrt_on_timeout); + asn1r_fin_prim (aCtx, 6,CTX); + } + + if (entry_ptr->rem_timeout_pres) + { + asn1r_wr_u32 (aCtx, entry_ptr->rem_timeout); + asn1r_fin_prim (aCtx, 5,CTX); + } + + if (entry_ptr->priority != 64) + { /* NOT the default value */ + asn1r_wr_u8 (aCtx, entry_ptr->priority); + asn1r_fin_prim (aCtx, 4,CTX); + } + + if (entry_ptr->named_token_pres) + { + asn1r_wr_vstr (aCtx, entry_ptr->named_token); + asn1r_fin_prim (aCtx, 3,CTX); + } + + asn1r_strt_constr (aCtx); /* start the ctx 1 constr */ + asn1r_wr_delmnt (aCtx, entry_ptr->app_ref,entry_ptr->app_ref_len); + asn1r_fin_constr (aCtx, 2,CTX,DEF); /* finish ctx 1 constructor */ + + asn1r_wr_i8 (aCtx, entry_ptr->entry_class); /* write entry class */ + asn1r_fin_prim (aCtx, 1,CTX); + + asn1r_wr_octstr (aCtx, entry_ptr->entry_id, entry_ptr->ei_len); + asn1r_fin_prim (aCtx, 0,CTX); + + asn1r_fin_constr (aCtx, SEQ_CODE,UNI,DEF); /* finish sequence constructor */ + entry_ptr--; + } + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* finish ctx 0 constructor */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_REP_SEMENTRY,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsle/rs_rspoo.c b/mmslib/mmsle/rs_rspoo.c new file mode 100644 index 0000000..efe1917 --- /dev/null +++ b/mmslib/mmsle/rs_rspoo.c @@ -0,0 +1,191 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_rspool.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of report pool */ +/* semaphore status. It decodes the report pool semaphroe status */ +/* request (indication) and encodes the report pool semaphore */ +/* status response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 08 Remove "thisFileName" */ +/* 08/28/03 EJV 07 Corr spelling for 'receive'. */ +/* 12/20/01 JRB 06 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 05 Added SD_CONST modifiers */ +/* 03/23/99 MDE 04 Changes to decode buffer allocation scheme */ +/* 06/15/98 MDE 03 Changes to allow compile under C++ */ +/* 07/03/97 MDE 02 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_psem.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static RSPOOL_REQ_INFO *req_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID rspool_get_start_after (ASN1_DEC_CTXT *aCtx); +static ST_VOID rspool_sem_name_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID rspool_objname_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID rspool_sem_name_cstr (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_rspool_req */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_rspool_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Report Pool Semaphore Status Request"); + + +/* get storage for request information */ + req_info = (RSPOOL_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (RSPOOL_REQ_INFO)); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, rspool_sem_name_cstr); + } + +/************************************************************************/ +/* rspool_sem_name_cstr */ +/* Decoding report semaphore status request: semaphore name constructor */ +/* was encountered. */ +/************************************************************************/ + +static ST_VOID rspool_sem_name_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("rspool_sem_name_cstr"); + + _ms_get_mms_objname (aCtx, &req_info->sem_name, rspool_objname_done); + } + +/************************************************************************/ +/* rspool_objname_done */ +/* Decoding Report Semaphore Status Response: Semaphore name has been */ +/* obtained */ +/************************************************************************/ + +static ST_VOID rspool_objname_done (ASN1_DEC_CTXT *aCtx) + { + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = rspool_sem_name_cstr_done; + } + +/************************************************************************/ +/* rspool_sem_name_cstr_done */ +/* Decoding report semaphore status request: semaphore name contructor */ +/* done was encountered. */ +/************************************************************************/ + +static ST_VOID rspool_sem_name_cstr_done (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, CTX, 1, rspool_get_start_after); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* rspool_get_start_after */ +/* Decoding report semaphore status request: application name to start */ +/* after was encountered. */ +/************************************************************************/ + +static ST_VOID rspool_get_start_after (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("rspool_get_start_after"); + + req_info->start_after_pres = SD_TRUE; + + /* read start after name from received message */ + if (asn1r_get_identifier (aCtx, req_info->start_after)) + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_rspool_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the report pool semaphore status response.*/ +/************************************************************************/ + +ST_RET mp_rspool_resp (MMSREQ_IND *indptr, RSPOOL_RESP_INFO *info_ptr) + { + return (_mms_resp_send (MMSOP_REP_SEMPOOL,indptr, + M_CAST_MK_FUN (_ms_mk_rspool_resp), + (ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_rspool_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the report pool semaphore status response. */ +/************************************************************************/ + +ST_RET mpl_rspool_resp (ST_UINT32 invoke_id, RSPOOL_RESP_INFO *info_ptr) + { + return (_mms_resp_fin (MMSOP_REP_SEMPOOL,invoke_id, + M_CAST_MK_FUN (_ms_mk_rspool_resp), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_rspool_resp */ +/* Construct a report semaphore status response. */ +/************************************************************************/ + +ST_VOID _ms_mk_rspool_resp (ASN1_ENC_CTXT *aCtx, RSPOOL_RESP_INFO *info) + { +TOKEN_ID *token_ptr; +ST_INT i; + + asn1r_strt_constr (aCtx); /* start the sequence constr */ + + asn1r_wr_bool (aCtx, info->more_follows); /* write more follows indicator */ + asn1r_fin_prim (aCtx, 1,CTX); + + asn1r_strt_constr (aCtx); /* start the ctx 0 constr */ + token_ptr = (TOKEN_ID *) (info + 1); + token_ptr += info->num_of_tokens - 1; /* point to last named token */ + for (i = 0; i < info->num_of_tokens; i++) + { + asn1r_wr_vstr (aCtx, token_ptr->named_token); /* write the named token */ + asn1r_fin_prim (aCtx, token_ptr->token_tag,CTX); + token_ptr--; + } + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* finish ctx 0 constructor */ + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_REP_SEMPOOL,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsle/rs_rssta.c b/mmslib/mmsle/rs_rssta.c new file mode 100644 index 0000000..de70631 --- /dev/null +++ b/mmslib/mmsle/rs_rssta.c @@ -0,0 +1,138 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_rsstat.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of report semaphore */ +/* status. It decodes the report semaphore status request */ +/* (indication) and encodes the report semaphore status response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 07 Remove "thisFileName" */ +/* 12/20/01 JRB 06 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 05 Added SD_CONST modifiers */ +/* 03/23/99 MDE 04 Changes to decode buffer allocation scheme */ +/* 06/15/98 MDE 03 Changes to allow compile under C++ */ +/* 07/03/97 MDE 02 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_psem.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static RSSTAT_REQ_INFO *req_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID rsstat_objname_done (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_rsstat_req */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_rsstat_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Report Semaphore Status Request"); + + + /* get storage for request information */ + req_info = (RSSTAT_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (RSSTAT_REQ_INFO)); + _ms_get_mms_objname (aCtx, &req_info->sem_name, rsstat_objname_done); + } + +/************************************************************************/ +/* rsstat_objname_done */ +/* Decoding report semaphore status request: semaphore name obtained */ +/************************************************************************/ + +static ST_VOID rsstat_objname_done (ASN1_DEC_CTXT *aCtx) + { + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_rsstat_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the report semaphore status response. */ +/************************************************************************/ + +ST_RET mp_rsstat_resp (MMSREQ_IND *indptr, RSSTAT_RESP_INFO *info_ptr) + { + return (_mms_resp_send (MMSOP_REP_SEMSTAT,indptr, + M_CAST_MK_FUN (_ms_mk_rsstat_resp), + (ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_rsstat_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the report semaphore status response. */ +/************************************************************************/ + +ST_RET mpl_rsstat_resp (ST_UINT32 invoke_id, RSSTAT_RESP_INFO *info_ptr) + { + return (_mms_resp_fin (MMSOP_REP_SEMSTAT,invoke_id, + M_CAST_MK_FUN (_ms_mk_rsstat_resp), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_rsstat_resp */ +/* Construct a report semaphore status response. */ +/************************************************************************/ + +ST_VOID _ms_mk_rsstat_resp (ASN1_ENC_CTXT *aCtx, RSSTAT_RESP_INFO *info) + { + asn1r_strt_constr (aCtx); /* start the sequence constr */ + + asn1r_wr_u16 (aCtx, info->num_of_hung); /* write number of hung tokens */ + asn1r_fin_prim (aCtx, 4,CTX); + + asn1r_wr_u16 (aCtx, info->num_of_owned); /* write number of owned tokens */ + asn1r_fin_prim (aCtx, 3,CTX); + + asn1r_wr_u16 (aCtx, info->num_of_tokens); /* write number of tokens */ + asn1r_fin_prim (aCtx, 2,CTX); + + asn1r_wr_i16 (aCtx, info->tclass); /* write the class */ + asn1r_fin_prim (aCtx, 1,CTX); + + asn1r_wr_bool (aCtx, info->mms_deletable); /* write the mms deletable */ + asn1r_fin_prim (aCtx, 0,CTX); + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_REP_SEMSTAT,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsle/rs_start.c b/mmslib/mmsle/rs_start.c new file mode 100644 index 0000000..fb40feb --- /dev/null +++ b/mmslib/mmsle/rs_start.c @@ -0,0 +1,153 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_start.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of the start */ +/* operation. It decodes the start request (indication) and */ +/* encodes the start response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 05 Remove "thisFileName" */ +/* 12/20/01 JRB 04 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 03 Added SD_CONST modifiers */ +/* 03/23/99 MDE 02 Changes to decode buffer allocation scheme */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pprg.h" +#include "asn1defs.h" + +/************************************************************************/ +/* Use global decode info pointer, case via define here */ + +static START_REQ_INFO *req_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID start_get_arg (ASN1_DEC_CTXT *aCtx); +static ST_VOID start_get_piname (ASN1_DEC_CTXT *aCtx); +static ST_VOID extern_done (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_start_req */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_start_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Start Request"); + req_info = (START_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (START_REQ_INFO)); + ASN1R_TAG_ADD (aCtx, CTX, 0, start_get_piname); + } + +/************************************************************************/ +/* start_get_piname */ +/* start request is being decoded: get the program invocation name. */ +/************************************************************************/ + +static ST_VOID start_get_piname (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("start_get_piname"); + + /* read program invocation name from message */ + if (asn1r_get_identifier (aCtx, req_info->piname)) + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + ASN1R_TAG_ADD (aCtx, CTX, 1, start_get_arg); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + +/* If MMS IS, Check for ENCODED string */ +#ifndef MMS_LITE + if (mms_chan_info[_mmsdechan].version) /* IS */ +#else + if (mmsl_version) /* IS */ +#endif + _ms_chk_for_extern (aCtx, &req_info->start_arg_len, + &req_info->start_arg, + extern_done); + } + +/************************************************************************/ +/* start_get_arg */ +/* start request is being decoded: get the start argument. */ +/************************************************************************/ + +static ST_VOID start_get_arg (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("start_get_arg"); + + req_info->start_arg_pres = SD_TRUE; /* set start arg pres */ + + /* copy start argument back onto itself shifted by one ST_CHAR */ + req_info->start_arg = aCtx->asn1r_field_ptr - 1; + + req_info->start_arg_type = ARG_TYPE_SIMPLE; + if (asn1r_get_vstr (aCtx, (ST_CHAR *)req_info->start_arg)) + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* extern_done */ +/************************************************************************/ + +static ST_VOID extern_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("extern_done"); + + req_info->start_arg_pres = SD_TRUE; /* set start arg pres */ + req_info->start_arg_type = ARG_TYPE_ENCODED; + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_start_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the start response. */ +/************************************************************************/ + +ST_RET mp_start_resp (MMSREQ_IND *indptr) + { + return (_mms_send_null_resp (indptr,MMSOP_START)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_start_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the start response. */ +/************************************************************************/ + +ST_RET mpl_start_resp (ST_UINT32 invoke_id) + { + return (_mms_fin_null_resp (invoke_id,MMSOP_START)); + } +#endif diff --git a/mmslib/mmsle/rs_stop.c b/mmslib/mmsle/rs_stop.c new file mode 100644 index 0000000..5c11e77 --- /dev/null +++ b/mmslib/mmsle/rs_stop.c @@ -0,0 +1,108 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_stop.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of the stop */ +/* operation. It decodes the stop request (indication) and */ +/* encodes the stop response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 05 Remove "thisFileName" */ +/* 12/20/01 JRB 04 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 03 Added SD_CONST modifiers */ +/* 03/23/99 MDE 02 Changes to decode buffer allocation scheme */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pprg.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static STOP_REQ_INFO *req_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID stop_get_piname (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_stop_req */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_stop_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Stop Request"); + + /* get storage for request information */ + req_info = (STOP_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (STOP_REQ_INFO)); + ASN1R_TAG_ADD (aCtx, CTX, 0, stop_get_piname); + } + +/************************************************************************/ +/* stop_get_piname */ +/* stop request is being decoded: get the program invocation name. */ +/************************************************************************/ + +static ST_VOID stop_get_piname (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("stop_get_piname"); + + /* read program invocation name from message */ + if (asn1r_get_identifier (aCtx, req_info->piname)) + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_stop_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the stop response. */ +/************************************************************************/ + +ST_RET mp_stop_resp (MMSREQ_IND *indptr) + { + return (_mms_send_null_resp (indptr,MMSOP_STOP)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_stop_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the stop response. */ +/************************************************************************/ + +ST_RET mpl_stop_resp (ST_UINT32 invoke_id) + { + return (_mms_fin_null_resp (invoke_id,MMSOP_STOP)); + } +#endif diff --git a/mmslib/mmsle/rs_store.c b/mmslib/mmsle/rs_store.c new file mode 100644 index 0000000..a24e380 --- /dev/null +++ b/mmslib/mmsle/rs_store.c @@ -0,0 +1,200 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_storedom.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of store domain */ +/* content. It decodes the store domain content request */ +/* (indication) & encodes the store domain content response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 05 Remove "thisFileName" */ +/* 12/20/01 JRB 04 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 03 Added SD_CONST modifiers */ +/* 03/23/99 MDE 02 Changes to decode buffer allocation scheme */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pdom.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static STOREDOM_REQ_INFO *req_info; + +static ST_INT max_fnames; +static ST_UCHAR *ar_start; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + + +static ST_VOID storedom_fname_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID storedom_fname_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID storedom_get_dname (ASN1_DEC_CTXT *aCtx); +static ST_VOID storedom_third_pty_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID third_pty_cstr_done (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_store_domain_req */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_store_domain_req (ASN1_DEC_CTXT *aCtx) + { +ST_INT req_size; + + MLOG_CDEC0 ("Store Domain Content Request"); + +#if defined(FIXED_DECBUF) + max_fnames = m_sv_max_file_names; + req_size = mmsl_dec_info_size; +#else + max_fnames = (_mmsdec_msglen/2); /* get storage for request info */ + if (m_sv_max_file_names && (max_fnames > m_sv_max_file_names)) + max_fnames = m_sv_max_file_names; + req_size = sizeof (STOREDOM_REQ_INFO) + (max_fnames * sizeof (FILE_NAME)); +#endif + +/* get storage for request information */ + req_info = (STOREDOM_REQ_INFO *) _m_get_dec_buf (aCtx, req_size); + ASN1R_TAG_ADD (aCtx, CTX, 0,storedom_get_dname); + } + +/************************************************************************/ +/* storedom_get_dname */ +/* store domain content request is being decoded: domain name was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID storedom_get_dname (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("storedom_get_dname"); + + if (asn1r_get_identifier (aCtx, req_info->dname)) /* read the domain name */ + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,1,storedom_fname_cstr); + } + +/************************************************************************/ +/* storedom_fname_cstr */ +/* store domain content request is being decoded: filename cstr was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID storedom_fname_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("storedom_fname_cstr"); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = storedom_fname_cstr_done; + _ms_get_mms_fname (aCtx, (FILE_NAME *)(req_info + 1), max_fnames, + &req_info->num_of_fname); + } + +/************************************************************************/ +/* storedom_fname_cstr_done */ +/* store domain content request is being decoded: file name list */ +/* constructor done was encountered. */ +/************************************************************************/ + +static ST_VOID storedom_fname_cstr_done (ASN1_DEC_CTXT *aCtx) + { +ST_INT req_size; + + MLOG_CDEC0 ("storedom_fname_cstr_done"); + + req_size = sizeof (STOREDOM_REQ_INFO) + + (sizeof (FILE_NAME) * req_info->num_of_fname); + + /* give back unused storage */ + _mms_dec_info = (*m_realloc_os_fun) (_mms_dec_info,req_size); + req_info = (STOREDOM_REQ_INFO *) _mms_dec_info; + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 2, storedom_third_pty_cstr); + ar_start = aCtx->asn1r_field_ptr; /* save in case third party rcvd */ + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* storedom_third_pty_cstr */ +/* store domain content request is being decoded: third party */ +/* cstr was encountered. */ +/************************************************************************/ + +static ST_VOID storedom_third_pty_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("storedom_get_third_pty"); + + req_info->third_pty_pres = SD_TRUE; /* set third party */ + req_info->third_pty = ar_start; /* save_start */ + *ar_start = '\x30'; /* change tag */ + + if (aCtx->asn1r_elmnt_len) + asn1r_parse_cstr_contents (aCtx, third_pty_cstr_done); + else + aCtx->asn1r_c_done_fun[ aCtx->asn1r_msg_level ] = third_pty_cstr_done; + } + +/************************************************************************/ +/* third_pty_cstr_done */ +/* store domain content request is being decoded: third party cstr */ +/* was encountered and read */ +/************************************************************************/ + +static ST_VOID third_pty_cstr_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("third_pty_cstr_done"); + + req_info->third_pty_len = aCtx->asn1r_field_ptr - ar_start; + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_storedom_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the store domain content response. */ +/************************************************************************/ + +ST_RET mp_storedom_resp (MMSREQ_IND *indptr) + { + return (_mms_send_null_resp (indptr,MMSOP_STORE_DOMAIN)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_storedom_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the store domain content response. */ +/************************************************************************/ + +ST_RET mpl_storedom_resp (ST_UINT32 invoke_id) + { + return (_mms_fin_null_resp (invoke_id,MMSOP_STORE_DOMAIN)); + } +#endif diff --git a/mmslib/mmsle/rs_takec.c b/mmslib/mmsle/rs_takec.c new file mode 100644 index 0000000..ddc8623 --- /dev/null +++ b/mmslib/mmsle/rs_takec.c @@ -0,0 +1,342 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_takectrl.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of take semaphore */ +/* control. It decodes the take control request (indication) and */ +/* encodes the take control response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 08 Remove "thisFileName" */ +/* 08/28/03 EJV 07 Corr spelling for 'receive'. */ +/* 12/20/01 JRB 06 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 05 Added SD_CONST modifiers */ +/* 03/23/99 MDE 04 Changes to decode buffer allocation scheme */ +/* 06/15/98 MDE 03 Changes to allow compile under C++ */ +/* 07/03/97 MDE 02 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_psem.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static TAKECTRL_REQ_INFO *req_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID takectrl_get_priority (ASN1_DEC_CTXT *aCtx); +static ST_VOID takectrl_get_acc_delay (ASN1_DEC_CTXT *aCtx); +static ST_VOID takectrl_get_ctrl_timeout (ASN1_DEC_CTXT *aCtx); +static ST_VOID takectrl_get_abrt_timeout (ASN1_DEC_CTXT *aCtx); +static ST_VOID takectrl_get_rel_conn_lost (ASN1_DEC_CTXT *aCtx); +static ST_VOID takectrl_app_preempt_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID takectrl_get_named_token (ASN1_DEC_CTXT *aCtx); +static ST_VOID takectrl_sem_name_cstr_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID takectrl_objname_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID takectrl_sem_name_cstr (ASN1_DEC_CTXT *aCtx); +static ST_VOID app_preempt_cstr_done (ASN1_DEC_CTXT *aCtx); + +static ST_UCHAR *ar_start; + + +/************************************************************************/ +/************************************************************************/ +/* mms_takectrl_req */ +/* This function is called from mmsdec when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_takectrl_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Take Control Request"); + + req_info = (TAKECTRL_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (TAKECTRL_REQ_INFO)); + ASN1R_TAG_ADD (aCtx, CTX |CONSTR, 0, takectrl_sem_name_cstr); + } + +/************************************************************************/ +/* takectrl_sem_name_cstr */ +/* Decoding take control request: semaphore name constructor was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID takectrl_sem_name_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("takectrl_sem_name_cstr"); + + /* get storage for request information */ + req_info->priority = MMS_NORM_PRIORITY; + req_info->rel_conn_lost = SD_TRUE; + _ms_get_mms_objname (aCtx, &req_info->sem_name, takectrl_objname_done); + } + +/************************************************************************/ +/* takectrl_objname_done */ +/* Decoding take control request: Semaphore name has been obtained */ +/************************************************************************/ + +static ST_VOID takectrl_objname_done (ASN1_DEC_CTXT *aCtx) + { + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = takectrl_sem_name_cstr_done; + } + +/************************************************************************/ +/* takectrl_sem_name_cstr_done */ +/* Decoding take control request: semaphore name contructor done was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID takectrl_sem_name_cstr_done (ASN1_DEC_CTXT *aCtx) + { + + ASN1R_TAG_ADD (aCtx, CTX, 1, takectrl_get_named_token ); + ASN1R_TAG_ADD (aCtx, CTX, 2, takectrl_get_priority ); + ASN1R_TAG_ADD (aCtx, CTX, 3, takectrl_get_acc_delay ); + ASN1R_TAG_ADD (aCtx, CTX, 4, takectrl_get_ctrl_timeout ); + ASN1R_TAG_ADD (aCtx, CTX, 5, takectrl_get_abrt_timeout); + ASN1R_TAG_ADD (aCtx, CTX, 6, takectrl_get_rel_conn_lost); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 7, takectrl_app_preempt_cstr ); + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + ar_start = aCtx->asn1r_field_ptr; + } + +/************************************************************************/ +/* takectrl_get_named_token */ +/* Decoding take control request: named token name was encountered. */ +/************************************************************************/ + +static ST_VOID takectrl_get_named_token (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("takectrl_get_named_token"); + + req_info->named_token_pres = SD_TRUE; /* set named token present */ + + /* read named token from received message */ + if (asn1r_get_identifier (aCtx, req_info->named_token)) + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + ASN1R_TAG_ADD (aCtx, CTX, 2, takectrl_get_priority ); + ASN1R_TAG_ADD (aCtx, CTX, 3, takectrl_get_acc_delay ); + ASN1R_TAG_ADD (aCtx, CTX, 4, takectrl_get_ctrl_timeout ); + ASN1R_TAG_ADD (aCtx, CTX, 5, takectrl_get_abrt_timeout); + ASN1R_TAG_ADD (aCtx, CTX, 6, takectrl_get_rel_conn_lost); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 7, takectrl_app_preempt_cstr ); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + ar_start = aCtx->asn1r_field_ptr; + } + +/************************************************************************/ +/* takectrl_get_priority */ +/* Take control request: decode the priority */ +/************************************************************************/ + +static ST_VOID takectrl_get_priority (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("takectrl_get_priorit"); + +/* read the priority from the received message */ + if (asn1r_get_u8 (aCtx, &(req_info->priority))) + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + ASN1R_TAG_ADD (aCtx, CTX, 3, takectrl_get_acc_delay ); + ASN1R_TAG_ADD (aCtx, CTX, 4, takectrl_get_ctrl_timeout ); + ASN1R_TAG_ADD (aCtx, CTX, 5, takectrl_get_abrt_timeout); + ASN1R_TAG_ADD (aCtx, CTX, 6, takectrl_get_rel_conn_lost); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 7, takectrl_app_preempt_cstr ); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + ar_start = aCtx->asn1r_field_ptr; + } + +/************************************************************************/ +/* takectrl_get_acc_delay */ +/* Take control request: decode acceptable delay */ +/************************************************************************/ + +static ST_VOID takectrl_get_acc_delay (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("takectrl_get_acc_dela"); + + req_info->acc_delay_pres = SD_TRUE; /* set acceptable delay present */ + + /* read acceptable delay from message */ + if (asn1r_get_u32 (aCtx, &(req_info->acc_delay))) + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + ASN1R_TAG_ADD (aCtx, CTX, 4, takectrl_get_ctrl_timeout ); + ASN1R_TAG_ADD (aCtx, CTX, 5, takectrl_get_abrt_timeout); + ASN1R_TAG_ADD (aCtx, CTX, 6, takectrl_get_rel_conn_lost); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 7, takectrl_app_preempt_cstr ); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + ar_start = aCtx->asn1r_field_ptr; + } + +/************************************************************************/ +/* takectrl_get_ctrl_timeout */ +/* Take control request: decode the relinquish timeout */ +/************************************************************************/ + +static ST_VOID takectrl_get_ctrl_timeout (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("takectrl_get_ctrl_timeou"); + + req_info->ctrl_timeout_pres = SD_TRUE; /* set relinquish timeout pres */ + + /* read relinquish timeout from message */ + if (asn1r_get_u32 (aCtx, &(req_info->ctrl_timeout))) + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + ASN1R_TAG_ADD (aCtx, CTX, 5, takectrl_get_abrt_timeout); + ASN1R_TAG_ADD (aCtx, CTX, 6, takectrl_get_rel_conn_lost); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 7, takectrl_app_preempt_cstr ); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + ar_start = aCtx->asn1r_field_ptr; + } + +/************************************************************************/ +/* takectrl_get_abrt_timeout */ +/* Take control request: decode the relinquish if connection lost */ +/************************************************************************/ + +static ST_VOID takectrl_get_abrt_timeout (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("takectrl_get_abrt_timeout"); + /* read access key from message */ + req_info->abrt_on_timeout_pres = SD_TRUE; + if (asn1r_get_bool (aCtx, &(req_info->abrt_on_timeout))) + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + ASN1R_TAG_ADD (aCtx, CTX, 6, takectrl_get_rel_conn_lost); + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 7, takectrl_app_preempt_cstr ); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + ar_start = aCtx->asn1r_field_ptr; + } + +/************************************************************************/ +/* takectrl_get_rel_conn_lost */ +/* Take control request: decode the relinquish if connection lost */ +/************************************************************************/ + +static ST_VOID takectrl_get_rel_conn_lost (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("takectrl_get_rel_conn_lost"); + /* read access key from message */ + if (asn1r_get_bool (aCtx, &(req_info->rel_conn_lost))) + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 7, takectrl_app_preempt_cstr ); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + ar_start = aCtx->asn1r_field_ptr; + } + +/************************************************************************/ +/* takectrl_app_preempt_cstr */ +/* Decoding take control request: application to preempt constr was */ +/* encountered. */ +/************************************************************************/ + +static ST_VOID takectrl_app_preempt_cstr (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("takectrl_app_preempt_cstr"); + + req_info->app_preempt_pres = SD_TRUE; /* set app preempt present */ + req_info->app_preempt = ar_start; /* save_start */ + *ar_start = '\x30'; /* change tag */ + + if (aCtx->asn1r_elmnt_len) + asn1r_parse_cstr_contents (aCtx, app_preempt_cstr_done); + else + aCtx->asn1r_c_done_fun[ aCtx->asn1r_msg_level ] = app_preempt_cstr_done; + } + +/************************************************************************/ +/* app_preempt_cstr_done */ +/* Decoding take control request: application preempt was encountered. */ +/************************************************************************/ + +static ST_VOID app_preempt_cstr_done (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("app_preempt_cstr_done"); + + req_info->app_len = aCtx->asn1r_field_ptr - ar_start; + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_takectrl_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the take control response. */ +/************************************************************************/ + +ST_RET mp_takectrl_resp (MMSREQ_IND *indptr, TAKECTRL_RESP_INFO *info_ptr) + { + return (_mms_resp_send (MMSOP_TAKE_CONTROL,indptr, + M_CAST_MK_FUN (_ms_mk_takectrl_resp), + (ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_takectrl_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the take control response. */ +/************************************************************************/ + +ST_RET mpl_takectrl_resp (ST_UINT32 invoke_id, + TAKECTRL_RESP_INFO *info_ptr) + { + return (_mms_resp_fin (MMSOP_TAKE_CONTROL,invoke_id, + M_CAST_MK_FUN (_ms_mk_takectrl_resp), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_takectrl_resp */ +/* Construct a take control response. */ +/************************************************************************/ + +ST_VOID _ms_mk_takectrl_resp (ASN1_ENC_CTXT *aCtx, TAKECTRL_RESP_INFO *info) + { + if (info->resp_tag == SD_FALSE) + { /* response is NULL */ + asn1r_fin_prim (aCtx, 0,CTX); + } + else if (info->resp_tag == SD_TRUE) + { /* response is a named token */ + asn1r_wr_vstr (aCtx, info->named_token); /* write the named token */ + asn1r_fin_prim (aCtx, 1,CTX); + } + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_TAKE_CONTROL,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmsle/rs_termd.c b/mmslib/mmsle/rs_termd.c new file mode 100644 index 0000000..0d3af60 --- /dev/null +++ b/mmslib/mmsle/rs_termd.c @@ -0,0 +1,156 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_termdown.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of the terminate */ +/* download sequence. It decodes the terminate download sequence */ +/* request (indication) & encodes the terminate download sequence */ +/* response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 07 Remove "thisFileName" */ +/* 08/28/03 EJV 06 Corr spelling for 'receive'. */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* Del _mms_get_service_err proto(see mmsdefs.h)*/ +/* 09/13/99 MDE 04 Added SD_CONST modifiers */ +/* 03/23/99 MDE 03 Changes to decode buffer allocation scheme */ +/* 07/03/97 MDE 02 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pdom.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static TERMDOWN_REQ_INFO *req_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + +static ST_VOID termdown_get_dname (ASN1_DEC_CTXT *aCtx); +static ST_VOID termdown_get_discarded (ASN1_DEC_CTXT *aCtx); +static ST_VOID termdown_get_discarded_err (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/************************************************************************/ +/* mms_term_download_req */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_term_download_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Terminate Download Sequence Request"); +/* get storage for the request information */ +/* make big enough to add service error info if req'd */ + + req_info = (TERMDOWN_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (TERMDOWN_REQ_INFO) + sizeof (ERR_INFO)); + req_info->discarded = SD_FALSE; /* set the default value */ + /* read domain name from the received message */ + ASN1R_TAG_ADD (aCtx, CTX,0,termdown_get_dname); + } + +/************************************************************************/ +/* termdown_get_dname */ +/* Terminate download sequence request: decode domain name */ +/************************************************************************/ + +static ST_VOID termdown_get_dname (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("termdown_get_dname"); + + if (asn1r_get_identifier (aCtx, req_info->dname)) + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + +#ifndef MMS_LITE + if (mms_chan_info[_mmsdechan].version) /* IS */ +#else + if (mmsl_version) /* IS */ +#endif + ASN1R_TAG_ADD (aCtx, CTX|CONSTR, 1, termdown_get_discarded_err); + else /* DIS */ + ASN1R_TAG_ADD (aCtx, CTX, 1, termdown_get_discarded); + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* termdown_get_discarded */ +/* Terminate download sequence request: decode discarded flag */ +/************************************************************************/ + +static ST_VOID termdown_get_discarded (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("termdown_get_discarded"); + + /* read discarded flag from the received message */ + if (asn1r_get_bool (aCtx, &(req_info->discarded))) + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + +/************************************************************************/ +/* termdown_get_discarded_err */ +/* Terminate download sequence request: decode discarded 'error' */ +/************************************************************************/ + +static ST_VOID termdown_get_discarded_err (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("termdown_get_discarded_err"); + +/* set up pointer (already allocated) */ + req_info->err = (ERR_INFO *) (req_info+1); + req_info->discarded = SD_TRUE; + +/* set up to decode error contents, etc.. */ + _mms_get_service_err (aCtx, req_info->err); + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_termdown_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the terminate download sequence response. */ +/************************************************************************/ + +ST_RET mp_termdown_resp (MMSREQ_IND *indptr) + { + return (_mms_send_null_resp (indptr,MMSOP_TERM_DOWNLOAD)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_termdown_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the terminate download sequence response. */ +/************************************************************************/ + +ST_RET mpl_termdown_resp (ST_UINT32 invoke_id) + { + return (_mms_fin_null_resp (invoke_id,MMSOP_TERM_DOWNLOAD)); + } +#endif diff --git a/mmslib/mmsle/rs_termu.c b/mmslib/mmsle/rs_termu.c new file mode 100644 index 0000000..2dcd5f7 --- /dev/null +++ b/mmslib/mmsle/rs_termu.c @@ -0,0 +1,95 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_termupl.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of terminate upload */ +/* sequence. It decodes the terminate upload sequence request */ +/* (indication) & encodes the terminate upload sequence response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 06 Remove "thisFileName" */ +/* 08/28/03 EJV 05 Corr spelling for 'receive'. */ +/* 12/20/01 JRB 04 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/13/99 MDE 03 Added SD_CONST modifiers */ +/* 03/23/99 MDE 02 Changes to decode buffer allocation scheme */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +/* 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_pdom.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static TERMUPL_REQ_INFO *req_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + + +/************************************************************************/ +/************************************************************************/ +/* mms_term_upload_req */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_term_upload_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Terminate Upload Sequence Request"); + /* get storage for request information */ + req_info = (TERMUPL_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (TERMUPL_REQ_INFO)); + + /* read upload state machine id from received message */ + if (asn1r_get_i32 (aCtx, &(req_info->ulsmid))) + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_termupl_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the terminate upload sequence response. */ +/************************************************************************/ + +ST_RET mp_termupl_resp (MMSREQ_IND *indptr) + { + return (_mms_send_null_resp (indptr,MMSOP_TERM_UPLOAD)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_termupl_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the terminate upload sequence response. */ +/************************************************************************/ + +ST_RET mpl_termupl_resp (ST_UINT32 invoke_id) + { + return (_mms_fin_null_resp (invoke_id,MMSOP_TERM_UPLOAD)); + } +#endif diff --git a/mmslib/mmsle/rs_uploa.c b/mmslib/mmsle/rs_uploa.c new file mode 100644 index 0000000..3537f39 --- /dev/null +++ b/mmslib/mmsle/rs_uploa.c @@ -0,0 +1,128 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986 - 2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : rs_uploa.c */ +/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains the responder portion of upload segment. */ +/* It decodes the upload segment request (indication) and encodes */ +/* the upload segment response. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 07 Remove "thisFileName" */ +/* 08/28/03 EJV 06 Corr spelling for 'receive'. */ +/* 12/20/01 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 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++ */ +/* 07/03/97 MDE 01 Op-specific info buffer handling changes */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +/* 06/09/97 MDE 01 Changed op specific buffer allocation */ +#include "glbtypes.h" +#include "sysincs.h" + +#include "mmsdefs.h" +#include "mms_pdom.h" +#include "asn1defs.h" + +/************************************************************************/ +/* variables global to the DECODE portion : */ + +static UPLOAD_REQ_INFO *req_info; + +/************************************************************************/ +/* variables global to the ENCODE portion : NONE */ + + +/************************************************************************/ +/************************************************************************/ +/* mms_upload_req */ +/* This function is called from MMSDEC when the opcode for this */ +/* operation is decoded. Setup state machine function pointers, etc. */ +/************************************************************************/ + +ST_VOID mms_upload_req (ASN1_DEC_CTXT *aCtx) + { + MLOG_CDEC0 ("Upload Segment Request"); + +/* get storage for request information */ + req_info = (UPLOAD_REQ_INFO *) _m_get_dec_buf (aCtx, sizeof (UPLOAD_REQ_INFO)); + + /* read upload state machine id from received message */ + if (asn1r_get_i32 (aCtx, &(req_info->ulsmid))) + asn1r_set_dec_err (aCtx, REQ_BAD_VALUE); + + _ms_set_cs_check (aCtx); /* check for Companion Standard info */ + } + + +#ifndef MMS_LITE +/************************************************************************/ +/************************************************************************/ +/* mp_upload_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE and send the upload segment response. */ +/************************************************************************/ + +ST_RET mp_upload_resp (MMSREQ_IND *indptr, UPLOAD_RESP_INFO *info_ptr) + { + return (_mms_resp_send (MMSOP_UP_LOAD,indptr, + M_CAST_MK_FUN (_ms_mk_upload_resp), + (ST_CHAR *)info_ptr)); + } + +#else +/************************************************************************/ +/************************************************************************/ +/* mpl_upload_resp */ +/* This function is called from either the application or the virtual */ +/* machine to ENCODE the upload segment response. */ +/************************************************************************/ + +ST_RET mpl_upload_resp (ST_UINT32 invoke_id, UPLOAD_RESP_INFO *info_ptr) + { + return (_mms_resp_fin (MMSOP_UP_LOAD,invoke_id, + M_CAST_MK_FUN (_ms_mk_upload_resp), + (ST_CHAR *)info_ptr)); + } +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _ms_mk_upload_resp */ +/* Construct an upload segment response. */ +/************************************************************************/ + +ST_VOID _ms_mk_upload_resp (ASN1_ENC_CTXT *aCtx, UPLOAD_RESP_INFO *info) + { + if (!info->more_follows) + { /* NOT the default (SD_TRUE) */ + asn1r_wr_bool (aCtx, info->more_follows); /* write more follows flag */ + asn1r_fin_prim (aCtx, 1, CTX); + } + + if (info->load_data_type != LOAD_DATA_CODED) + { + asn1r_wr_octstr (aCtx, info->load_data,info->load_data_len); + asn1r_fin_prim (aCtx, 0,CTX); /* context tag 0 */ + } + else /* CODED data, write as complete ASN.1 EXTERNAL */ + asn1r_wr_delmnt (aCtx, info->load_data,info->load_data_len); + +/* write the context specific explicit tag for this opcode. */ + asn1r_fin_constr (aCtx, MMSOP_UP_LOAD,CTX,DEF); /* tag = opcode, ctx constr */ + } diff --git a/mmslib/mmslib.cpp b/mmslib/mmslib.cpp new file mode 100644 index 0000000..504ee9f --- /dev/null +++ b/mmslib/mmslib.cpp @@ -0,0 +1,13 @@ +#include "mmslib.h" + + +Mmslib::Mmslib() +{ +} +void Mmslib::mmslib_test() +{ + qDebug()<<"mmslib_test_123"; +} + + + diff --git a/mmslib/mmslib.h b/mmslib/mmslib.h new file mode 100644 index 0000000..29cfc56 --- /dev/null +++ b/mmslib/mmslib.h @@ -0,0 +1,13 @@ +#ifndef MMSLIB_H +#define MMSLIB_H +#include + +class Mmslib +{ + +public: + Mmslib(); + void mmslib_test(); +}; + +#endif // MMSLIB_H diff --git a/mmslib/mmslib.pro b/mmslib/mmslib.pro new file mode 100644 index 0000000..f26845a --- /dev/null +++ b/mmslib/mmslib.pro @@ -0,0 +1,500 @@ +#------------------------------------------------- +# +# Project created by QtCreator 2023-06-26T14:33:36 +# +#------------------------------------------------- + +QT -= gui + +TARGET = mmslib +TEMPLATE = lib +CONFIG += staticlib +DEFINES += DEBUG_SISCO MOSI LEAN_T MVL_UCA MMS_LITE TP0_ENABLED +DEFINES += STDTIME_ANSI +DEFINES += S_MT_SUPPORT +DEFINES += S_MT_SUPPORT S_MT_SUPPORT_RXB +#DEFINES += WIN32_LEAN_AND_MEAN + +INCLUDEPATH += ./inc +INCLUDEPATH += ./inc/mmsop_en + + include(fe_common.pri) + +SOURCES += \ + mmslib.cpp \ + asn1/asn1r.c \ + asn1/are_vstr.c \ + asn1/are_utc.c \ + asn1/are_time.c \ + asn1/are_ostr.c \ + asn1/are_objd.c \ + asn1/are_int.c \ + asn1/are_flt.c \ + asn1/are_delm.c \ + asn1/are_btod.c \ + asn1/are_bstr.c \ + asn1/are_bool.c \ + asn1/ard_vstr.c \ + asn1/ard_utc.c \ + asn1/ard_time.c \ + asn1/ard_strn.c \ + asn1/ard_ostr.c \ + asn1/ard_objd.c \ + asn1/ard_int.c \ + asn1/ard_idnt.c \ + asn1/ard_flt.c \ + asn1/ard_delm.c \ + asn1/ard_btod.c \ + asn1/ard_bstr.c \ + asn1/ard_bool.c \ + mem/mem_chks.c \ + mmsl/rs_write.c \ + mmsl/rs_ustat.c \ + mmsl/rs_trige.c \ + mmsl/rs_stat.c \ + mmsl/rs_repee.c \ + mmsl/rs_repec.c \ + mmsl/rs_repea.c \ + mmsl/rs_read.c \ + mmsl/rs_namel.c \ + mmsl/rs_init.c \ + mmsl/rs_info.c \ + mmsl/rs_ident.c \ + mmsl/rs_getvl.c \ + mmsl/rs_getva.c \ + mmsl/rs_getty.c \ + mmsl/rs_getpi.c \ + mmsl/rs_getee.c \ + mmsl/rs_getec.c \ + mmsl/rs_getea.c \ + mmsl/rs_getdo.c \ + mmsl/rs_getcl.c \ + mmsl/rs_evnot.c \ + mmsl/rs_defee.c \ + mmsl/rs_concl.c \ + mmsl/rs_cancl.c \ + mmsl/rs_ackev.c \ + mmsl/rq_write.c \ + mmsl/rq_ustat.c \ + mmsl/rq_trige.c \ + mmsl/rq_stat.c \ + mmsl/rq_repee.c \ + mmsl/rq_repec.c \ + mmsl/rq_repea.c \ + mmsl/rq_read.c \ + mmsl/rq_namel.c \ + mmsl/rq_init.c \ + mmsl/rq_info.c \ + mmsl/rq_ident.c \ + mmsl/rq_getvl.c \ + mmsl/rq_getva.c \ + mmsl/rq_getty.c \ + mmsl/rq_getpi.c \ + mmsl/rq_getee.c \ + mmsl/rq_getec.c \ + mmsl/rq_getea.c \ + mmsl/rq_getdo.c \ + mmsl/rq_getcl.c \ + mmsl/rq_evnot.c \ + mmsl/rq_defee.c \ + mmsl/rq_concl.c \ + mmsl/rq_cancl.c \ + mmsl/rq_ackev.c \ + mmsl/msdataas.c \ + mmsl/ms_tdef4.c \ + mmsl/ms_tdef2.c \ + mmsl/ms_tdef.c \ + mmsl/ms_size.c \ + mmsl/ms_ext.c \ + mmsl/mmsstat.c \ + mmsl/mmslvar.c \ + mmsl/mmsl_fin.c \ + mmsl/mmsinit.c \ + mmsl/mmsdtext.c \ + mmsl/mmsdec.c \ + mmsl/mmsdatat.c \ + mmsl/mmsdata.c \ + mmsl/mmsconcl.c \ + mmsl/mmscancl.c \ + mmsl/mms_tdef.c \ + mmsl/mms_rtaa.c \ + mmsl/mms_rej.c \ + mmsl/mms_err4.c \ + mmsl/mms_err3.c \ + mmsl/mms_err2.c \ + mmsl/mms_err.c \ + mmsl/mms_ced7.c \ + mmsl/mms_ced6.c \ + mmsl/mms_ced5.c \ + mmsl/mms_ced4.c \ + mmsl/mms_ced3.c \ + mmsl/mms_ced.c \ + mmsl/mms_aref.c \ + mmsl/mms_alta.c \ + mmsl/mms_adl.c \ + mmsle/rs_uploa.c \ + mmsle/rs_termu.c \ + mmsle/rs_termd.c \ + mmsle/rs_takec.c \ + mmsle/rs_store.c \ + mmsle/rs_stop.c \ + mmsle/rs_start.c \ + mmsle/rs_rssta.c \ + mmsle/rs_rspoo.c \ + mmsle/rs_rsent.c \ + mmsle/rs_resum.c \ + mmsle/rs_reset.c \ + mmsle/rs_renam.c \ + mmsle/rs_relct.c \ + mmsle/rs_rdupl.c \ + mmsle/rs_rddwn.c \ + mmsle/rs_outpu.c \ + mmsle/rs_obtfi.c \ + mmsle/rs_loadd.c \ + mmsle/rs_kill.c \ + mmsle/rs_jwrit.c \ + mmsle/rs_jstat.c \ + mmsle/rs_jread.c \ + mmsle/rs_jinit.c \ + mmsle/rs_jdele.c \ + mmsle/rs_jcrea.c \ + mmsle/rs_input.c \ + mmsle/rs_initu.c \ + mmsle/rs_initd.c \ + mmsle/rs_getsc.c \ + mmsle/rs_getas.c \ + mmsle/rs_getae.c \ + mmsle/rs_frena.c \ + mmsle/rs_fread.c \ + mmsle/rs_fopen.c \ + mmsle/rs_fdir.c \ + mmsle/rs_fdele.c \ + mmsle/rs_fclos.c \ + mmsle/rs_downl.c \ + mmsle/rs_delvl.c \ + mmsle/rs_delva.c \ + mmsle/rs_delty.c \ + mmsle/rs_delse.c \ + mmsle/rs_delpi.c \ + mmsle/rs_delee.c \ + mmsle/rs_delec.c \ + mmsle/rs_delea.c \ + mmsle/rs_deldo.c \ + mmsle/rs_defvl.c \ + mmsle/rs_defva.c \ + mmsle/rs_defty.c \ + mmsle/rs_defse.c \ + mmsle/rs_defsc.c \ + mmsle/rs_defec.c \ + mmsle/rs_defea.c \ + mmsle/rs_crepi.c \ + mmsle/rs_altee.c \ + mmsle/rs_altec.c \ + mmsle/rq_uploa.c \ + mmsle/rq_termu.c \ + mmsle/rq_termd.c \ + mmsle/rq_takec.c \ + mmsle/rq_store.c \ + mmsle/rq_stop.c \ + mmsle/rq_start.c \ + mmsle/rq_rssta.c \ + mmsle/rq_rspoo.c \ + mmsle/rq_rsent.c \ + mmsle/rq_resum.c \ + mmsle/rq_reset.c \ + mmsle/rq_renam.c \ + mmsle/rq_relct.c \ + mmsle/rq_rdupl.c \ + mmsle/rq_rddwn.c \ + mmsle/rq_outpu.c \ + mmsle/rq_obtfi.c \ + mmsle/rq_loadd.c \ + mmsle/rq_kill.c \ + mmsle/rq_jwrit.c \ + mmsle/rq_jstat.c \ + mmsle/rq_jread.c \ + mmsle/rq_jinit.c \ + mmsle/rq_jdele.c \ + mmsle/rq_jcrea.c \ + mmsle/rq_input.c \ + mmsle/rq_initu.c \ + mmsle/rq_initd.c \ + mmsle/rq_getsc.c \ + mmsle/rq_getas.c \ + mmsle/rq_getae.c \ + mmsle/rq_frena.c \ + mmsle/rq_fread.c \ + mmsle/rq_fopen.c \ + mmsle/rq_fdir.c \ + mmsle/rq_fdele.c \ + mmsle/rq_fclos.c \ + mmsle/rq_downl.c \ + mmsle/rq_delvl.c \ + mmsle/rq_delva.c \ + mmsle/rq_delty.c \ + mmsle/rq_delse.c \ + mmsle/rq_delpi.c \ + mmsle/rq_delee.c \ + mmsle/rq_delec.c \ + mmsle/rq_delea.c \ + mmsle/rq_deldo.c \ + mmsle/rq_defvl.c \ + mmsle/rq_defva.c \ + mmsle/rq_defty.c \ + mmsle/rq_defse.c \ + mmsle/rq_defsc.c \ + mmsle/rq_defec.c \ + mmsle/rq_defea.c \ + mmsle/rq_crepi.c \ + mmsle/rq_altee.c \ + mmsle/rq_altec.c \ + mmsle/mms_ced2.c \ + mmsle/mms_ced1.c \ + mvlu/sclproc.c \ + mvlu/s_write.c \ + mvlu/s_status.c \ + mvlu/s_read.c \ + mvlu/s_obtfi.c \ + mvlu/s_jstat.c \ + mvlu/s_jread.c \ + mvlu/s_jinit.c \ + mvlu/s_info.c \ + mvlu/s_ident.c \ + mvlu/s_getvla.c \ + mvlu/s_getvaa.c \ + mvlu/s_getnam.c \ + mvlu/s_getdom.c \ + mvlu/s_getcl.c \ + mvlu/s_fren.c \ + mvlu/s_fread.c \ + mvlu/s_fopen.c \ + mvlu/s_fdir.c \ + mvlu/s_fdel.c \ + mvlu/s_fclose.c \ + mvlu/s_delvl.c \ + mvlu/s_defvl.c \ + mvlu/s_concl.c \ + mvlu/s_cancel.c \ + mvlu/mvluleaf.c \ + mvlu/mvlu_sbo.c \ + mvlu/mvlu_rt.c \ + mvlu/mvlu_rpt.c \ + mvlu/mvl61850_rpt.c \ + mvlu/mvl61850_ctl.c \ + mvlu/mvl61850.c \ + mvlu/mvl_var.c \ + mvlu/mvl_uca.c \ + mvlu/mvl_type.c \ + mvlu/mvl_typ2.c \ + mvlu/mvl_serv.c \ + mvlu/mvl_send.c \ + mvlu/mvl_objb.c \ + mvlu/mvl_obj.c \ + mvlu/mvl_ijou.c \ + mvlu/mvl_dtyp.c \ + mvlu/mvl_buf.c \ + mvlu/c_write.c \ + mvlu/c_status.c \ + mvlu/c_read.c \ + mvlu/c_obtfi.c \ + mvlu/c_jstat.c \ + mvlu/c_jread.c \ + mvlu/c_jinit.c \ + mvlu/c_info.c \ + mvlu/c_ident.c \ + mvlu/c_getvla.c \ + mvlu/c_getvar.c \ + mvlu/c_getnam.c \ + mvlu/c_getdom.c \ + mvlu/c_fren.c \ + mvlu/c_fread.c \ + mvlu/c_fopen.c \ + mvlu/c_fget.c \ + mvlu/c_fdir.c \ + mvlu/c_fdel.c \ + mvlu/c_fclose.c \ + mvlu/c_delvl.c \ + mvlu/c_defvl.c \ + mvlu/c_concl.c \ + ositcps/tpx_dec.c \ + ositcps/tp4port.c \ + ositcps/tp4_enc.c \ + ositcps/tp0main.c \ + ositcps/tp0callg.c \ + ositcps/tp0calld.c \ + ositcps/tp0_socks.c \ + ositcps/tp0_dec.c \ + ositcps/osicfgx.c \ + ositcps/lean_var.c \ + ositcps/lean_cfg.c \ + ositcps/cospmain.c \ + ositcps/cosp_enc.c \ + ositcps/cosp_dec.c \ + ositcps/coppdcpr.c \ + ositcps/coppdcp.c \ + ositcps/coppdaru.c \ + ositcps/copp_enc.c \ + ositcps/copp_dec.c \ + ositcps/checksum.c \ + ositcps/acse2var.c \ + ositcps/acse2enc.c \ + ositcps/acse2dib.c \ + ositcps/acse2dec.c \ + slog/slogmem.c \ + slog/slogipcs.c \ + slog/sloghex.c \ + slog/slogfil.c \ + slog/slog.c \ + slog/qmem.c \ + ssec0/ssecusr0.c \ + util/time_str.c \ + util/sx_enc.c \ + util/sx_dec.c \ + util/sx_data.c \ + util/sx_axs4d.c \ + util/str_util.c \ + util/stime.c \ + util/stdtime_w32.c \ + util/stdtime_quadlib.c \ + util/stdtime_mms_utctime.c \ + util/stdtime_mms_btime.c \ + util/stdtime.c \ + util/sclstore.c \ + util/sclparse.c \ + util/scl_log.c \ + util/glbsem_unix.c \ + util/glbsem.c \ + util/gensock2.c \ + util/genlists.c \ + util/cfg_util.c + +HEADERS += mmslib.h \ + inc/tp4api.h \ + inc/tp4_log.h \ + inc/tp4_encd.h \ + inc/tp4.h \ + inc/tp0_sock.h \ + inc/time_str.h \ + inc/sysincs.h \ + inc/sx_log.h \ + inc/sx_defs.h \ + inc/sx_arb.h \ + inc/STR_UTIL.H \ + inc/stime.h \ + inc/stdtime_w32.h \ + inc/stdtime_tzrules.h \ + inc/stdtime_timezone_csv.h \ + inc/stdtime_stdint.h \ + inc/stdtime_quadlib.h \ + inc/stdtime_mms_utctime.h \ + inc/stdtime_mms_btime.h \ + inc/stdtime_enum_func.h \ + inc/stdtime_enum_err.h \ + inc/stdtime_endian.h \ + inc/stdtime_config.h \ + inc/stdtime.h \ + inc/ssleLog.h \ + inc/ssec_int.h \ + inc/ssec.h \ + inc/sock_log.h \ + inc/smpval.h \ + inc/smp_usr.h \ + inc/smp_log.h \ + inc/smp.h \ + inc/Smem.h \ + inc/slog.h \ + inc/scrndefs.h \ + inc/scl.h \ + inc/rs_defs.h \ + inc/rs_a.h \ + inc/qmem.h \ + inc/osillc.h \ + inc/ntddosi.h \ + inc/mvl_uca.h \ + inc/mvl_log.h \ + inc/MVL_DEFS.H \ + inc/mvl_acse.h \ + inc/mmslusec.h \ + inc/mmslog.h \ + inc/mmsldefs.h \ + inc/mmsintr2.h \ + inc/mmsefun.h \ + inc/mmsdefs.h \ + inc/mms_vvar.h \ + inc/mms_pvmd.h \ + inc/mms_pvar.h \ + inc/mms_psem.h \ + inc/mms_pprg.h \ + inc/mms_pocs.h \ + inc/mms_pjou.h \ + inc/mms_pfil.h \ + inc/mms_pevn.h \ + inc/mms_perr.h \ + inc/mms_pdom.h \ + inc/mms_pcon.h \ + inc/mms_mp.h \ + inc/mms_log.h \ + inc/mms_err.h \ + inc/mms_dfun.h \ + inc/mms_def2.h \ + inc/mloguser.h \ + inc/memlog.h \ + inc/mem_chk.h \ + inc/llcioctl.h \ + inc/llcio.h \ + inc/lean_a.h \ + inc/gvaldefs.h \ + inc/gse_mgmt.h \ + inc/Goose.h \ + inc/glbtypes.h \ + inc/glbsem.h \ + inc/glbopt.h \ + inc/glberror.h \ + inc/gensock2.h \ + inc/gen_list.h \ + inc/fkeydefs.h \ + inc/ExceptionReport.h \ + inc/ethsub.h \ + inc/ethertyp.h \ + inc/dibmatch.h \ + inc/cosp_usr.h \ + inc/cosp_log.h \ + inc/cosp.h \ + inc/copp_usr.h \ + inc/copp_log.h \ + inc/copp.h \ + inc/conpack.h \ + inc/clnpport.h \ + inc/clnp_usr.h \ + inc/clnp_tnt.h \ + inc/clnp_sta.h \ + inc/clnp_sne.h \ + inc/clnp_log.h \ + inc/clnp_llc.h \ + inc/clnp.h \ + inc/checksum.h \ + inc/cfglog.h \ + inc/cfg_util.h \ + inc/asn1r.h \ + inc/asn1log.h \ + inc/asn1defs.h \ + inc/arg.h \ + inc/adlc_usr.h \ + inc/adlc_sts.h \ + inc/adlc_sm.h \ + inc/adlc_log.h \ + inc/adlc_dsm.h \ + inc/adlc.h \ + inc/acseauth.h \ + inc/acse2usr.h \ + inc/acse2log.h \ + inc/acse2.h \ + inc/mmsop_en/mmsop_en.h +unix:!symbian { + maemo5 { + target.path = /opt/usr/lib + } else { + target.path = /usr/lib + } + INSTALLS += target +} diff --git a/mmslib/mmslib.pro.user b/mmslib/mmslib.pro.user new file mode 100644 index 0000000..2db0e0a --- /dev/null +++ b/mmslib/mmslib.pro.user @@ -0,0 +1,194 @@ + + + + + + ProjectExplorer.Project.ActiveTarget + 0 + + + ProjectExplorer.Project.EditorSettings + + true + false + true + + Cpp + + CppGlobal + + + + QmlJS + + QmlJSGlobal + + + 2 + UTF-8 + false + 4 + false + true + 1 + true + 0 + true + 0 + 8 + true + 0 + true + true + true + false + + + + ProjectExplorer.Project.PluginSettings + + + + ProjectExplorer.Project.Target.0 + + Desktop Qt 5.2.0 MSVC2012 32bit + Desktop Qt 5.2.0 MSVC2012 32bit + qt.520.win32_msvc2012.essentials_kit + 0 + 0 + 0 + + + + + true + qmake + + QtProjectManager.QMakeBuildStep + false + false + + false + + + true + Make + + Qt4ProjectManager.MakeStep + + false + + + + 2 + 构建 + + ProjectExplorer.BuildSteps.Build + + + + true + Make + + Qt4ProjectManager.MakeStep + + true + clean + + + 1 + æ¸…ç† + + ProjectExplorer.BuildSteps.Clean + + 2 + false + + Release + + Qt4ProjectManager.Qt4BuildConfiguration + 0 + true + + 1 + + + 0 + 部署 + + ProjectExplorer.BuildSteps.Deploy + + 1 + 在本地部署 + + ProjectExplorer.DefaultDeployConfiguration + + 1 + + + + false + false + false + false + true + 0.01 + 10 + true + 1 + 25 + + 1 + true + false + true + valgrind + + 0 + 1 + 2 + 3 + 4 + 5 + 6 + 7 + 8 + 9 + 10 + 11 + 12 + 13 + 14 + + 2 + + + + false + %{buildDir} + 自定义执行档 + + ProjectExplorer.CustomExecutableRunConfiguration + 3768 + true + false + false + false + true + + 1 + + + + ProjectExplorer.Project.TargetCount + 1 + + + ProjectExplorer.Project.Updater.EnvironmentId + {8291b97e-670a-4766-bc01-067e25c191cc} + + + ProjectExplorer.Project.Updater.FileVersion + 15 + + diff --git a/mmslib/mmslib.pro.user.18 b/mmslib/mmslib.pro.user.18 new file mode 100644 index 0000000..a41dadc --- /dev/null +++ b/mmslib/mmslib.pro.user.18 @@ -0,0 +1,258 @@ + + + + + + EnvironmentId + {5822199d-261c-4d16-b10c-265f684da8a8} + + + ProjectExplorer.Project.ActiveTarget + 0 + + + ProjectExplorer.Project.EditorSettings + + true + false + true + + Cpp + + CppGlobal + + + + QmlJS + + QmlJSGlobal + + + 2 + GBK + false + 4 + false + 80 + true + true + 1 + true + false + 0 + true + 0 + 8 + true + 1 + true + true + true + false + + + + ProjectExplorer.Project.PluginSettings + + + + ProjectExplorer.Project.Target.0 + + Desktop Qt 5.5.0 MSVC2012 32bit + Desktop Qt 5.5.0 MSVC2012 32bit + qt.55.win32_msvc2012_kit + 1 + 0 + 0 + + D:/pqs_com_client/mmslib + + + true + qmake + + QtProjectManager.QMakeBuildStep + false + true + + false + false + false + + + true + Make + + Qt4ProjectManager.MakeStep + + false + + + + 2 + 构建 + + ProjectExplorer.BuildSteps.Build + + + + true + Make + + Qt4ProjectManager.MakeStep + + true + clean + + + 1 + æ¸…ç† + + ProjectExplorer.BuildSteps.Clean + + 2 + false + + Debug + + Qt4ProjectManager.Qt4BuildConfiguration + 2 + true + + + D:/pqs_com_client/mmslib + + + true + qmake + + QtProjectManager.QMakeBuildStep + false + true + + false + false + false + + + true + Make + + Qt4ProjectManager.MakeStep + + false + + + + 2 + 构建 + + ProjectExplorer.BuildSteps.Build + + + + true + Make + + Qt4ProjectManager.MakeStep + + true + clean + + + 1 + æ¸…ç† + + ProjectExplorer.BuildSteps.Clean + + 2 + false + + Release + + Qt4ProjectManager.Qt4BuildConfiguration + 0 + true + + 2 + + + 0 + 部署 + + ProjectExplorer.BuildSteps.Deploy + + 1 + 在本地部署 + + ProjectExplorer.DefaultDeployConfiguration + + 1 + + + + false + false + false + false + true + 0.01 + 10 + true + 1 + 25 + + 1 + true + false + true + valgrind + + 0 + 1 + 2 + 3 + 4 + 5 + 6 + 7 + 8 + 9 + 10 + 11 + 12 + 13 + 14 + + 2 + + + + false + %{buildDir} + 自定义执行档 + + ProjectExplorer.CustomExecutableRunConfiguration + 3768 + false + true + false + false + true + + 1 + + + + ProjectExplorer.Project.TargetCount + 1 + + + ProjectExplorer.Project.Updater.FileVersion + 18 + + + Version + 18 + + diff --git a/mmslib/mmslib.pro.user.2.7pre1 b/mmslib/mmslib.pro.user.2.7pre1 new file mode 100644 index 0000000..b3fe979 --- /dev/null +++ b/mmslib/mmslib.pro.user.2.7pre1 @@ -0,0 +1,243 @@ + + + + + + ProjectExplorer.Project.ActiveTarget + 0 + + + ProjectExplorer.Project.EditorSettings + + true + false + true + + Cpp + + CppGlobal + + + + QmlJS + + QmlJSGlobal + + + 2 + GBK + false + 4 + false + true + 1 + true + 0 + true + 0 + 8 + true + 1 + true + true + true + false + + + + ProjectExplorer.Project.PluginSettings + + + + ProjectExplorer.Project.Target.0 + + Desktop Qt 5.1.0 MSVC2012 OpenGL 64bit + Desktop Qt 5.1.0 MSVC2012 OpenGL 64bit + qt.510.win64_msvc2012_64_opengl.essentials_kit + 1 + 0 + 0 + + + + true + qmake + + QtProjectManager.QMakeBuildStep + false + true + + false + + + true + Make + + Qt4ProjectManager.MakeStep + + false + + + + 2 + 构建 + + ProjectExplorer.BuildSteps.Build + + + + true + Make + + Qt4ProjectManager.MakeStep + + true + clean + + + 1 + æ¸…ç† + + ProjectExplorer.BuildSteps.Clean + + 2 + false + + Debug + + Qt4ProjectManager.Qt4BuildConfiguration + 2 + D:/pqs_com_client/mmslib/%{JS: Util.asciify("build-mmslib-Desktop_Qt_5_1_0_MSVC2012_OpenGL_64bit-Debug")} + false + + + + + true + qmake + + QtProjectManager.QMakeBuildStep + false + true + + false + + + true + Make + + Qt4ProjectManager.MakeStep + + false + + + + 2 + 构建 + + ProjectExplorer.BuildSteps.Build + + + + true + Make + + Qt4ProjectManager.MakeStep + + true + clean + + + 1 + æ¸…ç† + + ProjectExplorer.BuildSteps.Clean + + 2 + false + + Release + + Qt4ProjectManager.Qt4BuildConfiguration + 0 + D:/pqs_com_client/mmslib/%{JS: Util.asciify("build-mmslib-Desktop_Qt_5_1_0_MSVC2012_OpenGL_64bit-Release")} + false + + 2 + + + 0 + 部署 + + ProjectExplorer.BuildSteps.Deploy + + 1 + 在本地部署 + + ProjectExplorer.DefaultDeployConfiguration + + 1 + + + true + + false + false + false + false + true + 0.01 + 10 + true + 25 + + true + valgrind + + 0 + 1 + 2 + 3 + 4 + 5 + 6 + 7 + 8 + 9 + 10 + 11 + 12 + 13 + 14 + + + 2 + + false + + %{buildDir} + 自定义执行档 + + ProjectExplorer.CustomExecutableRunConfiguration + 3768 + true + false + false + true + + 1 + + + + ProjectExplorer.Project.TargetCount + 1 + + + ProjectExplorer.Project.Updater.EnvironmentId + {5822199d-261c-4d16-b10c-265f684da8a8} + + + ProjectExplorer.Project.Updater.FileVersion + 12 + + diff --git a/mmslib/mmslib.pro.user.3.2-pre1 b/mmslib/mmslib.pro.user.3.2-pre1 new file mode 100644 index 0000000..2a62f1f --- /dev/null +++ b/mmslib/mmslib.pro.user.3.2-pre1 @@ -0,0 +1,247 @@ + + + + + + ProjectExplorer.Project.ActiveTarget + 0 + + + ProjectExplorer.Project.EditorSettings + + true + false + true + + Cpp + + CppGlobal + + + + QmlJS + + QmlJSGlobal + + + 2 + GBK + false + 4 + false + true + 1 + true + 0 + true + 0 + 8 + true + 1 + true + true + true + false + + + + ProjectExplorer.Project.PluginSettings + + + + ProjectExplorer.Project.Target.0 + + Desktop Qt 5.2.0 MSVC2012 32bit + Desktop Qt 5.2.0 MSVC2012 32bit + qt.520.win32_msvc2012.essentials_kit + 1 + 0 + 0 + + D:/pqs_com_client/mmslib + + + true + qmake + + QtProjectManager.QMakeBuildStep + false + true + + false + + + true + Make + + Qt4ProjectManager.MakeStep + + false + + + + 2 + 构建 + + ProjectExplorer.BuildSteps.Build + + + + true + Make + + Qt4ProjectManager.MakeStep + + true + clean + + + 1 + æ¸…ç† + + ProjectExplorer.BuildSteps.Clean + + 2 + false + + Debug + + Qt4ProjectManager.Qt4BuildConfiguration + 2 + true + + + D:/pqs_com_client/mmslib + + + true + qmake + + QtProjectManager.QMakeBuildStep + false + true + + false + + + true + Make + + Qt4ProjectManager.MakeStep + + false + + + + 2 + 构建 + + ProjectExplorer.BuildSteps.Build + + + + true + Make + + Qt4ProjectManager.MakeStep + + true + clean + + + 1 + æ¸…ç† + + ProjectExplorer.BuildSteps.Clean + + 2 + false + + Release + + Qt4ProjectManager.Qt4BuildConfiguration + 0 + true + + 2 + + + 0 + 部署 + + ProjectExplorer.BuildSteps.Deploy + + 1 + 在本地部署 + + ProjectExplorer.DefaultDeployConfiguration + + 1 + + + + false + false + false + false + true + 0.01 + 10 + true + 1 + 25 + + 1 + true + false + true + valgrind + + 0 + 1 + 2 + 3 + 4 + 5 + 6 + 7 + 8 + 9 + 10 + 11 + 12 + 13 + 14 + + 2 + + + + false + %{buildDir} + 自定义执行档 + + ProjectExplorer.CustomExecutableRunConfiguration + 3768 + true + false + false + false + true + + 1 + + + + ProjectExplorer.Project.TargetCount + 1 + + + ProjectExplorer.Project.Updater.EnvironmentId + {d8c8bb25-44fd-4cdb-9bb3-e12dea660c73} + + + ProjectExplorer.Project.Updater.FileVersion + 15 + + diff --git a/mmslib/mmslib.pro.user.5822199 b/mmslib/mmslib.pro.user.5822199 new file mode 100644 index 0000000..f18f0f8 --- /dev/null +++ b/mmslib/mmslib.pro.user.5822199 @@ -0,0 +1,243 @@ + + + + + + ProjectExplorer.Project.ActiveTarget + 0 + + + ProjectExplorer.Project.EditorSettings + + true + false + true + + Cpp + + CppGlobal + + + + QmlJS + + QmlJSGlobal + + + 2 + GBK + false + 4 + false + true + 1 + true + 0 + true + 0 + 8 + true + 1 + true + true + true + false + + + + ProjectExplorer.Project.PluginSettings + + + + ProjectExplorer.Project.Target.0 + + Desktop Qt 5.1.0 MSVC2012 OpenGL 64bit + Desktop Qt 5.1.0 MSVC2012 OpenGL 64bit + qt.510.win64_msvc2012_64_opengl.essentials_kit + 1 + 0 + 0 + + + + true + qmake + + QtProjectManager.QMakeBuildStep + false + true + + false + + + true + Make + + Qt4ProjectManager.MakeStep + + false + + + + 2 + 构建 + + ProjectExplorer.BuildSteps.Build + + + + true + Make + + Qt4ProjectManager.MakeStep + + true + clean + + + 1 + æ¸…ç† + + ProjectExplorer.BuildSteps.Clean + + 2 + false + + Debug + + Qt4ProjectManager.Qt4BuildConfiguration + 2 + D:/pqs_com_client/mmslib/%{JS: Util.asciify("build-mmslib-Desktop_Qt_5_1_0_MSVC2012_OpenGL_64bit-Debug")} + false + + + + + true + qmake + + QtProjectManager.QMakeBuildStep + false + true + + false + + + true + Make + + Qt4ProjectManager.MakeStep + + false + + + + 2 + 构建 + + ProjectExplorer.BuildSteps.Build + + + + true + Make + + Qt4ProjectManager.MakeStep + + true + clean + + + 1 + æ¸…ç† + + ProjectExplorer.BuildSteps.Clean + + 2 + false + + Release + + Qt4ProjectManager.Qt4BuildConfiguration + 0 + D:/pqs_com_client/mmslib/%{JS: Util.asciify("build-mmslib-Desktop_Qt_5_1_0_MSVC2012_OpenGL_64bit-Release")} + false + + 2 + + + 0 + 部署 + + ProjectExplorer.BuildSteps.Deploy + + 1 + 在本地部署 + + ProjectExplorer.DefaultDeployConfiguration + + 1 + + + true + + false + false + false + false + true + 0.01 + 10 + true + 25 + + true + valgrind + + 0 + 1 + 2 + 3 + 4 + 5 + 6 + 7 + 8 + 9 + 10 + 11 + 12 + 13 + 14 + + + 2 + + false + + %{buildDir} + 自定义执行档 + + ProjectExplorer.CustomExecutableRunConfiguration + 3768 + true + false + false + true + + 1 + + + + ProjectExplorer.Project.TargetCount + 1 + + + ProjectExplorer.Project.Updater.EnvironmentId + {5822199d-261c-4d16-b10c-265f684da8a8} + + + ProjectExplorer.Project.Updater.FileVersion + 12 + + diff --git a/mmslib/mmslib.pro.user.5822199.2.7pre1 b/mmslib/mmslib.pro.user.5822199.2.7pre1 new file mode 100644 index 0000000..b3fe979 --- /dev/null +++ b/mmslib/mmslib.pro.user.5822199.2.7pre1 @@ -0,0 +1,243 @@ + + + + + + ProjectExplorer.Project.ActiveTarget + 0 + + + ProjectExplorer.Project.EditorSettings + + true + false + true + + Cpp + + CppGlobal + + + + QmlJS + + QmlJSGlobal + + + 2 + GBK + false + 4 + false + true + 1 + true + 0 + true + 0 + 8 + true + 1 + true + true + true + false + + + + ProjectExplorer.Project.PluginSettings + + + + ProjectExplorer.Project.Target.0 + + Desktop Qt 5.1.0 MSVC2012 OpenGL 64bit + Desktop Qt 5.1.0 MSVC2012 OpenGL 64bit + qt.510.win64_msvc2012_64_opengl.essentials_kit + 1 + 0 + 0 + + + + true + qmake + + QtProjectManager.QMakeBuildStep + false + true + + false + + + true + Make + + Qt4ProjectManager.MakeStep + + false + + + + 2 + 构建 + + ProjectExplorer.BuildSteps.Build + + + + true + Make + + Qt4ProjectManager.MakeStep + + true + clean + + + 1 + æ¸…ç† + + ProjectExplorer.BuildSteps.Clean + + 2 + false + + Debug + + Qt4ProjectManager.Qt4BuildConfiguration + 2 + D:/pqs_com_client/mmslib/%{JS: Util.asciify("build-mmslib-Desktop_Qt_5_1_0_MSVC2012_OpenGL_64bit-Debug")} + false + + + + + true + qmake + + QtProjectManager.QMakeBuildStep + false + true + + false + + + true + Make + + Qt4ProjectManager.MakeStep + + false + + + + 2 + 构建 + + ProjectExplorer.BuildSteps.Build + + + + true + Make + + Qt4ProjectManager.MakeStep + + true + clean + + + 1 + æ¸…ç† + + ProjectExplorer.BuildSteps.Clean + + 2 + false + + Release + + Qt4ProjectManager.Qt4BuildConfiguration + 0 + D:/pqs_com_client/mmslib/%{JS: Util.asciify("build-mmslib-Desktop_Qt_5_1_0_MSVC2012_OpenGL_64bit-Release")} + false + + 2 + + + 0 + 部署 + + ProjectExplorer.BuildSteps.Deploy + + 1 + 在本地部署 + + ProjectExplorer.DefaultDeployConfiguration + + 1 + + + true + + false + false + false + false + true + 0.01 + 10 + true + 25 + + true + valgrind + + 0 + 1 + 2 + 3 + 4 + 5 + 6 + 7 + 8 + 9 + 10 + 11 + 12 + 13 + 14 + + + 2 + + false + + %{buildDir} + 自定义执行档 + + ProjectExplorer.CustomExecutableRunConfiguration + 3768 + true + false + false + true + + 1 + + + + ProjectExplorer.Project.TargetCount + 1 + + + ProjectExplorer.Project.Updater.EnvironmentId + {5822199d-261c-4d16-b10c-265f684da8a8} + + + ProjectExplorer.Project.Updater.FileVersion + 12 + + diff --git a/mmslib/mmslib.pro.user.d8c8bb2 b/mmslib/mmslib.pro.user.d8c8bb2 new file mode 100644 index 0000000..36d4d25 --- /dev/null +++ b/mmslib/mmslib.pro.user.d8c8bb2 @@ -0,0 +1,243 @@ + + + + + + ProjectExplorer.Project.ActiveTarget + 0 + + + ProjectExplorer.Project.EditorSettings + + true + false + true + + Cpp + + CppGlobal + + + + QmlJS + + QmlJSGlobal + + + 2 + GBK + false + 4 + false + true + 1 + true + 0 + true + 0 + 8 + true + 1 + true + true + true + false + + + + ProjectExplorer.Project.PluginSettings + + + + ProjectExplorer.Project.Target.0 + + Desktop Qt 5.1.0 MSVC2012 OpenGL 64bit + Desktop Qt 5.1.0 MSVC2012 OpenGL 64bit + qt.510.win64_msvc2012_64_opengl.essentials_kit + 1 + 0 + 0 + + + + true + qmake + + QtProjectManager.QMakeBuildStep + false + true + + false + + + true + Make + + Qt4ProjectManager.MakeStep + + false + + + + 2 + 构建 + + ProjectExplorer.BuildSteps.Build + + + + true + Make + + Qt4ProjectManager.MakeStep + + true + clean + + + 1 + æ¸…ç† + + ProjectExplorer.BuildSteps.Clean + + 2 + false + + Debug + + Qt4ProjectManager.Qt4BuildConfiguration + 2 + D:/pqs_com_client/mmslib/%{JS: Util.asciify("build-mmslib-Desktop_Qt_5_1_0_MSVC2012_OpenGL_64bit-Debug")} + false + + + + + true + qmake + + QtProjectManager.QMakeBuildStep + false + true + + false + + + true + Make + + Qt4ProjectManager.MakeStep + + false + + + + 2 + 构建 + + ProjectExplorer.BuildSteps.Build + + + + true + Make + + Qt4ProjectManager.MakeStep + + true + clean + + + 1 + æ¸…ç† + + ProjectExplorer.BuildSteps.Clean + + 2 + false + + Release + + Qt4ProjectManager.Qt4BuildConfiguration + 0 + D:/pqs_com_client/mmslib/%{JS: Util.asciify("build-mmslib-Desktop_Qt_5_1_0_MSVC2012_OpenGL_64bit-Release")} + false + + 2 + + + 0 + 部署 + + ProjectExplorer.BuildSteps.Deploy + + 1 + 在本地部署 + + ProjectExplorer.DefaultDeployConfiguration + + 1 + + + true + + false + false + false + false + true + 0.01 + 10 + true + 25 + + true + valgrind + + 0 + 1 + 2 + 3 + 4 + 5 + 6 + 7 + 8 + 9 + 10 + 11 + 12 + 13 + 14 + + + 2 + + false + + %{buildDir} + 自定义执行档 + + ProjectExplorer.CustomExecutableRunConfiguration + 3768 + true + false + false + true + + 1 + + + + ProjectExplorer.Project.TargetCount + 1 + + + ProjectExplorer.Project.Updater.EnvironmentId + {d8c8bb25-44fd-4cdb-9bb3-e12dea660c73} + + + ProjectExplorer.Project.Updater.FileVersion + 12 + + diff --git a/mmslib/mvlu/c_concl.c b/mmslib/mvlu/c_concl.c new file mode 100644 index 0000000..1e0292b --- /dev/null +++ b/mmslib/mvlu/c_concl.c @@ -0,0 +1,160 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1994 - 1996, All Rights Reserved */ +/* */ +/* MODULE NAME : c_concl.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* mvl_conclude */ +/* _mvl_process_concl_conf */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 01/30/06 GLB 16 Integrated porting changes for VMS */ +/* 10/29/02 JRB 15 _mvla_send_concl: on err, set done & result in*/ +/* req_pend. Helps if user doesn't chk return. */ +/* 04/25/02 MDE 14 Added MLOG */ +/* 11/01/01 JRB 13 mvl_wait_req_done now returns ST_RET. */ +/* 03/07/01 JRB 12 Del LOCK on sync functs: caused deadlocks. */ +/* 04/14/00 JRB 11 Lint cleanup. */ +/* 03/08/00 JRB 10 Del #ifdef MVL_REQ_BUF_ENABLED: not used. */ +/* Del mvl_free_req_ctrl call. User must call. */ +/* Don't care numpend_req. Conclude is special. */ +/* 01/21/00 MDE 09 Now use MEM_SMEM for dynamic memory */ +/* 11/22/99 NAV 08 Add maxpend_req support */ +/* 09/13/99 MDE 07 Added SD_CONST modifiers */ +/* 12/08/98 MDE 06 Cleanup on request control handling */ +/* 11/17/98 MDE 05 Now use MVL_ERR_COMM_SERVE_ACTIVE error code */ +/* Use MVL_SYNC_REQ_INTERFACE */ +/* 11/16/98 MDE 04 Renamed internal functions (prefix '_') */ +/* 11/16/98 MDE 03 Added mvl_concl, mvla_concl, call release */ +/* 06/15/98 MDE 02 Changes to allow compile under C++ */ +/* 09/10/97 MDE 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" + +#include "mmsdefs.h" +#include "mvl_defs.h" +#include "mvl_log.h" +#include "mloguser.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + + +/************************************************************************/ + + +/************************************************************************/ +/* mvl_conclude */ +/************************************************************************/ + +#if defined(MVL_SYNC_REQ_INTERFACE) + +ST_RET mvl_conclude (MVL_NET_INFO *net_info) + { +MVL_REQ_PEND *req_out; + + MVL_LOG_ERR0 ("Warning: Using obsolete function 'mvl_conclude', please use 'mvl_concl'"); + return (mvl_concl (net_info, &req_out)); + } + +#endif + +/************************************************************************/ +/* mvl_concl */ +/************************************************************************/ + +ST_RET mvl_concl (MVL_NET_INFO *net_info, MVL_REQ_PEND **req_out) + { +ST_RET rc; + + if (_mvl_comm_serve_active == SD_TRUE) + { + MVL_LOG_NERR0 ("Error: mvl_comm_serv active"); + return (MVL_ERR_COMM_SERVE_ACTIVE); + } + + rc = mvla_concl (net_info, req_out); + if (rc == SD_SUCCESS) + rc = mvl_wait_req_done (*req_out); + return (rc); + } + + +/************************************************************************/ +/* mvla_concl */ +/************************************************************************/ + + +ST_RET mvla_concl (MVL_NET_INFO *net_info, MVL_REQ_PEND **req_out) + { +ST_RET rc; +MVL_REQ_PEND *req; + + *req_out = req = _mvl_get_req_ctrl (net_info, MMSOP_CONCLUDE); + if (!req) + return (MVL_ERR_REQ_CONTROL); + + S_LOCK_COMMON_RESOURCES (); + rc = _mvla_send_concl (net_info, req); + S_UNLOCK_COMMON_RESOURCES (); + return (rc); + } + +/************************************************************************/ +/* _mvla_send_concl */ +/************************************************************************/ + +ST_RET _mvla_send_concl (MVL_NET_INFO *net_info, + MVL_REQ_PEND *req_pend) + { +ST_RET rc; +ST_UCHAR _conclude_pdu[2]; + +/* "\x8B\x00" == "\213\000", for old compilers ... */ + _conclude_pdu[0]= (ST_UCHAR) 0x8b; + _conclude_pdu[1]= (ST_UCHAR) 0x00; + +/* We can log here if so desired */ + if ((mms_debug_sel & MMS_LOG_REQ) && ml_log_req_info_fun != NULL) + (*ml_log_req_info_fun) (0, MMSOP_CONCLUDE, NULL); + + rc = _mvl_send_msg (_conclude_pdu, 2, net_info); + if (rc != SD_SUCCESS) + { + MVL_LOG_NERR1 ("Conclude : _mvl_send_msg failed, rc = %x", rc); + req_pend->done = SD_TRUE; /* Helps if user doesn't chk return */ + req_pend->result = rc; + } + /* invoke_id not sent on conclude, but set to -1 just to match up resp.*/ + req_pend->invoke_id = (ST_UINT32) -1; + + return (rc); + } + +/************************************************************************/ +/* _mvl_process_concl_conf */ +/************************************************************************/ + +ST_VOID _mvl_process_concl_conf (MVL_REQ_PEND *req_pend) + { + _mvl_release (req_pend); + } + + diff --git a/mmslib/mvlu/c_defvl.c b/mmslib/mvlu/c_defvl.c new file mode 100644 index 0000000..1c5493c --- /dev/null +++ b/mmslib/mvlu/c_defvl.c @@ -0,0 +1,134 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1998 - 1998, All Rights Reserved */ +/* */ +/* MODULE NAME : c_defvl.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* mvl_defvlist */ +/* mvla_defvlist */ +/* _mvl_process_defvlist_conf */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/09/07 MDE 14 Enhanced filtered logging */ +/* 11/01/01 JRB 13 mvl_wait_req_done now returns ST_RET. */ +/* 09/21/01 JRB 12 Alloc global bufs only once at startup. */ +/* 03/07/01 JRB 11 Del LOCK on sync functs: caused deadlocks. */ +/* 03/08/00 JRB 10 Del #ifdef MVL_REQ_BUF_ENABLED: not used. */ +/* Del mvl_free_req_ctrl call. User must call. */ +/* Del invoke_id, numpend_req: see mvl_send_req.*/ +/* 01/21/00 MDE 09 Now use MEM_SMEM for dynamic memory */ +/* 01/21/00 MDE 08 Use '_mvl_get_req_buf' for MVL_REQ_BUF_EN.. */ +/* 11/19/99 NAV 07 Add #ifdef MVL_REQ_BUF_ENABLED */ +/* 10/20/99 NAV 06 Add maxpend_req support to aynsc functions */ +/* 09/13/99 MDE 05 Added SD_CONST modifiers */ +/* 11/17/98 MDE 04 Now use MVL_ERR_COMM_SERVE_ACTIVE error code */ +/* Use MVL_SYNC_REQ_INTERFACE */ +/* 11/16/98 MDE 03 Renamed internal functions (prefix '_') */ +/* 06/15/98 MDE 02 Changes to allow compile under C++ */ +/* 03/27/98 JRB 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" + +#include "mmsdefs.h" +#include "mms_pvmd.h" +#include "mvl_defs.h" +#include "mvl_log.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/* mvl_defvlist */ +/************************************************************************/ + +#if defined(MVL_SYNC_REQ_INTERFACE) + +ST_RET mvl_defvlist ( + MVL_NET_INFO *net_info, + DEFVLIST_REQ_INFO *req_info, + MVL_REQ_PEND **req_out) + { +ST_RET rc; + + if (_mvl_comm_serve_active == SD_TRUE) + { + MVL_LOG_NERR0 ("Error: mvl_comm_serv active"); + return (MVL_ERR_COMM_SERVE_ACTIVE); + } + + rc = mvla_defvlist (net_info, req_info, req_out); + if (rc == SD_SUCCESS) + rc = mvl_wait_req_done (*req_out); + return (rc); + } + +#endif + +/************************************************************************/ +/* mvla_defvlist */ +/************************************************************************/ + +ST_RET mvla_defvlist ( + MVL_NET_INFO *net_info, + DEFVLIST_REQ_INFO *req_info, + MVL_REQ_PEND **req_out) + { +ST_RET rc; +MVL_REQ_PEND *req_pend; + + *req_out = req_pend = _mvl_get_req_ctrl (net_info, MMSOP_DEF_VLIST); + if (!req_pend) + return (MVL_ERR_REQ_CONTROL); + + S_LOCK_COMMON_RESOURCES (); + rc = _mvla_send_defvlist (net_info, req_info, req_pend); + S_UNLOCK_COMMON_RESOURCES (); + return (rc); + + } + +/************************************************************************/ +/* _mvl_send_defvlist */ +/************************************************************************/ + +ST_RET _mvla_send_defvlist (MVL_NET_INFO *net_info, + DEFVLIST_REQ_INFO *req_info, + MVL_REQ_PEND *req_pend) + { +ST_RET rc; + + /* Build a defvlist request */ + rc = mpl_defvlist (req_info); + if (rc == SD_SUCCESS) + mpl_req_log (req_pend, req_info); + + rc = _mvl_send_req (net_info, req_pend, rc); + return (rc); + } + +/************************************************************************/ +/* _mvl_process_defvlist_conf */ +/************************************************************************/ + +ST_VOID _mvl_process_defvlist_conf (MVL_REQ_PEND *req_pend) + { + /* Nothing to do. Common code takes care of setting req_pend->result. */ + } + diff --git a/mmslib/mvlu/c_delvl.c b/mmslib/mvlu/c_delvl.c new file mode 100644 index 0000000..77b85d9 --- /dev/null +++ b/mmslib/mvlu/c_delvl.c @@ -0,0 +1,134 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1998 - 1998, All Rights Reserved */ +/* */ +/* MODULE NAME : c_delvl.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* mvl_delvlist */ +/* mvla_delvlist */ +/* _mvl_process_delvlist_conf */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/09/07 MDE 14 Enhanced filtered logging */ +/* 11/01/01 JRB 13 mvl_wait_req_done now returns ST_RET. */ +/* 11/01/01 JRB 12 Del LOCK on sync functs: caused deadlocks. */ +/* 09/21/01 JRB 11 Alloc global bufs only once at startup. */ +/* 03/08/00 JRB 10 Del #ifdef MVL_REQ_BUF_ENABLED: not used. */ +/* Del mvl_free_req_ctrl call. User must call. */ +/* Del invoke_id, numpend_req: see mvl_send_req.*/ +/* 01/21/00 MDE 09 Now use MEM_SMEM for dynamic memory */ +/* 01/21/00 MDE 08 Use '_mvl_get_req_buf' for MVL_REQ_BUF_EN.. */ +/* 11/19/99 NAV 07 Add #ifdef MVL_REQ_BUF_ENABLED */ +/* 10/20/99 NAV 06 Add maxpend_req support to aynsc functions */ +/* 09/13/99 MDE 05 Added SD_CONST modifiers */ +/* 11/17/98 MDE 04 Now use MVL_ERR_COMM_SERVE_ACTIVE error code */ +/* Use MVL_SYNC_REQ_INTERFACE */ +/* 11/16/98 MDE 03 Renamed internal functions (prefix '_') */ +/* 06/15/98 MDE 02 Changes to allow compile under C++ */ +/* 03/27/98 JRB 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" + +#include "mmsdefs.h" +#include "mms_pvmd.h" +#include "mvl_defs.h" +#include "mvl_log.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/* mvl_delvlist */ +/************************************************************************/ + +#if defined(MVL_SYNC_REQ_INTERFACE) + +ST_RET mvl_delvlist ( + MVL_NET_INFO *net_info, + DELVLIST_REQ_INFO *req_info, + MVL_REQ_PEND **req_out) + { +ST_RET rc; + + if (_mvl_comm_serve_active == SD_TRUE) + { + MVL_LOG_NERR0 ("Error: mvl_comm_serv active"); + return (MVL_ERR_COMM_SERVE_ACTIVE); + } + + rc = mvla_delvlist (net_info, req_info, req_out); + if (rc == SD_SUCCESS) + rc = mvl_wait_req_done (*req_out); + return (rc); + } + +#endif + +/************************************************************************/ +/* mvla_delvlist */ +/************************************************************************/ + +ST_RET mvla_delvlist ( + MVL_NET_INFO *net_info, + DELVLIST_REQ_INFO *req_info, + MVL_REQ_PEND **req_out) + { +ST_RET rc; +MVL_REQ_PEND *req_pend; + + *req_out = req_pend = _mvl_get_req_ctrl (net_info, MMSOP_DEL_VLIST); + if (!req_pend) + return (MVL_ERR_REQ_CONTROL); + + S_LOCK_COMMON_RESOURCES (); + rc = _mvla_send_delvlist (net_info, req_info, req_pend); + S_UNLOCK_COMMON_RESOURCES (); + return (rc); + } + +/************************************************************************/ +/* _mvla_send_delvlist */ +/************************************************************************/ + +ST_RET _mvla_send_delvlist (MVL_NET_INFO *net_info, + DELVLIST_REQ_INFO *req_info, + MVL_REQ_PEND *req_pend) + { +ST_RET rc; + + /* Build a delvlist request */ + rc = mpl_delvlist (req_info); + if (rc == SD_SUCCESS) + mpl_req_log (req_pend, req_info); + + rc = _mvl_send_req (net_info, req_pend, rc); + return (rc); + } + +/************************************************************************/ +/* _mvl_process_delvlist_conf */ +/************************************************************************/ + +ST_VOID _mvl_process_delvlist_conf (MVL_REQ_PEND *req_pend) + { + req_pend->u.delvlist.resp_info = + (DELVLIST_RESP_INFO *) req_pend->event->u.mms.dec_rslt.data_ptr; + } + diff --git a/mmslib/mvlu/c_fclose.c b/mmslib/mvlu/c_fclose.c new file mode 100644 index 0000000..ccee852 --- /dev/null +++ b/mmslib/mvlu/c_fclose.c @@ -0,0 +1,133 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1998 - 1998, All Rights Reserved */ +/* */ +/* MODULE NAME : c_fclose.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* mvl_fclose */ +/* mvla_fclose */ +/* _mvl_process_fclose_conf */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/09/07 MDE 14 Enhanced filtered logging */ +/* 11/01/01 JRB 13 mvl_wait_req_done now returns ST_RET. */ +/* 09/21/01 JRB 12 Alloc global bufs only once at startup. */ +/* 03/07/01 JRB 11 Del LOCK on sync functs: caused deadlocks. */ +/* 03/08/00 JRB 10 Del #ifdef MVL_REQ_BUF_ENABLED: not used. */ +/* Del mvl_free_req_ctrl call. User must call. */ +/* Del invoke_id, numpend_req: see mvl_send_req.*/ +/* 01/21/00 MDE 09 Now use MEM_SMEM for dynamic memory */ +/* 01/21/00 MDE 08 Use '_mvl_get_req_buf' for MVL_REQ_BUF_EN.. */ +/* 11/19/99 NAV 07 Add #ifdef MVL_REQ_BUF_ENABLED */ +/* 10/26/99 NAV 06 Add maxpend_req support to aynsc functions */ +/* 09/13/99 MDE 05 Added SD_CONST modifiers */ +/* 11/17/98 MDE 04 Now use MVL_ERR_COMM_SERVE_ACTIVE error code */ +/* Use MVL_SYNC_REQ_INTERFACE */ +/* 11/16/98 MDE 03 Renamed internal functions (prefix '_') */ +/* 06/15/98 MDE 02 Changes to allow compile under C++ */ +/* 03/27/98 JRB 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" + +#include "mmsdefs.h" +#include "mms_pvmd.h" +#include "mvl_defs.h" +#include "mvl_log.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/* mvl_fclose */ +/************************************************************************/ + +#if defined(MVL_SYNC_REQ_INTERFACE) + +ST_RET mvl_fclose ( + MVL_NET_INFO *net_info, + FCLOSE_REQ_INFO *req_info, + MVL_REQ_PEND **req_out) + { +ST_RET rc; + + if (_mvl_comm_serve_active == SD_TRUE) + { + MVL_LOG_NERR0 ("Error: mvl_comm_serv active"); + return (MVL_ERR_COMM_SERVE_ACTIVE); + } + + rc = mvla_fclose (net_info, req_info, req_out); + if (rc == SD_SUCCESS) + rc = mvl_wait_req_done (*req_out); + return (rc); + } + +#endif + +/************************************************************************/ +/* mvla_fclose */ +/************************************************************************/ + +ST_RET mvla_fclose ( + MVL_NET_INFO *net_info, + FCLOSE_REQ_INFO *req_info, + MVL_REQ_PEND **req_out) + { +ST_RET rc; +MVL_REQ_PEND *req_pend; + + *req_out = req_pend = _mvl_get_req_ctrl (net_info, MMSOP_FILE_CLOSE); + if (!req_pend) + return (MVL_ERR_REQ_CONTROL); + + S_LOCK_COMMON_RESOURCES (); + rc = _mvla_send_fclose (net_info, req_info, req_pend); + S_UNLOCK_COMMON_RESOURCES (); + return (rc); + } + +/************************************************************************/ +/* _mvla_send_fclose */ +/************************************************************************/ + +ST_RET _mvla_send_fclose (MVL_NET_INFO *net_info, + FCLOSE_REQ_INFO *req_info, + MVL_REQ_PEND *req_pend) + { +ST_RET rc; + + /* Build a fclose request */ + rc = mpl_fclose (req_info); + if (rc == SD_SUCCESS) + mpl_req_log (req_pend, req_info); + + rc = _mvl_send_req (net_info, req_pend, rc); + return (rc); + } + +/************************************************************************/ +/* _mvl_process_fclose_conf */ +/************************************************************************/ + +ST_VOID _mvl_process_fclose_conf (MVL_REQ_PEND *req_pend) + { + /* Nothing to do. Common code takes care of setting req_pend->result. */ + } + diff --git a/mmslib/mvlu/c_fdel.c b/mmslib/mvlu/c_fdel.c new file mode 100644 index 0000000..42f4cdd --- /dev/null +++ b/mmslib/mvlu/c_fdel.c @@ -0,0 +1,150 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1998 - 1998, All Rights Reserved */ +/* */ +/* MODULE NAME : c_fdel.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* mvl_fdelete */ +/* mvla_fdelete */ +/* _mvl_process_fdelete_conf */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/09/07 MDE 14 Enhanced filtered logging */ +/* 11/01/01 JRB 13 mvl_wait_req_done now returns ST_RET. */ +/* 09/21/01 JRB 12 Alloc global bufs only once at startup. */ +/* 03/07/01 JRB 11 Del LOCK on sync functs: caused deadlocks. */ +/* 03/08/00 JRB 10 Del #ifdef MVL_REQ_BUF_ENABLED: not used. */ +/* Del mvl_free_req_ctrl call. User must call. */ +/* Del invoke_id, numpend_req: see mvl_send_req.*/ +/* 01/21/00 MDE 09 Now use MEM_SMEM for dynamic memory */ +/* 01/21/00 MDE 08 Use '_mvl_get_req_buf' for MVL_REQ_BUF_EN.. */ +/* 11/19/99 NAV 07 Add #ifdef MVL_REQ_BUF_ENABLED */ +/* 10/26/99 NAV 06 Add maxpend_req support to aynsc functions */ +/* 09/13/99 MDE 05 Added SD_CONST modifiers */ +/* 11/17/98 MDE 04 Now use MVL_ERR_COMM_SERVE_ACTIVE error code */ +/* Use MVL_SYNC_REQ_INTERFACE */ +/* 11/16/98 MDE 03 Renamed internal functions (prefix '_') */ +/* 06/15/98 MDE 02 Changes to allow compile under C++ */ +/* 03/27/98 JRB 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" + +#include "mmsdefs.h" +#include "mms_pvmd.h" +#include "mvl_defs.h" +#include "mvl_log.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/* mvl_fdelete */ +/************************************************************************/ + +#if defined(MVL_SYNC_REQ_INTERFACE) + +ST_RET mvl_fdelete ( + MVL_NET_INFO *net_info, + ST_CHAR *filename, + MVL_REQ_PEND **req_out) + { +ST_RET rc; + + if (_mvl_comm_serve_active == SD_TRUE) + { + MVL_LOG_NERR0 ("Error: mvl_comm_serv active"); + return (MVL_ERR_COMM_SERVE_ACTIVE); + } + + rc = mvla_fdelete (net_info, filename, req_out); + if (rc == SD_SUCCESS) + rc = mvl_wait_req_done (*req_out); + return (rc); + } + +#endif + +/************************************************************************/ +/* mvla_fdelete */ +/************************************************************************/ + +ST_RET mvla_fdelete ( + MVL_NET_INFO *net_info, + ST_CHAR *filename, + MVL_REQ_PEND **req_out) + { +ST_RET rc; +MVL_REQ_PEND *req_pend; + + *req_out = req_pend = _mvl_get_req_ctrl (net_info, MMSOP_FILE_DELETE); + if (!req_pend) + return (MVL_ERR_REQ_CONTROL); + + S_LOCK_COMMON_RESOURCES (); + rc = _mvla_send_fdelete (net_info, filename, req_pend); + S_UNLOCK_COMMON_RESOURCES (); + return (rc); + } + +/************************************************************************/ +/* _mvla_send_fdelete */ +/************************************************************************/ + /* Allocate FDELETE_REQ_INFO with "one" FILE_NAME entry after it. */ + /* If need more than one FILE_NAME, must use "mpl_fdelete". */ +#define FDELETE_REQ_INFO_SIZE (sizeof (FDELETE_REQ_INFO) + (1 * sizeof (FILE_NAME))) + +ST_RET _mvla_send_fdelete (MVL_NET_INFO *net_info, + ST_CHAR *filename, + MVL_REQ_PEND *req_pend) + { +ST_RET rc; +FDELETE_REQ_INFO *req_info; +FILE_NAME *fname_idx; +ST_CHAR fdelete_req_info[FDELETE_REQ_INFO_SIZE]; + + /* Allocate FDELETE_REQ_INFO with "one" FILE_NAME entry after it. */ + /* If need more than one FILE_NAME, must use "mpl_fdelete". */ + req_info = (FDELETE_REQ_INFO *) fdelete_req_info; + + req_info->num_of_fname = 1; + + /* Point to the FILE_NAME structure and fill it in. */ + fname_idx = (FILE_NAME *)(req_info + 1); + fname_idx->fn_len = strlen (filename); + fname_idx->fname = filename; + + /* Build a fdelete request */ + rc = mpl_fdelete (req_info); + if (rc == SD_SUCCESS) + mpl_req_log (req_pend, req_info); + + rc = _mvl_send_req (net_info, req_pend, rc); + return (rc); + } + +/************************************************************************/ +/* _mvl_process_fdelete_conf */ +/************************************************************************/ + +ST_VOID _mvl_process_fdelete_conf (MVL_REQ_PEND *req_pend) + { + /* Nothing to do. Common code takes care of setting req_pend->result. */ + } + diff --git a/mmslib/mvlu/c_fdir.c b/mmslib/mvlu/c_fdir.c new file mode 100644 index 0000000..7ef62b8 --- /dev/null +++ b/mmslib/mvlu/c_fdir.c @@ -0,0 +1,231 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1998 - 1998, All Rights Reserved */ +/* */ +/* MODULE NAME : c_fdir.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* mvl_fdir */ +/* mvla_fdir */ +/* _mvl_process_fdir_conf */ +/* */ +/* WARNING: these functions were designed to be as easy as possible to */ +/* use for MOST applications. They will work for any system where */ +/* filenames can be represented as a single NULL terminated string. */ +/* They do NOT support filenames with multiple parts or which contain */ +/* If these features are needed, then the more complicated mpl_fdir */ +/* must be used directly. */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/09/07 MDE 14 Enhanced filtered logging */ +/* 11/01/01 JRB 13 mvl_wait_req_done now returns ST_RET. */ +/* 09/21/01 JRB 12 Alloc global bufs only once at startup. */ +/* 03/07/01 JRB 11 Del LOCK on sync functs: caused deadlocks. */ +/* 03/08/00 JRB 10 Del #ifdef MVL_REQ_BUF_ENABLED: not used. */ +/* Del mvl_free_req_ctrl call. User must call. */ +/* Del invoke_id, numpend_req: see mvl_send_req.*/ +/* 01/21/00 MDE 09 Now use MEM_SMEM for dynamic memory */ +/* 01/21/00 MDE 08 Use '_mvl_get_req_buf' for MVL_REQ_BUF_EN.. */ +/* 11/19/99 NAV 07 Add #ifdef MVL_REQ_BUF_ENABLED */ +/* 10/26/99 NAV 06 Add maxpend_req support to aynsc functions */ +/* 09/13/99 MDE 05 Added SD_CONST modifiers */ +/* 11/17/98 MDE 04 Now use MVL_ERR_COMM_SERVE_ACTIVE error code */ +/* Use MVL_SYNC_REQ_INTERFACE */ +/* 11/16/98 MDE 03 Renamed internal functions (prefix '_') */ +/* 06/15/98 MDE 02 Changes to allow compile under C++ */ +/* 03/27/98 JRB 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" + +#include "mmsdefs.h" +#include "mms_pvmd.h" +#include "mvl_defs.h" +#include "mvl_log.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/* mvl_fdir */ +/************************************************************************/ + +#if defined(MVL_SYNC_REQ_INTERFACE) + +ST_RET mvl_fdir ( + MVL_NET_INFO *net_info, + ST_CHAR *filename, + ST_CHAR *ca_filename, + MVL_REQ_PEND **req_out) + { +ST_RET rc; + + if (_mvl_comm_serve_active == SD_TRUE) + { + MVL_LOG_NERR0 ("Error: mvl_comm_serv active"); + return (MVL_ERR_COMM_SERVE_ACTIVE); + } + + rc = mvla_fdir (net_info, filename, ca_filename, req_out); + if (rc == SD_SUCCESS) + rc = mvl_wait_req_done (*req_out); + return (rc); + } + +#endif + +/************************************************************************/ +/* mvla_fdir */ +/************************************************************************/ + +ST_RET mvla_fdir ( + MVL_NET_INFO *net_info, + ST_CHAR *filename, + ST_CHAR *ca_filename, + MVL_REQ_PEND **req_out) + { +ST_RET rc; +MVL_REQ_PEND *req_pend; + + *req_out = req_pend = _mvl_get_req_ctrl (net_info, MMSOP_FILE_DIR); + if (!req_pend) + return (MVL_ERR_REQ_CONTROL); + req_pend->u.fdir.resp_info = NULL; /* Confirm funct must allocate */ + + S_LOCK_COMMON_RESOURCES (); + rc = _mvla_send_fdir (net_info, filename, ca_filename, req_pend); + S_UNLOCK_COMMON_RESOURCES (); + return (rc); + } + +/************************************************************************/ +/* _mvla_send_fdir */ +/************************************************************************/ +/* Allocate FDIR_REQ_INFO with "one" FILE_NAME entry after it. */ +/* If need more than one FILE_NAME, must use "mpl_fdir". */ +#define FDIR_REQ_INFO_SIZE (sizeof (FDIR_REQ_INFO) + (2 * sizeof (FILE_NAME))) + +ST_RET _mvla_send_fdir (MVL_NET_INFO *net_info, + ST_CHAR *filename, + ST_CHAR *ca_filename, + MVL_REQ_PEND *req_pend) + { +ST_RET rc; +FDIR_REQ_INFO *req_info; +FILE_NAME *fname_idx; +ST_CHAR fdir_req_info[FDIR_REQ_INFO_SIZE]; + + req_info = (FDIR_REQ_INFO *) fdir_req_info; + if (filename) + { + req_info->filespec_pres = SD_TRUE; + req_info->num_of_fs_fname = 1; + } + else + { + req_info->filespec_pres = SD_FALSE; + req_info->num_of_fs_fname = 0; + } + + if (ca_filename) + { + req_info->cont_after_pres = SD_TRUE; + req_info->num_of_ca_fname = 1; + } + else + { + req_info->cont_after_pres = SD_FALSE; + req_info->num_of_ca_fname = 0; + } + + /* Point to first FILE_NAME structure. */ + fname_idx = (FILE_NAME *)(req_info + 1); + + if (filename) + { + fname_idx->fn_len = strlen (filename); + fname_idx->fname = filename; + fname_idx++; /* point to next */ + } + + if (ca_filename) + { + fname_idx->fn_len = strlen (ca_filename); + fname_idx->fname = ca_filename; + fname_idx++; /* point to next */ + } + + /* Build a fdir request */ + rc = mpl_fdir (req_info); + if (rc == SD_SUCCESS) + mpl_req_log (req_pend, req_info); + + rc = _mvl_send_req (net_info, req_pend, rc); + return (rc); + } + +/************************************************************************/ +/* _mvl_process_fdir_conf */ +/************************************************************************/ + +ST_VOID _mvl_process_fdir_conf (MVL_REQ_PEND *req_pend) + { +FDIR_DIR_ENT *dir_ent; +MVL_DIR_ENT *mvl_dir_ent; +MVL_FDIR_RESP_INFO *mvl_resp_info; +FDIR_RESP_INFO *resp_info; +ST_INT j; +ST_INT info_size; + + resp_info = (FDIR_RESP_INFO *) req_pend->event->u.mms.dec_rslt.data_ptr; + + /* Allocate and fill in "req_pend->u.fdir.resp_info". */ +/* CRITICAL: mvl_free_req_ctrl () must free it. */ + info_size = sizeof (MVL_FDIR_RESP_INFO) + + resp_info->num_dir_ent * sizeof(MVL_DIR_ENT); + req_pend->u.fdir.resp_info = + (MVL_FDIR_RESP_INFO *) M_MALLOC (MSMEM_GEN, info_size); + + mvl_resp_info = req_pend->u.fdir.resp_info; /* Local ptr to it. */ + mvl_resp_info->num_dir_ent = resp_info->num_dir_ent; + mvl_resp_info->more_follows = resp_info->more_follows; + mvl_resp_info->dir_ent = (MVL_DIR_ENT *) (mvl_resp_info + 1); + if (resp_info->num_dir_ent) + { + dir_ent = (FDIR_DIR_ENT *)(resp_info + 1); /* point to first entry */ + mvl_dir_ent = mvl_resp_info->dir_ent; /* point to first entry */ + for (j = 0; j < resp_info->num_dir_ent; j++, mvl_dir_ent++) + { + mvl_dir_ent->fsize = dir_ent->fsize; + mvl_dir_ent->mtimpres = dir_ent->mtimpres; + mvl_dir_ent->mtime = dir_ent->mtime; + + if (_mvl_concat_filename (mvl_dir_ent->filename, dir_ent->num_of_fname, + (FILE_NAME *)(dir_ent + 1), sizeof (mvl_dir_ent->filename))) + { + MVL_LOG_ERR0 ("Error: FileDirectory.Conf: can't process filename"); + req_pend->result = SD_FAILURE; + return; + } + + /* Point to next dir entry. */ + dir_ent = (FDIR_DIR_ENT *) ((ST_CHAR *)dir_ent + sizeof (FDIR_DIR_ENT) + + dir_ent->num_of_fname * sizeof (FILE_NAME)); + } + } + } diff --git a/mmslib/mvlu/c_fget.c b/mmslib/mvlu/c_fget.c new file mode 100644 index 0000000..5b6ba17 --- /dev/null +++ b/mmslib/mvlu/c_fget.c @@ -0,0 +1,460 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2000 - 2000, All Rights Reserved */ +/* */ +/* MODULE NAME : c_fget.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* mvla_fget */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/03/08 JRB 09 Add static on "u_f*" functions. */ +/* Chk fget_cnf_ptr before using. */ +/* 11/12/07 MDE 08 Use _mvl_getpath for temp file path */ +/* 01/30/06 GLB 07 Integrated porting changes for VMS */ +/* 03/01/04 MDE 06 Free request for fget (file open) error */ +/* 06/17/03 MDE 05 Now use _mvl_tmpnam */ +/* 02/17/03 JRB 04 Del unused includes. */ +/* 07/18/02 JRB 03 Del unused var. */ +/* 03/25/02 MDE 02 Moved error/reject elements outside union */ +/* 06/22/00 GLB 01 Created to do an asynchronous File Get. */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" + +#include "mmsdefs.h" +#include "mms_pvmd.h" +#include "mvl_defs.h" +#include "mvl_log.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +static MVL_REQ_PEND *send_file_open (MVL_NET_INFO *NetInfo, ST_CHAR *src); +static MVL_REQ_PEND *send_file_read (MVL_NET_INFO *NetInfo, + MVL_FGET_REQ_INFO *u_file_info); +static MVL_REQ_PEND *send_file_close (MVL_NET_INFO *NetInfo, + MVL_FGET_REQ_INFO *u_file_info); + +static ST_VOID u_fopen_done (MVL_REQ_PEND *req); +static ST_VOID u_fread_done (MVL_REQ_PEND *req); +static ST_VOID u_fclose_done (MVL_REQ_PEND *req); + +/************************************************************************/ +/* mvla_fget */ +/* Perform an asynchronous file copy */ +/************************************************************************/ +ST_RET mvla_fget ( + MVL_NET_INFO *net_info, + ST_CHAR *srcfilename, + ST_CHAR *destfilename, + MVL_FGET_REQ_INFO *fget_req_info) + { +MVL_REQ_PEND *req_out; +ST_CHAR tmpfile_path[MVL_MAX_TMPFILE_PATH]; + + /* save destination name for rename */ + if (strlen (destfilename) <= MAX_FILE_NAME) + { + strcpy (fget_req_info->destfilename, destfilename); + } + else + { + MVL_LOG_NERR0 ("ERROR: mvla_fget: destination filename save failed "); + return (SD_FAILURE); + } + + /* save source name for returning copy status */ + if (strlen (srcfilename) <= MAX_FILE_NAME) + { + strcpy (fget_req_info->srcfilename, srcfilename); + } + else + { + MVL_LOG_NERR0 ("ERROR: mvla_fget: source filename save failed "); + return (SD_FAILURE); + } + + /* Create a temporary file name to copy into. This prevents partially */ + /* transferred files from hanging around and being accidently used */ + /* Open the created temporary file. Send a file open request for the */ + /* source file specified. */ + + _mvl_getpath (destfilename, tmpfile_path); + + if (_mvl_tmpnam (fget_req_info->tempfilename, tmpfile_path) != SD_SUCCESS || + (fget_req_info->fp = fopen(fget_req_info->tempfilename, "wb")) == NULL || + (req_out = send_file_open (net_info, srcfilename)) == NULL) + { + if (fget_req_info->fp ) + { + MVL_LOG_NERR1 ("ERROR: mvla_fget: fopen (%s) failed ", + fget_req_info->srcfilename); + + if (fclose (fget_req_info->fp)!=0) /* close temporary file */ + { + MVL_LOG_ERR1 ("ERROR: mvla_fget: fclose of temp file (%s) failed ", + fget_req_info->tempfilename); + } + + if (remove (fget_req_info->tempfilename)!=0) /* get rid of temporary file */ + { + MVL_LOG_ERR1 ("ERROR: mvla_fget: remove of temp file (%s) failed ", + fget_req_info->tempfilename); + } + } + else + { /* no temp file created */ + MVL_LOG_NERR0 ("ERROR: mvla_fget: temp file creation failed "); + } + return(SD_FAILURE); + } + else + { + req_out->v = fget_req_info; + return (SD_SUCCESS); + } + + } /* mvla_fget */ + +/************************************************************************/ +/* send_file_open */ +/* Send a file open request to open source file on the other side */ +/************************************************************************/ + +MVL_REQ_PEND *send_file_open (MVL_NET_INFO *NetInfo, ST_CHAR *src) + { +MVL_REQ_PEND *req= NULL; + + if ((mvla_fopen(NetInfo, src, 0, &req)) == SD_SUCCESS) + { + req->u_req_done = u_fopen_done; + } + return (req); + } /* send_file_open */ + +/************************************************************************/ +/* u_fopen_done */ +/* It was indicated that a file open request was made */ +/* Confirm file open response that was received as a result of a request*/ +/************************************************************************/ + +static ST_VOID u_fopen_done( MVL_REQ_PEND *req) +{ + ST_RET ret; + MVL_REQ_PEND *freadreq= NULL; + MVL_FGET_REQ_INFO *fget_req_info; + FOPEN_RESP_INFO *resp_info; + ERR_INFO *err_ptr; + REJECT_RESP_INFO *rej_ptr; + + fget_req_info = (MVL_FGET_REQ_INFO *) req->v; + ret = req->result; + if (ret == SD_SUCCESS) /* open of source file succeeded */ + { + resp_info = req->u.fopen.resp_info; + fget_req_info ->frsmid = resp_info->frsmid; + fget_req_info ->fsize = resp_info->ent.fsize; + if ((freadreq = send_file_read (req->net_info, fget_req_info)) != NULL) + { + freadreq->v = fget_req_info; + } + else + { + MVL_LOG_NERR1 ("ERROR: u_fopen_done: send_file_read (%s) failed ", + fget_req_info->srcfilename); + ret = SD_FAILURE; + + /* stop copy file process and report error to user */ + fget_req_info->fget_done = SD_TRUE; + fget_req_info->fget_error = ret; + if (fget_req_info->fget_cnf_ptr) + (*fget_req_info->fget_cnf_ptr)(fget_req_info); + + } + } /* file open succeeded */ + else + { /* file open failed */ + MVL_LOG_NERR1 ("ERROR: u_fopen_done: mvla_fopen (%s) failed ", + fget_req_info->srcfilename); + + if (req->result==MVL_ERR_CNF_REJ_ERR) + { + rej_ptr = (REJECT_RESP_INFO *) req->event->u.mms.dec_rslt.data_ptr; + MVLU_LOG_FLOW3 ("MMS REJECT \n detected_here = %d \n invoke_known = %d invoke = %d", + req->reject_info->detected_here, + req->reject_info->invoke_known, + req->reject_info->invoke); + + MVLU_LOG_CFLOW3 ("pdu_type = %d \n rej_class = %d \n rej_code = %d", + req->reject_info->pdu_type, + req->reject_info->rej_class, + req->reject_info->rej_code); + } + + if (req->result==MVL_ERR_CNF_ERR_OK) + { + err_ptr = (ERR_INFO *) req->event->u.mms.dec_rslt.data_ptr; + MVLU_LOG_FLOW2 ("MMS ERROR RESPONSE \n class = %d, code = %d", + req->error_info->eclass, + req->error_info->code); + } + + if (fclose (fget_req_info->fp)!=0) /* close temporary file */ + { + MVL_LOG_ERR1 ("ERROR: u_fopen_done: fclose of temp file (%s) failed ", + fget_req_info->tempfilename); + } + + if (remove (fget_req_info->tempfilename)!=0) /* get rid of temporary file */ + MVL_LOG_ERR1 ("ERROR: u_fopen_done: remove of temp file (%s) failed ", + fget_req_info->tempfilename); + + /* stop copy file process and report error to user */ + fget_req_info->fget_done = SD_TRUE; + fget_req_info->fget_error = ret; + if (fget_req_info->fget_cnf_ptr) + (*fget_req_info->fget_cnf_ptr)(fget_req_info); + } /* file open failed */ + + mvl_free_req_ctrl (req); + } /* u_fopen_done */ + +/************************************************************************/ +/* send_file_read */ +/* Send a file read request to copy a block of the source file data */ +/************************************************************************/ + +MVL_REQ_PEND *send_file_read (MVL_NET_INFO *NetInfo, + MVL_FGET_REQ_INFO *fget_req_info) + { + MVL_REQ_PEND *req= NULL; + FREAD_REQ_INFO fread_req; + + fread_req.frsmid = fget_req_info->frsmid; + if ((mvla_fread (NetInfo, &fread_req, &req)) == SD_SUCCESS) + { + req->u_req_done = u_fread_done; + } + + return (req); + } /* send_file_read */ + + +/************************************************************************/ +/* u_fread_done */ +/* Confirm the file read response sent to indicate a read request */ +/************************************************************************/ + +static ST_VOID u_fread_done( MVL_REQ_PEND *req) + { + ST_RET ret; + MVL_REQ_PEND *freadreq= NULL; + MVL_REQ_PEND *fclosereq= NULL; + MVL_FGET_REQ_INFO *fget_req_info; + FREAD_RESP_INFO *resp_info; + + fget_req_info = (MVL_FGET_REQ_INFO *) req->v; + + ret = req->result; + if (ret == SD_SUCCESS) /* read succeeded */ + { + resp_info = req->u.fread.resp_info; + + if ( fwrite (resp_info->filedata, sizeof(ST_CHAR), resp_info->fd_len, fget_req_info->fp) + == (unsigned) resp_info->fd_len ) + { + if ( resp_info->more_follows == SD_TRUE) + { + if ((freadreq = send_file_read (req->net_info, fget_req_info)) != NULL) + { + freadreq->v = fget_req_info; /* if more file data request to read another block */ + } + else + { /* read failed */ + MVL_LOG_NERR1 ("ERROR: u_fread_done: send_file_read (%s) failed ", + fget_req_info->srcfilename); + ret = SD_FAILURE; + + /* stop copy file process and report error to user */ + fget_req_info->fget_done = SD_TRUE; + fget_req_info->fget_error = ret; + if (fget_req_info->fget_cnf_ptr) + (*fget_req_info->fget_cnf_ptr)(fget_req_info); + + } + } /* more file data to be copied */ + else + { /* no more file data to be copied */ + if ((fclosereq = send_file_close (req->net_info, fget_req_info)) != NULL) + { + fclosereq->v = fget_req_info; /* no more file data so send a file close request */ + } + else + { + MVL_LOG_NERR1 ("ERROR: u_fread_done: send_file_close (%s) failed ", + fget_req_info->srcfilename); + ret = SD_FAILURE; + + /* stop copy file process and report error to user */ + fget_req_info->fget_done = SD_TRUE; + fget_req_info->fget_error = ret; + if (fget_req_info->fget_cnf_ptr) + (*fget_req_info->fget_cnf_ptr)(fget_req_info); + + } + } + } /* writing data to temp file succeeded */ + else + { /* write failed */ + MVL_LOG_NERR0 ("ERROR: u_fread_done: fwrite failed "); + ret = SD_FAILURE; + + /* stop copy file process and report error to user */ + fget_req_info->fget_done = SD_TRUE; + fget_req_info->fget_error = ret; + if (fget_req_info->fget_cnf_ptr) + (*fget_req_info->fget_cnf_ptr)(fget_req_info); + + } /* write failed */ + } /* read of data in source file succeeded */ + else + { /* read failed so close and remove temp file */ + MVL_LOG_NERR1 ("ERROR: u_fread_done: mvla_fread (%s) failed ", + fget_req_info->srcfilename); + + if (fclose (fget_req_info->fp)!=0) /* close temporary file */ + { + MVL_LOG_ERR1 ("ERROR: mvla_fget: fclose of temp file (%s) failed ", + fget_req_info->tempfilename); + } + + if (remove (fget_req_info->tempfilename)!=0) /* get rid of temporary file */ + { + MVL_LOG_ERR1 ("ERROR: mvla_fget: remove of temp file (%s) failed ", + fget_req_info->tempfilename); + } + + /* stop copy file process and report error to user */ + fget_req_info->fget_done = SD_TRUE; + fget_req_info->fget_error = ret; + if (fget_req_info->fget_cnf_ptr) + (*fget_req_info->fget_cnf_ptr)(fget_req_info); + + } /* read failed */ + + mvl_free_req_ctrl (req); + } /* u_fread_done */ + +/************************************************************************/ +/* send_file_close */ +/* No more data to read from the source file so send a request to close */ +/* the source file */ +/************************************************************************/ + +MVL_REQ_PEND *send_file_close (MVL_NET_INFO *NetInfo, + MVL_FGET_REQ_INFO *fget_req_info) + { + MVL_REQ_PEND *req= NULL; + FCLOSE_REQ_INFO fclose_req; + + fclose_req.frsmid = fget_req_info->frsmid; + + if ((mvla_fclose (NetInfo, &fclose_req, &req)) == SD_SUCCESS) + { + req->u_req_done = u_fclose_done; + } + + return (req); + } /* send_file_close */ + +/************************************************************************/ +/* u_fclose_done */ +/* Confirm source file closed response */ +/************************************************************************/ + +static ST_VOID u_fclose_done( MVL_REQ_PEND *req) + { + ST_RET ret; + MVL_FGET_REQ_INFO *fget_req_info; + + fget_req_info = (MVL_FGET_REQ_INFO *) req->v; + + ret = req->result; + if (ret == SD_SUCCESS) /* close of source file succeeded */ + { + if (fclose (fget_req_info->fp)!=0) /* close the temporary file */ + { + MVL_LOG_ERR1 ("ERROR: mvla_fget: fclose of temp file (%s) failed ", + fget_req_info->tempfilename); + } + + /* Remove dest file so temp file can be renamed to it. */ + /* NOTE: remove may fail if file did not already exist. */ + remove (fget_req_info->destfilename); + + /* rename the temporary file to become the requested destination file */ + /* use the ANSI rename function if available on your OS */ + /* otherwise use other function appropriate for your system */ + if (rename (fget_req_info->tempfilename, fget_req_info->destfilename)) + { + MVL_LOG_ERR1 ("ERROR: u_fclose_done: rename (%s) failed ", + fget_req_info->tempfilename); + if (remove (fget_req_info->tempfilename)!=0) /* cleanup useless file */ + { + MVL_LOG_ERR1 ("ERROR: u_fclose_done: remove (%s) failed ", + fget_req_info->tempfilename); + } + ret = SD_FAILURE; + + } + else + { + } + + } /* close succeeded */ + else + { /* close failed */ + + MVL_LOG_NERR1 ("ERROR: u_fclose_done: mvla_fclose (%s) failed ", + fget_req_info->srcfilename); + + if (fclose (fget_req_info->fp)!=0) /* close temporary file */ + { + MVL_LOG_ERR1 ("ERROR: mvla_fget: fclose of temp file (%s) failed ", + fget_req_info->tempfilename); + } + + if (remove (fget_req_info->tempfilename)!=0) /* get rid of temporary file */ + { + MVL_LOG_ERR1 ("ERROR: mvla_fget: remove of temp file (%s) failed ", + fget_req_info->tempfilename); + } + } + + /* copy file process complete so report done and status to user */ + fget_req_info->fget_done = SD_TRUE; + fget_req_info->fget_error = ret; + if (fget_req_info->fget_cnf_ptr) + (*fget_req_info->fget_cnf_ptr)(fget_req_info); + + mvl_free_req_ctrl (req); + + } /* end u_fclose_done */ + + diff --git a/mmslib/mvlu/c_fopen.c b/mmslib/mvlu/c_fopen.c new file mode 100644 index 0000000..49b9b4a --- /dev/null +++ b/mmslib/mvlu/c_fopen.c @@ -0,0 +1,158 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1998 - 1998, All Rights Reserved */ +/* */ +/* MODULE NAME : c_fopen.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* mvl_fopen */ +/* mvla_fopen */ +/* _mvl_process_fopen_conf */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/09/07 MDE 14 Enhanced filtered logging */ +/* 11/01/01 JRB 13 mvl_wait_req_done now returns ST_RET. */ +/* 09/21/01 JRB 12 Alloc global bufs only once at startup. */ +/* 03/07/01 JRB 11 Del LOCK on sync functs: caused deadlocks. */ +/* 03/08/00 JRB 10 Del #ifdef MVL_REQ_BUF_ENABLED: not used. */ +/* Del mvl_free_req_ctrl call. User must call. */ +/* Del invoke_id, numpend_req: see mvl_send_req.*/ +/* Add missing S_LOCK_... */ +/* 01/21/00 MDE 09 Now use MEM_SMEM for dynamic memory */ +/* 01/21/00 MDE 08 Use '_mvl_get_req_buf' for MVL_REQ_BUF_EN.. */ +/* 11/19/99 NAV 07 Add #ifdef MVL_REQ_BUF_ENABLED */ +/* 10/26/99 NAV 06 Add maxpend_req support to aynsc functions */ +/* 09/13/99 MDE 05 Added SD_CONST modifiers */ +/* 11/17/98 MDE 04 Now use MVL_ERR_COMM_SERVE_ACTIVE error code */ +/* Use MVL_SYNC_REQ_INTERFACE */ +/* 11/16/98 MDE 03 Renamed internal functions (prefix '_') */ +/* 06/15/98 MDE 02 Changes to allow compile under C++ */ +/* 03/27/98 JRB 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" + +#include "mmsdefs.h" +#include "mms_pvmd.h" +#include "mvl_defs.h" +#include "mvl_log.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/* mvl_fopen */ +/************************************************************************/ + +#if defined(MVL_SYNC_REQ_INTERFACE) + +ST_RET mvl_fopen ( + MVL_NET_INFO *net_info, + ST_CHAR *filename, + ST_UINT32 init_pos, + MVL_REQ_PEND **req_out) + { +ST_RET rc; + + if (_mvl_comm_serve_active == SD_TRUE) + { + MVL_LOG_NERR0 ("Error: mvl_comm_serv active"); + return (MVL_ERR_COMM_SERVE_ACTIVE); + } + rc = mvla_fopen (net_info, filename, init_pos, req_out); + if (rc == SD_SUCCESS) + rc = mvl_wait_req_done (*req_out); + else + printf("mvla_fopen(%s) fail...\n",filename); + return (rc); + } + +#endif + +/************************************************************************/ +/* mvla_fopen */ +/************************************************************************/ + +ST_RET mvla_fopen ( + MVL_NET_INFO *net_info, + ST_CHAR *filename, + ST_UINT32 init_pos, + MVL_REQ_PEND **req_out) + { +ST_RET rc; +MVL_REQ_PEND *req_pend; + + *req_out = req_pend = _mvl_get_req_ctrl (net_info, MMSOP_FILE_OPEN); + if (!req_pend) + return (MVL_ERR_REQ_CONTROL); + + S_LOCK_COMMON_RESOURCES (); + rc = _mvla_send_fopen (net_info, filename, init_pos, req_pend); + S_UNLOCK_COMMON_RESOURCES (); + + return (rc); + } + +/************************************************************************/ +/* _mvla_send_fopen */ +/************************************************************************/ + /* Allocate FOPEN_REQ_INFO with "one" FILE_NAME entry after it. */ + /* If need more than one FILE_NAME, must use "mpl_fopen". */ +#define FOPEN_REQ_INFO_SIZE (sizeof (FOPEN_REQ_INFO) + (1 * sizeof (FILE_NAME))) + +ST_RET _mvla_send_fopen (MVL_NET_INFO *net_info, + ST_CHAR *filename, + ST_UINT32 init_pos, + MVL_REQ_PEND *req_pend) + { +ST_RET rc; +FOPEN_REQ_INFO *req_info; +FILE_NAME *fname_idx; +ST_CHAR fopen_req_info[FOPEN_REQ_INFO_SIZE]; + + /* Allocate FOPEN_REQ_INFO with "one" FILE_NAME entry after it. */ + /* If need more than one FILE_NAME, must use "mpl_fopen". */ + req_info = (FOPEN_REQ_INFO *) fopen_req_info; + + req_info->init_pos = init_pos; + req_info->num_of_fname = 1; + + /* Point to the FILE_NAME structure and fill it in. */ + fname_idx = (FILE_NAME *)(req_info + 1); + fname_idx->fn_len = strlen (filename); + fname_idx->fname = filename; + + /* Build a fopen request */ + rc = mpl_fopen (req_info); + if (rc == SD_SUCCESS) + mpl_req_log (req_pend, req_info); + + rc = _mvl_send_req (net_info, req_pend, rc); + return (rc); + } + +/************************************************************************/ +/* _mvl_process_fopen_conf */ +/************************************************************************/ + +ST_VOID _mvl_process_fopen_conf (MVL_REQ_PEND *req_pend) + { + req_pend->u.fopen.resp_info = + (FOPEN_RESP_INFO *) req_pend->event->u.mms.dec_rslt.data_ptr; + } + diff --git a/mmslib/mvlu/c_fread.c b/mmslib/mvlu/c_fread.c new file mode 100644 index 0000000..2fc17fa --- /dev/null +++ b/mmslib/mvlu/c_fread.c @@ -0,0 +1,139 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1998 - 1998, All Rights Reserved */ +/* */ +/* MODULE NAME : c_fread.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* mvl_fread */ +/* mvla_fread */ +/* _mvl_process_fread_conf */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/09/07 MDE 14 Enhanced filtered logging */ +/* 11/01/01 JRB 13 mvl_wait_req_done now returns ST_RET. */ +/* 09/21/01 JRB 12 Alloc global bufs only once at startup. */ +/* 03/07/01 JRB 11 Del LOCK on sync functs: caused deadlocks. */ +/* 03/08/00 JRB 10 Del #ifdef MVL_REQ_BUF_ENABLED: not used. */ +/* Del mvl_free_req_ctrl call. User must call. */ +/* Del invoke_id, numpend_req: see mvl_send_req.*/ +/* 01/21/00 MDE 09 Now use MEM_SMEM for dynamic memory */ +/* 01/21/00 MDE 08 Use '_mvl_get_req_buf' for MVL_REQ_BUF_EN.. */ +/* 11/19/99 NAV 07 Add #ifdef MVL_REQ_BUF_ENABLED */ +/* 10/26/99 NAV 06 Add maxpend_req support to aynsc functions */ +/* 09/13/99 MDE 05 Added SD_CONST modifiers */ +/* 11/17/98 MDE 04 Now use MVL_ERR_COMM_SERVE_ACTIVE error code */ +/* Use MVL_SYNC_REQ_INTERFACE */ +/* 11/16/98 MDE 03 Renamed internal functions (prefix '_') */ +/* 06/15/98 MDE 02 Changes to allow compile under C++ */ +/* 03/27/98 JRB 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" + +#include "mmsdefs.h" +#include "mms_pvmd.h" +#include "mvl_defs.h" +#include "mvl_log.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/* mvl_fread */ +/************************************************************************/ + +#if defined(MVL_SYNC_REQ_INTERFACE) + +ST_RET mvl_fread ( + MVL_NET_INFO *net_info, + FREAD_REQ_INFO *req_info, + MVL_REQ_PEND **req_out) + { +ST_RET rc; + + if (_mvl_comm_serve_active == SD_TRUE) + { + MVL_LOG_NERR0 ("Error: mvl_comm_serv active"); + return (MVL_ERR_COMM_SERVE_ACTIVE); + } + + rc = mvla_fread (net_info, req_info, req_out); + if (rc == SD_SUCCESS) + rc = mvl_wait_req_done (*req_out); + return (rc); + } + +#endif + +/************************************************************************/ +/* mvla_fread */ +/************************************************************************/ + +ST_RET mvla_fread ( + MVL_NET_INFO *net_info, + FREAD_REQ_INFO *req_info, + MVL_REQ_PEND **req_out) + { +ST_RET rc; +MVL_REQ_PEND *req_pend; + + *req_out = req_pend = _mvl_get_req_ctrl (net_info, MMSOP_FILE_READ); + if (!req_pend) + return (MVL_ERR_REQ_CONTROL); + + S_LOCK_COMMON_RESOURCES (); + rc = _mvla_send_fread (net_info, req_info, req_pend); + S_UNLOCK_COMMON_RESOURCES (); + return (rc); + } + +/************************************************************************/ +/* _mvla_send_fread */ +/************************************************************************/ + +ST_RET _mvla_send_fread (MVL_NET_INFO *net_info, + FREAD_REQ_INFO *req_info, + MVL_REQ_PEND *req_pend) + { +ST_RET rc; + + /* Build a fread request */ + rc = mpl_fread (req_info); + if (rc == SD_SUCCESS) + mpl_req_log (req_pend, req_info); + + rc = _mvl_send_req (net_info, req_pend, rc); + return (rc); + } + +/************************************************************************/ +/* _mvl_process_fread_conf */ +/************************************************************************/ + +ST_VOID _mvl_process_fread_conf (MVL_REQ_PEND *req_pend) + { + req_pend->u.fread.resp_info = + (FREAD_RESP_INFO *) req_pend->event->u.mms.dec_rslt.data_ptr; + + /* NOTE: This function has the SIGNIFICANT advantage that it avoids */ + /* allocating another buffer and copying the "filedata" which may be */ + /* large. This can be done because the "event" is not freed until the */ + /* user calls "mvl_free_req_ctrl" when they are done with the data. */ + } + diff --git a/mmslib/mvlu/c_fren.c b/mmslib/mvlu/c_fren.c new file mode 100644 index 0000000..782e7ec --- /dev/null +++ b/mmslib/mvlu/c_fren.c @@ -0,0 +1,140 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1998 - 1999, All Rights Reserved */ +/* */ +/* MODULE NAME : c_fren.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* mvl_frename */ +/* mvla_frename */ +/* _mvl_process_frename_conf */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/09/07 MDE 11 Enhanced filtered logging */ +/* 11/01/01 JRB 10 mvl_wait_req_done now returns ST_RET. */ +/* 09/21/01 JRB 09 Alloc global bufs only once at startup. */ +/* 03/07/01 JRB 08 Del LOCK on sync functs: caused deadlocks. */ +/* 01/21/00 MDE 07 Eliminated allocation */ +/* 10/10/99 GLB 06 Created to accomodate file Rename */ +/* 09/13/99 MDE 05 Added SD_CONST modifiers */ +/* 11/17/98 MDE 04 Now use MVL_ERR_COMM_SERVE_ACTIVE error code */ +/* Use MVL_SYNC_REQ_INTERFACE */ +/* 11/16/98 MDE 03 Renamed internal functions (prefix '_') */ +/* 06/15/98 MDE 02 Changes to allow compile under C++ */ +/* 03/27/98 JRB 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" + +#include "mmsdefs.h" +#include "mms_pvmd.h" +#include "mvl_defs.h" +#include "mvl_log.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/* mvl_frename */ +/************************************************************************/ + +#if defined(MVL_SYNC_REQ_INTERFACE) + +ST_RET mvl_frename ( + MVL_NET_INFO *net_info, + ST_CHAR *curfilename, + ST_CHAR *newfilename, + MVL_REQ_PEND **req_out) + { +ST_RET rc; + + if (_mvl_comm_serve_active == SD_TRUE) + { + MVL_LOG_NERR0 ("Error: mvl_comm_serv active"); + return (MVL_ERR_COMM_SERVE_ACTIVE); + } + + rc = mvla_frename (net_info, curfilename, newfilename, req_out); + if (rc == SD_SUCCESS) + rc = mvl_wait_req_done (*req_out); + return (rc); + } + +#endif + +/************************************************************************/ +/* mvla_frename */ +/************************************************************************/ + +/* Allocate FRENAME_REQ_INFO with 2 FILE_NAME entries after it. */ +/* If need multiple FILE_NAME elements, must use "mpl_frename". */ +#define FRENAME_REQ_INFO_SIZE (sizeof (FRENAME_REQ_INFO) + (2 * sizeof (FILE_NAME))) + +ST_RET mvla_frename ( + MVL_NET_INFO *net_info, + ST_CHAR *curfilename, + ST_CHAR *newfilename, + MVL_REQ_PEND **req_out) + { +ST_RET rc; +MVL_REQ_PEND *req_pend; +FRENAME_REQ_INFO *req_info; +FILE_NAME *fname_idx; +ST_CHAR frename_req_info[FRENAME_REQ_INFO_SIZE]; + + *req_out = req_pend = _mvl_get_req_ctrl (net_info, MMSOP_FILE_RENAME); + if (!req_pend) + return (MVL_ERR_REQ_CONTROL); + + req_info = (FRENAME_REQ_INFO *) frename_req_info; + + req_info->num_of_cur_fname = 1; + req_info->num_of_new_fname = 1; + + /* Point to the FILE_NAME structure and fill in the current FileName */ + fname_idx = (FILE_NAME *)(req_info + 1); + fname_idx->fn_len = strlen (curfilename); + fname_idx->fname = curfilename; + /* move the pointer by 1 name and fill in the new FileName */ + fname_idx++; + fname_idx->fn_len = strlen (newfilename); + fname_idx->fname = newfilename; + + + S_LOCK_COMMON_RESOURCES (); + + /* Build a frename request */ + rc = mpl_frename (req_info); + if (rc == SD_SUCCESS) + mpl_req_log (req_pend, req_info); + + rc = _mvl_send_req (net_info, req_pend, rc); + + S_UNLOCK_COMMON_RESOURCES (); + return (rc); + } + +/************************************************************************/ +/* _mvl_process_frename_conf */ +/************************************************************************/ + +ST_VOID _mvl_process_frename_conf (MVL_REQ_PEND *req_pend) + { + /* Nothing to do. Common code takes care of setting req_pend->result. */ + } + diff --git a/mmslib/mvlu/c_getdom.c b/mmslib/mvlu/c_getdom.c new file mode 100644 index 0000000..2ac1b7b --- /dev/null +++ b/mmslib/mvlu/c_getdom.c @@ -0,0 +1,133 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1998 - 1998, All Rights Reserved */ +/* */ +/* MODULE NAME : c_getdom.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* mvl_getdom */ +/* mvla_getdom */ +/* _mvl_process_getdom_conf */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/09/07 MDE 13 Enhanced filtered logging */ +/* 11/01/01 JRB 12 mvl_wait_req_done now returns ST_RET. */ +/* 09/21/01 JRB 11 Alloc global bufs only once at startup. */ +/* 03/07/01 JRB 10 Del LOCK on sync functs: caused deadlocks. */ +/* 03/08/00 JRB 09 Del #ifdef MVL_REQ_BUF_ENABLED: not used. */ +/* Del mvl_free_req_ctrl call. User must call. */ +/* Del invoke_id, numpend_req: see mvl_send_req.*/ +/* 01/21/00 MDE 08 Now use MEM_SMEM for dynamic memory */ +/* 01/21/00 MDE 07 Use '_mvl_get_req_buf' for MVL_REQ_BUF_EN.. */ +/* 11/19/99 NAV 06 Add #ifdef MVL_REQ_BUF_ENABLED */ +/* 10/26/99 NAV 05 Add maxpend_req support to aynsc functions */ +/* 09/13/99 MDE 04 Added SD_CONST modifiers */ +/* 11/17/98 MDE 03 Now use MVL_ERR_COMM_SERVE_ACTIVE error code */ +/* Use MVL_SYNC_REQ_INTERFACE */ +/* 11/16/98 MDE 02 Renamed internal functions (prefix '_') */ +/* 10/01/98 DWL 01 Created from c_getvar.c */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" + +#include "mmsdefs.h" +#include "mms_pvmd.h" +#include "mvl_defs.h" +#include "mvl_log.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/* mvl_getdom */ +/************************************************************************/ + +#if defined(MVL_SYNC_REQ_INTERFACE) + +ST_RET mvl_getdom ( + MVL_NET_INFO *net_info, + GETDOM_REQ_INFO *req_info, + MVL_REQ_PEND **req_out) + { +ST_RET rc; + + if (_mvl_comm_serve_active == SD_TRUE) + { + MVL_LOG_NERR0 ("Error: mvl_comm_serv active"); + return (MVL_ERR_COMM_SERVE_ACTIVE); + } + + rc = mvla_getdom (net_info, req_info, req_out); + if (rc == SD_SUCCESS) + rc = mvl_wait_req_done (*req_out); + return (rc); + } + +#endif + +/************************************************************************/ +/* mvla_getdom */ +/************************************************************************/ + +ST_RET mvla_getdom ( + MVL_NET_INFO *net_info, + GETDOM_REQ_INFO *req_info, + MVL_REQ_PEND **req_out) + { +ST_RET rc; +MVL_REQ_PEND *req_pend; + + *req_out = req_pend = _mvl_get_req_ctrl (net_info, MMSOP_GET_DOM_ATTR); + if (!req_pend) + return (MVL_ERR_REQ_CONTROL); + + S_LOCK_COMMON_RESOURCES (); + rc = _mvla_send_getdom (net_info, req_info, req_pend); + S_UNLOCK_COMMON_RESOURCES (); + return (rc); + } + +/************************************************************************/ +/* _mvla_send_getdom */ +/************************************************************************/ + +ST_RET _mvla_send_getdom (MVL_NET_INFO *net_info, + GETDOM_REQ_INFO *req_info, + MVL_REQ_PEND *req_pend) + { +ST_RET rc; + + /* Build a getdom request */ + rc = mpl_getdom (req_info); + if (rc == SD_SUCCESS) + mpl_req_log (req_pend, req_info); + + rc = _mvl_send_req (net_info, req_pend, rc); + return (rc); + } + +/************************************************************************/ +/* _mvl_process_getdom_conf */ +/************************************************************************/ + +ST_VOID _mvl_process_getdom_conf (MVL_REQ_PEND *req_pend) + { + req_pend->u.getdom.resp_info = + (GETDOM_RESP_INFO *) req_pend->event->u.mms.dec_rslt.data_ptr; + } + diff --git a/mmslib/mvlu/c_getnam.c b/mmslib/mvlu/c_getnam.c new file mode 100644 index 0000000..44af194 --- /dev/null +++ b/mmslib/mvlu/c_getnam.c @@ -0,0 +1,133 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1998 - 1998, All Rights Reserved */ +/* */ +/* MODULE NAME : c_getnam.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* mvl_getnam */ +/* mvla_getnam */ +/* _mvl_process_getnam_conf */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/09/07 MDE 13 Enhanced filtered logging */ +/* 11/01/01 JRB 12 mvl_wait_req_done now returns ST_RET. */ +/* 09/21/01 JRB 11 Alloc global bufs only once at startup. */ +/* 03/07/01 JRB 10 Del LOCK on sync functs: caused deadlocks. */ +/* 03/08/00 JRB 09 Del #ifdef MVL_REQ_BUF_ENABLED: not used. */ +/* Del mvl_free_req_ctrl call. User must call. */ +/* Del invoke_id, numpend_req: see mvl_send_req.*/ +/* 01/21/00 MDE 08 Now use MEM_SMEM for dynamic memory */ +/* 01/21/00 MDE 07 Use '_mvl_get_req_buf' for MVL_REQ_BUF_EN.. */ +/* 11/19/99 NAV 06 Add #ifdef MVL_REQ_BUF_ENABLED */ +/* 10/20/99 NAV 05 Add maxpend_req support to aynsc functions */ +/* 09/13/99 MDE 04 Added SD_CONST modifiers */ +/* 11/17/98 MDE 03 Now use MVL_ERR_COMM_SERVE_ACTIVE error code */ +/* Use MVL_SYNC_REQ_INTERFACE */ +/* 11/16/98 MDE 02 Renamed internal functions (prefix '_') */ +/* 10/01/98 DWL 01 Created from c_getdom.c */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" + +#include "mmsdefs.h" +#include "mms_pvmd.h" +#include "mvl_defs.h" +#include "mvl_log.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/* mvl_getnam */ +/************************************************************************/ + +#if defined(MVL_SYNC_REQ_INTERFACE) + +ST_RET mvl_getnam ( + MVL_NET_INFO *net_info, + NAMELIST_REQ_INFO *req_info, + MVL_REQ_PEND **req_out) + { +ST_RET rc; + + if (_mvl_comm_serve_active == SD_TRUE) + { + MVL_LOG_NERR0 ("Error: mvl_comm_serv active"); + return (MVL_ERR_COMM_SERVE_ACTIVE); + } + + rc = mvla_getnam (net_info, req_info, req_out); + if (rc == SD_SUCCESS) + rc = mvl_wait_req_done (*req_out); + return (rc); + } + +#endif + +/************************************************************************/ +/* mvla_getnam */ +/************************************************************************/ + +ST_RET mvla_getnam ( + MVL_NET_INFO *net_info, + NAMELIST_REQ_INFO *req_info, + MVL_REQ_PEND **req_out) + { +ST_RET rc; +MVL_REQ_PEND *req_pend; + + *req_out = req_pend = _mvl_get_req_ctrl (net_info, MMSOP_GET_NAMLIST); + if (!req_pend) + return (MVL_ERR_REQ_CONTROL); + + S_LOCK_COMMON_RESOURCES (); + rc = _mvla_send_getname (net_info, req_info, req_pend); + S_UNLOCK_COMMON_RESOURCES (); + return (rc); + } + +/************************************************************************/ +/* _mvla_send_getname */ +/************************************************************************/ + +ST_RET _mvla_send_getname (MVL_NET_INFO *net_info, + NAMELIST_REQ_INFO *req_info, + MVL_REQ_PEND *req_pend) + { +ST_RET rc; + + /* Build a getvar request */ + rc = mpl_namelist (req_info); + if (rc == SD_SUCCESS) + mpl_req_log (req_pend, req_info); + + rc = _mvl_send_req (net_info, req_pend, rc); + return (rc); + } + +/************************************************************************/ +/* _mvl_process_getnam_conf */ +/************************************************************************/ + +ST_VOID _mvl_process_getnam_conf (MVL_REQ_PEND *req_pend) + { + req_pend->u.getnam.resp_info = + (NAMELIST_RESP_INFO *) req_pend->event->u.mms.dec_rslt.data_ptr; + } + diff --git a/mmslib/mvlu/c_getvar.c b/mmslib/mvlu/c_getvar.c new file mode 100644 index 0000000..0ca29af --- /dev/null +++ b/mmslib/mvlu/c_getvar.c @@ -0,0 +1,133 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1998 - 1998, All Rights Reserved */ +/* */ +/* MODULE NAME : c_getvar.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* mvl_getvar */ +/* mvla_getvar */ +/* _mvl_process_getvar_conf */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/09/07 MDE 13 Enhanced filtered logging */ +/* 11/01/01 JRB 12 mvl_wait_req_done now returns ST_RET. */ +/* 09/21/01 JRB 11 Alloc global bufs only once at startup. */ +/* 03/07/01 JRB 10 Del LOCK on sync functs: caused deadlocks. */ +/* 03/08/00 JRB 09 Del #ifdef MVL_REQ_BUF_ENABLED: not used. */ +/* Del mvl_free_req_ctrl call. User must call. */ +/* Del invoke_id, numpend_req: see mvl_send_req.*/ +/* 01/21/00 MDE 08 Now use MEM_SMEM for dynamic memory */ +/* 01/21/00 MDE 07 Use '_mvl_get_req_buf' for MVL_REQ_BUF_EN.. */ +/* 11/19/99 NAV 06 Add #ifdef MVL_REQ_BUF_ENABLED */ +/* 10/20/99 NAV 05 Add maxpend_req support to aynsc functions */ +/* 09/13/99 MDE 04 Added SD_CONST modifiers */ +/* 11/17/98 MDE 03 Now use MVL_ERR_COMM_SERVE_ACTIVE error code */ +/* Use MVL_SYNC_REQ_INTERFACE */ +/* 11/16/98 MDE 02 Renamed internal functions (prefix '_') */ +/* 09/02/98 DWL 01 Created from c_jinit.c */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" + +#include "mmsdefs.h" +#include "mms_pvmd.h" +#include "mvl_defs.h" +#include "mvl_log.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/* mvl_getvar */ +/************************************************************************/ + +#if defined(MVL_SYNC_REQ_INTERFACE) + +ST_RET mvl_getvar ( + MVL_NET_INFO *net_info, + GETVAR_REQ_INFO *req_info, + MVL_REQ_PEND **req_out) + { +ST_RET rc; + + if (_mvl_comm_serve_active == SD_TRUE) + { + MVL_LOG_NERR0 ("Error: mvl_comm_serv active"); + return (MVL_ERR_COMM_SERVE_ACTIVE); + } + + rc = mvla_getvar (net_info, req_info, req_out); + if (rc == SD_SUCCESS) + rc = mvl_wait_req_done (*req_out); + return (rc); + } + +#endif + +/************************************************************************/ +/* mvla_getvar */ +/************************************************************************/ + +ST_RET mvla_getvar ( + MVL_NET_INFO *net_info, + GETVAR_REQ_INFO *req_info, + MVL_REQ_PEND **req_out) + { +ST_RET rc; +MVL_REQ_PEND *req_pend; + + *req_out = req_pend = _mvl_get_req_ctrl (net_info, MMSOP_GET_VAR); + if (!req_pend) + return (MVL_ERR_REQ_CONTROL); + + S_LOCK_COMMON_RESOURCES (); + rc = _mvla_send_getvar (net_info, req_info, req_pend); + S_UNLOCK_COMMON_RESOURCES (); + return (rc); + } + +/************************************************************************/ +/* _mvla_send_getvar */ +/************************************************************************/ + +ST_RET _mvla_send_getvar (MVL_NET_INFO *net_info, + GETVAR_REQ_INFO *req_info, + MVL_REQ_PEND *req_pend) + { +ST_RET rc; + + /* Build a getvar request */ + rc = mpl_getvar (req_info); + if (rc == SD_SUCCESS) + mpl_req_log (req_pend, req_info); + + rc = _mvl_send_req (net_info, req_pend, rc); + return (rc); + } + +/************************************************************************/ +/* _mvl_process_getvar_conf */ +/************************************************************************/ + +ST_VOID _mvl_process_getvar_conf (MVL_REQ_PEND *req_pend) + { + req_pend->u.getvar.resp_info = + (GETVAR_RESP_INFO *) req_pend->event->u.mms.dec_rslt.data_ptr; + } + diff --git a/mmslib/mvlu/c_getvla.c b/mmslib/mvlu/c_getvla.c new file mode 100644 index 0000000..a9e29b7 --- /dev/null +++ b/mmslib/mvlu/c_getvla.c @@ -0,0 +1,135 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1998 - 1998, All Rights Reserved */ +/* */ +/* MODULE NAME : c_getvla.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* mvl_getvlist */ +/* mvla_getvlist */ +/* _mvl_process_getvlist_conf */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/09/07 MDE 14 Enhanced filtered logging */ +/* 11/01/01 JRB 13 mvl_wait_req_done now returns ST_RET. */ +/* 09/21/01 JRB 12 Alloc global bufs only once at startup. */ +/* 03/07/01 JRB 11 Del LOCK on sync functs: caused deadlocks. */ +/* 03/08/00 JRB 10 Del #ifdef MVL_REQ_BUF_ENABLED: not used. */ +/* Del mvl_free_req_ctrl call. User must call. */ +/* Del invoke_id, numpend_req: see mvl_send_req.*/ +/* 01/21/00 MDE 09 Now use MEM_SMEM for dynamic memory */ +/* 01/21/00 MDE 08 Use '_mvl_get_req_buf' for MVL_REQ_BUF_EN.. */ +/* 11/19/99 NAV 07 Add #ifdef MVL_REQ_BUF_ENABLED */ +/* 10/20/99 NAV 06 Add maxpend_req support to aynsc functions */ +/* 09/13/99 MDE 05 Added SD_CONST modifiers */ +/* 11/17/98 MDE 04 Now use MVL_ERR_COMM_SERVE_ACTIVE error code */ +/* Use MVL_SYNC_REQ_INTERFACE */ +/* 11/16/98 MDE 03 Renamed internal functions (prefix '_') */ +/* 06/15/98 MDE 02 Changes to allow compile under C++ */ +/* 03/27/98 JRB 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" + +#include "mmsdefs.h" +#include "mms_pvmd.h" +#include "mvl_defs.h" +#include "mvl_log.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/* mvl_getvlist */ +/************************************************************************/ + +#if defined(MVL_SYNC_REQ_INTERFACE) + +ST_RET mvl_getvlist ( + MVL_NET_INFO *net_info, + GETVLIST_REQ_INFO *req_info, + MVL_REQ_PEND **req_out) + { +ST_RET rc; + + if (_mvl_comm_serve_active == SD_TRUE) + { + MVL_LOG_NERR0 ("Error: mvl_comm_serv active"); + return (MVL_ERR_COMM_SERVE_ACTIVE); + } + + rc = mvla_getvlist (net_info, req_info, req_out); + if (rc == SD_SUCCESS) + rc = mvl_wait_req_done (*req_out); + return (rc); + } + +#endif + +/************************************************************************/ +/* mvla_getvlist */ +/************************************************************************/ + +ST_RET mvla_getvlist ( + MVL_NET_INFO *net_info, + GETVLIST_REQ_INFO *req_info, + MVL_REQ_PEND **req_out) + { +ST_RET rc; +MVL_REQ_PEND *req_pend; + + *req_out = req_pend = _mvl_get_req_ctrl (net_info, MMSOP_GET_VLIST); + if (!req_pend) + return (MVL_ERR_REQ_CONTROL); + + S_LOCK_COMMON_RESOURCES (); + rc = _mvla_send_getvlist (net_info, req_info, req_pend); + S_UNLOCK_COMMON_RESOURCES (); + return (rc); + } + +/************************************************************************/ +/* _mvla_send_getvist */ +/************************************************************************/ + +ST_RET _mvla_send_getvlist (MVL_NET_INFO *net_info, + GETVLIST_REQ_INFO *req_info, + MVL_REQ_PEND *req_pend) + { +ST_RET rc; + + /* Build a getvlist request */ + rc = mpl_getvlist (req_info); + if (rc == SD_SUCCESS) + mpl_req_log (req_pend, req_info); + + rc = _mvl_send_req (net_info, req_pend, rc); + return (rc); + } + +/************************************************************************/ +/* _mvl_process_getvlist_conf */ +/* Set "req_pend->u.getvlist.resp_info" to POINT to response info. */ +/************************************************************************/ + +ST_VOID _mvl_process_getvlist_conf (MVL_REQ_PEND *req_pend) + { + req_pend->u.getvlist.resp_info = + (GETVLIST_RESP_INFO *) req_pend->event->u.mms.dec_rslt.data_ptr; + } + diff --git a/mmslib/mvlu/c_ident.c b/mmslib/mvlu/c_ident.c new file mode 100644 index 0000000..d191a94 --- /dev/null +++ b/mmslib/mvlu/c_ident.c @@ -0,0 +1,115 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1994 - 1996, All Rights Reserved */ +/* */ +/* MODULE NAME : c_ident.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* mvl_identify */ +/* mvla_identify */ +/* _mvl_process_ident_conf */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/09/07 MDE 12 Enhanced filtered logging */ +/* 11/01/01 JRB 11 mvl_wait_req_done now returns ST_RET. */ +/* 09/21/01 JRB 10 Alloc global bufs only once at startup. */ +/* 03/07/01 JRB 09 Del LOCK on sync functs: caused deadlocks. */ +/* 01/21/00 MDE 08 Now use MEM_SMEM for dynamic memory */ +/* 09/13/99 MDE 07 Added SD_CONST modifiers */ +/* 11/17/98 MDE 06 Now use MVL_ERR_COMM_SERVE_ACTIVE error code */ +/* Use MVL_SYNC_REQ_INTERFACE */ +/* 11/16/98 MDE 05 Renamed internal functions (prefix '_') */ +/* 06/15/98 MDE 04 Changes to allow compile under C++ */ +/* 05/22/98 JRB 03 Pass (MVL_REQ_PEND**) to sync function also. */ +/* Do not pass resp info ptr. Confirm sets it. */ +/* 04/16/98 JRB 02 Conf func: Let caller do "common" stuff. */ +/* Always set (*req_out) so user can always free*/ +/* 09/10/97 MDE 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" + +#include "mmsdefs.h" +#include "mms_pvmd.h" +#include "mvl_defs.h" +#include "mvl_log.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + + +/************************************************************************/ +/************************************************************************/ +/* mvl_identify */ +/************************************************************************/ + +#if defined(MVL_SYNC_REQ_INTERFACE) + +ST_RET mvl_identify (MVL_NET_INFO *net_info, MVL_REQ_PEND **req_out) + { +ST_RET rc; + + if (_mvl_comm_serve_active == SD_TRUE) + { + MVL_LOG_NERR0 ("Error: mvl_comm_serv active"); + return (MVL_ERR_COMM_SERVE_ACTIVE); + } + + rc = mvla_identify (net_info, req_out); + if (rc == SD_SUCCESS) + rc = mvl_wait_req_done (*req_out); + return (rc); + } + +#endif + +/************************************************************************/ +/* mvla_identify */ +/************************************************************************/ + +ST_RET mvla_identify (MVL_NET_INFO *net_info, + MVL_REQ_PEND **req_out) + { +ST_RET rc; +MVL_REQ_PEND *req; + + *req_out = req = _mvl_get_req_ctrl (net_info, MMSOP_IDENTIFY); + if (!req) + return (MVL_ERR_REQ_CONTROL); + + S_LOCK_COMMON_RESOURCES (); + + /* Build a identify request */ + rc = mpl_ident(); + if (rc == SD_SUCCESS) + mpl_req_log (req, NULL); + + rc = _mvl_send_req (net_info, req, rc); + + S_UNLOCK_COMMON_RESOURCES (); + return (rc); + } + +/************************************************************************/ +/* _mvl_process_ident_conf */ +/************************************************************************/ +ST_VOID _mvl_process_ident_conf (MVL_REQ_PEND *req_pend) + { + req_pend->u.ident.resp_info = + (IDENT_RESP_INFO *) req_pend->event->u.mms.dec_rslt.data_ptr; + } diff --git a/mmslib/mvlu/c_info.c b/mmslib/mvlu/c_info.c new file mode 100644 index 0000000..a804dfc --- /dev/null +++ b/mmslib/mvlu/c_info.c @@ -0,0 +1,292 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1994 - 2002, All Rights Reserved */ +/* */ +/* MODULE NAME : c_info.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* _mvl_process_info_ind */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 02/25/04 MDE 16 Tweaked logging */ +/* 10/28/03 JRB 15 Move mvl_free_comm_event call from */ +/* mvl_info_data.. to _mvl_process_info_ind. */ +/* mvl_info_data..: use num_va arg (ignored before)*/ +/* 01/30/02 JRB 14 Del use of stack_sel. */ +/* 06/22/00 MDE 13 Minor log change */ +/* 01/21/00 MDE 12 Now use MEM_SMEM for dynamic memory */ +/* 09/13/99 MDE 11 Added SD_CONST modifiers */ +/* 04/07/99 MDE 10 Added '#ifdef MVL_INFO_RPT_CLIENT' */ +/* 02/22/99 JRB 09 BUG FIX: Don't access "va" if it is NULL. */ +/* 01/08/99 JRB 08 Use new "bsearch" object model. */ +/* 12/09/98 MDE 07 'mvl_info_rpt_rem_process' now frees event */ +/* 11/16/98 MDE 06 Renamed internal functions (prefix '_') */ +/* 07/10/98 JRB 05 Don't use net_info->rem_vmd for CLACSE, not set.*/ +/* 06/30/98 MDE 04 Added more flexable CLient Info Rpt code */ +/* 06/15/98 MDE 03 Changes to allow compile under C++ */ +/* 02/10/98 MDE 02 Removed NEST_RT_TYPES support */ +/* 09/10/97 MDE 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "mmsdefs.h" +#include "mms_pvar.h" +#include "mms_vvar.h" +#include "mvl_defs.h" +#include "mvl_log.h" + +/************************************************************************/ +#ifdef MVL_INFO_RPT_CLIENT +/************************************************************************/ + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/************************************************************************/ +/* _mvl_process_info_ind */ +/* A info indication has been received, process it and respond */ +/************************************************************************/ +ST_VOID u_mvl_info_rpt_ind (MVL_COMM_EVENT *event); +ST_VOID _mvl_process_info_ind (MVL_COMM_EVENT *event) + { +INFO_REQ_INFO *info_ptr; +VAR_ACC_SPEC *va_spec; + +/* Do a sanity check to make sure the number of data is correct */ + info_ptr = (INFO_REQ_INFO *) event->u.mms.dec_rslt.data_ptr; + va_spec = &info_ptr->va_spec; + if (va_spec->var_acc_tag == VAR_ACC_VARLIST) + { + if (va_spec->num_of_variables != info_ptr->num_of_acc_result) + { + MVL_LOG_NERR2 ("InfoRpt Ind : NumVar (%d) vs. NumAccRslt (%d)mismatch", + va_spec->num_of_variables, info_ptr->num_of_acc_result); + _mvl_free_comm_event (event); /* All done with this event */ + return; + } + } + +/* OK, just give the info report to the user. */ +/* NOTE: User must finish processing the event in u_mvl_info_rpt_ind, */ +/* because it is freed immediately after this function returns. */ + u_mvl_info_rpt_ind (event); + _mvl_free_comm_event (event); /* done with this event, free it */ + } + +/************************************************************************/ +/* mvl_info_data_to_local */ +/************************************************************************/ +/* This function is used to convert Info Report data to local format */ +/* The user supplies a table of variable associations, which speify the */ +/* data type, destination, and pre/post processing functions. */ +/* This function free's the info report resources when the conversion */ +/* are complete. */ + +ST_VOID mvl_info_data_to_local (MVL_COMM_EVENT *event, + ST_INT num_va, + MVL_VAR_ASSOC **info_va) + { +INFO_REQ_INFO *info_ptr; +ST_INT j; +ACCESS_RESULT *ar_ptr; +MVL_VAR_ASSOC *va; +RUNTIME_TYPE *rt; +ST_INT rt_len; + + info_ptr = (INFO_REQ_INFO *) event->u.mms.dec_rslt.data_ptr; + ar_ptr = info_ptr->acc_rslt_list; + for (j = 0; j < num_va; ++j, ++ar_ptr) + { + va = info_va[j]; + if (!va) + { + MVLU_LOG_FLOW1 ("InfoRpt Ind : No VA provided for AccessResult %d, ignoring", j); + continue; + } + + if (ar_ptr->acc_rslt_tag == ACC_RSLT_SUCCESS) + { + + /* Call the preprocessing function for this variable, if it exists */ + if (va->proc && va->proc->pre_info) + (*va->proc->pre_info)(va, event->net_info); + + /* convert data in read buffer to local representation */ + /* and store in local buffer */ + if (mvl_get_runtime (va->type_id, &rt, &rt_len) == SD_SUCCESS) + { + va->result = ms_asn1_to_local (rt, + rt_len, + ar_ptr->va_data.data, + ar_ptr->va_data.len, + (ST_CHAR *) va->data); + + if (va->result != SD_SUCCESS) + { + MVL_LOG_NERR1 ("InfoRpt Ind : Data conversion error for variable '%s'", + va->name); + } + } + else /* bad type ID */ + { + MVL_LOG_NERR1 ("InfoRpt Ind : Bad Type ID '%d'", va->type_id); + va->result = SD_FAILURE; + } + } + else /* access result == failure */ + { + MVL_LOG_NERR0 ("InfoRpt Ind : Access Result == SD_FAILURE"); + va->result = SD_FAILURE; + } + + if ((va->result == SD_SUCCESS) && va->proc && va->proc->post_info) + { + (*va->proc->post_info)(va, event->net_info); + } + } + + } + +/************************************************************************/ +/* mvl_info_rpt_rem_process */ +/************************************************************************/ + +#if defined(MVL_REM_VMD_SUPPORT) + +MVL_VMD_CTRL *(*u_mvl_get_rem_vmd_fun) (MVL_NET_INFO *net_info); + +ST_VOID mvl_info_rpt_rem_process (MVL_COMM_EVENT *event) + { +INFO_REQ_INFO *info_ptr; +ST_INT i; +ST_INT j; +OBJECT_NAME *vobj; +VARIABLE_LIST *vl; +VAR_ACC_SPEC *va_spec; +MVL_VMD_CTRL *rem_vmd; +MVL_VAR_ASSOC **info_va; +ST_INT num_va; +MVL_NVLIST_CTRL *nvlist; +ST_CHAR *name; + +/* To handle information reports, the user must have set up a remote */ +/* VMD object control structure, and the MVL_NET_INFO must reference it. */ + if (event->net_info->rem_vmd) + rem_vmd = (MVL_VMD_CTRL *) event->net_info->rem_vmd; + else + { + if (u_mvl_get_rem_vmd_fun) + rem_vmd = (*u_mvl_get_rem_vmd_fun) (event->net_info); + } + if (!rem_vmd) + { + MVL_LOG_NERR1 ("InfoRpt Ind : No rem_vmd for MVL_NET_INFO 0x%08lx", + event->net_info); + _mvl_free_comm_event (event); /* All done with this event */ + return; + } + +/* We want to get a table of pointers to VARIABLE_ASSOCIATIONS so we */ +/* can convert the received data to local format and tell the user */ +/* about it. */ + + info_ptr = (INFO_REQ_INFO *) event->u.mms.dec_rslt.data_ptr; + va_spec = &info_ptr->va_spec; + if (va_spec->var_acc_tag == VAR_ACC_NAMEDLIST) + { + vobj = &va_spec->vl_name; + for (i = 0; i < rem_vmd->num_nvlist; ++i) + { /* search for the NVL */ + if (!strcmp(rem_vmd->nvlist_tbl[i].name, vobj->obj_name.vmd_spec)) + { + /* Found the named variable list, create the response */ + nvlist = rem_vmd->nvlist_tbl[i]; + info_va = nvlist->entries; + num_va = nvlist->num_of_entries; + break; + } + } + if ((i >= rem_vmd->num_nvlist) || + (num_va != info_ptr->num_of_acc_result)) + { + MVL_LOG_NERR2 ("InfoRpt Ind : NumVar (%d) vs. NumAccRslt (%d)mismatch", + num_va, info_ptr->num_of_acc_result); + + _mvl_free_comm_event (event); /* All done with this event */ + return; + } + } + else if (va_spec->var_acc_tag == VAR_ACC_VARLIST) + { + if (va_spec->num_of_variables != info_ptr->num_of_acc_result) + { + MVL_LOG_NERR2 ("InfoRpt Ind : NumVar (%d) vs. NumAccRslt (%d)mismatch", + va_spec->num_of_variables, info_ptr->num_of_acc_result); + _mvl_free_comm_event (event); /* All done with this event */ + return; + } + + num_va = info_ptr->num_of_acc_result; + info_va = + (MVL_VAR_ASSOC **) M_CALLOC (MSEM_GEN, num_va, sizeof (MVL_VAR_ASSOC *)); + + vl = (VARIABLE_LIST *) (info_ptr + 1); + for (j = 0; j < info_ptr->num_of_acc_result; ++j, ++vl) + { + if (vl->var_spec.var_spec_tag == VA_SPEC_NAMED) + { + vobj = &vl->var_spec.vs.name; + name = vobj->obj_name.vmd_spec; + for (i = 0; i < rem_vmd->num_var_assoc; ++i) + { + if (!strcmp (rem_vmd->var_assoc_tbl[i].name, name)) + { + info_va[j] = rem_vmd->var_assoc_tbl[i]; + break; + } + } + if (i >= rem_vmd->num_var_assoc) + { + MVL_LOG_NERR1 ("InfoRpt Ind : Variable '%s' not found", name); + M_FREE (MSMEM_GEN, info_va); + _mvl_free_comm_event (event); /* All done with this event */ + return; + } + } + else + { + MVL_LOG_NERR0 ("InfoRpt Ind : VA Spec not named"); + M_FREE (MSMEM_GEN, info_va); + _mvl_free_comm_event (event); /* All done with this event */ + return; + } + } + } + + mvl_info_data_to_local (event, num_va, info_va); + M_FREE (MSMEM_GEN, info_va); + _mvl_free_comm_event (event); /* All done with this event */ + } + +#endif /* MVL_REM_VMD_SUPPORT */ + + +/************************************************************************/ +#endif /* MVL_INFO_RPT_CLIENT */ +/************************************************************************/ + diff --git a/mmslib/mvlu/c_jinit.c b/mmslib/mvlu/c_jinit.c new file mode 100644 index 0000000..2edd6d6 --- /dev/null +++ b/mmslib/mvlu/c_jinit.c @@ -0,0 +1,134 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1998 - 1998, All Rights Reserved */ +/* */ +/* MODULE NAME : c_jinit.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* mvl_jinit */ +/* mvla_jinit */ +/* _mvl_process_jinit_conf */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/09/07 MDE 14 Enhanced filtered logging */ +/* 11/01/01 JRB 13 mvl_wait_req_done now returns ST_RET. */ +/* 09/21/01 JRB 12 Alloc global bufs only once at startup. */ +/* 03/07/01 JRB 11 Del LOCK on sync functs: caused deadlocks. */ +/* 03/08/00 JRB 10 Del #ifdef MVL_REQ_BUF_ENABLED: not used. */ +/* Del mvl_free_req_ctrl call. User must call. */ +/* Del invoke_id, numpend_req: see mvl_send_req.*/ +/* 01/21/00 MDE 09 Now use MEM_SMEM for dynamic memory */ +/* 01/21/00 MDE 08 Use '_mvl_get_req_buf' for MVL_REQ_BUF_EN.. */ +/* 11/19/99 NAV 07 Add #ifdef MVL_REQ_BUF_ENABLED */ +/* 10/26/99 NAV 06 Add maxpend_req support to aynsc functions */ +/* 09/13/99 MDE 05 Added SD_CONST modifiers */ +/* 11/17/98 MDE 04 Now use MVL_ERR_COMM_SERVE_ACTIVE error code */ +/* Use MVL_SYNC_REQ_INTERFACE */ +/* 11/16/98 MDE 03 Renamed internal functions (prefix '_') */ +/* 06/15/98 MDE 02 Changes to allow compile under C++ */ +/* 03/27/98 JRB 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" + +#include "mmsdefs.h" +#include "mms_pvmd.h" +#include "mvl_defs.h" +#include "mvl_log.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/* mvl_jinit */ +/************************************************************************/ + +#if defined(MVL_SYNC_REQ_INTERFACE) + +ST_RET mvl_jinit ( + MVL_NET_INFO *net_info, + JINIT_REQ_INFO *req_info, + MVL_REQ_PEND **req_out) + { +ST_RET rc; + + if (_mvl_comm_serve_active == SD_TRUE) + { + MVL_LOG_NERR0 ("Error: mvl_comm_serv active"); + return (MVL_ERR_COMM_SERVE_ACTIVE); + } + + rc = mvla_jinit (net_info, req_info, req_out); + if (rc == SD_SUCCESS) + rc = mvl_wait_req_done (*req_out); + return (rc); + } + +#endif + +/************************************************************************/ +/* mvla_jinit */ +/************************************************************************/ + +ST_RET mvla_jinit ( + MVL_NET_INFO *net_info, + JINIT_REQ_INFO *req_info, + MVL_REQ_PEND **req_out) + { +ST_RET rc; +MVL_REQ_PEND *req_pend; + + *req_out = req_pend = _mvl_get_req_ctrl (net_info, MMSOP_INIT_JOURNAL); + if (!req_pend) + return (MVL_ERR_REQ_CONTROL); + + S_LOCK_COMMON_RESOURCES (); + rc = _mvla_send_jinit (net_info, req_info, req_pend); + S_UNLOCK_COMMON_RESOURCES (); + return (rc); + } + +/************************************************************************/ +/* _mvla_send_jinit */ +/************************************************************************/ + +ST_RET _mvla_send_jinit (MVL_NET_INFO *net_info, + JINIT_REQ_INFO *req_info, + MVL_REQ_PEND *req_pend) + { +ST_RET rc; + + /* Build a jinit request */ + rc = mpl_jinit (req_info); + if (rc == SD_SUCCESS) + mpl_req_log (req_pend, req_info); + + rc = _mvl_send_req (net_info, req_pend, rc); + return (rc); + } + +/************************************************************************/ +/* _mvl_process_jinit_conf */ +/************************************************************************/ + +ST_VOID _mvl_process_jinit_conf (MVL_REQ_PEND *req_pend) + { + req_pend->u.jinit.resp_info = + (JINIT_RESP_INFO *) req_pend->event->u.mms.dec_rslt.data_ptr; + } + diff --git a/mmslib/mvlu/c_jread.c b/mmslib/mvlu/c_jread.c new file mode 100644 index 0000000..3916cef --- /dev/null +++ b/mmslib/mvlu/c_jread.c @@ -0,0 +1,202 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1998 - 1998, All Rights Reserved */ +/* */ +/* MODULE NAME : c_jread.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* mvl_jread */ +/* mvla_jread */ +/* _mvl_process_jread_conf */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/09/07 MDE 15 Enhanced filtered logging */ +/* 11/01/01 JRB 14 mvl_wait_req_done now returns ST_RET. */ +/* 09/21/01 JRB 13 Alloc global bufs only once at startup. */ +/* 03/07/01 JRB 12 Del LOCK on sync functs: caused deadlocks. */ +/* 03/08/00 JRB 11 Del #ifdef MVL_REQ_BUF_ENABLED: not used. */ +/* Del mvl_free_req_ctrl call. User must call. */ +/* Del invoke_id, numpend_req: see mvl_send_req.*/ +/* 01/21/00 MDE 10 Now use MEM_SMEM for dynamic memory */ +/* 01/21/00 MDE 09 Use '_mvl_get_req_buf' for MVL_REQ_BUF_EN.. */ +/* 11/19/99 NAV 08 Add #ifdef MVL_REQ_BUF_ENABLED */ +/* 11/03/99 NAV 07 Add maxpend_req support to aynsc functions */ +/* 09/13/99 MDE 06 Added SD_CONST modifiers */ +/* 11/17/98 MDE 05 Now use MVL_ERR_COMM_SERVE_ACTIVE error code */ +/* Use MVL_SYNC_REQ_INTERFACE */ +/* 11/16/98 MDE 04 Renamed internal functions (prefix '_') */ +/* 10/09/98 JRB 03 Chg MVL_CLI_JOURNAL_ENTRY to MVL_JOURNAL_ENTRY,*/ +/* just like server (entry_id is now array */ +/* instead of pointer). */ +/* 06/15/98 MDE 02 Changes to allow compile under C++ */ +/* 03/27/98 JRB 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" + +#include "mmsdefs.h" +#include "mms_pvmd.h" +#include "mvl_defs.h" +#include "mvl_log.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/* mvl_jread */ +/************************************************************************/ + +#if defined(MVL_SYNC_REQ_INTERFACE) + +ST_RET mvl_jread ( + MVL_NET_INFO *net_info, + JREAD_REQ_INFO *req_info, + MVL_REQ_PEND **req_out) + { +ST_RET rc; + + if (_mvl_comm_serve_active == SD_TRUE) + { + MVL_LOG_NERR0 ("Error: mvl_comm_serv active"); + return (MVL_ERR_COMM_SERVE_ACTIVE); + } + + rc = mvla_jread (net_info, req_info, req_out); + if (rc == SD_SUCCESS) + rc = mvl_wait_req_done (*req_out); + return (rc); + } + +#endif + +/************************************************************************/ +/* mvla_jread */ +/************************************************************************/ + +ST_RET mvla_jread ( + MVL_NET_INFO *net_info, + JREAD_REQ_INFO *req_info, + MVL_REQ_PEND **req_out) + { +ST_RET rc; +MVL_REQ_PEND *req_pend; + + + *req_out = req_pend = _mvl_get_req_ctrl (net_info, MMSOP_READ_JOURNAL); + if (!req_pend) + return (MVL_ERR_REQ_CONTROL); + req_pend->u.jread.resp_info = NULL; /* Confirm funct must allocate */ + + S_LOCK_COMMON_RESOURCES (); + rc = _mvla_send_jread (net_info, req_info, req_pend); + S_UNLOCK_COMMON_RESOURCES (); + return (rc); + } + +/************************************************************************/ +/* _mvla_send_jread */ +/************************************************************************/ + +ST_RET _mvla_send_jread (MVL_NET_INFO *net_info, + JREAD_REQ_INFO *req_info, + MVL_REQ_PEND *req_pend) + { +ST_RET rc; + + /* Build a jread request */ + rc = mpl_jread (req_info); + if (rc == SD_SUCCESS) + mpl_req_log (req_pend, req_info); + + rc = _mvl_send_req (net_info, req_pend, rc); + return (rc); + } + +/************************************************************************/ +/* _mvl_process_jread_conf */ +/* Set "req_pend->u.jread.resp_info" to POINT to response info. */ +/************************************************************************/ + +ST_VOID _mvl_process_jread_conf (MVL_REQ_PEND *req_pend) + { +JREAD_RESP_INFO *jread_resp; +JOURNAL_ENTRY *jou_entry; + +MVL_JREAD_RESP_INFO *mvl_jread_resp; +MVL_JOURNAL_ENTRY *mvl_jou_entry; +ST_INT j; +ST_INT info_size; + + jread_resp = (JREAD_RESP_INFO *) req_pend->event->u.mms.dec_rslt.data_ptr; + + info_size = sizeof (MVL_JREAD_RESP_INFO) + + jread_resp->num_of_jou_entry * sizeof (MVL_JOURNAL_ENTRY); + + /* Allocate and fill in "req_pend->u.jread.resp_info". */ + /* CRITICAL: mvl_free_req_ctrl () must free it. */ + req_pend->u.jread.resp_info = + (MVL_JREAD_RESP_INFO *) M_CALLOC (MSMEM_GEN, 1, info_size); + mvl_jread_resp = req_pend->u.jread.resp_info; /* Local ptr to it. */ + mvl_jread_resp->num_of_jou_entry = jread_resp->num_of_jou_entry; + mvl_jread_resp->more_follows = jread_resp->more_follows; + mvl_jread_resp->jou_entry = (MVL_JOURNAL_ENTRY *) (mvl_jread_resp + 1); + if (mvl_jread_resp->num_of_jou_entry) + { + jou_entry = (JOURNAL_ENTRY *)(jread_resp + 1); /* point to first.*/ + mvl_jou_entry = mvl_jread_resp->jou_entry; /* point to first.*/ + for (j = 0; j < jread_resp->num_of_jou_entry; j++) + { + mvl_jou_entry->entry_id_len = jou_entry->entry_id_len; + memcpy (mvl_jou_entry->entry_id, jou_entry->entry_id, jou_entry->entry_id_len); + if (ms_asn1_to_appref (&mvl_jou_entry->orig_app, jou_entry->orig_ae, + jou_entry->orig_ae_len)) + { + MVL_LOG_ERR0 ("Error: ReadJournal-Resp: orig_app decode failed"); + } + memcpy (&mvl_jou_entry->occur_time, &jou_entry->ent_content.occur_time, + sizeof (MMS_BTOD)); + mvl_jou_entry->entry_form_tag = jou_entry->ent_content.entry_form_tag; + if (mvl_jou_entry->entry_form_tag == 2) /* DATA */ + { + mvl_jou_entry->ef.data.event_pres = jou_entry->ent_content.ef.data.event_pres; + memcpy (&mvl_jou_entry->ef.data.evcon_name, + &jou_entry->ent_content.ef.data.evcon_name, sizeof (OBJECT_NAME)); + mvl_jou_entry->ef.data.cur_state = jou_entry->ent_content.ef.data.cur_state; + mvl_jou_entry->ef.data.list_of_var_pres = jou_entry->ent_content.ef.data.list_of_var_pres; + if (mvl_jou_entry->ef.data.list_of_var_pres) + { + mvl_jou_entry->ef.data.num_of_var = jou_entry->ent_content.ef.data.num_of_var; + mvl_jou_entry->ef.data.list_of_var = (VAR_INFO *)(jou_entry + 1); + } + } + else /* MUST BE ANNOTATION */ + { + mvl_jou_entry->ef.annotation = jou_entry->ent_content.ef.annotation; + } + + /* Point to next src and dst entry. */ + jou_entry++; + if (mvl_jou_entry->entry_form_tag == 2 && /* DATA */ + mvl_jou_entry->ef.data.list_of_var_pres) + jou_entry = (JOURNAL_ENTRY *) ( ((ST_CHAR *)jou_entry) + + mvl_jou_entry->ef.data.num_of_var * sizeof (VAR_INFO)); + mvl_jou_entry++; + } /* end "loop" */ + } /* end "if num_of_jou_entry" */ + } + diff --git a/mmslib/mvlu/c_jstat.c b/mmslib/mvlu/c_jstat.c new file mode 100644 index 0000000..aaa4bce --- /dev/null +++ b/mmslib/mvlu/c_jstat.c @@ -0,0 +1,134 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1998 - 1998, All Rights Reserved */ +/* */ +/* MODULE NAME : c_jstat.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* mvl_jstat */ +/* mvla_jstat */ +/* _mvl_process_jstat_conf */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/09/07 MDE 14 Enhanced filtered logging */ +/* 11/01/01 JRB 13 mvl_wait_req_done now returns ST_RET. */ +/* 09/21/01 JRB 12 Alloc global bufs only once at startup. */ +/* 03/07/01 JRB 11 Del LOCK on sync functs: caused deadlocks. */ +/* 03/08/00 JRB 10 Del #ifdef MVL_REQ_BUF_ENABLED: not used. */ +/* Del mvl_free_req_ctrl call. User must call. */ +/* Del invoke_id, numpend_req: see mvl_send_req.*/ +/* 01/21/00 MDE 09 Now use MEM_SMEM for dynamic memory */ +/* 01/21/00 MDE 08 Use '_mvl_get_req_buf' for MVL_REQ_BUF_EN.. */ +/* 11/19/99 NAV 07 Add #ifdef MVL_REQ_BUF_ENABLED */ +/* 11/03/99 NAV 06 Add maxpend_req support to aynsc functions */ +/* 09/13/99 MDE 05 Added SD_CONST modifiers */ +/* 11/17/98 MDE 04 Now use MVL_ERR_COMM_SERVE_ACTIVE error code */ +/* Use MVL_SYNC_REQ_INTERFACE */ +/* 11/16/98 MDE 03 Renamed internal functions (prefix '_') */ +/* 06/15/98 MDE 02 Changes to allow compile under C++ */ +/* 03/27/98 JRB 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" + +#include "mmsdefs.h" +#include "mms_pvmd.h" +#include "mvl_defs.h" +#include "mvl_log.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/* mvl_jstat */ +/************************************************************************/ + +#if defined(MVL_SYNC_REQ_INTERFACE) + +ST_RET mvl_jstat ( + MVL_NET_INFO *net_info, + JSTAT_REQ_INFO *req_info, + MVL_REQ_PEND **req_out) + { +ST_RET rc; + + if (_mvl_comm_serve_active == SD_TRUE) + { + MVL_LOG_NERR0 ("Error: mvl_comm_serv active"); + return (MVL_ERR_COMM_SERVE_ACTIVE); + } + + rc = mvla_jstat (net_info, req_info, req_out); + if (rc == SD_SUCCESS) + rc = mvl_wait_req_done (*req_out); + return (rc); + } + +#endif + +/************************************************************************/ +/* mvla_jstat */ +/************************************************************************/ + +ST_RET mvla_jstat ( + MVL_NET_INFO *net_info, + JSTAT_REQ_INFO *req_info, + MVL_REQ_PEND **req_out) + { +ST_RET rc; +MVL_REQ_PEND *req_pend; + + *req_out = req_pend = _mvl_get_req_ctrl (net_info, MMSOP_STAT_JOURNAL); + if (!req_pend) + return (MVL_ERR_REQ_CONTROL); + + S_LOCK_COMMON_RESOURCES (); + rc = _mvla_send_jstat (net_info, req_info, req_pend); + S_UNLOCK_COMMON_RESOURCES (); + return (rc); + } + +/************************************************************************/ +/* _mvla_send_jstat */ +/************************************************************************/ + +ST_RET _mvla_send_jstat (MVL_NET_INFO *net_info, + JSTAT_REQ_INFO *req_info, + MVL_REQ_PEND *req_pend) + { +ST_RET rc; + + /* Build a jstat request */ + rc = mpl_jstat (req_info); + if (rc == SD_SUCCESS) + mpl_req_log (req_pend, req_info); + + rc = _mvl_send_req (net_info, req_pend, rc); + return (rc); + } + +/************************************************************************/ +/* _mvl_process_jstat_conf */ +/************************************************************************/ + +ST_VOID _mvl_process_jstat_conf (MVL_REQ_PEND *req_pend) + { + req_pend->u.jstat.resp_info = + (JSTAT_RESP_INFO *) req_pend->event->u.mms.dec_rslt.data_ptr; + } + diff --git a/mmslib/mvlu/c_obtfi.c b/mmslib/mvlu/c_obtfi.c new file mode 100644 index 0000000..3fcbde4 --- /dev/null +++ b/mmslib/mvlu/c_obtfi.c @@ -0,0 +1,135 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1998 - 1999, All Rights Reserved */ +/* */ +/* MODULE NAME : c_obtfi.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* mvl_obtfile */ +/* mvla_obtfile */ +/* _mvl_process_obtfile_conf */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/09/07 MDE 06 Enhanced filtered logging */ +/* 11/01/01 JRB 05 mvl_wait_req_done now returns ST_RET. */ +/* 09/21/01 JRB 04 Alloc global bufs only once at startup. */ +/* 03/07/01 JRB 03 Del LOCK on sync functs: caused deadlocks. */ +/* 01/21/00 MDE 02 Eliminated an allocation */ +/* 10/14/99 GLB 01 Created to add Obtain File function */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" + +#include "mmsdefs.h" +#include "mms_pvmd.h" +#include "mvl_defs.h" +#include "mvl_log.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/* mvl_obtfile */ +/************************************************************************/ + +#if defined(MVL_SYNC_REQ_INTERFACE) + +ST_RET mvl_obtfile ( + MVL_NET_INFO *net_info, + ST_CHAR *srcfilename, + ST_CHAR *destfilename, + MVL_REQ_PEND **req_out) + { +ST_RET rc; + + if (_mvl_comm_serve_active == SD_TRUE) + { + MVL_LOG_NERR0 ("Error: mvl_comm_serv active"); + return (MVL_ERR_COMM_SERVE_ACTIVE); + } + + rc = mvla_obtfile (net_info, srcfilename, destfilename, req_out); + if (rc == SD_SUCCESS) + rc = mvl_wait_req_done (*req_out); + return (rc); + } + +#endif + +/************************************************************************/ +/* mvla_obtfile */ +/************************************************************************/ + + /* Allocate OBTFILE_REQ_INFO with "two" FILE_NAME entries after it. */ + /* If need multiple FILE_NAME elements, must use "mpl_frename". */ +#define OBTFILE_REQ_INFO_SIZE (sizeof (OBTFILE_REQ_INFO) + (2 * sizeof (FILE_NAME))) + +ST_RET mvla_obtfile ( + MVL_NET_INFO *net_info, + ST_CHAR *srcfilename, + ST_CHAR *destfilename, + MVL_REQ_PEND **req_out) + { +ST_RET rc; +MVL_REQ_PEND *req_pend; +OBTFILE_REQ_INFO *req_info; +FILE_NAME *fname_idx; +ST_CHAR obtfile_req_info[OBTFILE_REQ_INFO_SIZE]; + + *req_out = req_pend = _mvl_get_req_ctrl (net_info, MMSOP_OBTAIN_FILE); + if (!req_pend) + return (MVL_ERR_REQ_CONTROL); + + req_info = (OBTFILE_REQ_INFO *) obtfile_req_info; + + req_info->ar_title_pres = SD_FALSE; + req_info->num_of_src_fname = 1; + req_info->num_of_dest_fname = 1; + + /* Point to the FILE_NAME structure and fill in the current FileName */ + fname_idx = (FILE_NAME *)(req_info + 1); + fname_idx->fn_len = strlen (srcfilename); + fname_idx->fname = srcfilename; + /* move the pointer by 1 name and fill in the new FileName */ + fname_idx++; + fname_idx->fn_len = strlen (destfilename); + fname_idx->fname = destfilename; + + + S_LOCK_COMMON_RESOURCES (); + + /* Build a frename request */ + rc = mpl_obtfile (req_info); + if (rc == SD_SUCCESS) + mpl_req_log (req_pend, req_info); + + rc = _mvl_send_req (net_info, req_pend, rc); + + S_UNLOCK_COMMON_RESOURCES (); + return (rc); + } + +/************************************************************************/ +/* _mvl_process_obtfile_conf */ +/************************************************************************/ + +ST_VOID _mvl_process_obtfile_conf (MVL_REQ_PEND *req_pend) + { + /* Nothing to do. Common code takes care of setting req_pend->result. */ + } + diff --git a/mmslib/mvlu/c_read.c b/mmslib/mvlu/c_read.c new file mode 100644 index 0000000..fd8fbd5 --- /dev/null +++ b/mmslib/mvlu/c_read.c @@ -0,0 +1,243 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1994 - 2004, All Rights Reserved */ +/* */ +/* MODULE NAME : c_read.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* mvl_read_variables */ +/* mvla_read_variables */ +/* _mvl_process_read_conf */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/09/07 MDE 20 Enhanced filtered logging */ +/* 08/09/04 JRB 19 Log if type_id invalid. */ +/* 11/01/01 JRB 18 mvl_wait_req_done now returns ST_RET. */ +/* 09/21/01 JRB 17 Alloc global bufs only once at startup. */ +/* 03/07/01 JRB 16 Del LOCK on sync functs: caused deadlocks. */ +/* 03/08/00 JRB 15 Del #ifdef MVL_REQ_BUF_ENABLED: not used. */ +/* Del mvl_free_req_ctrl call. User must call. */ +/* Del invoke_id, numpend_req: see mvl_send_req.*/ +/* 01/21/00 MDE 14 Now use MEM_SMEM for dynamic memory */ +/* 01/21/00 MDE 13 Use '_mvl_get_req_buf' for MVL_REQ_BUF_EN.. */ +/* 11/19/99 NAV 12 Add #ifdef MVL_REQ_BUF_ENABLED */ +/* 10/20/99 NAV 11 Add maxpend_req support to aynsc functions */ +/* 09/13/99 MDE 10 Added SD_CONST modifiers */ +/* 12/08/98 MDE 09 Added client alternate access support */ +/* 11/17/98 MDE 08 Now use MVL_ERR_COMM_SERVE_ACTIVE error code */ +/* Use MVL_SYNC_REQ_INTERFACE */ +/* 11/16/98 MDE 07 Renamed internal functions (prefix '_') */ +/* 09/21/98 MDE 06 Minor lint cleanup */ +/* 06/15/98 MDE 05 Changes to allow compile under C++ */ +/* 05/22/98 JRB 04 Pass (MVL_REQ_PEND**) to sync function also. */ +/* 04/16/98 JRB 03 Conf func: Let caller do "common" stuff. */ +/* Always set (*req_out) so user can always free*/ +/* 02/10/98 MDE 02 Removed NEST_RT_TYPES support */ +/* 09/10/97 MDE 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" + +#include "mmsdefs.h" +#include "mms_pvar.h" +#include "mms_vvar.h" +#include "mvl_defs.h" +#include "mvl_log.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/************************************************************************/ + +#if defined(MVL_SYNC_REQ_INTERFACE) + +ST_RET mvl_read_variables (MVL_NET_INFO *net_info, + READ_REQ_INFO *read_info, + ST_INT num_data, + MVL_READ_RESP_PARSE_INFO *parse_info, + MVL_REQ_PEND **req_out) + { +ST_RET rc; + + if (_mvl_comm_serve_active == SD_TRUE) + { + MVL_LOG_NERR0 ("Error: mvl_comm_serv active"); + return (MVL_ERR_COMM_SERVE_ACTIVE); + } + + rc = mvla_read_variables (net_info, read_info, num_data, parse_info, req_out); + if (rc == SD_SUCCESS) + rc = mvl_wait_req_done (*req_out); + return (rc); + } + +#endif + +/************************************************************************/ + +ST_RET mvla_read_variables (MVL_NET_INFO *net_info, + READ_REQ_INFO *read_info, + ST_INT num_data, + MVL_READ_RESP_PARSE_INFO *parse_info, + MVL_REQ_PEND **req_out) + { +ST_RET rc; +MVL_REQ_PEND *req_pend; + + *req_out = req_pend = _mvl_get_req_ctrl (net_info, MMSOP_READ); + if (!req_pend) + return (MVL_ERR_REQ_CONTROL); + req_pend->u.rd.parse_info = parse_info; + req_pend->u.rd.num_data = num_data; + + S_LOCK_COMMON_RESOURCES (); + rc = _mvla_send_read_variables (net_info, read_info, num_data, parse_info, req_pend); + S_UNLOCK_COMMON_RESOURCES (); + return (rc); + } + +/************************************************************************/ +/* _mvla_send_read_variables */ +/************************************************************************/ + +ST_RET _mvla_send_read_variables (MVL_NET_INFO *net_info, + READ_REQ_INFO *read_info, + ST_INT num_data, + MVL_READ_RESP_PARSE_INFO *parse_info, + MVL_REQ_PEND *req_pend) + { +ST_RET rc; +VARIABLE_LIST *vl; +ST_INT i; + +#if defined(MVL_AA_SUPP) + if (read_info->va_spec.var_acc_tag == VAR_ACC_VARLIST) + { + vl = (VARIABLE_LIST *) (read_info + 1); + for (i = 0; i < num_data; ++i, ++vl) + { + if (parse_info[i].alt_acc_pres == SD_TRUE) + { + rc = _mvl_get_asn1_aa (parse_info[i].alt_acc, vl); + if (rc != SD_SUCCESS) + { + MVL_LOG_NERR0 ("Error creating ASN.1 encoded Alternate Access"); + return (SD_FAILURE); + } + } + } + } +#endif + + /* Build a read request */ + rc = mpl_read (read_info); + if (rc == SD_SUCCESS) + mpl_req_log (req_pend, read_info); + +#if defined(MVL_AA_SUPP) + _m_free_aa_asn1_buf (); +#endif + + rc = _mvl_send_req (net_info, req_pend, rc); + return (rc); + } + +/************************************************************************/ + +ST_VOID _mvl_process_read_conf (MVL_REQ_PEND *req) + { +ST_INT i; +RUNTIME_TYPE *rt; +ST_INT rt_len; +READ_RESP_INFO *read_info; +ACCESS_RESULT *ar_ptr; +MVL_READ_RESP_PARSE_INFO *parse_table; +ST_INT num_variables; +ST_BOOLEAN packed_save; + + read_info = (READ_RESP_INFO *) req->event->u.mms.dec_rslt.data_ptr; + ar_ptr = read_info->acc_rslt_list; + + /* retrieve parse information */ + parse_table = req->u.rd.parse_info; + num_variables = req->u.rd.num_data; + + /* just a sanity check */ + if (num_variables != read_info->num_of_acc_result) + { + MVL_LOG_NERR0 ("Read Confirmation : num var != num result"); + req->result = SD_FAILURE; + return; + } + + /* For each variable returned in the read response ... */ + + for (i = 0; i < num_variables; ++i, ++ar_ptr, ++parse_table) + { /* check for successfull read of this variable */ + if (ar_ptr->acc_rslt_tag == ACC_RSLT_SUCCESS) + { + /* convert data in read buffer to local representation */ + /* and store in local buffer */ + + if (mvl_get_runtime (parse_table->type_id,&rt, &rt_len) == SD_SUCCESS) + { + if (parse_table->descr_arr) + { + mvl_mod_arr_size (rt, parse_table->arr_size); + } +#if defined(MVL_AA_SUPP) + if (parse_table->alt_acc_pres == SD_TRUE && + parse_table->alt_acc_type_aa == SD_FALSE) + { + packed_save = m_alt_acc_packed; + m_alt_acc_packed = parse_table->alt_acc_data_packed; + parse_table->result = ms_asn1_to_local_aa (rt, rt_len, + parse_table->alt_acc, + ar_ptr->va_data.data, + ar_ptr->va_data.len, + (ST_CHAR *) parse_table->dest); + m_alt_acc_packed = packed_save; + } + else /* No alternate access */ + { + parse_table->result = ms_asn1_to_local (rt, rt_len, + ar_ptr->va_data.data, + ar_ptr->va_data.len, + (ST_CHAR *) parse_table->dest); + + } +#else /* We don't support alternate access */ + parse_table->result = ms_asn1_to_local (rt, rt_len, + ar_ptr->va_data.data, + ar_ptr->va_data.len, + (ST_CHAR *) parse_table->dest); + +#endif /* #if defined(MVL_AA_SUPP) */ + } + else /* bad type ID */ + { + MVL_LOG_NERR2 ("Read Confirmation : type_id %d invalid for variable #%d", parse_table->type_id, i); + parse_table->result = SD_FAILURE; + } + } + else /* access result == failure */ + parse_table->result = SD_FAILURE; + } /* for each variable */ + } + diff --git a/mmslib/mvlu/c_status.c b/mmslib/mvlu/c_status.c new file mode 100644 index 0000000..9a8fa4e --- /dev/null +++ b/mmslib/mvlu/c_status.c @@ -0,0 +1,133 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1998 - 1998, All Rights Reserved */ +/* */ +/* MODULE NAME : c_status.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* mvl_status */ +/* mvla_status */ +/* _mvl_process_status_conf */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/09/07 MDE 13 Enhanced filtered logging */ +/* 11/01/01 JRB 12 mvl_wait_req_done now returns ST_RET. */ +/* 09/21/01 JRB 11 Alloc global bufs only once at startup. */ +/* 03/07/01 JRB 10 Del LOCK on sync functs: caused deadlocks. */ +/* 03/08/00 JRB 09 Del #ifdef MVL_REQ_BUF_ENABLED: not used. */ +/* Del mvl_free_req_ctrl call. User must call. */ +/* Del invoke_id, numpend_req: see mvl_send_req.*/ +/* 01/21/00 MDE 08 Now use MEM_SMEM for dynamic memory */ +/* 01/21/00 MDE 07 Use '_mvl_get_req_buf' for MVL_REQ_BUF_EN.. */ +/* 11/19/99 NAV 06 Add #ifdef MVL_REQ_BUF_ENABLED */ +/* 10/20/99 NAV 05 Add maxpend_req support to aynsc functions */ +/* 09/13/99 MDE 04 Added SD_CONST modifiers */ +/* 11/17/98 MDE 03 Now use MVL_ERR_COMM_SERVE_ACTIVE error code */ +/* Use MVL_SYNC_REQ_INTERFACE */ +/* 11/16/98 MDE 02 Renamed internal functions (prefix '_') */ +/* 10/05/98 DWL 01 Created from c_getnam.c */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" + +#include "mmsdefs.h" +#include "mms_pvmd.h" +#include "mvl_defs.h" +#include "mvl_log.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/* mvl_status */ +/************************************************************************/ + +#if defined(MVL_SYNC_REQ_INTERFACE) + +ST_RET mvl_status ( + MVL_NET_INFO *net_info, + STATUS_REQ_INFO *req_info, + MVL_REQ_PEND **req_out) + { +ST_RET rc; + + if (_mvl_comm_serve_active == SD_TRUE) + { + MVL_LOG_NERR0 ("Error: mvl_comm_serv active"); + return (MVL_ERR_COMM_SERVE_ACTIVE); + } + + rc = mvla_status (net_info, req_info, req_out); + if (rc == SD_SUCCESS) + rc = mvl_wait_req_done (*req_out); + return (rc); + } + +#endif + +/************************************************************************/ +/* mvla_status */ +/************************************************************************/ + +ST_RET mvla_status ( + MVL_NET_INFO *net_info, + STATUS_REQ_INFO *req_info, + MVL_REQ_PEND **req_out) + { +ST_RET rc; +MVL_REQ_PEND *req_pend; + + *req_out = req_pend = _mvl_get_req_ctrl (net_info, MMSOP_STATUS); + if (!req_pend) + return (MVL_ERR_REQ_CONTROL); + + S_LOCK_COMMON_RESOURCES (); + rc = _mvla_send_status (net_info, req_info, req_pend); + S_UNLOCK_COMMON_RESOURCES (); + return (rc); + } + +/************************************************************************/ +/* _mvla_send_status */ +/************************************************************************/ + +ST_RET _mvla_send_status (MVL_NET_INFO *net_info, + STATUS_REQ_INFO *req_info, + MVL_REQ_PEND *req_pend) + { +ST_RET rc; + + /* Build a getvar request */ + rc = mpl_status (req_info); + if (rc == SD_SUCCESS) + mpl_req_log (req_pend, req_info); + + rc = _mvl_send_req (net_info, req_pend, rc); + return (rc); + + } +/************************************************************************/ +/* _mvl_process_status_conf */ +/************************************************************************/ + +ST_VOID _mvl_process_status_conf (MVL_REQ_PEND *req_pend) + { + req_pend->u.status.resp_info = + (STATUS_RESP_INFO *) req_pend->event->u.mms.dec_rslt.data_ptr; + } + diff --git a/mmslib/mvlu/c_write.c b/mmslib/mvlu/c_write.c new file mode 100644 index 0000000..e2204bd --- /dev/null +++ b/mmslib/mvlu/c_write.c @@ -0,0 +1,322 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1994 - 2002, All Rights Reserved */ +/* */ +/* MODULE NAME : c_write.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* mvl_write_variables */ +/* mvla_write_variables */ +/* _mvl_process_write_conf */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/09/07 MDE 24 Enhanced filtered logging */ +/* 01/30/06 GLB 23 Integrated porting changes for VMS */ +/* 07/16/02 JRB 22 Skip memmove to front of asn1_buf. */ +/* Make sure num vars matches num data. */ +/* _mvla_send..: Del unused args, make static. */ +/* 03/06/02 JRB 21 Add S_UNLOCK.. before ALL returns. */ +/* 02/25/02 MDE 20 Now get max PDU size from mvl_cfg_info */ +/* 01/02/02 JRB 19 Converted to use ASN1R (re-entrant ASN1) */ +/* 11/01/01 JRB 18 mvl_wait_req_done now returns ST_RET. */ +/* 09/21/01 JRB 17 Alloc global bufs only once at startup. */ +/* 03/07/01 JRB 16 Del LOCK on sync functs: caused deadlocks. */ +/* 03/08/00 JRB 15 Del #ifdef MVL_REQ_BUF_ENABLED: not used. */ +/* Del mvl_free_req_ctrl call. User must call. */ +/* Del invoke_id, numpend_req: see mvl_send_req.*/ +/* 01/21/00 MDE 14 Now use MEM_SMEM for dynamic memory */ +/* 01/21/00 MDE 13 Use '_mvl_get_req_buf' for MVL_REQ_BUF_EN.. */ +/* 11/19/99 NAV 12 Add #ifdef MVL_REQ_BUF_ENABLED */ +/* 10/20/99 NAV 11 Add maxpend_req support to aynsc functions */ +/* 09/13/99 MDE 10 Added SD_CONST modifiers */ +/* 03/05/99 MDE 09 Fixed NVL write pointer arithmatic problem */ +/* 12/08/98 MDE 08 Added client alternate access support */ +/* 11/17/98 MDE 07 Now use MVL_ERR_COMM_SERVE_ACTIVE error code */ +/* Use MVL_SYNC_REQ_INTERFACE */ +/* 11/16/98 MDE 06 Renamed internal functions (prefix '_') */ +/* 06/15/98 MDE 05 Changes to allow compile under C++ */ +/* 05/22/98 JRB 04 Pass (MVL_REQ_PEND**) to sync function also. */ +/* 04/16/98 JRB 03 Conf func: Let caller do "common" stuff. */ +/* Always set (*req_out) so user can always free*/ +/* 02/10/98 MDE 02 Removed NEST_RT_TYPES support */ +/* 09/10/97 MDE 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" + +#include "mmsdefs.h" +#include "mms_pvar.h" +#include "mms_vvar.h" +#include "mvl_acse.h" +#include "mvl_log.h" + + +static ST_RET _mvla_send_write_variables (MVL_NET_INFO *net_info, + WRITE_REQ_INFO *write_info, + MVL_REQ_PEND *req_pend); +static ST_RET w_get_asn1_data (MVL_WRITE_REQ_INFO *w_info, + ST_UCHAR *asn1_dest_buffer, + ST_INT asn1_buffer_len, + ST_INT *asn1_len_out); + + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + + +/************************************************************************/ +/************************************************************************/ +/* mvl_write_variables */ +/************************************************************************/ + +#if defined(MVL_SYNC_REQ_INTERFACE) + +ST_RET mvl_write_variables (MVL_NET_INFO *net_info, + WRITE_REQ_INFO *write_info, + ST_INT num_data, + MVL_WRITE_REQ_INFO *w_info, + MVL_REQ_PEND **req_out) + { +ST_RET rc; + + if (_mvl_comm_serve_active == SD_TRUE) + { + MVL_LOG_NERR0 ("Error: mvl_comm_serv active"); + return (MVL_ERR_COMM_SERVE_ACTIVE); + } + + rc = mvla_write_variables (net_info, write_info, num_data, w_info, req_out); + if (rc == SD_SUCCESS) + rc = mvl_wait_req_done (*req_out); + return (rc); + } + +#endif + +/************************************************************************/ +/* mvla_write_variables */ +/************************************************************************/ + +ST_RET mvla_write_variables (MVL_NET_INFO *net_info, + WRITE_REQ_INFO *write_info, + ST_INT num_data, + MVL_WRITE_REQ_INFO *w_info, + MVL_REQ_PEND **req_out) + { +ST_RET rc; +MVL_REQ_PEND *req_pend; +VARIABLE_LIST *vl_ptr; +VAR_ACC_DATA *va_ptr; +ST_UCHAR *asn1_buf; +ST_INT asn1_len; +ST_INT asn1_buf_left; +ST_INT i; + + *req_out = req_pend = _mvl_get_req_ctrl (net_info, MMSOP_WRITE); + if (!req_pend) + return (MVL_ERR_REQ_CONTROL); + + req_pend->u.wr.w_info = w_info; + req_pend->u.wr.num_data = num_data; + + S_LOCK_COMMON_RESOURCES (); + +/* Make the write request operation specific data structure */ +/* NOTE: Number of vars MUST match number of data. To be sure, */ +/* overwrite values user entered. */ + write_info->num_of_data = num_data; + write_info->va_spec.num_of_variables = num_data; /* only used if VARLIST*/ + + vl_ptr = (VARIABLE_LIST *) (write_info+1); + if (write_info->va_spec.var_acc_tag == VAR_ACC_NAMEDLIST) + write_info->va_data = (VAR_ACC_DATA *) (write_info + 1); + else + write_info->va_data = (VAR_ACC_DATA *) (vl_ptr + + write_info->va_spec.num_of_variables); + va_ptr = write_info->va_data; + +/* encode the data */ + asn1_buf = (ST_UCHAR *) M_MALLOC (MSMEM_ASN1_DATA_ENC, mvl_cfg_info->max_msg_size); + asn1_buf_left = mvl_cfg_info->max_msg_size; + for (i = 0; i < num_data; ++i, vl_ptr++, va_ptr++, w_info++) + { + rc = w_get_asn1_data(w_info,asn1_buf,asn1_buf_left,&asn1_len); + if (rc != SD_SUCCESS) + { + MVL_LOG_NERR1 ("Write : w_get_asn1_data failed, ret = %x", rc); + S_UNLOCK_COMMON_RESOURCES (); + return(rc); + } + else + { + /* Data encoded at end of asn1_buf. Adjust len so next data */ + /* encodes before this data. Save ptr and len. */ + asn1_buf_left -= asn1_len; /* adjust buffer control vars */ + va_ptr->len = asn1_len; + va_ptr->data = asn1_buf + asn1_buf_left; +#if defined(MVL_AA_SUPP) + if (w_info->alt_acc_pres) + { + rc = _mvl_get_asn1_aa (w_info[i].alt_acc, vl_ptr); + if (rc != SD_SUCCESS) + { + MVL_LOG_NERR0 ("Error creating ASN.1 encoded Alternate Access"); + S_UNLOCK_COMMON_RESOURCES (); + return (SD_FAILURE); + } + } +#endif + } + } + + rc = _mvla_send_write_variables (net_info, write_info, req_pend); + M_FREE (MSMEM_ASN1_DATA_ENC, asn1_buf); + + S_UNLOCK_COMMON_RESOURCES (); + return (rc); + } + +/************************************************************************/ +/* _mvla_send_write_variables */ +/************************************************************************/ + +static ST_RET _mvla_send_write_variables (MVL_NET_INFO *net_info, + WRITE_REQ_INFO *write_info, + MVL_REQ_PEND *req_pend) + { +ST_RET rc; + + /* Build a write request */ + rc = mpl_write (write_info); + if (rc == SD_SUCCESS) + mpl_req_log (req_pend, write_info); + +#if defined(MVL_AA_SUPP) + _m_free_aa_asn1_buf (); +#endif + + rc = _mvl_send_req (net_info, req_pend, rc); + return (rc); + } + +/************************************************************************/ +/* w_get_asn1_data */ +/************************************************************************/ +/* This function is to provide ASN.1 encoded data, given the variable */ +/* list element. */ + +static ST_RET w_get_asn1_data (MVL_WRITE_REQ_INFO *wr_info, + ST_UCHAR *asn1_dest_buffer, + ST_INT asn1_buffer_len, + ST_INT *asn1_len_out) + { +RUNTIME_TYPE *rt; +ST_INT num_rt; +ST_RET rc; +ST_UCHAR *asn1_start; +ST_INT asn1_len; +ST_BOOLEAN packed_save; +ASN1_ENC_CTXT localEncCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_ENC_CTXT *aCtx = &localEncCtx; + + rc = mvl_get_runtime (wr_info->type_id,&rt, &num_rt); + if (rc != SD_SUCCESS) + { + MVL_LOG_NERR1 ("Get ASN1 Data : mvl_get_runtime failed, rc = %x", rc); + return (rc); /* bad type id */ + } + +/* Check to see if this is an array with variable number of elements */ +/* and modify the size if necessary - */ + + if (wr_info->arr) + mvl_mod_arr_size (rt, wr_info->num_el); + +/* First we need to initialize the ASN.1 encode tools, then do the */ +/* encode */ + + asn1r_strt_asn1_bld (aCtx, asn1_dest_buffer, asn1_buffer_len); + +#if defined(MVL_AA_SUPP) + if (wr_info->alt_acc_pres && + wr_info->alt_acc_type_aa == SD_FALSE) + { + packed_save = m_alt_acc_packed; + m_alt_acc_packed = wr_info->alt_acc_data_packed; + rc = ms_local_to_asn1_aa (aCtx, rt, num_rt, wr_info->alt_acc, + (ST_CHAR *) wr_info->local_data); + m_alt_acc_packed = packed_save; + } + else + rc = ms_local_to_asn1 (aCtx, rt, num_rt, (ST_CHAR *) wr_info->local_data); +#else + rc = ms_local_to_asn1 (aCtx, rt, num_rt, (ST_CHAR *) wr_info->local_data); +#endif /* #if defined(MVL_AA_SUPP) */ + if (rc != SD_SUCCESS) + { + MVL_LOG_NERR1 ("Get ASN1 Data : ms_local_to_asn1 failed, rc = %x", rc); + return (rc); /* bad type id */ + } + +/* When the ASN.1 encode is complete, 'asn1_field_ptr' points 1 byte ahead */ +/* of the start of the message. The ASN.1 message is build from back to */ +/* front, so that is now we calculate the length of the PDU */ + + asn1_start = aCtx->asn1r_field_ptr+1; + asn1_len = (asn1_dest_buffer + asn1_buffer_len) - asn1_start; + *asn1_len_out = asn1_len; + return (rc); + } + +/************************************************************************/ +/* _mvl_process_write_conf */ +/************************************************************************/ + +ST_VOID _mvl_process_write_conf (MVL_REQ_PEND *req) + { +ST_INT i; +WRITE_RESP_INFO *write_info; +WRITE_RESULT *wr_rslt; +ST_INT num_variables; +MVL_WRITE_REQ_INFO *w_info; + + write_info = (WRITE_RESP_INFO *) req->event->u.mms.dec_rslt.data_ptr; + wr_rslt = (WRITE_RESULT *) (write_info+1); + + /* retrieve output information */ + w_info = req->u.wr.w_info; + num_variables = req->u.wr.num_data; + + /* just a sanity check */ + if (num_variables != write_info->num_of_result) + { + req->result = SD_FAILURE; + return; + } + + /* For each variable returned in the write response ... */ + + for (i=0; i < num_variables; i++, wr_rslt++, w_info++) + { /* check for successful write of this variable */ + if (wr_rslt->resp_tag == WR_RSLT_SUCCESS) + w_info->result = SD_SUCCESS; + else /* bad type ID */ + w_info->result = SD_FAILURE; + } /* for each variable */ + } + diff --git a/mmslib/mvlu/mvl61850.c b/mmslib/mvlu/mvl61850.c new file mode 100644 index 0000000..31a4639 --- /dev/null +++ b/mmslib/mvlu/mvl61850.c @@ -0,0 +1,1177 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2002-2006 All Rights Reserved */ +/* */ +/* MODULE NAME : mvl61850.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* Code to support IEC-61850 Reporting as a Server. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* mvl61850_rcb_chk_state */ +/* mvl61850_urcb_rpt_send */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 08/05/08 JRB 31 Increment ConfRev if DatSet is written. */ +/* 07/22/08 JRB 30 Add mvl61850_objref_create. */ +/* 06/30/08 JRB 29 For Ed2, return different EntryID/TimeOfEntry*/ +/* values if RptEna=FALSE or TRUE. */ +/* 05/15/08 JRB 28 Use NEW mvl61850_integrity_timeout. */ +/* 05/06/08 JRB 27 Fix memory leak after "PDU size" error. */ +/* 04/15/08 JRB 26 Don't call mvlu_rpt_va_change for GI */ +/* (save "reason" later when scan completes). */ +/* 02/29/08 JRB 25 Allow VMD_SPEC DatSet for URCB or BRCB. */ +/* Allow AA_SPEC DatSet for URCB, but ONLY if */ +/* RCB is reserved (Resv=TRUE). */ +/* Set changed_flags for Integrity BEFORE loop. */ +/* chk_seg_needed: allow longer (129) RptID, etc*/ +/* 03/16/07 JRB 24 mvlu_gi_wr_ind: Chk that this client reserved URCB.*/ +/* 03/07/07 JRB 23 Use mvlu_get_leaf_val_int_any for Beh$stVal. */ +/* 02/28/07 JRB 22 mvlu_gi_wr_ind: allow write only if RCB is */ +/* enabled; if TrgOps.GI=FALSE, allow write but */ +/* DO NOT generate a report. */ +/* 02/13/07 JRB 21 mvl61850_get_rcb: del unused net_info arg. */ +/* Use new _rcb_writable. */ +/* 12/20/06 JRB 20 PurgeBuf only if DatSet val changed (tissue 322)*/ +/* Allow Beh$stVal to be INT8 (Enum) or INT32 */ +/* (for Tissues 120, 146, 171, 234). */ +/* 10/30/06 JRB 19 Use new mvl_vmd_* object handling functions. */ +/* 08/09/06 JRB 18 Moved most 61850 Rpt code to mvl61850_rpt.c */ +/* Chg mvl61850_rcb_build to mvl61850_urcb_rpt_send*/ +/* & use only for URCB (new functs handle BRCB).*/ +/* Use new mvlu_rpt_ready, mvl61850_mk_dataref, */ +/* mvl61850_rcb_cleanup. */ +/* Use new mvl61850_mk_rptid to generate RptID */ +/* in RPT if RptID is NULL in RCB. */ +/* Allow GI write only if TrgOp GI bit=1. */ +/* Del mvl_enc_va_data, use new ms_local_to_asn1_2.*/ +/* Add mvl61850_datset_wr_ind to allow DatSet write.*/ +/* Store EntryID everywhere as Ostring8. */ +/* Fix type for all ObjectReference (Vstring129).*/ +/* Use mvl61850_get_rcb to find the RCB. */ +/* 07/11/05 JRB 17 BUG FIX: Set cur_bufsize=0 after PurgeBuf write.*/ +/* Set BufOvfl=SD_FALSE after PurgeBuf write */ +/* (not clear in 61850, but passes KEMA test). */ +/* 07/08/05 JRB 16 For URCB, ignore BUFOVFL, ENTRYID bits in */ +/* OptFlds to conform to 61850-8-1. */ +/* 06/27/05 JRB 15 mvlu_entryid_rd_ind: return lastSentEntryID. */ +/* Old code returned "last queued" EntryID. */ +/* 06/27/05 JRB 14 _mvlu_get_rd_rcb: add (MVLU_RPT_CLIENT **) arg*/ +/* 05/16/05 JRB 13 Set failure=ARE_TEMP_UNAVAIL when trying to */ +/* write RCB elements while RptEna=TRUE. */ +/* Del mvlu_sqnum_int16u_wr.. (not writable). */ +/* 05/04/05 JRB 12 Call u_mvlu_rpt_time_get just once BEFORE */ +/* main loop in ..rcb_build so that each */ +/* segmented report has the same time stamp. */ +/* 01/19/05 JRB 11 Add mvl61850_beh_stval_rd_ind. */ +/* 08/20/04 JRB 10 Increment EntryID before encoding rpt, */ +/* so EntryID encoded in rpt matches EntryID */ +/* stored in BUFLIST_ENTRY struct. */ +/* 08/06/04 EJV 09 mvlu_entryid_wr_ind: add typecast. */ +/* 06/30/04 JRB 08 Add mvlu_sqnum_int16u_rd(wr)_ind_fun & use */ +/* SqNumInt16u instead of SqNum for BRCB. */ +/* Chg RptID type to vstring65. */ +/* Del SCL parsing functions: */ +/* mvl61850_ln_create_start, mvl61850_do_create,*/ +/* mvl61850_da_create, mvl61850_ln_create_finish,*/ +/* & mvl61850_ln_destroy. New SCL standard */ +/* makes these obsolete. */ +/* 03/18/04 JRB 07 Fix dataref in reports by adding scope. */ +/* 12/17/03 JRB 06 61850-8-1 FDIS changes: */ +/* Add ConfRev to rpt if enabled by OptFlds. */ +/* Move SubSeqNum, MoreSegmentsFollow to just */ +/* before inclusion bitstring. */ +/* Save TimeofEntry in "basrcb". */ +/* Add mvlu_timeofentry_rd_ind. */ +/* 07/09/03 JRB 05 Del assert in mvlu_gi_scan_done so GI works */ +/* for URCB too. */ +/* 04/14/03 JRB 04 Eliminate compiler warnings. */ +/* 04/04/03 JRB 03 Fix integrity/GI scan code so multiple */ +/* concurrent scans don't corrupt one another. */ +/* 03/13/03 JRB 02 Add URCB support: rename/rearrange some things*/ +/* Add code for 61850 dynamic type creation. */ +/* Trigger Intg Rpt ONLY by setting IntgPd!=0. */ +/* Trigger GI ONLY by writing GI!=0. */ +/* Move bstrcpy, bvstrcpy to "asn1r.c". */ +/* Fix report segmenting (see chk_seg_needed). */ +/* 12/15/02 JRB 01 Created */ +/************************************************************************/ +#include "glbtypes.h" +#include "sysincs.h" +#include "mvl_uca.h" +#include "mvl_log.h" +#include "mvl_acse.h" /* need mvl_cfg_info */ + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +static ST_RET fill_asn1_len_array (MVLU_RPT_CLIENT *rptClient, + MVL_NVLIST_CTRL *dsNvl, + ST_INT *asn1_len_array); + +/****** + * mvl61850_rcb_chk_state + * Check RCB state and build/send report if necessary. This function works for + * BRCB or URCB. + */ +ST_VOID mvl61850_rcb_chk_state (MVLU_RPT_CTRL *rptCtrl, + MVLU_RPT_CLIENT *rptClient, + ST_DOUBLE timeNow) + { + /* If URCB enabled or BRCB enabled ONCE, chk Integrity period & triggers.*/ + if (rptClient->basrcb.RptEna + || (rptClient->rpt_ctrl->rcb_type == RCB_TYPE_IEC_BRCB + && rptClient->rpt_ctrl->brcbCtrl.enabled_once)) + { + /* Chk for Integrity Period timeout. */ + /* NOTE: use mvl61850_integrity_timeout (mvlu_integrity_timeout is */ + /* only for UCA). */ + mvl61850_integrity_timeout (rptClient, timeNow); + + /* Chk for other triggers. */ + /* NOTE: numTrgs ONLY incremented if changes matched the TrgOps. */ + if (rptClient->numTrgs > 0) + { + /* If BufTim disabled (=0) OR BufTim expired, send report now. */ + if (rptClient->basrcb.BufTim == 0 || timeNow > rptClient->buf_time_done) + { + MVLU_LOG_FLOW1 ("Non-Integrity report for client %08lx", rptClient); + mvlu_rpt_ready (rptClient, MVLU_RPT_TYPE_RBE); /* send or queue rpt*/ + } + } + } /* end if rpt enabled at least once */ + return; + } + +/************************************************************************/ +/* mvlu_gi_scan_va_done */ +/* This function is called by 'mvlu_rd_prim_done' when all "leaf" */ +/* functions for a VA have been completed (i.e. data ready for this VA).*/ +/************************************************************************/ + +ST_VOID mvlu_gi_scan_va_done (MVL_IND_PEND *indCtrl, + MVL_VAR_ASSOC *va) + { + ST_INT data_size; + /* CRITICAL: DO NOT call mvlu_rpt_va_change. rptClient->reasons_data */ + /* will be set in mvlu_gi_scan_done when scan completes. */ + data_size = mvl_type_ctrl[va->type_id].data_size; + memcpy (va->last_data, va->data, data_size); + } + +/************************************************************************/ +/* mvlu_gi_scan_done */ +/* Same as "_mvlu_rpt_scan_done" except arg is (MVL_IND_PEND *) */ +/* instead of (MVLU_RPT_SCAN_CTRL *). */ +/* */ +/* This function is called when the gi scan is complete. */ +/* (i.e. 'mvlu_rd_prim_done' has been called for all "leafs" of all */ +/* variables in the report). Everything is ready to build a report, */ +/* so build it now. */ +/************************************************************************/ + +ST_RET mvlu_gi_scan_done (MVL_IND_PEND *indCtrl) + { +ST_RET retCode; +MVLU_RPT_CLIENT *rptClient; +ST_INT j; + + /* Get "rptClient", saved in "indCtrl" when scan initialized. */ + rptClient = (MVLU_RPT_CLIENT *) indCtrl->usr_ind_ctrl; + + /* Set "reason" for each variable of Dataset now. */ + for (j = 0; j < rptClient->rpt_ctrl->dsNvl->num_of_entries; j++) + rptClient->reasons_data[j] = MVLU_TRGOPS_GI; + + /* Assume this is a BRCB or URCB. Should never get here otherwise. */ + + /* Build the report. */ + retCode = mvlu_rpt_ready (rptClient, MVLU_RPT_TYPE_INTEGRITY_OR_GI); + + if (retCode != SD_SUCCESS) + MVLU_LOG_FLOW1 ("GI report send failed: err=0x%X", retCode); + + mvlu_integrity_scan_destroy (indCtrl); /* destroy temporary struct*/ + return (retCode); + } + +/************************************************************************/ +/* mvl61850_urcb_rpt_send */ +/* Set up all info needed to build an Information Report for a URCB, */ +/* then call "mvl_info_variables" to encode/send it. */ +/************************************************************************/ +ST_RET mvl61850_urcb_rpt_send (MVLU_RPT_CTRL *rptCtrl, + MVLU_RPT_CLIENT *rptClient, + ST_INT rpt_type) + { +MVL_NVLIST_CTRL *dsNvl; +MVL_NVLIST_CTRL *rptNvl; +MVL_VAR_ASSOC *va; +ST_INT j; /* loop counter */ +ST_RET retCode; +ST_INT sendIndex; +ST_INT sendIndexSave; /* save index before data, compare after data */ +ST_UINT8 *optFlds; +MVLU_BASRCB *basrcb; +ST_INT incSize; /* num bytes for inclusion bitstring */ +MVL_VAR_ASSOC *tmp_va_arr; /* alloc array of structs */ +ST_INT tmp_va_arr_size; /* num of entries in tmp_va_arr */ +MVL_VAR_ASSOC *tmp_va; /* current entry in tmp_va_arr */ +/* For Segmented reports, all segments are generated by this function, + * so these parameters can be local variables. + */ +ST_INT cur_va_index, next_va_index; /* indices into dsNvl va array */ +ST_BOOLEAN segNeeded; /* If TRUE, segmenting needed */ +ST_UINT16 SubSeqNum = 0; +ST_BOOLEAN MoreSegmentsFollow; +ST_CHAR *tmp_dataref_buf; +ST_CHAR tmpRptID [MVL61850_MAX_RPTID_LEN+1]; +ST_INT *asn1_len_array; /* array of ASN.1 lengths, one for each var (allocated)*/ + + basrcb = &rptClient->basrcb; + + optFlds = basrcb->OptFlds.data_1; + dsNvl = rptCtrl->dsNvl; + rptNvl = &rptCtrl->rptNvl; + + incSize = BSTR_NUMBITS_TO_NUMBYTES(dsNvl->num_of_entries); + + MVLU_LOG_FLOW1 ("Building IEC-61850 URCB Report, MVL_NET_INFO %08lx", rptClient->netInfo); + + /* Need tmp va's for options, array of data_refs, array of reasons_data.*/ + tmp_va_arr_size = MVLU_MAX_RPT_OPTS + (dsNvl->num_of_entries * 2); + tmp_va_arr = M_CALLOC (MSMEM_GEN, sizeof (MVL_VAR_ASSOC), tmp_va_arr_size); + + /* Need tmp buffer for datarefs. One buffer for all. */ + /* Allow max len plus NULL for each dataref. */ + tmp_dataref_buf = M_CALLOC (MSMEM_GEN, (MVL61850_MAX_OBJREF_LEN+1), dsNvl->num_of_entries); + + asn1_len_array = M_CALLOC (MSMEM_GEN, rptCtrl->dsNvl->num_of_entries, sizeof(ST_INT)); + + assert (rptCtrl->dsNvl->num_of_entries); /* must be >0 entries */ + + /* Call user function to get report time. Called here before loop */ + /* so that all segmented reports get the same time stamp. */ + u_mvlu_rpt_time_get (&basrcb->TimeofEntry); + + /* Fill in "asn1_len_array", needed later by "chk_seg_needed". */ + if (fill_asn1_len_array (rptClient, rptCtrl->dsNvl, asn1_len_array)!=SD_SUCCESS) + { + /* NOTE: This should NEVER fail, but if it does, just log it. */ + /* Real encode will almost certainly fail later. */ + MVL_LOG_ERR0 ("Cannot calculate ASN.1 length for Unbuffered Report."); + } + + /* If this is Integrity (or GI) report, just set all inclusion bits.*/ + if (rpt_type == MVLU_RPT_TYPE_INTEGRITY_OR_GI) + memset (rptClient->changed_flags, 0xff, incSize); + + for (cur_va_index = 0, next_va_index = 0; + next_va_index < rptCtrl->dsNvl->num_of_entries; + cur_va_index = next_va_index, SubSeqNum++) + { /* BEGIN MAIN LOOP */ + tmp_va = tmp_va_arr; /* start loop pointing to first entry */ + sendIndex = 0; /* start with first rptNvl->entries. */ + + /* Prepares a UCA Report NVL to be sent, based on the */ + /* options, data, and inclusion bitstring in the rptCtrl. After this*/ + /* function completes, the rptCtrl->rptNvl is ready to be sent. */ + + /* CRITICAL: asn1_len_array must be filled in before call to chk_seg_needed.*/ + segNeeded = chk_seg_needed (rptClient, asn1_len_array, cur_va_index, &next_va_index); + + +/* + printf("urcb:segNeeded=%d num=%d va_index = %d->%d\r\n", + segNeeded,rptCtrl->dsNvl->num_of_entries,cur_va_index, next_va_index); +*/ + + if (next_va_index - cur_va_index == 0) + { + MVL_LOG_ERR0 ("MMS PDU size too small to fit ANY variables in IEC-61850 Report. Report not sent."); + retCode = SD_FAILURE; + break; /* break out of loop so normal cleanup occurs. */ + } + + /* We will create a NVL to send, using the dsNvl as a model ... */ + + /* RptID and OptFlds are always the first 2 entries in the Rpt NVL. */ + + /* Add RptID to Report. */ + tmp_va->type_id = rptCtrl->rpt_typeids.vstring65; + if (basrcb->RptID [0] == '\0') + { /* RptID not set in RCB, so construct it. */ + mvl61850_mk_rptid (rptCtrl, tmpRptID, MVL61850_MAX_RPTID_LEN); + tmp_va->data = tmpRptID; + } + else + tmp_va->data = basrcb->RptID; + MVLU_LOG_CFLOW1 (" RptID='%s", tmp_va->data); /* log before tmp_va++*/ + rptNvl->entries[sendIndex++] = tmp_va++; /* set entry & point to next*/ + + /* Add OptFlds to Report. */ + tmp_va->type_id = rptCtrl->rpt_typeids.bvstring10; + tmp_va->data = &basrcb->OptFlds; + rptNvl->entries[sendIndex++] = tmp_va++; /* set entry & point to next*/ + MVLU_LOG_CFLOW2 (" OptFld = 0x%02x 0x%02x", basrcb->OptFlds.data_1[0], + basrcb->OptFlds.data_1[1]); /* 10 bit bstr (2 bytes) */ + + /* Add optional RCB vars to NVL, depending on OptFlds. */ + + /* The following optional vars are controlled by the same OptFlds bits, + * are of the same type, and are in the same order as in UCA, so that + * UCA clients can decode reports if only these options are used. + */ + + if (BSTR_BIT_GET(optFlds, OPTFLD_BITNUM_SQNUM)) + { + /* NOTE: 61850-7-2 says SqNum in Report is INT16U, but we encode + * INT8U from URCB. ASN.1 encodes same either way, so client + * may decode as INT16U if needed. + */ + tmp_va->type_id = rptCtrl->rpt_typeids.int8u; + tmp_va->data = &basrcb->SqNum; + rptNvl->entries[sendIndex++] = tmp_va++; /* set entry & point to next*/ + MVLU_LOG_CFLOW1 (" SqNum : %u", (unsigned) basrcb->SqNum); + } + if (BSTR_BIT_GET(optFlds, OPTFLD_BITNUM_TIMESTAMP)) + { + MVLU_LOG_CFLOW2 (" RptTim : %lums, %lu days", + basrcb->TimeofEntry.ms, basrcb->TimeofEntry.day); + + tmp_va->type_id = rptCtrl->rpt_typeids.btime6; + tmp_va->data = &basrcb->TimeofEntry; + rptNvl->entries[sendIndex++] = tmp_va++; /* set entry & point to next*/ + } + if (BSTR_BIT_GET(optFlds, OPTFLD_BITNUM_DATSETNAME)) + { + /* UCA called it OutDat instead of DataSetName. Value is same. */ + MVLU_LOG_CFLOW1 (" DataSetName : %s", basrcb->DatSetNa); + tmp_va->type_id = rptCtrl->rpt_typeids.vstring129; /*ObjectReference*/ + tmp_va->data = basrcb->DatSetNa; + rptNvl->entries[sendIndex++] = tmp_va++; /* set entry & point to next*/ + } + + /* The following optional vars are NOT supported by UCA. The OptFlds bits + * must never be set by UCA clients, and the corresponding data + * must NOT be sent to UCA clients. + */ + + /* For URCB, ignore BUFOVFL bit in OptFlds. */ + /* For URCB, ignore ENTRYID bit in OptFlds. */ + + /* Add "ConfRev" if enabled by "OptFlds". */ + if (BSTR_BIT_GET(optFlds, OPTFLD_BITNUM_CONFREV)) + { + tmp_va->type_id = rptCtrl->rpt_typeids.int32u; + tmp_va->data = &basrcb->ConfRev; + rptNvl->entries[sendIndex++] = tmp_va++; /* set entry & point to next*/ + } + + if (segNeeded) + { + /* Set appropriate bit in OptFlds. */ + /* NOTE: this bit only for output. Never used as input. */ + BSTR_BIT_SET_ON (optFlds,OPTFLD_BITNUM_SUBSEQNUM); + + tmp_va->type_id = rptCtrl->rpt_typeids.int16u; + tmp_va->data = &SubSeqNum; + rptNvl->entries[sendIndex++] = tmp_va++; /* set entry & point to next*/ + + if (next_va_index < rptCtrl->dsNvl->num_of_entries) + MoreSegmentsFollow = SD_TRUE; + else + MoreSegmentsFollow = SD_FALSE; + + tmp_va->type_id = rptCtrl->rpt_typeids.mmsbool; + tmp_va->data = &MoreSegmentsFollow; + rptNvl->entries[sendIndex++] = tmp_va++; /* set entry & point to next*/ + } + else + { + BSTR_BIT_SET_OFF (optFlds,OPTFLD_BITNUM_SUBSEQNUM); + } + + /* Add inclusion bitstring. */ + tmp_va->type_id = rptCtrl->inclusion_typeid; + if (segNeeded) + { + /* just set the bits included in this segment. */ + memset (rptClient->segmented_inclusion, 0, incSize); /* start clean */ + for (j = cur_va_index; j < next_va_index; ++j) + { + if (BSTR_BIT_GET (rptClient->changed_flags, j)) + BSTR_BIT_SET_ON (rptClient->segmented_inclusion, j); + } + tmp_va->data = rptClient->segmented_inclusion; + } + else + tmp_va->data = rptClient->changed_flags; + rptNvl->entries[sendIndex++] = tmp_va++; /* set entry & point to next*/ + + /* If data-Ref enabled, go through inclusion_data to decide what to send*/ + if (BSTR_BIT_GET(optFlds, OPTFLD_BITNUM_DATAREF)) + { + for (j = cur_va_index; j < next_va_index; ++j) + { + if (BSTR_BIT_GET (rptClient->changed_flags, j)) + { + tmp_va->type_id = rptCtrl->rpt_typeids.vstring129; /*ObjectReference*/ + /* point to right part of tmp buffer & construct dataref */ + tmp_va->data = &tmp_dataref_buf [j * (MVL61850_MAX_OBJREF_LEN+1)]; + + mvl61850_mk_dataref (dsNvl->entries[j], &dsNvl->va_scope[j], + tmp_va->data, MVL61850_MAX_OBJREF_LEN); + rptNvl->entries[sendIndex++] = tmp_va++; /* set entry & point to next*/ + } + } + } + + /* HERE'S DATA: Go through inclusion_data to decide what to send */ + sendIndexSave = sendIndex; /* save index before data included */ + for (j = cur_va_index; j < next_va_index; ++j) + { + if (BSTR_BIT_GET (rptClient->changed_flags, j)) + { + va = dsNvl->entries[j]; + MVLU_LOG_CFLOW3 (" Including variable %d ('%s'), reason=0x%02X", + j, va->name, rptClient->reasons_data[j]); + rptNvl->entries[sendIndex++] = va; + /* va->data already points to latest data. No need to copy data.*/ + } + } + assert (sendIndex>sendIndexSave); /* make sure SOME data included */ + + /* If "reason" enabled, go through inclusion_data to decide what to send*/ + if (BSTR_BIT_GET(optFlds, OPTFLD_BITNUM_REASON)) + { + for (j = cur_va_index; j < next_va_index; ++j) + { + if (BSTR_BIT_GET (rptClient->changed_flags, j)) + { + /* Don't need BVSTR here, because size is fixed. */ + tmp_va->type_id = rptCtrl->rpt_typeids.bstr6; + tmp_va->data = &rptClient->reasons_data[j]; + rptNvl->entries[sendIndex++] = tmp_va++; /* set entry & point to next*/ + } + } + } + rptNvl->num_of_entries = sendIndex; + assert (rptNvl->num_of_entries <= rptCtrl->maxNumRptVars); /* past end of array?*/ + assert ((tmp_va-tmp_va_arr) <= tmp_va_arr_size); /* past end of array?*/ + + /* Encode the InformationReport and send it. */ + retCode = mvl_info_variables (rptClient->netInfo, /* URCB: encode & send*/ + &rptClient->rpt_ctrl->rptNvl, + SD_FALSE); /* FALSE means "send as NVL" */ + /* If send fails, just log it. Try to send other segments anyway.*/ + if (retCode) + MVL_LOG_ERR1 ("Sending IEC-61850 Unbuffered Report failed: err=0x%X", retCode); + } /* END MAIN LOOP */ + + /* Increment seq number for next rpt. */ + basrcb->SqNum++; /* used only for URCB */ + + /* Reset reasons, etc. to prepare for new report triggers. */ + mvl61850_rcb_cleanup (rptClient); /* prepare for next RPT. */ + if (retCode != SD_SUCCESS) + MVLU_LOG_FLOW1 ("Report Build failed: err=0x%X", retCode); + M_FREE (MSMEM_GEN, tmp_va_arr); + M_FREE (MSMEM_GEN, tmp_dataref_buf); + M_FREE (MSMEM_GEN, asn1_len_array); + return (retCode); + } + +/****** + * chk_seg_needed + * Check if segmenting is needed. + * Set (*next_va_index) = first va to send in "next" report. + * RETURN: SD_FALSE if segmenting NOT needed. + * SD_TRUE if segmenting IS needed. + */ +ST_BOOLEAN chk_seg_needed (MVLU_RPT_CLIENT *rptClient, + ST_INT *asn1_len_array, + ST_INT cur_va_index, /* input arg */ + ST_INT *next_va_index) /* output arg */ + { +ST_INT negotiatedPduSize; +ST_INT unusedSize; +ST_INT num_entries; +ST_INT loopIndex; +ST_BOOLEAN segNeeded; + + negotiatedPduSize = rptClient->netInfo->max_pdu_size; + +/*negotiatedPduSize = 2*1024;*/ + + num_entries = rptClient->rpt_ctrl->dsNvl->num_of_entries; + + /* Subtract overhead from max "negotiated" PDU size. */ + /* Very verbose, but most data are constants so compiler should simplify.*/ + unusedSize = negotiatedPduSize + - 32 /* InfoRpt overhead (ROUGH estimate) */ + - 131 /* RptID (Vstring129) */ + - 5 /* OptFlds (Bstring10) */ + - 4 /* SqNum (Int16) */ + - 131 /* DataSetNam (Vstring129) */ + - 3 /* BufOvfl (Boolean) */ + - 8 /* TimeOfEntry (Btime6) */ + - 4 /* SubSeqNum (Int16) */ + - 3 /* MoreSegFoll (Boolean) */ + -10 /* EntryID (Ostring8) */ + -(3+num_entries/8) /* Inclusion Bitstring */ + ; + + /* In a loop, check if each var fits in the Report. */ + for (loopIndex = cur_va_index; loopIndex < num_entries; ++loopIndex) + { + /* Subtract space needed for this var. */ + /* If len==0, this var must not be included in the report, so skip it.*/ + if (asn1_len_array[loopIndex]) + { /* this var should be included in rpt. Check for space. */ + unusedSize -= 131; /* DataRef (Vstring129) */ + unusedSize -= 4; /* ReasonForInclusion (Bstring4?) */ + unusedSize -= asn1_len_array[loopIndex]; /* Data */ + } + if (unusedSize < 0) + break; /* cannot fit this va. Break out of loop. */ + } + /* When loop ends, "loopIndex" is index to first variable of "next" report.*/ + + *next_va_index = loopIndex; + if (cur_va_index == 0 && (*next_va_index) == num_entries) + segNeeded = SD_FALSE; /* All fit in one PDU (no segmenting) */ + else + segNeeded = SD_TRUE; + return (segNeeded); + } + +/************************************************************************/ +/* mvlu_confrev_rd_ind */ +/* NOTE: confrev write funct should be something like u_no_write_allowed*/ +/************************************************************************/ +ST_VOID mvlu_confrev_rd_ind (MVLU_RD_VA_CTRL *mvluRdVaCtrl) + { +ST_UINT32 *dest; +MVLU_BASRCB *rcb; +ST_RET rc; + + rc = SD_FAILURE; + /* Only for 61850, so use mvl61850_get_rcb to find the RCB. */ + rcb = mvl61850_get_rcb (mvluRdVaCtrl->rdVaCtrl->va->base_va, + mvluRdVaCtrl->rt, + NULL); + if (rcb != NULL) + { + dest = (ST_UINT32 *) mvluRdVaCtrl->primData; + *dest = rcb->ConfRev; + rc = SD_SUCCESS; + } + mvlu_rd_prim_done (mvluRdVaCtrl, rc); + } + +/************************************************************************/ +/* mvlu_purgebuf_rd_ind */ +/************************************************************************/ +ST_VOID mvlu_purgebuf_rd_ind (MVLU_RD_VA_CTRL *mvluRdVaCtrl) + { +ST_BOOLEAN *dest; +MVLU_BASRCB *rcb; +ST_RET rc; + + rc = SD_FAILURE; + /* Only for 61850, so use mvl61850_get_rcb to find the RCB. */ + rcb = mvl61850_get_rcb (mvluRdVaCtrl->rdVaCtrl->va->base_va, + mvluRdVaCtrl->rt, + NULL); + if (rcb != NULL) + { + dest = (ST_BOOLEAN *) mvluRdVaCtrl->primData; + *dest = 0; /* no data stored. ALWAYS return 0 */ + rc = SD_SUCCESS; + } + mvlu_rd_prim_done (mvluRdVaCtrl, rc); + } + +/************************************************************************/ +/* mvlu_gi_rd_ind */ +/************************************************************************/ +ST_VOID mvlu_gi_rd_ind (MVLU_RD_VA_CTRL *mvluRdVaCtrl) + { +ST_BOOLEAN *dest; +MVLU_BASRCB *rcb; +ST_RET rc; + + rc = SD_FAILURE; + /* Only for 61850, so use mvl61850_get_rcb to find the RCB. */ + rcb = mvl61850_get_rcb (mvluRdVaCtrl->rdVaCtrl->va->base_va, + mvluRdVaCtrl->rt, + NULL); + if (rcb != NULL) + { + dest = (ST_BOOLEAN *) mvluRdVaCtrl->primData; + *dest = 0; /* no data stored. ALWAYS return 0 */ + rc = SD_SUCCESS; + } + mvlu_rd_prim_done (mvluRdVaCtrl, rc); + } + + +/************************************************************************/ +/* mvlu_entryid_rd_ind */ +/************************************************************************/ +ST_VOID mvlu_entryid_rd_ind (MVLU_RD_VA_CTRL *mvluRdVaCtrl) + { +MVLU_BASRCB *rcb; +ST_RET rc; +MVLU_RPT_CLIENT *rptClient; /* can access all rpt info from this struct.*/ +BUFLIST_ENTRY *entry; + + rc = SD_FAILURE; + + /* Only for 61850, so use mvl61850_get_rcb to find the RCB. */ + rcb = mvl61850_get_rcb (mvluRdVaCtrl->rdVaCtrl->va->base_va, + mvluRdVaCtrl->rt, + &rptClient); + if (rcb != NULL) + { +#if 1 /* NOTE: Ed2 says to return different value if RptEna=FALSE or TRUE.*/ + if (rptClient->basrcb.RptEna==0) + { + entry = (BUFLIST_ENTRY *) list_find_last ((DBL_LNK *) rptClient->rpt_ctrl->brcbCtrl.rpt_list); + if (entry == NULL) /* empty list, return all 0 */ + memset (mvluRdVaCtrl->primData, 0, 8); + else + memcpy (mvluRdVaCtrl->primData, entry->EntryID, 8); + } + else + memcpy (mvluRdVaCtrl->primData, rptClient->rpt_ctrl->brcbCtrl.lastSentEntryID, 8); +#else /* old way (before Ed2) */ + memcpy (mvluRdVaCtrl->primData, rptClient->rpt_ctrl->brcbCtrl.lastSentEntryID, 8); +#endif + rc = SD_SUCCESS; + } + mvlu_rd_prim_done (mvluRdVaCtrl, rc); + } + +/************************************************************************/ +/* mvlu_timeofentry_rd_ind */ +/************************************************************************/ + +ST_VOID mvlu_timeofentry_rd_ind (MVLU_RD_VA_CTRL *mvluRdVaCtrl) + { +MVLU_BASRCB *rcb; +ST_RET rc; +MVLU_RPT_CLIENT *rptClient; /* can access all rpt info from this struct.*/ +BUFLIST_ENTRY *entry; + + rc = SD_FAILURE; + /* Only for 61850, so use mvl61850_get_rcb to find the RCB. */ + rcb = mvl61850_get_rcb (mvluRdVaCtrl->rdVaCtrl->va->base_va, + mvluRdVaCtrl->rt, + &rptClient); + if (rcb != NULL) + { +#if 1 /* NOTE: Ed2 says to return different value if RptEna=FALSE or TRUE.*/ + if (rptClient->basrcb.RptEna==0) + { + entry = (BUFLIST_ENTRY *) list_find_last ((DBL_LNK *) rptClient->rpt_ctrl->brcbCtrl.rpt_list); + if (entry == NULL) /* empty list */ + { /* Empty buffer. Return all 0. */ + MMS_BTIME6 *btime = (MMS_BTIME6 *)mvluRdVaCtrl->primData; + btime->ms = 0; + btime->day = 0; + } + else + memcpy (mvluRdVaCtrl->primData, &entry->TimeOfEntry, sizeof (MMS_BTIME6)); + } + else + memcpy (mvluRdVaCtrl->primData, &rptClient->rpt_ctrl->brcbCtrl.lastSentTimeOfEntry, sizeof (MMS_BTIME6)); +#else /* old way (before Ed2) */ + memcpy (mvluRdVaCtrl->primData, &rcb->TimeofEntry, sizeof (MMS_BTIME6)); +#endif + rc = SD_SUCCESS; + } + mvlu_rd_prim_done (mvluRdVaCtrl, rc); + } + +/************************************************************************/ +/* mvlu_purgebuf_wr_ind */ +/************************************************************************/ +ST_VOID mvlu_purgebuf_wr_ind (MVLU_WR_VA_CTRL *mvluWrVaCtrl) + { +ST_BOOLEAN newval; /* val to write to RptEna */ +MVLU_BASRCB *rcb; +MVLU_RPT_CLIENT *rptClient; +ST_RET rc; + + rc = SD_FAILURE; + /* Only for 61850, so use mvl61850_get_rcb to find the RCB. */ + rcb = mvl61850_get_rcb (mvluWrVaCtrl->wrVaCtrl->va->base_va, + mvluWrVaCtrl->rt, + &rptClient); + if (_rcb_writable (rcb, rptClient, mvluWrVaCtrl)) + { /* rcb found and NOT enabled */ + rc = SD_SUCCESS; /* allow write */ + newval = *(ST_BOOLEAN *) mvluWrVaCtrl->primData; + + /* If the client is enabling the Purge, dump rpts_sent & rpts_queued */ + if (newval != 0) /* any non-zero val means "enable" */ + { + /* this function does just what we want. */ + mvl61850_brcb_rpt_lists_clean (&rptClient->rpt_ctrl->brcbCtrl); + /*renxiaobao 61850 µÚ¶þ°æÐÞ¸Ä*/ + memset(rcb->EntryID,0,8); + } + + /* NOTE: don't actually change any value because PurgeBuf is */ + /* automatically set back to 0 when Purge is complete. */ + } + else + mvluWrVaCtrl->wrVaCtrl->failure = ARE_TEMP_UNAVAIL; + mvlu_wr_prim_done (mvluWrVaCtrl, rc); + } + +/************************************************************************/ +/* mvlu_gi_wr_ind */ +/************************************************************************/ +ST_VOID mvlu_gi_wr_ind (MVLU_WR_VA_CTRL *mvluWrVaCtrl) + { +ST_BOOLEAN newval; /* val to write to RptEna */ +MVLU_BASRCB *rcb; +MVLU_RPT_CLIENT *rptClient; +ST_RET rc; + + rc = SD_FAILURE; + /* Only for 61850, so use mvl61850_get_rcb to find the RCB. */ + rcb = mvl61850_get_rcb (mvluWrVaCtrl->wrVaCtrl->va->base_va, + mvluWrVaCtrl->rt, + &rptClient); + + /* Check all condtions. If all conditions right, set rc=SD_SUCCESS to allow write.*/ + if (rcb != NULL) + { + /* RCB must be enabled. */ + /* NOTE: this is only RCB attribute that is writable when RCB enabled.*/ + if (rptClient->basrcb.RptEna) + { + if (rptClient->rpt_ctrl->rcb_type == RCB_TYPE_IEC_URCB) + { + /* URCB must be reserved by this clint. RCB is enabled, so it */ + /* must already be reserved. Just make sure reserved by this client.*/ + if (rptClient->netInfo == mvluWrVaCtrl->indCtrl->event->net_info) + rc = SD_SUCCESS; /* allow write */ + else + MVLU_LOG_FLOW1 ("Write of GI for RptID='%s' FAILED because RCB reserved by another client", + rcb->RptID); + } + else /* RCB_TYPE_IEC_BRCB */ + rc = SD_SUCCESS; /* allow write */ + } + else + MVLU_LOG_FLOW1 ("Write of GI for RptID='%s' FAILED because RCB not enabled", + rcb->RptID); + } + + if (rc == SD_SUCCESS) + { + newval = *(ST_BOOLEAN *) mvluWrVaCtrl->primData; + + /* If client is enabling the GI & TrgOps.GI=TRUE, start GI scan.*/ + if (newval != 0 /* any non-zero val means "enable" */ + && BSTR_BIT_GET(rcb->TrgOps.data, TRGOPS_BITNUM_GENERAL_INTERROGATION) != 0) + mvlu_integrity_scan_read (rptClient, + mvlu_gi_scan_va_done, + mvlu_gi_scan_done); /* begin GI scan*/ + else if(newval != 0) rc = SD_FAILURE; /*renxiaobao add 20180731*/ + + /* NOTE: don't actually change any value because GI is automatically*/ + /* set back to 0 when GI is complete. */ + } + else /* for any error, return TEMP_UNAVAIL */ + mvluWrVaCtrl->wrVaCtrl->failure = ARE_TEMP_UNAVAIL; + mvlu_wr_prim_done (mvluWrVaCtrl, rc); + } + +/************************************************************************/ +/* mvlu_entryid_wr_ind */ +/************************************************************************/ +ST_VOID mvlu_entryid_wr_ind (MVLU_WR_VA_CTRL *mvluWrVaCtrl) + { +MVLU_BASRCB *rcb; +MVLU_RPT_CLIENT *rptClient; +ST_RET rc; + + rc = SD_FAILURE; + /* Only for 61850, so use mvl61850_get_rcb to find the RCB. */ + rcb = mvl61850_get_rcb (mvluWrVaCtrl->wrVaCtrl->va->base_va, + mvluWrVaCtrl->rt, + &rptClient); + if (_rcb_writable (rcb, rptClient, mvluWrVaCtrl)) + { + /* NOTE: primData points to EntryID as Ostring8. */ + rc = mvl61850_brcb_rpt_set_entryid (rptClient, (ST_UCHAR *) mvluWrVaCtrl->primData); + } + else + mvluWrVaCtrl->wrVaCtrl->failure = ARE_TEMP_UNAVAIL; + mvlu_wr_prim_done (mvluWrVaCtrl, rc); + } + +/************************************************************************/ +/* mvlu_sqnum_int16u_rd_ind_fun */ +/* Same as mvlu_sqnum_rd_ind_fun except uses SqNumInt16u */ +/* (UINT16 instead of UINT8). */ +/************************************************************************/ + +ST_VOID mvlu_sqnum_int16u_rd_ind_fun (MVLU_RD_VA_CTRL *mvluRdVaCtrl) + { +ST_UINT16 *dest; +MVLU_BASRCB *rcb; +ST_RET rc; + + rc = SD_FAILURE; + /* Only for 61850, so use mvl61850_get_rcb to find the RCB. */ + rcb = mvl61850_get_rcb (mvluRdVaCtrl->rdVaCtrl->va->base_va, + mvluRdVaCtrl->rt, + NULL); + if (rcb != NULL) + { + dest = (ST_UINT16 *) mvluRdVaCtrl->primData; + *dest = rcb->SqNumInt16u; + rc = SD_SUCCESS; + } + mvlu_rd_prim_done (mvluRdVaCtrl, rc); + } + +/************************************************************************/ +/* mvl61850_beh_stval_rd_ind */ +/************************************************************************/ +ST_VOID mvl61850_beh_stval_rd_ind (MVLU_RD_VA_CTRL *mvluRdVaCtrl) + { +MVL_VAR_ASSOC *base_var; +MVL_VAR_ASSOC *lln0_var; +ST_RET retcode = SD_SUCCESS; +ST_INT32 mod_stval; /* ST$Mod$stVal from this LN */ +ST_INT32 lln0mod_stval; /* ST$Mod$stVal from LLN0 */ +ST_INT32 beh_stval; /* ST$Beh$stVal from this LN (computed) */ +MVL_DOM_CTRL *dom; +ST_INT j; + + base_var = mvluRdVaCtrl->rdVaCtrl->va->base_va; + + /* Get value of "ST$Mod$stVal" in this LN. */ + retcode = mvlu_get_leaf_val_int_any (base_var, "ST$Mod$stVal", &mod_stval); + + if (retcode == SD_SUCCESS) + { + /* Get value of "ST$Mod$stVal" in LLN0 of the same domain. */ + lln0_var = NULL; /* assume it's not found */ + assert (mvluRdVaCtrl->rdVaCtrl->va_scope.scope == DOM_SPEC); + dom = mvluRdVaCtrl->rdVaCtrl->va_scope.dom; + for (j = 0; j < dom->num_var_assoc; j++) + { + /* Use "strstr" because name may have prefix and suffix*/ + if (strstr (dom->var_assoc_tbl[j]->name, "LLN0") != NULL) + { + lln0_var = dom->var_assoc_tbl[j]; + break; /* found it. stop looping */ + } + } + if (lln0_var) + retcode = mvlu_get_leaf_val_int_any (lln0_var, "ST$Mod$stVal", &lln0mod_stval); + else + retcode = SD_FAILURE; + } + + if (retcode == SD_SUCCESS) + { /* both successful. combine results. */ + switch (lln0mod_stval) + { + case 1: + if (mod_stval > 0 && mod_stval <= 5) + beh_stval = mod_stval; + else + beh_stval = 0; /* Mod is illegal, so set Beh to illegal value too*/ + break; + + case 2: + switch (mod_stval) + { + case 1: + case 2: + beh_stval = 2; break; + case 3: + case 4: + beh_stval = 4; break; + case 5: + beh_stval = 5; break; + default: + beh_stval = 0; break; /* Mod is illegal, so set Beh to illegal value too*/ + } + break; + + case 3: + switch (mod_stval) + { + case 1: + beh_stval = 3; break; + case 2: + beh_stval = 4; break; + case 3: + beh_stval = 3; break; + case 4: + beh_stval = 4; break; + case 5: + beh_stval = 5; break; + default: + beh_stval = 0; break; /* Mod is illegal, so set Beh to illegal value too*/ + } + break; + + case 4: + switch (mod_stval) + { + case 1: + case 2: + case 3: + case 4: + beh_stval = 4; break; + case 5: + beh_stval = 5; break; + default: + beh_stval = 0; break; /* Mod is illegal, so set Beh to illegal value too*/ + } + break; + + case 5: + if (mod_stval > 0 && mod_stval <= 5) + beh_stval = 5; + else + beh_stval = 0; /* Mod is illegal, so set Beh to illegal value too*/ + break; + + default: + beh_stval = 0; /* LLNO Mod is illegal, so set Beh to illegal value too*/ + break; + } /* end outer switch */ + } + + if (retcode == SD_SUCCESS) + { + /* Convert data to configured type (INT8, INT16, or INT32). */ + if (mvluRdVaCtrl->rt->u.p.el_len == 1) + *(ST_INT8 *) mvluRdVaCtrl->primData = (ST_INT8) beh_stval; /* copy data */ + else if (mvluRdVaCtrl->rt->u.p.el_len == 2) + *(ST_INT16 *) mvluRdVaCtrl->primData = (ST_INT16) beh_stval; /* copy data */ + else if (mvluRdVaCtrl->rt->u.p.el_len == 4) + *(ST_INT32 *) mvluRdVaCtrl->primData = beh_stval; /* copy data */ + else + retcode = SD_FAILURE; /* unsupported len. Should never happen.*/ + } + mvlu_rd_prim_done (mvluRdVaCtrl, retcode); + } + +/************************************************************************/ +/* mvl61850_datset_wr_ind */ +/* Try to change IEC 61850 Report Dataset. */ +/* NOTE: for IEC 61850 only (not for UCA). */ +/************************************************************************/ +ST_VOID mvl61850_datset_wr_ind (MVLU_WR_VA_CTRL *mvluWrVaCtrl) + { +MVLU_BASRCB *rcb; +ST_RET retCode; +ST_CHAR tmpbuf [MVL61850_MAX_OBJREF_LEN+1]; +OBJECT_NAME nvl_oname; +MVLU_RPT_CLIENT *rptClient; +MVL_NVLIST_CTRL *nvl; +ST_BOOLEAN do_purge = SD_FALSE; /* Chg to SD_TRUE if Purge Buffer required*/ +ST_INT16 failure = ARE_TEMP_UNAVAIL; /* use on err if no other value set*/ + + retCode = SD_FAILURE; + /* Only for 61850, so use mvl61850_get_rcb to find the RCB. */ + rcb = mvl61850_get_rcb (mvluWrVaCtrl->wrVaCtrl->va->base_va, + mvluWrVaCtrl->rt, + &rptClient); + if (_rcb_writable (rcb, rptClient, mvluWrVaCtrl)) + { + if (strcmp (rcb->DatSetNa, mvluWrVaCtrl->primData) == 0) + { + retCode = SD_SUCCESS; /* Same val written. Nothing to do but allow it*/ + } + else if (mvluWrVaCtrl->primData[0] == '\0') + { /* client wrote empty string, and it was NOT already empty */ + mvl61850_rpt_dataset_destroy (rptClient->rpt_ctrl); + rcb->ConfRev++; /* DatSet changed. Must increment ConfRev. */ + retCode = SD_SUCCESS; + } + else if (strlen ((ST_CHAR *) mvluWrVaCtrl->primData) > MVL61850_MAX_OBJREF_LEN) + { + failure = ARE_OBJ_VALUE_INVALID; + } + else + { + /* strtok modifies input buffer, so copy to local buffer first. */ + strcpy (tmpbuf, (ST_CHAR *) mvluWrVaCtrl->primData); + if (tmpbuf[0] == '@') + { /* AA-Specific Dataset */ + nvl_oname.obj_name.vmd_spec = &tmpbuf[1]; /*extract NVL name*/ + nvl_oname.object_tag = AA_SPEC; + } + else if (tmpbuf[0] == '/') + { /* VMD-Specific Dataset */ + nvl_oname.obj_name.vmd_spec = &tmpbuf[1]; /*extract NVL name*/ + nvl_oname.object_tag = VMD_SPEC; + } + else + { /* must be Domain-Specific Dataset */ + nvl_oname.domain_id = strtok (tmpbuf, "/"); /*extract dom name*/ + nvl_oname.obj_name.vmd_spec = strtok (NULL, ""); /*extract NVL name*/ + nvl_oname.object_tag = DOM_SPEC; + } + + /* If DatSet name is illegal, fail.*/ + if (nvl_oname.obj_name.vmd_spec == NULL) /* strtok failed*/ + { + MVL_LOG_ERR1 ("DatSet name '%s' is invalid. Cannot write it to RCB.", + (ST_CHAR *) mvluWrVaCtrl->primData); + failure = ARE_OBJ_VALUE_INVALID; + } + else if (nvl_oname.object_tag == AA_SPEC && + rptClient->rpt_ctrl->rcb_type == RCB_TYPE_IEC_BRCB) + { + MVL_LOG_ERR1 ("Writing AA-Specific DatSet '%s' to BRCB is NEVER allowed.", + (ST_CHAR *) mvluWrVaCtrl->primData); + failure = ARE_OBJ_VALUE_INVALID; + } + else if (nvl_oname.object_tag == AA_SPEC && + rptClient->rpt_ctrl->rcb_type == RCB_TYPE_IEC_URCB && + rptClient->basrcb.Resv == 0) + { + MVL_LOG_ERR1 ("Writing AA-Specific DatSet '%s' to URCB not allowed because URCB is not reserved.", + (ST_CHAR *) mvluWrVaCtrl->primData); + failure = ARE_OBJ_VALUE_INVALID; + } + else + { + nvl = mvl_vmd_find_nvl (&mvl_vmd, &nvl_oname, + mvluWrVaCtrl->indCtrl->event->net_info); /* for AA_SPEC*/ + if (nvl) + { + if (rptClient->rpt_ctrl->rcb_type == RCB_TYPE_IEC_BRCB) + do_purge = SD_TRUE; /* BRCB & val changed, must purge buffer*/ + /* Replace "dataset". */ + /* NOTE: If dataset was empty, destroy function does nothing. */ + mvl61850_rpt_dataset_destroy (rptClient->rpt_ctrl); + retCode = mvl61850_rpt_dataset_create (rptClient->rpt_ctrl, nvl); + /* WARNING: if create fails, old dataset is lost.*/ + if (retCode) + { + MVL_LOG_ERR1 ("DatSet change failed. RCB DatSet '%s' is no longer valid.", rcb->DatSetNa); + /* Old DatSet is no longer valid, so clear it.*/ + rcb->DatSetNa[0] = '\0'; + } + /* Even if create failed, DatSet changed (to NULL) so inc ConfRev.*/ + rcb->ConfRev++; /* DatSet changed. Must increment ConfRev.*/ + /*renxiaobao 61850 µÚ¶þ°æÐÞ¸Ä*/ + memset(rcb->EntryID,0,8); + } + } + } + } + + if (do_purge) + mvl61850_brcb_rpt_lists_clean (&rptClient->rpt_ctrl->brcbCtrl); + + if (retCode != SD_SUCCESS) + mvluWrVaCtrl->wrVaCtrl->failure = failure; + + mvlu_wr_prim_done (mvluWrVaCtrl, retCode); + } + +/************************************************************************/ +/* fill_asn1_len_array */ +/* Compute the ASN.1 encoded len for each var in a rpt dataset. */ +/************************************************************************/ +static ST_RET fill_asn1_len_array (MVLU_RPT_CLIENT *rptClient, + MVL_NVLIST_CTRL *dsNvl, /* rpt dataset */ + ST_INT *asn1_len_array) /* array of ASN.1 lengths, one for each var*/ + /* array filled in by this function */ + { +ST_UCHAR *tmp_asn1_buf; /* temporary ASN.1 buffer (allocated) */ +ST_INT tmp_asn1_buf_size = mvl_cfg_info->max_msg_size; /* reasonable size*/ +ST_INT j; +ST_RET retCode=SD_SUCCESS; /* assume success */ + + /* Alloc tmp ASN.1 buffer. Use it for each encode in this loop. */ + tmp_asn1_buf = chk_malloc (tmp_asn1_buf_size); + for (j = 0; j < dsNvl->num_of_entries; ++j) + { + if (rptClient->reasons_data[j]) /* this var should be included in rpt */ + { + ST_UCHAR *asn1_ptr; + MVL_TYPE_CTRL *type_ctrl = dsNvl->entries[j]->type_ctrl; + + retCode = ms_local_to_asn1_2 (type_ctrl->rt, type_ctrl->num_rt, + dsNvl->entries[j]->data, /* CRITICAL: use data from var*/ + tmp_asn1_buf, + tmp_asn1_buf_size, + &asn1_ptr, /* function sets asn1_ptr (not needed here)*/ + &asn1_len_array[j]); /* function sets len at this ptr*/ + if (retCode) + { + /* Should NEVER fail, but if so, don't continue with other vars.*/ + break; + } + } + } /* end loop */ + chk_free (tmp_asn1_buf); + return (retCode); + } + +/************************************************************************/ +/* mvl61850_objref_create */ +/* Create the ObjectReference for this Object. */ +/* objRef must point to buffer of at least [MVL61850_MAX_OBJREF_LEN+1] char*/ +/************************************************************************/ +ST_RET mvl61850_objref_create (ST_CHAR *objName, + MVL_SCOPE *objScope, + ST_CHAR *objRef) /* ptr to ObjectReference */ + { + switch (objScope->scope) + { + case VMD_SPEC: + strcpy (objRef, "/"); + break; + + case DOM_SPEC: + strcpy (objRef, objScope->dom->name); + strcat (objRef, "/"); + break; + + case AA_SPEC: + strcpy (objRef,"@/"); + break; + } + + /* Scope in place, now append the name of the Object. */ + if (strlen(objRef) + strlen(objName) > MVL61850_MAX_OBJREF_LEN) + { /* should NEVER happen */ + MVL_LOG_ERR0 ("Can't generate ObjectReference (too long)"); + objRef [0] = '\0'; /* return empty string */ + return (SD_FAILURE); + } + strcat (objRef, objName); + return (SD_SUCCESS); + } + diff --git a/mmslib/mvlu/mvl61850_ctl.c b/mmslib/mvlu/mvl61850_ctl.c new file mode 100644 index 0000000..3ae9943 --- /dev/null +++ b/mmslib/mvlu/mvl61850_ctl.c @@ -0,0 +1,811 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2004-2005, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : mvl61850_ctl.c */ +/* PRODUCT(S) : MMSEASE */ +/* */ +/* MODULE DESCRIPTION : */ +/* IEC 61850 Control Model Server functions. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* mvl61850_sbo_create_sboname */ +/* mvl61850_ctl_chk_sbo */ +/* mvl61850_ctl_chk_sbow */ +/* mvl61850_ctl_chk_state */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 07/23/08 JRB 17 Fix creation of CntrlObj string again. */ +/* Fix CntrlObj size (129 char) in TDL. */ +/* Send AddCause=3(select-failed) if already selected*/ +/* 07/02/08 JRB 16 Repl cmd_executing w/ ctlState (more flexible)*/ +/* Make sure SBO name <= MVL61850_MAX_OBJREF_LEN.*/ +/* Fix CntrlObj string. Del unused var. */ +/* 05/14/08 JRB 15 mvl61850_ctl_req_done: first chk (va!=NULL). */ +/* 05/08/08 JRB 14 Handle sboClass=operate-many. For sbo-with- */ +/* enhanced-sec, don't unselect until CmdTerm. */ +/* 05/08/08 JRB 13 mvl61850_ctl_chk_state: set LastApplError. */ +/* 05/06/08 JRB 12 Don't allow re-select until after command or */ +/* sboTimeout (use new getSboCtrl function). */ +/* Set default Error/AddCause if not already set*/ +/* 03/03/08 JRB 11 Add mvl61850_ctl_req_done & fix it to NOT send*/ +/* LastApplError for Oper if normal security. */ +/* Find and save sboClass to use later. */ +/* 02/26/07 JRB 10 initSboCtrl: add use_ms_timer arg. */ +/* 02/21/07 JRB 09 Fix comment. */ +/* 11/21/06 JRB 08 Add mvl61850_ctl_lastapplerror_send. */ +/* 10/30/06 JRB 07 Use new mvl_vmd_* object handling functions. */ +/* Fix check that ALL of Oper and ONLY Oper is */ +/* being written. */ +/* 04/17/06 JRB 06 Do NOT create LastApplError var at startup, */ +/* but create temporary var only when needed. */ +/* 09/12/05 JRB 05 Add mvl61850_ctl_chk_sbow. */ +/* Add NERR log if Loc$stVal==TRUE. */ +/* Chk ctlModel before SBO read or SBOw write. */ +/* 07/11/05 JRB 04 Add mvl61850_ctl_command_termination. */ +/* Add mvl61850_ctl_lastapplerror_create. */ +/* 03/28/05 JRB 03 Don't allow SBO read if Loc$stVal==TRUE. */ +/* 01/27/05 JRB 02 Del unused variable. */ +/* 12/10/04 JRB 01 New. Moved 61850 Control code from mvlu_sbo.c*/ +/* to this module. */ +/* Add mvl61850_ctl_chk_sbo, mvl61850_ctl_chk_state.*/ +/* Del leaf funct mvl61850_sbo_select_rd_ind. */ +/************************************************************************/ +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" +#include "mmsdefs.h" +#include "mvl_uca.h" +#include "mvl_log.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + + +/************************************************************************/ +/* getSboCtrl */ +/* RETURNS: pointer to a structure from the global pool "sbo_pool" */ +/* (same pool used by "initSboCtrl" for UCA controls). */ +/* NOTE: On error, this function returns NULL. If LastApplError!=NULL, */ +/* it also sets the Error and AddCause members of LastApplError. */ +/************************************************************************/ +static MVL_SBO_CTRL *getSboCtrl (MVL_NET_INFO *net_info, + ST_CHAR *sbo_name, + ST_INT8 ctlModel, + ST_UINT32 sboTimeout, + ST_INT8 sboClass, + MVL61850_LAST_APPL_ERROR *LastApplError) +{ + ST_INT i; + MVL_SBO_CTRL *sboCtrl; + /* Stop now if name is too long (strcpy later would not be safe). */ + if (strlen (sbo_name) >= sizeof (sboCtrl->sbo_var)) + { + /* should NEVER happen */ + MVL_LOG_ERR1 ("Error finding IEC 61850 Control object '%s'. Name too long",sbo_name); + return (NULL); + } + /* See if the element is already selected. */ + sboCtrl = sbo_pool; + for (i = 0; i < MAX_NUM_SBO_PEND; ++i, ++sboCtrl) + { + if (sboCtrl->in_use == SD_TRUE && !strcmp (sboCtrl->sbo_var, sbo_name)) + { + /* Already selected. Do not allow re-select until after timeout. */ + /* DEBUG: change this to use defines for Error and AddCause? */ + if (LastApplError != NULL) + { + LastApplError->Error = 1; /* Unknown */ + if (sboCtrl->ctlState > MVL61850_CTLSTATE_UNSELECTED) + LastApplError->AddCause = 12; /* Command-already-in-execution */ + else + LastApplError->AddCause = 3; /* Select-failed */ + } + return (NULL); + } + } + /* The protected element is not selected, find unused SBO control */ + sboCtrl = sbo_pool; + for (i = 0; i < MAX_NUM_SBO_PEND; ++i, ++sboCtrl) + { + if (sboCtrl->in_use == SD_FALSE) + break; + } + if (i >= MAX_NUM_SBO_PEND) + { + if (LastApplError != NULL) + { + LastApplError->Error = 1; /* Unknown */ + LastApplError->AddCause = 0; /* Unknown */ + } + return (NULL); + } + /* Found available SBO control, set the parameters. */ + memset (sboCtrl, 0, sizeof (MVL_SBO_CTRL)); /* start w/ clean struct*/ + sboCtrl->in_use = SD_TRUE; + sboCtrl->use_ms_timer = SD_TRUE; /* ALWAYS "ms" timer for 61850 */ + sboCtrl->expire_time_ms = sGetMsTime () + sboTimeout; + sboCtrl->net_info = net_info; + /* NOTE: sbo_name length checked above, so this strcpy is safe. */ + strcpy (sboCtrl->sbo_var, sbo_name); + sboCtrl->ctlModel = ctlModel; + sboCtrl->sboClass = sboClass; + return (sboCtrl); + } +/************************************************************************/ +/* mvl61850_sbo_create_sboname */ +/* Creates a name to return when an IEC 61850 SBO attribute is read. */ +/* sboName must point to buffer of at least [MVL61850_MAX_OBJREF_LEN+1] char*/ +/* NOTE: this name may also be passed to "mvlu_sbo_chk_state" */ +/* to find the correct MVL_SBO_CTRL struct. */ +/************************************************************************/ +ST_VOID mvl61850_sbo_create_sboname (MVL_VAR_ASSOC *va, MVL_SCOPE *va_scope, + ST_CHAR *sboName) + { +ST_CHAR *tmp_ptr; /* use to find last '$' in var name */ + +/* Create ObjectReference for this variable. */ + if (mvl61850_objref_create (va->name, va_scope, sboName) != SD_SUCCESS) + { /* should NEVER happen */ + MVL_LOG_ERR0 ("Can't generate SBO ObjectReference"); + sboName [0] = '\0'; /* return empty string */ + return; + } + +/* Replace end of var name with name of protected element (Oper). */ +/* Var name may end with Oper, SBO, Cancel, etc. Replace with "Oper". */ +/* This is a waste if it already ends with "Oper", but it takes more */ +/* code to check. */ + if ((tmp_ptr = strrchr (sboName, '$')) != NULL && /* find last '$'*/ + tmp_ptr - sboName + 5 <= MVL61850_MAX_OBJREF_LEN) /* room for Oper*/ + strcpy (tmp_ptr+1, "Oper"); /* Write name of protected element (Oper) AFTER it.*/ + else + { /* should NEVER happen */ + MVL_LOG_ERR1 ("Can't generate SBO ObjectReference from '%s' (too long to replace last comp with 'Oper')", sboName); + sboName [0] = '\0'; /* return empty string */ + } + } + +/************************************************************************/ +/* mvl61850_mkname_ctlmodel */ +/* Generate the "flattened" name of the "ctlModel" attribute that */ +/* corresponds to the attribute passed as "var_name" arg. */ +/* The var_name arg should always be of the following form: */ +/* LNodeName$CO$yyy$Oper */ +/* LNodeName$CO$yyy$SBO, etc. */ +/* This funct generates a name like this ("LNodeName$" stripped off): */ +/* CF$yyy$ctlModel */ +/************************************************************************/ +ST_RET mvl61850_mkname_ctlmodel (ST_CHAR *var_name, ST_CHAR *flatname, size_t flatname_len) + { +ST_RET retcode = SD_FAILURE; +ST_CHAR *firstdollar; /* ptr to first '$' in var name */ +ST_CHAR *lastdollar; /* ptr to last '$' in var name */ +ST_INT prefixlen; /* len of first half of generated string */ +ST_CHAR *suffix = "ctlModel"; + + firstdollar = strchr (var_name, '$'); /* find first '$' */ + lastdollar = strrchr (var_name, '$'); /* find last '$' */ + if (firstdollar && lastdollar) + { + prefixlen = lastdollar - firstdollar; + if (prefixlen + strlen (suffix) <= flatname_len) + { + strcpy (flatname, firstdollar+1); /* Copy text after first '$'*/ + strncpy (flatname, "CF", 2); /* Replace CO at start with CF */ + strcpy (flatname + prefixlen, suffix); /* Write new suffix after last '$'*/ + retcode = SD_SUCCESS; + } + } + return (retcode); + } + +/************************************************************************/ +/* mvl61850_mkname_sbotimeout */ +/* Generate the "flattened" name of the "sboTimeout" attribute that */ +/* corresponds to the attribute passed as "var_name" arg. */ +/* The var_name arg should always be of the following form: */ +/* LNodeName$CO$yyy$SBO */ +/* This funct generates a name like this ("LNodeName$" stripped off): */ +/* CF$yyy$sboTimeout */ +/************************************************************************/ +ST_RET mvl61850_mkname_sbotimeout (ST_CHAR *var_name, ST_CHAR *flatname, size_t flatname_len) + { +ST_CHAR *firstdollar; /* ptr to first '$' in var name */ +ST_CHAR *lastdollar; /* ptr to last '$' in var name */ +ST_INT prefixlen; /* len of first half of generated string */ +ST_CHAR *suffix = "sboTimeout"; /* replacement text to put after last '$'*/ +ST_RET retcode = SD_FAILURE; + + firstdollar = strchr (var_name, '$'); /* find first '$' */ + lastdollar = strrchr (var_name, '$'); /* find last '$' */ + if (firstdollar && lastdollar) + { + prefixlen = lastdollar - firstdollar; + if (prefixlen + strlen (suffix) <= flatname_len) /* room to replace*/ + { + strcpy (flatname, firstdollar+1); /* Copy text after first '$'*/ + strncpy (flatname, "CF", 2); /* Replace CO at start with CF */ + strcpy (flatname + prefixlen, suffix); /* Write new suffix after last '$'*/ + retcode = SD_SUCCESS; + } + } + return (retcode); + } + +/************************************************************************/ +/* mvl61850_mkname_sboclass */ +/* Generate the "flattened" name of the "sboClass" attribute that */ +/* corresponds to the attribute passed as "var_name" arg. */ +/* The var_name arg should always be of the following form: */ +/* LNodeName$CO$yyy$SBO */ +/* This funct generates a name like this ("LNodeName$" stripped off): */ +/* CF$yyy$sboClass */ +/************************************************************************/ +ST_RET mvl61850_mkname_sboclass (ST_CHAR *var_name, ST_CHAR *flatname, size_t flatname_len) + { +ST_CHAR *firstdollar; /* ptr to first '$' in var name */ +ST_CHAR *lastdollar; /* ptr to last '$' in var name */ +ST_INT prefixlen; /* len of first half of generated string */ +ST_CHAR *suffix = "sboClass"; /* replacement text to put after last '$'*/ +ST_RET retcode = SD_FAILURE; + + firstdollar = strchr (var_name, '$'); /* find first '$' */ + lastdollar = strrchr (var_name, '$'); /* find last '$' */ + if (firstdollar && lastdollar) + { + prefixlen = lastdollar - firstdollar; + if (prefixlen + strlen (suffix) <= flatname_len) /* room to replace*/ + { + strcpy (flatname, firstdollar+1); /* Copy text after first '$'*/ + strncpy (flatname, "CF", 2); /* Replace CO at start with CF */ + strcpy (flatname + prefixlen, suffix); /* Write new suffix after last '$'*/ + retcode = SD_SUCCESS; + } + } + return (retcode); + } + +/************************************************************************/ +/* mvl61850_sboclass_find */ +/* Find the corresponding 'sboClass' attribute for this variable and */ +/* read its current value. */ +/************************************************************************/ +static ST_INT8 mvl61850_sboclass_find (MVL_VAR_ASSOC *va) + { +ST_CHAR sboClassName [MAX_IDENT_LEN+1]; /* "CF$...$sboClass" */ +ST_INT8 sboClass; + if (mvl61850_mkname_sboclass (va->name, sboClassName, MAX_IDENT_LEN) != SD_SUCCESS || + mvlu_get_leaf_val_int8 (va->base_va, sboClassName, &sboClass) != SD_SUCCESS) + sboClass = MVL61850_SBOCLASS_OPERATE_ONCE; /* set default value */ + return (sboClass); + } + +/************************************************************************/ +/* mvl61850_ctl_chk_sbo */ +/* This function should be called from "leaf" function when IEC 61850 */ +/* "SBO" attribute is being read (i.e. performing Control Model 'Select'*/ +/* Service). It checks if client is allowed to perform 'Select'. */ +/* If 'Select' allowed, it reserves a MVL_SBO_CTRL struct and returns */ +/* a ptr to it. */ +/* RETURNS: ptr to struct if successful (sbo_var member of struct */ +/* contains name to send in read response). */ +/* NULL if failed. */ +/* CRITICAL: if return is NOT NULL & caller decides not to allow */ +/* 'Select', must pass this ptr to mvlu_sbo_ctrl_free. */ +/************************************************************************/ +MVL_SBO_CTRL *mvl61850_ctl_chk_sbo (MVLU_RD_VA_CTRL *mvluRdVaCtrl) + { +MVL_VAR_ASSOC *va; +ST_CHAR sboName[MVL61850_MAX_OBJREF_LEN+1]; +MVL_SBO_CTRL *sboCtrl = NULL; +ST_CHAR *lastdollar; /* ptr to last '$' in var name */ +/* Init sboTimeout=0. If ..$CF$..$sboTimeout==0, or not found, set to default val.*/ +ST_UINT32 sboTimeout = 0; /* SBO timeout value. */ +ST_CHAR sboTimeoutName [MAX_IDENT_LEN+1]; /* "CF$...$sboTimeout" */ +ST_BOOLEAN loc_stval; +ST_INT8 sboClass; + +/* First take care of timeout housekeeping */ + mvlu_sbo_chk_timers (); + +/* find the name of the attribute being selected */ + va = mvluRdVaCtrl->rdVaCtrl->va; + +/* Check value of "ST$Loc$stVal". */ + if (mvlu_get_leaf_val_boolean (va->base_va, "ST$Loc$stVal", &loc_stval)!=SD_SUCCESS) + loc_stval = SD_FALSE; /* if can't read ST$Loc$stVal, assume FALSE*/ + if (loc_stval) + { + MVL_LOG_NERR1 ("Reading of '%s' not allowed: Local mode is set.", va->name); + return (NULL); /* error return */ + } + +/* Only perform "Select" if SBO is ONLY attribute being read. */ +/* Check this by seeing if variable name ends with "$SBO". */ +/* Point to where "$SBO" should be, then see if it's there. */ + lastdollar = strrchr (va->name, '$'); /* find last '$' */ + if (lastdollar != NULL && strcmp (lastdollar+1, "SBO") == 0) + { + ST_INT8 ctlModel; + ST_CHAR flatname [MAX_IDENT_LEN + 1]; /* attribute to find */ + + /* Generate "ctlModel" leaf name and try to read its value. */ + /* CRITICAL: this only works if va->name checked first (i.e. it ends in "$SBO")*/ + if (mvl61850_mkname_ctlmodel (va->name, flatname, MAX_IDENT_LEN) != SD_SUCCESS + || mvlu_get_leaf_val_int8 (va->base_va, flatname, &ctlModel) != SD_SUCCESS) + ctlModel = MVL61850_CTLMODEL_STATUS_ONLY; /* can't read ctlModel. assume status-only*/ + + if (ctlModel != MVL61850_CTLMODEL_SBO_NORMAL) + { + MVL_LOG_NERR3 ("Reading of '%s' not allowed: ctlModel=%d, expected ctlModel=%d (sbo-with-normal-security)", + va->name, ctlModel, MVL61850_CTLMODEL_SBO_NORMAL); + return (NULL); /* error return */ + } + +/* Create sboName from var name. */ + //mvl61850_sbo_create_sboname (va, &mvluRdVaCtrl->rdVaCtrl->va_scope, sboName);//lnk±àÒëɾ³ý£¬Ô­Ç°ÖóÌÐòδʹÓà + +/* Find "sboTimeout" value. */ + if (mvl61850_mkname_sbotimeout (va->name, sboTimeoutName, MAX_IDENT_LEN) != SD_SUCCESS || + mvlu_get_leaf_val_uint32 (va->base_va, sboTimeoutName, &sboTimeout) != SD_SUCCESS || + sboTimeout==0) /* ..$CF$..$sboTimeout==0, or not found */ + sboTimeout = SBO_SELECT_TIMEOUT; /* set timeout to default val */ + +/* Find "sboClass" value. */ + sboClass = mvl61850_sboclass_find (va); + +/* Get a SBO control element */ + sboCtrl = getSboCtrl (mvluRdVaCtrl->indCtrl->event->net_info,sboName, + ctlModel, sboTimeout, sboClass, + NULL); /* LastApplError not used*/ + } + + return (sboCtrl); + } + +/************************************************************************/ +/* mvl61850_ctl_chk_sbow */ +/* This function should be called from "leaf" function when IEC 61850 */ +/* an attribute inside the "SBOw" structure is being written */ +/* (i.e. performing Control Model 'Select' Service for */ +/* sbo-with-enhanced-security). */ +/* It checks if client is allowed to perform 'Select'. */ +/* If 'Select' allowed, it reserves a MVL_SBO_CTRL struct and returns */ +/* a ptr to it. */ +/* RETURNS: ptr to struct if successful (sbo_var member of struct */ +/* contains name to send in read response). */ +/* NULL if failed. */ +/* CRITICAL: if return is NOT NULL & caller decides not to allow */ +/* 'Select', caller must pass this ptr to mvlu_sbo_ctrl_free. */ +/* NOTE: this is very similar to mvl61850_ctl_chk_sbo, but it is used */ +/* when writing "SBOw" instead of when reading "SBO". */ +/************************************************************************/ +MVL_SBO_CTRL *mvl61850_ctl_chk_sbow (MVLU_WR_VA_CTRL *mvluWrVaCtrl) +{ + MVL_VAR_ASSOC *va; + ST_CHAR sboName[MVL61850_MAX_OBJREF_LEN+1]; + MVL_SBO_CTRL *sboCtrl = NULL; + ST_CHAR *lastdollar; /* ptr to last '$' in var name */ + /* Init sboTimeout=0. If ..$CF$..$sboTimeout==0, or not found, set to default val.*/ + ST_UINT32 sboTimeout = 0; /* SBO timeout value. */ + ST_CHAR sboTimeoutName [MAX_IDENT_LEN+1]; /* "CF$...$sboTimeout" */ + ST_BOOLEAN loc_stval; + ST_INT8 sboClass; + + /* First take care of timeout housekeeping */ + mvlu_sbo_chk_timers (); + va = mvluWrVaCtrl->wrVaCtrl->va; + /* Check value of "ST$Loc$stVal". */ + if (mvlu_get_leaf_val_boolean (va->base_va, "ST$Loc$stVal", &loc_stval)!=SD_SUCCESS) + { + loc_stval = SD_FALSE; /* if can't read ST$Loc$stVal, assume FALSE*/ + } + if (loc_stval) + { + /* renxiaobao ¿ØÖÆ*/ + mvluWrVaCtrl->wrVaCtrl->LastApplError.Error = 1; /* Unknown */ + mvluWrVaCtrl->wrVaCtrl->LastApplError.AddCause = Blocked_CB; /* Blocked-by-switching-hierarchy */ + MVL_LOG_NERR1 ("Writing of '%s' not allowed: Local mode is set.", va->name); + return (NULL); /* error return */ + } + /* Only perform "Select" if entire SBOw is written & nothing else.*/ + /* Check this by seeing if variable name ends with "$SBOw". */ + /* Point to where "$SBOw" should be, then see if it's there. */ + lastdollar = strrchr (va->name, '$'); /* find last '$' */ + if (lastdollar != NULL && strcmp (lastdollar+1, "SBOw") == 0) + { + ST_INT8 ctlModel; + ST_CHAR flatname [MAX_IDENT_LEN + 1]; /* attribute to find */ + /* Generate "ctlModel" leaf name and try to read its value. */ + /* CRITICAL: this only works if va->name checked first (i.e. it ends in "$SBOw")*/ + if (mvl61850_mkname_ctlmodel (va->name, flatname, MAX_IDENT_LEN) != SD_SUCCESS + || mvlu_get_leaf_val_int8 (va->base_va, flatname, &ctlModel) != SD_SUCCESS) + { + ctlModel = MVL61850_CTLMODEL_STATUS_ONLY; /* can't read ctlModel. assume status-only*/ + } + /*renxiaobao ¿ØÖÆ + // if (ctlModel != MVL61850_CTLMODEL_SBO_ENHANCED)*/ + if ((ctlModel != MVL61850_CTLMODEL_SBO_ENHANCED)&&(ctlModel != MVL61850_CTLMODEL_SBO_NORMAL)) + { + /* renxiaobao ¿ØÖÆ*/ + mvluWrVaCtrl->wrVaCtrl->LastApplError.Error = 1; /* Unknown */ + mvluWrVaCtrl->wrVaCtrl->LastApplError.AddCause = Blocked_by_Mode; /* Blocked-by-Mode */ + MVL_LOG_NERR3 ("Writing of '%s' not allowed: ctlModel=%d, expected ctlModel=%d (sbo-with-enhanced-security)", + va->name, ctlModel, MVL61850_CTLMODEL_SBO_ENHANCED); + return (NULL); + } + /* Create sboName from var name. */ + /* NOTE: the sboName is not really used for "SBOw", but the "initSboCtrl"*/ + /* function (originally written only for "SBO") needs it. */ + //mvl61850_sbo_create_sboname (va, &mvluWrVaCtrl->wrVaCtrl->va_scope, sboName);//lnk±àÒëɾ³ý£¬Ô­Ç°ÖóÌÐòδʹÓà + /* Find "sboTimeout" value. */ + if (mvl61850_mkname_sbotimeout (va->name, sboTimeoutName, MAX_IDENT_LEN) != SD_SUCCESS || + mvlu_get_leaf_val_uint32 (va->base_va, sboTimeoutName, &sboTimeout) != SD_SUCCESS || + sboTimeout==0) /* ..$CF$..$sboTimeout==0, or not found */ + { + /*renxiaobao ¿ØÖÆ*/ + sboTimeout = SBO_SELECT_TIMEOUT*1000; /* set timeout to default val */ + } + /* Find "sboClass" value. */ + sboClass = mvl61850_sboclass_find (va); + /* Get a SBO control element */ + sboCtrl = getSboCtrl (mvluWrVaCtrl->indCtrl->event->net_info, sboName, + ctlModel, sboTimeout, sboClass, + &mvluWrVaCtrl->wrVaCtrl->LastApplError); + } + return (sboCtrl); +} +/************************************************************************/ +/* mvl61850_ctl_chk_state */ +/* Check ctlModel, etc. to determine if control is right type & */ +/* in right state. */ +/* RETURNS: SD_SUCCESS if OK to perform Operate command. */ +/* SD_FAILURE if NOT OK (also sets appropriate Error and */ +/* AddCause members of LastApplError). */ +/************************************************************************/ +ST_RET mvl61850_ctl_chk_state (MVLU_WR_VA_CTRL *mvluWrVaCtrl) +{ + MVL_VAR_ASSOC *base_var = mvluWrVaCtrl->wrVaCtrl->va->base_va; + ST_INT8 ctlModel; + ST_BOOLEAN loc_stval; + ST_CHAR flatname [MAX_IDENT_LEN + 1]; /* attribute to find */ + ST_CHAR *lastdollar; /* ptr to last '$' in var name */ + MVL61850_LAST_APPL_ERROR *LastApplError; + + /* renxiaobao 5.3°æ±¾ÐÞ¸Ä*/ + /* Send this DAE in the MMS Write response on any error. If the Write */ + /* succeeds, this value is ignored (i.e. not sent). */ + mvluWrVaCtrl->wrVaCtrl->failure = ARE_OBJ_ACCESS_DENIED; + + LastApplError = &mvluWrVaCtrl->wrVaCtrl->LastApplError; + /* Only allow "Operate" if writing ALL of "Oper" and ONLY "Oper". */ + /* Check this by seeing if variable name ends with "$Oper". */ + /* Point to where "$Oper" should be, then see if it's there. */ + lastdollar = strrchr (mvluWrVaCtrl->wrVaCtrl->va->name, '$'); /* find last '$'*/ + if (lastdollar == NULL || strcmp (lastdollar+1, "Oper") != 0) + { + /* LastApplError not sent in this case, so don't bother setting it. */ + return (SD_FAILURE); /* ERROR: not writing ALL of Oper and ONLY Oper.*/ + } + /* Check value of "ST$Loc$stVal". */ + if (mvlu_get_leaf_val_boolean (base_var, "ST$Loc$stVal", &loc_stval)!=SD_SUCCESS) + { + loc_stval = SD_FALSE; /* if can't read ST$Loc$stVal, assume FALSE*/ + } + if (loc_stval == SD_FALSE) + { + /* Generate "ctlModel" leaf name and try to read its value. */ + if (mvl61850_mkname_ctlmodel (mvluWrVaCtrl->wrVaCtrl->va->name, flatname, MAX_IDENT_LEN) != SD_SUCCESS + || mvlu_get_leaf_val_int8 (base_var, flatname, &ctlModel) != SD_SUCCESS) + { + ctlModel = MVL61850_CTLMODEL_STATUS_ONLY; /* can't read ctlModel. assume status-only*/ + } + if (ctlModel == MVL61850_CTLMODEL_DIRECT_NORMAL||ctlModel == MVL61850_CTLMODEL_DIRECT_ENHANCED) + { + /* This is Direct control. */ + /* OK. Nothing else to check. Continue to successful return. */ + } + else if (ctlModel == MVL61850_CTLMODEL_SBO_NORMAL||ctlModel == MVL61850_CTLMODEL_SBO_ENHANCED) + { + /* This is SBO control. */ + /* Chk sboCtrl (set by startElWrites if client writing "Oper"). */ + if (!mvluWrVaCtrl->wrVaCtrl->sboCtrl) + { + LastApplError->Error = 1; /* Unknown*/ + LastApplError->AddCause = 3; /* Select-failed*/ + return (SD_FAILURE); + } + } + else + { + /* ctlModel="status-only" or invalid. */ + LastApplError->Error = 1; /* Unknown*/ + LastApplError->AddCause = 8; /* Blocked-by-mode*/ + return (SD_FAILURE); + } + } /* end "if (loc_stval == SD_FALSE)" (i.e. "remote" mode) */ + else + { /* loc_stval == SD_TRUE (i.e. "local" mode) */ + LastApplError->Error = 1; /* Unknown*/ + LastApplError->AddCause = 8; /* Blocked-by-mode*/ + return (SD_FAILURE); + } + /* Passed all checks. Allow the control operation. */ + return (SD_SUCCESS); + } +/************************************************************************/ +/* mvl61850_ctl_command_termination */ +/* Called by user to send "Command Termination" request for controls */ +/* with "Enhanced Security". */ +/************************************************************************/ +ST_RET mvl61850_ctl_command_termination (MVL_NET_INFO *net_info, ST_CHAR *oper_ref, + ST_RET status, MVL61850_LAST_APPL_ERROR *last_appl_error) + { +OBJECT_NAME nvl_obj; /* NVL object name */ +MVL_NVLIST_CTRL *nvlist_ctrl; +ST_INT num_var; +OBJECT_NAME var_obj[2]; /* array of var object names (1 or 2 depending on status)*/ +MVL_VAR_ASSOC *last_appl_var = NULL; /* var assoc for "LastApplError"*/ +ST_RET ret; +ST_CHAR oper_ref_local[MAX_IDENT_LEN+1]; /* local copy of oper_ref arg */ +MVL_SBO_CTRL *sboCtrl; /* ptr to SBO control if this is SBO */ + + ret = SD_SUCCESS; /* assume success */ + + /* Create tmp NVL used only for building this rpt. */ + nvl_obj.object_tag = VMD_SPEC; + nvl_obj.obj_name.vmd_spec = "tmp_nvl_for_rpt"; + + /* Fill in var_obj array. */ + num_var = 0; + if (status != SD_SUCCESS) + { /* On error, include "LastApplError" in report. */ + ST_INT type_id; + /* Create temporary VMD_SPEC "LastApplError" variable. */ + /* If this fails, mvl_vmd_nvl_add will also fail later. */ + type_id = mvl_typename_to_typeid ("LastApplErrorType"); + if (type_id >= 0) + { + var_obj[num_var].object_tag = VMD_SPEC; + var_obj[num_var].obj_name.vmd_spec = "LastApplError"; + /* NOTE: last_appl_error points to temporary data. This var must be deleted before returning*/ + last_appl_var = mvl_vmd_var_add (&mvl_vmd, &var_obj[num_var], + NULL, /* (MVL_NET_INFO *) */ + type_id, + last_appl_error, /* data ptr (saved in var->data) */ + NULL, /* (MVL_VAR_PROC *) */ + SD_FALSE); /* DO NOT copy the var name */ + } + num_var++; + } + /* Add this control object (LN$FC$xxx$Oper) to "var_obj". */ + var_obj[num_var].object_tag = DOM_SPEC; /* ALWAYS Domain specific*/ + /* strtok modifies input buffer, so copy oper_ref to local buffer first. */ + strcpy (oper_ref_local, oper_ref); + var_obj[num_var].domain_id = strtok (oper_ref_local, "/"); /*extract dom name*/ + var_obj[num_var].obj_name.vmd_spec = strtok (NULL, ""); + if (var_obj[num_var].obj_name.vmd_spec == NULL) + { + MVL_LOG_ERR1 ("Invalid ControlObjectReference '%s', cannot send CommandTermination", oper_ref); + ret = SD_FAILURE; + } + else + { + num_var++; + + nvlist_ctrl = mvl_vmd_nvl_add (&mvl_vmd, &nvl_obj, NULL, /* net_info: not needed*/ + num_var, var_obj, SD_TRUE); /* copy name */ + + /* Now send report */ + if (nvlist_ctrl) + { + ret = mvl_info_variables (net_info, nvlist_ctrl, SD_TRUE); /* listOfVariables*/ + mvl_vmd_nvl_remove (&mvl_vmd, &nvl_obj, NULL); /* done with tmp NVL */ + } + else + ret = SD_FAILURE; + } + /* If temporary "LastApplError" var created, destroy it now. */ + if (last_appl_var) + mvl_vmd_var_remove (&mvl_vmd, &var_obj[0], NULL); /* always first in "var_obj" array*/ + + sboCtrl = mvlu_sbo_chk_state (oper_ref, net_info); + if (sboCtrl != NULL + && sboCtrl->ctlModel == MVL61850_CTLMODEL_SBO_ENHANCED) + { + /* ctlModel=sbo-with-enhanced-security. If sboClass=operate-once, */ + /* "unselect" now (i.e. free sboCtrl), else go back to READY state. */ + if (sboCtrl->sboClass == MVL61850_SBOCLASS_OPERATE_ONCE) + mvlu_sbo_ctrl_free (sboCtrl); /* like "UNSELECTED" state*/ + else + sboCtrl->ctlState = MVL61850_CTLSTATE_READY; + } + return (ret); + } + +/************************************************************************/ +/* mvl61850_ctl_lastapplerror_create */ +/* Create type to use later when "temporary" LastApplError var created. */ +/************************************************************************/ +ST_RET mvl61850_ctl_lastapplerror_create () + { +ST_RET retcode = SD_SUCCESS; +ST_CHAR *LastApplErrorTdl = "{\ + (CntrlObj)Vstring129,\ + (Error)Byte,\ + (Origin){(orCat)Byte,(orIdent)OVstring64},\ + (ctlNum)Ubyte,\ + (AddCause)Byte}"; + + /* Maybe this type was already created. If it does NOT exist, create it.*/ + if (mvl_typename_to_typeid ("LastApplErrorType") < 0) + { + if (mvl_type_id_create_from_tdl ("LastApplErrorType",LastApplErrorTdl) < 0) + retcode = SD_FAILURE; /* create failed */ + } + return (retcode); + } + +/************************************************************************/ +/* mvl61850_ctl_lastapplerror_send */ +/* Called by user to send "LastApplError" information report. */ +/************************************************************************/ +ST_RET mvl61850_ctl_lastapplerror_send (MVL_NET_INFO *net_info, + MVL61850_LAST_APPL_ERROR *last_appl_error) + { +OBJECT_NAME nvl_obj; /* NVL object name */ +MVL_NVLIST_CTRL *nvlist_ctrl; +ST_INT num_var; +OBJECT_NAME var_obj; /* temporary var object name */ +MVL_VAR_ASSOC *last_appl_var = NULL; /* var assoc for "LastApplError"*/ +ST_RET ret; +ST_INT type_id; + + ret = SD_SUCCESS; /* assume success */ + + /* Create tmp NVL used only for building this rpt. */ + nvl_obj.object_tag = VMD_SPEC; + nvl_obj.obj_name.vmd_spec = "tmp_nvl_for_rpt"; + + /* Fill in var_obj. */ + num_var = 1; + /* Create temporary VMD_SPEC "LastApplError" variable. */ + /* If this fails, mvl_vmd_nvl_add will also fail later. */ + type_id = mvl_typename_to_typeid ("LastApplErrorType"); + if (type_id >= 0) + { + var_obj.object_tag = VMD_SPEC; + var_obj.obj_name.vmd_spec = "LastApplError"; + /* NOTE: last_appl_error points to temporary data. This var must be deleted before returning*/ + last_appl_var = mvl_vmd_var_add (&mvl_vmd, &var_obj, + NULL, /* (MVL_NET_INFO *) */ + type_id, + last_appl_error, /* data ptr (saved in var->data) */ + NULL, /* (MVL_VAR_PROC *) */ + SD_FALSE); /* DO NOT copy the var name */ + + nvlist_ctrl = mvl_vmd_nvl_add (&mvl_vmd, &nvl_obj, NULL, /* net_info: not needed*/ + num_var, &var_obj, SD_TRUE); /* copy name */ + + /* Now send report */ + if (nvlist_ctrl) + { + ret = mvl_info_variables (net_info, nvlist_ctrl, SD_TRUE); /* listOfVariables*/ + mvl_vmd_nvl_remove (&mvl_vmd, &nvl_obj, NULL); /* done with tmp NVL */ + } + else + ret = SD_FAILURE; + } + else + ret = SD_FAILURE; + + /* If temporary "LastApplError" var created, destroy it now. */ + if (last_appl_var) + mvl_vmd_var_remove (&mvl_vmd, &var_obj, NULL); + + if (ret != SD_SUCCESS) + MVL_LOG_ERR0 ("Error sending LastApplError"); + return (ret); + } + +/************************************************************************/ +/* mvl61850_ctl_req_done */ +/* Do some necessary cleanup IF the MMS Write request represents an IEC */ +/* 61850 control request. */ +/* NOTE: For any other MMS Write request, this function does nothing. */ +/************************************************************************/ +ST_VOID mvl61850_ctl_req_done (MVLAS_WR_VA_CTRL *wrVaCtrl, MVL_NET_INFO *net_info) + + { +ST_INT8 ctlModel; +ST_BOOLEAN send_lastappl = SD_FALSE; +ST_CHAR flatname [MAX_IDENT_LEN+1]; +ST_CHAR *lastdollar; /* ptr to last '$' in variable name */ +MVL_SBO_CTRL *sboCtrl; /* ptr to SBO control if this is SBO */ + + /* CRITICAL: make sure variable was found before doing anything else. */ + if (wrVaCtrl->va == NULL) + return; /* var not found. Do nothing. */ + + lastdollar = strrchr (wrVaCtrl->va->name, '$'); /* find last '$'*/ + + /* If Write failed, and Var is IEC 61850 Oper, Cancel, or SBOw, */ + /* must also send InformationReport containing LastApplError. */ + if (wrVaCtrl->resp_tag == WR_RSLT_FAILURE) + { + /* Var name must end in $Oper, $Cancel, or $SBOw. */ + if (lastdollar != NULL) + { + /* Send LastApplError if writing Cancel or SBOw. */ + if (strcmp (lastdollar+1, "Cancel") == 0 || + strcmp (lastdollar+1, "SBOw") == 0) + send_lastappl = SD_TRUE; + /* Send LastApplError if writing Oper AND Enhanced security. */ + else if (strcmp (lastdollar+1, "Oper") == 0) + { + /* Generate "ctlModel" leaf name like "CF$...$ctlModel" from */ + /* variable name "...$Oper" and try to read its value. */ + if (mvl61850_mkname_ctlmodel (wrVaCtrl->va->name, flatname, MAX_IDENT_LEN) != SD_SUCCESS + || mvlu_get_leaf_val_int8 (wrVaCtrl->va->base_va, flatname, &ctlModel) != SD_SUCCESS) + ctlModel = MVL61850_CTLMODEL_STATUS_ONLY; /* can't read ctlModel. assume status-only*/ + /*renxiaobao ¿ØÖÆ + //if (ctlModel == MVL61850_CTLMODEL_DIRECT_ENHANCED || + // ctlModel == MVL61850_CTLMODEL_SBO_ENHANCED) */ + send_lastappl = SD_TRUE; + } + if (send_lastappl) + { + /* Construct & send LastApplError info report.*/ + + /* Fill in "LastApplError" structure. */ + /* This function builds a string in "CntrlObj". */ + /* If it fails, the string is empty. */ +#if 1 + mvl61850_objref_create (wrVaCtrl->va->name, &wrVaCtrl->va_scope, wrVaCtrl->LastApplError.CntrlObj); +#else /* OLD WAY (similar but CntrlObj always ended in '$Oper'). */ + //mvl61850_sbo_create_sboname (wrVaCtrl->va, &wrVaCtrl->va_scope, wrVaCtrl->LastApplError.CntrlObj);//lnk±àÒëɾ³ý£¬Ô­Ç°ÖóÌÐòδʹÓà +#endif + /* Other members (Error, AddCause, Origin, ctlNum) already set by leaf functions.*/ + + /* If Error/AddCause not set yet, set default values. */ + if (wrVaCtrl->LastApplError.Error == 0) + { + wrVaCtrl->LastApplError.Error = 1; /* Unknown */ + wrVaCtrl->LastApplError.AddCause = 0; /* Unknown */ + } + mvl61850_ctl_lastapplerror_send (net_info, &wrVaCtrl->LastApplError); + } + } + } + /* Do special cleanup for IEC 61850 SBO controls. */ + /* If wrVaCtrl->sboCtrl != NULL, this var is SBO Oper or Cancel */ + /* (see startElWrites), so do appropriate SBO cleanup. */ + /* If this is a Cancel request, or if ctlModel=sbo-with-normal-security*/ + /* AND sboClass=operate-once, we must "unselect" the control */ + /* (i.e. free "sboCtrl"). */ + sboCtrl = wrVaCtrl->sboCtrl; + if (sboCtrl != NULL) + { + if (strcmp (lastdollar+1, "Cancel") == 0 + || (sboCtrl->ctlModel == MVL61850_CTLMODEL_SBO_NORMAL + && sboCtrl->sboClass == MVL61850_SBOCLASS_OPERATE_ONCE) ) + { + /* NOTE: for sbo-with-enhanced-security, this is done AFTER CommandTerm.*/ + mvlu_sbo_ctrl_free (sboCtrl); + wrVaCtrl->sboCtrl = NULL; /* reset this so free not done twice.*/ + } + } + } + diff --git a/mmslib/mvlu/mvl61850_rpt.c b/mmslib/mvlu/mvl61850_rpt.c new file mode 100644 index 0000000..5065bc6 --- /dev/null +++ b/mmslib/mvlu/mvl61850_rpt.c @@ -0,0 +1,1367 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2006-2006 All Rights Reserved */ +/* */ +/* MODULE NAME : mvl61850_rpt.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* Code to support IEC 61850 Reporting as a Server. */ +/* */ +/* BUFFERING OF REPORTS: */ +/* For Buffered Report Controls, buffering is automatic (no user */ +/* intervention). For each BRCB, all reports are stored in a linked */ +/* list "rpt_list". Also, "rpt_list_next" points to the next report to */ +/* send. If all reports have been sent, rpt_list_next==NULL. */ +/* */ +/* The maximum number of bytes to store in the buffer is a */ +/* user-configurable parameter. When the maximum number of bytes is */ +/* exceeded, the oldest report in the buffer is discarded. */ +/* */ +/* The standard SISCO linked list functions are used for buffering. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* mvl61850_brcb_rpt_save */ +/* mvl61850_brcb_rpt_send */ +/* mvl61850_brcb_rpt_lists_clean */ +/* mvl61850_brcb_client_service */ +/* mvl61850_urcb_client_service */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 06/30/08 JRB 10 For Ed2, save lastSentTimeOfEntry for BRCB. */ +/* Resync to oldest if all 0 written to EntryID.*/ +/* 06/04/08 JRB 09 Start buffering on power-up if DatSet attr */ +/* references existing DataSet (for 61850-7-2 Ed2)*/ +/* 05/15/08 JRB 08 Add mvl61850_integrity_timeout for 61850 only*/ +/* (does NOT scan data, just sends current data)*/ +/* 05/06/08 JRB 07 Fix memory leak after "PDU size" error. */ +/* 02/29/08 JRB 06 Create correct AA_SPEC or VMD_SPEC DatSet. */ +/* Reset cur_va_index, SubSeqNum when all_seg_done*/ +/* so retransmission starts with first va. */ +/* If dsNvl==NULL, do not service RCB. */ +/* 02/13/07 JRB 05 mvl61850_get_rcb: del unused net_info arg. */ +/* Use scan_rate to control scan timing. */ +/* Save TimeofEntry in "basrcb". */ +/* 11/30/06 JRB 04 Fix *_brcb_entryid_init so user can call it. */ +/* 10/10/06 JRB 03 Add mvl61850_rpt_ctrl_destroy_all. */ +/* 08/18/06 JRB 02 Disable debug printing. Clean up comments. */ +/* 08/09/06 JRB 01 New. Moved most 61850 Rpt code to here */ +/* with following changes: */ +/* New RPT functions just for 61850 (not UCA): */ +/* mvl61850_create_rpt_ctrl, mvl61850_free_rpt_ctrl,*/ +/* mvl61850_rpt_service. */ +/* Chg BRCB code to save "raw" data in buffer */ +/* and encode rpt only when sending. */ +/* Chg to one rpt list with ptr to next to send.*/ +/* ..urcb_client_service: First chk if connected.*/ +/* Put start time in first 4 bytes of EntryID. */ +/* When GI rpt buffered, discard old GI rpt. */ +/************************************************************************/ +#include "glbtypes.h" +#include "sysincs.h" +#include "mvl_acse.h" /* need mvl_cfg_info */ +#include "mvl_uca.h" +#include "mvl_log.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/* DEBUG: IEC 61850 is not clear about exactly how to handle "BufOvfl", + * so the code in this module implements the following: + * 1. If client writes EntryID & the value can't be found in the buffer, + * BufOvfl is set, an error is returned, and the oldest buffer entry will + * be sent next (see mvl61850_brcb_rpt_set_entryid). + * 2. If entry found but discarded before RptEna, + * BufOvfl is set, and the oldest buffer entry will + * be sent next (see buflist_discard_old). + * 3. If entries lost while connected, set BufOvfl (see buflist_discard_old). + * 4. After one report sent with BufOvfl, clear it + * (see mvl61850_brcb_client_service). + */ + +/************************************************************************/ +/* print macros for debugging */ +/************************************************************************/ +#if 0 /* DEBUG: enable to see queue activity. */ +/* Use function here (too complex for macro). */ +ST_VOID print_queues(MVL61850_BRCB_CTRL *brcbCtrl) + { + BUFLIST_ENTRY *entry; + printf ("REPORT BUFFER ('.'=rpt, '+'=next_to_send)"); + for (entry = brcbCtrl->rpt_list; + entry != NULL; + entry = (BUFLIST_ENTRY *) list_get_next (brcbCtrl->rpt_list, entry)) + { + if (entry == brcbCtrl->rpt_list_next) + putchar('+'); + else + putchar('.'); + } + putchar('\n'); + } +#define print_msg0(fmt) printf (fmt) +#define print_msg1(fmt,a) printf (fmt,a) +#else +#define print_queues(brcbCtrl) +#define print_msg0(fmt) +#define print_msg1(fmt,a) +#endif + +/************************************************************************/ +/* mvl61850_mk_rptid */ +/* Construct RptID from info in rptCtrl. */ +/* RETURNS: SD_SUCCESS or SD_FAILURE */ +/* Also on error, put a NULL string in RptID & log error. */ +/************************************************************************/ +ST_RET mvl61850_mk_rptid (MVLU_RPT_CTRL *rptCtrl, ST_CHAR *RptID, size_t max_len) + { +ST_RET retcode; + + /* If domname + '/' + basrcb_name will fit in RptID, then write it. */ + if (strlen (rptCtrl->dsNvl->nvl_scope.dom->name) + strlen (rptCtrl->basrcb_name) + 1 <= max_len) + { + sprintf (RptID, "%s/%s", rptCtrl->dsNvl->nvl_scope.dom->name, + rptCtrl->basrcb_name); + retcode = SD_SUCCESS; + } + else + { + MVL_LOG_ERR0 ("Cannot construct RptID (too long)"); /* should NEVER happen*/ + RptID [0] = '\0'; /* return empty RptID */ + retcode = SD_FAILURE; + } + return (retcode); + } + +/************************************************************************/ +/* mvl61850_mk_dataref */ +/************************************************************************/ +ST_VOID mvl61850_mk_dataref (MVL_VAR_ASSOC *va, MVL_SCOPE *va_scope, + ST_CHAR *databuf, ST_INT maxlen) + { + if (va_scope->scope == DOM_SPEC) + { + strcpy (databuf, va_scope->dom->name); + strcat (databuf, "/"); + } + else if (va_scope->scope == VMD_SPEC) + strcpy (databuf, "/"); + else /* must be AA_SPEC */ + strcpy (databuf, "@"); + strncat (databuf, va->name, maxlen - strlen (databuf)); + } + +/************************************************************************/ +/* mvl61850_rcb_cleanup */ +/* Cleanup RPT info to prepare for next report. */ +/************************************************************************/ +ST_VOID mvl61850_rcb_cleanup (MVLU_RPT_CLIENT *rptClient) + { +MVL_NVLIST_CTRL *dsNvl; +ST_INT incSize; /* num bytes for inclusion bitstring */ + dsNvl = rptClient->rpt_ctrl->dsNvl; + incSize = BSTR_NUMBITS_TO_NUMBYTES(dsNvl->num_of_entries); + /* Reset reasons, etc. to prepare for new report triggers. */ + memset (rptClient->reasons_data, 0, dsNvl->num_of_entries); + memset (rptClient->changed_flags, 0, incSize); + rptClient->numTrgs = 0; + } + +/************************************************************************/ +/* mvl61850_brcb_rpt_set_entryid */ +/************************************************************************/ +ST_RET mvl61850_brcb_rpt_set_entryid (MVLU_RPT_CLIENT *rptClient, ST_UCHAR *EntryID) + { +BUFLIST_ENTRY *entry; +BUFLIST_ENTRY *foundEntry = NULL; /* matching entry, assume NULL (not found)*/ +MVL61850_BRCB_CTRL *brcbCtrl; +ST_RET retcode = SD_FAILURE; /* assume failure */ +ST_UCHAR all_zero[8]={0,0,0,0,0,0,0,0}; + + /* Assume this is a BRCB. Should never get here otherwise. */ + assert (rptClient->rpt_ctrl->rcb_type == RCB_TYPE_IEC_BRCB); + brcbCtrl = &rptClient->rpt_ctrl->brcbCtrl; + + /* Is client writing all 0? */ + if (memcmp (all_zero, EntryID, 8) == 0) + { /* special case. Just resync to oldest rpt in buffer */ + brcbCtrl->rpt_list_next = brcbCtrl->rpt_list; /* oldest */ + return (SD_SUCCESS); /* this can never fail*/ + } + + /* Search "sent" list for this ID. */ + /* If "rpt_list_next != NULL" start search there. */ + /* If "rpt_list_next == NULL" start search at end of list. */ + if (brcbCtrl->rpt_list_next) + entry = brcbCtrl->rpt_list_next; + else + entry = (BUFLIST_ENTRY *) list_find_last ((DBL_LNK *) brcbCtrl->rpt_list); + for ( ; + entry != NULL; + entry = (BUFLIST_ENTRY *) list_find_prev ((DBL_LNK *) brcbCtrl->rpt_list, (DBL_LNK *) entry)) + { + + if (memcmp (entry->EntryID, EntryID, 8) == 0) + { + foundEntry = entry; + break; + } + } + /* If matching entry found, just point to next one. */ + if (foundEntry) + { + brcbCtrl->rpt_list_next = list_get_next (brcbCtrl->rpt_list, entry); + retcode = SD_SUCCESS; + } + else + { /* not found, point to "oldest" rpt */ + if((entry = brcbCtrl->rpt_list_next)) + printf("next_entry =%02x%02x%02x%02x%02x%02x%02x%02x\n\r",entry->EntryID[0],entry->EntryID[1],entry->EntryID[2], + entry->EntryID[3],entry->EntryID[4],entry->EntryID[5],entry->EntryID[6],entry->EntryID[7]); + if((entry = (BUFLIST_ENTRY *) list_find_last ((DBL_LNK *) brcbCtrl->rpt_list))) + printf("last_entry=%02x%02x%02x%02x%02x%02x%02x%02x\n\r",entry->EntryID[0],entry->EntryID[1],entry->EntryID[2], + entry->EntryID[3],entry->EntryID[4],entry->EntryID[5],entry->EntryID[6],entry->EntryID[7]); + printf("find_entry=%02x%02x%02x%02x%02x%02x%02x%02x\n\r",EntryID[0],EntryID[1],EntryID[2],EntryID[3], + EntryID[4],EntryID[5],EntryID[6],EntryID[7]); + + brcbCtrl->rpt_list_next = brcbCtrl->rpt_list; /* oldest */ + brcbCtrl->BufOvfl = SD_TRUE; /* overflow occurred */ + } + + return (retcode); + } + +/************************************************************************/ +/* fill_asn1_len_array */ +/* Compute the ASN.1 encoded len for each var in a rpt dataset, and */ +/* fill in "bufEntry->asn1_len_array". */ +/************************************************************************/ +static ST_RET fill_asn1_len_array ( + BUFLIST_ENTRY *bufEntry, + MVL_NVLIST_CTRL *dsNvl) /* rpt dataset */ + { +ST_UCHAR *tmp_asn1_buf; /* temporary ASN.1 buffer (allocated) */ +ST_INT tmp_asn1_buf_size = mvl_cfg_info->max_msg_size; /* reasonable size*/ +ST_INT j; +ST_RET retCode=SD_SUCCESS; /* assume success */ + + tmp_asn1_buf = chk_malloc (tmp_asn1_buf_size); + for (j = 0; j < dsNvl->num_of_entries; ++j) + { + if (bufEntry->var_data[j].reason_for_incl != 0) + { /* this var should be included in rpt */ + ST_UCHAR *asn1_ptr; + MVL_TYPE_CTRL *type_ctrl = dsNvl->entries[j]->type_ctrl; + + retCode = ms_local_to_asn1_2 (type_ctrl->rt, type_ctrl->num_rt, + bufEntry->var_data[j].data_ptr, /* CRITICAL: use data from buffer entry*/ + tmp_asn1_buf, + tmp_asn1_buf_size, + &asn1_ptr, /* function sets asn1_ptr (not needed here)*/ + &bufEntry->asn1_len_array[j]); /* function sets len at this ptr*/ + if (retCode) + { + /* Should NEVER fail, but if so, don't continue with other vars.*/ + break; + } + } + } /* end loop */ + chk_free (tmp_asn1_buf); + return (retCode); + } + +/************************************************************************/ +/* buflist_entry_create */ +/* Allocate and initialize BUFLIST_ENTRY and add it to list. */ +/* Also update brcbCtrl->cur_bufsize & brcbCtrl->rpt_count. */ +/************************************************************************/ +BUFLIST_ENTRY *buflist_entry_create (MVLU_RPT_CLIENT *rptClient) + { +BUFLIST_ENTRY *bufEntry; +MVL_NVLIST_CTRL *dsNvl = rptClient->rpt_ctrl->dsNvl; +ST_INT j; +int num; +MVL61850_BRCB_CTRL *brcbCtrl = &rptClient->rpt_ctrl->brcbCtrl; + + bufEntry = (BUFLIST_ENTRY *) chk_calloc (1, sizeof (BUFLIST_ENTRY)); + bufEntry->num_var = dsNvl->num_of_entries; + /* Use calloc so start out with all data_ptr=NULL & all reason_for_incl=0.*/ + bufEntry->var_data = (VAR_DATA *) chk_calloc (bufEntry->num_var, + sizeof (VAR_DATA)); + bufEntry->asn1_len_array = chk_calloc (dsNvl->num_of_entries, sizeof(ST_INT)); + + for (j = 0; j < bufEntry->num_var; j++) + { + /* Check "reason for inclusion". */ + if (rptClient->reasons_data[j] != 0) + { /* this var must be in the report */ + ST_INT data_len; + MVL_VAR_ASSOC *var_assoc = dsNvl->entries[j]; + MVL_TYPE_CTRL *type_ctrl = dsNvl->entries[j]->type_ctrl; + VAR_DATA *var_data = &bufEntry->var_data[j]; + + /* Find data_len */ + data_len = type_ctrl->data_size; + + brcbCtrl->cur_bufsize += data_len; /* update buffer size*/ + var_data->data_len = data_len; + var_data->data_ptr = chk_malloc (data_len); + memcpy (var_data->data_ptr, var_assoc->data, data_len); + /* Save "reason for inclusion". */ + var_data->reason_for_incl = rptClient->reasons_data[j]; + } + } + + /* Fill in other entry data. */ + /* Point to last 4 bytes of Ostring, cast to INT32 & increment.*/ +#ifdef WIN32 + num = ((int)rptClient->basrcb.EntryID[7]<<0 )+ + ((int)rptClient->basrcb.EntryID[6]<<8 )+ + ((int)rptClient->basrcb.EntryID[5]<<16)+ + ((int)rptClient->basrcb.EntryID[4]<<24); + num++; + rptClient->basrcb.EntryID[7] = (ST_UCHAR)(num>>0); + rptClient->basrcb.EntryID[6] = (ST_UCHAR)(num>>8); + rptClient->basrcb.EntryID[5] = (ST_UCHAR)(num>>16); + rptClient->basrcb.EntryID[4] = (ST_UCHAR)(num>>24); +#else + ++(*(ST_INT32 *)(&rptClient->basrcb.EntryID[4])); +#endif + /* Then copy to bufEntry. */ + memcpy (bufEntry->EntryID, rptClient->basrcb.EntryID, 8); + /* Call user function to get report time. */ + u_mvlu_rpt_time_get (&bufEntry->TimeOfEntry); + /* Copy report time to RCB. */ + memcpy (&rptClient->basrcb.TimeofEntry, &bufEntry->TimeOfEntry, sizeof (MMS_BTIME6)); + + /* Fill in "bufEntry->asn1_len_array", needed later by "chk_seg_needed". */ + if (fill_asn1_len_array (bufEntry, dsNvl)!=SD_SUCCESS) + { + /* NOTE: This should NEVER fail, but if it does, just log it. */ + /* Real encode will almost certainly fail later. */ + MVL_LOG_ERR0 ("Cannot calculate ASN.1 length for Buffered Report."); + } + + /* Add entry to list. */ + list_add_last (&brcbCtrl->rpt_list, bufEntry); + brcbCtrl->rpt_count++; /* Update list count */ + + /* If next ptr is NULL (all old rpts sent), point to this new entry.*/ + if (brcbCtrl->rpt_list_next == NULL) + brcbCtrl->rpt_list_next = bufEntry; + + return (bufEntry); + } + +/************************************************************************/ +/* buflist_entry_destroy */ +/* Remove BUFLIST_ENTRY from list and free it. */ +/* Also update brcbCtrl->cur_bufsize & brcbCtrl->rpt_count. */ +/************************************************************************/ +ST_VOID buflist_entry_destroy (MVL61850_BRCB_CTRL *brcbCtrl, BUFLIST_ENTRY *entry) + { +ST_INT j; + if (entry == brcbCtrl->rpt_list_next) + { + /* Deleting next rpt to send. */ + /* CRITICAL: must fix up next to send. */ + brcbCtrl->rpt_list_next = list_get_next (brcbCtrl->rpt_list, entry); + } + + list_unlink (&brcbCtrl->rpt_list, entry); /* remove rpt from list */ + brcbCtrl->rpt_count--; /* update list count */ + /* Free all in reverse order. */ + for (j = 0; j < entry->num_var; j++) + { + VAR_DATA *var_data = &entry->var_data[j]; + if (var_data->data_ptr) + { + chk_free (var_data->data_ptr); + brcbCtrl->cur_bufsize -= var_data->data_len; /* update buffer size*/ + } + } + chk_free (entry->asn1_len_array); + chk_free (entry->var_data); + chk_free (entry); + } + +/************************************************************************/ +/* buflist_discard_old_gi */ +/* Search for old GI report in buffer, and delete it. */ +/************************************************************************/ +ST_VOID buflist_discard_old_gi (MVL61850_BRCB_CTRL *brcbCtrl) + { +BUFLIST_ENTRY *entry; + for (entry = brcbCtrl->rpt_list; + entry != NULL; + entry = list_get_next (brcbCtrl->rpt_list, entry)) + { + /* For GI rpt, "reason_for_incl" for all vars is MVLU_TRGOPS_GI, */ + /* so just check reason for first var. */ + if (entry->var_data[0].reason_for_incl == MVLU_TRGOPS_GI) + { + /* Remove entry from list and free it. */ + buflist_entry_destroy (brcbCtrl, entry); + break; /* never more than one GI, so stop looping now */ + } + } + } + +/************************************************************************/ +/* buflist_discard_old */ +/* If memory usage exceeds buffer size, remove oldest reports from list */ +/* until memory usage is reduced. */ +/************************************************************************/ +ST_VOID buflist_discard_old (MVL61850_BRCB_CTRL *brcbCtrl) + { +BUFLIST_ENTRY *entry; + while (brcbCtrl->cur_bufsize > brcbCtrl->brcb_bufsize) + { + entry = brcbCtrl->rpt_list; /* find first on list */ + if (entry != NULL) + { + if (entry == brcbCtrl->rpt_list_next) + { + /* Deleting next rpt to send (i.e. rpts are being lost). */ + /* Set BufOvfl flag. */ + brcbCtrl->BufOvfl = SD_TRUE; + brcbCtrl->rpts_lost_count++; /* keep a count of lost reports */ + } + /* Remove entry from list and free it. */ + buflist_entry_destroy (brcbCtrl, entry); + } + else + { /* This error should never happen. Buffer is much too small.*/ + MVL_LOG_ERR0 ("Report buffer size too small to store any reports."); + } + } /* end loop */ + } + +/************************************************************************/ +/* mvl61850_brcb_rpt_lists_clean */ +/* Delete and destroy all entries on the buffered report linked list */ +/* for this BRCB. */ +/************************************************************************/ +ST_VOID mvl61850_brcb_rpt_lists_clean (MVL61850_BRCB_CTRL *brcbCtrl) + { +BUFLIST_ENTRY *entry; + /* Loop removing first entry from list. */ + while ((entry = brcbCtrl->rpt_list) != NULL) + buflist_entry_destroy (brcbCtrl, entry); /* removes it from list*/ + + assert (brcbCtrl->rpt_list_next == NULL); /* if list empty, this must be NULL*/ + + if (brcbCtrl->rpt_count != 0 || brcbCtrl->cur_bufsize != 0) + { + MVL_LOG_ERR2 ("ERROR removing buffered reports from list (count=%d, bufsize=%d). Possible memory leak.", + brcbCtrl->rpt_count, brcbCtrl->cur_bufsize); + brcbCtrl->rpt_count = 0; /* reset count */ + brcbCtrl->cur_bufsize = 0; /* reset buffer size */ + } + brcbCtrl->BufOvfl = SD_FALSE; /* Clear BufOvfl flag */ + brcbCtrl->rpt_list_next = NULL; /* CRITICAL: must not point to deleted entry*/ + } + +/************************************************************************/ +/* mvl61850_brcb_rpt_save */ +/* For BRCB, just buffer the raw data in a linked list to be encoded */ +/* and sent later (see mvl61850_brcb_rpt_send). */ +/************************************************************************/ +ST_RET mvl61850_brcb_rpt_save (MVLU_RPT_CLIENT *rptClient) + { + /* If this is GI rpt, discard previous GI rpt from buffer before */ + /* saving new one in buffer. */ + if (rptClient->reasons_data[0] == MVLU_TRGOPS_GI) + buflist_discard_old_gi (&rptClient->rpt_ctrl->brcbCtrl); + + buflist_entry_create (rptClient); /* add rpt to buffer */ + + /* If buffer is full, discard oldest reports until not full. */ + buflist_discard_old (&rptClient->rpt_ctrl->brcbCtrl); + mvl61850_rcb_cleanup (rptClient); /* prepare for next RPT. */ + return (SD_SUCCESS); + } + +/************************************************************************/ +/* mvl61850_brcb_rpt_send */ +/* Encode and send a Buffered Report (possibly in multiple segments). */ +/* NOTE: This is similar to mvl61850_urcb_rpt_send. The main difference */ +/* is that it gets most data from the BUFLIST_ENTRY struct. */ +/* NOTE: DOES NOT use rptClient->reasons_data, rptClient->changed_flags,*/ +/* rptClient->numTrgs. Use "reason_for_incl" from BUFLIST_ENTRY */ +/* to construct inclusion bitstring. */ +/************************************************************************/ +ST_RET mvl61850_brcb_rpt_send (MVLU_RPT_CTRL *rptCtrl, + MVLU_RPT_CLIENT *rptClient, + BUFLIST_ENTRY *bufEntry, + ST_BOOLEAN *all_seg_done) + { +MVL_NVLIST_CTRL *dsNvl; +MVL_NVLIST_CTRL *rptNvl; +MVL_VAR_ASSOC *va; +ST_INT j; /* loop counter */ +ST_RET retCode; +ST_INT sendIndex; +ST_INT sendIndexSave; /* save index before data, compare after data */ +ST_UINT8 *optFlds; +MVLU_BASRCB *basrcb; +ST_INT incSize; /* num bytes for inclusion bitstring */ +MVL_VAR_ASSOC *tmp_va_arr; /* alloc array of structs */ +ST_INT tmp_va_arr_size; /* num of entries in tmp_va_arr */ +MVL_VAR_ASSOC *tmp_va; /* current entry in tmp_va_arr */ +/* For Segmented reports, all segments are generated by this function, + * so these parameters can be local variables. + */ +ST_INT next_va_index; /* index into dsNvl va array */ +ST_BOOLEAN segNeeded; /* If TRUE, segmenting needed */ +ST_BOOLEAN MoreSegmentsFollow; +ST_CHAR *tmp_dataref_buf; +ST_CHAR tmpRptID [MVL61850_MAX_RPTID_LEN+1]; + + + retCode = SD_SUCCESS; /* assume success. Change if error detected.*/ + *all_seg_done = SD_FALSE; /* initialize flag */ + + basrcb = &rptClient->basrcb; + + optFlds = basrcb->OptFlds.data_1; + dsNvl = rptCtrl->dsNvl; + rptNvl = &rptCtrl->rptNvl; + + incSize = BSTR_NUMBITS_TO_NUMBYTES(dsNvl->num_of_entries); + + MVLU_LOG_FLOW1 ("Building IEC-61850 BRCB Report, MVL_NET_INFO %08lx", rptClient->netInfo); + + /* Need tmp va's for options, array of data_refs, array of dataset vars,*/ + /* array of reason_for_incl. */ + tmp_va_arr_size = MVLU_MAX_RPT_OPTS + (dsNvl->num_of_entries * 3); + tmp_va_arr = M_CALLOC (MSMEM_GEN, sizeof (MVL_VAR_ASSOC), tmp_va_arr_size); + + /* Need tmp buffer for datarefs. One buffer for all. */ + /* Allow max len plus NULL for each dataref. */ + tmp_dataref_buf = M_CALLOC (MSMEM_GEN, (MVL61850_MAX_OBJREF_LEN+1), dsNvl->num_of_entries); + + assert (rptCtrl->dsNvl->num_of_entries); /* must be >0 entries */ + + /* MAIN LOOP */ + /* Start with "bufEntry->cur_va_index" and "bufEntry->SubSeqNum".*/ + /* Usually they are both 0, but if segmenting occurs and buffers were */ + /* not available to send all segments, they indicate what is next. */ + for (next_va_index = bufEntry->cur_va_index; + next_va_index < rptCtrl->dsNvl->num_of_entries; + bufEntry->cur_va_index = next_va_index, bufEntry->SubSeqNum++) + { /* BEGIN MAIN LOOP */ + if (retCode) + break; /* something failed in this loop or earlier loop, so stop now.*/ + + /* If buffers not available, break out of loop. */ + /* Use cur_va_index, SubSeqNum in bufEntry as starting point */ + /* next time this function is called. */ + if (mvl_ureq_bufs_avail (rptClient->netInfo) <= 0) /* stack bufs avail to send rpt */ + break; + + tmp_va = tmp_va_arr; /* start loop pointing to first entry */ + sendIndex = 0; /* start with first rptNvl->entries. */ + + /* Prepare a Report NVL to be sent, based on the */ + /* options, data, and inclusion bitstring in the rptCtrl. */ + + /* CRITICAL: asn1_len_array must be filled in before call to chk_seg_needed.*/ + segNeeded = chk_seg_needed (rptClient, bufEntry->asn1_len_array, bufEntry->cur_va_index, &next_va_index); + + if (next_va_index - bufEntry->cur_va_index == 0) + { + MVL_LOG_ERR0 ("MMS PDU size too small to fit ANY variables in IEC-61850 Report. Report not sent."); + retCode = SD_FAILURE; + break; /* break out of loop so normal cleanup occurs. */ + } + + /* We will create a NVL to send, using the dsNvl as a model ... */ + + /* RptID and OptFlds are always the first 2 entries in the Rpt NVL. */ + + /* Get RptID from RCB (OK because changing it causes PurgeBuf). */ + tmp_va->type_id = rptCtrl->rpt_typeids.vstring65; + if (basrcb->RptID [0] == '\0') + { /* RptID not set in RCB, so construct it. */ + mvl61850_mk_rptid (rptCtrl, tmpRptID, MVL61850_MAX_RPTID_LEN); + tmp_va->data = tmpRptID; + } + else + tmp_va->data = basrcb->RptID; + MVLU_LOG_CFLOW1 (" RptID='%s", tmp_va->data); /* log before tmp_va++*/ + rptNvl->entries[sendIndex++] = tmp_va++; /* set entry & point to next*/ + + /* Get OptFlds from RCB (OK because changing it causes PurgeBuf). */ + tmp_va->type_id = rptCtrl->rpt_typeids.bvstring10; + tmp_va->data = &basrcb->OptFlds; + rptNvl->entries[sendIndex++] = tmp_va++; /* set entry & point to next*/ + MVLU_LOG_CFLOW2 (" OptFld = 0x%02x 0x%02x", basrcb->OptFlds.data_1[0], + basrcb->OptFlds.data_1[1]); /* 10 bit bstr (2 bytes) */ + + /* Add optional RCB vars to NVL, depending on OptFlds. */ + + /* Get SqNum from RCB. */ + if (BSTR_BIT_GET(optFlds, OPTFLD_BITNUM_SQNUM)) + { + assert (rptCtrl->rcb_type == RCB_TYPE_IEC_BRCB); + /* SqNum in BRCB is INT16U */ + tmp_va->type_id = rptCtrl->rpt_typeids.int16u; + tmp_va->data = &basrcb->SqNumInt16u; + rptNvl->entries[sendIndex++] = tmp_va++; /* set entry & point to next*/ + MVLU_LOG_CFLOW1 (" SqNum : %u", (unsigned) basrcb->SqNumInt16u); + } + + /* Get TimeofEntry from BUFLIST_ENTRY. */ + if (BSTR_BIT_GET(optFlds, OPTFLD_BITNUM_TIMESTAMP)) + { + MVLU_LOG_CFLOW2 (" RptTim : %lums, %lu days", + bufEntry->TimeOfEntry.ms, bufEntry->TimeOfEntry.day); + + tmp_va->type_id = rptCtrl->rpt_typeids.btime6; + tmp_va->data = &bufEntry->TimeOfEntry; /* use time saved in buffer*/ + rptNvl->entries[sendIndex++] = tmp_va++; /* set entry & point to next*/ + } + + /* Get DatSet from RCB (OK because changing it causes PurgeBuf). */ + if (BSTR_BIT_GET(optFlds, OPTFLD_BITNUM_DATSETNAME)) + { + /* UCA called it OutDat instead of DatSet. Value is same. */ + MVLU_LOG_CFLOW1 (" DatSet : %s", basrcb->DatSetNa); + tmp_va->type_id = rptCtrl->rpt_typeids.vstring129; /*ObjectReference*/ + tmp_va->data = basrcb->DatSetNa; + rptNvl->entries[sendIndex++] = tmp_va++; /* set entry & point to next*/ + } + + /* Get BufOvfl. */ + if (BSTR_BIT_GET(optFlds, OPTFLD_BITNUM_BUFOVFL)) + { + tmp_va->type_id = rptCtrl->rpt_typeids.mmsbool; + tmp_va->data = &rptCtrl->brcbCtrl.BufOvfl; + rptNvl->entries[sendIndex++] = tmp_va++; /* set entry & point to next*/ + } + + /* Get EntryID from BUFLIST_ENTRY. */ + if (BSTR_BIT_GET(optFlds, OPTFLD_BITNUM_ENTRYID)) + { + /* NOTE: EntryID only incremented when RPT buffered. */ + /* Copied to bufEntry->EntryID after incrementing. */ + tmp_va->type_id = rptCtrl->rpt_typeids.ostring8; + tmp_va->data = bufEntry->EntryID; + rptNvl->entries[sendIndex++] = tmp_va++; /* set entry & point to next*/ + } + + /* Add "ConfRev" if enabled by "OptFlds". */ + if (BSTR_BIT_GET(optFlds, OPTFLD_BITNUM_CONFREV)) + { + tmp_va->type_id = rptCtrl->rpt_typeids.int32u; + tmp_va->data = &basrcb->ConfRev; + rptNvl->entries[sendIndex++] = tmp_va++; /* set entry & point to next*/ + } + + if(segNeeded) + printf("brcb:segNeeded=%d num=%d va_index = %d->%d\r\n", + segNeeded,rptCtrl->dsNvl->num_of_entries,bufEntry->cur_va_index, next_va_index); + + if (segNeeded) + { + /* Set appropriate bit in OptFlds. */ + /* NOTE: this bit only for output. Never used as input. */ + BSTR_BIT_SET_ON (optFlds,OPTFLD_BITNUM_SUBSEQNUM); + + tmp_va->type_id = rptCtrl->rpt_typeids.int16u; + tmp_va->data = &bufEntry->SubSeqNum; + rptNvl->entries[sendIndex++] = tmp_va++; /* set entry & point to next*/ + + if (next_va_index < rptCtrl->dsNvl->num_of_entries) + MoreSegmentsFollow = SD_TRUE; + else + MoreSegmentsFollow = SD_FALSE; + + tmp_va->type_id = rptCtrl->rpt_typeids.mmsbool; + tmp_va->data = &MoreSegmentsFollow; + rptNvl->entries[sendIndex++] = tmp_va++; /* set entry & point to next*/ + } + else + { + BSTR_BIT_SET_OFF (optFlds,OPTFLD_BITNUM_SUBSEQNUM); + } + + /* Construct inclusion bitstring using "reason_for_incl" in BUFLIST_ENTRY. */ + tmp_va->type_id = rptCtrl->inclusion_typeid; + /* just set the bits included in this segment. */ + memset (rptClient->segmented_inclusion, 0, incSize); /* start clean */ + for (j = bufEntry->cur_va_index; j < next_va_index; ++j) + { + if (bufEntry->var_data[j].reason_for_incl) + BSTR_BIT_SET_ON (rptClient->segmented_inclusion, j); + } + tmp_va->data = rptClient->segmented_inclusion; + rptNvl->entries[sendIndex++] = tmp_va++; /* set entry & point to next*/ + + /* If data-Ref enabled, go through inclusion_data to decide what to send*/ + if (BSTR_BIT_GET(optFlds, OPTFLD_BITNUM_DATAREF)) + { + for (j = bufEntry->cur_va_index; j < next_va_index; ++j) + { + if (bufEntry->var_data[j].reason_for_incl) + { /* include dataRef for this variable */ + tmp_va->type_id = rptCtrl->rpt_typeids.vstring129; /*ObjectReference*/ + /* point to right part of tmp buffer & construct dataref */ + tmp_va->data = &tmp_dataref_buf [j * (MVL61850_MAX_OBJREF_LEN+1)]; + mvl61850_mk_dataref (dsNvl->entries[j], &dsNvl->va_scope[j], + tmp_va->data, MVL61850_MAX_OBJREF_LEN); + rptNvl->entries[sendIndex++] = tmp_va++; /* set entry & point to next*/ + } + } + } + + /* HERE'S DATA: Go through inclusion_data to decide what to send */ + sendIndexSave = sendIndex; /* save index before data included */ + for (j = bufEntry->cur_va_index; j < next_va_index; ++j) + { + if (bufEntry->var_data[j].reason_for_incl) + { /* include this variable */ + va = dsNvl->entries[j]; + tmp_va->data = bufEntry->var_data[j].data_ptr; /* buffered data*/ + tmp_va->type_id = va->type_id; + MVLU_LOG_CFLOW3 (" Including variable %d ('%s'), reason_for_incl=0x%02X", + j, va->name, bufEntry->var_data[j].reason_for_incl); + rptNvl->entries[sendIndex++] = tmp_va++; + } + } + assert (sendIndex>sendIndexSave); /* make sure SOME data included */ + + /* If "reason" enabled, go through inclusion_data to decide what to send*/ + if (BSTR_BIT_GET(optFlds, OPTFLD_BITNUM_REASON)) + { + for (j = bufEntry->cur_va_index; j < next_va_index; ++j) + { + if (bufEntry->var_data[j].reason_for_incl) + { /* include reason for this variable */ + /* Don't need BVSTR here, because size is fixed. */ + tmp_va->type_id = rptCtrl->rpt_typeids.bstr6; + tmp_va->data = &bufEntry->var_data[j].reason_for_incl; + rptNvl->entries[sendIndex++] = tmp_va++; /* set entry & point to next*/ + } + } + } + rptNvl->num_of_entries = sendIndex; + assert (rptNvl->num_of_entries <= rptCtrl->maxNumRptVars); /* past end of array?*/ + assert ((tmp_va-tmp_va_arr) <= tmp_va_arr_size); /* past end of array?*/ + + /* Encode the InformationReport and send it. */ + retCode = mvl_info_variables (rptClient->netInfo, + rptNvl, + SD_FALSE); /* FALSE means "send as NVL" */ + } /* END MAIN LOOP */ + + /* Did we send all segments of this report? */ + if (retCode == SD_SUCCESS && bufEntry->cur_va_index == rptCtrl->dsNvl->num_of_entries) + { + *all_seg_done = SD_TRUE; /* YES: Set flag */ + /* CRITICAL: Reset these to be ready for retransmit later. */ + bufEntry->cur_va_index = 0; + bufEntry->SubSeqNum = 0; + } + + M_FREE (MSMEM_GEN, tmp_va_arr); + M_FREE (MSMEM_GEN, tmp_dataref_buf); + return (retCode); + } + +/************************************************************************/ +/* mvl61850_brcb_enable_all */ +/* Start buffering all buffered reports. */ +/************************************************************************/ +ST_VOID mvl61850_brcb_enable_all () + { +MVLU_RPT_CTRL *rptCtrl; + + for (rptCtrl = mvl61850_rpt_ctrl_list; + rptCtrl != NULL; + rptCtrl = (MVLU_RPT_CTRL *) list_get_next (mvl61850_rpt_ctrl_list, rptCtrl)) + { + if (rptCtrl->rcb_type == RCB_TYPE_IEC_BRCB) + rptCtrl->brcbCtrl.enabled_once = SD_TRUE; + } + } + +/************************************************************************/ +/* mvl61850_brcb_entryid_init */ +/* Set initial value of EntryID for this BRCB. EntryID must point to */ +/* an 8 byte octet string. */ +/************************************************************************/ +ST_VOID mvl61850_brcb_entryid_init (MVLU_RPT_CTRL *rptCtrl, ST_UINT8 *EntryID) + { + memcpy (rptCtrl->only_client.basrcb.EntryID, EntryID, 8); + } + +/************************************************************************/ +/* mvl61850_rpt_change_scan_va_done */ +/* Used by code that scans for dchg, qchg, dupd changes. */ +/* This function is called by 'mvlu_rd_prim_done' when all "leaf" */ +/* functions for a VA have been completed (i.e. data ready for this VA).*/ +/************************************************************************/ +void mvlu_log_va_change (MVL_VAR_ASSOC *va, ST_UCHAR reason, ST_VOID *new_data); +ST_VOID mvl61850_rpt_change_scan_va_done (MVL_IND_PEND *indCtrl, + MVL_VAR_ASSOC *va) + { + /* If "rpt_reason" set by ANY leaf function, call mvlu_rpt_va_change. */ + if (va->rpt_reason) + { + mvlu_rpt_va_change (va, va->rpt_reason, NULL); + /*renxiaobao ÈÕÖ¾ + //mvlu_log_va_change (va, va->rpt_reason, NULL);*/ + } + } + +/************************************************************************/ +/* mvl61850_rpt_change_scan_done */ +/* Used by code that scans for dchg, qchg, dupd changes. */ +/* This function is called when the scan is complete. */ +/* (i.e. 'mvlu_rd_prim_done' has been called for all "leafs" of all */ +/* variables in the report). Everything is ready to build a report, */ +/* so build it now. */ +/* CRITICAL: when all done, this function must free the temporary */ +/* MVL_IND_PEND struct by calling "mvlu_integrity_scan_destroy". */ +/************************************************************************/ +ST_RET mvl61850_rpt_change_scan_done (MVL_IND_PEND *indCtrl) + { +ST_RET retCode = SD_SUCCESS; /* nothing to fail here */ + + /* NOTE: not much to do here. DO NOT send reports. */ + /* mvlu_rpt_service chks numTrgs & BufTim & sends when needed. */ + + /* CRITICAL: free the temporary MVL_IND_PEND struct. */ + mvlu_integrity_scan_destroy (indCtrl); + return (retCode); + } + +/************************************************************************/ +/* mvl61850_rpt_change_scan */ +/* Scan all IEC 61850 Report Datasets for dchg, qchg, dupd. */ +/************************************************************************/ +/*renxiaobao ±¨¸æ*/ +ST_VOID mvl61850_rpt_change_scan (char *dom,char CHG) +/*ST_VOID mvl61850_rpt_change_scan (ST_VOID)*/ + { +MVLU_RPT_CTRL *rptCtrl; +MVL_NVLIST_CTRL *dsNvl; +ST_INT j; +ST_DOUBLE timeNow; +short rpt_num=0; + + /* Reset "already_scanned=SD_FALSE" for each NVL. */ + /* Reset it for every NVL, even if not enabled (faster). */ + for(rptCtrl = mvl61850_rpt_ctrl_list; + rptCtrl!= NULL; + rptCtrl = (MVLU_RPT_CTRL *) list_get_next (mvl61850_rpt_ctrl_list, rptCtrl)) + { + if(dom&&strcmp(rptCtrl->dsNvl->va_scope->dom->name,dom)) continue; + dsNvl = rptCtrl->dsNvl; + if (dsNvl) /* dsNvl might be NULL */ + { + dsNvl->already_scanned = SD_FALSE; + } + rpt_num++; + } + if(!rpt_num) return; + timeNow = sGetMsTime (); /* get time just once. Use it in loop. */ + /* Loop through all Report NVLs to scan for data changes. */ + /* Set already_scanned=SD_TRUE for each NVL. If same NVL used in another */ + /* Report, do NOT rescan it. */ + for(rptCtrl = mvl61850_rpt_ctrl_list; + rptCtrl!= NULL; + rptCtrl = (MVLU_RPT_CTRL *) list_get_next (mvl61850_rpt_ctrl_list, rptCtrl)) + { + if(dom&&strcmp(rptCtrl->dsNvl->va_scope->dom->name,dom)) continue; + /* If scan_rate > 0, check timer. If not, go ahead and scan now. */ + /* NOTE: if scan_rate is too small, there may be extra delay between scans.*/ + if(CHG) + { + if (timeNow >= rptCtrl->next_scan_start) + rptCtrl->next_scan_start = timeNow + rptCtrl->scan_rate; + } + else if (rptCtrl->scan_rate > 0) + { /* check timer to see if it's time to scan */ + if (timeNow < rptCtrl->next_scan_start) + continue; /* DO NOT scan now. Skip to next rptCtrl */ + else + rptCtrl->next_scan_start = timeNow + rptCtrl->scan_rate; + } + dsNvl = rptCtrl->dsNvl; + if (dsNvl!=NULL && dsNvl->already_scanned==SD_FALSE) /* dsNvl might be NULL*/ + { /* This NVL not yet scanned. */ + /* If URCB enabled or BRCB enabled ONCE, start scan.*/ + if( rptCtrl->only_client.basrcb.RptEna||(rptCtrl->rcb_type == RCB_TYPE_IEC_BRCB&& + rptCtrl->brcbCtrl.enabled_once)) + { + /* Initialize "rpt_reason=0" for all variables. May be changed */ + /* in leaf functions. Checked in mvl61850_rpt_change_scan_va_done. */ + for (j = 0; j < dsNvl->num_of_entries; j++) + dsNvl->entries[j]->rpt_reason = 0; + + /* This is NOT an Integrity scan, but mvlu_integrity_scan_read */ + /* does what we need if the right callback functions passed to it. */ + /* Scan for dchg, qchg, dupd. */ + /* This function "begins" the scan. When the scan is */ + /* complete, "mvl61850_rpt_change_scan_done" is called to build the */ + /* the report. If ALL "leaf" functions are synchronous, */ + /* "mvl61850_rpt_change_scan_done" is called BEFORE this function returns.*/ + /* CRITICAL: this function allocates a temporary MVL_IND_PEND */ + /* which must be freed by mvl61850_rpt_change_scan_done. */ + mvlu_integrity_scan_read (&rptCtrl->only_client, + mvl61850_rpt_change_scan_va_done, + mvl61850_rpt_change_scan_done); + dsNvl->already_scanned = SD_TRUE; /* this NVL scanned. Don't scan again for another RCB*/ + } + } + } + } +/************************************************************************/ +/* mvl61850_get_rcb */ +/* Find IEC 61850 RCB (URCB or BRCB). */ +/* NOTE: Caller can access MVLU_RPT_CTRL, if needed, by using "rpt_ctrl"*/ +/* member of MVLU_RPT_CLIENT. */ +/************************************************************************/ +MVLU_BASRCB *mvl61850_get_rcb (MVL_VAR_ASSOC *baseVa, + RUNTIME_TYPE *rt, + MVLU_RPT_CLIENT **rptClientOut) + { +MVLU_RPT_CTRL *rptCtrl; +MVLU_BASRCB *rcb = NULL; /* ptr to be returned */ + + /* Find the associated Report Control, using this RT as a key */ + for (rptCtrl = mvl61850_rpt_ctrl_list; + rptCtrl != NULL; + rptCtrl = (MVLU_RPT_CTRL *) list_get_next (mvl61850_rpt_ctrl_list, rptCtrl)) + { + if (rptCtrl->base_va == baseVa && + (rt > rptCtrl->rcbRtHead) && + (rt <= rptCtrl->rcbRtHead + rptCtrl->rcbRtHead->u.str.num_rt_blks)) + { + if (rptCtrl->rcb_type != RCB_TYPE_UCA) + { + rcb = &rptCtrl->only_client.basrcb; + if (rptClientOut != NULL) /* set optional ptr */ + *rptClientOut = &rptCtrl->only_client; /* always EXACTLY one client*/ + } + break; /* rptCtrl is set. Just need to return it. */ + } + } + /* rcb will be NULL if rptCtrl NOT found or NOT 61850 */ + return (rcb); + } + +/************************************************************************/ +/* mvl61850_rpt_dataset_create */ +/* Create IEC 61850 Report Control Block resources for a dataset. */ +/* Assumes EXACTLY one client per rptCtrl (see rptCtrl->only_client). */ +/************************************************************************/ +ST_RET mvl61850_rpt_dataset_create (MVLU_RPT_CTRL *rptCtrl, + MVL_NVLIST_CTRL *dsNvl) + { +RUNTIME_TYPE *incRt; +ST_RET rc; +ST_INT numDsVars; +ST_INT changed_flags_size; +ST_INT allocSize; + + if (rptCtrl->dsNvl) + { /* dsNvl already set. Must call mvl61850_rpt_dataset_destroy first*/ + MVL_LOG_ERR0 ("Report Dataset already exists. Must destroy it before creating new one."); + return (SD_FAILURE); + } + + if (dsNvl == NULL) + return (SD_SUCCESS); /* this is allowed, but no need to do anything*/ + + numDsVars = dsNvl->num_of_entries; + + /* NOTE: RptID (in MVLU_BASRCB struct) might be empty (0 length string).*/ + /* If so, a string will be constructed each time a report is built */ + /* (see "mvlu_mk_rptid" function). */ + +/* Alloc the entries table; allow for RptID, OptFlds, SqNum, RptTim, */ +/* DatSet, BufOvfl, EntryID, ConfRev, */ +/* SubSeqNum, MoreSegmentsFollow, & InclusionBitstring plus ARRAYS of */ +/* dataRefs, values, and Reasons. */ +/* "assert" later if "maxNumRptVars" exceeded. */ +/* Allow (3 * numDsVars) to handle arrays of dataRef, value, and reason.*/ + rptCtrl->maxNumRptVars = MVLU_MAX_RPT_OPTS + (3 * numDsVars); + + rptCtrl->rptNvl.entries = (MVL_VAR_ASSOC **) M_CALLOC (MSMEM_GEN, rptCtrl->maxNumRptVars, + sizeof (MVL_VAR_ASSOC *)); + + /* NOTE: The "rptNvl->entries" array is not filled in and + * and "rptNvl->num_of_entries" is not set + * until a Report is being built. + */ + + /* We need to create a Runtime Type for the inclusion bitstring */ + incRt = &rptCtrl->incRt; + incRt->el_tag = RT_BIT_STRING; + incRt->el_size = BSTR_NUMBITS_TO_NUMBYTES(numDsVars); + incRt->offset_to_last = incRt->el_size; + /*renxiaobao 5.3°æ±¾ÐÞ¸Ä*/ + /*incRt->u.p.el_len = (ST_RTINT) numDsVars;*/ + incRt->u.p.el_len = numDsVars; + rc = mvlu_add_rt_type (&rptCtrl->incRt, 1, &rptCtrl->inclusion_typeid); + if (rc != SD_SUCCESS) + { + MVL_LOG_NERR0 ("Error - could not add temp RT type"); + return (SD_FAILURE); + } + +/* That's all we can do ahead of time for the RPT variable associations */ + +/* Set a bit of the data for the BASRCB */ + if (dsNvl->nvl_scope.scope == AA_SPEC) + sprintf (rptCtrl->only_client.basrcb.DatSetNa, "@%s", dsNvl->name); + else if (dsNvl->nvl_scope.scope == VMD_SPEC) + sprintf (rptCtrl->only_client.basrcb.DatSetNa, "/%s", dsNvl->name); + else + sprintf (rptCtrl->only_client.basrcb.DatSetNa, "%s/%s", + dsNvl->nvl_scope.dom->name, dsNvl->name); + + /* Alloc one buf for reasons_data, changed_flags, segmented_inclusion.*/ + /* Free this buf in mvl61850_rpt_dataset_destroy. */ + changed_flags_size = BSTR_NUMBITS_TO_NUMBYTES(numDsVars); + allocSize = (numDsVars * sizeof (ST_UINT8)) + /* reasons_data */ + (2 * changed_flags_size); /* changed_flags & segmented_inclusion*/ + rptCtrl->only_client.reasons_data = chk_calloc (1, allocSize); + rptCtrl->only_client.changed_flags = rptCtrl->only_client.reasons_data + numDsVars; + rptCtrl->only_client.segmented_inclusion = rptCtrl->only_client.changed_flags + changed_flags_size; + + rptCtrl->dsNvl = dsNvl; /* now save new dataset */ + + return (SD_SUCCESS); + } + +/************************************************************************/ +/* mvl61850_rpt_dataset_destroy */ +/* Destroy resources created by mvl61850_rpt_dataset_create. */ +/************************************************************************/ +ST_VOID mvl61850_rpt_dataset_destroy (MVLU_RPT_CTRL *rptCtrl) + { + if (rptCtrl->dsNvl != NULL) + { /* if dsNvl is already NULL, do nothing */ + chk_free (rptCtrl->only_client.reasons_data); + rptCtrl->only_client.basrcb.DatSetNa[0] = '\0'; /* clear DatSet */ + + rptCtrl->maxNumRptVars = 0; + + M_FREE (MSMEM_GEN, rptCtrl->rptNvl.entries); + + /* Free the Runtime Type for the inclusion bitstring */ + mvlu_free_rt_type (rptCtrl->inclusion_typeid); + rptCtrl->dsNvl = NULL; + } + return; + } + +/************************************************************************/ +/* mvl61850_create_rpt_ctrl */ +/* Create IEC 61850 Report Control Block. */ +/* Similar to UCA function "mvlu_create_rpt_ctrl", but just for 61850. */ +/* Only one client per RCB (see "only_client" param). */ +/* The "dsNvl" arg may be NULL. If so, the RCB may not be enabled until */ +/* it is set. */ +/* NOTE: Does not support UCA Reports (see assert checking "rcb_type"). */ +/************************************************************************/ +MVLU_RPT_CTRL *mvl61850_create_rpt_ctrl (ST_CHAR *basrcbName, + MVL_NVLIST_CTRL *dsNvl, /* may be NULL */ + MVL_VAR_ASSOC *base_va, + ST_INT rcb_type, + ST_INT buftim_action, /* MVLU_RPT_BUFTIM_* */ + ST_INT brcb_bufsize, /* for BRCB only */ + ST_UINT32 ConfRev) /* for BRCB/URCB only */ + + { +MVLU_RPT_CTRL *rptCtrl; +ST_INT rptCtrlSize; +ST_INT numRt; +ST_RET status; /* SD_SUCCESS if everything worked */ + + assert (rcb_type != RCB_TYPE_UCA); /* DO NOT use this funct for UCA rpts*/ + + /* If any rpt_ctrl created, disconnect function ptr must be set. */ + _mvlu_rpt_disconnect_rcvd_fun = _mvlu_rpt_disconnect_rcvd; + + /* Allocate MVLU_RPT_CTRL struct. Allow extra space after struct to */ + /* store basrcbName. */ + rptCtrlSize = sizeof (MVLU_RPT_CTRL) + strlen (basrcbName) + 1; + rptCtrl = (MVLU_RPT_CTRL *) M_CALLOC (MSMEM_GEN, 1, rptCtrlSize); + + rptCtrl->basrcb_name = (ST_CHAR *) (rptCtrl + 1); /*point after struct*/ + strcpy (rptCtrl->basrcb_name, basrcbName); + + /* Initialize structure members. */ + rptCtrl->base_va = base_va; + rptCtrl->rcb_type = rcb_type; + rptCtrl->buftim_action = buftim_action; + + rptCtrl->brcbCtrl.brcb_bufsize = brcb_bufsize; /* ONLY for IEC BRCB*/ + + rptCtrl->rptNvl.name = "RPT"; /* Report NVL name ALWAYS = "RPT"*/ + + rptCtrl->only_client.basrcb.ConfRev = ConfRev; + rptCtrl->only_client.basrcb.OptFlds.len_1 = 10; /* bitstring len*/ + rptCtrl->only_client.basrcb.TrgOps.len = 6; /* bitstring len*/ + + rptCtrl->only_client.rpt_ctrl = rptCtrl; /* client struct needs ptr back to rptCtrl*/ + + /* For BRCB, set the initial "EntryID" value. */ + /* Put current time in first 4 bytes, 0 in last 4 bytes. */ + if (rcb_type == RCB_TYPE_IEC_BRCB) + { + ST_INT32 tmp[2]; + tmp [0] = (ST_INT32) time (NULL); + /*renxiaobao ±¨¸æ*/ + tmp [0] = 0; + tmp [1] = 0; + mvl61850_brcb_entryid_init (rptCtrl, (ST_UINT8 *) tmp); + } + + /* The following initializations could fail, so we set & check "status".*/ + + /* Find the runtime type of the RCB and save it in rptCtrl->rcbRtHead.*/ + /* Used by leaf functions to find the correct rptCtrl. */ + /* If successful, this function sets "rptCtrl->rcbRtHead" & "numRt". */ + status = mvlu_rpt_rcb_type_find (base_va->type_id, basrcbName, &rptCtrl->rcbRtHead, &numRt); + + if (status == SD_SUCCESS) + { + if (mvlu_rpt_find_typeids (&rptCtrl->rpt_typeids)) + { + MVL_LOG_ERR0 ("Cannot find Report Control Block types"); + status = SD_FAILURE; + } + } + + /* mvl61850_rpt_dataset_create initializes everything related to dsNvl. */ + if (status == SD_SUCCESS) + status = mvl61850_rpt_dataset_create (rptCtrl, dsNvl); + + if (status == SD_SUCCESS) + { +#if 1 /* IEC 61850-7-2 Ed2 says to start buffering on power-up if */ + /* DatSet attribute references an existing DataSet. */ + if (dsNvl != NULL && rptCtrl->rcb_type == RCB_TYPE_IEC_BRCB) + rptCtrl->brcbCtrl.enabled_once = SD_TRUE; /* starts buffering */ +#endif + list_add_last((ST_VOID **) &mvl61850_rpt_ctrl_list, (ST_VOID *) rptCtrl); + } + else + { + M_FREE (MSMEM_GEN, rptCtrl); /* clean up */ + rptCtrl = NULL; /* set error return value */ + } + return (rptCtrl); + } + +/************************************************************************/ +/* mvl61850_free_rpt_ctrl */ +/* Free a MVLU_RPT_CTRL allocated by 'mvl61850_create_rpt_ctrl'. */ +/************************************************************************/ + +ST_VOID mvl61850_free_rpt_ctrl (MVLU_RPT_CTRL *rptCtrl) + { + assert (rptCtrl->rcb_type != RCB_TYPE_UCA); + +/* Take it off the report control list */ + list_unlink ((ST_VOID **) &mvl61850_rpt_ctrl_list, (ST_VOID *) rptCtrl); + + mvl61850_rpt_dataset_destroy (rptCtrl); + +/* BRCB may contain large lists of reports sent or queued. */ + if (rptCtrl->rcb_type == RCB_TYPE_IEC_BRCB) + mvl61850_brcb_rpt_lists_clean (&rptCtrl->brcbCtrl); + + M_FREE (MSMEM_GEN, rptCtrl); + } + +/************************************************************************/ +/* mvl61850_brcb_client_service */ +/* Check the BRCB state and perform appropriate actions. */ +/************************************************************************/ +ST_VOID mvl61850_brcb_client_service (MVLU_RPT_CTRL *rptCtrl, + MVLU_RPT_CLIENT *rptClient, + ST_DOUBLE timeNow) + { +BUFLIST_ENTRY *entry; +ST_BOOLEAN all_seg_done; /* SD_TRUE if done sending all segments */ +ST_RET retCode; + + /* Check BRBC state and, if necessary, encode AND queue up report. */ + mvl61850_rcb_chk_state (rptCtrl, rptClient, timeNow); + + /* Now, examine BRCB state and send report if necessary. + * If connected, reports are enabled, reports are queued, AND stack buffers + * are available, send a report. + */ + if (rptClient->netInfo && /* connected */ + rptClient->basrcb.RptEna && /* rpts enabled */ + rptCtrl->brcbCtrl.rpt_list_next) /* rpts queued & not all sent*/ + { + if (mvl_ureq_bufs_avail (rptClient->netInfo) > 0) /* stack bufs avail to send rpt */ + { + /* Encode and send next buffered report. */ + entry = rptCtrl->brcbCtrl.rpt_list_next; /* this is next one to send*/ + retCode = mvl61850_brcb_rpt_send (rptCtrl, rptClient, entry, &all_seg_done); + if (retCode != SD_SUCCESS) + MVL_LOG_ERR1 ("Sending IEC-61850 Buffered Report failed: err=0x%X", retCode); + + /* If error OR done sending all segments of this rpt, */ + /* point to next rpt on list (NULL if all sent) & update SqNum */ + if (retCode != SD_SUCCESS || + all_seg_done) /* done sending all segments of this report. */ + { /* point to next rpt on the list (NULL if all sent) */ + rptCtrl->brcbCtrl.rpt_list_next = list_get_next (rptCtrl->brcbCtrl.rpt_list, entry); + memcpy (rptCtrl->brcbCtrl.lastSentEntryID, entry->EntryID, 8); /* save last sent EntryID*/ + memcpy (&rptCtrl->brcbCtrl.lastSentTimeOfEntry, &entry->TimeOfEntry, sizeof (MMS_BTIME6)); + print_queues (&rptCtrl->brcbCtrl); /* just for debug */ + /* Increment seq number for next rpt. */ + rptClient->basrcb.SqNumInt16u++; /* used only for BRCB */ + /* Only one report should be sent with BufOvfl TRUE; clear it now.*/ + rptCtrl->brcbCtrl.BufOvfl = SD_FALSE; + } + } + else + print_msg0 ("STACK BUFFERS NOT AVAILABLE TO SEND REPORT\n"); + } + return; + } + +/************************************************************************/ +/* mvl61850_urcb_client_service */ +/* Check the URCB state and perform appropriate actions. */ +/************************************************************************/ +int urcb_netInfo_pri=0; +ST_VOID mvl61850_urcb_client_service (MVLU_RPT_CTRL *rptCtrl, + MVLU_RPT_CLIENT *rptClient, + ST_DOUBLE timeNow) + { + /* Must be connected to send Unbuffered reports. */ + if (rptClient->netInfo!=NULL) + { + /* if(urcb_netInfo_pri) + printf("rptClient->netInfo=%d\r\n ",rptClient->netInfo);*/ + /* If no buffers are available to send unbuffered reports, don't waste time + * checking timers, scanning, etc. + */ + if (mvl_ureq_bufs_avail (rptClient->netInfo) <= 0) /* stack bufs avail to send rpt */ + print_msg0 ("STACK BUFFERS NOT AVAILABLE TO SEND REPORT\n"); + else + /* Check URBC state and, if necessary, encode AND send report. */ + mvl61850_rcb_chk_state (rptCtrl, rptClient, timeNow); + } + return; + } + +/************************************************************************/ +/* mvl61850_rpt_service */ +/* Perform servicing for all IEC 61850 Report Control Blocks. */ +/* Scanning for changes (dchg, qchg, etc) is automatic */ +/* (see mvl61850_rpt_change_scan). */ +/************************************************************************/ + +ST_VOID mvl61850_rpt_service (char *dom,char CHG) + { +MVLU_RPT_CTRL *rptCtrl; +ST_DOUBLE timeNow; + +/* Scan all report data for changes (dchg, qchg, dupd). */ + mvl61850_rpt_change_scan (dom,CHG); +/* See if it is time to send reports */ + timeNow = sGetMsTime (); + for (rptCtrl = mvl61850_rpt_ctrl_list; + rptCtrl != NULL; + rptCtrl = (MVLU_RPT_CTRL *) list_get_next (mvl61850_rpt_ctrl_list, rptCtrl)) + { + if(dom&&strcmp(rptCtrl->dsNvl->va_scope->dom->name,dom)) continue; + /* NOTE: if DatSet is NULL, don't need to do anything for this rptCtrl.*/ + if (rptCtrl->dsNvl==NULL) + continue; + /* Only one client (rptCtrl->only_client). */ + if (rptCtrl->rcb_type == RCB_TYPE_IEC_BRCB) + mvl61850_brcb_client_service (rptCtrl, &rptCtrl->only_client, timeNow); + else + { + /*assert (rptCtrl->rcb_type == RCB_TYPE_IEC_URCB);*/ /* must be IEC_URCB*/ + mvl61850_urcb_client_service (rptCtrl, &rptCtrl->only_client, timeNow); + } + } + } +/************************************************************************/ +/* mvl61850_rpt_ctrl_destroy_all */ +/* Destroy all 61850 report controls. */ +/************************************************************************/ +ST_VOID mvl61850_rpt_ctrl_destroy_all () + { +MVLU_RPT_CTRL *rptCtrl; + /* Use list_find_last to avoid calling list_unlink twice. */ + while ((rptCtrl = (MVLU_RPT_CTRL *) list_find_last ((DBL_LNK *)mvl61850_rpt_ctrl_list)) != NULL) + { + mvl61850_free_rpt_ctrl (rptCtrl); /* this also unlinks it from list*/ + } + } + +/************************************************************************/ +/* mvl61850_integrity_timeout */ +/* NOTE: For IEC 61850 only. For UCA, use mvlu_integrity_timeout. */ +/* If Integrity period timeout occurred, send Integrity Report. */ +/* NOTE: data scan already done at start of mvl61850_rpt_service. */ +/* No need to rescan data. Just send the data from the data scan. */ +/* RETURNS: SD_TRUE if IntgPd is set and timeout occurred */ +/* SD_FALSE otherwise */ +/************************************************************************/ +ST_RET mvl61850_integrity_timeout (MVLU_RPT_CLIENT *rptClient, ST_DOUBLE timeNow) + { +ST_RET retVal; +ST_INT j; +ST_RET readyRet; /* return code from mvlu_rpt_ready */ + + if (rptClient->basrcb.IntgPd != 0 + && BSTR_BIT_GET (rptClient->basrcb.TrgOps.data, TRGOPS_BITNUM_INTEGRITY) /* enabled*/ + && timeNow > rptClient->next_integ_rpt_time) /* timeout occurred*/ + { + MVLU_LOG_FLOW1 ("IEC 61850 Report Integrity Period timeout for client %08lx",rptClient); + /* Send last buffered entry (due to BufTm buffering) BEFORE this integrity report.*/ + if (rptClient->numTrgs > 0) + { + /* send or queue report */ + mvlu_rpt_ready (rptClient, MVLU_RPT_TYPE_RBE); + } + + /* Set "reason" for each variable of Dataset now. */ + for (j = 0; j < rptClient->rpt_ctrl->dsNvl->num_of_entries; j++) + rptClient->reasons_data[j] = MVLU_TRGOPS_INTEGRITY; + + /* send or queue rpt */ + readyRet = mvlu_rpt_ready (rptClient, MVLU_RPT_TYPE_INTEGRITY_OR_GI); + + if (readyRet != SD_SUCCESS) + MVLU_LOG_FLOW1 ("IEC 61850 Integrity report could not be sent or queued: err=0x%X", readyRet); + + /* set time for next integrity report */ + rptClient->next_integ_rpt_time = sGetMsTime () + + (ST_DOUBLE) rptClient->basrcb.IntgPd; + retVal = SD_TRUE; + } + else + retVal = SD_FALSE; + return (retVal); + } + + diff --git a/mmslib/mvlu/mvl_buf.c b/mmslib/mvlu/mvl_buf.c new file mode 100644 index 0000000..5cda7d0 --- /dev/null +++ b/mmslib/mvlu/mvl_buf.c @@ -0,0 +1,24 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1997, All Rights Reserved */ +/* */ +/* MODULE NAME : mvl_buf.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* NONE */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/23/99 MDE 04 Deleted contents, file is obsolete */ +/* 11/16/98 MDE 03 Renamed internal functions (prefix '_') */ +/* 06/15/98 MDE 02 Changes to allow compile under C++ */ +/* 09/10/97 MDE 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +/* OBSOLETE FILE */ diff --git a/mmslib/mvlu/mvl_dtyp.c b/mmslib/mvlu/mvl_dtyp.c new file mode 100644 index 0000000..ac51d61 --- /dev/null +++ b/mmslib/mvlu/mvl_dtyp.c @@ -0,0 +1,532 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1994 - 2005, All Rights Reserved */ +/* */ +/* MODULE NAME : mvl_dtyp.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* NONE */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 01/19/05 JRB 08 Use mvlu_trim_branch_name from mvl_uca.c */ +/* 12/19/02 JRB 07 Use ms_comp_name_find, ms_comp_name_pres. */ +/* 11/19/02 RKR 06 Corrected size in cardinality function */ +/* 02/27/02 JRB 05 Del unneeded prototypes & includes. */ +/* 12/04/01 RKR 04 ported to QNX cleaned up errors and warnings */ +/* 11/09/01 RKR 03 resorted the num_rt_blks */ +/* 01/21/00 MDE 02 Now use MEM_SMEM for dynamic memory */ +/* 10/05/99 RKR 01 Created */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" + +#include "mmsdefs.h" +#include "mms_pvar.h" +#include "mms_vvar.h" +#include "mms_pvmd.h" +#include "mms_err.h" +#include "mms_pcon.h" +#include "mvl_log.h" +#include "mvl_defs.h" +#include "mvl_uca.h" /* need mvlu_trim_branch_name */ +#include "asn1defs.h" +#include "stime.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +static ST_UCHAR *create_bitstring (ST_INT num); +static ST_VOID set_bit ( ST_UCHAR *bptr, ST_INT i); +static ST_BOOLEAN ismember( ST_UCHAR *bptr, + ST_INT n); +static ST_VOID reSortRT (RUNTIME_TYPE *rt, ST_INT numRt); +static ST_VOID add_to_branch_name (ST_CHAR *branch_name, SD_CONST ST_CHAR *SD_CONST sub_branch_name); + +static ST_INT cardinality (ST_UCHAR *bptr, ST_INT size); +static ST_VOID calc_offset_to_last (RUNTIME_TYPE *rt); + +ST_VOID mvl_print_type( ST_CHAR *base_name, ST_INT typeIdIn); +#ifndef __ECOS +ST_BOOLEAN u_mvl_rt_element_supported (RUNTIME_TYPE *rt, + ST_CHAR *element_name, + ST_RTREF *ui, ST_CHAR *handle); +#endif +ST_VOID adjRtBlks( RUNTIME_TYPE *derived_type_table, ST_INT derived_count); + +/************************************************************************/ +/* mvl_derive_new_type */ +/************************************************************************/ + +ST_RET mvl_derive_new_type (ST_CHAR *base_name, ST_INT typeIdIn, ST_INT *typeIdOut, ST_CHAR *handle) + { +ST_RET ret; +ST_RTREF rtrefs; +ST_UCHAR *membership; + + ret = mvl_derive_type_members (base_name, typeIdIn, &membership, &rtrefs, handle ); + mvl_print_derived_type (base_name, typeIdIn, membership, rtrefs); + ret = mvl_add_derived_type (base_name, typeIdIn, membership, rtrefs, typeIdOut); + return (ret); + } + +/************************************************************************/ +/* mvl_derive_type_members */ +/************************************************************************/ + +ST_RET mvl_derive_type_members (ST_CHAR *base_name, ST_INT typeIdIn, + ST_UCHAR **membership, ST_RTREF *rtrefs, ST_CHAR *handle) + { +ST_RET ret = SD_FAILURE; +RUNTIME_TYPE *rt; +ST_INT num_rt; +ST_BOOLEAN exists; +ST_CHAR element_name[MAX_IDENT_LEN+1]; +ST_CHAR branch_name[MAX_IDENT_LEN+1]; +ST_RTREF *user_info; +ST_INT i; +ST_RTREF ui; /* let the user pass back widget of unknown purpose */ +ST_UCHAR *bptr; + + ret = mvl_get_runtime (typeIdIn, &rt, &num_rt); + if (ret != SD_SUCCESS) + { + MVL_LOG_NERR1 ("TypeId %d not found",typeIdIn); + return (ret); + } + + bptr = create_bitstring (num_rt); + *membership = bptr; + user_info = (ST_RTREF *) M_CALLOC (MSMEM_GEN, num_rt, sizeof(ST_RTREF *)); + *rtrefs = user_info; + + for (i=0; i highestSortNum) + highestSortNum = rt[i].mvluTypeInfo.sortedNum; + } + + newSortNum = 1; + +/* compress the sort numbers */ + + for (prevSortNum = 1; prevSortNum <= highestSortNum; ++prevSortNum) + { + for (i = 0; i < numRt; ++i) + { + if (rt[i].mvluTypeInfo.sortedNum == prevSortNum) + { + rt[i].mvluTypeInfo.sortedNum = newSortNum; + ++newSortNum; + break; + } + } + } + } +/************************************************************************/ +/* adjRtBlks */ +/************************************************************************/ + +ST_VOID adjRtBlks( RUNTIME_TYPE *derived_type_table, ST_INT derived_count) + { +RUNTIME_TYPE *nested[ASN1_MAX_LEVEL]; +ST_INT i; +ST_INT curNestLevel; +RUNTIME_TYPE *start_rt_blk; +RUNTIME_TYPE *rt_ptr; +ST_INT num_rt; + + curNestLevel = 0; + + rt_ptr = derived_type_table; + for (i=0; iel_tag == RT_STR_START) || + (rt_ptr->el_tag == RT_ARR_START)) + { + nested[curNestLevel] = rt_ptr; /* remember where we started */ + curNestLevel++; + } + else if ((rt_ptr->el_tag == RT_STR_END) || + (rt_ptr->el_tag == RT_ARR_END)) + { + curNestLevel--; + start_rt_blk = nested[curNestLevel]; + num_rt = (rt_ptr - start_rt_blk - 1); /* figure out how many in between */ + + /*if (start_rt_blk->u.str.num_rt_blks != num_rt) + { + printf ("\n adjusting %s, was %d, is now %d", + ms_comp_name_find(start_rt_blk), + start_rt_blk->u.str.num_rt_blks, + num_rt); + }*/ + + start_rt_blk->u.str.num_rt_blks = num_rt; + rt_ptr->u.str.num_rt_blks = num_rt; + } + } + } + +/************************************************************************/ +/* add_to_branch_name */ +/************************************************************************/ + +static ST_VOID add_to_branch_name (ST_CHAR *branch_name, SD_CONST ST_CHAR *SD_CONST sub_branch_name) + { + sprintf( branch_name, "%s$%s", branch_name, sub_branch_name); + } + +/************************************************************************/ +/* create_bitstring */ +/************************************************************************/ +static ST_UCHAR *create_bitstring (ST_INT n) + { +ST_INT i,j; +ST_UCHAR *s; + + i = n / ( sizeof( ST_UCHAR ) * 8 ); + j = n % ( sizeof( ST_UCHAR ) * 8 ); + + if (j) + i++; /* allocate an extra byte if string len ! a multiple of 8 */ + + s = (ST_UCHAR *)M_CALLOC (MSMEM_GEN, i, sizeof( ST_UCHAR)); + return(s); + + } + +/************************************************************************/ +/* set_bit */ +/************************************************************************/ +static ST_VOID set_bit (ST_UCHAR *s, ST_INT n) + { +ST_INT i,j; +ST_UCHAR k = 0x01; /* mask */ + + i = n / ( sizeof( ST_UCHAR ) * 8 ); + j = n % ( sizeof( ST_UCHAR ) * 8 ); + s[ i ] = s[ i ] | ( k << j ); + } + +/************************************************************************/ +/* ismember */ +/* This function returns 1 if element n belongs to Set s, 0 otherwise. */ +/************************************************************************/ + +static ST_BOOLEAN ismember( ST_UCHAR *bptr, + ST_INT n) + { +ST_INT i,j; +ST_UCHAR k = 0x01; /* mask */ + + i = n / ( sizeof( ST_UCHAR ) * 8 ); + j = n % ( sizeof( ST_UCHAR ) * 8 ); + return( bptr[ i ] & ( k << j )); + } + +/************************************************************************/ +/* cardinality */ +/************************************************************************/ + +static ST_INT cardinality (ST_UCHAR *bptr, ST_INT size) + { +ST_INT i, j, s, r, card; +ST_CHAR temp; + + s = size / ( sizeof( ST_UCHAR ) * 8 ); + r = size % ( sizeof( ST_UCHAR ) * 8 ); + + if (r) + s++; + card=0; + for ( i = 0; i < s; i++ ) + { + for ( j = 0; j < 8 * sizeof( ST_UCHAR ); j++ ) + { + temp = 0x01; + temp = temp << j; + if ( temp & bptr[ i ] ) + card++; + } + } + return( card ); + } + +/************************************************************************/ +/* calc_offset_to_last */ +/************************************************************************/ +/* This function would not be needed except that the UCA structure */ +/* handling needs to know the size of each subelement too ... */ + +static ST_VOID calc_offset_to_last (RUNTIME_TYPE *rt) + { +ST_INT numUcaRt; + + if (rt->el_tag == RT_ARR_END || rt->el_tag == RT_STR_END) + { + return; + } + + if (rt->el_tag == RT_STR_START) + numUcaRt = rt->u.str.num_rt_blks+2; + else if (rt->el_tag == RT_ARR_START) + numUcaRt = rt->u.arr.num_rt_blks+2; + else + numUcaRt = 1; + +/* Now we can find the size of this element and it's associates */ + rt->offset_to_last = ms_get_blocked_length (rt, numUcaRt); + } + + diff --git a/mmslib/mvlu/mvl_ijou.c b/mmslib/mvlu/mvl_ijou.c new file mode 100644 index 0000000..e71f813 --- /dev/null +++ b/mmslib/mvlu/mvl_ijou.c @@ -0,0 +1,601 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1998 All Rights Reserved */ +/* */ +/* MODULE NAME : mvl_ijou.c */ +/* PRODUCT(S) : Lean-T Stack */ +/* */ +/* MODULE DESCRIPTION : */ +/* Functions to automatically build a ReadJournal response, */ +/* assuming the Journal is modeled as a linked list of journal */ +/* entries. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* u_mvl_start_jread */ +/* u_mvl_get_next_jread_entry */ +/* u_mvl_free_jread_entry */ +/* u_mvl_end_jread */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 07 Remove "thisFileName" */ +/* 04/14/00 JRB 06 Lint cleanup. */ +/* 01/21/00 MDE 05 Now use MEM_SMEM for dynamic memory */ +/* 09/13/99 MDE 04 Added SD_CONST modifiers */ +/* 11/16/98 MDE 03 Renamed internal functions (prefix '_') */ +/* 10/29/98 JRB 02 Delete unnecessary includes. */ +/* 10/09/98 JRB 01 Created */ +/************************************************************************/ +#include "glbtypes.h" +#include "sysincs.h" + +#include "mmsdefs.h" +#include "mvl_defs.h" + +/************************************************************************/ +/* All the functions below, used for building the ReadJournal response, */ +/* assume the Journal is modeled as a linked list of journal entries. */ +/* They use SISCO functions to search the linked list. The user code */ +/* must use the same linked list functions to add journal entries to */ +/* the linked list (or remove them from the linked list). */ +/************************************************************************/ + +/************************************************************************/ +/* Static functions for building the JREAD response. */ +/************************************************************************/ +static MVL_JOURNAL_ENTRY *find_je_start_time_forward (MVL_JOURNAL_CTRL *jCtrl, + JREAD_REQ_INFO *reqInfo); +static MVL_JOURNAL_ENTRY *find_je_start_time_backward (MVL_JOURNAL_CTRL *jCtrl, + JREAD_REQ_INFO *reqInfo); + +static MVL_JOURNAL_ENTRY *find_je_start_entry (MVL_JOURNAL_CTRL *jCtrl, + JREAD_REQ_INFO *reqInfo); + +static MVL_JOURNAL_ENTRY *find_je_stop_forward (MVL_JOURNAL_CTRL *jCtrl, + JREAD_REQ_INFO *reqInfo, + MVL_JOURNAL_ENTRY *start_je); +static MVL_JOURNAL_ENTRY *find_je_stop_backward (MVL_JOURNAL_CTRL *jCtrl, + JREAD_REQ_INFO *reqInfo, + MVL_JOURNAL_ENTRY *start_je); + +static MVL_JOURNAL_ENTRY *find_je_start_after_forward (MVL_JOURNAL_CTRL *jCtrl, + JREAD_REQ_INFO *reqInfo, + MVL_JOURNAL_ENTRY *start_je, + MVL_JOURNAL_ENTRY *stop_je); +static MVL_JOURNAL_ENTRY *find_je_start_after_backward (MVL_JOURNAL_CTRL *jCtrl, + JREAD_REQ_INFO *reqInfo, + MVL_JOURNAL_ENTRY *start_je, + MVL_JOURNAL_ENTRY *stop_je); + +ST_BOOLEAN check_je_list_of_var (JREAD_REQ_INFO *reqInfo, + MVL_JOURNAL_ENTRY *je); + +/************************************************************************/ +/* Global variables for building the JREAD response. */ +/************************************************************************/ +MVL_JOURNAL_ENTRY *je_array [MAX_JREAD_RESP_ENTRIES]; /* array or pointers*/ +ST_INT je_array_index; /* index into "je_array" */ +ST_INT je_array_num_entries; /* # of entries in "je_array" */ +ST_BOOLEAN jread_more_follows; +MVL_JOURNAL_ENTRY *stop_je; /* journal entry to stop with. */ + /* NOT INCLUDED in response. */ + +/************************************************************************/ +/************************************************************************/ +ST_RET u_mvl_start_jread (MVL_JOURNAL_CTRL *jCtrl, + JREAD_REQ_INFO *reqInfo, + MVL_JREAD_BUF_CTRL *bufCtrl, + ST_VOID **usrHandleOut) + { +MVL_JOURNAL_ENTRY *je; +MVL_JOURNAL_ENTRY *start_je =jCtrl->entries; /* First entry that passes*/ + /* "Range Start Spec." */ +ST_BOOLEAN backwards = SD_FALSE; +ST_INT k; + + /* Init global variables. */ + je_array_index = 0; + je_array_num_entries = 0; + jread_more_follows = SD_TRUE; /* Assume "more_follows". */ + + if (reqInfo->range_start_pres + && reqInfo->start_tag == 0 /* Use Starting time */ + && reqInfo->start_time.form != MMS_BTOD6) + { + printf ("\nERROR: ReadJournal request Starting Time illegal. Must be Btime6."); + return (SD_FAILURE); + } + if (reqInfo->range_stop_pres + && reqInfo->stop_tag == 0 /* Use Stop time */ + && reqInfo->end_time.form != MMS_BTOD6) + { + printf ("\nERROR: ReadJournal request End Time illegal. Must be Btime6."); + return (SD_FAILURE); + } + if (reqInfo->sa_entry_pres + && reqInfo->time_spec.form != MMS_BTOD6) + { + printf ("\nERROR: ReadJournal request Time Specification illegal. Must be Btime6."); + return (SD_FAILURE); + } + + /* If "Number of Entries" is used and is negative, do reverse order. */ + if (reqInfo->range_stop_pres + && reqInfo->stop_tag != 0 /* Use "Number of Entries" */ + && reqInfo->num_of_entries < 0) /* Negative */ + backwards = SD_TRUE; /* return entries in reverse order */ + + /* Process "Range Start Specification" */ + if (reqInfo->range_start_pres) + { + if (reqInfo->start_tag == 0) /* Use Starting time */ + { + if (reqInfo->range_stop_pres && reqInfo->stop_tag == 0) + { /* Use "Ending Time" */ + if (reqInfo->start_time.day > reqInfo->end_time.day || + (reqInfo->start_time.day == reqInfo->end_time.day && + reqInfo->start_time.ms > reqInfo->end_time.ms) ) + { /* Start time > End time */ + backwards = SD_TRUE; /* return entries in reverse order */ + } + } + + if (backwards) + { + /* Set "start_je" to the first entry with time <= start time. */ + /* Could be NULL if no entry found. */ + start_je = find_je_start_time_backward (jCtrl, reqInfo); + } + else + { + /* Set "start_je" to the first entry with time >= start time. */ + /* Could be NULL if no entry found. */ + start_je = find_je_start_time_forward (jCtrl, reqInfo); + } + if (start_je == NULL) + return (SD_SUCCESS); /* None found. Return 0 entries */ + } + else /* Use "Starting Entry" */ + { + start_je = find_je_start_entry (jCtrl, reqInfo); + if (start_je == NULL) + return (SD_FAILURE); /* If no match, must send Negative resp.*/ + + if (reqInfo->range_stop_pres && reqInfo->stop_tag == 0) + { /* Use "Ending Time" */ + if (start_je->occur_time.day > reqInfo->end_time.day || + (start_je->occur_time.day == reqInfo->end_time.day && + start_je->occur_time.ms > reqInfo->end_time.ms) ) + { /* Entry time > End time */ + backwards = SD_TRUE; /* return entries in reverse order */ + } + } + } + } /* End processing "Range Start Specification". */ + else + start_je = jCtrl->entries; + + + /* Process "Range Stop Specification" */ + /* Set "stop_je" pointing to first entry past the "stop spec". */ + if (backwards) + { /* Search BACKWARD thru linked list */ + stop_je = find_je_stop_backward (jCtrl, reqInfo, start_je); + } + else + { /* Search FORWARD thru linked list */ + stop_je = find_je_stop_forward (jCtrl, reqInfo, start_je); + } + + /* Process "Entry to Start After" */ + if (reqInfo->sa_entry_pres) + { /* "Entry to Start After" specified. */ + /* Scan linked list for "Start After Entry" and "Start After Time", */ + /* up to "Range Stop", if specified. */ + /* Adjust "start_entry" accordingly. */ + if (backwards) + { /* Search BACKWARD thru linked list */ + start_je = find_je_start_after_backward (jCtrl, reqInfo, start_je, stop_je); + } + else + { /* Search FORWARD thru linked list */ + start_je = find_je_start_after_forward (jCtrl, reqInfo, start_je, stop_je); + } /* End "Search FORWARD thru linked list" */ + } + else + ; /* "Entry to Start After" NOT specified. Do nothing. */ + /* End processing of "Entry to Start After" */ + + /* Now find all entries that pass the "List of Variables" filter */ + /* and add them to an array of Journal entries to send in response. */ + if (backwards) + { + for (je = start_je; + je != stop_je; + je = (MVL_JOURNAL_ENTRY *) list_find_prev ((DBL_LNK *) jCtrl->entries, (DBL_LNK *) je)) + { + if (je_array_num_entries >= MAX_JREAD_RESP_ENTRIES) + break; /* Assume still more entries. */ + + /* If "List of Variables" specified, check if this entry matches.*/ + if (check_je_list_of_var (reqInfo, je)) + je_array[je_array_num_entries++] = je; /* Matched. */ + } /* end "for" */ + } + else + { /* "!backwards" */ + for (je = start_je; + je != stop_je; + je = (MVL_JOURNAL_ENTRY *) list_get_next (jCtrl->entries, je)) + { + if (je_array_num_entries >= MAX_JREAD_RESP_ENTRIES) + break; /* Assume still more entries. */ + + /* If "List of Variables" specified, check if this entry matches.*/ + if (check_je_list_of_var (reqInfo, je)) + je_array[je_array_num_entries++] = je; /* Matched. */ + } /* end "for" */ + } /* End "!backwards" */ + if (je == stop_je) /* End of linked list. */ + jread_more_follows = SD_FALSE; /* No more entries */ + +/* We need to tell MVL how many entries and variables we have */ + bufCtrl->numVarInfo = 0; + bufCtrl->numUsrEntries = je_array_num_entries; + for (k = 0; k < je_array_num_entries; k++) + { + je = je_array [k]; + if (je->entry_form_tag == JE_FORM_DATA && je->ef.data.list_of_var_pres) + { /* entry form is 'data' */ + bufCtrl->numVarInfo += je->ef.data.num_of_var; + } + } + +/* By default, MVL assumes "u_mvl_get_next_jread_entry" returns a */ +/* pointer (*mvlJeDest) to persistent data. */ +/* This is a valid assumption for the linked list implementation */ +/* in this sample code. If you cannot point to persistent data, */ +/* you must compile the MVL library and this code with */ +/* MVL_JREAD_*_DYNAMIC defined and adjust the allocation to allow */ +/* MVL enough space to copy the data. */ + +#if defined (MVL_JREAD_ENTRYID_DYNAMIC) + bufCtrl->entryIdBuf = M_MALLOC (MSMEM_GEN, 1000); +#endif +#if defined (MVL_JREAD_VARTAG_DYNAMIC) + bufCtrl->varTagBuf = M_MALLOC (MSMEM_GEN, 1000); +#endif +#if defined (MVL_JREAD_ANNOTATION_DYNAMIC) + bufCtrl->annotationBuf = M_MALLOC (MSMEM_GEN, 1000); +#endif + + return (SD_SUCCESS); + } + +/************************************************************************/ +/************************************************************************/ +ST_RET u_mvl_get_next_jread_entry (MVL_JOURNAL_CTRL *jCtrl, + ST_VOID *usrHandle, + ST_BOOLEAN *moreFollowsOut, + MVL_JOURNAL_ENTRY **mvlJeDest) + { + if (je_array_index >= je_array_num_entries) + return (SD_FAILURE); /* Should never happen. */ + + /* If last in "je_array", use "real more_follows value". */ + if (je_array_index + 1 == je_array_num_entries) + *moreFollowsOut = jread_more_follows; + else + *moreFollowsOut = SD_TRUE; /* Not last in array, so always more. */ + + *mvlJeDest = je_array[je_array_index]; + je_array_index++; /* Increment array index to next entry. */ + return (SD_SUCCESS); + } + +/************************************************************************/ + +ST_VOID u_mvl_free_jread_entry (MVL_JOURNAL_CTRL *jCtrl, + ST_VOID *usrHandle, + MVL_JOURNAL_ENTRY *mvlJe) + { + } + +/************************************************************************/ + +ST_VOID u_mvl_end_jread (MVL_JOURNAL_CTRL *jCtrl, + ST_VOID *usrHandle, + MVL_JREAD_BUF_CTRL *bufCtrl, + JREAD_REQ_INFO *reqInfo) + { + +/* Free up buffers allocated in "u_mvl_start_jread". */ +#if defined (MVL_JREAD_ENTRYID_DYNAMIC) + M_FREE (MSMEM_GEN, bufCtrl->entryIdBuf); +#endif +#if defined (MVL_JREAD_VARTAG_DYNAMIC) + M_FREE (MSMEM_GEN, bufCtrl->varTagBuf); +#endif +#if defined (MVL_JREAD_ANNOTATION_DYNAMIC) + M_FREE (MSMEM_GEN, bufCtrl->annotationBuf); +#endif + } + +/************************************************************************/ +/************************************************************************/ +static MVL_JOURNAL_ENTRY *find_je_start_time_forward (MVL_JOURNAL_CTRL *jCtrl, + JREAD_REQ_INFO *reqInfo) + { +MVL_JOURNAL_ENTRY *je; + + for (je = jCtrl->entries; + je != NULL; + je = (MVL_JOURNAL_ENTRY *) list_get_next (jCtrl->entries, je)) + { /* Search entire linked list */ + if (je->occur_time.day > reqInfo->start_time.day || + (je->occur_time.day == reqInfo->start_time.day && + je->occur_time.ms >= reqInfo->start_time.ms) ) + break; /* entry time >= start time. Start here. */ + } /* End "for" loop for time spec */ + return (je); /* May be NULL if not found. */ + } + +/************************************************************************/ +/************************************************************************/ +static MVL_JOURNAL_ENTRY *find_je_start_time_backward (MVL_JOURNAL_CTRL *jCtrl, + JREAD_REQ_INFO *reqInfo) + { +MVL_JOURNAL_ENTRY *je; + + for (je = (MVL_JOURNAL_ENTRY *) list_find_last ((DBL_LNK *) jCtrl->entries); + je != NULL; + je = (MVL_JOURNAL_ENTRY *) list_find_prev ((DBL_LNK *) jCtrl->entries, (DBL_LNK *) je)) + { /* Search entire linked list */ + if (je->occur_time.day < reqInfo->start_time.day || + (je->occur_time.day == reqInfo->start_time.day && + je->occur_time.ms <= reqInfo->start_time.ms) ) + break; /* entry time <= start time. Start here. */ + } /* End "for" loop for time spec */ + return (je); /* May be NULL if not found. */ + } + +/************************************************************************/ +/************************************************************************/ +static MVL_JOURNAL_ENTRY *find_je_start_entry (MVL_JOURNAL_CTRL *jCtrl, + JREAD_REQ_INFO *reqInfo) + { +MVL_JOURNAL_ENTRY *je; + for (je = jCtrl->entries; + je != NULL; + je = (MVL_JOURNAL_ENTRY *) list_get_next (jCtrl->entries, je)) + { + if (je->entry_id_len == reqInfo->start_entry_len && + !memcmp (je->entry_id, reqInfo->start_entry, je->entry_id_len)) + return (je); /* entry id == Starting Entry. Start here. */ + } /* End "for" loop for "Starting Entry" */ + return (NULL); + } + +/************************************************************************/ +/************************************************************************/ +static MVL_JOURNAL_ENTRY *find_je_stop_forward (MVL_JOURNAL_CTRL *jCtrl, + JREAD_REQ_INFO *reqInfo, + MVL_JOURNAL_ENTRY *start_je) + { +MVL_JOURNAL_ENTRY *je; +MVL_JOURNAL_ENTRY *stop_je; +ST_INT num_entries; + + + if (reqInfo->range_stop_pres) + { + for (je = start_je, num_entries = 0; + je != NULL; + je = (MVL_JOURNAL_ENTRY *) list_get_next (jCtrl->entries, je), + num_entries++) + { + if (reqInfo->stop_tag == 0) + { /* Use "Ending Time" */ + if (je->occur_time.day > reqInfo->end_time.day || + (je->occur_time.day == reqInfo->end_time.day && + je->occur_time.ms > reqInfo->end_time.ms) ) + { /* Entry time > End time */ + break; /* Found it. Done. */ + } + } + else + { /* Use "Number of entries" */ + if (num_entries >= reqInfo->num_of_entries) + break; /* Found it. Done. */ + } + } /* end "for" */ + stop_je = je; /* May be NULL if not found. */ + } + else + stop_je = NULL; /* No stop spec. Set to NULL (i.e. end of list) */ + + return (stop_je); + } + +/************************************************************************/ +/************************************************************************/ +static MVL_JOURNAL_ENTRY *find_je_stop_backward (MVL_JOURNAL_CTRL *jCtrl, + JREAD_REQ_INFO *reqInfo, + MVL_JOURNAL_ENTRY *start_je) + { +MVL_JOURNAL_ENTRY *je; +MVL_JOURNAL_ENTRY *stop_je; +ST_INT num_entries; + + if (reqInfo->range_stop_pres) + { + for (je = start_je, num_entries = 0; + je != NULL; + je = (MVL_JOURNAL_ENTRY *) list_find_prev ((DBL_LNK *) jCtrl->entries, (DBL_LNK *) je), + num_entries++) + { + if (reqInfo->stop_tag == 0) + { /* Use "Ending Time" */ + if (je->occur_time.day < reqInfo->end_time.day || + (je->occur_time.day == reqInfo->end_time.day && + je->occur_time.ms < reqInfo->end_time.ms) ) + { /* Entry time < End time */ + break; /* Found it. Done. */ + } + } + else + { /* Use "Number of entries" ("0 -" converts neg to pos) */ + if (num_entries >= (0 - reqInfo->num_of_entries) ) + break; /* Found it. Done. */ + } + } /* end "for" */ + stop_je = je; /* May be NULL if not found. */ + } + else + stop_je = NULL; /* No stop spec. Set to NULL (i.e. end of list) */ + + return (stop_je); + } + +/************************************************************************/ +/************************************************************************/ +static MVL_JOURNAL_ENTRY *find_je_start_after_forward (MVL_JOURNAL_CTRL *jCtrl, + JREAD_REQ_INFO *reqInfo, + MVL_JOURNAL_ENTRY *start_je, + MVL_JOURNAL_ENTRY *stop_je) + { +MVL_JOURNAL_ENTRY *je; +MVL_JOURNAL_ENTRY *start_after_entry_je=NULL; /* First entry that passes*/ + /* "Start After Entry Spec."*/ +MVL_JOURNAL_ENTRY *start_after_time_je=NULL; /* First entry that passes*/ + /* "Start After Time Spec."*/ + + /* The variables "start_after_entry_je" and/or "start_after_time_je"*/ + /* will be set to non-NULL values if they are found. */ + /* If one of them is found, adjust "start_entry" accordingly. */ + for (je = start_je; + je != stop_je; + je = (MVL_JOURNAL_ENTRY *) list_get_next (jCtrl->entries, je)) + { + /* Check for matching "entry_spec" */ + if (je->entry_id_len == reqInfo->entry_spec_len && + !memcmp (je->entry_id, reqInfo->entry_spec, je->entry_id_len)) + { /* entry spec matches */ + start_after_entry_je = je; + break; /* Done checking. */ + } + + /* If haven't found matching "entry_spec" yet, check "time_spec". */ + if (start_after_time_je == NULL) + { /* "time_spec" match not found yet. */ + if (je->occur_time.day > reqInfo->time_spec.day || + (je->occur_time.day == reqInfo->time_spec.day && + je->occur_time.ms > reqInfo->time_spec.ms) ) + { /* entry time > time spec. */ + /* Save this but keep checking for matching "entry_spec". */ + start_after_time_je = je; /* DO NOT "break" */ + } + } + } /* end "for" */ + + /* If found match on Start After Entry, start with NEXT entry. */ + /* If only found match on Start After Time, start with THAT entry.*/ + if (start_after_entry_je) + start_je = (MVL_JOURNAL_ENTRY *) list_get_next (jCtrl->entries, + start_after_entry_je); + else if (start_after_time_je) + start_je = start_after_time_je; + else + start_je = NULL; /* Didn't find either. Return 0 entries.*/ + return (start_je); + } + +/************************************************************************/ +/************************************************************************/ +static MVL_JOURNAL_ENTRY *find_je_start_after_backward (MVL_JOURNAL_CTRL *jCtrl, + JREAD_REQ_INFO *reqInfo, + MVL_JOURNAL_ENTRY *start_je, + MVL_JOURNAL_ENTRY *stop_je) + { +MVL_JOURNAL_ENTRY *je; +MVL_JOURNAL_ENTRY *start_after_entry_je=NULL; /* First entry that passes*/ + /* "Start After Entry Spec."*/ +MVL_JOURNAL_ENTRY *start_after_time_je=NULL; /* First entry that passes*/ + /* "Start After Time Spec."*/ + + /* The variables "start_after_entry_je" and/or "start_after_time_je" */ + /* will be set to non-NULL values if they are found. */ + /* If one of them is found, adjust "start_entry" accordingly. */ + for (je = start_je; + je != stop_je; + je = (MVL_JOURNAL_ENTRY *) list_find_prev ((DBL_LNK *) jCtrl->entries, (DBL_LNK *) je)) + { + /* Check for matching "entry_spec" */ + if (je->entry_id_len == reqInfo->entry_spec_len && + !memcmp (je->entry_id, reqInfo->entry_spec, je->entry_id_len)) + { /* entry spec matches */ + start_after_entry_je = je; + break; /* Done checking. */ + } + + /* If haven't found matching "entry_spec" yet, check "time_spec". */ + if (start_after_time_je == NULL) + { /* "time_spec" match not found yet. */ + if (je->occur_time.day < reqInfo->time_spec.day || + (je->occur_time.day == reqInfo->time_spec.day && + je->occur_time.ms < reqInfo->time_spec.ms) ) + { /* entry time < time spec. */ + /* Save this but keep checking for matching "entry_spec". */ + start_after_time_je = je; /* DO NOT "break" */ + } + } + } /* end "for" */ + + /* If found match on Start After Entry, start with NEXT entry. */ + /* If only found match on Start After Time, start with THAT entry.*/ + if (start_after_entry_je) + start_je = (MVL_JOURNAL_ENTRY *) list_find_prev ((DBL_LNK *) jCtrl->entries, + (DBL_LNK *) start_after_entry_je); + else if (start_after_time_je) + start_je = start_after_time_je; + else + start_je = NULL; /* Didn't find either. Return 0 entries.*/ + return (start_je); + } + +/************************************************************************/ +/************************************************************************/ +ST_BOOLEAN check_je_list_of_var (JREAD_REQ_INFO *reqInfo, + MVL_JOURNAL_ENTRY *je) + { +ST_BOOLEAN retcode = SD_FALSE; /* No match. */ +ST_INT j, k; +ST_CHAR **list_of_var; + + if (reqInfo->list_of_var_pres) + { + list_of_var = (ST_CHAR **) (reqInfo + 1); + + if (je->entry_form_tag == JE_FORM_DATA + && je->ef.data.list_of_var_pres) + { + for (j = 0; j < reqInfo->num_of_var; j++) + { + for (k = 0; k < je->ef.data.num_of_var; k++) + { + if (!strcmp (je->ef.data.list_of_var[k].var_tag, list_of_var [j])) + retcode = SD_TRUE; /* Matched. */ + } /* end "for" loop */ + } /* end "for" loop */ + } + } /* End "if (reqInfo->list_of_var_pres)" */ + else + { /* No "List of Variables" to check. This one must be OK.*/ + retcode = SD_TRUE; /* Just as good as a match. */ + } + return (retcode); + } + diff --git a/mmslib/mvlu/mvl_obj.c b/mmslib/mvlu/mvl_obj.c new file mode 100644 index 0000000..34c57e9 --- /dev/null +++ b/mmslib/mvlu/mvl_obj.c @@ -0,0 +1,1131 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1998 - 2005, All Rights Reserved */ +/* */ +/* MODULE NAME : mvl_obj.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* mvl_vmd_dom_add */ +/* mvl_vmd_var_add */ +/* mvl_vmd_nvl_add */ +/* mvl_vmd_jou_add */ +/* mvl_vmd_dom_remove */ +/* mvl_vmd_var_remove */ +/* mvl_vmd_nvl_remove */ +/* mvl_vmd_jou_remove */ +/* mvl_nvl_create */ +/* mvl_nvl_destroy */ +/* mvl_vmd_create */ +/* mvl_vmd_destroy */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 02/26/08 JRB 28 mvl_vmd_destroy: do NOT free var->data (do */ +/* not know if it was allocated). */ +/* Check var or NVL is deletable before delete. */ +/* mvl_vmd_dom_remove: remove dom objects first.*/ +/* mvl_dom_destroy: do NOT remove dom objects. */ +/* Add mvl_var_add_alloc, mvl_var_create_alloc. */ +/* Add mvl_var_create_derived. */ +/* Remove unused functions. */ +/* 02/21/07 JRB 27 Fix funct names in this module header. */ +/* 12/04/06 JRB 26 mvl_vmd_destroy: add arg to specify which VMD*/ +/* and DO NOT destroy all rpt_ctrl (let user). */ +/* 10/30/06 JRB 25 Add vmd_ctrl arg to several functions & chg */ +/* prefix from "mvl_" to "mvl_vmd_". */ +/* Add vmd_ctrl, net_info args to mvl_nvl_create.*/ +/* Check that (net_info!=NULL) before using it. */ +/* Move "*_delete" to mvl_objb.c with other */ +/* insert/delete functions. */ +/* Add mvl_vmd_create. */ +/* 08/09/06 JRB 24 Free "last_data" only in mvl_var_destroy. */ +/* Save type_ctrl in MVL_VAR_ASSOC. */ +/* mvl_vmd_destroy: free mvl61850_rpt_ctrl_list.*/ +/* 01/30/06 GLB 23 Integrated porting changes for VMS */ +/* 10/25/05 EJV 22 Fix "last_data" memory leaks: alloc only if */ +/* last_data==NULL, free only if last_data!=NULL.*/ +/* 09/22/05 JRB 21 mvl_vmd_destroy: del VMD-spec vars, NVLs too.*/ +/* 06/29/05 CRM 20 Add mvl_vmd_destroy. */ +/* 06/27/05 JRB 19 Alloc "va->last_data" in mvl_nvl_create & */ +/* free it in mvl_nvl_destroy so special NVL */ +/* functs not needed for IEC/UCA reports. */ +/* 06/27/05 JRB 18 mvl_var_create: chk type. */ +/* 04/27/05 CRM 17 Added code to free dom->jou_tbl in */ +/* mvl_dom_destroy */ +/* 06/04/04 JRB 16 mvl_var_create: if (data), set use_static_data.*/ +/* 10/03/03 JRB 15 mvl_nvl_add: set nvl_scope in MVL_NVLIST_CTRL*/ +/* mvl_nvl_add/mvl_var_add: chk for valid dom first*/ +/* 02/25/02 MDE 14 Now get max PDU size from mvl_cfg_info */ +/* 01/23/02 EJV 13 Added journals to domain: */ +/* mvl_init_dom - added max_num_jou param */ +/* mvl_dom_resize - added max_num_jou param */ +/* mvl_dom_create - added max_num_jou param */ +/* mvl_dom_add - added max_num_jou param */ +/* mvl_clear_dom_objs -added code for journals*/ +/* mvl_jou_delete - added DOM_SPEC case */ +/* 10/25/00 JRB 12 Del u_mvl funct ptrs. Call functs directly. */ +/* Control with #ifdefs. */ +/* 04/14/00 JRB 11 Move sort & compare code to mvl_objb.c */ +/* 04/12/00 MDE 10 Moved AA resize code to mvl_acse.c */ +/* 01/21/00 MDE 09 Now use MEM_SMEM for dynamic memory */ +/* 09/15/99 JRB 08 Mv mvl_obj_nosort to mvl_objb.c for DOS link */ +/* 09/13/99 MDE 07 Added SD_CONST modifiers */ +/* 09/07/99 MDE 06 Changed MVL_VA_SCOPE to MVL_SCOPE */ +/* 07/12/99 MDE 05 Fixed problem 'destroying' dom w/NVL or VAR */ +/* 04/07/99 MDE 04 Logging improvements */ +/* 03/18/99 MDE 03 Enhanced dynamic object facilities */ +/* 01/20/99 JRB 02 Reduce # of functions. Chg names and args. */ +/* Call new "mvl_???_insert" functions. */ +/* Add ..nvl_remove, ..nvl_create, ..nvl_destroy*/ +/* 11/18/98 MDE 01 Created */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "mvl_acse.h" +#include "mvl_log.h" +#if defined(MVL_UCA) +#include "mvl_uca.h" /* need "MVLU_RPT_*" */ +#endif + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +ST_VOID (*u_mvl_dom_destroy) (MVL_DOM_CTRL *dom); +ST_VOID (*u_mvl_var_destroy)(MVL_VAR_ASSOC *va); +ST_VOID (*u_mvl_nvl_destroy) (MVL_NVLIST_CTRL *nvl); +ST_VOID (*u_mvl_jou_destroy) (MVL_JOURNAL_CTRL *jou); + +/************************************************************************/ +/* SCOPE RESIZING FUNCTIONS */ +/************************************************************************/ +/************************************************************************/ +/* mvl_vmd_resize */ +/************************************************************************/ + +ST_VOID mvl_vmd_resize (ST_INT max_num_dom, ST_INT max_num_var, + ST_INT max_num_nvl, ST_INT max_num_jou) + { + if (max_num_dom < mvl_vmd.num_dom) + { + MVL_LOG_NERR0 ("Resizing VMD: new max DOM is less than current"); + max_num_dom = mvl_vmd.num_dom; + } + if (max_num_var < mvl_vmd.num_var_assoc) + { + MVL_LOG_NERR0 ("Resizing VMD: new max VA is less than current"); + max_num_var = mvl_vmd.num_var_assoc; + } + if (max_num_nvl < mvl_vmd.num_nvlist) + { + MVL_LOG_NERR0 ("Resizing VMD: new max NVL is less than current"); + max_num_nvl = mvl_vmd.num_nvlist; + } + if (max_num_jou < mvl_vmd.num_jou) + { + MVL_LOG_NERR0 ("Resizing VMD: new max JOU is less than current"); + max_num_jou = mvl_vmd.num_jou; + } + + _mvl_resize_ptr_tbl (&(mvl_vmd.max_num_dom), + (ST_VOID ***)&(mvl_vmd.dom_tbl), max_num_dom); + _mvl_resize_ptr_tbl (&(mvl_vmd.max_num_var_assoc), + (ST_VOID ***)&(mvl_vmd.var_assoc_tbl), max_num_var); + _mvl_resize_ptr_tbl (&(mvl_vmd.max_num_nvlist), + (ST_VOID ***)&(mvl_vmd.nvlist_tbl), max_num_nvl); + _mvl_resize_ptr_tbl (&(mvl_vmd.max_num_jou), + (ST_VOID ***)&(mvl_vmd.jou_tbl), max_num_jou); + } + +/************************************************************************/ +/* mvl_dom_resize */ +/************************************************************************/ + +ST_VOID mvl_dom_resize (MVL_DOM_CTRL *dom, ST_INT max_num_var, + ST_INT max_num_nvl, ST_INT max_num_jou) + { + if (max_num_var < dom->num_var_assoc) + { + MVL_LOG_NERR0 ("Resizing Domain: new max VA is less than current"); + max_num_var = dom->num_var_assoc; + } + if (max_num_nvl < dom->num_nvlist) + { + MVL_LOG_NERR0 ("Resizing Domain: new max NVL is less than current"); + max_num_nvl = dom->num_nvlist; + } + if (max_num_jou < dom->num_jou) + { + MVL_LOG_NERR0 ("Resizing Domain: new max JOU is less than current"); + max_num_jou = dom->num_jou; + } + + _mvl_resize_ptr_tbl (&(dom->max_num_var_assoc), + (ST_VOID ***)&(dom->var_assoc_tbl), max_num_var); + _mvl_resize_ptr_tbl (&(dom->max_num_nvlist), + (ST_VOID ***)&(dom->nvlist_tbl), max_num_nvl); + _mvl_resize_ptr_tbl (&(dom->max_num_jou), + (ST_VOID ***)&(dom->jou_tbl), max_num_jou); + } + +/************************************************************************/ +/* _mvl_resize_ptr_tbl */ +/************************************************************************/ + +ST_VOID _mvl_resize_ptr_tbl (ST_INT *p_max_num, + ST_VOID ***p_ptr_tbl, ST_INT new_size) + { + +/* See if something needs to be done at all */ + if (*p_max_num == new_size) + return; + +/* See if the table is going away altogether */ + if (new_size != 0) + { + if (*p_max_num != 0) + *p_ptr_tbl = (ST_VOID **) M_REALLOC (MSMEM_GEN, *p_ptr_tbl, (new_size * sizeof (ST_VOID *))); + else /* We did not have a table, but need one now */ + *p_ptr_tbl = (ST_VOID **) M_CALLOC (MSMEM_GEN, new_size, sizeof (ST_VOID *)); + } + else + { /* If we had a table, we need to free it */ + if (*p_max_num != 0) + M_FREE (MSMEM_GEN, *p_ptr_tbl); + } + *p_max_num = new_size; + } + +/************************************************************************/ +/* mvl_nvl_remove_all */ +/* Remove all VMD-Specific NVLs & Domain-Specific NVLs in this VMD. */ +/* CRITICAL: Use "mvl_vmd_nvl_remove". It makes sure it is safe to */ +/* remove each NVL. */ +/* RETURNS: SD_SUCCESS or SD_FAILURE */ +/************************************************************************/ +ST_RET mvl_nvl_remove_all (MVL_VMD_CTRL *vmd_ctrl) + { +ST_INT didx; +MVL_DOM_CTRL *dom; + + /* Destroy VMD-Specific NVLs. */ + while (vmd_ctrl->num_nvlist) + { + MVL_NVLIST_CTRL *nvl; + OBJECT_NAME obj; + nvl = vmd_ctrl->nvlist_tbl[vmd_ctrl->num_nvlist-1]; /* point to last nvl*/ + obj.obj_name.vmd_spec = nvl->name; + obj.object_tag = VMD_SPEC; + if (mvl_vmd_nvl_remove (vmd_ctrl, &obj, NULL) != SD_SUCCESS) + { + MVL_LOG_ERR1 ("Error removing VMD-specific NVL='%s'", nvl->name); + return (SD_FAILURE); + } + } + + /* Destroy Domain-Specific NVLs in all domains. */ + for (didx = 0; didx < vmd_ctrl->num_dom; didx++) + { + dom = vmd_ctrl->dom_tbl [didx]; + while (dom->num_nvlist) + { + MVL_NVLIST_CTRL *nvl; + OBJECT_NAME obj; + nvl = dom->nvlist_tbl[dom->num_nvlist-1]; /* point to last nvl*/ + obj.obj_name.item_id = nvl->name; + obj.domain_id = dom->name; + obj.object_tag = DOM_SPEC; + if (mvl_vmd_nvl_remove (vmd_ctrl, &obj, NULL) != SD_SUCCESS) + { + MVL_LOG_ERR2 ("Error removing NVL='%s' in domain '%s'", nvl->name, dom->name); + return (SD_FAILURE); + } + } + } + return (SD_SUCCESS); + } + +/************************************************************************/ +/* mvl_var_in_nvl */ +/* Is this var used in this NVL? */ +/************************************************************************/ +ST_BOOLEAN mvl_var_in_nvl (MVL_NVLIST_CTRL *nvl, MVL_VAR_ASSOC *var) + { +ST_INT vidx; +MVL_VAR_ASSOC *nvl_var; /* variable used in a NVL */ + + for (vidx = 0; vidx < nvl->num_of_entries; vidx++) + { + nvl_var = nvl->entries[vidx]; + if (nvl_var == var || nvl_var->base_va == var) + { /* This variable (or a variable derived from it) is used in the NVL. */ + return(SD_TRUE); + } + } + return (SD_FALSE); /* This variable is NOT used in the NVL. */ + } +/************************************************************************/ +/* mvl_var_deletable */ +/* Is this var deletable (i.e. NOT referenced by other objects)? */ +/************************************************************************/ +ST_BOOLEAN mvl_var_deletable (MVL_VMD_CTRL *vmd_ctrl, MVL_VAR_ASSOC *var) + { +ST_INT didx, nvlidx; +MVL_DOM_CTRL *dom; +MVL_NVLIST_CTRL *nvl; + assert (var->base_va == NULL); /* DEBUG: these are always base variables.*/ + + /* Make sure var is not used in any VMD-specific NVL. */ + for (nvlidx = 0; nvlidx < vmd_ctrl->num_nvlist; ++nvlidx) + { + nvl = vmd_ctrl->nvlist_tbl[nvlidx]; + if (mvl_var_in_nvl (nvl, var)) + { + MVL_LOG_ERR2 ("Variable=%s cannot be deleted because it is used in VMD-specific NVL=%s", + var->name, nvl->name); + return(SD_FALSE); + } + } + + /* Make sure var is not used in any Domain-specific NVL in any Domain. */ + for (didx = 0; didx < vmd_ctrl->num_dom; didx++) + { + dom = vmd_ctrl->dom_tbl [didx]; + for (nvlidx = 0; nvlidx < dom->num_nvlist; nvlidx++) + { + nvl = dom->nvlist_tbl[nvlidx]; + if (mvl_var_in_nvl (nvl, var)) + { + MVL_LOG_ERR2 ("Variable=%s cannot be deleted because it is used in Domain-specific NVL=%s", + var->name, nvl->name); + return(SD_FALSE); + } + } + } + return (SD_TRUE); /* ok to delete it */ + } +/************************************************************************/ +/* mvl_nvl_deletable */ +/* Is this NVL deletable (i.e. NOT referenced by other objects)? */ +/************************************************************************/ +ST_BOOLEAN mvl_nvl_deletable (MVL_VMD_CTRL *vmd_ctrl, MVL_NVLIST_CTRL *nvl) + { +#if defined(MVL_UCA) /* check for IEC 61850 or UCA RCBs using this NVL*/ +MVLU_RPT_CTRL *rptCtrl; + + /* NOTE: the flag "nvl->mms_deletable" is only used by the MMS service*/ + /* DeleteNamedVariableList, not to prevent MVL from deleting this NVL.*/ + + /* See if NVL is used in any IEC 61850 Report Control Block. */ + //lnk编译修改：原å‰ç½®ç¨‹åºæœªä½¿ç”¨ + /*for (rptCtrl = mvl61850_rpt_ctrl_list; + rptCtrl != NULL; + rptCtrl = (MVLU_RPT_CTRL *) list_get_next (mvl61850_rpt_ctrl_list, rptCtrl)) + { + if (rptCtrl->dsNvl == nvl) + { + MVL_LOG_ERR1 ("NVL='%s' cannot be deleted because it is used in a IEC 61850 Report Control Block", + nvl->name); + return (SD_FALSE); + } + }*/ + /* See if NVL is used in any UCA Report Control Block. */ + //lnk编译修改：原å‰ç½®ç¨‹åºæœªä½¿ç”¨ + /*for (rptCtrl = mvlu_rpt_ctrl_list; + rptCtrl != NULL; + rptCtrl = (MVLU_RPT_CTRL *) list_get_next (mvlu_rpt_ctrl_list, rptCtrl)) + { + if (rptCtrl->dsNvl == nvl) + { + MVL_LOG_ERR1 ("NVL='%s' cannot be deleted because it is used in a UCA Report Control Block", + nvl->name); + return (SD_FALSE); + } + }*/ +#endif /* defined(MVL_UCA) */ + /* NOTE: if not MVL_UCA, nothing to check. */ + return (SD_TRUE); /* ok to delete it */ + } + +/************************************************************************/ +/************************************************************************/ +/* DOMAIN */ +/************************************************************************/ +/************************************************************************/ +/* mvl_vmd_dom_add */ +/* Add a domain. Allocate, fill in, and insert into table. */ +/************************************************************************/ + +MVL_DOM_CTRL *mvl_vmd_dom_add (MVL_VMD_CTRL *vmd_ctrl, ST_CHAR *name, ST_INT max_num_var, + ST_INT max_num_nvl, ST_INT max_num_jou, + ST_BOOLEAN copy_name) + { +MVL_DOM_CTRL *dom; + + dom = mvl_dom_create (name, max_num_var, max_num_nvl, max_num_jou, copy_name); + +/* Insert it in table. */ + if (mvl_vmd_dom_insert (vmd_ctrl, dom)) + { /* Failed. */ + M_FREE (MSMEM_GEN, dom); + return (NULL); + } + + return (dom); + } + +/************************************************************************/ +/* mvl_dom_create */ +/************************************************************************/ + +MVL_DOM_CTRL *mvl_dom_create (ST_CHAR *name, ST_INT max_num_var, + ST_INT max_num_nvl, ST_INT max_num_jou, + ST_BOOLEAN copy_name) + { +MVL_DOM_CTRL *dom; + +/* Allocate object and fill in "name". */ + if (copy_name) + { + dom = (MVL_DOM_CTRL *) M_CALLOC (MSMEM_GEN, 1, sizeof (MVL_DOM_CTRL) + + strlen (name) + 1); + dom->name = (ST_CHAR *) (dom+1); + strcpy (dom->name, name); /* copy name */ + } + else + { + dom = (MVL_DOM_CTRL *) M_CALLOC (MSMEM_GEN, 1, sizeof (MVL_DOM_CTRL)); + dom->name = name; /* point to user buffer */ + } + +/* Allocate the pointer tables */ + mvl_dom_resize (dom, max_num_var, max_num_nvl, max_num_jou); + return (dom); + } + +/************************************************************************/ +/* mvl_dom_cleanup */ +/* Remove all objects (NVLs, variables, journals) from this domain. */ +/* CRITICAL: Use "*_remove" functions. They make sure it is safe to */ +/* remove each object. */ +/************************************************************************/ + +ST_RET mvl_dom_cleanup (MVL_VMD_CTRL *vmd_ctrl, MVL_DOM_CTRL *dom) + { +ST_INT i; + + if (dom->foundry_objects) + { + MVL_LOG_NERR1 ("Cannot remove objects from domain '%s' because Foundry objects present", dom->name); + return (SD_FAILURE); + } + + /* Remove all NVL from this domain. Stop on first error. */ + while (dom->num_nvlist) + { + MVL_NVLIST_CTRL *nvl; + OBJECT_NAME obj; + nvl = dom->nvlist_tbl[dom->num_nvlist-1]; /* point to last nvl*/ + obj.obj_name.item_id = nvl->name; + obj.domain_id = dom->name; + obj.object_tag = DOM_SPEC; + if (mvl_vmd_nvl_remove (vmd_ctrl, &obj, NULL) != SD_SUCCESS) + { + MVL_LOG_ERR2 ("Error removing NVL='%s' from domain='%s'", + nvl->name, dom->name); + return (SD_FAILURE); + } + } + + /* Remove all variables from this domain. Stop on first error. */ + while (dom->num_var_assoc > 0) + { + MVL_VAR_ASSOC *var; + OBJECT_NAME obj; + var = dom->var_assoc_tbl[dom->num_var_assoc-1]; /* point to last var*/ + obj.obj_name.item_id = var->name; + obj.domain_id = dom->name; + obj.object_tag = DOM_SPEC; + if (mvl_vmd_var_remove (vmd_ctrl, &obj, NULL) != SD_SUCCESS) + { + MVL_LOG_ERR2 ("Error removing variable='%s' from domain='%s'", + var->name, dom->name); + return (SD_FAILURE); + } + } + +/* Delete the Journal control table. */ +/* DEBUG: Should use mvl_vmd_jou_remove here but it can't fail, so */ +/* using mvl_jou_destroy is just as good for now. */ + if (dom->max_num_jou) + { + for (i = 0; i < dom->num_jou; ++i) + mvl_jou_destroy (dom->jou_tbl[i]); + } + dom->num_jou = 0; + return (SD_SUCCESS); + } + +/************************************************************************/ +/* mvl_vmd_dom_remove */ +/************************************************************************/ + +ST_RET mvl_vmd_dom_remove (MVL_VMD_CTRL *vmd_ctrl, ST_CHAR *dom_name) + { +MVL_DOM_CTRL *dom; +ST_RET retcode = SD_FAILURE; + + dom = mvl_vmd_find_dom (vmd_ctrl, dom_name); + if (dom != NULL) + { + /* Remove all objects in domain before delete/destroy.*/ + retcode = mvl_dom_cleanup (vmd_ctrl, dom); + if (retcode) + MVL_LOG_ERR1 ("Error removing objects from domain, so cannot remove domain '%s'", + dom->name); + else + { /* cleanup successful */ + /* NOTE: this delete should never fail because we already found it.*/ + dom = mvl_vmd_dom_delete (vmd_ctrl, dom_name); + if (dom != NULL) + mvl_dom_destroy (dom); /* cannot fail. retcode already = SD_SUCCESS*/ + else + retcode = SD_FAILURE; /* delete failed. Should never happen */ + } + } + return (retcode); + } + +/************************************************************************/ +/* mvl_dom_destroy */ +/* NOTE: this assumes all objects already removed from domain. */ +/************************************************************************/ + +ST_VOID mvl_dom_destroy (MVL_DOM_CTRL *dom) + { + if (u_mvl_dom_destroy != NULL) + (*u_mvl_dom_destroy)(dom); + + if (dom->max_num_var_assoc != 0) + M_FREE (MSMEM_GEN, dom->var_assoc_tbl); + + if (dom->max_num_nvlist != 0) + M_FREE (MSMEM_GEN, dom->nvlist_tbl); + + if (dom->max_num_jou != 0) + M_FREE (MSMEM_GEN, dom->jou_tbl); + + M_FREE (MSMEM_GEN, dom); + } + +/************************************************************************/ +/**** VARIABLE ASSOCIATIONS */ +/************************************************************************/ +/* mvl_vmd_var_add */ +/* Add a variable association. Allocate, fill in, and insert into table.*/ +/* NOT RECOMMENDED: use mvl_var_add_alloc. */ +/************************************************************************/ + +MVL_VAR_ASSOC *mvl_vmd_var_add (MVL_VMD_CTRL *vmd_ctrl, OBJECT_NAME *obj, MVL_NET_INFO *net_info, + ST_INT type_id, + ST_VOID *data, + MVL_VAR_PROC *proc, + ST_BOOLEAN copy_name) + { +MVL_VAR_ASSOC *va; +MVL_DOM_CTRL *dom = NULL; + +/* Find domain, if necessary, before allocating anything. */ + if (obj->object_tag==DOM_SPEC && (dom = mvl_vmd_find_dom (vmd_ctrl, obj->domain_id)) == NULL) + { + MVL_LOG_ERR2 ("Error creating VAR '%s': domain '%s' not found", + obj->obj_name.vmd_spec, obj->domain_id); + return (NULL); + } + + va = mvl_var_create (obj, type_id, data, proc, copy_name); + +/* Insert it in table. */ + if (va) + { + if (mvl_vmd_var_insert (vmd_ctrl, va, obj, net_info)) + { /* Failed. */ + mvl_var_destroy (va); /* destroy var just created */ + return (NULL); + } + } + + return (va); + } + +/************************************************************************/ +/* mvl_var_create */ +/* NOT RECOMMENDED: use mvl_var_create_alloc. */ +/************************************************************************/ + +MVL_VAR_ASSOC *mvl_var_create (OBJECT_NAME *obj, ST_INT type_id, + ST_VOID *data, MVL_VAR_PROC *proc, + ST_BOOLEAN copy_name) + { +MVL_VAR_ASSOC *va; +MVL_TYPE_CTRL *type_ctrl; + + type_ctrl = mvl_type_ctrl_find (type_id); + if (type_ctrl == NULL) + { + MVL_LOG_ERR0 ("Cannot create variable (type_id invalid)."); + return (NULL); + } + +/* Allocate object and fill in "name". */ + if (copy_name) + { + va = (MVL_VAR_ASSOC *) M_CALLOC (MSMEM_GEN, 1, sizeof (MVL_VAR_ASSOC) + + strlen (obj->obj_name.vmd_spec) + 1); + va->name = (ST_CHAR *) (va+1); + strcpy (va->name, obj->obj_name.vmd_spec); /* copy name */ + } + else + { + va = (MVL_VAR_ASSOC *) M_CALLOC (MSMEM_GEN, 1, sizeof (MVL_VAR_ASSOC)); + va->name = obj->obj_name.vmd_spec; /* point to user buffer */ + } + +/* Fill in rest of object. */ + va->type_id = type_id; + va->type_ctrl = type_ctrl; /* don't need to call mvl_get_runtime */ + /* to get type details. */ + va->data = data; +#if defined(MVL_UCA) +/* If caller set the data ptr (!=NULL), assume they want to use static data.*/ + if (data!=NULL) + va->use_static_data = SD_TRUE; +#endif + va->proc = proc; + return (va); + } + +/************************************************************************/ +/* mvl_var_add_alloc */ +/* Add a variable association. Allocate, fill in, and insert into table.*/ +/************************************************************************/ +MVL_VAR_ASSOC *mvl_var_add_alloc (MVL_VMD_CTRL *vmd_ctrl, + OBJECT_NAME *obj, + MVL_NET_INFO *net_info, + ST_INT type_id, + MVL_VAR_PROC *proc) + { +MVL_VAR_ASSOC *va; +MVL_DOM_CTRL *dom = NULL; + +/* Find domain, if necessary, before allocating anything. */ + if (obj->object_tag==DOM_SPEC && (dom = mvl_vmd_find_dom (vmd_ctrl, obj->domain_id)) == NULL) + { + MVL_LOG_ERR2 ("Error creating VAR '%s': domain '%s' not found", + obj->obj_name.vmd_spec, obj->domain_id); + return (NULL); + } + + va = mvl_var_create_alloc (obj->obj_name.vmd_spec, type_id, proc); + +/* Insert it in table. */ + if (va) + { + if (mvl_vmd_var_insert (vmd_ctrl, va, obj, net_info)) + { /* Failed. */ + mvl_var_destroy (va); /* destroy var just created */ + return (NULL); + } + } + return (va); + } + +/************************************************************************/ +/* mvl_var_create_alloc */ +/* Create a new variable. ALWAYS allocate a buffer for */ +/* the data (buffer is automatically freed when variable is destroyed). */ +/* CRITICAL: DO NOT use for "derived" variables. Instead use */ +/* mvl_var_create_derived. */ +/************************************************************************/ +MVL_VAR_ASSOC *mvl_var_create_alloc (ST_CHAR *name, + ST_INT type_id, + MVL_VAR_PROC *proc) + { +MVL_VAR_ASSOC *va; +MVL_TYPE_CTRL *type_ctrl; + + type_ctrl = mvl_type_ctrl_find (type_id); + if (type_ctrl == NULL) + { + MVL_LOG_ERR0 ("Cannot create variable (type_id invalid)."); + return (NULL); + } + + /* Allocate one buffer for MVL_VAR_ASSOC plus "data" plus "name". */ + va = (MVL_VAR_ASSOC *) chk_calloc (1, + sizeof (MVL_VAR_ASSOC) /* space for struct*/ + + type_ctrl->data_size /* space for "data"*/ + + strlen (name) + 1); /* space for "name"*/ + + /* Set data ptr right after MVL_VAR_ASSOC struct. */ + /* NOTE: data is before name so alignment should be good for any data.*/ + va->data = (va+1); + /* Set name ptr right after data. */ + va->name = ((ST_CHAR *) (va->data)) + type_ctrl->data_size; + + strcpy (va->name, name); /* copy name */ + + /* Fill in rest of object. */ + va->type_id = type_id; + va->type_ctrl = type_ctrl; /* save for easy access later. */ + + va->use_static_data = SD_TRUE; /* always SD_TRUE */ + + va->proc = proc; + return (va); + } + +/************************************************************************/ +/* mvl_var_create_derived */ +/* Create a "derived" variable. */ +/* NOTE: Structure member "proc" always set to NULL. */ +/* Structure member "data" points inside base variable. */ +/************************************************************************/ + +MVL_VAR_ASSOC *mvl_var_create_derived (ST_CHAR *name, + ST_INT type_id, + MVL_VAR_ASSOC *baseVa, /* base variable from which to derive */ + ST_INT offset_from_base, + ST_RTINT prim_num) + { +MVL_VAR_ASSOC *va; +MVL_TYPE_CTRL *type_ctrl; + + type_ctrl = mvl_type_ctrl_find (type_id); + if (type_ctrl == NULL) + { + MVL_LOG_ERR0 ("Cannot create variable (type_id invalid)."); + return (NULL); + } + +/* Allocate object and fill in "name". */ + va = (MVL_VAR_ASSOC *) chk_calloc (1, sizeof (MVL_VAR_ASSOC) + + strlen (name) + 1); + va->name = (ST_CHAR *) (va+1); + strcpy (va->name, name); /* copy name */ + +/* Fill in rest of object. */ + va->type_id = type_id; + va->type_ctrl = type_ctrl; /* save for easy access later. */ + + /* va->proc = NULL (due to calloc above) */ + + /* Set special "va" elements only for derived variables. */ + va->base_va = baseVa; + va->user_info = baseVa->user_info; + + /* Save offset_from_base & prim_num passed as arguments. */ + va->offset_from_base = offset_from_base; + va->prim_num = prim_num; + + if (va->base_va->use_static_data) + va->data = (((ST_CHAR *) va->base_va->data) + va->offset_from_base); + /* else caller must set va->data. */ + + return (va); + } + +/************************************************************************/ +/* mvl_vmd_var_remove */ +/************************************************************************/ + +ST_RET mvl_vmd_var_remove (MVL_VMD_CTRL *vmd_ctrl, OBJECT_NAME *obj, MVL_NET_INFO *net_info) + { +MVL_VAR_ASSOC *va; + + /* First find it & make sure it is deletable. */ + va = mvl_vmd_find_var (vmd_ctrl, obj, net_info); + if (va == NULL || mvl_var_deletable (vmd_ctrl, va) == SD_FALSE) + { + MVL_LOG_ERR1 ("Error deleting variable='%s': not found or not deletable.", + obj->obj_name.vmd_spec); + return (SD_FAILURE); + } + + va = mvl_vmd_var_delete (vmd_ctrl, obj, net_info); + if (va == NULL) + return (SD_FAILURE); + + mvl_var_destroy (va); + return (SD_SUCCESS); + } + +/************************************************************************/ +/* mvl_var_destroy */ +/************************************************************************/ + +ST_VOID mvl_var_destroy (MVL_VAR_ASSOC *va) + { + if (u_mvl_var_destroy != NULL) + (*u_mvl_var_destroy)(va); + + /* "last_data" may have been allocated if this var used in NVL. */ + if (va->last_data) + chk_free (va->last_data); + /* renxiaobao 日志 + if (va->last_log_data) + chk_free (va->last_log_data);*/ + M_FREE (MSMEM_GEN, va); + } + + +/************************************************************************/ +/**** NAMED VARIABLE LISTS */ +/************************************************************************/ +/* mvl_vmd_nvl_add */ +/* Add a Named Variable List. Allocate, fill in, and insert into table. */ +/************************************************************************/ + +MVL_NVLIST_CTRL *mvl_vmd_nvl_add (MVL_VMD_CTRL *vmd_ctrl, OBJECT_NAME *nvl_obj, MVL_NET_INFO *net_info, + ST_INT num_var, + OBJECT_NAME *var_obj, /* array of var names */ + ST_BOOLEAN copy_name) + { +MVL_NVLIST_CTRL *nvl; +MVL_DOM_CTRL *dom = NULL; + +/* Find domain, if necessary, before allocating anything. */ + if (nvl_obj->object_tag==DOM_SPEC && (dom = mvl_vmd_find_dom (vmd_ctrl, nvl_obj->domain_id)) == NULL) + { + MVL_LOG_ERR2 ("Error creating NVL '%s': domain '%s' not found", + nvl_obj->obj_name.vmd_spec, nvl_obj->domain_id); + return (NULL); + } + +/* Allocate it AND fill it in. */ + nvl = mvl_nvl_create (vmd_ctrl, nvl_obj->obj_name.vmd_spec, num_var, var_obj, net_info, copy_name); + if (nvl == NULL) + return (NULL); + +/* Add scope info to "nvl". */ + nvl->nvl_scope.scope = nvl_obj->object_tag; + nvl->nvl_scope.dom = dom; /* NOTE: NULL if not DOM_SPEC (see above) */ + +/* Insert it in table. */ + if (mvl_vmd_nvl_insert (vmd_ctrl, nvl, nvl_obj, net_info)) + { /* Failed. */ + mvl_nvl_destroy (nvl); + return (NULL); + } + + return (nvl); + } + +/************************************************************************/ +/* mvl_nvl_create */ +/************************************************************************/ +/* Given a list of MMS object names, create a MVL Named Variable List. */ +/* This can include both configured and MVLU manufactured variables */ +/* Use 'mvl_nvl_destroy' to free this NVL. */ + +MVL_NVLIST_CTRL *mvl_nvl_create (MVL_VMD_CTRL *vmd_ctrl, + ST_CHAR *nvlName, + ST_INT numNames, + OBJECT_NAME *var_obj, /* array of var obj names*/ + MVL_NET_INFO *net_info, /* where to find var_obj*/ + /* if it is AA_SPEC */ + ST_BOOLEAN copy_name) + { +MVL_NVLIST_CTRL *nvl; +ST_INT j; + +/* Allocate object and fill in "name". */ + if (copy_name) + { + nvl = (MVL_NVLIST_CTRL *) M_CALLOC (MSMEM_GEN, 1, sizeof (MVL_NVLIST_CTRL) + + strlen (nvlName) + 1); + nvl->name = (ST_CHAR *) (nvl+1); + strcpy (nvl->name, nvlName); /* copy name */ + } + else + { + nvl = (MVL_NVLIST_CTRL *) M_CALLOC (MSMEM_GEN, 1, sizeof (MVL_NVLIST_CTRL)); + nvl->name = nvlName; /* point to user buffer */ + } + +/* Fill in rest of object. */ + + nvl->entries = (MVL_VAR_ASSOC **) M_CALLOC (MSMEM_GEN, numNames, + sizeof (MVL_VAR_ASSOC *)); + nvl->va_scope = (MVL_SCOPE *) M_CALLOC (MSMEM_GEN, numNames, + sizeof (MVL_SCOPE)); + nvl->num_of_entries = numNames; + + for (j = 0; j < nvl->num_of_entries; ++j, ++var_obj) + { + MVL_VAR_ASSOC *var; + if ((nvl->entries[j] = var = _mvl_objname_to_va (vmd_ctrl, net_info, MMSOP_INFO_RPT, + var_obj, &nvl->va_scope[j], SD_FALSE, NULL, NULL)) == NULL) + { + MVL_LOG_ERR2 ("Error creating NVL '%s': member variable '%s' not found", + nvlName, var_obj->obj_name.vmd_spec); + mvl_nvl_destroy (nvl); + return (NULL); + } + else + { +#if defined(MVL_UCA) + /* Alloc buffer for last data (used for IEC/UCA reports). */ + if (!var->last_data) + var->last_data = chk_calloc (1, mvl_type_ctrl[var->type_id].data_size); + /*renxiaobao 日志 + if (!var->last_log_data) + var->last_log_data = chk_calloc (1, mvl_type_ctrl[var->type_id].data_size);*/ +#endif + } + } + + return (nvl); + } + + +/************************************************************************/ +/* mvl_vmd_nvl_remove */ +/* Remove a Named Variable List. Delete it from table and "destroy" it. */ +/************************************************************************/ + +ST_RET mvl_vmd_nvl_remove (MVL_VMD_CTRL *vmd_ctrl, OBJECT_NAME *obj, MVL_NET_INFO *net_info) + { +MVL_NVLIST_CTRL *nvl; + +/* First find it & make sure it is deletable. */ + nvl = mvl_vmd_find_nvl (vmd_ctrl, obj, net_info); + if (nvl == NULL || mvl_nvl_deletable (vmd_ctrl, nvl) == SD_FALSE) + { + MVL_LOG_ERR1 ("Error deleting NVL='%s': not found or not deletable.", + obj->obj_name.vmd_spec); + return (SD_FAILURE); + } + +/* Delete it from table. */ + if ((nvl = mvl_vmd_nvl_delete (vmd_ctrl, obj, net_info)) == NULL) + return (SD_FAILURE); /* nvl not found */ + +/* Destroy it. */ + mvl_nvl_destroy (nvl); + return (SD_SUCCESS); + } + +/************************************************************************/ +/* mvl_nvl_destroy */ +/************************************************************************/ +/* Free a MVL Named Variable List created by 'mvl_nvl_create' */ + +ST_VOID mvl_nvl_destroy (MVL_NVLIST_CTRL *nvl) + { +MVL_VAR_ASSOC *va; +ST_INT i; + + if (u_mvl_nvl_destroy != NULL) + (*u_mvl_nvl_destroy)(nvl); + +/* Free up any manufactured variables */ + for (i = 0; i < nvl->num_of_entries; ++i) + { + va = nvl->entries[i]; +#if defined(MVL_UCA) || defined(USE_MANUFACTURED_OBJS) +/* NOTE: "va" may be NULL if mvl_nvl_create failed while adding entries.*/ + if (va && va->va_to_free == va) + { + //u_mvl_free_va (MMSOP_INFO_RPT, va, NULL);//lnk编译删除，原å‰ç½®ç¨‹åºæœªä½¿ç”¨ + } +#endif + } + + M_FREE (MSMEM_GEN, nvl->entries); + M_FREE (MSMEM_GEN, nvl->va_scope); + M_FREE (MSMEM_GEN, nvl); + } + +/************************************************************************/ +/**** JOURNALS */ +/************************************************************************/ +/* mvl_vmd_jou_add */ +/* Add a Journal. Allocate, fill in, and insert into table. */ +/************************************************************************/ + +MVL_JOURNAL_CTRL *mvl_vmd_jou_add (MVL_VMD_CTRL *vmd_ctrl, OBJECT_NAME *obj, MVL_NET_INFO *net_info, + ST_BOOLEAN copy_name) + { +MVL_JOURNAL_CTRL *jou; + + jou = mvl_jou_create (obj, net_info, copy_name); + if (mvl_vmd_jou_insert (vmd_ctrl, jou, obj, net_info)) + { /* Failed. */ + M_FREE (MSMEM_GEN, jou); + return (NULL); + } + return (jou); + } + +/************************************************************************/ +/* mvl_jou_create */ +/************************************************************************/ + +MVL_JOURNAL_CTRL *mvl_jou_create (OBJECT_NAME *obj, MVL_NET_INFO *net_info, + ST_BOOLEAN copy_name) + { +MVL_JOURNAL_CTRL *jou; + +/* Allocate object and fill in "name". */ + if (copy_name) + { + jou = (MVL_JOURNAL_CTRL *) M_CALLOC (MSMEM_GEN, 1, sizeof (MVL_JOURNAL_CTRL) + + strlen (obj->obj_name.vmd_spec) + 1); + jou->name = (ST_CHAR *) (jou+1); + strcpy (jou->name, obj->obj_name.vmd_spec); /* copy name */ + } + else + { + jou = (MVL_JOURNAL_CTRL *) M_CALLOC (MSMEM_GEN, 1, sizeof (MVL_JOURNAL_CTRL)); + jou->name = obj->obj_name.vmd_spec; /* point to user buffer */ + } + + return (jou); + } + +/************************************************************************/ +/* mvl_vmd_jou_remove */ +/************************************************************************/ + +ST_RET mvl_vmd_jou_remove (MVL_VMD_CTRL *vmd_ctrl, OBJECT_NAME *obj, MVL_NET_INFO *net_info) + { +MVL_JOURNAL_CTRL *jou; + + jou = mvl_vmd_jou_delete (vmd_ctrl, obj, net_info); + if (jou == NULL) + return (SD_FAILURE); + + mvl_jou_destroy (jou); + return (SD_SUCCESS); + } + +/************************************************************************/ +/* mvl_jou_destroy */ +/************************************************************************/ + +ST_VOID mvl_jou_destroy (MVL_JOURNAL_CTRL *jou) + { + if (u_mvl_jou_destroy != NULL) + (*u_mvl_jou_destroy)(jou); + + M_FREE (MSMEM_GEN, jou); + } + +/************************************************************************/ +/* mvl_vmd_create */ +/* Create a new VMD with empty object arrays. */ +/* Use "mvl_vmd_destroy" to destroy the VMD. */ +/************************************************************************/ +MVL_VMD_CTRL *mvl_vmd_create (ST_INT max_num_dom, + ST_INT max_num_var, + ST_INT max_num_nvl, + ST_INT max_num_journal) + { +MVL_VMD_CTRL *vmd_ctrl = chk_calloc (1, sizeof (MVL_VMD_CTRL)); + + vmd_ctrl->max_num_var_assoc = max_num_var; + if (vmd_ctrl->max_num_var_assoc) + vmd_ctrl->var_assoc_tbl = (MVL_VAR_ASSOC **) chk_calloc ( + vmd_ctrl->max_num_var_assoc, sizeof (MVL_VAR_ASSOC *)); + + vmd_ctrl->max_num_nvlist = max_num_nvl; + if (vmd_ctrl->max_num_nvlist) + vmd_ctrl->nvlist_tbl = (MVL_NVLIST_CTRL **) chk_calloc ( + vmd_ctrl->max_num_nvlist, sizeof (MVL_NVLIST_CTRL *)); + + vmd_ctrl->max_num_dom = max_num_dom; + if (vmd_ctrl->max_num_dom) + vmd_ctrl->dom_tbl = (MVL_DOM_CTRL **) chk_calloc ( + vmd_ctrl->max_num_dom, sizeof (MVL_DOM_CTRL *)); + + vmd_ctrl->max_num_jou = max_num_journal; + if (vmd_ctrl->max_num_jou) + vmd_ctrl->jou_tbl = (MVL_JOURNAL_CTRL **) chk_calloc ( + vmd_ctrl->max_num_jou, sizeof (MVL_JOURNAL_CTRL *)); + + return (vmd_ctrl); + }; + +/************************************************************************/ +/* mvl_vmd_destroy */ +/* Destroy all objects in this VMD. */ +/* RETURNS: SD_SUCCESS or error code */ +/************************************************************************/ +ST_RET mvl_vmd_destroy (MVL_VMD_CTRL *vmd_ctrl) + { +ST_RET ret; +ST_INT j; +MVL_DOM_CTRL *dom; + + ret = SD_SUCCESS; /* default ret val: returned if LD linked list empty.*/ + + /* Remove all NVL from this VMD and from all Domains before deleting */ + /* Domains. NVLs might reference vars in other domains. */ + /* CRITICAL: Must be done first, or vars can't be destroyed later. */ + ret = mvl_nvl_remove_all (vmd_ctrl); + if (ret) + { + MVL_LOG_ERR0 ("Error destroying VMD: failed removing all NVL."); + return (ret); + } + + /* Delete VMD-Specific Variables. */ + for (j = 0; j < vmd_ctrl->num_var_assoc; ++j) + mvl_var_destroy (vmd_ctrl->var_assoc_tbl[j]); + vmd_ctrl->num_var_assoc = 0; + + /* Delete Domains (always VMD-Specific). */ + while ((dom = mvl_vmd_dom_find_last (vmd_ctrl)) != NULL) + { + ret = mvl_vmd_dom_remove (vmd_ctrl, dom->name); + + if (ret != SD_SUCCESS) + break; + } + + /* Destroy all types for this VMD. */ + if (ret == SD_SUCCESS) + ret = mvl_vmd_type_id_destroy_all (vmd_ctrl); + + /* Finally, free the tables and the VMD itself (allocated by mvl_vmd_create).*/ + /* NOTE: can't do this for "mvl_vmd" because it was created by Foundry.*/ + if (vmd_ctrl != &mvl_vmd) + { + if (vmd_ctrl->var_assoc_tbl) + chk_free (vmd_ctrl->var_assoc_tbl); + if (vmd_ctrl->nvlist_tbl) + chk_free (vmd_ctrl->nvlist_tbl); + if (vmd_ctrl->dom_tbl) + chk_free (vmd_ctrl->dom_tbl); + if (vmd_ctrl->jou_tbl) + chk_free (vmd_ctrl->jou_tbl); + chk_free (vmd_ctrl); + } + + return (ret); + } + + diff --git a/mmslib/mvlu/mvl_objb.c b/mmslib/mvlu/mvl_objb.c new file mode 100644 index 0000000..1587438 --- /dev/null +++ b/mmslib/mvlu/mvl_objb.c @@ -0,0 +1,755 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1999 - 2002, All Rights Reserved */ +/* */ +/* MODULE NAME : mvl_objb.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* Functions for maintaining arrays of "generic objects" */ +/* using "bsearch". */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* mvl_obj_insert */ +/* mvl_obj_delete */ +/* mvl_obj_find */ +/* mvl_obj_find_key */ +/* mvl_vmd_dom_insert */ +/* mvl_vmd_var_insert */ +/* mvl_vmd_nvl_insert */ +/* mvl_vmd_jou_insert */ +/* mvl_vmd_dom_delete */ +/* mvl_vmd_var_delete */ +/* mvl_vmd_nvl_delete */ +/* mvl_vmd_jou_delete */ +/* mvl_vmd_find_dom */ +/* mvl_vmd_find_var */ +/* mvl_vmd_find_nvl */ +/* mvl_vmd_find_jou */ +/* mvl_vmd_dom_find_last */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 02/01/07 JRB 14 Fix function names in module header. */ +/* 10/30/06 JRB 13 Add vmd_ctrl arg to several functions & chg */ +/* prefix from "mvl_" to "mvl_vmd_". */ +/* Also add net_info arg to "mvl_vmd_find_*" */ +/* so global _mvl_curr_net_info not needed. */ +/* Move all obj delete functs from mvl_obj.c to here.*/ +/* 01/30/06 GLB 12 Integrated porting changes for VMS */ +/* 04/11/05 CRM 11 Added mvl_dom_find_last */ +/* 11/11/04 MDE 10 Check for 0 elements before calling bsearch */ +/* 01/23/02 EJV 09 Added journals to domain: */ +/* mvl_jou_insert - added DOM_SPEC case */ +/* mvl_find_jou - added DOM_SPEC case */ +/* mvl_sort_objs - added qsort dom->jou_tbl */ +/* 04/14/00 JRB 08 Move sort & compare code FROM mvl_obj.c to */ +/* here and make it ANSI compatible. */ +/* 04/10/00 JRB 07 Fix usage of bsearch to be ANSI compatible. */ +/* 09/15/99 JRB 06 Move mvl_obj_nosort here for DOS link */ +/* 09/13/99 MDE 05 Added SD_CONST modifiers */ +/* 09/07/99 MDE 04 Changed MVL_VA_SCOPE to MVL_SCOPE, added */ +/* scope to MVL_NVLIST_CTRL */ +/* 04/07/99 MDE 03 Logging improvements */ +/* 03/18/99 MDE 02 Enhanced dynamic object facilities */ +/* 01/15/99 JRB 01 Created */ +/************************************************************************/ +#include "glbtypes.h" +#include "sysincs.h" +#include "mvl_defs.h" +#include "mvl_log.h" + + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +ST_BOOLEAN mvl_obj_nosort; + +/************************************************************************/ +/* Local functions. */ +/************************************************************************/ +int _mvl_obj_compare (const void *obj1, const void *obj2); + +/************************************************************************/ +/* Static variables. */ +/************************************************************************/ +/* NONE */ + +/************************************************************************/ +/* mvl_obj_insert */ +/* NOTE: newElement should point to a "real" structure that has already */ +/* been allocated. This allows this function to work without */ +/* caring about the size of the "real" structure. */ +/* This function just adds the ptr to the array of ptrs. */ +/************************************************************************/ + +ST_RET mvl_obj_insert (MVL_OBJ **elementTable, + ST_INT *numElement, + ST_INT maxElement, + MVL_OBJ *newElement) + { +MVL_OBJ **key; + + if (*numElement >= maxElement) + { + MVL_LOG_ERR2 ("ERROR inserting '%s' object. Max num %d exceeded.", + newElement->name, maxElement); + return (SD_FAILURE); /* No more room in array. */ + } + +/* Check to see if we are bulk updating, and put at end if so */ + if (mvl_obj_nosort || (*numElement == 0)) + { + elementTable [(*numElement)++] = newElement; /* Add to end of array */ + } + else + { + /* Make sure it's not already in array. Can't have duplicates. */ + if (*numElement) + key = (MVL_OBJ **) bsearch (&newElement, elementTable, *numElement, + sizeof (MVL_OBJ *), _mvl_obj_compare); + else + key = NULL; + + if (key != NULL) + { + MVL_LOG_ERR1 ("ERROR inserting '%s' object. Duplicate.", + newElement->name); + return (SD_FAILURE); /* Already in array. */ + } + /* Add to array and resort. */ + elementTable [(*numElement)++] = newElement; /* Add to end of array */ + qsort (elementTable, *numElement, sizeof (MVL_OBJ *), _mvl_obj_compare); + } + + return (SD_SUCCESS); + } + + +/************************************************************************/ +/* mvl_obj_delete */ +/************************************************************************/ + +MVL_OBJ *mvl_obj_delete (MVL_OBJ **elementTable, + ST_INT *numElement, + ST_CHAR *itemName) + { +MVL_OBJ *el; +MVL_OBJ **foundElement; +MVL_OBJ **destElement; +MVL_OBJ **endElement; + +/* Locate the element of interest. We get a pointer into the array of */ +/* element pointers if it is found. */ + + foundElement = mvl_obj_find_key (elementTable, *numElement, itemName); + if (!foundElement) + return (NULL); + el = *foundElement; + +/* OK, now just move up the remaining pointers */ +/* Array was sorted before, so it will still be sorted. */ + destElement = foundElement; + endElement = elementTable + *numElement; + while (++destElement < endElement) + *(destElement-1) = *destElement; + + --(*numElement); + +/* Return the element for further work */ + return (el); + } + +/************************************************************************/ +/* mvl_obj_find */ +/* This function is used to locate an element that is referenced in a */ +/* sorted table of element pointers. */ +/************************************************************************/ + +MVL_OBJ *mvl_obj_find (MVL_OBJ **elementTable, + ST_INT numElement, + ST_CHAR *itemName) + { +MVL_OBJ **key; + + /* First find just the "key". */ + key = mvl_obj_find_key (elementTable, numElement, itemName); + + /* If key != NULL, return "*key", else return NULL. */ + if (key) /* "key" is pointer to pointer to structure. */ + return (*key); /* "*key" is pointer to structure. */ + + return (NULL); /* Not found!! */ + } + +/************************************************************************/ +/* mvl_obj_find_key */ +/* This function is used to locate an element that is referenced in a */ +/* sorted table of element pointers. */ +/* This function only finds the key. Convenient for delete function. */ +/************************************************************************/ + +MVL_OBJ **mvl_obj_find_key (MVL_OBJ **elementTable, + ST_INT numElement, + ST_CHAR *itemName) + { +MVL_OBJ **key; +MVL_OBJ TmpObj; /* Temporary object to search for. */ +MVL_OBJ *pTmpObj; /* ptr to temp object. */ + + if (numElement == 0) + return (NULL); + +/* Create a element from the itemName, such that a pointer to the */ +/* element pointer can be passed to the search function. */ + TmpObj.name = itemName; + pTmpObj = &TmpObj; + + if (numElement) + key = (MVL_OBJ **) bsearch (&pTmpObj, elementTable, numElement, + sizeof (MVL_OBJ *), _mvl_obj_compare); + else + key = NULL; + + return (key); + } + +/************************************************************************/ +/* mvl_vmd_dom_insert */ +/************************************************************************/ +ST_RET mvl_vmd_dom_insert (MVL_VMD_CTRL *vmd_ctrl, MVL_DOM_CTRL *dom) + { +/* Domain can only be VMD_SPEC, so this one is easy. */ + return (mvl_obj_insert ((MVL_OBJ **) vmd_ctrl->dom_tbl, + &vmd_ctrl->num_dom, vmd_ctrl->max_num_dom, + (MVL_OBJ *) dom)); + } + +/************************************************************************/ +/* mvl_vmd_var_insert */ +/************************************************************************/ +ST_RET mvl_vmd_var_insert (MVL_VMD_CTRL *vmd_ctrl, MVL_VAR_ASSOC *va, OBJECT_NAME *obj, + MVL_NET_INFO *net_info) /* Only used if AA_SPEC */ + { +ST_RET retcode = SD_FAILURE; +MVL_DOM_CTRL *dom; +MVL_AA_OBJ_CTRL *aa_objs; + + switch (obj->object_tag) + { + case VMD_SPEC: + retcode = mvl_obj_insert ((MVL_OBJ **) vmd_ctrl->var_assoc_tbl, + &vmd_ctrl->num_var_assoc, vmd_ctrl->max_num_var_assoc, + (MVL_OBJ *) va); + break; + + case DOM_SPEC: + if ((dom = mvl_vmd_find_dom (vmd_ctrl, obj->domain_id))) + retcode = mvl_obj_insert ((MVL_OBJ **) dom->var_assoc_tbl, + &dom->num_var_assoc, dom->max_num_var_assoc, + (MVL_OBJ *) va); + else + { + MVL_LOG_NERR1 ("Insert var: Domain '%s' not found", obj->domain_id); + } + break; + + case AA_SPEC: + if (net_info) + { + aa_objs = net_info->aa_objs; + retcode = mvl_obj_insert ((MVL_OBJ **) aa_objs->var_assoc_tbl, + &aa_objs->num_var_assoc, aa_objs->max_num_var_assoc, + (MVL_OBJ *) va); + } + else + MVL_LOG_ERR0 ("Association not known. Cannot insert Application Association-specific variable."); + break; + + default: + MVL_LOG_ERR1 ("Illegal scope for '%s'", obj->obj_name.vmd_spec); + break; + } + return (retcode); + } + +/************************************************************************/ +/* mvl_vmd_nvl_insert */ +/************************************************************************/ +ST_RET mvl_vmd_nvl_insert (MVL_VMD_CTRL *vmd_ctrl, MVL_NVLIST_CTRL *nvl, OBJECT_NAME *obj, + MVL_NET_INFO *net_info) /* Only used if AA_SPEC */ + { +ST_RET retcode = SD_FAILURE; +MVL_DOM_CTRL *dom; +MVL_AA_OBJ_CTRL *aa_objs; + + switch (obj->object_tag) + { + case VMD_SPEC: + retcode = mvl_obj_insert ((MVL_OBJ **) vmd_ctrl->nvlist_tbl, + &vmd_ctrl->num_nvlist, vmd_ctrl->max_num_nvlist, + (MVL_OBJ *) nvl); + nvl->nvl_scope.scope = VMD_SPEC; + break; + + case DOM_SPEC: + if ((dom = mvl_vmd_find_dom (vmd_ctrl, obj->domain_id))) + retcode = mvl_obj_insert ((MVL_OBJ **) dom->nvlist_tbl, + &dom->num_nvlist, dom->max_num_nvlist, + (MVL_OBJ *) nvl); + else + { + MVL_LOG_NERR1 ("Insert NVL: Domain '%s' not found", obj->domain_id); + } + nvl->nvl_scope.scope = DOM_SPEC; + nvl->nvl_scope.dom = dom; + break; + + case AA_SPEC: + if (net_info) + { + aa_objs = net_info->aa_objs; + retcode = mvl_obj_insert ((MVL_OBJ **) aa_objs->nvlist_tbl, + &aa_objs->num_nvlist, aa_objs->max_num_nvlist, + (MVL_OBJ *) nvl); + nvl->nvl_scope.scope = AA_SPEC; + } + else + MVL_LOG_ERR0 ("Association not known. Cannot insert Application Association-specific NVL."); + break; + + default: + MVL_LOG_ERR1 ("Illegal scope for '%s'", obj->obj_name.vmd_spec); + break; + } + return (retcode); + } + +/************************************************************************/ +/* mvl_vmd_jou_insert */ +/************************************************************************/ +ST_RET mvl_vmd_jou_insert (MVL_VMD_CTRL *vmd_ctrl, MVL_JOURNAL_CTRL *jou, OBJECT_NAME *obj, + MVL_NET_INFO *net_info) /* Only used if AA_SPEC */ + { +ST_RET retcode = SD_FAILURE; +MVL_AA_OBJ_CTRL *aa_objs; +MVL_DOM_CTRL *dom; + + switch (obj->object_tag) + { + case VMD_SPEC: + retcode = mvl_obj_insert ((MVL_OBJ **) vmd_ctrl->jou_tbl, + &vmd_ctrl->num_jou, vmd_ctrl->max_num_jou, + (MVL_OBJ *) jou); + break; + + case AA_SPEC: + if (net_info) + { + aa_objs = net_info->aa_objs; + retcode = mvl_obj_insert ((MVL_OBJ **) aa_objs->jou_tbl, + &aa_objs->num_jou, aa_objs->max_num_jou, + (MVL_OBJ *) jou); + } + else + MVL_LOG_ERR0 ("Association not known. Cannot insert Application Association-specific journal."); + break; + + case DOM_SPEC: + dom = mvl_vmd_find_dom (vmd_ctrl, obj->domain_id); + if (dom) + retcode = mvl_obj_insert ((MVL_OBJ **) dom->jou_tbl, + &dom->num_jou, dom->max_num_jou, (MVL_OBJ *) jou); + else + { + MVL_LOG_NERR1 ("Insert journal: Domain '%s' not found", obj->domain_id); + } + break; + + default: + /* NOTE: DOM_SPEC illegal for journals. */ + MVL_LOG_ERR1 ("Illegal scope for '%s'", obj->obj_name.vmd_spec); + break; + } + return (retcode); + } + +/************************************************************************/ +/* mvl_vmd_dom_delete */ +/************************************************************************/ +MVL_DOM_CTRL *mvl_vmd_dom_delete (MVL_VMD_CTRL *vmd_ctrl, ST_CHAR *dom_name) + { +MVL_DOM_CTRL *dom; + + dom = (MVL_DOM_CTRL *) mvl_obj_delete ((MVL_OBJ **) vmd_ctrl->dom_tbl, + &vmd_ctrl->num_dom, dom_name); + return (dom); + } + + +/************************************************************************/ +/* mvl_vmd_var_delete */ +/************************************************************************/ +MVL_VAR_ASSOC *mvl_vmd_var_delete (MVL_VMD_CTRL *vmd_ctrl, OBJECT_NAME *obj, + MVL_NET_INFO *net_info) /* Only used if AA_SPEC */ + { +MVL_VAR_ASSOC *va; +MVL_DOM_CTRL *dom; +MVL_AA_OBJ_CTRL *aa_objs; +ST_CHAR *name; + + va = NULL; + name = obj->obj_name.vmd_spec; /* We know this is a union ... */ + switch (obj->object_tag) + { + case VMD_SPEC: + va = (MVL_VAR_ASSOC *) mvl_obj_delete ((MVL_OBJ **) vmd_ctrl->var_assoc_tbl, + &vmd_ctrl->num_var_assoc, name); + break; + + case DOM_SPEC: + if ((dom = mvl_vmd_find_dom (vmd_ctrl, obj->domain_id))) + va = (MVL_VAR_ASSOC *) mvl_obj_delete ((MVL_OBJ **) dom->var_assoc_tbl, + &dom->num_var_assoc, name); + else + { + MVL_LOG_NERR1 ("Delete var: Domain '%s' not found", obj->domain_id); + } + break; + + case AA_SPEC: + if (net_info) + { + aa_objs = net_info->aa_objs; + va = (MVL_VAR_ASSOC *) mvl_obj_delete ((MVL_OBJ **) aa_objs->var_assoc_tbl, + &aa_objs->num_var_assoc, name); + } + else + MVL_LOG_ERR0 ("Association not known. Cannot delete Application Association-specific variable."); + break; + + default: + MVL_LOG_ERR1 ("Illegal scope for '%s'", name); + break; + } + return (va); + } + +/************************************************************************/ +/* mvl_vmd_nvl_delete */ +/************************************************************************/ +MVL_NVLIST_CTRL *mvl_vmd_nvl_delete (MVL_VMD_CTRL *vmd_ctrl, OBJECT_NAME *obj, + MVL_NET_INFO *net_info) /* Only used if AA_SPEC */ + { +MVL_NVLIST_CTRL *nvl = NULL; +MVL_DOM_CTRL *dom; +MVL_AA_OBJ_CTRL *aa_objs; +ST_CHAR *name; + + name = obj->obj_name.vmd_spec; /* We know this is a union ... */ + + switch (obj->object_tag) + { + case VMD_SPEC: + nvl = (MVL_NVLIST_CTRL *) mvl_obj_delete ((MVL_OBJ **) vmd_ctrl->nvlist_tbl, + &vmd_ctrl->num_nvlist, name); + break; + + case DOM_SPEC: + if ((dom = mvl_vmd_find_dom (vmd_ctrl, obj->domain_id))) + nvl = (MVL_NVLIST_CTRL *) mvl_obj_delete ((MVL_OBJ **) dom->nvlist_tbl, + &dom->num_nvlist, name); + else + { + MVL_LOG_NERR1 ("Delete NVL: Domain '%s' not found", obj->domain_id); + } + break; + + case AA_SPEC: + if (net_info) + { + aa_objs = net_info->aa_objs; + nvl = (MVL_NVLIST_CTRL *) mvl_obj_delete ((MVL_OBJ **) aa_objs->nvlist_tbl, + &aa_objs->num_nvlist, name); + } + else + MVL_LOG_ERR0 ("Association not known. Cannot delete Application Association-specific NVL."); + break; + + default: + MVL_LOG_ERR1 ("Illegal scope for '%s'", name); + break; + } + return (nvl); + } + +/************************************************************************/ +/* mvl_vmd_jou_delete */ +/************************************************************************/ +MVL_JOURNAL_CTRL *mvl_vmd_jou_delete (MVL_VMD_CTRL *vmd_ctrl, OBJECT_NAME *obj, + MVL_NET_INFO *net_info) /* Only used if AA_SPEC */ + { +MVL_JOURNAL_CTRL *jou; +MVL_AA_OBJ_CTRL *aa_objs; +MVL_DOM_CTRL *dom; +ST_CHAR *name; + + jou = NULL; + name = obj->obj_name.vmd_spec; /* We know this is a union ... */ + switch (obj->object_tag) + { + case VMD_SPEC: + jou = (MVL_JOURNAL_CTRL *) mvl_obj_delete ((MVL_OBJ **) vmd_ctrl->jou_tbl, + &vmd_ctrl->num_jou, name); + break; + + case AA_SPEC: + if (net_info) + { + aa_objs = net_info->aa_objs; + jou = (MVL_JOURNAL_CTRL *) mvl_obj_delete ((MVL_OBJ **) aa_objs->jou_tbl, + &aa_objs->num_jou, name); + } + else + MVL_LOG_ERR0 ("Association not known. Cannot delete Application Association-specific journal."); + break; + + case DOM_SPEC: + dom = mvl_vmd_find_dom (vmd_ctrl, obj->domain_id); + if (dom) + jou = (MVL_JOURNAL_CTRL *) mvl_obj_delete ((MVL_OBJ **) dom->jou_tbl, + &dom->num_jou, name); + else + { + MVL_LOG_NERR1 ("Delete journal: Domain '%s' not found", obj->domain_id); + } + break; + + default: + MVL_LOG_ERR1 ("Illegal scope for '%s'", name); + break; + } + return (jou); + } + +/************************************************************************/ +/* mvl_vmd_find_dom */ +/************************************************************************/ + +MVL_DOM_CTRL *mvl_vmd_find_dom (MVL_VMD_CTRL *vmd_ctrl, ST_CHAR *name) + { +MVL_DOM_CTRL *result; + + result = (MVL_DOM_CTRL *) mvl_obj_find ((MVL_OBJ **) vmd_ctrl->dom_tbl, + vmd_ctrl->num_dom, name); + return(result); + } + +/************************************************************************/ +/* mvl_vmd_dom_find_last */ +/* Find the last domain. */ +/************************************************************************/ +MVL_DOM_CTRL *mvl_vmd_dom_find_last (MVL_VMD_CTRL *vmd_ctrl) + { +MVL_DOM_CTRL *dom; + + if (vmd_ctrl->num_dom > 0) + dom = vmd_ctrl->dom_tbl [vmd_ctrl->num_dom-1]; + else + dom = NULL; /* no more dynamically created domains. */ + return (dom); + } + +/************************************************************************/ +/* mvl_vmd_find_var */ +/* This function finds the 'variable association' for a particular var */ +/* name. */ +/************************************************************************/ + +MVL_VAR_ASSOC *mvl_vmd_find_var (MVL_VMD_CTRL *vmd_ctrl, + OBJECT_NAME *obj, + MVL_NET_INFO *net_info) /* Only used if AA_SPEC */ + { +MVL_DOM_CTRL *dom; +MVL_AA_OBJ_CTRL *aa; +ST_CHAR *name; + + name = obj->obj_name.vmd_spec; /* We know this is a union ... */ + + switch (obj->object_tag) + { + case VMD_SPEC : + return ((MVL_VAR_ASSOC *) mvl_obj_find ((MVL_OBJ **) vmd_ctrl->var_assoc_tbl, + vmd_ctrl->num_var_assoc, name)); + case DOM_SPEC : + dom = mvl_vmd_find_dom (vmd_ctrl, obj->domain_id); + if (dom) + return ((MVL_VAR_ASSOC *) mvl_obj_find ((MVL_OBJ **) dom->var_assoc_tbl, + dom->num_var_assoc, name)); + else + { + MVL_LOG_NERR1 ("Find Va: Domain '%s' not found", obj->domain_id); + } + break; + + case AA_SPEC : + if (net_info) + { + aa = (MVL_AA_OBJ_CTRL *) net_info->aa_objs; + return ((MVL_VAR_ASSOC *) mvl_obj_find ((MVL_OBJ **) aa->var_assoc_tbl, + aa->num_var_assoc, name)); + } + else + MVL_LOG_ERR0 ("Association not known. Cannot find Application Association-specific variable."); + break; + + default: + MVL_LOG_ERR1 ("Illegal scope for '%s'", name); + break; + } + return (NULL); + } + +/************************************************************************/ +/* mvl_vmd_find_nvl */ +/************************************************************************/ + +MVL_NVLIST_CTRL *mvl_vmd_find_nvl (MVL_VMD_CTRL *vmd_ctrl, + OBJECT_NAME *obj, + MVL_NET_INFO *net_info) /* Only used if AA_SPEC */ + { +MVL_DOM_CTRL *dom; +MVL_AA_OBJ_CTRL *aa; +ST_CHAR *name; + +/* Get the NVL name. We know this is a union ... */ + name = obj->obj_name.vmd_spec; + + switch (obj->object_tag) + { + case VMD_SPEC : + return ((MVL_NVLIST_CTRL *) mvl_obj_find ((MVL_OBJ **) vmd_ctrl->nvlist_tbl, + vmd_ctrl->num_nvlist, name)); + case DOM_SPEC : + dom = mvl_vmd_find_dom (vmd_ctrl, obj->domain_id); + if (dom) + return ((MVL_NVLIST_CTRL *) mvl_obj_find ((MVL_OBJ **) dom->nvlist_tbl, + dom->num_nvlist, name)); + else + { + MVL_LOG_NERR1 ("Find NVL: Domain '%s' not found", obj->domain_id); + } + break; + + case AA_SPEC : + if (net_info) + { + aa = (MVL_AA_OBJ_CTRL *) net_info->aa_objs; + return ((MVL_NVLIST_CTRL *) mvl_obj_find ((MVL_OBJ **) aa->nvlist_tbl, + aa->num_nvlist, name)); + } + else + MVL_LOG_ERR0 ("Association not known. Cannot find Application Association-specific NVL."); + break; + + default: + MVL_LOG_ERR1 ("Illegal scope for '%s'", name); + break; + } + return (NULL); + } + +/************************************************************************/ +/* mvl_vmd_find_jou */ +/* This function finds the 'journal control' corresponding to 'obj'. */ +/************************************************************************/ + +MVL_JOURNAL_CTRL *mvl_vmd_find_jou (MVL_VMD_CTRL *vmd_ctrl, + OBJECT_NAME *obj, + MVL_NET_INFO *net_info) /* Only used if AA_SPEC */ + { +MVL_AA_OBJ_CTRL *aa_objs; +MVL_DOM_CTRL *dom; +ST_CHAR *name; + + name = obj->obj_name.vmd_spec; /* We know this is a union ... */ + + switch (obj->object_tag) + { + case VMD_SPEC : + return ((MVL_JOURNAL_CTRL *) mvl_obj_find ((MVL_OBJ **) vmd_ctrl->jou_tbl, + vmd_ctrl->num_jou, name)); + break; + + case AA_SPEC : + if (net_info) + { + aa_objs = (MVL_AA_OBJ_CTRL *) net_info->aa_objs; + return ((MVL_JOURNAL_CTRL *) mvl_obj_find ((MVL_OBJ **) aa_objs->jou_tbl, + aa_objs->num_jou, name)); + } + else + MVL_LOG_ERR0 ("Association not known. Cannot find Application Association-specific journal."); + break; + + case DOM_SPEC : + dom = mvl_vmd_find_dom (vmd_ctrl, obj->domain_id); + if (dom) + return ((MVL_JOURNAL_CTRL *) mvl_obj_find ((MVL_OBJ **) dom->jou_tbl, + dom->num_jou, name)); + else + { + MVL_LOG_NERR1 ("Find journal: Domain '%s' not found", obj->domain_id); + } + break; + + default: + /* NOTE: DOM_SPEC is illegal for Journals. */ + MVL_LOG_ERR1 ("Illegal scope for '%s'", name); + break; + } + return (NULL); + } + +/************************************************************************/ +/* mvl_sort_objs */ +/************************************************************************/ +ST_VOID mvl_sort_objs (ST_VOID) + { +ST_INT i; +MVL_DOM_CTRL *dom; + + mvl_obj_nosort = SD_FALSE; + + qsort (mvl_vmd.dom_tbl, mvl_vmd.num_dom, sizeof (MVL_OBJ *), _mvl_obj_compare); + qsort (mvl_vmd.var_assoc_tbl, mvl_vmd.num_var_assoc, sizeof (MVL_OBJ *), _mvl_obj_compare); + qsort (mvl_vmd.nvlist_tbl, mvl_vmd.num_nvlist, sizeof (MVL_OBJ *), _mvl_obj_compare); + qsort (mvl_vmd.jou_tbl, mvl_vmd.num_jou, sizeof (MVL_OBJ *), _mvl_obj_compare); + + for (i = 0; i < mvl_vmd.num_dom; ++i) + { + dom = mvl_vmd.dom_tbl[i]; + qsort (dom->var_assoc_tbl, dom->num_var_assoc, sizeof (MVL_OBJ *), _mvl_obj_compare); + qsort (dom->nvlist_tbl, dom->num_nvlist, sizeof (MVL_OBJ *), _mvl_obj_compare); + qsort (dom->jou_tbl, dom->num_jou, sizeof (MVL_OBJ *), _mvl_obj_compare); + } + } + +/************************************************************************/ +/* _mvl_obj_compare */ +/************************************************************************/ +int _mvl_obj_compare (const void *obj1, const void *obj2) + { +const MVL_OBJ **mvl_obj1 = (const MVL_OBJ **) obj1; +const MVL_OBJ **mvl_obj2 = (const MVL_OBJ **) obj2; + return (strcmp ((*mvl_obj1)->name, (*mvl_obj2)->name)); + } diff --git a/mmslib/mvlu/mvl_send.c b/mmslib/mvlu/mvl_send.c new file mode 100644 index 0000000..74cb991 --- /dev/null +++ b/mmslib/mvlu/mvl_send.c @@ -0,0 +1,176 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1994 - 2002, All Rights Reserved */ +/* */ +/* MODULE NAME : mvl_send.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* NONE */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 09/14/06 MDE 17 Log PDU when too large */ +/* 05/01/03 MDE 16 Added buffer depletion logging _mvl_send_req */ +/* 10/29/02 JRB 15 _mvl_send_req: on err, set done & result in */ +/* req_pend. Helps if user doesn't chk return. */ +/* 07/10/02 JRB 14 _mvl_send_req: call mvl_req_bufs_avail. */ +/* 07/09/02 MDE 13 Add maxpend_ind support */ +/* 01/30/02 JRB 12 Del use of stack_sel. */ +/* 09/21/01 JRB 11 Alloc global bufs only once at startup. */ +/* 05/15/00 MDE 10 Added MMS statistics */ +/* 03/08/00 JRB 09 _mvl_send_req: chk conn_active, */ +/* chk & set numpend_req, set invoke_id. */ +/* 01/21/00 MDE 08 Now use MEM_SMEM for dynamic memory */ +/* 10/28/99 RKR 07 Modified _mvl_send_resp_i */ +/* 09/13/99 MDE 06 Added SD_CONST modifiers */ +/* 12/09/98 JRB 05 Don't exceed negotiated PDU size. */ +/* Change all NERR log macros to ERR. */ +/* Free enc buf before _mvl_send_err_f. */ +/* 11/16/98 MDE 04 Renamed internal functions (prefix '_') */ +/* 11/16/98 MDE 03 Don't free request control if send error */ +/* 05/14/98 JRB 02 Add _mvl_send_resp_i function. */ +/* 09/10/97 MDE 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "mmsdefs.h" +#include "mms_pvar.h" +#include "mms_vvar.h" +#include "mvl_defs.h" +#include "mvl_log.h" + + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/* _mvl_send_resp_i */ +/* This function sends a response and frees the MVL_IND_PEND. */ +/************************************************************************/ + +ST_VOID _mvl_send_resp_i (MVL_IND_PEND *indCtrl, ST_RET build_rc) + { +MVL_NET_INFO *net_info; + + net_info = indCtrl->event->net_info; + _mvl_send_resp (indCtrl->event, build_rc); + list_unlink(&(net_info->pend_ind),indCtrl); + --net_info->numpend_ind; + M_FREE (MSMEM_IND_CTRL, indCtrl); + } + +/************************************************************************/ +/* _mvl_send_resp */ +/************************************************************************/ + +ST_VOID _mvl_send_resp (MVL_COMM_EVENT *event, ST_RET build_rc) + { +ST_RET rc; + + if (build_rc != SD_SUCCESS) + { /* Free encode buf before "_mvl_send_err_f" because it allocs new buf.*/ + MVL_LOG_ERR1 ("Response build error: rc = 0x%X", build_rc); + _mvl_send_err_f (event,7,2); + ++mvl_mms_statistics.serverRespErr; + } + else if (mmsl_msg_len > event->net_info->max_pdu_size) + { /* Free encode buf before "_mvl_send_err_f" because it allocs new buf.*/ + MVL_LOG_ERR2 ("Response build error: exceeds negotiated PDU size %d %d",mmsl_msg_len, event->net_info->max_pdu_size); + printf("Response build error: exceeds negotiated PDU size %d %d\n",mmsl_msg_len, event->net_info->max_pdu_size); + _mvl_send_err_f (event,4,3); /* Don't exceed negotiated PDU size. */ + ++mvl_mms_statistics.serverRespErr; + } + else + { + rc = _mvl_send_msg (mmsl_msg_start,mmsl_msg_len,event->net_info); + if (rc != SD_SUCCESS) + { + MVL_LOG_ERR1 ("_mvl_send_msg error, rc = %x", rc); + } + else + ++mvl_mms_statistics.serverRespOk; + + _mvl_free_comm_event (event); /* done with this event */ + } + } + + + + +/************************************************************************/ +/* _mvl_send_req */ +/************************************************************************/ + +ST_RET _mvl_send_req (MVL_NET_INFO *net_info, + MVL_REQ_PEND *req_pend, ST_RET build_rc) + { +ST_RET rc; +ST_INT bufsAvail; + + if (build_rc != SD_SUCCESS) + { + MVL_LOG_ERR1 ("Request build error, rc = %x", build_rc); + rc = build_rc; + } + else if (net_info->conn_active == SD_FALSE) + { /* Check conn_active before using net_info */ + MVL_LOG_ERR0 ("Request send error: disconnected"); + rc = MVL_ERR_CNF_DISCONNECTED; + } + else if (mmsl_msg_len > net_info->max_pdu_size) + { + MVL_LOG_ERR0 ("Request build error: exceeds negotiated PDU size"); + printf("Request build error: exceeds negotiated PDU size"); + rc = ASN1E_PDU_TOO_BIG; + } +#ifdef WIN32 + else if (net_info->numpend_req >=(net_info->maxpend_req*4)) +#else + else if (net_info->numpend_req >= net_info->maxpend_req) +#endif + { + MVL_LOG_ERR1 ("Too many requests outstanding (0x%08lx)", net_info); + rc = MVL_ERR_REQ_PEND_COUNT; + } + else if ((bufsAvail = mvl_req_bufs_avail (net_info)) <= 0) + { + MVL_LOG_ERR2 ("Not enough ACSE bufs to send confirmed request (%d, 0x%08lx)", bufsAvail, net_info); + rc = MVL_ERR_REQ_PEND_COUNT; + } + else + { + rc = _mvl_send_msg (mmsl_msg_start,mmsl_msg_len,net_info); + if (rc != SD_SUCCESS) + { + MVL_LOG_ERR1 ("_mvl_send_msg error, rc = %x", rc); + } + else + ++mvl_mms_statistics.clientReq; + } + if (rc == SD_SUCCESS) + { + /* mmsl_invoke_id already incremented on encode, so subtract one. */ + req_pend->invoke_id = mmsl_invoke_id - 1; + net_info->numpend_req++; + } + else + { + req_pend->done = SD_TRUE; + req_pend->result = rc; + } + return (rc); + } + diff --git a/mmslib/mvlu/mvl_serv.c b/mmslib/mvlu/mvl_serv.c new file mode 100644 index 0000000..3426e0d --- /dev/null +++ b/mmslib/mvlu/mvl_serv.c @@ -0,0 +1,1069 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1994 - 2005, All Rights Reserved */ +/* */ +/* MODULE NAME : mvl_serv.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* NONE */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 06/24/08 MDE 63 Added _mvl_persist_aa_objs */ +/* 05/20/08 JRB 62 Fix handling of MMSCNCLERR (Conclude ERROR). */ +/* 04/22/08 JRB 61 Move "active" chk inside semaphore lock. */ +/* Del unused MVLULOG_TIMING. */ +/* 03/05/08 JRB 60 Call _mvl_clear_aa_objs in ..net_req_done */ +/* 10/04/07 MDE 59 Tweaked LOGCFG_VALUE_GROUP/LOGCFGX_VALUE_MAP */ +/* 04/09/07 MDE 58 Enhanced filtered logging */ +/* 10/30/06 JRB 57 Del _mvl_curr_net_info, _mvl_curr_usr_ind_ctrl.*/ +/* 08/03/07 NAV 56 mvl_msg_rcvd - return after sending reject */ +/* 01/30/06 GLB 55 Integrated porting changes for VMS */ +/* 09/08/05 JRB 54 _mvl_send_reject: set rej_info->pdu_type, */ +/* send right class/code on request decode err. */ +/* Remove duplicate log msg. */ +/* 07/13/05 MDE 52 Improved reject handlng, add u_mvl_reject_ind*/ +/* 08/08/05 JRB 52 Init mvl_debug_sel = MVLLOG_ERR. */ +/* 06/02/05 JRB 51 Fix _mvl_send_reject for INVALID-PDU. */ +/* 05/24/05 EJV 50 Add mvlLogMaskMapCtrl for parsing logcfg.xml */ +/* 09/07/04 JRB 49 _mvl_get_req_ctrl: ret NULL if net_info==NULL*/ +/* 07/28/03 MDE 48 Yet another tweak to mvl_ureq_bufs_avail */ +/* 05/05/03 MDE 47 Yet another tweak to mvl_ureq_bufs_avail */ +/* 05/01/03 MDE 46 Added high water logging to (u)req_bufs_avail*/ +/* 04/28/03 JRB 45 Fix computations in mvl_(u)req_bufs_avail. */ +/* 07/09/02 JRB 44 Add mvl_(u)req_bufs_avail functions. */ +/* 07/09/02 MDE 43 Add maxpend_ind support */ +/* 05/21/02 MDE 42 Check PDU len before decoding */ +/* 05/13/02 MDE 41 Added 'skip' arg to _mvl_set_net_req_done */ +/* 05/01/02 MDE 40 Fixed conclude logging */ +/* 04/05/02 MDE 39 Added MLOG logging */ +/* 03/25/02 MDE 38 Moved error/reject elements outside union */ +/* 11/07/01 JRB 37 mvl_wait_req_done return "req->result". */ +/* 09/21/01 JRB 36 Alloc global bufs only once at startup. */ +/* 07/31/01 MDE 35 Added mvl_conn_filtered_logging */ +/* 02/22/01 GLB 34 Added: MVLULOG_DEBUG, MVLULOG_TIMING */ +/* 11/20/00 MDE 33 Fixed lockup - abort with requests out */ +/* 10/25/00 JRB 32 Del global link list of MVL_REQ_PEND. Add one*/ +/* for each conn. Save list ptr in MVL_NET_INFO.*/ +/* Del _mvl_free_req_pend function. */ +/* 10/25/00 JRB 31 Del ind & conf funct ptrs. Call directly. */ +/* Mv mvl_ind_rcvd, mvl_conf_rcvd to mvlop_en.c */ +/* so "conditional compilation" can be used. */ +/* 05/15/00 MDE 30 Added statistics */ +/* 05/12/00 RKR 29 Worked on mvl_send_reject */ +/* 04/14/00 JRB 28 Lint cleanup. */ +/* 03/08/00 JRB 27 Del #ifdef MVL_REQ_BUF_ENABLED: not used. */ +/* mvl_free_req_ctrl chk result before freeing. */ +/* 01/21/00 MDE 26 Now use MEM_SMEM for dynamic memory */ +/* 11/24/99 MDE 25 Del indCtrl from link list for info reports */ +/* 11/19/99 NAV 24 Add #ifdef MVL_REQ_BUF_ENABLED */ +/* 10/20/99 NAV 23 Additions for maxpend_req support */ +/* 11/03/99 RKR 22 Changed reject and error confirm results */ +/* 11/02/99 RKR 21 Fixed a leak when a reject is received */ +/* 10/28/99 RKR 20 Added mvl_clr_ind_que */ +/* 10/06/99 GLB 19 Added changes to accomodate file rename */ +/* 09/13/99 MDE 18 Added SD_CONST modifiers */ +/* 04/01/99 MDE 17 Changes to decode buffer allocation scheme */ +/* 03/03/99 MDE 16 Changed 'mvl_max_req_pend' to 10000 */ +/* 12/08/98 MDE 15 Cleanup on request control handling */ +/* 11/16/98 MDE 14 Renamed internal functions (prefix '_') */ +/* 11/16/98 MDE 13 Cleanup, conclude changes, removed simple */ +/* request control, renamed concat_filename */ +/* 10/08/98 MDE 12 Migrated to updated SLOG interface */ +/* 10/01/98 DWL 11 Added get domain attributes client */ +/* Added get name list client */ +/* Added get status client */ +/* 09/21/98 MDE 10 Minor lint cleanup */ +/* 06/15/98 MDE 09 Changes to allow compile under C++ */ +/* 05/13/98 JRB 08 Set req->result=CNF_REJ_ERR in mvl_reject_rcvd*/ +/* Add _mplas_err_resp & _mvl_concat_filename. */ +/* 04/21/98 MDE 07 Added service logging */ +/* 04/15/98 JRB 06 mvl_conf_rcvd: do all common processing, */ +/* pass req_pend to all "ml_*_conf_proc". */ +/* Add client support for more services. */ +/* Free comm_event, etc. from mvl_free_req_ctrl */ +/* Init "result" in _mvl_get_req_ctrl. */ +/* Add _mvl_conf_reject, _mvl_ind_reject. */ +/* 02/10/98 MDE 05 Added get domain attributes server */ +/* 12/22/97 MDE 04 Changed 'mvl_comm_serve' to report activity */ +/* 12/12/97 MDE 03 _mvl_send_reject now returns ST_VOID */ +/* 12/10/97 MDE 02 Added JREAD/JINIT */ +/* 09/10/97 MDE 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" +#include "mmsdefs.h" +#include "mms_err.h" +#include "mvl_defs.h" +#include "mvl_log.h" +#include "mloguser.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +ST_UINT mvl_debug_sel = MVLLOG_ERR; +#ifdef DEBUG_SISCO +SD_CONST ST_CHAR *SD_CONST _mvllog_err_logstr = "MVLLOG_ERR"; +SD_CONST ST_CHAR *SD_CONST _mvllog_nerr_logstr = "MVLLOG_NERR"; +SD_CONST ST_CHAR *SD_CONST _mvllog_acse_logstr = "MVLLOG_ACSE"; +SD_CONST ST_CHAR *SD_CONST _mvllog_acsedata_logstr = "MVLLOG_ACSEDATA"; +SD_CONST ST_CHAR *SD_CONST _mvlulog_flow_logstr = "MVLULOG_FLOW"; +SD_CONST ST_CHAR *SD_CONST _mvlulog_debug_logstr = "MVLULOG_DEBUG"; + +LOGCFGX_VALUE_MAP mvlLogMaskMaps[] = + { + {"MVLLOG_ERR", MVLLOG_ERR, &mvl_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "Error"}, + {"MVLLOG_NERR", MVLLOG_NERR, &mvl_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "Notice"}, + {"MVLLOG_ACSE", MVLLOG_ACSE, &mvl_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "ACSE"}, + {"MVLLOG_ACSEDATA", MVLLOG_ACSEDATA, &mvl_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "ACSEData"}, + {"MVLULOG_FLOW", MVLULOG_FLOW, &mvl_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "Flow"}, + {"MVLULOG_DEBUG", MVLULOG_DEBUG, &mvl_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "Debug"} + }; + +LOGCFG_VALUE_GROUP mvlLogMaskMapCtrl = + { + {NULL,NULL}, + "MvlLogMasks", /* Parent Tag */ + sizeof(mvlLogMaskMaps)/sizeof(LOGCFGX_VALUE_MAP), + mvlLogMaskMaps + }; +#endif /* DEBUG_SISCO */ + +ST_BOOLEAN mvl_conn_filtered_logging; + +ST_BOOLEAN _mvl_persist_aa_objs; + +/************************************************************************/ +/* User defined function, called repetitively by MVL client functions */ +/* while waiting for confirm. If this function returns SD_TRUE, the */ +/* request will timeout and return SD_FAILURE. */ + +ST_BOOLEAN (*u_mvl_check_timeout)(ST_VOID); + +/************************************************************************/ +/* These functions are used internally by mvl_comm_serve () */ + +static ST_VOID mvl_msg_rcvd (MVL_COMM_EVENT *event); +static ST_VOID mvl_error_rcvd (MVL_COMM_EVENT *event); +static ST_VOID mvl_reject_rcvd (MVL_COMM_EVENT *event); + +static ST_VOID _mvl_send_reject_net_info (MVL_NET_INFO *net_info, + REJECT_RESP_INFO *rej_info); + +/************************************************************************/ +/************************************************************************/ +/* mvl_comm_serve */ +/* General MMS communication service */ +/************************************************************************/ + +ST_BOOLEAN _mvl_comm_serve_active; + +ST_BOOLEAN mvl_comm_serve () + { +MVL_COMM_EVENT *event; +ST_BOOLEAN activityFlag; + + + S_LOCK_COMMON_RESOURCES (); + /* Check for re-entrancy. This must be inside the lock so only one */ + /* thread is accessing the global "_mvl_comm_serve_active". */ + if (_mvl_comm_serve_active) + { + MVL_LOG_ERR0 ("Error: mvl_comm_serve re-entered"); + S_UNLOCK_COMMON_RESOURCES (); /* unlock sem before return */ + return (SD_FALSE); + } + _mvl_comm_serve_active = SD_TRUE; +/* Call the network service routine, see if it has anything for us */ +/* to deal with */ + activityFlag = _mvl_net_service (&event); + if (event) + { + switch (event->event_type) + { + case MMS_MSG_RCVD : + mvl_msg_rcvd (event); + break; + + default : + _mvl_free_comm_event (event); /* All done with this event */ + break; + } + } + _mvl_comm_serve_active = SD_FALSE; + S_UNLOCK_COMMON_RESOURCES (); + return (activityFlag); + } + +/************************************************************************/ +/* mvl_msg_rcvd */ +/* This function is called by mvl_comm_serve when a MMS message */ +/* has been received. */ +/************************************************************************/ + +static ST_VOID mvl_msg_rcvd (MVL_COMM_EVENT *event) + { +MMSDEC_INFO *rslt; +MVL_REQ_PEND *req_pend; +ST_INT pdu_len; + + rslt = &event->u.mms.dec_rslt; + pdu_len = event->u.mms.pdu_len; + + +/* Verify that the message is less than or equal to negiotiated */ + if (pdu_len > event->net_info->max_pdu_size) + { + MVL_LOG_NERR2 ("MMS PDU too long: %d rxd, %d max", + pdu_len, event->net_info->max_pdu_size); + printf("MMS PDU too long: %d rxd, %d max", + pdu_len, event->net_info->max_pdu_size); + _mvl_send_reject (event); + return; + } + +/* some kind of message was received, need to decode and act on it */ + _ms_mms_decode (event->u.mms.pdu, pdu_len, rslt); + rslt->data_ptr = _mms_dec_info; + + if (rslt->err_code == NO_DECODE_ERR) + { + switch (rslt->type) + { + case MMSREQ : + /* We can log here if so desired */ + if ((mms_debug_sel & MMS_LOG_IND) && ml_log_ind_info_fun != NULL) + { + if (mvl_conn_filtered_logging == SD_FALSE || event->net_info->log_enable) + (*ml_log_ind_info_fun) (rslt->id, rslt->op, rslt->data_ptr); + } + mvl_ind_rcvd (event); + break; + case MMSUNREQ : + /* We can log here if so desired */ + if ((mms_debug_sel & MMS_LOG_IND) && ml_log_unsol_ind_info_fun != NULL) + { + if (mvl_conn_filtered_logging == SD_FALSE || event->net_info->log_enable) + (*ml_log_unsol_ind_info_fun) (rslt->op, rslt->data_ptr); + } + mvl_ind_rcvd (event); + break; + + case MMSRESP : + /* We can log here if so desired */ + if ((mms_debug_sel & MMS_LOG_CONF) && ml_log_conf_info_fun != NULL) + { + if (mvl_conn_filtered_logging == SD_FALSE || event->net_info->log_enable) + (*ml_log_conf_info_fun) (rslt->id, rslt->op, rslt->data_ptr); + } + mvl_conf_rcvd (event); + break; + + + case MMSREJECT : + /* We can log here if so desired */ + if ((mms_debug_sel & MMS_LOG_CONF) && ml_log_reject_recv_fun != NULL) + { + if (mvl_conn_filtered_logging == SD_FALSE || event->net_info->log_enable) + (*ml_log_reject_recv_fun) (rslt->data_ptr); + } + mvl_reject_rcvd (event); + break; + + case MMSERROR : + if ((mms_debug_sel & MMS_LOG_CONF) && ml_log_error_conf_fun != NULL) + { + if (mvl_conn_filtered_logging == SD_FALSE || event->net_info->log_enable) + (*ml_log_error_conf_fun) (rslt->id, rslt->data_ptr); + } + mvl_error_rcvd (event); + break; + + case MMSCNCLERR : + if ((mms_debug_sel & MMS_LOG_CONF) && ml_log_error_conf_fun != NULL) + { + if (mvl_conn_filtered_logging == SD_FALSE || event->net_info->log_enable) + (*ml_log_error_conf_fun) (rslt->id, rslt->data_ptr); + } + /* Find Conclude request sent on this connection & mark it as failed.*/ + req_pend = _mvl_find_req_ctrl (event->net_info, + MMSOP_CONCLUDE, (ST_UINT32) -1); + if (!req_pend) + { /* this should almost never fail. */ + MVL_LOG_ERR0 ("Negative Conclude Confirm received: Error finding request control"); + _mvl_free_comm_event (event); /* All done with this event */ + return; + } + req_pend->done = SD_TRUE; + req_pend->result = SD_FAILURE; + break; + + case MMSCNCLRESP : + /* We can log here if so desired */ + if ((mms_debug_sel & MMS_LOG_CONF) && ml_log_conf_info_fun != NULL) + { + if (mvl_conn_filtered_logging == SD_FALSE || event->net_info->log_enable) + (*ml_log_conf_info_fun) (rslt->id, MMSOP_CONCLUDE, NULL); + } + req_pend = _mvl_find_req_ctrl (event->net_info, + MMSOP_CONCLUDE, (ST_UINT32) -1); + if (!req_pend) + { + MVL_LOG_NERR1 ("%s Confirmation : mvl_find_req_ctrl failed", + mms_op_string [event->u.mms.dec_rslt.op]); + _mvl_free_comm_event (event); /* All done with this event */ + return; + } + req_pend->event = event; + mvl_concl_conf_rcvd (req_pend); + break; + + case MMSCNCLREQ : + /* We can log here if so desired */ + if ((mms_debug_sel & MMS_LOG_IND) && ml_log_ind_info_fun != NULL) + { + if (mvl_conn_filtered_logging == SD_FALSE || event->net_info->log_enable) + (*ml_log_ind_info_fun) (rslt->id, MMSOP_CONCLUDE, NULL); + } + mvl_concl_ind_rcvd (event); + break; + +/* Unexpected PDU types */ + case MMSCANREQ : + /* We can log here if so desired */ + if ((mms_debug_sel & MMS_LOG_IND) && ml_log_ind_info_fun != NULL) + (*ml_log_ind_info_fun) (rslt->id, rslt->op, rslt->data_ptr); + mvl_cancel_ind_rcvd (event); + break; + + case MMSCANRESP : + MVL_LOG_NERR0 ("Unexpected MMS PDU type received: Cancel Response"); + _mvl_send_reject (event); + break; + + case MMSCANERR : + MVL_LOG_NERR0 ("Unexpected MMS PDU type received: Cancel Error"); + _mvl_send_reject (event); + break; + + case MMSINITREQ : + MVL_LOG_NERR0 ("Unexpected MMS PDU type received: Initiate Request"); + _mvl_send_reject (event); + break; + + case MMSINITRESP : + MVL_LOG_NERR0 ("Unexpected MMS PDU type received: Initiate Response"); + _mvl_send_reject (event); + break; + + case MMSINITERR : + MVL_LOG_NERR0 ("Unexpected MMS PDU type received: Initiate Error"); + _mvl_send_reject (event); + break; + + case UNKNOWNTYPE : + MVL_LOG_NERR0 ("Unexpected MMS PDU type received: Unknown"); + _mvl_send_reject (event); + break; + + default : + MVL_LOG_NERR1 ("Unexpected MMS PDU type received: %d", rslt->type); + _mvl_send_reject (event); + break; + } + } + else /* Error in decoding, need to reject the message */ + { + MVL_LOG_NERR0 ("MMS PDU decode error, sending reject"); + + /* If this was a confirmed response, try to match the request */ + req_pend = NULL; + if (rslt->dec_level >= 2 && rslt->type == MMSRESP) + { + req_pend = _mvl_find_req_ctrl (event->net_info, -1, rslt->id); + if (req_pend != NULL) + { + req_pend->event = event; + req_pend->reject_info = event->u.mms.dec_rslt.data_ptr = + (REJECT_RESP_INFO *) chk_calloc (1, sizeof (REJECT_RESP_INFO)); + event->u.mms.dec_rslt.data_pres = SD_TRUE; + + req_pend->reject_info->detected_here = SD_TRUE; + req_pend->reject_info->invoke_known = SD_TRUE; + req_pend->reject_info->invoke = rslt->id; + req_pend->reject_info->pdu_type = MMSRESP; + req_pend->reject_info->rej_class = MMS_REJ_CLASS_CONFIRMED_RESPONSE_PDU; + req_pend->reject_info->rej_code = MMS_REJ_CODE_CONFIRMED_RESPONSE_PDU_OTHER; + + _mvl_send_reject_net_info (event->net_info, req_pend->reject_info); + + _mvl_set_req_done (req_pend, MVL_ERR_CNF_REJ_ERR); + + } + else + { + MVL_LOG_CNERR0 ("Could not match confirmed request"); + } + } + + if (req_pend == NULL) + _mvl_send_reject (event); + } + } + +/************************************************************************/ +ST_VOID mvl_clr_ind_que (MVL_NET_INFO *net_info) + { +MVL_IND_PEND *pend_ind; +MVL_IND_PEND *next_ind; + +/* look at all the pending indications attached to this MVL_NET_INFO */ +/* unlink them, and deallocate them. */ + + pend_ind = net_info->pend_ind; + while(pend_ind!=NULL) + { + next_ind = (MVL_IND_PEND *) list_get_next(net_info->pend_ind,pend_ind); + list_unlink(&(net_info->pend_ind),pend_ind); + --net_info->numpend_ind; + + _mvl_free_comm_event (pend_ind->event); + + M_FREE (MSMEM_IND_CTRL, pend_ind); + pend_ind = next_ind; + } + } + +/************************************************************************/ +/* mvl_error_rcvd */ +/************************************************************************/ + +static ST_VOID mvl_error_rcvd (MVL_COMM_EVENT *event) + { +MVL_REQ_PEND *req; +ST_UINT32 id; +ST_INT op; + + ++mvl_mms_statistics.clientReqErr; + event->net_info->numpend_req--; + + id = event->u.mms.dec_rslt.id; + op = event->u.mms.dec_rslt.op; + + req = _mvl_find_req_ctrl (event->net_info, -1, id); + if (!req) + { + MVL_LOG_NERR0 ("Error Received : mvl_find_req_ctrl failed"); + _mvl_free_comm_event (event); /* All done with this event */ + return; + } + req->event = event; + req->error_info = (ERR_INFO *) req->event->u.mms.dec_rslt.data_ptr; + _mvl_set_req_done (req, MVL_ERR_CNF_ERR_OK); + } + +/************************************************************************/ +/* mvl_reject_rcvd */ +/************************************************************************/ + +static ST_VOID mvl_reject_rcvd (MVL_COMM_EVENT *event) + { +REJECT_RESP_INFO *info; +MVL_REQ_PEND *req; +ST_BOOLEAN freeCommEvent; +MVL_NET_INFO *netInfo; + + ++mvl_mms_statistics.rejectsRcvd; + netInfo = event->net_info; + netInfo->numpend_req--; + freeCommEvent = SD_TRUE; + + info = (REJECT_RESP_INFO *) event->u.mms.dec_rslt.data_ptr; + MVL_LOG_NERR2 ("Reject Received: class %d, code %d", + info->rej_class, info->rej_code); + +/* If the other node rejected our confirmed request, need to match it */ + if (info->rej_class == MMS_REJ_CLASS_CONFIRMED_REQUEST_PDU) + { + if (info->invoke_known) + { + req = _mvl_find_req_ctrl (netInfo, -1, info->invoke); + if (!req) + { + MVL_LOG_CNERR0 ("Could not match confirmed request"); + return; + } + req->event = event; + req->reject_info = + (REJECT_RESP_INFO *) req->event->u.mms.dec_rslt.data_ptr; + _mvl_set_req_done (req, MVL_ERR_CNF_REJ_ERR); + freeCommEvent = SD_FALSE; + } + } + +/* Let the user know about this */ + u_mvl_reject_ind (netInfo, info); + + if (freeCommEvent) + _mvl_free_comm_event (event); /* All done with this event */ + } + +/************************************************************************/ +/************************************************************************/ +/* This table is used to select reject class given MMS pdu type */ +/* PDU type is the index into this table */ +/************************************************************************/ + +SD_CONST ST_INT16 pdutype_to_reject_class[14] = + { + 1, /* confirmed request */ + 2, /* confirmed response */ + 3, /* confirmed error */ + 4, /* unconfirmed */ + 5, /* reject */ + 6, /* cancel request */ + 7, /* cancel response */ + 8, /* cancel error */ + 0, /* initiate req - not used */ + 0, /* initiate resp - not used */ + 0, /* initiate error - not used */ + 9, /* conclude request */ + 10, /* conclude response */ + 11 /* conclude error */ + }; + +/************************************************************************/ +/* _mvl_ind_reject */ +/* Send reject for Indication. */ +/************************************************************************/ + +ST_VOID _mvl_ind_reject (MVL_IND_PEND *ind_pend) + { +MVL_NET_INFO *net_info; + + net_info = ind_pend->event->net_info; + _mvl_send_reject (ind_pend->event); + list_unlink(&(net_info->pend_ind),ind_pend); + --net_info->numpend_ind; + + M_FREE (MSMEM_IND_CTRL, ind_pend); + } + +/************************************************************************/ +/* _mvl_conf_reject */ +/* Send reject for Confirmation. */ +/************************************************************************/ + +ST_VOID _mvl_conf_reject (MVL_REQ_PEND *req_pend) + { + _mvl_send_reject (req_pend->event); + req_pend->event = NULL; /* so mvl_free_req_ctrl doesn't try to */ + /* free it again. */ + req_pend->result = SD_FAILURE;/* Let user know it failed. */ + } + +/************************************************************************/ +/* _mvl_send_reject */ +/* This is a simple minded reject send function. If the PDU type isd */ +/* known, send a reject of the appropriate class with code == OTHER. */ +/* This is not always exactly right per the MMS service document, but */ +/* will be OK for now. */ +/************************************************************************/ + +ST_VOID _mvl_send_reject (MVL_COMM_EVENT *event) + { +ST_RET rc; +REJECT_RESP_INFO rej_info; +MMSDEC_INFO *rslt; + + S_LOCK_COMMON_RESOURCES (); + rej_info.detected_here = SD_TRUE; + rej_info.invoke_known = SD_FALSE; + rslt = &event->u.mms.dec_rslt; + if (rslt->dec_level > 0) /* If we at least know the type of PDU */ + { + rej_info.pdu_type = rslt->type; + /* If this was unrecognized confirmed request, set appropriate reject class/code. */ + if (rslt->dec_level >= 2 && rslt->type == MMSREQ && rslt->err_code==REQ_UNREC_SERV) + { + rej_info.rej_class = MMS_REJ_CLASS_CONFIRMED_REQUEST_PDU; + rej_info.rej_code = MMS_REJ_CODE_CONFIRMED_REQUEST_PDU_UNRECOGNIZED_SERVICE; + } + else + { /* set correct class, but just set code to "OTHER" (0). */ + rej_info.rej_class = pdutype_to_reject_class[rslt->type]; + rej_info.rej_code = 0; + } + + if ((rslt->dec_level >= 2) && /* if invoke ID known, use it */ + (rslt->type == MMSREQ || rslt->type == MMSRESP)) + { + rej_info.invoke_known = SD_TRUE; + rej_info.invoke = rslt->id; + } + } + else + { + rej_info.pdu_type = UNKNOWNTYPE; + rej_info.rej_class = MMS_REJ_CLASS_PDU_ERROR; + rej_info.rej_code = MMS_REJ_CODE_PDU_ERROR_INVALID_PDU; + } + + rc = mpl_reject_resp (&rej_info); + if (rc != SD_SUCCESS) + { + MVL_LOG_NERR1 ("Sending Reject : mpl_reject_resp failed, ret = %x", rc); + } + else + { /* build was OK, send it */ + rc = _mvl_send_msg (mmsl_msg_start,mmsl_msg_len, event->net_info); + if (rc != SD_SUCCESS) + { + MVL_LOG_NERR1 ("Sending Reject : _mvl_send_msg failed, ret = %x", rc); + } + else + ++mvl_mms_statistics.rejectsSent; + } + +/* Tell the user all about it ... */ + u_mvl_reject_ind (event->net_info, &rej_info); + + _mvl_free_comm_event (event); /* All done with this event */ + S_UNLOCK_COMMON_RESOURCES (); + } + + +/************************************************************************/ +/* _mvl_send_reject_net_info */ +/************************************************************************/ + +static ST_VOID _mvl_send_reject_net_info (MVL_NET_INFO *net_info, + REJECT_RESP_INFO *rej_info) + + { +ST_RET rc; + + S_LOCK_COMMON_RESOURCES (); + rc = mpl_reject_resp (rej_info); + if (rc != SD_SUCCESS) + { + MVL_LOG_NERR1 ("Sending Reject : mpl_reject_resp failed, ret = %x", rc); + } + else + { /* build was OK, send it */ + rc = _mvl_send_msg (mmsl_msg_start,mmsl_msg_len, net_info); + if (rc != SD_SUCCESS) + { + MVL_LOG_NERR1 ("Sending Reject : _mvl_send_msg failed, ret = %x", rc); + } + else + ++mvl_mms_statistics.rejectsSent; + } + +/* Tell the user all about it ... */ + u_mvl_reject_ind (net_info, rej_info); + + S_UNLOCK_COMMON_RESOURCES (); + } + + +/************************************************************************/ +/* _mplas_err_resp */ +/* This function sends an error response and frees the MVL_IND_PEND */ +/* and the MVL_COMM_EVENT. */ +/************************************************************************/ + +ST_RET _mplas_err_resp (MVL_IND_PEND *indCtrl, ST_INT16 eClass, ST_INT16 code) + { +ST_RET rc; +MVL_NET_INFO *net_info; + + net_info = indCtrl->event->net_info; + rc = _mvl_send_err_f (indCtrl->event, eClass, code); + list_unlink(&(net_info->pend_ind),indCtrl); + --net_info->numpend_ind; + + M_FREE (MSMEM_IND_CTRL, indCtrl); + ++mvl_mms_statistics.serverRespErr; + return (rc); + } + +/************************************************************************/ +/* _mvl_send_err_f */ +/* This function sends an error response and frees the MVL_COMM_EVENT. */ +/************************************************************************/ + +ST_RET _mvl_send_err_f (MVL_COMM_EVENT *event, ST_INT16 eClass, ST_INT16 code) + { +ST_RET rc; + + rc = _mvl_send_error (event, eClass, code); + _mvl_free_comm_event (event); /* All done with this event */ + return (rc); + } + +/************************************************************************/ +/* _mvl_send_error */ +/* This function is used to send an error response to a confirmed */ +/* request PDU. */ +/************************************************************************/ + +ST_RET _mvl_send_error (MVL_COMM_EVENT *event, ST_INT16 eClass, ST_INT16 code) + { +ST_RET rc; + + S_LOCK_COMMON_RESOURCES (); + rc = mpl_err_resp (event->u.mms.dec_rslt.op, + event->u.mms.dec_rslt.id, + eClass,code); + if (rc != SD_SUCCESS) + { + MVL_LOG_NERR1 ("Sending Error : mpl_err_resp failed, ret = %x", rc); + } + else + { /* build was OK, send it */ + rc = _mvl_send_msg (mmsl_msg_start,mmsl_msg_len,event->net_info); + if (rc != SD_SUCCESS) + { + MVL_LOG_NERR1 ("Sending Error : _mvl_send_msg failed, ret = %x", rc); + } + else + ++mvl_mms_statistics.serverRespErr; + } + S_UNLOCK_COMMON_RESOURCES (); + return (rc); + } + +/************************************************************************/ +/* mvl_wait_req_done */ +/* RETURNS: SD_SUCCESS or MVL error code */ +/************************************************************************/ + +ST_RET mvl_wait_req_done (MVL_REQ_PEND *req) + { + while (req->done == SD_FALSE) /* wait forever until done */ + { + if (u_mvl_check_timeout) + { + if ((*u_mvl_check_timeout)()) + { + req->result = MVL_ERR_USR_TIMEOUT; + MVL_LOG_NERR0 ("Wait Request Done : u_mvl_check_timeout timed out"); + break; + } + } + mvl_comm_serve (); /* service communications */ + } + return (req->result); + } + +/************************************************************************/ +/************************************************************************/ +/* Outstanding MMS request control handling functions */ +/************************************************************************/ + + +/************************************************************************/ +/* _mvl_get_req_ctrl */ +/************************************************************************/ + +MVL_REQ_PEND *_mvl_get_req_ctrl (MVL_NET_INFO *net_info, ST_INT16 op) + { +MVL_REQ_PEND *req; + + if (net_info == NULL) + { + MVL_LOG_NERR0 ("_mvl_get_req_ctrl error: connection invalid"); + return (NULL); + } + req = (MVL_REQ_PEND *) M_CALLOC (MSMEM_REQ_CTRL, 1, sizeof (MVL_REQ_PEND)); + S_LOCK_COMMON_RESOURCES (); + list_add_last(&net_info->req_pend_list, req); + + req->invoke_id = mmsl_invoke_id; + req->op = op; + req->done = SD_FALSE; + req->result = SD_SUCCESS; + req->net_info = net_info; + req->u_req_done = NULL; + req->event = NULL; + S_UNLOCK_COMMON_RESOURCES (); + return (req); + } + +/************************************************************************/ +/* _mvl_find_req_ctrl */ +/************************************************************************/ + +MVL_REQ_PEND *_mvl_find_req_ctrl (MVL_NET_INFO *net_info, + ST_INT op, ST_UINT32 id) + { +MVL_REQ_PEND *req; + + S_LOCK_COMMON_RESOURCES (); + req = net_info->req_pend_list; /* start at head of linked list */ + while (req != NULL) /* look through whole list */ + { + if (req->net_info == net_info && + req->invoke_id == id) + { + if (req->op == op || op == -1) + break; /* return a pointer to it */ + } + req = (MVL_REQ_PEND *) list_get_next (net_info->req_pend_list, req); + } + + S_UNLOCK_COMMON_RESOURCES (); + return (req); + } + +/************************************************************************/ +/* _mvl_set_net_req_done */ +/************************************************************************/ + +ST_VOID _mvl_set_net_req_done (MVL_REQ_PEND *skip, + MVL_NET_INFO *net_info, ST_RET result) + { +MVL_REQ_PEND *req; +MVL_REQ_PEND *next; + + req = net_info->req_pend_list; /* start at head of linked list */ + while (req != NULL) /* look through whole list */ + { + /* CRITICAL: get NEXT entry BEFORE calling _mvl_set_req_done */ + /* because it may remove THIS entry from the linked list. */ + next = (MVL_REQ_PEND *) list_get_next (net_info->req_pend_list, req); + if (req->done != SD_TRUE) + { + if (req != skip) + _mvl_set_req_done (req, result); + } + req = next; + } + + /* CRITICAL: Destroy all AA_SPEC objects on this connection. */ + /* This is a good place to do this because this function is */ + /* called on Abort.req, Abort.ind, Release.ind, or Release.cnf */ + + if (!_mvl_persist_aa_objs) + _mvl_clear_aa_objs (net_info->aa_objs); + } + + +/************************************************************************/ +/* _mvl_set_req_done */ +/************************************************************************/ + +ST_VOID _mvl_set_req_done (MVL_REQ_PEND *req, ST_RET result) + { + req->result = result; + req->done = SD_TRUE; + + if (req->u_req_done) /* Call the user done function */ + (*req->u_req_done)(req); + } + +/************************************************************************/ +/* mvl_free_req_ctrl */ +/************************************************************************/ + +ST_VOID mvl_free_req_ctrl (MVL_REQ_PEND *pend_req) + { + + + if (pend_req) + { + S_LOCK_COMMON_RESOURCES (); + + + + if (pend_req->event) + _mvl_free_comm_event (pend_req->event); + + + /* Free up extra stuff for some services. */ + /* NOTE: on error or reject the union (pend_req->u) is overwritten */ + /* so "normal" resp_info is not valid. DON'T try to free it. */ + if (pend_req->op == MMSOP_FILE_DIR && + pend_req->result != MVL_ERR_CNF_REJ_ERR && /* !reject */ + pend_req->result != MVL_ERR_CNF_ERR_OK && /* !error */ + pend_req->u.fdir.resp_info != NULL) + { /* Only do this if it was allocated (see confirm function) */ + M_FREE (MSMEM_GEN, pend_req->u.fdir.resp_info); + } + if (pend_req->op == MMSOP_READ_JOURNAL && + pend_req->result != MVL_ERR_CNF_REJ_ERR && /* !reject */ + pend_req->result != MVL_ERR_CNF_ERR_OK && /* !error */ + pend_req->u.jread.resp_info != NULL) + { /* Only do this if it was allocated (see confirm function) */ + M_FREE (MSMEM_GEN, pend_req->u.jread.resp_info); + } + + list_unlink (&pend_req->net_info->req_pend_list, pend_req); + M_FREE (MSMEM_REQ_CTRL, pend_req); + S_UNLOCK_COMMON_RESOURCES (); + } + + } + +/************************************************************************/ +/************************************************************************/ +/* mvl_init_glb_vars */ +/************************************************************************/ +/* For use when global variables cannot be initialized at compile time */ + +#if defined(NO_GLB_VAR_INIT) + +ST_VOID mvl_init_glb_vars (ST_VOID) + { + m_init_glb_vars (); + _mvlop_en_init () + } +#endif + +/************************************************************************/ +/* _mvl_concat_filename */ +/************************************************************************/ +ST_RET _mvl_concat_filename (ST_CHAR *good_name, + ST_INT num_of_fname, + FILE_NAME *fname_arr, + ST_INT max_len) /* size of array to fill in (i.e. good_name) */ + { +ST_INT j; +ST_INT total_len; + + for (j = 0, total_len = 0; j < num_of_fname; j++) + total_len += fname_arr[j].fn_len; + + if (total_len + 1 > max_len) /* Must leave room for NULL */ + return (SD_FAILURE); + + for (j = 0, total_len = 0; j < num_of_fname; j++) + { + memcpy (&good_name [total_len], fname_arr[j].fname, fname_arr[j].fn_len); + total_len += fname_arr[j].fn_len; + } + good_name [total_len] = '\x00'; /* add NULL terminator */ + return (SD_SUCCESS); + } + +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ +/* _mvl_calloc_os */ +/************************************************************************/ + +ST_VOID *_mvl_calloc_os (ST_UINT num, ST_UINT size) + { + return (M_CALLOC (MSMEM_DEC_OS_INFO, 1, size)); + } + +/************************************************************************/ +/* _mvl_realloc_os */ +/************************************************************************/ + +ST_VOID *_mvl_realloc_os (ST_VOID *old, ST_UINT new_size) + { + return (M_REALLOC (MSMEM_DEC_OS_INFO, old,new_size)); + } + +/************************************************************************/ +/* _mvl_free_os */ +/************************************************************************/ + +ST_VOID _mvl_free_os (ST_VOID *buf) + { + M_FREE (MSMEM_DEC_OS_INFO, buf); + } + +/************************************************************************/ +/* mvl_req_bufs_avail */ +/* Return number of buffers available for sending "confirmed" requests. */ +/************************************************************************/ + +ST_INT mvlLowWaterAvail = 50; +ST_INT mvlLowWaterReqAvail = 50; +ST_INT mvlLowWaterUReqAvail = 50; + +ST_INT mvl_req_bufs_avail (MVL_NET_INFO *net_info) + { +ST_INT avail; + + avail = a_buffers_avail (net_info->acse_conn_id); + if (avail < mvlLowWaterAvail) + { + mvlLowWaterAvail = avail; + MVLU_LOG_DEBUG1 ("Low water 'buffers available': %d", mvlLowWaterAvail); + } + + /* Must have enough buffers avail to respond to max num of indications.*/ + /* Doesn't matter how many indications are currently pending because */ + /* at any momemt could get a bunch of indications and must ALWAYS */ + /* have buffers available to respond to the maximum. */ + + avail -= net_info->maxpend_ind; + + if (avail < mvlLowWaterReqAvail) + { + mvlLowWaterReqAvail = avail; + MVLU_LOG_DEBUG1 ("Low water 'Req buffers available': %d", mvlLowWaterReqAvail); + } + return (avail); + } + +/************************************************************************/ +/* mvl_ureq_bufs_avail */ +/* Return number of buffers available for sending "unconfirmed" reqs */ +/************************************************************************/ + +ST_INT mvl_ureq_bufs_avail (MVL_NET_INFO *net_info) + { +ST_INT avail; + + avail = a_buffers_avail (net_info->acse_conn_id); + if (avail < mvlLowWaterAvail) + { + mvlLowWaterAvail = avail; + MVLU_LOG_DEBUG1 ("Low water 'buffers available': %d", mvlLowWaterAvail); + } + + /* Must have enough buffers avail to respond to max num of indications.*/ + /* Doesn't matter how many indications are currently pending because */ + /* at any momemt could get a bunch of indications and must ALWAYS */ + /* have buffers available to respond to the maximum. */ + + /* Because we don't know when response buffers are release by SUIC, */ + /* we always assume that we must be able to send the max resp at any */ + /* time. This means that when there really ARE max resp pend in SUIC */ + /* we reserve twice as many as we need ... */ + + avail -= (net_info->maxpend_ind * 2); /* reserve maximum */ + + /* Must have enough buffers avail to send max num of "confirmed" reqs.*/ + /* Doesn't matter how many requests are currently pending because */ + /* at any momemt could get a bunch of confirms and may want to send */ + /* new requests. So, we need to have buffers reserved for the max. */ + avail -= (net_info->maxpend_req); + + if (avail < mvlLowWaterUReqAvail) + { + mvlLowWaterUReqAvail = avail; + MVLU_LOG_DEBUG1 ("Low water 'UReq buffers' available': %d", mvlLowWaterUReqAvail); + } + return (avail); + } + diff --git a/mmslib/mvlu/mvl_typ2.c b/mmslib/mvlu/mvl_typ2.c new file mode 100644 index 0000000..371e2b8 --- /dev/null +++ b/mmslib/mvlu/mvl_typ2.c @@ -0,0 +1,322 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2000 - 2000, All Rights Reserved */ +/* */ +/* MODULE NAME : mvl_typ2.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* Dynamic type creation/destruction functions. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* mvl_type_id_create */ +/* mvl_type_id_destroy */ +/* mvl_type_id_create_from_tdl */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 07/11/07 JRB 12 mvl_type_id_destroy2: Reset struct to all 0. */ +/* 11/22/06 JRB 11 mvl_type_id_create_from_tdl: clean up on err.*/ +/* 10/30/06 JRB 10 Replace static mvl_type_id_create2 with */ +/* extern mvl_vmd_type_id_create which has */ +/* vmd_ctrl arg. */ +/* Add "mvl_vmd_type_id_destroy(_all)". */ +/* Add mvl_type_count. */ +/* 01/30/06 GLB 09 Integrated porting changes for VMS */ +/* 04/11/05 CRM 08 Added mvl_type_id_destroy_all_dyn */ +/* 03/14/05 CRM 07 Replaced _mvlu_num_dyn_types variable with */ +/* mvl_max_dyn.types. */ +/* 06/29/04 JRB 06 Add mvl_type_id_create_from_tdl. */ +/* 09/18/03 JRB 05 mvl_type_id_create: Allow type_name==NULL. */ +/* 03/13/03 JRB 04 Use static funcs mvl_type_id_create2/destroy2.*/ +/* In create2, make sure name not already used. */ +/* Call mvlu_proc_rt_type for UCA types. */ +/* MVL_TYPE_CTRL: type_name is now array, copy to it*/ +/* 11/11/02 JRB 03 Use NEW ms_runtime_create/destroy (new args).*/ +/* 09/05/00 JRB 02 Use mvl_get_runtime_dyn to find runtime type.*/ +/* 09/05/00 JRB 01 Created. Moved code here from "mvl_type.c". */ +/************************************************************************/ +#include "glbtypes.h" +#include "sysincs.h" + +#include "mmsdefs.h" +#include "mms_pvar.h" +#include "mms_vvar.h" +#include "mvl_defs.h" +#include "mvl_log.h" +#include "mvl_uca.h" /* need mvlu_proc_rt_type proto */ + + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/* Static function prototypes. */ +/************************************************************************/ +static RUNTIME_CTRL *mvl_type_id_destroy2 (ST_INT typeId); + +/************************************************************************/ +/* mvl_type_id_create */ +/* RETURNS: */ +/* Type Id (or -1 on error) */ +/* NOTE: Use "mvl_type_id_destroy" to destroy this object. */ +/************************************************************************/ +ST_INT mvl_type_id_create (ST_CHAR *type_name, ST_UCHAR *asn1_data, ST_UINT asn1_len) + { +RUNTIME_CTRL *rt_ctrl; +ST_INT TypeId = -1; /* assume failure */ + + rt_ctrl = ms_runtime_create (asn1_data, asn1_len, + (UINT_MAX/sizeof(RUNTIME_TYPE))-100); + if (rt_ctrl) + { /* "runtime create" successful, do "step 2". */ + TypeId = mvl_vmd_type_id_create (&mvl_vmd, /* assume global VMD */ + type_name, rt_ctrl); + if (TypeId < 0) /* "step 2" failed, so destroy runtime just created.*/ + ms_runtime_destroy (rt_ctrl); + } + return (TypeId); + } + +/************************************************************************/ +/* mvl_type_id_destroy */ +/* Destroy object created by "mvl_type_id_create". */ +/************************************************************************/ +ST_VOID mvl_type_id_destroy (ST_INT TypeId) + { +RUNTIME_CTRL *rt_ctrl; + rt_ctrl = mvl_type_id_destroy2 (TypeId); /* remove it from list */ + if (rt_ctrl) + ms_runtime_destroy (rt_ctrl); /* destroy it */ + else + { +#ifndef WIN32 + MVL_LOG_ERR1 ("mvl_type_id_destroy error: TypeId %d not dynamically created", TypeId); +#endif + } + } + +/************************************************************************/ +/* mvl_type_id_destroy_all_dyn */ +/* Destroy dynamic type ids. */ +/************************************************************************/ +ST_RET mvl_type_id_destroy_all_dyn () + { +ST_INT j; +ST_INT type_id_first_dyn; /* type_id of first dynamic type */ + + /* Loop through all dynamic types. */ + type_id_first_dyn = mvl_num_types - mvl_max_dyn.types; + for (j = type_id_first_dyn; j < mvl_num_types; j++) + { + if (mvl_type_ctrl[j].num_rt != 0) /* != 0 indicates this type_id used.*/ + mvl_type_id_destroy (j); /* destroy it. */ + } + return (SD_SUCCESS); /* at present, no way to fail. */ + } + +/************************************************************************/ +/* mvl_vmd_type_id_create */ +/* Second step of creating type_id. */ +/* RETURNS: */ +/* Type Id (or -1 on error) */ +/************************************************************************/ +ST_INT mvl_vmd_type_id_create (MVL_VMD_CTRL *vmd_ctrl, ST_CHAR *type_name, RUNTIME_CTRL *rt_ctrl) + { +ST_INT typeId; +MVL_TYPE_CTRL *type_ctrl; /* ptr to current array element */ + + assert (vmd_ctrl); /* VMD must be valid */ + + /* This assertion fails if the global array mvl_type_ctrl is not initialized + * To avoid this, create dynamic types ONLY AFTER "mvl_init_type_ctrl" + * (in Foundry output "c" file) is called. + */ + assert (mvl_type_ctrl); /* make sure type control initialized */ + + /* If named, make sure name not too long & name not already used. */ + if (type_name!=NULL) + { + if (strlen (type_name) >= sizeof (type_ctrl->type_name)) + return (-1); /* type_name exceeds max allowed size */ + + for (typeId = 0; typeId < mvl_num_types; ++typeId) + { + type_ctrl = &mvl_type_ctrl[typeId]; /* ptr to array elem*/ + if (type_ctrl->num_rt!=0 && type_ctrl->type_name!=NULL + && strcmp (type_ctrl->type_name, type_name) == 0) + { + MVL_LOG_ERR1 ("Type creation error: name '%s' already in use", type_name); + return (-1); /* FAILED: name in use */ + } + } + } + +#if defined (MVL_UCA) /* do post-processing for UCA types. */ + //if (mvlu_proc_rt_type (type_name, rt_ctrl, NULL))//lnk编译修改，原å‰ç½®ç¨‹åºæœªä½¿ç”¨ + if (0)//lnk编译修改，原å‰ç½®ç¨‹åºæœªä½¿ç”¨ + return (-1); /* FAILED: return invalid typeId */ +#endif /* MVL_UCA */ + + /* Just search for a unused slot */ + for (typeId = mvl_num_types - mvl_max_dyn.types; typeId < mvl_num_types; ++typeId) + { + type_ctrl = &mvl_type_ctrl[typeId]; /* ptr to array elem*/ + if (type_ctrl->num_rt == 0) + { + if (type_name) + strcpy (type_ctrl->type_name, type_name); /* size checked above */ + else + type_ctrl->type_name[0] = '\0'; /* unnamed type */ + type_ctrl->rt_ctrl = rt_ctrl; /* no other func sets this*/ + type_ctrl->rt = rt_ctrl->rt_first; + type_ctrl->num_rt = rt_ctrl->rt_num; + type_ctrl->data_size = rt_ctrl->rt_first->offset_to_last; + type_ctrl->vmd_ctrl = vmd_ctrl; /* save ptr to VMD using this type*/ + return (typeId); + } + } + MVL_LOG_ERR0 ("mvl_type_id_create error: type array full"); + return (-1); /* error, no slots available. Return invalid typeId. */ + } + +/************************************************************************/ +/* mvl_type_id_destroy2 */ +/* Second step of destroying type_id. */ +/* Remove type from array, return pointer to it. */ +/* NOTE: uses mvl_type_ctrl_find_dyn to make sure it's "dynamic" type. */ +/************************************************************************/ +static RUNTIME_CTRL *mvl_type_id_destroy2 (ST_INT typeId) + { +MVL_TYPE_CTRL *type_ctrl; +RUNTIME_CTRL *rt_ctrl = NULL; /* assume failure */ + + type_ctrl = mvl_type_ctrl_find_dyn (typeId); + if (type_ctrl) + { /* save ptr to type, then remove it from array */ + rt_ctrl = type_ctrl->rt_ctrl; + /* Reset the structure to all 0 so it is ready to be reused. */ + /* NOTE: this should be a type created by mvl_vmd_type_id_create */ + /* so rt_ctrl and vmd_ctrl should be set (not NULL). */ + /* NOTE: this clears num_rt which indicates unused array entry. */ + memset (type_ctrl, 0, sizeof (MVL_TYPE_CTRL)); + } + return (rt_ctrl); + } + +/************************************************************************/ +/* mvl_type_id_create_from_tdl */ +/************************************************************************/ +ST_INT mvl_type_id_create_from_tdl (ST_CHAR *type_name, ST_CHAR *tdl) + { +ST_UCHAR *asn1_buf; /* tmp ASN.1 buffer. Alloc & free here. */ +ST_INT asn1_len; +ST_INT type_id; +RUNTIME_CTRL *rt_ctrl; + + /* Allocate minimum of 2000 bytes, more for long TDL. */ + /* NOTE: may want to increase mininum to reduce memory fragmentation. */ + asn1_len = max (2000, (2 * strlen (tdl))); /* initial len. Changed by ms_mk_asn1_type*/ + asn1_buf = (ST_UCHAR *) chk_malloc (asn1_len); + + if ((rt_ctrl = ms_tdl_to_runtime (tdl, asn1_buf, asn1_len)) == NULL) + { + MVL_LOG_ERR0 ("ms_tdl_to_runtime error"); + type_id = -1; /* error */ + } + else + { + /* Create MVL type_id. This function also performs post-processing */ + /* on "rt_ctrl". */ + type_id = mvl_vmd_type_id_create (&mvl_vmd, /* assume global VMD */ + type_name, rt_ctrl); + if (type_id < 0) + ms_runtime_destroy (rt_ctrl); /* clean up on error */ + } + + if (type_id < 0) + MVL_LOG_ERR2 ("mvl_type_id_create_from_tdl: type creation failed for '%s', TDL=%s.", type_name, tdl); + + chk_free (asn1_buf); + return (type_id); + } + +/************************************************************************/ +/* mvl_vmd_type_id_destroy */ +/* Destroy type id, but only if it belongs to this VMD. */ +/************************************************************************/ +ST_RET mvl_vmd_type_id_destroy (MVL_VMD_CTRL *vmd_ctrl, ST_INT type_id) + { + assert (vmd_ctrl); /* VMD must be valid */ + if (mvl_type_ctrl[type_id].num_rt != 0 /* != 0 indicates this type_id used.*/ + && mvl_type_ctrl[type_id].vmd_ctrl == vmd_ctrl) /* VMD matches */ + { + mvl_type_id_destroy (type_id); /* destroy it. */ + return (SD_SUCCESS); + } + else + return (SD_FAILURE); + } +/************************************************************************/ +/* mvl_vmd_type_id_destroy_all */ +/* Destroy all type ids for this VMD. */ +/************************************************************************/ +ST_RET mvl_vmd_type_id_destroy_all (MVL_VMD_CTRL *vmd_ctrl) + { +ST_INT type_id; +ST_INT num_destroyed = 0; + + /* Try to destroy all types. If VMD doesn't match, destroy fails. */ + /* Count how many times destroy succeeds. */ + for (type_id = mvl_num_types - mvl_max_dyn.types; type_id < mvl_num_types; type_id++) + { + if (mvl_vmd_type_id_destroy (vmd_ctrl, type_id) == SD_SUCCESS) + num_destroyed++; + } + MVLU_LOG_FLOW1 ("Number of types destroyed for this VMD=%d", num_destroyed); + return (SD_SUCCESS); /* at present, no way to fail. */ + } + +/************************************************************************/ +/* mvl_type_count */ +/* Return the current number of types in use. */ +/************************************************************************/ +ST_INT mvl_type_count () + { +ST_INT type_id; +ST_INT count = 0; + + /* Try to destroy all types. If VMD doesn't match, destroy fails. */ + /* Count how many times destroy succeeds. */ + for (type_id = 0; type_id < mvl_num_types; type_id++) + { + if (mvl_type_ctrl[type_id].num_rt != 0) /* != 0 indicates this type_id used.*/ + count++; + } + return (count); + } +/************************************************************************/ +/* mvl_vmd_type_ctrl_find */ +/* Find type_ctrl for this type id, but only if it belongs to this VMD. */ +/************************************************************************/ +MVL_TYPE_CTRL *mvl_vmd_type_ctrl_find (MVL_VMD_CTRL *vmd_ctrl, ST_INT type_id) + { + assert (vmd_ctrl); /* VMD must be valid */ + if (mvl_type_ctrl[type_id].num_rt != 0 /* != 0 indicates this type_id used.*/ + && mvl_type_ctrl[type_id].vmd_ctrl == vmd_ctrl) /* VMD matches */ + { + return (&mvl_type_ctrl[type_id]); + } + else + return (NULL); /* not found or doesn't belong to this VMD. */ + } + diff --git a/mmslib/mvlu/mvl_type.c b/mmslib/mvlu/mvl_type.c new file mode 100644 index 0000000..48666cd --- /dev/null +++ b/mmslib/mvlu/mvl_type.c @@ -0,0 +1,266 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1994 - 1996, All Rights Reserved */ +/* */ +/* MODULE NAME : mvl_type.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* NONE */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 07/11/07 JRB 17 mvlu_free_rt_type: Reset structure to all 0. */ +/* 02/07/06 JRB 16 Log if max types exceeded. */ +/* 03/14/05 CRM 15 Add mvl_max_dyn global struct & replace */ +/* _mvlu_num_dyn_types with "mvl_max_dyn.types".*/ +/* 09/18/03 JRB 14 mvl_get_runtime: chk for valid num_rt. */ +/* 03/13/03 JRB 13 Add mvl_type_ctrl_find_dyn. */ +/* Del mvlu_add_rt_type_x (not needed). */ +/* 11/27/02 MDE 12 Added mvlu_add_rt_type_x, */ +/* mvl_typeid_to_typename, */ +/* mvl_typename_to_typeid */ +/* 10/28/02 JRB 11 Del mvl_mk_rt_from_asn1, use ms_runtime_create*/ +/* 10/06/00 MDE 10 Added _mvlu_num_dyn_types */ +/* 09/05/00 JRB 09 Move mvl_type_id_* to new module. */ +/* Add mvl_get_runtime_dyn. */ +/* mvl_type_ctrl_find chk for "in use". */ +/* 07/13/00 JRB 08 Add Dynamic type creation functions: */ +/* mvl_type_id_create, mvl_type_id_destroy, */ +/* mvl_type_ctrl_find. */ +/* Move these functs from mvl_uca.c to here: */ +/* mvlu_add_rt_type, mvlu_free_rt_type. */ +/* 04/14/00 JRB 07 Del SD_CONST from mvl_get_runtime. */ +/* 01/21/00 MDE 06 Now use MEM_SMEM for dynamic memory */ +/* 09/13/99 MDE 05 Added SD_CONST modifiers */ +/* 11/16/98 MDE 04 Renamed internal functions (prefix '_') */ +/* 09/21/98 MDE 03 Minor lint cleanup */ +/* 06/15/98 MDE 02 Changes to allow compile under C++ */ +/* 09/10/97 MDE 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" + +#include "mmsdefs.h" +#include "mms_pvar.h" +#include "mms_vvar.h" +#include "mvl_defs.h" +#include "mvl_log.h" + + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/* The user may set this to a positive value prior to calling */ +/* 'mvl_init_mms_objs' to control the number allowed */ + +MVL_MAX_DYN mvl_max_dyn; + +/************************************************************************/ +/************************************************************************/ +/* mvl_mod_arr_size */ +/* TYPE HANDLING */ +/* This function modifies the size of an array runtime element */ +/************************************************************************/ + +ST_VOID mvl_mod_arr_size (RUNTIME_TYPE *rt, ST_RTINT num_elmnts) + { +ST_INT size_per_el; + +/* Adjust the total size of the type, using scaling */ + size_per_el = rt->offset_to_last/rt->u.arr.num_elmnts; + rt->offset_to_last = size_per_el * num_elmnts; + +/* Now set the number of elements as desired */ + rt->u.arr.num_elmnts = num_elmnts; + rt += (rt->u.arr.num_rt_blks + 1); + rt->u.arr.num_elmnts = num_elmnts; + } + +/************************************************************************/ +/* mvl_get_runtime */ +/* This function returns runtime type information given the type id */ +/************************************************************************/ + +ST_RET mvl_get_runtime (ST_INT type_id, + RUNTIME_TYPE **rt_out, + ST_INT *num_rt_out) + { +MVL_TYPE_CTRL *type_ctrl = &mvl_type_ctrl[type_id]; /* ptr to array elem*/ + + if (type_id >= 0 && + type_id < mvl_num_types && + type_ctrl->num_rt > 0) + { + /* Cast "rt" to remove SD_CONST. */ + *rt_out = (RUNTIME_TYPE *) type_ctrl->rt; + *num_rt_out = type_ctrl->num_rt; + return (SD_SUCCESS); + } + return (MVL_ERR_RUNTIME_TYPE_ID); + } + +/************************************************************************/ +/* mvl_get_runtime_dyn */ +/* This function returns runtime type information given the type id. */ +/* It is the same as "mvl_get_runtime" except it only SUCCEEDS if the */ +/* type was dynamically created. */ +/************************************************************************/ + +ST_RET mvl_get_runtime_dyn (ST_INT type_id, + RUNTIME_TYPE **rt_out, + ST_INT *num_rt_out) + { +MVL_TYPE_CTRL *type_ctrl = &mvl_type_ctrl[type_id]; /* ptr to array elem*/ + + if (type_id >= mvl_num_types - mvl_max_dyn.types && /* dynamic type */ + type_id < mvl_num_types && + type_ctrl->num_rt > 0) + { + /* Cast "rt" to remove SD_CONST. */ + *rt_out = (RUNTIME_TYPE *) type_ctrl->rt; + *num_rt_out = type_ctrl->num_rt; + return (SD_SUCCESS); + } + return (MVL_ERR_RUNTIME_TYPE_ID); + } + +/************************************************************************/ +/* mvl_type_ctrl_find */ +/* Find the type ctrl structure corresponding to the type id. */ +/* RETURNS: ptr to type ctrl structure (NULL on error) */ +/* NOTE: Use "mvl_get_runtime*" if only the runtime type is needed. */ +/************************************************************************/ +MVL_TYPE_CTRL *mvl_type_ctrl_find (ST_INT TypeId) + { +MVL_TYPE_CTRL *type_ctrl; + + if (TypeId < 0 || + TypeId >= mvl_num_types || + mvl_type_ctrl[TypeId].num_rt == 0) /* Array entry not in use.*/ + type_ctrl = NULL; + else + type_ctrl = &mvl_type_ctrl [TypeId]; + return (type_ctrl); + } + +/************************************************************************/ +/* mvl_type_ctrl_find_dyn */ +/* Find the type ctrl structure corresponding to the type id. */ +/* For "dynamic" types ONLY. */ +/* RETURNS: ptr to type ctrl structure (NULL on error) */ +/************************************************************************/ +MVL_TYPE_CTRL *mvl_type_ctrl_find_dyn (ST_INT TypeId) + { +MVL_TYPE_CTRL *type_ctrl; + + if (TypeId < mvl_num_types - mvl_max_dyn.types) + type_ctrl = NULL; /* NOT dynamic. Return error*/ + else + type_ctrl = mvl_type_ctrl_find (TypeId); /* COULD BE dynamic, find it*/ + return (type_ctrl); + } + + +/************************************************************************/ +/* mvl_typeid_to_typename */ +/************************************************************************/ +ST_CHAR *mvl_typeid_to_typename (ST_INT type_id) + { + if (type_id >= 0 && type_id < mvl_num_types) + return (mvl_type_ctrl[type_id].type_name); + + return ("unknown"); + } + +/************************************************************************/ +/* mvl_typename_to_typeid */ +/************************************************************************/ + +ST_INT mvl_typename_to_typeid (ST_CHAR *type_id_string) + { +ST_INT i; +MVL_TYPE_CTRL *type_ctrl; + + for (i = 0; i < mvl_num_types; ++i) + { + type_ctrl = &mvl_type_ctrl[i]; + if (mvl_type_ctrl[i].num_rt != 0 && + mvl_type_ctrl[i].type_name != NULL && + !strcmp (mvl_type_ctrl[i].type_name, type_id_string)) + { + return (i); + } + } + return (-1); + } + + +/************************************************************************/ +/************************************************************************/ +/* MVLU UTILITY FUNCTIONS */ +/************************************************************************/ +/************************************************************************/ +/* mvlu_add_rt_type */ +/************************************************************************/ +/* This function adds a RT type to the 'mvl_type_ctrl' table and */ +/* returns ther type id for the new entry. */ +MVL_TYPE_CTRL *temp_type_ctrl; +ST_RET mvlu_add_rt_type (RUNTIME_TYPE *rt, ST_INT numRt, ST_INT *typeIdOut) + { +ST_INT i; +ST_INT mvlu_type_id_base; + + /* Just search for a unused slot */ + mvlu_type_id_base = mvl_num_types - mvl_max_dyn.types; + for (i = mvlu_type_id_base; i < mvl_num_types; ++i) + { + if (mvl_type_ctrl[i].num_rt == 0) + { + mvl_type_ctrl[i].rt = rt; + mvl_type_ctrl[i].num_rt = numRt; + mvl_type_ctrl[i].data_size = rt->offset_to_last; + mvl_type_ctrl[i].type_name[0] = '\0'; /* name unknown */ + *typeIdOut = i; + temp_type_ctrl =&mvl_type_ctrl[i]; + return (SD_SUCCESS); + } + } + MVL_LOG_ERR1 ("Cannot add Runtime Type. Maximum number '%d' exceeded", mvl_num_types); + return (SD_FAILURE); + } + +/************************************************************************/ +/* mvlu_free_rt_type */ +/************************************************************************/ +/* This function free's slot in the 'mvl_type_ctrl' table, so that it */ +/* will be available for future use by mvlu_add_rt_type */ + +ST_VOID mvlu_free_rt_type (ST_INT typeId) + { +MVL_TYPE_CTRL *type_ctrl; + if (typeId >= mvl_num_types - mvl_max_dyn.types) + { + /* Reset the structure to all 0 so it is ready to be reused. */ + /* NOTE: this should be a type created by mvlu_add_rt_type */ + /* so rt_ctrl and vmd_ctrl should be NULL. */ + /* NOTE: this clears num_rt which indicates unused array entry. */ + type_ctrl = &mvl_type_ctrl[typeId]; + memset (type_ctrl, 0, sizeof (MVL_TYPE_CTRL)); + } + } + + diff --git a/mmslib/mvlu/mvl_uca.c b/mmslib/mvlu/mvl_uca.c new file mode 100644 index 0000000..8234fe0 --- /dev/null +++ b/mmslib/mvlu/mvl_uca.c @@ -0,0 +1,2688 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1998-2005, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : mvl_uca.c */ +/* PRODUCT(S) : MMSEASE */ +/* */ +/* MODULE DESCRIPTION : */ +/* Special read/write processing functions for UCA and */ +/* IEC 61850 objects. */ +/* */ +/* NOTE: define MVL61850_CTL_DISABLE to avoid calling user functions */ +/* (u_mvl61850_ctl_oper_*) if 61850 Controls not needed. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 01/27/09 JRB 70 Don't send write resp until ind is done. */ +/* Don't allow write if any leaf unwritable. */ +/* Call user func at start/end of complex write.*/ +/* 01/07/09 JRB 69 Del S_LOCK for OPC_CLIENT in u_mvl_read_ind */ +/* (already locked by mvl_comm_serve). */ +/* 06/30/08 JRB 68 Repl cmd_executing w/ ctlState (more flexible)*/ +/* Do SBO Ctrl checks only if Oper/Cancel is */ +/* ONLY structure being written. */ +/* Fix sboName buffer size. */ +/* 05/06/08 JRB 67 Set new cmd_executing flag. */ +/* 03/03/08 JRB 66 Call mvl61850_ctl_req_done to do what's needed*/ +/* when IEC 61850 control request completes. */ +/* 02/18/08 JRB 65 Use new mvl_var_create_derived function. */ +/* 02/07/08 JRB 64 Fix alignment of ptr passed to mvlu_clone.. */ +/* 12/18/07 MDE 63 Fixed lastDollar crash for IOS */ +/* 11/12/07 MDE 62 Changed MMSOP_RDWR_USR_HANDLED to _RD_ */ +/* 07/20/07 JRB 61 getGnlVarNames: fix crash when flatname */ +/* too long; add return code & check it. */ +/* 05/09/07 JRB 60 Fix alt_acc arg passed to mvlu_find_component*/ +/* Fix log macro args. */ +/* 04/30/07 JRB 59 Fix to work with RUNTIME_TYPE change. */ +/* 04/17/07 JRB 58 Fix calc of offset_from_base & prim_num */ +/* to work for Alt Access on arrays (corrects */ +/* primData, prim_num, and prim_offset_base */ +/* passed to leaf functions). */ +/* mvlu_find_struct_comp: add args to compute */ +/* offset & prim_num. */ +/* 03/07/07 JRB 57 Add mvlu_get_leaf_val_int_any. */ +/* 11/21/06 JRB 56 Send LastApplError if write of Oper, etc fails.*/ +/* 10/30/06 JRB 55 Use new mvl_vmd_* object handling functions. */ +/* mvlu_find_base_va: add args. */ +/* u_mvl_get_va_aa: add args. */ +/* u_gnl_ind_*: add net_info arg to */ +/* elim use of global var "_mvl_curr_net_info". */ +/* u_mvl_get_va_aa: do not set va->usr_ind_ctrl */ +/* (done by calling functions). */ +/* 10/26/06 JRB 54 Del unused local vars. */ +/* 09/27/06 MDE 53 Added MMSOP_RD_USR_HANDLED for IOS */ +/* 09/13/06 JRB 52 mvlu_find_comp_type: allow non-dynamic types.*/ +/* 08/09/06 JRB 51 Del u_mvl_get_nvl, u_mvl_free_nvl functions */ +/* (not needed with new improved Foundry). */ +/* Use "mvl_var_create/destroy" so all variables*/ +/* created/destroyed in one place. */ +/* 07/24/06 JRB 50 Chg some common ERR logs to FLOW. */ +/* 03/27/06 JRB 49 Add more mvlu_get_leaf_* functions. */ +/* 07/29/05 MDE 48 Fixed static data use for write handling */ +/* 07/11/05 JRB 47 Call user fcts (u_mvl61850_ctl_oper_*) if */ +/* !defined (MVL61850_CTL_DISABLE). */ +/* 01/19/05 JRB 46 u_gnl_ind_* return (-1) on error. */ +/* 12/09/04 JRB 45 init_prim_info_recursive: fix ARR_END handling.*/ +/* init_prim_info_arr: simplify & ret ST_VOID. */ +/* Add mvlu_find_comp_type, mvlu_get_leaf_val*. */ +/* Chg trim_branch_name to global mvlu_trim_.. */ +/* & simplify it using strrchr. */ +/* 09/20/04 JRB 44 startElWrites: if writing "Oper" or "Cancel" */ +/* struct, check SBO state. */ +/* mvlu_wr_prim_done call mvlu_sbo_ctrl_free. */ +/* 06/29/04 JRB 43 Del global var mvluUseStaticData, instead use*/ +/* use_static_data flag in MVL_VAR_ASSOC for Read.*/ +/* NEVER use static data for Write. */ +/* startElReads, etc: add prim_info arg. */ +/* Del elmntOffset, use prim_info->prim_offset. */ +/* 11/24/03 JRB 42 getGnlVarNames: fix prefix len by using */ +/* MAX_IDENT_LEN, chk overflow BEFORE writing, */ +/* & add logging & asserts. */ +/* 09/18/03 JRB 41 Allow alt acc on array of "nested" structures*/ +/* Add some debug logging & extra comments. */ +/* 05/02/03 JRB 40 switch(rt->el_tag): Use default for most cases*/ +/* 04/04/03 JRB 39 Fix integrity/GI scan code so multiple */ +/* concurrent scans don't corrupt one another. */ +/* 12/20/02 JRB 38 Moved mvlu_set_leaf_param to mvluleaf.c */ +/* 12/12/02 JRB 37 Use usr_resp_fun ptr to call scan done funcs.*/ +/* 12/09/02 MDE 36 Made mvlu_find_uca_var global */ +/* 11/27/02 MDE 35 Addded leaf indication handlers */ +/* Addded mvlu_find_rt_leaf */ +/* Addded mvlu_set_leaf_param */ +/* 11/29/01 MDE 34 Added GOOSE function pointer */ +/* 11/14/01 EJV 33 Added support for new MMS type UtcTime: */ +/* 11/13/01 MDE 32 Added GOOSE scan support */ +/* 05/21/01 MDE 31 Cleaned up memory allocation for SMEM */ +/* 10/25/00 JRB 30 Del u_mvl & u_gnl funct ptrs. Call directly. */ +/* Del mvlu_install (no longer needed). */ +/* 08/18/00 JRB 29 Don't clear va_to_free. Need value later. */ +/* mvlu_free_nvl free va->va_to_free only if */ +/* it was allocated by mvlu_get_nvl. */ +/* 08/18/00 RKR 28 Added rt fields to MVLU_ typedefs */ +/* 07/13/00 JRB 27 Cleanup ms_comp_na.. chg for MVL_XNAME. */ +/* 07/13/00 JRB 26 Use new ms_comp_name_find to get comp names. */ +/* 07/13/00 JRB 25 Move these functs to mvl_type.c: */ +/* mvlu_add_rt_type, mvlu_free_rt_type. */ +/* 06/21/00 MDE 24 Now copy base VA user_info to new VA */ +/* 05/15/00 MDE 23 Now filder out too-long variable names */ +/* 04/14/00 JRB 22 Lint cleanup. */ +/* 04/05/00 RKR 21 Made MVL_XNAME a compile time option */ +/* 04/03/00 RKR 20 Added the xName to UCA Rd and Wr Ind funs */ +/* 03/30/00 RKR 19 Passed the expanded UCA var name to ind fun */ +/* 01/21/00 MDE 18 Now use MEM_SMEM for dynamic memory */ +/* 12/20/99 MDE 17 Fix getArrAARtType to return SUCCESS/FAIL */ +/* 11/03/99 JRB 16 Fix GetNameList if CA name = base var name. */ +/* 09/30/99 EJV 15 Added slog macro to mvlu_rd_prim_done */ +/* 09/13/99 MDE 14 Added SD_CONST modifiers */ +/* 09/07/99 MDE 13 Revised and enhanced the UCA report system */ +/* 06/04/99 MDE 12 Now allow arrays as base VA type, other */ +/* minor changes to VA processing */ +/* 06/04/99 MDE 11 Fixed memory leak for nested array alt acc */ +/* 04/07/99 MDE 10 Logging improvements (fixed wrong AA log too)*/ +/* 03/09/99 JRB 12 Fix illegal free of gnlNameBuf. */ +/* 02/22/99 JRB 11 BUG FIX: Always start with clean "arrCtrl". */ +/* 01/08/99 JRB 10 Use new "bsearch" object model. Don't use */ +/* "_UCA_" prefix on va and nvl names. */ +/* 12/11/98 MDE 09 Removed scope references from VA */ +/* 11/17/98 MDE 08 Made mvlu_get_va_aa alloc space for name */ +/* 11/16/98 MDE 07 Renamed internal functions (prefix '_') */ +/* 09/21/98 MDE 06 Uninitialized ptr fix, Minor lint cleanup */ +/* 08/11/98 MDE 05 Added UCA variable array support */ +/* 07/13/98 MDE 04 Mixed scope NVL fixes, data alignment fix */ +/* 06/29/98 MDE 03 Added report function pointers */ +/* 06/15/98 MDE 02 Changes to allow compile under C++ */ +/* 01/02/98 MDE 01 New */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" +#include "mmsdefs.h" +#include "mms_pvar.h" +#include "mms_vvar.h" +#include "mvl_uca.h" +#include "mvl_log.h" + +#if defined(MVL_UCA) /* This entire module is only valid for UCA. */ + + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/* PRIM_INFO struct: extra info about primitive. */ +typedef struct + { + ST_UINT prim_num; /* index to data */ + ST_UINT prim_offset; /* mem offset from start of var */ + ST_UINT prim_offset_base; /* mem offset from start of "base" var */ + } PRIM_INFO; /* extra info about primitive */ + +/************************************************************************/ + +static ST_VOID mvluDefGetVaDataBufFun (ST_INT service, MVL_VAR_ASSOC *va, + ST_INT size); +static ST_VOID mvluDefFreeVaDataBufFun (ST_INT service, MVL_VAR_ASSOC *va); + +/************************************************************************/ +/* Read/Write leaf indication override handlers */ + +ST_VOID (*u_mvlu_leaf_rd_ind_fun)(MVLU_RD_VA_CTRL *mvluRdVaCtrl); +ST_VOID (*u_mvlu_leaf_wr_ind_fun)(MVLU_WR_VA_CTRL *mvluWrVaCtrl); + +/************************************************************************/ +/* STATIC VARIABLES, LOCAL DEFINES */ + +/* GNL Variables */ +static ST_CHAR *gnlNameBuf; +static ST_CHAR *currGnlNamePos; + +/* Index to "u_no_write_allowed" function. It is set to correct value */ +/* at startup by calling "mvlu_find_wr_ind_fun_index" (one time). */ +static ST_RTINT idx_u_no_write_allowed = -2; /* start with illegal val*/ + +#define _OBJ_NAME_CLONE_NAME_SIZE (65) +#define _OBJ_NAME_CLONE_SIZE (sizeof(OBJECT_NAME)+(2 * _OBJ_NAME_CLONE_NAME_SIZE)) + +/************************************************************************/ +/* STATIC FUNCTIONS */ + +ST_RET mvlu_find_component ( + ST_CHAR *flatname, /* flattened name (e.g. ST$Mod$stVal) */ + ALT_ACCESS *alt_acc, + RUNTIME_TYPE **rtIo, + ST_INT *numRtIo, + ST_INT *offset_io, + ST_RTINT *prim_num_io); + +static ST_RET mvlu_find_struct_comp (ST_CHAR *compName, + RUNTIME_TYPE **rtIo, ST_INT *numRtIo, + ST_INT *offset_io, + ST_RTINT *prim_num_io); + +static ST_VOID mvlu_handle_alt_acc (OBJECT_NAME *obj, ALT_ACCESS *alt_acc, + MVL_ARR_CTRL *arrCtrl); +static ST_RET getArrAARtType (MVL_ARR_CTRL *arrCtrl, + RUNTIME_TYPE **pRt, ST_INT *pNumRt); +static ST_VOID cloneArrAA (ALT_ACC_EL *arrAa, ALT_ACCESS *dest); + +static ST_VOID mvlu_find_base_va (MVL_VMD_CTRL *vmd_ctrl, OBJECT_NAME *obj, MVL_NET_INFO *net_info, MVL_VAR_ASSOC **vaOut); + +ST_RET getGnlVarNames (MVL_VAR_ASSOC *va, ST_CHAR *caPtr, + ST_CHAR **dest, ST_INT maxNames, + ST_INT *numNames, ST_BOOLEAN *moreFollowsOut); +static ST_VOID mvlu_clone_objname (OBJECT_NAME *dest, OBJECT_NAME *src); + +static ST_VOID startArrRds (MVL_IND_PEND *indCtrl, MVLAS_READ_CTRL *rdCtrl, + MVLAS_RD_VA_CTRL *rdVaCtrl, RUNTIME_TYPE *rt, PRIM_INFO *prim_info); +static ST_VOID startElReads (MVL_IND_PEND *indCtrl, MVLAS_READ_CTRL *rdCtrl, + MVLAS_RD_VA_CTRL *rdVaCtrl, + RUNTIME_TYPE *rt, ST_INT rt_num, PRIM_INFO *prim_info); +static ST_VOID startArrWrs (MVL_IND_PEND *indCtrl, MVLAS_WRITE_CTRL *wrCtrl, + MVLAS_WR_VA_CTRL *wrVaCtrl, RUNTIME_TYPE *rt, PRIM_INFO *prim_info); +static ST_VOID startElWrites (MVL_IND_PEND *indCtrl, MVLAS_WRITE_CTRL *wrCtrl, + MVLAS_WR_VA_CTRL *wrVaCtrl, + RUNTIME_TYPE *rt, ST_INT rt_num, PRIM_INFO *prim_info); +static ST_INT countPrimEl (MVL_VAR_ASSOC *va, RUNTIME_TYPE *rt, ST_INT rt_num); + +static ST_RET chk_var_writable (RUNTIME_TYPE *rt, ST_INT rt_num); +static ST_RET chk_write_resp_ready (MVL_IND_PEND *indCtrl); +static ST_VOID set_write_resp_dae (MVLAS_WR_VA_CTRL *wrVaCtrl, + ST_INT16 dae); /* DataAccessError code */ + +/************************************************************************/ +/* Global function pointers. May be set by user. */ +/************************************************************************/ +/* This function pointer called BEFORE all write leaf functions. */ +/* NOTE: called only for complex variables (struct or array). */ +ST_RET (*u_mvl_wr_ind_var_start)(MVL_IND_PEND *indCtrl, + MVLAS_WR_VA_CTRL *wrVaCtrl); /* current var in list of var */ + +/* This function pointer called AFTER all write leaf functions. */ +/* NOTE: called only for complex variables (struct or array). */ +ST_RET (*u_mvl_wr_ind_var_end)(MVL_IND_PEND *indCtrl, + MVLAS_WR_VA_CTRL *wrVaCtrl); /* current var in list of var */ + +/************************************************************************/ +/* init_prim_info */ +/* Initialize PRIM_INFO struct using info saved in MVL_VAR_ASSOC. */ +/************************************************************************/ +ST_RET init_prim_info (MVL_VAR_ASSOC *va, PRIM_INFO *prim_info) + { + /* Just use values computed earlier & saved in va. */ + prim_info->prim_num = va->prim_num; + prim_info->prim_offset = 0; + prim_info->prim_offset_base = va->offset_from_base; + return (SD_SUCCESS); + } + + +/************************************************************************/ +/************************************************************************/ +/* MANUFACTURED VARIABLE RESOLUTION FUNCTIONS */ +/************************************************************************/ +/* u_mvl_get_va_aa */ +/************************************************************************/ +/* This function is called from MVL when it is unable to find a */ +/* configured MMS server variable for a READ, WRITE, or GET VARIABLE */ +/* ACCESS ATTRIBUTES indication. */ + +MVL_VAR_ASSOC *u_mvl_get_va_aa (MVL_VMD_CTRL *vmd_ctrl, ST_INT service, OBJECT_NAME *obj, + MVL_NET_INFO *netInfo, + ST_BOOLEAN alt_access_pres, + ALT_ACCESS *alt_acc, + ST_BOOLEAN *alt_access_done_out) + { +ST_CHAR *name; +MVL_VAR_ASSOC *va; +MVL_VAR_ASSOC *baseVa; +ST_RET rc; +OBJECT_NAME *objClone; /*ptr to OBJECT_NAME plus 2 name strings*/ +/* Space for OBJECT_NAME struct plus 2 name strings. */ +/* objClone will point to this, passed to mvlu_clone_objname. */ +/* CRITICAL: Must be a struct so alignment is correct. */ +struct + { + ST_CHAR bytearray[_OBJ_NAME_CLONE_SIZE]; + } objNameBuf; +RUNTIME_TYPE *baseRt; +ST_INT numBaseRt; +RUNTIME_TYPE *ucaRt; +ST_INT numUcaRt; +ST_CHAR *subStart; +ST_INT subTypeId; +MVL_ARR_CTRL arrCtrl; +ST_CHAR *flatname; /* flattened variable name (for mvlu_find_component)*/ +RUNTIME_TYPE *comp_rt; /* set by mvlu_find_component */ +ST_INT comp_num_rt; /* set by mvlu_find_component */ +ST_INT offset_from_base; /* set by mvlu_find_component */ +ST_RTINT prim_num; /* set by mvlu_find_component */ + +/* Make a working copy of the variable name (mvlu_handle_alt_acc may change it) */ + objClone = (OBJECT_NAME *) (&objNameBuf); + mvlu_clone_objname (objClone, obj); + +/* We will handle any alternate access here, by creating the UCA from */ +/* variable name. */ + memset (&arrCtrl, 0, sizeof (MVL_ARR_CTRL)); /* start with clean "arrCtrl"*/ + if (alt_access_pres) + { + mvlu_handle_alt_acc (objClone, alt_acc, &arrCtrl); + *alt_access_done_out = SD_TRUE; + } + +/* We need to find the base type for this variable */ + mvlu_find_base_va (vmd_ctrl, objClone, netInfo, &baseVa); + if (baseVa == NULL) + { + MVL_LOG_NERR1 ("Could not resolve UCA variable '%s'", objClone->obj_name.vmd_spec); + return (NULL); + } + + /* Use mvlu_find_component to compute offset_from_base & prim_num. */ + /* Look for '$' in name. If found, point after it, else use NULL. */ + flatname = strstr (obj->obj_name.vmd_spec, "$"); + if (flatname != NULL) + flatname++; /* point after the '$' */ + /* Start with base variable RUNTIME_TYPE. */ + rc = mvl_get_runtime (baseVa->type_id, &comp_rt, &comp_num_rt); + if (rc != SD_SUCCESS) + { + MVL_LOG_NERR1 ("Could not get RT type for type id %d", baseVa->type_id); + return (NULL); + } + offset_from_base = 0; + prim_num = 0; + /* NOTE: mvlu_find_component changes comp_rt, comp_num_rt, */ + /* offset_from_base, prim_num. */ + /* NOTE: offset_from_base, prim_num different for each array elem.*/ + /* CRITICAL: mvlu_find_component expects alt_acc=NULL if Alt Access */ + /* Spec NOT present. Make sure "alt_acc" is set correctly. */ + if (!alt_access_pres) + alt_acc = NULL; /* CRITICAL */ + rc = mvlu_find_component (flatname, alt_acc, + &comp_rt, &comp_num_rt, &offset_from_base, &prim_num); + if (rc) + return (NULL); /* if this fails, stop now. */ + +/* Now resolve this variable's type given it's name and the base */ +/* type. */ + rc = mvl_get_runtime (baseVa->type_id, &baseRt, &numBaseRt); + if (rc != SD_SUCCESS) + { + MVL_LOG_NERR1 ("Could not get RT type for type id %d", baseVa->type_id); + return (NULL); + } + ucaRt = baseRt; + numUcaRt = numBaseRt; + +/* Check to see if this is for base var... name has no embedded '$' */ +/* If is a derived variable we need to create from the variable name */ +/* 'path' and runtime type. */ + name = objClone->obj_name.vmd_spec; /* We know this is a union ... */ + subStart = strstr (name,"$"); /* Skip the outer (base) name */ + if (subStart) + { + /* This is a derived variable, and we have the base UCA variable */ + /* Using the base runtime table and the variable name, we can get the */ + /* subset type for this variable */ + + ++subStart; + rc = mvlu_find_uca_var (&ucaRt, &numUcaRt, subStart); + if (rc != SD_SUCCESS) + { + MVL_LOG_NERR1 ("Error - could not find subcomponent '%s'", subStart); + return (NULL); + } + } + + +/* If this is an alternate access on an array, we need to copy the */ +/* RT type so we can modify the number of elements and total size */ + if (arrCtrl.arrAltAccPres == SD_TRUE) + { + rc = getArrAARtType (&arrCtrl, &ucaRt, &numUcaRt); + if (rc != SD_SUCCESS) + { + M_FREE (MSMEM_MVLU_AA, arrCtrl.alt_acc.aa); + return (NULL); + } + } + + /* Make sure type computed matches what mvlu_find_component computed. */ + /* DEBUG: delete these before release? */ + assert (comp_num_rt == numUcaRt); + assert (comp_rt->el_tag == ucaRt->el_tag); + assert (comp_rt->mvluTypeInfo.prim_count == ucaRt->mvluTypeInfo.prim_count); + +/* OK, now we have the sub-runtime type, go ahead and create a temp */ +/* RT type and variable association. */ + rc = mvlu_add_rt_type (ucaRt, numUcaRt, &subTypeId); + if (rc != SD_SUCCESS) + { + MVL_LOG_NERR0 ("Error - could not add temp RT type"); + return (NULL); + } + +/* Create "derived" variable from baseVa. */ +/* NOTE: This var is NOT added to list so its name is NOT sent */ +/* in GetNameList responses. */ + va = mvl_var_create_derived (objClone->obj_name.vmd_spec, subTypeId, + baseVa, + offset_from_base, + prim_num); + +/* CRITICAL: If use_static_data==SD_FALSE, mvl_var_create_derived could */ +/* not set "va->data". Must call this function to allocate it. */ +/* NOTE: Since this code executes every time a variable is accessed, */ +/* it requires MANY more allocations when use_static_data==SD_FALSE. */ + if (baseVa->use_static_data==SD_FALSE) + mvluDefGetVaDataBufFun (service, va, ucaRt->offset_to_last); + +#if defined(MVLU_USE_REF) + va->ref = ucaRt->mvluTypeInfo.ref; +#endif + +/* Copy the array AA information */ + memcpy (&va->arrCtrl, &arrCtrl, sizeof (MVL_ARR_CTRL)); + va->arrCtrl.curr_index = arrCtrl.low_index; + +/* Good work, we are done here. */ + return (va); + } + +/************************************************************************/ +/* getArrAARtType */ +/************************************************************************/ + +static ST_RET getArrAARtType (MVL_ARR_CTRL *arrCtrl, + RUNTIME_TYPE **pRt, ST_INT *pNumRt) + { +ST_INT numRt; +ST_INT i, j; +RUNTIME_TYPE *rt; +RUNTIME_TYPE *endRt; +RUNTIME_TYPE *newRt; +ALT_ACCESS *alt_acc; +ALT_ACC_EL *alt_acc_el; /* ptr to current entry in alt acc array */ +ST_INT nest_level = 0; + + rt = *pRt; + numRt = *pNumRt; + +/* Check to see if further nesting with this AA selection ... */ + if (arrCtrl->nested == SD_FALSE) + { + /* If just one element, need to lose the outer array */ + if (arrCtrl->num_elmnts == 1) + { + numRt -= 2; + ++rt; + } + } + else /* Further nesting is requested, let's do it! */ + { + /* We only support a single drill down AA */ + if (arrCtrl->num_elmnts > 1) + { + MVL_LOG_NERR0 ("AA resolution problem - multiple elements and nested"); + return (SD_FAILURE); + } + numRt -= 2; + ++rt; + + /* OK, we now need to find the type of the component ... */ + alt_acc = &arrCtrl->alt_acc; + /* Only support AA_COMP and AA_COMP_NEST for now. */ + /* If AA_COMP_NEST is used, this is recursive process. */ + for (j=0; j < alt_acc->num_aa; j++) + { + alt_acc_el = &alt_acc->aa[j]; + if (alt_acc_el->sel_type == AA_COMP || alt_acc_el->sel_type == AA_COMP_NEST) + { + if (alt_acc_el->sel_type == AA_COMP_NEST) + nest_level++; + /* find this component name within the current RUNTIME_TYPE array*/ + for (i = 0; i < numRt; ++i, ++rt) + { + if (!strcmp (alt_acc_el->u.component, ms_comp_name_find (rt))) + break; + } + if (i >= numRt) + { + MVL_LOG_NERR1 ("AA resolution problem - could not find component '%s'", + alt_acc_el->u.component); + return (SD_FAILURE); + } + if (rt->el_tag == RT_STR_START) + numRt = rt->u.str.num_rt_blks+2; + else if (rt->el_tag == RT_ARR_START) + numRt = rt->u.arr.num_rt_blks+2; + else + numRt = 1; + } + else if (alt_acc_el->sel_type == AA_END_NEST) + nest_level--; + else + { + MVL_LOG_NERR0 ("AA resolution problem - complex nested AA on array"); + return (SD_FAILURE); + } + } /* end "for" loop */ + if (nest_level != 0) + { + MVL_LOG_NERR0 ("AA resolution problem - invalid nesting"); + return (SD_FAILURE); + } + } + +/* OK, now copy the runtime type elements into a new one so we can fool */ +/* with it. */ + newRt = (RUNTIME_TYPE *) M_MALLOC (MSMEM_DYN_RT, numRt * sizeof (RUNTIME_TYPE)); + memcpy (newRt, rt, numRt * sizeof (RUNTIME_TYPE)); + +/* Adjust the total size of the type, using scaling */ + if (arrCtrl->num_elmnts > 1) + { + newRt->offset_to_last = rt[1].offset_to_last * arrCtrl->num_elmnts; + +/* Now set the number of elements as desired */ + newRt->u.arr.num_elmnts = arrCtrl->num_elmnts; + endRt = newRt + (newRt->u.arr.num_rt_blks + 1); + endRt->u.arr.num_elmnts = arrCtrl->num_elmnts; + +/* We don't want end of array padding */ + endRt->el_size = 0; + } + + *pRt = newRt; + *pNumRt = numRt; + return (SD_SUCCESS); + } + +/************************************************************************/ +/* mvlu_handle_alt_acc */ +/************************************************************************/ +/* Here we deal with an alternate access. We will simply add the */ +/* sub-name components to the base name to create a fully qualified UCA */ +/* sub-var name */ +/* Of course, this only handles the most simple form of alternate */ +/* access correctly ... */ + +static ST_VOID mvlu_handle_alt_acc (OBJECT_NAME *obj, ALT_ACCESS *alt_acc, + MVL_ARR_CTRL *arrCtrl) + { +ST_INT i; +ST_CHAR *name; +ST_BOOLEAN done; + + name = obj->obj_name.vmd_spec; /* We know this is a union ... */ + arrCtrl->nested = SD_FALSE; + done = SD_FALSE; + for (i = 0; i < alt_acc->num_aa && !done; ++i) + { + switch (alt_acc->aa[i].sel_type) + { + case AA_COMP : + case AA_COMP_NEST : + strcat (name, "$"); + strcat (name, alt_acc->aa[i].u.component); + break; + + case AA_INDEX_NEST : + arrCtrl->nested = SD_TRUE; + cloneArrAA (&alt_acc->aa[i], &arrCtrl->alt_acc); + /* Lets fall through into common code ... */ + case AA_INDEX : + arrCtrl->arrAltAccPres = SD_TRUE; + arrCtrl->low_index = (ST_RTINT) alt_acc->aa[i].u.index; + arrCtrl->num_elmnts = 1; + done = SD_TRUE; + break; + + case AA_INDEX_RANGE_NEST : + arrCtrl->nested = SD_TRUE; + cloneArrAA (&alt_acc->aa[i], &arrCtrl->alt_acc); + /* Lets fall through into common code ... */ + case AA_INDEX_RANGE : + arrCtrl->arrAltAccPres = SD_TRUE; + arrCtrl->low_index = (ST_RTINT) alt_acc->aa[i].u.ir.low_index; + arrCtrl->num_elmnts = (ST_RTINT) alt_acc->aa[i].u.ir.num_elmnts; + done = SD_TRUE; + break; + + case AA_ALL: + case AA_ALL_NEST : + arrCtrl->nested = SD_TRUE; + cloneArrAA (&alt_acc->aa[i], &arrCtrl->alt_acc); + arrCtrl->arrAltAccPres = SD_TRUE; + arrCtrl->low_index = 0; + arrCtrl->num_elmnts = 0; /* 'all' flag */ + done = SD_TRUE; + break; + + case AA_END_NEST : + done = SD_TRUE; + break; + + default: + MVL_LOG_NERR1 ("Error: Invalid alt access sel_type = %d", + alt_acc->aa[i].sel_type); + break; + } + } + } + +/************************************************************************/ +/* cloneArrAA */ +/************************************************************************/ + +static ST_VOID cloneArrAA (ALT_ACC_EL *arrAa, ALT_ACCESS *dest) + { +ST_INT elCount; +ST_INT nestLevel; +ALT_ACC_EL *aaEl; + +/* First let's count how many we need */ + nestLevel = 0; + elCount = 0; + aaEl = arrAa + 1; + while (SD_TRUE) + { + if (nestLevel == 0 && aaEl->sel_type == AA_END_NEST) + break; + + ++elCount; + if (aaEl->sel_type == AA_COMP_NEST || + aaEl->sel_type == AA_INDEX_NEST || + aaEl->sel_type == AA_INDEX_RANGE_NEST || + aaEl->sel_type == AA_ALL_NEST) + { + ++nestLevel; + } + if (aaEl->sel_type == AA_END_NEST) + { + --nestLevel; + } + ++aaEl; + } + +/* OK, now just calloc and copy the nested alternate access */ + if (elCount) + { + dest->num_aa = elCount; + dest->aa = (ALT_ACC_EL *) M_MALLOC (MSMEM_MVLU_AA, elCount * sizeof (ALT_ACC_EL)); + memcpy (dest->aa, arrAa+1, elCount * sizeof (ALT_ACC_EL)); + } + else + { + MVL_LOG_NERR0 ("Nested AA construction problem"); + } + } + +/************************************************************************/ +/* mvlu_find_base_va */ +/************************************************************************/ +/* This function takes a MMS variable name and determines the type ID */ +/* for the base type for the variable. This is done here by */ +/* extracting the name root then looking for a configured variable */ +/* of that name. */ +static ST_VOID mvlu_find_base_va (MVL_VMD_CTRL *vmd_ctrl, OBJECT_NAME *obj, MVL_NET_INFO *net_info, MVL_VAR_ASSOC **vaOut) + { +MVL_VAR_ASSOC *va; +ST_CHAR *p; +ST_CHAR *name; +OBJECT_NAME *objClone; /*ptr to OBJECT_NAME plus 2 name strings*/ +/* Space for OBJECT_NAME struct plus 2 name strings. */ +/* objClone will point to this, passed to mvlu_clone_objname. */ +/* CRITICAL: Must be a struct so alignment is correct. */ +struct + { + ST_CHAR bytearray[_OBJ_NAME_CLONE_SIZE]; + } objNameBuf; + + objClone = (OBJECT_NAME *) (&objNameBuf); + mvlu_clone_objname (objClone, obj); + name = objClone->obj_name.vmd_spec; /* We know this is a union ... */ + +/* See if this variable name has embedded '$', and if so wack it so */ +/* that we have the base name to work with. */ + p = strstr (name,"$"); + if (p) + *p = 0; + + va = mvl_vmd_find_var (vmd_ctrl, objClone, net_info); + if (va && (va->flags & MVL_VAR_FLAG_UCA) == 0) + va = NULL; /* Found va but not UCA variable, so don't return it. */ + *vaOut = va; + } + +/************************************************************************/ +/* mvlu_find_uca_var */ +/************************************************************************/ +/* This function searches a runtime type for the given UCA variable */ +/* name. It does this by breaking the UCA name into its components */ +/* and then finding the name in the current level of the runtime type. */ + +ST_RET mvlu_find_uca_var (RUNTIME_TYPE **rtIo, ST_INT *numRtIo, + ST_CHAR *varName) + { +ST_CHAR nameBuf[MAX_IDENT_LEN+1]; +ST_CHAR *nameToFind; +ST_CHAR *compEnd,*arr; +ST_BOOLEAN nameDone; +ST_RET ret; +ST_INT offset=0; /* mvlu_find_struct_comp needs it but not used */ +ST_RTINT prim_num=0; /* mvlu_find_struct_comp needs it but not used */ + +/* Note that varName does not have the base name prefix */ + strcpy (nameBuf, varName); + nameToFind = nameBuf; + nameDone = SD_FALSE; + while (nameDone == SD_FALSE) + { + /* Isolate the component name for this level, removing subcomp names */ + compEnd = strstr (nameToFind, "$"); + if (compEnd != NULL) + *compEnd = 0; + else /* This is the last nest level */ + nameDone = SD_TRUE; + /*renxiaobao Êý×é*/ + arr = strstr (nameToFind, "["); + if (arr != NULL) + *arr = 0; + + /* Find the component name in the current runtime type nest level */ + ret = mvlu_find_struct_comp (nameToFind, rtIo, numRtIo, &offset, &prim_num); + if (ret == SD_FAILURE) + { + /* Many things can cause this so just use FLOW Logging. */ + MVLU_LOG_FLOW2 ("Could not find name component %s from name %s", + nameToFind, varName); + return (SD_FAILURE); + } + + /* OK, we now have found the component in the runtime type, and our */ + /* runtime pointer and numRt reflect the sub-runtime type. */ + /* next component. */ + + /* Prepare to find the next level component name */ + nameToFind = compEnd+1; + } + return (SD_SUCCESS); + } + +/************************************************************************/ +/* mvlu_find_struct_comp */ +/************************************************************************/ +/* This function searches a structure runtime type for the given */ +/* component name at the outer level. */ +/* NOTE: modifies (*rtIo), (*numRtIo), (*offset_io), (*prim_num_io). */ + +static ST_RET mvlu_find_struct_comp (ST_CHAR *compName, + RUNTIME_TYPE **rtIo, ST_INT *numRtIo, + ST_INT *offset_io, + ST_RTINT *prim_num_io) + { +RUNTIME_TYPE *rt; +RUNTIME_TYPE *endRt; +ST_BOOLEAN foundRt; + + foundRt = SD_FALSE; + rt = *rtIo; + endRt = rt + *numRtIo; + /* renxiaobao Êý×é*/ + if (rt->el_tag == RT_ARR_START) + { + ++rt; + } + if (rt->el_tag != RT_STR_START) + { + MVL_LOG_NERR0 ("Find struct comp: First RT is not structure start"); + return (SD_FAILURE); + } + ++rt; /* Skip the structure start */ + + while (rt < endRt) + { + if (!strcmp (compName, ms_comp_name_find (rt))) + { + *rtIo = rt; + foundRt = SD_TRUE; + } + switch (rt->el_tag) + { + case RT_STR_START : + if (foundRt == SD_TRUE) + { + *numRtIo = rt->u.str.num_rt_blks+2; + return (SD_SUCCESS); + } + /* Not found yet. */ + *offset_io += rt->offset_to_last; /* adjust offset */ + *prim_num_io += rt->mvluTypeInfo.prim_count; /* adjust prim_num*/ + rt += rt->u.str.num_rt_blks+2; /* Skip the structure contents */ + break; + + case RT_ARR_START : + if (foundRt == SD_TRUE) + { + *numRtIo = rt->u.arr.num_rt_blks+2; + return (SD_SUCCESS); + } + /* Not found yet. */ + *offset_io += rt->offset_to_last; /* adjust offset */ + *prim_num_io += rt->mvluTypeInfo.prim_count; /* adjust prim_num*/ + rt += rt->u.arr.num_rt_blks+1; /* Skip the array contents */ + break; + + case RT_STR_END : + case RT_ARR_END : + ++rt; + break; + + default: + if (foundRt == SD_TRUE) + { + *numRtIo = 1; + return (SD_SUCCESS); + } + /* Not found yet. */ + *offset_io += rt->offset_to_last; /* adjust offset */ + *prim_num_io += rt->mvluTypeInfo.prim_count; /* adjust prim_num*/ + ++rt; + break; + } + } + return (SD_FAILURE); + } + +/************************************************************************/ +/* u_mvl_free_va */ +/************************************************************************/ +/* MVL calls this function when it is through with it. We will free */ +/* the data buffer, and then the VA (unless it was a base VA). */ + +ST_VOID u_mvl_free_va (ST_INT service, MVL_VAR_ASSOC *va, + MVL_NET_INFO *netInfo) + { +RUNTIME_TYPE *ucaRt; +ST_INT numUcaRt; +ST_RET rc; + +/* If "va->data" was allocated, free it now. */ + if (va->base_va->use_static_data==SD_FALSE) + mvluDefFreeVaDataBufFun(service, va); + +/* If this was not a 'base' VA, free the derived type */ + if ( (va->flags & MVL_VAR_FLAG_UCA) == 0) + { + + /* See if we allocated the runtime type ... */ + if (va->arrCtrl.arrAltAccPres == SD_TRUE) + { + rc = mvl_get_runtime (va->type_id, &ucaRt, &numUcaRt); + if (rc == SD_SUCCESS) + M_FREE (MSMEM_DYN_RT, ucaRt); + else + { + MVL_LOG_NERR0 ("Error: internal error"); + } + if (va->arrCtrl.nested == SD_TRUE) + M_FREE (MSMEM_MVLU_AA, va->arrCtrl.alt_acc.aa); + } + + mvlu_free_rt_type (va->type_id); + mvl_var_destroy (va); + } + } + +/************************************************************************/ +/************************************************************************/ +/* MANUFACTURED VARIABLE_LIST RESOLUTION FUNCTIONS */ +/************************************************************************/ +/* u_mvl_get_nvl, u_mvl_free_nvl functions deleted (no longer needed). */ +/* They were only needed because Foundry could not find the variables */ +/* for the NVL to set "vl->entries". But new improved Foundry */ +/* generates code like the following (only done once at startup, */ +/* so it is much more efficient): */ +/* + * varObjName.obj_name.vmd_spec = "DI$Name"; + * varObjName.object_tag = DOM_SPEC; + * varObjName.domain_id = mvl_vmd.dom_tbl[6]->name; + * vl->entries [0] = u_mvl_get_va_aa (MMSOP_INFO_RPT, &varObjName, NULL, SD_FALSE, NULL, NULL); + */ + +/************************************************************************/ +/************************************************************************/ +/* GET NAMELIST HELPER FUNCTIONS */ +/* These functions are necessary because MVL does not know about our */ +/* manufactured variables and variable lists. We will fill in part of */ +/* the namelist response data structure. */ +/************************************************************************/ +/************************************************************************/ +/* u_gnl_ind_vars */ +/************************************************************************/ + +ST_INT u_gnl_ind_vars (MVL_NET_INFO *net_info, NAMELIST_REQ_INFO *req_info, + ST_CHAR **ptr, ST_BOOLEAN *moreFollowsOut, + ST_INT maxNames) + { +ST_INT i; +ST_INT numRespNames; +ST_CHAR caBuf[100]; +ST_CHAR *caPtr; +ST_CHAR *p; +ST_INT numVa; +ST_INT v; +MVL_VAR_ASSOC **va; +MVL_AA_OBJ_CTRL *aa; +MVL_DOM_CTRL *domCtrl; + + + gnlNameBuf = (ST_CHAR *) M_CALLOC (MSMEM_MVLU_GNL, 1, maxNames * (MAX_IDENT_LEN +1)); + +/* Start by finding the VA that we should start with */ +/* Get the variable associations in the selected scope */ + numVa = 0; + if (req_info->objscope == VMD_SPEC) + { + numVa = mvl_vmd.num_var_assoc; + va = mvl_vmd.var_assoc_tbl; + } + else if (req_info->objscope == DOM_SPEC) + { + domCtrl = mvl_vmd_find_dom (&mvl_vmd, req_info->dname); + if (domCtrl) + { + numVa = domCtrl->num_var_assoc; + va = domCtrl->var_assoc_tbl; + } + else + { + MVL_LOG_NERR1 ("GetNameList variables: Domain '%s' not found", req_info->dname); + *moreFollowsOut = SD_FALSE; + return (-1); /* error. This triggers error response */ + } + } + else /* AA_SPEC */ + { + aa = (MVL_AA_OBJ_CTRL *) net_info->aa_objs; + if (aa) + { + numVa = aa->num_var_assoc; + va = aa->var_assoc_tbl; + } + else + { + *moreFollowsOut = SD_FALSE; + return (-1); /* error. This triggers error response */ + } + } + +/* Take care of the 'continue after' business as necessary. Note that */ +/* we will only look at the base name. */ + i = 0; + if (req_info->cont_after_pres) + { + caPtr = req_info->continue_after; + strcpy (caBuf, req_info->continue_after); + p = strstr (caBuf,"$"); + if (p) + *p = 0; + + while (i < numVa) + { + p = va[i]->name; + v = strcmp (caBuf, p); + if (v == 0) /* Exact match */ + break; + + if (v < 0) /* CA is less than real VA name */ + { + if (i > 0) /* Start with the previous VA */ + --i; + break; + } + ++i; /* We have not found our place yet ... */ + } + } + else + caPtr = NULL; + + *moreFollowsOut = SD_FALSE; + + currGnlNamePos = gnlNameBuf; + +/* OK, va[i] is where we start putting together our names */ + for (numRespNames = 0; numRespNames < maxNames && i < numVa; ++i) + { + ST_INT j; + ST_INT numRespNamesStart = numRespNames; /* save count modified by fct*/ + if (getGnlVarNames (va[i], caPtr, &ptr[numRespNames], + maxNames, &numRespNames, moreFollowsOut) != SD_SUCCESS) + return (-1); /* error response will be sent */ + + MVLU_LOG_DEBUG0 ("Names returned from getGnlVarNames"); + for (j = numRespNamesStart; jflags & MVL_VAR_FLAG_UCA) == 0) + { + ++(*numNames); + dest[0] = va->name; + return (SD_SUCCESS); + } + + memset (namePrefix, 0, sizeof(namePrefix)); + strcpy (namePrefix[0], va->name); + +/* First we need to find the starting 'sortedNum', based on the CA name */ + nameCount = *numNames; + startSortedNum = 1; + if (caPtr != NULL) + { + baseIndexOffset = 0; + /* CA name could be base name, or derived name. */ + if (strcmp (caPtr, va->name) == 0) + { /* CA name equals base name. Start with next name AFTER base. */ + startSortedNum = 1; + } + else if ((subStart = strstr (caPtr,"$")) == NULL) /* Skip the base name*/ + { + MVL_LOG_ERR1 ("Problem finding sub-type in '%s'", caPtr); + return (SD_FAILURE); + } + else + { + rc = mvl_get_runtime (va->type_id, &ucaRt, &numUcaRt); + ++subStart; + rc = mvlu_find_uca_var (&ucaRt, &numUcaRt, subStart); + if (rc == SD_SUCCESS) + startSortedNum = ucaRt->mvluTypeInfo.sortedNum + 1; + } + } + else /* No continue after, we need to include the base name */ + { + dest[0] = va->name; + ++nameCount; + baseIndexOffset = 1; + --maxNames; + } + maxRetNames = maxNames - *numNames; + maxSortedNum = startSortedNum + maxRetNames - 1; + +/* OK, now we start doing the real thing. Derive names for this */ +/* type, put them into the dest array. */ +/* We will save those elements with 'sortedNum' between */ +/* 'startSortedNum' and 'maxSortedNum' */ + + compress = SD_FALSE; + rc = mvl_get_runtime (va->type_id, &ucaRt, &numUcaRt); + + /* This code assumes all UCA vars are structs, so first tag must be RT_STR_START*/ + /* DEBUG: change this to "assert"? */ + if (ucaRt->el_tag != RT_STR_START) + MVL_LOG_ERR1 ("IEC/UCA type (type_id=%d) is not a struct. Cannot derive variable names for GetNameList response.", + va->type_id); + + nestLevel = 0; + for (i = 0; i < numUcaRt; ++i, ++ucaRt) + { + sortedNum = ucaRt->mvluTypeInfo.sortedNum; + comp_name = ms_comp_name_find (ucaRt); + if (strlen (comp_name) && + sortedNum >= startSortedNum && sortedNum <= maxSortedNum) + { + /* Chk len is legal BEFORE writing (need room for 2 strings + '$'.*/ + if (strlen (namePrefix[nestLevel]) + strlen (comp_name) + 1 <= MAX_IDENT_LEN) + { + sprintf (nameBuf, "%s$%s", namePrefix[nestLevel], comp_name); + strLen = strlen (nameBuf); + assert (strLen <= MAX_IDENT_LEN); /* if this fails, len chk in "if" is wrong*/ + dest[sortedNum-startSortedNum+baseIndexOffset] = currGnlNamePos; + strcpy (currGnlNamePos, nameBuf); + currGnlNamePos += strLen +1; + ++nameCount; + } + else + { + /* NOTE: should never happen if len checked in _mvlu_save_rt_uca_name at startup.*/ + MVL_LOG_ERR2 ("GetNameList error: Derived variable name '%s$%s' too long", + namePrefix[nestLevel], comp_name); + compress = SD_TRUE; + } + } + + if (ucaRt->el_tag == RT_STR_START) + { + comp_name = ms_comp_name_find (ucaRt); + if (strlen (comp_name)) + { + /* Chk len is legal BEFORE writing (need room for 2 strings + '$').*/ + if (strlen (namePrefix[nestLevel]) + strlen (comp_name) + 1 <= MAX_IDENT_LEN) + { + ++nestLevel; + assert (nestLevel < MAX_NEST_LEVEL); + assert (nestLevel > 0); + strcpy (namePrefix[nestLevel], namePrefix[nestLevel-1]); + strcat (namePrefix[nestLevel], "$"); + strcat (namePrefix[nestLevel], comp_name); + } + else + { + /* NOTE: should never happen if len checked in _mvlu_save_rt_uca_name at startup.*/ + MVL_LOG_ERR2 ("GetNameList error: Flattened variable name too long for struct '%s$%s'", + namePrefix[nestLevel], comp_name); + MVL_LOG_CERR0 ("Flattened name of struct and all lower components cannot be returned"); + compress=SD_TRUE; + /* Skip to end of struct */ + i += (ucaRt->u.str.num_rt_blks + 1); + ucaRt += (ucaRt->u.str.num_rt_blks + 1); + } + } + } + else if (ucaRt->el_tag == RT_STR_END) + --nestLevel; + else if (ucaRt->el_tag == RT_ARR_START) + { /* Skip the array elements */ + /* There is no way to create UCA names for objects inside an */ + /* array, so skip over the array. */ + i += (ucaRt->u.arr.num_rt_blks + 1); + ucaRt += (ucaRt->u.arr.num_rt_blks + 1); + } + + if (sortedNum > maxSortedNum) + *moreFollowsOut = SD_TRUE; + + } + + /* DEBUG: at this point loop, 'nestLevel' should equal (-1). This may */ + /* sound strange, but nestLevel NOT incremented on first RT_STR_START,*/ + /* so last RT_STR_END makes it -1. Add assert here? */ + + /* If we had to skip one or more names, we need to eliminate the */ + /* holes in the name pointer table. */ + if (compress == SD_TRUE) + { + get = 0; + put = 0; + numNewNames = nameCount - *numNames; + while (put < numNewNames) + { + if (dest[get] != NULL) + dest[put++] = dest[get]; + ++get; + } + } + + *numNames = nameCount; + return (SD_SUCCESS); + } + +/************************************************************************/ +/* u_gnl_done */ +/************************************************************************/ +/* This function is called after MVL has send the MMS response to a */ +/* GET_NAME_LIST indication. We will clean up memory resources. */ + +ST_VOID u_gnl_done (ST_INT16 mms_class, + NAMELIST_RESP_INFO *resp_info) + { + if (mms_class == MMS_CLASS_VAR) + M_FREE (MSMEM_MVLU_GNL, gnlNameBuf); + } + +/************************************************************************/ +/************************************************************************/ +/* u_gnl_ind_nvls */ +/************************************************************************/ + +ST_INT u_gnl_ind_nvls (MVL_NET_INFO *net_info, NAMELIST_REQ_INFO *req_info, + ST_CHAR **ptr, ST_BOOLEAN *moreFollowsOut, + ST_INT maxNames) + { +ST_INT v; +ST_INT i; +ST_INT num_obj; +MVL_AA_OBJ_CTRL *aa; +MVL_NVLIST_CTRL **vl; +MVL_DOM_CTRL *domCtrl; +ST_INT startIndex; +ST_INT numObjLeft; +ST_INT numRetNames; +ST_CHAR *name; + +/* First get the number of objects and pointer to the object table */ + num_obj = 0; + if (req_info->objscope == VMD_SPEC) + { + num_obj = mvl_vmd.num_nvlist; + vl = mvl_vmd.nvlist_tbl; + } + else if (req_info->objscope == DOM_SPEC) + { + domCtrl = mvl_vmd_find_dom (&mvl_vmd, req_info->dname); + if (domCtrl) + { + num_obj = domCtrl->num_nvlist; + vl = domCtrl->nvlist_tbl; + } + else + { + MVL_LOG_NERR1 ("GetNameList NVL: Domain '%s' not found", req_info->dname); + *moreFollowsOut = SD_FALSE; + return (-1); /* error. This triggers error response */ + } + } + else /* AA_SPEC */ + { + aa = (MVL_AA_OBJ_CTRL *) net_info->aa_objs; + if (aa) + { + num_obj = aa->num_nvlist; + vl = aa->nvlist_tbl; + } + else + { + *moreFollowsOut = SD_FALSE; + return (-1); /* error. This triggers error response */ + } + } + + if (num_obj) + { + /* Take care of the 'continue after' business if necessary */ + startIndex = 0; + if (req_info->cont_after_pres) + { + while (startIndex < num_obj) + { + name = vl[startIndex]->name; + v = strcmp (req_info->continue_after, name); + if (v == 0) + { + ++startIndex; /* Index to the next one */ + break; + } + if (v < 0) + break; + + ++startIndex; /* We have not found our place yet ... */ + } + } + + numObjLeft = num_obj-startIndex; + numRetNames = min(numObjLeft, maxNames); + if (numRetNames < numObjLeft) + *moreFollowsOut = SD_TRUE; + + /* Now make the list for the response */ + for (i = 0; i < numRetNames; ++i, ++ptr) + *ptr = vl[startIndex+i]->name; + + return (numRetNames); + } + return (0); + } + +/************************************************************************/ +/************************************************************************/ +/* mvlu_clone_objname */ +/************************************************************************/ +/* This function 'clones' a MMS OBJECT_NAME structure, which means that */ +/* it must allocate the various storage elements as required. Note */ +/* that the name storage allocation is 65, to give calling routines */ +/* room to work. */ + +static ST_VOID mvlu_clone_objname (OBJECT_NAME *dest, OBJECT_NAME *src) + { + memset (dest, 0, _OBJ_NAME_CLONE_SIZE); + dest->object_tag = src->object_tag; + dest->obj_name.vmd_spec = (ST_CHAR *) (dest + 1); + strcpy (dest->obj_name.vmd_spec, src->obj_name.vmd_spec); + if (src->object_tag == DOM_SPEC) + { + dest->domain_id = dest->obj_name.vmd_spec + _OBJ_NAME_CLONE_NAME_SIZE; + strcpy (dest->domain_id, src->domain_id); + } + } + +/************************************************************************/ +/************************************************************************/ +/* MVLU READ/WRITE HANDLERS */ +/************************************************************************/ + +static ST_VOID mvluDefAsyncWrIndFun (struct mvlu_wr_va_ctrl *mvluWrVaCtrl); +static ST_VOID mvluDefAsyncRdIndFun (struct mvlu_rd_va_ctrl *mvluRdVaCtrl); + +/* Function pointers for non-UCA variable handling */ +ST_VOID(*mvluAsyncRdIndFun)(struct mvlu_rd_va_ctrl *mvluRdVaCtrl) = + mvluDefAsyncRdIndFun; +ST_VOID(*mvluAsyncWrIndFun)(struct mvlu_wr_va_ctrl *mvluWrVaCtrl) = + mvluDefAsyncWrIndFun; + +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ +/* mvl_read_ind */ +/************************************************************************/ + +ST_VOID u_mvl_read_ind (MVL_IND_PEND *indCtrl) + { +MVLAS_READ_CTRL *rdCtrl; +MVLAS_RD_VA_CTRL *rdVaCtrl; +MVL_VAR_ASSOC *va; +MVLU_RD_VA_CTRL *mvluRdVaCtrl; +ST_INT i; +ST_INT numVar; +RUNTIME_TYPE *rt; +ST_INT numRt; +PRIM_INFO prim_info; + + rdCtrl = &indCtrl->u.rd; + numVar = rdCtrl->numVar; + +/* First we will go through each variable being read and count the */ +/* primitive elelemts. */ + + rdVaCtrl = rdCtrl->vaCtrlTbl; + for (i = 0; i < numVar; ++i, ++rdVaCtrl) + { + va = rdVaCtrl->va; + if (va) /* VA was resolved, we can deal with it */ + { + mvl_get_runtime (va->type_id, &rt, &numRt); + rdVaCtrl->acc_rslt_tag = ACC_RSLT_SUCCESS; + rdVaCtrl->numPrimDataDone = 0; + if (va->base_va != NULL) /* UCA variable handling ... */ + { + rdVaCtrl->numPrimData = countPrimEl (va, rt, numRt); + } + else + rdVaCtrl->numPrimData = 1; + } + else + rdVaCtrl->numPrimData = 1; + } + +/* Now we will go through each var being read and invoke the rdInd */ +/* function for it. */ + + rdVaCtrl = rdCtrl->vaCtrlTbl; + for (i = 0; i < numVar; ++i, ++rdVaCtrl) + { + va = rdVaCtrl->va; + if (va) /* VA was resolved, we can deal with it */ + { + + /* The VA's data pointer is valid, as is the type ID. */ + /* We want to call the handlers for all primitive level functions */ + /* for this data type */ + + if (va->base_va != NULL) /* UCA variable handling ... */ + { + mvl_get_runtime (va->type_id, &rt, &numRt); + + /* Initialize prim_info struct. */ + if (init_prim_info (va, &prim_info)) + { /* Failed. Can't process this var. Skip to next var in list*/ + MVL_LOG_ERR1 ("init_prim_info failed for 'Read' of variable '%s'", va->name); + rdVaCtrl->acc_rslt_tag = ACC_RSLT_FAILURE; + continue; /* skip to next variable */ + } + + startElReads (indCtrl, rdCtrl, rdVaCtrl, rt, numRt, &prim_info); + } + else /* Non-UCA variable handling ... */ + { + mvluRdVaCtrl = (MVLU_RD_VA_CTRL *) M_CALLOC (MSMEM_MVLU_VA_CTRL, 1, + sizeof (MVLU_RD_VA_CTRL)); + mvluRdVaCtrl->primData = (ST_CHAR *) va->data; + mvluRdVaCtrl->indCtrl = indCtrl; + mvluRdVaCtrl->rdVaCtrl = rdVaCtrl; + (*mvluAsyncRdIndFun)(mvluRdVaCtrl); + } + } + else /* VA not found, let it be done */ + { + mvluRdVaCtrl = (MVLU_RD_VA_CTRL *) M_CALLOC (MSMEM_MVLU_VA_CTRL, 1, + sizeof (MVLU_RD_VA_CTRL)); + mvluRdVaCtrl->indCtrl = indCtrl; + mvluRdVaCtrl->rdVaCtrl = rdVaCtrl; + mvlu_rd_prim_done (mvluRdVaCtrl, SD_SUCCESS); + } + } + } + +/************************************************************************/ +/* mvlu_trim_branch_name */ +/* Find last '$' in name and replace it with NULL. */ +/************************************************************************/ + +ST_VOID mvlu_trim_branch_name (ST_CHAR *branch_name) + { +ST_CHAR *ptr; + if ((ptr = strrchr (branch_name, '$')) != NULL) /* find last '$'*/ + *ptr = 0; /* replace '$' with NULL */ + return; + } + +/************************************************************************/ +/* startElReads */ +/************************************************************************/ + +static ST_VOID startElReads (MVL_IND_PEND *indCtrl, MVLAS_READ_CTRL *rdCtrl, + MVLAS_RD_VA_CTRL *rdVaCtrl, + RUNTIME_TYPE *rt, ST_INT rt_num, PRIM_INFO *prim_info) + { +ST_INT i; +MVLU_RD_VA_CTRL *mvluRdVaCtrl; +ST_RTINT rdIndFunIndex; +ST_UCHAR el_tag; +ST_INT el_size; +ST_RTINT num_rt_blks; +#if defined(MVL_XNAME) +ST_CHAR element_name[MAX_IDENT_LEN+1]; +ST_CHAR branch_name[MAX_IDENT_LEN+1]; +MVL_VAR_ASSOC *va; +ST_CHAR *comp_name; +#endif + +#if defined(MVL_XNAME) + va = rdVaCtrl->va; + element_name[0]=0; + strcpy (branch_name,va->name); + +/* if this is a substructure we need to trim back one level of the name */ +/* because the first rt element will be the name of the component */ +/* already part of the va->name */ + + if ((rt_num > 1) && (strstr (branch_name,"$"))) + { + mvlu_trim_branch_name (branch_name); + } +#endif + + for (i = 0; i < rt_num; ++i, ++rt) + { + +#if defined(MVL_XNAME) + if (rt_num > 1) + { + comp_name = ms_comp_name_find (rt); + if (strlen (comp_name)) + { + if ((rt->el_tag == RT_STR_START)) + { + strcat (branch_name, "$"); + strcat (branch_name, comp_name); + strcpy (element_name, branch_name); + } + else + { + element_name[0]=0; + strcat (element_name, branch_name); + strcat (element_name, "$"); + strcat (element_name, comp_name); + } + } + + if (rt->el_tag == RT_STR_END) + { + strcpy (element_name, branch_name); + mvlu_trim_branch_name (branch_name); + } + } + else + { /* only one element in the RT table assume it's a primitive */ + strcpy (element_name, branch_name); + } +#endif + + el_tag = rt->el_tag; + num_rt_blks = rt->u.arr.num_rt_blks; + el_size = rt->el_size; + + if (ms_is_rt_prim (rt) == SD_TRUE) + { + rdIndFunIndex = rt->mvluTypeInfo.rdIndFunIndex; + if (u_mvlu_leaf_rd_ind_fun != NULL || + //(rdIndFunIndex >= 0 && rdIndFunIndex < mvluNumRdFunEntries))//lnk±àÒëÐ޸ģ¬Ô­Ç°ÖóÌÐòδʹÓà + 0)//lnk±àÒëÐ޸ģ¬Ô­Ç°ÖóÌÐòδʹÓà + { + mvluRdVaCtrl = (MVLU_RD_VA_CTRL *) M_CALLOC (MSMEM_MVLU_VA_CTRL, 1, + sizeof (MVLU_RD_VA_CTRL)); + mvluRdVaCtrl->rt = rt; +#if defined(MVL_XNAME) + strcpy (mvluRdVaCtrl->xName, element_name); +#endif + mvluRdVaCtrl->primData = (ST_CHAR *) rdVaCtrl->va->data + + prim_info->prim_offset; + mvluRdVaCtrl->indCtrl = indCtrl; + mvluRdVaCtrl->rdVaCtrl = rdVaCtrl; +#if defined(MVLU_USE_REF) + mvluRdVaCtrl->primRef = rt->mvluTypeInfo.ref; +#endif + mvluRdVaCtrl->prim_num = prim_info->prim_num; + mvluRdVaCtrl->prim_offset_base = prim_info->prim_offset_base; + if (u_mvlu_leaf_rd_ind_fun == NULL) + {}//(*mvluRdFunInfoTbl[rdIndFunIndex].fun_ptr)(mvluRdVaCtrl);//lnk±àÒëɾ³ý£¬Ô­Ç°ÖóÌÐòδʹÓà + else + (*u_mvlu_leaf_rd_ind_fun)(mvluRdVaCtrl); + } + else + rdVaCtrl->acc_rslt_tag = ACC_RSLT_FAILURE; + prim_info->prim_num++; + } + + if (el_tag == RT_ARR_START) + { + startArrRds (indCtrl, rdCtrl, rdVaCtrl, rt, prim_info); + i += (num_rt_blks + 1); + rt += (num_rt_blks + 1); + } + else + { + prim_info->prim_offset += el_size; + prim_info->prim_offset_base += el_size; + } + } + } + +/************************************************************************/ +/* startArrRds */ +/************************************************************************/ + +static ST_VOID startArrRds (MVL_IND_PEND *indCtrl, MVLAS_READ_CTRL *rdCtrl, + MVLAS_RD_VA_CTRL *rdVaCtrl, RUNTIME_TYPE *rt, PRIM_INFO *prim_info) + { +ST_RTINT i; +MVL_VAR_ASSOC *va; +ST_INT numRt; +/* DEBUG: To allow bigger arrays, must chg type of these two vars */ +/* & va->arrCtrl.low_index & va->arrCtrl.curr_index. */ +ST_RTINT low_index; +ST_RTINT num_elmnts; + + numRt = rt->u.arr.num_rt_blks+2; + va = rdVaCtrl->va; + + if (va->arrCtrl.arrAltAccPres == SD_TRUE) + { + low_index = va->arrCtrl.low_index; + num_elmnts = va->arrCtrl.num_elmnts; + } + else + { + low_index = 0; + num_elmnts = (ST_RTINT) rt->u.arr.num_elmnts; + } + +/* Let's check to see if the client is selecting a sub-object ... */ + prim_info->prim_offset += rt->el_size; + prim_info->prim_offset_base += rt->el_size; + for (i = 0; i < num_elmnts; ++i) + { + va->arrCtrl.curr_index = low_index + i; + startElReads (indCtrl, rdCtrl, rdVaCtrl, rt+1, numRt-2, prim_info); + } + prim_info->prim_offset += (rt+numRt-1)->el_size; + prim_info->prim_offset_base += (rt+numRt-1)->el_size; + } + +/************************************************************************/ +/* mvlu_rd_prim_done */ +/************************************************************************/ +/* The user calls this function acynchronously when the primitive data */ +/* has been put in the 'primData' buffer. */ + +ST_VOID mvlu_rd_prim_done (MVLU_RD_VA_CTRL *mvluRdVaCtrl, ST_RET rc) + { +MVL_IND_PEND *indCtrl; +MVLAS_READ_CTRL *rdCtrl; +MVLAS_RD_VA_CTRL *rdVaCtrl; +ST_INT i; + + rdVaCtrl = mvluRdVaCtrl->rdVaCtrl; + + if (rc != SD_SUCCESS) + { +/* DEBUG LIZ: added logging why read failed */ + MVL_LOG_NERR2 ("Read failed for UCA variable '%s' rc=%d", + rdVaCtrl->va->name, rc); + rdVaCtrl->acc_rslt_tag = ACC_RSLT_FAILURE; + } + + ++rdVaCtrl->numPrimDataDone; + if (rdVaCtrl->numPrimDataDone == rdVaCtrl->numPrimData) + { + /* All primitives for "one" variable are complete. */ + indCtrl = mvluRdVaCtrl->indCtrl; + + if (indCtrl->scan_va_done_fun) + (*indCtrl->scan_va_done_fun)(indCtrl, rdVaCtrl->va); + + /* If all primitives for all variables are complete, respond now */ + rdCtrl = &indCtrl->u.rd; + rdVaCtrl = rdCtrl->vaCtrlTbl; + for (i = 0; i < rdCtrl->numVar; ++i, ++rdVaCtrl) + { + if (rdVaCtrl->numPrimDataDone != rdVaCtrl->numPrimData) + break; + } + if (i == rdCtrl->numVar) + { + if (indCtrl->op != MMSOP_READ) + { /* Not normal read. Do special processing. */ + if (indCtrl->usr_resp_fun) + { /* If user set custom resp fun, call it. */ + (*indCtrl->usr_resp_fun) (indCtrl); + } + } + else + mvlas_read_resp (indCtrl); + } + } + M_FREE (MSMEM_MVLU_VA_CTRL, mvluRdVaCtrl); + } + +/************************************************************************/ +/* mvluDefAsyncRdIndFun */ +/************************************************************************/ + +static ST_VOID mvluDefAsyncRdIndFun (struct mvlu_rd_va_ctrl *mvluRdVaCtrl) + { + mvlu_rd_prim_done (mvluRdVaCtrl, SD_SUCCESS); + } + +/************************************************************************/ +/************************************************************************/ +/* u_mvl_write_ind */ +/* NOTE: "indCtrl" is freed when "mvlas_write_resp" is called to send */ +/* response. To assure "indCtrl" is valid until the end of this function,*/ +/* the "ind_funct_done" flag is used to indicate if this function */ +/* is done. It is accessible in all lower level functions. */ +/* At end of this function, if response ready, "mvlas_write_resp" is */ +/* called & indCtrl is freed (all done). If response NOT ready, this */ +/* flag is set to (SD_TRUE), then "mvlu_wr_prim_done" will call */ +/* "mvlas_write_resp" later when response is ready. */ +/************************************************************************/ + +ST_VOID u_mvl_write_ind (MVL_IND_PEND *indCtrl) + { +MVLAS_WRITE_CTRL *wrCtrl; +MVLAS_WR_VA_CTRL *wrVaCtrl; +MVL_VAR_ASSOC *va; +MVLU_WR_VA_CTRL *mvluWrVaCtrl; +ST_INT i; +ST_INT numVar; +RUNTIME_TYPE *rt; +ST_INT numRt; +PRIM_INFO prim_info; + + /* NOTE: (indCtrl->u.wr.ind_funct_done==SD_FALSE) because indCtrl calloced.*/ + /* Changed to SD_TRUE only when this function completes. */ + /* Checked in "mvlu_wr_prim_done" funct. */ + + wrCtrl = &indCtrl->u.wr; + numVar = wrCtrl->numVar; + +/* First we will go through each variable being written and count the */ +/* primitive elelemts. */ + wrVaCtrl = wrCtrl->vaCtrlTbl; + + for (i = 0; i < numVar; ++i, ++wrVaCtrl) + { + va = wrVaCtrl->va; + if (va) /* VA was resolved, we can look it over */ + { + mvl_get_runtime (va->type_id, &rt, &numRt); + wrVaCtrl->resp_tag = WR_RSLT_SUCCESS; + wrVaCtrl->numPrimDataDone = 0; + if (va->base_va != NULL) /* UCA variable handling ... */ + wrVaCtrl->numPrimData = countPrimEl (va, rt, numRt); + else + wrVaCtrl->numPrimData = 1; + } + else + wrVaCtrl->numPrimData = 1; + } + +/* Now we will go through each var being written and invoke the wrInd */ +/* function for it. */ + + wrVaCtrl = wrCtrl->vaCtrlTbl; + for (i = 0; i < numVar; ++i, ++wrVaCtrl) + { + va = wrVaCtrl->va; + if (va) /* VA was resolved, we can look it over */ + { + /* The VA's data pointer is valid, as is the type ID. */ + /* We want to call the handlers for all primitive level functions */ + /* for this data type */ + if (va->base_va != NULL) /* UCA variable handling ... */ + { + mvl_get_runtime (va->type_id, &rt, &numRt); + + if (chk_var_writable (rt, numRt)) + { /* This var NOT writable. Set error & skip to next var. */ + set_write_resp_dae (wrVaCtrl, ARE_OBJ_ACCESS_DENIED); + continue; /* skip to next variable */ + } + + /* Initialize prim_info struct. */ + if (init_prim_info (va, &prim_info)) + { /* Failed. Can't process this var. Skip to next var in list*/ + MVL_LOG_ERR1 ("init_prim_info failed for 'Write' of variable '%s'", va->name); + set_write_resp_dae (wrVaCtrl, ARE_OBJ_ACCESS_DENIED); + continue; /* skip to next variable */ + } + + /* If this is struct (or array), user function pointer !=NULL, */ + /* and function returns error, do not allow write. */ + if (numRt > 1 /* must be struct or array */ + && u_mvl_wr_ind_var_start != NULL + && (*u_mvl_wr_ind_var_start)(indCtrl, wrVaCtrl) != SD_SUCCESS) + { /* This var NOT writable. Set error & skip to next var. */ + set_write_resp_dae (wrVaCtrl, ARE_OBJ_ACCESS_DENIED); + continue; /* skip to next variable */ + } + + startElWrites (indCtrl, wrCtrl,wrVaCtrl, rt, numRt, &prim_info); + + /* If this is struct (or array), user function pointer !=NULL, */ + /* and function returns error, do not allow write. */ + /* CAUTION: If error is detected here, must make sure that leaf */ + /* functions did NOT write any data. */ + if (numRt > 1 /* must be struct or array */ + && u_mvl_wr_ind_var_end != NULL + && (*u_mvl_wr_ind_var_end)(indCtrl, wrVaCtrl) != SD_SUCCESS) + { /* This var NOT writable. Set error & skip to next var. */ + set_write_resp_dae (wrVaCtrl, ARE_OBJ_ACCESS_DENIED); + continue; /* skip to next variable */ + } + } + else /* Non-UCA variable handling ... */ + { + mvluWrVaCtrl = (MVLU_WR_VA_CTRL *) M_CALLOC (MSMEM_MVLU_VA_CTRL, 1, + sizeof (MVLU_WR_VA_CTRL)); + mvluWrVaCtrl->primData = (ST_CHAR *) va->data; + mvluWrVaCtrl->indCtrl = indCtrl; + mvluWrVaCtrl->wrVaCtrl = wrVaCtrl; + (*mvluAsyncWrIndFun)(mvluWrVaCtrl); + } + } + else + { + mvluWrVaCtrl = (MVLU_WR_VA_CTRL *) M_CALLOC (MSMEM_MVLU_VA_CTRL, 1, + sizeof (MVLU_WR_VA_CTRL)); + mvluWrVaCtrl->indCtrl = indCtrl; + mvluWrVaCtrl->wrVaCtrl = wrVaCtrl; + mvlu_wr_prim_done (mvluWrVaCtrl, SD_SUCCESS); + } + } + /* If response is ready (i.e. all synchronous leafs), send it now. */ + /* If not, just set flag (SD_TRUE) & mvlu_wr_prim_done will send resp.*/ + if (chk_write_resp_ready (indCtrl) == SD_SUCCESS) + mvlas_write_resp (indCtrl); /* sends resp & frees indCtrl */ + else + indCtrl->u.wr.ind_funct_done = SD_TRUE; /* this funct is done */ + } + +/************************************************************************/ +/* startElWrites */ +/* NOTE: Resp NOT sent while in this function (see ind_funct_done flag).*/ +/* Therefore, indCtrl is valid throughout this function */ +/* (i.e. it is NOT freed). */ +/************************************************************************/ + +static ST_VOID startElWrites (MVL_IND_PEND *indCtrl, MVLAS_WRITE_CTRL *wrCtrl, + MVLAS_WR_VA_CTRL *wrVaCtrl, + RUNTIME_TYPE *rt, ST_INT rt_num, PRIM_INFO *prim_info) + { +ST_INT i; +MVLU_WR_VA_CTRL *mvluWrVaCtrl; +ST_RTINT wrIndFunIndex; +ST_UCHAR el_tag; +ST_INT el_size; +ST_RTINT num_rt_blks; +#if defined(MVL_XNAME) +ST_CHAR element_name[MAX_IDENT_LEN+1]; +ST_CHAR branch_name[MAX_IDENT_LEN+1]; +MVL_VAR_ASSOC *va; +ST_CHAR *comp_name; +#endif +ST_CHAR sboName[MVL61850_MAX_OBJREF_LEN+1]; +RUNTIME_TYPE *rt_first; /* to save ptr to first before incrementing */ + +#if !defined(MVL61850_CTL_DISABLE) + ST_INT oper_nest_level = 0; +#endif + +#if defined(MVL_XNAME) + va = wrVaCtrl->va; + element_name[0]=0; + strcpy (branch_name,va->name); + +/* if this is a substructure we need to trim back one level of the name */ +/* because the first rt element will be the name of the component */ +/* already part of the va->name */ + + if ((rt_num > 1) && (strstr (branch_name, "$"))) + { + mvlu_trim_branch_name (branch_name); + } +#endif + + rt_first = rt; /* save first for comparison */ + for (i = 0; i < rt_num; ++i, ++rt) + { +#if defined(MVL_XNAME) + if (rt_num > 1) /* is this a collection of elements? */ + { + comp_name = ms_comp_name_find (rt); + if (strlen (comp_name)) + { + if ((rt->el_tag == RT_STR_START)) + { + strcat (branch_name, "$"); + strcat (branch_name, comp_name); + strcpy (element_name, branch_name); + } + else + { + element_name[0]=0; + strcat (element_name, branch_name); + strcat (element_name, "$"); + strcat (element_name, comp_name); + } + } + + if (rt->el_tag == RT_STR_END) + { + strcpy (element_name, branch_name); + mvlu_trim_branch_name (branch_name); + } + } + else + { /* only one element in the RT table assume it's a primitive */ + strcpy (element_name, branch_name); + } +#endif + + el_tag = rt->el_tag; + num_rt_blks = rt->u.arr.num_rt_blks; + el_size = rt->el_size; + + /* Do some special stuff for IEC 61850 SBO controls. */ + /* If this comp is start of struct & comp name is "Oper" or "Cancel",*/ + /* check SBO state. */ + /* NOTE: must be writing "Oper" or "Cancel" struct and ONLY the struct.*/ + if (rt == rt_first && /* this is first element */ + rt->el_tag == RT_STR_START && /* it is a struct */ + (strcmp (ms_comp_name_find(rt), "Oper") == 0 || strcmp (ms_comp_name_find(rt), "Cancel") == 0)) + { + /* Check "Select" timeouts for ALL SBO controls. */ + //mvlu_sbo_chk_timers ();//lnk±àÒëɾ³ý£¬²»Ó°Ïì¿Í»§¶Ë + /* Chk SBO state. Save in wrVaCtrl->sboCtrl (NULL if "Select" not done).*/ + //mvl61850_sbo_create_sboname (wrVaCtrl->va, &wrVaCtrl->va_scope, sboName);//lnk±àÒëɾ³ý£¬²»Ó°Ïì¿Í»§¶Ë + //wrVaCtrl->sboCtrl = mvlu_sbo_chk_state (sboName, indCtrl->event->net_info);//lnk±àÒëÐ޸ģ¬²»Ó°Ïì¿Í»§¶Ë + wrVaCtrl->sboCtrl = NULL;//lnk±àÒëÐ޸ģ¬²»Ó°Ïì¿Í»§¶Ë + } + +#if !defined(MVL61850_CTL_DISABLE) + if (rt->el_tag == RT_STR_START) + { + /* only increment this if this is "Oper" or already inside "Oper". */ + if (oper_nest_level>0) + oper_nest_level++; + else if (strcmp (ms_comp_name_find(rt), "Oper") == 0) + { + if (wrVaCtrl->sboCtrl) + wrVaCtrl->sboCtrl->ctlState = MVL61850_CTLSTATE_READY; + //u_mvl61850_ctl_oper_begin (sboName);//lnk±àÒëɾ³ý£¬²»Ó°Ïì¿Í»§¶Ë + oper_nest_level++; + } + } + if (rt->el_tag == RT_STR_END) + { + if (oper_nest_level>0) + { + if (--oper_nest_level==0) + { + /* All leaf functs have been called for "Oper" struct.*/ + /*renxiaobao ¿ØÖÆ*/ + /*u_mvl61850_ctl_oper_end (indCtrl->event->net_info, sboName, wrVaCtrl->va->base_va);*/ + } + } + } +#endif /* !defined(MVL61850_CTL_DISABLE) */ + + if (ms_is_rt_prim (rt) == SD_TRUE) + { + wrIndFunIndex = rt->mvluTypeInfo.wrIndFunIndex; + if (u_mvlu_leaf_wr_ind_fun != NULL || + //(wrIndFunIndex >= 0 && wrIndFunIndex < mvluNumWrFunEntries))//lnk±àÒëÐ޸ģ¬Ô­Ç°ÖóÌÐòδʹÓà + 0) + { + mvluWrVaCtrl = (MVLU_WR_VA_CTRL *) M_CALLOC (MSMEM_MVLU_VA_CTRL, 1, + sizeof (MVLU_WR_VA_CTRL)); +#if defined(MVL_XNAME) + strcpy (mvluWrVaCtrl->xName, element_name); +#endif + mvluWrVaCtrl->primData = (ST_CHAR *) wrVaCtrl->va->data + + prim_info->prim_offset; + mvluWrVaCtrl->indCtrl = indCtrl; + mvluWrVaCtrl->wrVaCtrl = wrVaCtrl; + mvluWrVaCtrl->rt = rt; +#if defined(MVLU_USE_REF) + mvluWrVaCtrl->primRef = rt->mvluTypeInfo.ref; +#endif + mvluWrVaCtrl->prim_num = prim_info->prim_num; + mvluWrVaCtrl->prim_offset_base = prim_info->prim_offset_base; + if (u_mvlu_leaf_wr_ind_fun == NULL) + {}//(*mvluWrFunInfoTbl[wrIndFunIndex].fun_ptr)(mvluWrVaCtrl);//lnk±àÒëɾ³ý£¬Ô­Ç°ÖóÌÐòδʹÓà + else + (*u_mvlu_leaf_wr_ind_fun)(mvluWrVaCtrl); + } + else + wrVaCtrl->resp_tag = WR_RSLT_FAILURE; + prim_info->prim_num++; + } + + if (el_tag == RT_ARR_START) + { + startArrWrs (indCtrl, wrCtrl, wrVaCtrl, rt, prim_info); + i += (num_rt_blks + 1); + rt += (num_rt_blks + 1); + } + else + { + prim_info->prim_offset += el_size; + prim_info->prim_offset_base += el_size; + } + } + } + +/************************************************************************/ +/* startArrWrs */ +/************************************************************************/ + +static ST_VOID startArrWrs (MVL_IND_PEND *indCtrl, MVLAS_WRITE_CTRL *wrCtrl, + MVLAS_WR_VA_CTRL *wrVaCtrl, RUNTIME_TYPE *rt, PRIM_INFO *prim_info) + { +ST_RTINT i; +MVL_VAR_ASSOC *va; +ST_INT numRt; +/* DEBUG: To allow bigger arrays, must chg type of these two vars */ +/* & va->arrCtrl.low_index & va->arrCtrl.curr_index. */ +ST_RTINT low_index; +ST_RTINT num_elmnts; + + numRt = rt->u.arr.num_rt_blks+2; + va = wrVaCtrl->va; + + if (va->arrCtrl.arrAltAccPres == SD_TRUE) + { + low_index = va->arrCtrl.low_index; + num_elmnts = va->arrCtrl.num_elmnts; + } + else + { + low_index = 0; + num_elmnts = (ST_RTINT) rt->u.arr.num_elmnts; + } + +/* Let's check to see if the client is selecting a sub-object ... */ + prim_info->prim_offset += rt->el_size; + prim_info->prim_offset_base += rt->el_size; + for (i = 0; i < num_elmnts; ++i) + { + va->arrCtrl.curr_index = low_index + i; + startElWrites (indCtrl, wrCtrl, wrVaCtrl, rt+1, numRt-2, prim_info); + } + prim_info->prim_offset += (rt+numRt-1)->el_size; + prim_info->prim_offset_base += (rt+numRt-1)->el_size; + } + +/************************************************************************/ +/* mvlu_wr_prim_done */ +/************************************************************************/ +/* The user calls this function acynchronously when the primitive data */ +/* has been put in the 'primData' buffer. */ + +ST_VOID mvlu_wr_prim_done (MVLU_WR_VA_CTRL *mvluWrVaCtrl, ST_RET rc) + { +MVLAS_WR_VA_CTRL *wrVaCtrl; + + wrVaCtrl = mvluWrVaCtrl->wrVaCtrl; + if (rc != SD_SUCCESS) + wrVaCtrl->resp_tag = WR_RSLT_FAILURE; + + ++wrVaCtrl->numPrimDataDone; + if (wrVaCtrl->numPrimDataDone == wrVaCtrl->numPrimData) + { /* all prims done for this variable */ + MVL_IND_PEND *indCtrl = mvluWrVaCtrl->indCtrl; + +#if !defined(MVL61850_CTL_DISABLE) + //mvl61850_ctl_req_done (wrVaCtrl, indCtrl->event->net_info);//lnk±àÒëɾ³ý£¬Ô­Ç°ÖóÌÐòδʹÓà +#endif /* !defined(MVL61850_CTL_DISABLE) */ + + /* Response "usually" sent from u_mvl_write_ind. If it finished */ + /* without sending resp AND resp is ready now, send it. */ + if (indCtrl->u.wr.ind_funct_done /* ind funct completed */ + && chk_write_resp_ready(indCtrl)==SD_SUCCESS) /* resp ready */ + mvlas_write_resp (indCtrl); /* send resp */ + } + M_FREE (MSMEM_MVLU_VA_CTRL, mvluWrVaCtrl); + } + + +/************************************************************************/ +/* mvluDefAsyncWrIndFun */ +/************************************************************************/ + +static ST_VOID mvluDefAsyncWrIndFun (struct mvlu_wr_va_ctrl *mvluWrVaCtrl) + { + mvlu_wr_prim_done (mvluWrVaCtrl, SD_SUCCESS); + } + +/************************************************************************/ +/************************************************************************/ +/* countPrimEl */ +/************************************************************************/ + +static ST_INT countPrimEl (MVL_VAR_ASSOC *va, RUNTIME_TYPE *rt, ST_INT rt_num) + { +ST_INT i; +ST_INT num_elmnts; +ST_INT numPrimData; +ST_INT subElCount; + + numPrimData = 0; + for (i = 0; i < rt_num; ++i, ++rt) + { + if (ms_is_rt_prim (rt) == SD_TRUE) + ++numPrimData; + if (rt->el_tag == RT_ARR_START) + { + subElCount = countPrimEl (va, rt+1, rt->u.arr.num_rt_blks); + + if (va->arrCtrl.arrAltAccPres == SD_FALSE) + num_elmnts = rt->u.arr.num_elmnts; + else + num_elmnts = va->arrCtrl.num_elmnts; + + numPrimData += (subElCount * num_elmnts); + + i += (rt->u.arr.num_rt_blks + 1); + rt += (rt->u.arr.num_rt_blks + 1); + } + } + return (numPrimData); + } + +/************************************************************************/ +/* mvluDefGetVaDataBufFun */ +/* NOTE: only called when va->base_va->use_static_data==SD_FALSE. */ +/************************************************************************/ + +static ST_VOID mvluDefGetVaDataBufFun (ST_INT service, + MVL_VAR_ASSOC *va, ST_INT size) + { + if (service == MMSOP_READ || service == MMSOP_WRITE || + service == MMSOP_INFO_RPT || service == MMSOP_RD_USR_HANDLED) + { + va->data = M_MALLOC (MSMEM_MVLU_VA_DATA, size); + } + } + +/************************************************************************/ +/* mvluDefFreeVaDataBufFun */ +/* NOTE: only called when va->base_va->use_static_data==SD_FALSE. */ +/************************************************************************/ + +static ST_VOID mvluDefFreeVaDataBufFun (ST_INT service, MVL_VAR_ASSOC *va) + { + if (service == MMSOP_READ || service == MMSOP_WRITE || + service == MMSOP_INFO_RPT || service == MMSOP_RD_USR_HANDLED) + { + M_FREE (MSMEM_MVLU_VA_DATA, va->data); + } + } + +/************************************************************************/ +/* mvlu_find_rt_leaf */ +/************************************************************************/ + +RUNTIME_TYPE *mvlu_find_rt_leaf (ST_INT type_id, ST_CHAR *leafName) + { +RUNTIME_TYPE *rt; +ST_INT numRt; +ST_RET ret; + + ret = mvl_get_runtime (type_id, &rt, &numRt); + if (ret != SD_SUCCESS) + { + MVL_LOG_NERR1 ("Could not get RT type for type id %d", type_id); + return (NULL); + } + + ret = mvlu_find_uca_var (&rt, &numRt, leafName); + if (ret != SD_SUCCESS) + { + MVL_LOG_NERR1 ("Could not find leaf '%s'", leafName); + return (NULL); + } + + if (numRt != 1) + { /* See if this is an array with a single primitive element */ + if (rt->el_tag == RT_ARR_START && numRt == 3) + return (rt+1); + + MVL_LOG_NERR1 ("'%s' is a branch, not a leaf", leafName); + return (NULL); + } + + + return (rt); + } + +/************************************************************************/ +/* mvlu_find_comp_type */ +/* Arguments: */ +/* base_type_id type ID for top level variable */ +/* flatname flattened component name with top level var */ +/* name (Logical Node) stripped off. */ +/* sub_rt_type Ptr to (RUNTIME_TYPE *) to be filled in. */ +/* sub_rt_num Ptr to "count" to be filled in. */ +/************************************************************************/ +ST_RET mvlu_find_comp_type (ST_INT base_type_id, ST_CHAR *flatname, + RUNTIME_TYPE **sub_rt_type, /* out */ + ST_INT *sub_rt_num) /* out */ + { +MVL_TYPE_CTRL *base_type_ctrl; +ST_RET ret; + + base_type_ctrl = mvl_type_ctrl_find (base_type_id); + if (base_type_ctrl) + { + *sub_rt_type = base_type_ctrl->rt; + *sub_rt_num = base_type_ctrl->num_rt; + ret = mvlu_find_uca_var (sub_rt_type, sub_rt_num, flatname); + } + else + ret = SD_FAILURE; + + /* NOTE: don't log error here. Caller may often pass invalid names. */ + return (ret); + } + +/************************************************************************/ +/* mvlu_get_leaf_val_int8 */ +/* Get leaf data value for type ST_INT8. */ +/* Arguments: */ +/* base_va base variable (i.e. logical node) */ +/* flatname flattened leaf name (e.g. ST$Mod$stVal) */ +/* data ptr to data written by this function */ +/* RETURNS: SD_SUCCESS or SD_FAILURE */ +/************************************************************************/ +ST_RET mvlu_get_leaf_val_int8 (MVL_VAR_ASSOC *base_va, ST_CHAR *flatname, ST_INT8 *data) + { +RUNTIME_TYPE *comp_rt_type; /* first rt_type of component */ +ST_INT comp_rt_num; /* num of rt_types in component */ +ST_RET ret = SD_FAILURE; + + /* Find the attribute type. */ + if (mvlu_find_comp_type (base_va->type_id, + flatname, /* flattened name */ + &comp_rt_type, /* ptr to val set by function */ + &comp_rt_num) /* ptr to val set by function */ + == SD_SUCCESS) + { + if (comp_rt_type->el_tag == RT_INTEGER && comp_rt_type->u.p.el_len == 1) + { /* must be INT8 */ + *data = *(ST_INT8 *)((ST_CHAR *) base_va->data + comp_rt_type->mvluTypeInfo.offSet); + ret = SD_SUCCESS; + } + else + MVL_LOG_ERR1 ("Invalid type for '%s' attribute. Cannot use it.", flatname); + } + else + MVLU_LOG_FLOW2 ("Cannot find '%s' attribute in this variable '%s'", + flatname, base_va->name); + return (ret); + } +/************************************************************************/ +/* mvlu_get_leaf_val_int32 */ +/* Get leaf data value for type ST_INT32. */ +/* Arguments: */ +/* base_va base variable (i.e. logical node) */ +/* flatname flattened leaf name (e.g. ST$Mod$stVal) */ +/* data ptr to data written by this function */ +/* RETURNS: SD_SUCCESS or SD_FAILURE */ +/************************************************************************/ +ST_RET mvlu_get_leaf_val_int32 (MVL_VAR_ASSOC *base_va, ST_CHAR *flatname, ST_INT32 *data) + { +RUNTIME_TYPE *comp_rt_type; /* first rt_type of component */ +ST_INT comp_rt_num; /* num of rt_types in component */ +ST_RET ret = SD_FAILURE; + + /* Find the attribute type. */ + if (mvlu_find_comp_type (base_va->type_id, + flatname, /* flattened name */ + &comp_rt_type, /* ptr to val set by function */ + &comp_rt_num) /* ptr to val set by function */ + == SD_SUCCESS) + { + if (comp_rt_type->el_tag == RT_INTEGER && comp_rt_type->u.p.el_len == 4) + { /* must be INT32 */ + *data = *(ST_INT32 *)((ST_CHAR *) base_va->data + comp_rt_type->mvluTypeInfo.offSet); + ret = SD_SUCCESS; + } + else + MVL_LOG_ERR1 ("Invalid type for '%s' attribute. Cannot use it.", flatname); + } + else + MVLU_LOG_FLOW2 ("Cannot find '%s' attribute in this variable '%s'", + flatname, base_va->name); + return (ret); + } +/************************************************************************/ +/* mvlu_get_leaf_val_int_any */ +/* Get leaf value for any signed integer. Cast value to ST_INT32. */ +/************************************************************************/ +ST_RET mvlu_get_leaf_val_int_any (MVL_VAR_ASSOC *base_va, ST_CHAR *flatname, ST_INT32 *data) + { +RUNTIME_TYPE *comp_rt_type; /* first rt_type of component */ +ST_INT comp_rt_num; /* num of rt_types in component */ +ST_CHAR *raw_data; /* ptr to data. May be any integer size */ +ST_INT8 tmp_int8; /* Used to get val as INT8, then cast to INT32 */ +ST_INT16 tmp_int16; /* Used to get val as INT16, then cast to INT32 */ +ST_RET retcode = SD_SUCCESS; + + /* Find the attribute type. */ + if (mvlu_find_comp_type (base_va->type_id, + flatname, /* flattened name */ + &comp_rt_type, /* ptr to val set by function */ + &comp_rt_num) /* ptr to val set by function */ + == SD_SUCCESS) + { + raw_data = (ST_CHAR *) base_va->data + comp_rt_type->mvluTypeInfo.offSet; + if (comp_rt_type->el_tag == RT_INTEGER) + { + if (comp_rt_type->u.p.el_len == 1) /* INT8 */ + { + tmp_int8 = *(ST_INT8 *) raw_data; + *data = (ST_INT32) tmp_int8; + } + else if (comp_rt_type->u.p.el_len == 2) /* INT16 */ + { + tmp_int16 = *(ST_INT16 *) raw_data; + *data = (ST_INT32) tmp_int16; + } + else if (comp_rt_type->u.p.el_len == 4) /* INT32 */ + { + *data = *(ST_INT32 *) raw_data; + } + else + { + MVL_LOG_ERR2 ("Unsupported integer size for '%s' attribute in variable '%s'", + flatname, base_va->name); + retcode = SD_FAILURE; + } + } + else + { + MVL_LOG_ERR2 ("Invalid type for '%s' attribute in variable '%s'. Cannot get value.", + flatname, base_va->name); + retcode = SD_FAILURE; + } + } + else + { + MVLU_LOG_FLOW2 ("Cannot find '%s' attribute in variable '%s'", + flatname, base_va->name); + retcode = SD_FAILURE; + } + return (retcode); + } +/************************************************************************/ +/* mvlu_get_leaf_val_uint32 */ +/* Get leaf data value for type ST_UINT32. */ +/* Arguments: */ +/* base_va base variable (i.e. logical node) */ +/* flatname flattened leaf name (e.g. ST$Mod$stVal) */ +/* data ptr to data written by this function */ +/* RETURNS: SD_SUCCESS or SD_FAILURE */ +/************************************************************************/ +ST_RET mvlu_get_leaf_val_uint32 (MVL_VAR_ASSOC *base_va, ST_CHAR *flatname, ST_UINT32 *data) + { +RUNTIME_TYPE *comp_rt_type; /* first rt_type of component */ +ST_INT comp_rt_num; /* num of rt_types in component */ +ST_RET ret = SD_FAILURE; + + /* Find the attribute type. */ + if (mvlu_find_comp_type (base_va->type_id, + flatname, /* flattened name */ + &comp_rt_type, /* ptr to val set by function */ + &comp_rt_num) /* ptr to val set by function */ + == SD_SUCCESS) + { + if (comp_rt_type->el_tag == RT_UNSIGNED && comp_rt_type->u.p.el_len == 4) + { /* must be UINT32 */ + *data = *(ST_UINT32 *)((ST_CHAR *) base_va->data + comp_rt_type->mvluTypeInfo.offSet); + ret = SD_SUCCESS; + } + else + MVL_LOG_ERR1 ("Invalid type for '%s' attribute. Cannot use it.", flatname); + } + else + MVLU_LOG_FLOW2 ("Cannot find '%s' attribute in this variable '%s'", + flatname, base_va->name); + return (ret); + } +/************************************************************************/ +/* mvlu_get_leaf_val_boolean */ +/* Get leaf data value for type ST_BOOLEAN. */ +/* Arguments: */ +/* base_va base variable (i.e. logical node) */ +/* flatname flattened leaf name (e.g. ST$Mod$stVal) */ +/* data ptr to data written by this function */ +/* RETURNS: SD_SUCCESS or SD_FAILURE */ +/************************************************************************/ +ST_RET mvlu_get_leaf_val_boolean (MVL_VAR_ASSOC *base_va, ST_CHAR *flatname, ST_BOOLEAN *data) + { +RUNTIME_TYPE *comp_rt_type; /* first rt_type of component */ +ST_INT comp_rt_num; /* num of rt_types in component */ +ST_RET ret = SD_FAILURE; + + /* Find the attribute type. */ + if (mvlu_find_comp_type (base_va->type_id, + flatname, /* flattened name */ + &comp_rt_type, /* ptr to val set by function */ + &comp_rt_num) /* ptr to val set by function */ + == SD_SUCCESS) + { + if (comp_rt_type->el_tag == RT_BOOL) + { /* must be BOOLEAN */ + *data = *(ST_BOOLEAN *)((ST_CHAR *) base_va->data + comp_rt_type->mvluTypeInfo.offSet); + ret = SD_SUCCESS; + } + else + MVL_LOG_ERR1 ("Invalid type for '%s' attribute. Cannot use it.", flatname); + } + else + MVLU_LOG_FLOW2 ("Cannot find '%s' attribute in this variable '%s'", + flatname, base_va->name); + return (ret); + } +/************************************************************************/ +/* mvlu_get_leaf_val_bvstring */ +/* Get leaf data value for type MMS_BVSTRING. */ +/* Arguments: */ +/* base_va base variable (i.e. logical node) */ +/* flatname flattened leaf name (e.g. ST$Mod$stVal) */ +/* data ptr to data written by this function */ +/* RETURNS: SD_SUCCESS or SD_FAILURE */ +/************************************************************************/ +ST_RET mvlu_get_leaf_val_bvstring (MVL_VAR_ASSOC *base_va, ST_CHAR *flatname, + MMS_BVSTRING *data, ST_INT max_num_bits) + { +RUNTIME_TYPE *comp_rt_type; /* first rt_type of component */ +ST_INT comp_rt_num; /* num of rt_types in component */ +ST_RET ret = SD_FAILURE; +ST_INT num_bytes; + + /* Find the attribute type. */ + if (mvlu_find_comp_type (base_va->type_id, + flatname, /* flattened name */ + &comp_rt_type, /* ptr to val set by function */ + &comp_rt_num) /* ptr to val set by function */ + == SD_SUCCESS) + { + /* NOTE: for Bvstring, el_len is negative. */ + if (comp_rt_type->el_tag == RT_BIT_STRING && comp_rt_type->u.p.el_len < 0 + && abs (comp_rt_type->u.p.el_len) <= max_num_bits) + { + num_bytes = 2 + (abs (comp_rt_type->u.p.el_len) + 7)/8; + memcpy (data, (ST_CHAR *)base_va->data + comp_rt_type->mvluTypeInfo.offSet, num_bytes); + ret = SD_SUCCESS; + } + else + MVL_LOG_ERR1 ("Invalid type for '%s' attribute. Cannot use it.", flatname); + } + else + MVLU_LOG_FLOW2 ("Cannot find '%s' attribute in this variable '%s'", + flatname, base_va->name); + return (ret); + } +/************************************************************************/ +/* mvlu_get_leaf_data_ptr */ +/* Get leaf data pointer (for any type of leaf). */ +/* Arguments: */ +/* base_va base variable (i.e. logical node) */ +/* flatname flattened leaf name (e.g. ST$Mod$stVal) */ +/* rt_type ptr to ptr to type (function sets "*rt_type") */ +/* RETURNS: pointer to leaf data (NULL on error) */ +/************************************************************************/ +ST_VOID *mvlu_get_leaf_data_ptr (MVL_VAR_ASSOC *base_va, ST_CHAR *flatname, RUNTIME_TYPE **rt_type) + { +RUNTIME_TYPE *comp_rt_type; /* first rt_type of component */ +ST_INT comp_rt_num; /* num of rt_types in component */ +ST_VOID *data; + + /* Find the attribute type. */ + if (mvlu_find_comp_type (base_va->type_id, + flatname, /* flattened name */ + &comp_rt_type, /* ptr to val set by function */ + &comp_rt_num) /* ptr to val set by function */ + == SD_SUCCESS) + { + data = ((ST_CHAR *) base_va->data + comp_rt_type->mvluTypeInfo.offSet); + *rt_type = comp_rt_type; + } + else + { + data = NULL; + MVLU_LOG_FLOW2 ("Cannot find '%s' attribute in this variable '%s'", + flatname, base_va->name); + } + return (data); + } + +/************************************************************************/ +/* mvlu_find_component */ +/* Find a lower level variable by processing "flattened" variable name */ +/* AND/OR Alternate Access. */ +/* NOTE: Similar to "mvlu_find_uca_var" but handles Alternate Access too.*/ +/************************************************************************/ +ST_RET mvlu_find_component ( + ST_CHAR *flatname, /* flattened name (e.g. ST$Mod$stVal) */ + ALT_ACCESS *alt_acc, /* NULL if Alt Access Spec not present */ + RUNTIME_TYPE **rtIo, + ST_INT *numRtIo, + ST_INT *offset_io, + ST_RTINT *prim_num_io) + { +ST_RET ret; +ST_INT aa_idx; /* index to next alternate access element */ +RUNTIME_TYPE *rt_type; +ST_CHAR nameBuf[MAX_IDENT_LEN+1]; +ST_CHAR *nameToFind; +ST_CHAR *compEnd; +ST_BOOLEAN nameDone; + + /* Deal with "flattened" naming first (i.e. fake Alternate Access). */ + if (flatname != NULL) + { + strcpy (nameBuf, flatname); /* copy so we can modify it */ + nameToFind = nameBuf; + nameDone = SD_FALSE; + while (nameDone == SD_FALSE) + { + /* Isolate the component name for this level, removing subcomp names */ + compEnd = strstr (nameToFind, "$"); + if (compEnd != NULL) + *compEnd = 0; + else /* This is the last nest level */ + nameDone = SD_TRUE; + + /* Find the component name in the current runtime type nest level */ + /* NOTE: this modifies (*rtIo), (*numRtIo), (*offset_io), (*prim_num_io).*/ + ret = mvlu_find_struct_comp (nameToFind, rtIo, numRtIo, offset_io, prim_num_io); + if (ret == SD_FAILURE) + { + /* Many things can cause this so just use FLOW Logging. */ + MVLU_LOG_FLOW2 ("Could not find name component %s from name %s", + nameToFind, flatname); + return (SD_FAILURE); + } + + /* OK, we now have found the component in the runtime type, and our */ + /* runtime pointer and numRt reflect the sub-runtime type. */ + /* next component. */ + + /* Prepare to find the next level component name */ + nameToFind = compEnd+1; + } /* end while */ + } /* end if (flatname != NULL)*/ + + /* Now deal with real alternate access. */ + if (alt_acc != NULL) + { + for (aa_idx = 0; aa_idx < alt_acc->num_aa; aa_idx++) + { + ALT_ACC_EL *next_el; + ST_CHAR *comp_name; /* component name (used only if AA_COMP..)*/ + ST_INT arr_index; /* array index (used only if AA_INDEX..)*/ + + next_el = &alt_acc->aa[aa_idx]; + switch (next_el->sel_type) + { + case AA_COMP : + case AA_COMP_NEST : + comp_name = next_el->u.component; + /* Find the component name in the current runtime type nest level */ + ret = mvlu_find_struct_comp (comp_name, rtIo, numRtIo, offset_io, prim_num_io); + if (ret == SD_FAILURE) + { + /* Many things can cause this so just use FLOW Logging. */ + MVLU_LOG_FLOW1 ("Could not find name component %s", comp_name); + return (SD_FAILURE); + } + break; + case AA_INDEX_NEST : + case AA_INDEX : + case AA_INDEX_RANGE_NEST : + case AA_INDEX_RANGE : + rt_type = *rtIo; + if (rt_type->el_tag != RT_ARR_START) + { + MVL_LOG_ERR1 ("Specified array index on non-array component %s", comp_name); + return (SD_FAILURE); + } + /* If Array index range, just need low index for this computation.*/ + if (next_el->sel_type== AA_INDEX_RANGE_NEST || + next_el->sel_type== AA_INDEX_RANGE) + arr_index = next_el->u.ir.low_index; + else + arr_index = next_el->u.index; + *offset_io += rt_type->el_size; /* ARR_START size (usually 0)*/ + /* Multiply array element size by array index. */ + /* offset_to_last in next rt_type contains array element size.*/ + *offset_io += (rt_type+1)->offset_to_last * arr_index; + *prim_num_io += (rt_type+1)->mvluTypeInfo.prim_count * arr_index; + *rtIo = rt_type + 1; /* point to array elem */ + *numRtIo-=2; + break; + case AA_END_NEST : + break; /* just ignore these */ + default: + MVL_LOG_ERR1 ("Alternate access type '%d' not supported", next_el->sel_type); + return (SD_FAILURE); + } + + /* OK, we now have found the component in the runtime type, and our */ + /* runtime pointer and numRt reflect the sub-runtime type. */ + } + } + return (SD_SUCCESS); + } + +/************************************************************************/ +/* chk_var_writable */ +/* Check if EVERY leaf in this variable is writable. If so, variable */ +/* is writable. */ +/* RETURNS: SD_SUCCESS if variable is writable */ +/* SD_FAILURE if variable is NOT writable */ +/************************************************************************/ +static ST_RET chk_var_writable (RUNTIME_TYPE *rt, ST_INT rt_num) + { +ST_INT j; + + /* DEBUG: This mode is almost never used. */ + /* 1 leaf function for all leafs. Assume all leafs writable. */ + if (u_mvlu_leaf_wr_ind_fun) + { + return (SD_SUCCESS); /* var is writable */ + } + + /* Find index to "u_no_write_allowed" function & save in static var. */ + /* This calls "mvlu_find.." only once, the first time through here. */ + /* NOTE: if not found, idx will be -1. If found, idx will be >= 0. */ + if (idx_u_no_write_allowed == -2) /* not yet initialized */ + {idx_u_no_write_allowed = -1;}//idx_u_no_write_allowed = mvlu_find_wr_ind_fun_index ("u_no_write_allowed");//lnk±àÒëÐ޸ģ¬Ô­Ç°ÖóÌÐòδʹÓà + if (idx_u_no_write_allowed < 0) + return (SD_SUCCESS); /* funct not found. Assume var is writable*/ + + /* Loop through type def to see if ANY leaf is unwritable. */ + for (j = 0; j < rt_num; ++j, ++rt) + { + if (ms_is_rt_prim (rt) + && rt->mvluTypeInfo.wrIndFunIndex == idx_u_no_write_allowed) + { + return (SD_FAILURE); /* var not writable */ + } + } + return (SD_SUCCESS); /* var is writable */ + } + +/************************************************************************/ +/* chk_write_resp_ready */ +/* Check if everything ready to send Write response. */ +/* RETURNS: SD_SUCCESS if ready */ +/* SD_FAILURE if NOT ready */ +/************************************************************************/ +static ST_RET chk_write_resp_ready (MVL_IND_PEND *indCtrl) + { +MVLAS_WRITE_CTRL *wrCtrl; +MVLAS_WR_VA_CTRL *wrVaCtrl; /* current var in list of var */ +ST_INT i; +ST_BOOLEAN retcode; + + wrCtrl = &indCtrl->u.wr; + + /* If all primitives for all variables are complete, ready to send resp.*/ + wrVaCtrl = wrCtrl->vaCtrlTbl; + for (i = 0; i < wrCtrl->numVar; ++i, ++wrVaCtrl) + { + if (wrVaCtrl->numPrimDataDone != wrVaCtrl->numPrimData) + break; /* prims NOT done for this var */ + } + if (i == wrCtrl->numVar) + retcode = SD_SUCCESS; /* ready to send response. */ + else + retcode = SD_FAILURE; /* not ready */ + return (retcode); + } +/************************************************************************/ +/* set_write_resp_dae */ +/* Set MMS Write Response DataAccessError for this variable. */ +/************************************************************************/ +static ST_VOID set_write_resp_dae (MVLAS_WR_VA_CTRL *wrVaCtrl, + ST_INT16 dae) /* MMS DataAccessError code */ + { + wrVaCtrl->resp_tag = WR_RSLT_FAILURE; + wrVaCtrl->failure = dae; + wrVaCtrl->numPrimDataDone = wrVaCtrl->numPrimData; /* pretend like all prim done*/ + } + +/************************************************************************/ +#endif /* defined(MVL_UCA) */ +/************************************************************************/ + diff --git a/mmslib/mvlu/mvl_var.c b/mmslib/mvlu/mvl_var.c new file mode 100644 index 0000000..531ee99 --- /dev/null +++ b/mmslib/mvlu/mvl_var.c @@ -0,0 +1,400 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1994 - 2002, All Rights Reserved */ +/* */ +/* MODULE NAME : mvl_var.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* NONE */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 10/30/06 JRB 31 Use new mvl_vmd_* object handling functions. */ +/* _mvl_objname_to_va: add args. */ +/* u_mvl_get_va_aa: add args. */ +/* Elim use of global var "_mvl_curr_net_info". */ +/* 01/30/06 GLB 30 Integrated porting changes for VMS */ +/* 02/27/04 MDE 29 Log message correct */ +/* 03/13/03 JRB 28 Add mvl_scope_set function. */ +/* 12/12/02 JRB 27 Add net_info arg to mvl_get_va_asn1... and */ +/* elim it's use of global _mvl_curr_net... */ +/* 02/25/02 MDE 26 Now get max PDU size from mvl_cfg_info */ +/* 01/02/02 JRB 25 Converted to use ASN1R (re-entrant ASN1) */ +/* 10/25/00 JRB 24 Del u_mvl funct ptrs. Call functs directly. */ +/* Control with #ifdefs. */ +/* 08/17/00 JRB 23 Don't clear va_to_free. Need value later. */ +/* 03/08/00 JRB 22 Del #ifdef MVL_REQ_BUF_ENABLED: not used. */ +/* 01/21/00 MDE 21 Now use MEM_SMEM for dynamic memory */ +/* 01/21/00 MDE 20 Add '_mvl_get_req_buf' for MVL_REQ_BUF_EN.. */ +/* 11/19/99 NAV 19 Add #ifdef MVL_REQ_BUF_ENABLED */ +/* 10/22/99 NAV 18 Add a few utilities to copy structs */ +/* 09/13/99 MDE 17 Added SD_CONST modifiers */ +/* 09/07/99 MDE 16 Changed MVL_VA_SCOPE to MVL_SCOPE */ +/* 01/20/99 JRB 15 Del mvl_find_*. Use new "bsearch" versions. */ +/* Del _mvl_skip_uca_prefix (use va->flags). */ +/* Del _mvl_destroy_nvl_ent.. (see mvl_nvl_de..)*/ +/* 12/11/98 MDE 14 Removed scope references from VA */ +/* 12/08/98 MDE 13 Added client alternate access support */ +/* 11/16/98 MDE 12 Added '_mvl_destroy_nvl_entries' */ +/* 11/16/98 MDE 11 Renamed internal functions (prefix '_') */ +/* 11/10/98 MDE 10 Added 'mvl_get_va_asn1_data' (was in s_read) */ +/* 09/21/98 MDE 09 Minor lint cleanup */ +/* 07/21/98 MDE 08 Moved 'mvl_insert_nvlist' to mvl_dnvl.c */ +/* 07/13/98 MDE 07 Fixed mvl_insert_nvlist bug when adding 1st */ +/* 06/30/98 MDE 06 Corrected insert order for "_UCA_" names */ +/* 06/15/98 MDE 05 Changes to allow compile under C++ */ +/* 06/05/98 MDE 04 Added 'mvl_insert_nvlist' */ +/* 01/06/98 RWM 03 Added Binary Search Capability */ +/* 12/12/97 MDE 02 Moved mvl_vmd to rt_types.c */ +/* 09/10/97 MDE 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" + +#include "mmsdefs.h" +#include "mms_pvar.h" +#include "mms_vvar.h" +#include "mvl_acse.h" +#include "mvl_log.h" + + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/************************************************************************/ +/* _mvl_objname_to_va */ +/************************************************************************/ + +MVL_VAR_ASSOC *_mvl_objname_to_va (MVL_VMD_CTRL *vmd_ctrl, + MVL_NET_INFO *net_info, + ST_INT service, + OBJECT_NAME *obj, + MVL_SCOPE *va_scope_out, + ST_BOOLEAN alt_access_pres, + ALT_ACCESS *alt_acc, + ST_BOOLEAN *alt_access_done_out) + { +MVL_VAR_ASSOC *va; + +/* By default, we don't modify the VA to handle alternate access */ + if (alt_access_done_out != NULL) + *alt_access_done_out = SD_FALSE; + +/* Let's find the variable association */ + va = mvl_vmd_find_var (vmd_ctrl, obj, net_info); + if ((!va) || (va->flags & MVL_VAR_FLAG_UCA)) + { + /* Could not find variable association, see if we can manufacture it */ +#if defined(MVL_UCA) || defined(USE_MANUFACTURED_OBJS) + /* May be able to manufacture it */ + va = u_mvl_get_va_aa (vmd_ctrl, service, obj, net_info, + alt_access_pres, alt_acc, + alt_access_done_out); + if (va != NULL) /* Manufactured it, set flag ... */ + va->va_to_free = va; +#endif /* defined(MVL_UCA) || defined(USE_MANUFACTURED_OBJS) */ + } + +/* OK, assuming we have the VA, set it's scope appropriately */ + if (va && va_scope_out) + { + va_scope_out->scope = obj->object_tag; + if (va_scope_out->scope == DOM_SPEC) + { + va_scope_out->dom = mvl_vmd_find_dom (vmd_ctrl, obj->domain_id); + if (va_scope_out->dom == NULL) + { + MVL_LOG_NERR1 ("Warning : Variable object references non-existant domain '%s'", + obj->domain_id); + } + } + } + return (va); + } + +/************************************************************************/ +/* mvl_scope_set */ +/* Use the OBJECT_NAME info to set the scope for any MMS object. */ +/* This function fills in the struct pointed to by mvl_scope_out. */ +/************************************************************************/ +ST_VOID mvl_scope_set (OBJECT_NAME *obj, MVL_SCOPE *mvl_scope_out) + { + mvl_scope_out->scope = obj->object_tag; + if (mvl_scope_out->scope == DOM_SPEC) + { + mvl_scope_out->dom = mvl_vmd_find_dom (&mvl_vmd, obj->domain_id); + if (mvl_scope_out->dom == NULL) + MVL_LOG_NERR1 ("Warning : MMS object references nonexistent domain '%s'", + obj->domain_id); + } + } + +/************************************************************************/ +/* mvl_get_va_asn1_data */ +/************************************************************************/ + +ST_RET mvl_get_va_asn1_data (MVL_NET_INFO *net_info, MVL_VAR_ASSOC *va, + ST_BOOLEAN alt_access_pres, + ALT_ACCESS *alt_acc, + ST_UCHAR *asn1_dest_buffer, + ST_INT asn1_buffer_len, + ST_INT *asn1_len_out) + { +RUNTIME_TYPE *rt; +ST_INT num_rt; +ST_RET rc; +ST_UCHAR *asn1_start; +ST_INT asn1_len; +ST_INT aa_mode; +ASN1_ENC_CTXT localEncCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_ENC_CTXT *aCtx = &localEncCtx; + + aa_mode = MVL_USE_UNPACKED_AA; + if (va->proc && va->proc->pre_read_aa) + { + rc = (*va->proc->pre_read_aa)(&va, alt_access_pres, alt_acc, + net_info, &aa_mode); + + if (rc != SD_SUCCESS) + { + MVL_LOG_NERR1 ("Read: pre_read_aa returned %d", rc); + return (SD_FAILURE); + } + } + + rc = mvl_get_runtime (va->type_id, &rt, &num_rt); + if (rc != SD_SUCCESS) + { + MVL_LOG_NERR1 ("Read: mvl_get_runtime failed, rc = %x", rc); + return (rc); /* bad type id */ + } + +/* If we got here, we have a valid runtime and have resolved local */ +/* data pointer and size. Go ahead and build the ASN.1 data element. */ + +/* First we need to initialize the ASN.1 encode tools, then do the */ +/* encode */ + asn1r_strt_asn1_bld (aCtx, asn1_dest_buffer, asn1_buffer_len); + +#if defined(MVL_AA_SUPP) + if (alt_access_pres == SD_FALSE || aa_mode == MVL_USE_NO_AA) + { + rc = ms_local_to_asn1 (aCtx, rt, num_rt, (ST_CHAR *) va->data); + } + else + { + if (aa_mode == MVL_USE_PACKED_AA) + m_alt_acc_packed = SD_TRUE; + else + m_alt_acc_packed = SD_FALSE; + + rc = ms_local_to_asn1_aa (aCtx, rt, num_rt, alt_acc, (ST_CHAR *) va->data); + } +#else + rc = ms_local_to_asn1 (aCtx, rt, num_rt, (ST_CHAR *) va->data); +#endif + +/* When the ASN.1 encode is complete, 'asn1_field_ptr' points 1 byte ahead */ +/* of the start of the message. The ASN.1 message is build from back to */ +/* front, so that is now we calculate the length of the PDU */ + if (rc == SD_SUCCESS) + { + asn1_start = aCtx->asn1r_field_ptr+1; + asn1_len = (asn1_dest_buffer + asn1_buffer_len) - asn1_start; + memmove (asn1_dest_buffer,asn1_start,asn1_len); + *asn1_len_out = asn1_len; + + if (va->proc && va->proc->post_read_aa) + { + (*va->proc->post_read_aa)(va, alt_access_pres, alt_acc, + net_info); + } + } + else + { + MVL_LOG_NERR1 ("Local to ASN1 data conversion error: 0x%04x", rc); + } + return (rc); + } + + +/************************************************************************/ +/************************************************************************/ +#if defined(MVL_AA_SUPP) +/************************************************************************/ + +/************************************************************************/ +/************************************************************************/ +/* _mvl_get_asn1_aa */ +/************************************************************************/ + +ST_RET _mvl_get_asn1_aa (ALT_ACCESS *alt_acc, VARIABLE_LIST *vl) + { +ST_UCHAR *aa_buf; +ST_INT aa_buf_size; +ST_UCHAR *asn1_start; +ST_INT asn1_len; +ASN1_ENC_CTXT localEncCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_ENC_CTXT *aCtx = &localEncCtx; + + aa_buf = _m_get_aa_asn1_buf (&aa_buf_size); + asn1r_strt_asn1_bld (aCtx, aa_buf, aa_buf_size); + if (ms_aa_to_asn1 (aCtx, alt_acc)) + { + _m_free_aa_asn1_buf (); + return (SD_FAILURE); + } + else + { + asn1_start = aCtx->asn1r_field_ptr+1; + asn1_len = (aa_buf + aa_buf_size) - asn1_start; + vl->alt_access.len = asn1_len; + vl->alt_access.data = asn1_start; + vl->alt_access_pres = SD_TRUE; + _m_set_aa_asn1_buf_end (asn1_start -1); + } + return (SD_SUCCESS); + } + +/************************************************************************/ + +static ST_UCHAR *aa_buffer_head; +static ST_UCHAR *aa_buffer_end; + +/************************************************************************/ +/* _m_get_aa_asn1_buf */ +/************************************************************************/ + +ST_UCHAR *_m_get_aa_asn1_buf (ST_INT *size_out) + { +ST_UCHAR *ret; + + if (!aa_buffer_head) + { + aa_buffer_head = (ST_UCHAR *) M_MALLOC (MSMEM_AA_ENCODE, mvl_cfg_info->max_msg_size); + aa_buffer_end = aa_buffer_head + mvl_cfg_info->max_msg_size -1; + } + + *size_out = aa_buffer_end - aa_buffer_head + 1; + ret = aa_buffer_head; + return (ret); + } + +/************************************************************************/ +/* _m_set_aa_asn1_buf_end */ +/************************************************************************/ + +ST_VOID _m_set_aa_asn1_buf_end (ST_UCHAR *new_end) + { + aa_buffer_end = new_end; + } + +/************************************************************************/ +/* _m_free_aa_asn1_buf */ +/************************************************************************/ + +ST_VOID _m_free_aa_asn1_buf (ST_VOID) + { + if (aa_buffer_head) + { + M_FREE (MSMEM_AA_ENCODE, aa_buffer_head); + aa_buffer_head = NULL; + } + } + +#endif /* #if defined(MVL_AA_SUPP) */ + + +/************************************************************************/ +/* mvl_get_descr_local_addr */ +/* DESCRIBED VARIABLE ASSOCIATION */ +/* Addresses are in the form : */ +/* "baseaddr:xxx" */ +/* where xxx is the element offset from the base address. */ +/************************************************************************/ + +/************************************************************************/ +#if defined (MVL_DESCR_SUPP) +/************************************************************************/ + +ST_RET mvl_get_descr_local_addr (VAR_ACC_ADDR *addr, + RUNTIME_TYPE *rt, + ST_INT num_rt, + ST_CHAR **data_out, + ST_INT *data_size_out) + { +ST_INT i; +MVL_DESCR_ADDR_ASSOC *d; +ST_INT base_name_len; +ST_INT offset; +ST_INT num_offset; +ST_INT num_elmnts; + +/* We only support symbolic addresses */ + if (addr->addr_tag != SYM_ADDR) + { + MVL_LOG_NERR0 ("Get Described Local Address : Only Symbolic Addresses are supported"); + return (MVL_ERR_NOT_SYM_ADDR); + } + +/* Find the matching described variable association */ + d = mvl_vmd.descr_addr_assoc_tbl; + for (i = 0; i < mvl_vmd.num_descr_addr; ++i, ++d) + { + base_name_len = strlen (d->base_name); + if (!strncmp (d->base_name, addr->addr.sym_addr, base_name_len)) + { + /* Check for offset from base element */ + if (base_name_len == strlen (addr->addr.sym_addr)) + offset = 0; + else + { + num_offset = atoi (&addr->addr.sym_addr[base_name_len + 1]); + if (num_offset) /* :1 is first element */ + num_offset--; + offset = d->data_size * num_offset; + } + + if (rt->el_tag != RT_ARR_START) /* if not array */ + { + *data_out = (ST_CHAR *) d->data + offset; + *data_size_out = d->data_size; + return (SD_SUCCESS); + } + else /* this is an array */ + { + num_elmnts = rt->u.arr.num_elmnts; /* get number of elements */ + if (num_elmnts + num_offset > d->max_elmnts) + { + MVL_LOG_NERR0 ("Get Described Local Address : Invalid array element count"); + return (MVL_ERR_ARRAY_ELEMENT_CNT); + } + + *data_out = (ST_CHAR *) d->data + offset; + *data_size_out = d->data_size * num_elmnts; + return (SD_SUCCESS); + } + break; + } + } + MVL_LOG_NERR0 ("Get Described Local Address : Could not get Local Address"); + return (MVL_ERR_LOCAL_ADDRESS); + } +/************************************************************************/ +#endif /* #if defined (MVL_DESCR_SUPP) */ +/************************************************************************/ + diff --git a/mmslib/mvlu/mvlu_rpt.c b/mmslib/mvlu/mvlu_rpt.c new file mode 100644 index 0000000..8c8efbc --- /dev/null +++ b/mmslib/mvlu/mvlu_rpt.c @@ -0,0 +1,2570 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1998 - 2006, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : mvlu_rpt.c */ +/* PRODUCT(S) : MMSEASE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 07/08/08 JRB 62 mvlu_create_rpt_ctrl: clarify args. */ +/* 04/15/08 JRB 61 Don't call mvlu_rpt_va_change for Integrity */ +/* (save "reason" later when scan completes). */ +/* mvl61850_brcb_handle_rptena_wr: fix retCode. */ +/* mvlu_rptena_wr..: Fix warning newval not set.*/ +/* 03/04/08 JRB 60 Remove AA_SPEC DatSet from RCB on disconnect */ +/* or when 0 written to Resv. */ +/* 03/16/07 JRB 59 Fix Resv init in ..urcb_handle_rptena_wr. */ +/* 02/28/07 JRB 58 DO NOT PurgeBuf when OptFlds is changed. */ +/* PurgeBuf when RptID, DatSet, BufTm, TrgOps, */ +/* or IntgPd is changed (tissue 322 final text).*/ +/* 02/13/07 JRB 57 mvl61850_get_rcb: del unused net_info arg. */ +/* Chk net_info before trying to find UCA RCB. */ +/* Add _rcb_writable & use it. */ +/* 12/20/06 JRB 56 PurgeBuf only if val changed (tissue 322). */ +/* PurgeBuf also when BufTm written. */ +/* 10/30/06 JRB 55 Use new mvl_vmd_* object handling functions. */ +/* u_mvl_get_va_aa: add args. */ +/* Add mvlu_rpt_ctrl_destroy_all */ +/* 09/13/06 JRB 54 mvlu_rpt_find_typeids: simplify. */ +/* 08/09/06 JRB 53 If report buffered because of BufTm, send it */ +/* BEFORE any Integrity report. */ +/* 08/09/06 JRB 52 mvlu_create_rpt_ctrl, mvlu_free_rpt_ctrl, */ +/* mvlu_rpt_service now ONLY for UCA (for 61850,*/ +/* use new functions in mvl61850_rpt.c). */ +/* Del brcb_enable_allowed (not needed now that */ +/* segmenting done only when sending). */ +/* Reset SqNum=0 when BRCB enabled. */ +/* PurgeBuf when DatSet,OptFlds,TrgOps,IntgPd */ +/* or RptID written. */ +/* Reserve BRCB only when RptEna written (chged */ +/* mvlu_get_wr_rcb, mvlu_rptena_wr_ind_fun). */ +/* mvlu_rpt_find_typeids: create if not found. */ +/* Add mvlu_rpt_ready, mvlu_rpt_rcb_type_find. */ +/* Chg some static functs to extern. */ +/* 07/27/05 JRB 51 mvlu_optflds_wr..: use rcb_type to figure */ +/* out which bits are writable. */ +/* 06/27/05 JRB 50 brcb_enable_allowed: reset netInfo on error. */ +/* 06/27/05 JRB 49 Simplify allocation by deleting all use of */ +/* MVLU_RPT_VA_CTRL & va->mvl_internal & moving */ +/* last_data to MVL_VAR_ASSOC struct. */ +/* Del mvlu_rpt_nvl_add/destroy, use mvl_nvl_add*/ +/* Del unused mvlu_resolve_uca_nvl. */ +/* 06/27/05 JRB 48 _mvlu_get_rd_rcb: add (MVLU_RPT_CLIENT **) arg*/ +/* 05/24/05 CRM 47 Added mvlu_rpt_destroy_scan_ctrl */ +/* 05/16/05 JRB 46 Set failure=ARE_TEMP_UNAVAIL when trying to */ +/* write RCB elements while RptEna=TRUE. */ +/* 05/09/05 JRB 45 Chk Integrity bit in TrgOps, as we did */ +/* BEFORE change on 03/13/03 (61850 requires it)*/ +/* 08/16/04 JRB 44 Reset SqNum when URCB is enabled. */ +/* 07/20/04 JRB 43 ..chk_reason: make sure OLD data sent in */ +/* first rpt when 2nd change detected. */ +/* 07/07/04 JRB 42 ..chk_reason: for URCB or BRCB, call */ +/* mvl61850_rcb_build (NOT mvlu_send_report). */ +/* 07/06/04 JRB 41 Add client for BRCB only when needed, */ +/* allows BRCB initial values to be set first. */ +/* Add mvlu_rpt_create_scan_ctrl2. */ +/* 06/29/04 JRB 40 mvlu_rpt_nvl_add: alloc new buffer for */ +/* va->data ONLY if use_static_data==FALSE. */ +/* 12/17/03 JRB 39 61850-8-1 FDIS changes: */ +/* Increase num bits in OptFlds to 10 for ConfRev.*/ +/* Find type RTYP_INT32U for ConfRev. */ +/* 05/02/03 JRB 38 switch(rt->el_tag): Use default for most cases*/ +/* 04/17/03 JRB 37 Add & use mvlu_setup_scan_read. */ +/* 04/04/03 JRB 36 mvlu_rpt_va_change: save data at END of funct*/ +/* 04/04/03 JRB 35 Fix integrity/GI scan code so multiple */ +/* concurrent scans don't corrupt one another. */ +/* 03/13/03 JRB 34 Add URCB support including Resv. */ +/* Chg OptFlds back to 8 bits for UCA (9 for IEC).*/ +/* Trigger Intg Rpt ONLY by setting IntgPd!=0. */ +/* Increment SqNum after each report. */ +/* Chg names in rpt_typeids struct (clearer). */ +/* Fix _mvlu_rpt_find_rpt_va to set scope. */ +/* Use tmp_va_arr for all rptNvl options. */ +/* Simplify mvlu_rpt_va_change. */ +/* Use domain name for NVL, not VA, in RptId string.*/ +/* Chg TrgOps to Bvstring. */ +/* 12/16/02 JRB 33 Chg args to mvlu_create_rpt_ctrl. */ +/* Add mvlu_integrity_scan_* functions. */ +/* Move some init/cleanup INTO mvlu_send_report.*/ +/* Don't allow write of RCB if RptEna=TRUE. */ +/* Use mvl_internal to AVOID conflict w/ user_info.*/ +/* Write default RptID once in mvlu_create_rpt_ctrl*/ +/* Start "automatic" scan when IntgPd expires. */ +/* Use BSTR_BIT.. macros to access bitstring bits*/ +/* Del buffer chain code. */ +/* Del rptTim*, call usr func u_mvlu_rpt_time_get*/ +/* Del outDat*, use basrcb->DatSetNa (same string)*/ +/* Init OptFlds.len_1=8. Chg optflds_wr_ind_fun.*/ +/* Del *typeId globals, use mvlu_rpt_find_typeids*/ +/* Use BSTR_NUMBITS_TO_.. */ +/* 12/09/02 MDE 32 Removed need for primRef for reports */ +/* 03/29/02 JRB 31 Fix crash if _mvl_objname_to_va returns NULL.*/ +/* 12/12/01 MDE 30 Include mvl_defs.h instead of mvl_acse.h */ +/* 11/26/01 EJV 29 Added support for new MMS type UtcTime. */ +/* 08/30/01 JRB 28 Fix "..sqnum_rd.." (chg UINT16 to UINT8). */ +/* 12/21/00 JRB 27 Del return in main loop of mvlu_rpt_va_change*/ +/* 10/25/00 JRB 26 Del u_mvl funct ptrs. Call functs directly. */ +/* 09/08/00 JRB 25 Default to 10 second scan period. */ +/* 07/13/00 JRB 24 Use new ms_comp_name_find to get comp names. */ +/* 07/11/00 MDE 23 Changed seqNum to sqNum, made INT8U */ +/* 05/01/00 JRB 22 Lint cleanup (uninitialized var). */ +/* 03/10/00 JRB 21 Copy va_scope to appropriate structures. */ +/* 03/07/00 MDE 20 Fixed integrity report problem */ +/* 01/21/00 MDE 19 Now use MEM_SMEM for dynamic memory */ +/* 09/27/99 NAV 18 Set OutData data for report */ +/* 09/13/99 MDE 17 Added SD_CONST modifiers */ +/* 09/07/99 MDE 16 Revised and enhanced the UCA report system */ +/* 05/04/99 JRB 15 Fixed several write indication functions. */ +/* 03/18/99 MDE 14 Changed for runtime connection limits */ +/* 01/21/99 JRB 13 Del mvlu_create_nvl, mvlu_destroy_nvl. Call */ +/* mvl_nvl_create, mvl_nvl_destroy instead. */ +/* 12/11/98 MDE 12 Removed scope references from VA */ +/* 11/16/98 MDE 11 Now use '_mvl_destroy_nvl_entries' */ +/* 11/16/98 MDE 10 Renamed internal functions (prefix '_') */ +/* 10/01/98 MDE 09 Changes to MVLU_RPT_CTRL rcb allocation */ +/* 09/21/98 MDE 08 Minor lint cleanup */ +/* 09/16/98 MDE 07 Moved RD/WR functions here from rdwrind.c */ +/* 08/11/98 MDE 06 Changed 'mvlu_create_rpt_ctrl' parameters */ +/* 07/13/98 MDE 05 We now use our own report control */ +/* 06/29/98 MDE 04 Moved report function pointers to mvl_uca.c */ +/* 06/22/98 MDE 03 SeqNum now ST_UINT16 */ +/* 06/15/98 MDE 02 Changes to allow compile under C++ */ +/* 01/02/98 MDE 01 New */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" +#include "mmsdefs.h" +#include "mms_pvar.h" +#include "mms_vvar.h" +#include "mvl_uca.h" +#include "mvl_log.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/************************************************************************/ +/* These variables must be set by the user application, and select the */ +/* types to be used by the elements listed below. */ + +MVLU_RPT_CTRL *mvlu_rpt_ctrl_list; +MVLU_RPT_CTRL *mvl61850_rpt_ctrl_list; /* List of only 61850 RCBs. */ +MVLU_RPT_SCAN_CTRL *mvlu_rpt_scan_list; + +/************************************************************************/ + +static MVLU_RPT_CLIENT *_mvlu_add_rpt_client (MVLU_RPT_CTRL *rptCtrl, + MVL_NET_INFO *netInfo); +static ST_VOID _mvlu_free_rpt_client (MVLU_RPT_CLIENT *rptClient); + +static ST_VOID _mvlu_rpt_client_service (MVLU_RPT_CLIENT *rptClient, + ST_DOUBLE timeNow); + +static ST_VOID _mvlu_rpt_va_reads_done (MVL_IND_PEND *indCtrl, + MVL_VAR_ASSOC *va); + +static ST_VOID _mvlu_get_rcb (MVL_VAR_ASSOC *baseVa, + RUNTIME_TYPE *rt, + MVL_NET_INFO *netInfo, + MVLU_RPT_CTRL **rptCtrlOut, + MVLU_RPT_CLIENT **rptClientOut); + +static ST_RET _mvlu_count_rpt_var (RUNTIME_TYPE *rt, ST_INT numRt, + ST_INT *numRptVarOut, ST_INT *nameSizeOut); + +static ST_RET _mvlu_fill_rpt_var (ST_CHAR *baseName, ST_CHAR *domName, + RUNTIME_TYPE *rt, ST_INT numRt, + ST_INT numObjNames, OBJECT_NAME *objNames, + ST_CHAR **nameBufPtr); + +static ST_VOID _mvlu_rpt_va_chk_reason (MVLU_RPT_CLIENT *rptClient, + MVL_VAR_ASSOC *va, + ST_INT entry_num, + ST_UCHAR reason); + +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ +/* REPORT DATASET HANDLING */ +/************************************************************************/ +/************************************************************************/ + +/************************************************************************/ +/* mvlu_derive_rpt_ds */ +/************************************************************************/ + +MVL_NVLIST_CTRL *mvlu_derive_rpt_ds (ST_CHAR *domName, ST_CHAR *nvlName, + ST_INT numNodes, ST_CHAR **nodeNames) + { +MVL_NVLIST_CTRL *nvl; +OBJECT_NAME nvlObjName; +OBJECT_NAME *objNames; +ST_RET rc; +ST_INT numDsVar; +ST_CHAR *nameBuf; + + + rc = mvlu_derive_ds_va_names (domName, numNodes, nodeNames, + &numDsVar, &objNames, &nameBuf); + if (rc != SD_SUCCESS) + return (NULL); + + +/* Create the DataSet NVL */ + nvlObjName.object_tag = DOM_SPEC; + nvlObjName.domain_id = domName; + nvlObjName.obj_name.item_id = nvlName; + +/* Add the DataSet NVL to the MVL data structures */ + nvl = mvl_vmd_nvl_add (&mvl_vmd, + &nvlObjName, /* NVL "object name" */ + NULL, /* MVL_NET_INFO not used */ + numDsVar, /* num of variables */ + objNames, /* array of var "object names" */ + SD_TRUE); /* copy nvl name to new nvl. */ + + M_FREE (MSMEM_GEN, nameBuf); + M_FREE (MSMEM_GEN, objNames); + return (nvl); + } + +/************************************************************************/ +/************************************************************************/ + + +typedef struct + { + MVL_VAR_ASSOC *nodeVa; + ST_INT num_rpt_var; + RUNTIME_TYPE *rt; + ST_INT numRt; + } _MVLU_RPT_DS_NODE_INFO; + +ST_RET mvlu_derive_ds_va_names (ST_CHAR *domName, + ST_INT numNodes, ST_CHAR **nodeNames, + ST_INT *numObjNamesOut, + OBJECT_NAME **objNameTblOut, + ST_CHAR **nameBufOut) + { +OBJECT_NAME nodeObjName; +OBJECT_NAME *objNames; +OBJECT_NAME *objNameDest; +_MVLU_RPT_DS_NODE_INFO *nodeInfoTbl; +MVL_VAR_ASSOC *nodeVa; +RUNTIME_TYPE *rt; +ST_INT numRt; +ST_INT i; +ST_RET rc; +ST_INT numNodeVar; +ST_INT numDsVar; +ST_INT nameSize; +ST_CHAR *nameBuf; +ST_CHAR *nameDest; + + nodeInfoTbl = (_MVLU_RPT_DS_NODE_INFO *) + M_CALLOC (MSMEM_GEN, numNodes, sizeof (_MVLU_RPT_DS_NODE_INFO)); + + numDsVar = 0; + nameSize = 0; + +/* Find each node VA */ + for (i = 0; i < numNodes; ++i) + { + nodeObjName.object_tag = DOM_SPEC; + nodeObjName.domain_id = domName; + nodeObjName.obj_name.item_id = nodeNames[i]; + + nodeVa = u_mvl_get_va_aa (&mvl_vmd, + MMSOP_MVLU_RPT_VA, + &nodeObjName, NULL, + SD_FALSE, NULL, NULL); + nodeInfoTbl[i].nodeVa = nodeVa; + if (nodeVa == NULL) + { + MVL_LOG_NERR1 ("Error: Report node %s not found", nodeNames[i]); + return (SD_FAILURE); + } + + rc = mvl_get_runtime (nodeVa->type_id, &rt, &numRt); + if (rc != SD_SUCCESS) + { + MVL_LOG_NERR0 ("Error: Runtime type not found"); + return (SD_FAILURE); + } + nodeInfoTbl[i].rt = rt; + nodeInfoTbl[i].numRt = numRt; + + numNodeVar = 0; + rc = _mvlu_count_rpt_var (rt, numRt, &numNodeVar, &nameSize); + if (rc != SD_SUCCESS) + return (SD_FAILURE); + + numDsVar += numNodeVar; + nodeInfoTbl[i].num_rpt_var = numNodeVar; + + /* the name buffer must add "base$" for each name */ + nameSize += (numDsVar * (strlen (nodeVa->name) + 1)); + } + + objNames = (OBJECT_NAME *) M_CALLOC (MSMEM_GEN, numDsVar, sizeof (OBJECT_NAME)); + nameBuf = M_CALLOC (MSMEM_GEN, 1, nameSize); + objNameDest = objNames; + nameDest = nameBuf; + for (i = 0; i < numNodes; ++i) + { + nodeVa = nodeInfoTbl[i].nodeVa; + rt = nodeInfoTbl[i].rt; + numRt = nodeInfoTbl[i].numRt; + rc = _mvlu_fill_rpt_var (nodeVa->name, domName, rt, numRt, + nodeInfoTbl[i].num_rpt_var, + objNameDest, &nameDest); + + objNameDest += nodeInfoTbl[i].num_rpt_var; + } + + *numObjNamesOut = numDsVar; + *objNameTblOut = objNames; + *nameBufOut = nameBuf; + + M_FREE (MSMEM_GEN, nodeInfoTbl); + return (SD_SUCCESS); + } + +/************************************************************************/ +/* _mvlu_count_rpt_var */ +/************************************************************************/ + +static ST_RET _mvlu_count_rpt_var (RUNTIME_TYPE *rt, ST_INT numRt, + ST_INT *numRptVarOut, ST_INT *nameSizeOut) + { +ST_INT numRptVar; +ST_INT nameSize; +RUNTIME_TYPE *lastRt; +ST_CHAR *comp_name; /* Component name */ + + if (numRt <= 2 || rt->el_tag != RT_STR_START) + { + MVL_LOG_NERR0 ("Error: Not structure, or no structure elements"); + return (SD_FAILURE); + } + + ++rt; + numRt -= 2; + lastRt = rt + numRt; + numRptVar = 0; + nameSize = 0; + while (rt <= lastRt) + { + switch (rt->el_tag) + { + case RT_STR_END : + case RT_ARR_END : + break; + + default: + ++numRptVar; + comp_name = ms_comp_name_find (rt); + if (strlen (comp_name) == 0) + { + MVL_LOG_ERR0 ("Error: unnamed structure component"); + return (SD_FAILURE); + } + nameSize += (strlen (comp_name) + 1); + break; + } + + if (rt->el_tag == RT_STR_START) + rt += rt->u.str.num_rt_blks + 1; /* Skip the structure contents */ + + if (rt->el_tag == RT_ARR_START) + rt += rt->u.arr.num_rt_blks; /* Skip the array contents */ + + ++rt; + } + + *numRptVarOut += numRptVar; + *nameSizeOut += nameSize; + return (SD_SUCCESS); + } + +/************************************************************************/ +/* _mvlu_fill_rpt_var */ +/************************************************************************/ + +static ST_RET _mvlu_fill_rpt_var (ST_CHAR *baseName, ST_CHAR *domName, + RUNTIME_TYPE *rt, ST_INT numRt, + ST_INT numObjNames, OBJECT_NAME *objNames, + ST_CHAR **nameBufPtr) + { +ST_INT dsDvCount; +RUNTIME_TYPE *lastRt; +ST_CHAR *nameBuf; +ST_CHAR *comp_name; /* Component name */ + + nameBuf = *nameBufPtr; + + ++rt; + numRt -= 2; + + dsDvCount = 0; + lastRt = rt + numRt; + while (rt <= lastRt) + { + switch (rt->el_tag) + { + case RT_STR_END : + case RT_ARR_END : + break; + + default: + comp_name = ms_comp_name_find (rt); + if (strlen (comp_name) == 0) + { + MVL_LOG_ERR0 ("Error: unnamed structure component"); + return (SD_FAILURE); + } + sprintf (nameBuf, "%s$%s", baseName, comp_name); + objNames[dsDvCount].object_tag = DOM_SPEC; + objNames[dsDvCount].domain_id = domName; + objNames[dsDvCount].obj_name.item_id = nameBuf; + ++dsDvCount; + nameBuf += (strlen (nameBuf) + 1); + break; + } + + if (rt->el_tag == RT_STR_START) + rt += rt->u.str.num_rt_blks + 1; /* Skip the structure contents */ + + if (rt->el_tag == RT_ARR_START) + rt += rt->u.arr.num_rt_blks; /* Skip the array contents */ + + ++rt; + } + + if (dsDvCount != numObjNames) + { + MVL_LOG_ERR0 ("Internal Error: dsDvCount misnatch"); + return (SD_FAILURE); + } + + *nameBufPtr = nameBuf; + return (SD_SUCCESS); + } + +/************************************************************************/ +/************************************************************************/ +/* REPORT CONTROL HANDLING */ +/************************************************************************/ +/************************************************************************/ +/* mvlu_create_rpt_ctrl */ +/************************************************************************/ +/* Create a UCA Report Control (use mvl61850_create_rpt_ctrl for 61850).*/ +/* This function creates a RPT NVL data structure and associated */ +/* control data to handle UCA report activity. */ + +/* Note that the 'dsNvl' can be created by 'mvlu_create_rpt_nvl', */ +/* created by 'u_mvl_get_nvl', or can be configured. The NVL */ +/* must be completely resolved; that is, all VA must have a valid data */ +/* pointer, name, and type_id. */ +/* NOTE: The args brcb_bufsize and ConfRev were added once for IEC 61850*/ +/* support, but now this function is ONLY for UCA, so they are ignored.*/ + +MVLU_RPT_CTRL *mvlu_create_rpt_ctrl (ST_CHAR *basrcbName, + MVL_NVLIST_CTRL *dsNvl, + MVL_VAR_ASSOC *base_va, + ST_INT rcb_type, + ST_INT buftim_action, + ST_INT brcb_bufsize, /* ignored */ + ST_UINT32 ConfRev) /* ignored */ + + { +MVLU_RPT_CTRL *rptCtrl; +MVL_NVLIST_CTRL *rptNvl; +RUNTIME_TYPE *incRt; +ST_RET rc; +ST_INT i; +ST_INT numDsVars; +ST_INT rptCtrlSize; +ST_INT inc_size; +RUNTIME_TYPE *rcbHead; +ST_INT numRt; + +/* This funct only works for UCA. For IEC 61850, call mvl61850_create_rpt_ctrl*/ + assert (rcb_type == RCB_TYPE_UCA); + +/* Find the runtime type of the RCB (saved later in rptCtrl). */ +/* If successful, this function sets "rcbHead" & "numRt". */ + if (mvlu_rpt_rcb_type_find (base_va->type_id, basrcbName, &rcbHead, &numRt)) + return (NULL); /* error already logged. */ + +/* Alloc report control large enough to contain the inclusion BS data */ +/* and reasons VA's (they depend on the number of VA in the report) */ + numDsVars = dsNvl->num_of_entries; + inc_size = BSTR_NUMBITS_TO_NUMBYTES(numDsVars); + rptCtrlSize = sizeof (MVLU_RPT_CTRL) + + strlen (basrcbName) + 1; + + rptCtrl = (MVLU_RPT_CTRL *) M_CALLOC (MSMEM_GEN, 1, rptCtrlSize); + +/* Set the variable size element pointers */ + rptCtrl->basrcb_name = (ST_CHAR *) (rptCtrl + 1); + strcpy (rptCtrl->basrcb_name, basrcbName); + +/* Initialize the Report Control data elements */ + rptCtrl->dsNvl = dsNvl; + rptCtrl->base_va = base_va; + rptCtrl->rcbRtHead = rcbHead; + +/* If domname + '/' + basrcb_name will fit in RptID, then write it. */ + if (strlen (dsNvl->nvl_scope.dom->name) + strlen (rptCtrl->basrcb_name) + 1 + < sizeof (rptCtrl->common_basrcb.RptID)) + { + sprintf (rptCtrl->common_basrcb.RptID, "%s/%s", + dsNvl->nvl_scope.dom->name, + rptCtrl->basrcb_name); + if (rcb_type == RCB_TYPE_UCA) + { /* replace $ with '.'. Only for UCA. */ + for (i = 0; i < (ST_INT) strlen (rptCtrl->common_basrcb.RptID); ++i) + { + if (rptCtrl->common_basrcb.RptID[i] == '$') + rptCtrl->common_basrcb.RptID[i] = '.'; + } + } + } + else + { + MVL_LOG_ERR0 ("mvlu_create_rpt_ctrl RptID too long"); + M_FREE (MSMEM_GEN, rptCtrl); + return (NULL); + } + + rptCtrl->rcb_type = rcb_type; + rptCtrl->buftim_action = buftim_action; + if (mvlu_rpt_find_typeids (&rptCtrl->rpt_typeids)) + { + MVL_LOG_ERR0 ("mvlu_create_rpt_ctrl error finding base types"); + M_FREE (MSMEM_GEN, rptCtrl); + return (NULL); + } + +/* Create the RPT NVL control element, used to send the actual reports */ + rptNvl = &rptCtrl->rptNvl; + rptNvl->name = "RPT"; + +/* Alloc the entries table; allow for RptID, OptFlds, SqNum, RptTim, */ +/* OutDat (61850 calls it DatSetName), BufOvfl, EntryID, ConfRev, */ +/* SubSeqNum, MoreSegmentsFollow, & InclusionBitstring plus ARRAYS of */ +/* dataRefs, values, and Reasons. */ +/* "assert" later if "maxNumRptVars" exceeded. */ +/* Allow (3 * numDsVars) to handle arrays of dataRef, value, and reason.*/ + rptCtrl->maxNumRptVars = MVLU_MAX_RPT_OPTS + (3 * numDsVars); + + rptNvl->entries = (MVL_VAR_ASSOC **) M_CALLOC (MSMEM_GEN, rptCtrl->maxNumRptVars, + sizeof (MVL_VAR_ASSOC *)); + + /* NOTE: The "rptNvl->entries" array is not filled in and + * and "rptNvl->num_of_entries" is not set + * until a Report is being built. + */ + + /* We need to create a Runtime Type for the inclusion bitstring */ + incRt = &rptCtrl->incRt; + incRt->el_tag = RT_BIT_STRING; + incRt->el_size = BSTR_NUMBITS_TO_NUMBYTES(numDsVars); + incRt->offset_to_last = incRt->el_size; + incRt->u.p.el_len = (ST_RTINT) numDsVars; + rc = mvlu_add_rt_type (&rptCtrl->incRt, 1, &rptCtrl->inclusion_typeid); + if (rc != SD_SUCCESS) + { + MVL_LOG_NERR0 ("Error - could not add temp RT type"); + M_FREE (MSMEM_GEN, rptCtrl); + return (NULL); + } + +/* That's all we can do ahead of time for the RPT variable associations */ + +/* Set a bit of the data for the common BASRCB */ + sprintf (rptCtrl->common_basrcb.DatSetNa, "%s/%s", + dsNvl->nvl_scope.dom->name, dsNvl->name); + + if (rcb_type == RCB_TYPE_UCA) + { + rptCtrl->common_basrcb.OptFlds.len_1 = 8; + rptCtrl->common_basrcb.TrgOps.len = 8; + } + else + { + rptCtrl->common_basrcb.OptFlds.len_1 = 10; + rptCtrl->common_basrcb.TrgOps.len = 6; + } + + rptCtrl->common_basrcb.TrgOps.data[0] = MVLU_TRGOPS_DATA; + +/* Put it on the list */ + list_add_last((ST_VOID **) &mvlu_rpt_ctrl_list, (ST_VOID *) rptCtrl); + return (rptCtrl); + } + +/************************************************************************/ +/* mvlu_free_rpt_ctrl */ +/************************************************************************/ +/* This function is used to free a MVLU_RPT_CTRL allocated by */ +/* 'mvlu_create_rpt_ctrl' */ + +ST_VOID mvlu_free_rpt_ctrl (MVLU_RPT_CTRL *rptCtrl) + { +MVLU_RPT_CLIENT *rptClient; + +/* This funct only works for UCA. For IEC 61850, call mvl61850_free_rpt_ctrl*/ + assert (rptCtrl->rcb_type == RCB_TYPE_UCA); + +/* Take it off the report control list */ + list_unlink ((ST_VOID **) &mvlu_rpt_ctrl_list, (ST_VOID *) rptCtrl); + +/* Free up the dynamic type used for the inclusion bitstring type */ + mvlu_free_rt_type (rptCtrl->inclusion_typeid); + +/* Destroy all clients for this rptCtrl */ +/* NOTE: list_get_first removes the entry from the linked list. */ + while ((rptClient = (MVLU_RPT_CLIENT *) list_get_first (&rptCtrl->rpt_client_list))!=NULL) + _mvlu_free_rpt_client (rptClient); /* free client */ + +/* Now the rest of the report control */ + M_FREE (MSMEM_GEN, rptCtrl->rptNvl.entries); + M_FREE (MSMEM_GEN, rptCtrl); + } + +/************************************************************************/ +/************************************************************************/ +/* REPORT CONTROL SERVICING */ +/************************************************************************/ +/************************************************************************/ +/* mvlu_rpt_service */ +/************************************************************************/ + +ST_VOID mvlu_rpt_service () + { +MVLU_RPT_CTRL *rptCtrl; +MVLU_RPT_CLIENT *rptClient; +ST_DOUBLE timeNow; + +/* Do Report VA Scans */ + mvlu_rpt_va_scan (); + +/* See if it is time to send reports */ + timeNow = sGetMsTime (); + for (rptCtrl = mvlu_rpt_ctrl_list; + rptCtrl != NULL; + rptCtrl = (MVLU_RPT_CTRL *) list_get_next (mvlu_rpt_ctrl_list, rptCtrl)) + { + assert (rptCtrl->rcb_type == RCB_TYPE_UCA); /* must be UCA URCB*/ + /* Loop through linked list of clients for UCA.*/ + for (rptClient = rptCtrl->rpt_client_list; + rptClient != NULL; + rptClient = (MVLU_RPT_CLIENT *) list_get_next (rptCtrl->rpt_client_list, rptClient)) + { + _mvlu_rpt_client_service (rptClient, timeNow); + } + } + } + +/************************************************************************/ +/* mvlu_rpt_va_scan */ +/************************************************************************/ + +ST_VOID mvlu_rpt_va_scan () + { +MVLU_RPT_SCAN_CTRL *scanCtrl; +ST_DOUBLE timeNow; + + timeNow = sGetMsTime (); + scanCtrl = mvlu_rpt_scan_list; + while (scanCtrl != NULL) /* look through whole list */ + { + if (scanCtrl->enable == SD_TRUE) + { + if (timeNow >= scanCtrl->next_scan_start) + { + if (scanCtrl->num_va_read_pend == 0) + { + scanCtrl->next_scan_start += scanCtrl->scan_period; + mvlu_rpt_scan_read (scanCtrl); + } + else + scanCtrl->saturated = SD_TRUE; + } + } + scanCtrl = (MVLU_RPT_SCAN_CTRL *) list_get_next (mvlu_rpt_scan_list, scanCtrl); + } + } + +/************************************************************************/ +/* mvlu_rpt_scan_read */ +/************************************************************************/ + +ST_VOID mvlu_rpt_scan_read (MVLU_RPT_SCAN_CTRL *scanCtrl) + { +MVLAS_READ_CTRL *rdCtrl; +MVLAS_RD_VA_CTRL *vaCtrl; +MVL_IND_PEND *indCtrl; +ST_INT i; + + if (scanCtrl->num_va_read_pend == 0) + { + scanCtrl->num_va_read_pend = scanCtrl->num_scan_va; + scanCtrl->num_va_changes = 0; + + indCtrl = &scanCtrl->indCtrl; + rdCtrl = &indCtrl->u.rd; + rdCtrl->numVar = 0; + vaCtrl = rdCtrl->vaCtrlTbl; + + for (i = 0; i < scanCtrl->num_scan_va; ++i) + { + vaCtrl->va = scanCtrl->scan_va[i]; + memcpy (&vaCtrl->va_scope, &scanCtrl->scan_va_scope[i], sizeof(MVL_SCOPE)); + ++vaCtrl; + ++rdCtrl->numVar; + } + + /* OK, now fire off the read indication functions */ + /* (*u_mvlu_report_reads_done_fun) will be invoked when all are ready */ + u_mvl_read_ind (indCtrl); + } + else + scanCtrl->saturated = SD_TRUE; + } + +/************************************************************************/ +/* _mvlu_rpt_va_reads_done */ +/************************************************************************/ +/* This function is called by 'mvlu_rd_prim_done' when all primitive */ +/* read indication functions for a VA have been completed. This means */ +/* that the data is ready to be sent for this VA. */ + +static ST_VOID _mvlu_rpt_va_reads_done (MVL_IND_PEND *indCtrl, + MVL_VAR_ASSOC *va) + { +MVLU_RPT_SCAN_CTRL *scanCtrl; +ST_INT data_size; + +/* Do some housekeeping */ + scanCtrl = (MVLU_RPT_SCAN_CTRL *) indCtrl->usr_ind_ctrl; + --scanCtrl->num_va_read_pend; + +/* Let's see if the data has changed */ + data_size = mvl_type_ctrl[va->type_id].data_size; + if (memcmp (va->last_data, va->data, data_size) != 0) + { + MVLU_LOG_FLOW1 ("Report VA Scan detected change for rpt VA '%s'", + va->name); + mvlu_rpt_va_change (va, MVLU_TRGOPS_DATA, NULL); + ++scanCtrl->num_va_changes; + } + } + +/************************************************************************/ +/* _mvlu_rpt_client_service */ +/************************************************************************/ + +static ST_VOID _mvlu_rpt_client_service (MVLU_RPT_CLIENT *rptClient, + ST_DOUBLE timeNow) + { +MVLU_RPT_CTRL *rptCtrl; +MVLU_BASRCB *basrcb; +MVL_NVLIST_CTRL *dsNvl; +ST_RET rc; +ST_BOOLEAN sendRbe; +ST_INT incSize; + + basrcb = &rptClient->basrcb; + +/* Let's see if the report is enabled */ + if (basrcb->RptEna == SD_FALSE) /* treat any non-zero as TRUE */ + return; + +/* Make sure we can send one if we want to ... */ + if (a_buffers_avail (rptClient->netInfo->acse_conn_id) <= 0) + return; + +/* Reporting is enabled, let's see if it is time to send the report */ + rptCtrl = rptClient->rpt_ctrl; + dsNvl = rptCtrl->dsNvl; + incSize = BSTR_NUMBITS_TO_NUMBYTES(dsNvl->num_of_entries); + +/* First, see if Integrity scan is enabled, and if so if time to send */ +/* This function checks time & if necessary, starts integrity scan. */ + mvlu_integrity_timeout (rptClient, timeNow); + +/* Check for RBE enable */ +/* NOTE: numTrgs ONLY incremented if changes matched the TrgOps */ +/* for this client. See mvlu_rpt_va_change. */ + if (rptClient->numTrgs > 0) + { + /* RBE is enabled, see if a RBE Period is selected ... */ + if (basrcb->RBEPd != 0) + { + if (timeNow > rptClient->next_rbe_rpt_time) + { + /* OK, send the report! */ + MVLU_LOG_FLOW1 ("UCA Report RBE Period timeout for client %08lx", + rptClient); + rc = mvlu_send_report (rptClient, MVLU_RPT_TYPE_RBE); + + rptClient->next_rbe_rpt_time = timeNow + (ST_DOUBLE) basrcb->RBEPd; + return; + } + } + else /* NO RBE Period is selected, send right away, subject */ + { /* to BufTime and Trgs parameters */ + + /* If neither constraint is in place, send immediately, otherwise */ + /* we must exceed one or both constraints before sending */ + + if (basrcb->Trgs == 0 && basrcb->BufTim == 0) + sendRbe = SD_TRUE; + else + sendRbe = SD_FALSE; + + if (basrcb->Trgs != 0) + { + if (rptClient->numTrgs >= basrcb->Trgs) + sendRbe = SD_TRUE; + } + if (basrcb->BufTim != 0) + { + if (timeNow > rptClient->buf_time_done) + sendRbe = SD_TRUE; + } + + /* OK, send the report! */ + if (sendRbe == SD_TRUE) + { + MVLU_LOG_FLOW1 ("UCA Report RBE for client %08lx", rptClient); + rc = mvlu_send_report (rptClient, MVLU_RPT_TYPE_RBE); + return; + } + } + } + } + +/************************************************************************/ +/************************************************************************/ +/* mvlu_rpt_va_change */ +/* CRITICAL: this function does not save the data in "va->data" until */ +/* the very end, because depending on RCB state, it may first need to */ +/* send a report with the previous data (see _mvlu_rpt_va_chk_reason). */ +/************************************************************************/ + +ST_VOID mvlu_rpt_va_change (MVL_VAR_ASSOC *va, ST_UCHAR reason, + ST_VOID *new_data) + { +MVLU_RPT_CTRL *rptCtrl; +MVLU_RPT_CLIENT *rptClient; +ST_INT va_index; +ST_INT data_size; + + MVLU_LOG_FLOW2 ("Report VA '%s' change, reason=0x%02X", va->name, reason); + + data_size = mvl_type_ctrl[va->type_id].data_size; + + /* If reason is Integrity or GI, do nothing (handled elsewhere). */ + if ((reason & (MVLU_TRGOPS_INTEGRITY | MVLU_TRGOPS_GI)) != 0) + return; + + /* Check all UCA RCBs. */ + for (rptCtrl = mvlu_rpt_ctrl_list; + rptCtrl != NULL; + rptCtrl = (MVLU_RPT_CTRL *) list_get_next (mvlu_rpt_ctrl_list, rptCtrl)) + { /* see if someone is interested */ + assert (rptCtrl->rcb_type == RCB_TYPE_UCA); /* this loop only for UCA*/ + va_index = mvlu_rpt_get_va_index (rptCtrl, va); + if (va_index >= 0) + { + MVLU_LOG_CFLOW1 ("VA is member of report NVL '%s'", rptCtrl->dsNvl->name); + for (rptClient = rptCtrl->rpt_client_list; + rptClient != NULL; + rptClient = (MVLU_RPT_CLIENT *) list_get_next (rptCtrl->rpt_client_list, rptClient)) + { + /* If enabled, chk "reason" (i.e. compare to TrgOps, etc.)*/ + if (rptClient->basrcb.RptEna) + { + _mvlu_rpt_va_chk_reason (rptClient, va, va_index, reason); + } + else + MVLU_LOG_CFLOW0 ("VA change ignored: Report not enabled"); + } + } + } + + /* Check all IEC 61850 RCBs. */ + for (rptCtrl = mvl61850_rpt_ctrl_list; + rptCtrl != NULL; + rptCtrl = (MVLU_RPT_CTRL *) list_get_next (mvl61850_rpt_ctrl_list, rptCtrl)) + { /* see if someone is interested */ + assert (rptCtrl->rcb_type != RCB_TYPE_UCA); /* this loop only for 61850*/ + va_index = mvlu_rpt_get_va_index (rptCtrl, va); + if (va_index >= 0) + { + MVLU_LOG_CFLOW1 ("VA is member of report NVL '%s'", rptCtrl->dsNvl->name); + rptClient = &rptCtrl->only_client; /* only one client */ + /* If enabled, or this is IEC BRCB & it was enabled ONCE, chk "reason".*/ + if (rptClient->basrcb.RptEna + || (rptCtrl->rcb_type == RCB_TYPE_IEC_BRCB + && rptCtrl->brcbCtrl.enabled_once)) + { + _mvlu_rpt_va_chk_reason (rptClient, va, va_index, reason); + } + else + MVLU_LOG_CFLOW0 ("VA change ignored: Report not enabled"); + } + } + +/* If the user is passing us the data, need to save it ... */ + if (new_data != NULL) + { + MVLU_LOG_CFLOW0 ("Saving report VA data"); + memcpy (va->data, new_data, data_size); + } + +/* Now copy the data into the buffer chain */ +/* NOTE: Multiple datasets may reference the same variable, but each */ +/* creates its own "va", so each gets its own copy of "last_data". */ + memcpy (va->last_data, va->data, data_size); /* save data for next compare */ + } + +/************************************************************************/ +/* _mvlu_rpt_va_chk_reason */ +/************************************************************************/ +static ST_VOID _mvlu_rpt_va_chk_reason (MVLU_RPT_CLIENT *rptClient, + MVL_VAR_ASSOC *va, + ST_INT va_index, + ST_UCHAR reason) + { +ST_INT data_size; +ST_VOID *new_data; /* temp copy of new data while sending old data*/ + + if ((reason & (MVLU_TRGOPS_DATA | MVLU_TRGOPS_QUALITY | MVLU_TRGOPS_FREEZE)) != 0) + { + /* If this "reason" is enabled in TrgOps, process it. */ + if ((rptClient->basrcb.TrgOps.data[0] & reason) != 0) + { + if (rptClient->basrcb.BufTim != 0) + { + /* If this is first change for "ANY" VA, start BufTim timer. */ + if (rptClient->numTrgs == 0) + { /* First va change. Start BufTim timer. */ + rptClient->buf_time_done = sGetMsTime () + + (ST_DOUBLE) rptClient->basrcb.BufTim; + MVLU_LOG_CFLOW1 ("Setting buffer Time Done = %06.3fs", + rptClient->buf_time_done/1000); + } + + /* If change already detected for "THIS" VA & buftim_action = SEND_NOW, send report.*/ + if (BSTR_BIT_GET (rptClient->changed_flags, va_index) + && rptClient->rpt_ctrl->buftim_action == MVLU_RPT_BUFTIM_SEND_NOW) + { + /* Send report now with last data, then process new data.*/ + /* Report is built using "va->data", so must copy old data */ + /* to "va->data" until after first rpt built. */ + data_size = mvl_type_ctrl[va->type_id].data_size; + new_data = chk_malloc (data_size); /* alloc buf to save new data*/ + memcpy (new_data, va->data, data_size); /* save new data */ + memcpy (va->data, va->last_data, data_size); /* restore old data*/ + + MVLU_LOG_CFLOW0 ("Second change for this VA before BufTim. Sending Report with first change. Restarting BufTim."); + /* send or queue rpt */ + mvlu_rpt_ready (rptClient, MVLU_RPT_TYPE_RBE); + rptClient->buf_time_done = sGetMsTime () + + (ST_DOUBLE) rptClient->basrcb.BufTim; + + /* Put back new data in "va->data". */ + memcpy (va->data, new_data, data_size); /* restore new data */ + chk_free (new_data); + } + } /* end "if (..BufTim != 0)" */ + + /* Set numTrgs, changed_flags, reasons_data */ + ++rptClient->numTrgs; + MVLU_LOG_CFLOW1 ("Number Triggers is now %d", (int) rptClient->numTrgs); + BSTR_BIT_SET_ON (rptClient->changed_flags, va_index); + rptClient->reasons_data[va_index] = reason; + } /* end "if client TrgOps matches reason" */ + else + MVLU_LOG_CFLOW0 ("VA change ignored: Reason doesn't match TrgOps"); + } + else if ((reason & (MVLU_TRGOPS_INTEGRITY | MVLU_TRGOPS_GI)) != 0) + { + assert (0); /* Should never get here (see mvlu_rpt_va_change). */ + } + else + { + assert (0); /* Unrecognized TRGOPS. */ + } + } + +/************************************************************************/ +/* mvlu_rpt_get_va_index */ +/************************************************************************/ +/* Given a MVL report control and an associated VA, find the index of */ +/* the Va. This index is then used for manipulating the inclusion bits, */ +/* read bits, and reason codes. */ + +ST_INT mvlu_rpt_get_va_index (MVLU_RPT_CTRL *rptCtrl, MVL_VAR_ASSOC *va) + { +ST_INT i; +MVL_NVLIST_CTRL *dsNvl; + + dsNvl = rptCtrl->dsNvl; + + if (dsNvl!=NULL) /* NOTE: dsNvl may be NULL */ + { + for (i = 0; i < dsNvl->num_of_entries; ++i) + { + if (dsNvl->entries[i] == va) + { + return (i); + } + } + } + return (-1); + } + +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ +/* SENDING REPORTS */ +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ +/* mvlu_send_report */ +/************************************************************************/ + +ST_RET mvlu_send_report (MVLU_RPT_CLIENT *rptClient, ST_INT rpt_type) + { +MVLU_RPT_CTRL *rptCtrl; +MVL_NET_INFO *netInfo; +MVL_NVLIST_CTRL *dsNvl; +MVL_NVLIST_CTRL *rptNvl; +MVL_VAR_ASSOC *va; +ST_INT i; +ST_RET rc; +ST_INT sendIndex = 0; +ST_INT sendIndexSave; /* save index before data, compare after data */ +ST_UINT8 optFld; +MVLU_BASRCB *basrcb; +ST_INT incSize; /* num bytes for inclusion bitstring */ +MVL_VAR_ASSOC *tmp_va_arr; /* alloc array of structs */ +ST_INT tmp_va_arr_size; /* num of entries in tmp_va_arr */ +MVL_VAR_ASSOC *tmp_va; /* current entry in tmp_va_arr */ +MMS_BTIME6 TimeOfEntry; /* Time this report generated. */ + + rptCtrl = rptClient->rpt_ctrl; + netInfo = rptClient->netInfo; + basrcb = &rptClient->basrcb; + + optFld = basrcb->OptFlds.data_1[0]; + dsNvl = rptCtrl->dsNvl; + rptNvl = &rptCtrl->rptNvl; + + incSize = BSTR_NUMBITS_TO_NUMBYTES(dsNvl->num_of_entries); + + MVLU_LOG_FLOW1 ("Sending UCA Report, MVL_NET_INFO %08lx", rptClient->netInfo); + + /* Need tmp va's for options plus array of reasons_data. */ + tmp_va_arr_size = MVLU_MAX_RPT_OPTS + dsNvl->num_of_entries; + tmp_va_arr = M_CALLOC (MSMEM_GEN, sizeof (MVL_VAR_ASSOC), tmp_va_arr_size); + tmp_va = tmp_va_arr; /* start out pointing to first entry */ + +/* Prepares a UCA Report NVL to be sent, based on the */ +/* options, data, and inclusion bitstring in the rptCtrl. After this */ +/* function completes, the rptCtrl->rptNvl is ready to be sent. */ + +/* If this is Integrity report, just set all inclusion bits. */ + if (rpt_type == MVLU_RPT_TYPE_INTEGRITY_OR_GI) + memset (rptClient->changed_flags, 0xff, incSize); + +/* We will create a NVL to send, using the dsNvl as a model ... */ + + /* RptID and OptFlds are always the first 2 entries in the Rpt NVL. */ + tmp_va->type_id = rptCtrl->rpt_typeids.vstring32; + tmp_va->data = basrcb->RptID; + rptNvl->entries[sendIndex++] = tmp_va++; /* set entry & point to next*/ + MVLU_LOG_CFLOW1 (" RptID='%s", basrcb->RptID); + + tmp_va->type_id = rptCtrl->rpt_typeids.bvstring8; + tmp_va->data = &basrcb->OptFlds; + rptNvl->entries[sendIndex++] = tmp_va++; /* set entry & point to next*/ + MVLU_LOG_CFLOW1 (" OptFld = 0x%02x", (int) optFld); + + if (optFld & MVLU_SQNUM_MASK) + { + tmp_va->type_id = rptCtrl->rpt_typeids.int8u; + tmp_va->data = &basrcb->SqNum; + rptNvl->entries[sendIndex++] = tmp_va++; /* set entry & point to next*/ + MVLU_LOG_CFLOW1 (" SqNum : %u", (unsigned) basrcb->SqNum); + } + if (optFld & MVLU_RPTTIM_MASK) + { + /* Call user function to get report time. */ + u_mvlu_rpt_time_get (&TimeOfEntry); + + MVLU_LOG_CFLOW2 (" RptTim : %lums, %lu days", + TimeOfEntry.ms, TimeOfEntry.day); + + tmp_va->type_id = rptCtrl->rpt_typeids.btime6; + tmp_va->data = &TimeOfEntry; + rptNvl->entries[sendIndex++] = tmp_va++; /* set entry & point to next*/ + } + if (optFld & MVLU_OUTDAT_MASK) + { + /* OutDat is same as DatSetNa */ + MVLU_LOG_CFLOW1 (" OutDat : %s", basrcb->DatSetNa); + tmp_va->type_id = rptCtrl->rpt_typeids.vstring65; /* Obj Ref */ + tmp_va->data = basrcb->DatSetNa; + rptNvl->entries[sendIndex++] = tmp_va++; /* set entry & point to next*/ + } + + /* Add inclusion bitstring. */ + tmp_va->type_id = rptCtrl->inclusion_typeid; + tmp_va->data = rptClient->changed_flags; + rptNvl->entries[sendIndex++] = tmp_va++; /* set entry & point to next*/ + +/* Now go through the inclusion bitstring and figure out what to send */ + sendIndexSave = sendIndex; /* save index before data included */ + for (i = 0; i < dsNvl->num_of_entries; ++i) + { + if (BSTR_BIT_GET (rptClient->changed_flags, i)) + { + va = dsNvl->entries[i]; + MVLU_LOG_CFLOW3 (" Including variable %d ('%s'), reason=0x%02X", + i, va->name, rptClient->reasons_data[i]); + rptNvl->entries[sendIndex++] = va; + + /* va->data already points to latest data. Done with this va. */ + } + } + assert (sendIndex>sendIndexSave); /* make sure SOME data included */ + + if (optFld & MVLU_REASONS_MASK) + { + for (i = 0; i < dsNvl->num_of_entries; ++i) + { + if (BSTR_BIT_GET (rptClient->changed_flags, i)) + { + /* Don't need BVSTR here, because size is fixed. */ + tmp_va->type_id = rptCtrl->rpt_typeids.bstr8; + tmp_va->data = &rptClient->reasons_data[i]; + rptNvl->entries[sendIndex++] = tmp_va++; /* set entry & point to next*/ + } + } + } + rptNvl->num_of_entries = sendIndex; + assert (rptNvl->num_of_entries <= rptCtrl->maxNumRptVars); /* past end of array?*/ + assert ((tmp_va-tmp_va_arr) <= tmp_va_arr_size); /* past end of array?*/ + + rc = mvl_info_variables (rptClient->netInfo, &rptClient->rpt_ctrl->rptNvl, SD_FALSE); + + basrcb->SqNum++; /* Increment seq number for next rpt. */ + + /* Reset reasons, etc. to prepare for new report triggers. */ + memset (rptClient->reasons_data, 0, dsNvl->num_of_entries); + memset (rptClient->changed_flags, 0, incSize); + rptClient->numTrgs = 0; + M_FREE (MSMEM_GEN, tmp_va_arr); + return (rc); + } + +/************************************************************************/ +/************************************************************************/ +/* _mvlu_rpt_disconnect_rcvd */ +/************************************************************************/ + +ST_VOID _mvlu_rpt_disconnect_rcvd (MVL_NET_INFO *netInfo) + { +MVLU_RPT_CTRL *rptCtrl; +MVLU_RPT_CLIENT *rptClient; + + /* Loop through list of UCA RCBs. */ + for (rptCtrl = mvlu_rpt_ctrl_list; + rptCtrl != NULL; + rptCtrl = (MVLU_RPT_CTRL *) list_get_next (mvlu_rpt_ctrl_list, rptCtrl)) + { + assert (rptCtrl->rcb_type == RCB_TYPE_UCA); + /* Loop through list of clients. */ + for (rptClient = rptCtrl->rpt_client_list; + rptClient != NULL; + rptClient = (MVLU_RPT_CLIENT *) list_get_next (rptCtrl->rpt_client_list, rptClient)) + { + if (rptClient->netInfo == netInfo) + { + list_unlink ((ST_VOID **) &rptCtrl->rpt_client_list, (ST_VOID *) rptClient); + _mvlu_free_rpt_client (rptClient); + break; /* one client per connection */ + } + } + } + + /* Loop through list of IEC 61850 RCBs (URCB or BRCB). */ + for (rptCtrl = mvl61850_rpt_ctrl_list; + rptCtrl != NULL; + rptCtrl = (MVLU_RPT_CTRL *) list_get_next (mvl61850_rpt_ctrl_list, rptCtrl)) + { + assert (rptCtrl->rcb_type != RCB_TYPE_UCA); + rptClient = &rptCtrl->only_client; /* only one client */ + if (rptClient->netInfo == netInfo) + { /* Reset RCB parameters. */ + rptClient->netInfo = NULL; + rptClient->basrcb.RptEna = SD_FALSE; + rptClient->basrcb.Resv = SD_FALSE; /* Ignored for BRCB */ + /* If RCB DatSet is AA_SPEC, remove it (i.e. cleanup & set DatSet=""). */ + if (rptCtrl->dsNvl != NULL && rptCtrl->dsNvl->nvl_scope.scope == AA_SPEC) + mvl61850_rpt_dataset_destroy (rptCtrl); + } + } + } + +/************************************************************************/ +/************************************************************************/ +/* MVLU REPORT SCAN CONTROL */ +/************************************************************************/ +/************************************************************************/ +/* mvlu_rpt_create_scan_ctrl2 */ +/* DEBUG: pass "enable" as additional arg? */ +/* DEBUG: delete older "mvlu_rpt_create_scan_ctrl" function? */ +/************************************************************************/ + +MVLU_RPT_SCAN_CTRL *mvlu_rpt_create_scan_ctrl2 ( + MVL_NVLIST_CTRL *nvl, + ST_RET (*scan_done_fun) (struct mvl_ind_pend *ind_pend), + ST_UINT report_scan_rate) /* report scan rate (millisec) */ + { +MVLU_RPT_SCAN_CTRL *scanCtrl; +ST_INT scanCtrlSize; +ST_INT numScanVa = nvl->num_of_entries; +ST_INT j; + + scanCtrlSize = sizeof (MVLU_RPT_SCAN_CTRL) + + (numScanVa * sizeof (MVLAS_RD_VA_CTRL)) + + (numScanVa * sizeof (MVL_SCOPE)) + + (numScanVa * sizeof (MVL_VAR_ASSOC *)); + + scanCtrl = (MVLU_RPT_SCAN_CTRL *) M_CALLOC (MSMEM_GEN, 1, scanCtrlSize); + scanCtrl->scan_va = (MVL_VAR_ASSOC **) (scanCtrl + 1); + scanCtrl->num_scan_va = numScanVa; + /* Point after array of (MVL_VAR_ASSOC *) */ + scanCtrl->scan_va_scope = (MVL_SCOPE *) (scanCtrl->scan_va + numScanVa); + + scanCtrl->indCtrl.event = &scanCtrl->commEvent; + scanCtrl->commEvent.event_type = MVLU_RPT_COMM_EVENT; + scanCtrl->indCtrl.op = MMSOP_MVLU_RPT_VA; + /* Point after array of (MVL_SCOPE) */ + scanCtrl->indCtrl.u.rd.vaCtrlTbl = + (MVLAS_RD_VA_CTRL *) (scanCtrl->scan_va_scope + numScanVa); + + scanCtrl->indCtrl.scan_va_done_fun = _mvlu_rpt_va_reads_done; + + scanCtrl->indCtrl.usr_ind_ctrl = scanCtrl; + + /* Fill in other structure elements from args passed. */ + for (j = 0; j < nvl->num_of_entries; ++j) + scanCtrl->scan_va[j]= nvl->entries[j]; + memcpy (scanCtrl->scan_va_scope, nvl->va_scope, + nvl->num_of_entries * sizeof (MVL_SCOPE)); + scanCtrl->enable = SD_TRUE; /* ALWAYS enable */ + /* Optional user function to be called when each scan completes. */ + scanCtrl->indCtrl.usr_resp_fun = scan_done_fun; + scanCtrl->scan_period = (ST_DOUBLE) report_scan_rate; + + list_add_last((ST_VOID **) &mvlu_rpt_scan_list, (ST_VOID *) scanCtrl); + return (scanCtrl); + } + +/************************************************************************/ +/* mvlu_rpt_create_scan_ctrl */ +/************************************************************************/ + +MVLU_RPT_SCAN_CTRL *mvlu_rpt_create_scan_ctrl (ST_INT numScanVa) + { +MVLU_RPT_SCAN_CTRL *scanCtrl; +ST_INT scanCtrlSize; + + scanCtrlSize = sizeof (MVLU_RPT_SCAN_CTRL) + + (numScanVa * sizeof (MVLAS_RD_VA_CTRL)) + + (numScanVa * sizeof (MVL_SCOPE)) + + (numScanVa * sizeof (MVL_VAR_ASSOC *)); + + scanCtrl = (MVLU_RPT_SCAN_CTRL *) M_CALLOC (MSMEM_GEN, 1, scanCtrlSize); + scanCtrl->scan_va = (MVL_VAR_ASSOC **) (scanCtrl + 1); + scanCtrl->num_scan_va = numScanVa; + /* Point after array of (MVL_VAR_ASSOC *) */ + scanCtrl->scan_va_scope = (MVL_SCOPE *) (scanCtrl->scan_va + numScanVa); + + scanCtrl->indCtrl.event = &scanCtrl->commEvent; + scanCtrl->commEvent.event_type = MVLU_RPT_COMM_EVENT; + scanCtrl->indCtrl.op = MMSOP_MVLU_RPT_VA; + /* Point after array of (MVL_SCOPE) */ + scanCtrl->indCtrl.u.rd.vaCtrlTbl = + (MVLAS_RD_VA_CTRL *) (scanCtrl->scan_va_scope + numScanVa); + + scanCtrl->indCtrl.scan_va_done_fun = _mvlu_rpt_va_reads_done; + + scanCtrl->indCtrl.usr_ind_ctrl = scanCtrl; + scanCtrl->scan_period = 10000; /* Default to 10 second scan period*/ + + list_add_last((ST_VOID **) &mvlu_rpt_scan_list, (ST_VOID *) scanCtrl); + return (scanCtrl); + } +/************************************************************************/ +/* mvlu_rpt_destroy_scan_ctrl */ +/* This function destroys a MVLU_RPT_SCAN_CTRL created by */ +/* 'mvlu_rpt_create_scan_ctrl' */ +/************************************************************************/ +ST_VOID mvlu_rpt_destroy_scan_ctrl (MVLU_RPT_SCAN_CTRL *scanCtrl) + { + /* Take it off the scan control list */ + list_unlink ((ST_VOID **) &mvlu_rpt_scan_list, (ST_VOID *) scanCtrl); + M_FREE (MSMEM_GEN, scanCtrl); + } + + +/************************************************************************/ +/************************************************************************/ +/* BASRCB READ/WRITE HANDLERS */ +/************************************************************************/ + +/************************************************************************/ +/* _mvlu_get_rcb */ +/************************************************************************/ + +static ST_VOID _mvlu_get_rcb (MVL_VAR_ASSOC *baseVa, + RUNTIME_TYPE *rt, + MVL_NET_INFO *netInfo, + MVLU_RPT_CTRL **rptCtrlOut, + MVLU_RPT_CLIENT **rptClientOut) + { +MVLU_RPT_CTRL *rptCtrl; +MVLU_RPT_CLIENT *rptClient; + + *rptCtrlOut = NULL; + *rptClientOut = NULL; + + /* Find the associated Report Control, using this RT as a key */ + rptCtrl = mvlu_rpt_ctrl_list; + while (rptCtrl != NULL) /* look through whole list */ + { + if (rptCtrl->base_va == baseVa && + (rt > rptCtrl->rcbRtHead) && + (rt <= rptCtrl->rcbRtHead + rptCtrl->rcbRtHead->u.str.num_rt_blks)) + { + *rptCtrlOut = rptCtrl; + break; + } + rptCtrl = (MVLU_RPT_CTRL *) list_get_next (mvlu_rpt_ctrl_list, rptCtrl); + } + if (*rptCtrlOut == NULL) + { + MVL_LOG_NERR0 ("Warning: could not find report control"); + return; + } + + /* Report Control found. */ + assert (rptCtrl->rcb_type == RCB_TYPE_UCA); /* must be UCA URCB*/ + + /* Now see if this connection has an active client */ + rptClient = rptCtrl->rpt_client_list; + while (rptClient != NULL) /* look through whole list */ + { + if (rptClient->netInfo == netInfo) + break; /* return a pointer to it */ + + rptClient = (MVLU_RPT_CLIENT *) list_get_next (rptCtrl->rpt_client_list, rptClient); + } + *rptClientOut = rptClient; + } + + +/************************************************************************/ +/* _mvlu_get_rd_rcb */ +/* NOTE: Caller can access MVLU_RPT_CTRL, if needed, by using "rpt_ctrl"*/ +/* member of MVLU_RPT_CLIENT. */ +/************************************************************************/ +MVLU_BASRCB *_mvlu_get_rd_rcb (MVLU_RD_VA_CTRL *mvluRdVaCtrl, + MVLU_RPT_CLIENT **rptClientOut) + { +MVLU_RPT_CTRL *rptCtrl; +MVLU_RPT_CLIENT *rptClient; +MVLU_BASRCB *rcb; + + /* Try to find 61850 RCB first. If found, return it. */ + if ((rcb = mvl61850_get_rcb (mvluRdVaCtrl->rdVaCtrl->va->base_va, + mvluRdVaCtrl->rt, + rptClientOut)) != NULL) + return (rcb); + + /* Could not find 61850 RCB, so now try to find UCA RCB. */ + + /* NOTE: Need net_info to find correct UCA RCB, so if it's not */ + /* known, give up now. This problem can occur if user includes*/ + /* RCB element in a Report DataSet (not supported for UCA). */ + if (mvluRdVaCtrl->indCtrl->event == NULL || + mvluRdVaCtrl->indCtrl->event->net_info == NULL) + return (NULL); /* don't know the connection, so can't find UCA RCB.*/ + + _mvlu_get_rcb (mvluRdVaCtrl->rdVaCtrl->va->base_va, + mvluRdVaCtrl->rt, + mvluRdVaCtrl->indCtrl->event->net_info, + &rptCtrl, + &rptClient); + + if (rptClientOut != NULL) + *rptClientOut = rptClient; + +/* If we have a report client, use it's BASRCB */ + if (rptClient != NULL) + return (&rptClient->basrcb); + +/* If not, and the report control was found, use the commom data */ + if (rptCtrl != NULL) + return (&rptCtrl->common_basrcb); + +/* Whoops, could not find the report control at all */ + return (NULL); + } + +/************************************************************************/ +/* _mvlu_get_wr_rcb */ +/* NOTE: Caller can access MVLU_RPT_CTRL, if needed, by using "rpt_ctrl"*/ +/* member of MVLU_RPT_CLIENT. */ +/************************************************************************/ +MVLU_BASRCB *_mvlu_get_wr_rcb (MVLU_WR_VA_CTRL *mvluWrVaCtrl, + MVLU_RPT_CLIENT **rptClientOut) + { +MVLU_RPT_CTRL *rptCtrl; +MVLU_RPT_CLIENT *rptClient; +MVL_NET_INFO *netInfo; +MVLU_RPT_CLIENT *foundClient=NULL; /* If correct Client found, */ + /* this is set to point to it. */ +MVLU_BASRCB *rcb; + + /* Try to find 61850 RCB first. If found, return it. */ + if ((rcb = mvl61850_get_rcb (mvluWrVaCtrl->wrVaCtrl->va->base_va, + mvluWrVaCtrl->rt, + rptClientOut)) != NULL) + return (rcb); + +/* Find the associated Report Control */ + netInfo = mvluWrVaCtrl->indCtrl->event->net_info; + _mvlu_get_rcb (mvluWrVaCtrl->wrVaCtrl->va->base_va, + mvluWrVaCtrl->rt, + netInfo, + &rptCtrl, + &rptClient); + + if (rptClient) /* if Client was found, */ + foundClient = rptClient; /* use it */ + else if (rptCtrl) /* else if rptCtrl was found, */ + foundClient = _mvlu_add_rpt_client (rptCtrl, netInfo); /* add client, use it*/ + + /* Set caller's ptr. */ + if (rptClientOut != NULL) + *rptClientOut = foundClient; + + /* If client found, return its basrcb, else return NULL. */ + return (foundClient ? (&foundClient->basrcb) : NULL); + } +/************************************************************************/ +/* _rcb_writable */ +/* Check if an RCB element is writable at this moment. */ +/* NOTE: Special RCB elements may require additional checking. */ +/* RETURNS: SD_TRUE if writable, SD_FALSE if NOT writable. */ +/************************************************************************/ +ST_RET _rcb_writable (MVLU_BASRCB *rcb, MVLU_RPT_CLIENT *rptClient, + MVLU_WR_VA_CTRL *mvluWrVaCtrl) + { +ST_RET writable; + + writable = SD_FALSE; /* assume NOT writable. Change if conditions correct.*/ + + /* First, the "rcb" must be valid (!=NULL), and NOT enabled. */ + if (rcb != NULL && rcb->RptEna == 0) + { /* if rcb is valid, rptClient must also be valid */ + assert (rptClient != NULL); + if (rptClient->rpt_ctrl->rcb_type == RCB_TYPE_IEC_URCB) + { /* if not reserved OR reserved by us, allow write. */ + if (rcb->Resv == 0 || rptClient->netInfo == mvluWrVaCtrl->indCtrl->event->net_info) + writable = SD_TRUE; + } + else /* rcb_type == RCB_TYPE_IEC_BRCB or RCB_TYPE_UCA */ + { /* nothing else to check, allow write. */ + writable = SD_TRUE; + } + } + return (writable); + } + +/************************************************************************/ +/* _mvlu_add_rpt_client */ +/************************************************************************/ + +static MVLU_RPT_CLIENT *_mvlu_add_rpt_client (MVLU_RPT_CTRL *rptCtrl, + MVL_NET_INFO *netInfo) + { +MVLU_RPT_CLIENT *rptClient; +ST_INT rptClientSize; +ST_INT numDsVars; +ST_INT changed_flags_size; + + assert (rptCtrl->rcb_type == RCB_TYPE_UCA); /* this funct only for UCA*/ +/* Alloc report control client enough to contain the reasons and */ +/* changed_flags data */ + numDsVars = rptCtrl->dsNvl->num_of_entries; + changed_flags_size = BSTR_NUMBITS_TO_NUMBYTES(numDsVars); + rptClientSize = sizeof (MVLU_RPT_CLIENT) + + (numDsVars * sizeof (ST_UINT8)) + /* reasons_data */ + 2 * changed_flags_size; /* changed_flags & segmented_inclusion */ + + rptClient = M_CALLOC (MSMEM_GEN, 1, rptClientSize); + rptClient->rpt_ctrl = rptCtrl; + rptClient->netInfo = netInfo; + memcpy (&rptClient->basrcb, &rptCtrl->common_basrcb, sizeof (MVLU_BASRCB)); + rptClient->reasons_data = (ST_UINT8 *) (rptClient + 1); + rptClient->changed_flags = (ST_UINT8 *) (rptClient->reasons_data + numDsVars); + rptClient->segmented_inclusion = rptClient->changed_flags + changed_flags_size; + + list_add_last((ST_VOID **) &rptCtrl->rpt_client_list, (ST_VOID *) rptClient); + ++rptCtrl->num_rpt_clients; + + _mvlu_rpt_disconnect_rcvd_fun = _mvlu_rpt_disconnect_rcvd; + return (rptClient); + } + +/************************************************************************/ +/* _mvlu_free_rpt_client */ +/************************************************************************/ + +static ST_VOID _mvlu_free_rpt_client (MVLU_RPT_CLIENT *rptClient) + { + M_FREE (MSMEM_GEN, rptClient); + } + +/************************************************************************/ +/************************************************************************/ +/* mvlu_rptid_rd_ind_fun */ +/************************************************************************/ + +ST_VOID mvlu_rptid_rd_ind_fun (MVLU_RD_VA_CTRL *mvluRdVaCtrl) + { +ST_CHAR *dest; +MVLU_BASRCB *rcb; +ST_RET rc; + + rc = SD_FAILURE; + + rcb = _mvlu_get_rd_rcb (mvluRdVaCtrl, NULL); + if (rcb != NULL) + { + dest = (ST_CHAR *) mvluRdVaCtrl->primData; + strcpy (dest, rcb->RptID); + rc = SD_SUCCESS; + } + mvlu_rd_prim_done (mvluRdVaCtrl, rc); + } + +/************************************************************************/ +/* mvlu_rptena_rd_ind_fun */ +/************************************************************************/ + +ST_VOID mvlu_rptena_rd_ind_fun (MVLU_RD_VA_CTRL *mvluRdVaCtrl) + { +ST_BOOLEAN *dest; +MVLU_BASRCB *rcb; +ST_RET rc; + + rc = SD_FAILURE; + rcb = _mvlu_get_rd_rcb (mvluRdVaCtrl, NULL); + if (rcb != NULL) + { + dest = (ST_BOOLEAN *) mvluRdVaCtrl->primData; + *dest = rcb->RptEna; + rc = SD_SUCCESS; + } + mvlu_rd_prim_done (mvluRdVaCtrl, rc); + } + +/************************************************************************/ +/* mvlu_resv_rd_ind_fun */ +/************************************************************************/ + +ST_VOID mvlu_resv_rd_ind_fun (MVLU_RD_VA_CTRL *mvluRdVaCtrl) + { +ST_BOOLEAN *dest; +MVLU_BASRCB *rcb; +ST_RET rc; + + rc = SD_FAILURE; + rcb = _mvlu_get_rd_rcb (mvluRdVaCtrl, NULL); + if (rcb != NULL) + { + dest = (ST_BOOLEAN *) mvluRdVaCtrl->primData; + *dest = rcb->Resv; + rc = SD_SUCCESS; + } + mvlu_rd_prim_done (mvluRdVaCtrl, rc); + } + +/************************************************************************/ +/* mvlu_datsetna_rd_ind_fun */ +/************************************************************************/ + +ST_VOID mvlu_datsetna_rd_ind_fun (MVLU_RD_VA_CTRL *mvluRdVaCtrl) + { +ST_CHAR *dest; +MVLU_BASRCB *rcb; +ST_RET rc; + + rc = SD_FAILURE; + rcb = _mvlu_get_rd_rcb (mvluRdVaCtrl, NULL); + if (rcb != NULL) + { + assert (strlen(rcb->DatSetNa) <= (size_t)abs(mvluRdVaCtrl->rt->u.p.el_len)); + dest = mvluRdVaCtrl->primData; + strcpy (dest, rcb->DatSetNa); + rc = SD_SUCCESS; + } + mvlu_rd_prim_done (mvluRdVaCtrl, rc); + } + +/************************************************************************/ +/* mvlu_optflds_rd_ind_fun */ +/************************************************************************/ + +ST_VOID mvlu_optflds_rd_ind_fun (MVLU_RD_VA_CTRL *mvluRdVaCtrl) + { +MVLU_BASRCB *rcb; +ST_RET rc; + + rc = SD_FAILURE; + rcb = _mvlu_get_rd_rcb (mvluRdVaCtrl, NULL); + if (rcb != NULL) + { + assert (rcb->OptFlds.len_1 <= sizeof(rcb->OptFlds.data_1)*8); + bvstrcpy ((MMS_BVSTRING *) mvluRdVaCtrl->primData, + (MMS_BVSTRING *) &rcb->OptFlds); + rc = SD_SUCCESS; + } + mvlu_rd_prim_done (mvluRdVaCtrl, rc); + } + +/************************************************************************/ +/* mvlu_buftim_rd_ind_fun */ +/************************************************************************/ + +ST_VOID mvlu_buftim_rd_ind_fun (MVLU_RD_VA_CTRL *mvluRdVaCtrl) + { +ST_UINT32 *dest; +MVLU_BASRCB *rcb; +ST_RET rc; + + rc = SD_FAILURE; + rcb = _mvlu_get_rd_rcb (mvluRdVaCtrl, NULL); + if (rcb != NULL) + { + dest = (ST_UINT32 *) mvluRdVaCtrl->primData; + *dest = rcb->BufTim; + rc = SD_SUCCESS; + } + mvlu_rd_prim_done (mvluRdVaCtrl, rc); + } + +/************************************************************************/ +/* mvlu_trgs_rd_ind_fun */ +/************************************************************************/ + +ST_VOID mvlu_trgs_rd_ind_fun (MVLU_RD_VA_CTRL *mvluRdVaCtrl) + { +ST_UINT16 *dest; +MVLU_BASRCB *rcb; +ST_RET rc; + + rc = SD_FAILURE; + rcb = _mvlu_get_rd_rcb (mvluRdVaCtrl, NULL); + if (rcb != NULL) + { + dest = (ST_UINT16 *) mvluRdVaCtrl->primData; + *dest = rcb->Trgs; + rc = SD_SUCCESS; + } + mvlu_rd_prim_done (mvluRdVaCtrl, rc); + } + +/************************************************************************/ +/* mvlu_sqnum_rd_ind_fun */ +/************************************************************************/ + +ST_VOID mvlu_sqnum_rd_ind_fun (MVLU_RD_VA_CTRL *mvluRdVaCtrl) + { +ST_UINT8 *dest; +MVLU_BASRCB *rcb; +ST_RET rc; + + rc = SD_FAILURE; + rcb = _mvlu_get_rd_rcb (mvluRdVaCtrl, NULL); + if (rcb != NULL) + { + dest = (ST_UINT8 *) mvluRdVaCtrl->primData; + *dest = rcb->SqNum; + rc = SD_SUCCESS; + } + mvlu_rd_prim_done (mvluRdVaCtrl, rc); + } + +/************************************************************************/ +/* mvlu_trgops_rd_ind_fun */ +/************************************************************************/ + +ST_VOID mvlu_trgops_rd_ind_fun (MVLU_RD_VA_CTRL *mvluRdVaCtrl) + { +MVLU_BASRCB *rcb; +ST_RET rc; + + rc = SD_FAILURE; + rcb = _mvlu_get_rd_rcb (mvluRdVaCtrl, NULL); + if (rcb != NULL) + { + assert (rcb->TrgOps.len <= sizeof(rcb->TrgOps.data)*8); + bvstrcpy ((MMS_BVSTRING *) mvluRdVaCtrl->primData, + (MMS_BVSTRING *) &rcb->TrgOps); + rc = SD_SUCCESS; + } + mvlu_rd_prim_done (mvluRdVaCtrl, rc); + } + +/************************************************************************/ +/* mvlu_rbepd_rd_ind_fun */ +/************************************************************************/ + +ST_VOID mvlu_rbepd_rd_ind_fun (MVLU_RD_VA_CTRL *mvluRdVaCtrl) + { +ST_UINT32 *dest; +MVLU_BASRCB *rcb; +ST_RET rc; + + rc = SD_FAILURE; + rcb = _mvlu_get_rd_rcb (mvluRdVaCtrl, NULL); + if (rcb != NULL) + { + dest = (ST_UINT32 *) mvluRdVaCtrl->primData; + *dest = rcb->RBEPd; + rc = SD_SUCCESS; + } + mvlu_rd_prim_done (mvluRdVaCtrl, rc); + } + +/************************************************************************/ +/* mvlu_intgpd_rd_ind_fun */ +/************************************************************************/ + +ST_VOID mvlu_intgpd_rd_ind_fun (MVLU_RD_VA_CTRL *mvluRdVaCtrl) + { +ST_UINT32 *dest; +MVLU_BASRCB *rcb; +ST_RET rc; + + rc = SD_FAILURE; + rcb = _mvlu_get_rd_rcb (mvluRdVaCtrl, NULL); + if (rcb != NULL) + { + dest = (ST_UINT32 *) mvluRdVaCtrl->primData; + *dest = rcb->IntgPd; + rc = SD_SUCCESS; + } + mvlu_rd_prim_done (mvluRdVaCtrl, rc); + } + +/************************************************************************/ +/* mvlu_rptid_wr_ind_fun */ +/************************************************************************/ + +ST_VOID mvlu_rptid_wr_ind_fun (MVLU_WR_VA_CTRL *mvluWrVaCtrl) + { +ST_CHAR *src; +MVLU_BASRCB *rcb; +ST_RET rc; +MVLU_RPT_CLIENT *rptClient; +ST_BOOLEAN do_purge = SD_FALSE; /* Chg to SD_TRUE if Purge Buffer required*/ + + rc = SD_FAILURE; + rcb = _mvlu_get_wr_rcb (mvluWrVaCtrl, &rptClient); + if (_rcb_writable (rcb, rptClient, mvluWrVaCtrl)) + { + src = mvluWrVaCtrl->primData; + if (rptClient->rpt_ctrl->rcb_type == RCB_TYPE_IEC_BRCB + && strcmp (rcb->RptID, src)) + do_purge = SD_TRUE; /* BRCB & val changed, must purge buffer*/ + strcpy (rcb->RptID, src); + rc = SD_SUCCESS; + } + else + mvluWrVaCtrl->wrVaCtrl->failure = ARE_TEMP_UNAVAIL; + + if (do_purge) + mvl61850_brcb_rpt_lists_clean (&rptClient->rpt_ctrl->brcbCtrl); + + mvlu_wr_prim_done (mvluWrVaCtrl, rc); + } + +/************************************************************************/ +/* mvl61850_brcb_handle_rptena_wr */ +/* Process "RptEna" write for 61850 BRCB. */ +/************************************************************************/ +ST_RET mvl61850_brcb_handle_rptena_wr (MVLU_RPT_CLIENT *rptClient, MVLU_BASRCB *rcb, + MVL_NET_INFO *net_info, ST_BOOLEAN newval) + { +ST_RET retCode; + if (rptClient->netInfo == NULL || + rptClient->netInfo == net_info) + { /* BRCB not enabled, or already enabled by us, so allow write.*/ + retCode = SD_SUCCESS; /* allow write */ + if (newval != 0) + { /* trying to enable */ + rptClient->rpt_ctrl->brcbCtrl.enabled_once = SD_TRUE; + rptClient->netInfo = net_info; /* reserve BRCB */ + rcb->SqNumInt16u = 0; /* reset SqNum */ + /*renxiaobao 61850 µÚ¶þ°æÐÞ¸Ä*/ + /*ʹÄܺóµÄµÚÒ»¸ö±¨ÎÄÖÃÒç³öλ*/ + rptClient->rpt_ctrl->brcbCtrl.BufOvfl = SD_TRUE; + } + else + { /* trying to disable */ + rptClient->netInfo = NULL; /* release BRCB reservation */ + } + } + else + { /* RCB reserved by someone else */ + retCode = SD_FAILURE; /* DO NOT allow write */ + } + return (retCode); + } +/************************************************************************/ +/* mvl61850_urcb_handle_rptena_wr */ +/* Process "RptEna" write for 61850 URCB. */ +/************************************************************************/ +ST_RET mvl61850_urcb_handle_rptena_wr (MVLU_RPT_CLIENT *rptClient, MVLU_BASRCB *rcb, + MVL_NET_INFO *net_info, ST_BOOLEAN newval) + { +ST_RET retCode; + if (rptClient->netInfo == NULL || + rptClient->netInfo == net_info) + { /* RCB not reserved, or reserved by us */ + retCode = SD_SUCCESS; /* allow write */ + if (newval != 0) + { /* enabling RCB */ + if (rcb->Resv == 0) /* If URCB not reserved yet, */ + rcb->Resv = 1; /* reserve it now. */ + rcb->SqNum = 0; /* reset SqNum for URCB only */ + rptClient->netInfo = net_info; /* reserve RCB */ + } + /* If newval==0, do nothing (just allow write). RCB not released until Resv set to 0.*/ + } + else + { /* RCB reserved by someone else */ + retCode = SD_FAILURE; /* DO NOT allow write */ + } + return (retCode); + } + +/************************************************************************/ +/* mvlu_rptena_wr_ind_fun */ +/************************************************************************/ + +ST_VOID mvlu_rptena_wr_ind_fun (MVLU_WR_VA_CTRL *mvluWrVaCtrl) + { +ST_BOOLEAN newval; /* val to write to RptEna */ +MVLU_BASRCB *rcb; +MVLU_RPT_CLIENT *rptClient; +ST_RET rc; +MVL_NET_INFO *net_info; /* current connection info */ + + newval = *(ST_BOOLEAN *) mvluWrVaCtrl->primData; + net_info = mvluWrVaCtrl->indCtrl->event->net_info; + + rc = SD_FAILURE; + rcb = _mvlu_get_wr_rcb (mvluWrVaCtrl, &rptClient); + if (rcb != NULL) + { + /* CRITICAL: don't allow enable if dataSet not set (dsNvl==NULL). */ + if (newval != 0 && rptClient->rpt_ctrl->dsNvl == NULL) + { /* Just log it. rc already set.*/ + MVL_LOG_NERR0 ("Cannot enable RCB with NULL DataSet."); + } + else + { + switch (rptClient->rpt_ctrl->rcb_type) + { + case RCB_TYPE_IEC_BRCB: + rc = mvl61850_brcb_handle_rptena_wr (rptClient, rcb, net_info, newval); + break; + case RCB_TYPE_IEC_URCB: + rc = mvl61850_urcb_handle_rptena_wr (rptClient, rcb, net_info, newval); + break; + default: /* must be UCA URCB */ + rc = SD_SUCCESS; /* ALWAYS allow write for URCB */ + if (newval != 0) /* enabling RCB */ + rcb->SqNum = 0; /* reset SqNum for URCB only */ + break; + } + } + } + + /* If allowing write, store new value. */ + if (rc == SD_SUCCESS) + rcb->RptEna = newval; + else /* for any error, return TEMP_UNAVAIL */ + mvluWrVaCtrl->wrVaCtrl->failure = ARE_TEMP_UNAVAIL; + + mvlu_wr_prim_done (mvluWrVaCtrl, rc); + } + +/************************************************************************/ +/* mvlu_resv_wr_ind_fun */ +/************************************************************************/ + +ST_VOID mvlu_resv_wr_ind_fun (MVLU_WR_VA_CTRL *mvluWrVaCtrl) + { +MVLU_BASRCB *rcb; +MVLU_RPT_CLIENT *rptClient; +ST_RET rc = SD_FAILURE; + + /* Only for 61850, so use mvl61850_get_rcb, not mvlu_get_wr_rcb. */ + rcb = mvl61850_get_rcb (mvluWrVaCtrl->wrVaCtrl->va->base_va, + mvluWrVaCtrl->rt, + &rptClient); + if (rcb != NULL) + { + assert (rptClient->rpt_ctrl->rcb_type == RCB_TYPE_IEC_URCB); + if (rptClient->netInfo == NULL || + rptClient->netInfo == mvluWrVaCtrl->indCtrl->event->net_info) + { /* RCB not reserved, or reserved by us, so allow write.*/ + rc = SD_SUCCESS; /* allow write */ + rcb->Resv = *(ST_BOOLEAN *) mvluWrVaCtrl->primData; + if (rcb->Resv != 0) + rptClient->netInfo = mvluWrVaCtrl->indCtrl->event->net_info; /* reserve RCB */ + else + { + /* If RCB DatSet is AA_SPEC, remove it (i.e. cleanup & set DatSet=""). */ + if (rptClient->rpt_ctrl->dsNvl != NULL && + rptClient->rpt_ctrl->dsNvl->nvl_scope.scope == AA_SPEC) + mvl61850_rpt_dataset_destroy (rptClient->rpt_ctrl); + rptClient->netInfo = NULL; /* unreserve RCB*/ + } + } + /* else rc=SD_FAILURE already set */ + } + + if (rc != SD_SUCCESS) + mvluWrVaCtrl->wrVaCtrl->failure = ARE_TEMP_UNAVAIL; + + mvlu_wr_prim_done (mvluWrVaCtrl, rc); + } + +/************************************************************************/ +/* mvlu_optflds_wr_ind_fun */ +/************************************************************************/ + +ST_VOID mvlu_optflds_wr_ind_fun (MVLU_WR_VA_CTRL *mvluWrVaCtrl) + { +MVLU_BASRCB *rcb; +ST_RET rc; +MMS_BVSTRING *bvstr; +ST_INT numbits; +MVLU_RPT_CLIENT *rptClient; + + rc = SD_FAILURE; + rcb = _mvlu_get_wr_rcb (mvluWrVaCtrl, &rptClient); + if (_rcb_writable (rcb, rptClient, mvluWrVaCtrl)) + { + /* Use 'rcb_type' to figure out how many bits are writable. */ + ST_INT rcb_type = rptClient->rpt_ctrl->rcb_type; + + bvstr = (MMS_BVSTRING *) mvluWrVaCtrl->primData; + /* NOTE: don't change OptFlds.len_1. May only be writing a few */ + /* bits, but want to send ALL bits in read response or Info Rpt. */ + + if (rcb_type == RCB_TYPE_UCA) + { + numbits = min (bvstr->len, 5); /* 5 bits writable. Ignore higher bits.*/ + bstrcpy (rcb->OptFlds.data_1, bvstr->data, numbits); + } + else + { /* must be either IEC_URCB or IEC_BRCB */ + numbits = min (bvstr->len, 9); /* 9 bits writable. Ignore higher bits.*/ + /*renxiaobao 61850 µÚ¶þ°æÐÞ¸Ä*/ + if(bstrcmp (rcb->OptFlds.data_1, bvstr->data, numbits)) + memset(rcb->EntryID,0,8); + /*end*/ + bstrcpy (rcb->OptFlds.data_1, bvstr->data, numbits); + if (rcb_type == RCB_TYPE_IEC_URCB) + { /* 61850-8-1 says to ignore buffer-overflow, entryID bits, so clear them*/ + BSTR_BIT_SET_OFF (rcb->OptFlds.data_1, OPTFLD_BITNUM_BUFOVFL); + BSTR_BIT_SET_OFF (rcb->OptFlds.data_1, OPTFLD_BITNUM_ENTRYID); + } + + } + rc = SD_SUCCESS; + } + else + mvluWrVaCtrl->wrVaCtrl->failure = ARE_TEMP_UNAVAIL; + + mvlu_wr_prim_done (mvluWrVaCtrl, rc); + } + +/************************************************************************/ +/* mvlu_buftim_wr_ind_fun */ +/************************************************************************/ + +ST_VOID mvlu_buftim_wr_ind_fun (MVLU_WR_VA_CTRL *mvluWrVaCtrl) + { +ST_UINT32 *src; +MVLU_BASRCB *rcb; +ST_RET rc; +MVLU_RPT_CLIENT *rptClient; +ST_BOOLEAN do_purge = SD_FALSE; /* Chg to SD_TRUE if Purge Buffer required*/ + + rc = SD_FAILURE; + rcb = _mvlu_get_wr_rcb (mvluWrVaCtrl, &rptClient); + if (_rcb_writable (rcb, rptClient, mvluWrVaCtrl)) + { + src = (ST_UINT32 *) mvluWrVaCtrl->primData; + if (rptClient->rpt_ctrl->rcb_type == RCB_TYPE_IEC_BRCB + && rcb->BufTim != *src) + { + do_purge = SD_TRUE; /* BRCB & val changed, must purge buffer*/ + /*renxiaobao 61850 µÚ¶þ°æÐÞ¸Ä*/ + memset(rcb->EntryID,0,8); + } + rcb->BufTim = *src; + rc = SD_SUCCESS; + } + else + mvluWrVaCtrl->wrVaCtrl->failure = ARE_TEMP_UNAVAIL; + + if (do_purge) + mvl61850_brcb_rpt_lists_clean (&rptClient->rpt_ctrl->brcbCtrl); + + mvlu_wr_prim_done (mvluWrVaCtrl, rc); + } + +/************************************************************************/ +/* mvlu_trgs_wr_ind_fun */ +/* NOTE: for UCA RCB only. */ +/************************************************************************/ + +ST_VOID mvlu_trgs_wr_ind_fun (MVLU_WR_VA_CTRL *mvluWrVaCtrl) + { +ST_UINT16 *src; +MVLU_BASRCB *rcb; +ST_RET rc; + + rc = SD_FAILURE; + rcb = _mvlu_get_wr_rcb (mvluWrVaCtrl, NULL); + if (rcb != NULL && rcb->RptEna == SD_FALSE) /* if enabled, can't write*/ + { + src = (ST_UINT16 *) mvluWrVaCtrl->primData; + rcb->Trgs = *src; + rc = SD_SUCCESS; + } + else + mvluWrVaCtrl->wrVaCtrl->failure = ARE_TEMP_UNAVAIL; + + mvlu_wr_prim_done (mvluWrVaCtrl, rc); + } + +/************************************************************************/ +/* mvlu_sqnum_wr_ind_fun */ +/* NOTE: for UCA RCB only. In IEC 61850 RCB, SqNum may not be written. */ +/************************************************************************/ + +ST_VOID mvlu_sqnum_wr_ind_fun (MVLU_WR_VA_CTRL *mvluWrVaCtrl) + { +ST_UINT8 *src; +MVLU_BASRCB *rcb; +ST_RET rc; + + rc = SD_FAILURE; + rcb = _mvlu_get_wr_rcb (mvluWrVaCtrl, NULL); + if (rcb != NULL && rcb->RptEna == SD_FALSE) /* if enabled, can't write*/ + { + src =(ST_UINT8 *) mvluWrVaCtrl->primData; + rcb->SqNum = *src; + rc = SD_SUCCESS; + } + else + mvluWrVaCtrl->wrVaCtrl->failure = ARE_TEMP_UNAVAIL; + + mvlu_wr_prim_done (mvluWrVaCtrl, rc); + } + +/************************************************************************/ +/* mvlu_trgops_wr_ind_fun */ +/************************************************************************/ +extern int rcb_TrgOps_wr_check(char *rpt_id,char wr_data); +ST_VOID mvlu_trgops_wr_ind_fun (MVLU_WR_VA_CTRL *mvluWrVaCtrl) + { +MVLU_BASRCB *rcb; +ST_RET rc; +MMS_BVSTRING *bvstr; +MVLU_RPT_CLIENT *rptClient; +ST_BOOLEAN do_purge = SD_FALSE; /* Chg to SD_TRUE if Purge Buffer required*/ + + rc = SD_FAILURE; + rcb = _mvlu_get_wr_rcb (mvluWrVaCtrl, &rptClient); + if (_rcb_writable (rcb, rptClient, mvluWrVaCtrl)) + { + bvstr = (MMS_BVSTRING *) mvluWrVaCtrl->primData; + /* NOTE: don't change TrgOps.len. May only be writing a few */ + /* bits, but want to send ALL bits in read response or Info Rpt. */ + + /* assert (bvstr->len <= (sizeof (rcb->TrgOps.data)*8));*/ + if (rptClient->rpt_ctrl->rcb_type == RCB_TYPE_IEC_BRCB + && bstrcmp (rcb->TrgOps.data, bvstr->data, bvstr->len)) + { + do_purge = SD_TRUE; /* BRCB & val changed, must purge buffer*/ + /*renxiaobao 61850 µÚ¶þ°æÐÞ¸Ä*/ + memset(rcb->EntryID,0,8); + } + if(rcb_TrgOps_wr_check(rptClient->rpt_ctrl->common_basrcb.RptID,bvstr->data[0])) + bstrcpy (rcb->TrgOps.data, bvstr->data, bvstr->len); + + + + rc = SD_SUCCESS; + } + else + mvluWrVaCtrl->wrVaCtrl->failure = ARE_TEMP_UNAVAIL; + + if (do_purge) + mvl61850_brcb_rpt_lists_clean (&rptClient->rpt_ctrl->brcbCtrl); + + mvlu_wr_prim_done (mvluWrVaCtrl, rc); + } + +/************************************************************************/ +/* mvlu_rbepd_wr_ind_fun */ +/* NOTE: for UCA RCB only. */ +/************************************************************************/ + +ST_VOID mvlu_rbepd_wr_ind_fun (MVLU_WR_VA_CTRL *mvluWrVaCtrl) + { +ST_UINT32 *src; +MVLU_BASRCB *rcb; +ST_RET rc; + + rc = SD_FAILURE; + rcb = _mvlu_get_wr_rcb (mvluWrVaCtrl, NULL); + if (rcb != NULL && rcb->RptEna == SD_FALSE) /* if enabled, can't write*/ + { + src = (ST_UINT32 *) mvluWrVaCtrl->primData; + rcb->RBEPd = *src; + rc = SD_SUCCESS; + } + else + mvluWrVaCtrl->wrVaCtrl->failure = ARE_TEMP_UNAVAIL; + + mvlu_wr_prim_done (mvluWrVaCtrl, rc); + } + +/************************************************************************/ +/* mvlu_intgpd_wr_ind_fun */ +/************************************************************************/ + +ST_VOID mvlu_intgpd_wr_ind_fun (MVLU_WR_VA_CTRL *mvluWrVaCtrl) + { +ST_UINT32 *src; +MVLU_BASRCB *rcb; +ST_RET rc; +MVLU_RPT_CLIENT *rptClient; +ST_BOOLEAN do_purge = SD_FALSE; /* Chg to SD_TRUE if Purge Buffer required*/ + + rc = SD_FAILURE; + rcb = _mvlu_get_wr_rcb (mvluWrVaCtrl, &rptClient); + if (_rcb_writable (rcb, rptClient, mvluWrVaCtrl)) + { + src = (ST_UINT32 *) mvluWrVaCtrl->primData; + if (rptClient->rpt_ctrl->rcb_type == RCB_TYPE_IEC_BRCB + && rcb->IntgPd != *src) + { + do_purge = SD_TRUE; /* BRCB & val changed, must purge buffer*/ + /*renxiaobao 61850 µÚ¶þ°æÐÞ¸Ä*/ + rptClient->next_integ_rpt_time = 0; /* reset timer */ + memset(rcb->EntryID,0,8); + } + rcb->IntgPd = *src; + rc = SD_SUCCESS; + } + else + mvluWrVaCtrl->wrVaCtrl->failure = ARE_TEMP_UNAVAIL; + + if (do_purge) + mvl61850_brcb_rpt_lists_clean (&rptClient->rpt_ctrl->brcbCtrl); + + mvlu_wr_prim_done (mvluWrVaCtrl, rc); + } + +/************************************************************************/ +/************************************************************************/ +/* For backward compatibility ... do not use */ +ST_VOID mvlu_seqnum_rd_ind_fun (MVLU_RD_VA_CTRL *mvluRdVaCtrl) + { + mvlu_sqnum_rd_ind_fun (mvluRdVaCtrl); + } +ST_VOID mvlu_seqnum_wr_ind_fun (MVLU_WR_VA_CTRL *mvluWrVaCtrl) + { + mvlu_sqnum_wr_ind_fun (mvluWrVaCtrl); + } + +/* + * mvlu_integrity_scan_destroy + * Free data allocated by mvlu_integrity_scan_read. + */ +ST_VOID mvlu_integrity_scan_destroy (MVL_IND_PEND *indCtrl) + { + M_FREE (MSMEM_GEN, indCtrl); + } + +/* + * mvlu_integrity_scan_read + * This function "BEGINS" the scan of ALL data for one Report DataSet (NVL). + * It is called automatically when an Integrity Report or a + * General Interrogation Report needs to be sent. This is much more + * efficient than constantly scanning. + * - It allocates & initializes a temporary MVL_IND_PEND structure. + * - It calls "u_mvl_read_ind" to begin the scan. + * - The scan may complete synchronously or asynchronously. + * - When the scan completes, the funct pointed to by "scan_done_fun" arg + * is called to build the report and cleanup. + * CRITICAL: Function pointed to by "scan_done_fun" must call + * "mvlu_integrity_scan_destroy" to free temporary MVL_IND_PEND struct. + */ + +ST_VOID mvlu_integrity_scan_read (MVLU_RPT_CLIENT *rptClient, + ST_VOID (*scan_va_done_fun)(MVL_IND_PEND *indCtrl, + MVL_VAR_ASSOC *va), + ST_RET (*scan_done_fun)(MVL_IND_PEND *indCtrl) + ) + { +MVL_IND_PEND *indCtrl; + + /* Create a simulated read indication for the DataSet NVL. */ + indCtrl = mvlu_setup_scan_read (rptClient->rpt_ctrl->dsNvl, + scan_va_done_fun, scan_done_fun); + + indCtrl->usr_ind_ctrl = rptClient; /* Save rptClient */ + + /* OK, now fire off the read indication functions. */ + u_mvl_read_ind (indCtrl); + } + +/** + * mvlu_setup_scan_read + * This function sets up the scan of ALL data for one NVL. + * It allocates & initializes a temporary MVL_IND_PEND structure for a + * simulated read indication. + * RETURNS: (MVL_IND_PEND *) + */ + +MVL_IND_PEND *mvlu_setup_scan_read (MVL_NVLIST_CTRL *nvl, + ST_VOID (*scan_va_done_fun)(MVL_IND_PEND *indCtrl, + MVL_VAR_ASSOC *va), + ST_RET (*scan_done_fun)(MVL_IND_PEND *indCtrl) + ) + { +MVLAS_RD_VA_CTRL *vaCtrl; +MVL_IND_PEND *indCtrl; +ST_INT j; + +/* Allocate space for MVL_IND_PEND & array of MVLAS_RD_VA_CTRL. */ + indCtrl = M_CALLOC (MSMEM_GEN, 1, + sizeof (MVL_IND_PEND) + + nvl->num_of_entries * sizeof (MVLAS_RD_VA_CTRL)); + + indCtrl->u.rd.numVar = nvl->num_of_entries; + indCtrl->op = MMSOP_MVLU_RPT_VA; /* indicates this is not normal read*/ + + indCtrl->u.rd.vaCtrlTbl = (MVLAS_RD_VA_CTRL *)(indCtrl+1);/*point after indCtrl*/ + + for (j = 0, vaCtrl = indCtrl->u.rd.vaCtrlTbl; + j < nvl->num_of_entries; + j++, vaCtrl++) + { + vaCtrl->va = nvl->entries[j]; + memcpy (&vaCtrl->va_scope, &nvl->va_scope[j], sizeof(MVL_SCOPE)); + } + + /* Save funct ptr. Called from "mvlu_rd_prim_done" when scan of ONE va complete.*/ + indCtrl->scan_va_done_fun = scan_va_done_fun; + + /* Save funct ptr. Called from "mvlu_rd_prim_done" when scan complete.*/ + indCtrl->usr_resp_fun = scan_done_fun; /* CRITICAL: */ + + return (indCtrl); + } + +/************************************************************************/ +/* mvlu_integrity_scan_va_done */ +/* This function is called by 'mvlu_rd_prim_done' when all "leaf" */ +/* functions for a VA have been completed (i.e. data ready for this VA).*/ +/************************************************************************/ + +ST_VOID mvlu_integrity_scan_va_done (MVL_IND_PEND *indCtrl, + MVL_VAR_ASSOC *va) + { + ST_INT data_size; + /* CRITICAL: DO NOT call mvlu_rpt_va_change. rptClient->reasons_data */ + /* will be set in mvlu_integrity_scan_done when scan completes. */ + data_size = mvl_type_ctrl[va->type_id].data_size; + memcpy (va->last_data, va->data, data_size); + } + +/************************************************************************/ +/* mvlu_integrity_scan_done */ +/* Same as "_mvlu_rpt_scan_done" except arg is (MVL_IND_PEND *) */ +/* instead of (MVLU_RPT_SCAN_CTRL *). */ +/* */ +/* This function is called when the integrity scan is complete. */ +/* (i.e. 'mvlu_rd_prim_done' has been called for all "leafs" of all */ +/* variables in the report). Everything is ready to build a report, */ +/* so build it now. */ +/************************************************************************/ + +ST_RET mvlu_integrity_scan_done (MVL_IND_PEND *indCtrl) + { +ST_RET retCode; +MVLU_RPT_CLIENT *rptClient; +ST_INT j; + + /* Get "rptClient", saved in "indCtrl" when scan initialized. */ + rptClient = (MVLU_RPT_CLIENT *) indCtrl->usr_ind_ctrl; + + /* Set "reason" for each variable of Dataset now. */ + for (j = 0; j < rptClient->rpt_ctrl->dsNvl->num_of_entries; j++) + rptClient->reasons_data[j] = MVLU_TRGOPS_INTEGRITY; + + /* send or queue rpt */ + retCode = mvlu_rpt_ready (rptClient, MVLU_RPT_TYPE_INTEGRITY_OR_GI); + + if (retCode != SD_SUCCESS) + MVLU_LOG_FLOW1 ("Integrity report send failed: err=0x%X", retCode); + + /* set time for next integrity report */ + rptClient->next_integ_rpt_time = sGetMsTime () + + (ST_DOUBLE) rptClient->basrcb.IntgPd; + rptClient->integ_scan_in_progress = SD_FALSE; + mvlu_integrity_scan_destroy (indCtrl); /* destroy temporary struct*/ + return (retCode); + } + +/************************************************************************/ +/* find_or_create_typeid */ +/* Try to find the type_id. If that fails, try to create it. */ +/************************************************************************/ +ST_INT find_or_create_typeid (ST_CHAR *type_name, ST_CHAR *tdl) + { +ST_INT type_id; + if ((type_id = mvl_typename_to_typeid (type_name)) < 0) /* find */ + type_id = mvl_type_id_create_from_tdl (type_name, tdl); /* create*/ + return (type_id); + } + +/************************************************************************/ +/* mvlu_rpt_find_typeids */ +/* Find or create ALL types needed to encode reports. */ +/* These types may have been defined in the ODF file and created by */ +/* Foundry or may have been created by an earlier call to this function.*/ +/* RETURNS: SD_SUCCESS if ALL types found or created */ +/* SD_FAILURE if ANY type could not be found or created. */ +/************************************************************************/ +ST_RET mvlu_rpt_find_typeids (MVLU_RPT_TYPEIDS *rpt_typeids) + { +ST_RET retCode = SD_FAILURE; /* assume FAILURE for now */ +ST_CHAR *type_name; /* name of type to be found */ + + /* stop on any error */ + do + { /* "one-time" loop: just to have something to break out of */ + if ((rpt_typeids->mmsbool = find_or_create_typeid (type_name = "RTYP_BOOL", "Bool")) < 0) + break; + if ((rpt_typeids->bstr6 = find_or_create_typeid (type_name = "RTYP_BSTR6", "Bstring6")) < 0) + break; + if ((rpt_typeids->bstr8 = find_or_create_typeid (type_name = "RTYP_BSTR8", "Bstring8")) < 0) + break; + if ((rpt_typeids->bvstring6 = find_or_create_typeid (type_name = "RTYP_BVSTR6", "Bvstring6")) < 0) + break; + if ((rpt_typeids->bvstring8 = find_or_create_typeid (type_name = "RTYP_BVSTR8", "Bvstring8")) < 0) + break; + if ((rpt_typeids->bvstring10 = find_or_create_typeid (type_name = "RTYP_BVSTR10", "Bvstring10")) < 0) + break; + if ((rpt_typeids->btime6 = find_or_create_typeid (type_name = "RTYP_BTIME6", "Btime6")) < 0) + break; + if ((rpt_typeids->int8u = find_or_create_typeid (type_name = "RTYP_INT8U", "Ubyte")) < 0) + break; + if ((rpt_typeids->int16u = find_or_create_typeid (type_name = "RTYP_INT16U", "Ushort")) < 0) + break; + if ((rpt_typeids->int32u = find_or_create_typeid (type_name = "RTYP_INT32U", "Ulong")) < 0) + break; + if ((rpt_typeids->ostring8 = find_or_create_typeid (type_name = "RTYP_OSTR8", "Ostring8")) < 0) + break; + if ((rpt_typeids->vstring32 = find_or_create_typeid (type_name = "RTYP_VSTR32", "Vstring32")) < 0) + break; + if ((rpt_typeids->vstring65 = find_or_create_typeid (type_name = "RTYP_VSTR65", "Vstring65")) < 0) + break; + if ((rpt_typeids->vstring129 = find_or_create_typeid (type_name = "RTYP_VSTR129", "Vstring129")) < 0) + break; + + retCode = SD_SUCCESS; /* If we get here, all were successful */ + } while (0); /* end of "one-time" loop */ + + if (retCode) + MVL_LOG_ERR1 ("Can't find or create type '%s'", type_name); + return (retCode); /* If ANY find failed, SD_FAILURE is returned */ + } + +/************************************************************************/ +/* mvlu_integrity_timeout */ +/* Check for Integrity period timeout. If timeout occurred, start */ +/* integrity scan. */ +/* RETURNS: SD_TRUE if IntgPd is set and timeout occurred */ +/* SD_FALSE otherwise */ +/************************************************************************/ +ST_RET mvlu_integrity_timeout (MVLU_RPT_CLIENT *rptClient, ST_DOUBLE timeNow) + { +ST_RET ret; + + if (rptClient->basrcb.IntgPd != 0 + && BSTR_BIT_GET (rptClient->basrcb.TrgOps.data, TRGOPS_BITNUM_INTEGRITY) /* enabled*/ + && (!rptClient->integ_scan_in_progress) + && timeNow > rptClient->next_integ_rpt_time) + { + MVLU_LOG_FLOW1 ("UCA Report Integrity Period timeout for client %08lx", + rptClient); + + /* Send last buffered entry (due to BufTm buffering) BEFORE this integrity report.*/ + if (rptClient->numTrgs > 0) + { /* send or queue report */ + mvlu_rpt_ready (rptClient, MVLU_RPT_TYPE_RBE); + } + + /* Set scan_in_progress flag so new scan can't start before last + * scan finished. Clear flag in "mvlu_integrity_scan_done". + */ + rptClient->integ_scan_in_progress = SD_TRUE; + + /* This function "begins" the integrity scan. When the scan is + * complete, "mvlu_integrity_scan_done" is called to build the + * the report. If ALL "leaf" functions are synchronous, + * "mvlu_integrity_scan_done" is called BEFORE this function returns. + */ + mvlu_integrity_scan_read (rptClient, + mvlu_integrity_scan_va_done, + mvlu_integrity_scan_done); + ret = SD_TRUE; + } + else + ret = SD_FALSE; + return (ret); + } + +/************************************************************************/ +/* mvlu_rpt_rcb_type_find */ +/* Find the runtime type of the RCB and save it in *rcbHeadOut & *numRtOut.*/ +/************************************************************************/ +ST_RET mvlu_rpt_rcb_type_find (ST_INT type_id, ST_CHAR *basrcbName, + RUNTIME_TYPE **rcbHeadOut, ST_INT *numRtOut) + { +ST_RET ret = SD_FAILURE; +ST_CHAR *ptr; + + ptr = strstr (basrcbName, "$"); + if (ptr) + { + ++ptr; /* Skip the '$' */ + if (mvlu_find_comp_type (type_id, ptr, rcbHeadOut, numRtOut) == SD_SUCCESS) + { + if ((*rcbHeadOut)->el_tag == RT_STR_START) + ret = SD_SUCCESS; /* only path to success */ + else + MVL_LOG_NERR1 ("'%s' is not a structure", basrcbName); + } + else + MVL_LOG_NERR1 ("Could not find type for component '%s'", basrcbName); + } + else + MVL_LOG_NERR1 ("Invalid BASRCB name: %s", basrcbName); + + return (ret); + } + +/************************************************************************/ +/* mvlu_rpt_ready */ +/* Report is ready to send or save in "buffer". */ +/* Check the RCB type and call appropriate function. */ +/************************************************************************/ +ST_RET mvlu_rpt_ready (MVLU_RPT_CLIENT *rptClient, ST_INT rpt_type) + { +ST_RET retCode; + switch (rptClient->rpt_ctrl->rcb_type) + { + case RCB_TYPE_UCA: + retCode = mvlu_send_report (rptClient, rpt_type); + break; + case RCB_TYPE_IEC_BRCB: + retCode = mvl61850_brcb_rpt_save (rptClient); /* save rpt in buffer*/ + break; + case RCB_TYPE_IEC_URCB: + retCode = mvl61850_urcb_rpt_send (rptClient->rpt_ctrl, rptClient, rpt_type); + break; + default: + retCode = SD_FAILURE; /* should never happen */ + break; + } + return (retCode); + } + +/************************************************************************/ +/* mvlu_rpt_ctrl_destroy_all */ +/* Destroy all UCA report controls. */ +/************************************************************************/ +ST_VOID mvlu_rpt_ctrl_destroy_all () + { +MVLU_RPT_CTRL *rptCtrl; +MVLU_RPT_SCAN_CTRL *scanCtrl; + /* Use list_find_last to avoid calling list_unlink twice. */ + while ((scanCtrl = (MVLU_RPT_SCAN_CTRL *) list_find_last ((DBL_LNK *)mvlu_rpt_scan_list)) != NULL) + { + mvlu_rpt_destroy_scan_ctrl (scanCtrl); /* this also unlinks it from list*/ + } + + /* Use list_find_last to avoid calling list_unlink twice. */ + while ((rptCtrl = (MVLU_RPT_CTRL *) list_find_last ((DBL_LNK *)mvlu_rpt_ctrl_list)) != NULL) + { + mvlu_free_rpt_ctrl (rptCtrl); /* this also unlinks it from list*/ + } + } + diff --git a/mmslib/mvlu/mvlu_rt.c b/mmslib/mvlu/mvlu_rt.c new file mode 100644 index 0000000..c032332 --- /dev/null +++ b/mmslib/mvlu/mvlu_rt.c @@ -0,0 +1,422 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1997-2001, All Rights Reserved */ +/* */ +/* MODULE NAME : mvlu_rt.c */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* main */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 01/18/08 JRB 11 We allow up to 15 char LNName (sclparse.c), */ +/* so max flatname must be MAX_IDENT_LEN-15. */ +/* 07/20/07 JRB 10 Flatnames must be shorter to add LNName later*/ +/* 11/22/06 JRB 09 Free bufs if _mvlu_build_uca_name_tbl fails. */ +/* 01/30/06 GLB 09 Integrated porting changes for VMS */ +/* 03/11/04 GLB 08 Added "#ifdef DEBUG_SISCO" for "thisFileName" */ +/* 09/18/03 JRB 07 Allow array of structures. */ +/* DON'T allow array of arrays (return error). */ +/* 05/02/03 JRB 06 switch(rt->el_tag): Use default for most cases*/ +/* 04/29/03 JRB 05 Chg several functions to return ST_RET. */ +/* 04/24/03 JRB 04 Use MAX_IDENT_LEN define. */ +/* 03/13/03 JRB 03 mvlu_proc_rt_type: Chg to use RUNTIME_CTRL. */ +/* MVLU_UCA_NAME_CTRL: Chg ucaName member from */ +/* ptr to array (saves allocs). */ +/* 12/11/02 JRB 02 Use new mvl_uca.h */ +/* 11/14/02 MDE 01 New module, extracted fo_uca.c */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "gen_list.h" + +#include "mmsdefs.h" +#include "mms_pvar.h" +#include "mms_vvar.h" +#include "mem_chk.h" +#include "mvl_uca.h" + +/************************************************************************/ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/************************************************************************/ +/* STATIC VARIABLES */ + +#define MAX_PREFIX_LEN 200 +#define MAX_NEST_LEVEL 50 +static ST_CHAR *namePrefix[MAX_NEST_LEVEL]; +static ST_INT nestLevel; + + +/************************************************************************/ +/* STATIC FUNCTIONS */ + +static ST_RET _mvlu_set_rt_sort_num (ST_CHAR *typeName, + RUNTIME_TYPE *rt, ST_INT numRt, + MVLU_UCA_NAME_CTRL **ucaNamesOut); +static ST_VOID _mvlu_set_rt_size (RUNTIME_TYPE *rt) ; +static ST_VOID _mvlu_set_rt_offset (RUNTIME_TYPE *rt, ST_INT numRt); +static ST_RET _mvlu_build_uca_name_tbl (RUNTIME_TYPE *rt, ST_INT rt_num, + MVLU_UCA_NAME_CTRL *mvluFoundryInfo); +static ST_RET _mvlu_save_rt_uca_name (ST_INT nestLevel, RUNTIME_TYPE *rt, + MVLU_UCA_NAME_CTRL *mvluFoundryInfo); +static ST_VOID _mvlu_sort_uca_names (MVLU_UCA_NAME_CTRL *ucaNames, + RUNTIME_TYPE *rt, ST_INT numRt); + +/************************************************************************/ +/************************************************************************/ +/* mvlu_proc_rt_type */ +/************************************************************************/ + +ST_RET mvlu_proc_rt_type (ST_CHAR *typeName, RUNTIME_CTRL *rt_ctrl, + MVLU_UCA_NAME_CTRL **ucaNamesOut) + { +RUNTIME_TYPE *rt; +ST_INT i; +ST_RET ret; + +/* Set the sortedNum for each RT element */ + ret = _mvlu_set_rt_sort_num (typeName, rt_ctrl->rt_first, rt_ctrl->rt_num, ucaNamesOut); + if (ret) + return(ret); /* don't bother continuing */ + +/* Find the offset of the data for each RT within the type */ + _mvlu_set_rt_offset (rt_ctrl->rt_first, rt_ctrl->rt_num); + +/* Find the size of each RT within the type */ + rt = rt_ctrl->rt_first; + for (i = 0; i < rt_ctrl->rt_num; ++i, ++rt) + _mvlu_set_rt_size (rt); + + return (ret); + } + +/************************************************************************/ +/************************************************************************/ +/* _mvlu_set_rt_size */ +/************************************************************************/ +/* This function would not be needed except that the UCA structure */ +/* handling needs to know the size of each subelement too ... */ + +static ST_VOID _mvlu_set_rt_size (RUNTIME_TYPE *rt) + { +ST_INT numUcaRt; +ST_INT blockedLen; + + if (rt->el_tag == RT_ARR_END || rt->el_tag == RT_STR_END) + { + return; + } + + if (rt->el_tag == RT_STR_START) + numUcaRt = rt->u.str.num_rt_blks+2; + else if (rt->el_tag == RT_ARR_START) + numUcaRt = rt->u.arr.num_rt_blks+2; + else + numUcaRt = 1; + +/* Now we can find the size of this element and it's associates */ + blockedLen = ms_get_blocked_length (rt, numUcaRt); + rt->offset_to_last = blockedLen; + } + +/************************************************************************/ +/************************************************************************/ +/* _mvlu_set_rt_offset */ +/************************************************************************/ + +static ST_VOID _mvlu_set_rt_offset (RUNTIME_TYPE *rt, ST_INT numRt) + { +ST_INT data_offset; +SD_CONST RUNTIME_TYPE *rt_end; +ST_INT arr_loops[ASN1_MAX_LEVEL]; +ST_BOOLEAN arr_el_set[ASN1_MAX_LEVEL]; +ST_INT arr_loop_level; + + arr_loop_level = 0; + rt_end = rt + numRt; /* end block */ + data_offset = 0; + +/* Traverse the RT type as though we were doing a ASN.1 to LOCAL */ + while (rt < rt_end) + { + if (rt->el_tag == RT_ARR_END) /* treat case of array ending */ + { + if (--arr_loops[arr_loop_level] > 0)/* if need to do next ar elmnt*/ + { + rt -= rt->u.arr.num_rt_blks; /* mv rt to start of arr */ + continue; + } + else + --arr_loop_level; + } + if (arr_loop_level == 0 || arr_el_set[arr_loop_level] == SD_FALSE) + { + rt->mvluTypeInfo.offSet = data_offset; /* Set the offset */ + /* renxiaobao Êý×é*/ + /*arr_el_set[arr_loop_level] = SD_TRUE;*/ + } + + data_offset += rt->el_size; /* Offset for next */ + + if (rt->el_tag == RT_ARR_START) /* Set up array looping */ + { + ++arr_loop_level; + arr_loops[arr_loop_level] = rt->u.arr.num_elmnts; + arr_el_set[arr_loop_level] = SD_FALSE; + } + rt++; /* point to next runtime element */ + } + } + + +/************************************************************************/ +/************************************************************************/ +/* _mvlu_set_rt_sort_num */ +/************************************************************************/ + +static ST_RET _mvlu_set_rt_sort_num (ST_CHAR *typeName, + RUNTIME_TYPE *rt, ST_INT numRt, + MVLU_UCA_NAME_CTRL **ucaNamesOut) + { +MVLU_UCA_NAME_CTRL *ucaNames; +ST_INT i; + + ucaNames = (MVLU_UCA_NAME_CTRL *) chk_calloc (numRt, sizeof (MVLU_UCA_NAME_CTRL)); + nestLevel = 0; + +/* Derive the UCA names within this type */ + namePrefix[0] = (ST_CHAR *) chk_calloc (1, MAX_PREFIX_LEN); + if (typeName != NULL) + strcpy (namePrefix[0], typeName); + + if (_mvlu_build_uca_name_tbl (rt, numRt, ucaNames)) + { + chk_free(ucaNames); + chk_free(namePrefix[0]); + return (SD_FAILURE); /* don't bother continuing */ + } + +/* Now sort the UCA names within the type */ + _mvlu_sort_uca_names (ucaNames, rt, numRt); + + for (i = 0; i < MAX_NEST_LEVEL; ++i) + { + if (namePrefix[i] != NULL) + { + chk_free (namePrefix[i]); + namePrefix[i] = NULL; + } + } + if (ucaNamesOut == NULL) + chk_free (ucaNames); + else + *ucaNamesOut = ucaNames; + return (SD_SUCCESS); + } + +/************************************************************************/ +/* _mvlu_build_uca_name_tbl */ +/* Start with retCode=SD_SUCCESS. If any call to _mvlu_save_rt_uca_name */ +/* fails, set retCode=SD_FAILURE. Do not return immediately because we */ +/* want to log as many problems as possible first. */ +/************************************************************************/ + +static ST_RET _mvlu_build_uca_name_tbl (RUNTIME_TYPE *rt, ST_INT rt_num, + MVLU_UCA_NAME_CTRL *ucaNames) + { +ST_INT i; +ST_RET retCode=SD_SUCCESS; + + nestLevel = 0; + for (i = 0; i < rt_num; ++i, ++rt) + { + ucaNames[i].rtIndex = i; + ucaNames[i].rt = rt; + switch (rt->el_tag) + { + case RT_STR_START : + if (ms_comp_name_pres(rt)) + { + if (_mvlu_save_rt_uca_name (nestLevel, rt, &ucaNames[i])) + retCode = SD_FAILURE; /*continue but eventually return this*/ + + ++nestLevel; + if (namePrefix[nestLevel] == NULL) + namePrefix[nestLevel] = (ST_CHAR *) chk_calloc (1, MAX_PREFIX_LEN); + + strcpy (namePrefix[nestLevel], namePrefix[nestLevel-1]); + strcat (namePrefix[nestLevel], "$"); + strcat (namePrefix[nestLevel], ms_comp_name_find(rt)); + } + break; + + case RT_STR_END : + --nestLevel; + break; + + case RT_ARR_START : + if (_mvlu_save_rt_uca_name (nestLevel, rt, &ucaNames[i])) + retCode = SD_FAILURE; /*continue but eventually return this*/ + + /* We let the array element inherit our name so we will generate */ + /* rd/wr ind handler functions and references for the contained */ + /* primitive elements */ + /* This causes duplicate names (name of array same as name of */ + /* object IN array). That's OK because names of anything inside */ + /* array are dropped when sorted (see _mvlu_sort_uca_names). */ + /* The "sorted" array of names is used in GetNameList response. */ + + if (ms_is_rt_prim (rt+1) || (rt+1)->el_tag==RT_STR_START) + { + +#if defined(USE_RT_TYPE_2) + (rt+1)->comp_name_ptr = rt->comp_name_ptr; +#elif defined(USE_RT_TYPE_3) + (rt+1)->name_index = rt->name_index; +#else + strcpy ((rt+1)->name, rt->name); +#endif + } + else + { + SLOGALWAYS1 ("Warning: Arrays of arrays not supported for UCA (%s)", + ucaNames[i].ucaName); + retCode = SD_FAILURE; /*continue but eventually return this*/ + } + break; + + case RT_ARR_END : + break; + + default : + if (_mvlu_save_rt_uca_name (nestLevel, rt, &ucaNames[i])) + retCode = SD_FAILURE; /*continue but eventually return this*/ + break; + } + } + return (retCode); + } + +/************************************************************************/ +/* _mvlu_save_rt_uca_name */ +/* Start with retCode=SD_SUCCESS. If anything fails, set retCode=SD_FAILURE.*/ +/************************************************************************/ +static ST_RET _mvlu_save_rt_uca_name (ST_INT nestLevel, + RUNTIME_TYPE *rt, + MVLU_UCA_NAME_CTRL *nameDest) + { +ST_CHAR nameBuf[256]; +ST_RET retCode = SD_SUCCESS; + + nameDest->ucaName [0] = '\0'; /* start with empty string */ + nameDest->rt = rt; + if (ms_comp_name_pres(rt)) + { + sprintf (nameBuf, "%s$%s", namePrefix[nestLevel], ms_comp_name_find(rt)); + /* Make sure there is room left for longest allowed Logical Node Name*/ + /* (11 characters according to IEC 61850-7-2 but we allow 15). */ + /* NOTE: this allows 5 or 6 more char than 61850-7-2 specifies, so */ + /* it is more forgiving, but it prevents illegal MMS names. */ + if (strlen (nameBuf) > (MAX_IDENT_LEN-15)) + { + SLOGALWAYS2 ("Error: Flattened IEC 61850 variable name '%s' > %d characters. Illegal.", + nameBuf, (MAX_IDENT_LEN-15)); + SLOGCALWAYS0 ("Must allow space for LNName up to 15 characters"); + retCode = SD_FAILURE; + } + else + strcpy (nameDest->ucaName, nameBuf); + } + return (retCode); + } + +/************************************************************************/ +/************************************************************************/ +/* SORTING UCA NAMES WITHIN A TYPE */ +/************************************************************************/ +/* elementCompare */ +/************************************************************************/ +/* This function is sorting the namelist table */ + +static ST_INT elementCompare (const MVLU_UCA_NAME_CTRL *a, + const MVLU_UCA_NAME_CTRL *b) + { + return (strcmp (a->ucaName, b->ucaName)); + } + +/************************************************************************/ +/* _mvlu_sort_uca_names */ +/************************************************************************/ + +static ST_VOID _mvlu_sort_uca_names (MVLU_UCA_NAME_CTRL *ucaNames, + RUNTIME_TYPE *rt, ST_INT numRt) + { +ST_INT i; +ST_INT numNames; +MVLU_UCA_NAME_CTRL *sortedNames; /* compressed/sorted array of names*/ + + sortedNames = (MVLU_UCA_NAME_CTRL *) M_MALLOC (MSMEM_GEN, numRt*sizeof(MVLU_UCA_NAME_CTRL)); + +/* Compress the name table */ + numNames = 0; + for (i = 0; i < numRt; ++i, ++rt) + { + if (ucaNames[i].ucaName[0] != '\0') + { + sortedNames[numNames] = ucaNames[i]; + ++numNames; +/* CRITICAL: + * The "ucaNames" array contains names for objects inside arrays. + * They must be kept in the original array, because they are needed + * for generating leaf function names. + * However, they are NOT legal variable names, so they are NOT + * copied to the SORTED array (used for GetNameList response). + * This is done by skipping over the runtime type for the array. + */ + if (rt->el_tag==RT_ARR_START) + { + rt += (rt->u.arr.num_rt_blks + 1); + i += (rt->u.arr.num_rt_blks + 1); + } + } + } + +/* OK, we now have a raw table of names, go ahead and sort them */ + qsort (sortedNames, numNames, sizeof (MVLU_UCA_NAME_CTRL), + (int (*)(const void *,const void *)) elementCompare); + +#if 0 /* DEBUG: enable this code to debug sorting algorithm */ + if (numNames) + { + ST_INT j; + SLOGALWAYS0 ("Array of UCA variable names (Uncompressed/Unsorted)"); + for (j = 0; jmvluTypeInfo.sortedNum = i+1; + } + M_FREE (MSMEM_GEN, sortedNames); + } + diff --git a/mmslib/mvlu/mvlu_sbo.c b/mmslib/mvlu/mvlu_sbo.c new file mode 100644 index 0000000..009b672 --- /dev/null +++ b/mmslib/mvlu/mvlu_sbo.c @@ -0,0 +1,352 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1998-2004, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : mvlu_sbo.c */ +/* PRODUCT(S) : MMSEASE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 05/06/08 JRB 15 Chg sbo_pool from static to global. */ +/* 02/26/07 JRB 14 initSboCtrl: add use_ms_timer arg. */ +/* 01/27/05 JRB 13 Log if createSboName fails. */ +/* 12/03/04 JRB 12 Move 61850 code to new module mvl61850_ctl.c.*/ +/* Make initSboCtrl funct global so 61850 */ +/* module can use it too. */ +/* Use strrchr to find last '$'. */ +/* 09/20/04 JRB 11 Replace chk_sbo_select w/ mvlu_sbo_chk_state.*/ +/* Chg chk_sbo_timeouts to mvlu_sbo_chk_timers. */ +/* Do timeouts ONLY in mvlu_sbo_chk_timers. */ +/* Do "Select" only if SBO is ONLY attribute */ +/* being read (not part of higher level var). */ +/* Add funct mvlu_sbo_ctrl_free. */ +/* Del currTime global variable. */ +/* Pass sboTimeout arg to initSboCtrl. */ +/* 12/11/02 JRB 10 Use new mvl_uca.h */ +/* 12/09/02 MDE 09 Changed SBO reference handling */ +/* 10/25/00 JRB 08 Add #ifdef MVL_UCA. */ +/* 07/13/00 JRB 07 Add #ifdef USE_RT_TYPE_2. */ +/* 09/13/99 MDE 06 Added SD_CONST modifiers */ +/* 09/07/99 MDE 05 Changed MVL_VA_SCOPE to MVL_SCOPE */ +/* 12/11/98 MDE 04 Removed scope references from VA */ +/* 11/16/98 MDE 03 Renamed internal functions (prefix '_') */ +/* 09/21/98 MDE 02 Minor lint cleanup */ +/* 09/11/98 MDE 01 New */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" +#include "mmsdefs.h" +#include "mvl_uca.h" +#include "mvl_log.h" + +#if defined(MVL_UCA) /* This entire module is only valid for UCA. */ + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/* Global variables */ +/************************************************************************/ + +MVL_SBO_CTRL sbo_pool[MAX_NUM_SBO_PEND]; + +/************************************************************************/ +/* Static functions */ + +static ST_VOID createSboName (MVL_VAR_ASSOC *va, MVL_SCOPE *va_scope, + ST_CHAR *dest, + ST_BOOLEAN select, ST_RTREF primRef); + +/************************************************************************/ +/************************************************************************/ +/* mvlu_sbo_select_rd_ind */ +/* Leaf function for reading UCA "SBO" attribute (i.e. performing */ +/* Control Model 'Select' Service). */ +/* NOTE: do NOT use this leaf function for IEC 61850 SBO. */ +/************************************************************************/ + +ST_VOID mvlu_sbo_select_rd_ind (MVLU_RD_VA_CTRL *mvluRdVaCtrl) + { +ST_CHAR *dest; +MVL_VAR_ASSOC *va; +MVL_SCOPE *va_scope; +ST_CHAR sboName[MAX_SBO_NAME_SIZE+1]; +MVL_SBO_CTRL *sboCtrl; +ST_CHAR *lastdollar; /* ptr to last '$' in var name */ + +/* First take care of timeout housekeeping */ + mvlu_sbo_chk_timers (); + +/* find the name of the attribute being selected */ + va = mvluRdVaCtrl->rdVaCtrl->va; + +/* Only perform "Select" if SBO is ONLY attribute being read. */ +/* Check this by seeing if variable name ends with "$SBO". */ +/* Point to where "$SBO" should be, then see if it's there. */ + lastdollar = strrchr (va->name, '$'); /* find last '$' */ + if (lastdollar != NULL && strcmp (lastdollar+1, "SBO") == 0) + { + va_scope = &mvluRdVaCtrl->rdVaCtrl->va_scope; + createSboName (va, va_scope, sboName, SD_TRUE, mvluRdVaCtrl->primRef); + +/* Get a SBO control element */ + sboCtrl = initSboCtrl (mvluRdVaCtrl->indCtrl->event->net_info,sboName, + SBO_SELECT_TIMEOUT, SD_FALSE); /* timeout in seconds*/ + if (sboCtrl == NULL) + { + mvlu_rd_prim_done (mvluRdVaCtrl, SD_FAILURE); + return; + } + } + else + /* Higher level variable read. Allow read, but just return NULL (empty) string.*/ + sboName[0]='\0'; + + dest = (ST_CHAR *) mvluRdVaCtrl->primData; + strcpy (dest, sboName); + mvlu_rd_prim_done (mvluRdVaCtrl, SD_SUCCESS); + } + +/************************************************************************/ +/* mvlu_sbo_operate_wr_ind */ +/* NOTE: this leaf function should be used only for UCA (not for 61850).*/ +/************************************************************************/ + +ST_VOID mvlu_sbo_operate_wr_ind (MVLU_WR_VA_CTRL *mvluWrVaCtrl) + { +MVL_SBO_CTRL *sboSelect; +MVL_SCOPE *va_scope; +ST_CHAR sboName[MAX_SBO_NAME_SIZE+1]; + +/* First take care of timeout housekeeping */ + mvlu_sbo_chk_timers (); + + va_scope = &mvluWrVaCtrl->wrVaCtrl->va_scope; + createSboName (mvluWrVaCtrl->wrVaCtrl->va, &mvluWrVaCtrl->wrVaCtrl->va_scope, sboName, SD_FALSE, (ST_RTREF) 0); + sboSelect = mvlu_sbo_chk_state (sboName, + mvluWrVaCtrl->indCtrl->event->net_info); + if (sboSelect != NULL) + { + u_mvl_sbo_operate (sboSelect, mvluWrVaCtrl); + sboSelect->in_use = SD_FALSE; + } + else /* The select was not in place, cannot operate ... */ + { + mvlu_wr_prim_done (mvluWrVaCtrl, SD_FAILURE); + } + } + +/************************************************************************/ +/* mvlu_clr_pend_sbo */ +/************************************************************************/ + +ST_VOID mvlu_clr_pend_sbo (MVL_NET_INFO *net_info) + { +ST_INT i; + + for (i = 0; i < MAX_NUM_SBO_PEND; ++i) + { + if (sbo_pool[i].net_info == net_info) + sbo_pool[i].in_use = SD_FALSE; + } + } + +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ +/* mvlu_sbo_chk_timers */ +/************************************************************************/ + +ST_VOID mvlu_sbo_chk_timers () + { +ST_INT i; +MVL_SBO_CTRL *sboCtrl; +time_t currTime; +ST_DOUBLE currTimeMs; /* current time in milliseconds */ + + currTime = time (NULL); /* PORT ISSUE: time() */ + currTimeMs = sGetMsTime (); + sboCtrl = sbo_pool; + for (i = 0; i < MAX_NUM_SBO_PEND; ++i, ++sboCtrl) + { + if (sboCtrl->in_use == SD_TRUE) + { + if (sboCtrl->use_ms_timer) + { + if (sboCtrl->expire_time_ms < currTimeMs) + sboCtrl->in_use = SD_FALSE; /* SBO timer expired */ + } + else /* use timer in seconds */ + { + if (sboCtrl->expire_time < currTime) + sboCtrl->in_use = SD_FALSE; /* SBO timer expired */ + } + /* renxiaobao ¿ØÖÆ */ + if (sboCtrl->in_use != SD_TRUE) + printf("sboCtrl TimeOut : %s currTime: %5.0f \n",sboCtrl->sbo_var,sGetMsTime()); + } + } + } + +/************************************************************************/ +/* initSboCtrl */ +/************************************************************************/ + +MVL_SBO_CTRL *initSboCtrl (MVL_NET_INFO *net_info, + ST_CHAR *sbo_name, + ST_UINT32 sboTimeout, + ST_BOOLEAN use_ms_timer) + { +ST_INT i; +MVL_SBO_CTRL *sboCtrl; +time_t currTime = time (NULL); + +/* OK, now see if the element is already selected */ + sboCtrl = sbo_pool; + for (i = 0; i < MAX_NUM_SBO_PEND; ++i, ++sboCtrl) + { + if (sboCtrl->in_use == SD_TRUE && !strcmp (sboCtrl->sbo_var, sbo_name)) + { + /* OK, already selected, make sure it is us then reset the timeout */ + if (sboCtrl->net_info != net_info) + return (NULL); + + if (sboCtrl->use_ms_timer) + sboCtrl->expire_time_ms = sGetMsTime () + sboTimeout; + else + sboCtrl->expire_time = currTime + sboTimeout; + return (sboCtrl); + } + } + +/* The protected element is not selected, find a unused SBO control */ + sboCtrl = sbo_pool; + for (i = 0; i < MAX_NUM_SBO_PEND; ++i, ++sboCtrl) + { + if (sboCtrl->in_use == SD_FALSE) + break; + } + if (i >= MAX_NUM_SBO_PEND) + return (NULL); + +/* OK, we have a newly selected SBO control, set the parameters */ + sboCtrl->in_use = SD_TRUE; + sboCtrl->use_ms_timer = use_ms_timer; + if (sboCtrl->use_ms_timer) + sboCtrl->expire_time_ms = sGetMsTime () + sboTimeout; + else + sboCtrl->expire_time = currTime + sboTimeout; + sboCtrl->net_info = net_info; + strcpy (sboCtrl->sbo_var, sbo_name); + return (sboCtrl); + } + +/************************************************************************/ +/* mvlu_sbo_chk_state */ +/* Find the MVL_SBO_CTRL struct for this "sboName". */ +/* Call createSboName (for UCA), mvl61850_sbo_create_sboname (for 61850)*/ +/* to generate the "sboName" string to pass to this function. */ +/************************************************************************/ + +MVL_SBO_CTRL *mvlu_sbo_chk_state (ST_CHAR *sboName, + MVL_NET_INFO *net_info) + { +ST_INT i; +MVL_SBO_CTRL *sboCtrl; + +/* See if we have selected the element */ + sboCtrl = sbo_pool; + for (i = 0; i < MAX_NUM_SBO_PEND; ++i, ++sboCtrl) + { + if (sboCtrl->in_use == SD_TRUE && + !strcmp (sboCtrl->sbo_var, sboName) && + sboCtrl->net_info == net_info) + { + return (sboCtrl); + } + } + return (NULL); + } + +/************************************************************************/ +/************************************************************************/ +/* createSboName */ +/* Creates a name to return when an UCA SBO attribute is read. */ +/* NOTE: this name may also be passed to "mvlu_sbo_chk_state" */ +/* to find the correct MVL_SBO_CTRL struct. */ +/************************************************************************/ +static ST_VOID createSboName (MVL_VAR_ASSOC *va, MVL_SCOPE *va_scope, + ST_CHAR *dest, ST_BOOLEAN select, ST_RTREF primRef) + { +ST_INT len; + +/* if primRef is NULL, then don't perform the string table lookup */ + switch (va_scope->scope) + { + case VMD_SPEC: + strcpy (dest, "/"); + break; + + case DOM_SPEC: + strcpy (dest, va_scope->dom->name); + strcat (dest, "/"); + break; + + case AA_SPEC: + strcpy (dest,"@/"); + break; + } + +/* Scope in place, now append the name of variable */ + strcat (dest, va->name); + +/* Now, "SBO" is the end of the name, and the reference is the index */ +/* to the string for the component that is being selected. So, if we */ +/* want the name of the protected element we just replace the "SBO" */ +/* with the element name. */ + if (select == SD_TRUE) + { + len = strlen (dest) - 3; + + if (primRef != 0) + /* primRef must be a pointer to a string; name of protected element */ + strcpy (&dest[len], (ST_CHAR *) primRef); + else + MVL_LOG_ERR1 ("SBO name generated '%s' is invalid", dest); + /* DEBUG: should this function return SD_FAILURE in this case? */ + } + } +/************************************************************************/ +/* mvlu_sbo_ctrl_free */ +/* Frees the MVL_SBO_CTRL struct by setting in_use=SD_FALSE. */ +/* Client must "Select" (i.e. read SBO) again before next "Operate". */ +/************************************************************************/ +void logprint(char * fmt,...); +ST_VOID mvlu_sbo_ctrl_free (MVL_SBO_CTRL *sboCtrl) + { + /* When writing non-SBO variables, sboCtrl == NULL. */ + if (sboCtrl) + { + sboCtrl->in_use = SD_FALSE; + /*renxiaobao ¿ØÖÆ*/ + //logprint("ctrl sboCtrl free : %s currTime: %5.0f \n",sboCtrl->sbo_var,sGetMsTime()); + } + return; + } +#endif /* defined(MVL_UCA) */ diff --git a/mmslib/mvlu/mvluleaf.c b/mmslib/mvlu/mvluleaf.c new file mode 100644 index 0000000..605d452 --- /dev/null +++ b/mmslib/mvlu/mvluleaf.c @@ -0,0 +1,477 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1998-2001, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : mvluleaf.c */ +/* PRODUCT(S) : MMSEASE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 10/11/06 JRB 06 Add mvlu_set_leaf_param_name2. */ +/* mvlu_load_xml_leaf_file: fix error return. */ +/* 09/13/05 JRB 05 Add ERR log if mvlu_find_..._fun_index fails.*/ +/* 07/08/04 JRB 04 Fix "Reference" log msg. */ +/* 12/20/02 JRB 03 mvlu_set_leaf_param moved here. */ +/* MVL_LEAF_FUN_LOOKUP_ENABLE MUST be defined */ +/* for all except mvlu_set_leaf_param. */ +/* 12/11/02 JRB 02 Use new mvl_uca.h */ +/* 11/12/02 MDE 01 New */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" +#include "mmsdefs.h" +#include "mms_pvar.h" +#include "mms_vvar.h" +#include "mvl_uca.h" +#include "mvl_log.h" + +#if defined(MVL_UCA) /* This entire module is only valid for UCA. */ + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/* Most of the code in this module requires this to be defined. */ +#if defined(MVLU_LEAF_FUN_LOOKUP_ENABLE) + +/************************************************************************/ + +#define MAX_LEAF_NAME 200 +#define MAX_FUN_NAME 200 +#define MAX_REF_NAME 200 + +static ST_VOID _getAttribVal (ST_CHAR *xmlBuf, ST_CHAR *attribName, + ST_CHAR *dest, ST_INT destSize); + +/************************************************************************/ +/************************************************************************/ +/* mvlu_load_xml_leaf_file */ +/* NOTE: continue after errors, but save the last error detected and */ +/* return it. */ +/************************************************************************/ + +ST_RET mvlu_load_xml_leaf_file (ST_CHAR *fileName) + { +FILE *fp; +ST_CHAR leafName[MAX_LEAF_NAME+1]; +ST_CHAR rdIndFunName[MAX_FUN_NAME+1]; +ST_CHAR wrIndFunName[MAX_FUN_NAME+1]; +ST_CHAR refString[MAX_REF_NAME+1]; +ST_CHAR buf[1000]; +ST_CHAR *p; +ST_INT setFlags; +ST_RET ret; +ST_RET last_error = SD_SUCCESS; /* save last error detected */ + + fp = fopen (fileName, "rt"); + if (fp == NULL) + { + MVL_LOG_NERR1 ("Could not open leaf map XML file '%s'", fileName); + return (SD_FAILURE); + } + +/* Now read in the file and set the leaf parameters */ + MVLU_LOG_FLOW1 ("Setting Leaf Parameters using file '%s'", fileName); + ret = SD_SUCCESS; + while (SD_TRUE) + { + leafName[0] = 0; + rdIndFunName[0] = 0; + wrIndFunName[0] = 0; + refString[0] = 0; + + if (fgets (buf, sizeof(buf) - 1, fp) == NULL) + break; + if (strstr (buf, "") != NULL) + continue; + if (strstr (buf, "") != NULL) + break; + p = strstr (buf, " 0) + { + *(dest++) = *(p++); + --destSize; + } + *dest = 0; + } + + +/************************************************************************/ +/* mvlu_set_leaf_param_name */ +/************************************************************************/ + +ST_RET mvlu_set_leaf_param_name (ST_INT setFlags, ST_CHAR *leafName, + ST_CHAR *rdIndFunName, ST_CHAR *wrIndFunName, + ST_CHAR *refString) + { +ST_RTINT rdIndex; +ST_RTINT wrIndex; +ST_RTREF ref; +ST_RET ret; + + if (setFlags & MVLU_SET_RD_FUN) + { + rdIndex = mvlu_find_rd_ind_fun_index (rdIndFunName); + if (rdIndex < 0) + { + /* Error already logged in "mvlu_find_rd.." function. */ + return (SD_FAILURE); + } + } + + if (setFlags & MVLU_SET_WR_FUN) + { + wrIndex = mvlu_find_wr_ind_fun_index (wrIndFunName); + if (wrIndex < 0) + { + /* Error already logged in "mvlu_find_wr.." function. */ + return (SD_FAILURE); + } + } + + ret = u_mvlu_resolve_leaf_ref (leafName, &setFlags, refString, &ref); + if (ret != SD_SUCCESS) + { + MVL_LOG_NERR1 ("Could not resolve reference '%s'", refString); + return (SD_FAILURE); + } + + MVLU_LOG_FLOW1 ("Setting Leaf Parameters for leaf '%s'", leafName); + if (setFlags & MVLU_SET_RD_FUN) + { + MVLU_LOG_CFLOW2 (" Read Indication: %s\t(%d)", rdIndFunName, (int) rdIndex); + } + if (setFlags & MVLU_SET_WR_FUN) + { + MVLU_LOG_CFLOW2 (" Write Indication: %s\t(%d)", wrIndFunName, (int) wrIndex); + } + if (setFlags & MVLU_SET_REF) + { + MVLU_LOG_CFLOW1 (" Reference: 0x%X", (long) ref); + } + + ret = mvlu_set_leaf_param (setFlags, leafName, rdIndex, wrIndex, (ST_RTREF) ref); + if (ret != SD_SUCCESS) + { + MVL_LOG_NERR1 ("Could not set leaf %s parameters", leafName); + } + return (ret); + } + +/************************************************************************/ +/* mvlu_find_rd_ind_fun_index */ +/************************************************************************/ + +ST_RTINT mvlu_find_rd_ind_fun_index (ST_CHAR *funName) + { +ST_RTINT rdIndex; + + for (rdIndex = 0; rdIndex < mvluNumRdFunEntries; ++rdIndex) + { + if (!strcmp (funName, mvluRdFunInfoTbl[rdIndex].fun_name)) + break; + } + if (rdIndex >= mvluNumRdFunEntries) + { + MVL_LOG_ERR1 ("Could not find 'leaf read' function '%s'", funName); + return (-1); + } + + return (rdIndex); + } + +/************************************************************************/ +/* mvlu_find_wr_ind_fun_index */ +/************************************************************************/ + +ST_RTINT mvlu_find_wr_ind_fun_index (ST_CHAR *funName) + { +ST_RTINT wrIndex; + + for (wrIndex = 0; wrIndex < mvluNumWrFunEntries; ++wrIndex) + { + if (!strcmp (funName, mvluWrFunInfoTbl[wrIndex].fun_name)) + break; + } + if (wrIndex >= mvluNumWrFunEntries) + { + MVL_LOG_ERR1 ("Could not find 'leaf write' function '%s'", funName); + return (-1); + } + + return (wrIndex); + } +/************************************************************************/ +#endif /* defined(MVLU_LEAF_FUN_LOOKUP_ENABLE) */ +/************************************************************************/ + +/************************************************************************/ +/* mvlu_set_leaf_param */ +/* DEBUG: could change this to call mvlu_set_leaf_param2 after type found.*/ +/************************************************************************/ + +ST_RET mvlu_set_leaf_param (ST_INT setFlags, ST_CHAR *leafName, + ST_RTINT rdIndFunIndex, ST_RTINT wrIndFunIndex, + ST_RTREF ref) + { +RUNTIME_TYPE *rt; +ST_INT type_id; +ST_CHAR *leafNameBuf; +ST_CHAR *p; + +/* Make a working copy */ + leafNameBuf = chk_strdup (leafName); + rt = NULL; /* Flag that we failed */ + +/* The type name must be the first part of this string */ + p = strstr (leafNameBuf, "$"); + if (p) + { + *p = 0; + type_id = mvl_typename_to_typeid (leafNameBuf); + if (type_id >= 0) + { + ++p; + rt = mvlu_find_rt_leaf (type_id, p); + } + else + { + MVL_LOG_NERR1 ("Could not find type '%s'", leafNameBuf); + } + } + else + { + MVL_LOG_NERR1 ("Could not find type '%s'", leafNameBuf); + } + + chk_free (leafNameBuf); + if (!rt) + return (SD_FAILURE); + + if (setFlags & MVLU_SET_RD_FUN) + { + if (u_mvlu_leaf_rd_ind_fun == NULL && rdIndFunIndex >= mvluNumRdFunEntries) + { + MVL_LOG_NERR0 ("Read ind function index out of range for use with default leaf read handler"); + return (SD_FAILURE); + } + rt->mvluTypeInfo.rdIndFunIndex = rdIndFunIndex; + } + + if (setFlags & MVLU_SET_WR_FUN) + { + if (u_mvlu_leaf_wr_ind_fun == NULL && wrIndFunIndex >= mvluNumWrFunEntries) + { + MVL_LOG_NERR0 ("Write ind function index out of range for use with default leaf write handler"); + return (SD_FAILURE); + } + rt->mvluTypeInfo.wrIndFunIndex = wrIndFunIndex; + } + +#if defined(MVLU_USE_REF) + if (setFlags & MVLU_SET_REF) + rt->mvluTypeInfo.ref = ref; +#endif /* MVLU_USE_REF */ + return (SD_SUCCESS); + } + +/************************************************************************/ +/* mvlu_set_leaf_param2 */ +/* Similar to mvlu_set_leaf_param but uses additional base_var_type_id arg.*/ +/************************************************************************/ +static ST_RET mvlu_set_leaf_param2 (ST_INT base_var_type_id, + ST_INT setFlags, + ST_CHAR *leafName, + ST_RTINT rdIndFunIndex, + ST_RTINT wrIndFunIndex, + ST_RTREF ref) + { +RUNTIME_TYPE *rt; +ST_CHAR *p; + + /* The name to find starts after the first '$'. */ + p = strstr (leafName, "$"); + if (p) + { + ++p; /* point after '$' */ + rt = mvlu_find_rt_leaf (base_var_type_id, p); + if (!rt) + MVL_LOG_NERR1 ("Cannot find leaf '%s'", leafName); + } + else + { + MVL_LOG_NERR1 ("Cannot find leaf. No '$' in leaf name '%s'", leafName); + rt = NULL; + } + + if (!rt) + return (SD_FAILURE); + + if (setFlags & MVLU_SET_RD_FUN) + { + if (u_mvlu_leaf_rd_ind_fun == NULL && rdIndFunIndex >= mvluNumRdFunEntries) + { + MVL_LOG_NERR0 ("Read ind function index out of range for use with default leaf read handler"); + return (SD_FAILURE); + } + rt->mvluTypeInfo.rdIndFunIndex = rdIndFunIndex; + } + + if (setFlags & MVLU_SET_WR_FUN) + { + if (u_mvlu_leaf_wr_ind_fun == NULL && wrIndFunIndex >= mvluNumWrFunEntries) + { + MVL_LOG_NERR0 ("Write ind function index out of range for use with default leaf write handler"); + return (SD_FAILURE); + } + rt->mvluTypeInfo.wrIndFunIndex = wrIndFunIndex; + } + +#if defined(MVLU_USE_REF) + if (setFlags & MVLU_SET_REF) + rt->mvluTypeInfo.ref = ref; +#endif /* MVLU_USE_REF */ + return (SD_SUCCESS); + } + +/************************************************************************/ +/* mvlu_set_leaf_param_name2 */ +/* Similar to mvlu_set_leaf_param_name but uses additional base_var_type_id arg.*/ +/************************************************************************/ +ST_RET mvlu_set_leaf_param_name2 (ST_INT base_var_type_id, + ST_INT setFlags, + ST_CHAR *leafName, + ST_CHAR *rdIndFunName, + ST_CHAR *wrIndFunName, + ST_CHAR *refString) + { +ST_RTINT rdIndex; +ST_RTINT wrIndex; +ST_RTREF ref; +ST_RET ret; + + if (setFlags & MVLU_SET_RD_FUN) + { + rdIndex = mvlu_find_rd_ind_fun_index (rdIndFunName); + if (rdIndex < 0) + { + /* Error already logged in "mvlu_find_rd.." function. */ + return (SD_FAILURE); + } + } + + if (setFlags & MVLU_SET_WR_FUN) + { + wrIndex = mvlu_find_wr_ind_fun_index (wrIndFunName); + if (wrIndex < 0) + { + /* Error already logged in "mvlu_find_wr.." function. */ + return (SD_FAILURE); + } + } + + ret = u_mvlu_resolve_leaf_ref (leafName, &setFlags, refString, &ref); + if (ret != SD_SUCCESS) + { + MVL_LOG_NERR1 ("Could not resolve reference '%s'", refString); + return (SD_FAILURE); + } + + MVLU_LOG_FLOW1 ("Setting Leaf Parameters for leaf '%s'", leafName); + if (setFlags & MVLU_SET_RD_FUN) + { + MVLU_LOG_CFLOW2 (" Read Indication: %s\t(%d)", rdIndFunName, (int) rdIndex); + } + if (setFlags & MVLU_SET_WR_FUN) + { + MVLU_LOG_CFLOW2 (" Write Indication: %s\t(%d)", wrIndFunName, (int) wrIndex); + } + if (setFlags & MVLU_SET_REF) + { + MVLU_LOG_CFLOW1 (" Reference: 0x%X", (long) ref); + } + + ret = mvlu_set_leaf_param2 (base_var_type_id, setFlags, leafName, rdIndex, wrIndex, (ST_RTREF) ref); + if (ret != SD_SUCCESS) + { + MVL_LOG_NERR1 ("Could not set leaf %s parameters", leafName); + } + return (ret); + } + +/************************************************************************/ +#endif /* defined(MVL_UCA) */ +/************************************************************************/ diff --git a/mmslib/mvlu/s_cancel.c b/mmslib/mvlu/s_cancel.c new file mode 100644 index 0000000..e5e88a3 --- /dev/null +++ b/mmslib/mvlu/s_cancel.c @@ -0,0 +1,53 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1994 - 1996, All Rights Reserved */ +/* */ +/* MODULE NAME : s_cancel.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* NONE */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/11/04 GLB 09 Remove "thisFileName" */ +/* 09/21/01 JRB 08 Alloc global bufs only once at startup. */ +/* 01/21/00 MDE 07 Now use MEM_SMEM for dynamic memory */ +/* 09/13/99 MDE 06 Added SD_CONST modifiers */ +/* 04/01/99 MDE 05 Changes to decode buffer allocation scheme */ +/* 11/16/98 MDE 04 Renamed internal functions (prefix '_') */ +/* 09/21/98 MDE 03 Minor lint cleanup */ +/* 06/15/98 MDE 02 Changes to allow compile under C++ */ +/* 09/10/97 MDE 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "mmsdefs.h" +#include "mms_pvmd.h" + +#include "mvl_defs.h" +#include "mvl_log.h" + + +/************************************************************************/ +/************************************************************************/ +/* _mvl_process_cancel_ind */ +/* A MMS MMSOP_CANCEL request has been received. For now, just send error */ +/************************************************************************/ + +ST_VOID _mvl_process_cancel_ind (MVL_COMM_EVENT *event) + { +ST_RET rc; + +/* Build cancel error response message, */ +/* class = Cancel, code = 'Cancel Not Possible' */ + rc = mpl_cancel_err (event->u.mms.dec_rslt.id, 10, 2); + _mvl_send_resp (event, rc); + } + diff --git a/mmslib/mvlu/s_concl.c b/mmslib/mvlu/s_concl.c new file mode 100644 index 0000000..c59f669 --- /dev/null +++ b/mmslib/mvlu/s_concl.c @@ -0,0 +1,99 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1994 - 1996, All Rights Reserved */ +/* */ +/* MODULE NAME : s_concl.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* NONE */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 05/14/08 JRB 07 Add mplas_concl_err. */ +/* 05/01/02 MDE 06 Added MLOG logging */ +/* 10/25/00 JRB 05 Pass ind up to user. User must call resp fct */ +/* 09/13/99 MDE 04 Added SD_CONST modifiers */ +/* 11/16/98 MDE 03 Renamed internal functions (prefix '_') */ +/* 06/15/98 MDE 02 Changes to allow compile under C++ */ +/* 09/10/97 MDE 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "mmsdefs.h" +#include "mvl_defs.h" +#include "mvl_log.h" +#include "mloguser.h" + + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _mvl_process_concl_ind */ +/* A Conclude indication has been received. Pass it up to user. */ +/************************************************************************/ + +ST_VOID _mvl_process_concl_ind (MVL_COMM_EVENT *event) + { + /* Pass up to user for processing. User must call mplas_concl_resp */ + /* to send Conclude response. */ + u_mvl_concl_ind (event); + } + + +/************************************************************************/ +/* _mvl_process_concl_ind */ +/* Send Conclude response. */ +/************************************************************************/ +ST_VOID mplas_concl_resp (MVL_COMM_EVENT *event) + { +ST_RET rc; + +/* We can log here if so desired */ + if ((mms_debug_sel & MMS_LOG_RESP) && ml_log_resp_info_fun != NULL) + (*ml_log_resp_info_fun) (0, MMSOP_CONCLUDE, NULL); + +/* Send a Conclude response */ + rc = _mvl_send_msg ((ST_UCHAR *) "\x8C\x00",2,event->net_info); + + if (rc != SD_SUCCESS) + MVL_LOG_NERR1 ("Conclude Indication : _mvl_send_msg failed, ret = %x", rc); + _mvl_free_comm_event (event); /* All done with this event */ + } + +/************************************************************************/ +/* mplas_concl_err */ +/* Send Conclude error response. */ +/* NOTE: err_class should always be 9, and err_code should be 0 or 1. */ +/************************************************************************/ +ST_RET mplas_concl_err (MVL_COMM_EVENT *event, ST_INT16 err_class, ST_INT16 err_code) + { +ST_RET rc; + rc = mpl_conclude_err (err_class,err_code); /* encode Conclude-ErrorPDU*/ + if (rc) + { /* Should never happen. No good recovery. */ + MVL_LOG_ERR1 ("Error encoding Conclude-ErrorPDU, rc = %x", rc); + } + else + { /* send it */ + rc = _mvl_send_msg (mmsl_msg_start,mmsl_msg_len,event->net_info); + if (rc != SD_SUCCESS) + MVL_LOG_ERR1 ("Error sending Conclude-ErrorPDU, rc = %x", rc); + } + return (rc); + } diff --git a/mmslib/mvlu/s_defvl.c b/mmslib/mvlu/s_defvl.c new file mode 100644 index 0000000..45e4d1d --- /dev/null +++ b/mmslib/mvlu/s_defvl.c @@ -0,0 +1,137 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1998 - 1998, All Rights Reserved */ +/* */ +/* MODULE NAME : s_defvl.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* _mvl_process_defvlist_ind */ +/* mvlas_defvlist_resp */ +/* mplas_defvlist_resp */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/06/08 JRB 17 Send error resp if any variable not Named. */ +/* 04/09/07 MDE 16 Enhanced filtered logging */ +/* 02/21/07 JRB 15 Fix comment. */ +/* 10/30/06 JRB 14 Use new mvl_vmd_* object handling functions. */ +/* 01/30/06 GLB 13 Integrated porting changes for VMS */ +/* 09/21/01 JRB 12 Alloc global bufs only once at startup. */ +/* 01/21/00 MDE 11 Now use MEM_SMEM for dynamic memory */ +/* 09/13/99 MDE 10 Added SD_CONST modifiers */ +/* 01/20/99 JRB 09 Use new mvl_nvl_add (simpler, more efficient)*/ +/* 01/14/99 JRB 08 BUG FIX: Increment variable_list in loop. */ +/* 12/11/98 MDE 07 Removed scope references from VA */ +/* 11/16/98 MDE 06 Allow use of manufactured variables */ +/* 11/16/98 MDE 05 Renamed internal functions (prefix '_') */ +/* 07/09/98 JRB 04 Set altAcc=NULL (no alternate access). */ +/* 06/15/98 MDE 03 Changes to allow compile under C++ */ +/* 06/05/98 MDE 02 Moved 'mvl_insert_nvlist' elsewhere */ +/* 04/14/98 JRB 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "mmsdefs.h" +#include "mms_pfil.h" +#include "mvl_defs.h" +#include "mvl_log.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/* _mvl_process_defvlist_ind */ +/* A "defvlist" indication has been received, process it and respond */ +/************************************************************************/ + +ST_VOID _mvl_process_defvlist_ind (MVL_IND_PEND *indCtrl) + { + indCtrl->u.defvlist.req_info = + (DEFVLIST_REQ_INFO *) indCtrl->event->u.mms.dec_rslt.data_ptr; + + u_mvl_defvlist_ind (indCtrl); + } + +/************************************************************************/ +/* mvlas_defvlist_resp */ +/* Most of this code doesn't care whether the Named Variable List is */ +/* VMD-specific, Dom-specific, etc. */ +/************************************************************************/ +ST_VOID mvlas_defvlist_resp (MVL_IND_PEND *indCtrl) + { +MVL_NVLIST_CTRL *nvlist_ctrl; /* alloc, fill in, & then copy to list */ +ST_INT j; +VARIABLE_LIST *variable_list; +DEFVLIST_REQ_INFO *req_info = indCtrl->u.defvlist.req_info; +OBJECT_NAME *tmp_obj_array; + + if (req_info->num_of_variables <= 0) + { + _mplas_err_resp (indCtrl,4,0); /* Service error , other */ + return; + } + + variable_list = (VARIABLE_LIST *) (req_info + 1); + + /* Create temporary obj array from var list. */ + tmp_obj_array = (OBJECT_NAME *) M_MALLOC (MSMEM_GEN, req_info->num_of_variables * sizeof (OBJECT_NAME)); + for (j = 0; j < req_info->num_of_variables; j++, variable_list++) + { + if (variable_list->var_spec.var_spec_tag != VA_SPEC_NAMED) + { /* Only "Named" variables supported */ + _mplas_err_resp (indCtrl, MMS_ERRCLASS_DEFINITION, MMS_ERRCODE_TYPE_UNSUPPORTED); + M_FREE (MSMEM_GEN, tmp_obj_array); /* cleanup */ + return; /* stop now */ + } + memcpy (&tmp_obj_array [j], &variable_list->var_spec.vs.name, sizeof (OBJECT_NAME)); + } + + /* NOTE: Use "obj_name.vmd_spec" for an object of any scope, */ + /* because "obj_name" is a union of identical type objects. */ + nvlist_ctrl = mvl_vmd_nvl_add (&mvl_vmd, &req_info->vl_name, indCtrl->event->net_info, + req_info->num_of_variables, tmp_obj_array, + SD_TRUE); /* copy name because it is volatile */ + + M_FREE (MSMEM_GEN, tmp_obj_array); /* free temporary object array. */ + + if (nvlist_ctrl == NULL) + { /* Failed. */ + _mplas_err_resp (indCtrl,4,0); /* Service error, other */ + return; + } + + nvlist_ctrl->mms_deletable = SD_TRUE; /* MMS spec requires this*/ + nvlist_ctrl->altAcc = NULL; /* Don't support alternate access*/ + + mplas_defvlist_resp (indCtrl); + } + + +/************************************************************************/ +/* mplas_defvlist_resp */ +/************************************************************************/ +ST_VOID mplas_defvlist_resp (MVL_IND_PEND *indCtrl) + { +ST_RET rc; + + /* Build a "defvlist" response (no response info). */ + rc = mpl_defvlist_resp (indCtrl->event->u.mms.dec_rslt.id); + if (rc == SD_SUCCESS) + mpl_resp_log (indCtrl, NULL); + + _mvl_send_resp_i (indCtrl, rc); + } + diff --git a/mmslib/mvlu/s_delvl.c b/mmslib/mvlu/s_delvl.c new file mode 100644 index 0000000..ffc3ac4 --- /dev/null +++ b/mmslib/mvlu/s_delvl.c @@ -0,0 +1,190 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1998 - 1998, All Rights Reserved */ +/* */ +/* MODULE NAME : s_delvl.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* _mvl_process_delvlist_ind */ +/* mvlas_delvlist_resp */ +/* mplas_delvlist_resp */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/09/07 MDE 16 Enhanced filtered logging */ +/* 10/30/06 JRB 15 Use new mvl_vmd_* object handling functions. */ +/* 08/21/06 JRB 14 Check mms_deletable flag in DELVL_SPEC case. */ +/* 09/21/01 JRB 13 Alloc global bufs only once at startup. */ +/* 07/13/00 JRB 12 Init num_matched, num_deleted for DELVL_SPEC.*/ +/* 01/21/00 MDE 11 Now use MEM_SMEM for dynamic memory */ +/* 09/13/99 MDE 10 Added SD_CONST modifiers */ +/* 04/07/99 JRB 09 Add support for SPECIFIC scope. */ +/* 04/07/99 MDE 08 Logging improvements */ +/* 01/21/99 JRB 07 Add support for AA-specific scope. */ +/* 01/14/99 JRB 06 Use new "bsearch" object model. */ +/* 11/16/98 MDE 05 Now use '_mvl_destroy_nvl_entries' */ +/* 11/16/98 MDE 04 Renamed internal functions (prefix '_') */ +/* 06/22/98 MDE 03 More changes to allow compile under C++ */ +/* 06/15/98 MDE 02 Changes to allow compile under C++ */ +/* 04/14/98 JRB 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "mmsdefs.h" +#include "mms_pfil.h" +#include "mvl_defs.h" +#include "mvl_log.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +static ST_RET delete_nvlist (DELVLIST_RESP_INFO *resp_info, + ST_INT *num_nvlist, + MVL_NVLIST_CTRL **nvlist_tbl); +/************************************************************************/ +/* _mvl_process_delvlist_ind */ +/* A "delvlist" indication has been received, process it and respond */ +/************************************************************************/ + +ST_VOID _mvl_process_delvlist_ind (MVL_IND_PEND *indCtrl) + { + indCtrl->u.delvlist.req_info = + (DELVLIST_REQ_INFO *) indCtrl->event->u.mms.dec_rslt.data_ptr; + + u_mvl_delvlist_ind (indCtrl); + } + +/************************************************************************/ +/* mvlas_delvlist_resp */ +/************************************************************************/ +ST_VOID mvlas_delvlist_resp (MVL_IND_PEND *indCtrl) + { +DELVLIST_RESP_INFO resp_info; +DELVLIST_REQ_INFO *req_info = indCtrl->u.delvlist.req_info; +MVL_DOM_CTRL *mvl_dom; +MVL_AA_OBJ_CTRL *aa_objs; +ST_INT j; +OBJECT_NAME *obj_name; +MVL_NVLIST_CTRL *nvl; + + if (req_info->scope == DELVL_VMD) + { + /* "delete_nvlist" deletes all deletable ("mvl_obj_delete" can't).*/ + if (delete_nvlist (&resp_info, &mvl_vmd.num_nvlist, mvl_vmd.nvlist_tbl)) + { + _mplas_err_resp (indCtrl,4,0); /* Service error , other */ + return; + } + } + else if (req_info->scope == DELVL_DOM) + { + mvl_dom = mvl_vmd_find_dom (&mvl_vmd, req_info->dname); + if (mvl_dom == NULL) + { + MVL_LOG_NERR1 ("Delete NVL ind: Domain '%s' not found", req_info->dname); + _mplas_err_resp (indCtrl,2,1); /* Object undefined */ + return; + } + /* "delete_nvlist" deletes all deletable ("mvl_obj_delete" can't).*/ + if (delete_nvlist (&resp_info, &mvl_dom->num_nvlist, mvl_dom->nvlist_tbl)) + { + _mplas_err_resp (indCtrl,4,0); /* Service error , other */ + return; + } + } + else if (req_info->scope == DELVL_AA) + { + aa_objs = indCtrl->event->net_info->aa_objs; + /* "delete_nvlist" deletes all deletable ("mvl_obj_delete" can't).*/ + if (delete_nvlist (&resp_info, &aa_objs->num_nvlist, aa_objs->nvlist_tbl)) + { + _mplas_err_resp (indCtrl,4,0); /* Service error , other */ + return; + } + } + else + { /* Must be DELVL_SPEC (i.e. delete listed NVLs). */ + /* Init "obj_name" to point to array of OBJECT_NAME structs which */ + /* MMS decoder puts right after the "req_info" struct. */ + resp_info.num_matched = 0; + resp_info.num_deleted = 0; + + obj_name = (OBJECT_NAME *) (req_info + 1); + for (j = 0; j < req_info->num_of_vnames; j++, obj_name++) + { + if ((nvl = mvl_vmd_find_nvl (&mvl_vmd, obj_name, indCtrl->event->net_info)) != NULL) + { + resp_info.num_matched++; + if (nvl->mms_deletable && + mvl_vmd_nvl_remove (&mvl_vmd, obj_name, indCtrl->event->net_info) == SD_SUCCESS) + resp_info.num_deleted++; + } + } + } + indCtrl->u.delvlist.resp_info = &resp_info; + mplas_delvlist_resp (indCtrl); + } + +/************************************************************************/ +/* mplas_delvlist_resp */ +/************************************************************************/ +ST_VOID mplas_delvlist_resp (MVL_IND_PEND *indCtrl) + { +ST_RET rc; + + /* Build a "delvlist" response */ + rc = mpl_delvlist_resp (indCtrl->event->u.mms.dec_rslt.id, + indCtrl->u.delvlist.resp_info); + if (rc == SD_SUCCESS) + mpl_resp_log (indCtrl, indCtrl->u.delvlist.resp_info); + + _mvl_send_resp_i (indCtrl, rc); + } + +/************************************************************************/ +/* delete_nvlist */ +/* This function deletes all nvlists with "mms_deletable == TRUE". */ +/* It is more efficient than multiple calls to "mvl_obj_delete" */ +/* because it deletes multiple entries with one call. */ +/* This function fills in "resp_info" and modifies "*num_mvlist" and */ +/* the array pointed to by "nvlist_tbl". */ +/************************************************************************/ +static ST_RET delete_nvlist (DELVLIST_RESP_INFO *resp_info, + ST_INT *num_nvlist, + MVL_NVLIST_CTRL **nvlist_tbl) + { +ST_INT j, k; + + resp_info->num_matched = (*num_nvlist); + resp_info->num_deleted = 0; /* Init count. */ + for (j = 0, k = 0; j < (*num_nvlist); j++) + { + if (nvlist_tbl[j]->mms_deletable) + { + /* free up allocated resources for this nvlist */ + mvl_nvl_destroy (nvlist_tbl[j]); + resp_info->num_deleted++; /* Increment count. */ + } + else + { /* move this entry up in array. */ + nvlist_tbl[k] = nvlist_tbl[j]; + k++; /* Increment count of entries left. */ + } + } + + (*num_nvlist) -= (ST_INT) resp_info->num_deleted; + return (SD_SUCCESS); + } diff --git a/mmslib/mvlu/s_fclose.c b/mmslib/mvlu/s_fclose.c new file mode 100644 index 0000000..c1a4f12 --- /dev/null +++ b/mmslib/mvlu/s_fclose.c @@ -0,0 +1,68 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1994 - 1996, All Rights Reserved */ +/* */ +/* MODULE NAME : s_fclose.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* _mvl_process_fclose_ind */ +/* mplas_fclose_resp */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/09/07 MDE 11 Enhanced filtered logging */ +/* 03/11/04 GLB 10 Remove "thisFileName" */ +/* 09/21/01 JRB 09 Alloc global bufs only once at startup. */ +/* 01/21/00 MDE 08 Now use MEM_SMEM for dynamic memory */ +/* 09/13/99 MDE 07 Added SD_CONST modifiers */ +/* 04/01/99 MDE 06 Changes to decode buffer allocation scheme */ +/* 11/16/98 MDE 05 Renamed internal functions (prefix '_') */ +/* 09/21/98 MDE 04 Minor lint cleanup */ +/* 06/15/98 MDE 03 Changes to allow compile under C++ */ +/* 05/14/98 JRB 02 Use MVL_IND_PEND. Add mvlas resp function. */ +/* 09/10/97 MDE 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "mmsdefs.h" +#include "mms_pfil.h" +#include "mvl_defs.h" +#include "mvl_log.h" + + +/************************************************************************/ +/************************************************************************/ +/* _mvl_process_fclose_ind */ +/* A file close indication has been received, process it and respond */ +/************************************************************************/ + +ST_VOID _mvl_process_fclose_ind (MVL_IND_PEND *indCtrl) + { + indCtrl->u.fclose.req_info = + (FCLOSE_REQ_INFO *) indCtrl->event->u.mms.dec_rslt.data_ptr; + + u_mvl_fclose_ind (indCtrl); + } + +/************************************************************************/ +/* mplas_fclose_resp */ +/************************************************************************/ +ST_VOID mplas_fclose_resp (MVL_IND_PEND *indCtrl) + { +ST_RET rc; + + /* Build a File Close response */ + rc = mpl_fclose_resp (indCtrl->event->u.mms.dec_rslt.id); + if (rc == SD_SUCCESS) + mpl_resp_log (indCtrl, NULL); + + _mvl_send_resp_i (indCtrl, rc); + } + diff --git a/mmslib/mvlu/s_fdel.c b/mmslib/mvlu/s_fdel.c new file mode 100644 index 0000000..8a64dad --- /dev/null +++ b/mmslib/mvlu/s_fdel.c @@ -0,0 +1,77 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1998 - 1998, All Rights Reserved */ +/* */ +/* MODULE NAME : s_fdel.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* _mvl_process_fdelete_ind */ +/* mplas_fdelete_resp */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/09/07 MDE 10 Enhanced filtered logging */ +/* 03/11/04 GLB 09 Remove "thisFileName" */ +/* 09/21/01 JRB 08 Alloc global bufs only once at startup. */ +/* 01/21/00 MDE 07 Now use MEM_SMEM for dynamic memory */ +/* 09/13/99 MDE 06 Added SD_CONST modifiers */ +/* 04/01/99 MDE 05 Changes to decode buffer allocation scheme */ +/* 11/16/98 MDE 04 Renamed internal functions (prefix '_') */ +/* 09/21/98 MDE 03 Minor lint cleanup */ +/* 06/15/98 MDE 02 Changes to allow compile under C++ */ +/* 04/14/98 JRB 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "mmsdefs.h" +#include "mms_pfil.h" +#include "mvl_defs.h" +#include "mvl_log.h" + +/************************************************************************/ +/* _mvl_process_fdelete_ind */ +/* A "fdelete" indication has been received, process it and respond */ +/************************************************************************/ + +ST_VOID _mvl_process_fdelete_ind (MVL_IND_PEND *indCtrl) + { +FDELETE_REQ_INFO *req_info; +MVLAS_FDELETE_CTRL *fdelete; + + fdelete = &indCtrl->u.fdelete; + + req_info = (FDELETE_REQ_INFO *) indCtrl->event->u.mms.dec_rslt.data_ptr; + + if (_mvl_concat_filename (fdelete->filename, req_info->num_of_fname, + (FILE_NAME *)(req_info + 1), sizeof (fdelete->filename))) + { + _mplas_err_resp (indCtrl,11,3); /* File name syntax error */ + return; + } + + u_mvl_fdelete_ind (indCtrl); + } + +/************************************************************************/ +/* mplas_fdelete_resp */ +/************************************************************************/ +ST_VOID mplas_fdelete_resp (MVL_IND_PEND *indCtrl) + { +ST_RET rc; + + /* Build a "fdelete" response */ + rc = mpl_fdelete_resp (indCtrl->event->u.mms.dec_rslt.id); + if (rc == SD_SUCCESS) + mpl_resp_log (indCtrl, NULL); + + _mvl_send_resp_i (indCtrl, rc); + } + + diff --git a/mmslib/mvlu/s_fdir.c b/mmslib/mvlu/s_fdir.c new file mode 100644 index 0000000..9baefee --- /dev/null +++ b/mmslib/mvlu/s_fdir.c @@ -0,0 +1,769 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1994 - 1996, All Rights Reserved */ +/* */ +/* MODULE NAME : s_fdir.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* _mvl_process_fdir_ind */ +/* mplas_fdir_resp */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/09/07 MDE 13 Enhanced filtered logging */ +/* 03/09/05 CRM 12 Added mvlas_fdir_resp, convertFileTime, and */ +/* fileFdirEnt functions for WIN32 defined */ +/* 09/21/01 JRB 11 Alloc global bufs only once at startup. */ +/* 03/30/01 MDE 10 Changed MSMEM_ENC_INFO to MSMEM_ENC_OS_INFO */ +/* 09/13/00 JRB 09 Compute resp_info size (don't use const). */ +/* 01/21/00 MDE 08 Now use MEM_SMEM for dynamic memory */ +/* 09/13/99 MDE 07 Added SD_CONST modifiers */ +/* 04/01/99 MDE 06 Changes to decode buffer allocation scheme */ +/* 11/16/98 MDE 05 Renamed internal functions (prefix '_') */ +/* 09/21/98 MDE 04 Minor lint cleanup */ +/* 06/15/98 MDE 03 Changes to allow compile under C++ */ +/* 05/14/98 JRB 02 Use MVL_IND_PEND. Add mvlas resp function. */ +/* 09/10/97 MDE 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "mmsdefs.h" +#include "mms_pfil.h" +#include "mvl_defs.h" +#include "mvl_log.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/*-----------------------------------------*/ +/* Global definitions used by all systems */ +/*-----------------------------------------*/ +/* +#define SERVICE_OVRHD 20 +#define DIR_ENTRY_OVRHD 32 +*/ +#define SERVICE_OVRHD 256 +#define DIR_ENTRY_OVRHD 64 + +/************************************************************************/ +/************************************************************************/ +/* _mvl_process_fdir_ind */ +/* A fdir indication has been received, process it and respond */ +/************************************************************************/ + +ST_VOID _mvl_process_fdir_ind (MVL_IND_PEND *indCtrl) + { +FDIR_REQ_INFO *req_info; +FILE_NAME *fs_fname; /* ptr to array of FILE_NAME for "fs" */ +FILE_NAME *ca_fname; /* ptr to array of FILE_NAME for "ca" */ +MVLAS_FDIR_CTRL *fdir; + + fdir = &indCtrl->u.fdir; + + req_info = (FDIR_REQ_INFO *) indCtrl->event->u.mms.dec_rslt.data_ptr; + + /* fs_fname array is right after req_info */ + fs_fname = (FILE_NAME *)(req_info + 1); + /* ca_fname array is right after fs_fname array */ + ca_fname = fs_fname + req_info->num_of_fs_fname; + + if (req_info->filespec_pres) + { + if (_mvl_concat_filename (fdir->fs_filename, req_info->num_of_fs_fname, + fs_fname, sizeof (fdir->fs_filename))) + { + _mplas_err_resp (indCtrl,11,3); /* File name syntax error */ + return; + } + } + else + fdir->fs_filename[0] = 0; + + if (req_info->cont_after_pres) + { + if (_mvl_concat_filename (fdir->ca_filename, req_info->num_of_ca_fname, + ca_fname, sizeof (fdir->ca_filename))) + { + _mplas_err_resp (indCtrl,11,3); /* File name syntax error */ + return; + } + } + else + fdir->ca_filename[0] = 0; + + u_mvl_fdir_ind (indCtrl); + } + +/************************************************************************/ +/* mplas_fdir_resp */ +/************************************************************************/ +ST_VOID mplas_fdir_resp (MVL_IND_PEND *indCtrl) + { +ST_RET rc; +FDIR_RESP_INFO *resp_info; +ST_UINT resp_size; /* size of "resp_info" */ +FDIR_DIR_ENT *fdir_entry; +FILE_NAME *fname; +ST_INT j; +MVL_FDIR_RESP_INFO *mvl_resp_info; + + + mvl_resp_info = indCtrl->u.fdir.resp_info; + +/* Compute size needed for "resp_info". */ +/* NOTE: num_of_fname is always 1, so total_num_of_fname = num_dir_ent. */ + resp_size = sizeof (FDIR_RESP_INFO) + + (mvl_resp_info->num_dir_ent * sizeof (FDIR_DIR_ENT)) + + (mvl_resp_info->num_dir_ent * sizeof (FILE_NAME)); + resp_info = (FDIR_RESP_INFO *) M_CALLOC (MSMEM_ENC_OS_INFO, 1, resp_size); + + resp_info->num_dir_ent = mvl_resp_info->num_dir_ent; + resp_info->more_follows = mvl_resp_info->more_follows; + for (j = 0, fdir_entry = (FDIR_DIR_ENT *) (resp_info + 1); + j < resp_info->num_dir_ent; j++) + { + fdir_entry->fsize = mvl_resp_info->dir_ent[j].fsize; + fdir_entry->mtimpres = mvl_resp_info->dir_ent[j].mtimpres; + fdir_entry->mtime = mvl_resp_info->dir_ent[j].mtime; + fdir_entry->num_of_fname = 1; /* we always use 1 */ + + fname = (FILE_NAME *) (fdir_entry + 1); + fname->fn_len = strlen (mvl_resp_info->dir_ent[j].filename); + fname->fname = mvl_resp_info->dir_ent[j].filename; + + /* always 1 fname, so point after it to get to next fdir_entry. */ + fdir_entry = (FDIR_DIR_ENT *) (fname + 1); + } + + /* Build a File Directory response */ + rc = mpl_fdir_resp (indCtrl->event->u.mms.dec_rslt.id, resp_info); + _mvl_send_resp_i (indCtrl, rc); + if (rc == SD_SUCCESS) + mpl_resp_log (indCtrl, indCtrl->u.getvar.resp_info); + + + M_FREE (MSMEM_ENC_OS_INFO, resp_info); + } + + +/*renxiaobao Îļþ²Ù×÷*/ +#if defined(linux) || defined(__ECOS) || defined(VXWORKS) +#include +int MMS_DIR_READ_MAX = 200; +ST_VOID fillFdirEnt (struct stat *pstFindData, FDIR_DIR_ENT *pstFdirEnt, + FILE_NAME *pstFileName, ST_CHAR *nameBuffer,ST_CHAR *FileName) +{ + time_t theTime; + /* Fill in the FDIR_DIR_ENT struct. */ + /*printf("%s st_size %d st_mtime %lu ...\n",FileName,pstFindData->st_size,pstFindData->st_mtime);*/ + theTime = pstFindData->st_mtime; + pstFdirEnt->fsize = pstFindData->st_size ; + /* theTime = 1022036250; + if (theTime == -1) */ + if (theTime < 0) + { + printf("fillFdirEnt theTime = %lx\n",theTime); + pstFdirEnt->mtimpres = SD_FALSE; + } + else + { + pstFdirEnt->mtimpres = SD_TRUE; + pstFdirEnt->mtime = (ST_INT32) theTime; + } + pstFdirEnt->num_of_fname = 1; + /* Fill in nameBuffer. */ + strcpy (nameBuffer, FileName); + if(S_ISDIR (pstFindData->st_mode)) + { + /*strcat (nameBuffer, "\\");*/ + strcat (nameBuffer, "/"); + pstFdirEnt->fsize = pstFindData->st_size ; + } + /* Fill in the FILE_NAME struct. */ + pstFileName->fname = nameBuffer; + pstFileName->fn_len = strlen (nameBuffer); +} + + +short fdir_fullname_flag=1; +extern int mms_filename_conv(char *mms_name,char *sys_name); +extern int mms_open_root_dir(); +extern char mms_root_dir_buf[16][32]; +extern char sys_root_dir_buf[16][32]; +int root_dir_num=0; +#if defined(__ECOS) +void UTF_8ToGB2312(char *pOut, char *pText, int pLen); +char *GB_UTF(unsigned char *p_desStr,unsigned char *p_srcStr); +#define file_utf_to_gb2312 UTF_8ToGB2312 +#define file_gb2312_to_utf GB_UTF +#endif +#if defined(VXWORKS) +void gb2312_convert_uft8(char *p_desStr,char *p_srcStr); +void utf8_convert_gb2312(char *pOut, char *pText, int pLen); +#define file_utf_to_gb2312 utf8_convert_gb2312 +#define file_gb2312_to_utf gb2312_convert_uft8 +#endif +ST_VOID mvlas_fdir_resp (MVL_IND_PEND *indCtrl) +{ + ST_INT status,ret; + ST_CHAR tmp_name [128]; + ST_CHAR sys_name [128]; + ST_CHAR fs_name [128]; + ST_CHAR ca_name [128]; + ST_CHAR filename [128]; + FDIR_RESP_INFO *rsp_ptr; + FDIR_DIR_ENT *dir_ptr; + ST_INT rsp_size; + ST_CHAR *name_ptr; + ST_INT total_len, doMore; + FILE_NAME *fname_ptr; + ST_UCHAR found_ca = SD_FALSE; + ST_CHAR *data_buf; + MVLAS_FDIR_CTRL *fdir_ctrl; + ST_INT negotiatedPduSize; + ST_INT max_dir_ents; + ST_RET rc; + DIR *dir=0; + struct dirent *dirptr; + struct stat file_stat; + MVL_FDIR_RESP_INFO resp_info; + ST_CHAR *tmp_dir_ent_array; + short i; + char *str; + /* calculate the maximum message size and number of directory entries */ + negotiatedPduSize = (ST_INT) indCtrl->event->net_info->max_pdu_size; + max_dir_ents = (negotiatedPduSize - SERVICE_OVRHD) / DIR_ENTRY_OVRHD; + /* set the number of directory entries and allocate memory for response info */ + fdir_ctrl = &indCtrl->u.fdir; + /****************************/ + /* ¹ã¶«µçÍøÐÞ¸ÄÖÐÎÄÃû³Æת»» */ + /****************************/ + file_utf_to_gb2312(tmp_name,fdir_ctrl->fs_filename,strlen(fdir_ctrl->fs_filename)); + strcpy(fdir_ctrl->fs_filename,tmp_name); + file_utf_to_gb2312(tmp_name,fdir_ctrl->ca_filename,strlen(fdir_ctrl->ca_filename)); + strcpy(fdir_ctrl->ca_filename,tmp_name); + /****************************/ + /* Ŀ¼Ãû¼ì²é */ + /****************************/ + if((strlen(fdir_ctrl->fs_filename)==0)||(strstr(fdir_ctrl->fs_filename,"*"))) + strcpy (fs_name, "/"); + else + strcpy (fs_name, fdir_ctrl->fs_filename); + /****************************/ + /* Ŀ¼Ðø¶Á */ + /****************************/ + strcpy (ca_name, fdir_ctrl->ca_filename); + /*Ðø¶ÁÎļþÃû²ð·Ö*/ + if((strlen (ca_name))&&(strrchr(ca_name,'/'))) + { + strcpy (fs_name,ca_name); + str = strrchr(fs_name,'/'); + strcpy (ca_name,str+1); + *(str+1) = 0; + printf("Ŀ¼Ðø¶Á²ð·Ö:%s fs_name:%s ca_name:%s...\n\r",fdir_ctrl->ca_filename,fs_name,ca_name); + } + if(strlen (ca_name)) found_ca = SD_FALSE; + else found_ca = SD_TRUE; + /****************************/ + /* ¸ùĿ¼¶ÁÈ¡ */ + /****************************/ + if(strcmp(fs_name, "/")==0) + { + root_dir_num = mms_open_root_dir(); + if(root_dir_num==0) printf("¸ùĿ¼¶Áȡʧ°Ü...\n\r"); + /*¸ùĿ¼icdÎļþ*/ + ret = stat ("/etc/device.icd", &file_stat); + if(ret==0) strcpy(mms_root_dir_buf[root_dir_num++],"/device.icd"); + else printf("%s stat ʧ°Ü...\n\r","/etc/device.icd"); + + resp_info.num_dir_ent = root_dir_num; + resp_info.more_follows = SD_FALSE; + tmp_dir_ent_array = (ST_CHAR *) chk_calloc (resp_info.num_dir_ent, sizeof(MVL_DIR_ENT)); + resp_info.dir_ent = (MVL_DIR_ENT *) tmp_dir_ent_array; + for(i=0;iresp_info = &resp_info; + mplas_fdir_resp (indCtrl); + chk_free (tmp_dir_ent_array); + return; + } + /*---------------------------------------------------------*/ + /* Find maximum response buffer size, calloc space for it, */ + /* and initialize the response structure variables. */ + /*---------------------------------------------------------*/ + rsp_size = sizeof (FDIR_RESP_INFO)+( max_dir_ents * sizeof (FDIR_DIR_ENT) )+( max_dir_ents * sizeof (FILE_NAME) ); + rsp_ptr = (FDIR_RESP_INFO *) chk_calloc (1,rsp_size); + data_buf = chk_malloc (negotiatedPduSize); + rsp_ptr->num_dir_ent = 0; + rsp_ptr->more_follows = SD_FALSE; + /*---------------------------------*/ + /* Initialize some other variables */ + /*---------------------------------*/ + name_ptr = data_buf; + total_len = 0; + status = SD_SUCCESS; + fname_ptr = ( FILE_NAME * )( fdir_ctrl + 1 ); + /****************************/ + /* Ŀ¼ÐÅÏ¢¶ÁÈ¡ */ + /****************************/ + if(fs_name[strlen (fs_name)-1]!='/') strcat(fs_name,"/"); + ret = mms_filename_conv(fs_name,sys_name); + if(sys_name[strlen (sys_name)-1]!='/') strcat(sys_name,"/"); + dir = opendir(sys_name); + if((!ret)||(!dir)) + { + printf("Ŀ¼ %s - %s¶Áȡʧ°Ü...\n\r",fs_name,sys_name); + status = SD_FAILURE; + } + if(status == SD_SUCCESS ) + { + if ((dirptr = readdir(dir))) + { + dir_ptr = (FDIR_DIR_ENT *)(rsp_ptr + 1); + fname_ptr = (FILE_NAME *)(dir_ptr + 1); + doMore = SD_TRUE; + while(doMore ) + { + /* Ŀ¼Ðø¶Á */ + if(! found_ca &&(!strcmp (dirptr->d_name, ca_name))) found_ca = SD_TRUE; + if(!(found_ca && (strcmp (dirptr->d_name, ca_name)))) + { + if(!(dirptr = readdir(dir))) doMore = SD_FALSE; + continue; + } + /* Discard the . and .. entries */ + if (!strcmp (dirptr->d_name, ".")|| !strcmp (dirptr->d_name, "..")) + { + if(!(dirptr = readdir(dir))) doMore = SD_FALSE; + continue; + } + /*Ó³Éä±íÖÐĿ¼ÌÞ³ý*/ + strcpy(filename,sys_name); + strcat(filename,dirptr->d_name); + strcat(filename,"/"); + for(i=0;id_name) + DIR_ENTRY_OVRHD); + total_len += strlen(sys_name); + /* ³¤¶È¡¢¸öÊý³¬ÏÞ */ + if((total_len >= (negotiatedPduSize - SERVICE_OVRHD)) || + (rsp_ptr->num_dir_ent>=MMS_DIR_READ_MAX)) + { + printf("total_len(%d) > %d num=%d ...\n", + total_len,negotiatedPduSize,rsp_ptr->num_dir_ent); + rsp_ptr->more_follows = SD_TRUE; + doMore = SD_FALSE; + continue; + } + /* Ŀ¼ÎļþÐÅÏ¢ */ + sprintf(filename,"%s%s",sys_name,dirptr->d_name); + ret = stat (filename, &file_stat); + if(ret!=0) printf("%s stat ʧ°Ü...\n\r",filename); + rsp_ptr->num_dir_ent++; + fillFdirEnt(&file_stat, dir_ptr, fname_ptr, name_ptr,dirptr->d_name); + /*ȫ·¾¶*/ + if(fdir_fullname_flag) + { + strcpy(filename,fs_name); + strcat(filename,fname_ptr->fname); + strcpy(fname_ptr->fname,filename); + } + /*UTF8±àÂëת»»*/ + /*UTF_8ToGB2312(tmp_name,fname_ptr->fname,strlen(fname_ptr->fname));*/ + file_gb2312_to_utf(tmp_name,fname_ptr->fname); + strcpy(fname_ptr->fname,tmp_name); + fname_ptr->fn_len = strlen (fname_ptr->fname); + name_ptr += fname_ptr->fn_len + 1; /* check for end of buffer */ + dir_ptr = (FDIR_DIR_ENT *) ((FILE_NAME *) (dir_ptr + 1) + 1); + fname_ptr = (FILE_NAME *)(dir_ptr + 1); + if(!(dirptr = readdir(dir))) doMore = SD_FALSE; + } + } + } + if (dir) closedir(dir); + /* if (status == SD_SUCCESS) directory was successful */ + if(1) + { + /* Build a File Directory response */ + rc = mpl_fdir_resp (indCtrl->event->u.mms.dec_rslt.id, rsp_ptr); + _mvl_send_resp_i (indCtrl, rc); + strcpy (fs_name, fdir_ctrl->fs_filename); + strcpy (ca_name, fdir_ctrl->ca_filename); + printf("filenum=%3d total_len=%5d fdir_name=%s %s %s\n\r",rsp_ptr->num_dir_ent,total_len, + fdir_ctrl->fs_filename,fdir_ctrl->ca_filename,sys_name); + } + /*------------------------*/ + /* Free allocated storage */ + /*------------------------*/ + chk_free (rsp_ptr); + chk_free (data_buf); +} +ST_VOID mvlas_fattr_resp (MVL_IND_PEND *indCtrl) +{ + ST_INT status; + ST_CHAR fs_name [MAX_FILE_NAME+1]; + ST_CHAR ca_name [MAX_FILE_NAME+1]; + ST_CHAR filename[MAX_FILE_NAME+1]; + FDIR_RESP_INFO *rsp_ptr; + FDIR_DIR_ENT *dir_ptr; + ST_INT rsp_size; + ST_CHAR *name_ptr; + ST_INT total_len, doMore; + FILE_NAME *fname_ptr; + ST_CHAR *data_buf; + MVLAS_FDIR_CTRL *fdir_ctrl; + ST_INT negotiatedPduSize; + ST_INT max_dir_ents; + ST_RET rc; + struct stat file_stat; + + /* calculate the maximum message size and number of directory entries */ + negotiatedPduSize = (ST_INT) indCtrl->event->net_info->max_pdu_size; + max_dir_ents = (negotiatedPduSize - SERVICE_OVRHD) / DIR_ENTRY_OVRHD; + + /* set the number of directory entries and allocate memory for response info */ + fdir_ctrl = &indCtrl->u.fdir; + + fs_name[0] = 0; + if(fdir_ctrl->fs_filename[0]!='/') strcpy (fs_name, "/"); + strcat (fs_name, fdir_ctrl->fs_filename); + /*strcpy (fs_name, fdir_ctrl->fs_filename);*/ + strcpy (ca_name, fdir_ctrl->ca_filename); + /*---------------------------------------------------------*/ + /* Find maximum response buffer size, calloc space for it, */ + /* and initialize the response structure variables. */ + /*---------------------------------------------------------*/ + rsp_size = sizeof (FDIR_RESP_INFO) + + ( max_dir_ents * sizeof (FDIR_DIR_ENT) ) + + ( max_dir_ents * sizeof (FILE_NAME) ); + rsp_ptr = (FDIR_RESP_INFO *) chk_calloc (1,rsp_size); + + /* Allocate buffer to hold just names. Will NEVER use whole buffer */ + /* because names plus overhead must be less than mms_max_msgsze. */ + data_buf = chk_malloc (negotiatedPduSize); + rsp_ptr->num_dir_ent = 0; + rsp_ptr->more_follows = SD_FALSE; /* set default value */ + /*---------------------------------*/ + /* Initialize some other variables */ + /*---------------------------------*/ + name_ptr = data_buf; + total_len = 0; + status = SD_SUCCESS; + fname_ptr = ( FILE_NAME * )( fdir_ctrl + 1 ); + dir_ptr = (FDIR_DIR_ENT *)(rsp_ptr + 1); + fname_ptr = (FILE_NAME *)(dir_ptr + 1); + total_len += ( strlen(fs_name) + DIR_ENTRY_OVRHD ); + memset(filename,0,MAX_FILE_NAME); + strcpy(filename,fs_name); + /*if(lstat(filename, &file_stat) != 0 )*/ + if(stat (filename, &file_stat) != 0 ) + { + printf("fdir(%s %s %s) read error ...\n", fdir_ctrl->fs_filename,fs_name,ca_name); + /*_mplas_err_resp (indCtrl,11,3);*/ /* File name syntax error */ + _mplas_err_resp (indCtrl,11,0); /* File name syntax error */ + chk_free (rsp_ptr); + chk_free (data_buf); + return; + } + rsp_ptr->num_dir_ent++; + fillFdirEnt (&file_stat, dir_ptr, fname_ptr, name_ptr,fs_name); + name_ptr += fname_ptr->fn_len + 1; /* check for end of buffer */ + dir_ptr = (FDIR_DIR_ENT *) ((FILE_NAME *) (dir_ptr + 1) + 1); + fname_ptr = (FILE_NAME *)(dir_ptr + 1); + doMore = SD_FALSE; + if (status == SD_SUCCESS) /* directory was successful */ + { + /* Build a File Directory response */ + rc = mpl_fdir_resp (indCtrl->event->u.mms.dec_rslt.id, rsp_ptr); + _mvl_send_resp_i (indCtrl, rc); + } + /*------------------------*/ + /* Free allocated storage */ + /*------------------------*/ + chk_free (rsp_ptr); + chk_free (data_buf); +} +#endif + + + + + + + + + + + +#if defined(_WIN32) +short fdir_fullname_flag=1; +/************************************************************************/ +/* convertFileTime */ +/* convert FILETIME to time_t */ +/************************************************************************/ + +static time_t convertFileTime (FILETIME *pstFileTime) + { +WORD wFatDate, wFatTime; +struct tm stTm; +time_t retTime; +FILETIME stLocalTime; + + FileTimeToLocalFileTime (pstFileTime, &stLocalTime); + + if (FileTimeToDosDateTime (&stLocalTime, &wFatDate, &wFatTime)) + { + stTm.tm_sec = (wFatTime & 0x001F) * 2; // bits 0-4 + stTm.tm_min = (wFatTime & 0x07E0) >> 5; // bits 5-10 + stTm.tm_hour = (wFatTime & 0xF800) >> 11; // bits 11-15 + + stTm.tm_mday = wFatDate & 0x001F; // bits 0-4 + stTm.tm_mon = ((wFatDate & 0x01E0)>>5) - 1; // bits 5-8 + stTm.tm_year = ((wFatDate & 0xFE00)>>9) + 80; // bits 9-15 + + stTm.tm_isdst = -1; // let someone else figure out DST + retTime = mktime (&stTm); + } + else + retTime = -1; + + return retTime; + } + +/************************************************************************/ +/* fileFdirEnt */ +/* fill up the FDIR_DIR_ENT struct, FILE_NAME struct, and nameBuffer */ +/* from the WIN32_FIND_DATA struct. */ +/************************************************************************/ +static ST_VOID fillFdirEnt (WIN32_FIND_DATA *pstFindData, FDIR_DIR_ENT *pstFdirEnt, + FILE_NAME *pstFileName, ST_CHAR *nameBuffer) + { +time_t theTime; + + /* Fill in the FDIR_DIR_ENT struct. */ + pstFdirEnt->fsize = (pstFindData->nFileSizeHigh * MAXDWORD) + pstFindData->nFileSizeLow; + + theTime = convertFileTime (&pstFindData->ftLastWriteTime); + + if (theTime == -1) + pstFdirEnt->mtimpres = SD_FALSE; + else + { + pstFdirEnt->mtimpres = SD_TRUE; + pstFdirEnt->mtime = (ST_INT32) theTime; + } + + pstFdirEnt->num_of_fname = 1; + + /* Fill in nameBuffer. */ + strcpy (nameBuffer, pstFindData->cFileName); + + if (pstFindData->dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) + strcat (nameBuffer, "\\"); + + /* Fill in the FILE_NAME struct. */ + pstFileName->fname = nameBuffer; + pstFileName->fn_len = strlen (nameBuffer); + } + +/************************************************************************/ +/* mvlas_fdir_resp */ +/************************************************************************/ +#include "stdio.h" +ST_VOID mvlas_fdir_resp (MVL_IND_PEND *indCtrl) + { +ST_INT status; +ST_CHAR tmp_name [MAX_FILE_NAME+1],*pfind; +ST_CHAR fs_name [MAX_FILE_NAME+1]; +ST_CHAR ca_name [MAX_FILE_NAME+1]; +ST_INT ca_len; +FDIR_RESP_INFO *rsp_ptr; +FDIR_DIR_ENT *dir_ptr; +ST_INT rsp_size; +ST_CHAR *name_ptr; +ST_INT total_len, doMore; +FILE_NAME *fname_ptr; +ST_UCHAR found_ca = SD_FALSE; +ST_CHAR *data_buf; +WIN32_FIND_DATA stFindData; +HANDLE hFind; +MVLAS_FDIR_CTRL *fdir_ctrl; +ST_INT negotiatedPduSize; +ST_INT max_dir_ents; +ST_RET rc; + + char path[MAX_PATH]; + /* calculate the maximum message size and number of directory entries */ + negotiatedPduSize = (ST_INT) indCtrl->event->net_info->max_pdu_size; + max_dir_ents = (negotiatedPduSize - SERVICE_OVRHD) / DIR_ENTRY_OVRHD; + + /* set the number of directory entries and allocate memory for response info */ + fdir_ctrl = &indCtrl->u.fdir; + strcpy (fs_name, fdir_ctrl->fs_filename); + strcpy (ca_name, fdir_ctrl->ca_filename); + path[0]=0; + if(!strstr(fs_name,":")) + { + GetCurrentDirectory (MAX_PATH,path); + GetCurrentDirectoryA(MAX_PATH,path); + } + //printf("GetCurrentDirectory1=%s fs_filename=%s\n",path,fs_name); + + //renxiaobao Îļþ·þÎñ + if(strlen(fs_name)==0) strcpy (fs_name, "\\"); + /* check if ca_filename is present */ + if ((ca_len = strlen (ca_name)) > 0) + { + /* strip off any '\' character at the end of file name */ + if (ca_len && ca_name[ca_len-1] == '\\') + { + ca_len--; + ca_name[ca_len] = '\0'; + } + } + else + found_ca = SD_TRUE; + + /*---------------------------------------------------------*/ + /* Find maximum response buffer size, calloc space for it, */ + /* and initialize the response structure variables. */ + /*---------------------------------------------------------*/ + rsp_size = sizeof (FDIR_RESP_INFO) + + ( max_dir_ents * sizeof (FDIR_DIR_ENT) ) + + ( max_dir_ents * sizeof (FILE_NAME) ); + rsp_ptr = (FDIR_RESP_INFO *) chk_calloc (1,rsp_size); + + /* Allocate buffer to hold just names. Will NEVER use whole buffer */ + /* because names plus overhead must be less than mms_max_msgsze. */ + data_buf = chk_malloc (negotiatedPduSize); + + rsp_ptr->num_dir_ent = 0; + rsp_ptr->more_follows = SD_FALSE; /* set default value */ + + /*---------------------------------*/ + /* Initialize some other variables */ + /*---------------------------------*/ + + name_ptr = data_buf; + total_len = 0; + status = SD_SUCCESS; + fname_ptr = ( FILE_NAME * )( fdir_ctrl + 1 ); + + /* traverse the directory and stash output in the resp struct */ + if ( status == SD_SUCCESS ) + { + sprintf(tmp_name,"%s%s",path,fs_name); + strcpy(fs_name,tmp_name); + while(pfind=strstr(fs_name,"/")) *pfind = 92; // '/'Ìæ»»³É'\\' + strcat (fs_name, "*"); + // printf("fs_name=%s\r\n",fs_name); + // hFind = FindFirstFile (fs_name, &stFindData); + hFind = FindFirstFileA (fs_name, &stFindData); + //printf("FindFirstFile fs_name=%s\r\n",fs_name); + + if (hFind != INVALID_HANDLE_VALUE) + { + dir_ptr = (FDIR_DIR_ENT *)(rsp_ptr + 1); + fname_ptr = (FILE_NAME *)(dir_ptr + 1); + doMore = SD_TRUE; + + while ( doMore ) + { + if (!found_ca && (!stricmp (stFindData.cFileName, ca_name)) ) + found_ca = SD_TRUE; + + if (found_ca && (stricmp (stFindData.cFileName, ca_name)) ) + { + /* Discard the . and .. entries */ + if (!strcmp (stFindData.cFileName, ".") || + !strcmp (stFindData.cFileName, "..")) + { + //doMore = FindNextFile (hFind, &stFindData); + doMore = FindNextFileA (hFind, &stFindData); + continue; + } + + /* see how big it would be and if it fits - keep it */ + total_len += ( strlen(stFindData.cFileName) + DIR_ENTRY_OVRHD ); + + + + + if (total_len < (negotiatedPduSize - SERVICE_OVRHD) ) + { + rsp_ptr->num_dir_ent++; + fillFdirEnt (&stFindData, dir_ptr, fname_ptr, name_ptr); + name_ptr += fname_ptr->fn_len + 1; /* check for end of buffer */ + dir_ptr = (FDIR_DIR_ENT *) ((FILE_NAME *) (dir_ptr + 1) + 1); + fname_ptr = (FILE_NAME *)(dir_ptr + 1); + //doMore = FindNextFile (hFind, &stFindData); + doMore = FindNextFileA (hFind, &stFindData); + + } + else /* message size limit */ + { + rsp_ptr->more_follows = SD_TRUE; + doMore = SD_FALSE; + } + + //printf("total_len=%d %d\n",total_len,negotiatedPduSize); + + } + else + //doMore = FindNextFile (hFind, &stFindData); + doMore = FindNextFileA (hFind, &stFindData); + } + FindClose (hFind); + } + } + + if (status == SD_SUCCESS) /* directory was successful */ + { + /* Build a File Directory response */ + rc = mpl_fdir_resp (indCtrl->event->u.mms.dec_rslt.id, rsp_ptr); + if (rc == SD_SUCCESS) + mpl_resp_log (indCtrl, rsp_ptr); + + _mvl_send_resp_i (indCtrl, rc); + } + /*------------------------*/ + /* Free allocated storage */ + /*------------------------*/ + + chk_free (rsp_ptr); + chk_free (data_buf); + } + +#endif /* if defined(_WIN32) */ diff --git a/mmslib/mvlu/s_fopen.c b/mmslib/mvlu/s_fopen.c new file mode 100644 index 0000000..7aa77f2 --- /dev/null +++ b/mmslib/mvlu/s_fopen.c @@ -0,0 +1,81 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1994 - 1996, All Rights Reserved */ +/* */ +/* MODULE NAME : s_fopen.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* _mvl_process_fopen_ind */ +/* mplas_fopen_resp */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/09/07 MDE 11 Enhanced filtered logging */ +/* 03/11/04 GLB 10 Remove "thisFileName" */ +/* 09/21/01 JRB 09 Alloc global bufs only once at startup. */ +/* 01/21/00 MDE 08 Now use MEM_SMEM for dynamic memory */ +/* 09/13/99 MDE 07 Added SD_CONST modifiers */ +/* 04/01/99 MDE 06 Changes to decode buffer allocation scheme */ +/* 11/16/98 MDE 05 Renamed internal functions (prefix '_') */ +/* 09/21/98 MDE 04 Minor lint cleanup */ +/* 06/15/98 MDE 03 Changes to allow compile under C++ */ +/* 05/14/98 JRB 02 Use MVL_IND_PEND. Add mvlas resp function. */ +/* 09/10/97 MDE 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "mmsdefs.h" +#include "mms_pfil.h" +#include "mvl_defs.h" +#include "mvl_log.h" + + +/************************************************************************/ +/************************************************************************/ +/* _mvl_process_fopen_ind */ +/* A file open indication has been received, process it and respond */ +/************************************************************************/ + +ST_VOID _mvl_process_fopen_ind (MVL_IND_PEND *indCtrl) + { +FOPEN_REQ_INFO *req_info; +MVLAS_FOPEN_CTRL *fopenCtrl; + + fopenCtrl = &indCtrl->u.fopen; + + req_info = (FOPEN_REQ_INFO *) indCtrl->event->u.mms.dec_rslt.data_ptr; + + if (_mvl_concat_filename (fopenCtrl->filename, req_info->num_of_fname, + (FILE_NAME *)(req_info + 1), sizeof (fopenCtrl->filename))) + { + _mplas_err_resp (indCtrl,11,3); /* File name syntax error */ + return; + } + + fopenCtrl->init_pos = req_info->init_pos; + + u_mvl_fopen_ind (indCtrl); + } + +/************************************************************************/ +/* mplas_fopen_resp */ +/************************************************************************/ +ST_VOID mplas_fopen_resp (MVL_IND_PEND *indCtrl) + { +ST_RET rc; + +/* Build a "fopen" response. */ + rc = mpl_fopen_resp (indCtrl->event->u.mms.dec_rslt.id, + indCtrl->u.fopen.resp_info); + if (rc == SD_SUCCESS) + mpl_resp_log (indCtrl, indCtrl->u.fopen.resp_info); + + _mvl_send_resp_i (indCtrl, rc); + } diff --git a/mmslib/mvlu/s_fread.c b/mmslib/mvlu/s_fread.c new file mode 100644 index 0000000..306ebc2 --- /dev/null +++ b/mmslib/mvlu/s_fread.c @@ -0,0 +1,75 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1994 - 1996, All Rights Reserved */ +/* */ +/* MODULE NAME : s_fread.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* _mvl_process_fread_ind */ +/* mplas_fread_resp */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/09/07 MDE 11 Enhanced filtered logging */ +/* 03/11/04 GLB 10 Remove "thisFileName" */ +/* 09/21/01 JRB 09 Alloc global bufs only once at startup. */ +/* 01/21/00 MDE 08 Now use MEM_SMEM for dynamic memory */ +/* 09/13/99 MDE 07 Added SD_CONST modifiers */ +/* 04/01/99 MDE 06 Changes to decode buffer allocation scheme */ +/* 11/16/98 MDE 05 Renamed internal functions (prefix '_') */ +/* 09/21/98 MDE 04 Minor lint cleanup */ +/* 06/15/98 MDE 03 Changes to allow compile under C++ */ +/* 05/14/98 JRB 02 Use MVL_IND_PEND. Add mvlas resp function. */ +/* 09/10/97 MDE 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "mmsdefs.h" +#include "mms_pfil.h" +#include "mvl_defs.h" +#include "mvl_log.h" + + +/************************************************************************/ +/************************************************************************/ +/* _mvl_process_fread_ind */ +/* A file open indication has been received, process it and respond */ +/************************************************************************/ + +ST_VOID _mvl_process_fread_ind (MVL_IND_PEND *indCtrl) + { +MVLAS_FREAD_CTRL *freadCtrl; + + freadCtrl = &indCtrl->u.fread; + + freadCtrl->req_info = (FREAD_REQ_INFO *) indCtrl->event->u.mms.dec_rslt.data_ptr; + + /* (Max file block size) = (Max PDU size) - 100 to allow for MMS headers.*/ + freadCtrl->max_size = indCtrl->event->net_info->max_pdu_size - 100; + + u_mvl_fread_ind (indCtrl); + } + +/************************************************************************/ +/* mplas_fread_resp */ +/************************************************************************/ +ST_VOID mplas_fread_resp (MVL_IND_PEND *indCtrl) + { +ST_RET rc; + + /* Build a File Read response */ + rc = mpl_fread_resp (indCtrl->event->u.mms.dec_rslt.id, + indCtrl->u.fread.resp_info); + if (rc == SD_SUCCESS) + mpl_resp_log (indCtrl, indCtrl->u.fread.resp_info); + + _mvl_send_resp_i (indCtrl, rc); + } + diff --git a/mmslib/mvlu/s_fren.c b/mmslib/mvlu/s_fren.c new file mode 100644 index 0000000..290547d --- /dev/null +++ b/mmslib/mvlu/s_fren.c @@ -0,0 +1,82 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1998 - 1998, All Rights Reserved */ +/* */ +/* MODULE NAME : s_fren.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* _mvl_process_frename_ind */ +/* mplas_frename_resp */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/09/07 MDE 05 Enhanced filtered logging */ +/* 03/11/04 GLB 04 Remove "thisFileName" */ +/* 09/21/01 JRB 03 Alloc global bufs only once at startup. */ +/* 01/21/00 MDE 02 Now use MEM_SMEM for dynamic memory */ +/* 10/15/99 GLB 01 Created to acommodate file Rename */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "mmsdefs.h" +#include "mms_pfil.h" +#include "mvl_defs.h" +#include "mvl_log.h" + +/************************************************************************/ +/* _mvl_process_frename_ind */ +/* A "frename" indication has been received, process it and respond */ +/************************************************************************/ + +ST_VOID _mvl_process_frename_ind (MVL_IND_PEND *indCtrl) + { +FRENAME_REQ_INFO *req_info; +MVLAS_FRENAME_CTRL *frename; +FILE_NAME *fname_idx; + + frename = &indCtrl->u.frename; + + req_info = (FRENAME_REQ_INFO *) indCtrl->event->u.mms.dec_rslt.data_ptr; + fname_idx = (FILE_NAME *)(req_info + 1); + + if (_mvl_concat_filename (frename->curfilename, req_info->num_of_cur_fname, + fname_idx, sizeof (frename->curfilename))) + { + _mplas_err_resp (indCtrl,11,3); /* File name syntax error */ + return; + } + + if (_mvl_concat_filename (frename->newfilename, req_info->num_of_new_fname, + (FILE_NAME *)(fname_idx + req_info->num_of_cur_fname), + sizeof (frename->newfilename))) + { + _mplas_err_resp (indCtrl,11,3); /* File name syntax error */ + return; + } + + u_mvl_frename_ind (indCtrl); + } + +/************************************************************************/ +/* mplas_frename_resp */ +/************************************************************************/ +ST_VOID mplas_frename_resp (MVL_IND_PEND *indCtrl) + { +ST_RET rc; + + /* Build a "frename" response */ + rc = mpl_frename_resp (indCtrl->event->u.mms.dec_rslt.id); + if (rc == SD_SUCCESS) + mpl_resp_log (indCtrl, NULL); + + _mvl_send_resp_i (indCtrl, rc); + } + + diff --git a/mmslib/mvlu/s_getcl.c b/mmslib/mvlu/s_getcl.c new file mode 100644 index 0000000..d509256 --- /dev/null +++ b/mmslib/mvlu/s_getcl.c @@ -0,0 +1,65 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2000 - 2000, All Rights Reserved */ +/* */ +/* MODULE NAME : s_getcl.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* _mvl_process_getcl_ind */ +/* mplas_getcl_resp */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/09/07 MDE 04 Enhanced filtered logging */ +/* 03/11/04 GLB 03 Remove "thisFileName" */ +/* 09/21/01 JRB 02 Alloc global bufs only once at startup. */ +/* 10/25/00 JRB 01 Created. */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "mmsdefs.h" +#include "mms_pdom.h" +#include "mvl_defs.h" +#include "mvl_log.h" + +/*----------------------------------------------------------------------*/ +/* Functions to process GetProgramInvocationAttributes Indication */ +/* and send GetProgramInvocationAttributes Response. */ +/*----------------------------------------------------------------------*/ + +/************************************************************************/ +/* _mvl_process_getcl_ind */ +/* GetProgramInvocationAttributes Indication received. */ +/* Process it and pass it up to user. */ +/************************************************************************/ +ST_VOID _mvl_process_getcl_ind (MVL_IND_PEND *indCtrl) + { + indCtrl->u.getcl.req_info = + (GETCL_REQ_INFO *) indCtrl->event->u.mms.dec_rslt.data_ptr; + + u_mvl_getcl_ind (indCtrl); + } + +/************************************************************************/ +/* mplas_getcl_resp */ +/* Send GetProgramInvocationAttributes Response. */ +/************************************************************************/ +ST_VOID mplas_getcl_resp (MVL_IND_PEND *indCtrl) + { +ST_RET rc; + + rc = mpl_getcl_resp (indCtrl->event->u.mms.dec_rslt.id, + indCtrl->u.getcl.resp_info); + if (rc == SD_SUCCESS) + mpl_resp_log (indCtrl, indCtrl->u.getcl.resp_info); + + _mvl_send_resp_i (indCtrl, rc); + } + diff --git a/mmslib/mvlu/s_getdom.c b/mmslib/mvlu/s_getdom.c new file mode 100644 index 0000000..948eca4 --- /dev/null +++ b/mmslib/mvlu/s_getdom.c @@ -0,0 +1,108 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1994 - 1996, All Rights Reserved */ +/* */ +/* MODULE NAME : s_getdom.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* NONE */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/09/07 MDE 09 Enhanced filtered logging */ +/* 10/30/06 JRB 08 Use new mvl_vmd_* object handling functions. */ +/* 09/21/01 JRB 07 Alloc global bufs only once at startup. */ +/* 01/21/00 MDE 06 Now use MEM_SMEM for dynamic memory */ +/* 09/13/99 MDE 05 Added SD_CONST modifiers */ +/* 11/16/98 MDE 04 Renamed internal functions (prefix '_') */ +/* 06/15/98 MDE 03 Changes to allow compile under C++ */ +/* 05/14/98 JRB 02 Use MVL_IND_PEND. Add mplas resp function. */ +/* 09/10/97 MDE 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "mmsdefs.h" +#include "mms_pdom.h" +#include "mvl_defs.h" +#include "mvl_log.h" + + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _mvl_process_getdom_ind */ +/* A 'Get Domain Attributes' indication has been received, */ +/* process it and respond */ +/************************************************************************/ + +ST_VOID _mvl_process_getdom_ind (MVL_IND_PEND *indCtrl) + { + indCtrl->u.getdom.req_info = + (GETDOM_REQ_INFO *) indCtrl->event->u.mms.dec_rslt.data_ptr; + + u_mvl_getdom_ind (indCtrl); + } + +/************************************************************************/ +/* mvlas_getdom_resp */ +/************************************************************************/ +ST_VOID mvlas_getdom_resp (MVL_IND_PEND *indCtrl) + { +GETDOM_REQ_INFO *req_info; +GETDOM_RESP_INFO *resp_info; +GETDOM_RESP_INFO default_resp_info; +MVL_DOM_CTRL *dom; + + req_info = indCtrl->u.getdom.req_info; + dom = mvl_vmd_find_dom (&mvl_vmd, req_info->dname); + if (dom == NULL) + { + MVL_LOG_NERR1 ("GetDomAttrib Ind : %s not found", req_info->dname); + _mplas_err_resp (indCtrl,2,1); /* definition, object undefined */ + return; + } + + resp_info = dom->get_dom_resp_info; + if (resp_info == NULL) + { + resp_info = &default_resp_info; + resp_info->num_of_capab = 0; + resp_info->mms_deletable = 0; + resp_info->sharable = 0; + resp_info->num_of_pinames = 0; + resp_info->state = 2; /* 2 : ready */ + } + indCtrl->u.getdom.resp_info = resp_info; + mplas_getdom_resp (indCtrl); + } + +/************************************************************************/ +/* mplas_getdom_resp */ +/************************************************************************/ +ST_VOID mplas_getdom_resp (MVL_IND_PEND *indCtrl) + { +ST_RET rc; + rc = mpl_getdom_resp (indCtrl->event->u.mms.dec_rslt.id, + indCtrl->u.getdom.resp_info); + if (rc == SD_SUCCESS) + mpl_resp_log (indCtrl, indCtrl->u.getdom.resp_info); + + _mvl_send_resp_i (indCtrl, rc); + } + diff --git a/mmslib/mvlu/s_getnam.c b/mmslib/mvlu/s_getnam.c new file mode 100644 index 0000000..54af9d8 --- /dev/null +++ b/mmslib/mvlu/s_getnam.c @@ -0,0 +1,439 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1994 - 2005, All Rights Reserved */ +/* */ +/* MODULE NAME : s_getnam.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* NONE */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/09/07 MDE 21 Enhanced filtered logging */ +/* 10/30/06 JRB 20 Use new mvl_vmd_* object handling functions. */ +/* u_gnl_ind_*: add net_info arg to */ +/* elim use of global var "_mvl_curr_net_info". */ +/* 01/19/05 JRB 19 u_gnl_ind_* return (-1) on error. */ +/* mvlas_namelist_resp: send err resp on error */ +/* (instead of empty name list). */ +/* 08/20/04 JRB 18 Del uninformative "#pragma message". */ +/* 03/04/02 JRB 17 Avoid uninitialized locals in u_gnl_ind_jous */ +/* 01/23/02 EJV 16 Added journals to domain: */ +/* u_gnl_ind_jous - added DOM_SPEC case. */ +/* 09/21/01 JRB 15 Alloc global bufs only once at startup. */ +/* 03/30/01 MDE 14 Changed MSMEM_ENC_INFO to MSMEM_ENC_OS_INFO */ +/* 10/25/00 JRB 13 Del GNL funct ptrs. Call functs directly. */ +/* Control with #ifdefs. */ +/* Del NO_GLB_VAR_INIT code (no longer needed). */ +/* 01/21/00 MDE 12 Now use MEM_SMEM for dynamic memory */ +/* 09/13/99 MDE 11 Added SD_CONST modifiers */ +/* 04/07/99 MDE 10 Logging improvements */ +/* 01/08/99 JRB 09 Use new "bsearch" object model. */ +/* 11/16/98 MDE 08 Renamed internal functions (prefix '_') */ +/* 09/21/98 MDE 07 Minor lint cleanup */ +/* 07/02/98 MDE 06 Added Journal support */ +/* 06/15/98 MDE 05 Changes to allow compile under C++ */ +/* 05/14/98 JRB 04 Use MVL_IND_PEND. Add mplas resp function. */ +/* 02/10/98 MDE 03 Added 'u_gnl_done' function pointer */ +/* 09/18/97 MDE 02 Fixed 'continue after' handling */ +/* 09/10/97 MDE 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "mmsdefs.h" +#include "mms_pvmd.h" +#include "mvl_defs.h" +#include "mvl_log.h" + +/************************************************************************/ +/* Approximate worst case PDU overhead */ + +#define MVL_GNL_RESP_OH 25 + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/************************************************************************/ + +static ST_INT getLocalObjectNames (MVL_OBJ ** obj_tbl, ST_INT num_obj, + NAMELIST_REQ_INFO *req_info, ST_CHAR **ptr, + ST_BOOLEAN *moreFollowsOut, ST_INT maxNames); + +/************************************************************************/ +/************************************************************************/ +/* _mvl_process_getnam_ind */ +/* A get name indication has been received, process it and respond */ +/************************************************************************/ + +#define GETNAM_RESP_BUF_SIZE (sizeof(NAMELIST_RESP_INFO)+ \ + (MVL_MAX_GNL_NAMES * sizeof(ST_CHAR *))) + +ST_VOID _mvl_process_getnam_ind (MVL_IND_PEND *indCtrl) + { + indCtrl->u.namelist.req_info = + (NAMELIST_REQ_INFO *) indCtrl->event->u.mms.dec_rslt.data_ptr; + + u_mvl_namelist_ind (indCtrl); + } + +/************************************************************************/ +/* mvlas_namelist_resp */ +/* NOTE: u_gnl_ind_* functions return negative value on errors. */ +/************************************************************************/ + +ST_VOID mvlas_namelist_resp (MVL_IND_PEND *indCtrl) + { +NAMELIST_REQ_INFO *req_info; +NAMELIST_RESP_INFO *resp_info; +ST_CHAR **ptr; +ST_INT num_obj; +ST_INT i; +ST_INT max_size; +ST_INT16 mms_class; + + req_info = indCtrl->u.namelist.req_info; + mms_class = req_info->obj.mms_class; + +/* Now create the response data structure */ + resp_info = (NAMELIST_RESP_INFO *) + M_CALLOC (MSMEM_ENC_OS_INFO, 1, GETNAM_RESP_BUF_SIZE); + ptr = (ST_CHAR **)(resp_info + 1); + + num_obj = 0; + switch (req_info->obj.mms_class) + { + case MMS_CLASS_VAR: /* NamedVariables */ + num_obj = u_gnl_ind_vars(indCtrl->event->net_info, req_info, ptr, &resp_info->more_follows, + MVL_MAX_GNL_NAMES); + break; + + case MMS_CLASS_VARLIST: /* NamedVariableLists */ + num_obj = u_gnl_ind_nvls(indCtrl->event->net_info, req_info, ptr, &resp_info->more_follows, + MVL_MAX_GNL_NAMES); + break; + + case MMS_CLASS_DOM: /* Domains */ + num_obj = u_gnl_ind_doms(req_info, ptr, &resp_info->more_follows, + MVL_MAX_GNL_NAMES); + break; + + case MMS_CLASS_JOU: /* Journals */ + num_obj = u_gnl_ind_jous(indCtrl->event->net_info, req_info, ptr, &resp_info->more_follows, + MVL_MAX_GNL_NAMES); + break; + + case MMS_CLASS_SCAT_ACC: /* Scattered Access */ + case MMS_CLASS_TYPE: /* NamedTypes */ + case MMS_CLASS_SEM: /* Semaphores */ + case MMS_CLASS_EV_COND: /* Event Conditions */ + case MMS_CLASS_EV_ACT: /* EventActions */ + case MMS_CLASS_EV_ENROLL: /* EventEnrollments */ + case MMS_CLASS_PI: /* Program Invocations */ + case MMS_CLASS_OPER_STA: /* OperatorStations */ + break; + + default: + break; + } + + if (num_obj < 0) + { /* error. Send error response. */ + _mplas_err_resp (indCtrl,7,2); /* access, non-existent */ + } + else + { + /* Let's make sure they will all fit into the PDU */ + max_size = indCtrl->event->net_info->max_pdu_size - MVL_GNL_RESP_OH; + resp_info->num_names = 0; + for (i = 0; i < num_obj; ++i, ++ptr) + { + max_size -= (2 + strlen (*ptr)); + if (resp_info->num_names > MVL_MAX_GNL_NAMES || max_size <= 0) + { + resp_info->more_follows = SD_TRUE; + break; + } + ++resp_info->num_names; + } + + /* Build a Get Name List response */ + indCtrl->u.namelist.resp_info = resp_info; + mplas_namelist_resp (indCtrl); + } + +#if defined(MVL_UCA) /* extra cleanup for UCA */ + u_gnl_done (mms_class, resp_info); +#endif /* defined(MVL_UCA) */ + + M_FREE (MSMEM_ENC_OS_INFO, resp_info); + } + +/************************************************************************/ +/* mplas_namelist_resp */ +/************************************************************************/ +ST_VOID mplas_namelist_resp (MVL_IND_PEND *indCtrl) + { +ST_RET rc; + + rc = mpl_namelist_resp (indCtrl->event->u.mms.dec_rslt.id, + indCtrl->u.namelist.resp_info); + if (rc == SD_SUCCESS) + mpl_resp_log (indCtrl, indCtrl->u.namelist.resp_info); + + _mvl_send_resp_i (indCtrl, rc); + } + +/************************************************************************/ +/************************************************************************/ + +#if defined(MVL_UCA) + /* This function not used. See customized 'u_gnl_ind_vars' in 'mvl_uca.c'.*/ +#elif defined(USE_MANUFACTURED_OBJS) +#pragma message("USE_MANUFACTURED_OBJS defined. Must provide customized 'u_gnl_ind_vars'.") +#else /* default */ + +ST_INT u_gnl_ind_vars (MVL_NET_INFO *net_info, NAMELIST_REQ_INFO *req_info, + ST_CHAR **ptr, ST_BOOLEAN *moreFollowsOut, + ST_INT maxNames) + { +ST_INT num_obj; +MVL_VAR_ASSOC **va; +MVL_AA_OBJ_CTRL *aa; +MVL_DOM_CTRL *domCtrl; + +/* First get the number of objects and pointer to the object table */ + num_obj = 0; + if (req_info->objscope == VMD_SPEC) + { + num_obj = mvl_vmd.num_var_assoc; + va = mvl_vmd.var_assoc_tbl; + } + else if (req_info->objscope == DOM_SPEC) + { + domCtrl = mvl_vmd_find_dom (&mvl_vmd, req_info->dname); + if (domCtrl) + { + num_obj = domCtrl->num_var_assoc; + va = domCtrl->var_assoc_tbl; + } + else + { + MVL_LOG_NERR1 ("GetNameList variables: Domain '%s' not found", req_info->dname); + *moreFollowsOut = SD_FALSE; + return (-1); /* error. This triggers error response */ + } + } + else /* AA_SPEC */ + { + aa = (MVL_AA_OBJ_CTRL *) net_info->aa_objs; + if (aa) + { + num_obj = aa->num_var_assoc; + va = aa->var_assoc_tbl; + } + else + { + *moreFollowsOut = SD_FALSE; + return (-1); /* error. This triggers error response */ + } + } + +/* Get all the names. */ + return (getLocalObjectNames ((MVL_OBJ **) va, num_obj, + req_info, ptr, moreFollowsOut, maxNames)); + } +#endif /* default */ + +/************************************************************************/ +/************************************************************************/ + +#if defined(MVL_UCA) + /* This function not used. See customized 'u_gnl_ind_nvls' in 'mvl_uca.c'.*/ +#elif defined(USE_MANUFACTURED_OBJS) +#pragma message("USE_MANUFACTURED_OBJS defined. Must provide customized 'u_gnl_ind_nvls'.") +#else /* default */ + +ST_INT u_gnl_ind_nvls (MVL_NET_INFO *net_info, NAMELIST_REQ_INFO *req_info, + ST_CHAR **ptr, ST_BOOLEAN *moreFollowsOut, + ST_INT maxNames) + { +ST_INT num_obj; +MVL_AA_OBJ_CTRL *aa; +MVL_NVLIST_CTRL **vl; +MVL_DOM_CTRL *domCtrl; + +/* First get the number of objects and pointer to the object table */ + num_obj = 0; + if (req_info->objscope == VMD_SPEC) + { + num_obj = mvl_vmd.num_nvlist; + vl = mvl_vmd.nvlist_tbl; + } + else if (req_info->objscope == DOM_SPEC) + { + domCtrl = mvl_vmd_find_dom (&mvl_vmd, req_info->dname); + if (domCtrl) + { + num_obj = domCtrl->num_nvlist; + vl = domCtrl->nvlist_tbl; + } + else + { + MVL_LOG_NERR1 ("GetNameList NVL: Domain '%s' not found", req_info->dname); + *moreFollowsOut = SD_FALSE; + return (-1); /* error. This triggers error response */ + } + } + else /* AA_SPEC */ + { + aa = (MVL_AA_OBJ_CTRL *) net_info->aa_objs; + if (aa) + { + num_obj = aa->num_nvlist; + vl = aa->nvlist_tbl; + } + else + { + *moreFollowsOut = SD_FALSE; + return (-1); /* error. This triggers error response */ + } + } + +/* Get all the names. */ + return (getLocalObjectNames ((MVL_OBJ **) vl, num_obj, + req_info, ptr, moreFollowsOut, maxNames)); + } +#endif /* default */ + +/************************************************************************/ +/************************************************************************/ + +#if defined(USE_MANUFACTURED_OBJS) +#pragma message("USE_MANUFACTURED_OBJS defined. Must provide customized 'u_gnl_ind_doms'.") +#else /* default */ + +ST_INT u_gnl_ind_doms (NAMELIST_REQ_INFO *req_info, + ST_CHAR **ptr, ST_BOOLEAN *moreFollowsOut, + ST_INT maxNames) + { +/* Get all the names. */ + return (getLocalObjectNames ((MVL_OBJ **) mvl_vmd.dom_tbl, mvl_vmd.num_dom, + req_info, ptr, moreFollowsOut, maxNames)); + } +#endif /* default */ + + + + +/************************************************************************/ +/************************************************************************/ + +ST_INT u_gnl_ind_jous (MVL_NET_INFO *net_info, NAMELIST_REQ_INFO *req_info, + ST_CHAR **ptr, ST_BOOLEAN *moreFollowsOut, + ST_INT maxNames) + { +ST_INT num_obj; +MVL_AA_OBJ_CTRL *aa; +MVL_DOM_CTRL *dom; +MVL_JOURNAL_CTRL **jou; + +/* First get the number of objects and pointer to the object table */ + num_obj = 0; + jou = NULL; + switch (req_info->objscope) + { + case VMD_SPEC: + num_obj = mvl_vmd.num_jou; + jou = mvl_vmd.jou_tbl; + break; + + case AA_SPEC: + aa = (MVL_AA_OBJ_CTRL *) net_info->aa_objs; + if (aa) + { + num_obj = aa->num_jou; + jou = aa->jou_tbl; + } + break; + + case DOM_SPEC: + dom = mvl_vmd_find_dom (&mvl_vmd, req_info->dname); + if (dom) + { + num_obj = dom->num_jou; + jou = dom->jou_tbl; + } + else + { + MVL_LOG_NERR1 ("GetNameList NVL Journal: Domain '%s' not found", req_info->dname); + *moreFollowsOut = SD_FALSE; + return (-1); /* error. This triggers error response */ + } + break; + + default: + *moreFollowsOut = SD_FALSE; + return (-1); /* error. This triggers error response */ + } + +/* Get all the names. */ + if (num_obj) + return (getLocalObjectNames ((MVL_OBJ **) jou, num_obj, + req_info, ptr, moreFollowsOut, maxNames)); + return (0); + } + +/************************************************************************/ +/* getLocalObjectNames */ +/* Find index into array of pointers for name AFTER continue_after name.*/ +/************************************************************************/ +static ST_INT getLocalObjectNames (MVL_OBJ ** obj_tbl, + ST_INT num_obj, + NAMELIST_REQ_INFO *req_info, + ST_CHAR **ptr, /* array of ptrs to names*/ + ST_BOOLEAN *moreFollowsOut, + ST_INT maxNames) /* max # of names */ + { +ST_INT obj_index; /* index to array of objects */ +ST_INT name_index; /* index to array of names */ +MVL_OBJ **key; + + if (req_info->cont_after_pres) + { + key = mvl_obj_find_key (obj_tbl, num_obj, req_info->continue_after); + if (key) + obj_index = key - obj_tbl + 1; /* index to next one (i.e. + 1).*/ + else + { + MVL_LOG_ERR1 ("GetNameList Error: continue after name '%s' not found", + req_info->continue_after); + obj_index = num_obj; /* Treat as if there are no more objects.*/ + } + } + else + obj_index = 0; /* No continue_after. Start with first entry. */ + +/* Now make the list for the response */ + for (name_index = 0; name_index < maxNames && obj_index < num_obj; + ++obj_index, ++name_index) + ptr[name_index] = obj_tbl[obj_index]->name; + + if (obj_index < num_obj) + *moreFollowsOut = SD_TRUE; + + return (name_index); + } diff --git a/mmslib/mvlu/s_getvaa.c b/mmslib/mvlu/s_getvaa.c new file mode 100644 index 0000000..3426bcd --- /dev/null +++ b/mmslib/mvlu/s_getvaa.c @@ -0,0 +1,265 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1994 - 2002, All Rights Reserved */ +/* */ +/* MODULE NAME : s_getvaa.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* NONE */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/09/07 MDE 22 Enhanced filtered logging */ +/* 11/03/06 RKR 21 Added code to generate a misencoded typespec */ +/* 11/02/06 JRB 20 mplas_err_resp: fix class/code for IEC 61850.*/ +/* 10/30/06 JRB 19 Add args on call to _mvl_objname_to_va. */ +/* Del MVL_DYN_ASN1_TYPES option (was enabled */ +/* by default). Always do default behavior. */ +/* Elim use of global var "_mvl_curr_net_info". */ +/* 01/30/06 GLB 18 Integrated porting changes for VMS */ +/* 06/29/04 JRB 17 Improve NERR log msg. */ +/* 03/13/03 JRB 16 Use mvl_type_ctrl_find. */ +/* 02/25/02 MDE 15 Now get max PDU size from mvl_cfg_info */ +/* 01/02/02 JRB 14 Converted to use ASN1R (re-entrant ASN1) */ +/* 09/21/01 JRB 13 Alloc global bufs only once at startup. */ +/* 10/25/00 JRB 12 Del u_mvl funct ptrs. Call functs directly. */ +/* Control with #ifdefs. */ +/* 01/21/00 MDE 11 Now use MEM_SMEM for dynamic memory */ +/* 09/13/99 MDE 10 Added SD_CONST modifiers */ +/* 04/07/99 MDE 09 Logging improvements */ +/* 12/11/98 MDE 08 Removed scope references from VA */ +/* 12/11/98 MDE 07 Now use 'va_to_free' as manufactured flag */ +/* 11/16/98 MDE 06 Renamed internal functions (prefix '_') */ +/* 08/06/98 JRB 05 Use mmsl_max_msg_size to encode type_spec. */ +/* 06/15/98 MDE 04 Changes to allow compile under C++ */ +/* 05/14/98 JRB 03 Use MVL_IND_PEND. Add mplas resp function. */ +/* 02/10/98 MDE 02 Removed NEST_RT_TYPES, use _mvl_call_get_va */ +/* 09/10/97 MDE 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "mmsdefs.h" +#include "mms_pvmd.h" +#include "mvl_acse.h" +#include "mvl_log.h" + +#if defined(_S_TEST_PROBES) +#include "stestprb.h" +ST_CHAR *misencodedPDU = "\xA2\x82\x05\x20\xA1\x82\x05\x1C\x30\x82\x01\x93\x80\x02\x53\x54\ +\xA1\x82\x01\x8B\xA2\x82\x01\x87\xA1\x82\x01\x83\x30\x2C\x80\x03\ +\x4D\x6F\x64\xA1\x25\xA2\x23\xA1\x21\x30\x0C\x80\x05\x73\x74\x56\ +\x61\x6C\xA1\x03\x85\x01\x08\x30\x08\x80\x01\x71\xA1\x03\x84\x01\ +\xF3\x30\x07\x80\x01\x74\xA1\x02\x91\x00\x30\x2C\x80\x03\x42\x65\ +\x68\xA1\x25\xA2\x23\xA1\x21\x30\x0C\x80\x05\x73\x74\x56\x61\x6C\ +\xA1\x03\x85\x01\x08\x30\x08\x80\x01\x71\xA1\x03\x84\x01\xF3\x30\ +\x07\x80\x01\x74\xA1\x02\x91\x00\x30\x2F\x80\x06\x48\x65\x61\x6C\ +\x74\x68\xA1\x25\xA2\x23\xA1\x21\x30\x0C\x80\x05\x73\x74\x56\x61\ +\x6C\xA1\x03\x85\x01\x08\x30\x08\x80\x01\x71\xA1\x03\x84\x01\xF3\ +\x30\x07\x80\x01\x74\xA1\x02\x91\x00\x30\x30\x80\x07\x4F\x70\x43\ +\x6E\x74\x52\x73\xA1\x25\xA2\x23\xA1\x21\x30\x0C\x80\x05\x73\x74\ +\x56\x61\x6C\xA1\x03\x85\x01\x20\x30\x08\x80\x01\x71\xA1\x03\x84\ +\x01\xF3\x30\x07\x80\x01\x74\xA1\x02\x91\x00\x30\x31\x80\x08\x4E\ +\x75\x6D\x43\x6E\x74\x52\x73\xA1\x25\xA2\x23\xA1\x21\x30\x0C\x80\ +\x05\x73\x74\x56\x61\x6C\xA1\x03\x85\x01\x20\x30\x08\x80\x01\x71\ +\xA1\x03\x84\x01\xF3\x30\x07\x80\x01\x74\xA1\x02\x91\x00\x30\x2F\ +\x80\x06\x43\x68\x6B\x48\x64\x75\xA1\x25\xA2\x23\xA1\x21\x30\x0C\ +\x80\x05\x73\x74\x56\x61\x6C\xA1\x03\x84\x01\xF8\x30\x08\x80\x01\ +\x71\xA1\x03\x84\x01\xF3\x30\x07\x80\x01\x74\xA1\x02\x91\x00\x30\ +\x2D\x80\x05\x4D\x65\x6D\x4F\x76\xA1\x24\xA2\x22\xA1\x20\x30\x0B\ +\x80\x05\x73\x74\x56\x61\x6C\xA1\x02\x83\x00\x30\x08\x80\x01\x71\ +\xA1\x03\x84\x01\xF3\x30\x07\x80\x01\x74\xA1\x02\x91\x00\x30\x2F\ +\x80\x06\x4E\x75\x6D\x52\x63\x64\xA1\x25\xA2\x23\xA1\x21\x30\x0C\ +\x80\x05\x73\x74\x56\x61\x6C\xA1\x03\x85\x01\x20\x30\x08\x80\x01\ +\x71\xA1\x03\x84\x01\xF3\x30\x07\x80\x01\x74\xA1\x02\x91\x00\x30\ +\x82\x01\xC0\x80\x02\x43\x4F\xA1\x82\x01\xB8\xA2\x82\x01\xB4\xA1\ +\x82\x01\xB0\x30\x81\x8D\x80\x07\x4F\x70\x43\x6E\x74\x52\x73\xA1\ +\x81\x81\xA2\x7F\xA1\x7D\x30\x7B\x80\x04\x4F\x70\x65\x72\xA1\x73\ +\xA2\x71\xA1\x6F\x30\x0D\x80\x06\x63\x74\x6C\x56\x61\x6C\xA1\x03\ +\x85\x01\x20\x30\x2C\x80\x06\x6F\x72\x69\x67\x69\x6E\xA1\x22\xA2\ +\x20\xA1\x1E\x30\x0C\x80\x05\x6F\x72\x43\x61\x74\xA1\x03\x85\x01\ +\x08\x30\x0E\x80\x07\x6F\x72\x49\x64\x65\x6E\x74\xA1\x03\x89\x01\ +\xC0\x30\x0D\x80\x06\x63\x74\x6C\x4E\x75\x6D\xA1\x03\x86\x01\x08\ +\x30\x07\x80\x01\x54\xA1\x02\x91\x00\x30\x0A\x80\x04\x54\x65\x73\ +\x74\xA1\x02\x83\x00\x30\x0C\x80\x05\x43\x68\x65\x63\x6B\xA1\x03\ +\x84\x01\xFE\x30\x81\x8E\x80\x08\x4E\x75\x6D\x43\x6E\x74\x52\x73\ +\xA1\x81\x81\xA2\x7F\xA1\x7D\x30\x7B\x80\x04\x4F\x70\x65\x72\xA1\ +\x73\xA2\x71\xA1\x6F\x30\x0D\x80\x06\x63\x74\x6C\x56\x61\x6C\xA1\ +\x03\x85\x01\x20\x30\x2C\x80\x06\x6F\x72\x69\x67\x69\x6E\xA1\x22\ +\xA2\x20\xA1\x1E\x30\x0C\x80\x05\x6F\x72\x43\x61\x74\xA1\x03\x85\ +\x01\x08\x30\x0E\x80\x07\x6F\x72\x49\x64\x65\x6E\x74\xA1\x03\x89\ +\x01\xC0\x30\x0D\x80\x06\x63\x74\x6C\x4E\x75\x6D\xA1\x03\x86\x01\ +\x08\x30\x07\x80\x01\x54\xA1\x02\x91\x00\x30\x0A\x80\x04\x54\x65\ +\x73\x74\xA1\x02\x83\x00\x30\x0C\x80\x05\x43\x68\x65\x63\x6B\xA1\ +\x03\x84\x01\xFE\x30\x81\x8C\x80\x06\x43\x68\x6B\x48\x64\x75\xA1\ +\x81\x81\xA2\x7F\xA1\x7D\x30\x7B\x80\x04\x4F\x70\x65\x72\xA1\x73\ +\xA2\x71\xA1\x6F\x30\x0D\x80\x06\x63\x74\x6C\x56\x61\x6C\xA1\x03\ +\x85\x01\xC0\x30\x2C\x80\x06\x6F\x72\x69\x67\x69\x6E\xA1\x22\xA2\ +\x20\xA1\x1E\x30\x0C\x80\x05\x6F\x72\x43\x61\x74\xA1\x03\x85\x01\ +\x08\x30\x0E\x80\x07\x6F\x72\x49\x64\x65\x6E\x74\xA1\x03\x89\x01\ +\xC0\x30\x0D\x80\x06\x63\x74\x6C\x4E\x75\x6D\xA1\x03\x86\x01\x08\ +\x30\x07\x80\x01\x54\xA1\x02\x91\x00\x30\x0A\x80\x04\x54\x65\x73\ +\x74\xA1\x02\x83\x00\x30\x0C\x80\x05\x43\x68\x65\x63\x6B\xA1\x03\ +\x84\x01\xFE\x30\x81\x91\x80\x02\x43\x46\xA1\x81\x8A\xA2\x81\x87\ +\xA1\x81\x84\x30\x1C\x80\x03\x4D\x6F\x64\xA1\x15\xA2\x13\xA1\x11\ +\x30\x0F\x80\x08\x63\x74\x6C\x4D\x6F\x64\x65\x6C\xA1\x03\x85\x01\ +\x08\x30\x20\x80\x07\x4F\x70\x43\x6E\x74\x52\x73\xA1\x15\xA2\x13\ +\xA1\x11\x30\x0F\x80\x08\x63\x74\x6C\x4D\x6F\x64\x65\x6C\xA1\x03\ +\x85\x01\x08\x30\x21\x80\x08\x4E\x75\x6D\x43\x6E\x74\x52\x73\xA1\ +\x15\xA2\x13\xA1\x11\x30\x0F\x80\x08\x63\x74\x6C\x4D\x6F\x64\x65\ +\x6C\xA1\x03\x85\x01\x08\x30\x1F\x80\x06\x43\x68\x6B\x48\x64\x75\ +\xA1\x15\xA2\x13\xA1\x11\x30\x0F\x80\x08\x63\x74\x6C\x4D\x6F\x64\ +\x65\x6C\xA1\x03\x85\x01\x08\x30\x81\xFE\x80\x02\x44\x43\xA1\x81\ +\xF7\xA2\x81\xF4\xA1\x81\xF1\x30\x19\x80\x06\x48\x65\x61\x6C\x74\ +\x68\xA1\x0F\xA2\x0D\xA1\x0B\x30\x09\x80\x01\x64\xA1\x04\x8A\x02\ +\xFF\x01\x30\x4B\x80\x06\x4E\x61\x6D\x50\x6C\x74\xA1\x41\xA2\x3F\ +\xA1\x3D\x30\x0E\x80\x06\x76\x65\x6E\x64\x6F\x72\xA1\x04\x8A\x02\ +\xFF\x01\x30\x0D\x80\x05\x73\x77\x52\x65\x76\xA1\x04\x8A\x02\xFF\ +\x01\x30\x09\x80\x01\x64\xA1\x04\x8A\x02\xFF\x01\x30\x11\x80\x09\ +\x63\x6F\x6E\x66\x69\x67\x52\x65\x76\xA1\x04\x8A\x02\xFF\x01\x30\ +\x1A\x80\x07\x4F\x70\x43\x6E\x74\x52\x73\xA1\x0F\xA2\x0D\xA1\x0B\ +\x30\x09\x80\x01\x64\xA1\x04\x8A\x02\xFF\x01\x30\x1B\x80\x08\x4E\ +\x75\x6D\x43\x6E\x74\x52\x73\xA1\x0F\xA2\x0D\xA1\x0B\x30\x09\x80\ +\x01\x64\xA1\x04\x8A\x02\xFF\x01\x30\x19\x80\x06\x43\x68\x6B\x48\ +\x64\x75\xA1\x0F\xA2\x0D\xA1\x0B\x30\x09\x80\x01\x64\xA1\x04\x8A\ +\x02\xFF\x01\x30\x18\x80\x05\x4D\x65\x6D\x4F\x76\xA1\x0F\xA2\x0D\ +\xA1\x0B\x30\x09\x80\x01\x64\xA1\x04\x8A\x02\xFF\x01\x30\x19\x80\ +\x06\x4E\x75\x6D\x52\x63\x64\xA1\x0F\xA2\x0D\xA1\x0B\x30\x09\x80\ +\x01\x64\xA1\x04\x8A\x02\xFF\x01\x30\x2A\x80\x02\x45\x58\xA1\x24\ +\xA2\x22\xA1\x20\x30\x1E\x80\x06\x43\x68\x6B\x48\x64\x75\xA1\x14\ +\xA2\x12\xA1\x10\x30\x0E\x80\x06\x64\x61\x74\x61\x4E\x73\xA1\x04\ +\x8A\x02\xFF\x01"; +#endif + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _mvl_process_getvaa_ind */ +/* A 'Get Variable Access Attributes' indication has been received, */ +/* process it and respond */ +/************************************************************************/ + +ST_VOID _mvl_process_getvaa_ind (MVL_IND_PEND *indCtrl) + { + indCtrl->u.getvar.req_info = + (GETVAR_REQ_INFO *) indCtrl->event->u.mms.dec_rslt.data_ptr; + + u_mvl_getvar_ind (indCtrl); + } + +/************************************************************************/ +/* mvlas_getvar_resp */ +/************************************************************************/ +ST_VOID mvlas_getvar_resp (MVL_IND_PEND *indCtrl) + { +GETVAR_REQ_INFO *req_info; +GETVAR_RESP_INFO resp_info; +MVL_VAR_ASSOC *va; +ST_RET rc; +ST_UCHAR *asn1_buf; +ST_INT asn1_len; +ST_UCHAR *asn1_start; +ASN1_ENC_CTXT localEncCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_ENC_CTXT *aCtx = &localEncCtx; +MVL_TYPE_CTRL *type_ctrl; + + req_info = indCtrl->u.getvar.req_info; + + asn1_buf = (ST_UCHAR *) M_MALLOC (MSMEM_ASN1_DATA_ENC, mvl_cfg_info->max_msg_size); + + rc = SD_FAILURE; + if (req_info->req_tag == 0) /* Object Name */ + { + va = _mvl_objname_to_va (&mvl_vmd, indCtrl->event->net_info, MMSOP_GET_VAR, &req_info->name, + NULL, + SD_FALSE, + NULL, + NULL); + + if (va) + { + resp_info.mms_deletable = SD_FALSE; + resp_info.address_pres = SD_FALSE; + + /* We will derive the ASN.1 directly from the runtime type. */ + /* This takes a bit more code, but if we have Lot's of types we can */ + /* save space. */ + + type_ctrl = mvl_type_ctrl_find (va->type_id); /* find type */ + + asn1r_strt_asn1_bld (aCtx, asn1_buf, mvl_cfg_info->max_msg_size); + rc = ms_runtime_to_asn1 (aCtx, type_ctrl->rt, type_ctrl->num_rt); + if (rc == SD_SUCCESS) + { + asn1_start = aCtx->asn1r_field_ptr+1; + asn1_len = (asn1_buf + mvl_cfg_info->max_msg_size) - asn1_start; + + resp_info.type_spec.len = asn1_len; + resp_info.type_spec.data = asn1_start; + } + else + { + MVL_LOG_NERR1 ("GetVarAccAttrib : VarName='%s'. Could not create ASN.1 from RUNTIME. Probably MMS msgsize to small.", + req_info->name.obj_name.vmd_spec); + } + +#if defined(MVL_UCA) || defined(USE_MANUFACTURED_OBJS) + if (va->va_to_free) + u_mvl_free_va (MMSOP_GET_VAR, va, indCtrl->event->net_info); +#endif /* defined(MVL_UCA) || defined(USE_MANUFACTURED_OBJS) */ + } + else + { + MVL_LOG_NERR1 ("GetVarAccAttrib : Variable Association '%s' not found", + req_info->name.obj_name.vmd_spec); + } + } /* End 'if object (variable name) */ + + if (rc != SD_SUCCESS) + _mplas_err_resp (indCtrl,MMS_ERRCLASS_ACCESS,MMS_ERRCODE_OBJ_NON_EXISTENT); + else + { +#if defined(_S_TEST_PROBES) + if (_sTestProbeEnabled(_MVL_TEST_RETURN_BAD_TYPE)) + { + SLOGALWAYS0 ("TEST: Sending bad type for getVaa"); + resp_info.type_spec.data = misencodedPDU; + resp_info.type_spec.len = 1316; /* 0x524 in Hex */ + } +#endif + indCtrl->u.getvar.resp_info = &resp_info; + mplas_getvar_resp (indCtrl); + } + + M_FREE (MSMEM_ASN1_DATA_ENC, asn1_buf); + } + +/************************************************************************/ +/* mplas_getvar_resp */ +/************************************************************************/ +ST_VOID mplas_getvar_resp (MVL_IND_PEND *indCtrl) + { +ST_RET rc; + + rc = mpl_getvar_resp (indCtrl->event->u.mms.dec_rslt.id, + indCtrl->u.getvar.resp_info); + if (rc == SD_SUCCESS) + mpl_resp_log (indCtrl, indCtrl->u.getvar.resp_info); + + _mvl_send_resp_i (indCtrl, rc); + } diff --git a/mmslib/mvlu/s_getvla.c b/mmslib/mvlu/s_getvla.c new file mode 100644 index 0000000..69d19a7 --- /dev/null +++ b/mmslib/mvlu/s_getvla.c @@ -0,0 +1,167 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1994 - 1996, All Rights Reserved */ +/* */ +/* MODULE NAME : s_getvla.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* _mvl_process_getvla_ind */ +/* mvlas_getvlist_resp */ +/* mplas_getvlist_resp */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/09/07 MDE 17 Enhanced filtered logging */ +/* 11/02/06 JRB 16 mplas_err_resp: fix class/code for IEC 61850.*/ +/* 10/30/06 JRB 15 Use new mvl_vmd_* object handling functions. */ +/* Elim use of global var "_mvl_curr_net_info". */ +/* 08/09/06 JRB 14 For MVL_UCA, call mvl_find_nvl */ +/* (DO NOT call u_mvl_get_nvl, u_mvl_free_nvl). */ +/* 09/21/01 JRB 13 Alloc global bufs only once at startup. */ +/* 03/30/01 MDE 12 Changed MSMEM_ENC_INFO to MSMEM_ENC_OS_INFO */ +/* 10/25/00 JRB 11 Del u_mvl funct ptrs. Call functs directly. */ +/* Control with #ifdefs. */ +/* 01/21/00 MDE 10 Now use MEM_SMEM for dynamic memory */ +/* 09/13/99 MDE 09 Added SD_CONST modifiers */ +/* 09/07/99 MDE 08 Changed MVL_VA_SCOPE to MVL_SCOPE */ +/* 01/15/99 JRB 07 IF (u_mvl_get_nvl_fun != NULL) call it, */ +/* ELSE call "mvl_find_nvl". */ +/* 12/11/98 MDE 06 Removed scope references from VA */ +/* 11/16/98 MDE 05 Renamed internal functions (prefix '_') */ +/* 09/21/98 MDE 04 Minor lint cleanup */ +/* 06/15/98 MDE 03 Changes to allow compile under C++ */ +/* 05/14/98 JRB 02 Use MVL_IND_PEND. Add mvlas resp function. */ +/* Use new mms_deletable in MVL_NVLIST_CTRL. */ +/* 09/10/97 MDE 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "mmsdefs.h" +#include "mms_pvmd.h" +#include "mvl_defs.h" +#include "mvl_log.h" + + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + + +/************************************************************************/ +/************************************************************************/ +/* _mvl_process_getvla_ind */ +/* A 'Get Variable List Attributes' indication has been received, */ +/* process it and respond */ +/************************************************************************/ + +ST_VOID _mvl_process_getvla_ind (MVL_IND_PEND *indCtrl) + { + indCtrl->u.getvlist.req_info = + (GETVLIST_REQ_INFO *) indCtrl->event->u.mms.dec_rslt.data_ptr; + + u_mvl_getvlist_ind (indCtrl); + } + +/************************************************************************/ +/* mvlas_getvlist_resp */ +/************************************************************************/ +ST_VOID mvlas_getvlist_resp (MVL_IND_PEND *indCtrl) + { +GETVLIST_REQ_INFO *req_info; +GETVLIST_RESP_INFO *resp_info; +MVL_NVLIST_CTRL *nvlist; +ST_INT num_var; +ST_INT i; +VARIABLE_LIST *vl; +MVL_VAR_ASSOC *va; +MVL_SCOPE *va_scope; +MVL_SCOPE vmdVaScope; + + req_info = indCtrl->u.getvlist.req_info; + +/* Now find the named variable list */ +#if defined(USE_MANUFACTURED_OBJS) + nvlist = u_mvl_get_nvl (MMSOP_GET_VLIST, &req_info->vl_name, + indCtrl->event->net_info); +#else /* default */ + nvlist = mvl_vmd_find_nvl (&mvl_vmd, &req_info->vl_name, indCtrl->event->net_info); +#endif /* default */ + + if (nvlist) + { + num_var = nvlist->num_of_entries; + resp_info = (GETVLIST_RESP_INFO *) + M_CALLOC (MSMEM_ENC_OS_INFO, 1, sizeof(GETVLIST_RESP_INFO) + + (num_var * sizeof(VARIABLE_LIST))); + resp_info->mms_deletable = nvlist->mms_deletable; + resp_info->num_of_variables = num_var; + vl = (VARIABLE_LIST *) (resp_info + 1); + for (i = 0; i < num_var; ++i, ++vl) + { + va = nvlist->entries[i]; + + /* For backwards compatibility only ... */ + if (nvlist->va_scope != NULL) + va_scope = &nvlist->va_scope[i]; + else + { + MVL_LOG_NERR0 ("Warning: Info Rpt nvl->va_scope is NULL, using VMD scope"); + va_scope = &vmdVaScope; + va_scope->scope = VMD_SPEC; + } + + vl->alt_access_pres = SD_FALSE; + vl->var_spec.var_spec_tag = VA_SPEC_NAMED; + + /* We know this is a union so the following line is OK ... */ + vl->var_spec.vs.name.obj_name.vmd_spec = va->name; + vl->var_spec.vs.name.object_tag = va_scope->scope; + if (va_scope->scope == DOM_SPEC) + vl->var_spec.vs.name.domain_id = va_scope->dom->name; + } + + indCtrl->u.getvlist.resp_info = resp_info; + + mplas_getvlist_resp (indCtrl); + +#if defined(USE_MANUFACTURED_OBJS) + u_mvl_free_nvl (MMSOP_GET_VLIST, nvlist, indCtrl->event->net_info); +#endif + + M_FREE (MSMEM_ENC_OS_INFO, resp_info); + } + else + { + MVL_LOG_NERR0 ("Get Var List Attributes Indication : could not find the list"); + _mplas_err_resp (indCtrl,MMS_ERRCLASS_DEFINITION,MMS_ERRCODE_OBJ_UNDEFINED); + } + } + +/************************************************************************/ +/* mplas_getvlist_resp */ +/************************************************************************/ + +ST_VOID mplas_getvlist_resp (MVL_IND_PEND *indCtrl) + { +ST_RET rc; + + rc = mpl_getvlist_resp (indCtrl->event->u.mms.dec_rslt.id, + indCtrl->u.getvlist.resp_info); + if (rc == SD_SUCCESS) + mpl_resp_log (indCtrl, indCtrl->u.getvlist.resp_info); + + _mvl_send_resp_i (indCtrl, rc); + } + diff --git a/mmslib/mvlu/s_ident.c b/mmslib/mvlu/s_ident.c new file mode 100644 index 0000000..c682429 --- /dev/null +++ b/mmslib/mvlu/s_ident.c @@ -0,0 +1,65 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1996 - 1996, All Rights Reserved */ +/* */ +/* MODULE NAME : s_ident.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* NONE */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/09/07 MDE 11 Enhanced filtered logging */ +/* 03/11/04 GLB 10 Remove "thisFileName" */ +/* 09/21/01 JRB 09 Alloc global bufs only once at startup. */ +/* 01/21/00 MDE 08 Now use MEM_SMEM for dynamic memory */ +/* 09/13/99 MDE 07 Added SD_CONST modifiers */ +/* 04/01/99 MDE 06 Changes to decode buffer allocation scheme */ +/* 11/16/98 MDE 05 Renamed internal functions (prefix '_') */ +/* 09/21/98 MDE 04 Minor lint cleanup */ +/* 06/15/98 MDE 03 Changes to allow compile under C++ */ +/* 05/14/98 JRB 02 Use MVL_IND_PEND. Add mplas resp function. */ +/* 09/10/97 MDE 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "mmsdefs.h" +#include "mms_pvmd.h" +#include "mvl_defs.h" +#include "mvl_log.h" + +/************************************************************************/ +/************************************************************************/ +/* _mvl_process_ident_ind */ +/* A identify indication has been received, process it and respond */ +/************************************************************************/ + +ST_VOID _mvl_process_ident_ind (MVL_IND_PEND *indCtrl) + { + /* There is no Request Info for this service. Just call user function.*/ + u_mvl_ident_ind (indCtrl); + } + +/************************************************************************/ +/* mplas_ident_resp */ +/************************************************************************/ +ST_VOID mplas_ident_resp (MVL_IND_PEND *indCtrl) + { +ST_RET rc; + +/* Build an identify response */ + rc = mpl_ident_resp (indCtrl->event->u.mms.dec_rslt.id, + indCtrl->u.ident.resp_info); + if (rc == SD_SUCCESS) + mpl_resp_log (indCtrl, indCtrl->u.ident.resp_info); + + _mvl_send_resp_i (indCtrl, rc); + } + diff --git a/mmslib/mvlu/s_info.c b/mmslib/mvlu/s_info.c new file mode 100644 index 0000000..04138a7 --- /dev/null +++ b/mmslib/mvlu/s_info.c @@ -0,0 +1,219 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1994 - 1996, All Rights Reserved */ +/* */ +/* MODULE NAME : s_info.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* NONE */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/09/07 MDE 20 Enhanced filtered logging */ +/* 01/30/06 GLB 19 Integrated porting changes for VMS */ +/* 12/12/02 JRB 18 Add & use mvl_encode_info_rpt funct. */ +/* Use new thread-safe mpl_info,_mvl_send_msg */ +/* and skip S_LOCK.. */ +/* Pass net_info to mvl_get_va_asn1_data so */ +/* don't need mvl_curr_net_info global var. */ +/* 07/10/02 JRB 17 Call mvl_ureq_bufs_avail. */ +/* 02/25/02 MDE 16 Now get max PDU size from mvl_cfg_info */ +/* 09/21/01 JRB 15 Alloc global bufs only once at startup. */ +/* 03/30/01 MDE 14 Changed MSMEM_ENC_INFO to MSMEM_ENC_OS_INFO */ +/* 10/06/00 MDE 13 Added LOCK/UNLOCK */ +/* 08/07/00 JRB 12 Set scope & domain name correctly for NVL. */ +/* 05/15/00 MDE 11 Added MMS statistics */ +/* 04/14/00 JRB 10 Lint cleanup. */ +/* 01/21/00 MDE 09 Now use MEM_SMEM for dynamic memory */ +/* 09/13/99 MDE 08 Added SD_CONST modifiers */ +/* 09/07/99 MDE 07 Changed MVL_VA_SCOPE to MVL_SCOPE */ +/* 12/11/98 MDE 06 Removed scope references from VA */ +/* 11/16/98 MDE 05 Renamed internal functions (prefix '_') */ +/* 06/15/98 MDE 04 Changes to allow compile under C++ */ +/* 02/10/98 MDE 03 Removed NEST_RT_TYPES, always support AA */ +/* 09/18/97 MDE 02 Fixed problem when no nvl->altAcc */ +/* 09/10/97 MDE 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" + +#include "mmsdefs.h" +#include "mms_pvar.h" +#include "mms_vvar.h" +#include "mvl_acse.h" +#include "mvl_log.h" +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/************************************************************************/ + +ST_RET mvl_info_variables (MVL_NET_INFO *net_info, MVL_NVLIST_CTRL *nvl, + ST_BOOLEAN listOfVariables) + { +ST_RET rc; +ASN1_ENC_CTXT aCtx; +ST_UCHAR *my_enc_buf; + + if (mvl_ureq_bufs_avail (net_info) <= 0) + { + MVL_LOG_ERR0 ("Not enough ACSE buffers available to send InformationReport"); + return (MVL_ERR_REQ_PEND_COUNT); + } + + my_enc_buf = (ST_UCHAR *) mvl_enc_buf_alloc (mmsl_enc_buf_size); + asn1r_strt_asn1_bld (&aCtx, my_enc_buf, mmsl_enc_buf_size);/*CRITICAL*/ + rc = mvl_encode_info_rpt (net_info, nvl, listOfVariables, &aCtx); + if (rc == SD_SUCCESS) + { /* Encode was successful, go ahead and send. */ + rc = _mvl_send_msg (ASN1_ENC_PTR(&aCtx),ASN1_ENC_LEN(&aCtx),net_info); + if (rc == SD_SUCCESS) /* _mvl_send_msg logs on any error. */ + ++mvl_mms_statistics.serverInfoRpt; + } + mvl_enc_buf_free (my_enc_buf); + return(rc); + } + +/************************************************************************/ +/* mvl_encode_info_rpt */ +/************************************************************************/ +ST_RET mvl_encode_info_rpt (MVL_NET_INFO *net_info, + MVL_NVLIST_CTRL *nvl, + ST_BOOLEAN listOfVariables, + ASN1_ENC_CTXT *aCtx) + { +ST_RET rc; +INFO_REQ_INFO *info_info; +ACCESS_RESULT *ar; +ST_INT req_info_size; +MVL_VAR_ASSOC *va; +MVL_SCOPE *va_scope; +MVL_SCOPE vmdVaScope; +ST_UCHAR *asn1_buf; +ST_UCHAR *asn1_start; +ST_INT asn1_len; +ST_INT asn1_buf_left; +VARIABLE_LIST *vl; +ST_INT num_var; +ST_INT i; +ST_BOOLEAN alt_access_pres; +ALT_ACCESS *alt_acc; + + va = *nvl->entries; + num_var = nvl->num_of_entries; + +/* Calculate the required size for the info report information */ + req_info_size = sizeof(INFO_REQ_INFO) + + (num_var * sizeof(ACCESS_RESULT)); + +/* May need to add some more to handle the variable specification */ + if (listOfVariables == SD_TRUE) + req_info_size += (num_var * sizeof(VARIABLE_LIST)); + + info_info = (INFO_REQ_INFO *) M_CALLOC (MSMEM_ENC_OS_INFO, 1, req_info_size); + info_info->num_of_acc_result = num_var; + +/* We need to create the variable specification - either a list of */ +/* variables or a named variable list */ + if (listOfVariables == SD_TRUE) + { + info_info->va_spec.var_acc_tag = VAR_ACC_VARLIST; + info_info->va_spec.num_of_variables = num_var; + + vl = (VARIABLE_LIST *) (info_info + 1); + for (i = 0; i < nvl->num_of_entries; ++i, ++vl) + { + va = nvl->entries[i]; + + /* For backwards compatibility only ... */ + if (nvl->va_scope != NULL) + va_scope = &nvl->va_scope[i]; + else + { + MVL_LOG_NERR0 ("Warning: Info Rpt nvl->va_scope is NULL, using VMD scope"); + va_scope = &vmdVaScope; + va_scope->scope = VMD_SPEC; + } + + /* We know this is a union so the following line is OK ... */ + vl->var_spec.vs.name.obj_name.vmd_spec = va->name; + vl->var_spec.vs.name.object_tag = va_scope->scope; + if (va_scope->scope == DOM_SPEC) + vl->var_spec.vs.name.domain_id = va_scope->dom->name; + + } + info_info->acc_rslt_list = (ACCESS_RESULT *) (vl); + } + else /* Named Variable List */ + { + info_info->va_spec.var_acc_tag = VAR_ACC_NAMEDLIST; + info_info->va_spec.vl_name.object_tag = nvl->nvl_scope.scope; + if (nvl->nvl_scope.scope == DOM_SPEC) + info_info->va_spec.vl_name.domain_id = nvl->nvl_scope.dom->name; + info_info->va_spec.vl_name.obj_name.vmd_spec = nvl->name; + info_info->acc_rslt_list = (ACCESS_RESULT *) (info_info + 1); + } + ar = info_info->acc_rslt_list; + + asn1_buf = (ST_UCHAR *) M_MALLOC (MSMEM_ASN1_DATA_ENC, mvl_cfg_info->max_msg_size); + asn1_buf_left = mvl_cfg_info->max_msg_size; + +/* Now encode the data, create the access result */ + asn1_start = asn1_buf; + + for (i = 0; i < nvl->num_of_entries; ++i, ++ar) + { + va = nvl->entries[i]; + alt_access_pres = SD_FALSE; + if (nvl->altAcc) + { + alt_acc = nvl->altAcc[i]; + if (alt_acc != NULL) + alt_access_pres = SD_TRUE; + } + else + alt_acc = NULL; /* Just so it's initialized. Eliminates warning.*/ + rc = mvl_get_va_asn1_data (net_info, va, alt_access_pres, alt_acc, asn1_start, + asn1_buf_left, &asn1_len); + + if (rc == SD_SUCCESS) + { + ar->acc_rslt_tag = ACC_RSLT_SUCCESS; + ar->va_data.len = asn1_len; + ar->va_data.data = asn1_start; + asn1_buf_left -= asn1_len; /* adjust buffer control variables */ + asn1_start += asn1_len; + } + else + { + ar->acc_rslt_tag = ACC_RSLT_FAILURE; + ar->failure = ARE_TYPE_INCONSISTENT; + } + } + + /* Build a info request */ + rc = mpl_info (aCtx, info_info); + + /* Log the PDU, if enabled */ + mpl_unsol_req_log (net_info, MMSOP_INFO_RPT, info_info); + + M_FREE (MSMEM_ENC_OS_INFO, info_info); + M_FREE (MSMEM_ASN1_DATA_ENC, asn1_buf); + if (rc != SD_SUCCESS) + MVL_LOG_NERR1 ("mvl_encode_info_rpt error = %x", rc); + + return (rc); + } diff --git a/mmslib/mvlu/s_jinit.c b/mmslib/mvlu/s_jinit.c new file mode 100644 index 0000000..ecbb3d1 --- /dev/null +++ b/mmslib/mvlu/s_jinit.c @@ -0,0 +1,69 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1996 - 1996, All Rights Reserved */ +/* */ +/* MODULE NAME : s_jinit.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* _mvl_process_jinit_ind */ +/* mplas_jinit_resp */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/09/07 MDE 11 Enhanced filtered logging */ +/* 03/11/04 GLB 10 Remove "thisFileName" */ +/* 09/21/01 JRB 09 Alloc global bufs only once at startup. */ +/* 01/21/00 MDE 08 Now use MEM_SMEM for dynamic memory */ +/* 09/13/99 MDE 07 Added SD_CONST modifiers */ +/* 04/01/99 MDE 06 Changes to decode buffer allocation scheme */ +/* 11/16/98 MDE 05 Renamed internal functions (prefix '_') */ +/* 09/21/98 MDE 04 Minor lint cleanup */ +/* 06/15/98 MDE 03 Changes to allow compile under C++ */ +/* 05/14/98 JRB 02 Use MVL_IND_PEND. Add mvlas resp function. */ +/* 11/04/97 MDE 01 Created */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "mmsdefs.h" +#include "mms_pvmd.h" +#include "mvl_defs.h" +#include "mvl_log.h" + + +/************************************************************************/ +/************************************************************************/ +/* _mvl_process_jinit_ind */ +/* A Initialize Journal indication has been rcved, process and respond */ +/************************************************************************/ + +ST_VOID _mvl_process_jinit_ind (MVL_IND_PEND *indCtrl) + { + indCtrl->u.jinit.req_info = + (JINIT_REQ_INFO *) indCtrl->event->u.mms.dec_rslt.data_ptr; + + u_mvl_jinit_ind (indCtrl); + } + +/************************************************************************/ +/* mplas_jinit_resp */ +/************************************************************************/ +ST_VOID mplas_jinit_resp (MVL_IND_PEND *indCtrl) + { +ST_RET rc; + + /* Build a jinit response */ + rc = mpl_jinit_resp (indCtrl->event->u.mms.dec_rslt.id, + indCtrl->u.jinit.resp_info); + if (rc == SD_SUCCESS) + mpl_resp_log (indCtrl, indCtrl->u.jinit.resp_info); + + _mvl_send_resp_i (indCtrl, rc); + } + diff --git a/mmslib/mvlu/s_jread.c b/mmslib/mvlu/s_jread.c new file mode 100644 index 0000000..065d6e0 --- /dev/null +++ b/mmslib/mvlu/s_jread.c @@ -0,0 +1,337 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1996 - 1996, All Rights Reserved */ +/* */ +/* MODULE NAME : s_jread.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* _mvl_process_jread_ind */ +/* mvlas_jread_resp */ +/* mplas_jread_resp */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/09/07 MDE 21 Enhanced filtered logging */ +/* 10/30/06 JRB 20 Use new mvl_vmd_* object handling functions. */ +/* 01/30/06 GLB 19 Integrated porting changes for VMS */ +/* 03/28/05 JRB 18 Del suicacse header. */ +/* 02/25/02 MDE 17 Now get max PDU size from mvl_cfg_info */ +/* 09/21/01 JRB 16 Alloc global bufs only once at startup. */ +/* 03/30/01 MDE 15 Changed MSMEM_ENC_INFO to MSMEM_ENC_OS_INFO */ +/* 01/21/00 MDE 14 Now use MEM_SMEM for dynamic memory */ +/* 09/13/99 MDE 13 Added SD_CONST modifiers */ +/* 08/30/99 JRB 12 DON'T log after mplas_err_resp (causes GPF). */ +/* 01/15/99 JRB 11 Call mvl_find_jou to find journal. */ +/* 11/16/98 MDE 10 Renamed internal functions (prefix '_') */ +/* 10/09/98 JRB 09 Use modified MVL_JOURNAL_ENTRY. */ +/* 09/21/98 MDE 08 Minor lint cleanup */ +/* 09/10/98 JRB 07 Make sure moreFollows set correctly. */ +/* 07/16/98 MDE 06 More journal work */ +/* 07/15/98 MDE 05 Changed Journal Read user functions */ +/* 06/15/98 MDE 04 Changes to allow compile under C++ */ +/* 05/14/98 JRB 03 Use MVL_IND_PEND. Add mvlas resp function. */ +/* 05/14/98 JRB 02 Fixed uninitialized pointers, etc. */ +/* 11/04/97 MDE 01 Created */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "mmsdefs.h" +#include "mms_pvmd.h" +#include "mvl_acse.h" +#include "mvl_log.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/************************************************************************/ +/* Local variables and functions */ + +static MVL_JREAD_BUF_CTRL _bufCtrl; +static ST_UCHAR *_asn1BufStart; +static ST_INT _asn1BufLeft; + +static ST_RET mvlJe_to_je (JOURNAL_ENTRY *je, MVL_JOURNAL_ENTRY *mvlJe); + +/************************************************************************/ +/************************************************************************/ +/* _mvl_process_jread_ind */ +/* A Read Journal indication has been rcved, process and respond */ +/************************************************************************/ + +ST_VOID _mvl_process_jread_ind (MVL_IND_PEND *indCtrl) + { + indCtrl->u.jread.req_info = + (JREAD_REQ_INFO *) indCtrl->event->u.mms.dec_rslt.data_ptr; + + u_mvl_jread_ind (indCtrl); + } + +/************************************************************************/ +/* mvlas_jread_resp */ +/* This is the Virtual Machine response function for ReadJournal. */ +/* It calls the following user functions to manage the Journal data: */ +/* u_mvl_start_jread */ +/* u_mvl_get_next_jread_entry */ +/* u_mvl_free_jread_entry */ +/* u_mvl_end_jread */ +/************************************************************************/ +ST_RET app_start_jread(MVL_JOURNAL_CTRL *jCtrl,JREAD_REQ_INFO *reqInfo,MVL_JREAD_BUF_CTRL *bufCtrl, + void **usrHandleOut); +ST_VOID mvlas_jread_resp (MVL_IND_PEND *indCtrl) + { +ST_RET rc; +JREAD_REQ_INFO *reqInfo; +JREAD_RESP_INFO *respInfo; +JOURNAL_ENTRY *je; +ST_BOOLEAN moreFollows = SD_FALSE; /* Would never get set if 0 entries*/ +MVL_JOURNAL_CTRL *jCtrl; +MVL_JOURNAL_ENTRY mvlJe; +MVL_JOURNAL_ENTRY *mvlJep; +ST_VOID *usrHandle; +ST_UCHAR *asn1_buf; +ST_INT i; + + reqInfo = indCtrl->u.jread.req_info; +/* First find our Journal Control element */ + jCtrl = mvl_vmd_find_jou (&mvl_vmd, &reqInfo->jou_name, indCtrl->event->net_info); + if (jCtrl == NULL) + { + MVL_LOG_NERR1 ("ReadJournal - could not find journal '%s'", + reqInfo->jou_name.obj_name.vmd_spec); + printf("ReadJournal - could not find journal '%s'\n", + reqInfo->jou_name.obj_name.vmd_spec); + _mplas_err_resp (indCtrl, 2, 1); /* object undefined */ + return; + } + +/* Give the user the JREAD request information */ + memset (&_bufCtrl, 0, sizeof (MVL_JREAD_BUF_CTRL)); + /* renxiaobao ÈÕÖ¾*/ +/*rc = u_mvl_start_jread (jCtrl, reqInfo, &_bufCtrl, &usrHandle);*/ + rc = app_start_jread(jCtrl, reqInfo, &_bufCtrl, &usrHandle); + if (rc != SD_SUCCESS) + { + _mplas_err_resp (indCtrl, 2, 1); /* object undefined */ + return; + } + +/* Limit the number we will return */ + if (_bufCtrl.numUsrEntries > MAX_JREAD_RESP_ENTRIES) + _bufCtrl.numUsrEntries = MAX_JREAD_RESP_ENTRIES; + + if (_bufCtrl.numVarInfo > MAX_JREAD_RESP_VARS) + _bufCtrl.numVarInfo = MAX_JREAD_RESP_VARS; + +/* Allocate the response information data buffer */ + respInfo = + (JREAD_RESP_INFO *) M_CALLOC (MSMEM_ENC_OS_INFO, 1, sizeof (JREAD_RESP_INFO) + + (_bufCtrl.numUsrEntries * sizeof (JOURNAL_ENTRY)) + + (_bufCtrl.numVarInfo * sizeof (VAR_INFO)) ); + +/* + //printf("respInfo size=%d \n ",sizeof (JREAD_RESP_INFO) + +// (_bufCtrl.numUsrEntries * sizeof (JOURNAL_ENTRY)) + +// (_bufCtrl.numVarInfo * sizeof (VAR_INFO))); +*/ +/* Set the storage buffer start locations */ +#if defined (MVL_JREAD_ENTRYID_DYNAMIC) + _bufCtrl.nextEntryId = _bufCtrl.entryIdBuf; +#endif +#if defined (MVL_JREAD_VARTAG_DYNAMIC) + _bufCtrl.nextVarTag = _bufCtrl.varTagBuf; +#endif +#if defined (MVL_JREAD_ANNOTATION_DYNAMIC) + _bufCtrl.nextAnnotation = _bufCtrl.annotationBuf; +#endif + +/* Allocate the ASN.1 data encode buffer */ + asn1_buf = (ST_UCHAR *) M_MALLOC (MSMEM_ASN1_DATA_ENC, mvl_cfg_info->max_msg_size); + _asn1BufStart = asn1_buf; + _asn1BufLeft = mvl_cfg_info->max_msg_size; + +/* Now get the journals from the user, one at a time */ + respInfo->num_of_jou_entry = 0; + je = (JOURNAL_ENTRY *) (respInfo + 1); + for (i = 0; i < _bufCtrl.numUsrEntries; ++i) + { + /* get the next from the user */ + mvlJep = &mvlJe; + rc = u_mvl_get_next_jread_entry (jCtrl, usrHandle, &moreFollows, &mvlJep); + if (rc != SD_SUCCESS) + { + moreFollows = SD_FALSE; /* Didn't get entry, so can't be more. */ + break; + } + + /* Map it onto the MMS-EASE JOURNAL_ENTRY */ + + rc = mvlJe_to_je (je, mvlJep); + /* Let the user free resources */ + u_mvl_free_jread_entry (jCtrl, usrHandle, mvlJep); + + /* Verify that the mapping was OK */ + if (rc != SD_SUCCESS) + { + M_FREE (MSMEM_ASN1_DATA_ENC, asn1_buf); + M_FREE (MSMEM_ENC_OS_INFO, respInfo); + _mplas_err_resp (indCtrl, 1, 3); /* application reference invalid */ + return; + } + + ++respInfo->num_of_jou_entry; + if (moreFollows == SD_FALSE) + break; + + /* We need to adjust the MMS-EASE JE pointer to the next position */ + /* Each JE is possibly followed by a array of VAR_INFO */ + if (je->ent_content.entry_form_tag == 2 && + je->ent_content.ef.data.list_of_var_pres) + { + je = (JOURNAL_ENTRY *) ((ST_CHAR *)je + sizeof (JOURNAL_ENTRY) + + je->ent_content.ef.data.num_of_var * sizeof (VAR_INFO)); + } + else + ++je; /* CRITICAL: don't try to access je after this */ + } + respInfo->more_follows = moreFollows; + +/* OK, the MMS-EASE data structure is ready to roll */ + + indCtrl->u.jread.resp_info = respInfo; + + mplas_jread_resp (indCtrl); + + M_FREE (MSMEM_ASN1_DATA_ENC, asn1_buf); + M_FREE (MSMEM_ENC_OS_INFO, respInfo); +/* Tell the user we are done */ + u_mvl_end_jread (jCtrl, usrHandle, &_bufCtrl, reqInfo); + } + +/************************************************************************/ +/* mplas_jread_resp */ +/************************************************************************/ +ST_VOID mplas_jread_resp (MVL_IND_PEND *indCtrl) + { +ST_RET rc; + + /* Build a jread response */ + rc = mpl_jread_resp (indCtrl->event->u.mms.dec_rslt.id, + indCtrl->u.jread.resp_info); + if (rc == SD_SUCCESS) + mpl_resp_log (indCtrl, indCtrl->u.jread.resp_info); + + _mvl_send_resp_i (indCtrl, rc); + } + + +/************************************************************************/ +/* mvlJe_to_je */ +/************************************************************************/ + +static ST_RET mvlJe_to_je (JOURNAL_ENTRY *je, MVL_JOURNAL_ENTRY *mvlJe) + { +ST_UCHAR *appRefAsn1Start; +ST_INT appRefAsn1Len; +ST_INT i; +ST_INT numVar; +ST_RET rc; +VAR_INFO *varInfo; + +/* First take care of the entry ID */ +#if defined (MVL_JREAD_ENTRYID_DYNAMIC) + je->entry_id_len = mvlJe->entry_id_len; + je->entry_id = _bufCtrl.nextEntryId; + memcpy (_bufCtrl.nextEntryId, mvlJe->entry_id, mvlJe->entry_id_len); + _bufCtrl.nextEntryId += mvlJe->entry_id_len; +#else + je->entry_id_len = mvlJe->entry_id_len; + je->entry_id = mvlJe->entry_id; +#endif + +/* Now take care of the application reference ... */ + rc = ms_appref_to_asn1 (&(mvlJe->orig_app), _asn1BufStart, _asn1BufLeft, + &appRefAsn1Start, &appRefAsn1Len); + if (rc == SD_SUCCESS) + { + je->orig_ae_len = appRefAsn1Len; + je->orig_ae = appRefAsn1Start; + + /* Adjust ASN.1 buffer control - this was built from the back, so */ + /* don't need to change the buffer start pointer. */ + _asn1BufLeft -= appRefAsn1Len; + } + else + { + MVL_LOG_ERR0 ("Error: ReadJournal.Resp: orig_app encode failed"); + return (rc); + } + +/* Now set up the entry content */ + +/* Occurance Time */ + memcpy (&(je->ent_content.occur_time), &(mvlJe->occur_time), + sizeof (MMS_BTOD)); + +/* No additional detail */ + je->ent_content.addl_detail_pres = SD_FALSE; + + je->ent_content.entry_form_tag = mvlJe->entry_form_tag; + if (mvlJe->entry_form_tag == 2) /* event/data */ + { + je->ent_content.ef.data.event_pres = mvlJe->ef.data.event_pres; + + memcpy (&(je->ent_content.ef.data.evcon_name), + &(mvlJe->ef.data.evcon_name), sizeof (OBJECT_NAME)); + je->ent_content.ef.data.cur_state = mvlJe->ef.data.cur_state; + + je->ent_content.ef.data.list_of_var_pres = mvlJe->ef.data.list_of_var_pres; + if (je->ent_content.ef.data.list_of_var_pres) + { + numVar = mvlJe->ef.data.num_of_var; + je->ent_content.ef.data.num_of_var = numVar; + + varInfo = (VAR_INFO *) (je + 1); + for (i = 0; i < numVar; ++i, ++varInfo) + { + /* OK, now tell MMS-EASE where the ASN.1 data is */ + varInfo->value_spec.data = mvlJe->ef.data.list_of_var[i].value_spec.data; + varInfo->value_spec.len = mvlJe->ef.data.list_of_var[i].value_spec.len; + + /* Now store the var_tag in our buffer and set the MMS pointer */ +#if defined (MVL_JREAD_VARTAG_DYNAMIC) + varInfo->var_tag = _bufCtrl.nextVarTag; + strcpy (_bufCtrl.nextVarTag, mvlJe->ef.data.list_of_var[i].var_tag); + _bufCtrl.nextVarTag += (strlen (_bufCtrl.nextVarTag) + 1); +#else + varInfo->var_tag = mvlJe->ef.data.list_of_var[i].var_tag; +#endif + } /* end "loop" */ + } /* end "if list_of_var_pres" */ + } + else /* entry form is annotation */ + { +#if defined (MVL_JREAD_ANNOTATION_DYNAMIC) + je->ent_content.ef.annotation = _bufCtrl.nextAnnotation; + strcpy (_bufCtrl.nextAnnotation, mvlJe->ef.annotation); + _bufCtrl.nextAnnotation += (strlen (_bufCtrl.nextAnnotation) + 1); +#else + je->ent_content.ef.annotation = mvlJe->ef.annotation; +#endif + } + return (SD_SUCCESS); + } + diff --git a/mmslib/mvlu/s_jstat.c b/mmslib/mvlu/s_jstat.c new file mode 100644 index 0000000..4ab8d6a --- /dev/null +++ b/mmslib/mvlu/s_jstat.c @@ -0,0 +1,67 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1998 - 1998, All Rights Reserved */ +/* */ +/* MODULE NAME : s_jstat.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* _mvl_process_jstat_ind */ +/* mplas_jstat_resp */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/09/07 MDE 10 Enhanced filtered logging */ +/* 03/11/04 GLB 09 Remove "thisFileName" */ +/* 09/21/01 JRB 08 Alloc global bufs only once at startup. */ +/* 01/21/00 MDE 07 Now use MEM_SMEM for dynamic memory */ +/* 09/13/99 MDE 06 Added SD_CONST modifiers */ +/* 04/01/99 MDE 05 Changes to decode buffer allocation scheme */ +/* 11/16/98 MDE 04 Renamed internal functions (prefix '_') */ +/* 09/21/98 MDE 03 Minor lint cleanup */ +/* 06/15/98 MDE 02 Changes to allow compile under C++ */ +/* 04/14/98 JRB 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "mmsdefs.h" +#include "mms_pfil.h" +#include "mvl_defs.h" +#include "mvl_log.h" + +/************************************************************************/ +/* _mvl_process_jstat_ind */ +/* A "jstat" indication has been received, process it and respond */ +/************************************************************************/ + +ST_VOID _mvl_process_jstat_ind (MVL_IND_PEND *indCtrl) + { + indCtrl->u.jstat.req_info = + (JSTAT_REQ_INFO *) indCtrl->event->u.mms.dec_rslt.data_ptr; + + u_mvl_jstat_ind (indCtrl); + } + +/************************************************************************/ +/* mplas_jstat_resp */ +/************************************************************************/ +ST_VOID mplas_jstat_resp (MVL_IND_PEND *indCtrl) + { +ST_RET rc; + + /* Build a jstat response */ + rc = mpl_jstat_resp (indCtrl->event->u.mms.dec_rslt.id, + indCtrl->u.jstat.resp_info); + if (rc == SD_SUCCESS) + mpl_resp_log (indCtrl, indCtrl->u.jstat.resp_info); + + _mvl_send_resp_i (indCtrl, rc); + } + + diff --git a/mmslib/mvlu/s_obtfi.c b/mmslib/mvlu/s_obtfi.c new file mode 100644 index 0000000..7dd6c5a --- /dev/null +++ b/mmslib/mvlu/s_obtfi.c @@ -0,0 +1,466 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1998 - 1999, All Rights Reserved */ +/* */ +/* MODULE NAME : s_obtfi.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* _mvl_process_obtfile_ind */ +/* mplas_obtfile_resp */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 11/12/07 MDE 10 Use _mvl_getpath for temp file path */ +/* 04/09/07 MDE 09 Enhanced filtered logging */ +/* 10/17/06 MDE 08 Added mvlas_obtfile_resp_ex */ +/* 01/30/06 GLB 07 Integrated porting changes for VMS */ +/* 02/04/03 MDE 06 Now use _mvl_tmpnam */ +/* 09/21/01 JRB 05 Alloc global bufs only once at startup. */ +/* 04/14/00 EJV 04 Added check for more error conditions in */ +/* u_fopen_done and u_fread_done */ +/* 03/21/00 JRB 03 Send err resp if tmpnam or fopen fails. */ +/* 01/21/00 MDE 02 Now use MEM_SMEM for dynamic memory */ +/* 10/15/99 GLB 01 Created to add Obtain File function */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" + +#include "mmsdefs.h" +#include "mms_pvmd.h" +#include "mvl_defs.h" +#include "mvl_log.h" + +#include +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +typedef struct filecopyinfo + { + ST_CHAR tempfilename[MVL_MAX_TMPNAM_LEN+1]; + ST_CHAR destfilename[MAX_FILE_NAME+1]; + MVL_IND_PEND *indCtrl; + FILE *fp; + ST_INT32 frsmid; + ST_UINT32 fsize; + ST_UINT32 fileSizeLimit; + } MVL_OBTFILE_STATE; + +MVL_REQ_PEND *send_file_open (MVL_NET_INFO *NetInfo, ST_CHAR *src); +MVL_REQ_PEND *send_file_read (MVL_NET_INFO *NetInfo, + MVL_OBTFILE_STATE *u_file_info); +MVL_REQ_PEND *send_file_close (MVL_NET_INFO *NetInfo, + MVL_OBTFILE_STATE *u_file_info); +ST_VOID u_fopen_done (MVL_REQ_PEND *req); +ST_VOID u_fread_done( MVL_REQ_PEND *req); +ST_VOID u_fclose_done( MVL_REQ_PEND *req); + + +/************************************************************************/ +/************************************************************************/ +/* _mvl_process_obtfile_ind */ +/* An Obtain File request has been sent and */ +/* An Obtain File indication was received, so process it and respond */ +/************************************************************************/ + +ST_VOID _mvl_process_obtfile_ind (MVL_IND_PEND *indCtrl) + { + OBTFILE_REQ_INFO *req_info; + MVLAS_OBTFILE_CTRL *obtfile; + FILE_NAME *fname_idx; + + + req_info = (OBTFILE_REQ_INFO *) indCtrl->event->u.mms.dec_rslt.data_ptr; + fname_idx = (FILE_NAME *)(req_info + 1); + + obtfile = &indCtrl->u.obtfile; + + if (_mvl_concat_filename (obtfile->srcfilename, req_info->num_of_src_fname, + fname_idx, sizeof (obtfile->srcfilename))) + { + MVL_LOG_ERR0 ("ObtFile error: _mvl_process_obtfile_ind failed (_mvl_concat_filename(srcfilename) failed)"); + _mplas_err_resp (indCtrl,11,3); /* 3 = File name syntax error */ + return; + } + + if (_mvl_concat_filename (obtfile->destfilename, req_info->num_of_dest_fname, + (FILE_NAME *)(fname_idx + req_info->num_of_src_fname), + sizeof (obtfile->destfilename))) + { + MVL_LOG_ERR0 ("ObtFile error: _mvl_process_obtfile_ind failed (_mvl_concat_filename(destfilename) failed)"); + _mplas_err_resp (indCtrl,11,3); /* 3 = File name syntax error */ + return; + } + + u_mvl_obtfile_ind (indCtrl); + } + +/************************************************************************/ +/* mvlas_obtfile_resp */ +/* Open a temp file to copy into and save the destination file name */ +/************************************************************************/ + +ST_VOID mvlas_obtfile_resp (MVL_IND_PEND *indCtrl) + { + mvlas_obtfile_resp_ex (indCtrl, 0); + } + +extern int mms_filename_conv(char *mms_name,char *sys_name); +ST_VOID mvlas_obtfile_resp_ex (MVL_IND_PEND *indCtrl, ST_UINT32 fileSizeLimit) + { + MVL_OBTFILE_STATE *obtfile_state; + MVL_REQ_PEND *req; + MVLAS_OBTFILE_CTRL *obtfile; + int ret; + ST_CHAR tmpfile_path[MVL_MAX_TMPFILE_PATH]; + ST_CHAR destfilename[MVL_MAX_TMPFILE_PATH]; + + obtfile = &indCtrl->u.obtfile; + + obtfile_state = (MVL_OBTFILE_STATE *) M_CALLOC (MSMEM_GEN, 1, sizeof (MVL_OBTFILE_STATE)); + /* save destination name for rename */ + + /*ÎļþÃûÓ³Éä*/ + ret = mms_filename_conv(obtfile->destfilename,destfilename); + if(!ret) printf("Îļþ%sÓ³Éäʧ°Ü...\n\r",obtfile->destfilename); + strcpy(obtfile->destfilename,destfilename); + + /*renxiaobao Îļþ²Ù×÷ + tmpfile_path[0] = 0; + if(obtfile->destfilename[0]!='/') strcpy (tmpfile_path, "/"); + strcat (tmpfile_path, obtfile->destfilename); + strcpy(obtfile->destfilename,tmpfile_path);*/ + + strncpy (obtfile_state->destfilename, obtfile->destfilename, MAX_FILE_NAME+1); + + obtfile_state->indCtrl = indCtrl; + /* Create a temporary file name to copy into. This prevents partially */ + /* transferred files from hanging around and being accidently used */ + /* Open the created temporary file. Send the file open request. */ + + _mvl_getpath (destfilename, tmpfile_path); + + if (_mvl_tmpnam (obtfile_state->tempfilename, tmpfile_path) != SD_SUCCESS || + (obtfile_state->fp = fopen(obtfile_state->tempfilename, "wb")) == NULL || + (req = send_file_open (indCtrl->event->net_info,obtfile->srcfilename)) == NULL) + { + if ( obtfile_state->fp ) + { + MVL_LOG_ERR0 ("ObtFile error: mvlas_obtfile_resp failed (fopen failed)"); + fclose (obtfile_state->fp); /* close temporary file */ + remove (obtfile_state->tempfilename); /* get rid of temporary file */ + } + else + { + MVL_LOG_ERR1 ("ObtFile: mvlas_obtfile_resp failed (invalid tmpnam (%s) or send_file_open failed)", + obtfile_state->tempfilename); + } + _mplas_err_resp (indCtrl,11,0); /* 0 = other */ + } + else + { + req->v = obtfile_state; + obtfile_state->fileSizeLimit = fileSizeLimit; + } + } + +/************************************************************************/ +/* send_file_open */ +/* Send a file open request to open file on the other side */ +/************************************************************************/ + +MVL_REQ_PEND *send_file_open (MVL_NET_INFO *NetInfo, ST_CHAR *src) + { +MVL_REQ_PEND *req= NULL; + + if ((mvla_fopen(NetInfo, src, 0, &req)) == SD_SUCCESS) + { + req->u_req_done = u_fopen_done; + } + return (req); + } + +/************************************************************************/ +/* u_fopen_done */ +/* It was indicated that a file open request was made */ +/* Confirm file open response that was received as a result of a request*/ +/************************************************************************/ + +ST_VOID u_fopen_done( MVL_REQ_PEND *req) + { + ST_RET ret; + MVL_REQ_PEND *freadreq= NULL; + MVL_OBTFILE_STATE *obtfile_state; + FOPEN_RESP_INFO *resp_info; +#if 0 + ERR_INFO *err_ptr; + REJECT_RESP_INFO *rej_ptr; +#endif + + obtfile_state = (MVL_OBTFILE_STATE *) req->v; + ret = req->result; + if (ret == SD_SUCCESS) + { + resp_info = req->u.fopen.resp_info; + if (obtfile_state->fileSizeLimit > 0 && + (resp_info->ent.fsize > obtfile_state->fileSizeLimit)) + { + MVL_LOG_NERR2 ("ObtFile error: file size %ld exceeds limit %ld", + resp_info->ent.fsize, obtfile_state->fileSizeLimit); + ret = SD_FAILURE; + } + else + { + + obtfile_state ->frsmid = resp_info->frsmid; + obtfile_state ->fsize = resp_info->ent.fsize; + if ((freadreq = send_file_read (req->net_info, obtfile_state)) != NULL) + { + freadreq->v = obtfile_state; + } + else + { + MVL_LOG_ERR0 ("ObtFile error: u_fopen_done failed (send_file_read failed)"); + ret = SD_FAILURE; + } + } + } + else + { + MVL_LOG_ERR0 ("ObtFile error: u_fopen_done failed (mvla_fopen failed)"); + } + if ( ret != SD_SUCCESS ) + { /* file open failed */ +#if 0 + if (req->result==MVL_ERR_CNF_REJ_ERR) + { + rej_ptr = (REJECT_RESP_INFO *) req->event->u.mms.dec_rslt.data_ptr; + printf ("\n MMS REJECT"); + printf ("\n detected_here = %d",req->u.reject.resp_info->detected_here); + printf ("\n invoke_known = %d",req->u.reject.resp_info->invoke_known); + printf ("\n invoke = %d",req->u.reject.resp_info->invoke); + printf ("\n pdu_type = %d",req->u.reject.resp_info->pdu_type); + printf ("\n rej_class = %d",req->u.reject.resp_info->rej_class); + printf ("\n rej_code = %d",req->u.reject.resp_info->rej_code); + } + if (req->result==MVL_ERR_CNF_ERR_OK) + { + err_ptr = (ERR_INFO *) req->event->u.mms.dec_rslt.data_ptr; + printf ("\n MMS ERROR RESPONSE"); + printf ("\n class = %d, code = %d", req->u.error.resp_info->eclass, + req->u.error.resp_info->code); + + } +#endif + fclose (obtfile_state->fp); /* close temporary file */ + remove (obtfile_state->tempfilename); /* get rid of temporary file */ + if (req->net_info->conn_active == SD_TRUE) + _mplas_err_resp (obtfile_state->indCtrl,11,0); /* 0 = other */ + M_FREE (MSMEM_GEN, obtfile_state); + } + mvl_free_req_ctrl (req); + } + +/************************************************************************/ +/* send_file_read */ +/* Send a file read request to obtain a block of the file data */ +/************************************************************************/ + +MVL_REQ_PEND *send_file_read (MVL_NET_INFO *NetInfo, + MVL_OBTFILE_STATE *obtfile_state) + { + MVL_REQ_PEND *req= NULL; + + FREAD_REQ_INFO fread_req; + + fread_req.frsmid = obtfile_state->frsmid; + if ((mvla_fread (NetInfo, &fread_req, &req)) == SD_SUCCESS) + { + req->u_req_done = u_fread_done; + } + + return (req); + } + + +/************************************************************************/ +/* u_fread_done */ +/* Confirm the file read response sent to indicate a read request */ +/************************************************************************/ + +ST_VOID u_fread_done( MVL_REQ_PEND *req) + { + ST_RET ret; + MVL_REQ_PEND *freadreq= NULL; + MVL_REQ_PEND *fclosereq= NULL; + MVL_OBTFILE_STATE *obtfile_state; + FREAD_RESP_INFO *resp_info; + + obtfile_state = (MVL_OBTFILE_STATE *) req->v; + + ret = req->result; + if (ret == SD_SUCCESS) + { + resp_info = req->u.fread.resp_info; + + if ( fwrite (resp_info->filedata, sizeof(ST_CHAR), resp_info->fd_len, obtfile_state->fp) + == (unsigned) resp_info->fd_len ) + { + if ( resp_info->more_follows == SD_TRUE) + { + if ((freadreq = send_file_read (req->net_info, obtfile_state)) != NULL) + { + freadreq->v = obtfile_state; /* if more file data request to read another block */ + } + else + { + MVL_LOG_ERR0 ("ObtFile error: u_fread_done failed (send_file_read failed)"); + ret = SD_FAILURE; + } + } + else + { + if ((fclosereq = send_file_close (req->net_info, obtfile_state)) != NULL) + { + fclosereq->v = obtfile_state; /* no more file data so send a file close request */ + } + else + { + MVL_LOG_ERR0 ("ObtFile error: u_fread_done failed (send_file_close failed)"); + ret = SD_FAILURE; + } + } + } + else + { + /* write failed */ + MVL_LOG_ERR0 ("ObtFile error: u_fread_done failed (fwrite failed)"); + ret = SD_FAILURE; + } + } + else + { + MVL_LOG_ERR0 ("ObtFile error: u_fread_done failed (mvla_fread failed)"); + } + + if (ret != SD_SUCCESS ) + { /* read failed so close and remove temp file */ + fclose (obtfile_state->fp); + remove (obtfile_state->tempfilename); /* may fail if file nonexistent */ + if (req->net_info->conn_active == SD_TRUE) + _mplas_err_resp (obtfile_state->indCtrl,11,0); /* 0 = Other */ + M_FREE (MSMEM_GEN, obtfile_state); + } + + mvl_free_req_ctrl (req); + } + +/************************************************************************/ +/* send_file_close */ +/* No more data to read from file so send a request to close the file */ +/************************************************************************/ + +MVL_REQ_PEND *send_file_close (MVL_NET_INFO *NetInfo, + MVL_OBTFILE_STATE *obtfile_state) + { + MVL_REQ_PEND *req= NULL; + FCLOSE_REQ_INFO fclose_req; + + fclose_req.frsmid = obtfile_state->frsmid; + if ((mvla_fclose (NetInfo, &fclose_req, &req)) == SD_SUCCESS) + { + req->u_req_done = u_fclose_done; + } + + return (req); + } + +/************************************************************************/ +/* u_fclose_done */ +/* Confirm file closed response */ +/************************************************************************/ +int obtfile_call_back(MVL_IND_PEND *indCtrl); +ST_VOID u_fclose_done( MVL_REQ_PEND *req) + { + int ret; + MVL_OBTFILE_STATE *obtfile_state; + + obtfile_state = (MVL_OBTFILE_STATE *) req->v; + + if (req->result == SD_SUCCESS) /* close succeeded */ + { + + /* always close transferred file, rename and remove temp file */ + fclose (obtfile_state->fp); /* close temp file */ + remove (obtfile_state->destfilename); /* may fail if file nonexistent */ + + /* rename the temporary file to become the requested destination file */ + /* use the ANSI rename function if available on your OS */ + /* otherwise use other function appropriate for your system */ + if (rename (obtfile_state->tempfilename, obtfile_state->destfilename)) + { + MVL_LOG_ERR0 ("ObtFile error: u_fclose_done failed (rename failed)"); + printf("ObtFile error: %s-%s)",obtfile_state->tempfilename, obtfile_state->destfilename); + remove (obtfile_state->tempfilename); /* cleanup useless file */ + _mplas_err_resp (obtfile_state->indCtrl, 11, 0); /* 0 = other file error */ + } + else /* send an obtainfile response */ + { + ret = obtfile_call_back (obtfile_state->indCtrl); + if(ret==0) mplas_obtfile_resp (obtfile_state->indCtrl); + else _mplas_err_resp (obtfile_state->indCtrl, 11, 0); + /* mplas_obtfile_resp (obtfile_state->indCtrl); */ + } + + } + else /* close failed */ + { + MVL_LOG_ERR0 ("ObtFile error: u_fclose_done failed (mvla_fclose failed)"); + + /* always close transferred file, rename and remove temp file */ + fclose (obtfile_state->fp); /* close temp file */ + + remove (obtfile_state->tempfilename); /* cleanup useless file */ + /* but don't send an obtainfile response */ + + if (req->net_info->conn_active == SD_TRUE) + _mplas_err_resp (obtfile_state->indCtrl,11,0); /* 0 = other */ + } + + M_FREE (MSMEM_GEN, obtfile_state); + mvl_free_req_ctrl (req); + } + + +/************************************************************************/ +/* mplas_obtfile_resp */ +/* Send a response to confirm the obtain file request that prompted the */ +/* reading of file data */ +/************************************************************************/ +ST_VOID mplas_obtfile_resp (MVL_IND_PEND *indCtrl) + { + ST_RET rc; + + /* Build an Obtain File Response with Null to confirm */ + rc = mpl_obtfile_resp (indCtrl->event->u.mms.dec_rslt.id); + if (rc == SD_SUCCESS) + mpl_resp_log (indCtrl, NULL); + + _mvl_send_resp_i (indCtrl, rc); + + + } + diff --git a/mmslib/mvlu/s_read.c b/mmslib/mvlu/s_read.c new file mode 100644 index 0000000..833b64d --- /dev/null +++ b/mmslib/mvlu/s_read.c @@ -0,0 +1,449 @@ +/*******************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1994 - 2005, All Rights Reserved */ +/* */ +/* MODULE NAME : s_read.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* NONE */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 01/23/09 JRB 30 Deal with non-named variables better */ +/* 04/09/07 MDE 29 Enhanced filtered logging */ +/* 10/30/06 JRB 28 Use new mvl_vmd_* object handling functions. */ +/* Add args on call to _mvl_objname_to_va. */ +/* Elim use of global "_mvl_curr_usr_ind_ctrl". */ +/* 08/09/06 JRB 27 For MVL_UCA, call mvl_find_nvl */ +/* (DO NOT call u_mvl_get_nvl, u_mvl_free_nvl). */ +/* 01/30/06 GLB 26 Integrated porting changes for VMS */ +/* 10/19/05 JRB 25 Fix spec_in_result handling (was ignored). */ +/* 05/16/05 JRB 24 Send appropriate failure codes in read resp. */ +/* 12/12/02 JRB 23 Add net_info arg to mvl_get_va_asn1_data & */ +/* prep_.. functions to elim use of */ +/* mvl_curr_net_info global var. */ +/* 07/24/02 JRB 22 Use mvl_send_resp_i like ALL responses. */ +/* 07/09/02 MDE 21 Add maxpend_ind support */ +/* 02/25/02 MDE 20 Now get max PDU size from mvl_cfg_info */ +/* 09/21/01 JRB 19 Alloc global bufs only once at startup. */ +/* 03/30/01 MDE 18 Changed MSMEM_ENC_INFO to MSMEM_ENC_OS_INFO */ +/* 10/25/00 JRB 17 Del u_mvl funct ptrs. Call functs directly. */ +/* Control with #ifdefs. */ +/* 06/19/00 JRB 16 Free rdCtrl->vaCtrlTbl on error. */ +/* 05/15/00 MDE 15 Added MMS statistics */ +/* 03/10/00 JRB 14 Copy va_scope to appropriate structures. */ +/* 01/21/00 MDE 13 Now use MEM_SMEM for dynamic memory */ +/* 11/22/99 JRB 12 mvlas_read_resp: del indCtrl from link list */ +/* 09/13/99 MDE 11 Added SD_CONST modifiers */ +/* 04/07/99 MDE 10 Logging improvements */ +/* 01/15/99 JRB 09 IF (u_mvl_get_nvl_fun != NULL) call it, */ +/* ELSE call "mvl_find_nvl". */ +/* 12/11/98 MDE 08 Removed scope references from VA */ +/* 11/16/98 MDE 07 Renamed internal functions (prefix '_') */ +/* 11/10/98 MDE 06 Moved 'mvl_get_va_asn1_data' to mvl_var.c */ +/* 06/15/98 MDE 05 Changes to allow compile under C++ */ +/* 05/15/98 JRB 04 Chg mvl_process.. arg to (MVL_IND_PEND *). */ +/* 05/15/98 JRB 03 Call u_mvl_read_ind direct (no funct ptr). */ +/* 02/10/98 MDE 02 Removed NEST_RT_TYPES, always support AA, */ +/* added 'u_mvl_rd_ind_start' and */ +/* 'u_mvl_rd_resp_sent', other */ +/* 09/10/97 MDE 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "mmsdefs.h" +#include "mms_pvar.h" +#include "mms_vvar.h" +#include "mvl_acse.h" +#include "mvl_log.h" + + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + + + +/************************************************************************/ +/************************************************************************/ + +ST_RET (*u_mvl_rd_ind_start) (MVL_IND_PEND *indCtrl); +ST_VOID (*u_mvl_rd_resp_sent) (MVL_IND_PEND *indCtrl); + +/************************************************************************/ +/************************************************************************/ +/* Internal functions */ + +static ST_RET prep_lov_rd_ctrl (MVL_IND_PEND *indCtrl, READ_REQ_INFO *read_info, + MVLAS_READ_CTRL *rdCtrlOut); +static ST_RET prep_nvl_rd_ctrl (MVL_IND_PEND *indCtrl, MVL_NET_INFO *net_info, READ_REQ_INFO *read_info, + MVLAS_READ_CTRL *rdCtrlOut); +static ST_RET prep_read_resp (MVL_NET_INFO *net_info, MVLAS_READ_CTRL *rdCtrl, + READ_REQ_INFO *req_info, + READ_RESP_INFO **resp_info_out, + ST_UCHAR *asn1_buf, ST_INT asn1_buf_size); + +/************************************************************************/ +/************************************************************************/ +/* _mvl_process_read_ind */ +/************************************************************************/ + +ST_VOID _mvl_process_read_ind (MVL_IND_PEND *indCtrl) + { +READ_REQ_INFO *read_info; +MVLAS_READ_CTRL *rdCtrl; +ST_RET rc; + + rdCtrl = &indCtrl->u.rd; + read_info = (READ_REQ_INFO *) indCtrl->event->u.mms.dec_rslt.data_ptr; + rdCtrl->var_acc_tag = read_info->va_spec.var_acc_tag; + + rc = SD_SUCCESS; + if (u_mvl_rd_ind_start) + { + /* This might set optional user pointer "indCtrl->usr_ind_ctrl". */ + rc = (*u_mvl_rd_ind_start) (indCtrl); + } + + if (rc == SD_SUCCESS) + { + if (rdCtrl->var_acc_tag == VAR_ACC_NAMEDLIST) + rc = prep_nvl_rd_ctrl (indCtrl, indCtrl->event->net_info, read_info, rdCtrl); + else + rc = prep_lov_rd_ctrl (indCtrl, read_info, rdCtrl); + } + + if (rc == SD_SUCCESS) + { + u_mvl_read_ind (indCtrl); + } + else + { + _mplas_err_resp (indCtrl,7,2); + } + } + +/************************************************************************/ +/* prep_lov_rd_ctrl */ +/************************************************************************/ + +static ST_RET prep_lov_rd_ctrl (MVL_IND_PEND *indCtrl, READ_REQ_INFO *read_info, + MVLAS_READ_CTRL *rdCtrl) + { +MVLAS_RD_VA_CTRL *vaCtrl; +VARIABLE_LIST *vl; +ST_INT num_var; +ST_INT i; +ST_BOOLEAN alt_access_pres; + + /* This is a list of variables */ + + /* Allocate the read control data structures */ + num_var = read_info->va_spec.num_of_variables; + rdCtrl->vaCtrlTbl = (MVLAS_RD_VA_CTRL *) M_CALLOC (MSMEM_GEN, num_var, + sizeof(MVLAS_RD_VA_CTRL)); + vaCtrl = rdCtrl->vaCtrlTbl; + rdCtrl->numVar = num_var; + + /* Prepare to process each variable in the list */ + vl = (VARIABLE_LIST *) (read_info + 1); + for (i = 0; i < num_var; ++i, ++vl, ++vaCtrl) + { + ST_BOOLEAN alt_access_done = SD_FALSE; /* chg if AA processed */ + + /* These are done by the 'chk_calloc' call */ + /* vaCtrl->va = NULL; */ + /* vaCtrl->alt_access_pres = SD_FALSE; */ + vaCtrl->acc_rslt_tag = ACC_RSLT_SUCCESS; + + + alt_access_pres = vl->alt_access_pres; + if (alt_access_pres) /* no alternate access support now */ + { +#if !defined(MVL_AA_SUPP) + MVL_LOG_NERR0 ("Read Indication : Alternate Access not supported"); + continue; +#else + /* now create the AA, given the ASN.1 spec */ + if (ms_asn1_to_aa (vl->alt_access.data, vl->alt_access.len, + &vaCtrl->alt_acc)) + { + MVL_LOG_NERR0 ("Read Indication : ASN.1 -> AA failure"); + continue; + } + vaCtrl->alt_access_pres = SD_TRUE; +#endif + } + + switch (vl->var_spec.var_spec_tag) + { + case VA_SPEC_NAMED : + vaCtrl->va = _mvl_objname_to_va (&mvl_vmd, indCtrl->event->net_info, MMSOP_READ, &vl->var_spec.vs.name, + &vaCtrl->va_scope, + alt_access_pres, + &vaCtrl->alt_acc, + &alt_access_done); + if (!vaCtrl->va) + { + MVL_LOG_NERR1 ("Read ind : Variable Association '%s' not found", + vl->var_spec.vs.name.obj_name.vmd_spec); + } + break; + + case VA_SPEC_ADDRESSED: + case VA_SPEC_DESCRIBED: + case VA_SPEC_SCATTERED: + case VA_SPEC_INVALIDATED: + default : + MVL_LOG_NERR1 ("Read: Unsupported MMS VariableSpecification Tag %d", vl->var_spec.var_spec_tag); + /* NOTE: "vaCtrl->va = NULL" already. That's GOOD. */ + break; + } + + if (vaCtrl->va) + vaCtrl->va->usr_ind_ctrl = indCtrl->usr_ind_ctrl; /* save optional user pointer in va*/ + + /* If alt_acc allocated, free it now if done with it, or if va not found.*/ + if (alt_access_pres && (alt_access_done || vaCtrl->va==NULL)) + { + M_FREE (MSMEM_GEN, vaCtrl->alt_acc.aa); + vaCtrl->alt_access_pres = SD_FALSE; + } + } + return (SD_SUCCESS); + } + +/************************************************************************/ +/* prep_nvl_rd_ctrl */ +/************************************************************************/ + +static ST_RET prep_nvl_rd_ctrl (MVL_IND_PEND *indCtrl, MVL_NET_INFO *net_info, READ_REQ_INFO *read_info, + MVLAS_READ_CTRL *rdCtrl) + { +MVL_NVLIST_CTRL *nvList; +MVLAS_RD_VA_CTRL *vaCtrl; +ST_INT i; +ST_INT num_var; + +/* search for the NVL */ +#if defined(USE_MANUFACTURED_OBJS) + nvList = u_mvl_get_nvl (MMSOP_READ, &read_info->va_spec.vl_name, + net_info); +#else /* default */ + nvList = mvl_vmd_find_nvl (&mvl_vmd, &read_info->va_spec.vl_name, indCtrl->event->net_info); +#endif /* default */ + + if (!nvList) + { + MVL_LOG_NERR0 ("Read NVL : NamedVariableList not found"); + return (MVL_ERR_NVL_NOT_FOUND); + } + rdCtrl->nvList = nvList; + +/* Found the named variable list, create the response */ + num_var = nvList->num_of_entries; + rdCtrl->vaCtrlTbl = (MVLAS_RD_VA_CTRL *) M_CALLOC (MSMEM_GEN, num_var, + sizeof(MVLAS_RD_VA_CTRL)); + vaCtrl = rdCtrl->vaCtrlTbl; + rdCtrl->numVar = num_var; + + for (i = 0; i < num_var; ++i, ++vaCtrl) + { + /* These are done by the 'chk_calloc' call */ + /* vaCtrl->va = NULL; */ + /* vaCtrl->alt_access_pres = NULL; */ + vaCtrl->va = nvList->entries[i]; + memcpy (&vaCtrl->va_scope, &nvList->va_scope[i], sizeof(MVL_SCOPE)); + vaCtrl->acc_rslt_tag = ACC_RSLT_SUCCESS; + vaCtrl->va->usr_ind_ctrl = indCtrl->usr_ind_ctrl; /* save optional user pointer in va*/ + } + return (SD_SUCCESS); + } + +/************************************************************************/ +/************************************************************************/ +/* mvlas_read_resp */ +/************************************************************************/ + +ST_RET mvlas_read_resp (MVL_IND_PEND *indCtrl) + { +MVLAS_READ_CTRL *rdCtrl; +MVL_COMM_EVENT *event; +MVL_NET_INFO *net_info; +READ_RESP_INFO *resp_info; +ST_UCHAR *asn1_buf; +ST_RET rc; +READ_REQ_INFO *req_info = (READ_REQ_INFO *) indCtrl->event->u.mms.dec_rslt.data_ptr; + + event = indCtrl->event; + net_info = indCtrl->event->net_info; + rdCtrl = &indCtrl->u.rd; + + asn1_buf = (ST_UCHAR *) M_MALLOC (MSMEM_ASN1_DATA_ENC, mvl_cfg_info->max_msg_size); + rc = prep_read_resp (net_info, rdCtrl, req_info, &resp_info, asn1_buf, mvl_cfg_info->max_msg_size); + + if (rc == SD_SUCCESS) + { + /* Build the read response */ + rc = mpl_read_resp (event->u.mms.dec_rslt.id, resp_info); + if (rc == SD_SUCCESS) + mpl_resp_log (indCtrl, resp_info); + + /* The process functions allocate the response buffer */ + M_FREE (MSMEM_ENC_OS_INFO, resp_info); + } + +#if defined(USE_MANUFACTURED_OBJS) + if (rdCtrl->nvList) /* For NVL, this was allocated by prep_nvl_... */ + u_mvl_free_nvl (MMSOP_READ, rdCtrl->nvList, event->net_info); +#endif + + if (u_mvl_rd_resp_sent) + (*u_mvl_rd_resp_sent) (indCtrl); + + M_FREE (MSMEM_ASN1_DATA_ENC, asn1_buf); + M_FREE (MSMEM_GEN, rdCtrl->vaCtrlTbl); + + /* NOTE: This funct frees indCtrl. DO NOT use after this. */ + /* NOTE: if rc != SD_SUCCESS, this funct sends error resp. */ + _mvl_send_resp_i (indCtrl, rc); + + return (SD_SUCCESS); + } + +/************************************************************************/ +/* prep_read_resp */ +/************************************************************************/ + +static ST_RET prep_read_resp (MVL_NET_INFO *net_info, MVLAS_READ_CTRL *rdCtrl, + READ_REQ_INFO *req_info, + READ_RESP_INFO **resp_info_out, + ST_UCHAR *asn1_buf, ST_INT asn1_buf_size) + { +MVLAS_RD_VA_CTRL *vaCtrl; +MVL_VAR_ASSOC *va; +READ_RESP_INFO *resp_info; +ACCESS_RESULT *ar_ptr; +ST_UCHAR *asn1_start; +ST_INT asn1_len; +ST_INT asn1_buf_left; +ST_INT num_var; +ST_INT i; + + num_var = rdCtrl->numVar; + + /* Allocate READ_RESP_INFO struct plus space for variableAccessSpec */ + /* (only used if spec_in_result=TRUE) and accessResults. */ + resp_info = + (READ_RESP_INFO *) M_CALLOC (MSMEM_ENC_OS_INFO, 1, sizeof (READ_RESP_INFO) + + (num_var * sizeof (VARIABLE_LIST)) + /* for variableAccessSpec*/ + (num_var * sizeof (ACCESS_RESULT))); + *resp_info_out = resp_info; + + if (req_info->spec_in_result) + { /* Send variableAccessSpec in response */ + resp_info->va_spec_pres = SD_TRUE; + resp_info->va_spec.var_acc_tag = req_info->va_spec.var_acc_tag; + if (resp_info->va_spec.var_acc_tag == VAR_ACC_VARLIST) + { /* list of variables */ + /* Copy variableAccessSpec (array of VARIABLE_LIST) from req to resp.*/ + resp_info->va_spec.num_of_variables = num_var; + memcpy ((resp_info + 1), (req_info + 1), num_var * sizeof (VARIABLE_LIST)); + } + else + { /* variable list name : copy name from req to resp. */ + memcpy (&resp_info->va_spec.vl_name, &req_info->va_spec.vl_name, sizeof (OBJECT_NAME)); + } + } + else + { /* Do NOT send variableAccessSpec in response. */ + resp_info->va_spec_pres = SD_FALSE; + } + + resp_info->num_of_acc_result = num_var; + /* Calculate pointer to start of accessResults (after variableAccessSpec)*/ + resp_info->acc_rslt_list = (ACCESS_RESULT *) + ((((VARIABLE_LIST *)(resp_info+1)) + num_var)); + + ar_ptr = resp_info->acc_rslt_list; + asn1_start = asn1_buf; + asn1_buf_left = asn1_buf_size; + vaCtrl = rdCtrl->vaCtrlTbl; + for (i = 0; i < num_var; ++i, ++ar_ptr, ++vaCtrl) + { + va = vaCtrl->va; + if (va == NULL) + { + ar_ptr->acc_rslt_tag = ACC_RSLT_FAILURE; + ar_ptr->failure = ARE_OBJ_NONEXISTENT; + } + else + { +/* Copy values from vaCtrl, but may change due to other errors. */ + ar_ptr->acc_rslt_tag = vaCtrl->acc_rslt_tag; + ar_ptr->failure = vaCtrl->failure; + if (ar_ptr->acc_rslt_tag == ACC_RSLT_SUCCESS) + { /* may still fail other checks */ +/* Sanity check, because foundry can generate configured variables w/o */ +/* the data pointer initialized. */ + if (va->data == NULL) + { /* Error. Override values set before */ + MVL_LOG_NERR1 ("Read Indication : va '%s' data is NULL", va->name); + ar_ptr->acc_rslt_tag = ACC_RSLT_FAILURE; + ar_ptr->failure = ARE_OBJ_INVALIDATED; + } + else if (mvl_get_va_asn1_data (net_info, + va, vaCtrl->alt_access_pres, &vaCtrl->alt_acc, + asn1_start, asn1_buf_left, &asn1_len) != SD_SUCCESS) + { /* Error. Override values set before */ + ar_ptr->acc_rslt_tag = ACC_RSLT_FAILURE; + ar_ptr->failure = ARE_OBJ_ACC_UNSUPPORTED; + } + else + { /* this is the only path to success */ + ar_ptr->va_data.len = asn1_len; + ar_ptr->va_data.data = asn1_start; + + asn1_buf_left -= asn1_len; /* adjust buffer control variables */ + asn1_start += asn1_len; + } + } + } + + /* IMPORTANT: Use ar_ptr->acc_rslt_tag here (not vaCtrl->acc_rslt_tag).*/ + if (ar_ptr->acc_rslt_tag == ACC_RSLT_SUCCESS) + ++mvl_mms_statistics.serverVarRdOk; + else + ++mvl_mms_statistics.serverVarRdErr; + + /* The user needs to free a manufactured NVL and the associated VA's */ + /* in the 'u_mvl_free_va_fun'; here just free manufactured variables */ + /* associated with a list of variables. */ +#if defined(MVL_UCA) || defined(USE_MANUFACTURED_OBJS) + if (rdCtrl->var_acc_tag == VAR_ACC_VARLIST) + { + if (va && va->va_to_free != NULL) + u_mvl_free_va (MMSOP_READ, va, net_info); + } +#endif /* defined(MVL_UCA) || defined(USE_MANUFACTURED_OBJS) */ + +#if defined(MVL_AA_SUPP) + if (vaCtrl->alt_access_pres) /* if we calloc'd this AA, free it */ + M_FREE (MSMEM_GEN, vaCtrl->alt_acc.aa); +#endif + } /* end loop */ + + return (SD_SUCCESS); + } diff --git a/mmslib/mvlu/s_status.c b/mmslib/mvlu/s_status.c new file mode 100644 index 0000000..8ad759c --- /dev/null +++ b/mmslib/mvlu/s_status.c @@ -0,0 +1,67 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1994 - 1996, All Rights Reserved */ +/* */ +/* MODULE NAME : s_status.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* NONE */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/09/07 MDE 11 Enhanced filtered logging */ +/* 03/11/04 GLB 10 Remove "thisFileName" */ +/* 09/21/01 JRB 09 Alloc global bufs only once at startup. */ +/* 01/21/00 MDE 08 Now use MEM_SMEM for dynamic memory */ +/* 09/13/99 MDE 07 Added SD_CONST modifiers */ +/* 04/01/99 MDE 06 Changes to decode buffer allocation scheme */ +/* 11/16/98 MDE 05 Renamed internal functions (prefix '_') */ +/* 09/21/98 MDE 04 Minor lint cleanup */ +/* 06/15/98 MDE 03 Changes to allow compile under C++ */ +/* 05/14/98 JRB 02 Use MVL_IND_PEND. Add mplas resp function. */ +/* 09/10/97 MDE 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "mmsdefs.h" +#include "mms_pvmd.h" +#include "mvl_defs.h" +#include "mvl_log.h" + +/************************************************************************/ +/************************************************************************/ +/* _mvl_process_status_ind */ +/* A "status" indication has been received, process it and respond */ +/************************************************************************/ + +ST_VOID _mvl_process_status_ind (MVL_IND_PEND *indCtrl) + { + indCtrl->u.status.req_info = + (STATUS_REQ_INFO *) indCtrl->event->u.mms.dec_rslt.data_ptr; + + u_mvl_status_ind (indCtrl); + } + +/************************************************************************/ +/* mplas_status_resp */ +/************************************************************************/ +ST_VOID mplas_status_resp (MVL_IND_PEND *indCtrl) + { +ST_RET rc; + +/* Build an status response */ + rc = mpl_status_resp (indCtrl->event->u.mms.dec_rslt.id, + indCtrl->u.status.resp_info); + if (rc == SD_SUCCESS) + mpl_resp_log (indCtrl, indCtrl->u.status.resp_info); + + _mvl_send_resp_i (indCtrl, rc); + } + diff --git a/mmslib/mvlu/s_write.c b/mmslib/mvlu/s_write.c new file mode 100644 index 0000000..032876f --- /dev/null +++ b/mmslib/mvlu/s_write.c @@ -0,0 +1,438 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1994 - 1996, All Rights Reserved */ +/* */ +/* MODULE NAME : s_write.c */ +/* PRODUCT(S) : MMSEASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* NONE */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 02/02/09 JRB 32 Chk va_to_free before ...free_va. */ +/* 01/23/09 MDE 31 Use 0x%X for hex values in log msgs. */ +/* 01/13/09 MDE 30 Free VA (and temp type) in case of errors */ +/* 05/01/08 JRB 29 Chk ms_asn1_to_local return & set */ +/* WRITE_RESULT "failure" appropriately. */ +/* 04/09/07 MDE 28 Enhanced filtered logging */ +/* 10/30/06 JRB 27 Use new mvl_vmd_* object handling functions. */ +/* Add args on call to _mvl_objname_to_va. */ +/* Elim use of global "_mvl_curr_net_info". */ +/* Elim use of global "_mvl_curr_usr_ind_ctrl". */ +/* 08/09/06 JRB 26 ALWAYS set resp_tag & failure in wr_rslt */ +/* same as in vaCtrl. In put_asn1_data, set */ +/* vaCtrl->failure to appropriate value. */ +/* 01/30/06 GLB 25 Integrated porting changes for VMS */ +/* 05/16/05 JRB 24 Send appropriate failure codes in write resp.*/ +/* Move statistics code so it is always executed*/ +/* 03/13/03 JRB 23 Use mvl_type_ctrl_find. */ +/* 07/24/02 JRB 22 Use mvl_send_resp_i like ALL responses. */ +/* 07/09/02 MDE 21 Add maxpend_ind support */ +/* 09/21/01 JRB 20 Alloc global bufs only once at startup. */ +/* 05/25/01 MDE 19 Moved where the old data is saved */ +/* 03/30/01 MDE 18 Changed MSMEM_ENC_INFO to MSMEM_ENC_OS_INFO */ +/* 10/25/00 JRB 17 Del u_mvl funct ptrs. Call functs directly. */ +/* Control with #ifdefs. */ +/* 10/06/00 MDE 16 Now restore old data for write failure */ +/* 05/15/00 MDE 15 Added MMS statistics */ +/* 01/21/00 MDE 14 Now use MEM_SMEM for dynamic memory */ +/* 11/22/99 JRB 13 mvlas_write_resp: del indCtrl from link list */ +/* 09/13/99 MDE 12 Added SD_CONST modifiers */ +/* 04/07/99 MDE 11 Logging improvements */ +/* 12/11/98 MDE 10 Removed scope references from VA */ +/* 12/08/98 MDE 09 Fixed write handling for alternate access */ +/* 11/16/98 MDE 08 Renamed internal functions (prefix '_') */ +/* 09/21/98 MDE 07 Minor lint cleanup */ +/* 06/15/98 MDE 06 Changes to allow compile under C++ */ +/* 05/15/98 JRB 05 Chg mvl_process.. arg to (MVL_IND_PEND *). */ +/* 05/15/98 JRB 04 Call u_mvl_write_ind direct (no funct ptr). */ +/* 02/20/98 MDE 03 Fixed usrVa set problem */ +/* 02/10/98 MDE 02 Removed NEST_RT_TYPES, always support AA, */ +/* added 'u_mvl_wr_ind_start' and */ +/* 'u_mvl_wr_resp_sent', other */ +/* 09/10/97 MDE 01 MMS-LITE V4.0 Release */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "mmsdefs.h" +#include "mms_pvar.h" +#include "mms_vvar.h" +#include "mvl_defs.h" +#include "mvl_log.h" + + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ + +ST_RET (*u_mvl_wr_ind_start) (MVL_IND_PEND *indCtrl); +ST_VOID (*u_mvl_wr_resp_sent) (MVL_IND_PEND *indCtrl); + +/************************************************************************/ +/* Internal functions */ + +static ST_VOID put_asn1_data (MVL_IND_PEND *indCtrl, VARIABLE_LIST *vl, + ST_UCHAR *asn1_buffer, ST_INT asn1_len, + MVLAS_WR_VA_CTRL *vaCtrl); + +/************************************************************************/ +/************************************************************************/ +/* _mvl_process_write_ind */ +/* A write indication has been received, process it and respond */ +/************************************************************************/ + +ST_VOID _mvl_process_write_ind (MVL_IND_PEND *indCtrl) + { +MVLAS_WRITE_CTRL *wrCtrl; +MVLAS_WR_VA_CTRL *vaCtrl; +WRITE_REQ_INFO *write_info; +ST_INT num_var; +VARIABLE_LIST *vl_ptr; +VAR_ACC_DATA *va_ptr; +ST_INT i; +ST_RET rc; + + write_info = (WRITE_REQ_INFO *) indCtrl->event->u.mms.dec_rslt.data_ptr; + num_var = write_info->va_spec.num_of_variables; + + /* verify that this is a list of variables */ + if (write_info->va_spec.var_acc_tag != VAR_ACC_VARLIST) + { + _mplas_err_resp (indCtrl,7,2); /* access, non-existent */ + return; + } + + if (u_mvl_wr_ind_start) + { + /* This might set optional user pointer "indCtrl->usr_ind_ctrl". */ + rc = (*u_mvl_wr_ind_start) (indCtrl); + if (rc != SD_SUCCESS) + { + _mplas_err_resp (indCtrl,7,2); /* access, non-existent */ + return; + } + } + + wrCtrl = &indCtrl->u.wr; + wrCtrl->vaCtrlTbl = (MVLAS_WR_VA_CTRL *) M_CALLOC (MSMEM_GEN, num_var, + sizeof(MVLAS_WR_VA_CTRL)); + vaCtrl = wrCtrl->vaCtrlTbl; + wrCtrl->numVar = num_var; + +/* Looks OK, prepare to process each variable in the list */ + vl_ptr = (VARIABLE_LIST *) (write_info+1); + va_ptr = write_info->va_data; + + for (i = 0; i < num_var; ++i, ++vl_ptr, ++va_ptr, ++vaCtrl) + put_asn1_data (indCtrl, vl_ptr, va_ptr->data, va_ptr->len, vaCtrl); + + u_mvl_write_ind (indCtrl); + } + + +/************************************************************************/ +/* mvlas_write_resp */ +/************************************************************************/ + +ST_VOID mvlas_write_resp (MVL_IND_PEND *indCtrl) + { +MVLAS_WRITE_CTRL *wrCtrl; +MVLAS_WR_VA_CTRL *vaCtrl; +MVL_COMM_EVENT *event; +MVL_NET_INFO *net_info; +ST_RET rc; +ST_CHAR *resp_buf; +ST_INT num_var; +ST_INT va_data_size; +WRITE_RESP_INFO *resp_info; +WRITE_RESULT *wr_rslt; +ST_INT i; +MVL_TYPE_CTRL *type_ctrl; + + net_info = indCtrl->event->net_info; + event = indCtrl->event; + wrCtrl = &indCtrl->u.wr; + vaCtrl = wrCtrl->vaCtrlTbl; + num_var = wrCtrl->numVar; + + resp_buf = (ST_CHAR *) M_CALLOC (MSMEM_ENC_OS_INFO, 1, sizeof(WRITE_RESP_INFO) + + (num_var * sizeof (WRITE_RESULT))); + + /* Create a write response info struct */ + resp_info = (WRITE_RESP_INFO *) resp_buf; + resp_info->num_of_result = num_var; + wr_rslt = (WRITE_RESULT *) (resp_info +1); + + for (i = 0; i < num_var; ++i, ++wr_rslt, ++vaCtrl) + { + wr_rslt->resp_tag = vaCtrl->resp_tag; + wr_rslt->failure = vaCtrl->failure; + if (vaCtrl->va != NULL) + { + if (wr_rslt->resp_tag == WR_RSLT_FAILURE) + { /* On a failure, restore the previous data */ + type_ctrl = mvl_type_ctrl_find (vaCtrl->va->type_id); + va_data_size = type_ctrl->data_size; + memcpy (vaCtrl->va->data, vaCtrl->oldData, va_data_size); + } + M_FREE (MSMEM_GEN, vaCtrl->oldData); +#if defined(MVL_UCA) || defined(USE_MANUFACTURED_OBJS) + if (vaCtrl->va->va_to_free != NULL) + u_mvl_free_va (MMSOP_WRITE, vaCtrl->va, event->net_info); +#endif /* defined(MVL_UCA) || defined(USE_MANUFACTURED_OBJS) */ + } + + if (wr_rslt->resp_tag == WR_RSLT_SUCCESS) + ++mvl_mms_statistics.serverVarWrOk; + else + ++mvl_mms_statistics.serverVarWrErr; + } /* end loop */ + +/* Build a write response */ + rc = mpl_write_resp (event->u.mms.dec_rslt.id, resp_info); + if (rc == SD_SUCCESS) + mpl_resp_log (indCtrl, resp_info); + + if (u_mvl_wr_resp_sent) + (*u_mvl_wr_resp_sent) (indCtrl); + + M_FREE (MSMEM_ENC_OS_INFO, resp_buf); + M_FREE (MSMEM_GEN, wrCtrl->vaCtrlTbl); + + /* NOTE: This funct frees indCtrl. DO NOT use after this. */ + /* NOTE: if rc != SD_SUCCESS, this funct sends error resp. */ + _mvl_send_resp_i (indCtrl, rc); + } + + +/************************************************************************/ +/* put_asn1_data */ +/* This function is to provide ASN.1 encoded data, given the variable */ +/* list element. */ +/************************************************************************/ + +static ST_VOID put_asn1_data (MVL_IND_PEND *indCtrl, VARIABLE_LIST *vl, + ST_UCHAR *asn1_buffer, ST_INT asn1_len, + MVLAS_WR_VA_CTRL *vaCtrl) + { +MVL_VAR_ASSOC *va; +RUNTIME_TYPE *rt; +ST_INT num_rt; +ST_RET rc; +ST_CHAR *temp_data_buf; +ST_CHAR *va_data; +ST_INT va_data_size; +ST_INT aa_mode; +ALT_ACCESS alt_acc; /* Alternate Access specification */ +ST_BOOLEAN alt_access_pres; +ST_BOOLEAN alt_access_done; +MVL_TYPE_CTRL *type_ctrl; + +/* There are more ways to fail than to succeed! */ +/* Assume failure=ARE_TYPE_INCONSISTENT, but may be changed in some cases.*/ + vaCtrl->resp_tag = WR_RSLT_FAILURE; + vaCtrl->failure = ARE_TYPE_INCONSISTENT; + + alt_access_pres = vl->alt_access_pres; + if (alt_access_pres) /* no alternate access support now */ + { +#if !defined(MVL_AA_SUPP) + MVL_LOG_NERR0 ("Put ASN1 Data : Alternate Access not supported"); + return; +#else + /* now create the AA, given the ASN.1 spec */ + if (ms_asn1_to_aa (vl->alt_access.data, vl->alt_access.len, + &alt_acc)) + { + MVL_LOG_NERR0 ("Write Indication : ASN.1 -> AA failure"); + return; + } +#endif + } + + switch (vl->var_spec.var_spec_tag) + { + case VA_SPEC_NAMED : + va = _mvl_objname_to_va (&mvl_vmd, indCtrl->event->net_info, MMSOP_WRITE, &vl->var_spec.vs.name, + &vaCtrl->va_scope, + alt_access_pres, + &alt_acc, + &alt_access_done); + + if (alt_access_pres && alt_access_done) + { + M_FREE (MSMEM_GEN, alt_acc.aa); + alt_access_pres = SD_FALSE; + } + + if (!va) /* could not find variable association */ + { + MVL_LOG_NERR1 ("Write ind : Variable Association '%s' not found", + vl->var_spec.vs.name.obj_name.vmd_spec); + vaCtrl->failure = ARE_OBJ_NONEXISTENT; + return; + } + + vaCtrl->va = va; + va->usr_ind_ctrl = indCtrl->usr_ind_ctrl; /* save optional user pointer in va*/ + + /* Save the current data in case the user rejects the write */ + + type_ctrl = mvl_type_ctrl_find (va->type_id); /* find type */ + va_data_size = type_ctrl->data_size; + vaCtrl->oldData = (ST_UCHAR *) M_MALLOC (MSMEM_GEN, va_data_size); + memcpy (vaCtrl->oldData, va->data, va_data_size); + + /* We have obtained a variable association */ + /* Now do the alternate access preprocess function if appropriate */ + +#if defined(MVL_AA_SUPP) + aa_mode = MVL_USE_UNPACKED_AA; + if (alt_access_pres && va->proc && va->proc->proc_write_aa) + { + rc = (*va->proc->proc_write_aa)(&va, &alt_acc, + indCtrl->event->net_info, &aa_mode); + + if (rc != SD_SUCCESS) + { + MVL_LOG_NERR1 ("Write : proc_write_aa returned %d", rc); + return; + } + } +#endif + + + /* Now take care of the data conversion (asn1 to local) */ + rc = mvl_get_runtime (va->type_id, &rt, &num_rt); + if (rc != SD_SUCCESS) + { + M_FREE (MSMEM_GEN, vaCtrl->oldData); + MVL_LOG_NERR1 ("Could not get type_id %d", va->type_id); + vaCtrl->va = NULL; + return; + } + + /* Sanity check, because foundry can generate configured vars w/o */ + /* the data pointer initialized. */ + if (va->data == NULL) + { + M_FREE (MSMEM_GEN, vaCtrl->oldData); + MVL_LOG_NERR1 ("Write Indication : va '%s' data is NULL", va->name); + vaCtrl->va = NULL; + return; + } + + va_data = (ST_CHAR *) va->data; + /* "va_data_size" already set above */ + break; + + case VA_SPEC_DESCRIBED : + default : + MVL_LOG_NERR0 ("Put ASN1 Data : Invalid Variable Specification Tag"); + vaCtrl->failure = ARE_OBJ_ACC_UNSUPPORTED; + return; + break; + } + +/* If we got here, we have a valid runtime and have resolved local */ +/* data pointer and size. Go ahead and convert the ASN.1 data element to*/ +/* local data format */ + + temp_data_buf = (ST_CHAR *) M_MALLOC (MSMEM_WR_DATA_DEC_BUF, va_data_size); + + +#if defined(MVL_AA_SUPP) + if (alt_access_pres == SD_FALSE || aa_mode == MVL_USE_NO_AA) + rc = ms_asn1_to_local (rt, num_rt, asn1_buffer, asn1_len, temp_data_buf); + else + { + /* This is an alternate access write, we must first copy the data */ + /* contents to to the temp buffer, then only the selected elements */ + /* will be written by the data conversion. */ + memcpy (temp_data_buf, va_data, va_data_size); + + if (aa_mode == MVL_USE_PACKED_AA) + m_alt_acc_packed = SD_TRUE; + else + m_alt_acc_packed = SD_FALSE; + + rc = ms_asn1_to_local_aa (rt, num_rt, &alt_acc, + asn1_buffer, asn1_len, temp_data_buf); + } +#else + rc = ms_asn1_to_local (rt, num_rt, asn1_buffer, asn1_len, temp_data_buf); +#endif + + if (rc != SD_SUCCESS) + { + MVL_LOG_NERR1 ("Put ASN1 Data : ms_asn1_to_local failed, rc = 0x%X", rc); + M_FREE (MSMEM_GEN, vaCtrl->oldData); + M_FREE (MSMEM_WR_DATA_DEC_BUF, temp_data_buf); + +#if defined(MVL_UCA) || defined(USE_MANUFACTURED_OBJS) + /* Need to free VA (caller will not if vaCtrl->va == NULL) */ + if (vaCtrl->va->va_to_free != NULL) + u_mvl_free_va (MMSOP_WRITE, vaCtrl->va, NULL); +#endif + vaCtrl->va = NULL; + if (rc == ASN1E_UNEXPECTED_TAG) + /* Tag mismatch in this context indicates MMS type mismatch. */ + vaCtrl->failure = ARE_TYPE_INCONSISTENT; + else + vaCtrl->failure = ARE_OBJ_VALUE_INVALID; + return; + } + + /* Call the preprocessing function for this variable, if it exists */ + if (va->proc && va->proc->pre_write_aa) + { + rc = (*va->proc->pre_write_aa)(va, alt_access_pres, &alt_acc, + indCtrl->event->net_info, + temp_data_buf, va_data_size); + + if (rc != SD_SUCCESS) + { + MVL_LOG_NERR1 ("Put ASN1 Data : call to Write pre-processor failed, rc = 0x%X", rc); + M_FREE (MSMEM_GEN, vaCtrl->oldData); +#if defined(MVL_UCA) || defined(USE_MANUFACTURED_OBJS) + /* Need to free VA (caller will not if vaCtrl->va == NULL) */ + if (vaCtrl->va->va_to_free != NULL) + u_mvl_free_va (MMSOP_WRITE, vaCtrl->va, NULL); +#endif + vaCtrl->va = NULL; + } + } + +/* OK, almost done. The data has been converted OK and the user has had */ +/* a chance to look at it. If rc == SD_SUCCESS, we are OK. */ + + if (rc == SD_SUCCESS) + { + vaCtrl->resp_tag = WR_RSLT_SUCCESS; + memcpy (va_data, temp_data_buf, va_data_size); + + /* Call the postprocessing function for this variable, if it exists */ + if (va->proc && va->proc->post_write_aa) + (*va->proc->post_write_aa)(va, alt_access_pres, &alt_acc, indCtrl->event->net_info); + } + +#if defined(MVL_AA_SUPP) + if (alt_access_pres) /* if we calloc'd this AA, free it */ + M_FREE (MSMEM_GEN, alt_acc.aa); +#endif + M_FREE (MSMEM_WR_DATA_DEC_BUF, temp_data_buf); + } diff --git a/mmslib/mvlu/sclproc.c b/mmslib/mvlu/sclproc.c new file mode 100644 index 0000000..69f04e4 --- /dev/null +++ b/mmslib/mvlu/sclproc.c @@ -0,0 +1,3286 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2004-2006 All Rights Reserved */ +/* */ +/* MODULE NAME : sclproc.c */ +/* PRODUCT(S) : MMS-EASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* Functions to "post-proccess" information parsed from SCL file. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* scl2_datatype_create_all */ +/* scl2_ld_create_all */ +/* */ +/* NOTE: FC must be "ST" "MX" "CO" "SP" "SG" "SE" "SV" "CF" "DC" or "EX"*/ +/* */ +/* NOTE: scl2_datatype_create_all allocates an array of RESERVED_INFO */ +/* structures to save extra SCL data for each datatype created. */ +/* The array pointer is saved in the reserved_1 member of */ +/* RUNTIME_CTRL, to be used later by scl2_ld_create_all, */ +/* which then frees it (see reserved_free_all). */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 07/30/08 JRB 47 Init DstAddress in GSSE control block. */ +/* 05/14/08 JRB 46 rtadd_da_or_bda: save init Val for Enum too. */ +/* Move FLOW log inside "if" for BasicType. */ +/* 04/23/08 JRB 45 If SGCB configured, add it to "SP". */ +/* Eliminate warnings. */ +/* 04/20/08 JRB 44 Add DstAddress to GSSE control block. */ +/* 03/03/08 JRB 43 Use new mvl_var_add_alloc (avoids extra alloc)*/ +/* 02/25/08 JRB 42 Add ObjRef type and map to VisString129. */ +/* Add INT64, INT64U types. */ +/* 02/25/08 JRB 41 For bType=Enum, convert Val text as a number */ +/* ONLY if text does not match any EnumVal. */ +/* 12/20/07 JRB 40 Add rcb_name_no_index flag. */ +/* 12/13/07 JRB 39 Allow nested SDO (needed for Wind Power). */ +/* scl_gse_find: match "cbName" also. */ +/* 10/29/07 JRB 38 strncat_safe obsolete, use strncat_maxstrlen.*/ +/* 09/05/07 JRB 37 Chg "Check" (PACKED LIST) to bvstring. */ +/* 08/13/07 MDE 36 Added more scl_debug_mode */ +/* 08/10/07 JRB 35 scl2_dai_set_value: if no "Val", do nothing. */ +/* 08/02/07 JRB 34 scl2_datatype_create: use new ms_rt_bld* */ +/* features to avoid realloc. */ +/* 07/03/07 JRB 33 Init DstAddress struct in MVL61850_GCB_DATA. */ +/* Add scl_gse_find. */ +/* 05/10/07 JRB 32 Reallocate reserved_1 smaller to save mem. */ +/* 03/06/07 JRB 31 Fix LogRef initial value (ObjectReference). */ +/* 02/13/07 JRB 30 Use RptEnabled max attribute for BRCB too. */ +/* Save rpt scan rate in rpt_ctrl->scan_rate. */ +/* 10/30/06 JRB 29 scl2_datatype_create_all: all args changed. */ +/* scl2_ld_create_all: add vmd_ctrl, is_client args.*/ +/* Use element of or to init */ +/* all variables containing the attribute. */ +/* Instead of creating TDL, create RUNTIME_TYPE */ +/* array directly (allows saving extra type info).*/ +/* Don't need type names anymore. Only use names*/ +/* if caller requests it. */ +/* Allow bType="Check", "VisString???". */ +/* 08/21/06 MDE 28 Added more scl_debug_mode */ +/* 08/09/06 JRB 27 Create multiple RCBs for each URCB configured.*/ +/* Add 01, 02, etc suffixes to all RCB names. */ +/* Allow scl_rcb->datSet="" (i.e. datSet not */ +/* present in ReportControl element of SCL file).*/ +/* Allow datSet write with mvl61850_datset_wr_ind.*/ +/* Chg DatSet in BRCB, URCB, GCB, LCB, MSVCB, */ +/* and USVCB to Vstring129. */ +/* Chg LogRef in LCB to Vstring129. */ +/* Del mvlu_rpt_create_scan_ctrl2 call */ +/* (new mvl61850_rpt_service automatically scans).*/ +/* 08/04/06 MDE 26 Tweaked logging */ +/* 08/04/06 MDE 25 Added scl_debug_mode, scl2_add_btype, etc. */ +/* 06/22/06 RKR 24 Added Vstring129 */ +/* 03/20/06 JRB 23 Add code for Sampled Value config (see svcb).*/ +/* Del unused scl_rcb_counters. */ +/* 12/14/05 JRB 22 Fix init val of DatSet in LCB or GCB */ +/* (must be ObjectReference). */ +/* 11/22/05 JRB 21 Fix spelling of "BufTm" in brcb, urcb. */ +/* (Only UCA uses the spelling "BufTim"). */ +/* 09/15/05 JRB 20 Fix spelling. */ +/* 07/27/05 JRB 19 Don't set OptFlds len=9 (default=10 is good).*/ +/* Don't set OptFlds bits bufovfl, entryID for URCB.*/ +/* 07/25/05 JRB 18 scl2_ld_create_all: Add brcb_bufsize arg. */ +/* 07/21/05 JRB 17 Set initial vals for LCB, GCB, SCB. */ +/* 07/11/05 JRB 16 scl2_ld_create_all: Call */ +/* mvl61850_ctl_lastapplerror_create. */ +/* 06/27/05 JRB 15 Use mvl_nvl_add (mvlu_rpt_nvl_add is obsolete).*/ +/* 05/27/05 JRB 14 Construct NVL name from LN & DataSet name */ +/* as 61850-8-1 requires. */ +/* 05/25/05 JRB 13 Del all code to generate RCB name & just use */ +/* name configured in SCL file (scl_rcb->name). */ +/* Add errflag so if one call to tdladd_string */ +/* fails, subsequent calls fail too. */ +/* 05/09/05 JRB 12 Chg leaf write functions for SqNum (in BRCB */ +/* & URCB) to u_no_write_allowed. */ +/* 04/05/05 MDE 11 Supress invalid log messages */ +/* 03/18/05 JRB 10 Use mvl_max_dyn when creating domains. */ +/* 02/15/05 JRB 09 Use new generated scl_ld->domName, not */ +/* scl_ld->inst as domain name. */ +/* Use new generated scl_fcda->domName, not */ +/* scl_fcda->ldInst as domain name. */ +/* Use new scl_ln->varName, generated once, */ +/* instead of generating ln_name repeatedly. */ +/* Compute max_num_var for mvl_dom_add call. */ +/* 01/19/05 JRB 08 Add scl2_dai_set_value_all & use it to init */ +/* data from DOI/SDI/DAI entries in SCL file. */ +/* Fix len on all strncat calls. */ +/* scl2_rcb_create_all: init ln_name just once. */ +/* Improve some logging. */ +/* 09/01/04 JRB 07 Map Octet64 to OVstring64 (to match 61850-8-1)*/ +/* 08/29/04 JRB 06 Chg Quality type back to BVstring13 because */ +/* final IEC-61850-8-1 changed back. */ +/* 08/19/04 JRB 05 Init return value in scl2_ld_create_all. */ +/* 07/19/04 JRB 04 Add tdladd_lg, tdladd_go_or_gs. */ +/* 07/14/04 JRB 03 Chg Quality type to BVstring14. */ +/* 07/09/04 JRB 02 scl2_ld_create_all: add reportScanRate arg */ +/* to this and lower level functions. */ +/* 07/02/04 JRB 01 Initial Revision. */ +/************************************************************************/ +#include "glbtypes.h" +#include "sysincs.h" +#include "scl.h" +#include "sx_log.h" +#include "mvl_defs.h" +#include "mvl_uca.h" +#include "mvl_log.h" +#include "str_util.h" /* for strn..._safe protos */ +#include "sx_arb.h" /* for sxaText.... proto */ + + +/*renxiaobao Êý¾ÝÓ³Éä*/ +DATA_MAP_LINK *DATA_MAP_saddr=0; +int BRCB_NUM = 0,URCB_NUM = 0; +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/* RESERVED_INFO: structure for extra type related info that is not */ +/* contained in RUNTIME_TYPE or RUNTIME_CTRL. Allocate array of these. */ +typedef struct + { + SCL_ENUMTYPE *scl_enumtype; /* SCL enumtype def for this type */ + ST_CHAR *Val; /* SCL initial value for this type */ + } RESERVED_INFO; + +/* CRITICAL: this struct must be compatible with RUNTIME_TYPE. */ +/* If either one changes, the other must change to match. */ +typedef struct + { + ST_UINT8 LogEna; /* Bool */ + ST_CHAR LogRef[MVL61850_MAX_OBJREF_LEN+1]; /* Vstring129 (ObjectReference) */ + ST_CHAR DatSet[MVL61850_MAX_OBJREF_LEN+1]; /* Vstring129 (ObjectReference) */ + MMS_BTIME6 OldEntrTim; /* Btime6 */ + MMS_BTIME6 NewEntrTim; /* Btime6 */ + ST_UINT8 OldEntr[8]; /* Ostring8 */ + ST_UINT8 NewEntr[8]; /* Ostring8 */ + MMS_BVSTRING TrgOps; /* BVstring6 - struct includes 1 byte data. Enough.*/ + ST_UINT32 IntgPd; /* Ulong */ + } MVL61850_LCB_DATA; /* struct to store data for LCB (IEC Log Control Block) */ + +/* CRITICAL: this struct must be compatible with RUNTIME_TYPE. */ +/* If either one changes, the other must change to match. */ +typedef struct + { + ST_BOOLEAN GoEna; + ST_CHAR GoID[66]; + ST_CHAR DatSet[MVL61850_MAX_OBJREF_LEN+1]; /* Vstring129 (ObjectReference)*/ + ST_UINT32 ConfRev; + ST_BOOLEAN NdsCom; + struct + { + ST_UCHAR Addr[6]; + ST_UINT8 PRIORITY; + ST_UINT16 VID; + ST_UINT16 APPID; + } DstAddress; + } MVL61850_GCB_DATA; /* struct to store data for GCB (GOOSE Control Block) */ + +/* CRITICAL: this struct must be compatible with RUNTIME_TYPE. */ +/* If either one changes, the other must change to match. */ +typedef struct + { + ST_BOOLEAN GsEna; + ST_CHAR GsID[66]; + ST_CHAR DNALabels[32][66]; + ST_CHAR UserSTLabels[128][66]; + struct + { + ST_CHAR GsID[66]; + MMS_BTIME6 t; + ST_UINT32 SqNum; + ST_UINT32 StNum; + ST_UINT32 TAL; + ST_UINT32 usec; + ST_UINT16 PhsID; + ST_UCHAR DNA[8]; + ST_UCHAR UserST[32]; + } LSentData; + struct + { + ST_UCHAR Addr[6]; + ST_UINT8 PRIORITY; + ST_UINT16 VID; + ST_UINT16 APPID; + } DstAddress; + } MVL61850_SCB_DATA; /* struct to store data for SCB (GSSE Control Block) */ + +typedef struct + { + ST_UINT8 SvEna; /* Bool */ + ST_CHAR MsvID[MVL61850_MAX_RPTID_LEN+1]; /* Vstring65 */ + ST_CHAR DatSet[MVL61850_MAX_OBJREF_LEN+1]; /* Vstring129 (ObjectReference) */ + ST_UINT32 ConfRev; /* Ulong */ + ST_UINT32 SmpRate; /* Ulong */ + MMS_BVSTRING OptFlds; /* BVstring3 - struct includes 1 byte data. Enough.*/ + } MVL61850_MSVCB_DATA; /* struct to store data for MSVCB */ + +typedef struct + { + ST_UINT8 SvEna; /* Bool */ + ST_UINT8 Resv; /* Bool */ + ST_CHAR UsvID[MVL61850_MAX_RPTID_LEN+1]; /* Vstring65 */ + ST_CHAR DatSet[MVL61850_MAX_OBJREF_LEN+1]; /* Vstring129 (ObjectReference) */ + ST_UINT32 ConfRev; /* Ulong */ + ST_UINT32 SmpRate; /* Ulong */ + MMS_BVSTRING OptFlds; /* BVstring3 - struct includes 1 byte data. Enough.*/ + } MVL61850_USVCB_DATA; /* struct to store data for USVCB */ + +/* CRITICAL: this struct must be compatible with RUNTIME_TYPE. */ +/* If either one changes, the other must change to match. */ +typedef struct + { + ST_UINT8 NumOfSG; + ST_UINT8 ActSG; + ST_UINT8 EditSG; + ST_BOOLEAN CnfEdit; + MMS_UTC_TIME LActTm; /* TimeStamp */ + } MVL61850_SGCB_DATA; /* struct to store data for SGCB (Setting Group Control Block) */ + +/************************************************************************/ +/* STATIC FUNCTION PROTOTYPES */ +/* Need prototypes for these static functions because rtadd_da_struct */ +/* calls rtadd_da_or_bda and vice versa. */ +/* Other static functions are just defined in the order they are needed */ +/* so prototypes are not needed. */ +/************************************************************************/ +static ST_RET rtadd_da_struct ( + RUNTIME_BUILD_CTXT *ctxt, + SCL_INFO *scl_info, + ST_CHAR *type_id, + ST_CHAR *comp_name); +static ST_RET rtadd_da_or_bda ( + RUNTIME_BUILD_CTXT *ctxt, + SCL_INFO *scl_info, + ST_CHAR *name, /* DA or BDA name */ + ST_CHAR *bType, /* DA or BDA bType */ + ST_CHAR *type, /* DA or BDA type */ + ST_UINT count, /* DA or BDA count */ + ST_CHAR *Val); /* DA or BDA Val */ + +/************************************************************************/ +/************************************************************************/ +ST_BOOLEAN scl_debug_mode; +ST_INT scl_debug_mode_error_count; +SCL2_BTYPE *scl2_btype_list; +/* NOTE: setting this flag changes the way RCB names generated. */ +ST_BOOLEAN rcb_name_no_index; /* change to SD_TRUE to skip RCB index */ + /* suffix when maxClient==1 */ + +/************************************************************************/ +/* Add a "custom" basic type to the RUNTIME_TYPE array. */ +/************************************************************************/ +static ST_RET ms_rt_bld_61850_add_custom_btype (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *btype, ST_CHAR *comp_name) + { +SCL2_BTYPE *sclBtype; + sclBtype = scl2_btype_list; + while (sclBtype != NULL) + { + if (!strcmp (sclBtype->btype, btype)) + { /* already checked that this is simple type, so just use ...rt_first*/ + return (ms_rt_bld_add_special (ctxt, comp_name, sclBtype->rt_ctrl->rt_first)); + } + sclBtype = list_get_next (scl2_btype_list, sclBtype); + } + SXLOG_ERR1 ("bType='%s' is not recognized", btype); + return (SD_FAILURE); + } +/************************************************************************/ +/* Add a basic type to the RUNTIME_TYPE array. */ +/************************************************************************/ +static ST_RET ms_rt_bld_61850_add_btype (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *btype, ST_CHAR *comp_name) + { + /* First check for any of the PredefinedBasicTypes. */ + if (strcmp (btype, "BOOLEAN") == 0) + return (ms_rt_bld_add_bool (ctxt, comp_name)); + if (strcmp (btype, "INT8") == 0) + return (ms_rt_bld_add_int (ctxt, comp_name, 1)); + if (strcmp (btype, "INT16") == 0) + return (ms_rt_bld_add_int (ctxt, comp_name, 2)); + if (strcmp (btype, "INT32") == 0) + return (ms_rt_bld_add_int (ctxt, comp_name, 4)); + if (strcmp (btype, "INT64") == 0) + { +#if defined(INT64_SUPPORT) + return (ms_rt_bld_add_int (ctxt, comp_name, 8)); +#else + SXLOG_ERR0 ("INT64 not supported on this platform"); + return (SD_FAILURE); +#endif + } + if (strcmp (btype, "INT8U") == 0) + return (ms_rt_bld_add_uint (ctxt, comp_name, 1)); + if (strcmp (btype, "INT16U") == 0) + return (ms_rt_bld_add_uint (ctxt, comp_name, 2)); + if (strcmp (btype, "INT32U") == 0) + return (ms_rt_bld_add_uint (ctxt, comp_name, 4)); + if (strcmp (btype, "INT64U") == 0) + { +#if defined(INT64_SUPPORT) + return (ms_rt_bld_add_uint (ctxt, comp_name, 8)); +#else + SXLOG_ERR0 ("INT64U not supported on this platform"); + return (SD_FAILURE); +#endif + } + if (strcmp (btype, "FLOAT32") == 0) + return (ms_rt_bld_add_float (ctxt, comp_name, 4)); + if (strcmp (btype, "FLOAT64") == 0) + return (ms_rt_bld_add_float (ctxt, comp_name, 8)); + if (strcmp (btype, "Dbpos") == 0 + || strcmp (btype, "Tcmd") == 0) + return (ms_rt_bld_add_bstring (ctxt, comp_name, 2)); /* 2 bits*/ + /* "Check" is PACKED LIST. Maps to BVstring. */ + if (strcmp (btype, "Check") == 0) + return (ms_rt_bld_add_bvstring (ctxt, comp_name, 2)); /* max 2 bits*/ + if (strcmp (btype, "Quality") == 0) + return (ms_rt_bld_add_bvstring (ctxt, comp_name, 13)); /* max 13 bits*/ + if (strcmp (btype, "Timestamp") == 0) + return (ms_rt_bld_add_utctime (ctxt, comp_name)); + if (strcmp (btype, "VisString32") == 0) + return (ms_rt_bld_add_vstring (ctxt, comp_name, 32)); /* max 32 char*/ + if (strcmp (btype, "VisString64") == 0) + return (ms_rt_bld_add_vstring (ctxt, comp_name, 64)); /* max 64 char*/ + if (strcmp (btype, "VisString65") == 0) + return (ms_rt_bld_add_vstring (ctxt, comp_name, 65)); /* max 65 char*/ + if (strcmp (btype, "VisString128") == 0) + return (ms_rt_bld_add_vstring (ctxt, comp_name, 128)); /* max 128 char*/ + if (strcmp (btype, "VisString129") == 0) + return (ms_rt_bld_add_vstring (ctxt, comp_name, 129)); /* max 129 char*/ + if (strcmp (btype, "ObjRef") == 0) + return (ms_rt_bld_add_vstring (ctxt, comp_name, 129)); /* max 129 char*/ + if (strcmp (btype, "VisString255") == 0) + return (ms_rt_bld_add_vstring (ctxt, comp_name, 255)); /* max 255 char*/ + if (strcmp (btype, "Octet64") == 0) + /* 61850-8-1 says all octet strings are variable length*/ + return (ms_rt_bld_add_ovstring (ctxt, comp_name, 64)); /* max 64 bytes*/ + if (strcmp (btype, "EntryTime") == 0) + return (ms_rt_bld_add_btime6 (ctxt, comp_name)); + if (strcmp (btype, "Unicode255") == 0) + return (ms_rt_bld_add_utf8vstring (ctxt, comp_name, 255)); /* max 255 char*/ + /* If the "btype" does not match any PredefinedBasicTypes, */ + /* see if it matches a "custom" type (i.e. a type created earlier by */ + /* calling scl2_add_btype). */ + return (ms_rt_bld_61850_add_custom_btype (ctxt, btype, comp_name)); + } + +/************************************************************************/ +/* ms_rt_bld_61850_add_brcb */ +/* NOTE: check only last return code. If one "ms_rt_bld_add_*" call fails, */ +/* subsequent calls will fail too. */ +/************************************************************************/ +static ST_RET ms_rt_bld_61850_add_brcb (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name) + { +ST_RET retcode; + ms_rt_bld_add_str_start (ctxt, comp_name); + ms_rt_bld_add_vstring (ctxt, "RptID", MVL61850_MAX_RPTID_LEN); + ms_rt_bld_add_bool (ctxt, "RptEna"); + ms_rt_bld_add_vstring (ctxt, "DatSet", MVL61850_MAX_OBJREF_LEN); + ms_rt_bld_add_uint (ctxt, "ConfRev", 4); + ms_rt_bld_add_bvstring (ctxt, "OptFlds", 10); + ms_rt_bld_add_uint (ctxt, "BufTm", 4); + ms_rt_bld_add_uint (ctxt, "SqNum", 2); + ms_rt_bld_add_bvstring (ctxt, "TrgOps", 6); + ms_rt_bld_add_uint (ctxt, "IntgPd", 4); + ms_rt_bld_add_bool (ctxt, "GI"); + ms_rt_bld_add_bool (ctxt, "PurgeBuf"); + ms_rt_bld_add_ostring (ctxt, "EntryID", 8); + ms_rt_bld_add_btime6 (ctxt, "TimeofEntry"); + retcode = ms_rt_bld_add_str_end (ctxt); + return (retcode); + } +/************************************************************************/ +/* ms_rt_bld_61850_add_urcb */ +/* NOTE: check only last return code. If one "ms_rt_bld_add_*" call fails, */ +/* subsequent calls will fail too. */ +/************************************************************************/ +static ST_RET ms_rt_bld_61850_add_urcb (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name) + { +ST_RET retcode; + ms_rt_bld_add_str_start (ctxt, comp_name); + ms_rt_bld_add_vstring (ctxt, "RptID", MVL61850_MAX_RPTID_LEN); + ms_rt_bld_add_bool (ctxt, "RptEna"); + ms_rt_bld_add_bool (ctxt, "Resv"); + ms_rt_bld_add_vstring (ctxt, "DatSet", MVL61850_MAX_OBJREF_LEN); + ms_rt_bld_add_uint (ctxt, "ConfRev", 4); + ms_rt_bld_add_bvstring (ctxt, "OptFlds", 10); + ms_rt_bld_add_uint (ctxt, "BufTm", 4); + ms_rt_bld_add_uint (ctxt, "SqNum", 1); + ms_rt_bld_add_bvstring (ctxt, "TrgOps", 6); + ms_rt_bld_add_uint (ctxt, "IntgPd", 4); + ms_rt_bld_add_bool (ctxt, "GI"); + retcode = ms_rt_bld_add_str_end (ctxt); + return (retcode); + } +/************************************************************************/ +/* ms_rt_bld_61850_add_lcb */ +/* NOTE: check only last return code. If one "ms_rt_bld_add_*" call fails, */ +/* subsequent calls will fail too. */ +/************************************************************************/ +static ST_RET ms_rt_bld_61850_add_lcb (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name) + { +ST_RET retcode; + ms_rt_bld_add_str_start (ctxt, comp_name); + ms_rt_bld_add_bool (ctxt, "LogEna"); + ms_rt_bld_add_vstring (ctxt, "LogRef", MVL61850_MAX_OBJREF_LEN); + ms_rt_bld_add_vstring (ctxt, "DatSet", MVL61850_MAX_OBJREF_LEN); +#if 0 /*renxiaobao 20170106 mod*/ + ms_rt_bld_add_btime6 (ctxt, "OldEntrTim"); + ms_rt_bld_add_btime6 (ctxt, "NewEntrTim"); +#else + ms_rt_bld_add_btime6 (ctxt, "OldEntrTm"); + ms_rt_bld_add_btime6 (ctxt, "NewEntrTm"); +#endif + ms_rt_bld_add_ostring (ctxt, "OldEntr", 8); + ms_rt_bld_add_ostring (ctxt, "NewEntr", 8); + ms_rt_bld_add_bvstring (ctxt, "TrgOps", 6); + ms_rt_bld_add_uint (ctxt, "IntgPd", 4); + retcode = ms_rt_bld_add_str_end (ctxt); + return (retcode); + } +/************************************************************************/ +/* ms_rt_bld_61850_add_gcb */ +/* NOTE: check only last return code. If one "ms_rt_bld_add_*" call fails, */ +/* subsequent calls will fail too. */ +/************************************************************************/ +static ST_RET ms_rt_bld_61850_add_gcb (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name) + { +ST_RET retcode; + ms_rt_bld_add_str_start (ctxt, comp_name); + ms_rt_bld_add_bool (ctxt, "GoEna"); + ms_rt_bld_add_vstring (ctxt, "GoID", MVL61850_MAX_RPTID_LEN); + ms_rt_bld_add_vstring (ctxt, "DatSet", MVL61850_MAX_OBJREF_LEN); + ms_rt_bld_add_uint (ctxt, "ConfRev", 4); + ms_rt_bld_add_bool (ctxt, "NdsCom"); + ms_rt_bld_add_str_start (ctxt, "DstAddress"); + ms_rt_bld_add_ostring (ctxt, "Addr", 6); + ms_rt_bld_add_uint (ctxt, "PRIORITY", 1); + ms_rt_bld_add_uint (ctxt, "VID", 2); + ms_rt_bld_add_uint (ctxt, "APPID", 2); + ms_rt_bld_add_str_end (ctxt); + retcode = ms_rt_bld_add_str_end (ctxt); + return (retcode); + } +/************************************************************************/ +/* ms_rt_bld_61850_add_scb */ +/* NOTE: check only last return code. If one "ms_rt_bld_add_*" call fails, */ +/* subsequent calls will fail too. */ +/************************************************************************/ +static ST_RET ms_rt_bld_61850_add_scb (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name) + { +ST_RET retcode; + ms_rt_bld_add_str_start (ctxt, comp_name); + ms_rt_bld_add_bool (ctxt, "GsEna"); + ms_rt_bld_add_vstring (ctxt, "GsID", MVL61850_MAX_RPTID_LEN); + ms_rt_bld_add_arr_start (ctxt, "DNALabels", 32); + ms_rt_bld_add_vstring (ctxt, "DNALabels", 65); + ms_rt_bld_add_arr_end (ctxt); + ms_rt_bld_add_arr_start (ctxt, "UserSTLabels", 128); + ms_rt_bld_add_vstring (ctxt, "DNALabels", 65); + ms_rt_bld_add_arr_end (ctxt); + ms_rt_bld_add_str_start (ctxt, "LSentData"); + ms_rt_bld_add_vstring (ctxt, "GsID", MVL61850_MAX_RPTID_LEN); + ms_rt_bld_add_btime6 (ctxt, "t"); + ms_rt_bld_add_uint (ctxt, "SqNum", 4); + ms_rt_bld_add_uint (ctxt, "StNum", 4); + ms_rt_bld_add_uint (ctxt, "TAL", 4); + ms_rt_bld_add_uint (ctxt, "usec", 4); + ms_rt_bld_add_uint (ctxt, "PhsID", 2); + ms_rt_bld_add_bstring (ctxt, "DNA", 64); + ms_rt_bld_add_bstring (ctxt, "UserST", 256); + ms_rt_bld_add_str_end (ctxt); + ms_rt_bld_add_str_start (ctxt, "DstAddress"); + ms_rt_bld_add_ostring (ctxt, "Addr", 6); + ms_rt_bld_add_uint (ctxt, "PRIORITY", 1); + ms_rt_bld_add_uint (ctxt, "VID", 2); + ms_rt_bld_add_uint (ctxt, "APPID", 2); + ms_rt_bld_add_str_end (ctxt); + retcode = ms_rt_bld_add_str_end (ctxt); + return (retcode); + } +/************************************************************************/ +/* ms_rt_bld_61850_add_msvcb */ +/* NOTE: check only last return code. If one "ms_rt_bld_add_*" call fails, */ +/* subsequent calls will fail too. */ +/************************************************************************/ +static ST_RET ms_rt_bld_61850_add_msvcb (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name) + { +ST_RET retcode; + ms_rt_bld_add_str_start (ctxt, comp_name); + ms_rt_bld_add_bool (ctxt, "SvEna"); + ms_rt_bld_add_vstring (ctxt, "MsvID", MVL61850_MAX_RPTID_LEN); + ms_rt_bld_add_vstring (ctxt, "DatSet", MVL61850_MAX_OBJREF_LEN); + ms_rt_bld_add_uint (ctxt, "ConfRev", 4); + ms_rt_bld_add_uint (ctxt, "SmpRate", 4); + ms_rt_bld_add_bvstring (ctxt, "OptFlds", 3); + retcode = ms_rt_bld_add_str_end (ctxt); + return (retcode); + } +/************************************************************************/ +/* ms_rt_bld_61850_add_usvcb */ +/* NOTE: check only last return code. If one "ms_rt_bld_add_*" call fails, */ +/* subsequent calls will fail too. */ +/************************************************************************/ +static ST_RET ms_rt_bld_61850_add_usvcb (RUNTIME_BUILD_CTXT *ctxt, ST_CHAR *comp_name) + { +ST_RET retcode; + ms_rt_bld_add_str_start (ctxt, comp_name); + ms_rt_bld_add_bool (ctxt, "SvEna"); + ms_rt_bld_add_bool (ctxt, "Resv"); + ms_rt_bld_add_vstring (ctxt, "UsvID", MVL61850_MAX_RPTID_LEN); + ms_rt_bld_add_vstring (ctxt, "DatSet", MVL61850_MAX_OBJREF_LEN); + ms_rt_bld_add_uint (ctxt, "ConfRev", 4); + ms_rt_bld_add_uint (ctxt, "SmpRate", 4); + ms_rt_bld_add_bvstring (ctxt, "OptFlds", 3); + retcode = ms_rt_bld_add_str_end (ctxt); + return (retcode); + } +/************************************************************************/ +/* ms_rt_bld_61850_add_sgcb */ +/* NOTE: check only last return code. If one "ms_rt_bld_add_*" call fails,*/ +/* subsequent calls will fail too. */ +/************************************************************************/ +static ST_RET ms_rt_bld_61850_add_sgcb (RUNTIME_BUILD_CTXT *ctxt) + { +ST_RET retcode; + ms_rt_bld_add_str_start (ctxt, "SGCB"); /* fixed struct name */ + ms_rt_bld_add_uint (ctxt, "NumOfSG", 1); + ms_rt_bld_add_uint (ctxt, "ActSG", 1); + ms_rt_bld_add_uint (ctxt, "EditSG", 1); + ms_rt_bld_add_bool (ctxt, "CnfEdit"); + ms_rt_bld_add_utctime (ctxt, "LActTm"); + retcode = ms_rt_bld_add_str_end (ctxt); + return (retcode); + } +/************************************************************************/ +/* reserved_free_all */ +/* Find all types used by this VMD. If rt_ctrl->reserved_1 is not NULL, */ +/* we must have allocated it in "scl2_datatype_create", so free it and */ +/* set it to NULL. */ +/************************************************************************/ +static ST_VOID reserved_free_all (MVL_VMD_CTRL *vmd_ctrl) + + { +ST_INT type_id; +MVL_TYPE_CTRL *type_ctrl; +RUNTIME_CTRL *rt_ctrl; + /* This only works for "dynamic" types so start with first dynamic type.*/ + for (type_id = mvl_num_types - mvl_max_dyn.types; type_id < mvl_num_types; type_id++) + { + type_ctrl = mvl_vmd_type_ctrl_find (vmd_ctrl, type_id); + if (type_ctrl) /* type found in this VMD */ + { + rt_ctrl = type_ctrl->rt_ctrl; /* always valid */ + if (rt_ctrl->reserved_1 != NULL) + { + chk_free (rt_ctrl->reserved_1); + rt_ctrl->reserved_1 = NULL; + } + } + } + } +/************************************************************************/ +/* scl_make_objref */ +/* Construct ObjectReference from SCL info. */ +/************************************************************************/ +static ST_RET scl_make_objref ( + SCL_LD *scl_ld, + SCL_LN *scl_ln, + ST_CHAR *objName, /* Object (DataSet, Data) name */ + ST_CHAR *objRef, /* ptr to resulting ObjRef string */ + ST_UINT max_len) /* max len of resulting ObjRef string */ + { +ST_RET retcode; + + if (strlen (scl_ld->domName) + + strlen (scl_ln->prefix) + strlen (scl_ln->lnClass) + strlen (scl_ln->inst) + + strlen (objName) + 2 > max_len) /* 2 added for '/' and '$' */ + { + SXLOG_ERR1 ("Constructed ObjectReference would be too long for '%s'.", objName); + retcode = SD_FAILURE; + } + else + { + sprintf (objRef, "%s/%s%s%s$%s", scl_ld->domName, scl_ln->prefix, + scl_ln->lnClass, scl_ln->inst, objName); + retcode = SD_SUCCESS; + } + return (retcode); + } + +/************************************************************************/ +/* scl_make_objref2 */ +/* Construct ObjectReference from SCL info (LN Name not included). */ +/* Similar to scl_make_objref, but does not include LN name. */ +/************************************************************************/ +static ST_RET scl_make_objref2 ( + SCL_LD *scl_ld, + ST_CHAR *objName, /* Object name */ + ST_CHAR *objRef, /* ptr to resulting ObjRef string */ + ST_UINT max_len) /* max len of resulting ObjRef string */ + { +ST_RET retcode; + if (strlen (scl_ld->domName) + + strlen (objName) + 2 > max_len) /* 2 added for '/' and '$' */ + { + SXLOG_ERR1 ("Constructed ObjectReference would be too long for '%s'.", objName); + retcode = SD_FAILURE; + } + else + { + sprintf (objRef, "%s/%s", scl_ld->domName, objName); + retcode = SD_SUCCESS; + } + return (retcode); + } + +/************************************************************************/ +/* special_type_name */ +/* Create type name for a special LN (one that includes RCB, LCB, etc.).*/ +/* NOTE: do not use '$'. This will confuse "mvlu_set_leaf_param". */ +/************************************************************************/ +ST_RET special_type_name (ST_CHAR *prefix, SCL_LD *scl_ld, SCL_LN *scl_ln, + ST_CHAR *type_name, size_t type_name_size) + { /* Create unique type name for this LN. */ +size_t len = 0; +ST_RET retcode; + if (prefix) /* NOTE: if prefix is not NULL, add prefix. */ + len += strlen (prefix); + len += strlen (scl_ld->inst); + len += strlen (scl_ln->prefix); + len += strlen (scl_ln->lnClass); + len += strlen (scl_ln->inst); + + type_name [0] = '\0'; /* start with empty string */ + if (len < type_name_size) + { /* name will fit, so write it */ + if (prefix) + strcat (type_name, prefix); + strcat (type_name, scl_ld->inst); + strcat (type_name, scl_ln->prefix); + strcat (type_name, scl_ln->lnClass); + strcat (type_name, scl_ln->inst); + retcode = SD_SUCCESS; + } + else + retcode = SD_FAILURE; /* name would be too long */ + return (retcode); + } + +/************************************************************************/ +/* simple_type_name */ +/* Create type name for a simple type. */ +/* NOTE: do not use '$'. This will confuse "mvlu_set_leaf_param". */ +/************************************************************************/ +ST_RET simple_type_name (ST_CHAR *prefix, SCL_LNTYPE *scl_lntype, + ST_CHAR *type_name, size_t type_name_size) + { /* Create unique type name for this LN. */ +size_t len = 0; +ST_RET retcode; + + if (prefix) /* NOTE: if prefix is not NULL, add prefix. */ + len += strlen (prefix); + len += strlen (scl_lntype->id); + + type_name [0] = '\0'; /* start with empty string */ + if (len < type_name_size) + { /* name will fit, so write it */ + if (prefix) + strcat (type_name, prefix); + strcat (type_name, scl_lntype->id); + retcode = SD_SUCCESS; + } + else + retcode = SD_FAILURE; /* name would be too long */ + return (retcode); + } + +/************************************************************************/ +/* scl_find_dotype */ +/************************************************************************/ +static SCL_DOTYPE *scl_find_dotype ( + SCL_INFO *scl_info, /* main struct where all SCL info stored*/ + ST_CHAR *type_id) + { +SCL_DOTYPE *scl_dotype; + + for (scl_dotype = (SCL_DOTYPE *) list_find_last ((DBL_LNK *) scl_info->doTypeHead); + scl_dotype != NULL; + scl_dotype = (SCL_DOTYPE *) list_find_prev ((DBL_LNK *) scl_info->doTypeHead, (DBL_LNK *) scl_dotype)) + { + if (strcmp (scl_dotype->id, type_id) ==0) + return (scl_dotype); + } + return (NULL); /* match not found */ + } +/************************************************************************/ +/* scl_find_datype */ +/************************************************************************/ +static SCL_DATYPE *scl_find_datype ( + SCL_INFO *scl_info, /* main struct where all SCL info stored*/ + ST_CHAR *type_id) + { +SCL_DATYPE *scl_datype; + + for (scl_datype = (SCL_DATYPE *) list_find_last ((DBL_LNK *) scl_info->daTypeHead); + scl_datype != NULL; + scl_datype = (SCL_DATYPE *) list_find_prev ((DBL_LNK *) scl_info->daTypeHead, (DBL_LNK *) scl_datype)) + { + if (strcmp (scl_datype->id, type_id) ==0) + return (scl_datype); + } + return (NULL); /* match not found */ + } +/************************************************************************/ +/************************************************************************/ +static SCL_DATASET *scl_find_dataset ( + SCL_LN *scl_ln, + ST_CHAR *dataset_name) + { +SCL_DATASET *scl_dataset; + + for (scl_dataset = (SCL_DATASET *) list_find_last ((DBL_LNK *) scl_ln->datasetHead); + scl_dataset != NULL; + scl_dataset = (SCL_DATASET *) list_find_prev ((DBL_LNK *) scl_ln->datasetHead, (DBL_LNK *) scl_dataset)) + { + if (strcmp (scl_dataset->name, dataset_name) ==0) + return (scl_dataset); + } + return (NULL); /* match not found */ + } + +/************************************************************************/ +/* scl2_find_enumtype */ +/************************************************************************/ +SCL_ENUMTYPE *scl2_find_enumtype (SCL_INFO *scl_info, ST_CHAR *name) + { +SCL_ENUMTYPE *scl_enumtype; + for (scl_enumtype = (SCL_ENUMTYPE *) list_find_last ((DBL_LNK *) scl_info->enumTypeHead); + scl_enumtype != NULL; + scl_enumtype = (SCL_ENUMTYPE *) list_find_prev ((DBL_LNK *) scl_info->enumTypeHead, (DBL_LNK *) scl_enumtype)) + { + if (strcmp (scl_enumtype->id, name) == 0) + break; /* found a match */ + } + return (scl_enumtype); + } + +/************************************************************************/ +/* scl2_add_btype */ +/************************************************************************/ +SCL2_BTYPE *scl2_add_btype (ST_CHAR *btype, ST_CHAR *tdl) + { +SCL2_BTYPE *sclBtype; +RUNTIME_CTRL *rt_ctrl; +ST_UCHAR asn1_buf [200]; /* simple types only, so this should be big enough*/ + + sclBtype = NULL; /* assume failure for now */ + rt_ctrl = ms_tdl_to_runtime (tdl, asn1_buf, sizeof(asn1_buf)); + if (rt_ctrl) + { + if (rt_ctrl->rt_num == 1) /* must be simple type */ + { + sclBtype = chk_calloc (1, sizeof (SCL2_BTYPE) + strlen (btype) + 1); + sclBtype->btype = (ST_CHAR *) (sclBtype + 1); /* point after struct*/ + strcpy (sclBtype->btype, btype); + sclBtype->rt_ctrl = rt_ctrl; /* rt_ctrl allocated, just save ptr*/ + list_add_last (&scl2_btype_list, sclBtype); + } + else + { /* Complex type not allowed, so destroy it now. Err return already set*/ + ms_runtime_destroy (rt_ctrl); + } + } + return (sclBtype); + } + +/************************************************************************/ +/* rtadd_sdo */ +/* NOTE: if (error) returned, caller should break out of loop. */ +/* RETURNS: SD_SUCCESS or error code */ +/************************************************************************/ +static ST_RET rtadd_sdo ( + RUNTIME_BUILD_CTXT *rt_ctxt, + SCL_INFO *scl_info, + ST_CHAR *FC, /* FC to match */ + ST_CHAR *name, /* SDO name */ + ST_CHAR *type) /* SDO type */ + { +SCL_DOTYPE *scl_dotype; +SCL_DA *scl_da; +ST_RET retcode; +ST_INT rt_num_after_str_start; /* index after str_start added */ + + /* First add SDO name (passed to this funct). May need rollback later */ + if (ms_rt_bld_add_str_start (rt_ctxt, name)!=SD_SUCCESS) + return (SD_FAILURE); /* error (already logged) */ + + /* Save current index. Use later to check if any types added. */ + rt_num_after_str_start = ms_rt_bld_get_count (rt_ctxt); + + /* Find DOType whose "id" matches the SDO "type". */ + scl_dotype = scl_find_dotype (scl_info, type); + if (scl_dotype) + { + /* Find all DA or SDO in this DO that match the FC */ + /* NOTE: linked list is in reverse order from data in SCL file, */ + /* so get off list in reverse order. */ + for (scl_da = (SCL_DA *) list_find_last ((DBL_LNK *) scl_dotype->daHead); + scl_da != NULL; + scl_da = (SCL_DA *) list_find_prev ((DBL_LNK *) scl_dotype->daHead, (DBL_LNK *) scl_da)) + { + if (scl_da->objtype == SCL_OBJTYPE_SDO) + { + /* This is a "nested" SDO. Just call rtadd_sdo again recursively. */ + retcode = rtadd_sdo (rt_ctxt, scl_info, FC, scl_da->name, scl_da->type); + if (retcode != SD_SUCCESS) /* error (already logged) */ + return (retcode); /* error */ + } + else + { /* objtype must be SCL_OBJTYPE_DA */ + if (strcmp (scl_da->fc, FC) == 0) /* FC of this DA matches FC */ + { + retcode = rtadd_da_or_bda (rt_ctxt, scl_info, scl_da->name, scl_da->bType, + scl_da->type, scl_da->count, scl_da->Val); + if (retcode != SD_SUCCESS) /* error (already logged) */ + return (retcode); /* error */ + } + } + } /* end "for (scl_da...)" loop */ + + } + else + { + SXLOG_ERR1 ("SDO type '%s' cannot be found", type); + return (SD_FAILURE); /* error */ + } + + /* Check if any types were added after start of struct */ + if (ms_rt_bld_get_count (rt_ctxt) > rt_num_after_str_start) + { /* types were added, so finish struct now */ + if (ms_rt_bld_add_str_end (rt_ctxt) != SD_SUCCESS) + return (SD_FAILURE); /* error (already logged) */ + } + else + { /* types NOT added so remove start of struct */ + ms_rt_bld_remove_last (rt_ctxt); + } + return (SD_SUCCESS); /* only successful return */ + } +/************************************************************************/ +/* rtadd_da_or_bda */ +/* NOTE: if (error) returned, caller should break out of loop. */ +/* RETURNS: SD_SUCCESS or error code */ +/************************************************************************/ +static ST_RET rtadd_da_or_bda ( + RUNTIME_BUILD_CTXT *rt_ctxt, + SCL_INFO *scl_info, + ST_CHAR *name, /* DA or BDA name */ + ST_CHAR *bType, /* DA or BDA bType */ + ST_CHAR *type, /* DA or BDA type */ + ST_UINT count, /* DA or BDA count */ + ST_CHAR *Val) /* DA or BDA Val (may be NULL) */ + { +ST_RET retcode; +RESERVED_INFO *reserved_info; /* ptr to array of extra type info. */ + + /* Cast "reserved_1" pointer to the type we allocated. */ + if (rt_ctxt->do_count) + reserved_info = NULL; /* rt_ctrl & reserved_1 not allocated yet*/ + else + reserved_info = (RESERVED_INFO *) rt_ctxt->rt_ctrl->reserved_1; + + /* If count!=0, this is array. */ + if (count) + { + /* NOTE: comp_name stored on arr_start AND on first element of array.*/ + if (ms_rt_bld_add_arr_start (rt_ctxt, name, count)) + return (SD_FAILURE); /* error (already logged) */ + } + + /* Add different text depending on "bType" (Struct, Enum, or BasicType). */ + if (strcmp (bType, "Struct") == 0) + { + /* NOTE: this may cause recursion */ + /* (i.e. rtadd_da_struct may call rtadd_da_or_bda).*/ + retcode = rtadd_da_struct (rt_ctxt, scl_info, type, name); + if (retcode != SD_SUCCESS) + { + SXLOG_ERR1 ("SCL ERROR: Can't add type definition for BDA Struct type=%s", type); + return (retcode); + } + } + else if (strcmp (bType, "Enum") == 0) + { + SCL_ENUMTYPE *scl_enumtype; + if ((scl_enumtype = scl2_find_enumtype (scl_info, type))==NULL) + { + SXLOG_ERR1 ("EnumType '%s' could not be found", type); + return (SD_FAILURE); + } + else + { + /* DEBUG: for now assume all enums are 8-bit */ + /* Someday may need to chk for maximum "EnumVal ord" to determine # of bits */ + /* Save the scl_enumtype pointer in reserved_info array. */ + /* Also save "Val", if present. */ + /* CRITICAL: Do this BEFORE calling "ms_rt_bld_add_*" so that */ + /* scl_enumtype is saved in the current array entry. */ + if (!rt_ctxt->do_count) /* if (do_count), reserved_info not set.*/ + { + reserved_info[rt_ctxt->rt_ctrl->rt_num].scl_enumtype = scl_enumtype; + if (Val != NULL) + { + SXLOG_FLOW2 ("Saving Val='%s' for DA or BDA='%s'", Val, name); + reserved_info[rt_ctxt->rt_ctrl->rt_num].Val = Val; + } + } + + if (ms_rt_bld_add_int (rt_ctxt, name, 1) != SD_SUCCESS) + return (SD_FAILURE); /* error (already logged) */ + } + } + else + { /* must be BasicType */ + /* Save initial value of this component, if present. */ + /* CRITICAL: Do this BEFORE calling "ms_rt_bld_add_*" so that */ + /* "Val" is saved in the current array entry. */ + if (Val != NULL) + { + if (!rt_ctxt->do_count) /* if (do_count), reserved_info not set.*/ + { + SXLOG_FLOW2 ("Saving Val='%s' for DA or BDA='%s'", Val, name); + reserved_info[rt_ctxt->rt_ctrl->rt_num].Val = Val; + } + } + if (ms_rt_bld_61850_add_btype (rt_ctxt, bType, name)) + return (SD_FAILURE); /* error (already logged) */ + } + + /* If count!=0, this is array. */ + if (count) + { /* this BDA is array */ + if (ms_rt_bld_add_arr_end (rt_ctxt)) + return (SD_FAILURE); /* error (already logged) */ + } + + return (SD_SUCCESS); /* only successful return */ + } +/************************************************************************/ +/* rtadd_da_struct */ +/* Add the RUNTIME_TYPE definitions for a DA that is "Struct". */ +/* RETURNS: SD_SUCCESS or error code */ +/************************************************************************/ +static ST_RET rtadd_da_struct ( + RUNTIME_BUILD_CTXT *rt_ctxt, + SCL_INFO *scl_info, + ST_CHAR *type_id, + ST_CHAR *comp_name) + { +SCL_DATYPE *scl_datype; +SCL_BDA *scl_bda; +ST_RET retcode; + + scl_datype = scl_find_datype (scl_info, type_id); + if (scl_datype) + { + if (ms_rt_bld_add_str_start (rt_ctxt, comp_name)!=SD_SUCCESS) + return (SD_FAILURE); /* error (already logged) */ + + /* Add info for all BDA in this DAType. */ + /* NOTE: linked list is in reverse order from data in SCL file, */ + /* so get off list in reverse order. */ + for (scl_bda = (SCL_BDA *) list_find_last ((DBL_LNK *) scl_datype->bdaHead); + scl_bda != NULL; + scl_bda = (SCL_BDA *) list_find_prev ((DBL_LNK *) scl_datype->bdaHead, (DBL_LNK *) scl_bda)) + { + retcode = rtadd_da_or_bda (rt_ctxt, scl_info, scl_bda->name, scl_bda->bType, + scl_bda->type, scl_bda->count, scl_bda->Val); + if (retcode != SD_SUCCESS) /* error (already logged) */ + return (retcode); /* error */ + } /* end "for (scl_bda...)" loop */ + + if (ms_rt_bld_add_str_end (rt_ctxt)!=SD_SUCCESS) + return (SD_FAILURE); /* error (already logged) */ + } + else + { + SXLOG_ERR1 ("SCL ERROR: DAType id=%s not found", type_id); + return (SD_FAILURE); /* error */ + } + + return (SD_SUCCESS); /* only successful return */ + } +/************************************************************************/ +/* rtadd_do */ +/* Add the RUNTIME_TYPE definitions for one DO. */ +/* RETURNS: SD_SUCCESS or error code */ +/************************************************************************/ +static ST_RET rtadd_do ( + RUNTIME_BUILD_CTXT *rt_ctxt, + char *FC, + SCL_INFO *scl_info, + ST_CHAR *do_name, + SCL_DOTYPE *scl_dotype) + { +SCL_DA *scl_da; +ST_RET retcode; +ST_INT rt_num_after_str_start; /* index after str_start added */ + + if (ms_rt_bld_add_str_start (rt_ctxt, do_name)!=SD_SUCCESS) + return (SD_FAILURE); /* error (already logged) */ + + /* Save current index. Use later to check if any types added. */ + rt_num_after_str_start = ms_rt_bld_get_count (rt_ctxt); + + /* Find all DA or SDO in this DO that match the FC */ + /* NOTE: linked list is in reverse order from data in SCL file, */ + /* so get off list in reverse order. */ + for (scl_da = (SCL_DA *) list_find_last ((DBL_LNK *) scl_dotype->daHead); + scl_da != NULL; + scl_da = (SCL_DA *) list_find_prev ((DBL_LNK *) scl_dotype->daHead, (DBL_LNK *) scl_da)) + { + if (scl_da->objtype == SCL_OBJTYPE_SDO) + { + /* Only "name" and "type" used for SDO. */ + retcode = rtadd_sdo (rt_ctxt, scl_info, FC, scl_da->name, scl_da->type); + if (retcode != SD_SUCCESS) /* error (already logged) */ + return (retcode); /* error */ + } + else + { + /*renxiaobao ¶¨Öµ */ + if (strcmp ("SE", FC) == 0) + { + if (strcmp (scl_da->fc, "SG") == 0) /* FC of this DA matches FC */ + { + retcode = rtadd_da_or_bda (rt_ctxt, scl_info, scl_da->name, scl_da->bType, + scl_da->type, scl_da->count, scl_da->Val); + if (retcode != SD_SUCCESS) /* error (already logged) */ + return (retcode); /* error */ + } + } + /* objtype must be SCL_OBJTYPE_DA */ + if (strcmp (scl_da->fc, FC) == 0) /* FC of this DA matches FC */ + { + retcode = rtadd_da_or_bda (rt_ctxt, scl_info, scl_da->name, scl_da->bType, + scl_da->type, scl_da->count, scl_da->Val); + if (retcode != SD_SUCCESS) /* error (already logged) */ + return (retcode); /* error */ + } + } + } /* end "for (scl_da...)" loop */ + + /* Check if any types were added after start of struct */ + if (ms_rt_bld_get_count (rt_ctxt) > rt_num_after_str_start) + { /* types were added, so finish struct now */ + if (ms_rt_bld_add_str_end (rt_ctxt) != SD_SUCCESS) + return (SD_FAILURE); /* error (already logged) */ + } + else + { /* types NOT added so remove start of struct */ + ms_rt_bld_remove_last (rt_ctxt); + } + return (SD_SUCCESS); /* only successful return */ + } +/************************************************************************/ +/* rtadd_fc */ +/* RETURNS: SD_SUCCESS or error code */ +/* Add the types for one FC to the RUNTIME_BUILD_CTXT. */ +/************************************************************************/ +static ST_RET rtadd_fc ( + RUNTIME_BUILD_CTXT *rt_ctxt, + ST_CHAR *FC, + SCL_INFO *scl_info, + SCL_LNTYPE *scl_lntype, + SCL_LN *scl_ln_special) /* needed for SGCB */ + { +SCL_DO *scl_do; +SCL_DOTYPE *scl_dotype; +ST_RET retcode; +ST_INT rt_num_after_str_start; /* index after str_start added */ + + /* Add start of struct for this FC. Remove later if no DA's found.*/ + if (ms_rt_bld_add_str_start (rt_ctxt, FC)!=SD_SUCCESS) + return (SD_FAILURE); + + /* Save current index. Use later to check if any types added. */ + rt_num_after_str_start = ms_rt_bld_get_count (rt_ctxt); + + /* NOTE: linked list is in reverse order from data in SCL file, */ + /* so get off list in reverse order. */ + for (scl_do = (SCL_DO *) list_find_last ((DBL_LNK *) scl_lntype->doHead); + scl_do != NULL; + scl_do = (SCL_DO *) list_find_prev ((DBL_LNK *) scl_lntype->doHead, (DBL_LNK *) scl_do)) + { + /* Find DOType for this DO. */ + scl_dotype = scl_find_dotype (scl_info, scl_do->type); + if (scl_dotype) /* found DOType */ + { + retcode = rtadd_do (rt_ctxt, FC, scl_info, scl_do->name, scl_dotype); + if (retcode != SD_SUCCESS) + { + SXLOG_ERR1 ("ERROR adding type definitions for DO='%s'", scl_do->name); + return (retcode); + } + } + else + { /* can't find DOType for this DO. Cannot continue. */ + SXLOG_ERR2 ("Cannot find DOType='%s' for DO='%s'.", + scl_do->type, scl_do->name); + return (SD_FAILURE); + } + } /* end "for (scl_do...)" loop */ + + /* If SGCB configured and FC="SP", add SGCB here after other attributes.*/ + if (scl_ln_special && scl_ln_special->sgcb && strcmp (FC, "SP") == 0) + { + retcode = ms_rt_bld_61850_add_sgcb (rt_ctxt); /* Add SGCB struct.*/ + if (retcode != SD_SUCCESS) + { + SXLOG_ERR0 ("ERROR adding SGCB"); + return (retcode); + } + } + + /* Check if any types were added after start of struct */ + if (ms_rt_bld_get_count (rt_ctxt) > rt_num_after_str_start) + { /* types were added, so finish struct now */ + if (ms_rt_bld_add_str_end (rt_ctxt) != SD_SUCCESS) + return (SD_FAILURE); /* error (already logged) */ + } + else + { /* types NOT added so remove start of struct */ + ms_rt_bld_remove_last (rt_ctxt); + } + return (SD_SUCCESS); /* this is only "good" return */ + } +/************************************************************************/ +/* rtadd_rp_or_br */ +/* RETURNS: SD_SUCCESS or error code */ +/* Add runtime type definition for special FC=RP or FC=BR. */ +/* CRITICAL: Last arg "buffered" must be SD_TRUE or SD_FALSE (other */ +/* non-zero values NOT treated the same as SD_TRUE). */ +/************************************************************************/ +static ST_RET rtadd_rp_or_br ( + RUNTIME_BUILD_CTXT *rt_ctxt, + SCL_INFO *scl_info, + SCL_LNTYPE *scl_lntype, + SCL_LN *scl_ln, + ST_BOOLEAN buffered) /* SD_TRUE to add "buffered" reports */ + /* SD_FALSE to add "unbuffered" reports */ + /* CRITICAL: no other values allowed */ + { +SCL_RCB *scl_rcb; +ST_INT count = 0; +ST_RET retcode = SD_SUCCESS; +ST_INT index, maxClient; + + for (scl_rcb = (SCL_RCB *) list_find_last ((DBL_LNK *) scl_ln->rcbHead); + scl_rcb != NULL; + scl_rcb = (SCL_RCB *) list_find_prev ((DBL_LNK *) scl_ln->rcbHead, (DBL_LNK *) scl_rcb)) + { + /* If RCB doesn't match the kind we're looking for, ignore it. */ + if (scl_rcb->buffered != buffered) + continue; + + /* NOTE: if NOT the type we're looking for, never get here (see 'continue' above)*/ + /* NOTE: don't chk every rtadd.. return. If one call fails, subsequent calls fail too.*/ + if (buffered) /* looking for buffered & this is buffered */ + { + if (count==0) + ms_rt_bld_add_str_start (rt_ctxt, "BR"); + } + else /* looking for unbuffered & this is unbuffered */ + { + if (count==0) + ms_rt_bld_add_str_start (rt_ctxt, "RP"); + } + + maxClient = scl_rcb->maxClient; /* use value of "RptEnabled max" in SCL*/ + + /* Add type definitions for each RCB in a loop. */ + for (index = 1; index<=maxClient; index++) + { + ST_CHAR rcb_name [MAX_IDENT_LEN + 1]; + if (strlen (scl_rcb->name) <= MAX_IDENT_LEN - 2) /* make sure there's room*/ + { + if (rcb_name_no_index && maxClient == 1) + sprintf (rcb_name, "%s", scl_rcb->name); /* do NOT add suffix*/ + else + sprintf (rcb_name, "%s%02d", scl_rcb->name, index); /* construct RCB name*/ + if (buffered) /* looking for buffered & this is buffered */ + retcode = ms_rt_bld_61850_add_brcb (rt_ctxt, rcb_name); + else /* looking for unbuffered & this is unbuffered */ + retcode = ms_rt_bld_61850_add_urcb (rt_ctxt, rcb_name); + } + else + retcode = SD_FAILURE; /* name too long. Should NEVER get this error*/ + } + + if (retcode) /* if error, stop */ + return (retcode); + + count++; /* increment count of rcb */ + } /* end loop */ + + /* If any found, add ending text. */ + if (count>0) + retcode = ms_rt_bld_add_str_end (rt_ctxt); + + return (retcode); /* NOTE: may have returned sooner on some errors*/ + } /* end rtadd_rp_or_br */ + +/************************************************************************/ +/* rtadd_lg */ +/* RETURNS: SD_SUCCESS or error code */ +/* Add runtime type definition for special FC=LG. */ +/* NOTE: OptFlds in 61850-7-2 not mapped to MMS. */ +/************************************************************************/ +static ST_RET rtadd_lg ( + RUNTIME_BUILD_CTXT *rt_ctxt, + SCL_INFO *scl_info, + SCL_LNTYPE *scl_lntype, + SCL_LN *scl_ln) + { +SCL_LCB *scl_lcb; +ST_INT count = 0; +SCL_DATASET *scl_dataset; +ST_RET retcode = SD_SUCCESS; + + for (scl_lcb = (SCL_LCB *) list_find_last ((DBL_LNK *) scl_ln->lcbHead); + scl_lcb != NULL; + scl_lcb = (SCL_LCB *) list_find_prev ((DBL_LNK *) scl_ln->lcbHead, (DBL_LNK *) scl_lcb)) + { + scl_dataset = scl_find_dataset (scl_ln, scl_lcb->datSet); + if (scl_dataset == NULL) + { + SXLOG_ERR1 ("rtadd_lg: datSet='%s' not found", scl_lcb->datSet); + return (SD_FAILURE); + } + + if (count==0) + retcode = ms_rt_bld_add_str_start (rt_ctxt, "LG"); /* first one needs (LG) */ + + if (retcode) /* if error, stop */ + return (retcode); + + /* Add lcb name as component name.*/ + retcode = ms_rt_bld_61850_add_lcb (rt_ctxt, scl_lcb->name); + + if (retcode) /* if error, stop */ + return (retcode); + + count++; /* increment count of lcb */ + } /* end loop */ + + /* If any found, add ending text. */ + if (count>0) + retcode = ms_rt_bld_add_str_end (rt_ctxt); + + return (retcode); /* NOTE: may have returned sooner on some errors*/ + } /* end rtadd_lg */ + +/************************************************************************/ +/* rtadd_go_or_gs */ +/* RETURNS: SD_SUCCESS or error code */ +/* Add runtime type definition for special FC=GO or FC=GS. */ +/************************************************************************/ +static ST_RET rtadd_go_or_gs ( + RUNTIME_BUILD_CTXT *rt_ctxt, + SCL_INFO *scl_info, + SCL_LNTYPE *scl_lntype, + SCL_LN *scl_ln, + ST_BOOLEAN isGoose) /* SD_TRUE to add GOOSE (FC=GO) */ + /* SD_FALSE to add GSSE (FC=GS) */ + /* CRITICAL: no other values allowed */ + { +SCL_GCB *scl_gcb; +ST_INT count = 0; +SCL_DATASET *scl_dataset; +ST_RET retcode = SD_SUCCESS; + + for (scl_gcb = (SCL_GCB *) list_find_last ((DBL_LNK *) scl_ln->gcbHead); + scl_gcb != NULL; + scl_gcb = (SCL_GCB *) list_find_prev ((DBL_LNK *) scl_ln->gcbHead, (DBL_LNK *) scl_gcb)) + { + /* If GCB doesn't match the kind we're looking for, ignore it. */ + if (scl_gcb->isGoose != isGoose) + continue; + + /* NOTE: if NOT the type we're looking for, never get here (see 'continue' above)*/ + if (scl_gcb->isGoose) + { + /* GOOSE needs dataset. Find it now. */ + scl_dataset = scl_find_dataset (scl_ln, scl_gcb->datSet); + if (scl_dataset == NULL) + { + SXLOG_ERR1 ("rtadd_go_or_gs: datSet='%s' not found", scl_gcb->datSet); + return (SD_FAILURE); + } + + if (count==0) + ms_rt_bld_add_str_start (rt_ctxt, "GO"); /* first one needs "GO" */ + } + else + { + if (count==0) + ms_rt_bld_add_str_start (rt_ctxt, "GS"); /* first one needs "GS" */ + } + + if (retcode) /* if error, stop */ + return (retcode); + + if (scl_gcb->isGoose) /* looking for GOOSE & this is GOOSE */ + retcode = ms_rt_bld_61850_add_gcb (rt_ctxt, scl_gcb->name); + else /* looking for GSSE & this is GSSE */ + retcode = ms_rt_bld_61850_add_scb (rt_ctxt, scl_gcb->name); + + if (retcode) /* if error, stop */ + return (retcode); + + count++; /* increment count of gcb */ + } /* end loop */ + + /* If any found, add ending text. */ + if (count>0) + retcode = ms_rt_bld_add_str_end (rt_ctxt); + + return (retcode); /* NOTE: may have returned sooner on some errors*/ + } /* end rtadd_go_or_gs */ + +/************************************************************************/ +/* rtadd_ms_or_us */ +/* RETURNS: SD_SUCCESS or error code */ +/* Add runtime type definition for FC=MS or FC=US. */ +/* CRITICAL: Last arg "multicast" must be SD_TRUE or SD_FALSE (other */ +/* non-zero values NOT treated the same as SD_TRUE). */ +/************************************************************************/ +static ST_RET rtadd_ms_or_us ( + RUNTIME_BUILD_CTXT *rt_ctxt, + SCL_INFO *scl_info, + SCL_LNTYPE *scl_lntype, + SCL_LN *scl_ln, + ST_BOOLEAN multicast) /* SD_TRUE to add all MSVCB (FC=MS) */ + /* SD_FALSE to add all USVCB (FC=US) */ + /* CRITICAL: no other values allowed */ + { +SCL_SVCB *scl_svcb; +ST_INT count = 0; +SCL_DATASET *scl_dataset; +ST_RET retcode = SD_SUCCESS; + + for (scl_svcb = (SCL_SVCB *) list_find_last ((DBL_LNK *) scl_ln->svcbHead); + scl_svcb != NULL; + scl_svcb = (SCL_SVCB *) list_find_prev ((DBL_LNK *) scl_ln->svcbHead, (DBL_LNK *) scl_svcb)) + { + /* If svcb doesn't match the kind we're looking for, ignore it. */ + if (scl_svcb->multicast != multicast) + continue; + + scl_dataset = scl_find_dataset (scl_ln, scl_svcb->datSet); + if (scl_dataset == NULL) + { + SXLOG_ERR1 ("rtadd_ms_or_us: datSet='%s' not found", scl_svcb->datSet); + return (SD_FAILURE); + } + + /* NOTE: if NOT the type we're looking for, never get here (see 'continue' above)*/ + /* NOTE: don't chk every rtadd.. return. If one call fails, subsequent calls fail too.*/ + if (multicast) /* looking for multicast & this is multicast */ + { + if (count==0) + ms_rt_bld_add_str_start (rt_ctxt, "MS"); /* first one needs (MS) */ + } + else /* looking for unicast & this is unicast */ + { + if (count==0) + ms_rt_bld_add_str_start (rt_ctxt, "US"); /* first one needs (US) */ + } + + + /* NOTE: if NOT the type we're looking for, never get here (see 'continue' above)*/ + if (multicast) /* looking for multicast & this is multicast */ + retcode = ms_rt_bld_61850_add_msvcb (rt_ctxt, scl_svcb->name); + else /* looking for unicast & this is unicast */ + retcode = ms_rt_bld_61850_add_usvcb (rt_ctxt, scl_svcb->name); + + if (retcode) /* if error, stop */ + return (retcode); + + count++; /* increment count of svcb */ + } /* end loop */ + + /* If any found, add ending text. */ + if (count>0) + retcode = ms_rt_bld_add_str_end (rt_ctxt); + + return (retcode); /* NOTE: may have returned sooner on some errors*/ + } /* end rtadd_ms_or_us */ + +/************************************************************************/ +/* scl2_datatype_create */ +/* Create MMS Data type for one Logical Node Type (LNodeType) */ +/* defined in SCL. */ +/* RETURNS: type_id (-1 on error) */ +/************************************************************************/ +static ST_INT scl2_datatype_create ( + MVL_VMD_CTRL *vmd_ctrl, /* VMD in which to add this type */ + SCL_INFO *scl_info, /* main struct where all SCL info stored*/ + SCL_LNTYPE *scl_lntype, /* info for this LNType */ + ST_INT max_rt_num, /* max num of RUNTIME_TYPE for this LNodeType*/ + /* If you don't care, set this = 0. */ + ST_BOOLEAN use_names, /* If set, use type names. */ + ST_CHAR *name_prefix, /* unique prefix to add to each type name*/ + /* only used if "use_names==SD_TRUE". */ + SCL_LD *scl_ld_special, /* LD containing LN with "special stuff"*/ + /* (i.e. ReportControl, LogControl, etc)*/ + /* NULL if nothing special in LN. */ + SCL_LN *scl_ln_special) /* LN with "special stuff" */ + /* NULL if nothing special in LN. */ + { +ST_RET retcode; +ST_INT type_id = -1; /* assumes failure. */ +RUNTIME_BUILD_CTXT rt_ctxt; +MVL_TYPE_CTRL *type_ctrl; +ST_CHAR type_name[MAX_IDENT_LEN+1]; +ST_INT loop; /* loop counter */ +ST_INT save_rt_num=0; /* RUNTIME_TYPE count computed on first loop */ + + if (use_names) + { + /* Generate type_name. */ + if (scl_ln_special) + { /* Create unique type name for this LN. */ + retcode = special_type_name (name_prefix, scl_ld_special, scl_ln_special, type_name, sizeof(type_name)); + } + else + retcode = simple_type_name (name_prefix, scl_lntype, type_name, sizeof(type_name)); + if (retcode) + { + SXLOG_ERR1 ("Error generating type name for LNodeType id='%s'", scl_lntype->id); + return (-1); /* return type_id of (-1) to indicate error */ + } + } + + /* Begin constructing the data type in rt_ctxt. */ + /* Loop exactly 2 times. First iteration, just compute "rt_num". */ + /* Call "ms_rt_bld_get_count" at end of loop to get the count. */ + /* Second iteration, build type (pass rt_num to ms_rt_bld_start). */ + /* CRITICAL: do not access rt_ctxt->rt_ctrl on first loop iteration. */ + /* It is not set yet. */ + for (loop = 0; loop < 2; loop++) + { + if (loop == 0) + ms_rt_bld_start (&rt_ctxt, 0); /* 2nd arg = 0 so bld functions */ + /* just compute rt_num */ + else + { + ms_rt_bld_start (&rt_ctxt, save_rt_num); /* first loop computed save_rt_num*/ + /* Allocate extra array of structs. Free this when all SCL processing*/ + /* done (see end of scl2_ld_create_all). */ + rt_ctxt.rt_ctrl->reserved_1 = (ST_VOID *) chk_calloc (save_rt_num, sizeof (RESERVED_INFO)); /* array of ptrs*/ + } + + /* Go through all linked lists and create COMPLETE type definition. */ + /* NOTE: order of FC specified in 61850-8-1 (section 6.1.3). */ + + /* NOTE: SCL only allows "ST" "MX" "CO" "SP" "SG" "SE" "SV" "CF" "DC" "EX".*/ + /* "RP", "LG", and "BR" are special cases. */ + do + { /* "do-while" loop: only needed so we can break on first error. */ + /* if any rtadd_* call fails, break and return error. */ + if ((retcode = ms_rt_bld_add_str_start (&rt_ctxt, NULL)) != SD_SUCCESS) /* no comp name*/ + break; + if ((retcode = rtadd_fc (&rt_ctxt, "MX", scl_info, scl_lntype, scl_ln_special)) != SD_SUCCESS) + break; + if ((retcode = rtadd_fc (&rt_ctxt, "ST", scl_info, scl_lntype, scl_ln_special)) != SD_SUCCESS) + break; + if ((retcode = rtadd_fc (&rt_ctxt, "CO", scl_info, scl_lntype, scl_ln_special)) != SD_SUCCESS) + break; + if ((retcode = rtadd_fc (&rt_ctxt, "CF", scl_info, scl_lntype, scl_ln_special)) != SD_SUCCESS) + break; + if ((retcode = rtadd_fc (&rt_ctxt, "DC", scl_info, scl_lntype, scl_ln_special)) != SD_SUCCESS) + break; + if ((retcode = rtadd_fc (&rt_ctxt, "SP", scl_info, scl_lntype, scl_ln_special)) != SD_SUCCESS) + break; + if ((retcode = rtadd_fc (&rt_ctxt, "SG", scl_info, scl_lntype, scl_ln_special)) != SD_SUCCESS) + break; + + /* FC=RP is special case. Call special function. */ + if (scl_ln_special) + { /* special type for LN containing RCBs */ + if ((retcode = rtadd_rp_or_br (&rt_ctxt, scl_info, scl_lntype, scl_ln_special, SD_FALSE)) != SD_SUCCESS) + break; + } + + /* FC=LG is special case. Call special function. */ + if (scl_ln_special) + { + if ((retcode = rtadd_lg (&rt_ctxt, scl_info, scl_lntype, scl_ln_special)) != SD_SUCCESS) + break; + } + + /* FC=BR is special case. Call special function. */ + if (scl_ln_special) + { /* special type for LN containing RCBs */ + if ((retcode = rtadd_rp_or_br (&rt_ctxt, scl_info, scl_lntype, scl_ln_special, SD_TRUE)) != SD_SUCCESS) + break; + } + + if (scl_ln_special) + { + /* FC=GO is special case. Call special function (last arg SD_TRUE). */ + if ((retcode = rtadd_go_or_gs (&rt_ctxt, scl_info, scl_lntype, scl_ln_special, SD_TRUE)) != SD_SUCCESS) + break; + /* FC=GS is special case. Call special function (last arg SD_FALSE). */ + if ((retcode = rtadd_go_or_gs (&rt_ctxt, scl_info, scl_lntype, scl_ln_special, SD_FALSE)) != SD_SUCCESS) + break; + } + + if ((retcode = rtadd_fc (&rt_ctxt, "SV", scl_info, scl_lntype, scl_ln_special)) != SD_SUCCESS) + break; + if ((retcode = rtadd_fc (&rt_ctxt, "SE", scl_info, scl_lntype, scl_ln_special)) != SD_SUCCESS) + break; + + /* Add types for "MS" and "US" (sampled value control blocks). */ + if (scl_ln_special) + { + /* FC=MS: This funct with arg = SD_TRUE adds types for FC=MS. */ + if ((retcode = rtadd_ms_or_us (&rt_ctxt, scl_info, scl_lntype, scl_ln_special, SD_TRUE)) != SD_SUCCESS) + break; + /* FC=US: This funct with arg = SD_FALSE adds types for FC=US. */ + if ((retcode = rtadd_ms_or_us (&rt_ctxt, scl_info, scl_lntype, scl_ln_special, SD_FALSE)) != SD_SUCCESS) + break; + } + + if ((retcode = rtadd_fc (&rt_ctxt, "EX", scl_info, scl_lntype, scl_ln_special)) != SD_SUCCESS) + break; + if ((retcode = ms_rt_bld_add_str_end (&rt_ctxt)) != SD_SUCCESS) + break; + } while (0); /* end of "do-while" loop: only needed so we can break on first error. */ + + if (loop==0) + { + /* First loop: computing rt_num. Save rt_num to use on second loop.*/ + /* CRITICAL: use ..get_max_count here to get "maximum" count. */ + /* May be slightly larger than "current" count. */ + save_rt_num = ms_rt_bld_get_max_count (&rt_ctxt); + /* NOTE: no need to call ms_rt_bld_finish (nothing to clean up). */ + + /* If max_rt_num != 0, and save_rt_num exceeds it, log and return error.*/ + if (max_rt_num != 0 && save_rt_num > max_rt_num) + { + SXLOG_ERR3 ("Number of RUNTIME_TYPE elements (%d) exceeds maximum (%d). Cannot create type for LNodeType id=%s", + save_rt_num, max_rt_num, scl_lntype->id); + return (-1); /* error. Cannot continue */ + } + else if (save_rt_num == 0) + { + SXLOG_ERR1 ("Number of RUNTIME_TYPE elements = 0. Cannot create type for LNodeType id=%s", + scl_lntype->id); + return (-1); /* error. Cannot continue */ + } + } + /* On Second loop, nothing else to do. */ + } /* end outer loop */ + + /* If retcode==SD_SUCCESS, ALL "rtadd_fc" calls were successful, so create type here */ + if (retcode == SD_SUCCESS) + { + ms_rt_bld_finish (&rt_ctxt); + + /* "rt_num" must NEVER exceed size allocated, but may be slightly less.*/ + assert (rt_ctxt.rt_ctrl->rt_num <= save_rt_num); + SXLOG_FLOW2 ("RUNTIME_TYPE count for LNodeType id='%s' = %d", + scl_lntype->id, rt_ctxt.rt_ctrl->rt_num); + + /* Create the type now. */ + if (use_names) + type_id = mvl_vmd_type_id_create (vmd_ctrl, type_name, rt_ctxt.rt_ctrl); + else + type_id = mvl_vmd_type_id_create (vmd_ctrl, NULL, rt_ctxt.rt_ctrl); + } + else + { /* build failed, so cleanup now */ + chk_free (rt_ctxt.rt_ctrl->reserved_1); + ms_rt_bld_cancel (&rt_ctxt); + } + + if (type_id >= 0) + { /* type successfully created */ + type_ctrl = mvl_type_ctrl_find (type_id); + if (mms_debug_sel & MMS_LOG_RT) + { + MLOG_ALWAYS1 ("RUNTIME_TYPE definition for LNodeType id='%s':", scl_lntype->id); + ms_log_runtime (type_ctrl->rt_ctrl->rt_first, type_ctrl->rt_ctrl->rt_num); + } + + /* CRITICAL: we want the same leaf function for every leaf, so */ + /* set leaf functions now in every RUNTIME_TYPE element. */ + /* NOTE: leaf functions never used for RT_STR_START, RT_ARR_START,*/ + /* etc. but they're set anyway because it's easier to set all.*/ + /* NOTE: this function may be customized for each application. */ + /* It should be placed in a "user" module. */ + + if (u_set_all_leaf_functions (type_ctrl->rt_ctrl) != SD_SUCCESS) + { + SXLOG_ERR1 ("Error setting leaf functions for LNodeType id=%s", scl_lntype->id); + mvl_type_id_destroy (type_id); /* destroy type just created */ + type_id = -1; /* set invalid type_id to indicate error */ + } + } + + if (type_id < 0) + SXLOG_ERR1 ("scl2_datatype_create FAILED for LNodeType id=%s", scl_lntype->id); + else + SXLOG_FLOW1 ("scl2_datatype_create SUCCESSFUL for LNodeType id=%s", scl_lntype->id); + + return (type_id); + } +/************************************************************************/ +/* find_scl_lntype */ +/* Search for lntype by name. */ +/************************************************************************/ +SCL_LNTYPE *find_scl_lntype (SCL_INFO *scl_info, ST_CHAR *name) + { +SCL_LNTYPE *scl_lntype; + for (scl_lntype = (SCL_LNTYPE *) list_find_last ((DBL_LNK *) scl_info->lnTypeHead); + scl_lntype != NULL; + scl_lntype = (SCL_LNTYPE *) list_find_prev ((DBL_LNK *) scl_info->lnTypeHead, (DBL_LNK *) scl_lntype)) + { + if (strcmp (name, scl_lntype->id) == 0) /* type name matches*/ + return (scl_lntype); + } + return (NULL); /* lntype not found*/ + } +/************************************************************************/ +/* scl2_datatype_create_all */ +/* Create MMS Data types for all Logical Node Types (LNodeType) */ +/* defined in SCL. */ +/* RETURNS: SD_SUCCESS or error code */ +/************************************************************************/ +ST_RET scl2_datatype_create_all ( + MVL_VMD_CTRL *vmd_ctrl, /* VMD in which to add types. */ + SCL_INFO *scl_info, /* main struct where all SCL info stored*/ + ST_INT max_rt_num, /* max num of RUNTIME_TYPE for each LNodeType*/ + ST_BOOLEAN use_names, /* if SD_TRUE, generate a name for each type*/ + ST_CHAR *name_prefix) /* unique prefix to add to each type name*/ + /* only used if "use_names==SD_TRUE". */ + { +ST_RET retcode; +SCL_LNTYPE *scl_lntype; +SCL_LD *scl_ld; +SCL_LN *scl_ln; + + /* NOTE: linked list is in reverse order from data in SCL file, */ + /* so get off list in reverse order. */ + retcode = SD_SUCCESS; + + /* CRITICAL: Don't allow this to be called again for the same SCL_INFO struct.*/ + /* That would cause types to be created twice, and the "type_id" saved*/ + /* in each SCL_LN and SCL_LNTYPE would be overwritten. */ + if (scl_info->datatype_create_done) + { + SXLOG_ERR0 ("Data types already created for this SCL file. Cannot create again."); + return (SD_FAILURE); + } + else + scl_info->datatype_create_done = SD_TRUE; /* Set flag now */ + + /* Loop through all scl_lntype structs. For each one, create type & save type_id in scl_lntype->type_id.*/ + for (scl_lntype = (SCL_LNTYPE *) list_find_last ((DBL_LNK *) scl_info->lnTypeHead); + scl_lntype != NULL; + scl_lntype = (SCL_LNTYPE *) list_find_prev ((DBL_LNK *) scl_info->lnTypeHead, (DBL_LNK *) scl_lntype)) + { + scl_lntype->type_id = scl2_datatype_create (vmd_ctrl, scl_info, scl_lntype, + max_rt_num, use_names, name_prefix, NULL, NULL); + /* NOTE: could fail (type_id < 0). OK for now. Might not be used by any LN.*/ + } + + /* Loop through all Logical Nodes. If a Locical Node + * contains "special stuff" (i.e. ReportControl, LogControl, GSEControl), + * create a special type that includes the "special stuff". + * If not, use the appropriate type created by the above loop (scl_lntype->type_id). + * Must check all Logical Nodes (scl_ln) in all Logical Devices (scl_ld). + */ + for (scl_ld = (SCL_LD *) list_find_last ((DBL_LNK *) scl_info->ldHead); + scl_ld != NULL; + scl_ld = (SCL_LD *) list_find_prev ((DBL_LNK *) scl_info->ldHead, (DBL_LNK *) scl_ld)) + { + for (scl_ln = (SCL_LN *) list_find_last ((DBL_LNK *) scl_ld->lnHead); + scl_ln != NULL; + scl_ln = (SCL_LN *) list_find_prev ((DBL_LNK *) scl_ld->lnHead, (DBL_LNK *) scl_ln)) + { + scl_lntype = find_scl_lntype (scl_info, scl_ln->lnType); /* search for lntype by name*/ + if (scl_lntype) + { + assert (scl_ln->type_id == 0); /* already set. Something's wrong*/ + /* If rcbHead!=NULL, this LN contains ReportControl. */ + /* If lcbHead!=NULL, this LN contains LogControl. */ + /* If gcbHead!=NULL, this LN contains GSEControl. */ + /* If svcbHead!=NULL, this LN contains SampledValueControl */ + /* NOTE: do nothing if it fails. Detected later when rcb created.*/ + if (scl_ln->rcbHead || scl_ln->lcbHead || scl_ln->gcbHead || scl_ln->svcbHead) + { /* "Special" LN. Create special type just for this LN. */ + /* Last 2 args point to LD & LN containing special info (rcb, gcb, etc.).*/ + scl_ln->type_id = scl2_datatype_create (vmd_ctrl, scl_info, scl_lntype, + max_rt_num, use_names, name_prefix, scl_ld, scl_ln); + } + else + { /* "Normal" LN. Save type_id created by first loop. */ + scl_ln->type_id = scl_lntype->type_id; + } + } + else + { /* type not found. Set invalid type_id. Error logged below.*/ + scl_ln->type_id = -1; + } + if (scl_ln->type_id < 0) + { + SXLOG_ERR2 ("Could not find or create lnType '%s' for LN '%s'", + scl_ln->lnType, scl_ln->varName); + retcode = SD_FAILURE; /* create failed for this LN, return error.*/ + /* NOTE: function fails, but continue looping to log other errors too.*/ + } + } + } + if (retcode) + { + /* If anything failed, reserved_1 member of every */ + /* RUNTIME_CTRL should no longer be needed. */ + reserved_free_all (vmd_ctrl); + } + return (retcode); + } + +/************************************************************************/ +/* scl2_ln_init_lcb_vals */ +/* Use mvlu_find_comp_type to find the data offset of each LCB in the LN.*/ +/* Then write the SCL data there. */ +/************************************************************************/ +static ST_VOID scl2_ln_init_lcb_vals ( + SCL_INFO *scl_info, /* main struct where all SCL info stored*/ + SCL_LD *scl_ld, + SCL_LN *scl_ln) + { +ST_CHAR flatname [MAX_IDENT_LEN +1]; +SCL_LCB *scl_lcb; +MVL61850_LCB_DATA *lcb_data; +RUNTIME_TYPE *comp_rt_type; /* first rt_type of component */ +ST_INT comp_rt_num; /* num of rt_types in component */ +ST_RET retcode = SD_SUCCESS; + + for (scl_lcb = (SCL_LCB *) list_find_last ((DBL_LNK *) scl_ln->lcbHead); + scl_lcb != NULL; + scl_lcb = (SCL_LCB *) list_find_prev ((DBL_LNK *) scl_ln->lcbHead, (DBL_LNK *) scl_lcb)) + { + /* NOTE: mvlu_find_comp_type uses flattened name without LN prefix. */ + sprintf (flatname, "LG$%s", scl_lcb->name); + retcode = mvlu_find_comp_type (scl_ln->mvl_var_assoc->type_id, + flatname, &comp_rt_type, &comp_rt_num); + if (retcode!=SD_SUCCESS) + { + SXLOG_ERR2 ("Cannot find component '%s' in var '%s'. Initial values not set.", + flatname, scl_ln->mvl_var_assoc->name); + } + else + { + lcb_data = (MVL61850_LCB_DATA *)((ST_CHAR *) scl_ln->mvl_var_assoc->data + comp_rt_type->mvluTypeInfo.offSet); + /* Use SCL info to initialize LCB data. */ + /* Construct ObjectReference for lcb_data->DatSet. */ + scl_make_objref (scl_ld, scl_ln, scl_lcb->datSet, + lcb_data->DatSet, sizeof (lcb_data->DatSet) - 1); + lcb_data->IntgPd = (ST_UINT32) scl_lcb->intgPd; + /* Construct ObjectReference for lcb_data->LogRef. */ + scl_make_objref2 (scl_ld, scl_lcb->logName, + lcb_data->LogRef, sizeof (lcb_data->LogRef) - 1); + lcb_data->LogEna = scl_lcb->logEna; + /* NOTE: "scl_lcb->reasonCode" may be read from SCL file, but it */ + /* is not in LCB (according to 61850-8-1) so just ignore it. */ + lcb_data->TrgOps.len = 6; /* Var len 6-bit bitstring */ + lcb_data->TrgOps.data[0] = scl_lcb->TrgOps[0]; /* 1 byte of data */ + } + } /* end loop */ + } +/************************************************************************/ +/* scl2_ln_init_gcb_vals */ +/* Use mvlu_find_comp_type to find the data offset of each GCB in the LN.*/ +/* Then write the SCL data there. */ +/************************************************************************/ +static ST_VOID scl2_ln_init_gcb_vals ( + SCL_INFO *scl_info, /* main struct where all SCL info stored*/ + SCL_LD *scl_ld, + SCL_LN *scl_ln) + { +ST_CHAR flatname [MAX_IDENT_LEN +1]; +SCL_GCB *scl_gcb; +MVL61850_GCB_DATA *gcb_data; /* GOOSE Control Block data */ +MVL61850_SCB_DATA *scb_data; /* GSSE Control Block data */ +RUNTIME_TYPE *comp_rt_type; /* first rt_type of component */ +ST_INT comp_rt_num; /* num of rt_types in component */ +ST_RET retcode = SD_SUCCESS; +ST_CHAR *dataptr; +SCL_GSE *scl_gse; /* GOOSE addressing info */ + + for (scl_gcb = (SCL_GCB *) list_find_last ((DBL_LNK *) scl_ln->gcbHead); + scl_gcb != NULL; + scl_gcb = (SCL_GCB *) list_find_prev ((DBL_LNK *) scl_ln->gcbHead, (DBL_LNK *) scl_gcb)) + { + /* NOTE: mvlu_find_comp_type uses flattened name without LN prefix. */ + if (scl_gcb->isGoose) /* GOOSE */ + sprintf (flatname, "GO$%s", scl_gcb->name); + else /* GSSE */ + sprintf (flatname, "GS$%s", scl_gcb->name); + retcode = mvlu_find_comp_type (scl_ln->mvl_var_assoc->type_id, + flatname, &comp_rt_type, &comp_rt_num); + if (retcode!=SD_SUCCESS) + { + SXLOG_ERR2 ("Cannot find component '%s' in var '%s'. Initial values not set.", + flatname, scl_ln->mvl_var_assoc->name); + } + else + { + dataptr = (ST_CHAR *) scl_ln->mvl_var_assoc->data + + comp_rt_type->mvluTypeInfo.offSet; + /* Use SCL info to initialize GCB data. */ + if (scl_gcb->isGoose) + { /* GOOSE */ + gcb_data = (MVL61850_GCB_DATA *) dataptr; + /* Construct ObjectReference for gcb_data->DatSet. */ + scl_make_objref (scl_ld, scl_ln, scl_gcb->datSet, + gcb_data->DatSet, sizeof (gcb_data->DatSet) - 1); + gcb_data->ConfRev = (ST_UINT32) scl_gcb->confRev; + /* 61850-8-1 maps appID to GoID */ + strcpy (gcb_data->GoID, scl_gcb->appID); + /* NOTE: NdsCom is not configured in SCL so initial value of */ + /* "gcb_data->NdsCom" is always 0. */ + if ((scl_gse = scl_gse_find (scl_info, scl_ld, scl_gcb)) != NULL) + { + /* Initialize DstAddress structure. */ + memcpy (gcb_data->DstAddress.Addr, scl_gse->MAC, CLNP_MAX_LEN_MAC); + gcb_data->DstAddress.PRIORITY = (ST_UINT8) scl_gse->VLANPRI; + gcb_data->DstAddress.VID = (ST_UINT16) scl_gse->VLANID; + gcb_data->DstAddress.APPID = (ST_UINT16) scl_gse->APPID; + } + else + MVL_LOG_ERR1 ("Cannot find GSE element to set address for GOOSE Control '%s'. DstAddress NOT INITIALIZED.", + scl_gcb->name); + } + else + { /* GSSE */ + scb_data = (MVL61850_SCB_DATA *) dataptr; + /* datSet, confRev ignored for GSSE. */ + /* 61850-8-1 maps appID to GsID */ + strcpy (scb_data->GsID, scl_gcb->appID); + if ((scl_gse = scl_gse_find (scl_info, scl_ld, scl_gcb)) != NULL) + { + /* Initialize DstAddress structure. */ + memcpy (scb_data->DstAddress.Addr, scl_gse->MAC, CLNP_MAX_LEN_MAC); + scb_data->DstAddress.PRIORITY = (ST_UINT8) scl_gse->VLANPRI; + scb_data->DstAddress.VID = (ST_UINT16) scl_gse->VLANID; + scb_data->DstAddress.APPID = (ST_UINT16) scl_gse->APPID; + } + else + MVL_LOG_ERR1 ("Cannot find GSE element to set address for GSSE Control '%s'. DstAddress NOT INITIALIZED.", + scl_gcb->name); + } + } + } /* end loop */ + } +/************************************************************************/ +/* scl2_ln_init_svcb_vals */ +/* Use mvlu_find_comp_type to find the data offset of each SVCB in the LN.*/ +/* Then write the SCL data there. */ +/************************************************************************/ +static ST_VOID scl2_ln_init_svcb_vals ( + SCL_INFO *scl_info, /* main struct where all SCL info stored*/ + SCL_LD *scl_ld, + SCL_LN *scl_ln) + { +ST_CHAR flatname [MAX_IDENT_LEN +1]; +SCL_SVCB *scl_svcb; +RUNTIME_TYPE *comp_rt_type; /* first rt_type of component */ +ST_INT comp_rt_num; /* num of rt_types in component */ +ST_RET retcode = SD_SUCCESS; +ST_CHAR *dataptr; + + for (scl_svcb = (SCL_SVCB *) list_find_last ((DBL_LNK *) scl_ln->svcbHead); + scl_svcb != NULL; + scl_svcb = (SCL_SVCB *) list_find_prev ((DBL_LNK *) scl_ln->svcbHead, (DBL_LNK *) scl_svcb)) + { + /* NOTE: mvlu_find_comp_type uses flattened name without LN prefix. */ + if (scl_svcb->multicast) + sprintf (flatname, "MS$%s", scl_svcb->name); + else + sprintf (flatname, "US$%s", scl_svcb->name); + retcode = mvlu_find_comp_type (scl_ln->mvl_var_assoc->type_id, + flatname, &comp_rt_type, &comp_rt_num); + if (retcode!=SD_SUCCESS) + { + SXLOG_ERR2 ("Cannot find component '%s' in var '%s'. Initial values not set.", + flatname, scl_ln->mvl_var_assoc->name); + } + else + { + dataptr = (ST_CHAR *) scl_ln->mvl_var_assoc->data + + comp_rt_type->mvluTypeInfo.offSet; + /* Use SCL info to initialize SVCB data. */ + if (scl_svcb->multicast) + { /* MSVCB */ + MVL61850_MSVCB_DATA *msvcb_data = (MVL61850_MSVCB_DATA *) dataptr; + msvcb_data->SvEna = SD_FALSE; /* can't be configured. Init to FALSE*/ + strcpy (msvcb_data->MsvID, scl_svcb->smvID); + /* Construct ObjectReference to initialize msvcb_data->DatSet. */ + scl_make_objref (scl_ld, scl_ln, scl_svcb->datSet, + msvcb_data->DatSet, sizeof (msvcb_data->DatSet) - 1); + msvcb_data->ConfRev = scl_svcb->confRev; + msvcb_data->SmpRate = scl_svcb->smpRate; + msvcb_data->OptFlds.len = 3; /* Var len 3-bit bitstring */ + msvcb_data->OptFlds.data[0] = scl_svcb->OptFlds[0]; /* 1 byte of data*/ + } + else + { /* USVCB */ + MVL61850_USVCB_DATA *usvcb_data = (MVL61850_USVCB_DATA *) dataptr; + usvcb_data->SvEna = SD_FALSE; /* can't be configured. Init to FALSE*/ + usvcb_data->Resv = SD_FALSE; /* can't be configured. Init to FALSE*/ + strcpy (usvcb_data->UsvID, scl_svcb->smvID); + /* Construct ObjectReference to initialize usvcb_data->DatSet. */ + scl_make_objref (scl_ld, scl_ln, scl_svcb->datSet, + usvcb_data->DatSet, sizeof (usvcb_data->DatSet) - 1); + usvcb_data->ConfRev = scl_svcb->confRev; + usvcb_data->SmpRate = scl_svcb->smpRate; + usvcb_data->OptFlds.len = 3; /* Var len 3-bit bitstring */ + usvcb_data->OptFlds.data[0] = scl_svcb->OptFlds[0]; /* 1 byte of data*/ + } + } + } /* end loop */ + } +/************************************************************************/ +/* scl2_ln_init_sgcb_vals */ +/* Use mvlu_find_comp_type to find the data offset of the SGCB in the LN.*/ +/* Then write the SCL data there. */ +/************************************************************************/ +static ST_VOID scl2_ln_init_sgcb_vals ( + SCL_INFO *scl_info, /* main struct where all SCL info stored*/ + SCL_LD *scl_ld, + SCL_LN *scl_ln) + { +ST_CHAR flatname [MAX_IDENT_LEN +1]; +RUNTIME_TYPE *comp_rt_type; /* first rt_type of component */ +ST_INT comp_rt_num; /* num of rt_types in component */ +ST_RET retcode = SD_SUCCESS; +ST_CHAR *dataptr; +MVL61850_SGCB_DATA *sgcb_data; + + /* Only 1 SGCB allowed. Don't need loop. */ + if (scl_ln->sgcb) + { + /* NOTE: mvlu_find_comp_type uses flattened name without LN prefix. */ + strcpy (flatname, "SP$SGCB"); + retcode = mvlu_find_comp_type (scl_ln->mvl_var_assoc->type_id, + flatname, &comp_rt_type, &comp_rt_num); + if (retcode!=SD_SUCCESS) + { + SXLOG_ERR2 ("Cannot find component '%s' in var '%s'. Initial values not set.", + flatname, scl_ln->mvl_var_assoc->name); + } + else + { + dataptr = (ST_CHAR *) scl_ln->mvl_var_assoc->data + + comp_rt_type->mvluTypeInfo.offSet; + /* Use SCL info to initialize SGCB data. */ + sgcb_data = (MVL61850_SGCB_DATA *) dataptr; + sgcb_data->NumOfSG = scl_ln->sgcb->numOfSGs; + sgcb_data->ActSG = scl_ln->sgcb->actSG; + } + } + } +/************************************************************************/ +/* scl2_ln_create */ +/* RETURNS: SD_SUCCESS or error code */ +/************************************************************************/ +static ST_RET scl2_ln_create ( + MVL_VMD_CTRL *vmd_ctrl, + SCL_INFO *scl_info, /* main struct where all SCL info stored*/ + SCL_LD *scl_ld, + SCL_LN *scl_ln) + { +ST_INT type_id; +MVL_VAR_ASSOC *var_assoc; +OBJECT_NAME object_name; +ST_RET retcode; + + retcode = SD_FAILURE; /* assume failure */ + + type_id = scl_ln->type_id; + if (type_id < 0) + SXLOG_ERR2 ("Cannot find type='%s' for logical node='%s'", scl_ln->lnType, scl_ln->varName); + else + { + /* Construct object name from LD & LN info. */ + object_name.object_tag = DOM_SPEC; /* ALWAYS Domain specific */ + object_name.domain_id = scl_ld->domName; + object_name.obj_name.vmd_spec = scl_ln->varName; + + /* Create the MMS variable (Logical Node). */ + /* This function also allocates "var_alloc->data" where this */ + /* variable's data is stored. */ + var_assoc = mvl_var_add_alloc (vmd_ctrl, &object_name, + NULL, /* MVL_NET_INFO * */ + type_id, + NULL); /* MVL_VAR_PROC * */ + if (var_assoc == NULL) + SXLOG_ERR2 ("Cannot create LN='%s' in LD='%s'", scl_ln->varName, scl_ld->domName); + else + { + var_assoc->flags = MVL_VAR_FLAG_UCA; /* CRITICAL: must make it a UCA variable*/ + + /* NOTE: var_assoc->use_static_data flag is automatically set */ + /* by mvl_vmd_var_add because data is never NULL. */ + scl_ln->mvl_var_assoc = var_assoc; /* save var_assoc for later*/ + retcode = SD_SUCCESS; + } + } + if (retcode == SD_SUCCESS) + { + /* Set initial vals for LCB, GCB, & SCB (i.e. GSSE control block). */ + scl2_ln_init_lcb_vals (scl_info, scl_ld, scl_ln); + scl2_ln_init_gcb_vals (scl_info, scl_ld, scl_ln); + scl2_ln_init_svcb_vals (scl_info, scl_ld, scl_ln); + scl2_ln_init_sgcb_vals (scl_info, scl_ld, scl_ln); + } + return (retcode); + } +/************************************************************************/ +/* scl2_dataset_create */ +/* Create one DataSet (SCL_DATASET) for this Logical Node (SCL_LN). */ +/* A DataSet maps to a MMS NamedVariableList (NVL). */ +/* The MMS NVL name follows the form "LogicalNodeName$DataSetName". */ +/* RETURNS: SD_SUCCESS or error code */ +/************************************************************************/ +static ST_RET scl2_dataset_create ( + MVL_VMD_CTRL *vmd_ctrl, + SCL_LD *scl_ld, + SCL_LN *scl_ln, + SCL_DATASET *scl_dataset) + { +OBJECT_NAME nvl_obj; +MVL_NVLIST_CTRL *nvlist_ctrl; +ST_INT num_var = 0; +OBJECT_NAME *var_obj; /* array of var names */ +SCL_FCDA *scl_fcda; +ST_RET ret; +/* allow extra char in var_name so strncat can go beyond limit. If it does, return error.*/ +ST_CHAR *var_name_buf; /* one buf allocated to hold all var names */ +ST_CHAR *var_name; /* ptr to current name being constructed */ +ST_CHAR *dot_ptr; /* ptr to '.' within var_name */ +ST_CHAR nvl_name [MAX_IDENT_LEN+1]; /* one extra byte for NULL */ + + ret = SD_SUCCESS; /* assume success */ + + /* Construct NVL object name from LD, LN, and DataSet info. */ + if (strlen (scl_ln->prefix) + strlen (scl_ln->lnClass) + strlen (scl_ln->inst) + + strlen (scl_dataset->name) + 1 > MAX_IDENT_LEN) + { + SXLOG_ERR1 ("Constructed NVL name would be too long for dataset '%s'.", scl_dataset->name); + return (SD_FAILURE); + } + sprintf (nvl_name, "%s%s%s$%s", scl_ln->prefix, scl_ln->lnClass, scl_ln->inst, scl_dataset->name); + nvl_obj.object_tag = DOM_SPEC; /* ALWAYS Domain specific */ + nvl_obj.domain_id = scl_ld->domName; + nvl_obj.obj_name.vmd_spec = nvl_name; /* use constructed NVL name */ + + /* Go through list once just to count number of variables. */ + for (scl_fcda = (SCL_FCDA *) list_find_last ((DBL_LNK *) scl_dataset->fcdaHead); + scl_fcda != NULL; + scl_fcda = (SCL_FCDA *) list_find_prev ((DBL_LNK *) scl_dataset->fcdaHead, (DBL_LNK *) scl_fcda)) + { + num_var++; + } + /* Allocate var_obj array. */ + var_obj = chk_calloc (num_var, sizeof (OBJECT_NAME)); + + /* NOTE: this is a bit tricky. OBJECT_NAME struct contains only a ptr + * to name, no storage. Need to allocate storage for names. Here we + * allocate one big buffer for all names. In the loop below, + * we use part of this buffer for each name. + */ + var_name_buf = chk_calloc (num_var, MAX_IDENT_LEN+2); /* Note +2 for NULL plus extra char*/ + + /* Go through list again to fill in var_obj array. */ + num_var = 0; + for (scl_fcda = (SCL_FCDA *) list_find_last ((DBL_LNK *) scl_dataset->fcdaHead); + scl_fcda != NULL; + scl_fcda = (SCL_FCDA *) list_find_prev ((DBL_LNK *) scl_dataset->fcdaHead, (DBL_LNK *) scl_fcda)) + { + /* Set "var_name" pointing to proper section of big buffer. */ + var_name = var_name_buf + num_var*(MAX_IDENT_LEN+2); + /* Fill in "var_name". */ + /* NOTE: allow 1 extra char. If it is used, name is too long, so return error.*/ + strncpy (var_name, scl_fcda->prefix, MAX_IDENT_LEN+1); + strncat_maxstrlen (var_name, scl_fcda->lnClass, MAX_IDENT_LEN+1); + strncat_maxstrlen (var_name, scl_fcda->lnInst, MAX_IDENT_LEN+1); + strncat_maxstrlen (var_name, "$", MAX_IDENT_LEN+1); + strncat_maxstrlen (var_name, scl_fcda->fc, MAX_IDENT_LEN+1); + if (strlen (scl_fcda->doName)) + { + strncat_maxstrlen (var_name, "$", MAX_IDENT_LEN+1); + strncat_maxstrlen (var_name, scl_fcda->doName, MAX_IDENT_LEN+1); + } + if (strlen (scl_fcda->daName)) + { + strncat_maxstrlen (var_name, "$", MAX_IDENT_LEN+1); + strncat_maxstrlen (var_name, scl_fcda->daName, MAX_IDENT_LEN+1); + } + /* doName or daName may contain '.'. Each '.' must be replaced with '$'.*/ + dot_ptr = var_name; + while ((dot_ptr = strchr (dot_ptr, '.')) != NULL) + *dot_ptr++ = '$'; + if (strlen (var_name) > MAX_IDENT_LEN) + { + SXLOG_ERR1 ("Variable name generated from FCDA info too long '%s'", var_name); + ret = SD_FAILURE; + break; /* stop looping */ + } + + /* var_name generated, now fill in this "var_obj". */ + var_obj[num_var].object_tag = DOM_SPEC; /* ALWAYS Domain specific */ + var_obj[num_var].domain_id = scl_fcda->domName; + var_obj[num_var].obj_name.vmd_spec = var_name; + num_var++; + } + + if (ret == SD_SUCCESS) + { + nvlist_ctrl = mvl_vmd_nvl_add (vmd_ctrl, &nvl_obj, NULL, num_var, var_obj, SD_TRUE); + if (nvlist_ctrl) + ret = SD_SUCCESS; + else + ret = SD_FAILURE; + } + /* NOTE: can free these now because mvl_vmd_nvl_add copied this info.*/ + chk_free (var_obj); + chk_free (var_name_buf); + return (ret); + } +/************************************************************************/ +/* scl2_dataset_create_all */ +/* Create all DataSets (SCL_DATASET) for this Logical Node (SCL_LN). */ +/* RETURNS: SD_SUCCESS or error code */ +/************************************************************************/ +static ST_RET scl2_dataset_create_all ( + MVL_VMD_CTRL *vmd_ctrl, + SCL_LD *scl_ld, + SCL_LN *scl_ln) + { +SCL_DATASET *scl_dataset; +ST_RET ret; + + ret = SD_SUCCESS; /* assume success */ + + /* NOTE: linked list is in reverse order from data in SCL file, */ + /* so get off list in reverse order. */ + for (scl_dataset = (SCL_DATASET *) list_find_last ((DBL_LNK *) scl_ln->datasetHead); + scl_dataset != NULL; + scl_dataset = (SCL_DATASET *) list_find_prev ((DBL_LNK *) scl_ln->datasetHead, (DBL_LNK *) scl_dataset)) + { +ST_UINT32 mvl_debug_sel_save; + + mvl_debug_sel_save = mvl_debug_sel; + mvl_debug_sel &= ~MVLLOG_NERR; + ret = scl2_dataset_create (vmd_ctrl, scl_ld, scl_ln, scl_dataset); + mvl_debug_sel = mvl_debug_sel_save; + if (ret) + { + if (!scl_debug_mode) + break; /* if one fails, stop processing */ + + ++scl_debug_mode_error_count; + } + else + { + SXLOG_FLOW3 ("scl2_dataset_create DONE for '%s' (LD=%s LN=%s)", + scl_dataset->name, scl_ld->domName, scl_ln->varName); + } + } + return (ret); + } +/************************************************************************/ +/* init_basrcb_data */ +/* Use other info in scl_rcb to initialize data in basrcb. */ +/************************************************************************/ +static ST_VOID init_basrcb_data ( + MVLU_RPT_CTRL *rpt_ctrl, + SCL_RCB *scl_rcb) + { + MVLU_BASRCB *basrcb; + + basrcb = &rpt_ctrl->only_client.basrcb; + + /* If RptID configured in SCL, overwrite default RptID generated by mvlu_create_rpt_ctrl */ + if (strlen (scl_rcb->rptID)) + strncpy_safe (basrcb->RptID, scl_rcb->rptID, sizeof (basrcb->RptID)-1); + /* Use other info in scl_rcb to initialize data in basrcb */ + /* NOTE: scl_rcb->name, scl_rcb->desc not used. */ + basrcb->IntgPd = scl_rcb->intgPd; + basrcb->BufTim = scl_rcb->bufTime; + + basrcb->TrgOps.len = 6; /* BVstring. Assume max len*/ + basrcb->TrgOps.data [0] = scl_rcb->TrgOps [0]; + /*renxiaobao Ôö¼Ó*/ + basrcb->TrgOps.data [0]|= TRGOPS_BITNUM_GENERAL_INTERROGATION; + + basrcb->OptFlds.data_1 [0] = scl_rcb->OptFlds [0]; + basrcb->OptFlds.data_1 [1] = scl_rcb->OptFlds [1]; + if (!scl_rcb->buffered) + { /* For URCB, 61850-8-1 says to ignore buffer-overflow, entryID bits, so clear them*/ + BSTR_BIT_SET_OFF (basrcb->OptFlds.data_1, OPTFLD_BITNUM_BUFOVFL); + BSTR_BIT_SET_OFF (basrcb->OptFlds.data_1, OPTFLD_BITNUM_ENTRYID); + } + } +/************************************************************************/ +/* init_rpt_ctrl */ +/* Used only by loop in "scl2_rcb_create". */ +/************************************************************************/ +ST_RET init_rpt_ctrl ( + SCL_INFO *scl_info, /* main struct where all SCL info stored*/ + SCL_RCB *scl_rcb, + MVL_NVLIST_CTRL *nvl, + MVL_VAR_ASSOC *base_va, + ST_CHAR *basrcb_var_namexx, + ST_CHAR *basrcb_type_namexx, + ST_UINT reportScanRate) /* report scan rate (millisec) */ + { +ST_INT buftim_action; +ST_INT set_flags; /* flags for mvlu_set_leaf_param_name */ +ST_RET ret; +ST_CHAR leaf_name [MAX_IDENT_LEN + 1]; +MVLU_RPT_CTRL *rpt_ctrl; + + /* DEBUG: nothing in SCL to set buftim_action. Is there another way to get this info? */ + buftim_action = MVLU_RPT_BUFTIM_SEND_NOW; + + /* Set all leaf functions required to implement RCB. + * NOTE: these leaf functions replace the default leaf functions + * set by "u_set_all_leaf_functions" when the datatype was created. + */ + + /* Use same flags for all leafs */ + set_flags = MVLU_SET_RD_FUN | MVLU_SET_WR_FUN | MVLU_SET_REF; + + /* Start with good return value & OR all returns together. If ANY call + * to mvlu_set_leaf_param_name fails, this function will fail. + */ + ret = SD_SUCCESS; + /* CRITICAL: len of basrcb_type_name chked above, so none of these "sprintf"s + * will cause leaf_name to be exceeded. + */ + sprintf (leaf_name, "%s$RptID", basrcb_type_namexx); + ret |= mvlu_set_leaf_param_name2 (base_va->type_id, set_flags, + leaf_name, + "mvlu_rptid_rd_ind_fun", + "mvlu_rptid_wr_ind_fun", + ""); + sprintf (leaf_name, "%s$RptEna", basrcb_type_namexx); + ret |= mvlu_set_leaf_param_name2 (base_va->type_id, set_flags, + leaf_name, + "mvlu_rptena_rd_ind_fun", + "mvlu_rptena_wr_ind_fun", + ""); + if (!scl_rcb->buffered) /* "Resv" only for Unbuffered */ + { + sprintf (leaf_name, "%s$Resv", basrcb_type_namexx); + ret |= mvlu_set_leaf_param_name2 (base_va->type_id, set_flags, + leaf_name, + "mvlu_resv_rd_ind_fun", + "mvlu_resv_wr_ind_fun", + ""); + } + sprintf (leaf_name, "%s$DatSet", basrcb_type_namexx); + ret |= mvlu_set_leaf_param_name2 (base_va->type_id, set_flags, + leaf_name, + "mvlu_datsetna_rd_ind_fun", + "mvl61850_datset_wr_ind", + ""); + sprintf (leaf_name, "%s$ConfRev", basrcb_type_namexx); + ret |= mvlu_set_leaf_param_name2 (base_va->type_id, set_flags, + leaf_name, + "mvlu_confrev_rd_ind", + "u_no_write_allowed", /* NOT writable */ + ""); + sprintf (leaf_name, "%s$OptFlds", basrcb_type_namexx); + ret |= mvlu_set_leaf_param_name2 (base_va->type_id, set_flags, + leaf_name, + "mvlu_optflds_rd_ind_fun", + "mvlu_optflds_wr_ind_fun", + ""); + sprintf (leaf_name, "%s$BufTm", basrcb_type_namexx); + ret |= mvlu_set_leaf_param_name2 (base_va->type_id, set_flags, + leaf_name, + "mvlu_buftim_rd_ind_fun", + "mvlu_buftim_wr_ind_fun", + ""); + sprintf (leaf_name, "%s$SqNum", basrcb_type_namexx); + if (scl_rcb->buffered) + { /* Buffered uses INT16U for SqNum */ + ret |= mvlu_set_leaf_param_name2 (base_va->type_id, set_flags, + leaf_name, + "mvlu_sqnum_int16u_rd_ind_fun", + "u_no_write_allowed", + ""); + } + else + { /* Unbuffered uses INT8U for SqNum */ + ret |= mvlu_set_leaf_param_name2 (base_va->type_id, set_flags, + leaf_name, + "mvlu_sqnum_rd_ind_fun", + "u_no_write_allowed", + ""); + } + sprintf (leaf_name, "%s$TrgOps", basrcb_type_namexx); + ret |= mvlu_set_leaf_param_name2 (base_va->type_id, set_flags, + leaf_name, + "mvlu_trgops_rd_ind_fun", + "mvlu_trgops_wr_ind_fun", + ""); + sprintf (leaf_name, "%s$IntgPd", basrcb_type_namexx); + ret |= mvlu_set_leaf_param_name2 (base_va->type_id, set_flags, + leaf_name, + "mvlu_intgpd_rd_ind_fun", + "mvlu_intgpd_wr_ind_fun", + ""); + sprintf (leaf_name, "%s$GI", basrcb_type_namexx); + ret |= mvlu_set_leaf_param_name2 (base_va->type_id, set_flags, + leaf_name, + "mvlu_gi_rd_ind", + "mvlu_gi_wr_ind", + ""); + if (scl_rcb->buffered) /* only for Buffered */ + { + sprintf (leaf_name, "%s$PurgeBuf", basrcb_type_namexx); + ret |= mvlu_set_leaf_param_name2 (base_va->type_id, set_flags, + leaf_name, + "mvlu_purgebuf_rd_ind", + "mvlu_purgebuf_wr_ind", + ""); + sprintf (leaf_name, "%s$EntryID", basrcb_type_namexx); + ret |= mvlu_set_leaf_param_name2 (base_va->type_id, set_flags, + leaf_name, + "mvlu_entryid_rd_ind", + "mvlu_entryid_wr_ind", + ""); + sprintf (leaf_name, "%s$TimeofEntry", basrcb_type_namexx); + ret |= mvlu_set_leaf_param_name2 (base_va->type_id, set_flags, + leaf_name, + "mvlu_timeofentry_rd_ind", + "u_no_write_allowed", /* NOT writable */ + ""); + } /* only for Buffered */ + + if (ret) + { + SXLOG_ERR1 ("At least one leaf function could not be found for RCB '%s'", basrcb_var_namexx); + if (scl_debug_mode) + { + ++scl_debug_mode_error_count; + return (SD_SUCCESS); /* Don't let this stop us for now ... */ + } + return (ret); + } + + /* NOTE: nvl may be NULL. If so, it must be set later when client writes DatSet.*/ + rpt_ctrl = mvl61850_create_rpt_ctrl (basrcb_var_namexx, nvl, + base_va, + (scl_rcb->buffered ? RCB_TYPE_IEC_BRCB : RCB_TYPE_IEC_URCB), + buftim_action, + scl_info->brcb_bufsize, /* BRCB bufsize */ + scl_rcb->confRev); /* ConfRev */ + if (rpt_ctrl) + { + init_basrcb_data (rpt_ctrl, scl_rcb); /* use scl_rcb to init data*/ + rpt_ctrl->scan_rate = (ST_DOUBLE) reportScanRate; /* init scan rate*/ + ret = SD_SUCCESS; + /* renxiaobao ±¨¸æ*/ + if(scl_rcb->buffered==RCB_TYPE_IEC_BRCB) BRCB_NUM++; + else URCB_NUM++; + } + else + ret = SD_FAILURE; + return (ret); + } +/************************************************************************/ +/* scl2_rcb_create */ +/* RETURNS: SD_SUCCESS or error code */ +/************************************************************************/ +static ST_RET scl2_rcb_create ( + MVL_VMD_CTRL *vmd_ctrl, + SCL_INFO *scl_info, + SCL_LD *scl_ld, + SCL_LN *scl_ln, + SCL_RCB *scl_rcb, + ST_UINT reportScanRate) /* report scan rate (millisec) */ + { +ST_RET ret = SD_FAILURE; +ST_CHAR basrcb_var_name [MAX_IDENT_LEN + 1]; +ST_CHAR basrcb_type_name [MAX_IDENT_LEN + 1]; /* for setting leaf functions*/ +ST_CHAR basrcb_var_namexx [MAX_IDENT_LEN + 1]; /* name plus 2 char index*/ +ST_CHAR basrcb_type_namexx [MAX_IDENT_LEN + 1]; /* name plus 2 char index*/ +MVL_VAR_ASSOC *base_va; +OBJECT_NAME base_var_oname; +OBJECT_NAME nvl_oname; +MVL_NVLIST_CTRL *nvl; +SCL_DATASET *scl_dataset; +ST_CHAR nvl_name [MAX_IDENT_LEN+1]; +ST_INT index, maxClient; + + /* Initialize basrcb_type_name. Add $BR.. or $RP.. later. */ + /* First part of name shouldn't matter now that init_rpt_ctrl uses */ + /* mvlu_set_leaf_param_name2 to set leaf params. Use simple name. */ + strcpy (basrcb_type_name, "b"); + + /* Generate basrcb_var_name from SCL info. The code below should generate a unique + * basrcb_var_name for every RCB in this LN. + */ + strcpy (basrcb_var_name, scl_ln->varName); /* never too long */ + if (scl_rcb->buffered) + { + strncat_maxstrlen (basrcb_var_name, "$BR$", MAX_IDENT_LEN); + strncat_maxstrlen (basrcb_type_name, "$BR$", MAX_IDENT_LEN); + } + else + { + strncat_maxstrlen (basrcb_var_name, "$RP$", MAX_IDENT_LEN); + strncat_maxstrlen (basrcb_type_name, "$RP$", MAX_IDENT_LEN); + } + /* Add RCB name (read from SCL file). */ + strncat_maxstrlen (basrcb_var_name, scl_rcb->name, MAX_IDENT_LEN); + strncat_maxstrlen (basrcb_type_name, scl_rcb->name, MAX_IDENT_LEN); + + /* Make sure there's room for 2 char "index" plus longest suffix */ + if (strlen (basrcb_var_name) + 2 + sizeof("$TimeOfEntry") > MAX_IDENT_LEN) + { + SXLOG_ERR1 ("BasRCB variable name '%s' too long", basrcb_var_name); + return (SD_FAILURE); + } + if (strlen (basrcb_type_name) + 2 + sizeof("$TimeOfEntry") > MAX_IDENT_LEN) + { + SXLOG_ERR1 ("BasRCB type name '%s' too long", basrcb_type_name); + return (SD_FAILURE); + } + + /* If "datSet" is not NULL, try to find it. */ + if (scl_rcb->datSet[0] != '\0') + { + scl_dataset = scl_find_dataset (scl_ln, scl_rcb->datSet); + if (scl_dataset == NULL) + { + SXLOG_ERR1 ("scl2_rcb_create: datSet='%s' not found", scl_rcb->datSet); + return (SD_FAILURE); + } + /* Construct NVL object name from LD, LN, and DataSet info. */ + if (strlen (scl_ln->prefix) + strlen (scl_ln->lnClass) + strlen (scl_ln->inst) + + strlen (scl_rcb->datSet) + 1 > MAX_IDENT_LEN) + { + SXLOG_ERR1 ("Constructed NVL name would be too long for dataset '%s'.", scl_rcb->datSet); + return (SD_FAILURE); + } + sprintf (nvl_name, "%s%s%s$%s", scl_ln->prefix, scl_ln->lnClass, scl_ln->inst, scl_rcb->datSet); + nvl_oname.object_tag = DOM_SPEC; + nvl_oname.domain_id = scl_ld->domName; /* domain name */ + nvl_oname.obj_name.item_id = nvl_name; /* use constructed NVL name */ + nvl = mvl_vmd_find_nvl (vmd_ctrl, &nvl_oname, + NULL); /* DOM_SPEC so net_info doesn't matter*/ + if (nvl == NULL) + { + SXLOG_ERR3 ("Cannot find NVL '%s' in domain '%s' to create RCB '%s'", + nvl_oname.obj_name.item_id, + nvl_oname.domain_id, + basrcb_var_name); + return (SD_FAILURE); + } + } + else + nvl = NULL; /* datSet="" so can't find NVL */ + + /* Find the "base_va". Needed as arg to mvlu_create_rpt_ctrl. */ + base_var_oname.object_tag = DOM_SPEC; + base_var_oname.domain_id = scl_ld->domName; + + base_var_oname.obj_name.item_id = scl_ln->varName; + base_va = mvl_vmd_find_var (vmd_ctrl, &base_var_oname, + NULL); /* DOM_SPEC so net_info doesn't matter*/ + if (base_va == NULL) + { + SXLOG_ERR1 ("Cannot find base variable='%s' for RCB", scl_ln->varName); + return (SD_FAILURE); + } + + assert (scl_rcb->maxClient > 0 && scl_rcb->maxClient <= 99); /* was checked during parsing */ + + maxClient = scl_rcb->maxClient; /* use value of "RptEnabled max" in SCL*/ + + /* Create "maxClient" RCBs, each with "index" as a suffix. */ + for (index = 1; index <= maxClient; index++) + { + if (rcb_name_no_index && maxClient == 1) + { /* do NOT add suffix */ + sprintf (basrcb_var_namexx, "%s", basrcb_var_name); + sprintf (basrcb_type_namexx, "%s", basrcb_type_name); + } + else + { + /* Add "index" suffix to var and type name. */ + sprintf (basrcb_var_namexx, "%s%02d", basrcb_var_name, index); + sprintf (basrcb_type_namexx, "%s%02d", basrcb_type_name, index); + } + + ret = init_rpt_ctrl (scl_info, scl_rcb, nvl, base_va, + basrcb_var_namexx, basrcb_type_namexx, reportScanRate); + if (ret) + break; /* stop looping on any error. */ + } /* end of loop */ + return (ret); + } +/************************************************************************/ +/* scl2_rcb_create_all */ +/* Create all Report Control Blocks (SCL_RCB) for this Logical Node (SCL_LN).*/ +/* RETURNS: SD_SUCCESS or error code */ +/************************************************************************/ +static ST_RET scl2_rcb_create_all ( + MVL_VMD_CTRL *vmd_ctrl, + SCL_INFO *scl_info, + SCL_LD *scl_ld, + SCL_LN *scl_ln, + ST_UINT reportScanRate) /* report scan rate (millisec) */ + { +SCL_RCB *scl_rcb; +ST_RET ret; + + ret = SD_SUCCESS; /* assume success */ + + /* NOTE: linked list is in reverse order from data in SCL file, */ + /* so get off list in reverse order. */ + for (scl_rcb = (SCL_RCB *) list_find_last ((DBL_LNK *) scl_ln->rcbHead); + scl_rcb != NULL; + scl_rcb = (SCL_RCB *) list_find_prev ((DBL_LNK *) scl_ln->rcbHead, (DBL_LNK *) scl_rcb)) + { + ret = scl2_rcb_create (vmd_ctrl, scl_info, scl_ld, scl_ln, scl_rcb, + reportScanRate); + if (ret) + break; /* if one fails, stop processing */ + else + SXLOG_FLOW3 ("scl2_rcb_create DONE for '%s' (LD=%s LN=%s)", + scl_rcb->name, scl_ld->domName, scl_ln->varName); + } + return (ret); + } +/************************************************************************/ +/* convert_initial_value */ +/* NOTE: This function does special conversion for "Enum" and "Boolean" */ +/* values. For all other types, it just calls sxaTextToLocal. */ +/************************************************************************/ +ST_RET convert_initial_value (SCL_INFO *scl_info, + SCL_LD *scl_ld, + SCL_LN *scl_ln, + ST_CHAR *flattened_name, /* flattened variable name */ + RUNTIME_CTRL *rt_ctrl, + ST_INT comp_rt_index, /* index to this comp in array */ + ST_VOID *data, /* Pointer to converted data */ + ST_CHAR *valstring) /* string to be converted. */ + { +ST_RET ret = SD_SUCCESS; +RUNTIME_TYPE *comp_rt_type; +SCL_ENUMTYPE *scl_enumtype; +RESERVED_INFO *reserved_info; /* ptr to array of extra type info. */ +short i; +char *ptr0,*ptr1; + + /* Cast "reserved_1" pointer to the type we allocated. */ + reserved_info = (RESERVED_INFO *) rt_ctrl->reserved_1; + + comp_rt_type = rt_ctrl->rt_first + comp_rt_index; + scl_enumtype = reserved_info[comp_rt_index].scl_enumtype; /* may be NULL*/ + + /* Component must be primitive. */ + assert (ms_is_rt_prim (comp_rt_type)); + if (comp_rt_type->el_tag == RT_INTEGER && scl_enumtype) /* must be Enum */ + { + /* Try to match text with EnumType definition.*/ + SCL_ENUMVAL *scl_enumval; + ST_BOOLEAN found = SD_FALSE; + for (scl_enumval = (SCL_ENUMVAL *) list_find_last ((DBL_LNK *) scl_enumtype->enumvalHead); + scl_enumval != NULL; + scl_enumval = (SCL_ENUMVAL *) list_find_prev ((DBL_LNK *) scl_enumtype->enumvalHead, (DBL_LNK *) scl_enumval)) + { + if (strcmp (scl_enumval->EnumVal, valstring) == 0) + { + *(ST_INT8*)data = (ST_INT8) scl_enumval->ord; + found = SD_TRUE; + break; + } + } + if (!found) + { + SXLOG_ERR3("%s$%s does not match any EnumVal. Trying numeric conversion. %s",scl_ln->varName,flattened_name,valstring); + /* SXLOG_ERR1 ("Val='$s' does not match any EnumVal. Trying numeric conversion.",valstring);*/ + /* This is not required by IEC 61850, but if valstring does not match */ + /* any EnumVal and it starts with a digit, do numeric conversion. */ + if (isdigit (valstring[0])) + ret = sxaTextToLocal (valstring, data, 1, /* rt_num always 1 (primitive) */ + comp_rt_type); + else + ret = SD_FAILURE; + + + + + } + } + else if (comp_rt_type->el_tag == RT_BOOL) + { /* convert boolean (may be "0", "1", "true", or "false") */ + if (strcmp (valstring, "true") == 0 || strcmp (valstring, "1") == 0) + *(ST_INT8 *)data = 1; + else if (strcmp (valstring, "false") == 0 || strcmp (valstring, "0") == 0) + *(ST_INT8 *)data = 0; + else + ret = SD_FAILURE; + } + /* Do special checking for visible strings. */ + else if (comp_rt_type->el_tag == RT_VISIBLE_STRING) + { + ST_CHAR *ptr; + /* Visible string must not contain any control chars. */ + for (ptr = valstring; *ptr!=0; ptr++) + { + if (*ptr < ' ') /* Check that character is not a control char. */ + { + SXLOG_ERR1 ("Illegal character (0x%02x) in visible string", + (ST_UINT)(ST_UCHAR) *ptr); /* 2 casts to avoid sign extension*/ + ret = SD_FAILURE; + break; /* stop on first error */ + return SD_SUCCESS; /*renxiaobao da³õʼ»¯*/ + } + } + if (ret == SD_SUCCESS) + { + if (comp_rt_type->u.p.el_len < 0 /* variable len */ + && strlen (valstring) > (size_t) abs (comp_rt_type->u.p.el_len)) + { + SXLOG_ERR2 ("String '%s' exceeds max len '%d'", + valstring, abs (comp_rt_type->u.p.el_len)); + ret = SD_FAILURE; + return SD_SUCCESS; /*renxiaobao da³õʼ»¯*/ + } + else if (comp_rt_type->u.p.el_len >= 0 /* fixed len */ + && strlen (valstring) != (size_t) comp_rt_type->u.p.el_len) + { + /* Shouldn't get here because no fixed len in SCL, but just in case..*/ + SXLOG_ERR2 ("String '%s' does not match fixed len '%d'", + valstring, comp_rt_type->u.p.el_len); + ret = SD_FAILURE; + return SD_SUCCESS; /*renxiaobao da³õʼ»¯*/ + } + else + strcpy (data, valstring); /* all is ok, so copy string*/ + } + } /* end RT_VISIBLE_STRING */ + /*renxiaobao UTF8±àÂë*/ + else if (comp_rt_type->el_tag == RT_UTF8_STRING) + { + ptr0 = data; + ptr1 = valstring; + for(i=0;((iel_size)&&ptr1[i]);i++) + { + ptr0[i] = ptr1[i]; + } + } + else + { /* handle all other element types */ + ret = sxaTextToLocal (valstring, data, 1, /* rt_num always 1 (primitive) */ + comp_rt_type); + } + if (ret) + { /* Our conversion code failed. Let the user try. */ + SCL2_IV_TRANSLATE_CTRL translate_ctrl; + memset (&translate_ctrl, 0, sizeof (SCL2_IV_TRANSLATE_CTRL)); + + translate_ctrl.scl_info = scl_info; + translate_ctrl.scl_ld = scl_ld; + translate_ctrl.scl_ln = scl_ln; + translate_ctrl.valText = valstring; + translate_ctrl.attrib = flattened_name; + translate_ctrl.dest = data; + translate_ctrl.numRt = 1; /* always 1 (primitive) */ + translate_ctrl.rtHead = comp_rt_type; + + ret = u_mvl_scl_set_initial_value (&translate_ctrl);/* call user funct*/ + } + return (ret); + } + +/************************************************************************/ +/* scl2_dai_set_value */ +/* Set initial data value from DAI input from SCL file. */ +/* Use sxaTextToLocal to convert the text to data. */ +/* RETURNS: SD_SUCCESS or error code */ +/************************************************************************/ +int sAddr_num=0,sAddr_num_bak; +static ST_RET scl2_dai_set_value (SCL_INFO *scl_info, + SCL_LD *scl_ld, + SCL_LN *scl_ln, + SCL_DAI *scl_dai) + { +ST_CHAR fixed_name [MAX_IDENT_LEN +1]; +ST_CHAR fixed_name1 [MAX_IDENT_LEN +1]; +ST_CHAR leaf_name [MAX_IDENT_LEN +1]; +ST_RET ret = SD_FAILURE; +MVL_VAR_ASSOC *var; /* MVL Variable Association created from LN info*/ +RUNTIME_TYPE *comp_rt_type; /* first rt_type of component */ +RUNTIME_TYPE *comp_rt_type1=0; +ST_INT comp_rt_num; /* num of rt_types in component */ +ST_UINT32 mvl_debug_sel_save; +MVL_TYPE_CTRL *type_ctrl; +DATA_MAP_LINK *data_map; +ST_CHAR *LeafToFind; +ST_CHAR leafname [MAX_IDENT_LEN +1]; +unsigned char *pdat; + + /* It seems strange but "Val" is optional for DAI (i.e. Instantiated */ + /* Data Attribute with no value). If "Val" not present, do nothing. */ + /* //if (scl_dai->Val == NULL) + //{ + // SXLOG_FLOW2 ("scl2_dai_set_value: 'Val' not present for attribute '%s' in '%s'. Do nothing.", + // scl_dai->flattened, scl_ln->varName); + // return (SD_SUCCESS); // nothing to do, so stop now + //}*/ + + var = scl_ln->mvl_var_assoc; + if (strlen (scl_dai->flattened) <= (MAX_IDENT_LEN-3)) + { + /* Turn off false NERR log messages */ + mvl_debug_sel_save = mvl_debug_sel; + mvl_debug_sel &= ~MVLLOG_NERR; + + /* Find the attribute type. Don't know the FC, so try all possible */ + /* FC (i.e."ST" "MX" "CO" "SP" "SG" "SE" "SV" "CF" "DC" or "EX"). */ + do /* use "do-while" loop only so we can break out on success*/ + { + strcpy (fixed_name, "ST$"); /* Try "ST" first. */ + strcat (fixed_name, scl_dai->flattened); + if ((ret = mvlu_find_comp_type (var->type_id, fixed_name, &comp_rt_type, &comp_rt_num)) == SD_SUCCESS) + break; /* found it. done */ + + strncpy (fixed_name, "MX", 2); /* replace FC prefix*/ + if ((ret = mvlu_find_comp_type (var->type_id, fixed_name, &comp_rt_type, &comp_rt_num)) == SD_SUCCESS) + break; /* found it. done */ + + strncpy (fixed_name, "CO", 2); /* replace prefix*/ + if ((ret = mvlu_find_comp_type (var->type_id, fixed_name, &comp_rt_type, &comp_rt_num)) == SD_SUCCESS) + break; /* found it. done */ + + strncpy (fixed_name, "SP", 2); /* replace prefix*/ + if ((ret = mvlu_find_comp_type (var->type_id, fixed_name, &comp_rt_type, &comp_rt_num)) == SD_SUCCESS) + break; /* found it. done */ + + strncpy (fixed_name, "SG", 2); /* replace prefix*/ + if ((ret = mvlu_find_comp_type (var->type_id, fixed_name, &comp_rt_type, &comp_rt_num)) == SD_SUCCESS) + { + /*renxiaobao Êý¾ÝÓ³Éä*/ + strcpy (fixed_name1, "SE$"); /* Try "ST" first. */ + strcat (fixed_name1, scl_dai->flattened); + if ((ret = mvlu_find_comp_type (var->type_id, fixed_name1, &comp_rt_type1, &comp_rt_num)) != SD_SUCCESS) + { + printf("%s mvlu_find_comp_type error...\n",fixed_name1); + } + break; /* found it. done */ + } + /* + //strncpy (fixed_name, "SE", 2); // replace prefix + //if ((ret = mvlu_find_comp_type (var->type_id, fixed_name, &comp_rt_type, &comp_rt_num)) == SD_SUCCESS) + //break; found it. done + */ + strncpy (fixed_name, "SV", 2); /* replace prefix*/ + if ((ret = mvlu_find_comp_type (var->type_id, fixed_name, &comp_rt_type, &comp_rt_num)) == SD_SUCCESS) + break; /* found it. done */ + + strncpy (fixed_name, "CF", 2); /* replace prefix*/ + if ((ret = mvlu_find_comp_type (var->type_id, fixed_name, &comp_rt_type, &comp_rt_num)) == SD_SUCCESS) + break; /* found it. done */ + + strncpy (fixed_name, "DC", 2); /* replace prefix*/ + if ((ret = mvlu_find_comp_type (var->type_id, fixed_name, &comp_rt_type, &comp_rt_num)) == SD_SUCCESS) + break; /* found it. done */ + + strncpy (fixed_name, "EX", 2); /* replace prefix*/ + if ((ret = mvlu_find_comp_type (var->type_id, fixed_name, &comp_rt_type, &comp_rt_num)) == SD_SUCCESS) + break; /* found it. done */ + } while (0); /* end of do-while loop */ + + /* Restore MVL log mask settings */ + mvl_debug_sel = mvl_debug_sel_save; + } + /*renxiaobao Êý¾ÝÓ³Éä*/ + if(strlen(scl_dai->sAddr)) + { + sAddr_num++; + sAddr_num_bak = sAddr_num; + sprintf(leaf_name,"%s$%s",scl_ln->varName,fixed_name); + data_map = chk_calloc (1, sizeof (DATA_MAP_LINK)); + +// logprint("%s",leaf_name); + + strcpy(data_map->leaf,leaf_name); + strcpy(data_map->ldevice,scl_ld->domName); + strcpy(data_map->usr_data_info,scl_dai->sAddr); + list_add_last (&DATA_MAP_saddr, data_map); + strcpy(leafname,leaf_name); + LeafToFind = strstr(leafname,"$SG$"); + if(LeafToFind) + { + strncpy(LeafToFind,"$SE$",4); + sAddr_num++; + data_map = chk_calloc (1, sizeof (DATA_MAP_LINK)); + strcpy(data_map->leaf,leafname); + strcpy(data_map->ldevice,scl_ld->domName); + strcpy(data_map->usr_data_info,scl_dai->sAddr); + list_add_last (&DATA_MAP_saddr, data_map); + } + } + /* Tried all possible FC. Did we find a match. */ + if (ret != SD_SUCCESS) + { + SXLOG_ERR2 ("scl2_dai_set_value: Attribute '%s' in '%s' not found.", + scl_dai->flattened, scl_ln->varName); + if (strchr (scl_dai->flattened, '[') != NULL) + SXLOG_CERR0 ("Initialization of array elements not yet supported."); + } + else if (comp_rt_num !=1) + { + SXLOG_ERR2 ("scl2_dai_set_value: Attribute '%s' in '%s' not a primitive type.", + scl_dai->flattened, scl_ln->varName); + ret = SD_FAILURE; + } + if(ret == SD_SUCCESS) + { + /*renxiaobao Êý¾ÝÓ³Éä*/ + if(strlen(scl_dai->sAddr)) + { + pdat = (unsigned char*)(var->data)+comp_rt_type->mvluTypeInfo.offSet; + *pdat = ((sAddr_num_bak-1)/1000)+0x80; + if(scl_dai->Val != NULL) + { + printf("warning:scl_dai sAddr and Val both exist(%s %s)...",scl_dai->sAddr,scl_dai->Val); + } + if(comp_rt_type1) + { + pdat = (unsigned char*)(var->data)+comp_rt_type1->mvluTypeInfo.offSet; + *pdat = ((sAddr_num-1)/1000)+0x80; + } + } + else if(scl_dai->Val != NULL) + { + type_ctrl = mvl_type_ctrl_find (var->type_id); + ret = convert_initial_value (scl_info, scl_ld, scl_ln, fixed_name, + type_ctrl->rt_ctrl, + comp_rt_type - type_ctrl->rt_ctrl->rt_first, /* index to this comp*/ + (ST_INT8*)(var->data)+comp_rt_type->mvluTypeInfo.offSet, + scl_dai->Val); + } + } + if (ret == SD_SUCCESS) + { + SXLOG_FLOW3 ("scl2_dai_set_value: Val '%s' conversion for '%s$%s' SUCCESSFUL", + scl_dai->Val, scl_ln->varName, fixed_name); + } + else + { + SXLOG_ERR3 ("scl2_dai_set_value: Val '%s' conversion for '%s$%s' FAILED", + scl_dai->Val, scl_ln->varName, fixed_name); + printf ("scl2_dai_set_value: Val '%s' conversion for '%s$%s' FAILED",scl_dai->Val, scl_ln->varName, fixed_name); + } + + if (scl_debug_mode) + { + if (ret != SD_SUCCESS) + ++scl_debug_mode_error_count; + + return (SD_SUCCESS); /* Don't let this stop us for now ... */ + } + return (ret); + } + +/************************************************************************/ +/* scl2_da_or_bda_set_value_all */ +/* NOTE: the same Val text might get converted many times by this */ +/* function, but not enough info available to do conversion before now. */ +/************************************************************************/ +static ST_RET scl2_da_or_bda_set_value_all (SCL_INFO *scl_info, + SCL_LD *scl_ld, + SCL_LN *scl_ln) + { +ST_RET ret; +MVL_TYPE_CTRL *type_ctrl; +RUNTIME_TYPE *rt_type; +ST_INT rt_idx; /* index into RUNTIME_TYPE array. */ +RESERVED_INFO *reserved_info; /* ptr to array of extra type info. */ + + ret = SD_SUCCESS; /* assume success */ + +/* If this var could not be created, don't crash */ + if (scl_ln->mvl_var_assoc == NULL) + { + if (scl_debug_mode) + { + if (ret != SD_SUCCESS) + ++scl_debug_mode_error_count; + + return (SD_SUCCESS); /* Don't let this stop us for now ... */ + } + } + + type_ctrl = mvl_type_ctrl_find (scl_ln->mvl_var_assoc->type_id); + assert (type_ctrl); + /* Cast "reserved_1" pointer to the type we allocated. */ + reserved_info = (RESERVED_INFO *) type_ctrl->rt_ctrl->reserved_1; + + /* Loop through all elements of RUNTIME_TYPE array */ + for (rt_idx = 0, rt_type = type_ctrl->rt_ctrl->rt_first; + rt_idx < type_ctrl->rt_ctrl->rt_num; + rt_idx++, rt_type++) + { + ST_CHAR *Val = reserved_info[rt_idx].Val; + + if (Val) /* string to convert*/ + { + /* Convert text to value & store in Variable. */ + ret = convert_initial_value (scl_info, scl_ld, scl_ln, + NULL, /* don't know flattened_name in this case. */ + type_ctrl->rt_ctrl, + rt_idx, + (ST_INT8*)(scl_ln->mvl_var_assoc->data) + rt_type->mvluTypeInfo.offSet, + Val); /* string to convert*/ + if (ret != SD_SUCCESS) + { + SXLOG_ERR2 ("Cannot convert DA or BDA Val='%s' to data for '%s' attribute.", + Val, ms_comp_name_find(rt_type)); + break; /* stop now */ + } + } + } + return (ret); + } +/************************************************************************/ +/* scl2_dai_set_value_all */ +/* Initialize data for all DAI in this logical node. */ +/* RETURNS: SD_SUCCESS or error code */ +/************************************************************************/ +static ST_RET scl2_dai_set_value_all (SCL_INFO *scl_info, + SCL_LD *scl_ld, + SCL_LN *scl_ln) + { +SCL_DAI *scl_dai; +ST_RET ret; + + ret = SD_SUCCESS; /* assume success */ + + /* NOTE: linked list is in reverse order from data in SCL file, */ + /* so get off list in reverse order. */ + for (scl_dai = (SCL_DAI *) list_find_last ((DBL_LNK *) scl_ln->daiHead); + scl_dai != NULL; + scl_dai = (SCL_DAI *) list_find_prev ((DBL_LNK *) scl_ln->daiHead, (DBL_LNK *) scl_dai)) + { + ret = scl2_dai_set_value (scl_info, scl_ld, scl_ln, scl_dai); + if (ret) + { + SXLOG_ERR3 ("scl2_dai_set_value FAILED for '%s' (LD=%s LN=%s)", + scl_dai->flattened, scl_ld->domName, scl_ln->varName); + break; /* if one fails, stop processing */ + } + else + SXLOG_FLOW3 ("scl2_dai_set_value DONE for '%s' (LD=%s LN=%s)", + scl_dai->flattened, scl_ld->domName, scl_ln->varName); + } + + ret = SD_SUCCESS; /*renxiaobao20221014 */ + return (ret); + } +/************************************************************************/ +/* scl2_ld_create_part1 */ +/* Create Domain and all variables in it. */ +/* RETURNS: SD_SUCCESS or error code */ +/************************************************************************/ +static ST_RET scl2_ld_create_part1 ( + MVL_VMD_CTRL *vmd_ctrl, + SCL_INFO *scl_info, /* main struct where all SCL info stored*/ + SCL_LD *scl_ld) + { +ST_RET ret = SD_SUCCESS; /* Assume success */ +MVL_DOM_CTRL *dom_ctrl; +ST_INT max_num_var; /* compute from scl_ld info */ +ST_INT max_num_nvl; +ST_INT max_num_jou; +SCL_LN *scl_ln; + + /* Make sure there's room for all Logical Nodes (variables) defined in SCL.*/ + /* plus room for the configured maximum number of dynamic variables. */ + max_num_var = list_get_sizeof (scl_ld->lnHead) + mvl_max_dyn.dom_vars; + max_num_nvl = mvl_max_dyn.dom_nvls; + max_num_jou = mvl_max_dyn.journals; + + /* First create MMS domain */ + dom_ctrl = mvl_vmd_dom_add (vmd_ctrl, + scl_ld->domName, /* domain name */ + max_num_var, + max_num_nvl, + max_num_jou, + SD_TRUE); /* always copy name to dom_ctrl */ + if (!dom_ctrl) + ret = SD_FAILURE; + + /* If MMS domain created successfully, create all MMS variables (logical nodes). */ + if (ret == SD_SUCCESS) + { + /* NOTE: linked list is in reverse order from data in SCL file, */ + /* so get off list in reverse order. */ + for (scl_ln = (SCL_LN *) list_find_last ((DBL_LNK *) scl_ld->lnHead); + scl_ln != NULL; + scl_ln = (SCL_LN *) list_find_prev ((DBL_LNK *) scl_ld->lnHead, (DBL_LNK *) scl_ln)) + { + ret = scl2_ln_create (vmd_ctrl, scl_info, scl_ld, scl_ln); + if (ret) + { + SXLOG_ERR1 ("scl2_ln_create FAILED for %s", scl_ln->varName); + break; /* if one fails, stop processing */ + } + else + SXLOG_FLOW1 ("scl2_ln_create for %s SUCCESSFUL", scl_ln->varName); + } + } + + return (ret); + } + +/************************************************************************/ +/* scl2_ld_create_part2 */ +/* Create all NVLs and RCBs in this domain. */ +/* NOTE: this cannot be done in "scl2_ld_create_part1" because NVL */ +/* may include VAR from another Domain that was not defined yet. */ +/* RETURNS: SD_SUCCESS or error code */ +/************************************************************************/ +static ST_RET scl2_ld_create_part2 ( + MVL_VMD_CTRL *vmd_ctrl, + SCL_INFO *scl_info, /* main struct where all SCL info stored*/ + SCL_LD *scl_ld, + ST_UINT reportScanRate, /* report scan rate (millisec) */ + ST_BOOLEAN is_client) /* see description in scl2_ld_create_all*/ + { +ST_RET ret = SD_SUCCESS; /* Assume success */ +SCL_LN *scl_ln; + + /* Create all MMS NVLs (DataSets). + * IEC 61850 defines a DataSet "inside" a Logical Node. + * This should seem a little strange, because + * a Logical Node maps to a MMS Variable, and a DataSet maps to a + * MMS Named Variable List, and of course, a Named Variable List CANNOT + * be "inside" of a Variable. + * This is resolved by simply creating a normal Named Variable List, and just + * adding it to the same Domain as the Variable. + * CRITICAL: THIS IS DONE AFTER ALL VARIABLES (LOGICAL NODES) CREATED BECAUSE + * DATASET MAY REFERENCE OTHER LOGICAL NODES. + */ + if (ret == SD_SUCCESS) + { + /* NOTE: linked list is in reverse order from data in SCL file, */ + /* so get off list in reverse order. */ + for (scl_ln = (SCL_LN *) list_find_last ((DBL_LNK *) scl_ld->lnHead); + scl_ln != NULL; + scl_ln = (SCL_LN *) list_find_prev ((DBL_LNK *) scl_ld->lnHead, (DBL_LNK *) scl_ln)) + { + ret = scl2_dataset_create_all (vmd_ctrl, scl_ld, scl_ln); + if (ret) + { + break; /* if one fails, stop processing (error already logged) */ + } + } + } + + if (is_client) + { + SXLOG_FLOW0 ("Client configuration. Control blocks not created."); + return (ret); /* Stop now. Do NOT create RCB, LCB, etc. */ + } + + /* If all successful up to here, create all RCBs. */ + if (ret == SD_SUCCESS) + { + /* NOTE: linked list is in reverse order from data in SCL file, */ + /* so get off list in reverse order. */ + for (scl_ln = (SCL_LN *) list_find_last ((DBL_LNK *) scl_ld->lnHead); + scl_ln != NULL; + scl_ln = (SCL_LN *) list_find_prev ((DBL_LNK *) scl_ld->lnHead, (DBL_LNK *) scl_ln)) + { + ret = scl2_rcb_create_all (vmd_ctrl, scl_info, scl_ld, scl_ln, reportScanRate); + if (ret) + { + break; /* if one fails, stop processing (error already logged) */ + } + } + } + /* If all successful up to here, set initial values from DA & BDA. */ + if (ret == SD_SUCCESS) + { + /* NOTE: linked list is in reverse order from data in SCL file, */ + /* so get off list in reverse order. */ + for (scl_ln = (SCL_LN *) list_find_last ((DBL_LNK *) scl_ld->lnHead); + scl_ln != NULL; + scl_ln = (SCL_LN *) list_find_prev ((DBL_LNK *) scl_ld->lnHead, (DBL_LNK *) scl_ln)) + { + ret = scl2_da_or_bda_set_value_all (scl_info, scl_ld, scl_ln); + if (ret) + { + break; /* if one fails, stop processing (error already logged) */ + } + } + } + + /* If all successful up to here, set initial data values from */ + /* DOI/SDI/DAI entries found in the SCL file. */ + if (ret == SD_SUCCESS) + { + /* NOTE: linked list is in reverse order from data in SCL file, */ + /* so get off list in reverse order. */ + for (scl_ln = (SCL_LN *) list_find_last ((DBL_LNK *) scl_ld->lnHead); + scl_ln != NULL; + scl_ln = (SCL_LN *) list_find_prev ((DBL_LNK *) scl_ld->lnHead, (DBL_LNK *) scl_ln)) + { + ret = scl2_dai_set_value_all (scl_info, scl_ld, scl_ln); + if (ret) + { + break; /* if one fails, stop processing (error already logged) */ + } + } + } + + return (ret); + } +/************************************************************************/ +/* scl2_ld_create_all */ +/* Create all Logical Devices from SCL info saved in "scl_info". */ +/* NOTE: must be done in 2 parts, because NVLs created in part2, may */ +/* reference Vars from different domains created in part1. */ +/* RETURNS: SD_SUCCESS or error code */ +/************************************************************************/ +ST_RET scl2_ld_create_all ( + MVL_VMD_CTRL *vmd_ctrl, /* VMD in which to add Logical Devices. */ + SCL_INFO *scl_info, /* main struct where all SCL info stored*/ + ST_UINT reportScanRate, /* report scan rate (millisec) */ + ST_INT brcb_bufsize, /* BRCB buffer size */ + ST_BOOLEAN is_client) /* If this flag is set, Client model is */ + /* created (i.e. Control Blocks NOT created).*/ + { +ST_RET ret; +SCL_LD *scl_ld; + + /* CRITICAL: Don't allow this to be called again for the same SCL_INFO struct.*/ + /* That would cause duplicate objects. */ + if (scl_info->ld_create_done) + { + SXLOG_ERR0 ("Logical Devices already created for this SCL file. Cannot create again."); + return (SD_FAILURE); + } + else + scl_info->ld_create_done = SD_TRUE; /* Set flag now */ + + /* Save BRCB buffer size in scl_info so lower functions can access it.*/ + scl_info->brcb_bufsize = brcb_bufsize; + + ret = SD_SUCCESS; /* default ret val: returned if LD linked list empty.*/ + + /* NOTE: linked list is in reverse order from data in SCL file, */ + /* so get off list in reverse order. */ + for (scl_ld = (SCL_LD *) list_find_last ((DBL_LNK *) scl_info->ldHead); + scl_ld != NULL; + scl_ld = (SCL_LD *) list_find_prev ((DBL_LNK *) scl_info->ldHead, (DBL_LNK *) scl_ld)) + { + ret = scl2_ld_create_part1 (vmd_ctrl, scl_info, scl_ld); + if (ret) + { + SXLOG_ERR1 ("scl2_ld_create_part1 for '%s' FAILED", scl_ld->domName); + break; /* if one fails, stop processing */ + } + else + { + SXLOG_FLOW1 ("scl2_ld_create_part1 for '%s' SUCCESSFUL", scl_ld->domName); + } + } + /* NOTE: linked list is in reverse order from data in SCL file, */ + /* so get off list in reverse order. */ + for (scl_ld = (SCL_LD *) list_find_last ((DBL_LNK *) scl_info->ldHead); + scl_ld != NULL; + scl_ld = (SCL_LD *) list_find_prev ((DBL_LNK *) scl_info->ldHead, (DBL_LNK *) scl_ld)) + { + ret = scl2_ld_create_part2 (vmd_ctrl, scl_info, scl_ld, reportScanRate, is_client); + if (ret) + { + SXLOG_ERR1 ("scl2_ld_create_part2 for '%s' FAILED", scl_ld->domName); + if (!scl_debug_mode) + break; /* if one fails, stop processing */ + + ++scl_debug_mode_error_count; + } + else + { + SXLOG_FLOW1 ("scl2_ld_create_part2 for '%s' SUCCESSFUL", scl_ld->domName); + } + } + /* Create "LastApplError" variable (required if "Control with */ + /* enhanced security" supported). */ + if (ret == SD_SUCCESS) + ret = mvl61850_ctl_lastapplerror_create (); + + /* The reserved_1 member of every RUNTIME_CTRL is must now be freed. */ + reserved_free_all (vmd_ctrl); + return (ret); + } + +/************************************************************************/ +/* scl_gse_find */ +/* Find addressing info for this GCB in this LD. */ +/************************************************************************/ +SCL_GSE *scl_gse_find (SCL_INFO *scl_info, SCL_LD *scl_ld, SCL_GCB *scl_gcb) + { +SCL_SUBNET *scl_subnet; +SCL_CAP *scl_cap; +SCL_GSE *scl_gse; + + for (scl_subnet = (SCL_SUBNET *) list_find_last ((DBL_LNK *) scl_info->subnetHead); + scl_subnet != NULL; + scl_subnet = (SCL_SUBNET *) list_find_prev ((DBL_LNK *) scl_info->subnetHead, (DBL_LNK *) scl_subnet)) + { + for (scl_cap = (SCL_CAP *) list_find_last ((DBL_LNK *) scl_subnet->capHead); + scl_cap != NULL; + scl_cap = (SCL_CAP *) list_find_prev ((DBL_LNK *) scl_subnet->capHead, (DBL_LNK *) scl_cap)) + { + if (strcmp (scl_info->iedName, scl_cap->iedName) == 0) + { /* found matching iedName */ + for (scl_gse = (SCL_GSE *) list_find_last ((DBL_LNK *) scl_cap->gseHead); + scl_gse != NULL; + scl_gse = (SCL_GSE *) list_find_prev ((DBL_LNK *) scl_cap->gseHead, (DBL_LNK *) scl_gse)) + { + if (strcmp (scl_ld->inst, scl_gse->ldInst) == 0 && + strcmp (scl_gcb->name, scl_gse->cbName) == 0) + { /* Found it. Too many loops to break out of, so just return.*/ + return (scl_gse); + } + } /* end scl_gse loop */ + } + } /* end scl_cap loop */ + } /* end scl_subnet loop */ + + return (NULL); /* Not found */ + } + diff --git a/mmslib/object_script.libmmslib.Debug b/mmslib/object_script.libmmslib.Debug new file mode 100644 index 0000000..42310f1 --- /dev/null +++ b/mmslib/object_script.libmmslib.Debug @@ -0,0 +1,349 @@ +CREATE debug\libmmslib.a +ADDMOD debug\mmslib.o +ADDMOD debug\asn1r.o +ADDMOD debug\are_vstr.o +ADDMOD debug\are_utc.o +ADDMOD debug\are_time.o +ADDMOD debug\are_ostr.o +ADDMOD debug\are_objd.o +ADDMOD debug\are_int.o +ADDMOD debug\are_flt.o +ADDMOD debug\are_delm.o +ADDMOD debug\are_btod.o +ADDMOD debug\are_bstr.o +ADDMOD debug\are_bool.o +ADDMOD debug\ard_vstr.o +ADDMOD debug\ard_utc.o +ADDMOD debug\ard_time.o +ADDMOD debug\ard_strn.o +ADDMOD debug\ard_ostr.o +ADDMOD debug\ard_objd.o +ADDMOD debug\ard_int.o +ADDMOD debug\ard_idnt.o +ADDMOD debug\ard_flt.o +ADDMOD debug\ard_delm.o +ADDMOD debug\ard_btod.o +ADDMOD debug\ard_bstr.o +ADDMOD debug\ard_bool.o +ADDMOD debug\mem_chks.o +ADDMOD debug\rs_write.o +ADDMOD debug\rs_ustat.o +ADDMOD debug\rs_trige.o +ADDMOD debug\rs_stat.o +ADDMOD debug\rs_repee.o +ADDMOD debug\rs_repec.o +ADDMOD debug\rs_repea.o +ADDMOD debug\rs_read.o +ADDMOD debug\rs_namel.o +ADDMOD debug\rs_init.o +ADDMOD debug\rs_info.o +ADDMOD debug\rs_ident.o +ADDMOD debug\rs_getvl.o +ADDMOD debug\rs_getva.o +ADDMOD debug\rs_getty.o +ADDMOD debug\rs_getpi.o +ADDMOD debug\rs_getee.o +ADDMOD debug\rs_getec.o +ADDMOD debug\rs_getea.o +ADDMOD debug\rs_getdo.o +ADDMOD debug\rs_getcl.o +ADDMOD debug\rs_evnot.o +ADDMOD debug\rs_defee.o +ADDMOD debug\rs_concl.o +ADDMOD debug\rs_cancl.o +ADDMOD debug\rs_ackev.o +ADDMOD debug\rq_write.o +ADDMOD debug\rq_ustat.o +ADDMOD debug\rq_trige.o +ADDMOD debug\rq_stat.o +ADDMOD debug\rq_repee.o +ADDMOD debug\rq_repec.o +ADDMOD debug\rq_repea.o +ADDMOD debug\rq_read.o +ADDMOD debug\rq_namel.o +ADDMOD debug\rq_init.o +ADDMOD debug\rq_info.o +ADDMOD debug\rq_ident.o +ADDMOD debug\rq_getvl.o +ADDMOD debug\rq_getva.o +ADDMOD debug\rq_getty.o +ADDMOD debug\rq_getpi.o +ADDMOD debug\rq_getee.o +ADDMOD debug\rq_getec.o +ADDMOD debug\rq_getea.o +ADDMOD debug\rq_getdo.o +ADDMOD debug\rq_getcl.o +ADDMOD debug\rq_evnot.o +ADDMOD debug\rq_defee.o +ADDMOD debug\rq_concl.o +ADDMOD debug\rq_cancl.o +ADDMOD debug\rq_ackev.o +ADDMOD debug\msdataas.o +ADDMOD debug\ms_tdef4.o +ADDMOD debug\ms_tdef2.o +ADDMOD debug\ms_tdef.o +ADDMOD debug\ms_size.o +ADDMOD debug\ms_ext.o +ADDMOD debug\mmsstat.o +ADDMOD debug\mmslvar.o +ADDMOD debug\mmsl_fin.o +ADDMOD debug\mmsinit.o +ADDMOD debug\mmsdtext.o +ADDMOD debug\mmsdec.o +ADDMOD debug\mmsdatat.o +ADDMOD debug\mmsdata.o +ADDMOD debug\mmsconcl.o +ADDMOD debug\mmscancl.o +ADDMOD debug\mms_tdef.o +ADDMOD debug\mms_rtaa.o +ADDMOD debug\mms_rej.o +ADDMOD debug\mms_err4.o +ADDMOD debug\mms_err3.o +ADDMOD debug\mms_err2.o +ADDMOD debug\mms_err.o +ADDMOD debug\mms_ced7.o +ADDMOD debug\mms_ced6.o +ADDMOD debug\mms_ced5.o +ADDMOD debug\mms_ced4.o +ADDMOD debug\mms_ced3.o +ADDMOD debug\mms_ced.o +ADDMOD debug\mms_aref.o +ADDMOD debug\mms_alta.o +ADDMOD debug\mms_adl.o +ADDMOD debug\rs_uploa.o +ADDMOD debug\rs_termu.o +ADDMOD debug\rs_termd.o +ADDMOD debug\rs_takec.o +ADDMOD debug\rs_store.o +ADDMOD debug\rs_stop.o +ADDMOD debug\rs_start.o +ADDMOD debug\rs_rssta.o +ADDMOD debug\rs_rspoo.o +ADDMOD debug\rs_rsent.o +ADDMOD debug\rs_resum.o +ADDMOD debug\rs_reset.o +ADDMOD debug\rs_renam.o +ADDMOD debug\rs_relct.o +ADDMOD debug\rs_rdupl.o +ADDMOD debug\rs_rddwn.o +ADDMOD debug\rs_outpu.o +ADDMOD debug\rs_obtfi.o +ADDMOD debug\rs_loadd.o +ADDMOD debug\rs_kill.o +ADDMOD debug\rs_jwrit.o +ADDMOD debug\rs_jstat.o +ADDMOD debug\rs_jread.o +ADDMOD debug\rs_jinit.o +ADDMOD debug\rs_jdele.o +ADDMOD debug\rs_jcrea.o +ADDMOD debug\rs_input.o +ADDMOD debug\rs_initu.o +ADDMOD debug\rs_initd.o +ADDMOD debug\rs_getsc.o +ADDMOD debug\rs_getas.o +ADDMOD debug\rs_getae.o +ADDMOD debug\rs_frena.o +ADDMOD debug\rs_fread.o +ADDMOD debug\rs_fopen.o +ADDMOD debug\rs_fdir.o +ADDMOD debug\rs_fdele.o +ADDMOD debug\rs_fclos.o +ADDMOD debug\rs_downl.o +ADDMOD debug\rs_delvl.o +ADDMOD debug\rs_delva.o +ADDMOD debug\rs_delty.o +ADDMOD debug\rs_delse.o +ADDMOD debug\rs_delpi.o +ADDMOD debug\rs_delee.o +ADDMOD debug\rs_delec.o +ADDMOD debug\rs_delea.o +ADDMOD debug\rs_deldo.o +ADDMOD debug\rs_defvl.o +ADDMOD debug\rs_defva.o +ADDMOD debug\rs_defty.o +ADDMOD debug\rs_defse.o +ADDMOD debug\rs_defsc.o +ADDMOD debug\rs_defec.o +ADDMOD debug\rs_defea.o +ADDMOD debug\rs_crepi.o +ADDMOD debug\rs_altee.o +ADDMOD debug\rs_altec.o +ADDMOD debug\rq_uploa.o +ADDMOD debug\rq_termu.o +ADDMOD debug\rq_termd.o +ADDMOD debug\rq_takec.o +ADDMOD debug\rq_store.o +ADDMOD debug\rq_stop.o +ADDMOD debug\rq_start.o +ADDMOD debug\rq_rssta.o +ADDMOD debug\rq_rspoo.o +ADDMOD debug\rq_rsent.o +ADDMOD debug\rq_resum.o +ADDMOD debug\rq_reset.o +ADDMOD debug\rq_renam.o +ADDMOD debug\rq_relct.o +ADDMOD debug\rq_rdupl.o +ADDMOD debug\rq_rddwn.o +ADDMOD debug\rq_outpu.o +ADDMOD debug\rq_obtfi.o +ADDMOD debug\rq_loadd.o +ADDMOD debug\rq_kill.o +ADDMOD debug\rq_jwrit.o +ADDMOD debug\rq_jstat.o +ADDMOD debug\rq_jread.o +ADDMOD debug\rq_jinit.o +ADDMOD debug\rq_jdele.o +ADDMOD debug\rq_jcrea.o +ADDMOD debug\rq_input.o +ADDMOD debug\rq_initu.o +ADDMOD debug\rq_initd.o +ADDMOD debug\rq_getsc.o +ADDMOD debug\rq_getas.o +ADDMOD debug\rq_getae.o +ADDMOD debug\rq_frena.o +ADDMOD debug\rq_fread.o +ADDMOD debug\rq_fopen.o +ADDMOD debug\rq_fdir.o +ADDMOD debug\rq_fdele.o +ADDMOD debug\rq_fclos.o +ADDMOD debug\rq_downl.o +ADDMOD debug\rq_delvl.o +ADDMOD debug\rq_delva.o +ADDMOD debug\rq_delty.o +ADDMOD debug\rq_delse.o +ADDMOD debug\rq_delpi.o +ADDMOD debug\rq_delee.o +ADDMOD debug\rq_delec.o +ADDMOD debug\rq_delea.o +ADDMOD debug\rq_deldo.o +ADDMOD debug\rq_defvl.o +ADDMOD debug\rq_defva.o +ADDMOD debug\rq_defty.o +ADDMOD debug\rq_defse.o +ADDMOD debug\rq_defsc.o +ADDMOD debug\rq_defec.o +ADDMOD debug\rq_defea.o +ADDMOD debug\rq_crepi.o +ADDMOD debug\rq_altee.o +ADDMOD debug\rq_altec.o +ADDMOD debug\mms_ced2.o +ADDMOD debug\mms_ced1.o +ADDMOD debug\sclproc.o +ADDMOD debug\s_write.o +ADDMOD debug\s_status.o +ADDMOD debug\s_read.o +ADDMOD debug\s_obtfi.o +ADDMOD debug\s_jstat.o +ADDMOD debug\s_jread.o +ADDMOD debug\s_jinit.o +ADDMOD debug\s_info.o +ADDMOD debug\s_ident.o +ADDMOD debug\s_getvla.o +ADDMOD debug\s_getvaa.o +ADDMOD debug\s_getnam.o +ADDMOD debug\s_getdom.o +ADDMOD debug\s_getcl.o +ADDMOD debug\s_fren.o +ADDMOD debug\s_fread.o +ADDMOD debug\s_fopen.o +ADDMOD debug\s_fdir.o +ADDMOD debug\s_fdel.o +ADDMOD debug\s_fclose.o +ADDMOD debug\s_delvl.o +ADDMOD debug\s_defvl.o +ADDMOD debug\s_concl.o +ADDMOD debug\s_cancel.o +ADDMOD debug\mvluleaf.o +ADDMOD debug\mvlu_sbo.o +ADDMOD debug\mvlu_rt.o +ADDMOD debug\mvlu_rpt.o +ADDMOD debug\mvl61850_rpt.o +ADDMOD debug\mvl61850_ctl.o +ADDMOD debug\mvl61850.o +ADDMOD debug\mvl_var.o +ADDMOD debug\mvl_uca.o +ADDMOD debug\mvl_type.o +ADDMOD debug\mvl_typ2.o +ADDMOD debug\mvl_serv.o +ADDMOD debug\mvl_send.o +ADDMOD debug\mvl_objb.o +ADDMOD debug\mvl_obj.o +ADDMOD debug\mvl_ijou.o +ADDMOD debug\mvl_dtyp.o +ADDMOD debug\mvl_buf.o +ADDMOD debug\c_write.o +ADDMOD debug\c_status.o +ADDMOD debug\c_read.o +ADDMOD debug\c_obtfi.o +ADDMOD debug\c_jstat.o +ADDMOD debug\c_jread.o +ADDMOD debug\c_jinit.o +ADDMOD debug\c_info.o +ADDMOD debug\c_ident.o +ADDMOD debug\c_getvla.o +ADDMOD debug\c_getvar.o +ADDMOD debug\c_getnam.o +ADDMOD debug\c_getdom.o +ADDMOD debug\c_fren.o +ADDMOD debug\c_fread.o +ADDMOD debug\c_fopen.o +ADDMOD debug\c_fget.o +ADDMOD debug\c_fdir.o +ADDMOD debug\c_fdel.o +ADDMOD debug\c_fclose.o +ADDMOD debug\c_delvl.o +ADDMOD debug\c_defvl.o +ADDMOD debug\c_concl.o +ADDMOD debug\tpx_dec.o +ADDMOD debug\tp4port.o +ADDMOD debug\tp4_enc.o +ADDMOD debug\tp0main.o +ADDMOD debug\tp0callg.o +ADDMOD debug\tp0calld.o +ADDMOD debug\tp0_socks.o +ADDMOD debug\tp0_dec.o +ADDMOD debug\osicfgx.o +ADDMOD debug\lean_var.o +ADDMOD debug\lean_cfg.o +ADDMOD debug\cospmain.o +ADDMOD debug\cosp_enc.o +ADDMOD debug\cosp_dec.o +ADDMOD debug\coppdcpr.o +ADDMOD debug\coppdcp.o +ADDMOD debug\coppdaru.o +ADDMOD debug\copp_enc.o +ADDMOD debug\copp_dec.o +ADDMOD debug\checksum.o +ADDMOD debug\acse2var.o +ADDMOD debug\acse2enc.o +ADDMOD debug\acse2dib.o +ADDMOD debug\acse2dec.o +ADDMOD debug\slogmem.o +ADDMOD debug\slogipcs.o +ADDMOD debug\sloghex.o +ADDMOD debug\slogfil.o +ADDMOD debug\slog.o +ADDMOD debug\qmem.o +ADDMOD debug\ssecusr0.o +ADDMOD debug\time_str.o +ADDMOD debug\sx_enc.o +ADDMOD debug\sx_dec.o +ADDMOD debug\sx_data.o +ADDMOD debug\sx_axs4d.o +ADDMOD debug\str_util.o +ADDMOD debug\stime.o +ADDMOD debug\stdtime_w32.o +ADDMOD debug\stdtime_quadlib.o +ADDMOD debug\stdtime_mms_utctime.o +ADDMOD debug\stdtime_mms_btime.o +ADDMOD debug\stdtime.o +ADDMOD debug\sclstore.o +ADDMOD debug\sclparse.o +ADDMOD debug\scl_log.o +ADDMOD debug\glbsem_w32.o +ADDMOD debug\glbsem_unix.o +ADDMOD debug\glbsem.o +ADDMOD debug\gensock2.o +ADDMOD debug\genlists.o +ADDMOD debug\cfg_util.o +SAVE diff --git a/mmslib/object_script.libmmslib.Release b/mmslib/object_script.libmmslib.Release new file mode 100644 index 0000000..f2b8c68 --- /dev/null +++ b/mmslib/object_script.libmmslib.Release @@ -0,0 +1,349 @@ +CREATE release\libmmslib.a +ADDMOD release\mmslib.o +ADDMOD release\asn1r.o +ADDMOD release\are_vstr.o +ADDMOD release\are_utc.o +ADDMOD release\are_time.o +ADDMOD release\are_ostr.o +ADDMOD release\are_objd.o +ADDMOD release\are_int.o +ADDMOD release\are_flt.o +ADDMOD release\are_delm.o +ADDMOD release\are_btod.o +ADDMOD release\are_bstr.o +ADDMOD release\are_bool.o +ADDMOD release\ard_vstr.o +ADDMOD release\ard_utc.o +ADDMOD release\ard_time.o +ADDMOD release\ard_strn.o +ADDMOD release\ard_ostr.o +ADDMOD release\ard_objd.o +ADDMOD release\ard_int.o +ADDMOD release\ard_idnt.o +ADDMOD release\ard_flt.o +ADDMOD release\ard_delm.o +ADDMOD release\ard_btod.o +ADDMOD release\ard_bstr.o +ADDMOD release\ard_bool.o +ADDMOD release\mem_chks.o +ADDMOD release\rs_write.o +ADDMOD release\rs_ustat.o +ADDMOD release\rs_trige.o +ADDMOD release\rs_stat.o +ADDMOD release\rs_repee.o +ADDMOD release\rs_repec.o +ADDMOD release\rs_repea.o +ADDMOD release\rs_read.o +ADDMOD release\rs_namel.o +ADDMOD release\rs_init.o +ADDMOD release\rs_info.o +ADDMOD release\rs_ident.o +ADDMOD release\rs_getvl.o +ADDMOD release\rs_getva.o +ADDMOD release\rs_getty.o +ADDMOD release\rs_getpi.o +ADDMOD release\rs_getee.o +ADDMOD release\rs_getec.o +ADDMOD release\rs_getea.o +ADDMOD release\rs_getdo.o +ADDMOD release\rs_getcl.o +ADDMOD release\rs_evnot.o +ADDMOD release\rs_defee.o +ADDMOD release\rs_concl.o +ADDMOD release\rs_cancl.o +ADDMOD release\rs_ackev.o +ADDMOD release\rq_write.o +ADDMOD release\rq_ustat.o +ADDMOD release\rq_trige.o +ADDMOD release\rq_stat.o +ADDMOD release\rq_repee.o +ADDMOD release\rq_repec.o +ADDMOD release\rq_repea.o +ADDMOD release\rq_read.o +ADDMOD release\rq_namel.o +ADDMOD release\rq_init.o +ADDMOD release\rq_info.o +ADDMOD release\rq_ident.o +ADDMOD release\rq_getvl.o +ADDMOD release\rq_getva.o +ADDMOD release\rq_getty.o +ADDMOD release\rq_getpi.o +ADDMOD release\rq_getee.o +ADDMOD release\rq_getec.o +ADDMOD release\rq_getea.o +ADDMOD release\rq_getdo.o +ADDMOD release\rq_getcl.o +ADDMOD release\rq_evnot.o +ADDMOD release\rq_defee.o +ADDMOD release\rq_concl.o +ADDMOD release\rq_cancl.o +ADDMOD release\rq_ackev.o +ADDMOD release\msdataas.o +ADDMOD release\ms_tdef4.o +ADDMOD release\ms_tdef2.o +ADDMOD release\ms_tdef.o +ADDMOD release\ms_size.o +ADDMOD release\ms_ext.o +ADDMOD release\mmsstat.o +ADDMOD release\mmslvar.o +ADDMOD release\mmsl_fin.o +ADDMOD release\mmsinit.o +ADDMOD release\mmsdtext.o +ADDMOD release\mmsdec.o +ADDMOD release\mmsdatat.o +ADDMOD release\mmsdata.o +ADDMOD release\mmsconcl.o +ADDMOD release\mmscancl.o +ADDMOD release\mms_tdef.o +ADDMOD release\mms_rtaa.o +ADDMOD release\mms_rej.o +ADDMOD release\mms_err4.o +ADDMOD release\mms_err3.o +ADDMOD release\mms_err2.o +ADDMOD release\mms_err.o +ADDMOD release\mms_ced7.o +ADDMOD release\mms_ced6.o +ADDMOD release\mms_ced5.o +ADDMOD release\mms_ced4.o +ADDMOD release\mms_ced3.o +ADDMOD release\mms_ced.o +ADDMOD release\mms_aref.o +ADDMOD release\mms_alta.o +ADDMOD release\mms_adl.o +ADDMOD release\rs_uploa.o +ADDMOD release\rs_termu.o +ADDMOD release\rs_termd.o +ADDMOD release\rs_takec.o +ADDMOD release\rs_store.o +ADDMOD release\rs_stop.o +ADDMOD release\rs_start.o +ADDMOD release\rs_rssta.o +ADDMOD release\rs_rspoo.o +ADDMOD release\rs_rsent.o +ADDMOD release\rs_resum.o +ADDMOD release\rs_reset.o +ADDMOD release\rs_renam.o +ADDMOD release\rs_relct.o +ADDMOD release\rs_rdupl.o +ADDMOD release\rs_rddwn.o +ADDMOD release\rs_outpu.o +ADDMOD release\rs_obtfi.o +ADDMOD release\rs_loadd.o +ADDMOD release\rs_kill.o +ADDMOD release\rs_jwrit.o +ADDMOD release\rs_jstat.o +ADDMOD release\rs_jread.o +ADDMOD release\rs_jinit.o +ADDMOD release\rs_jdele.o +ADDMOD release\rs_jcrea.o +ADDMOD release\rs_input.o +ADDMOD release\rs_initu.o +ADDMOD release\rs_initd.o +ADDMOD release\rs_getsc.o +ADDMOD release\rs_getas.o +ADDMOD release\rs_getae.o +ADDMOD release\rs_frena.o +ADDMOD release\rs_fread.o +ADDMOD release\rs_fopen.o +ADDMOD release\rs_fdir.o +ADDMOD release\rs_fdele.o +ADDMOD release\rs_fclos.o +ADDMOD release\rs_downl.o +ADDMOD release\rs_delvl.o +ADDMOD release\rs_delva.o +ADDMOD release\rs_delty.o +ADDMOD release\rs_delse.o +ADDMOD release\rs_delpi.o +ADDMOD release\rs_delee.o +ADDMOD release\rs_delec.o +ADDMOD release\rs_delea.o +ADDMOD release\rs_deldo.o +ADDMOD release\rs_defvl.o +ADDMOD release\rs_defva.o +ADDMOD release\rs_defty.o +ADDMOD release\rs_defse.o +ADDMOD release\rs_defsc.o +ADDMOD release\rs_defec.o +ADDMOD release\rs_defea.o +ADDMOD release\rs_crepi.o +ADDMOD release\rs_altee.o +ADDMOD release\rs_altec.o +ADDMOD release\rq_uploa.o +ADDMOD release\rq_termu.o +ADDMOD release\rq_termd.o +ADDMOD release\rq_takec.o +ADDMOD release\rq_store.o +ADDMOD release\rq_stop.o +ADDMOD release\rq_start.o +ADDMOD release\rq_rssta.o +ADDMOD release\rq_rspoo.o +ADDMOD release\rq_rsent.o +ADDMOD release\rq_resum.o +ADDMOD release\rq_reset.o +ADDMOD release\rq_renam.o +ADDMOD release\rq_relct.o +ADDMOD release\rq_rdupl.o +ADDMOD release\rq_rddwn.o +ADDMOD release\rq_outpu.o +ADDMOD release\rq_obtfi.o +ADDMOD release\rq_loadd.o +ADDMOD release\rq_kill.o +ADDMOD release\rq_jwrit.o +ADDMOD release\rq_jstat.o +ADDMOD release\rq_jread.o +ADDMOD release\rq_jinit.o +ADDMOD release\rq_jdele.o +ADDMOD release\rq_jcrea.o +ADDMOD release\rq_input.o +ADDMOD release\rq_initu.o +ADDMOD release\rq_initd.o +ADDMOD release\rq_getsc.o +ADDMOD release\rq_getas.o +ADDMOD release\rq_getae.o +ADDMOD release\rq_frena.o +ADDMOD release\rq_fread.o +ADDMOD release\rq_fopen.o +ADDMOD release\rq_fdir.o +ADDMOD release\rq_fdele.o +ADDMOD release\rq_fclos.o +ADDMOD release\rq_downl.o +ADDMOD release\rq_delvl.o +ADDMOD release\rq_delva.o +ADDMOD release\rq_delty.o +ADDMOD release\rq_delse.o +ADDMOD release\rq_delpi.o +ADDMOD release\rq_delee.o +ADDMOD release\rq_delec.o +ADDMOD release\rq_delea.o +ADDMOD release\rq_deldo.o +ADDMOD release\rq_defvl.o +ADDMOD release\rq_defva.o +ADDMOD release\rq_defty.o +ADDMOD release\rq_defse.o +ADDMOD release\rq_defsc.o +ADDMOD release\rq_defec.o +ADDMOD release\rq_defea.o +ADDMOD release\rq_crepi.o +ADDMOD release\rq_altee.o +ADDMOD release\rq_altec.o +ADDMOD release\mms_ced2.o +ADDMOD release\mms_ced1.o +ADDMOD release\sclproc.o +ADDMOD release\s_write.o +ADDMOD release\s_status.o +ADDMOD release\s_read.o +ADDMOD release\s_obtfi.o +ADDMOD release\s_jstat.o +ADDMOD release\s_jread.o +ADDMOD release\s_jinit.o +ADDMOD release\s_info.o +ADDMOD release\s_ident.o +ADDMOD release\s_getvla.o +ADDMOD release\s_getvaa.o +ADDMOD release\s_getnam.o +ADDMOD release\s_getdom.o +ADDMOD release\s_getcl.o +ADDMOD release\s_fren.o +ADDMOD release\s_fread.o +ADDMOD release\s_fopen.o +ADDMOD release\s_fdir.o +ADDMOD release\s_fdel.o +ADDMOD release\s_fclose.o +ADDMOD release\s_delvl.o +ADDMOD release\s_defvl.o +ADDMOD release\s_concl.o +ADDMOD release\s_cancel.o +ADDMOD release\mvluleaf.o +ADDMOD release\mvlu_sbo.o +ADDMOD release\mvlu_rt.o +ADDMOD release\mvlu_rpt.o +ADDMOD release\mvl61850_rpt.o +ADDMOD release\mvl61850_ctl.o +ADDMOD release\mvl61850.o +ADDMOD release\mvl_var.o +ADDMOD release\mvl_uca.o +ADDMOD release\mvl_type.o +ADDMOD release\mvl_typ2.o +ADDMOD release\mvl_serv.o +ADDMOD release\mvl_send.o +ADDMOD release\mvl_objb.o +ADDMOD release\mvl_obj.o +ADDMOD release\mvl_ijou.o +ADDMOD release\mvl_dtyp.o +ADDMOD release\mvl_buf.o +ADDMOD release\c_write.o +ADDMOD release\c_status.o +ADDMOD release\c_read.o +ADDMOD release\c_obtfi.o +ADDMOD release\c_jstat.o +ADDMOD release\c_jread.o +ADDMOD release\c_jinit.o +ADDMOD release\c_info.o +ADDMOD release\c_ident.o +ADDMOD release\c_getvla.o +ADDMOD release\c_getvar.o +ADDMOD release\c_getnam.o +ADDMOD release\c_getdom.o +ADDMOD release\c_fren.o +ADDMOD release\c_fread.o +ADDMOD release\c_fopen.o +ADDMOD release\c_fget.o +ADDMOD release\c_fdir.o +ADDMOD release\c_fdel.o +ADDMOD release\c_fclose.o +ADDMOD release\c_delvl.o +ADDMOD release\c_defvl.o +ADDMOD release\c_concl.o +ADDMOD release\tpx_dec.o +ADDMOD release\tp4port.o +ADDMOD release\tp4_enc.o +ADDMOD release\tp0main.o +ADDMOD release\tp0callg.o +ADDMOD release\tp0calld.o +ADDMOD release\tp0_socks.o +ADDMOD release\tp0_dec.o +ADDMOD release\osicfgx.o +ADDMOD release\lean_var.o +ADDMOD release\lean_cfg.o +ADDMOD release\cospmain.o +ADDMOD release\cosp_enc.o +ADDMOD release\cosp_dec.o +ADDMOD release\coppdcpr.o +ADDMOD release\coppdcp.o +ADDMOD release\coppdaru.o +ADDMOD release\copp_enc.o +ADDMOD release\copp_dec.o +ADDMOD release\checksum.o +ADDMOD release\acse2var.o +ADDMOD release\acse2enc.o +ADDMOD release\acse2dib.o +ADDMOD release\acse2dec.o +ADDMOD release\slogmem.o +ADDMOD release\slogipcs.o +ADDMOD release\sloghex.o +ADDMOD release\slogfil.o +ADDMOD release\slog.o +ADDMOD release\qmem.o +ADDMOD release\ssecusr0.o +ADDMOD release\time_str.o +ADDMOD release\sx_enc.o +ADDMOD release\sx_dec.o +ADDMOD release\sx_data.o +ADDMOD release\sx_axs4d.o +ADDMOD release\str_util.o +ADDMOD release\stime.o +ADDMOD release\stdtime_w32.o +ADDMOD release\stdtime_quadlib.o +ADDMOD release\stdtime_mms_utctime.o +ADDMOD release\stdtime_mms_btime.o +ADDMOD release\stdtime.o +ADDMOD release\sclstore.o +ADDMOD release\sclparse.o +ADDMOD release\scl_log.o +ADDMOD release\glbsem_w32.o +ADDMOD release\glbsem_unix.o +ADDMOD release\glbsem.o +ADDMOD release\gensock2.o +ADDMOD release\genlists.o +ADDMOD release\cfg_util.o +SAVE diff --git a/mmslib/ositcps/acse2dec.c b/mmslib/ositcps/acse2dec.c new file mode 100644 index 0000000..a4dc768 --- /dev/null +++ b/mmslib/ositcps/acse2dec.c @@ -0,0 +1,2268 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1995-2005, All Rights Reserved */ +/* */ +/* MODULE NAME : acse2dec.c */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : */ +/* ACSE Decode Functions. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 02/26/09 JRB 12 Fix to handle PDV len=0 or user_info len=0. */ +/* 04/28/08 GLB 59 Removed CALLED_ONLY and CALLING_ONLY */ +/* 01/30/06 GLB 58 Integrated porting changes for VMS */ +/* 07/06/05 EJV 57 Log "IP ADDR:" on the same line as the ip. */ +/* 05/19/05 JRB 56 Chg "unrecognized tag" logs from ERR to DEC. */ +/* 03/31/05 EJV 55 a_get_rem_ip_addr: added defined(linux) */ +/* 09/20/04 JRB 54 u_copp_con_cnf: don't access acse_conn after */ +/* copp_u_abort_req (it may have been freed). */ +/* 08/06/04 EJV 53 _a_dec_authentication: chg param to ST_UCHAR.*/ +/* 03/15/04 GLB 51 Delete "iso_mms_is_ASO_context_name" */ +/* 03/04/04 JRB 51 Use ASN1 decode log macros (ALOG_DEC*) */ +/* Del logging of A-DATA.ind (use MVL or COPP) */ +/* 02/06/04 EJV 50 Use MACE_MECH_ID define. */ +/* 01/08/04 EJV 49 Ported funcs to sun. */ +/* 12/12/03 JRB 48 Fix asn1r_get_bitstr calls, init data=0 first*/ +/* 10/24/03 JRB 47 Chg #if ..TP0.. to avoid compile errors. */ +/* 07/08/03 EJV 46 Del old password auth (OBSOLETE_ACSE_AUTH); */ +/* ACSE_AUTH_ENABLED code wo/define. */ +/* Fix the ACSE Auth decode. */ +/* 03/31/03 JRB 45 asn1r_get_bitstr: add max_bits arg. */ +/* 11/08/02 JRB 44 asn1_skip_elmnt ret error if indef len. */ +/* 10/29/02 JRB 43 Fix a_auth_password_dec ret if pwd too long. */ +/* 10/22/02 ASK 42 Wrap ifdef TP0_ENABLED around inet_ntoa calls*/ +/* 10/14/02 ASK 41 Added decode of abort diagnostic. */ +/* 10/03/02 ASK 40 Now send abort when AARQ fails to decode */ +/* 09/27/02 ASK 39 Added ACSE auth decode to AARE, moved */ +/* bitstring defines into acse2.h */ +/* 06/26/02 JRB 38 con_ind: Log calling/called address. */ +/* 06/20/02 JRB 37 con_ind: Copy calling/called PADDR to AARQ. */ +/* 01/10/02 EJV 36 Converted to use ASN1R for TRIM7 */ +/* 01/02/02 JRB 35 Converted to use ASN1R (re-entrant ASN1) */ +/* 10/09/01 JRB 34 Log if unrecognized tag received. */ +/* 06/22/01 JRB 33 Fix u_copp_rel_cnf_pos & tp4_data_ind */ +/* handling of STATE_RESP_COLL */ +/* state per ISO 8650 (was kluged before). */ +/* 03/15/01 JRB 32 Use new SMEM allocation functions. */ +/* 01/02/01 EJV 31 Ported to _AIX */ +/* 04/12/00 JRB 30 Lint cleanup. */ +/* 09/13/99 MDE 29 Added SD_CONST modifiers */ +/* 07/14/99 JRB 28 Add ACSE Password Authentication. */ +/* 07/14/99 JRB 27 Add functions to get remote NSAP or IP Addr. */ +/* 08/13/98 JRB 26 Lint cleanup. */ +/* 08/11/98 JRB 25 BUG_FIX: MOSI: only save user_info if PCI=MMS*/ +/* 03/18/98 JRB 24 Use defines (not variables) for ASN1 errors. */ +/* 11/07/97 JRB 23 Can't use // for comments. */ +/* 07/13/97 EJV 22 Commented out call to exit() in tp4_except. */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 03/19/97 JRB 21 Add MOSI "CALLING" support. */ +/* 03/19/97 JRB 20 tp4_connect_cnf send AARQ (already encoded). */ +/* Use acse_free_conn to free conn ctrl struct. */ +/* Improve logging. */ +/* Improve release collision handling. */ +/* 03/07/97 JRB 19 Only pass abort to user if not in IDLE state.*/ +/* 03/07/97 JRB 18 Don't call acse_decode unless class==APP. */ +/* 03/07/97 JRB 17 Use new asn1_skip_elmnt funct instead of */ +/* inline code and "parse_next" calls. */ +/* 03/07/97 JRB 16 Added MOSI support. */ +/* 08/12/96 JRB 15 Handle decode error gracefully in */ +/* tp4_data_ind_aarqind & tp4_data_ind_aarqcnf. */ +/* 07/15/96 JRB 14 Only free acse_conn->aarq_apdu.user_info.ptr */ +/* if len != 0 (wasn't alloc'd otherwise). */ +/* 07/08/96 JRB 13 Add tp4_except for LEAN_T. */ +/* 06/25/96 JRB 12 Fix return codes for tp4_data_ind_aarq* */ +/* 05/02/96 JRB 11 Add STATE_TP4CONN_WAIT. */ +/* 04/25/96 JRB 10 Set acse_conn->initiator = SD_TRUE in */ +/* tp4_data_ind_aarqcnf (for release collisions)*/ +/* 04/18/96 JRB 09 if (acse_conn->state == STATE_AARE_ABANDON) */ +/* in tp4_connect_cnf or tp4_data_ind, call */ +/* tp4_disconnect and free acse_conn. */ +/* 04/16/96 JRB 08 Copy rcv_data and rcv_data_len to local */ +/* variables in tp4_data_ind for safe freeing. */ +/* 03/26/96 MDE 07 Added REDUCED_STACK support */ +/* 03/11/96 JRB 06 Move acse_msgsize to acse2enc.c */ +/* 03/08/96 JRB 05 Define thisFileName even if !DEBUG_MMS. */ +/* 03/07/96 JRB 04 Set default for acse_msgsize in case */ +/* a_set_msgsize not called by user. */ +/* 02/16/96 JRB 03 Clean up asn1_set_dec_err codes. */ +/* 12/29/95 JRB 02 Broke up tp4_data_ind into subfunctions. */ +/* 10/30/95 JRB 01 Created */ +/************************************************************************/ +static char *thisFileName = __FILE__; + +#include "glbtypes.h" +#include "sysincs.h" +#include "mem_chk.h" +#include "asn1defs.h" +#include "asn1log.h" /* for ASN.1 decode logging */ +#include "acseauth.h" +#include "acse2.h" +#if defined (MOSI) +#include "copp_usr.h" +#endif /* MOSI */ +#include "tp4api.h" +#include "tp4.h" /* need MIN_TP0_CONN_ID definition */ + +/************************************************************************/ +/************************************************************************/ + +static MMS_OBJ_ID *my_obj_id; +static ST_INT32 *my_i32; +static ST_INT16 *my_i16; + +static AARQ_APDU aarq_apdu; +static AARE_APDU aare_apdu; +static RLRQ_APDU rlrq_apdu; +static RLRE_APDU rlre_apdu; +static ABRT_APDU abrt_apdu; + +static ST_VOID decode_aarq (ASN1_DEC_CTXT *aCtx); +static ST_VOID decode_aarq_main (ASN1_DEC_CTXT *aCtx, ST_UINT16 id_code); +static ST_VOID decode_aarq_done (ASN1_DEC_CTXT *aCtx); + +static ST_VOID decode_aare (ASN1_DEC_CTXT *aCtx); +static ST_VOID decode_aare_main (ASN1_DEC_CTXT *aCtx, ST_UINT16 id_code); +static ST_VOID decode_aare_done (ASN1_DEC_CTXT *aCtx); + +static ST_VOID decode_rlrq (ASN1_DEC_CTXT *aCtx); +static ST_VOID decode_rlrq_main (ASN1_DEC_CTXT *aCtx, ST_UINT16 id_code); +static ST_VOID decode_rlrq_done (ASN1_DEC_CTXT *aCtx); + +static ST_VOID decode_rlre (ASN1_DEC_CTXT *aCtx); +static ST_VOID decode_rlre_main (ASN1_DEC_CTXT *aCtx, ST_UINT16 id_code); +static ST_VOID decode_rlre_done (ASN1_DEC_CTXT *aCtx); + +static ST_VOID decode_abrt (ASN1_DEC_CTXT *aCtx); +static ST_VOID decode_abrt_main (ASN1_DEC_CTXT *aCtx, ST_UINT16 id_code); +static ST_VOID decode_abrt_done (ASN1_DEC_CTXT *aCtx); + +static ST_VOID decode_obj_id (ASN1_DEC_CTXT *aCtx); +static ST_VOID decode_i32 (ASN1_DEC_CTXT *aCtx); +static ST_VOID decode_i16 (ASN1_DEC_CTXT *aCtx); +static ST_VOID decode_result_source1 (ASN1_DEC_CTXT *aCtx); +static ST_VOID decode_result_source2 (ASN1_DEC_CTXT *aCtx); +static ST_VOID decode_acse_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID decode_constr_done (ASN1_DEC_CTXT *aCtx); +/* DEBUG: all calls to tp4_reldata could be eliminated if tp4 quits */ +/* allocating data buffers. This would save a malloc and a memcpy in tp4.*/ + +static ST_CHAR *a_auth_password_dec (ST_UCHAR *asn1_ptr); +static ST_RET _a_dec_authentication (ACSE_AUTH_INFO *authInfo, /* out */ + ST_UCHAR *auth_value, /* in */ + ST_INT auth_value_len); /* in */ + + +#if defined (MOSI) +ACSE_CONN *decode_acse_conn; /* connection we're doing decode for. */ + +static ST_VOID END_user_info (ASN1_DEC_CTXT *aCtx); + +/************************************************************************/ +/* u_copp_con_cnf */ +/* P-CONNECT.cnf (Connect Confirm). */ +/* Parameters: */ +/* acse_conn Pointer to connection info */ +/* result P_CON_RESULT_ACCEPT, P_CON_RESULT_USER_REJ or */ +/* P_CON_RESULT_PROVIDER_REJ */ +/* reason Provider-reason (if result=P_CON_RESULT_PROVIDER_REJ)*/ +/************************************************************************/ +ST_VOID u_copp_con_cnf (ACSE_CONN *acse_conn, ST_INT result, ST_INT reason) + { +ASN1_DEC_CTXT localDecCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_DEC_CTXT *aCtx = &localDecCtx; + + memset (aCtx, 0, sizeof (ASN1_DEC_CTXT)); /* CRITICAL: start clean */ + + if (acse_conn->state != STATE_AARE_WAIT) + { + ACSELOG_ERR0 ("ACSE-ERROR: Ignoring unexpected P-CONNECT.cnf"); + return; + } + if (result == P_CON_RESULT_PROVIDER_REJ) + { /* No AARE to decode. */ + ACSELOG_DEC2 ("A-ASSOCIATE.cnf-: acse_conn_id =0x%08X user_conn_id =%4ld", + acse_conn, acse_conn->user_conn_id); + ACSELOG_DEC1C ("Rejected by PS-provider. Provider-reason = %d. No P-user-data.", + reason); + + /* ACSE spec says to pass "A-ASSOCIATE.cnf-" primitive to */ + /* ACSE-user, but ACSE-user may not handle it with no AARE info, so */ + /* pass "A-P-ABORT.ind" primitive instead. The result is the same. */ + abrt_apdu.source = ACSE_SERVICE_PROVIDER; + abrt_apdu.user_info.len = 0; + u_a_abort_ind (acse_conn->user_conn_id, &abrt_apdu); + acse_conn->state = STATE_IDLE; + /* DON'T free acse_conn. COSP will free it when T-DISCONNECT done. */ + return; + } + + /* result != P_CON_RESULT_PROVIDER_REJ. Decode AARE. */ + aCtx->asn1r_decode_method = ASN1_TAG_METHOD; /* Use asn1_tag method for decoding. */ + aCtx->asn1r_decode_done_fun = asn1r_done_err; /* done function = error fun */ + aCtx->asn1r_err_fun = NULL; /* set up error detected fun */ + decode_acse_conn = acse_conn; /* Save in global so asn1r_decode_asn1 (aCtx, */ + /* can fill it in. */ + + /* CRITICAL: Init global PDV ptr & len. Changed only if PDV found in msg.*/ + pdv_data_ptr = NULL; + pdv_data_len = 0; + + ASN1R_TAG_ADD (aCtx, APP|CONSTR,TAG_AARE,decode_aare); + asn1r_decode_asn1 (aCtx, acse_conn->apdu_ptr,acse_conn->apdu_len); /* decode APDU */ + + if (aCtx->asn1r_pdu_dec_err == NO_DECODE_ERR) + { /* Handle AARE. */ + if (aare_apdu.result == 0) + { + acse_conn->initiator = SD_TRUE; + acse_conn->state = STATE_ASSOCIATED; + ACSELOG_DEC2 ("A-ASSOCIATE.cnf+: acse_conn_id =0x%08X user_conn_id =%4ld", + acse_conn, acse_conn->user_conn_id); + } + else + { + acse_conn->state = STATE_IDLE; + ACSELOG_DEC2 ("A-ASSOCIATE.cnf-: acse_conn_id =0x%08X user_conn_id =%4ld", + acse_conn, acse_conn->user_conn_id); + } + + /* save partner's security info to the ACSE_CONN for user's anytime examination */ + acse_conn->part_auth_info = aare_apdu.auth_info; + if (aare_apdu.auth_info.mech_type == ACSE_AUTH_MECH_OTHER) + { + /* allocate buffer for the Authentication Value */ + acse_conn->part_auth_info.u.other_auth.auth_value.buf = acse_conn->part_auth_info.u.other_auth.auth_value.ptr = + (ST_UCHAR *) chk_calloc (aare_apdu.auth_info.u.other_auth.auth_value.len, sizeof(ST_CHAR)); + memcpy (acse_conn->part_auth_info.u.other_auth.auth_value.ptr, aare_apdu.auth_info.u.other_auth.auth_value.ptr, + aare_apdu.auth_info.u.other_auth.auth_value.len); + } + aare_apdu.encrypt_ctrl = acse_conn->encrypt_ctrl; + + u_a_associate_cnf ((ST_LONG) acse_conn, (ST_LONG) acse_conn->user_conn_id, + &aare_apdu); + } + else + { /* Handle ASN1 decode error. */ + ACSELOG_ERR0 ("ACSE-ERROR: AARE decode failed. Aborting."); + /* Pass up A-P-ABORT.ind */ + abrt_apdu.source = ACSE_SERVICE_PROVIDER; + abrt_apdu.user_info.len = 0; + u_a_abort_ind (acse_conn->user_conn_id, &abrt_apdu); + + acse_conn->state = STATE_IDLE; + + /* NOTE: Send copp_u_abort_req ONLY IF COPP accepted conn. */ + if (result == P_CON_RESULT_ACCEPT) + copp_u_abort_req (acse_conn); + /* CRITICAL: DO NOT access acse_conn after abort. It may have been */ + /* freed by cosp_u_abort_req (called from copp_u_abort_req). */ + } + return; + } + +/************************************************************************/ +/* u_copp_rel_cnf_pos */ +/* P-RELEASE.cnf+ (POSITIVE Release Confirm). */ +/* Must be RLRE APDU. Decode it and call u_a_release_cnf. */ +/************************************************************************/ +ST_VOID u_copp_rel_cnf_pos (ACSE_CONN *acse_conn) + { +ASN1_DEC_CTXT localDecCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_DEC_CTXT *aCtx = &localDecCtx; + + memset (aCtx, 0, sizeof (ASN1_DEC_CTXT)); /* CRITICAL: start clean */ + + aCtx->asn1r_decode_method = ASN1_TAG_METHOD; /* Use asn1_tag method for decoding. */ + aCtx->asn1r_decode_done_fun = asn1r_done_err; /* done function = error fun */ + aCtx->asn1r_err_fun = NULL; /* set up error detected fun */ + decode_acse_conn = acse_conn; /* Save in global so asn1r_decode_asn1 (aCtx, */ + /* can fill it in. */ + + /* CRITICAL: Init global PDV ptr & len. Changed only if PDV found in msg.*/ + pdv_data_ptr = NULL; + pdv_data_len = 0; + + ASN1R_TAG_ADD (aCtx, APP|CONSTR,TAG_RLRE,decode_rlre); + asn1r_decode_asn1 (aCtx, acse_conn->apdu_ptr,acse_conn->apdu_len); /* decode APDU */ + + if (aCtx->asn1r_pdu_dec_err == NO_DECODE_ERR) + { + /* Handle RLRE. */ + switch (acse_conn->state) + { + case STATE_RLRE_WAIT: + acse_conn->state = STATE_IDLE; + ACSELOG_DEC2 ("A-RELEASE.cnf+: acse_conn_id =0x%08X user_conn_id =%4ld", + acse_conn, acse_conn->user_conn_id); + u_a_release_cnf (acse_conn->user_conn_id, &rlre_apdu); + break; + + case STATE_RESP_COLL: + acse_conn->state = STATE_ARLSRSP_WAIT; + ACSELOG_DEC2 ("A-RELEASE.cnf+: acse_conn_id =0x%08X user_conn_id =%4ld", + acse_conn, acse_conn->user_conn_id); + u_a_release_cnf (acse_conn->user_conn_id, &rlre_apdu); + break; + + default: + u_a_except (acse_conn->user_conn_id, EX_ACSE_INVALID_STATE, + thisFileName, __LINE__); + break; + } /* end "switch" */ + } + else + { + /* Handle ASN1 decode error. */ + ACSELOG_ERR0 ("ACSE-ERROR: RLRE decode failed. Aborting."); + /* Pass up A-P-ABORT.ind */ + abrt_apdu.source = ACSE_SERVICE_PROVIDER; + abrt_apdu.user_info.len = 0; + u_a_abort_ind (acse_conn->user_conn_id, &abrt_apdu); + + acse_conn->state = STATE_IDLE; + } + } + + +/************************************************************************/ +/* u_copp_con_ind */ +/* P-Connect Indication. */ +/* Must be AARQ APDU. Decode it and call u_a_associate_ind. */ +/************************************************************************/ +ST_VOID u_copp_con_ind (ST_LONG user_bind_id, ACSE_CONN *acse_conn) + { +ASN1_DEC_CTXT localDecCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_DEC_CTXT *aCtx = &localDecCtx; +ST_INT j; + + memset (aCtx, 0, sizeof (ASN1_DEC_CTXT)); /* CRITICAL: start clean */ + + aCtx->asn1r_decode_method = ASN1_TAG_METHOD; /* Use asn1_tag method for decoding. */ + aCtx->asn1r_decode_done_fun = asn1r_done_err; /* done function = error fun */ + aCtx->asn1r_err_fun = NULL; /* set up error detected fun */ + decode_acse_conn = acse_conn; /* Save in global so asn1r_decode_asn1 (aCtx, */ + /* can fill it in. */ + + /* CRITICAL: Init global PDV ptr & len. Changed only if PDV found in msg.*/ + pdv_data_ptr = NULL; + pdv_data_len = 0; + + ASN1R_TAG_ADD (aCtx, APP|CONSTR,TAG_AARQ,decode_aarq); + asn1r_decode_asn1 (aCtx, acse_conn->apdu_ptr,acse_conn->apdu_len); /* decode APDU */ + + if (aCtx->asn1r_pdu_dec_err == NO_DECODE_ERR) + { + /* Handle AARQ. */ + acse_conn->state = STATE_AASCRSP_WAIT; + + /* Copy "calling" (remote) address to aarq_apdu. */ + if ((aarq_apdu.calling_paddr.psel_len = acse_conn->rem_psel[0])!=0) + memcpy (aarq_apdu.calling_paddr.psel, &acse_conn->rem_psel[1], + acse_conn->rem_psel[0]); + if ((aarq_apdu.calling_paddr.ssel_len = acse_conn->rem_ssel[0])!=0) + memcpy (aarq_apdu.calling_paddr.ssel, &acse_conn->rem_ssel[1], + acse_conn->rem_ssel[0]); + if ((aarq_apdu.calling_paddr.tsel_len = acse_conn->rem_tsel[0])!=0) + memcpy (aarq_apdu.calling_paddr.tsel, &acse_conn->rem_tsel[1], + acse_conn->rem_tsel[0]); + + if (acse_conn->tp4_conn_id >= MIN_TP0_CONN_ID) /* This is TP0 conn. Save IP addr*/ + { + aarq_apdu.calling_paddr.tp_type = TP_TYPE_TCP; + aarq_apdu.calling_paddr.netAddr.ip = acse_conn->remNetAddr.ip; + } + else /* This is TP4 conn. Save NSAP */ + { + aarq_apdu.calling_paddr.tp_type = TP_TYPE_TP4; + if ((aarq_apdu.calling_paddr.nsap_len = acse_conn->remNetAddr.nsap[0])!=0) + memcpy (aarq_apdu.calling_paddr.netAddr.nsap, &acse_conn->remNetAddr.nsap[1], + acse_conn->remNetAddr.nsap[0]); + } + + /* Copy "called" (local) address (except NSAP) to aarq_apdu. */ + /* NOTE: "called" tp_type must be same as "calling". */ + aarq_apdu.called_paddr.tp_type = aarq_apdu.calling_paddr.tp_type; + if ((aarq_apdu.called_paddr.psel_len = acse_conn->loc_psel[0])!=0) + memcpy (aarq_apdu.called_paddr.psel, &acse_conn->loc_psel[1], + acse_conn->loc_psel[0]); + if ((aarq_apdu.called_paddr.ssel_len = acse_conn->loc_ssel[0])!=0) + memcpy (aarq_apdu.called_paddr.ssel, &acse_conn->loc_ssel[1], + acse_conn->loc_ssel[0]); + if ((aarq_apdu.called_paddr.tsel_len = acse_conn->loc_tsel[0])!=0) + memcpy (aarq_apdu.called_paddr.tsel, &acse_conn->loc_tsel[1], + acse_conn->loc_tsel[0]); + + ACSELOG_DEC1 ("A-ASSOCIATE.ind: acse_conn_id =0x%08X", acse_conn); + ACSELOG_DEC0C ("DST (CALLED) ADDRESS:"); + if (aarq_apdu.called_ae_title.AP_title_pres) + { + for (j = 0; j < aarq_apdu.called_ae_title.AP_title.num_comps; ++j) + { /* Verbose but gets the job done. */ + ACSELOG_DEC2C (" AP_title.comps[%d] = %d", + j, aarq_apdu.called_ae_title.AP_title.comps[j]); + } + } + if (aarq_apdu.called_ae_title.AE_qual_pres) + { + ACSELOG_DEC1C (" AE_qual = %ld", aarq_apdu.called_ae_title.AE_qual); + } + ACSELOG_DEC0C (" PSEL:"); + ACSELOG_DECH (aarq_apdu.called_paddr.psel_len, aarq_apdu.called_paddr.psel); + ACSELOG_DEC0C (" SSEL:"); + ACSELOG_DECH (aarq_apdu.called_paddr.ssel_len, aarq_apdu.called_paddr.ssel); + ACSELOG_DEC0C (" TSEL:"); + ACSELOG_DECH (aarq_apdu.called_paddr.tsel_len, aarq_apdu.called_paddr.tsel); + + ACSELOG_DEC0C ("SRC (CALLING) ADDRESS:"); + if (aarq_apdu.calling_ae_title.AP_title_pres) + { + for (j = 0; j < aarq_apdu.calling_ae_title.AP_title.num_comps; ++j) + { /* Verbose but gets the job done. */ + ACSELOG_DEC2C (" AP_title.comps[%d] = %d", + j, aarq_apdu.calling_ae_title.AP_title.comps[j]); + } + } + if (aarq_apdu.calling_ae_title.AE_qual_pres) + { + ACSELOG_DEC1C (" AE_qual = %ld", aarq_apdu.calling_ae_title.AE_qual); + } + ACSELOG_DEC0C (" PSEL:"); + ACSELOG_DECH (aarq_apdu.calling_paddr.psel_len, aarq_apdu.calling_paddr.psel); + ACSELOG_DEC0C (" SSEL:"); + ACSELOG_DECH (aarq_apdu.calling_paddr.ssel_len, aarq_apdu.calling_paddr.ssel); + ACSELOG_DEC0C (" TSEL:"); + ACSELOG_DECH (aarq_apdu.calling_paddr.tsel_len, aarq_apdu.calling_paddr.tsel); + if (aarq_apdu.calling_paddr.tp_type == TP_TYPE_TCP) + { +#if defined(TP0_ENABLED) + struct in_addr sin_addr; /* inet_ntoa needs this addr format*/ + sin_addr.s_addr = aarq_apdu.calling_paddr.netAddr.ip; + ACSELOG_DEC1C (" IP ADDR: %s", inet_ntoa (sin_addr)); +#else + ACSELOG_ERR0 ("Received TCP conn ind. TCP not supported"); +#endif + } + else + { + ACSELOG_DEC0C (" NSAP:"); + ACSELOG_DECH (aarq_apdu.calling_paddr.nsap_len, aarq_apdu.calling_paddr.netAddr.nsap); + } + + /* save partner's security info to the ACSE_CONN for user's anytime examination */ + acse_conn->part_auth_info = aarq_apdu.auth_info; + if (aarq_apdu.auth_info.mech_type == ACSE_AUTH_MECH_OTHER) + { + /* allocate buffer for the Authentication Value */ + acse_conn->part_auth_info.u.other_auth.auth_value.buf = acse_conn->part_auth_info.u.other_auth.auth_value.ptr = + (ST_UCHAR *) chk_calloc (aarq_apdu.auth_info.u.other_auth.auth_value.len, sizeof(ST_CHAR)); + memcpy (acse_conn->part_auth_info.u.other_auth.auth_value.ptr, aarq_apdu.auth_info.u.other_auth.auth_value.ptr, + aarq_apdu.auth_info.u.other_auth.auth_value.len); + } + aarq_apdu.encrypt_ctrl = acse_conn->encrypt_ctrl; + + u_a_associate_ind (user_bind_id, (ST_LONG) acse_conn, &aarq_apdu); + } + else + { + /* Handle ASN1 decode error. */ + /* According to the ACSE spec section 7.3.3.4 (pg 20) we should */ + /* be sending an Abort PDU upon protocol error. */ + ACSELOG_ERR0 ("ACSE-ERROR: AARQ decode failed"); + copp_u_abort_req (acse_conn); + acse_conn->state = STATE_IDLE; + } + } + +/************************************************************************/ +/* u_copp_rel_ind */ +/* P-Release Indication. */ +/* Must be RLRQ APDU. Decode it and call u_a_release_ind. */ +/************************************************************************/ +ST_VOID u_copp_rel_ind (ACSE_CONN *acse_conn) + { +ASN1_DEC_CTXT localDecCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_DEC_CTXT *aCtx = &localDecCtx; + + memset (aCtx, 0, sizeof (ASN1_DEC_CTXT)); /* CRITICAL: start clean */ + + aCtx->asn1r_decode_method = ASN1_TAG_METHOD; /* Use asn1_tag method for decoding. */ + aCtx->asn1r_decode_done_fun = asn1r_done_err; /* done function = error fun */ + aCtx->asn1r_err_fun = NULL; /* set up error detected fun */ + decode_acse_conn = acse_conn; /* Save in global so asn1r_decode_asn1 (aCtx, */ + /* can fill it in. */ + + /* CRITICAL: Init global PDV ptr & len. Changed only if PDV found in msg.*/ + pdv_data_ptr = NULL; + pdv_data_len = 0; + + ASN1R_TAG_ADD (aCtx, APP|CONSTR,TAG_RLRQ,decode_rlrq); + asn1r_decode_asn1 (aCtx, acse_conn->apdu_ptr,acse_conn->apdu_len); /* decode APDU */ + + if (aCtx->asn1r_pdu_dec_err == NO_DECODE_ERR) + { + /* Handle RLRQ. */ + switch (acse_conn->state) + { + case STATE_ASSOCIATED: + acse_conn->state = STATE_ARLSRSP_WAIT; + ACSELOG_DEC2 ("A-RELEASE.ind: acse_conn_id =0x%08X user_conn_id =%4ld", + acse_conn, acse_conn->user_conn_id); + u_a_release_ind (acse_conn->user_conn_id, &rlrq_apdu); + break; + + case STATE_RLRE_WAIT: + if (acse_conn->initiator) + acse_conn->state = STATE_INIT_COLL; + else + acse_conn->state = STATE_RESP_COLL; + ACSELOG_DEC2 ("A-RELEASE.ind: acse_conn_id =0x%08X user_conn_id =%4ld", + acse_conn, acse_conn->user_conn_id); + u_a_release_ind (acse_conn->user_conn_id, &rlrq_apdu); + break; + + default: + u_a_except (acse_conn->user_conn_id, EX_ACSE_INVALID_STATE, + thisFileName, __LINE__); + break; + } /* end "switch" */ + } + else + { + /* Handle ASN1 decode error. */ + ACSELOG_ERR0 ("ACSE-ERROR: RLRQ decode failed"); + } + } + +/************************************************************************/ +/* u_copp_p_abort_ind */ +/* P-P-Abort Indication. */ +/* ACSE doesn't need to decode anything. Just pass up A-P-ABORT.ind */ +/************************************************************************/ +ST_VOID u_copp_p_abort_ind (ACSE_CONN *acse_conn, ST_INT reason) + { + acse_conn->state = STATE_IDLE; + ACSELOG_DEC2 ("A-P-ABORT.ind: acse_conn_id =0x%08X user_conn_id =%4ld", + acse_conn, acse_conn->user_conn_id); + ACSELOG_DEC1C ("Provider-reason = %d", reason); + /* Pass up A-P-ABORT.ind */ + abrt_apdu.source = ACSE_SERVICE_PROVIDER; + abrt_apdu.user_info.len = 0; + u_a_abort_ind (acse_conn->user_conn_id, &abrt_apdu); + } + +/************************************************************************/ +/* u_copp_u_abort_ind */ +/* P-U-Abort Indication. */ +/* Must be ABRT APDU. Decode it and call u_a_abort_ind. */ +/************************************************************************/ +ST_VOID u_copp_u_abort_ind (ACSE_CONN *acse_conn) + { +ASN1_DEC_CTXT localDecCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_DEC_CTXT *aCtx = &localDecCtx; + + memset (aCtx, 0, sizeof (ASN1_DEC_CTXT)); /* CRITICAL: start clean */ + + /* This must be ABRT. Perform ASN1 Decode of ABRT. */ + aCtx->asn1r_decode_method = ASN1_TAG_METHOD; /* Use asn1_tag method for decoding. */ + aCtx->asn1r_decode_done_fun = asn1r_done_err; /* done function = error fun */ + aCtx->asn1r_err_fun = NULL; /* set up error detected fun */ + decode_acse_conn = acse_conn; /* Save in global so asn1r_decode_asn1 (aCtx, */ + /* can fill it in. */ + + /* CRITICAL: Init global PDV ptr & len. Changed only if PDV found in msg.*/ + pdv_data_ptr = NULL; + pdv_data_len = 0; + + ASN1R_TAG_ADD (aCtx, APP|CONSTR,TAG_ABRT,decode_abrt); + asn1r_decode_asn1 (aCtx, acse_conn->apdu_ptr,acse_conn->apdu_len); /* decode APDU */ + + /* "asn1r_decode_asn1 (aCtx," has filled in Global "abrt_apdu" structure. */ + + if (aCtx->asn1r_pdu_dec_err != NO_DECODE_ERR) + { + ACSELOG_ERR1 ("ACSE-ERROR: ABRT decode failed (code = %d). Call u_a_abort_ind anyway.", + aCtx->asn1r_pdu_dec_err); + /* Fill "abrt_apdu" with defaults (possibly corrupted during decode).*/ + abrt_apdu.source = ACSE_SERVICE_USER; + abrt_apdu.user_info.len = 0; + } + + acse_conn->state = STATE_IDLE; + ACSELOG_DEC2 ("A-ABORT.ind: acse_conn_id =0x%08X user_conn_id =%4ld", + acse_conn, acse_conn->user_conn_id); + u_a_abort_ind (acse_conn->user_conn_id, &abrt_apdu); + } + +/************************************************************************/ +/* u_copp_data_ind */ +/* P-Data Indication. */ +/* ACSE doesn't need to decode anything. Just call u_a_data_ind. */ +/************************************************************************/ +ST_VOID u_copp_data_ind (ACSE_CONN *acse_conn) + { + u_a_data_ind (acse_conn->user_conn_id, acse_conn->apdu_len, acse_conn->apdu_ptr); + } + +#else /* !MOSI */ + +static ST_INT acse_tag; + +static ST_BOOLEAN tp4_data_ind_aarqind (ACSE_CONN *acse_conn, ST_UINT len); +static ST_BOOLEAN tp4_data_ind_aarqcnf (ACSE_CONN *acse_conn, ST_UINT len); +static ST_RET acse_decode (ASN1_DEC_CTXT *aCtx, ST_UCHAR *msg_ptr, ST_UINT len); + +/************************************************************************/ +/* tp4_session_timer_expired */ +/*----------------------------------------------------------------------*/ +/* This function is called by TP4 when the session_timer expires. */ +/* TRIM-7 does not use any Session timers, so this function will */ +/* never be called. It's only purpose is to resolve link with LEAN_T. */ +/* For MOSI, the "tp4_session_timer_expired" function is in COSP????.C */ +/************************************************************************/ +ST_VOID tp4_session_timer_expired (ST_LONG user_conn_id) + { + } + +/************************************************************************/ +/* tp4_bind_cnf */ +/************************************************************************/ +ST_VOID tp4_bind_cnf (ST_LONG user_bind_id, ST_LONG copp_bind_id, ST_RET result) + { + ACSELOG_DEC2 ("COPP-Bind Cnf. user_bind_id =%9ld copp_bind_id =%9ld", + user_bind_id, copp_bind_id); + u_copp_bind_cnf (user_bind_id, copp_bind_id, result); + } + +/************************************************************************/ +/* tp4_unbind_cnf */ +/************************************************************************/ +ST_VOID tp4_unbind_cnf (ST_LONG user_bind_id) + { + ACSELOG_DEC1 ("COPP-Unbind Cnf. user_bind_id =%9ld", user_bind_id); + u_copp_unbind_cnf (user_bind_id); + } + +/************************************************************************/ +/* tp4_connect_ind */ +/* This function is called by the Transport provider when an ACSE */ +/* Associate request is received. */ +/************************************************************************/ +ST_VOID tp4_connect_ind ( + ST_LONG user_bind_id, + ST_LONG tp4_conn_id, /* TP4's connection ID */ + TP4_ADDR *rem_tp4_addr, + ST_INT data_len, + char *data) + { + ACSE_CONN * acse_conn; + /* This function uses global "aarq_apdu" - Decoded Associate Req Data.*/ + + tp4_reldata (data); /* I never use this. */ + + acse_conn = (ACSE_CONN *) M_CALLOC (MSMEM_ACSE_CONN, 1, sizeof (ACSE_CONN)); + + /* Save TP4's connection ID. Use it in calls to TP4 functions. */ + acse_conn->tp4_conn_id = tp4_conn_id; + /* Save user_bind_id for later passing to u_a_associate_ind */ + acse_conn->user_bind_id = user_bind_id; + + tp4_accept (tp4_conn_id, (ST_LONG) acse_conn, 15, "SISCO Transport"); + return; + } + +/************************************************************************/ +/* tp4_connect_cnf */ +/* This function is called by the Transport provider when a POSITIVE */ +/* T-CONNECT confirm is received. */ +/* Now send the AARQ APDU (save_buf) that was built by a_associate_req. */ +/************************************************************************/ +ST_VOID tp4_connect_cnf ( + ST_LONG acse_conn_id, + ST_LONG tp4_conn_id, /* TP4's connection ID */ + ST_INT data_len, + char *data) + { + ACSE_CONN * acse_conn; + /* This function uses global "aare_apdu" - Decoded Associate Rsp Data. */ + + tp4_reldata (data); /* I never use this. */ + + acse_conn = (ACSE_CONN *) acse_conn_id; + + if (acse_conn->state == STATE_AARE_ABANDON) + { + /* User already aborted. Couldn't wait for cnf (impatient!!) */ + tp4_disconnect (tp4_conn_id, 0, NULL); + acse_free_con (acse_conn); + return; + } + + if (acse_conn->state != STATE_TP4CONN_WAIT) + { + u_a_except (acse_conn->user_conn_id, EX_ACSE_INVALID_STATE, + thisFileName, __LINE__); + acse_free_con (acse_conn); /* Dump conn tracking struct */ + return; + } + + /* Save TP4's connection ID. Use it in calls to TP4 functions. */ + acse_conn->tp4_conn_id = tp4_conn_id; + + /* Send saved AARQ APDU (save_buf) via Transport Data request. */ + if (tp4_data (acse_conn->tp4_conn_id, 1, (ST_UINT) acse_conn->save_buf.len, + (ST_CHAR *) acse_conn->save_buf.ptr) != SD_SUCCESS) + { /* This should never happen. */ + ACSELOG_ERR0 ("ACSE-ERROR: AARQ APDU could not be sent. Unrecoverable"); + } + /* Free encoded AARQ buffer now. Reset len so know not to free later. */ + M_FREE (MSMEM_ACSE_DATA, acse_conn->save_buf.ptr); + acse_conn->save_buf.len = 0; /* This indicates "ptr" has been freed. */ + + acse_conn->state = STATE_AARE_WAIT; /* Waiting for AARE-apdu */ + } + +/************************************************************************/ +/* tp4_disconnect_ind */ +/************************************************************************/ +ST_VOID tp4_disconnect_ind ( + ST_LONG acse_conn_id, + ST_INT reason, + ST_INT data_len, + char *data) + { + ACSE_CONN * acse_conn; + + tp4_reldata (data); /* I never use this. */ + + acse_conn = (ACSE_CONN *) acse_conn_id; + + /* Only pass up abort to user if not already in idle state. */ + if (acse_conn->state != STATE_IDLE) + { + if (reason == 0) + { + ACSELOG_DEC2 ("A-ABORT.ind: acse_conn_id =0x%08X user_conn_id =%4ld", + acse_conn, acse_conn->user_conn_id); + abrt_apdu.source = ACSE_SERVICE_USER; + } + else + { + ACSELOG_DEC2 ("A-P-ABORT.ind: acse_conn_id =0x%08X user_conn_id =%4ld", + acse_conn, acse_conn->user_conn_id); + abrt_apdu.source = ACSE_SERVICE_PROVIDER; + } + + abrt_apdu.user_info.len = 0; + u_a_abort_ind (acse_conn->user_conn_id, &abrt_apdu); + } + + /* In any case, we're done with this connection. */ + acse_free_con (acse_conn); /* Dump conn tracking struct */ + return; + } + +/************************************************************************/ +/* tp4_data_ind */ +/* This function is called by the Transport provider when a data packet */ +/* is received on a previously established connection. */ +/* It could be one of the following PDUs: */ +/* A-RELEASE.ind */ +/* A-RELEASE.cnf */ +/* DEBUG: MUST call tp4_reldata before returning from this function. */ +/************************************************************************/ +ST_VOID tp4_data_ind ( + ST_LONG acse_conn_id, + ST_INT eot, + ST_UINT data_len, + char *data) + { + /* This function uses globals "rlrq_apdu", "rlre_apdu", etc. */ + ACSE_CONN * acse_conn; + ST_BOOLEAN free_flag = SD_FALSE; /* Flag: does acse_conn need to be freed?*/ + ST_UCHAR *rcv_data; /* Local copy of data ptr. */ + ST_UINT rcv_data_len; /* Local copy of data len. */ + ASN1_DEC_CTXT aLocalCtx; + ASN1_DEC_CTXT *aCtx = &aLocalCtx; + + acse_conn = (ACSE_CONN *) acse_conn_id; + + if (acse_conn->state == STATE_AARE_ABANDON) + { + /* User already aborted. Couldn't wait for cnf (impatient!!) */ + tp4_disconnect (acse_conn->tp4_conn_id, 0, NULL); + acse_free_con (acse_conn); + return; + } + + if (eot == 0) + { /* NOT complete PDU, so just save data and return. */ + if (acse_conn->rcv_data_len == 0) + acse_conn->rcv_data = (ST_UCHAR *) M_CALLOC (MSMEM_ACSE_DATA, 1, acse_msgsize); + if (acse_conn->rcv_data_len + data_len > acse_msgsize) + { + u_a_except (acse_conn->user_conn_id, EX_ACSE_DECODE, + thisFileName, __LINE__); + acse_free_con (acse_conn); /* Dump conn tracking struct */ + tp4_reldata (data); + return; + } + memcpy (acse_conn->rcv_data + acse_conn->rcv_data_len, data, data_len); + acse_conn->rcv_data_len += data_len; + tp4_reldata (data); + return; + } + else + { /* eot != 0 */ + /* Complete PDU or Last piece of assembled PDU. */ + if (acse_conn->rcv_data_len == 0) + { /* This is complete PDU */ + /* DO NOT ALLOCATE a rcv buffer & DO NOT COPY DATA. */ + /* Just set "acse_conn->rcv_data" to point to data. */ + /* At end of function, if (acse_conn->rcv_data_len == data_len), */ + /* DO NOT FREE "acse_conn->rcv_data". */ + acse_conn->rcv_data = (ST_UCHAR *) data; + } + else + { /* This is last piece of assembled PDU */ + memcpy (acse_conn->rcv_data + acse_conn->rcv_data_len, data, data_len); + } + acse_conn->rcv_data_len += data_len; + } + + /* Save ptr in local variable so it can be freed later. */ + rcv_data = acse_conn->rcv_data; + + /* Save len in local variable and reset it so ready for next indication.*/ + rcv_data_len = acse_conn->rcv_data_len; + acse_conn->rcv_data_len = 0; + /* WARNING: acse_conn->rcv_data_len must not be used by any functions */ + /* called after this point because it's already been reset. */ + + /******* HAVE A COMPLETE PDU NOW. HANDLE ALL POSSIBLE PDUs. *********/ + + if (acse_conn->state == STATE_IDLE) + { /* Handle A-Associate indication. */ + free_flag = tp4_data_ind_aarqind (acse_conn, rcv_data_len); + } + else if (acse_conn->state == STATE_AARE_WAIT) + { /* Handle A-Associate confirm. */ + free_flag = tp4_data_ind_aarqcnf (acse_conn, rcv_data_len); + } + else if ((acse_conn->rcv_data[0] & 0xC0) != APP) /* chk ASN.1 class*/ + { /* Handle NON-ACSE PDU. */ + /* Pass up to user (i.e. MMS). */ + ACSELOG_DEC2 ("A-DATA.ind: acse_conn_id =0x%08X user_conn_id =%4ld", + acse_conn, acse_conn->user_conn_id); + ACSELOG_DEC1C ("User data length: %d", rcv_data_len); + u_a_data_ind (acse_conn->user_conn_id, rcv_data_len, acse_conn->rcv_data); + } + else if (acse_decode (aCtx, acse_conn->rcv_data, rcv_data_len) == SD_SUCCESS) + { /* Handle all other ACSE PDUs. */ + switch (acse_tag) /* acse_tag set by acse_decode above. */ + { + case TAG_RLRQ: + switch (acse_conn->state) + { + case STATE_ASSOCIATED: + acse_conn->state = STATE_ARLSRSP_WAIT; + ACSELOG_DEC2 ("A-RELEASE.ind: acse_conn_id =0x%08X user_conn_id =%4ld", + acse_conn, acse_conn->user_conn_id); + u_a_release_ind (acse_conn->user_conn_id, &rlrq_apdu); + break; + + case STATE_RLRE_WAIT: + if (acse_conn->initiator) + acse_conn->state = STATE_INIT_COLL; + else + acse_conn->state = STATE_RESP_COLL; + u_a_release_ind (acse_conn->user_conn_id, &rlrq_apdu); + break; + + default: + u_a_except (acse_conn->user_conn_id, EX_ACSE_INVALID_STATE, + thisFileName, __LINE__); + break; + } /* end inner "switch" */ + break; + + case TAG_RLRE: + switch (acse_conn->state) + { + case STATE_RLRE_WAIT: + acse_conn->state = STATE_IDLE; + ACSELOG_DEC2 ("A-RELEASE.cnf: acse_conn_id =0x%08X user_conn_id =%4ld", + acse_conn, acse_conn->user_conn_id); + u_a_release_cnf (acse_conn->user_conn_id, &rlre_apdu); + tp4_disconnect (acse_conn->tp4_conn_id, 0, NULL); + free_flag = SD_TRUE; /* conn tracking struct must be freed */ + break; + + case STATE_RESP_COLL: + acse_conn->state = STATE_ARLSRSP_WAIT; + ACSELOG_DEC2 ("A-RELEASE.cnf: acse_conn_id =0x%08X user_conn_id =%4ld", + acse_conn, acse_conn->user_conn_id); + u_a_release_cnf (acse_conn->user_conn_id, &rlre_apdu); + break; + + default: + u_a_except (acse_conn->user_conn_id, EX_ACSE_INVALID_STATE, + thisFileName, __LINE__); + break; + } /* end inner "switch" */ + break; + + default: + /* Illegal from this ACSE state. */ + u_a_except (acse_conn->user_conn_id, EX_ACSE_INVALID_STATE, + thisFileName, __LINE__); + break; + } /* end outer "switch" */ + } /* end big "else" */ + + if (rcv_data_len != data_len) + M_FREE (MSMEM_ACSE_DATA, rcv_data); + if (free_flag) /* Does acse_conn need to be freed ?? */ + acse_free_con (acse_conn); + tp4_reldata (data); + return; + } + +/************************************************************************/ +/* tp4_data_ind_aarqind */ +/* Subfunction for "tp4_data_ind" to handle AARQ.ind */ +/* RETURNS: SD_TRUE (means acse_conn needs to be freed) */ +/* SD_FALSE (means acse_conn does NOT need to be freed) */ +/************************************************************************/ +static ST_BOOLEAN tp4_data_ind_aarqind (ACSE_CONN *acse_conn, + ST_UINT rcv_data_len) + { +ST_UCHAR *msg_ptr; +ST_UINT len; +ASN1_DEC_CTXT aLocalCtx; +ASN1_DEC_CTXT *aCtx = &aLocalCtx; + + /* Strip off Fastbyte Session and Presentation bytes. */ +#if !defined(REDUCED_STACK) + if ((ST_UCHAR) acse_conn->rcv_data [0] == 0xE8 && + acse_conn->rcv_data [1] == 0x01) + { + msg_ptr = &acse_conn->rcv_data [2]; + len = rcv_data_len-2; +#else + { + msg_ptr = acse_conn->rcv_data; + len = rcv_data_len; +#endif + /* Decode the AARQ APDU and fill in the AARQ_APDU structure. */ + if (acse_decode (aCtx, msg_ptr, len) == SD_SUCCESS) + { + if (acse_tag == TAG_AARQ) + { + acse_conn->state = STATE_AASCRSP_WAIT; + ACSELOG_DEC1 ("A-ASSOCIATE.ind: acse_conn_id =0x%08X", acse_conn); + u_a_associate_ind (acse_conn->user_bind_id, (ST_LONG) acse_conn, &aarq_apdu); + return (SD_FALSE); + } + } + } + + ACSELOG_ERR0 ("ACSE-ERROR: AARQ decode failed"); + tp4_disconnect (acse_conn->tp4_conn_id, 0, NULL); + return (SD_TRUE); + } + +/************************************************************************/ +/* tp4_data_ind_aarqcnf */ +/* Subfunction for "tp4_data_ind" to handle AARQ.cnf */ +/* RETURNS: SD_TRUE (means acse_conn needs to be freed) */ +/* SD_FALSE (means acse_conn does NOT need to be freed) */ +/************************************************************************/ +static ST_BOOLEAN tp4_data_ind_aarqcnf (ACSE_CONN *acse_conn, + ST_UINT rcv_data_len) + { +ST_UCHAR *msg_ptr; +ST_UINT len; +ASN1_DEC_CTXT aLocalCtx; +ASN1_DEC_CTXT *aCtx = &aLocalCtx; + + /* Strip off Fastbyte Session byte. */ +#if !defined(REDUCED_STACK) + if ((ST_UCHAR) acse_conn->rcv_data [0] == 0xF0 || /* Short-SAC */ + (ST_UCHAR) acse_conn->rcv_data [0] == 0xE3 || /* Short-SRF, permanent */ + (ST_UCHAR) acse_conn->rcv_data [0] == 0xE2) /* Short-SRF, transient */ + { + /* Strip off Fastbyte Presentation byte. */ + if (acse_conn->rcv_data [1] == 0x01) /* Short-CP */ + { + msg_ptr = &acse_conn->rcv_data [2]; + len = rcv_data_len-2; +#else + { + { + msg_ptr = acse_conn->rcv_data; + len = rcv_data_len; +#endif + /* Decode the AARE APDU and fill in the AARE_APDU structure. */ + if (acse_decode (aCtx, msg_ptr, len) == SD_SUCCESS) + { + if (acse_tag == TAG_AARE) + { + ACSELOG_DEC2 ("A-ASSOCIATE.cnf: acse_conn_id =0x%08X user_conn_id =%4ld", + acse_conn, acse_conn->user_conn_id); + u_a_associate_cnf ((ST_LONG) acse_conn, (ST_LONG) acse_conn->user_conn_id, + &aare_apdu); + if (aare_apdu.result == 0) + { + acse_conn->initiator = SD_TRUE; + acse_conn->state = STATE_ASSOCIATED; + return (SD_FALSE); + } + else + { + tp4_disconnect (acse_conn->tp4_conn_id, 0, NULL); + return (SD_TRUE); /* Only so don't call u_a_except. */ + } + } + } + } + } + + ACSELOG_ERR0 ("ACSE-ERROR: AARE decode failed"); + tp4_disconnect (acse_conn->tp4_conn_id, 0, NULL); + /* Pass up a Provider Abort Ind. */ + abrt_apdu.source = ACSE_SERVICE_PROVIDER; + abrt_apdu.user_info.len = 0; + ACSELOG_DEC2 ("A-ABORT.ind: acse_conn_id =0x%08X user_conn_id =%4ld", + acse_conn, acse_conn->user_conn_id); + u_a_abort_ind (acse_conn->user_conn_id, &abrt_apdu); + return (SD_TRUE); + } + +/************************************************************************/ +/* tp4_expdata_ind */ +/************************************************************************/ +ST_VOID tp4_expdata_ind ( + ST_LONG acse_conn_id, + ST_UINT data_len, + char *data) + { + /* Treat like normal data. Assume "eot" = 1. */ + tp4_data_ind (acse_conn_id, 1, data_len, data); + } + +/************************************************************************/ +/* acse_decode */ +/* Function to setup and initiate MMS PDU decode */ +/* Only fourteen context specific codes are legal at start */ +/* Input parameters : pointer to message start, length of message, */ +/* pointer to result buffer. */ +/************************************************************************/ + +static ST_RET acse_decode (ASN1_DEC_CTXT *aCtx, ST_UCHAR *msg_ptr, ST_UINT len) + { + aCtx->asn1r_decode_method = ASN1_TAG_METHOD; /* Use asn1_tag method for decoding. */ + ASN1R_TAG_ADD (aCtx, APP|CONSTR,TAG_AARQ,decode_aarq); + ASN1R_TAG_ADD (aCtx, APP|CONSTR,TAG_AARE,decode_aare); + ASN1R_TAG_ADD (aCtx, APP|CONSTR,TAG_RLRQ,decode_rlrq); + ASN1R_TAG_ADD (aCtx, APP|CONSTR,TAG_RLRE,decode_rlre); + ASN1R_TAG_ADD (aCtx, APP|CONSTR,TAG_ABRT,decode_abrt); + + aCtx->asn1r_decode_done_fun = asn1r_done_err; /* done function = error fun */ + aCtx->asn1r_err_fun = NULL; /* set up error detected fun */ + +/* Call 'asn1r_decode_asn1 (aCtx,' to parse the message. */ + + asn1r_decode_asn1 (aCtx, msg_ptr,len); /* do message decode */ + if (aCtx->asn1r_pdu_dec_err == NO_DECODE_ERR) + return (SD_SUCCESS); + ACSELOG_ERR0 ("ACSE-ERROR: decode of APDU failed"); + return (SD_FAILURE); + } + +#endif /* !MOSI */ + +/************************************************************************/ +/* decode_aarq */ +/************************************************************************/ +static ST_VOID decode_aarq (ASN1_DEC_CTXT *aCtx) + { + aCtx->asn1r_decode_method = ASN1_CLASS_METHOD; /* Use ASN1_CLASS_METHOD method to decode. */ + aCtx->asn1r_c_id_fun = decode_aarq_main; + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = decode_aarq_done; + aCtx->asn1r_u_id_fun = asn1r_class_err; /* no universals to start */ + aCtx->asn1r_a_id_fun = asn1r_class_err; /* no applications to start */ + aCtx->asn1r_p_id_fun = asn1r_class_err; /* no privates to start */ + + /* Clean out old stuff from structure. */ + memset (&aarq_apdu, 0, sizeof (aarq_apdu)); + } + +/************************************************************************/ +/* decode_aarq_main */ +/************************************************************************/ +static ST_VOID decode_aarq_main (ASN1_DEC_CTXT *aCtx, ST_UINT16 id_code) + { +ST_RET ret; +ST_UCHAR bit_str; +MMS_OBJ_ID mechanism_name; +MMS_OBJ_ID maceMechId = MACE_MECH_ID; + + switch (id_code) + { + case AARQ_protocol_version: + if (aCtx->asn1r_constr_elmnt) + { + asn1r_set_dec_err (aCtx, ASN1E_UNEXPECTED_FORM); /* constructor not allowed */ + return; + } + /* CRITICAL: asn1r_get_bitstr doesn't set unused bits, so init all bits=0*/ + bit_str = 0; + asn1r_get_bitstr (aCtx, &bit_str, 8); + if ((bit_str & BIT_VERSION1) == 0) /* NOT Version1 */ + { + asn1r_set_dec_err (aCtx, ASN1E_INVALID_BITSTR); /* Illegal ACSE version */ + return; + } + break; + + case AARQ_ASO_context_name: + if (!aCtx->asn1r_constr_elmnt) + { + asn1r_set_dec_err (aCtx, ASN1E_UNEXPECTED_FORM); /* Must be constructor */ + return; + } + aCtx->asn1r_decode_method = ASN1_TAG_METHOD; /* Use asn1_tag method for decoding. */ + aarq_apdu.ASO_context_name_pres = SD_TRUE; + my_obj_id = &aarq_apdu.ASO_context_name; + ASN1R_TAG_ADD (aCtx, UNI,OBJ_ID_CODE,decode_obj_id); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = decode_constr_done; + break; + + case AARQ_CALLED_AP_title: + if (!aCtx->asn1r_constr_elmnt) + { + asn1r_set_dec_err (aCtx, ASN1E_UNEXPECTED_FORM); /* Must be constructor */ + return; + } + aCtx->asn1r_decode_method = ASN1_TAG_METHOD; /* Use asn1_tag method for decoding. */ + aarq_apdu.called_ae_title.AP_title_pres = SD_TRUE; + my_obj_id = &aarq_apdu.called_ae_title.AP_title; + ASN1R_TAG_ADD (aCtx, UNI,OBJ_ID_CODE,decode_obj_id); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = decode_constr_done; + break; + + case AARQ_CALLED_AE_qual: + if (!aCtx->asn1r_constr_elmnt) + { + asn1r_set_dec_err (aCtx, ASN1E_UNEXPECTED_FORM); /* Must be constructor */ + return; + } + aCtx->asn1r_decode_method = ASN1_TAG_METHOD; /* Use asn1_tag method for decoding. */ + aarq_apdu.called_ae_title.AE_qual_pres = SD_TRUE; + my_i32 = &aarq_apdu.called_ae_title.AE_qual; + ASN1R_TAG_ADD (aCtx, UNI,INT_CODE,decode_i32); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = decode_constr_done; + break; + + case AARQ_CALLED_AP_inv_id: + if (!aCtx->asn1r_constr_elmnt) + { + asn1r_set_dec_err (aCtx, ASN1E_UNEXPECTED_FORM); /* Must be constructor */ + return; + } + aCtx->asn1r_decode_method = ASN1_TAG_METHOD; /* Use asn1_tag method for decoding. */ + aarq_apdu.called_ae_title.AP_inv_id_pres = SD_TRUE; + my_i32 = &aarq_apdu.called_ae_title.AP_inv_id; + ASN1R_TAG_ADD (aCtx, UNI,INT_CODE,decode_i32); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = decode_constr_done; + break; + + case AARQ_CALLED_AE_inv_id: + if (!aCtx->asn1r_constr_elmnt) + { + asn1r_set_dec_err (aCtx, ASN1E_UNEXPECTED_FORM); /* Must be constructor */ + return; + } + aCtx->asn1r_decode_method = ASN1_TAG_METHOD; /* Use asn1_tag method for decoding. */ + aarq_apdu.called_ae_title.AE_inv_id_pres = SD_TRUE; + my_i32 = &aarq_apdu.called_ae_title.AE_inv_id; + ASN1R_TAG_ADD (aCtx, UNI,INT_CODE,decode_i32); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = decode_constr_done; + break; + + case AARQ_CALLING_AP_title: + if (!aCtx->asn1r_constr_elmnt) + { + asn1r_set_dec_err (aCtx, ASN1E_UNEXPECTED_FORM); /* Must be constructor */ + return; + } + aCtx->asn1r_decode_method = ASN1_TAG_METHOD; /* Use asn1_tag method for decoding. */ + aarq_apdu.calling_ae_title.AP_title_pres = SD_TRUE; + my_obj_id = &aarq_apdu.calling_ae_title.AP_title; + ASN1R_TAG_ADD (aCtx, UNI,OBJ_ID_CODE,decode_obj_id); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = decode_constr_done; + break; + + case AARQ_CALLING_AE_qual: + if (!aCtx->asn1r_constr_elmnt) + { + asn1r_set_dec_err (aCtx, ASN1E_UNEXPECTED_FORM); /* Must be constructor */ + return; + } + aCtx->asn1r_decode_method = ASN1_TAG_METHOD; /* Use asn1_tag method for decoding. */ + aarq_apdu.calling_ae_title.AE_qual_pres = SD_TRUE; + my_i32 = &aarq_apdu.calling_ae_title.AE_qual; + ASN1R_TAG_ADD (aCtx, UNI,INT_CODE,decode_i32); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = decode_constr_done; + break; + + case AARQ_CALLING_AP_inv_id: + if (!aCtx->asn1r_constr_elmnt) + { + asn1r_set_dec_err (aCtx, ASN1E_UNEXPECTED_FORM); /* Must be constructor */ + return; + } + aCtx->asn1r_decode_method = ASN1_TAG_METHOD; /* Use asn1_tag method for decoding. */ + aarq_apdu.calling_ae_title.AP_inv_id_pres = SD_TRUE; + my_i32 = &aarq_apdu.calling_ae_title.AP_inv_id; + ASN1R_TAG_ADD (aCtx, UNI,INT_CODE,decode_i32); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = decode_constr_done; + break; + + case AARQ_CALLING_AE_inv_id: + if (!aCtx->asn1r_constr_elmnt) + { + asn1r_set_dec_err (aCtx, ASN1E_UNEXPECTED_FORM); /* Must be constructor */ + return; + } + aCtx->asn1r_decode_method = ASN1_TAG_METHOD; /* Use asn1_tag method for decoding. */ + aarq_apdu.calling_ae_title.AE_inv_id_pres = SD_TRUE; + my_i32 = &aarq_apdu.calling_ae_title.AE_inv_id; + ASN1R_TAG_ADD (aCtx, UNI,INT_CODE,decode_i32); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = decode_constr_done; + break; + + case AARQ_acse_requirements: + if (aCtx->asn1r_constr_elmnt) + { + asn1r_set_dec_err (aCtx, ASN1E_UNEXPECTED_FORM); /* Must NOT be constr*/ + return; + } + /* CRITICAL: asn1r_get_bitstr doesn't set unused bits, so init all bits=0*/ + bit_str = 0; + asn1r_get_bitstr (aCtx, &bit_str, 8); + /* DEBUG: some stacks incorrectly set the low bit (0x01) in the */ + /* bitstring. To be nice, we will let them get away with it. */ + if ((bit_str & BIT_AUTHENTICATION) || (bit_str & 0x01)) + aarq_apdu.auth_info.auth_pres = SD_TRUE; + /* Don't support AP context negotiation, so ignore Bit 1. */ + /* We will never set Bit 1 in the response. */ + break; + + + case AARQ_mechanism_name: + if (aCtx->asn1r_constr_elmnt) + { + asn1r_set_dec_err (aCtx, ASN1E_UNEXPECTED_FORM); /* Must NOT be constr*/ + return; + } + if (asn1r_get_objid (aCtx, mechanism_name.comps, + &mechanism_name.num_comps)) + { + asn1r_set_dec_err (aCtx, ASN1E_INVALID_BOOLEAN); + return; + } + + /* Save the mechanism id for the user */ + if (asn1_objidcmp (&mechanism_name, &a_auth_password_obj_id) == 0) + aarq_apdu.auth_info.mech_type = ACSE_AUTH_MECH_PASSWORD; + else + { + if (asn1_objidcmp (&mechanism_name, &maceMechId) == 0) + aarq_apdu.auth_info.mech_type = ACSE_AUTH_MECH_MACE_CERT; + else + aarq_apdu.auth_info.mech_type = ACSE_AUTH_MECH_OTHER; + memcpy(&aarq_apdu.auth_info.u.other_auth.mech_id, &mechanism_name, sizeof(MMS_OBJ_ID)); + } + + break; + + case AARQ_CALLING_auth_value: + if (!aCtx->asn1r_constr_elmnt) + { + asn1r_set_dec_err (aCtx, ASN1E_UNEXPECTED_FORM); /* Must be constructor */ + return; + } + + if (aarq_apdu.auth_info.mech_type == ACSE_AUTH_MECH_OTHER || + aarq_apdu.auth_info.mech_type == ACSE_AUTH_MECH_MACE_CERT) + { + ret = _a_dec_authentication (&aarq_apdu.auth_info, /* out */ + aCtx->asn1r_field_ptr, /* in */ + aCtx->asn1r_elmnt_len); /* in */ + if (ret != SD_SUCCESS) + return; + } + else + strncpy(aarq_apdu.auth_info.u.pw_auth.password, + a_auth_password_dec(aCtx->asn1r_field_ptr), ACSE_MAX_LEN_PASSWORD); + + asn1_skip_elmnt (aCtx); /* Skip over this ASN.1 element. */ + break; + + case AARQ_user_info: + if (!aCtx->asn1r_constr_elmnt) + { + asn1r_set_dec_err (aCtx, ASN1E_UNEXPECTED_FORM); /* Must be constructor */ + return; + } +#if defined (MOSI) + aCtx->asn1r_decode_method = ASN1_TAG_METHOD; /* Use asn1_tag method for decoding. */ + /* Set the PCI to be expected in PDV-list decode. */ + expected_pdv_pci = decode_acse_conn->pcimms; + ASN1R_TAG_ADD (aCtx, UNI|CONSTR,EXTERN_CODE,START_pdv_list); /* see copp_dec.c*/ + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = END_user_info; +#else /* !MOSI */ + /* This is MMS user data. Just pass up for MMS user to decode. */ + aarq_apdu.user_info.ptr = aCtx->asn1r_field_ptr; + aarq_apdu.user_info.len = aCtx->asn1r_elmnt_len; + asn1_skip_elmnt (aCtx); /* Skip over this ASN.1 element. */ +#endif /* !MOSI */ + break; + + default: /* Don't know how to decode. */ + ACSELOG_DEC1 ("AARQ unrecognized tag %d. Ignored.", id_code); + asn1_skip_elmnt (aCtx); /* Skip over this ASN.1 element. */ + break; + } /* End "switch (id_code)" */ + } + +/************************************************************************/ +/* decode_aarq_done */ +/************************************************************************/ +static ST_VOID decode_aarq_done (ASN1_DEC_CTXT *aCtx) + { +#if defined (MOSI) + if (expected_pdv_pci == decode_acse_conn->pcimms) + { /* only set these if this is MMS (not ACSE) data */ + aarq_apdu.user_info.ptr = pdv_data_ptr; + aarq_apdu.user_info.len = pdv_data_len; + } +#else /* !MOSI */ + acse_tag = TAG_AARQ; +#endif /* !MOSI */ + aCtx->asn1r_decode_done_fun = decode_acse_done; + } + +/************************************************************************/ +/* decode_aare */ +/************************************************************************/ +static ST_VOID decode_aare (ASN1_DEC_CTXT *aCtx) + { + aCtx->asn1r_decode_method = ASN1_CLASS_METHOD; /* Use ASN1_CLASS_METHOD method to decode. */ + aCtx->asn1r_c_id_fun = decode_aare_main; + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = decode_aare_done; + aCtx->asn1r_u_id_fun = asn1r_class_err; /* no universals to start */ + aCtx->asn1r_a_id_fun = asn1r_class_err; /* no applications to start */ + aCtx->asn1r_p_id_fun = asn1r_class_err; /* no privates to start */ + + /* Clean out old stuff from structure. */ + memset (&aare_apdu, 0, sizeof (aare_apdu)); + } + +/************************************************************************/ +/* decode_aare_main */ +/************************************************************************/ +static ST_VOID decode_aare_main (ASN1_DEC_CTXT *aCtx, ST_UINT16 id_code) + { +ST_RET ret; +ST_UCHAR bit_str; +MMS_OBJ_ID mechanism_name; +MMS_OBJ_ID maceMechId = MACE_MECH_ID; + + switch (id_code) + { + case AARE_protocol_version: + if (aCtx->asn1r_constr_elmnt) + { + asn1r_set_dec_err (aCtx, ASN1E_UNEXPECTED_FORM); /* constructor not allowed */ + return; + } + /* CRITICAL: asn1r_get_bitstr doesn't set unused bits, so init all bits=0*/ + bit_str = 0; + asn1r_get_bitstr (aCtx, &bit_str, 8); + if ((bit_str & BIT_VERSION1)==0) /* NOT Version1 */ + { + asn1r_set_dec_err (aCtx, ASN1E_INVALID_BITSTR); /* Illegal ACSE version */ + return; + } + break; + + case AARE_ASO_context_name: + if (!aCtx->asn1r_constr_elmnt) + { + asn1r_set_dec_err (aCtx, ASN1E_UNEXPECTED_FORM); /* Must be constructor */ + return; + } + aCtx->asn1r_decode_method = ASN1_TAG_METHOD; /* Use asn1_tag method for decoding. */ + aare_apdu.ASO_context_name_pres = SD_TRUE; + my_obj_id = &aare_apdu.ASO_context_name; + ASN1R_TAG_ADD (aCtx, UNI,OBJ_ID_CODE,decode_obj_id); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = decode_constr_done; + break; + + case AARE_result: + if (!aCtx->asn1r_constr_elmnt) + { + asn1r_set_dec_err (aCtx, ASN1E_UNEXPECTED_FORM); /* Must be constructor */ + return; + } + aCtx->asn1r_decode_method = ASN1_TAG_METHOD; /* Use asn1_tag method for decoding. */ + my_i16 = &aare_apdu.result; + ASN1R_TAG_ADD (aCtx, UNI,INT_CODE,decode_i16); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = decode_constr_done; + break; + + case AARE_result_source_diagnostic: + if (!aCtx->asn1r_constr_elmnt) + { + asn1r_set_dec_err (aCtx, ASN1E_UNEXPECTED_FORM); /* Must be constructor */ + return; + } + aCtx->asn1r_decode_method = ASN1_TAG_METHOD; /* Use asn1_tag method for decoding. */ + aare_apdu.result_source_diag_pres = SD_TRUE; + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,1,decode_result_source1); + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,2,decode_result_source2); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = decode_constr_done; + break; + + case AARE_RESPONDING_AP_title: + if (!aCtx->asn1r_constr_elmnt) + { + asn1r_set_dec_err (aCtx, ASN1E_UNEXPECTED_FORM); /* Must be constructor */ + return; + } + aCtx->asn1r_decode_method = ASN1_TAG_METHOD; /* Use asn1_tag method for decoding. */ + aare_apdu.responding_ae_title.AP_title_pres = SD_TRUE; + my_obj_id = &aare_apdu.responding_ae_title.AP_title; + ASN1R_TAG_ADD (aCtx, UNI,OBJ_ID_CODE,decode_obj_id); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = decode_constr_done; + break; + + case AARE_RESPONDING_AE_qual: + if (!aCtx->asn1r_constr_elmnt) + { + asn1r_set_dec_err (aCtx, ASN1E_UNEXPECTED_FORM); /* Must be constructor */ + return; + } + aCtx->asn1r_decode_method = ASN1_TAG_METHOD; /* Use asn1_tag method for decoding. */ + aare_apdu.responding_ae_title.AE_qual_pres = SD_TRUE; + my_i32 = &aare_apdu.responding_ae_title.AE_qual; + ASN1R_TAG_ADD (aCtx, UNI,INT_CODE,decode_i32); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = decode_constr_done; + break; + + case AARE_RESPONDING_AP_inv_id: + if (!aCtx->asn1r_constr_elmnt) + { + asn1r_set_dec_err (aCtx, ASN1E_UNEXPECTED_FORM); /* Must be constructor */ + return; + } + aCtx->asn1r_decode_method = ASN1_TAG_METHOD; /* Use asn1_tag method for decoding. */ + aare_apdu.responding_ae_title.AP_inv_id_pres = SD_TRUE; + my_i32 = &aare_apdu.responding_ae_title.AP_inv_id; + ASN1R_TAG_ADD (aCtx, UNI,INT_CODE,decode_i32); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = decode_constr_done; + break; + + case AARE_RESPONDING_AE_inv_id: + if (!aCtx->asn1r_constr_elmnt) + { + asn1r_set_dec_err (aCtx, ASN1E_UNEXPECTED_FORM); /* Must be constructor */ + return; + } + aCtx->asn1r_decode_method = ASN1_TAG_METHOD; /* Use asn1_tag method for decoding. */ + aare_apdu.responding_ae_title.AE_inv_id_pres = SD_TRUE; + my_i32 = &aare_apdu.responding_ae_title.AE_inv_id; + ASN1R_TAG_ADD (aCtx, UNI,INT_CODE,decode_i32); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = decode_constr_done; + break; + + + case AARE_RESPONDER_acse_requirements: + if (aCtx->asn1r_constr_elmnt) + { + asn1r_set_dec_err (aCtx, ASN1E_UNEXPECTED_FORM); /* Must NOT be constr*/ + return; + } + /* CRITICAL: asn1r_get_bitstr doesn't set unused bits, so init all bits=0*/ + bit_str = 0; + asn1r_get_bitstr (aCtx, &bit_str, 8); + /* DEBUG: some stacks incorrectly set the low bit (0x01) in the */ + /* bitstring. To be nice, we will let them get away with it. */ + if ((bit_str & BIT_AUTHENTICATION) || (bit_str & 0x01)) + aare_apdu.auth_info.auth_pres = SD_TRUE; + /* Don't support AP context negotiation, so ignore Bit 1. */ + /* We will never set Bit 1 in the response. */ + break; + + case AARE_mechanism_name: + if (aCtx->asn1r_constr_elmnt) + { + asn1r_set_dec_err (aCtx, ASN1E_UNEXPECTED_FORM); /* Must NOT be constr*/ + return; + } + /* NOTE: this is IMPLICIT objid, so decoding simpler than normal. */ + if (asn1r_get_objid (aCtx, mechanism_name.comps, &mechanism_name.num_comps)) + { + asn1r_set_dec_err (aCtx, ASN1E_INVALID_BOOLEAN); + return; + } + + /* Save the mechanism id for the user */ + if (asn1_objidcmp (&mechanism_name, &a_auth_password_obj_id) == 0) + aare_apdu.auth_info.mech_type = ACSE_AUTH_MECH_PASSWORD; + else + { + if (asn1_objidcmp (&mechanism_name, &maceMechId) == 0) + aare_apdu.auth_info.mech_type = ACSE_AUTH_MECH_MACE_CERT; + else + aare_apdu.auth_info.mech_type = ACSE_AUTH_MECH_OTHER; + memcpy(&aare_apdu.auth_info.u.other_auth.mech_id, &mechanism_name, sizeof(MMS_OBJ_ID)); + } + + break; + + case AARE_RESPONDING_auth_value: + if (!aCtx->asn1r_constr_elmnt) + { + asn1r_set_dec_err (aCtx, ASN1E_UNEXPECTED_FORM); /* Must be constructor */ + return; + } + + if (aare_apdu.auth_info.mech_type == ACSE_AUTH_MECH_OTHER || + aare_apdu.auth_info.mech_type == ACSE_AUTH_MECH_MACE_CERT) + { + ret = _a_dec_authentication (&aare_apdu.auth_info, /* out */ + aCtx->asn1r_field_ptr, /* in */ + aCtx->asn1r_elmnt_len); /* in */ + if (ret != SD_SUCCESS) + return; + } + else + strncpy(aare_apdu.auth_info.u.pw_auth.password, + a_auth_password_dec(aCtx->asn1r_field_ptr), ACSE_MAX_LEN_PASSWORD); + + asn1_skip_elmnt (aCtx); /* Skip over this ASN.1 element. */ + break; + + case AARE_user_info: + if (!aCtx->asn1r_constr_elmnt) + { + asn1r_set_dec_err (aCtx, ASN1E_UNEXPECTED_FORM); /* Must be constructor */ + return; + } +#if defined (MOSI) + aCtx->asn1r_decode_method = ASN1_TAG_METHOD; /* Use asn1_tag method for decoding. */ + /* Set the PCI to be expected in PDV-list decode. */ + expected_pdv_pci = decode_acse_conn->pcimms; + ASN1R_TAG_ADD (aCtx, UNI|CONSTR,EXTERN_CODE,START_pdv_list); /* see copp_dec.c*/ + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = END_user_info; +#else /* !MOSI */ + /* This is MMS user data. Just pass up for MMS user to decode. */ + aare_apdu.user_info.ptr = aCtx->asn1r_field_ptr; + aare_apdu.user_info.len = aCtx->asn1r_elmnt_len; + asn1_skip_elmnt (aCtx); /* Skip over this ASN.1 element. */ +#endif /* !MOSI */ + break; + + default: /* Don't know how to decode. */ + ACSELOG_DEC1 ("AARE unrecognized tag %d. Ignored.", id_code); + asn1_skip_elmnt (aCtx); /* Skip over this ASN.1 element. */ + break; + } /* End "switch (id_code)" */ + } + +/************************************************************************/ +/* decode_aare_done */ +/************************************************************************/ +static ST_VOID decode_aare_done (ASN1_DEC_CTXT *aCtx) + { +#if defined (MOSI) + if (expected_pdv_pci == decode_acse_conn->pcimms) + { /* only set these if this is MMS (not ACSE) data */ + aare_apdu.user_info.ptr = pdv_data_ptr; + aare_apdu.user_info.len = pdv_data_len; + } +#else /* !MOSI */ + acse_tag = TAG_AARE; +#endif /* !MOSI */ + aCtx->asn1r_decode_done_fun = decode_acse_done; + } + +/************************************************************************/ +/* decode_rlrq */ +/************************************************************************/ +static ST_VOID decode_rlrq (ASN1_DEC_CTXT *aCtx) + { + aCtx->asn1r_decode_method = ASN1_CLASS_METHOD; /* Use ASN1_CLASS_METHOD method to decode. */ + aCtx->asn1r_c_id_fun = decode_rlrq_main; + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = decode_rlrq_done; + aCtx->asn1r_u_id_fun = asn1r_class_err; /* no universals to start */ + aCtx->asn1r_a_id_fun = asn1r_class_err; /* no applications to start */ + aCtx->asn1r_p_id_fun = asn1r_class_err; /* no privates to start */ + + /* Clean out old stuff from structure. */ + memset (&rlrq_apdu, 0, sizeof (rlrq_apdu)); + } + +/************************************************************************/ +/* decode_rlrq_main */ +/************************************************************************/ +static ST_VOID decode_rlrq_main (ASN1_DEC_CTXT *aCtx, ST_UINT16 id_code) + { + switch (id_code) + { + case RLRQ_reason: + if (aCtx->asn1r_constr_elmnt) + { + asn1r_set_dec_err (aCtx, ASN1E_UNEXPECTED_FORM); /* Must be primitive */ + return; + } + rlrq_apdu.reason_pres = SD_TRUE; + if (asn1r_get_i16 (aCtx, &rlrq_apdu.reason)) + { + asn1r_set_dec_err (aCtx, ASN1E_INVALID_BOOLEAN); + return; + } + break; + + case RLRQ_user_info: + if (!aCtx->asn1r_constr_elmnt) + { + asn1r_set_dec_err (aCtx, ASN1E_UNEXPECTED_FORM); /* Must be constructor */ + return; + } +#if defined (MOSI) + aCtx->asn1r_decode_method = ASN1_TAG_METHOD; /* Use asn1_tag method for decoding. */ + /* Set the PCI to be expected in PDV-list decode. */ + expected_pdv_pci = decode_acse_conn->pcimms; + ASN1R_TAG_ADD (aCtx, UNI|CONSTR,EXTERN_CODE,START_pdv_list); /* see copp_dec.c*/ + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = END_user_info; +#else /* !MOSI */ + /* This is MMS user data. Just pass up for MMS user to decode. */ + rlrq_apdu.user_info.ptr = aCtx->asn1r_field_ptr; + rlrq_apdu.user_info.len = aCtx->asn1r_elmnt_len; + asn1_skip_elmnt (aCtx); /* Skip over this ASN.1 element. */ +#endif /* !MOSI */ + break; + + default: /* Don't know how to decode. */ + ACSELOG_DEC1 ("RLRQ unrecognized tag %d. Ignored.", id_code); + asn1_skip_elmnt (aCtx); /* Skip over this ASN.1 element. */ + break; + } /* End "switch (id_code)" */ + } + +/************************************************************************/ +/* decode_rlrq_done */ +/************************************************************************/ +static ST_VOID decode_rlrq_done (ASN1_DEC_CTXT *aCtx) + { +#if defined (MOSI) + if (expected_pdv_pci == decode_acse_conn->pcimms) + { /* only set these if this is MMS (not ACSE) data */ + rlrq_apdu.user_info.ptr = pdv_data_ptr; + rlrq_apdu.user_info.len = pdv_data_len; + } +#else /* !MOSI */ + acse_tag = TAG_RLRQ; +#endif /* !MOSI */ + aCtx->asn1r_decode_done_fun = decode_acse_done; + } + +/************************************************************************/ +/* decode_rlre */ +/************************************************************************/ +static ST_VOID decode_rlre (ASN1_DEC_CTXT *aCtx) + { + aCtx->asn1r_decode_method = ASN1_CLASS_METHOD; /* Use ASN1_CLASS_METHOD method to decode. */ + aCtx->asn1r_c_id_fun = decode_rlre_main; + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = decode_rlre_done; + aCtx->asn1r_u_id_fun = asn1r_class_err; /* no universals to start */ + aCtx->asn1r_a_id_fun = asn1r_class_err; /* no applications to start */ + aCtx->asn1r_p_id_fun = asn1r_class_err; /* no privates to start */ + + /* Clean out old stuff from structure. */ + memset (&rlre_apdu, 0, sizeof (rlre_apdu)); + } + +/************************************************************************/ +/* decode_rlre_main */ +/************************************************************************/ +static ST_VOID decode_rlre_main (ASN1_DEC_CTXT *aCtx, ST_UINT16 id_code) + { + switch (id_code) + { + case RLRE_reason: + if (aCtx->asn1r_constr_elmnt) + { + asn1r_set_dec_err (aCtx, ASN1E_UNEXPECTED_FORM); /* Must be primitive */ + return; + } + rlre_apdu.reason_pres = SD_TRUE; + if (asn1r_get_i16 (aCtx, &rlre_apdu.reason)) + { + asn1r_set_dec_err (aCtx, ASN1E_INVALID_BOOLEAN); + return; + } + break; + + case RLRE_user_info: + if (!aCtx->asn1r_constr_elmnt) + { + asn1r_set_dec_err (aCtx, ASN1E_UNEXPECTED_FORM); /* Must be constructor */ + return; + } +#if defined (MOSI) + aCtx->asn1r_decode_method = ASN1_TAG_METHOD; /* Use asn1_tag method for decoding. */ + /* Set the PCI to be expected in PDV-list decode. */ + expected_pdv_pci = decode_acse_conn->pcimms; + ASN1R_TAG_ADD (aCtx, UNI|CONSTR,EXTERN_CODE,START_pdv_list); /* see copp_dec.c*/ + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = END_user_info; +#else /* !MOSI */ + /* This is MMS user data. Just pass up for MMS user to decode. */ + rlre_apdu.user_info.ptr = aCtx->asn1r_field_ptr; + rlre_apdu.user_info.len = aCtx->asn1r_elmnt_len; + asn1_skip_elmnt (aCtx); /* Skip over this ASN.1 element. */ +#endif /* !MOSI */ + break; + + default: /* Don't know how to decode. */ + ACSELOG_DEC1 ("RLRE unrecognized tag %d. Ignored.", id_code); + asn1_skip_elmnt (aCtx); /* Skip over this ASN.1 element. */ + break; + } /* End "switch (id_code)" */ + } + +/************************************************************************/ +/* decode_rlre_done */ +/************************************************************************/ +static ST_VOID decode_rlre_done (ASN1_DEC_CTXT *aCtx) + { +#if defined (MOSI) + if (expected_pdv_pci == decode_acse_conn->pcimms) + { /* only set these if this is MMS (not ACSE) data */ + rlre_apdu.user_info.ptr = pdv_data_ptr; + rlre_apdu.user_info.len = pdv_data_len; + } +#else /* !MOSI */ + acse_tag = TAG_RLRE; +#endif /* !MOSI */ + aCtx->asn1r_decode_done_fun = decode_acse_done; + } + +/************************************************************************/ +/* decode_abrt */ +/************************************************************************/ +static ST_VOID decode_abrt (ASN1_DEC_CTXT *aCtx) + { + aCtx->asn1r_decode_method = ASN1_CLASS_METHOD; /* Use ASN1_CLASS_METHOD method to decode. */ + aCtx->asn1r_c_id_fun = decode_abrt_main; + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = decode_abrt_done; + aCtx->asn1r_u_id_fun = asn1r_class_err; /* no universals to start */ + aCtx->asn1r_a_id_fun = asn1r_class_err; /* no applications to start */ + aCtx->asn1r_p_id_fun = asn1r_class_err; /* no privates to start */ + + /* Clean out old stuff from structure. */ + memset (&abrt_apdu, 0, sizeof (abrt_apdu)); + abrt_apdu.source = -1; /* So can verify that gets set by decode*/ + } + +/************************************************************************/ +/* decode_abrt_main */ +/************************************************************************/ +static ST_VOID decode_abrt_main (ASN1_DEC_CTXT *aCtx, ST_UINT16 id_code) + { + switch (id_code) + { + case ABRT_source: + if (aCtx->asn1r_constr_elmnt) + { + asn1r_set_dec_err (aCtx, ASN1E_UNEXPECTED_FORM); /* Must be primitive */ + return; + } + if (asn1r_get_i16 (aCtx, &abrt_apdu.source)) + { + asn1r_set_dec_err (aCtx, ASN1E_INVALID_BOOLEAN); + return; + } + break; + + case ABRT_diagnostic: + if (aCtx->asn1r_constr_elmnt) + { + asn1r_set_dec_err (aCtx, ASN1E_UNEXPECTED_FORM); /* Must be primitive */ + return; + } + if (asn1r_get_i16 (aCtx, &abrt_apdu.diagnostic)) + { + asn1r_set_dec_err (aCtx, ASN1E_INVALID_BOOLEAN); + return; + } + else + abrt_apdu.diagnostic_pres = SD_TRUE; + break; + + case ABRT_user_info: + if (!aCtx->asn1r_constr_elmnt) + { + asn1r_set_dec_err (aCtx, ASN1E_UNEXPECTED_FORM); /* Must be constructor */ + return; + } +#if defined (MOSI) + aCtx->asn1r_decode_method = ASN1_TAG_METHOD; /* Use asn1_tag method for decoding. */ + /* Set the PCI to be expected in PDV-list decode. */ + expected_pdv_pci = decode_acse_conn->pcimms; + ASN1R_TAG_ADD (aCtx, UNI|CONSTR,EXTERN_CODE,START_pdv_list); /* see copp_dec.c*/ + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = END_user_info; +#else /* !MOSI */ + /* This is MMS user data. Just pass up for MMS user to decode. */ + abrt_apdu.user_info.ptr = aCtx->asn1r_field_ptr; + abrt_apdu.user_info.len = aCtx->asn1r_elmnt_len; + asn1_skip_elmnt (aCtx); /* Skip over this ASN.1 element. */ +#endif /* !MOSI */ + break; + + default: /* Don't know how to decode. */ + ACSELOG_DEC1 ("ABRT unrecognized tag %d. Ignored.", id_code); + asn1_skip_elmnt (aCtx); /* Skip over this ASN.1 element. */ + break; + } /* End "switch (id_code)" */ + } + +/************************************************************************/ +/* decode_abrt_done */ +/************************************************************************/ +static ST_VOID decode_abrt_done (ASN1_DEC_CTXT *aCtx) + { + if (abrt_apdu.source == -1) + { + asn1r_set_dec_err (aCtx, ASN1E_END_OF_MESSAGE); /* Did not contain MANDATORY "source". */ + return; + } +#if defined (MOSI) + if (expected_pdv_pci == decode_acse_conn->pcimms) + { /* only set these if this is MMS (not ACSE) data */ + abrt_apdu.user_info.ptr = pdv_data_ptr; + abrt_apdu.user_info.len = pdv_data_len; + } +#else /* !MOSI */ + acse_tag = TAG_ABRT; +#endif /* !MOSI */ + aCtx->asn1r_decode_done_fun = decode_acse_done; + } + +/************************************************************************/ +/* decode_obj_id */ +/************************************************************************/ +static ST_VOID decode_obj_id (ASN1_DEC_CTXT *aCtx) + { + if (asn1r_get_objid (aCtx, my_obj_id->comps,&my_obj_id->num_comps)) + { + asn1r_set_dec_err (aCtx, ASN1E_INVALID_BOOLEAN); + return; + } + /* Go back to ASN1_CLASS_METHOD mode. "aCtx->asn1r_c_id_fun" should still = "decode_????_main"*/ + aCtx->asn1r_decode_method = ASN1_CLASS_METHOD; + return; + } + +/************************************************************************/ +/* decode_i32 */ +/************************************************************************/ +static ST_VOID decode_i32 (ASN1_DEC_CTXT *aCtx) + { + if (asn1r_get_i32 (aCtx, my_i32)) + { + asn1r_set_dec_err (aCtx, ASN1E_INVALID_BOOLEAN); + return; + } + /* Go back to ASN1_CLASS_METHOD mode. "aCtx->asn1r_c_id_fun" should still = "decode_????_main"*/ + aCtx->asn1r_decode_method = ASN1_CLASS_METHOD; + return; + } + +/************************************************************************/ +/* decode_i16 */ +/************************************************************************/ +static ST_VOID decode_i16 (ASN1_DEC_CTXT *aCtx) + { + if (asn1r_get_i16 (aCtx, my_i16)) + { + asn1r_set_dec_err (aCtx, ASN1E_INVALID_BOOLEAN); + return; + } + /* Go back to ASN1_CLASS_METHOD mode. "aCtx->asn1r_c_id_fun" should still = "decode_????_main"*/ + aCtx->asn1r_decode_method = ASN1_CLASS_METHOD; + return; + } + +/************************************************************************/ +/* decode_result_source1 */ +/************************************************************************/ +static ST_VOID decode_result_source1 (ASN1_DEC_CTXT *aCtx) + { + aare_apdu.result_source = 1; + + my_i16 = &aare_apdu.result_diag; + ASN1R_TAG_ADD (aCtx, UNI,INT_CODE,decode_i16); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = decode_constr_done; + + return; + } + +/************************************************************************/ +/* decode_result_source2 */ +/************************************************************************/ +static ST_VOID decode_result_source2 (ASN1_DEC_CTXT *aCtx) + { + aare_apdu.result_source = 2; + + my_i16 = &aare_apdu.result_diag; + ASN1R_TAG_ADD (aCtx, UNI,INT_CODE,decode_i16); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = decode_constr_done; + + return; + } + +/************************************************************************/ +/* decode_acse_done */ +/************************************************************************/ +static ST_VOID decode_acse_done (ASN1_DEC_CTXT *aCtx) + { + return; + } + +/************************************************************************/ +/* decode_constr_done */ +/************************************************************************/ +static ST_VOID decode_constr_done (ASN1_DEC_CTXT *aCtx) + { + return; + } + +/************************************************************************/ +/* asn1_skip_elmnt */ +/* Skip over current ASN.1 element without decoding. */ +/************************************************************************/ +ST_VOID asn1_skip_elmnt (ASN1_DEC_CTXT *aCtx) + { + /* This function can't handle indefinite length encoding. */ + /* Only possible for constr, but let's chk here to be extra paranoid. */ + if (aCtx->asn1r_indef_flag) + { + /* NOTE: if this ever happens, chg code to use asn1r_parse_next. */ + ACSELOG_ERR0 ("asn1_skip_elmnt: indefinite length encoding not supported"); + asn1r_set_dec_err (aCtx, ASN1E_UNEXPECTED_FORM); + return; + } + if (aCtx->asn1r_constr_elmnt) + { + aCtx->asn1r_constr_elmnt = 0; /* Make ASN.1 treat it like primitive. */ + --aCtx->asn1r_msg_level; /* Already incremented for constructor */ + } /* so decrement to act like primitive. */ + aCtx->asn1r_field_ptr += aCtx->asn1r_elmnt_len; + } + +#if defined (MOSI) +/************************************************************************/ +/* END_user_info */ +/************************************************************************/ +static ST_VOID END_user_info (ASN1_DEC_CTXT *aCtx) + { + } +#endif /* MOSI */ + +#ifdef LEAN_T +/************************************************************************/ +/* tp4_except */ +/************************************************************************/ +ST_VOID tp4_except ( + ST_CHAR *filename, /* Source code file name */ + ST_INT line) /* source code line number */ + { + /* DEBUG: need better way to deal with all exceptions. */ + /* How about one exception function, pass component name and errcode */ + ACSELOG_ERR2 ("ERROR: TP4 exception: File = %s, Line = %d", filename, line); + /* DEBUG: create new errcode, or SKIP IT and use only filename/line?? */ + u_a_except (-1L, EX_ACSE_DECODE, filename, line); + } +#endif /* LEAN_T */ + + +/************************************************************************/ +/* a_auth_password_dec */ +/* Authentication password decode function. */ +/* RETURN: pointer to static NULL terminated string containing password.*/ +/* NULL if decode fails. */ +/************************************************************************/ +static ST_CHAR *a_auth_password_dec (ST_UCHAR *asn1_ptr) + { +static ST_CHAR password [ACSE_MAX_LEN_PASSWORD + 1]; +ST_UINT password_len; +ST_CHAR *ret_ptr = NULL; /* assume error */ + + if (asn1_ptr [0] == (CTX|0)) /* Tag 0 - GraphicString */ + { + password_len = asn1_ptr[1]; + if (password_len <= ACSE_MAX_LEN_PASSWORD) + { + memcpy (password, &asn1_ptr [2], password_len); + password [password_len] = 0; /* NULL terminate */ + ret_ptr = password; /* only valid return value */ + } + } + return (ret_ptr); + } + +#if defined (TP4_ENABLED) +/************************************************************************/ +/* a_get_rem_nsap */ +/* RETURN: pointer to NSAP. First byte is length. */ +/************************************************************************/ +#include "tp4.h" /* Need internal TP4 defines */ +ST_UCHAR *a_get_rem_nsap (ST_LONG acse_conn_id) + { +ACSE_CONN *acse_conn; +ST_LONG tp_conn_id; +TP_CONN *tp_conn; + + acse_conn = (ACSE_CONN *) acse_conn_id; + tp_conn_id = acse_conn->tp4_conn_id; + if (tp_conn_id < 0 || tp_conn_id >= tp_cfg.max_num_conns) + return (NULL); /* Invalid conn_id (could be TP0 conn id */ + /* which starts at MIN_TP0_CONN_ID). */ + tp_conn = &tp_conn_arr [tp_conn_id]; + return (tp_conn->rem_nsap); + } +#endif /* defined (TP4_ENABLED) */ + +#if defined (TP0_ENABLED) +/************************************************************************/ +/* a_get_rem_ip_addr */ +/* This function returns the remote IP Address as an unsigned long in */ +/* "network byte order", just like the "standard sockets" function */ +/* "inet_addr" does. If there is an error, it returns */ +/* "htonl (INADDR_NONE)", just like "inet_addr" does. */ +/* The return value can be stored in the appropriate union member */ +/* in the structure "in_addr", which can be passed to "inet_ntoa". */ +/************************************************************************/ +#include "tp4.h" /* Need internal TP4 defines */ +#include "tp0_sock.h" /* Need "sockets" defines */ +ST_ULONG a_get_rem_ip_addr (ST_LONG acse_conn_id) + { +ACSE_CONN *acse_conn; +ST_LONG tp_conn_id; +TP0_CONN *tp0_conn; +ST_INT ret; +SOCKADDR_IN sockaddr_in; +SOCK_ADDRLEN addr_len; + + acse_conn = (ACSE_CONN *) acse_conn_id; + tp_conn_id = acse_conn->tp4_conn_id; + if (tp_conn_id >= MIN_TP0_CONN_ID && + tp_conn_id < tp0_cfg.max_num_conns + MIN_TP0_CONN_ID) + { /* Conn id is a legal TP0 conn id */ + tp0_conn = &tp0_conn_arr [tp_conn_id - MIN_TP0_CONN_ID]; + + addr_len = sizeof (SOCKADDR_IN); /* CRITICAL: set to expected len.*/ + ret = getpeername (tp0_conn->sock_info->hSock, (SOCKADDR *) &sockaddr_in, &addr_len); + if (ret == 0) + return (sockaddr_in.sin_addr.s_addr); + } + + return (htonl (INADDR_NONE)); /* something failed */ + } +#endif /* defined (TP0_ENABLED) */ + + + /************************************************************************/ + /* NOTE: Copied from marb_rx.c, if any changes are required */ + /* consider making them also in marb_rx.c file! */ + /************************************************************************/ + +static ST_VOID _a_dec_auth_value_external (ASN1_DEC_CTXT *aCtx); +static ST_VOID _a_dec_external_singleAsn1Type (ASN1_DEC_CTXT *aCtx); +static ST_VOID _a_dec_external_singleAsn1Type_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID _a_dec_auth_value_external_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID _a_dec_auth_value_graphicString (ASN1_DEC_CTXT *aCtx); +static ST_VOID _a_dec_auth_done (ASN1_DEC_CTXT *aCtx); + +/********************************************************************************/ +/* _a_dec_authentication */ +/*------------------------------------------------------------------------------*/ +/* Decodes Authentication info. The buffer needed to hold authentication info */ +/* is allocated in this function and should be released after connection */ +/* terminates. */ +/* Parameters: */ +/* ACSE_AUTH_INFO *authInfo pointer to the decoded authInfo */ +/* ST_CHAR *auth_value ptr to encoded authentication value */ +/* ST_INT auth_value_len length of the authentication encoding */ +/* Return: */ +/* ST_RET SD_SUCCESS or SD_FAILURE */ +/********************************************************************************/ + +static ST_RET _a_dec_authentication (ACSE_AUTH_INFO *authInfo, /* out */ + ST_UCHAR *auth_value, /* in */ + ST_INT auth_value_len) /* in */ + +{ +ASN1_DEC_CTXT localDecCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_DEC_CTXT *aCtx = &localDecCtx; + + ALOG_DEC0 ("Decoding Authentication"); + memset (aCtx, 0, sizeof (ASN1_DEC_CTXT)); /* CRITICAL: start clean*/ + + /* Get ptr to association indication information. */ + authInfo->auth_pres = SD_FALSE; /* set in case we fail */ + + if (auth_value_len <= 0) + { + ACSELOG_ERR1 ("_a_dec_authentication: invalid authentication len=%d", auth_value_len); + return (SD_FAILURE); + } + + if (authInfo->mech_type == ACSE_AUTH_MECH_PASSWORD) + ASN1R_TAG_ADD (aCtx, CTX, 0, _a_dec_auth_value_graphicString); + else + ASN1R_TAG_ADD (aCtx, CTX|CONSTR, 2, _a_dec_auth_value_external); + + /* decode the authentication value */ + aCtx->asn1r_decode_method = ASN1_TAG_METHOD; /* Use asn1_tag method for decoding. */ + + aCtx->usr_info[0] = authInfo; /* need to be set by dec funcs */ + + aCtx->asn1r_decode_done_fun = asn1r_done_err; /* done function = error fun */ + aCtx->asn1r_err_fun = NULL; /* set up error detected fun */ + + /* Call function to parse the message */ + asn1r_decode_asn1 (aCtx, auth_value, auth_value_len); + + if (aCtx->asn1r_pdu_dec_err == NO_DECODE_ERR) + { + /* decoding of authentication successful */ + authInfo->auth_pres = SD_TRUE; + return (SD_SUCCESS); + } + + return (SD_FAILURE); + } + +/************************************************************************/ +/* _a_dec_auth_value_external */ +/************************************************************************/ + +static ST_VOID _a_dec_auth_value_external (ASN1_DEC_CTXT *aCtx) + { + ALOG_CDEC0 ("_a_dec_auth_value_external"); + +/* We need to see the Single Asn1 Type constructor */ + ASN1R_TAG_ADD (aCtx, CTX|CONSTR, 0, _a_dec_external_singleAsn1Type); + } + + +/************************************************************************/ +/* _a_dec_external_singleAsn1Type */ +/************************************************************************/ + +static ST_VOID _a_dec_external_singleAsn1Type (ASN1_DEC_CTXT *aCtx) + { + ALOG_CDEC0 ("_a_dec_external_singleAsn1Type"); + +/* OK, we are at the start of the data ... just record the position */ + aCtx->usr_info[1] = ASN1_DEC_PTR(aCtx); + + asn1r_parse_next (aCtx, _a_dec_external_singleAsn1Type_done); /* parse entire element */ + } + + +/************************************************************************/ +/* _a_dec_external_singleAsn1Type_done */ +/************************************************************************/ + +static ST_VOID _a_dec_external_singleAsn1Type_done (ASN1_DEC_CTXT *aCtx) + { +ACSE_AUTH_INFO *authInfo = (ACSE_AUTH_INFO *) aCtx->usr_info[0]; +ST_UCHAR *data_start; +ST_INT data_len; + + ALOG_CDEC0 ("_a_dec_external_singleAsn1Type_done"); + + data_start = (ST_UCHAR *) aCtx->usr_info[1]; + data_len = aCtx->asn1r_octetcount; + + authInfo->u.other_auth.auth_value.len = data_len; + authInfo->u.other_auth.auth_value.buf = authInfo->u.other_auth.auth_value.ptr = + (ST_UCHAR *) chk_calloc (data_len, sizeof(ST_CHAR)); + memcpy (authInfo->u.other_auth.auth_value.ptr, data_start, data_len); + + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = _a_dec_auth_value_external_done; + } + +/************************************************************************/ +/* _a_dec_auth_value_external_done */ +/************************************************************************/ + +static ST_VOID _a_dec_auth_value_external_done (ASN1_DEC_CTXT *aCtx) + { + ALOG_CDEC0 ("_a_dec_auth_value_external_done"); + aCtx->asn1r_decode_done_fun = _a_dec_auth_done; + aCtx->asn1r_decode_done = SD_TRUE; + } + + +/************************************************************************/ +/* _a_dec_auth_value_graphicString */ +/************************************************************************/ + +static ST_VOID _a_dec_auth_value_graphicString (ASN1_DEC_CTXT *aCtx) + { +ACSE_AUTH_INFO *authInfo = (ACSE_AUTH_INFO *) aCtx->usr_info[0]; +ST_INT password_len; + + ALOG_CDEC0 ("_a_dec_auth_value_graphicString"); + +/* OK, here we have the data we need */ + password_len = ASN1_DEC_LEN(aCtx); + if (password_len <= ACSE_MAX_LEN_PASSWORD) + { + memcpy (authInfo->u.pw_auth.password, ASN1_DEC_PTR(aCtx), password_len); + authInfo->u.pw_auth.password[password_len] = 0; /* NULL terminate */ + aCtx->asn1r_decode_done_fun = _a_dec_auth_done; + } + else + { + ACSELOG_ERR1 ("_a_dec_auth_value: password too long (%d bytes)", password_len); + authInfo->u.pw_auth.password[0] = 0; /* NULL password */ + asn1r_set_dec_err (aCtx, ASN1E_INVALID_LENGTH); + } + aCtx->asn1r_decode_done = SD_TRUE; + } + +/************************************************************************/ +/* _a_dec_auth_done */ +/************************************************************************/ + +static ST_VOID _a_dec_auth_done (ASN1_DEC_CTXT *aCtx) + { + ALOG_CDEC0 ("_a_dec_auth_done"); + } + diff --git a/mmslib/ositcps/acse2dib.c b/mmslib/ositcps/acse2dib.c new file mode 100644 index 0000000..e162851 --- /dev/null +++ b/mmslib/ositcps/acse2dib.c @@ -0,0 +1,522 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2003 - 2003, All Rights Reserved */ +/* */ +/* MODULE NAME : acse2dib.c */ +/* PRODUCT(S) : MMS-LITE */ +/* */ +/* MODULE DESCRIPTION : Address matching functions. */ +/* */ +/* NOTE: !!! If changes are made to this file the same changes */ +/* have to be made in the marb_dib.c (MMS-EASE). */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/28/05 JRB 03 Del suicacse header. */ +/* 06/16/03 EJV 02 Renamed m_match.c to acse2dib.c */ +/* 06/02/03 MDE 01 Created */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" + +#include "acse2.h" + + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +static ST_CHAR *thisFileName = __FILE__; +#endif + + +/************************************************************************/ +/* Internal Functions */ + +static ST_VOID _dib_match_ap_title (DIB_MATCH_CTRL *matchCtrl, + ST_INT *matchLevel, + ST_BOOLEAN ind_pres, MMS_OBJ_ID *ind_apTitle, + ST_BOOLEAN dib_pres, MMS_OBJ_ID *dib_apTitle); +static ST_VOID _dib_match_ae_int (DIB_MATCH_CTRL *matchCtrl, + ST_INT *matchLevel, + ST_BOOLEAN ind_pres, ST_INT32 ind_val, + ST_BOOLEAN dib_pres, ST_INT32 dib_val, + ST_CHAR *itemText); +static ST_VOID _dib_match_mem (ST_INT *matchLevel, + ST_INT ind_sel_len, ST_UCHAR *ind_sel, + ST_INT dib_sel_len, ST_UCHAR *dib_sel, + ST_CHAR *sel_text); +static ST_VOID _dib_match_ae_present_flag (DIB_MATCH_CTRL *matchCtrl, + ST_INT *matchLevelIo, + ST_CHAR *aeElText, + ST_BOOLEAN dibPres, + ST_BOOLEAN remotePres, + ST_BOOLEAN *doCompareOut); + +/************************************************************************/ +/* ml_match_remote_ar */ +/************************************************************************/ + +ST_RET dib_match_remote_ar (DIB_MATCH_CTRL *matchCtrl, + AARQ_APDU *aarq, DIB_ENTRY **dib_entry_out) + { +ST_INT i; +DIB_ENTRY *de; +DIB_ENTRY *closeDe; +ST_INT remMatch; + + ACSELOG_DIB0 ("Matching Remote AR"); + closeDe = NULL; + for (i = 0; i < num_rem_dib_entries; ++i) + { + de = &rem_dib_table[i]; + ACSELOG_DIB1C (" Remote AR '%s'", de->name); + remMatch = dib_cmp_remote_addr (matchCtrl, aarq, de); + if (remMatch == DIB_MATCH_EXACT) + { + *dib_entry_out = de; + ACSELOG_DIB1C ("Exact Match: '%s'", de->name); + return (SD_SUCCESS); + } + if (remMatch == DIB_MATCH_CLOSE && closeDe == NULL) + closeDe = de; + } + + if (closeDe != NULL) + { + *dib_entry_out = closeDe; + ACSELOG_DIB1C ("Close Match: '%s'", closeDe->name); + return (SD_SUCCESS); + } + + return (SD_FAILURE); + } + +/************************************************************************/ +/* dib_match_local_ar */ +/************************************************************************/ + +ST_RET dib_match_local_ar (DIB_MATCH_CTRL *matchCtrl, + AARQ_APDU *aarq, DIB_ENTRY **dib_entry_out) + { +ST_INT i; +DIB_ENTRY *de; +DIB_ENTRY *closeDe; +ST_INT locMatch; + + ACSELOG_DIB0 ("Matching Local AR"); + closeDe = NULL; + for (i = 0; i < num_loc_dib_entries; ++i) + { + de = &loc_dib_table[i]; + ACSELOG_DIB1C (" Local AR '%s'", de->name); + locMatch = dib_cmp_local_addr (matchCtrl,aarq, de); + if (locMatch == DIB_MATCH_EXACT) + { + ACSELOG_DIB1C ("Exact Match: '%s'", de->name); + *dib_entry_out = de; + return (SD_SUCCESS); + } + + if (locMatch == DIB_MATCH_CLOSE && closeDe == NULL) + closeDe = de; + } + + if (closeDe != NULL) + { + ACSELOG_DIB1C ("Close Match: '%s'", de->name); + *dib_entry_out = closeDe; + return (SD_SUCCESS); + } + + return (SD_FAILURE); + } + + +/************************************************************************/ +/************************************************************************/ +/* dib_cmp_local_addr */ +/************************************************************************/ + +ST_INT dib_cmp_local_addr (DIB_MATCH_CTRL *matchCtrl, + AARQ_APDU *aarq, DIB_ENTRY *dib_entry) + { +ST_INT matchLevel; + +/* The best we can do ... */ + matchLevel = DIB_MATCH_EXACT; + +/* Compare local network address with dib entry */ +#if 0 + if (matchCtrl->match_net_addr) + { + if (aarq->transport == TCP) + { + _dib_match_mem (&matchLevel, + strlen (aarq->ip_addr), aarq->ip_addr, + strlen (dib_entry->ip_addr), dib_entry->ip_addr, + "Local IP Address"); + if (matchLevel == DIB_MATCH_NOT) + return (DIB_MATCH_NOT); + } + else if (aarq->transport == TP4) + { + _dib_match_mem (&matchLevel, + aarq->net_addr_len,aarq->net_addr, + dib_entry->net_addr_len, dib_entry->net_addr, + "Local Network Address"); + if (matchLevel == DIB_MATCH_NOT) + return (DIB_MATCH_NOT); + } + else + { + ACSELOG_ERR1 ("Transport type problem: %d", aarq->transport); + return (DIB_MATCH_NOT); + } + } +#endif + + +/* Compare selectors with dib entry */ + /* PSEL */ + if (matchCtrl->match_psel) + { + _dib_match_mem (&matchLevel, aarq->called_paddr.psel_len, aarq->called_paddr.psel, + dib_entry->pres_addr.psel_len, dib_entry->pres_addr.psel, + "PSEL"); + if (matchLevel == DIB_MATCH_NOT) + return (DIB_MATCH_NOT); + } + + /* SSEL */ + if (matchCtrl->match_ssel) + { + _dib_match_mem (&matchLevel, aarq->called_paddr.ssel_len, aarq->called_paddr.ssel, + dib_entry->pres_addr.ssel_len, dib_entry->pres_addr.ssel, + "SSEL"); + if (matchLevel == DIB_MATCH_NOT) + return (DIB_MATCH_NOT); + } + + /* TSEL */ + if (matchCtrl->match_tsel) + { + _dib_match_mem (&matchLevel, aarq->called_paddr.tsel_len, aarq->called_paddr.tsel, + dib_entry->pres_addr.tsel_len, dib_entry->pres_addr.tsel, + "TSEL"); + if (matchLevel == DIB_MATCH_NOT) + return (DIB_MATCH_NOT); + } + +/* Now compare AE Titles */ + /* AP Title */ + if (matchCtrl->match_ap_title) + { + _dib_match_ap_title (matchCtrl,&matchLevel, + aarq->called_ae_title.AP_title_pres, &aarq->called_ae_title.AP_title, + dib_entry->AP_title_pres, &dib_entry->AP_title); + if (matchLevel == DIB_MATCH_NOT) + return (DIB_MATCH_NOT); + } + + /* AE Qualifier */ + if (matchCtrl->match_ae_qualifier) + { + _dib_match_ae_int (matchCtrl, &matchLevel, + aarq->called_ae_title.AE_qual_pres, aarq->called_ae_title.AE_qual, + dib_entry->AE_qual_pres, dib_entry->AE_qual, + "AE Qualifier"); + if (matchLevel == DIB_MATCH_NOT) + return (DIB_MATCH_NOT); + } + + /* AP Invoke ID */ + if (matchCtrl->match_ap_invoke) + { + _dib_match_ae_int (matchCtrl, &matchLevel, + aarq->called_ae_title.AP_inv_id_pres, aarq->called_ae_title.AP_inv_id, + dib_entry->AP_inv_id_pres, dib_entry->AP_invoke_id, + "AP invoke ID"); + if (matchLevel == DIB_MATCH_NOT) + return (DIB_MATCH_NOT); + } + + /* AE Invoke ID */ + if (matchCtrl->match_ae_invoke) + { + _dib_match_ae_int (matchCtrl, &matchLevel, + aarq->called_ae_title.AE_inv_id_pres, aarq->called_ae_title.AE_inv_id, + dib_entry->AE_inv_id_pres, dib_entry->AE_invoke_id, + "AE invoke ID"); + if (matchLevel == DIB_MATCH_NOT) + return (DIB_MATCH_NOT); + } + return (matchLevel); /* exact */ + } + + +/************************************************************************/ +/* dib_cmp_remote_addr */ +/************************************************************************/ + +ST_INT dib_cmp_remote_addr (DIB_MATCH_CTRL *matchCtrl, + AARQ_APDU *aarq, DIB_ENTRY *dib_entry) + { +ST_INT matchLevel; + +/* The best we can do ... */ + matchLevel = DIB_MATCH_EXACT; + +/* Compare partner network address with dib entry */ +#if 0 + if (matchCtrl->match_net_addr) + { + if (aarq->transport == TCP) + { + _dib_match_mem (&matchLevel, + strlen (aarq->part_ip_addr), aarq->part_ip_addr, + strlen (dib_entry->ip_addr), dib_entry->ip_addr, + "Remote IP Address"); + if (matchLevel == DIB_MATCH_NOT) + return (DIB_MATCH_NOT); + } + else if (aarq->transport == TP4) + { + _dib_match_mem (&matchLevel, + aarq->part_net_addr_len,aarq->part_net_addr, + dib_entry->net_addr_len, dib_entry->net_addr, + "Remote Network Address"); + if (matchLevel == DIB_MATCH_NOT) + return (DIB_MATCH_NOT); + } + else + { + ACSELOG_ERR1 ("Transport type problem: %d", aarq->transport); + return (DIB_MATCH_NOT); + } + } +#endif + +/* Compare selectors with dib entry */ + /* PSEL */ + if (matchCtrl->match_psel) + { + _dib_match_mem (&matchLevel, aarq->calling_paddr.psel_len, aarq->calling_paddr.psel, + dib_entry->pres_addr.psel_len, dib_entry->pres_addr.psel, + "PSEL"); + if (matchLevel == DIB_MATCH_NOT) + return (DIB_MATCH_NOT); + } + + /* SSEL */ + if (matchCtrl->match_ssel) + { + _dib_match_mem (&matchLevel, aarq->calling_paddr.ssel_len, aarq->calling_paddr.ssel, + dib_entry->pres_addr.ssel_len, dib_entry->pres_addr.ssel, + "SSEL"); + if (matchLevel == DIB_MATCH_NOT) + return (DIB_MATCH_NOT); + } + + /* TSEL */ + if (matchCtrl->match_tsel) + { + _dib_match_mem (&matchLevel, aarq->calling_paddr.tsel_len, aarq->calling_paddr.tsel, + dib_entry->pres_addr.tsel_len, dib_entry->pres_addr.tsel, + "TSEL"); + if (matchLevel == DIB_MATCH_NOT) + return (DIB_MATCH_NOT); + } + +/* Now compare AE Titles */ +/* AP Title */ + if (matchCtrl->match_ap_title) + { + _dib_match_ap_title (matchCtrl, &matchLevel, + aarq->calling_ae_title.AP_title_pres, &aarq->calling_ae_title.AP_title, + dib_entry->AP_title_pres, &dib_entry->AP_title); + if (matchLevel == DIB_MATCH_NOT) + return (DIB_MATCH_NOT); + } + + /* AE Qualifier */ + if (matchCtrl->match_ae_qualifier) + { + _dib_match_ae_int (matchCtrl, &matchLevel, + aarq->calling_ae_title.AE_qual_pres, aarq->calling_ae_title.AE_qual, + dib_entry->AE_qual_pres, dib_entry->AE_qual, + "AE Qualifier"); + if (matchLevel == DIB_MATCH_NOT) + return (DIB_MATCH_NOT); + } + + /* AP Invoke ID */ + if (matchCtrl->match_ap_invoke) + { + _dib_match_ae_int (matchCtrl, &matchLevel, + aarq->calling_ae_title.AP_inv_id_pres, aarq->calling_ae_title.AP_inv_id, + dib_entry->AP_inv_id_pres, dib_entry->AP_invoke_id, + "AP invoke ID"); + if (matchLevel == DIB_MATCH_NOT) + return (DIB_MATCH_NOT); + } + + /* AE Invoke ID */ + if (matchCtrl->match_ae_invoke) + { + _dib_match_ae_int (matchCtrl, &matchLevel, + aarq->calling_ae_title.AE_inv_id_pres, aarq->calling_ae_title.AE_inv_id, + dib_entry->AE_inv_id_pres, dib_entry->AE_invoke_id, + "AE invoke ID"); + if (matchLevel == DIB_MATCH_NOT) + return (DIB_MATCH_NOT); + } + + return (matchLevel); + } + +/************************************************************************/ +/* _dib_match_ap_title */ +/************************************************************************/ + +/* Set match level to DIB_MATCH_NOT, or leave alone */ + +static ST_VOID _dib_match_ap_title (DIB_MATCH_CTRL *matchCtrl, + ST_INT *matchLevel, + ST_BOOLEAN ind_pres, MMS_OBJ_ID *ind_apTitle, + ST_BOOLEAN dib_pres, MMS_OBJ_ID *dib_apTitle) + { +ST_CHAR *itemText = "AP Title"; +ST_BOOLEAN doCompare; + + _dib_match_ae_present_flag (matchCtrl, matchLevel, itemText, dib_pres, + ind_pres, &doCompare); +/* See if we need to compare */ + if (doCompare) + { + if (asn1_objidcmp (ind_apTitle, dib_apTitle)) + { + ACSELOG_DIB1C (" %s mismatch", itemText); + *matchLevel = DIB_MATCH_NOT; + return; + } + } + } + +/************************************************************************/ +/* _dib_match_ae_int */ +/************************************************************************/ + +/* Set match level to DIB_MATCH_NOT, or leave alone */ + +static ST_VOID _dib_match_ae_int (DIB_MATCH_CTRL *matchCtrl, ST_INT *matchLevel, + ST_BOOLEAN ind_pres, ST_INT32 ind_val, + ST_BOOLEAN dib_pres, ST_INT32 dib_val, + ST_CHAR *itemText) + { +ST_BOOLEAN doCompare; + + _dib_match_ae_present_flag (matchCtrl, matchLevel, itemText, dib_pres, + ind_pres, &doCompare); + +/* OK, we matched, see if we need to compare */ + if (doCompare) + { + if (ind_val != dib_val) + { + ACSELOG_DIB1C (" %s mismatch", itemText); + *matchLevel = DIB_MATCH_NOT; + return; + } + } + } + +/************************************************************************/ +/* _dib_match_mem */ +/************************************************************************/ + +/* Set match level to DIB_MATCH_NOT, or leave alone */ + +static ST_VOID _dib_match_mem (ST_INT *matchLevel, + ST_INT ind_sel_len, ST_UCHAR *ind_sel, + ST_INT dib_sel_len, ST_UCHAR *dib_sel, + ST_CHAR *sel_text) + { +/* See if the selectors match */ + if (ind_sel_len == dib_sel_len && + !memcmp (ind_sel, dib_sel, ind_sel_len)) + { + return; + } + + ACSELOG_DIB1C (" %s mismatch", sel_text); + *matchLevel = DIB_MATCH_NOT; + return; + } + +/************************************************************************/ +/* _dib_match_ae_present_flag */ +/************************************************************************/ + +/* Set match level to DIB_MATCH_CLOSE or DIB_MATCH_NOT, or leave alone */ + +static ST_VOID _dib_match_ae_present_flag (DIB_MATCH_CTRL *matchCtrl, + ST_INT *matchLevelIo, + ST_CHAR *aeElText, + ST_BOOLEAN dibPres, + ST_BOOLEAN remotePres, + ST_BOOLEAN *doCompareOut) + { + +/* If the remote sent the parameter and it is in the DIB, SUCCESS */ + if (dibPres == remotePres) + { + *doCompareOut = dibPres; /* If it is present, then compare it */ + return; + } + *doCompareOut = SD_FALSE; /* Can't compare */ + +/* OK, this is more complicated. We need to find out what the mismatch */ +/* is and what the user wants to do about it. */ + + if (!remotePres) + { + if (matchCtrl->match_allow_missing_ae_elements) + { + ACSELOG_DIB1C (" Remote did not send: %s, ignoring", aeElText); + if (*matchLevelIo == DIB_MATCH_EXACT) + *matchLevelIo = DIB_MATCH_CLOSE; + } + else + { + ACSELOG_DIB1C (" Remote did not send required: %s", aeElText); + *matchLevelIo = DIB_MATCH_NOT; + } + } + + if (remotePres) + { + if (matchCtrl->match_allow_extra_ae_elements) + { + ACSELOG_DIB1C (" Remote sent unexpected: %s, ignoring", aeElText); + if (*matchLevelIo == DIB_MATCH_EXACT) + *matchLevelIo = DIB_MATCH_CLOSE; + } + else + { + ACSELOG_DIB1C (" Remote sent unexpected: %s", aeElText); + *matchLevelIo = DIB_MATCH_NOT; + } + } + } + + + diff --git a/mmslib/ositcps/acse2enc.c b/mmslib/ositcps/acse2enc.c new file mode 100644 index 0000000..6a90400 --- /dev/null +++ b/mmslib/ositcps/acse2enc.c @@ -0,0 +1,1334 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1995-2008, All Rights Reserved */ +/* */ +/* MODULE NAME : acse2enc.c */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : */ +/* ACSE Encode Functions. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 02/27/08 EJV 35 a_associate_rsp: do not free acse_conn. */ +/* 11/07/06 EJV 34 MMSEASE_MOSI:elim HPUX warn when logging PSEL*/ +/* 07/06/05 EJV 33 a_associate_req: log "IP ADDR: ip" same line,*/ +/* MMSEASE_MOSI: log local PSEL,SSEL,TSEL. */ +/* 05/06/05 EJV 32 Log PORT if configured. */ +/* 01/24/05 JRB 31 Move acse_debug_sel & "*_logstr" to lean_var.c*/ +/* 09/17/04 JRB 30 a_abort_req: don't access acse_conn after */ +/* copp_u_abort_req (it may have been freed). */ +/* 08/06/04 EJV 29 Added typecast (ST_UCHAR *) ...password. */ +/* 03/04/04 JRB 28 Mov thisFil.. after incs, they may define DEBUG_..*/ +/* Del logging of A-DATA.req (use MVL or COPP) */ +/* 12/18/03 JRB 27 If MOSI, use cosp_buf, DON't use acse_buf. */ +/* Use ASN1_ENC_PTR, ASN1_ENC_LEN macros. */ +/* 10/21/03 JRB 26 Add a_get_event_handles_unix. */ +/* 08/20/03 EJV 25 Chg cosp_msgsize to fit larger User Data */ +/* ACSE_AUTH_ENABLED code wo/define. */ +/* Added security functions. */ +/* Added param to tp4_connect . */ +/* Fix the ACSE Auth encode. */ +/* 06/17/03 EJV 24 Added _acse_dib_logstr. */ +/* 10/22/02 ASK 23 Wrap ifdef TP0_ENABLED around inet_ntoa calls*/ +/* 10/14/02 ASK 22 Added encoding for abort diagnostic. */ +/* 08/26/02 ASK 21 Added password mechanism encoding in */ +/* a_associate_req and a_associate rsp. */ +/* 07/16/02 JRB 20 Add tp0_sock.h for sockets/IP defs. */ +/* 06/26/02 JRB 19 associate_req: Log calling/called address. */ +/* 01/22/02 JRB 18 Add args to copp_initialize (same as MAP30..)*/ +/* Del a_set_msgsize (no longer needed). */ +/* 01/02/02 JRB 17 Converted to use ASN1R (re-entrant ASN1) */ +/* 06/22/01 JRB 16 Fix a_release_rsp handling of STATE_RESP_COLL*/ +/* state per ISO 8650 (was kluged before). */ +/* 03/15/01 JRB 15 Use new SMEM allocation functions. */ +/* 01/04/01 EJV 14 a_get_event_handles used only on _WIN32 */ +/* 09/24/99 JRB 13 a_get_event_handles not used on */ +/* DOS, QNX or VXWORKS */ +/* 09/13/99 MDE 12 Added SD_CONST modifiers */ +/* 08/05/99 JRB 11 Add "a_get_event_handles" function for MOSI. */ +/* 10/08/98 MDE 10 Migrated to updated SLOG interface */ +/* 08/13/98 JRB 09 Lint cleanup. */ +/* 07/10/98 JRB 08 Del *_obj_id, use acse2var.c */ +/* 03/23/98 NAV 07 Free buffers on termination */ +/* 02/16/98 JRB 06 Del or "#if out" unused locals. */ +/* 11/10/97 JRB 05 Chg cosp_buf to (ST_UCHAR *). */ +/* 09/22/97 JRB 04 acse_msgsize MUST be set before copp_init. */ +/* a_data_req (MOSI): check for buffer overflow */ +/* 09/04/97 JRB 03 Pass SPDU msgsize arg to tp4_initialize. */ +/* 07/31/97 JRB 02 copp_bind & a_associate_req set "tp_type" */ +/* in tp4_addr. New TP4 needs it. */ +/* 06/09/97 JRB 01 If !MOSI, on A-ASSOCIATE.rsp-, just set */ +/* state=STATE_IDLE. Don't free as did on 3/7/97*/ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 05/02/97 JRB 24 wr_* functs now ret void, so don't check. */ +/* 04/09/97 JRB 23 a_associate_req return (0L) for any error. */ +/* 03/19/97 JRB 22 Add MOSI "CALLING" support. */ +/* 03/19/97 JRB 21 Encode AARQ in a_associate_req: need for MOSI*/ +/* In a_release_req, chg handling if send fails.*/ +/* Use acse_free_conn to free conn ctrl struct. */ +/* Improve logging. */ +/* Improve release collision handling. */ +/* 03/07/97 JRB 20 Always send result-source-diag on AARE. */ +/* Rechecked spec, and this is MANDATORY. */ +/* 03/07/97 JRB 19 If !MOSI, free acse_conn on negative */ +/* A-Associate.rsp (MOSI frees in COSP). */ +/* 03/07/97 JRB 18 Use new "acse_free_con" to free acse_conn. */ +/* 03/07/97 JRB 17 Added MOSI support. */ +/* 02/11/97 JRB 16 In a_release_rsp, if send fails, don't free */ +/* acse_conn and don't change state. */ +/* 01/23/97 JRB 15 Init acse_debug_sel in copp_initialize. */ +/* 11/18/96 JRB 14 Del acse_dummyfun call. Funct is gone now. */ +/* 11/15/96 JRB 13 Don't initialize globals. */ +/* Move acse_debug_sel global here. */ +/* 08/19/96 MDE 12 Add dummy a_buffers_avail for Reduced Stack */ +/* 08/14/96 JRB 11 Add a_buffers_avail function. */ +/* 07/19/96 JRB 10 Change DEBUG_MMS to DEBUG_SISCO. */ +/* 07/15/96 JRB 09 Only free acse_conn->aarq_apdu.user_info.ptr */ +/* if len != 0 (wasn't alloc'd otherwise). */ +/* 05/02/96 JRB 08 Add STATE_TP4CONN_WAIT. */ +/* 04/23/96 MDE 07 Fixed minor warning */ +/* 04/18/96 JRB 06 a_associate_req return acse_conn_id or NULL */ +/* on error, instead of just SD_SUCCESS or error. */ +/* if (acse_conn->state == STATE_AARE_WAIT) */ +/* in a_abort_req, set to STATE_AARE_ABANDON. */ +/* 03/26/96 MDE 05 Added REDUCED_STACK support */ +/* 03/11/96 JRB 04 Move acse_msgsize here & use for acse_buf. */ +/* 03/07/96 JRB 03 Handle aarq_apdu->user_info.len = 0. */ +/* 01/19/96 JRB 02 Cast constant chars to ST_UCHAR. */ +/* 10/30/95 JRB 01 Created */ +/************************************************************************/ +#include "glbtypes.h" +#include "sysincs.h" +#include "mem_chk.h" +#include "asn1defs.h" +#include "acse2.h" +#if defined (MOSI) +#include "cosp_usr.h" +#include "copp_usr.h" +#endif /* MOSI */ +#if defined (MMSEASE_MOSI) +#include "cosp.h" /* for cosp_only_sel */ +#include "copp.h" /* for only_loc_psel */ +#include "tp4.h" /* for tp0_check_bind_id */ +#endif +#include "tp4api.h" +#include "tp0_sock.h" + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +ST_UINT acse_msgsize; + + +/* Buffer for building init, release, and abort reqests. */ +#if defined (MOSI) +ST_UINT cosp_msgsize; +ST_UCHAR *cosp_buf; /* Buffer containing "acse_buf" + COSP&COPP headers.*/ +static ST_VOID acse_encode_user_info (ASN1_ENC_CTXT *aCtx, ACSE_CONN *acse_conn, BUFFER *user_info); +#else /* !MOSI */ +static ST_UCHAR *acse_buf; +#endif /* !MOSI */ + +#define TP4_EOT 1 /* for tp4_data calls. */ + +/************************************************************************/ +/* copp_initialize */ +/* Save "msg_size". Pass "max_conns" to tp4_initialize. */ +/************************************************************************/ +ST_RET copp_initialize (ST_INT max_conns, ST_UINT msg_size) + { +ST_RET ret; + + + + + acse_msgsize = msg_size; /* Save msg size in global. */ + + /* Always enable error logging. */ +#if defined(DEBUG_SISCO) + acse_debug_sel |= (ACSE_LOG_ERR | COPP_LOG_ERR | COSP_LOG_ERR); +#endif + + if (acse_msgsize == 0) + { /* ACSE user must call a_set_msgsize first. */ + ACSELOG_ERR0 ("ACSE-ERROR: msg size not set"); + return (E_ACSE_INVALID_PARAM); /* Invalid Parameter */ + } +#if defined(MOSI) + cosp_msgsize = max(acse_msgsize, COSP_MAX_UDATA_CON) + MAX_COSP_COPP_HEADER; + cosp_buf = (ST_UCHAR *) M_MALLOC (MSMEM_STARTUP, cosp_msgsize); + + ret = tp4_initialize (max_conns, cosp_msgsize); +#else /* !MOSI */ + acse_buf = (ST_UCHAR *) M_MALLOC (MSMEM_STARTUP, acse_msgsize); + ret = tp4_initialize (max_conns, acse_msgsize); +#endif /* !MOSI */ + return (ret); + } + +/************************************************************************/ +/* copp_terminate */ +/************************************************************************/ +ST_RET copp_terminate (ST_VOID) + { + +#ifdef MOSI + if (cosp_buf) + M_FREE (MSMEM_STARTUP, cosp_buf); +#else + if(acse_buf) + M_FREE (MSMEM_STARTUP, acse_buf); +#endif + + return (tp4_terminate ()); + } + +/************************************************************************/ +/* copp_event */ +/************************************************************************/ +ST_BOOLEAN copp_event (ST_VOID) + { + return (tp4_event ()); + } + +#if !defined (MOSI) /* see copp_enc.c for MOSI bind functs. */ +/************************************************************************/ +/* copp_bind */ +/************************************************************************/ +ST_RET copp_bind (ST_LONG user_bind_id, PRES_ADDR *pres_addr, + ST_INT sharable, ST_INT max_conns) + { +TP4_ADDR tp4_addr; + + ACSELOG_ENC1 ("COPP-Bind Req. user_bind_id =%9ld", user_bind_id); + +#if !defined(REDUCED_STACK) + /* Copy tsel and nsap from pres_addr to tp4_addr struct */ + tp4_addr.tp_type = pres_addr->tp_type; + tp4_addr.tp4_sel_len = pres_addr->tsel_len; + memcpy (tp4_addr.tp4_sel, pres_addr->tsel, pres_addr->tsel_len); + tp4_addr.net_addr_len = pres_addr->nsap_len; + memcpy (tp4_addr.net_addr, pres_addr->nsap, pres_addr->nsap_len); +#else + tp4_addr.adlcAddr = pres_addr->adlcAddr; +#endif + + /* Call tp4_bind. */ + return (tp4_bind (user_bind_id, &tp4_addr, sharable, max_conns)); + } + +/************************************************************************/ +/* copp_unbind */ +/************************************************************************/ +ST_RET copp_unbind (ST_LONG copp_bind_id) + { + ACSELOG_ENC1 ("COPP-Unbind Req. copp_bind_id =%9ld", copp_bind_id); + return (tp4_unbind (copp_bind_id)); + } +#endif /* !MOSI */ + +/************************************************************************/ +/* a_associate_req */ +/************************************************************************/ +ST_LONG a_associate_req ( + ST_LONG copp_bind_id, /* ACSE's bind ID received in u_copp_bind_cnf*/ + ST_LONG user_conn_id, /* USER's connection ID */ + AARQ_APDU *aarq_apdu) /* AARQ_APDU info */ + { +#if !defined (MOSI) +TP4_ADDR tp4_addr; +#endif /* !MOSI */ +ACSE_CONN *acse_conn; +AE_TITLE *ae_title; +ST_UCHAR version1_bit_str = BIT_VERSION1; /* Bit 0 of bitstr (high bit) set */ +ST_UCHAR auth_bit_str = BIT_AUTHENTICATION; + +ST_UCHAR *msg_ptr; +ST_UINT msg_len; +ASN1_ENC_CTXT localEncCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_ENC_CTXT *aCtx = &localEncCtx; +ST_INT j; + + /* Allocate connection tracking structure "acse_conn". */ + acse_conn = (ACSE_CONN *) M_CALLOC (MSMEM_ACSE_CONN, 1, sizeof (ACSE_CONN)); + + /* Save USER's connection ID. Use it in calls to user functions. */ + acse_conn->user_conn_id = user_conn_id; + + /* save the encryption info */ + acse_conn->encrypt_ctrl = aarq_apdu->encrypt_ctrl; + + ACSELOG_ENC2 ("A-ASSOCIATE.req: acse_conn_id =0x%08X user_conn_id =%4ld", + acse_conn, acse_conn->user_conn_id); + ACSELOG_ENC0C ("DST (CALLED) ADDRESS:"); + if (aarq_apdu->called_ae_title.AP_title_pres) + { + for (j = 0; j < aarq_apdu->called_ae_title.AP_title.num_comps; ++j) + { /* Verbose but gets the job done. */ + ACSELOG_ENC2C (" AP_title.comps[%d] = %d", + j, aarq_apdu->called_ae_title.AP_title.comps[j]); + } + } + if (aarq_apdu->called_ae_title.AE_qual_pres) + { + ACSELOG_ENC1C (" AE_qual = %ld", aarq_apdu->called_ae_title.AE_qual); + } + ACSELOG_ENC0C (" PSEL:"); + ACSELOG_ENCH (aarq_apdu->called_paddr.psel_len, aarq_apdu->called_paddr.psel); + ACSELOG_ENC0C (" SSEL:"); + ACSELOG_ENCH (aarq_apdu->called_paddr.ssel_len, aarq_apdu->called_paddr.ssel); + ACSELOG_ENC0C (" TSEL:"); + ACSELOG_ENCH (aarq_apdu->called_paddr.tsel_len, aarq_apdu->called_paddr.tsel); + if (aarq_apdu->called_paddr.tp_type == TP_TYPE_TCP) + { + struct in_addr sin_addr; /* inet_ntoa needs this addr format*/ + sin_addr.s_addr = aarq_apdu->called_paddr.netAddr.ip; +#if defined(TP0_ENABLED) + ACSELOG_ENC1C (" IP ADDR: %s", inet_ntoa (sin_addr)); + if (!aarq_apdu->encrypt_ctrl.encryptMode == S_SEC_ENCRYPT_SSL && + aarq_apdu->called_paddr.port) + ACSELOG_ENC1C (" PORT: %u", (ST_UINT) aarq_apdu->called_paddr.port); +#endif + if (aarq_apdu->encrypt_ctrl.encryptMode == S_SEC_ENCRYPT_SSL) + ACSELOG_ENC1C (" Encryption: SSL, port=%d", aarq_apdu->encrypt_ctrl.u.ssl.port); + else + ACSELOG_ENC0C (" Encryption: None"); + if (aarq_apdu->auth_info.auth_pres) + { + if (aarq_apdu->auth_info.mech_type == ACSE_AUTH_MECH_MACE_CERT) + ACSELOG_ENC0C (" Authentication: MACE"); + else if (aarq_apdu->auth_info.mech_type == ACSE_AUTH_MECH_PASSWORD) + ACSELOG_ENC0C (" Authentication: password"); + else + ACSELOG_ENC0C (" Authentication: other"); + } + else + ACSELOG_ENC0C (" Authentication: None"); + } + else + { + ACSELOG_ENC0C (" NSAP:"); + ACSELOG_ENCH (aarq_apdu->called_paddr.nsap_len, aarq_apdu->called_paddr.netAddr.nsap); + } + + ACSELOG_ENC0C ("SRC (CALLING) ADDRESS:"); + if (aarq_apdu->calling_ae_title.AP_title_pres) + { + for (j = 0; j < aarq_apdu->calling_ae_title.AP_title.num_comps; ++j) + { /* Verbose but gets the job done. */ + ACSELOG_ENC2C (" AP_title.comps[%d] = %d", + j, aarq_apdu->calling_ae_title.AP_title.comps[j]); + } + } + if (aarq_apdu->calling_ae_title.AE_qual_pres) + { + ACSELOG_ENC1C (" AE_qual = %ld", aarq_apdu->calling_ae_title.AE_qual); + } +#if defined (MMSEASE_MOSI) + { + ST_UCHAR *tp0_loc_tsap; + ACSELOG_ENC0C (" PSEL:"); + if (only_loc_psel[0]) + ACSELOG_ENCH ((ST_UINT) only_loc_psel[0], &only_loc_psel[1]); + ACSELOG_ENC0C (" SSEL:"); + if (cosp_only_ssel[0]) + ACSELOG_ENCH ((ST_UINT) cosp_only_ssel[0], &cosp_only_ssel[1]); + ACSELOG_ENC0C (" TSEL:"); + if (tp0_check_bind_id (copp_bind_id, &tp0_loc_tsap) == SD_SUCCESS) + ACSELOG_ENCH ((ST_UINT) tp0_loc_tsap[0], &tp0_loc_tsap[1]); + } +#else + /* NOTE: aarq_apdu->calling_paddr is NOT logged because caller may */ + /* not set it, and even if they do, it is not used. The address */ + /* passed to "copp_bind" is used as the calling_paddr. */ +#endif + + /* Begin encoding request. */ +#if defined (MOSI) + asn1r_strt_asn1_bld (aCtx, cosp_buf,cosp_msgsize); +#else + asn1r_strt_asn1_bld (aCtx, acse_buf,acse_msgsize); +#endif + + asn1r_strt_constr (aCtx); /* Start AARQ APDU constructor */ + /* Write user_info. */ + if (aarq_apdu->user_info.len) + { + asn1r_strt_constr (aCtx); +#if defined (MOSI) + /* PCI's must be set before any encoding. */ + acse_conn->pciacse = 1; + acse_conn->pcimms = 3; + acse_encode_user_info (aCtx, acse_conn, &aarq_apdu->user_info); +#else /* !MOSI */ + asn1r_wr_octstr (aCtx, aarq_apdu->user_info.ptr, aarq_apdu->user_info.len); + /* No P-Contexts in this implementation, so skip transfer-syntax */ + /* and p-context-id. */ +#endif /* !MOSI */ + asn1r_fin_constr (aCtx, AARQ_user_info,CTX,DEF); + } + + if(aarq_apdu->auth_info.auth_pres == SD_TRUE) + { + if(aarq_apdu->auth_info.mech_type == ACSE_AUTH_MECH_PASSWORD) + { + ACSELOG_ENC0C (" Authentication: password"); + /* Write the password value */ + asn1r_strt_constr (aCtx); + asn1r_wr_octstr (aCtx, (ST_UCHAR *) aarq_apdu->auth_info.u.pw_auth.password, + strlen(aarq_apdu->auth_info.u.pw_auth.password)); /* Strip off the NULL */ + asn1r_fin_prim (aCtx, 0,CTX); + asn1r_fin_constr (aCtx, AARQ_CALLING_auth_value,CTX,DEF); + + /* Write the mechanism name (password in this case) */ + asn1r_wr_objid (aCtx, a_auth_password_obj_id.comps, a_auth_password_obj_id.num_comps); + asn1r_fin_prim (aCtx, AARQ_mechanism_name, CTX); + } + else + { + if (aarq_apdu->auth_info.mech_type == ACSE_AUTH_MECH_MACE_CERT) + ACSELOG_ENC0C ("Authentication: MACE"); + else + ACSELOG_ENC0C ("Authentication: other"); + asn1r_strt_constr (aCtx); + asn1r_strt_constr (aCtx); /* Authentication-value */ + asn1r_strt_constr (aCtx); /* Single ASN.1 Type */ + asn1r_wr_octstr (aCtx, aarq_apdu->auth_info.u.other_auth.auth_value.ptr, + aarq_apdu->auth_info.u.other_auth.auth_value.len); + asn1r_fin_constr (aCtx, 0, CTX, SD_FALSE); /* Single ASN.1 Type */ + asn1r_fin_constr (aCtx, 2, CTX, SD_FALSE); /* Authentication-value */ + asn1r_fin_constr (aCtx, AARQ_CALLING_auth_value,CTX,DEF); + + /* Write the mechanism name */ + asn1r_wr_objid (aCtx, aarq_apdu->auth_info.u.other_auth.mech_id.comps, aarq_apdu->auth_info.u.other_auth.mech_id.num_comps); + asn1r_fin_prim (aCtx, AARQ_mechanism_name, CTX); + } + + /* Let's encode the authentication present bit to enable security */ + asn1r_wr_bitstr (aCtx, &auth_bit_str, 1); + asn1r_fin_prim (aCtx, AARQ_acse_requirements, CTX); + } + + /* Write CALLING AE Title (i.e. AP_title, AE_qual, AP_inv_id, AE_inv_id).*/ + ae_title = &aarq_apdu->calling_ae_title; + + if (ae_title->AE_inv_id_pres) + { + asn1r_strt_constr (aCtx); + asn1r_wr_i32 (aCtx, ae_title->AE_inv_id); + asn1r_fin_prim (aCtx, INT_CODE,UNI); + asn1r_fin_constr (aCtx, AARQ_CALLING_AE_inv_id,CTX,DEF); + } + + if (ae_title->AP_inv_id_pres) + { + asn1r_strt_constr (aCtx); + asn1r_wr_i32 (aCtx, ae_title->AP_inv_id); + asn1r_fin_prim (aCtx, INT_CODE,UNI); + asn1r_fin_constr (aCtx, AARQ_CALLING_AP_inv_id,CTX,DEF); + } + + if (ae_title->AE_qual_pres) + { + asn1r_strt_constr (aCtx); + asn1r_wr_i32 (aCtx, ae_title->AE_qual); + asn1r_fin_prim (aCtx, INT_CODE,UNI); + asn1r_fin_constr (aCtx, AARQ_CALLING_AE_qual,CTX,DEF); + } + + if (ae_title->AP_title_pres) + { + asn1r_strt_constr (aCtx); + asn1r_wr_objid (aCtx, ae_title->AP_title.comps, ae_title->AP_title.num_comps); + asn1r_fin_prim (aCtx, OBJ_ID_CODE,UNI); + asn1r_fin_constr (aCtx, AARQ_CALLING_AP_title,CTX,DEF); + } + + + /* Write CALLED AE Title (i.e. AP_title, AE_qual, AP_inv_id, AE_inv_id).*/ + ae_title = &aarq_apdu->called_ae_title; + + if (ae_title->AE_inv_id_pres) + { + asn1r_strt_constr (aCtx); + asn1r_wr_i32 (aCtx, ae_title->AE_inv_id); + asn1r_fin_prim (aCtx, INT_CODE,UNI); + asn1r_fin_constr (aCtx, AARQ_CALLED_AE_inv_id,CTX,DEF); + } + + if (ae_title->AP_inv_id_pres) + { + asn1r_strt_constr (aCtx); + asn1r_wr_i32 (aCtx, ae_title->AP_inv_id); + asn1r_fin_prim (aCtx, INT_CODE,UNI); + asn1r_fin_constr (aCtx, AARQ_CALLED_AP_inv_id,CTX,DEF); + } + + if (ae_title->AE_qual_pres) + { + asn1r_strt_constr (aCtx); + asn1r_wr_i32 (aCtx, ae_title->AE_qual); + asn1r_fin_prim (aCtx, INT_CODE,UNI); + asn1r_fin_constr (aCtx, AARQ_CALLED_AE_qual,CTX,DEF); + } + + if (ae_title->AP_title_pres) + { + asn1r_strt_constr (aCtx); + asn1r_wr_objid (aCtx, ae_title->AP_title.comps, ae_title->AP_title.num_comps); + asn1r_fin_prim (aCtx, OBJ_ID_CODE,UNI); + asn1r_fin_constr (aCtx, AARQ_CALLED_AP_title,CTX,DEF); + } + + /* Write ASO Context Name. */ + if (aarq_apdu->ASO_context_name_pres) + { + asn1r_strt_constr (aCtx); + asn1r_wr_objid (aCtx, aarq_apdu->ASO_context_name.comps, aarq_apdu->ASO_context_name.num_comps); + asn1r_fin_prim (aCtx, OBJ_ID_CODE,UNI); + asn1r_fin_constr (aCtx, AARQ_ASO_context_name,CTX,DEF); + } + + /* Write protocol_version. */ + asn1r_wr_bitstr (aCtx, &version1_bit_str, 1); + asn1r_fin_prim (aCtx, AARQ_protocol_version, CTX); + + asn1r_fin_constr (aCtx, TAG_AARQ,APP,DEF); /* Finish AARQ APDU */ + + msg_ptr = ASN1_ENC_PTR (aCtx); /* point to beginning of PDU. */ + msg_len = ASN1_ENC_LEN (aCtx); + +#if ! (defined(REDUCED_STACK) || defined(MOSI) ) + /* Fastbyte Presentation and Session (2 bytes). */ + *(--msg_ptr) = 0x01; /* Short-CP mode = BER */ + *(--msg_ptr) = (ST_UCHAR) 0xE8; /* Short-SCN, SI = 11101, 0 params */ + msg_len+=2; /* adjust len */ +#endif /* ! (defined(REDUCED_STACK) || defined(MOSI) ) */ + if (msg_len > acse_msgsize) + return (0L); + +#if defined (MOSI) + acse_conn->apdu_ptr = msg_ptr; + acse_conn->apdu_len = msg_len; + /* Send AARQ APDU via P-CONNECT.req */ + if (copp_con_req (copp_bind_id, acse_conn, &aarq_apdu->called_paddr) != SD_SUCCESS) + { + acse_free_con (acse_conn); /* Dump conn tracking struct */ + return (0L); + } + acse_conn->state = STATE_AARE_WAIT; /* Waiting for AARE-apdu */ +#else /* !MOSI */ + /* Save AARQ APDU (in save_buf) to send when tp4 connection */ + /* established (see tp4_connect_cnf). */ + acse_conn->save_buf.len = msg_len; + acse_conn->save_buf.ptr = (ST_UCHAR *) M_MALLOC (MSMEM_ACSE_DATA, msg_len); + memcpy (acse_conn->save_buf.ptr, msg_ptr, msg_len); + + /* Send Transport connect request. */ + /* The connection ID is just a pointer to "acse_conn" cast to a ST_LONG. */ + /* Copy tsel and nsap from aarq_apdu->called_paddr to tp4_addr */ +#if !defined(REDUCED_STACK) + tp4_addr.tp_type = aarq_apdu->called_paddr.tp_type; + tp4_addr.tp4_sel_len = aarq_apdu->called_paddr.tsel_len; + memcpy (tp4_addr.tp4_sel, aarq_apdu->called_paddr.tsel, + aarq_apdu->called_paddr.tsel_len); + tp4_addr.net_addr_len = aarq_apdu->called_paddr.nsap_len; + memcpy (tp4_addr.net_addr, aarq_apdu->called_paddr.nsap, + aarq_apdu->called_paddr.nsap_len); +#else + tp4_addr.adlcAddr = aarq_apdu->called_paddr.adlcAddr; +#endif + + if (tp4_connect (copp_bind_id, (ST_LONG) acse_conn, + &tp4_addr, 0, NULL, NULL) != SD_SUCCESS) + { + acse_free_con (acse_conn); /* Dump conn tracking struct */ + return (0L); + } + acse_conn->state = STATE_TP4CONN_WAIT; /* Waiting for TP4 connection*/ +#endif /* !MOSI */ + return ((ST_LONG)acse_conn); + } + +/************************************************************************/ +/* a_associate_rsp */ +/************************************************************************/ +ST_RET a_associate_rsp ( + ST_LONG acse_conn_id, /* ACSE's connection ID */ + ST_LONG user_conn_id, /* USER's connection ID */ + AARE_APDU *info) /* AARE_APDU info */ + { +AE_TITLE *ae_title; +ST_UCHAR version1_bit_str = BIT_VERSION1; /* Bit 0 of bitstr (high bit) set */ +ST_UCHAR auth_bit_str = BIT_AUTHENTICATION; + +ST_UCHAR *msg_ptr; +ST_UINT msg_len; +ACSE_CONN *acse_conn; +ST_RET retcode; +ASN1_ENC_CTXT localEncCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_ENC_CTXT *aCtx = &localEncCtx; + + ACSELOG_ENC2 ("A-ASSOCIATE.rsp: acse_conn_id =0x%08X user_conn_id =%4ld", + acse_conn_id, user_conn_id); + + acse_conn = (ACSE_CONN *) acse_conn_id; + + if (acse_conn == NULL) + return (E_ACSE_INVALID_CONN_ID); /* Invalid acse_conn_id */ + + if (acse_conn->state != STATE_AASCRSP_WAIT) + return (E_ACSE_INVALID_STATE); /* Invalid state for this operation*/ + + /* Save USER's connection ID. Use it in calls to user functions. */ + acse_conn->user_conn_id = user_conn_id; + + /* Everything looks OK. Go ahead and encode response and send it. */ +#if defined (MOSI) + asn1r_strt_asn1_bld (aCtx, cosp_buf,cosp_msgsize); +#else + asn1r_strt_asn1_bld (aCtx, acse_buf,acse_msgsize); +#endif + + asn1r_strt_constr (aCtx); /* Start AARE APDU constructor */ + /* Write user_info. */ + if (info->user_info.len) + { + asn1r_strt_constr (aCtx); +#if defined (MOSI) + acse_encode_user_info (aCtx, acse_conn, &info->user_info); +#else /* !MOSI */ + asn1r_wr_octstr (aCtx, info->user_info.ptr, info->user_info.len); + /* No P-Contexts in this implementation, so skip transfer-syntax */ + /* and p-context-id. */ +#endif /* !MOSI */ + asn1r_fin_constr (aCtx, AARE_user_info,CTX,DEF); + } + + if(info->auth_info.auth_pres == SD_TRUE) + { + if(info->auth_info.mech_type == ACSE_AUTH_MECH_PASSWORD) + { + /* Write the password value */ + asn1r_strt_constr (aCtx); + asn1r_wr_octstr (aCtx, (ST_UCHAR *) info->auth_info.u.pw_auth.password, + strlen(info->auth_info.u.pw_auth.password)); /* Strip off the NULL */ + asn1r_fin_prim (aCtx, 0,CTX); + asn1r_fin_constr (aCtx, AARE_RESPONDING_auth_value,CTX,DEF); + + /* Write the mechanism name (password in this case) */ + asn1r_wr_objid (aCtx, a_auth_password_obj_id.comps, a_auth_password_obj_id.num_comps); + asn1r_fin_prim (aCtx, AARE_mechanism_name, CTX); + } + else + { + if (info->auth_info.mech_type == ACSE_AUTH_MECH_MACE_CERT) + ACSELOG_ENC0C ("Authentication: MACE"); + else + ACSELOG_ENC0C ("Authentication: other"); + asn1r_strt_constr (aCtx); + asn1r_strt_constr (aCtx); /* Authentication-value */ + asn1r_strt_constr (aCtx); /* Single ASN.1 Type */ + asn1r_wr_octstr (aCtx, info->auth_info.u.other_auth.auth_value.ptr, + info->auth_info.u.other_auth.auth_value.len); + asn1r_fin_constr (aCtx, 0, CTX, SD_FALSE); /* Single ASN.1 Type */ + asn1r_fin_constr (aCtx, 2, CTX, SD_FALSE); /* Authentication-value */ + asn1r_fin_constr (aCtx, AARE_RESPONDING_auth_value,CTX,DEF); + + /* Write the mechanism name */ + asn1r_wr_objid (aCtx, info->auth_info.u.other_auth.mech_id.comps, + info->auth_info.u.other_auth.mech_id.num_comps); + asn1r_fin_prim (aCtx, AARE_mechanism_name, CTX); + } + + /* Let's encode the authentication present bit to enable security */ + asn1r_wr_bitstr (aCtx, &auth_bit_str, 1); + asn1r_fin_prim (aCtx, AARE_RESPONDER_acse_requirements, CTX); + } + + /* Write RESP AE Title (i.e. AP_title, AE_qual, AP_inv_id, AE_inv_id) */ + /* fields of AARE APDU. */ + ae_title = &info->responding_ae_title; + + if (ae_title->AE_inv_id_pres) + { + asn1r_strt_constr (aCtx); + asn1r_wr_i32 (aCtx, ae_title->AE_inv_id); + asn1r_fin_prim (aCtx, INT_CODE,UNI); + asn1r_fin_constr (aCtx, AARE_RESPONDING_AE_inv_id,CTX,DEF); + } + + if (ae_title->AP_inv_id_pres) + { + asn1r_strt_constr (aCtx); + asn1r_wr_i32 (aCtx, ae_title->AP_inv_id); + asn1r_fin_prim (aCtx, INT_CODE,UNI); + asn1r_fin_constr (aCtx, AARE_RESPONDING_AP_inv_id,CTX,DEF); + } + + if (ae_title->AE_qual_pres) + { + asn1r_strt_constr (aCtx); + asn1r_wr_i32 (aCtx, ae_title->AE_qual); + asn1r_fin_prim (aCtx, INT_CODE,UNI); + asn1r_fin_constr (aCtx, AARE_RESPONDING_AE_qual,CTX,DEF); + } + + if (ae_title->AP_title_pres) + { + asn1r_strt_constr (aCtx); + asn1r_wr_objid (aCtx, ae_title->AP_title.comps, ae_title->AP_title.num_comps); + asn1r_fin_prim (aCtx, OBJ_ID_CODE,UNI); + asn1r_fin_constr (aCtx, AARE_RESPONDING_AP_title,CTX,DEF); + } + + /* Write result-source-diagnostic. */ + /* DEBUG: If user required to set "result_source" and "result_diag", */ + /* "result_source_diag_pres" would no longer be needed. */ + if (info->result_source_diag_pres == 0) + { /* User probably didn't set values, so set to default. */ + info->result_source = 1; /* Source = acse-service-user. */ + info->result_diag = 0; /* Diag = null. */ + } + asn1r_strt_constr (aCtx); + asn1r_strt_constr (aCtx); + asn1r_wr_i16 (aCtx, info->result_diag); + asn1r_fin_prim (aCtx, INT_CODE,UNI); + if (info->result_source != 1 && info->result_source != 2) + return (E_ACSE_ENC_ERR); /* Make sure source legal. */ + asn1r_fin_constr (aCtx, info->result_source,CTX,DEF); + asn1r_fin_constr (aCtx, AARE_result_source_diagnostic,CTX,DEF); + + /* Write result */ + asn1r_strt_constr (aCtx); + asn1r_wr_i16 (aCtx, info->result); + asn1r_fin_prim (aCtx, INT_CODE,UNI); + asn1r_fin_constr (aCtx, AARE_result,CTX,DEF); + + /* Write ASO Context Name. */ + if (info->ASO_context_name_pres) + { + asn1r_strt_constr (aCtx); + asn1r_wr_objid (aCtx, info->ASO_context_name.comps, info->ASO_context_name.num_comps); + asn1r_fin_prim (aCtx, OBJ_ID_CODE,UNI); + asn1r_fin_constr (aCtx, AARE_ASO_context_name,CTX,DEF); + } + + /* Write protocol_version. */ + asn1r_wr_bitstr (aCtx, &version1_bit_str, 1); + asn1r_fin_prim (aCtx, AARE_protocol_version, CTX); + + asn1r_fin_constr (aCtx, TAG_AARE,APP,DEF); /* Finish AARE APDU */ + + msg_ptr = ASN1_ENC_PTR (aCtx); /* point to beginning of PDU. */ + msg_len = ASN1_ENC_LEN (aCtx); + +#if !(defined(REDUCED_STACK) || defined(MOSI)) + /* Fastbyte Presentation and Session (2 bytes). */ + *(--msg_ptr) = 0x01; /* Short-CP mode = BER */ + switch (info->result) + { + case 0: + *(--msg_ptr)=(ST_UCHAR)0xF0; /* Short-SAC (SI=11110) 0 params */ + break; + case 1: + *(--msg_ptr)=(ST_UCHAR)0xE3; /* Short-SRF (SI=11100) 0 params, */ + /* transport conn released, permanent */ + break; + case 2: + *(--msg_ptr)=(ST_UCHAR)0xE2; /* Short-SRF (SI=11100) 0 params, */ + /* transport conn released, transient */ + break; + default: + return (E_ACSE_INVALID_PARAM); /* Invalid Parameter */ + } + msg_len+=2; /* adjust len */ +#endif /* !(defined(REDUCED_STACK) || defined(MOSI)) */ + + if (msg_len > acse_msgsize) + return (E_ACSE_BUFFER_OVERFLOW); + +#if defined(MOSI) + acse_conn->apdu_ptr = msg_ptr; + acse_conn->apdu_len = msg_len; + if (info->result) + /* NOTE: COSP will free "acse_conn" after T-disconnect. */ + retcode = copp_con_rsp_neg (acse_conn, -1); /* -1 means "from user" */ + else + { + retcode = copp_con_rsp_pos (acse_conn); + if (retcode == SD_SUCCESS) + acse_conn->state = STATE_ASSOCIATED; + } + if (retcode != SD_SUCCESS) + { + #if 0 + /* EJV 2/27/2008: if copp_con_rsp_* fails then the most probable cause is */ + /* that the socket was disconencted. In this case the */ + /* the tp0_disconnect_ind will free the acse_conn. */ + /* If it was other error the application will issue an abort */ + /* to cleanup the connection. */ + acse_free_con (acse_conn); /* Dump conn tracking struct */ + #endif /* 0 */ + ACSELOG_ENC0 ("ACSE-ERROR: failed to send A-ASSOCIATE.rsp (disconnected socket or other error)."); + return (E_ACSE_SEND_ERR); + } +#else /* !MOSI */ + /* Send via tp4_data. */ + /* The "user_conn_id" is just a pointer to "acse_conn" cast to a ST_LONG.*/ + retcode = tp4_data (acse_conn->tp4_conn_id, TP4_EOT, msg_len, (ST_CHAR *) msg_ptr); + if (retcode != SD_SUCCESS) + { + acse_free_con (acse_conn); /* Dump conn tracking struct */ + return (E_ACSE_SEND_ERR); + } + + if (info->result == 0) + acse_conn->state = STATE_ASSOCIATED; + else + acse_conn->state = STATE_IDLE; +#endif /* !MOSI */ + + return (SD_SUCCESS); + } + +/************************************************************************/ +/* a_release_req */ +/************************************************************************/ +ST_RET a_release_req ( + ST_LONG acse_conn_id, /* ACSE's connection ID */ + RLRQ_APDU *info) /* RLRQ_APDU info */ + { +ST_UCHAR *msg_ptr; +ST_UINT msg_len; +ACSE_CONN *acse_conn; +ASN1_ENC_CTXT localEncCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_ENC_CTXT *aCtx = &localEncCtx; + + acse_conn = (ACSE_CONN *)acse_conn_id; + + ACSELOG_ENC2 ("A-RELEASE.req: acse_conn_id =0x%08X user_conn_id =%4ld", + acse_conn, acse_conn->user_conn_id); + + if (acse_conn == NULL) + return (E_ACSE_INVALID_CONN_ID); /* Invalid acse_conn_id */ + + if (acse_conn->state != STATE_ASSOCIATED) + return (E_ACSE_INVALID_STATE); /* Invalid state for this operation*/ + + /* Everything looks OK. Go ahead and encode request and send it. */ +#if defined (MOSI) + asn1r_strt_asn1_bld (aCtx, cosp_buf,cosp_msgsize); +#else + asn1r_strt_asn1_bld (aCtx, acse_buf,acse_msgsize); +#endif + + asn1r_strt_constr (aCtx); /* Start RLRQ APDU constructor */ + /* Write user_info. */ + if (info->user_info.len) + { + asn1r_strt_constr (aCtx); +#if defined (MOSI) + acse_encode_user_info (aCtx, acse_conn, &info->user_info); +#else /* !MOSI */ + asn1r_wr_octstr (aCtx, info->user_info.ptr, info->user_info.len); + /* No P-Contexts in this implementation, so skip transfer-syntax */ + /* and p-context-id. */ +#endif /* !MOSI */ + asn1r_fin_constr (aCtx, RLRQ_user_info,CTX,DEF); + } + + /* Write Release Reason. */ + if (info->reason_pres) + { + asn1r_wr_i16 (aCtx, info->reason); + asn1r_fin_prim (aCtx, RLRQ_reason,CTX); + } + + asn1r_fin_constr (aCtx, TAG_RLRQ,APP,DEF); /* Finish RLRQ APDU */ + msg_ptr = ASN1_ENC_PTR (aCtx); /* point to beginning of PDU. */ + msg_len = ASN1_ENC_LEN (aCtx); + if (msg_len > acse_msgsize) + return (E_ACSE_BUFFER_OVERFLOW); + +#if defined(MOSI) + acse_conn->apdu_ptr = msg_ptr; + acse_conn->apdu_len = msg_len; + /* Send RLRQ APDU via P-RELEASE.req */ + if (copp_rel_req (acse_conn) != SD_SUCCESS) + return (E_ACSE_SEND_ERR); +#else /* !MOSI */ + /* Send RLRQ APDU via T-DATA.req */ + if (tp4_data (acse_conn->tp4_conn_id, TP4_EOT, msg_len, (ST_CHAR *) msg_ptr) != SD_SUCCESS) + return (E_ACSE_SEND_ERR); +#endif /* !MOSI */ + acse_conn->state = STATE_RLRE_WAIT; + + return (SD_SUCCESS); + } + +/************************************************************************/ +/* a_release_rsp */ +/************************************************************************/ +ST_RET a_release_rsp ( + ST_LONG acse_conn_id, /* ACSE's connection ID */ + RLRE_APDU *info) /* RLRE_APDU info */ + { +ST_UCHAR *msg_ptr; +ST_UINT msg_len; +ACSE_CONN *acse_conn; +ST_RET retcode; +ASN1_ENC_CTXT localEncCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_ENC_CTXT *aCtx = &localEncCtx; + + acse_conn = (ACSE_CONN *)acse_conn_id; + + ACSELOG_ENC2 ("A-RELEASE.rsp: acse_conn_id =0x%08X user_conn_id =%4ld", + acse_conn, acse_conn->user_conn_id); + + if (acse_conn == 0) + return (E_ACSE_INVALID_CONN_ID); /* Invalid acse_conn_id */ + + /* This state may happen, but ACSE state machine says do nothing. */ + if (acse_conn->state == STATE_RESP_COLL) + { + ACSELOG_ENC0C ("A-RELEASE.rsp not sent because this is Responder side of RELEASE collision"); + return (SD_SUCCESS); + } + + if (acse_conn->state != STATE_ARLSRSP_WAIT && + acse_conn->state != STATE_INIT_COLL) + return (E_ACSE_INVALID_STATE); /* Invalid state for this operation*/ + + /* Everything looks OK. Go ahead and encode response and send it. */ +#if defined (MOSI) + asn1r_strt_asn1_bld (aCtx, cosp_buf,cosp_msgsize); +#else + asn1r_strt_asn1_bld (aCtx, acse_buf,acse_msgsize); +#endif + + asn1r_strt_constr (aCtx); /* Start RLRE APDU constructor */ + /* Write user_info. */ + if (info->user_info.len) + { + asn1r_strt_constr (aCtx); +#if defined (MOSI) + acse_encode_user_info (aCtx, acse_conn, &info->user_info); +#else /* !MOSI */ + asn1r_wr_octstr (aCtx, info->user_info.ptr, info->user_info.len); + /* No P-Contexts in this implementation, so skip transfer-syntax */ + /* and p-context-id. */ +#endif /* !MOSI */ + asn1r_fin_constr (aCtx, RLRE_user_info,CTX,DEF); + } + + /* Write Release Reason. */ + if (info->reason_pres) + { + asn1r_wr_i16 (aCtx, info->reason); + asn1r_fin_prim (aCtx, RLRE_reason,CTX); + } + + asn1r_fin_constr (aCtx, TAG_RLRE,APP,DEF); /* Finish RLRE APDU */ + msg_ptr = ASN1_ENC_PTR (aCtx); /* point to beginning of PDU. */ + msg_len = ASN1_ENC_LEN (aCtx); + if (msg_len > acse_msgsize) + return (E_ACSE_BUFFER_OVERFLOW); + +#if defined(MOSI) + acse_conn->apdu_ptr = msg_ptr; + acse_conn->apdu_len = msg_len; + /* NOTE: Only "affirmative" allowed because "Negotiated Release" not */ + /* supported by Session. */ + retcode = copp_rel_rsp_pos (acse_conn); +#else /* !MOSI */ + /* Send Transport Data request. */ + retcode = tp4_data (acse_conn->tp4_conn_id, TP4_EOT, msg_len, (ST_CHAR *) msg_ptr); +#endif /* !MOSI */ + if (retcode != SD_SUCCESS) + return (E_ACSE_SEND_ERR); + + if (acse_conn->state == STATE_ARLSRSP_WAIT) + acse_conn->state = STATE_IDLE; + else /* must be STATE_INIT_COLL */ + acse_conn->state = STATE_RLRE_WAIT; + + return (SD_SUCCESS); + } + +/************************************************************************/ +/* a_abort_req */ +/************************************************************************/ +ST_RET a_abort_req ( + ST_LONG acse_conn_id, /* ACSE's connection ID */ + ABRT_APDU *info) /* ABRT_APDU info */ + { +ST_UCHAR *msg_ptr; +ST_UINT msg_len; +ACSE_CONN *acse_conn; +ASN1_ENC_CTXT localEncCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_ENC_CTXT *aCtx = &localEncCtx; + + + + + acse_conn = (ACSE_CONN *)acse_conn_id; + + ACSELOG_ENC2 ("A-ABORT.req: acse_conn_id =0x%08X user_conn_id =%4ld", + acse_conn, acse_conn->user_conn_id); + + if (acse_conn == NULL) + return (E_ACSE_INVALID_CONN_ID); /* Invalid acse_conn_id */ + + if (acse_conn->state == STATE_IDLE) /* Waiting for T-DISCONNECT */ + return (E_ACSE_INVALID_STATE); /* Invalid state for this operation*/ + +#ifndef MOSI + if (acse_conn->state == STATE_TP4CONN_WAIT) + { + /* Don't free struct now. When get response, don't pass up to user */ + /* and free acse_conn then. */ + acse_conn->state = STATE_AARE_ABANDON; + return (SD_SUCCESS); + } + + if (acse_conn->state == STATE_AARE_WAIT) + { + /* Don't free struct now. When get response, don't pass up to user */ + /* and free acse_conn then. */ + acse_conn->state = STATE_AARE_ABANDON; + return (SD_SUCCESS); + } +#endif /* !MOSI */ + + /* Everything looks OK. Go ahead and encode request and send it. */ +#if defined (MOSI) + asn1r_strt_asn1_bld (aCtx, cosp_buf,cosp_msgsize); +#else + asn1r_strt_asn1_bld (aCtx, acse_buf,acse_msgsize); +#endif + + asn1r_strt_constr (aCtx); /* Start ABRT APDU constructor */ + /* Write user_info. */ + if (info->user_info.len) + { + asn1r_strt_constr (aCtx); +#if defined (MOSI) + acse_encode_user_info (aCtx, acse_conn, &info->user_info); +#else /* !MOSI */ + asn1r_wr_octstr (aCtx, info->user_info.ptr, info->user_info.len); + /* No P-Contexts in this implementation, so skip transfer-syntax */ + /* and p-context-id. */ +#endif /* !MOSI */ + asn1r_fin_constr (aCtx, ABRT_user_info,CTX,DEF); + } + + /* Write Abort Diagnostic. */ + if(info->diagnostic_pres == SD_TRUE) + { + asn1r_wr_i16 (aCtx, info->diagnostic); + asn1r_fin_prim (aCtx, ABRT_diagnostic,CTX); + } + + /* Write Abort Source. */ + asn1r_wr_i16 (aCtx, info->source); + asn1r_fin_prim (aCtx, ABRT_source,CTX); + + asn1r_fin_constr (aCtx, TAG_ABRT,APP,DEF); /* Finish ABRT APDU */ + msg_ptr = ASN1_ENC_PTR (aCtx); /* point to beginning of PDU. */ + msg_len = ASN1_ENC_LEN (aCtx); + if (msg_len > acse_msgsize) + return (E_ACSE_BUFFER_OVERFLOW); + + + + +#if defined(MOSI) + /* Send P-U-Abort Request. */ + acse_conn->apdu_ptr = msg_ptr; + acse_conn->apdu_len = msg_len; + acse_conn->state = STATE_IDLE; /* COSP will free acse_conn. */ + if (copp_u_abort_req (acse_conn) != SD_SUCCESS) + return (E_ACSE_SEND_ERR); + /* CRITICAL: DO NOT access acse_conn after abort. It may have been */ + /* freed by cosp_u_abort_req (called from copp_u_abort_req). */ +#else /* !MOSI */ + /* Send Transport Disconnect request. */ + tp4_disconnect (acse_conn->tp4_conn_id, msg_len, (ST_CHAR *) msg_ptr); + acse_free_con (acse_conn); /* Dump conn tracking struct */ +#endif /* !MOSI */ + + return (SD_SUCCESS); + } + +/************************************************************************/ +/* a_data_req - Send A-Data req. */ +/************************************************************************/ +ST_RET a_data_req ( + ST_LONG acse_conn_id, /* ACSE's ID for this connection */ + ST_UINT data_len, + ST_UCHAR *data) + { +ACSE_CONN *acse_conn; + + acse_conn = (ACSE_CONN *)acse_conn_id; + +#if defined(MOSI) + if (data_len > acse_msgsize) + { /* Should never happen if ACSE user code is correct. */ + ACSELOG_ERR2 ("ACSE-ERROR: A-DATA.req: data len (%d) > max (%d)", + data_len, acse_msgsize); + return (E_ACSE_BUFFER_OVERFLOW); + } + /* Just copy data to end of "cosp_buf" & set apdu_ptr, apdu_len. */ + /* copp_data_req will add COPP encoding in front of this data. */ + acse_conn->apdu_ptr = cosp_buf + cosp_msgsize - data_len; + acse_conn->apdu_len = data_len; + memcpy (acse_conn->apdu_ptr, data, data_len); + + return (copp_data_req (acse_conn)); +#else /* !MOSI */ + return (tp4_data (acse_conn->tp4_conn_id, TP4_EOT, data_len,(ST_CHAR *)data)); +#endif /* !MOSI */ + } + +#if defined (MOSI) +/************************************************************************/ +/* acse_encode_user_info */ +/************************************************************************/ +static ST_VOID acse_encode_user_info (ASN1_ENC_CTXT *aCtx, ACSE_CONN *acse_conn, BUFFER *user_info) + { + asn1r_strt_constr (aCtx); /* start EXTERNAL */ + asn1r_strt_constr (aCtx); /* start single-ASN1-type */ + asn1r_wr_octstr (aCtx, user_info->ptr, user_info->len); + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* finish single-ASN1-type */ + asn1r_wr_i8 (aCtx, acse_conn->pcimms); /* PCI for MMS */ + asn1r_fin_prim (aCtx, INT_CODE,UNI); + + /* NOTE: Transfer-syntax-name (OPTIONAL) not sent. Saves few bytes. */ + + asn1r_fin_constr (aCtx, EXTERN_CODE,UNI,DEF); /* finish EXTERNAL */ + return; + } + +#endif /* MOSI */ + +#if !defined (MOSI) +/************************************************************************/ +/* acse_free_con */ +/*----------------------------------------------------------------------*/ +/* This function will free the pointer to connection info. */ +/* For MOSI, a slightly different "acse_free_con" function is */ +/* defined in COSP????.c */ +/************************************************************************/ +ST_VOID acse_free_con (ACSE_CONN *acse_conn) + { + if (acse_conn->save_buf.len) + M_FREE (MSMEM_ACSE_DATA, acse_conn->save_buf.ptr); + M_FREE (MSMEM_ACSE_CONN, acse_conn); + } +#endif /* !MOSI */ + +/************************************************************************/ +/* a_buffers_avail - Buffers available for sending A-Data req. */ +/* This function returns the number of buffers available for sending */ +/* A-Data. This may be used, for example, when sending Information */ +/* Reports, to make sure there are always enough buffers for sending */ +/* responses to incoming requests. */ +/* */ +/* Parameters: */ +/* ST_LONG acse_conn_id ACSE Connection ID */ +/* */ +/* Return: */ +/* ST_INT # of ACSE transmit buffers available */ +/************************************************************************/ + +#if defined(LEAN_T) || defined(REDUCED_STACK) + +ST_INT a_buffers_avail ( + ST_LONG acse_conn_id) /* ACSE's ID for this connection */ + { +#if defined(LEAN_T) +ACSE_CONN *acse_conn; + + acse_conn = (ACSE_CONN *)acse_conn_id; + + return (tp4_buffers_avail (acse_conn->tp4_conn_id)); +#endif + +#if defined(REDUCED_STACK) + return (2); +#endif + } + +#endif + +#if defined (MOSI) /* Only MOSI uses events. */ +#if defined(_WIN32) +/* Not used for DOS, QNX, or VXWORKS */ +/************************************************************************/ +/* a_get_event_handles */ +/* Returns a pointer to an array of (ST_EVENT_SEM) and sets */ +/* (*pNumEntries) equal to the number of entries. */ +/************************************************************************/ +ST_EVENT_SEM a_get_event_handles (ST_INT *pNumEntries) + { +static ST_EVENT_SEM EventArray [2]; +ST_INT NumEntries = 0; + +#if defined (TP4_ENABLED) + /* If "hMainEvent" initialized, use it instead of default "hMMSEvent"*/ + if (hMainEvent) + EventArray [NumEntries++] = hMainEvent; /* CLNP thread event. */ + else + EventArray [NumEntries++] = hMMSEvent; /* driver event */ +#endif +#if defined (TP0_ENABLED) + EventArray [NumEntries++] = hTcpEvent; /* TCP/IP sockets event */ +#endif + + *pNumEntries = NumEntries; + return (EventArray); + } +#else /* !defined(_WIN32) */ +/************************************************************************/ +/* a_get_event_handles_unix */ +/* Returns a pointer to an array of handles and sets */ +/* (*pNumEntries) equal to the number of entries. */ +/* NOTE: The TP4_ENABLED option currently only works on "linux". */ +/************************************************************************/ +#if defined(TP4_ENABLED) +#if defined(linux) +extern int hPktSock; +#else +#error TP4 not supported on this platform +#endif +#endif +#if defined(TP0_ENABLED) +extern int pipe_to_main; /* DEBUG: move to include */ +#endif +int *a_get_event_handles_unix (ST_INT *pNumEntries) + { +static int fd_array [2]; +ST_INT NumEntries = 0; + +#if defined(TP4_ENABLED) + fd_array[NumEntries++] = hPktSock; +#endif +#if defined(TP0_ENABLED) + fd_array[NumEntries++] = pipe_to_main; +#endif + *pNumEntries = NumEntries; + return (fd_array); + } +#endif /* !defined(_WIN32) */ +#endif /* MOSI */ + + + /*------------------------------------------------------*/ + /* Security functions */ + /*------------------------------------------------------*/ + +/********************************************************************************/ +/* a_get_security_info */ +/*------------------------------------------------------------------------------*/ +/* Returns pointers to encryption control and partner's authentication info */ +/* from the specified channel info. This functions should be called after */ +/* connection indication was received to retrieve the security informations. */ +/* After the connection terminates call the s_free_part_security_info() to free */ +/* the allocated auth_value buf and cleanup the channel info. */ +/* Parameters: */ +/* ST_LONG acse_conn_id indirect ptr to access security info */ +/* S_SEC_PARAMS *secParams pointer where to ret security info. */ +/* Return: */ +/* ST_RET SD_SUCCESS if get operation succeeded, otherwise */ +/* SD_FAILURE or other error. */ +/********************************************************************************/ +ST_RET a_get_security_info (ST_LONG acse_conn_id, S_SEC_SPARAMS *secParams) +{ +ST_RET ret = SD_SUCCESS; +ACSE_CONN *acse_conn; + + secParams->authInfo = NULL; /* local auth info not stored */ + secParams->partAuthInfo = NULL; /* partner auth info */ + secParams->encryptCtrl = NULL; /* connection encryption info */ + + if (acse_conn_id) + { + acse_conn= (ACSE_CONN *) acse_conn_id; + if (acse_conn) + { + secParams->partAuthInfo = &acse_conn->part_auth_info; + secParams->encryptCtrl = &acse_conn->encrypt_ctrl; + } + } + else + ret = SD_FAILURE; /* cc should be valid in this call */ + + return (ret); +} + +/********************************************************************************/ +/* a_free_security_info */ +/*------------------------------------------------------------------------------*/ +/* Releases authentication info resources. */ +/* Parameters: */ +/* ACSE_AUTH_INFO *authInfo ptr to free the security resources */ +/* Return: */ +/* ST_RET SD_SUCCESS if free operation succeeded */ +/* SD_FAILURE otherwise */ +/********************************************************************************/ +ST_RET a_free_security_info (ACSE_AUTH_INFO *authInfo) +{ +ST_RET ret = SD_SUCCESS; + + if (authInfo) + { + /* clear authentication info */ + /* if there is an existing auth_value buf pointer then we have to free it */ + if (authInfo->auth_pres && authInfo->mech_type != ACSE_AUTH_MECH_PASSWORD) + if (authInfo->u.other_auth.auth_value.buf) + { + chk_free (authInfo->u.other_auth.auth_value.buf); + authInfo->u.other_auth.auth_value.buf = NULL; + authInfo->u.other_auth.auth_value.ptr = NULL; + authInfo->u.other_auth.auth_value.len = 0; + } + authInfo->auth_pres = SD_FALSE; + } + + return (ret); +} + + +/********************************************************************************/ +/* a_free_part_security_info */ +/*------------------------------------------------------------------------------*/ +/* Releases partner authentication resources and resets the field in ACSE_CONN. */ +/* Parameters: */ +/* ST_LONG acse_conn_id indirect ptr to access security info */ +/* Return: */ +/* ST_RET SD_SUCCESS if free operation succeeded */ +/* SD_FAILURE otherwise */ +/********************************************************************************/ +ST_RET a_free_part_security_info (ST_LONG acse_conn_id) +{ +ST_RET ret = SD_SUCCESS; +ACSE_CONN *acse_conn; + + if (acse_conn_id) + { + acse_conn= (ACSE_CONN *) acse_conn_id; + if (acse_conn) + ret = a_free_security_info (&acse_conn->part_auth_info); + } + return (ret); +} + diff --git a/mmslib/ositcps/acse2var.c b/mmslib/ositcps/acse2var.c new file mode 100644 index 0000000..3cda39c --- /dev/null +++ b/mmslib/ositcps/acse2var.c @@ -0,0 +1,39 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1995 All Rights Reserved */ +/* */ +/* MODULE NAME : acse2var.c */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : */ +/* Global variables for ACSE component. Used by both connection- */ +/* oriented ACSE and connectionless ACSE. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 09/13/99 MDE 08 Added SD_CONST modifiers */ +/* 07/14/99 JRB 07 Add ACSE Password Authentication obj id. */ +/* 07/10/98 JRB 06 Add *_obj_id so CO and CL ACSE can share. */ +/* 11/15/96 JRB 05 Move acse_debug_sel to acse2enc.c */ +/* 05/02/96 KCR 04 Initialized acse_debug_sel to make sure it */ +/* is pulled into OS/2 library */ +/* 04/17/96 JRB 03 Del acse_sLogCtrl, use sLogCtrl (slog.c) now */ +/* 03/26/96 MDE 02 Chg define to PLAIN_DOS. */ +/* 10/30/95 JRB 01 Created */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "asn1defs.h" + +/* NOTE: we only support ISO MMS Abstract Syntax. No more MAP MMS. */ +SD_CONST MMS_OBJ_ID mms_obj_id = {5,{1,0,9506,2,1}}; /* ISO MMS Abstract Syntax*/ +SD_CONST MMS_OBJ_ID acse_obj_id = {5,{2,2,1,0,1}}; /* ACSE Abstract Syntax*/ +SD_CONST MMS_OBJ_ID asn1_obj_id = {3,{2,1,1}}; /* ASN.1 Transfer Syntax*/ + +SD_CONST MMS_OBJ_ID a_auth_password_obj_id = {4,{2,2,3,1}}; /* ACSE Authent. - Password*/ diff --git a/mmslib/ositcps/checksum.c b/mmslib/ositcps/checksum.c new file mode 100644 index 0000000..2d14127 --- /dev/null +++ b/mmslib/ositcps/checksum.c @@ -0,0 +1,246 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1996, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : checksum.c */ +/* PRODUCT(S) : Lean-T Stack */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module implements the computation of checksum */ +/* using the algorithm defined in Annex B of the ISO 8073 */ +/* or in the ISO 8473. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* checksum_insert */ +/* checksum_verified */ +/* */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 05/12/97 JRB 03 ch*_verified chk c0. Was checking c1 twice. */ +/* Clean up data types. */ +/* Clarify casting computing x,y in ch*_insert. */ +/* 05/07/97 JRB 02 Changed non-ANSI "%hu" to "%u". */ +/* 06/17/96 EJV 01 Created */ +/************************************************************************/ +#if 0 +/* this file is not neccessary when printf will be replaced with slog */ +#include +#endif + +#include "glbtypes.h" +#include "checksum.h" + + +static ST_VOID get_checksum_c0_c1 (ST_UCHAR *buf, ST_UINT16 buf_len, + ST_UCHAR *pC0, ST_UCHAR *pC1); + + +/************************************************************************/ +/* checksum_insert */ +/*----------------------------------------------------------------------*/ +/* This function computes and inserts the 2 byte checksum into a PDU */ +/* buffer at specified position (and position+1). */ +/* The checksum algorithm is described in ISO 8473 (CLNP) and */ +/* ISO 8073 (Transport protocol). */ +/* Note that the maximum len of TPDU in ISO 8073 is 8192 bytes. */ +/* */ +/* Parameters: */ +/* ST_UCHAR *buf Ptr to encoding buffer on which checksum*/ +/* will be computed. */ +/* ST_UINT16 buf_len Length of the buffer (PDU). */ +/* ST_UINT16 position Position of checksum's first byte in buf*/ +/* (position=0 if checksum is the first */ +/* byte in buffer). */ +/* */ +/* Return: */ +/* ST_VOID none */ +/************************************************************************/ +ST_VOID checksum_insert (ST_UCHAR *buf, ST_UINT16 buf_len, ST_UINT16 position) +{ +ST_UCHAR c0, c1; +ST_LONG x, y; /* the checksum's first and second byte */ +ST_UINT16 sum_pos; /* this is the position of checksum first byte */ + /* in the PDU as specified by algorithm, first */ + /* byte position is 1 not 0. */ + + sum_pos = position+1; + + /* make sure the checksum bytes are cleared */ + buf [position] = buf [position+1] = 0; + + get_checksum_c0_c1 (buf, buf_len, &c0, &c1); + +#if 0 + /* LIZ substitute the printf with slogging */ + printf ("\n Checksum computation: c0=0x%2.2X=%u, c1=0x%2.2X=%u", + (ST_UINT) c0, (ST_UINT) c0, (ST_UINT) c1, (ST_UINT) c1); +#endif + + + x = ((ST_LONG) (buf_len-sum_pos) * (ST_LONG) c0 - (ST_LONG) c1) % 255L; + y = ((ST_LONG) c1 - (ST_LONG) (buf_len-sum_pos+1) * (ST_LONG) c0) % 255L; + + buf [position] = (ST_UCHAR) (x <= 0L ? x+255L : x); + buf [position+1] = (ST_UCHAR) (y <= 0L ? y+255L : y); + +#if 0 + /* LIZ substitute the printf with slogging */ + printf ("\n Checksum computation: buf[%u]=%u, buf[%u]=%u", + position, (ST_UINT) buf[position], + position+1,(ST_UINT) buf[position+1]); +#endif +} + + +/************************************************************************/ +/* checksum_verified */ +/*----------------------------------------------------------------------*/ +/* This function verifies the checksum of a PDU. */ +/* The checksum algorithm is described in ISO 8473 (CLNP) and */ +/* ISO 8073 (Transport protocol). */ +/* Note that the maximum len of TPDU in ISO 8073 is 8192 bytes. */ +/* */ +/* Parameters: */ +/* ST_UCHAR *buf Ptr to encoding buffer on which checksum*/ +/* will be computed. */ +/* ST_UINT16 buf_len Length of the buffer (PDU). */ +/* ST_UINT16 position Position of checksum's first byte in buf*/ +/* (position=0 if checksum is the first */ +/* byte in buffer), used only for CLNP. */ +/* ST_BOOLEAN clnp_csum If SD_TRUE the CLNP checksum will be */ +/* verified, if SD_FALSE the Transport Prot. */ +/* checksum will be verified. */ +/* */ +/* Return: */ +/* ST_BOOLEAN SD_TRUE if verification of checksum is */ +/* successful; */ +/* SD_FALSE if verification failed. */ +/************************************************************************/ +ST_BOOLEAN checksum_verified (ST_UCHAR *buf, ST_UINT16 buf_len, ST_UINT16 position, + ST_BOOLEAN clnp_csum) +{ +ST_BOOLEAN checksum_correct; +ST_UCHAR c0, c1; + + checksum_correct = SD_FALSE; + + if (clnp_csum) + { + if (buf [position] != 0 && buf [position+1] != 0) + { + /* if both bytes in checksum are not 0 then we have to compute the */ + /* checksum */ + + get_checksum_c0_c1 (buf, buf_len, &c0, &c1); + +#if 0 + /* LIZ substitute the printf with slogging */ + printf ("\n Checksum verification: c0=0x%2.2X=%u, c1=0x%2.2X=%u", + (ST_UINT) c0, (ST_UINT) c0, (ST_UINT) c1, (ST_UINT) c1); +#endif + + if (c0 == 0 && c1 == 0) + checksum_correct = SD_TRUE; + } + else if (buf [position] == 0 && buf [position+1] == 0) + { + /* if both bytes in checksum are 0 then the checksum should be */ + /* ignored, and is considered as correct. */ + + checksum_correct = SD_TRUE; + } + + /* if one byte (but not both bytes) in checksum is 0 then the */ + /* checksum is invalid. */ + } + else + { + /* transport protocol checksum */ + + get_checksum_c0_c1 (buf, buf_len, &c0, &c1); + + if (c0 == 0 && c1 == 0) + checksum_correct = SD_TRUE; + } + + return (checksum_correct); +} + + +/************************************************************************/ +/* get_checksum_c0_c1 */ +/*----------------------------------------------------------------------*/ +/* This function computes the checksum values C0 and C1 described in */ +/* ISO 8473 (CLNP) and ISO 8073 (Transport protocol). */ +/* Note that the maximum len of TPDU in ISO 8073 is 8192 bytes. */ +/* To avoid overflow of long values c0 or c1 when the buffer len is */ +/* greater then 4096 the values c0 and c1 are computed in two stages. */ +/* */ +/* Parameters: */ +/* ST_UCHAR *buf Ptr to encoding buffer on which checksum*/ +/* will be computed. */ +/* ST_UINT16 buf_len Length of the buffer (TPDU). */ +/* ST_UCHAR *pC0 Pointer where to return the computed C0.*/ +/* ST_UCHAR *pC1 Pointer where to return the computed C1.*/ +/* */ +/* Return: */ +/* ST_VOID none */ +/************************************************************************/ +static ST_VOID get_checksum_c0_c1 (ST_UCHAR *buf, ST_UINT16 buf_len, + ST_UCHAR *pC0, ST_UCHAR *pC1) +{ +ST_ULONG c0, c1; + + c0 = c1 = 0L; + + while (buf_len-- > 0) + { + c0 = c0 + (ST_ULONG) *(buf++); + c1 = c1 + c0; + + /* if the buf_len > 4096 there is risk of overflowing, so we take */ + /* modulus at 4096 bytes to bring the c0 and c1 numbers down */ + + if (buf_len == 4096) + { + c0 = c0 % 255L; + c1 = c1 % 255L; + } + } + *pC0 = (ST_UCHAR) (c0 % 255L); + *pC1 = (ST_UCHAR) (c1 % 255L); + + /* the code below can substitute the code above if long 32-bit values */ + /* are not available with given compiler. */ + #if 0 + ST_UINT16 c0,c1; + c0 = c1 = 0; + while (buf_len-- > 0) + { + c0 += (ST_UINT16) *(buf++); + if (c0 >= 255) + { + ++c0; /* this two lines are equvalen to mod 255 */ + c0 &= 0x00ff; + } + c1 += c0; + if (c1 >= 255) + { + ++c1; + c1 &= 0x00ff; + } + } + *pC0 = (ST_UCHAR) c0; + *pC1 = (ST_UCHAR) c1; + #endif +} + + diff --git a/mmslib/ositcps/copp_dec.c b/mmslib/ositcps/copp_dec.c new file mode 100644 index 0000000..5bd83bc --- /dev/null +++ b/mmslib/ositcps/copp_dec.c @@ -0,0 +1,488 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1997-2002, All Rights Reserved */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : copp_dec.c */ +/* PRODUCT(S) : MOSI Stack (over TP4) */ +/* */ +/* MODULE DESCRIPTION : */ +/* This file implements decoding of most confirm/indication*/ +/* functions. */ +/* */ +/* For information see the: */ +/* ISO 8822 "Information processing systems - Open Systems */ +/* Interconnection - Connection oriented presentation service */ +/* definition. */ +/* ISO 8823 "Information processing systems - Open Systems */ +/* Interconnection - Connection oriented presentation protocol */ +/* specification. */ +/* */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* u_cosp_bind_cnf */ +/* u_cosp_unbind_cnf */ +/* */ +/* u_cosp_rel_cnf_pos */ +/* u_cosp_rel_ind */ +/* u_cosp_p_abort_ind */ +/* u_cosp_data_ind */ +/* */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 02/26/09 JRB 12 Fix to handle PDV len=0 or User-data len=0. */ +/* 04/28/08 GLB 11 Removed CALLED_ONLY and CALLING_ONLY */ +/* 01/02/02 JRB 10 Converted to use ASN1R (re-entrant ASN1) */ +/* 04/24/01 JRB 09 Allow octet-aligned PDV. Don't think it's */ +/* legal but some stacks (ONE?) may use it. */ +/* 02/21/01 JRB 08 Fix previous change. Was checking wrong byte */ +/* in PDU for Indef Len. Use global flag instead*/ +/* 12/20/00 JRB 07 asn1_skip_elmnt doesn't work for indef len */ +/* encoding. Use "parse_next" instead. */ +/* 08/13/98 JRB 06 Lint cleanup. */ +/* 03/18/98 JRB 05 Use defines (not variables) for ASN1 errors. */ +/* 02/20/98 JRB 04 Chg abort_reason & event_id to ST_INT8. */ +/* 12/22/97 JRB 03 Use ST_INT8. */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 03/19/97 JRB 02 Add "CALLING" support. General cleanup. */ +/* 02/27/97 JRB 01 Created */ +/************************************************************************/ +#ifdef DEBUG_SISCO +static char *thisFileName = __FILE__; +#endif + +#include "glbtypes.h" +#include "sysincs.h" +#include "mem_chk.h" +#include "asn1defs.h" +#include "acse2.h" + +#include "copp.h" +#include "cosp_usr.h" + +/* START_p_user_data used by everyone, so proto in include */ +/* START_pdv_list used by everyone, so proto in include */ +static ST_VOID decode_pdv_tsn (ASN1_DEC_CTXT *aCtx); +static ST_VOID decode_pdv_pci (ASN1_DEC_CTXT *aCtx); +static ST_VOID START_pdv (ASN1_DEC_CTXT *aCtx); +static ST_VOID parse_next_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID END_pdv (ASN1_DEC_CTXT *aCtx); +static ST_VOID END_pdv_list (ASN1_DEC_CTXT *aCtx); +static ST_VOID END_p_user_data (ASN1_DEC_CTXT *aCtx); + +/************************************************************************/ +/* Global Variables */ +/************************************************************************/ +ST_CHAR expected_pdv_pci; +ST_UCHAR *pdv_data_ptr; +ST_INT pdv_data_len; + +ST_BOOLEAN p_user_data_is_outer; /* Is P-User-data outermost constr?*/ + /* SD_TRUE or SD_FALSE */ + +/************************************************************************/ +/* u_cosp_bind_cnf */ +/************************************************************************/ +ST_VOID u_cosp_bind_cnf (ST_LONG user_bind_id, ST_LONG cosp_bind_id, ST_RET result) + { + COPP_LOG_DEC3 ("P-BIND.cnf: copp_user_bind_id =0x%08X copp_bind_id =%9ld result =%d", + user_bind_id, cosp_bind_id, result); + + u_copp_bind_cnf (user_bind_id, cosp_bind_id, result); + } + +/************************************************************************/ +/* u_cosp_unbind_cnf */ +/************************************************************************/ +ST_VOID u_cosp_unbind_cnf (ST_LONG user_bind_id) + { + COPP_LOG_DEC1 ("P-UNBIND.cnf: copp_user_bind_id =0x%08X", user_bind_id); + + u_copp_unbind_cnf (user_bind_id); + } + +/* See "coppdcp.c" for "u_cosp_con_cnf_pos" function. */ +/* See "coppdcpr.c" for "u_cosp_con_cnf_neg" function. */ + +/************************************************************************/ +/* u_cosp_rel_cnf_pos */ +/*----------------------------------------------------------------------*/ +/* This USER function is called by the SS-Provider to indicate positive */ +/* result of the release operation. */ +/* */ +/* Parameters: */ +/* acse_conn Pointer to connection info */ +/* */ +/* Return: */ +/* ST_VOID */ +/************************************************************************/ +ST_VOID u_cosp_rel_cnf_pos (ACSE_CONN *acse_conn) + { +ST_INT8 abort_reason; +ASN1_DEC_CTXT localDecCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_DEC_CTXT *aCtx = &localDecCtx; + + memset (aCtx, 0, sizeof (ASN1_DEC_CTXT)); /* CRITICAL: start clean */ + + if (acse_conn->copp_state != COPP_STATE_CONNECTED) + { + COPP_LOG_ERR1 ("COPP-ERROR: Cannot process S-RELEASE.cnf+ (Illegal state=%d)", + acse_conn->copp_state); + return; + } + + aCtx->asn1r_decode_method = ASN1_TAG_METHOD; /* Use asn1_tag method for decoding. */ + aCtx->asn1r_decode_done_fun = asn1r_done_err; /* done function = error fun */ + aCtx->asn1r_err_fun = NULL; /* set up error detected fun */ + + /* Clean out old stuff from structure. */ + decode_acse_conn = acse_conn; /* Save in global so asn1r_decode_asn1 (aCtx, */ + /* can fill it in. */ + + /* Set the PCI to be used during P-User-Data decode. */ + expected_pdv_pci = decode_acse_conn->pciacse; + + p_user_data_is_outer = SD_TRUE; /* P-User-data IS outermost constr. */ + + /* CRITICAL: Init APDU ptr & len. Changed only if APDU found in msg. */ + acse_conn->apdu_ptr = NULL; + acse_conn->apdu_len = 0; + /* CRITICAL: Init global PDV ptr & len. Changed only if PDV found in msg.*/ + pdv_data_ptr = NULL; + pdv_data_len = 0; + +/* Call 'asn1r_decode_asn1 (aCtx,' to parse the message. */ + ASN1R_TAG_ADD (aCtx, APP|CONSTR,1,START_p_user_data); + asn1r_decode_asn1 (aCtx, acse_conn->ppdu_ptr,acse_conn->ppdu_len); + if (aCtx->asn1r_pdu_dec_err != NO_DECODE_ERR) + { + COPP_LOG_ERR1 ("COPP-ERROR: ASN.1 decode of S-Release.cnf failed, err=%d", aCtx->asn1r_pdu_dec_err); + abort_reason = 1; /* unrecognized-ppdu */ + /* Don't send ARP PPDU. COSP already thinks we're released. */ + /* Pass P-P-Abort.ind to COPP-user. */ + u_copp_p_abort_ind (acse_conn, abort_reason); + } + else + { + COPP_LOG_DEC2 ("P-RELEASE.cnf+: acse_conn_id =0x%08X user_conn_id =%4ld", + acse_conn, acse_conn->user_conn_id); + COPP_LOG_DECC1 ("User data length: %d", acse_conn->apdu_len); + COPP_LOG_DECH (acse_conn->apdu_len, acse_conn->apdu_ptr); + + if (acse_conn->cr) + { + acse_conn->cr = SD_FALSE; + acse_conn->rl = SD_FALSE; /* and stay in COPP_STATE_CONNECTED */ + } + else + acse_conn->copp_state = COPP_STATE_IDLE; + + u_copp_rel_cnf_pos (acse_conn); + } + } + +/* See "coppdcp.c" for "u_cosp_con_ind" function. */ + +/************************************************************************/ +/* u_cosp_rel_ind */ +/*----------------------------------------------------------------------*/ +/* This USER function is called by the SS-Provider to indicate that a */ +/* remote node wishes to release a connection. */ +/* */ +/* Parameters: */ +/* ACSE_CONN *acse_conn Pointer to connection info */ +/* */ +/* Return: */ +/* ST_VOID */ +/************************************************************************/ +ST_VOID u_cosp_rel_ind (ACSE_CONN *acse_conn) + { +ST_INT8 abort_reason; +ST_INT8 event_id; +ASN1_DEC_CTXT localDecCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_DEC_CTXT *aCtx = &localDecCtx; + + memset (aCtx, 0, sizeof (ASN1_DEC_CTXT)); /* CRITICAL: start clean */ + + if (acse_conn->copp_state != COPP_STATE_CONNECTED) + { + COPP_LOG_ERR1 ("COPP-ERROR: Cannot process S-RELEASE.ind (Illegal state=%d)", + acse_conn->copp_state); + return; + } + /* Set release collision flags. */ + if (acse_conn->rl) + acse_conn->cr = SD_TRUE; + acse_conn->rl = SD_TRUE; + + aCtx->asn1r_decode_method = ASN1_TAG_METHOD; /* Use asn1_tag method for decoding. */ + aCtx->asn1r_decode_done_fun = asn1r_done_err; /* done function = error fun */ + aCtx->asn1r_err_fun = NULL; /* set up error detected fun */ + + /* Clean out old stuff from structure. */ + decode_acse_conn = acse_conn; /* Save in global so asn1r_decode_asn1 (aCtx, */ + /* can fill it in. */ + + /* Set the PCI to be used during P-User-Data decode. */ + expected_pdv_pci = decode_acse_conn->pciacse; + + p_user_data_is_outer = SD_TRUE; /* P-User-data IS outermost constr. */ + + /* CRITICAL: Init APDU ptr & len. Changed only if APDU found in msg. */ + acse_conn->apdu_ptr = NULL; + acse_conn->apdu_len = 0; + /* CRITICAL: Init global PDV ptr & len. Changed only if PDV found in msg.*/ + pdv_data_ptr = NULL; + pdv_data_len = 0; + +/* Call 'asn1r_decode_asn1 (aCtx,' to parse the message. */ + ASN1R_TAG_ADD (aCtx, APP|CONSTR,1,START_p_user_data); + asn1r_decode_asn1 (aCtx, acse_conn->ppdu_ptr,acse_conn->ppdu_len); + if (aCtx->asn1r_pdu_dec_err != NO_DECODE_ERR) + { + COPP_LOG_ERR1 ("COPP-ERROR: ASN.1 decode of S-Release.ind failed, err=%d", aCtx->asn1r_pdu_dec_err); + acse_conn->copp_state = COPP_STATE_IDLE; + abort_reason = 1; /* unrecognized-ppdu */ + event_id = 14; /* s-release-indication */ + /* Encode and send ARP PPDU. */ + copp_p_abort_req (acse_conn, abort_reason, event_id); + /* Pass P-P-Abort.ind to COPP-user. */ + u_copp_p_abort_ind (acse_conn, abort_reason); + } + else + { + COPP_LOG_DEC2 ("P-RELEASE.ind: acse_conn_id =0x%08X user_conn_id =%4ld", + acse_conn, acse_conn->user_conn_id); + COPP_LOG_DECC1 ("User data length: %d", acse_conn->apdu_len); + COPP_LOG_DECH (acse_conn->apdu_len, acse_conn->apdu_ptr); + + u_copp_rel_ind (acse_conn); + } + } + +/************************************************************************/ +/* u_cosp_p_abort_ind */ +/*----------------------------------------------------------------------*/ +/* This USER function is called by the SS-Provider to indicate that a */ +/* connection has been aborted by SS-provider (local or remote). */ +/* */ +/* Parameters: */ +/* ACSE_CONN *acse_con Pointer to connection info */ +/* ST_INT reason see def reasons COSP_P_AB_IND_... above */ +/* */ +/* Return: */ +/* ST_VOID */ +/************************************************************************/ +ST_VOID u_cosp_p_abort_ind (ACSE_CONN *acse_conn, ST_INT reason) + { + if (acse_conn->copp_state == COPP_STATE_IDLE) + { + COPP_LOG_ERR1 ("COPP-ERROR: Cannot process S-P-ABORT.ind (Illegal state=%d)", + acse_conn->copp_state); + return; + } + + COPP_LOG_DEC3 ("P-P-ABORT.ind: acse_conn_id =0x%08X user_conn_id =%4ld reason =%d", + acse_conn, acse_conn->user_conn_id, reason + 0x100); + + acse_conn->copp_state = COPP_STATE_IDLE; + u_copp_p_abort_ind (acse_conn, reason + 0x100); + } + +/************************************************************************/ +/* u_cosp_data_ind */ +/*----------------------------------------------------------------------*/ +/* This USER function is called by the SS-Provider to indicate that a */ +/* data SPDU has been received. */ +/* */ +/* Parameters: */ +/* ACSE_CONN *acse_conn Pointer to connection info */ +/* */ +/* Return: */ +/* ST_VOID */ +/************************************************************************/ +ST_VOID u_cosp_data_ind (ACSE_CONN *acse_conn) + { +ST_INT8 abort_reason; +ST_INT8 event_id; +ASN1_DEC_CTXT localDecCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_DEC_CTXT *aCtx = &localDecCtx; + + memset (aCtx, 0, sizeof (ASN1_DEC_CTXT)); /* CRITICAL: start clean */ + + if (acse_conn->copp_state != COPP_STATE_CONNECTED) + { + COPP_LOG_ERR1 ("COPP-ERROR: Cannot process S-DATA.ind (Illegal state=%d)", + acse_conn->copp_state); + return; + } + + aCtx->asn1r_decode_method = ASN1_TAG_METHOD; /* Use asn1_tag method for decoding. */ + aCtx->asn1r_decode_done_fun = asn1r_done_err; /* done function = error fun */ + aCtx->asn1r_err_fun = NULL; /* set up error detected fun */ + + /* Clean out old stuff from structure. */ + decode_acse_conn = acse_conn; /* Save in global so asn1r_decode_asn1 (aCtx, */ + /* can fill it in. */ + + /* Set the PCI to be used during P-User-Data decode. */ + expected_pdv_pci = decode_acse_conn->pcimms; + + p_user_data_is_outer = SD_TRUE; /* P-User-data IS outermost constr. */ + + /* CRITICAL: Init APDU ptr & len. Changed only if APDU found in msg. */ + acse_conn->apdu_ptr = NULL; + acse_conn->apdu_len = 0; + /* CRITICAL: Init global PDV ptr & len. Changed only if PDV found in msg.*/ + pdv_data_ptr = NULL; + pdv_data_len = 0; + +/* Call 'asn1r_decode_asn1 (aCtx,' to parse the message. */ + ASN1R_TAG_ADD (aCtx, APP|CONSTR,1,START_p_user_data); + asn1r_decode_asn1 (aCtx, acse_conn->ppdu_ptr,acse_conn->ppdu_len); + if (aCtx->asn1r_pdu_dec_err != NO_DECODE_ERR) + { + COPP_LOG_ERR1 ("COPP-ERROR: ASN.1 decode of S-Data.ind failed, err=%d", aCtx->asn1r_pdu_dec_err); + abort_reason = 1; /* unrecognized-ppdu */ + event_id = -1; /* Unlisted */ + /* Encode and send ARP PPDU. */ + copp_p_abort_req (acse_conn, abort_reason, event_id); + /* Pass P-P-Abort.ind to COPP-user. */ + u_copp_p_abort_ind (acse_conn, abort_reason); + } + else + { + COPP_LOG_DEC2 ("P-DATA.ind: acse_conn_id =0x%08X user_conn_id =%4ld", + acse_conn, acse_conn->user_conn_id); + COPP_LOG_DECC1 ("User data length: %d", acse_conn->apdu_len); + COPP_LOG_DECH (acse_conn->apdu_len, acse_conn->apdu_ptr); + + u_copp_data_ind (acse_conn); + } + } + + /*======================================================*/ + /* ASN.1 DECODE FUNCTIONS FOR P-USER-DATA */ + /* */ + /* Used for CP, CPA, CPR, ARU, DT, or REL decode. */ + /*======================================================*/ + +/************************************************************************/ +/* START_p_user_data */ +/************************************************************************/ +ST_VOID START_p_user_data (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, UNI|CONSTR,SEQ_CODE,START_pdv_list); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = END_p_user_data; + } +/************************************************************************/ +/* START_pdv_list */ +/* ACSE also uses this function to decode "EXTERNAL". Although defined */ +/* independently, it's encoding is same as "PDV-list". */ +/************************************************************************/ +ST_VOID START_pdv_list (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, UNI,OBJ_ID_CODE,decode_pdv_tsn); + ASN1R_TAG_ADD (aCtx, UNI,INT_CODE,decode_pdv_pci); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = END_pdv_list; + } +/************************************************************************/ +/* decode_pdv_tsn */ +/************************************************************************/ +static ST_VOID decode_pdv_tsn (ASN1_DEC_CTXT *aCtx) + { +MMS_OBJ_ID tsn; + + if (asn1r_get_objid (aCtx, tsn.comps,&tsn.num_comps)) + { + asn1r_set_dec_err (aCtx, ASN1E_INVALID_BOOLEAN); + return; + } + if (asn1_objidcmp (&tsn, &asn1_obj_id) != 0) + { /* TSN better be ASN1 */ + asn1r_set_dec_err (aCtx, ASN1E_INVALID_BITSTR); + return; + } + ASN1R_TAG_ADD (aCtx, UNI,INT_CODE,decode_pdv_pci); + } +/************************************************************************/ +/* decode_pdv_pci */ +/************************************************************************/ +static ST_VOID decode_pdv_pci (ASN1_DEC_CTXT *aCtx) + { +ST_INT8 pci; + + if (asn1r_get_i8 (aCtx, &pci)) + { + asn1r_set_dec_err (aCtx, ASN1E_INVALID_BOOLEAN); + return; + } + if (pci != expected_pdv_pci) + { /* Not the pci we're expecting. */ + asn1r_set_dec_err (aCtx, ASN1E_INVALID_BITSTR); + return; + } + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,0,START_pdv); /* Must be single-ASN1-type */ + /* Octet-aligned doesn't appear to be legal, but some stacks (ONE?) */ + /* may use it. To be friendly, let's accept it. */ + ASN1R_TAG_ADD (aCtx, CTX,1,START_pdv); /* Allow octet-aligned */ + } +/************************************************************************/ +/* START_pdv */ +/************************************************************************/ +static ST_VOID START_pdv (ASN1_DEC_CTXT *aCtx) + { + /* Should now point to PDV data. Save until decode done. */ + pdv_data_ptr = aCtx->asn1r_field_ptr; + + /* If this is indefinite length encoding, use "asn1r_parse_next (aCtx,". */ + /* If "normal" encoding, use "asn1_skip_elmnt" (faster). */ + if (aCtx->asn1r_indef_flag) + { /* indefinite length encoding */ + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = END_pdv; + asn1r_parse_next (aCtx, parse_next_done); + } + else + { /* "normal" encoding */ + pdv_data_len = aCtx->asn1r_elmnt_len; + asn1_skip_elmnt (aCtx); /* Done decoding PPDU. Let ACSE decode rest. */ + } + } +/************************************************************************/ +/* parse_next_done */ +/* Only used for indefinite length encoding. */ +/************************************************************************/ +static ST_VOID parse_next_done (ASN1_DEC_CTXT *aCtx) + { /* called when "asn1r_parse_next (aCtx," is done */ + } +/************************************************************************/ +/* END_pdv */ +/* Only used for indefinite length encoding. */ +/************************************************************************/ +static ST_VOID END_pdv (ASN1_DEC_CTXT *aCtx) + { + pdv_data_len = aCtx->asn1r_field_ptr - pdv_data_ptr - 2; /* -2 strips 00 00*/ + } +/************************************************************************/ +/* END_pdv_list */ +/************************************************************************/ +static ST_VOID END_pdv_list (ASN1_DEC_CTXT *aCtx) + { + } +/************************************************************************/ +/* END_p_user_data */ +/************************************************************************/ +static ST_VOID END_p_user_data (ASN1_DEC_CTXT *aCtx) + { + decode_acse_conn->apdu_ptr = pdv_data_ptr; + decode_acse_conn->apdu_len = pdv_data_len; + if (p_user_data_is_outer) /* Is P-User-data outermost constr? */ + aCtx->asn1r_decode_done_fun = NULL; /* done decoding */ + } + diff --git a/mmslib/ositcps/copp_enc.c b/mmslib/ositcps/copp_enc.c new file mode 100644 index 0000000..597943e --- /dev/null +++ b/mmslib/ositcps/copp_enc.c @@ -0,0 +1,660 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1997-2002, All Rights Reserved */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : copp_enc.c */ +/* PRODUCT(S) : MOSI Stack (over TP4) */ +/* */ +/* MODULE DESCRIPTION : */ +/* This file implements binding and encoding functions */ +/* of the COPP protocol. */ +/* */ +/* For information see the: */ +/* ISO 8822 "Information processing systems - Open Systems */ +/* Interconnection - Connection oriented presentation service */ +/* definition. */ +/* ISO 8823 "Information processing systems - Open Systems */ +/* Interconnection - Connection oriented presentation protocol */ +/* specification. */ +/* */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* copp_bind */ +/* copp_unbind */ +/* */ +/* copp_con_req */ +/* copp_con_rsp_pos */ +/* copp_con_rsp_neg */ +/* */ +/* copp_rel_req */ +/* copp_rel_rsp_pos */ +/* */ +/* copp_u_abort_req */ +/* */ +/* copp_data_req */ +/* */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/28/08 GLB 07 Removed CALLED_ONLY and CALLING_ONLY */ +/* 01/02/02 JRB 06 Converted to use ASN1R (re-entrant ASN1) */ +/* 06/17/98 JRB 05 Allow second call to copp_bind if PSEL same. */ +/* Use new error codes. */ +/* 02/20/98 JRB 04 Cast wr_i8 arg. Chg abort_reason to ST_INT8. */ +/* 12/22/97 JRB 03 Use ST_INT8. */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 03/19/97 JRB 02 Add "CALLING" support. General cleanup. */ +/* 02/27/97 JRB 01 Created */ +/************************************************************************/ +#ifdef DEBUG_SISCO +static char *thisFileName = __FILE__; +#endif + +#include "glbtypes.h" +#include "sysincs.h" +#include "mem_chk.h" +#include "asn1defs.h" +#include "acse2.h" + +#include "copp.h" +#include "cosp_usr.h" + +ST_BOOLEAN copp_bind_called; /* flag to tell if copp_bind was called */ +ST_UCHAR only_loc_psel [1+MAX_PSEL_LEN]; /* Local len & PSEL */ + +/************************************************************************/ +/* copp_bind */ +/************************************************************************/ +ST_RET copp_bind (ST_LONG user_bind_id, PRES_ADDR *pres_addr, + ST_INT sharable, ST_INT max_conns) + { +ST_INT ret = SD_SUCCESS; + + + + COPP_LOG_ENC1 ("P-BIND.req: copp_user_bind_id =0x%08X", user_bind_id); + + + + if (!copp_bind_called) + { + /* Make sure Local PSEL len is legal before copying. */ + if (pres_addr->psel_len <= sizeof (only_loc_psel)-1) + { + /* Save Local PSEL (only do memcpy if len != 0). */ + if ((only_loc_psel [0] = (ST_UCHAR) pres_addr->psel_len) != 0) + memcpy (&only_loc_psel [1], pres_addr->psel, pres_addr->psel_len); + } + else + { + COPP_LOG_ERR1 ("COPP-ERROR: P-BIND.req: Invalid length=%d of PSEL.", + pres_addr->psel_len); + ret = COPP_ERR_INV_PSEL; /* invalid local PSEL */ + } + } + else + { /* Second Bind. Only allow it if the PSEL is the same. */ + if (only_loc_psel [0] != (ST_UCHAR) pres_addr->psel_len || + (pres_addr->psel_len != 0 && + memcmp (&only_loc_psel [1], pres_addr->psel, pres_addr->psel_len))) + { + COPP_LOG_ERR0 ("COPP-ERROR: Cannot BIND to different PSEL"); + ret = COPP_ERR_INV_PSEL; /* invalid local PSEL */ + } + } + + /* Call cosp_bind. */ + + + + if (ret == SD_SUCCESS) + ret = cosp_bind (user_bind_id, pres_addr, sharable, max_conns); + + + + + /* If successful, set called flag. Otherwise, treat next bind like first.*/ + if (ret == SD_SUCCESS) + copp_bind_called = SD_TRUE; + + return (ret); + } + +/************************************************************************/ +/* copp_unbind */ +/************************************************************************/ +ST_RET copp_unbind (ST_LONG copp_bind_id) + { + COPP_LOG_ENC1 ("P-UNBIND.req: copp_bind_id =%9ld", copp_bind_id); + return (cosp_unbind (copp_bind_id)); + } + +/************************************************************************/ +/* copp_con_req */ +/************************************************************************/ +ST_RET copp_con_req (ST_LONG copp_bind_id, ACSE_CONN *acse_conn, PRES_ADDR *rem_addr) + { + /* WARNING: this hardcoding assumes that ACSE pci always equals 1 */ + /* and MMS pci always equals 3 when we send P-CONNECT.req. */ + /* These must be set in a_associate_req before any encoding. */ +static ST_UCHAR hc_definition_list [] = + { + 0x30, 0x0f, 0x02, 0x01, 0x01, 0x06, 0x04, 0x52, 0x01, 0x00, 0x01, + 0x30, 0x04, 0x06, 0x02, 0x51, 0x01, + 0x30, 0x10, 0x02, 0x01, 0x03, 0x06, 0x05, 0x28, 0xca, 0x22, 0x02, 0x01, + 0x30, 0x04, 0x06, 0x02, 0x51, 0x01 + }; +ASN1_ENC_CTXT localEncCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_ENC_CTXT *aCtx = &localEncCtx; + + /* DEBUG: should we check the copp_bind_id????? */ + + COPP_LOG_ENC2 ("P-CONNECT.req: acse_conn_id =0x%08X user_conn_id =%4ld", + acse_conn, acse_conn->user_conn_id); + COPP_LOG_ENCC1 ("User data length: %d", acse_conn->apdu_len); + COPP_LOG_ENCH (acse_conn->apdu_len, acse_conn->apdu_ptr); + + if (acse_conn->copp_state != COPP_STATE_IDLE) + { + COPP_LOG_ERR1 ("COPP-ERROR: Cannot send P-CONNECT.req (Illegal state=%d)", + acse_conn->copp_state); + return (COPP_ERR_INV_STATE); + } + acse_conn->cr = SD_FALSE; + acse_conn->rl = SD_FALSE; + + /* Begin encoding request. */ + asn1r_strt_asn1_bld (aCtx, cosp_buf, cosp_msgsize); + + asn1r_strt_constr (aCtx); /* start CP SET */ + asn1r_strt_constr (aCtx); /* start enclosed SEQUENCE */ + asn1r_strt_constr (aCtx); /* start P-User-data (fully-encoded) */ + asn1r_strt_constr (aCtx); /* start SEQUENCE */ + asn1r_strt_constr (aCtx); /* start single-ASN1-type */ + + /* Fake out ACSE encoding. Already encoded into cosp_buf. */ + aCtx->asn1r_field_ptr -= acse_conn->apdu_len; + + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* finish single-ASN1-type */ + asn1r_wr_i8 (aCtx, acse_conn->pciacse); /* PCI for ACSE */ + asn1r_fin_prim (aCtx, INT_CODE,UNI); + /* Do not encode Transfer syntax name. We know it is ASN1. */ + asn1r_fin_constr (aCtx, SEQ_CODE,UNI,DEF); /* finish SEQUENCE */ + asn1r_fin_constr (aCtx, 1,APP,DEF); /* finish P-User-data (fully-encoded) */ + + /* Hardcode Presentation-requirements (kernel only). */ + *aCtx->asn1r_field_ptr-- = 0x00; + *aCtx->asn1r_field_ptr-- = 0x06; + *aCtx->asn1r_field_ptr-- = 0x02; + *aCtx->asn1r_field_ptr-- = 0x88; + + /* 2 P-contexts: ACSE and MMS, and they both have a TSN of ASN1, */ + /* so we can hardcode this. */ + /* WARNING: this hardcoding assumes that ACSE pci always equals 1 */ + /* and MMS pci always equals 3 when we send P-CONNECT.req. */ + /* These must be set in a_associate_req before any encoding. */ + asn1r_strt_constr (aCtx); /* start P-context-def-list. */ + aCtx->asn1r_field_ptr -= sizeof (hc_definition_list); + memcpy (aCtx->asn1r_field_ptr + 1, hc_definition_list, sizeof (hc_definition_list)); + asn1r_fin_constr (aCtx, 4,CTX,DEF); /* finish P-context-def-list. */ + + /* Encode Called-p-selector. */ + aCtx->asn1r_field_ptr -= rem_addr->psel_len; + memcpy (aCtx->asn1r_field_ptr + 1, rem_addr->psel, rem_addr->psel_len); + *aCtx->asn1r_field_ptr-- = rem_addr->psel_len; + *aCtx->asn1r_field_ptr-- = 0x82; /* Tag for Called-p-selector */ + + /* Encode Calling-p-selector. */ + aCtx->asn1r_field_ptr -= (only_loc_psel[0]+1); + memcpy (aCtx->asn1r_field_ptr + 1, only_loc_psel, only_loc_psel[0]+1); + *aCtx->asn1r_field_ptr-- = 0x81; /* Tag for Calling-p-selector */ + + /* Protocol-version defaults to version-1, so don't encode. */ + + asn1r_fin_constr (aCtx, 2,CTX,DEF); /* finish enclosed SEQUENCE */ + /* Hard-code Mode. Always "normal-mode". */ + *aCtx->asn1r_field_ptr-- = 0x01; + *aCtx->asn1r_field_ptr-- = 0x01; + *aCtx->asn1r_field_ptr-- = 0x80; + *aCtx->asn1r_field_ptr-- = 0x03; + *aCtx->asn1r_field_ptr-- = 0xA0; + asn1r_fin_constr (aCtx, SET_CODE,UNI,DEF); /* finish CPA SET */ + acse_conn->ppdu_ptr = aCtx->asn1r_field_ptr + 1; + acse_conn->ppdu_len = cosp_buf + cosp_msgsize - acse_conn->ppdu_ptr; + /* Pointing to beginning of Session User Information Field now. */ + + acse_conn->copp_state = COPP_STATE_AWAIT_CPA; + /* Pass to COSP. */ + return (cosp_con_req (copp_bind_id, rem_addr, acse_conn)); + } +/************************************************************************/ +/* copp_rel_req */ +/************************************************************************/ +ST_RET copp_rel_req (ACSE_CONN *acse_conn) + { +ASN1_ENC_CTXT localEncCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_ENC_CTXT *aCtx = &localEncCtx; + + COPP_LOG_ENC2 ("P-RELEASE.req: acse_conn_id =0x%08X user_conn_id =%4ld", + acse_conn, acse_conn->user_conn_id); + COPP_LOG_ENCC1 ("User data length: %d", acse_conn->apdu_len); + COPP_LOG_ENCH (acse_conn->apdu_len, acse_conn->apdu_ptr); + + if (acse_conn->copp_state != COPP_STATE_CONNECTED) + { + COPP_LOG_ERR1 ("COPP-ERROR: Cannot send P-RELEASE.req (Illegal state=%d)", + acse_conn->copp_state); + return (COPP_ERR_INV_STATE); + } + /* Set release collision flags. */ + if (acse_conn->rl) + acse_conn->cr = SD_TRUE; + acse_conn->rl = SD_TRUE; + + /* Begin encoding request. */ + asn1r_strt_asn1_bld (aCtx, cosp_buf, cosp_msgsize); + + asn1r_strt_constr (aCtx); /* start P-User-data (fully-encoded) */ + asn1r_strt_constr (aCtx); /* start SEQUENCE */ + asn1r_strt_constr (aCtx); /* start single-ASN1-type */ + + /* Fake out ACSE encoding. Already encoded into cosp_buf. */ + aCtx->asn1r_field_ptr -= acse_conn->apdu_len; + + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* finish single-ASN1-type */ + asn1r_wr_i8 (aCtx, acse_conn->pciacse); /* PCI for ACSE */ + asn1r_fin_prim (aCtx, INT_CODE,UNI); + /* Do not encode Transfer syntax name. We know it is ASN1. */ + asn1r_fin_constr (aCtx, SEQ_CODE,UNI,DEF); /* finish SEQUENCE */ + asn1r_fin_constr (aCtx, 1,APP,DEF); /* finish P-User-data (fully-encoded) */ + + acse_conn->ppdu_ptr = aCtx->asn1r_field_ptr + 1; + acse_conn->ppdu_len = cosp_buf + cosp_msgsize - acse_conn->ppdu_ptr; + /* Pointing to beginning of Session User Information Field now. */ + + return (cosp_rel_req (acse_conn)); + } + +/************************************************************************/ +/* copp_con_rsp_pos */ +/* Encode and send CPA PPDU. */ +/************************************************************************/ +ST_RET copp_con_rsp_pos (ACSE_CONN *acse_conn) + { +static ST_UCHAR hc_result_list [] = +{ +0x30, 0x07, 0x80, 0x01, 0x00, 0x81, 0x02, 0x51, 0x01, +0x30, 0x07, 0x80, 0x01, 0x00, 0x81, 0x02, 0x51, 0x01 +}; +ASN1_ENC_CTXT localEncCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_ENC_CTXT *aCtx = &localEncCtx; + + COPP_LOG_ENC2 ("P-CONNECT.rsp+: acse_conn_id =0x%08X user_conn_id =%4ld", + acse_conn, acse_conn->user_conn_id); + COPP_LOG_ENCC1 ("User data length: %d", acse_conn->apdu_len); + COPP_LOG_ENCH (acse_conn->apdu_len, acse_conn->apdu_ptr); + + if (acse_conn->copp_state != COPP_STATE_AWAIT_CON_RSP) + { + COPP_LOG_ERR1 ("COPP-ERROR: Cannot send P-CONNECT.rsp+ (Illegal state=%d)", + acse_conn->copp_state); + return (COPP_ERR_INV_STATE); + } + + /* Begin encoding request. */ + asn1r_strt_asn1_bld (aCtx, cosp_buf, cosp_msgsize); + + asn1r_strt_constr (aCtx); /* start CPA SET */ + asn1r_strt_constr (aCtx); /* start enclosed SEQUENCE */ + asn1r_strt_constr (aCtx); /* start P-User-data (fully-encoded) */ + asn1r_strt_constr (aCtx); /* start SEQUENCE */ + asn1r_strt_constr (aCtx); /* start single-ASN1-type */ + + /* Fake out ACSE encoding. Already encoded into cosp_buf. */ + aCtx->asn1r_field_ptr -= acse_conn->apdu_len; + + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* finish single-ASN1-type */ + asn1r_wr_i8 (aCtx, acse_conn->pciacse); /* PCI for ACSE */ + asn1r_fin_prim (aCtx, INT_CODE,UNI); + /* Do not encode Transfer syntax name. We know it is ASN1. */ + asn1r_fin_constr (aCtx, SEQ_CODE,UNI,DEF); /* finish SEQUENCE */ + asn1r_fin_constr (aCtx, 1,APP,DEF); /* finish P-User-data (fully-encoded) */ + + /* Hardcode Presentation-requirements (kernel only). */ + *aCtx->asn1r_field_ptr-- = 0x00; + *aCtx->asn1r_field_ptr-- = 0x06; + *aCtx->asn1r_field_ptr-- = 0x02; + *aCtx->asn1r_field_ptr-- = 0x88; + + /* Hey, I like this. We only accept connections if there are */ + /* 2 P-contexts: ACSE and MMS, and they both have a TSN of ASN1, */ + /* so we can hardcode this. */ + asn1r_strt_constr (aCtx); /* start P-context-def-result-list. */ + aCtx->asn1r_field_ptr -= sizeof (hc_result_list); + memcpy (aCtx->asn1r_field_ptr + 1, hc_result_list, sizeof (hc_result_list)); + asn1r_fin_constr (aCtx, 5,CTX,DEF); /* finish P-context-def-result-list. */ + + /* Encode Responding-p-selector. */ + aCtx->asn1r_field_ptr -= (only_loc_psel[0]+1); + memcpy (aCtx->asn1r_field_ptr + 1, only_loc_psel, only_loc_psel[0]+1); + *aCtx->asn1r_field_ptr-- = 0x83; /* Tag for Responding-p-selector */ + + /* Protocol-version defaults to version-1, so don't encode. */ + + asn1r_fin_constr (aCtx, 2,CTX,DEF); /* finish enclosed SEQUENCE */ + /* Hard-code Mode. Always "normal-mode". */ + *aCtx->asn1r_field_ptr-- = 0x01; + *aCtx->asn1r_field_ptr-- = 0x01; + *aCtx->asn1r_field_ptr-- = 0x80; + *aCtx->asn1r_field_ptr-- = 0x03; + *aCtx->asn1r_field_ptr-- = 0xA0; + asn1r_fin_constr (aCtx, SET_CODE,UNI,DEF); /* finish CPA SET */ + acse_conn->ppdu_ptr = aCtx->asn1r_field_ptr + 1; + acse_conn->ppdu_len = cosp_buf + cosp_msgsize - acse_conn->ppdu_ptr; + /* Pointing to beginning of Session User Information Field now. */ + + acse_conn->copp_state = COPP_STATE_CONNECTED; + /* Pass to COSP. */ + return (cosp_con_rsp_pos (acse_conn)); + } + +/************************************************************************/ +/* copp_con_rsp_neg */ +/* Encode and send CPR PPDU. */ +/* If "provider_reason" < 0, this is "user-reject", else this is */ +/* "provider-reject" and the value of "provider_reason" will be */ +/* encoded in the "Provider-reason" parameter of the PPDU. */ +/************************************************************************/ +ST_RET copp_con_rsp_neg (ACSE_CONN *acse_conn, ST_INT provider_reason) + { +ST_INT j; +ASN1_ENC_CTXT localEncCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_ENC_CTXT *aCtx = &localEncCtx; + + COPP_LOG_ENC3 ("P-CONNECT.rsp-: acse_conn_id =0x%08X user_conn_id =%4ld reason =%d", + acse_conn, acse_conn->user_conn_id, provider_reason); + if (provider_reason < 0) + { /* user-reject: must have User-data */ + COPP_LOG_ENCC1 ("User data length: %d", acse_conn->apdu_len); + COPP_LOG_ENCH (acse_conn->apdu_len, acse_conn->apdu_ptr); + } + + if (provider_reason < 0 && acse_conn->copp_state != COPP_STATE_AWAIT_CON_RSP) + { /* If from user, must be in "await P-CONrsp" state. */ + COPP_LOG_ERR1 ("COPP-ERROR: Cannot send P-CONNECT.rsp- (Illegal state=%d)", + acse_conn->copp_state); + return (COPP_ERR_INV_STATE); + } + + /* Begin encoding request. */ + asn1r_strt_asn1_bld (aCtx, cosp_buf, cosp_msgsize); + + asn1r_strt_constr (aCtx); /* start CPR SEQUENCE */ + if (provider_reason < 0) + { /* user-reject: encode P-User-data */ + asn1r_strt_constr (aCtx); /* start P-User-data (fully-encoded) */ + asn1r_strt_constr (aCtx); /* start SEQUENCE */ + asn1r_strt_constr (aCtx); /* start single-ASN1-type */ + + /* Fake out ACSE encoding. Already encoded into cosp_buf. */ + aCtx->asn1r_field_ptr -= acse_conn->apdu_len; + + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* finish single-ASN1-type */ + asn1r_wr_i8 (aCtx, acse_conn->pciacse); /* PCI for ACSE */ + asn1r_fin_prim (aCtx, INT_CODE,UNI); + /* Do not encode Transfer syntax name. We know it is ASN1. */ + asn1r_fin_constr (aCtx, SEQ_CODE,UNI,DEF); /* finish SEQUENCE */ + asn1r_fin_constr (aCtx, 1,APP,DEF); /* finish P-User-data (fully-encoded) */ + } /* end "if (provider_reason < 0)" */ + + if (provider_reason >= 0) + { /* provider-reject: encode Provider-reason */ + asn1r_wr_i8 (aCtx, (ST_INT8) provider_reason); /* Provider-reason */ + asn1r_fin_prim (aCtx, 10,CTX); + } + + if (provider_reason == PROV_REASON_DEFAULT_CONTEXT) + { /* Hardcode "Default-context-result = 2" (provider rejection) */ + *aCtx->asn1r_field_ptr-- = 0x02; + *aCtx->asn1r_field_ptr-- = 0x01; + *aCtx->asn1r_field_ptr-- = 0x87; + } + + /* If P-contexts proposed, just accept all of them. */ + /* We're rejecting the connect anyway, so it doesn't matter. */ + if (acse_conn->num_ctxt) + { + asn1r_strt_constr (aCtx); /* start P-context-def-result-list. */ + for (j = 0; j < acse_conn->num_ctxt; j++) + { + asn1r_strt_constr (aCtx); /* start SEQUENCE */ + /* DEBUG: would be better to encode same TSN they sent. */ + *aCtx->asn1r_field_ptr-- = 0x01; /* Hardcode Transfer-syntax-name = ASN.1*/ + *aCtx->asn1r_field_ptr-- = 0x51; + *aCtx->asn1r_field_ptr-- = 0x02; + *aCtx->asn1r_field_ptr-- = 0x81; + *aCtx->asn1r_field_ptr-- = 0x00; /* Hardcode "Result=0" (acceptance) */ + *aCtx->asn1r_field_ptr-- = 0x01; + *aCtx->asn1r_field_ptr-- = 0x80; + asn1r_fin_constr (aCtx, SEQ_CODE,UNI,DEF); /* finish SEQUENCE */ + } + asn1r_fin_constr (aCtx, 5,CTX,DEF); /* finish P-context-def-result-list. */ + } + + /* Encode Responding-p-selector. */ + aCtx->asn1r_field_ptr -= (only_loc_psel[0]+1); + memcpy (aCtx->asn1r_field_ptr + 1, only_loc_psel, only_loc_psel[0]+1); + *aCtx->asn1r_field_ptr-- = 0x83; /* Tag for Responding-p-selector */ + + /* Protocol-version defaults to version-1, so don't encode. */ + + asn1r_fin_constr (aCtx, SEQ_CODE,UNI,DEF); /* finish CPR SEQUENCE */ + acse_conn->ppdu_ptr = aCtx->asn1r_field_ptr + 1; + acse_conn->ppdu_len = cosp_buf + cosp_msgsize - acse_conn->ppdu_ptr; + /* Pointing to beginning of Session User Information Field now. */ + + acse_conn->copp_state = COPP_STATE_IDLE; + /* Pass to COSP. */ + return (cosp_con_rsp_neg (acse_conn, COSP_CON_RSP_U_IN_UDATA)); + } + +/************************************************************************/ +/* copp_rel_rsp_pos */ +/************************************************************************/ +ST_RET copp_rel_rsp_pos (ACSE_CONN *acse_conn) + { +ASN1_ENC_CTXT localEncCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_ENC_CTXT *aCtx = &localEncCtx; + + COPP_LOG_ENC2 ("P-RELEASE.rsp+: acse_conn_id =0x%08X user_conn_id =%4ld", + acse_conn, acse_conn->user_conn_id); + COPP_LOG_ENCC1 ("User data length: %d", acse_conn->apdu_len); + COPP_LOG_ENCH (acse_conn->apdu_len, acse_conn->apdu_ptr); + + if (acse_conn->copp_state != COPP_STATE_CONNECTED) + { + COPP_LOG_ERR1 ("COPP-ERROR: Cannot send P-RELEASE.rsp+ (Illegal state=%d)", + acse_conn->copp_state); + return (COPP_ERR_INV_STATE); + } + + /* Begin encoding request. */ + asn1r_strt_asn1_bld (aCtx, cosp_buf, cosp_msgsize); + + asn1r_strt_constr (aCtx); /* start P-User-data (fully-encoded) */ + asn1r_strt_constr (aCtx); /* start SEQUENCE */ + asn1r_strt_constr (aCtx); /* start single-ASN1-type */ + + /* Fake out ACSE encoding. Already encoded into cosp_buf. */ + aCtx->asn1r_field_ptr -= acse_conn->apdu_len; + + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* finish single-ASN1-type */ + asn1r_wr_i8 (aCtx, acse_conn->pciacse); /* PCI for ACSE */ + asn1r_fin_prim (aCtx, INT_CODE,UNI); + /* Do not encode Transfer syntax name. We know it is ASN1. */ + asn1r_fin_constr (aCtx, SEQ_CODE,UNI,DEF); /* finish SEQUENCE */ + asn1r_fin_constr (aCtx, 1,APP,DEF); /* finish P-User-data (fully-encoded) */ + + acse_conn->ppdu_ptr = aCtx->asn1r_field_ptr + 1; + acse_conn->ppdu_len = cosp_buf + cosp_msgsize - acse_conn->ppdu_ptr; + /* Pointing to beginning of Session User Information Field now. */ + + if (acse_conn->cr) + { + acse_conn->cr = SD_FALSE; + acse_conn->rl = SD_FALSE; /* and stay in COPP_STATE_CONNECTED */ + } + else + acse_conn->copp_state = COPP_STATE_IDLE; + + return (cosp_rel_rsp_pos (acse_conn)); + } + +/************************************************************************/ +/* copp_u_abort_req */ +/************************************************************************/ +ST_RET copp_u_abort_req (ACSE_CONN *acse_conn) + { +ASN1_ENC_CTXT localEncCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_ENC_CTXT *aCtx = &localEncCtx; + + COPP_LOG_ENC2 ("P-U-ABORT.req: acse_conn_id =0x%08X user_conn_id =%4ld", + acse_conn, acse_conn->user_conn_id); + COPP_LOG_ENCC1 ("User data length: %d", acse_conn->apdu_len); + COPP_LOG_ENCH (acse_conn->apdu_len, acse_conn->apdu_ptr); + + if (acse_conn->copp_state == COPP_STATE_IDLE) + { + COPP_LOG_ERR1 ("COPP-ERROR: Cannot send P-U-ABORT.req (Illegal state=%d)", + acse_conn->copp_state); + return (COPP_ERR_INV_STATE); + } + + /* Begin encoding request. */ + asn1r_strt_asn1_bld (aCtx, cosp_buf, cosp_msgsize); + + asn1r_strt_constr (aCtx); /* start ARU */ + asn1r_strt_constr (aCtx); /* start P-User-data (fully-encoded) */ + asn1r_strt_constr (aCtx); /* start SEQUENCE */ + asn1r_strt_constr (aCtx); /* start single-ASN1-type */ + + /* Fake out ACSE encoding. Already encoded into cosp_buf. */ + aCtx->asn1r_field_ptr -= acse_conn->apdu_len; + + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* finish single-ASN1-type */ + asn1r_wr_i8 (aCtx, acse_conn->pciacse); /* PCI for ACSE */ + asn1r_fin_prim (aCtx, INT_CODE,UNI); + /* Do not encode Transfer syntax name. We know it is ASN1. */ + asn1r_fin_constr (aCtx, SEQ_CODE,UNI,DEF); /* finish SEQUENCE */ + asn1r_fin_constr (aCtx, 1,APP,DEF); /* finish P-User-data (fully-encoded) */ + + asn1r_strt_constr (aCtx); /* start P-context-identifier-list */ + asn1r_strt_constr (aCtx); /* start SEQUENCE */ + asn1r_wr_objid (aCtx, asn1_obj_id.comps, + asn1_obj_id.num_comps); /* Transfer syntax name (i.e. ASN1)*/ + asn1r_fin_prim (aCtx, OBJ_ID_CODE,UNI); + asn1r_wr_i8 (aCtx, acse_conn->pciacse); /* PCI for ACSE */ + asn1r_fin_prim (aCtx, INT_CODE,UNI); + asn1r_fin_constr (aCtx, SEQ_CODE,UNI,DEF); /* finish SEQUENCE */ + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* finish P-context-identifier-list */ + + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* finish ARU */ + + acse_conn->ppdu_ptr = aCtx->asn1r_field_ptr + 1; + acse_conn->ppdu_len = cosp_buf + cosp_msgsize - acse_conn->ppdu_ptr; + /* Pointing to beginning of Session User Information Field now. */ + + acse_conn->copp_state = COPP_STATE_IDLE; + return (cosp_u_abort_req (acse_conn)); + } + +/************************************************************************/ +/* copp_data_req */ +/************************************************************************/ +ST_RET copp_data_req (ACSE_CONN *acse_conn) + { +ASN1_ENC_CTXT localEncCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_ENC_CTXT *aCtx = &localEncCtx; + + COPP_LOG_ENC2 ("P-DATA.req: acse_conn_id =0x%08X user_conn_id =%4ld", + acse_conn, acse_conn->user_conn_id); + COPP_LOG_ENCC1 ("User data length: %d", acse_conn->apdu_len); + COPP_LOG_ENCH (acse_conn->apdu_len, acse_conn->apdu_ptr); + + if (acse_conn->copp_state != COPP_STATE_CONNECTED) + { + COPP_LOG_ERR1 ("COPP-ERROR: Cannot send P-DATA.req (Illegal state=%d)", + acse_conn->copp_state); + return (COPP_ERR_INV_STATE); + } + + /* Begin encoding request. */ + asn1r_strt_asn1_bld (aCtx, cosp_buf, cosp_msgsize); + + asn1r_strt_constr (aCtx); /* start P-User-data (fully-encoded) */ + asn1r_strt_constr (aCtx); /* start SEQUENCE */ + asn1r_strt_constr (aCtx); /* start single-ASN1-type */ + + /* Fake out ACSE encoding. Already encoded into cosp_buf. */ + aCtx->asn1r_field_ptr -= acse_conn->apdu_len; + + asn1r_fin_constr (aCtx, 0,CTX,DEF); /* finish single-ASN1-type */ + asn1r_wr_i8 (aCtx, acse_conn->pcimms); /* PCI for MMS */ + asn1r_fin_prim (aCtx, INT_CODE,UNI); + /* Do not encode Transfer syntax name. We know it is ASN1. */ + asn1r_fin_constr (aCtx, SEQ_CODE,UNI,DEF); /* finish SEQUENCE */ + asn1r_fin_constr (aCtx, 1,APP,DEF); /* finish P-User-data (fully-encoded) */ + + acse_conn->ppdu_ptr = aCtx->asn1r_field_ptr + 1; + acse_conn->ppdu_len = cosp_buf + cosp_msgsize - acse_conn->ppdu_ptr; + /* Pointing to beginning of Session User Information Field now. */ + + return (cosp_data_req (acse_conn)); + } + +/************************************************************************/ +/* copp_p_abort_req */ +/* Encode and send ARP PPDU (i.e. P-P-Abort.req). */ +/* This function only called by the COPP-provider (not by COPP-user). */ +/* Parameters: */ +/* ACSE_CONN *acse_conn Pointer to connection info */ +/* ST_INT8 abort_reason Abort-reason to send in ARP */ +/* ST_INT8 event_id Event-identifier to send in ARP */ +/* If -1, don't send it. */ +/************************************************************************/ +ST_VOID copp_p_abort_req (ACSE_CONN *acse_conn, ST_INT8 abort_reason, ST_INT8 event_id) + { +ASN1_ENC_CTXT localEncCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_ENC_CTXT *aCtx = &localEncCtx; + + COPP_LOG_ENC4 ("P-P-ABORT.req: acse_conn_id =0x%08X user_conn_id =%4ld reason =%d event_id =%d", + acse_conn, acse_conn->user_conn_id, (ST_INT) abort_reason, (ST_INT) event_id); + + /* Begin encoding request. */ + asn1r_strt_asn1_bld (aCtx, cosp_buf, cosp_msgsize); + + asn1r_strt_constr (aCtx); /* start ARP SEQUENCE */ + + if (event_id != -1) + { + asn1r_wr_i8 (aCtx, event_id); /* Event-identifier */ + asn1r_fin_prim (aCtx, 1,CTX); + } + + asn1r_wr_i8 (aCtx, abort_reason); /* Abort-reason */ + asn1r_fin_prim (aCtx, 0,CTX); + + asn1r_fin_constr (aCtx, SEQ_CODE,UNI,DEF); /* finish ARP SEQUENCE */ + acse_conn->ppdu_ptr = aCtx->asn1r_field_ptr + 1; + acse_conn->ppdu_len = cosp_buf + cosp_msgsize - acse_conn->ppdu_ptr; + /* Pointing to beginning of Session User Information Field now. */ + + /* Pass ARP to COSP. */ + cosp_u_abort_req (acse_conn); + } diff --git a/mmslib/ositcps/coppdaru.c b/mmslib/ositcps/coppdaru.c new file mode 100644 index 0000000..5be833a --- /dev/null +++ b/mmslib/ositcps/coppdaru.c @@ -0,0 +1,280 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1997-2002, All Rights Reserved */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : coppdaru.c */ +/* PRODUCT(S) : MOSI Stack (over TP4) */ +/* */ +/* MODULE DESCRIPTION : */ +/* This file implements decoding of U-ABORT indication. */ +/* */ +/* For information see the: */ +/* ISO 8822 "Information processing systems - Open Systems */ +/* Interconnection - Connection oriented presentation service */ +/* definition. */ +/* ISO 8823 "Information processing systems - Open Systems */ +/* Interconnection - Connection oriented presentation protocol */ +/* specification. */ +/* */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* u_cosp_u_abort_ind */ +/* */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 02/26/09 JRB 07 Fix to handle PDV len=0 or User-data len=0. */ +/* 01/30/06 GLB 06 Integrated porting changes for VMS */ +/* 01/02/02 JRB 05 Converted to use ASN1R (re-entrant ASN1) */ +/* 03/18/98 JRB 04 Use defines (not variables) for ASN1 errors. */ +/* 12/22/97 JRB 03 Use ST_INT8. */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 03/19/97 JRB 02 General cleanup. */ +/* 02/27/97 JRB 01 Created */ +/************************************************************************/ +#ifdef DEBUG_SISCO +static char *thisFileName = __FILE__; +#endif + +#include "glbtypes.h" +#include "sysincs.h" +#include "mem_chk.h" +#include "asn1defs.h" +#include "acse2.h" + +#include "copp.h" +#include "cosp_usr.h" + +/************************************************************************/ +/* Global Variables */ +/************************************************************************/ +/* Structure for tracking ARP/ARU decode. */ +typedef struct + { +#define COPP_U_ABORT 0 /* Use to set "abort_type" */ +#define COPP_P_ABORT 1 /* Use to set "abort_type" */ + ST_INT8 abort_type; + ST_INT8 abort_reason; + ST_INT8 event_id; + } DECODE_ARX; +static DECODE_ARX decode_arx; + +static ST_VOID START_aru (ASN1_DEC_CTXT *aCtx); +static ST_VOID START_pc_identifier_list (ASN1_DEC_CTXT *aCtx); +static ST_VOID START_sequence (ASN1_DEC_CTXT *aCtx); +static ST_VOID decode_pci (ASN1_DEC_CTXT *aCtx); +static ST_VOID decode_tsn (ASN1_DEC_CTXT *aCtx); +static ST_VOID END_sequence (ASN1_DEC_CTXT *aCtx); +static ST_VOID END_pc_identifier_list (ASN1_DEC_CTXT *aCtx); +static ST_VOID END_aru (ASN1_DEC_CTXT *aCtx); + +static ST_VOID START_arp (ASN1_DEC_CTXT *aCtx); +static ST_VOID decode_abort_reason (ASN1_DEC_CTXT *aCtx); +static ST_VOID decode_event_id (ASN1_DEC_CTXT *aCtx); +static ST_VOID END_arp (ASN1_DEC_CTXT *aCtx); + +/************************************************************************/ +/* u_cosp_u_abort_ind */ +/*----------------------------------------------------------------------*/ +/* This USER function is called by the SS-Provider to indicate that a */ +/* connection has been aborted by remote SS-user. */ +/* */ +/* Parameters: */ +/* ACSE_CONN *acse_conn Pointer to connection info */ +/* */ +/* Return: */ +/* ST_VOID */ +/************************************************************************/ +ST_VOID u_cosp_u_abort_ind (ACSE_CONN *acse_conn) + { +ASN1_DEC_CTXT localDecCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_DEC_CTXT *aCtx = &localDecCtx; + + memset (aCtx, 0, sizeof (ASN1_DEC_CTXT)); /* CRITICAL: start clean */ + + if (acse_conn->copp_state == COPP_STATE_IDLE) + { + COPP_LOG_ERR1 ("COPP-ERROR: Cannot process S-U-ABORT.ind (Illegal state=%d)", + acse_conn->copp_state); + return; + } + + aCtx->asn1r_decode_method = ASN1_TAG_METHOD; /* Use asn1_tag method for decoding. */ + aCtx->asn1r_decode_done_fun = asn1r_done_err; /* done function = error fun */ + aCtx->asn1r_err_fun = NULL; /* set up error detected fun */ + + decode_acse_conn = acse_conn; /* Save in global so asn1r_decode_asn1 (aCtx, */ + /* can fill it in. */ + + /* Set the PCI to be used during P-User-Data decode. */ + expected_pdv_pci = decode_acse_conn->pciacse; + + p_user_data_is_outer = SD_FALSE; /* P-User-data IS NOT outermost constr. */ + + /* CRITICAL: Init APDU ptr & len. Changed only if APDU found in msg. */ + acse_conn->apdu_ptr = NULL; + acse_conn->apdu_len = 0; + /* CRITICAL: Init global PDV ptr & len. Changed only if PDV found in msg.*/ + pdv_data_ptr = NULL; + pdv_data_len = 0; + + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,0,START_aru); + ASN1R_TAG_ADD (aCtx, UNI|CONSTR,SEQ_CODE,START_arp); + asn1r_decode_asn1 (aCtx, acse_conn->ppdu_ptr,acse_conn->ppdu_len); + if (aCtx->asn1r_pdu_dec_err != NO_DECODE_ERR) + { /* DECODE FAILED */ + /* Couldn't decode ARP or ARU, so pass up as P-P-Abort.ind with */ + /* reason = unrecognized-ppdu */ + decode_arx.abort_reason = 1; /* unrecognized-ppdu. */ + COPP_LOG_ERR1 ("COPP-ERROR: ASN.1 decode of S-U-Abort.ind failed, err=%d", aCtx->asn1r_pdu_dec_err); + COPP_LOG_DEC3 ("P-P-ABORT.ind: acse_conn_id =0x%08X user_conn_id =%4ld reason =%d", + acse_conn, acse_conn->user_conn_id, decode_arx.abort_reason); + u_copp_p_abort_ind (acse_conn, decode_arx.abort_reason); + } + else + { /* DECODE SUCCESSFUL */ + if (decode_arx.abort_type == COPP_U_ABORT) + { /* This is P-U-Abort */ + COPP_LOG_DEC2 ("P-U-ABORT.ind: acse_conn_id =0x%08X user_conn_id =%4ld", + acse_conn, acse_conn->user_conn_id); + COPP_LOG_DECC1 ("User data length: %d", acse_conn->apdu_len); + COPP_LOG_DECH (acse_conn->apdu_len, acse_conn->apdu_ptr); + u_copp_u_abort_ind (acse_conn); + } + else + { /* This is P-P-Abort */ + COPP_LOG_DEC4 ("P-P-ABORT.ind: acse_conn_id =0x%08X user_conn_id =%4ld reason =%d, event_id =%d", + acse_conn, acse_conn->user_conn_id, decode_arx.abort_reason, decode_arx.event_id); + u_copp_p_abort_ind (acse_conn, decode_arx.abort_reason); + } + } + acse_conn->copp_state = COPP_STATE_IDLE; /* No matter what. */ + } + +/************************************************************************/ +/* START_aru */ +/************************************************************************/ +static ST_VOID START_aru (ASN1_DEC_CTXT *aCtx) + { + decode_arx.abort_type = COPP_U_ABORT; /* Set type to U-Abort */ + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,0,START_pc_identifier_list); + ASN1R_TAG_ADD (aCtx, APP|CONSTR,1,START_p_user_data); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = END_aru; + } +/************************************************************************/ +/* START_pc_identifier_list */ +/************************************************************************/ +static ST_VOID START_pc_identifier_list (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, UNI|CONSTR,SEQ_CODE,START_sequence); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = END_pc_identifier_list; + } +/************************************************************************/ +/* START_sequence */ +/************************************************************************/ +static ST_VOID START_sequence (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, UNI,INT_CODE,decode_pci); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = END_sequence; + } +/************************************************************************/ +/* decode_pci */ +/************************************************************************/ +static ST_VOID decode_pci (ASN1_DEC_CTXT *aCtx) + { +ST_INT8 pci; + if (asn1r_get_i8 (aCtx, &pci)) + { + asn1r_set_dec_err (aCtx, ASN1E_INVALID_BOOLEAN); + return; + } + ASN1R_TAG_ADD (aCtx, UNI,OBJ_ID_CODE,decode_tsn); + } +/************************************************************************/ +/* decode_tsn */ +/************************************************************************/ +static ST_VOID decode_tsn (ASN1_DEC_CTXT *aCtx) + { +MMS_OBJ_ID tsn; + + if (asn1r_get_objid (aCtx, tsn.comps,&tsn.num_comps)) + { + asn1r_set_dec_err (aCtx, ASN1E_INVALID_BOOLEAN); + return; + } + if (asn1_objidcmp (&tsn, (MMS_OBJ_ID *) &asn1_obj_id) != 0) + { /* TSN better be ASN1 */ + asn1r_set_dec_err (aCtx, ASN1E_INVALID_BITSTR); + return; + } + } +/************************************************************************/ +/* END_sequence */ +/************************************************************************/ +static ST_VOID END_sequence (ASN1_DEC_CTXT *aCtx) + { + /* May be another context. */ + ASN1R_TAG_ADD (aCtx, UNI|CONSTR,SEQ_CODE,START_sequence); + } +/************************************************************************/ +/* END_pc_identifier_list */ +/************************************************************************/ +static ST_VOID END_pc_identifier_list (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, APP|CONSTR,1,START_p_user_data); + } +/************************************************************************/ +/* END_aru */ +/************************************************************************/ +static ST_VOID END_aru (ASN1_DEC_CTXT *aCtx) + { + aCtx->asn1r_decode_done_fun = NULL; /* done decoding */ + } + + +/************************************************************************/ +/* START_arp */ +/************************************************************************/ +static ST_VOID START_arp (ASN1_DEC_CTXT *aCtx) + { + decode_arx.abort_type = COPP_P_ABORT; /* Set type to P-Abort */ + ASN1R_TAG_ADD (aCtx, CTX,0,decode_abort_reason); + ASN1R_TAG_ADD (aCtx, CTX,1,decode_event_id); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = END_arp; + } +/************************************************************************/ +/* decode_abort_reason */ +/************************************************************************/ +static ST_VOID decode_abort_reason (ASN1_DEC_CTXT *aCtx) + { + if (asn1r_get_i8 (aCtx, &decode_arx.abort_reason)) + { + asn1r_set_dec_err (aCtx, ASN1E_INVALID_BOOLEAN); + return; + } + ASN1R_TAG_ADD (aCtx, CTX,1,decode_event_id); + } +/************************************************************************/ +/* decode_event_id */ +/************************************************************************/ +static ST_VOID decode_event_id (ASN1_DEC_CTXT *aCtx) + { + if (asn1r_get_i8 (aCtx, &decode_arx.event_id)) + { + asn1r_set_dec_err (aCtx, ASN1E_INVALID_BOOLEAN); + return; + } + } +/************************************************************************/ +/* END_arp */ +/************************************************************************/ +static ST_VOID END_arp (ASN1_DEC_CTXT *aCtx) + { + aCtx->asn1r_decode_done_fun = NULL; /* done decoding */ + } diff --git a/mmslib/ositcps/coppdcp.c b/mmslib/ositcps/coppdcp.c new file mode 100644 index 0000000..324ad44 --- /dev/null +++ b/mmslib/ositcps/coppdcp.c @@ -0,0 +1,767 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1997-2002, All Rights Reserved */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : coppdcp.c */ +/* PRODUCT(S) : MOSI Stack (over TP4) */ +/* */ +/* MODULE DESCRIPTION : */ +/* This file implements decoding of CP and CPA PPDUs. */ +/* */ +/* For information see the: */ +/* ISO 8822 "Information processing systems - Open Systems */ +/* Interconnection - Connection oriented presentation service */ +/* definition. */ +/* ISO 8823 "Information processing systems - Open Systems */ +/* Interconnection - Connection oriented presentation protocol */ +/* specification. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* u_cosp_con_ind */ +/* u_cosp_con_cnf_pos */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 02/26/09 JRB 17 Fix to handle PDV len=0 or User-data len=0. */ +/* 10/23/08 JRB 16 Del unused variable. */ +/* 10/08/08 JRB 15 Fix PSEL decode (didn't work if len > 127). */ +/* 04/28/08 GLB 14 Removed CALLED_ONLY and CALLING_ONLY */ +/* 01/30/06 GLB 13 Integrated porting changes for VMS */ +/* 08/01/03 JRB 12 Elim compiler warning. */ +/* 06/24/03 JRB 11 Init psels before decode to avoid crash */ +/* when sender does not send psels. */ +/* 03/31/03 JRB 10 asn1r_get_bitstr: add max_bits arg. */ +/* 01/02/02 JRB 09 Converted to use ASN1R (re-entrant ASN1) */ +/* 10/10/01 JRB 08 asn1_skip_elmnt doesn't work for indef len */ +/* encoding. Use "parse_next" instead. */ +/* 05/09/01 JRB 07 On P-CONNECT.ind, save PSELs in ACSE_CONN. */ +/* 02/02/99 JRB 06 BUG FIX: Decode "prov_reas" in "Result-list" */ +/* even if no TSN (see decode_result). */ +/* 03/18/98 JRB 05 Use defines (not variables) for ASN1 errors. */ +/* 02/20/98 JRB 04 Chg abort_reason & event_id to ST_INT8. */ +/* 12/22/97 JRB 03 Use ST_INT8. */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 03/19/97 JRB 02 Add "CALLING" support. General cleanup. */ +/* 02/27/97 JRB 01 Created */ +/************************************************************************/ +#ifdef DEBUG_SISCO +static char *thisFileName = __FILE__; +#endif + +#include "glbtypes.h" +#include "sysincs.h" +#include "mem_chk.h" +#include "asn1defs.h" +#include "acse2.h" + +#include "copp.h" +#include "cosp_usr.h" + +/************************************************************************/ +/* Global Variables */ +/************************************************************************/ +/* Structure for tracking this decode. */ +typedef struct + { +#define PPDU_TYPE_CP 0 /* This is a CP PPDU. */ +#define PPDU_TYPE_CPA 1 /* This is a CPA PPDU. */ + ST_INT ppdu_type; /* PPDU_TYPE_CP or PPDU_TYPE_CPA */ + ST_UCHAR version_bit_str; + ST_UCHAR calling_psel [MAX_PSEL_LEN+1]; + ST_UCHAR called_psel [MAX_PSEL_LEN+1]; + ST_UCHAR responding_psel[MAX_PSEL_LEN+1]; + ST_INT num_ctxt; + ST_BOOLEAN bad_pc_deflist; /* SD_TRUE if anything we don't like in pc_deflist*/ + ST_BOOLEAN def_ctxt_proposed; + ST_INT8 mode; + ST_BOOLEAN pres_req_present; + ST_UCHAR pres_req [1]; + ST_BOOLEAN user_ses_req_present; + ST_UCHAR user_sess_req [2]; + ST_BOOLEAN send_negative_resp; /* if set, send negative response */ + ST_INT negative_resp_reason; /* reason to send in negative response */ + } DECODE_CP; +static DECODE_CP decode_cp; +static ST_INT8 pci; /* PCI rcvd in P-context-def-list */ + +static ST_VOID START_p_cp (ASN1_DEC_CTXT *aCtx); +static ST_VOID START_mode (ASN1_DEC_CTXT *aCtx); +static ST_VOID decode_mode2 (ASN1_DEC_CTXT *aCtx); +static ST_VOID END_mode (ASN1_DEC_CTXT *aCtx); +static ST_VOID START_p_cp_sequence (ASN1_DEC_CTXT *aCtx); +static ST_VOID decode_version (ASN1_DEC_CTXT *aCtx); +static ST_VOID decode_calling_psel (ASN1_DEC_CTXT *aCtx); +static ST_VOID decode_called_psel (ASN1_DEC_CTXT *aCtx); +static ST_VOID START_pc_deflist (ASN1_DEC_CTXT *aCtx); +static ST_VOID START_context (ASN1_DEC_CTXT *aCtx); +static ST_VOID decode_pci (ASN1_DEC_CTXT *aCtx); +static ST_VOID decode_asn (ASN1_DEC_CTXT *aCtx); +static ST_VOID START_tsn_list (ASN1_DEC_CTXT *aCtx); +static ST_VOID decode_tsn (ASN1_DEC_CTXT *aCtx); +static ST_VOID END_tsn_list (ASN1_DEC_CTXT *aCtx); +static ST_VOID END_context (ASN1_DEC_CTXT *aCtx); +static ST_VOID END_pc_deflist (ASN1_DEC_CTXT *aCtx); +static ST_VOID START_def_ctxt_name (ASN1_DEC_CTXT *aCtx); +static ST_VOID parse_next_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID END_def_ctxt_name (ASN1_DEC_CTXT *aCtx); +static ST_VOID decode_pres_req (ASN1_DEC_CTXT *aCtx); +static ST_VOID decode_user_sess_req (ASN1_DEC_CTXT *aCtx); +static ST_VOID END_p_cp_sequence (ASN1_DEC_CTXT *aCtx); +static ST_VOID END_p_cp (ASN1_DEC_CTXT *aCtx); + +/* Functions used only for CPA decode */ +static ST_VOID decode_responding_psel (ASN1_DEC_CTXT *aCtx); +static ST_VOID START_pc_def_result_list (ASN1_DEC_CTXT *aCtx); +static ST_VOID START_result_seq (ASN1_DEC_CTXT *aCtx); +static ST_VOID decode_result (ASN1_DEC_CTXT *aCtx); +static ST_VOID decode_tsn2 (ASN1_DEC_CTXT *aCtx); +static ST_VOID decode_result_list_prov_reas (ASN1_DEC_CTXT *aCtx); +static ST_VOID END_result_seq (ASN1_DEC_CTXT *aCtx); +static ST_VOID END_pc_def_result_list (ASN1_DEC_CTXT *aCtx); + +/* All code dealing with "*_psel" (here and in other modules) assumes */ +/* length fits in first byte of PSEL. */ +/* NOTE: Longer PSELs should never be needed, and if another app sends */ +/* one, this code gracefully refuses the connection. */ +#if MAX_PSEL_LEN > 127 +#error This code will not work because (MAX_PSEL_LEN > 127). Length must fit in first byte of psel. +#endif +/************************************************************************/ +/* u_cosp_con_ind */ +/*----------------------------------------------------------------------*/ +/* This USER function is called by the SS-Provider to indicate that a */ +/* remote node wishes to establish a connection. */ +/* */ +/* Parameters: */ +/* ST_LONG user_bind_id SS-User's id for this binding. */ +/* ACSE_CONN *con Pointer to connection info */ +/* */ +/* Return: */ +/* ST_VOID */ +/************************************************************************/ +ST_VOID u_cosp_con_ind (ST_LONG user_bind_id, ACSE_CONN *acse_conn) + { +ST_INT8 abort_reason; +ST_INT8 event_id; +ASN1_DEC_CTXT localDecCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_DEC_CTXT *aCtx = &localDecCtx; + + memset (aCtx, 0, sizeof (ASN1_DEC_CTXT)); /* CRITICAL: start clean */ + + if (acse_conn->copp_state != COPP_STATE_IDLE) + { + COPP_LOG_ERR1 ("COPP-ERROR: Cannot process S-CONNECT.ind (Illegal state=%d)", + acse_conn->copp_state); + return; + } + + aCtx->asn1r_decode_method = ASN1_TAG_METHOD; /* Use asn1_tag method for decoding. */ + aCtx->asn1r_decode_done_fun = asn1r_done_err; /* done function = error fun */ + aCtx->asn1r_err_fun = NULL; /* set up error detected fun */ + + /* Clean out old stuff from structure. */ + memset (&decode_cp, 0, sizeof (decode_cp)); + decode_cp.ppdu_type = PPDU_TYPE_CP; + decode_cp.version_bit_str = 0x80; /* Default to "version1". */ + + /* CRITICAL: memset above initializes "decode_cp.*_psel[0]=0" */ + /* (i.e. length=0) in case they are NOT received in CP. */ + + decode_acse_conn = acse_conn; /* Save in global so asn1r_decode_asn1 (aCtx, */ + /* can fill it in. */ + + /* WARNING: expected_pdv_pci MUST BE SET before START_p_user_data */ + /* is called (by asn1r_decode_asn1 (aCtx,). Don't know it yet, so don't set here. */ + + p_user_data_is_outer = SD_FALSE; /* P-User-data IS NOT outermost constr. */ + + /* CRITICAL: Init APDU ptr & len. Changed only if APDU found in msg. */ + acse_conn->apdu_ptr = NULL; + acse_conn->apdu_len = 0; + /* CRITICAL: Init global PDV ptr & len. Changed only if PDV found in msg.*/ + pdv_data_ptr = NULL; + pdv_data_len = 0; + +/* Call 'asn1r_decode_asn1 (aCtx,' to parse the message. */ + ASN1R_TAG_ADD (aCtx, UNI|CONSTR,SET_CODE,START_p_cp); + asn1r_decode_asn1 (aCtx, acse_conn->ppdu_ptr,acse_conn->ppdu_len); + if (aCtx->asn1r_pdu_dec_err != NO_DECODE_ERR) + { + COPP_LOG_ERR1 ("COPP-ERROR: ASN.1 decode of S-Connect.ind failed, err=%d", aCtx->asn1r_pdu_dec_err); + abort_reason = 1; /* unrecognized-ppdu */ + event_id = -1; /* Unlisted */ + /* Encode and send ARP PPDU. */ + copp_p_abort_req (acse_conn, abort_reason, event_id); + /* DON'T pass P-P-Abort.ind to COPP-user. User doesn't know about conn.*/ + } + else if (decode_cp.send_negative_resp) + { + /* Flag was set during decode to trigger negative response, so send it.*/ + copp_con_rsp_neg (acse_conn, decode_cp.negative_resp_reason); + } + else if (decode_cp.version_bit_str != 0x80) + { /* Must be version1: Bit 0 of bitstr (high bit) set */ + COPP_LOG_ERR0 ("COPP-ERROR: P-CONNECT.ind contains illegal P-version."); + copp_con_rsp_neg (acse_conn, PROV_REASON_VERSION); + } + else if (decode_cp.def_ctxt_proposed) + { + COPP_LOG_ERR0 ("COPP-ERROR: P-CONNECT.ind contains unsupported P-default-context."); + copp_con_rsp_neg (acse_conn, PROV_REASON_DEFAULT_CONTEXT); + } + else if (memcmp (decode_cp.called_psel, only_loc_psel, only_loc_psel [0]+1)) + { /* Called PSEL must be one that is bound. */ + COPP_LOG_ERR0 ("COPP-ERROR: P-CONNECT.ind contains invalid Called-P-address."); + copp_con_rsp_neg (acse_conn, PROV_REASON_CALLED_PRES_ADDR); + } + else if (decode_cp.bad_pc_deflist) + { /* Something we can't handle in pc_deflist. */ + COPP_LOG_ERR0 ("COPP-ERROR: P-CONNECT.ind contains illegal PC-deflist."); + copp_con_rsp_neg (acse_conn, PROV_REASON_LOCAL_LIMIT); + } + else + { + COPP_LOG_DEC1 ("P-CONNECT.ind: acse_conn_id =0x%08X", acse_conn); + COPP_LOG_DECC1 ("User data length: %d", acse_conn->apdu_len); + COPP_LOG_DECH (acse_conn->apdu_len, acse_conn->apdu_ptr); + + acse_conn->copp_state = COPP_STATE_AWAIT_CON_RSP; + + /* Save called_psel, calling_psel in acse_conn. */ + /* Will NEVER be too long, because len checked above. */ + memcpy (acse_conn->loc_psel, decode_cp.called_psel, decode_cp.called_psel [0]+1); + memcpy (acse_conn->rem_psel, decode_cp.calling_psel, decode_cp.calling_psel [0]+1); + + u_copp_con_ind (user_bind_id, acse_conn); + } + } + +/************************************************************************/ +/* u_cosp_con_cnf_pos */ +/*----------------------------------------------------------------------*/ +/* This USER function is called by the SS-Provider to indicate that */ +/* the connection has been established. */ +/* */ +/* Parameters: */ +/* acse_conn Pointer to connection info */ +/* */ +/* Return: */ +/* ST_VOID */ +/************************************************************************/ +ST_VOID u_cosp_con_cnf_pos (ACSE_CONN *acse_conn) + { +ST_INT8 abort_reason; +ST_INT8 event_id; +ASN1_DEC_CTXT localDecCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_DEC_CTXT *aCtx = &localDecCtx; + + memset (aCtx, 0, sizeof (ASN1_DEC_CTXT)); /* CRITICAL: start clean */ + + if (acse_conn->copp_state != COPP_STATE_AWAIT_CPA) + { + COPP_LOG_ERR1 ("COPP-ERROR: Cannot process S-CONNECT.cnf+ (Illegal state=%d)", + acse_conn->copp_state); + return; + } + + aCtx->asn1r_decode_method = ASN1_TAG_METHOD; /* Use asn1_tag method for decoding. */ + aCtx->asn1r_decode_done_fun = asn1r_done_err; /* done function = error fun */ + aCtx->asn1r_err_fun = NULL; /* set up error detected fun */ + + /* Clean out old stuff from structure. */ + memset (&decode_cp, 0, sizeof (decode_cp)); + decode_cp.ppdu_type = PPDU_TYPE_CPA; + decode_cp.version_bit_str = 0x80; /* Default to "version1". */ + + /* CRITICAL: memset above initializes "decode_cp.*_psel[0]=0" */ + /* (i.e. length=0) in case they are NOT received in CPA. */ + + decode_acse_conn = acse_conn; /* Save in global so asn1r_decode_asn1 (aCtx, */ + /* can fill it in. */ + + /* WARNING: expected_pdv_pci MUST BE SET before START_p_user_data */ + /* is called (by asn1r_decode_asn1 (aCtx,). SET IT NOW. */ + expected_pdv_pci = acse_conn->pciacse; + + p_user_data_is_outer = SD_FALSE; /* P-User-data IS NOT outermost constr. */ + + /* CRITICAL: Init APDU ptr & len. Changed only if APDU found in msg. */ + acse_conn->apdu_ptr = NULL; + acse_conn->apdu_len = 0; + /* CRITICAL: Init global PDV ptr & len. Changed only if PDV found in msg.*/ + pdv_data_ptr = NULL; + pdv_data_len = 0; + +/* Call 'asn1r_decode_asn1 (aCtx,' to parse the message. */ + ASN1R_TAG_ADD (aCtx, UNI|CONSTR,SET_CODE,START_p_cp); + asn1r_decode_asn1 (aCtx, acse_conn->ppdu_ptr,acse_conn->ppdu_len); + if (aCtx->asn1r_pdu_dec_err != NO_DECODE_ERR) + { + COPP_LOG_ERR1 ("COPP-ERROR: ASN.1 decode of S-Connect.cnf+ failed, err=%d", aCtx->asn1r_pdu_dec_err); + acse_conn->copp_state = COPP_STATE_IDLE; + abort_reason = 1; /* unrecognized-ppdu */ + event_id = -1; /* Unlisted */ + /* Encode and send ARP PPDU. */ + copp_p_abort_req (acse_conn, abort_reason, event_id); + /* Pass P-P-Abort.ind to COPP-user. */ + u_copp_p_abort_ind (acse_conn, abort_reason); + } + else if (decode_cp.version_bit_str != 0x80 || decode_cp.bad_pc_deflist) + { /* Must be version1: Bit 0 of bitstr (high bit) set */ + COPP_LOG_ERR1 ("COPP-ERROR: Unsupported version in CPA received for conn %d", + acse_conn->user_conn_id); + acse_conn->copp_state = COPP_STATE_IDLE; + abort_reason = 6; /* invalid-ppdu-parameter-value */ + event_id = 1; /* cpa-PPDU */ + /* Encode and send ARP PPDU. */ + copp_p_abort_req (acse_conn, abort_reason, event_id); + /* Pass P-P-Abort.ind to COPP-user. */ + u_copp_p_abort_ind (acse_conn, abort_reason); + } + else + { + COPP_LOG_DEC2 ("P-CONNECT.cnf+: acse_conn_id =0x%08X user_conn_id =%4ld", + acse_conn, acse_conn->user_conn_id); + COPP_LOG_DECC1 ("User data length: %d", acse_conn->apdu_len); + COPP_LOG_DECH (acse_conn->apdu_len, acse_conn->apdu_ptr); + + acse_conn->copp_state = COPP_STATE_CONNECTED; + u_copp_con_cnf (acse_conn, P_CON_RESULT_ACCEPT, 0); + } + } + + /*======================================================*/ + /* FUNCTIONS BELOW USED FOR BOTH */ + /* "CP" AND "CPA" DECODE */ + /*======================================================*/ + +/************************************************************************/ +/* START_p_cp */ +/************************************************************************/ +static ST_VOID START_p_cp (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,0,START_mode); + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,2,START_p_cp_sequence); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = END_p_cp; + } +/************************************************************************/ +/* START_mode */ +/************************************************************************/ +static ST_VOID START_mode (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, CTX,0,decode_mode2); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = END_mode; + } +/************************************************************************/ +/* decode_mode2 */ +/************************************************************************/ +static ST_VOID decode_mode2 (ASN1_DEC_CTXT *aCtx) + { + if (asn1r_get_i8 (aCtx, &decode_cp.mode) || decode_cp.mode != 1) /* Not "normal" mode. Give up. */ + { + asn1r_set_dec_err (aCtx, ASN1E_INVALID_BOOLEAN); + return; + } + } +/************************************************************************/ +/* END_mode */ +/************************************************************************/ +static ST_VOID END_mode (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,2,START_p_cp_sequence); + } +/************************************************************************/ +/* START_p_cp_sequence */ +/************************************************************************/ +static ST_VOID START_p_cp_sequence (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, CTX,0,decode_version); + if (decode_cp.ppdu_type == PPDU_TYPE_CP) + { /* This is CP PPDU */ + ASN1R_TAG_ADD (aCtx, CTX,1,decode_calling_psel); + ASN1R_TAG_ADD (aCtx, CTX,2,decode_called_psel); + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,4,START_pc_deflist); + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,6,START_def_ctxt_name); + } + else + { /* This is CPA PPDU */ + ASN1R_TAG_ADD (aCtx, CTX,3,decode_responding_psel); + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,5,START_pc_def_result_list); + } + ASN1R_TAG_ADD (aCtx, CTX,8,decode_pres_req); + ASN1R_TAG_ADD (aCtx, CTX,9,decode_user_sess_req); + ASN1R_TAG_ADD (aCtx, APP|CONSTR,1,START_p_user_data); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = END_p_cp_sequence; + } +/************************************************************************/ +/* decode_version */ +/************************************************************************/ +static ST_VOID decode_version (ASN1_DEC_CTXT *aCtx) + { + asn1r_get_bitstr (aCtx, &decode_cp.version_bit_str, 8); + if (decode_cp.ppdu_type == PPDU_TYPE_CP) + { /* This is CP PPDU */ + ASN1R_TAG_ADD (aCtx, CTX,1,decode_calling_psel); + ASN1R_TAG_ADD (aCtx, CTX,2,decode_called_psel); + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,4,START_pc_deflist); + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,6,START_def_ctxt_name); + } + else + { /* This is CPA PPDU */ + ASN1R_TAG_ADD (aCtx, CTX,3,decode_responding_psel); + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,5,START_pc_def_result_list); + } + ASN1R_TAG_ADD (aCtx, CTX,8,decode_pres_req); + ASN1R_TAG_ADD (aCtx, CTX,9,decode_user_sess_req); + ASN1R_TAG_ADD (aCtx, APP|CONSTR,1,START_p_user_data); + } +/************************************************************************/ +/* decode_calling_psel */ +/************************************************************************/ +static ST_VOID decode_calling_psel (ASN1_DEC_CTXT *aCtx) + { + /* If len within limit, copy psel to decode structure. */ + /* If not, set flag to send negative response. */ + if (aCtx->asn1r_elmnt_len <= MAX_PSEL_LEN) + { + decode_cp.calling_psel [0] = aCtx->asn1r_elmnt_len; + memcpy (&decode_cp.calling_psel [1], aCtx->asn1r_field_ptr, aCtx->asn1r_elmnt_len); + } + else + { + COPP_LOG_ERR2 ("P-CONNECT.ind: Calling PSEL len=%d exceeds max=%d", + aCtx->asn1r_elmnt_len, MAX_PSEL_LEN); + decode_cp.send_negative_resp = SD_TRUE; /* send negative response*/ + decode_cp.negative_resp_reason = PROV_REASON_LOCAL_LIMIT; + } + + /* Primitive CAN'T be indef len, so asn1_skip_elmnt is safe here. */ + asn1_skip_elmnt (aCtx); /* Don't bother decoding it. */ + ASN1R_TAG_ADD (aCtx, CTX,2,decode_called_psel); + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,4,START_pc_deflist); + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,6,START_def_ctxt_name); + ASN1R_TAG_ADD (aCtx, CTX,8,decode_pres_req); + ASN1R_TAG_ADD (aCtx, CTX,9,decode_user_sess_req); + ASN1R_TAG_ADD (aCtx, APP|CONSTR,1,START_p_user_data); + } +/************************************************************************/ +/* decode_called_psel */ +/************************************************************************/ +static ST_VOID decode_called_psel (ASN1_DEC_CTXT *aCtx) + { + /* If len within limit, copy psel to decode structure. */ + /* If not, set flag to send negative response. */ + if (aCtx->asn1r_elmnt_len <= MAX_PSEL_LEN) + { + decode_cp.called_psel [0] = aCtx->asn1r_elmnt_len; /* first byte is len*/ + memcpy (&decode_cp.called_psel [1], aCtx->asn1r_field_ptr, aCtx->asn1r_elmnt_len); + } + else + { + COPP_LOG_ERR2 ("P-CONNECT.ind: Called PSEL len=%d exceeds max=%d", + aCtx->asn1r_elmnt_len, MAX_PSEL_LEN); + decode_cp.send_negative_resp = SD_TRUE; /* send negative response*/ + decode_cp.negative_resp_reason = PROV_REASON_LOCAL_LIMIT; + } + + /* Primitive CAN'T be indef len, so asn1_skip_elmnt is safe here. */ + asn1_skip_elmnt (aCtx); /* Don't bother decoding it. */ + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,4,START_pc_deflist); + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,6,START_def_ctxt_name); + ASN1R_TAG_ADD (aCtx, CTX,8,decode_pres_req); + ASN1R_TAG_ADD (aCtx, CTX,9,decode_user_sess_req); + ASN1R_TAG_ADD (aCtx, APP|CONSTR,1,START_p_user_data); + } +/************************************************************************/ +/* START_pc_deflist */ +/************************************************************************/ +static ST_VOID START_pc_deflist (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, UNI|CONSTR,SEQ_CODE,START_context); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = END_pc_deflist; + } +/************************************************************************/ +/* START_context */ +/************************************************************************/ +static ST_VOID START_context (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, UNI,INT_CODE,decode_pci); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = END_context; + } +/************************************************************************/ +/* decode_pci */ +/************************************************************************/ +static ST_VOID decode_pci (ASN1_DEC_CTXT *aCtx) + { + if (asn1r_get_i8 (aCtx, &pci)) + { + asn1r_set_dec_err (aCtx, ASN1E_INVALID_BOOLEAN); + return; + } + ASN1R_TAG_ADD (aCtx, UNI,OBJ_ID_CODE,decode_asn); + } +/************************************************************************/ +/* decode_asn */ +/************************************************************************/ +static ST_VOID decode_asn (ASN1_DEC_CTXT *aCtx) + { +MMS_OBJ_ID asn; + if (asn1r_get_objid (aCtx, asn.comps,&asn.num_comps)) + { + asn1r_set_dec_err (aCtx, ASN1E_INVALID_BOOLEAN); + return; + } + if (asn1_objidcmp (&asn, (MMS_OBJ_ID *) &mms_obj_id) == 0) + decode_acse_conn->pcimms = pci; + else if (asn1_objidcmp (&asn, (MMS_OBJ_ID *) &acse_obj_id) == 0) + decode_acse_conn->pciacse = pci; + else + { /* Unrecognized Abstract Syntax. Must be "ACSE" or "ISO MMS". */ + decode_cp.bad_pc_deflist = SD_TRUE; + } + + ASN1R_TAG_ADD (aCtx, UNI|CONSTR,SEQ_CODE,START_tsn_list); + } +/************************************************************************/ +/* START_tsn_list */ +/************************************************************************/ +static ST_VOID START_tsn_list (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, UNI,OBJ_ID_CODE,decode_tsn); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = END_tsn_list; + } +/************************************************************************/ +/* decode_tsn */ +/************************************************************************/ +static ST_VOID decode_tsn (ASN1_DEC_CTXT *aCtx) + { +MMS_OBJ_ID tsn; + + if (asn1r_get_objid (aCtx, tsn.comps,&tsn.num_comps)) + { + asn1r_set_dec_err (aCtx, ASN1E_INVALID_BOOLEAN); + return; + } + if (asn1_objidcmp (&tsn, (MMS_OBJ_ID *) &asn1_obj_id) != 0) + { /* TSN better be ASN1 */ + decode_cp.bad_pc_deflist = SD_TRUE; + } + /* DEBUG: we don't support multiple TSN so no ASN1R_TAG_ADD (aCtx, here. */ + /* Should end up in END_tsn_list after this. */ + } +/************************************************************************/ +/* END_tsn_list */ +/************************************************************************/ +static ST_VOID END_tsn_list (ASN1_DEC_CTXT *aCtx) + { + return; + } +/************************************************************************/ +/* END_context */ +/************************************************************************/ +static ST_VOID END_context (ASN1_DEC_CTXT *aCtx) + { + decode_acse_conn->num_ctxt++; + /* May be another context. */ + ASN1R_TAG_ADD (aCtx, UNI|CONSTR,SEQ_CODE,START_context); + } +/************************************************************************/ +/* END_pc_deflist */ +/************************************************************************/ +static ST_VOID END_pc_deflist (ASN1_DEC_CTXT *aCtx) + { + /* Set the PCI to be used during P-User-Data decode. */ + /* WARNING: this must be done here because we don't know what it is */ + /* beforehand. */ + expected_pdv_pci = decode_acse_conn->pciacse; + + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,6,START_def_ctxt_name); + ASN1R_TAG_ADD (aCtx, CTX,8,decode_pres_req); + ASN1R_TAG_ADD (aCtx, CTX,9,decode_user_sess_req); + ASN1R_TAG_ADD (aCtx, APP|CONSTR,1,START_p_user_data); + } +/************************************************************************/ +/* START_def_ctxt_name */ +/* Default-context-name. If this is present, we will refuse this */ +/* connection so don't bother decoding it. */ +/************************************************************************/ +static ST_VOID START_def_ctxt_name (ASN1_DEC_CTXT *aCtx) + { + decode_cp.def_ctxt_proposed = SD_TRUE; + /* Don't bother decoding it. Use asn1r_parse_next (aCtx, to skip over it. */ + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = END_def_ctxt_name; + asn1r_parse_next (aCtx, parse_next_done); + } +/************************************************************************/ +/* parse_next_done */ +/************************************************************************/ +static ST_VOID parse_next_done (ASN1_DEC_CTXT *aCtx) + { /* called when "asn1r_parse_next (aCtx," is done */ + } +/************************************************************************/ +/* END_def_ctxt_name */ +/************************************************************************/ +static ST_VOID END_def_ctxt_name (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, CTX,8,decode_pres_req); + ASN1R_TAG_ADD (aCtx, CTX,9,decode_user_sess_req); + ASN1R_TAG_ADD (aCtx, APP|CONSTR,1,START_p_user_data); + } +/************************************************************************/ +/* decode_pres_req */ +/************************************************************************/ +static ST_VOID decode_pres_req (ASN1_DEC_CTXT *aCtx) + { + decode_cp.pres_req_present = SD_TRUE; + asn1r_get_bitstr (aCtx, decode_cp.pres_req, 8); + ASN1R_TAG_ADD (aCtx, CTX,9,decode_user_sess_req); + ASN1R_TAG_ADD (aCtx, APP|CONSTR,1,START_p_user_data); + } +/************************************************************************/ +/* decode_user_sess_req */ +/************************************************************************/ +static ST_VOID decode_user_sess_req (ASN1_DEC_CTXT *aCtx) + { + decode_cp.user_ses_req_present = SD_TRUE; + asn1r_get_bitstr (aCtx, decode_cp.user_sess_req, 16); + ASN1R_TAG_ADD (aCtx, APP|CONSTR,1,START_p_user_data); + } +/************************************************************************/ +/* END_p_cp_sequence */ +/************************************************************************/ +static ST_VOID END_p_cp_sequence (ASN1_DEC_CTXT *aCtx) + { /* Somebody might encode "mode" after "p_cp_sequence". */ + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,0,START_mode); + } +/************************************************************************/ +/* END_p_cp */ +/************************************************************************/ +static ST_VOID END_p_cp (ASN1_DEC_CTXT *aCtx) + { + aCtx->asn1r_decode_done_fun = NULL; /* done decoding */ + } + + /*======================================================*/ + /* FUNCTIONS BELOW USED ONLY FOR "CPA" DECODE */ + /* */ + /*======================================================*/ + +/************************************************************************/ +/* decode_responding_psel */ +/* NOTE: Responding PSEL not used, so if can't decode, just ignore it. */ +/************************************************************************/ +static ST_VOID decode_responding_psel (ASN1_DEC_CTXT *aCtx) + { + /* If len within limit, copy psel to decode structure. */ + /* If not, just log & ignore (responding PSEL not usually needed). */ + if (aCtx->asn1r_elmnt_len <= MAX_PSEL_LEN) + { + decode_cp.responding_psel [0] = aCtx->asn1r_elmnt_len; + memcpy (&decode_cp.responding_psel [1], aCtx->asn1r_field_ptr, aCtx->asn1r_elmnt_len); + } + else + COPP_LOG_DEC2 ("P-CONNECT.cnf+: Responding PSEL len=%d exceeds max=%d. Ignored.", + aCtx->asn1r_elmnt_len, MAX_PSEL_LEN); + + /* Primitive CAN'T be indef len, so asn1_skip_elmnt is safe here. */ + asn1_skip_elmnt (aCtx); /* Don't bother decoding it. */ + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,5,START_pc_def_result_list); + ASN1R_TAG_ADD (aCtx, CTX,8,decode_pres_req); + ASN1R_TAG_ADD (aCtx, CTX,9,decode_user_sess_req); + ASN1R_TAG_ADD (aCtx, APP|CONSTR,1,START_p_user_data); + } +/************************************************************************/ +/* START_pc_def_result_list */ +/************************************************************************/ +static ST_VOID START_pc_def_result_list (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, UNI|CONSTR,SEQ_CODE,START_result_seq); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = END_pc_def_result_list; + } +/************************************************************************/ +/* START_result_seq */ +/************************************************************************/ +static ST_VOID START_result_seq (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, CTX,0,decode_result); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = END_result_seq; + } +/************************************************************************/ +/* decode_result */ +/************************************************************************/ +static ST_VOID decode_result (ASN1_DEC_CTXT *aCtx) + { +ST_INT8 result; + if (asn1r_get_i8 (aCtx, &result)) + { + asn1r_set_dec_err (aCtx, ASN1E_INVALID_BOOLEAN); + return; + } + if (result != 0) + { /* P-Context rejected. We can't handle any rejection so set flag.*/ + decode_cp.bad_pc_deflist = SD_TRUE; + } + ASN1R_TAG_ADD (aCtx, CTX,1,decode_tsn2); + ASN1R_TAG_ADD (aCtx, CTX,2,decode_result_list_prov_reas); + } +/************************************************************************/ +/* decode_tsn2 */ +/* NOTE: This is essentially same as decode_tsn used in the CP decode */ +/* except for the different ASN1R_TAG_ADD (aCtx, at the end. In either case */ +/* if we receive any TSN that is not ASN.1 (this is the only */ +/* TSN we will ever accept or propose) we set the flag */ +/* decode_cp.bad_pc_deflist = SD_TRUE */ +/************************************************************************/ +static ST_VOID decode_tsn2 (ASN1_DEC_CTXT *aCtx) + { +MMS_OBJ_ID tsn; + + if (asn1r_get_objid (aCtx, tsn.comps,&tsn.num_comps)) + { + asn1r_set_dec_err (aCtx, ASN1E_INVALID_BOOLEAN); + return; + } + if (asn1_objidcmp (&tsn, (MMS_OBJ_ID *) &asn1_obj_id) != 0) + { /* TSN better be ASN1 */ + decode_cp.bad_pc_deflist = SD_TRUE; + } + ASN1R_TAG_ADD (aCtx, CTX,2,decode_result_list_prov_reas); + } +/************************************************************************/ +/* decode_result_list_prov_reas */ +/* NOTE: Decode but don't save value, because no real use for it. */ +/************************************************************************/ +static ST_VOID decode_result_list_prov_reas (ASN1_DEC_CTXT *aCtx) + { +ST_INT8 result_list_prov_reas; + if (asn1r_get_i8 (aCtx, &result_list_prov_reas)) + { + asn1r_set_dec_err (aCtx, ASN1E_INVALID_BOOLEAN); + return; + } + } +/************************************************************************/ +/* END_result_seq */ +/************************************************************************/ +static ST_VOID END_result_seq (ASN1_DEC_CTXT *aCtx) + { + decode_acse_conn->num_ctxt++; + /* May be another "result sequence". */ + ASN1R_TAG_ADD (aCtx, UNI|CONSTR,SEQ_CODE,START_result_seq); + } +/************************************************************************/ +/* END_pc_def_result_list */ +/************************************************************************/ +static ST_VOID END_pc_def_result_list (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, CTX,8,decode_pres_req); + ASN1R_TAG_ADD (aCtx, CTX,9,decode_user_sess_req); + ASN1R_TAG_ADD (aCtx, APP|CONSTR,1,START_p_user_data); + } + diff --git a/mmslib/ositcps/coppdcpr.c b/mmslib/ositcps/coppdcpr.c new file mode 100644 index 0000000..1e1ddbd --- /dev/null +++ b/mmslib/ositcps/coppdcpr.c @@ -0,0 +1,401 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1997-2002, All Rights Reserved */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : coppdcpr.c */ +/* PRODUCT(S) : MOSI Stack (over TP4) */ +/* */ +/* MODULE DESCRIPTION : */ +/* This file implements decoding of CPR PPDU. */ +/* */ +/* For information see the: */ +/* ISO 8822 "Information processing systems - Open Systems */ +/* Interconnection - Connection oriented presentation service */ +/* definition. */ +/* ISO 8823 "Information processing systems - Open Systems */ +/* Interconnection - Connection oriented presentation protocol */ +/* specification. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* u_cosp_con_cnf_neg */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 02/26/09 JRB 11 Fix to handle PDV len=0 or User-data len=0. */ +/* 10/08/08 JRB 10 Fix PSEL decode (didn't work if len > 127). */ +/* 04/28/08 GLB 09 Removed CALLED_ONLY. */ +/* 03/31/03 JRB 08 asn1r_get_bitstr: add max_bits arg. */ +/* 01/02/02 JRB 07 Converted to use ASN1R (re-entrant ASN1) */ +/* 10/09/01 JRB 06 asn1_skip_elmnt doesn't work for indef len */ +/* encoding. Use "parse_next" instead. */ +/* 02/02/99 JRB 05 BUG FIX: Decode "prov_reas" in "Result-list" */ +/* even if no TSN (see decode_result). */ +/* 02/02/99 JRB 04 Allow User-data with Prov-reason but ignore. */ +/* 03/18/98 JRB 03 Use defines (not variables) for ASN1 errors. */ +/* 12/22/97 JRB 02 Use ST_INT8. */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 03/19/97 JRB 01 Created */ +/************************************************************************/ +#ifdef DEBUG_SISCO +static char *thisFileName = __FILE__; +#endif + +#include "glbtypes.h" +#include "sysincs.h" +#include "mem_chk.h" +#include "asn1defs.h" +#include "acse2.h" + +#include "copp.h" +#include "cosp_usr.h" + +/* Define illegal value for "provider_reason". Init to this before */ +/* decode. If still equals this after decode, it was not encoded in PDU.*/ +#define CPR_PROVIDER_REASON_NOT_ENCODED -1 + +/************************************************************************/ +/* Global Variables */ +/************************************************************************/ +/* Structure for tracking this decode. */ +typedef struct + { + ST_UCHAR version_bit_str; + ST_UCHAR responding_psel [MAX_PSEL_LEN+1]; + ST_INT num_ctxt; + ST_BOOLEAN bad_pc_deflist; /* SD_TRUE if anything we don't like in pc_deflist*/ + ST_INT8 default_context_result; + ST_INT8 provider_reason; + } CPR_INFO; +static CPR_INFO cpr_info; + +static ST_VOID START_p_cpr (ASN1_DEC_CTXT *aCtx); +static ST_VOID decode_version (ASN1_DEC_CTXT *aCtx); +static ST_VOID decode_responding_psel (ASN1_DEC_CTXT *aCtx); +static ST_VOID START_pc_def_result_list (ASN1_DEC_CTXT *aCtx); +static ST_VOID START_result_seq (ASN1_DEC_CTXT *aCtx); +static ST_VOID decode_result (ASN1_DEC_CTXT *aCtx); +static ST_VOID decode_tsn2 (ASN1_DEC_CTXT *aCtx); +static ST_VOID decode_result_list_prov_reas (ASN1_DEC_CTXT *aCtx); +static ST_VOID END_result_seq (ASN1_DEC_CTXT *aCtx); +static ST_VOID END_pc_def_result_list (ASN1_DEC_CTXT *aCtx); +static ST_VOID decode_default_context_result (ASN1_DEC_CTXT *aCtx); +static ST_VOID decode_provider_reason (ASN1_DEC_CTXT *aCtx); +static ST_VOID SKIP_p_user_data (ASN1_DEC_CTXT *aCtx); +static ST_VOID parse_next_done (ASN1_DEC_CTXT *aCtx); +static ST_VOID END_skip_p_user_data (ASN1_DEC_CTXT *aCtx); +static ST_VOID END_p_cpr (ASN1_DEC_CTXT *aCtx); + + +/************************************************************************/ +/* u_cosp_con_cnf_neg */ +/*----------------------------------------------------------------------*/ +/* This USER function is called by the SS-Provider to indicate the */ +/* connection has been rejected by remote. */ +/* */ +/* Parameters: */ +/* acse_conn Pointer to connection info */ +/* result see def results COSP_CON_CNF_... above */ +/* reason see def reasons COSP_CON_CNF_... above */ +/* */ +/* Return: */ +/* ST_VOID */ +/************************************************************************/ +ST_VOID u_cosp_con_cnf_neg (ACSE_CONN *acse_conn, ST_INT result, ST_INT reason) + { +ST_INT8 abort_reason; +ASN1_DEC_CTXT localDecCtx; /* For readability, use "aCtx" to access this.*/ +ASN1_DEC_CTXT *aCtx = &localDecCtx; + + memset (aCtx, 0, sizeof (ASN1_DEC_CTXT)); /* CRITICAL: start clean */ + + if (acse_conn->copp_state != COPP_STATE_AWAIT_CPA) + { + COPP_LOG_ERR1 ("COPP-ERROR: Cannot process S-CONNECT.cnf- (Illegal state=%d)", + acse_conn->copp_state); + return; + } + + aCtx->asn1r_decode_method = ASN1_TAG_METHOD; /* Use asn1_tag method for decoding. */ + aCtx->asn1r_decode_done_fun = asn1r_done_err; /* done function = error fun */ + aCtx->asn1r_err_fun = NULL; /* set up error detected fun */ + + /* Clean out old stuff from structure. */ + memset (&cpr_info, 0, sizeof (cpr_info)); + cpr_info.version_bit_str = 0x80; /* Default to "version1". */ + cpr_info.provider_reason = CPR_PROVIDER_REASON_NOT_ENCODED; + + /* CRITICAL: memset above initializes "cpr_info.responding_psel[0]=0" */ + /* (i.e. length=0) in case it is NOT received in CPR. */ + + decode_acse_conn = acse_conn; /* Save in global so asn1r_decode_asn1 (aCtx, */ + /* can fill it in. */ + + /* WARNING: expected_pdv_pci MUST BE SET before START_p_user_data */ + /* is called (by asn1r_decode_asn1 (aCtx,). SET IT NOW. */ + expected_pdv_pci = acse_conn->pciacse; + + p_user_data_is_outer = SD_FALSE; /* P-User-data IS NOT outermost constr. */ + + /* CRITICAL: Init APDU ptr & len. Changed only if APDU found in msg. */ + acse_conn->apdu_ptr = NULL; + acse_conn->apdu_len = 0; + /* CRITICAL: Init global PDV ptr & len. Changed only if PDV found in msg.*/ + pdv_data_ptr = NULL; + pdv_data_len = 0; + +/* Call 'asn1r_decode_asn1 (aCtx,' to parse the message. */ + ASN1R_TAG_ADD (aCtx, UNI|CONSTR,SEQ_CODE,START_p_cpr); + asn1r_decode_asn1 (aCtx, acse_conn->ppdu_ptr,acse_conn->ppdu_len); + if (aCtx->asn1r_pdu_dec_err != NO_DECODE_ERR) + { + COPP_LOG_ERR1 ("COPP-ERROR: ASN.1 decode of S-Connect.cnf- failed, err=%d", aCtx->asn1r_pdu_dec_err); + abort_reason = 1; /* unrecognized-ppdu */ + /* Don't send ARP PPDU. Remote node is already rejecting connect. */ + /* Pass P-P-Abort.ind to COPP-user. */ + u_copp_p_abort_ind (acse_conn, abort_reason); + } + else if (cpr_info.version_bit_str != 0x80) + { /* Must be version1: Bit 0 of bitstr (high bit) set */ + COPP_LOG_ERR1 ("COPP-ERROR: Unsupported version in CPR received for conn %d", + acse_conn->user_conn_id); + abort_reason = 6; /* invalid-ppdu-parameter-value */ + /* Don't send ARP PPDU. Remote node is already rejecting connect. */ + /* Pass P-P-Abort.ind to COPP-user. */ + u_copp_p_abort_ind (acse_conn, abort_reason); + } + else if (cpr_info.provider_reason != CPR_PROVIDER_REASON_NOT_ENCODED) + { /* Provider reject */ + COPP_LOG_DEC2 ("P-CONNECT.cnf-: acse_conn_id =0x%08X user_conn_id =%4ld", + acse_conn, acse_conn->user_conn_id); + COPP_LOG_DECC1 ("Provider-reason = %d. No P-user-data.", + cpr_info.provider_reason); + /* NOTE: there is no User-data with this one. */ + u_copp_con_cnf (acse_conn, P_CON_RESULT_PROVIDER_REJ, + cpr_info.provider_reason); + } + else if (cpr_info.bad_pc_deflist) + { + COPP_LOG_ERR1 ("COPP-ERROR: Unsupported P-context in CPR received for conn %d", + acse_conn->user_conn_id); + abort_reason = 6; /* invalid-ppdu-parameter-value */ + /* Don't send ARP PPDU. Remote node is already rejecting connect. */ + /* Pass P-P-Abort.ind to COPP-user. */ + u_copp_p_abort_ind (acse_conn, abort_reason); + } + else + { /* User reject */ + COPP_LOG_DEC2 ("P-CONNECT.cnf-: acse_conn_id =0x%08X user_conn_id =%4ld", + acse_conn, acse_conn->user_conn_id); + COPP_LOG_DECC1 ("User data length: %d", acse_conn->apdu_len); + COPP_LOG_DECH (acse_conn->apdu_len, acse_conn->apdu_ptr); + + u_copp_con_cnf (acse_conn, P_CON_RESULT_USER_REJ, 0); + } + acse_conn->copp_state = COPP_STATE_IDLE; /* No matter what */ + } + + /*======================================================*/ + /* FUNCTIONS BELOW USED FOR "CPR" DECODE */ + /* */ + /*======================================================*/ + +/************************************************************************/ +/* START_p_cpr */ +/************************************************************************/ +static ST_VOID START_p_cpr (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, CTX,0,decode_version); + ASN1R_TAG_ADD (aCtx, CTX,3,decode_responding_psel); + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,5,START_pc_def_result_list); + ASN1R_TAG_ADD (aCtx, CTX,7,decode_default_context_result); + ASN1R_TAG_ADD (aCtx, CTX,10,decode_provider_reason); + ASN1R_TAG_ADD (aCtx, APP|CONSTR,1,START_p_user_data); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = END_p_cpr; + } +/************************************************************************/ +/* decode_version */ +/************************************************************************/ +static ST_VOID decode_version (ASN1_DEC_CTXT *aCtx) + { + asn1r_get_bitstr (aCtx, &cpr_info.version_bit_str, 8); + ASN1R_TAG_ADD (aCtx, CTX,3,decode_responding_psel); + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,5,START_pc_def_result_list); + ASN1R_TAG_ADD (aCtx, CTX,7,decode_default_context_result); + ASN1R_TAG_ADD (aCtx, CTX,10,decode_provider_reason); + ASN1R_TAG_ADD (aCtx, APP|CONSTR,1,START_p_user_data); + } +/************************************************************************/ +/* decode_responding_psel */ +/* NOTE: Responding PSEL not used, so if can't decode, just ignore it. */ +/************************************************************************/ +static ST_VOID decode_responding_psel (ASN1_DEC_CTXT *aCtx) + { + /* If len within limit, copy psel to decode structure. */ + /* If not, just log & ignore (responding PSEL not usually needed). */ + if (aCtx->asn1r_elmnt_len <= MAX_PSEL_LEN) + { + cpr_info.responding_psel [0] = aCtx->asn1r_elmnt_len; /* first byte is len*/ + memcpy (&cpr_info.responding_psel [1], aCtx->asn1r_field_ptr, aCtx->asn1r_elmnt_len); + } + else + COPP_LOG_DEC2 ("P-CONNECT.cnf-: Responding PSEL len=%d exceeds max=%d. Ignored.", + aCtx->asn1r_elmnt_len, MAX_PSEL_LEN); + + /* Primitive CAN'T be indef len, so asn1_skip_elmnt is safe here. */ + asn1_skip_elmnt (aCtx); /* Don't bother decoding it. */ + ASN1R_TAG_ADD (aCtx, CTX|CONSTR,5,START_pc_def_result_list); + ASN1R_TAG_ADD (aCtx, CTX,7,decode_default_context_result); + ASN1R_TAG_ADD (aCtx, CTX,10,decode_provider_reason); + ASN1R_TAG_ADD (aCtx, APP|CONSTR,1,START_p_user_data); + } +/************************************************************************/ +/* START_pc_def_result_list */ +/************************************************************************/ +static ST_VOID START_pc_def_result_list (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, UNI|CONSTR,SEQ_CODE,START_result_seq); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = END_pc_def_result_list; + } +/************************************************************************/ +/* START_result_seq */ +/************************************************************************/ +static ST_VOID START_result_seq (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, CTX,0,decode_result); + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = END_result_seq; + } +/************************************************************************/ +/* decode_result */ +/************************************************************************/ +static ST_VOID decode_result (ASN1_DEC_CTXT *aCtx) + { +ST_INT8 result; + if (asn1r_get_i8 (aCtx, &result)) + { + asn1r_set_dec_err (aCtx, ASN1E_INVALID_BOOLEAN); + return; + } + if (result != 0) + { /* P-Context rejected. We can't handle any rejection so set flag.*/ + cpr_info.bad_pc_deflist = SD_TRUE; + } + ASN1R_TAG_ADD (aCtx, CTX,1,decode_tsn2); + ASN1R_TAG_ADD (aCtx, CTX,2,decode_result_list_prov_reas); + } +/************************************************************************/ +/* decode_tsn2 */ +/* NOTE: This is essentially same as decode_tsn used in the CP decode */ +/* except for the different ASN1R_TAG_ADD (aCtx, at the end. In either case */ +/* if we receive any TSN that is not ASN.1 (this is the only */ +/* TSN we will ever accept or propose) we set the flag */ +/* cpr_info.bad_pc_deflist = SD_TRUE */ +/************************************************************************/ +static ST_VOID decode_tsn2 (ASN1_DEC_CTXT *aCtx) + { +MMS_OBJ_ID tsn; + + if (asn1r_get_objid (aCtx, tsn.comps,&tsn.num_comps)) + { + asn1r_set_dec_err (aCtx, ASN1E_INVALID_BOOLEAN); + return; + } + if (asn1_objidcmp (&tsn, &asn1_obj_id) != 0) + { /* TSN better be ASN1 */ + cpr_info.bad_pc_deflist = SD_TRUE; + } + ASN1R_TAG_ADD (aCtx, CTX,2,decode_result_list_prov_reas); + } +/************************************************************************/ +/* decode_result_list_prov_reas */ +/* NOTE: Decode but don't save value, because no real use for it. */ +/************************************************************************/ +static ST_VOID decode_result_list_prov_reas (ASN1_DEC_CTXT *aCtx) + { +ST_INT8 result_list_prov_reas; + if (asn1r_get_i8 (aCtx, &result_list_prov_reas)) + { + asn1r_set_dec_err (aCtx, ASN1E_INVALID_BOOLEAN); + return; + } + } +/************************************************************************/ +/* END_result_seq */ +/************************************************************************/ +static ST_VOID END_result_seq (ASN1_DEC_CTXT *aCtx) + { + decode_acse_conn->num_ctxt++; + /* May be another "result sequence". */ + ASN1R_TAG_ADD (aCtx, UNI|CONSTR,SEQ_CODE,START_result_seq); + } +/************************************************************************/ +/* END_pc_def_result_list */ +/************************************************************************/ +static ST_VOID END_pc_def_result_list (ASN1_DEC_CTXT *aCtx) + { + ASN1R_TAG_ADD (aCtx, CTX,7,decode_default_context_result); + ASN1R_TAG_ADD (aCtx, CTX,10,decode_provider_reason); + ASN1R_TAG_ADD (aCtx, APP|CONSTR,1,START_p_user_data); + } +/************************************************************************/ +/* decode_default_context_result */ +/************************************************************************/ +static ST_VOID decode_default_context_result (ASN1_DEC_CTXT *aCtx) + { /* Ignore value, because we never proposed Default-context-name.*/ + if (asn1r_get_i8 (aCtx, &cpr_info.default_context_result)) + { + asn1r_set_dec_err (aCtx, ASN1E_INVALID_BOOLEAN); + return; + } + ASN1R_TAG_ADD (aCtx, CTX,10,decode_provider_reason); + ASN1R_TAG_ADD (aCtx, APP|CONSTR,1,START_p_user_data); + } +/************************************************************************/ +/* decode_provider_reason */ +/************************************************************************/ +static ST_VOID decode_provider_reason (ASN1_DEC_CTXT *aCtx) + { + if (asn1r_get_i8 (aCtx, &cpr_info.provider_reason)) + { + asn1r_set_dec_err (aCtx, ASN1E_INVALID_BOOLEAN); + return; + } + /* Marben sends bad p_user_data in this case. Skip over it. */ + COPP_LOG_DEC0 ("WARNING: Ignoring P-user-data received on CPR."); + ASN1R_TAG_ADD (aCtx, APP|CONSTR,1,SKIP_p_user_data); + } + +/************************************************************************/ +/* SKIP_p_user_data */ +/************************************************************************/ +ST_VOID SKIP_p_user_data (ASN1_DEC_CTXT *aCtx) + { + aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = END_skip_p_user_data; + asn1r_parse_next (aCtx, parse_next_done); + } +/************************************************************************/ +/* parse_next_done */ +/************************************************************************/ +static ST_VOID parse_next_done (ASN1_DEC_CTXT *aCtx) + { /* called when "asn1r_parse_next (aCtx," is done */ + } +/************************************************************************/ +/* END_skip_p_user_data */ +/************************************************************************/ +static ST_VOID END_skip_p_user_data (ASN1_DEC_CTXT *aCtx) + { + } +/************************************************************************/ +/* END_p_cpr */ +/************************************************************************/ +static ST_VOID END_p_cpr (ASN1_DEC_CTXT *aCtx) + { + aCtx->asn1r_decode_done_fun = NULL; /* done decoding */ + } + + diff --git a/mmslib/ositcps/cosp_dec.c b/mmslib/ositcps/cosp_dec.c new file mode 100644 index 0000000..f279270 --- /dev/null +++ b/mmslib/ositcps/cosp_dec.c @@ -0,0 +1,1090 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1997 - 2003, All Rights Reserved */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : cosp_dec.c */ +/* PRODUCT(S) : MOSI Stack (over TP4) */ +/* */ +/* MODULE DESCRIPTION : */ +/* This file implements the decoding of COSP SPDUs. */ +/* */ +/* For information see the: */ +/* ISO 8326 "Information processing systems - Open Systems */ +/* Interconnection - Basic connection oriented session service */ +/* definition. */ +/* ISO 8327 "Information processing systems - Open Systems */ +/* Interconnection - Basic connection oriented session protocol */ +/* specification. */ +/* ISO 8327/ADD.2 (Draft for Version2). */ +/* */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* cosp_dec_cn_ac */ +/* cosp_dec_rf */ +/* cosp_dec_fn_dn */ +/* cosp_dec_ab */ +/* cosp_dec_dt */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 08/19/03 EJV 08 Allow for ACCEPT User Data <= COSP_MAX_UDATA*/ +/* 06/05/02 JRB 07 Allow Called SSEL=NULL on connect if */ +/* configured SSEL=NULL. */ +/* 04/26/01 EJV 06 Correction to version check in CN/AC. */ +/* Corrected spelling. */ +/* 09/13/99 MDE 05 Added SD_CONST modifiers */ +/* 01/08/99 EJV 04 Added decoding of param 17 in FINISH SPDU. */ +/* Make sure param 17 is extracted properly. */ +/* 08/13/98 JRB 03 Lint cleanup. */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 03/20/97 EJV 02 Enhanced logging. */ +/* 01/17/97 EJV 01 Created */ +/************************************************************************/ +#include "glbtypes.h" +#include "sysincs.h" + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; /* Define for SLOG mechanism */ +#endif + +#include "acse2.h" + +#include "cosp_log.h" +#include "cosp.h" +#include "cosp_usr.h" + + + /*--------------------------------------*/ + /* Local function prototypes */ + /*--------------------------------------*/ + +static ST_UINT16 cosp_dec_len (ST_UCHAR *buf, ST_UINT *bytes); +static ST_RET cosp_validate_cn_ac (COSP_CN_AC *dec_par, ST_UCHAR spdu_type); + + +/************************************************************************/ +/* cosp_dec_cn_ac */ +/*----------------------------------------------------------------------*/ +/* Function to decode a CONNECT or ACCEPT SPDU. */ +/* Note if User Data are present in received SPDU then the length in the*/ +/* dec_par->udata_len will be > 0. The dec_par->udata_ptr points into */ +/* the spdu_buf (it is not an allocated pointer). */ +/* */ +/* Parameters: */ +/* COSP_CN_AC *dec_par ptr to decoded parameters struct*/ +/* char *spdu_buf Pointer to received SPDU buf */ +/* ST_UINT spdu_len Length of received SPDU */ +/* ST_UCHAR spdu_type SPDU type to decode (CN, AC) */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if successful */ +/* error code otherwise */ +/************************************************************************/ +ST_RET cosp_dec_cn_ac (COSP_CN_AC *dec_par, char *spdu_buf, ST_UINT spdu_len, + ST_UCHAR spdu_type) +{ +ST_RET ret; +ST_UCHAR *dec_buf; +ST_UINT dec_len; +ST_UCHAR param_code; +ST_UINT param_len; +ST_UINT group_len; +ST_UINT len_bytes; /* number of bytes for encoded len (1 or 3) */ +ST_UINT idx; + + ret = SD_SUCCESS; + + dec_buf = (ST_UCHAR *) spdu_buf; + dec_len = 0; + idx = 0; + + /*-----------------------------------------------------*/ + /* set defaults in case params are not present in SPDU */ + /*-----------------------------------------------------*/ + + memset (dec_par, 0, sizeof (COSP_CN_AC)); + dec_par->ver_num = COSP_VER1; /*!default ver is Version1 */ + dec_par->ses_urequir [0]= 0x03; /* bits 9-16: 9 and 10 set */ + dec_par->ses_urequir [1]= 0x49; /* bits 1-8: 1,4 and 7 set */ + + /* in addition memset is equivalent to following con params settings */ + /* dec_par->prot_option = 0; rcv extended concatination not supported */ + /* dec_par->initiator_tsdu_size = 0; SSDU segmenting from initiator not supported */ + /* dec_par->responder_tsdu_size = 0; SSDU segmenting from responder not supported */ + /* dec_par->loc_ssel [0] = 0; called SSEL is NULL */ + /* dec_par->rem_ssel [0] = 0; calling SSEL is NULL */ + /* dec_par->udata_len = 0; User Data length */ + /* dec_par->udata_ptr = 0; User Data pointer (points into spdu_buf!) */ + + /* we will use the first while loop to avoid excesive nesting of if...else... */ + + while (SD_TRUE) + { + /* NOTE: we should never return back from bottom of the loop here!!! */ + + /* the decoded len should be comparable with spdu_len passed to this func */ + dec_len = (ST_UINT) cosp_dec_len (&dec_buf [idx+1], &len_bytes); + if (dec_len + 1+len_bytes != spdu_len) + { + ret = COSP_ERR_DEC_INV_LEN; + COSP_LOG_ERR2 ("COSP-ERROR: Decoding CN/AC: invalid SPDU len=%u or decoded len=%u.", + spdu_len, dec_len + 1+len_bytes); + break; + } + idx += 1+len_bytes; /* 1 for SPDU code */ + + /* decode all connect parameters */ + while (dec_len > 0) + { + param_code = dec_buf [idx]; + param_len = (ST_UINT) cosp_dec_len (&dec_buf [idx+1], &len_bytes); + + /* signal error if param_len is greater then decoding length left */ + if (param_len + 1+len_bytes > dec_len) + { + ret = COSP_ERR_DEC_INV_LEN; + COSP_LOG_ERR2 ("COSP-ERROR: Decoding CN/AC: invalid parameter len=%u (length left to decode len=%u).", + param_len + 1+len_bytes, dec_len); + break; + } + dec_len -= 1+len_bytes; + idx += 1+len_bytes; + + /* do not try to decode if param_len is 0 (param is empty) */ + if (param_len == 0) + continue; + + switch (param_code) + { + case 1: /* PGI - Connection Identifier group */ + /* we will ignore this group (skip all decoding) */ + break; + + case 5: /* PGI - Connect/Accept Item group */ + group_len = param_len; + while (group_len > 0) + { + param_code = dec_buf [idx]; + param_len = (ST_UINT) cosp_dec_len (&dec_buf [idx+1], &len_bytes); + + /* signal error if param_len is greater then decoding length left */ + if (param_len + 1+len_bytes > group_len) + { + ret = COSP_ERR_DEC_INV_LEN; + COSP_LOG_ERR2 ("COSP-ERROR: Decoding CN/AC: invalid parameter len=%u (PGI-5 group length left to decode len=%u).", + param_len + 1+len_bytes, group_len); + break; + } + dec_len -= 1+len_bytes; + group_len -= 1+len_bytes; + idx += 1+len_bytes; + + /* do not try to decode if param_len is 0 (param is empty) */ + if (param_len == 0) + continue; + + switch (param_code) + { + case 19: /* PI - Protocol Options */ + if (param_len == 1) + dec_par->prot_option = dec_buf [idx]; + else + { + ret = COSP_ERR_DEC_INV_LEN; + COSP_LOG_ERR1 ("COSP-ERROR: Decoding CN/AC: invalid PI-19 parameter len=%u (should be len=1).", + param_len); + } + break; + + case 21: /* PI - TSDU Max Size */ + if (param_len == 4) + { + dec_par->initiator_tsdu_size = + ((ST_UINT16) dec_buf [idx] << 8) | (ST_UINT16) dec_buf [idx+1]; + dec_par->responder_tsdu_size = + ((ST_UINT16) dec_buf [idx+2] << 8) | (ST_UINT16) dec_buf [idx+3]; + } + else + { + ret = COSP_ERR_DEC_INV_LEN; + COSP_LOG_ERR1 ("COSP-ERROR: Decoding CN/AC: invalid PI-21 parameter len=%u (should be len=4).", + param_len); + } + break; + + case 22: /* PI - Version Number */ + if (param_len == 1) + dec_par->ver_num = dec_buf [idx]; + else + { + ret = COSP_ERR_DEC_INV_LEN; + COSP_LOG_ERR1 ("COSP-ERROR: Decoding CN/AC: invalid PI-22 parameter len=%u (should be len=1)", + param_len); + } + break; + + case 23: /* PI - Initial Serial Number */ + /* we will ignore this param (skip all decoding) */ + break; + + case 26: /* PI - Token Setting Item */ + /* we will ignore this param (skip all decoding) */ + break; + + default: + ret = COSP_ERR_DEC_INV_PI_CODE; + COSP_LOG_ERR1 ("COSP-ERROR: Decoding CN/AC: invalid PI code=%d in PGI-5", + param_code); + } /* end of switch */ + + if (ret == SD_SUCCESS) + { + /* adjust processing vars by the length of param processed */ + dec_len -= param_len; + group_len -= param_len; + idx += param_len; + } + else + break; /* error, exit this loop */ + } /* end of while (group_len > 0) */ + + param_len = 0; /* dec_len & idx already adjusted */ + break; + + case 16: /* PI - Token Item */ + if (spdu_type == COSP_SI_ACCEPT) + /* we will ignore this param (skip all decoding) */ + ; + else + { + ret = COSP_ERR_DEC_INV_PI_CODE; + COSP_LOG_ERR1 ("COSP-ERROR: Decoding CN/AC: invalid PI code=%d", param_code); + } + break; + + case 20: /* PI - Session User Requirements param */ + if (param_len == 2) + { + dec_par->ses_urequir [0]= dec_buf [idx]; /* bits 9-16 */ + dec_par->ses_urequir [1]= dec_buf [idx+1]; /* bits 1-8 */ + } + else + { + ret = COSP_ERR_DEC_INV_LEN; + COSP_LOG_ERR1 ("COSP-ERROR: Decoding CN/AC: invalid PI-20 parameter len=%u (should be len=2).", + param_len); + } + break; + + case 51: /* PI - Calling Session Selector param */ + if (param_len <= MAX_SSEL_LEN) /* 16 */ + { + if (spdu_type == COSP_SI_CONNECT) + { + dec_par->rem_ssel [0] = (ST_UCHAR) param_len; + memcpy (&dec_par->rem_ssel [1], &dec_buf [idx], param_len); + } + else + { + /* if COSP_SI_ACCEPT then same as Calling in S-CONNECT */ + dec_par->loc_ssel [0] = (ST_UCHAR) param_len; + memcpy (&dec_par->loc_ssel [1], &dec_buf [idx], param_len); + } + } + else + { + ret = COSP_ERR_DEC_INV_LEN; + COSP_LOG_ERR2 ("COSP-ERROR: Decoding CN/AC: invalid PI-51 parameter len=%u (should be len<=%u).", + param_len, MAX_SSEL_LEN); + } + break; + + case 52: /* PI - Called(CN)/Responding(AC) Session Selector param */ + if (param_len <= MAX_SSEL_LEN) /* 16 */ + { + if (spdu_type == COSP_SI_CONNECT) + { + dec_par->loc_ssel [0] = (ST_UCHAR) param_len; + memcpy (&dec_par->loc_ssel [1], &dec_buf [idx], param_len); + } + else + { + /* if COSP_SI_ACCEPT then Responder SSEL */ + dec_par->rem_ssel [0] = (ST_UCHAR) param_len; + memcpy (&dec_par->rem_ssel [1], &dec_buf [idx], param_len); + } + } + else + { + ret = COSP_ERR_DEC_INV_LEN; + COSP_LOG_ERR2 ("COSP-ERROR: Decoding CN/AC: invalid PI-52 parameter len=%u (should be len<=%u).", + param_len, MAX_SSEL_LEN); + } + break; + + case 193: /* PGI - User Data - used only if len <=512 in CONNECT and */ + /* len up to 65539 total SPDU size in ACCEPT (ISO 8327/DAD2) */ + if ((spdu_type == COSP_SI_CONNECT && param_len <= 512) || + (spdu_type == COSP_SI_ACCEPT && param_len <= COSP_MAX_UDATA)) + { + dec_par->udata_len = param_len; + dec_par->udata_ptr = &dec_buf [idx]; + } + else + { + ret = COSP_ERR_DEC_INV_LEN; + COSP_LOG_ERR2 ("COSP-ERROR: Decoding CN/AC: invalid PI-193 (User Data) parameter len=%u (max should be len<=%u).", + param_len, (spdu_type == COSP_SI_CONNECT) ? 512 : COSP_MAX_UDATA); + } + break; + + case 194: /* PGI - Extended User Data - used if len>512 */ + if (param_len <= COSP_MAX_UDATA_CON) /* and len<=10240 */ + { + dec_par->udata_len = param_len; + dec_par->udata_ptr = &dec_buf [idx]; + } + else + { + ret = COSP_ERR_DEC_INV_LEN; + COSP_LOG_ERR2 ("COSP-ERROR: Decoding CN/AC: invalid PI-194 (User Data) parameter len=%u (should be len<=%u).", + param_len, COSP_MAX_UDATA_CON); + } + break; + + default: + ret = COSP_ERR_DEC_INV_PI_CODE; + COSP_LOG_ERR1 ("COSP-ERROR: Decoding CN/AC: invalid PI code=%d", param_code); + } /* end of switch */ + + /* adjust processing vars by the length of param processed */ + if (ret == SD_SUCCESS) + { + dec_len -= param_len; + idx += param_len; + } + else + break; + } /* end while len to decode */ + + break; /* this is end of decoding, exit loop unconditionally */ + } /* end of while (SD_TRUE) loop */ + + if (ret == SD_SUCCESS) + /* validate the received SPDU */ + ret = cosp_validate_cn_ac (dec_par, spdu_type); + + return (ret); +} + + +/************************************************************************/ +/* cosp_dec_rf */ +/*----------------------------------------------------------------------*/ +/* Function to decode a REFUSE SPDU. */ +/* Note if User Data are present in received SPDU then the length in the*/ +/* dec_par->udata_len will be > 0. The dec_par->udata_ptr points into */ +/* the spdu_buf (it is not an allocated pointer). */ +/* */ +/* Parameters: */ +/* COSP_RF *dec_par ptr to decoded parameters struct*/ +/* char *spdu_buf Pointer to received SPDU buf */ +/* ST_UINT spdu_len Length of received SPDU */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if successful */ +/* error code otherwise */ +/************************************************************************/ +ST_RET cosp_dec_rf (COSP_RF *dec_par, char *spdu_buf, ST_UINT spdu_len) +{ +ST_RET ret; +ST_UCHAR *dec_buf; +ST_UINT dec_len; +ST_UCHAR param_code; +ST_UINT param_len; +ST_UINT len_bytes; /* number of bytes for encoded len (1 or 3) */ +ST_UINT idx; + + ret = SD_SUCCESS; + + dec_buf = (ST_UCHAR *) spdu_buf; + dec_len = 0; + idx = 0; + + /*-----------------------------------------------------*/ + /* set defaults in case params are not present in SPDU */ + /*-----------------------------------------------------*/ + + memset (dec_par, 0, sizeof (COSP_RF)); + dec_par->disconnect = 1; /* default disconnect transport */ + dec_par->ver_num = COSP_VER1; /* default is Version1 */ + dec_par->ses_urequir [0] = 0x03; /* bits 9-16: 9 and 10 set */ + dec_par->ses_urequir [1] = 0x49; /* bits 1-8: 1,4 and 7 set */ + + /* in addition memset is equivalent to following con params settings */ + /* dec_par->reason = 0; rejected by called SS (SS-user?)*/ + /* dec_par->udata_len = 0; Length of User Data */ + /* dec_par->udata_ptr = 0; Pointer to User Data (points into spdu_buf!) */ + + /* we will use the first while loop to avoid excesive nesting of if...else... */ + + while (SD_TRUE) + { + /* NOTE: we should never return back from bottom of the loop here!!! */ + + /* the decoded len should be comparable with spdu_len passed to this func */ + dec_len = (ST_UINT) cosp_dec_len (&dec_buf [idx+1], &len_bytes); + if (dec_len + 1+len_bytes != spdu_len) + { + ret = COSP_ERR_DEC_INV_LEN; + COSP_LOG_ERR2 ("COSP-ERROR: Decoding RF: invalid SPDU len=%u or decoded len=%u.", + spdu_len, dec_len + 1+len_bytes); + break; + } + idx += 1+len_bytes; /* 1 for RF SPDU code */ + + /* decode all REFUSE parameters */ + while (dec_len > 0) + { + param_code = dec_buf [idx]; + param_len = (ST_UINT) cosp_dec_len (&dec_buf [idx+1], &len_bytes); + + /* signal error if param_len is greater then decoding length left */ + if (param_len + 1+len_bytes > dec_len) + { + ret = COSP_ERR_DEC_INV_LEN; + COSP_LOG_ERR2 ("COSP-ERROR: Decoding RF: invalid parameter len=%u (length left to decode len=%u).", + param_len + 1+len_bytes, dec_len); + break; + } + dec_len -= 1+len_bytes; + idx += 1+len_bytes; + + /* do not try to decode if param_len is 0 (param is empty) */ + if (param_len == 0) + continue; + + switch (param_code) + { + case 1: /* PGI - Connection Identifier group */ + /* we will ignore this group (skip all decoding) */ + break; + + case 17: /* PI - Transport Disconnect */ + if (param_len == 1) + dec_par->disconnect = (ST_BOOLEAN)(dec_buf [idx] & 0x01); + else + { + ret = COSP_ERR_DEC_INV_LEN; + COSP_LOG_ERR1 ("COSP-ERROR: Decoding RF: invalid PI-17 parameter len=%u (should be len=1).", + param_len); + } + break; + + case 20: /* PI - Session User Requirements param */ + if (param_len == 2) + { + dec_par->ses_urequir [0]= dec_buf [idx]; /* bits 9-16 */ + dec_par->ses_urequir [1]= dec_buf [idx+1]; /* bits 1-8 */ + } + else + { + ret = COSP_ERR_DEC_INV_LEN; + COSP_LOG_ERR1 ("COSP-ERROR: Decoding RF: invalid PI-20 parameter len=%u (should be len=2).", + param_len); + } + break; + + case 22: /* PI - Version Number */ + if (param_len == 1) + dec_par->ver_num = dec_buf [idx]; + else + { + ret = COSP_ERR_DEC_INV_LEN; + COSP_LOG_ERR1 ("COSP-ERROR: Decoding RF: invalid PI-22 parameter len=%u (should be len=1).", + param_len); + } + break; + + case 50: /* PI - Reason Code param */ + dec_par->reason = dec_buf [idx]; /* refuse reason code */ + + if (param_len > 1) + { + dec_par->udata_len = param_len-1; + dec_par->udata_ptr = &dec_buf [idx+1]; + } + break; + + default: + ret = COSP_ERR_DEC_INV_PI_CODE; + COSP_LOG_ERR1 ("COSP-ERROR: Decoding RF: invalid PI code=%d", param_code); + } /* end of switch */ + + /* adjust processing vars by the length of param processed */ + if (ret == SD_SUCCESS) + { + dec_len -= param_len; + idx += param_len; + } + else + break; + } /* end while len to decode */ + + break; /* this is end of decoding, exit loop unconditionally */ + } /* end of while (SD_TRUE) loop */ + + /* validate the received SPDU */ + if (ret == SD_SUCCESS) + { + /* User Data may be present only if refuse reason=2 */ + if (dec_par->reason != COSP_RF_REASON_U_REJECT) + if (dec_par->udata_len > 0) + { + ret = COSP_ERR_DEC_INV_RF_UDATA; + COSP_LOG_ERR1 ("COSP-ERROR: Decoding RF: User Data present (len=%u) when Refuse Reason!=2", + dec_par->udata_len); + } + } + + return (ret); +} + + +/************************************************************************/ +/* cosp_dec_fn_dn */ +/*----------------------------------------------------------------------*/ +/* Function to decode a FINISH or DISCONNECT SPDU. */ +/* Note if User Data are present in received SPDU then the length in the*/ +/* dec_par->udata_len will be > 0. The dec_par->udata_ptr points into */ +/* the spdu_buf (it is not an allocated pointer). */ +/* */ +/* Parameters: */ +/* COSP_FN_DN *dec_par Ptr to decoded parameters struct*/ +/* char *spdu_buf Pointer to received SPDU buf */ +/* ST_UINT spdu_len Length of received SPDU */ +/* ST_UCHAR spdu_type SPDU type to decode (FN, DN) */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if successful */ +/* error code otherwise */ +/************************************************************************/ +ST_RET cosp_dec_fn_dn (COSP_FN_DN *dec_par, char *spdu_buf, ST_UINT spdu_len, + ST_UCHAR spdu_type) +{ +ST_RET ret; +ST_UCHAR *dec_buf; +ST_UINT dec_len; +ST_UCHAR param_code; +ST_UINT param_len; +ST_UINT len_bytes; /* number of bytes for encoded len (1 or 3) */ +ST_UINT idx; + + ret = SD_SUCCESS; + + dec_buf = (ST_UCHAR *) spdu_buf; + dec_len = 0; + idx = 0; + + /*-----------------------------------------------------*/ + /* set defaults in case params are not present in SPDU */ + /*-----------------------------------------------------*/ + + memset (dec_par, 0, sizeof (COSP_FN_DN)); + if (spdu_type == COSP_SI_FINISH) + dec_par->disconnect = 1; /* default disconnect transport */ + + /* in addition memset is equivalent to following con params settings */ + /* dec_par->udata_len = 0; Length of User Data */ + /* dec_par->udata_ptr = 0; Pointer to User Data (points into spdu_buf!) */ + + /* we will use the first while loop to avoid excesive nesting of if...else... */ + + while (SD_TRUE) + { + /* NOTE: we should never return back from bottom of the loop here!!! */ + + /* the decoded len should be comparable with spdu_len passed to this func */ + dec_len = (ST_UINT) cosp_dec_len (&dec_buf [idx+1], &len_bytes); + if (dec_len + 1+len_bytes != spdu_len) + { + ret = COSP_ERR_DEC_INV_LEN; + COSP_LOG_ERR2 ("COSP-ERROR: Decoding FN/DN: invalid SPDU len=%u or decoded len=%u.", + spdu_len, dec_len + 1+len_bytes); + break; + } + idx += 1+len_bytes; /* 1 for FN/DN SPDU code */ + + /* decode all FINISH / DISCONNECT parameters */ + while (dec_len > 0) + { + param_code = dec_buf [idx]; + param_len = (ST_UINT) cosp_dec_len (&dec_buf [idx+1], &len_bytes); + + /* signal error if param_len is greater then decoding length left */ + if (param_len + 1+len_bytes > dec_len) + { + ret = COSP_ERR_DEC_INV_LEN; + COSP_LOG_ERR2 ("COSP-ERROR: Decoding FN/DN: invalid parameter len=%u (length left to decode len=%u).", + param_len + 1+len_bytes, dec_len); + break; + } + dec_len -= 1+len_bytes; + idx += 1+len_bytes; + + /* do not try to decode if param_len is 0 (param is empty) */ + if (param_len == 0) + continue; + + switch (param_code) + { + case 17: /* PI - Transport Disconnect */ + /* this param is valid only in FINISH SPDU */ + if (spdu_type == COSP_SI_FINISH) + { + dec_par->disconnect = (ST_BOOLEAN)(dec_buf [idx] & 0x01); + if (dec_par->disconnect != 1) + { + /* we do NOT support reusing transport connection */ + ret = COSP_ERR_DEC_INV_PI_CODE; + COSP_LOG_ERR1 ("COSP-ERROR: Decoding FN: PI code=%d (keep transport connection not supported)", param_code); + } + } + else + { + ret = COSP_ERR_DEC_INV_PI_CODE; + COSP_LOG_ERR1 ("COSP-ERROR: Decoding DN: invalid PI code=%d", param_code); + } + break; + + case 193: /* PGI - User Data group */ + dec_par->udata_len = param_len; + dec_par->udata_ptr = &dec_buf [idx]; + break; + + default: + ret = COSP_ERR_DEC_INV_PI_CODE; + COSP_LOG_ERR1 ("COSP-ERROR: Decoding FN/DN: invalid PI code=%d", param_code); + } /* end of switch */ + + /* adjust processing vars by the length of param processed */ + if (ret == SD_SUCCESS) + { + dec_len -= param_len; + idx += param_len; + } + else + break; + } /* end while len to decode */ + + break; /* this is end of decoding, exit loop unconditionally */ + } /* end of while (SD_TRUE) loop */ + + /* validate the received SPDU */ + if (ret == SD_SUCCESS) + { + if (dec_par->udata_len == 0) + { + ret = COSP_ERR_INV_UDATA_LEN; + COSP_LOG_ERR0 ("COSP-ERROR: Decoding FN/DN: invalid User Data len=0"); + } + } + + return (ret); +} + + +/************************************************************************/ +/* cosp_dec_ab */ +/*----------------------------------------------------------------------*/ +/* Function to decode an ABORT SPDU. */ +/* Note if User Data are present in received SPDU then the length in the*/ +/* dec_par->udata_len will be > 0. The dec_par->udata_ptr points into */ +/* the spdu_buf (it is not an allocated pointer). */ +/* */ +/* Parameters: */ +/* COSP_AB *dec_par Ptr to decoded parameters struct*/ +/* char *spdu_buf Pointer to received SPDU buf */ +/* ST_UINT spdu_len Length of received SPDU */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if successful */ +/* error code otherwise */ +/************************************************************************/ +ST_RET cosp_dec_ab (COSP_AB *dec_par, char *spdu_buf, ST_UINT spdu_len) +{ +ST_RET ret; +ST_UCHAR *dec_buf; +ST_UINT dec_len; +ST_UCHAR param_code; +ST_UINT param_len; +ST_UINT len_bytes; /* number of bytes for encoded len (1 or 3) */ +ST_UINT idx; + + ret = SD_SUCCESS; + + dec_buf = (ST_UCHAR *) spdu_buf; + dec_len = 0; + idx = 0; + + /*-----------------------------------------------------*/ + /* set defaults in case params are not present in SPDU */ + /*-----------------------------------------------------*/ + + memset (dec_par, 0, sizeof (COSP_AB)); + dec_par->disconnect = 1; /* default disconnect transport */ + + /* in addition memset is equivalent to following con params settings */ + /* dec_par->reason = 0; undefined reason */ + /* dec_par->reflect_par_len= 0; Len of implementation defined protocol err code*/ + /* dec_par->reflect_par [9]= 0; Buf for implementation defined protocol err code*/ + /* dec_par->udata_len = 0; Length of User Data */ + /* dec_par->udata_ptr = 0; Pointer to User Data (points into spdu_buf!) */ + + /* we will use the first while loop to avoid excesive nesting of if...else... */ + + while (SD_TRUE) + { + /* NOTE: we should never return back from bottom of the loop here!!! */ + + /* the decoded len should be comparable with spdu_len passed to this func */ + dec_len = (ST_UINT) cosp_dec_len (&dec_buf [idx+1], &len_bytes); + if (dec_len + 1+len_bytes != spdu_len) + { + ret = COSP_ERR_DEC_INV_LEN; + COSP_LOG_ERR2 ("COSP-ERROR: Decoding AB: invalid SPDU len=%u or decoded len=%u.", + spdu_len, dec_len + 1+len_bytes); + break; + } + idx += 1+len_bytes; /* 1 for AB SPDU code */ + + /* decode all ABORT parameters */ + while (dec_len > 0) + { + param_code = dec_buf [idx]; + param_len = (ST_UINT) cosp_dec_len (&dec_buf [idx+1], &len_bytes); + + /* signal error if param_len is greater then decoding length left */ + if (param_len + 1+len_bytes > dec_len) + { + ret = COSP_ERR_DEC_INV_LEN; + COSP_LOG_ERR2 ("COSP-ERROR: Decoding AB: invalid parameter len=%u (length left to decode len=%u).", + param_len + 1+len_bytes, dec_len); + break; + } + dec_len -= 1+len_bytes; + idx += 1+len_bytes; + + /* do not try to decode if param_len is 0 (param is empty) */ + if (param_len == 0) + continue; + + switch (param_code) + { + case 17: /* PI - Transport Disconnect */ + if (param_len == 1) + { + dec_par->disconnect = (ST_BOOLEAN) (dec_buf [idx] & 0x01); + dec_par->reason = (ST_UCHAR) (dec_buf [idx] & 0x1E); + } + else + { + ret = COSP_ERR_DEC_INV_LEN; + COSP_LOG_ERR1 ("COSP-ERROR: Decoding AB: invalid PI-17 parameter len=%u (should be len=1).", + param_len); + } + break; + + case 49: /* PI - Reflect param */ + if (param_len <= 9) + { + dec_par->reflect_par_len = param_len; + memcpy (dec_par->reflect_par, &dec_buf [idx], param_len); + } + else + { + ret = COSP_ERR_DEC_INV_LEN; + COSP_LOG_ERR1 ("COSP-ERROR: Decoding AB: invalid PI-49 parameter len=%u (should be len<=9).", + param_len); + } + break; + + case 193: /* PGI - User Data group */ + dec_par->udata_len = param_len; + dec_par->udata_ptr = &dec_buf [idx]; + break; + + default: + ret = COSP_ERR_DEC_INV_PI_CODE; + COSP_LOG_ERR1 ("COSP-ERROR: Decoding AB: invalid PI code=%d", param_code); + } /* end of switch */ + + /* adjust processing vars by the length of param processed */ + if (ret == SD_SUCCESS) + { + dec_len -= param_len; + idx += param_len; + } + else + break; + } /* end while len to decode */ + + break; /* this is end of decoding, exit loop unconditionally */ + } /* end of while (SD_TRUE) loop */ + + /* validate the received SPDU */ + if (ret == SD_SUCCESS) + { + if (dec_par->reason == COSP_AB_REASON_PROT_ERROR) + if (dec_par->reflect_par_len == 0) + { + ret = COSP_ERR_DEC_INV_AB_RP; + COSP_LOG_ERR0 ("COSP-ERROR: Decoding AB: invalid Reflect Parameter len=0"); + } + + if (dec_par->reason == COSP_AB_REASON_USER_ABORT) + if (dec_par->udata_len == 0) + { + ret = COSP_ERR_INV_UDATA_LEN; + COSP_LOG_ERR0 ("COSP-ERROR: Decoding AB: invalid User Data len=0"); + } + } + + return (ret); +} + + +/************************************************************************/ +/* cosp_dec_dt */ +/*----------------------------------------------------------------------*/ +/* Function to decode an DATA SPDU. */ +/* Note if User Data are present in received SPDU then the length in the*/ +/* dec_par->udata_len will be > 0. The dec_par->udata_ptr points into */ +/* the spdu_buf (it is not an allocated pointer). */ +/* */ +/* Parameters: */ +/* COSP_DT *dec_par Ptr to decoded parameters struct*/ +/* char *spdu_buf Pointer to received SPDU buf */ +/* ST_UINT spdu_len Length of received SPDU */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if successful */ +/* error code otherwise */ +/************************************************************************/ +ST_RET cosp_dec_dt (COSP_DT *dec_par, char *spdu_buf, ST_UINT spdu_len) +{ +ST_RET ret; +ST_UCHAR *dec_buf; +ST_UINT dec_len; +ST_UINT len_bytes; /* number of bytes for encoded len (1 or 3) */ +ST_UINT idx; + + ret = SD_SUCCESS; + + dec_buf = (ST_UCHAR *) spdu_buf; + dec_len = 0; + idx = 0; + + /*-----------------------------------------------------*/ + /* set defaults in case params are not present in SPDU */ + /*-----------------------------------------------------*/ + + memset (dec_par, 0, sizeof (COSP_DT)); + + /* memset is equivalent to following con params settings */ + /* dec_par->udata_len = 0; Length of User Data */ + /* dec_par->udata_ptr = 0; Pointer to User Data (points into spdu_buf!) */ + + /*--------------------------------------------------------------------*/ + /* the protocol calls for GIVE-TOKEN and DT SPDU to be concatinated */ + /* even if we do not use the token mechanism. */ + /*--------------------------------------------------------------------*/ + + dec_len = (ST_UINT) cosp_dec_len (&dec_buf [idx+1], &len_bytes); + if (dec_len == 0) + { + idx += 1+len_bytes; + /* token mechanism not used, decode DT */ + if (dec_buf [idx] == COSP_SI_DATA) + { + /*------------------------------------------------------------*/ + /* note that Enclosure Item PI should not be present because */ + /* we do not support segmenting (see CONNECT) */ + /*------------------------------------------------------------*/ + + /* get the params length, should be 0, we do not send/rcv any params in DT */ + dec_len = (ST_UINT) cosp_dec_len (&dec_buf [idx+1], &len_bytes); + if (dec_len == 0) + { + idx += 1+len_bytes; /* 1 for DT SPDU code and 1 byte for params len LI */ + + dec_par->udata_len = spdu_len - (2 + 1+len_bytes); + dec_par->udata_ptr = &dec_buf [idx]; + } + else + { + ret = COSP_ERR_DEC_INV_LEN; + COSP_LOG_ERR0 ("COSP-ERROR: Decoding DT: Decoding of parameters in DATA SPDU not supported."); + } + } + else + { + ret = COSP_ERR_DEC_INV_SPDU; + COSP_LOG_ERR1 ("COSP-ERROR: Decoding DT: Invalid SPDU code=%u detected after Token SPDU.", + (ST_UINT) dec_buf [idx]); + } + } + else + { + ret = COSP_ERR_DEC_INV_LEN; + COSP_LOG_ERR0 ("COSP-ERROR: Decoding DT: Parameters in Token SPDU not supported."); + } + + return (ret); +} + + +/************************************************************************/ +/* cosp_dec_len */ +/*----------------------------------------------------------------------*/ +/* Function to decode a parameter's length (8-bit or 16-bit value). */ +/* */ +/* Parameters: */ +/* ST_UCHAR *buf Pointer to len in received SPDU buf */ +/* ST_UINT *bytes Pointer where to return number of */ +/* bytes for decoded field */ +/* */ +/* Return: */ +/* ST_UINT16 the length of a parameter */ +/************************************************************************/ +static ST_UINT16 cosp_dec_len (ST_UCHAR *buf, ST_UINT *bytes) +{ +ST_UINT16 len; + + if (buf [0] == 0xFF) + { + /* len >254 high order byte low order byte */ + len = ((ST_UINT16) buf [1] << 8) | (ST_UINT16) buf [2]; + *bytes = 3; + } + else + { + /* len <=254 */ + len = (ST_UINT16) buf [0]; + *bytes = 1; + } + + return (len); +} + + +/************************************************************************/ +/* cosp_validate_cn_ac */ +/*----------------------------------------------------------------------*/ +/* Function to validate parameters in a CONNECT or ACCEPT SPDU. */ +/* */ +/* Parameters: */ +/* COSP_CN_AC *dec_par ptr to decoded parameters struct*/ +/* ST_UCHAR spdu_type SPDU type to validate (CN, AC) */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if validation successful */ +/* error code otherwise */ +/************************************************************************/ +static ST_RET cosp_validate_cn_ac (COSP_CN_AC *dec_par, ST_UCHAR spdu_type) +{ + if (spdu_type == COSP_SI_CONNECT) + { + /* check if CONNECT SPDU is addressed to us */ + if (memcmp (dec_par->loc_ssel, cosp_only_ssel, cosp_only_ssel [0]+1)!=0) + { + COSP_LOG_ERR1 ("COSP-ERROR: Decoding CN/AC: Invalid Called SSEL (len=%d).", + (ST_INT) dec_par->loc_ssel [0]); + COSP_LOG_ERRH((ST_INT) dec_par->loc_ssel [0], &dec_par->loc_ssel [1]); + return (COSP_ERR_DEC_INV_LOC_SSEL); + } + } + else + { + /* ACCEPT SPDU, check the local SSEL if present */ + if (dec_par->loc_ssel [0] > 0) + { + if (dec_par->loc_ssel [0] != cosp_only_ssel [0] || + memcmp (&dec_par->loc_ssel [1], &cosp_only_ssel [1], cosp_only_ssel [0]) + != 0) + { + COSP_LOG_ERR1 ("COSP-ERROR: Decoding CN/AC: Invalid Calling SSEL (len=%d).", + (ST_INT) dec_par->loc_ssel [0]); + COSP_LOG_ERRH((ST_INT) dec_par->loc_ssel [0], &dec_par->loc_ssel [1]); + return (COSP_ERR_DEC_INV_LOC_SSEL); + } + } + } + + /* currently we support Version 2 of the Session Protocol */ + if (spdu_type == COSP_SI_CONNECT) + { + /* CONNECT, check if one of choices is COSP_VER2 */ + if ((dec_par->ver_num & COSP_VER2) == 0) + { + COSP_LOG_ERR2 ("COSP-ERROR: Decoding CN/AC: Session Protocol Version '%d' not supported (supported ver=%d).", + dec_par->ver_num, COSP_VER2); + return (COSP_ERR_DEC_INV_PROT_VER); + } + } + else + { + /* ACCEPT, make sure COSP_VER2 was accepted */ + if (dec_par->ver_num != COSP_VER2) + { + COSP_LOG_ERR2 ("COSP-ERROR: Decoding CN/AC: Session Protocol Version '%d' not supported (supported ver=%d).", + dec_par->ver_num, COSP_VER2); + return (COSP_ERR_DEC_INV_PROT_VER); + } + } + + /* make sure extended concatination is not set (we do not support it)*/ + if (dec_par->prot_option != 0) + { + COSP_LOG_ERR0 ("COSP-ERROR: Decoding CN/AC: Extended Concatination not supported."); + return (COSP_ERR_DEC_INV_PROT_OPT); + } + + /* make sure that segmenting of SSDUs was not specified */ + if (dec_par->initiator_tsdu_size != 0 || + dec_par->responder_tsdu_size != 0) + { + COSP_LOG_ERR0 ("COSP-ERROR: Decoding CN/AC: SSDUs segmenting not supported."); + return (COSP_ERR_DEC_INV_SEG); + } + + if (spdu_type == COSP_SI_CONNECT) + { + /* we support only Duplex Functional Units, make sure it is available*/ + if (!(dec_par->ses_urequir [1] & 0x02)) /* is bit2 set? */ + { + COSP_LOG_ERR0 ("COSP-ERROR: Decoding CN/AC: Duplex Functional Unit not proposed (Session User Requirements)."); + return (COSP_ERR_DEC_INV_FUN_UNITS); + } + } + else + { + /* ACCEPT, make sure only Duplex Functional Units (FU) has been selected */ + if (dec_par->ses_urequir [0] != 0 || /* bits 9-16: must be 0 */ + dec_par->ses_urequir [1] != 0x02) /* bits 1-8: bit2 set */ + { + COSP_LOG_ERR0 ("COSP-ERROR: Decoding CN/AC: Only Duplex Functional Unit supported (Session User Requirements)."); + return (COSP_ERR_DEC_INV_FUN_UNITS); + } + } + + return (SD_SUCCESS); +} + + diff --git a/mmslib/ositcps/cosp_enc.c b/mmslib/ositcps/cosp_enc.c new file mode 100644 index 0000000..cac4506 --- /dev/null +++ b/mmslib/ositcps/cosp_enc.c @@ -0,0 +1,812 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1997, All Rights Reserved */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : cosp_enc.c */ +/* PRODUCT(S) : MOSI Stack (over TP4) */ +/* */ +/* MODULE DESCRIPTION : */ +/* This file implements the encoding of COSP SPDUs. */ +/* */ +/* NOTE: Implementation restrictions: */ +/* Non-segmenting COSP, */ +/* Transport connections are not reused. */ +/* */ +/* For information see the: */ +/* ISO 8326 "Information processing systems - Open Systems */ +/* Interconnection - Basic connection oriented session service */ +/* definition. */ +/* ISO 8327 "Information processing systems - Open Systems */ +/* Interconnection - Basic connection oriented session protocol */ +/* specification. */ +/* ISO 8327/ADD.2 (Draft for Version2). */ +/* */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* cosp_envelope_len */ +/* cosp_enc_cn_ac */ +/* cosp_enc_rf */ +/* cosp_enc_fn_dn */ +/* cosp_enc_ab */ +/* cosp_enc_dt */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 06/02/04 JRB 10 cosp_enc_dt: do NOT restrict user data len. */ +/* 07/16/02 JRB 09 Clean up & fix comments in cosp_enc_cn_ac. */ +/* 06/05/02 JRB 08 Send Calling SSEL on connect request. */ +/* 09/12/01 JRB 07 Reverse last change (not needed). */ +/* 08/01/01 JRB 06 Del rem_addr arg from cosp_enc_cn_ac. */ +/* 04/12/00 JRB 05 Lint cleanup. */ +/* 09/13/99 MDE 04 Added SD_CONST modifiers */ +/* 08/13/98 JRB 03 Lint cleanup. */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 03/20/97 EJV 02 Enhanced logging. */ +/* 01/17/97 EJV 01 Created */ +/************************************************************************/ +#include "glbtypes.h" +#include "sysincs.h" + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; /* Define for SLOG mechanism */ +#endif + +#include "acse2.h" + +#include "cosp_log.h" +#include "cosp.h" +#include "cosp_usr.h" + + + /*----------------------------------------------*/ + /* Fixed encoding for CONNECT / ACCEPT SPDU: */ + /* Connect/Accept PGI: */ + /* - extended concatination not supported, */ + /* - COSP Version2 supported */ + /* Session User Requirements PI: */ + /* - duplex functional unit (FU) supported */ + /*----------------------------------------------*/ + +static ST_UCHAR cosp_cn_ac_fixed [12] = { + 5, /* CN-AC PGI code */ + 6, /* CN-AC PGI len */ + /* Protocol Option PI: */ + 19, /* PI code */ + 1, /* PI len */ + 0, /* 0 if rcv extended concatinat. not supported*/ + /* Version Number PI: */ + 22, /* PI code */ + 1, /* PI len */ + COSP_VER2, /* we supporting Version2 */ + /* Session User Requirements PI: */ + 20, /* PI code */ + 2, /* PI len */ + 0, /* bits 9-16 are 0 */ + 2}; /* bits 1-8 (only bit2=1 duplex FU supported) */ + + + + /*----------------------------------------------*/ + /* Fixed encoding for REFUSE SPDU: */ + /* Session User Requirements PI: */ + /* - duplex functional unit (FU) supported */ + /* COSP Version PI: */ + /* - Version2 supported */ + /*----------------------------------------------*/ + +static ST_UCHAR cosp_rf_fixed [7] = { + /* Session User Requirements PI: */ + 20, /* PI code */ + 2, /* PI len */ + 0, /* bits 9-16 are 0 */ + 2, /* bits 1-8 (only bit2=1 duplex FU supported) */ + /* Version Number PI: */ + 22, /* PI code */ + 1, /* PI len */ + COSP_VER2}; /* we supporting Version2 */ + + +static ST_UINT cosp_enc_len (ST_UINT16 len, ST_UCHAR *buf); + + +/************************************************************************/ +/* cosp_envelope_len */ +/*----------------------------------------------------------------------*/ +/* Function to compute the number of envelope bytes needed to encode */ +/* a SPDU. The returned length does not include the SS-user data length.*/ +/* */ +/* Parameters: */ +/* ACSE_CONN *con Connection info parameters */ +/* ST_UINT rem_ssel_len Remote SSEL length */ +/* ST_UCHAR spdu_type One of COSP_SI_... from cosp.h */ +/* */ +/* Return: */ +/* ST_UINT Length of SPDU envelope encoding */ +/************************************************************************/ +ST_UINT cosp_envelope_len (ACSE_CONN *con, ST_UINT rem_ssel_len, ST_UCHAR spdu_type) +{ +ST_UINT enc_len; +ST_UINT udata_len; + + udata_len = con->ppdu_len; + enc_len = 0; + + switch (spdu_type) + { + case COSP_SI_CONNECT: + enc_len = + 2+6 /* Connect/Accept PGI */ + + 2+2 /* Ses User Requirem. PI*/ + + (cosp_only_ssel[0] != 0 ? 2+cosp_only_ssel[0] : 0)/* Calling SSEL*/ + + (rem_ssel_len != 0 ? 2+rem_ssel_len : 0)/* Called SSEL */ + + (udata_len > 0 ? 2 : 0) /* 1 PI code, 1 len */ + + (udata_len > 254 ? 2 : 0); /* add 2 bytes for len */ + break; + + case COSP_SI_ACCEPT: + enc_len = + 2+6 /* Connect/Accept PGI */ + + 2+2 /* Ses User Requirem. PI*/ + + (udata_len > 0 ? 2 : 0) /* 1 PI code, 1 len */ + + (udata_len > 254 ? 2 : 0); /* add 2 bytes for len */ + break; + + case COSP_SI_REFUSE: + enc_len = + 2+2 /* Ses User Requirem. PI*/ + + 2+1 /* Supported Version PI */ + + 2+1 /* 1 PI code, 1 len, 1 Reason Code*/ + + (udata_len > 254 ? 2 : 0); /* add 2 bytes for len */ + break; + + case COSP_SI_FINISH: + case COSP_SI_DISCON: + enc_len = + (udata_len > 0 ? 2 : 0) /* 1 PI code, 1 len */ + + (udata_len > 254 ? 2 : 0); /* addl 2 bytes for len */ + break; + + case COSP_SI_ABORT: + enc_len = + 2+1 /* TP Disconnect PI */ + + (udata_len > 0 ? 2 : 0) /* 1 PI code, 1 len */ + + (udata_len > 254 ? 2 : 0); /* add 2 bytes for len */ + break; + + case COSP_SI_DATA: + /* We send Give Token SPDU concatinated with the DT (basic concatination) */ + enc_len = 2; /* (SI=01,LI=0) token functionality not used */ + break; + + default: + COSP_LOG_ERR1 ("COSP-ERROR: Encoding: Invalid PDU type = %d", spdu_type); + break; + } + + /* add bytes for params len (none in DT) */ + if (spdu_type == COSP_SI_DATA) + /* in DT we do not send any parameters but we have to send the LI=0 */ + enc_len += 1; /* 1 byte for len */ + else + { + /* all udata is encoded in a parameter */ + if (enc_len + udata_len > 254) + enc_len += 3; /* 3 bytes for len */ + else + enc_len += 1; /* 1 byte for len */ + } + + /* add byte for SPDU code */ + enc_len += 1; + + return (enc_len); +} + + +/************************************************************************/ +/* cosp_enc_cn_ac */ +/*----------------------------------------------------------------------*/ +/* Function to encode a CONNECT or ACCEPT SPDU. */ +/* This function assumed that there is enough place in the enc_buf for */ +/* the CN or AC SPDU encoding. The function cosp_envelope_len can be */ +/* used to compute exact envelope encoding length. */ +/* Note that this function assumes that the SS-user data (CP / CPA PPDU)*/ +/* has been already copied into the enc_buf in proper position. */ +/* */ +/* Parameters: */ +/* ACSE_CONN *con Connection info parameters */ +/* PRES_ADDR *rem_addr Remote Address (needed only for CN) */ +/* char **spdu_ptr Pointer where to return pointer to SPDU */ +/* ST_UINT *spdu_len Pointer where to return the SPDU len */ +/* ST_UCHAR spdu_type COSP_SI_CONNECT or COSP_SI_ACCEPT */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if successful */ +/* error code otherwise */ +/************************************************************************/ +ST_RET cosp_enc_cn_ac (ACSE_CONN *con, PRES_ADDR *rem_addr, + char **spdu_ptr, ST_UINT *spdu_len, + ST_UCHAR spdu_type) +{ +ST_UINT envelope_len; +ST_UINT udata_len; +ST_UINT udata_max_len; +ST_UCHAR ssel_len; +ST_UCHAR *ssel; +ST_UCHAR *enc_buf; +ST_UINT enc_len; +ST_UINT idx; + + /*------------------------------------------------------------*/ + /* make sure data len is OK (User Data presence is mandatory) */ + /*------------------------------------------------------------*/ + udata_len = con->ppdu_len; + if (rem_addr) + envelope_len = cosp_envelope_len (con, rem_addr->ssel_len, spdu_type); + else + envelope_len = cosp_envelope_len (con, 0, spdu_type); + + if (spdu_type == COSP_SI_CONNECT) + udata_max_len = COSP_MAX_UDATA_CON; + else + udata_max_len = COSP_MAX_UDATA; /* for ACCEPT SPDU */ + if (udata_len == 0 || udata_len > udata_max_len) + { + COSP_LOG_ERR2 ("COSP-ERROR: Encoding CN/AC: Invalid User Data length=%u (0ppdu_ptr - envelope_len; + if (enc_buf < cosp_buf) + { + COSP_LOG_ERR0 ("COSP-ERROR: Encoding CN/AC: Invalid pointer to Global Encoding Buffer."); + return (COSP_ERR_INV_POINTER); + } + idx = 0; + + /*--------------------------------------------*/ + /* Encode CN or AC code and total SPDU len */ + /*--------------------------------------------*/ + /* SPDU length to encode does not include 1 byte for SPDU code and */ + /* 1 or 3 bytes for total len */ + + if (envelope_len-2 + udata_len <= 254) + enc_len = envelope_len-2 + udata_len; /* len enc on 1 byte */ + else + enc_len = envelope_len-4 + udata_len; /* len enc on 3 bytes */ + + enc_buf [idx++] = spdu_type; + idx += cosp_enc_len ((ST_UINT16) enc_len, &enc_buf [idx]); + + /*--------------------------------------------*/ + /* no Connection Identifier PGI encoded */ + /*--------------------------------------------*/ + + /*--------------------------------------------*/ + /* encode Connect/Accept PGI: */ + /* - extended concatination not supported, */ + /* - COSP Version2 supported */ + /* encode Session User Requirements PI: */ + /* - duplex functional unit (FU) supported */ + /*--------------------------------------------*/ + memcpy (&enc_buf [idx], cosp_cn_ac_fixed, sizeof (cosp_cn_ac_fixed)); + idx += sizeof (cosp_cn_ac_fixed); + + /*----------------------------------------------*/ + /* encode Calling SSEL - (CN only) */ + /*----------------------------------------------*/ + ssel_len = 0; + ssel = NULL; /* Just to avoid "uninitialized" warning. */ + if (spdu_type == COSP_SI_CONNECT) + { + /* Calling SSEL - optional (only if needed) */ + ssel_len = cosp_only_ssel [0]; + ssel = &cosp_only_ssel [1]; + } + if (ssel_len > 0) + { + enc_buf [idx++] = 51; /* encode PI code */ + enc_buf [idx++] = ssel_len; /* encode PI len */ + memcpy (&enc_buf [idx], ssel, (ST_UINT) ssel_len); + idx += ssel_len; + } + + /*------------------------------------*/ + /* encode Called/Responding SSEL (CN only) */ + /*------------------------------------*/ + ssel_len = 0; + ssel = NULL; /* Just to avoid "uninitialized" warning. */ + if (spdu_type == COSP_SI_CONNECT && rem_addr != NULL) + { + /* Called SSEL - mandatory */ + ssel_len = (ST_UCHAR) rem_addr->ssel_len; + ssel = (ST_UCHAR *) rem_addr->ssel; + } + if (ssel_len > 0) + { + enc_buf [idx++] = 52; /* PI code */ + enc_buf [idx++] = ssel_len; /* PI len */ + memcpy (&enc_buf [idx], ssel, (ST_UINT) ssel_len); + idx += ssel_len; + } + + /*--------------------------------------------------------------------*/ + /* encode User Data (length only), SS-user Data should be already */ + /* in the enc_buf (in proper position). */ + /*--------------------------------------------------------------------*/ + if (spdu_type == COSP_SI_CONNECT) + { + if (udata_len <= 512) + enc_buf [idx++] = 193; /* encode PGI code */ + else + enc_buf [idx++] = 194; /* if 512 < udata_len <= 10240)*/ + } + else + { + /* ACCEPT SPDU */ + enc_buf [idx++] = 193; /* encode PGI code */ + } + idx += cosp_enc_len ((ST_UINT16) udata_len, &enc_buf [idx]); + /* udata should be already in enc_buf */ + + + /*-----------------------------------------------*/ + /* set values to be returned to calling function */ + /*-----------------------------------------------*/ + *spdu_len = envelope_len + udata_len; + *spdu_ptr = (char *) enc_buf; + + return (SD_SUCCESS); +} + + +/************************************************************************/ +/* cosp_enc_rf */ +/*----------------------------------------------------------------------*/ +/* Function to encode a REFUSE SPDU. */ +/* This function assumed that there is enough place in the enc_buf for */ +/* the RF SPDU encoding. The function cosp_envelope_len can be used */ +/* to compute exact envelope encoding length. */ +/* Note that this function assumes that the SS-user data (refuse reason)*/ +/* has been already copied into the enc_buf in proper position. */ +/* */ +/* Parameters: */ +/* ACSE_CONN *con Connection info parameters */ +/* charE **spdu_ptr Pointer where to return pointer to SPDU */ +/* ST_UINT *spdu_len Pointer where to return the SPDU len */ +/* ST_UCHAR reason Reason code for refuse */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if successful */ +/* error code otherwise */ +/************************************************************************/ +ST_RET cosp_enc_rf (ACSE_CONN *con, char **spdu_ptr, ST_UINT *spdu_len, + ST_UCHAR reason) +{ +ST_UINT envelope_len; +ST_UINT udata_len; +ST_UCHAR *enc_buf; +ST_UINT enc_len; +ST_UINT idx; + + /*--------------------------------------------*/ + /* make sure data len is OK */ + /*--------------------------------------------*/ + udata_len = con->ppdu_len; + envelope_len = cosp_envelope_len (con, 0, COSP_SI_REFUSE); + + if (udata_len > COSP_MAX_UDATA) + { + COSP_LOG_ERR2 ("COSP-ERROR: Encoding RF: Invalid User Data length=%u (length<=%u).", + udata_len, COSP_MAX_UDATA); + return (COSP_ERR_INV_UDATA_LEN); + } + /* set the pointer to beginning of encoding in the buffer (global buf)*/ + enc_buf = con->ppdu_ptr - envelope_len; + if (enc_buf < cosp_buf) + { + COSP_LOG_ERR0 ("COSP-ERROR: Encoding RF: Invalid pointer to Global Encoding Buffer."); + return (COSP_ERR_INV_POINTER); + } + + idx = 0; + + /*------------------------------------*/ + /* Encode RF code and total SPDU len */ + /*------------------------------------*/ + /* SPDU length to encode does not include 1 byte for SPDU code and */ + /* 1 or 3 bytes for total len */ + + if (envelope_len-2 + udata_len <= 254) + enc_len = envelope_len-2 + udata_len; /* len enc on 1 byte */ + else + enc_len = envelope_len-4 + udata_len; /* len enc on 3 bytes */ + + enc_buf [idx++] = COSP_SI_REFUSE; + idx += cosp_enc_len ((ST_UINT16) enc_len, &enc_buf [idx]); + + /*--------------------------------------------*/ + /* no Connection Identifier PGI encoded */ + /*--------------------------------------------*/ + + /*--------------------------------------------*/ + /* encode Session User Requirements PI: */ + /* - duplex functional unit (FU) supported */ + /* encode COSP Version PI: */ + /* - Version2 supported */ + /*--------------------------------------------*/ + memcpy (&enc_buf [idx], cosp_rf_fixed, sizeof (cosp_rf_fixed)); + idx += sizeof (cosp_rf_fixed); + + /*--------------------------------------------------------------------*/ + /* encode Reason Code. SS-user Data (if any) should be already in the */ + /* enc_buf (in proper position). */ + /*--------------------------------------------------------------------*/ + enc_buf [idx++] = 50; /* PI code */ + idx += cosp_enc_len ((ST_UINT16) (udata_len+1), &enc_buf [idx]); /* len */ + enc_buf [idx++] = reason; /* Reason code */ + /* udata may follow if reason=COSP_RF_REASON_U_REJECT */ + + /*-----------------------------------------------*/ + /* set values to be returned to calling function */ + /*-----------------------------------------------*/ + *spdu_len = envelope_len + udata_len; + *spdu_ptr = (char *) enc_buf; + + return (SD_SUCCESS); +} + + +/************************************************************************/ +/* cosp_enc_fn_dn */ +/*----------------------------------------------------------------------*/ +/* Function to encode a FINISH or DISCONNECT SPDU. */ +/* This function assumed that there is enough place in the enc_buf for */ +/* the FN or DN SPDU encoding. The function cosp_envelope_len can be */ +/* used to compute exact envelope encoding length. */ +/* Note that this function assumes that the SS-user data (RLRQ or RLRE */ +/* APDU) have been already copied into the enc_buf in proper position. */ +/* */ +/* Parameters: */ +/* ACSE_CONN *con Connection info parameters */ +/* char **spdu_ptr Pointer where to return pointer to SPDU */ +/* ST_UINT *spdu_len Pointer where to return the SPDU len */ +/* ST_UCHAR spdu_type COSP_SI_FINISH or COSP_SI_DISCON */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if successful */ +/* error code otherwise */ +/************************************************************************/ +ST_RET cosp_enc_fn_dn (ACSE_CONN *con, char **spdu_ptr, ST_UINT *spdu_len, + ST_UCHAR spdu_type) +{ +ST_UINT envelope_len; +ST_UINT udata_len; +ST_UCHAR *enc_buf; +ST_UINT enc_len; +ST_UINT idx; + + /*------------------------------------------------------------*/ + /* make sure data len is OK (User Data mandatory) */ + /*------------------------------------------------------------*/ + udata_len = con->ppdu_len; + envelope_len = cosp_envelope_len (con, 0, spdu_type); + + if (udata_len == 0 || udata_len > COSP_MAX_UDATA) + { + COSP_LOG_ERR2 ("COSP-ERROR: Encoding FN/DN: Invalid User Data length=%u (0ppdu_ptr - envelope_len; + if (enc_buf < cosp_buf) + { + COSP_LOG_ERR0 ("COSP-ERROR: Encoding FN/DN: Invalid pointer to Global Encoding Buffer."); + return (COSP_ERR_INV_POINTER); + } + + idx = 0; + + /*------------------------------------------*/ + /* Encode FN or DN code and total SPDU len */ + /*------------------------------------------*/ + /* SPDU length to encode does not include 1 byte for FN or DN code */ + /* and 1 or 3 bytes for total len */ + + if (envelope_len-2 + udata_len <= 254) + enc_len = envelope_len-2 + udata_len; /* len enc on 1 byte */ + else + enc_len = envelope_len-4 + udata_len; /* len enc on 3 bytes */ + + enc_buf [idx++] = spdu_type; + idx += cosp_enc_len ((ST_UINT16) enc_len, &enc_buf [idx]); + + /*--------------------------------------------------------------------*/ + /* encode User Data (length only), SS-user Data should be already in */ + /* the enc_buf (in proper position). */ + /*--------------------------------------------------------------------*/ + enc_buf [idx++] = 193; /* PI code */ + idx += cosp_enc_len ((ST_UINT16) udata_len, &enc_buf [idx]); + + /*-----------------------------------------------*/ + /* set values to be returned to calling function */ + /*-----------------------------------------------*/ + *spdu_len = envelope_len + udata_len; + *spdu_ptr = (char *) enc_buf; + + return (SD_SUCCESS); +} + + +/************************************************************************/ +/* cosp_enc_u_ab */ +/*----------------------------------------------------------------------*/ +/* Function to encode a SS-user generated ABORT SPDU */ +/* This function assumed that there is enough place in the enc_buf for */ +/* the AB SPDU encoding. The function cosp_envelope_len can be used */ +/* to compute exact envelope encoding length. */ +/* Note that this function assumes that the SS-user data (ARP /ATU PPDU)*/ +/* has been already copied into the enc_buf in proper position. */ +/* */ +/* Parameters: */ +/* ACSE_CON *con Connection info parameters */ +/* char **spdu_ptr Pointer where to return pointer to SPDU */ +/* ST_UINT *spdu_len Pointer where to return the SPDU len */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if successful */ +/* error code otherwise */ +/************************************************************************/ +ST_RET cosp_enc_u_ab (ACSE_CONN *con, char **spdu_ptr, ST_UINT *spdu_len) +{ +ST_UINT envelope_len; +ST_UINT udata_len; +ST_UCHAR *enc_buf; +ST_UINT enc_len; +ST_UINT idx; + + /*------------------------------------------------------------*/ + /* make sure data len is OK (depending on the reason the User */ + /* Data or the Reflect Parameter presence is mandatory) */ + /*------------------------------------------------------------*/ + udata_len = con->ppdu_len; + envelope_len = cosp_envelope_len (con, 0, COSP_SI_ABORT); + +//envelope_len = cosp_envelope_len (con, 0, COSP_SI_AB_ACCEPT); //renxiaobao2022 mod + + + + if (udata_len == 0 || udata_len > COSP_MAX_UDATA) + { + COSP_LOG_ERR2 ("COSP-ERROR: Encoding U-AB: Invalid User Data length=%u (0ppdu_ptr - envelope_len; + if (enc_buf < cosp_buf) + { + COSP_LOG_ERR0 ("COSP-ERROR: Encoding U-AB: Invalid pointer to Global Encoding Buffer."); + return (COSP_ERR_INV_POINTER); + } + + idx = 0; + + /*------------------------------------*/ + /* Encode AB code and total SPDU len */ + /*------------------------------------*/ + /* SPDU length to encode does not include 1 byte for AB code and */ + /* 1 or 3 bytes for total len */ + + if (envelope_len-2 + udata_len <= 254) + enc_len = envelope_len-2 + udata_len; /* len enc on 1 byte */ + else + enc_len = envelope_len-4 + udata_len; /* len enc on 3 bytes */ + + enc_buf [idx++] = COSP_SI_ABORT; + + //enc_buf [idx++] = COSP_SI_AB_ACCEPT;; //renxiaobao2022 mod + + + + idx += cosp_enc_len ((ST_UINT16) enc_len, &enc_buf [idx]); + + /*----------------------------------------------------*/ + /* Encode Transport Disonnect PI (release TP conn) */ + /*----------------------------------------------------*/ + enc_buf [idx++] = 17; /* PI code */ + enc_buf [idx++] = 1; /* PI len */ + enc_buf [idx++] = COSP_TCONN_RELEASE | COSP_AB_REASON_USER_ABORT; + + /*--------------------------------------------------------------------*/ + /* encode User Data (length only), SS-user Data should be already */ + /* in the enc_buf (in proper position). */ + /*--------------------------------------------------------------------*/ + if (udata_len > 0) + { + /* encode User Data */ + enc_buf [idx++] = 193; /* PGI code */ + idx += cosp_enc_len ((ST_UINT16) udata_len, &enc_buf [idx]); + /* udata should be already in enc_buf */ + } + + /*-----------------------------------------------*/ + /* set values to be returned to calling function */ + /*-----------------------------------------------*/ + *spdu_len = envelope_len + udata_len; + *spdu_ptr = (char *) enc_buf; + + return (SD_SUCCESS); +} + +/************************************************************************/ +/* cosp_enc_p_ab */ +/*----------------------------------------------------------------------*/ +/* Function to encode a SS-provider generated ABORT SPDU */ +/* This function assumed that there is enough place in the enc_buf for */ +/* the AB SPDU encoding (COSP_P_AB_LEN bytes). */ +/* */ +/* Parameters: */ +/* char *spdu_ptr Pointer to encode buffer for SPDU */ +/* ST_INT err_code This value will be passed for AB reason */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if successful */ +/* error code otherwise */ +/************************************************************************/ +ST_RET cosp_enc_p_ab (char *spdu_ptr, ST_INT err_code) +{ + + /*------------------------------------*/ + /* Encode AB code and total SPDU len */ + /*------------------------------------*/ + + + + + spdu_ptr [0] = COSP_SI_ABORT; + spdu_ptr [1] = 3 + 4; + + + + + /*----------------------------------------------------*/ + /* Encode Transport Disonnect PI (release TP conn) */ + /*----------------------------------------------------*/ + spdu_ptr [2] = 17; /* PI code */ + spdu_ptr [3] = 1; /* PI len */ + spdu_ptr [4] = COSP_TCONN_RELEASE | COSP_AB_REASON_PROT_ERROR; + + /* encode the Reflect Parameter PI */ + spdu_ptr [5] = 49; /* PI code */ + spdu_ptr [6] = (ST_UCHAR) 2; /* PI len (0-9) */ + spdu_ptr [7] = (ST_UCHAR) ((err_code >> 8) & 0x00FF); + spdu_ptr [8] = (ST_UCHAR) (err_code & 0x00FF); + + /* !!! if number of encoded bytes changes make sure that the define */ + /* !!! COSP_P_AB_SPDU_LEN is changed accordingly. */ + + return (SD_SUCCESS); +} + + +/************************************************************************/ +/* cosp_enc_dt */ +/*----------------------------------------------------------------------*/ +/* Function to encode a DATA SPDU */ +/* This function assumed that there is enough place in the enc_buf for */ +/* the GIVE-TOKEN ans DT SPDU encoding. */ +/* The function cosp_envelope_len can be used to compute exact envelope */ +/* encoding length. */ +/* Note that this function assumes that the SS-user data have been */ +/* already copied into the enc_buf in proper position. */ +/* */ +/* Parameters: */ +/* ACSE_CON *con Connection info parameters */ +/* char **spdu_ptr Pointer where to return pointer to SPDU */ +/* ST_UINT *spdu_len Pointer where to return the SPDU len */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if successful */ +/* error code otherwise */ +/************************************************************************/ +ST_RET cosp_enc_dt (ACSE_CONN *con, char **spdu_ptr, ST_UINT *spdu_len) +{ +ST_UINT envelope_len; +ST_UINT udata_len; +ST_UCHAR *enc_buf; +ST_UINT idx; + + /*------------------------------------------------------------*/ + /* make sure data len is OK */ + /*------------------------------------------------------------*/ + udata_len = con->ppdu_len; + envelope_len = cosp_envelope_len (con, 0, COSP_SI_DATA); + + if (udata_len == 0) + { + COSP_LOG_ERR2 ("COSP-ERROR: Encoding DT: Invalid User Data length=%u (0ppdu_ptr - envelope_len; + if (enc_buf < cosp_buf) + { + COSP_LOG_ERR0 ("COSP-ERROR: Encoding DT: Invalid pointer to Global Encoding Buffer."); + return (COSP_ERR_INV_POINTER); + } + + idx = 0; + + /*--------------------------------------------*/ + /* Encode GIVE-TOKEN code and params len LI=0 */ + /*--------------------------------------------*/ + + enc_buf [idx++] = COSP_SI_GIVE_TOKEN; + enc_buf [idx++] = 0; /* no parameters present LI=0 */ + + /*------------------------------------*/ + /* Encode DT code and params len LI=0 */ + /*------------------------------------*/ + + enc_buf [idx++] = COSP_SI_DATA; + enc_buf [idx++] = 0; /* no parameters present LI=0 */ + /* udata should be already in enc_buf */ + + /*-----------------------------------------------*/ + /* set values to be returned to calling function */ + /*-----------------------------------------------*/ + *spdu_len = envelope_len + udata_len; + *spdu_ptr = (char *) enc_buf; + + return (SD_SUCCESS); +} + + +/************************************************************************/ +/* cosp_enc_len */ +/*----------------------------------------------------------------------*/ +/* Function to encode a parameter's len. If len<=254 then 1 byte */ +/* will be used to encode the length. If len>254 then 3 bytes will */ +/* be used to encode the length. */ +/* */ +/* Parameters: */ +/* ST_UINT16 len Parameter's length to encode */ +/* ST_UCHAR *buf Pointer where to encode the len */ +/* */ +/* Return: */ +/* ST_UINT Number of bytes used in encoding of len */ +/************************************************************************/ +static ST_UINT cosp_enc_len (ST_UINT16 len, ST_UCHAR *buf) +{ +ST_UINT bytes; + + if (len <= 254) + { + buf [0] = (ST_UCHAR) len; + bytes = 1; + } + else + { + buf [0] = (ST_UCHAR) 0xFF; /* indicates len>254 */ + buf [1] = (ST_UCHAR)((len >> 8) & 0x00FF); /* high order byte */ + buf [2] = (ST_UCHAR) (len & 0x00FF); /* low order byte */ + bytes = 3; + } + + return (bytes); +} + diff --git a/mmslib/ositcps/cospmain.c b/mmslib/ositcps/cospmain.c new file mode 100644 index 0000000..b70ec55 --- /dev/null +++ b/mmslib/ositcps/cospmain.c @@ -0,0 +1,2043 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1997-2005, All Rights Reserved */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : cospmain.c */ +/* PRODUCT(S) : MOSI Stack (over TP4) */ +/* */ +/* MODULE DESCRIPTION : */ +/* This file implements functions common to CALLING and */ +/* CALLED side of the COSP protocol. */ +/* */ +/* For information see the: */ +/* ISO 8326 "Information processing systems - Open Systems */ +/* Interconnection - Basic connection oriented session service */ +/* definition. */ +/* ISO 8327 "Information processing systems - Open Systems */ +/* Interconnection - Basic connection oriented session protocol */ +/* specification. */ +/* ISO 8327/ADD.2 (Draft for Version2). */ +/* */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* cosp_bind */ +/* cosp_unbind */ +/* */ +/* cosp_con_req */ +/* cosp_con_rsp_pos */ +/* cosp_con_rsp_neg */ +/* */ +/* cosp_rel_req */ +/* cosp_rel_rsp_pos */ +/* */ +/* cosp_u_abort_req */ +/* */ +/* cosp_data_req */ +/* */ +/* tp4_bind_cnf */ +/* tp4_unbind_cnf */ +/* */ +/* tp4_connect_ind */ +/* tp4_connect_cnf */ +/* tp4_disconnect_ind */ +/* tp4_data_ind */ +/* tp4_expdata_ind */ +/* */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 07/30/08 JRB 21 Chg log msg from ERR to ENC. */ +/* 04/28/08 GLB 20 Removed CALLED_ONLY and CALLING_ONLY */ +/* 04/09/08 JRB 19 Fix log message for unsupported SPDU. */ +/* 05/05/05 EJV 18 cosp_con_req: copy new port param. */ +/* 09/17/04 JRB 17 cosp_con_req: save tp4_conn_id returned from */ +/* modified tp4_connect (need for abort fix). */ +/* cosp_u_abort_req: if waiting for T-CONNECT.cnf,*/ +/* call tp4_disconnect (correct ISO 8327 action).*/ +/* 01/20/04 EJV 16 acse_free_con: add a_free_part_security_info.*/ +/* 11/14/03 JRB 15 Save encrypt_ctrl ONLY for TP0 (not for TP4).*/ +/* 08/25/03 EJV 14 Added param to tp4_connect(). */ +/* tp4_connect_ind, cnf: save encrypt_ctrl */ +/* 06/20/02 JRB 13 Chg addr args to tp4_connect_ind & */ +/* copy them to ACSE_CONN. */ +/* 06/05/02 JRB 12 Allow Called SSEL=NULL (0 length) on conn req*/ +/* 09/10/01 JRB 11 Remove last change but fix cosp_cn_ptr free. */ +/* 08/01/01 JRB 10 Del rem_addr from cosp_enc_cn_ac calls. */ +/* Del use of cosp_cn_ptr, cosp_cn_len. */ +/* 05/09/01 JRB 09 On S-CONNECT.ind, save SSELs in ACSE_CONN. */ +/* 03/14/01 JRB 08 Use new SMEM allocation functions. */ +/* Add global variable "session_cfg". */ +/* 09/13/99 MDE 07 Added SD_CONST modifiers */ +/* 08/13/98 JRB 06 Lint cleanup. */ +/* 06/17/98 JRB 05 Allow second call to cosp_bind if SSEL same. */ +/* 12/30/97 JRB 04 cosp_bind return same as tp4_bind if it fails*/ +/* 07/31/97 JRB 03 cosp_bind & cosp_con_req: set "tp_type" in */ +/* tp4_addr. */ +/* Don't set NSAP on tp4_bind call (ignored). */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 03/20/97 EJV 02 Enhanced logging and collision handling. */ +/* 02/07/97 EJV 01 Created */ +/************************************************************************/ +#include "glbtypes.h" +#include "sysincs.h" + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; /* Define for SLOG mechanism */ +#endif + +#include "mem_chk.h" +#include "tp4api.h" +#include "tp4.h" /* need MIN_TP0_CONN_ID definition */ +#include "acse2.h" + +#include "cosp_log.h" +#include "cosp.h" +#include "cosp_usr.h" + + + /*======================================================*/ + /* */ + /* L O C A L V A R I A B L E S */ + /* A N D */ + /* F U N C T I O N S P R O T O T Y P E S */ + /* */ + /*======================================================*/ + +/* define actions to perform after return from one of decode functions */ +#define COSP_S_P_ABORT_IND 1 +#define COSP_SEND_ABORT_SPDU 2 +#define COSP_T_DISCONNECT 4 + + +ST_RET cosp_send_abort (ACSE_CONN *con, ST_INT err_code); + +static ST_RET cosp_process_connect (ACSE_CONN *con, ST_UINT spdu_len, char *spdu_buf); +static ST_RET cosp_process_finish (ACSE_CONN *con, ST_UINT spdu_len, char *spdu_buf); +static ST_RET cosp_process_accept (ACSE_CONN *con, ST_UINT spdu_len, char *spdu_buf); +static ST_RET cosp_process_refuse (ACSE_CONN *con, ST_UINT spdu_len, char *spdu_buf); +static ST_RET cosp_process_discon (ACSE_CONN *con, ST_UINT spdu_len, char *spdu_buf); +static ST_RET cosp_process_abort (ACSE_CONN *con, ST_UINT spdu_len, char *spdu_buf); +static ST_RET cosp_process_data (ACSE_CONN *con, ST_UINT spdu_len, char *spdu_buf); + + +/************************************************************************/ +/* Global and static variables. */ +/************************************************************************/ +/* flag below prevents calling acse_free_con twice (if we are in func */ +/* tp4_connect and tp4_disconnect_ind is called) */ + +static ST_BOOLEAN cosp_in_tp4_func; + +static ST_BOOLEAN cosp_bind_called; /* only 1 binding allowed */ + +ST_UCHAR cosp_only_ssel [1+MAX_SSEL_LEN]; +SESSION_CFG session_cfg; /* Session layer configuration */ + + /*======================================================*/ + /* */ + /* B I N D I N G F U N C T I O N S */ + /* */ + /*======================================================*/ + + +/************************************************************************/ +/* cosp_bind */ +/*----------------------------------------------------------------------*/ +/* Function called by SS-user to bind to local Session Address. */ +/* The SS-user should implement the u_cosp_bind_cnf function. */ +/* */ +/* Parameters: */ +/* ST_LONG cosp_user_bind_id COSP User's id for this binding.*/ +/* PRES_ADDR *loc_addr Local Address to bind to */ +/* ST_INT sharable Ignored, (for compatibility with*/ +/* ST_INT max_conns Ignored, previous versions) */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if bind successful */ +/* error code otherwise */ +/************************************************************************/ +ST_RET cosp_bind (ST_LONG cosp_user_bind_id, PRES_ADDR *loc_addr, + ST_INT sharable, ST_INT max_conns) +{ +ST_INT ret; +TP4_ADDR tp4_addr; +ST_LONG user_bind_id; /* TP4 user bind id */ + + COSP_LOG_ENC1 ("S-BIND.req: cosp_user_bind_id =0x%08X", cosp_user_bind_id); + + ret = SD_SUCCESS; + + + + + + /* Check SSEL. If OK, save it. */ + if (!cosp_bind_called) + { + /* If local SSEL len is legal, save SSEL. */ + if (loc_addr->ssel_len <= MAX_SSEL_LEN) + { + if ((cosp_only_ssel [0] = (ST_UCHAR) loc_addr->ssel_len) > 0) + memcpy (&cosp_only_ssel [1], loc_addr->ssel, loc_addr->ssel_len); + } + else + { + ret = COSP_ERR_INV_SSEL; /* invalid loc SSEL */ + COSP_LOG_ERR1 ("COSP-ERROR: S-BIND.req: Invalid length=%d of SSEL.", + loc_addr->ssel_len); + } + } + else + { /* Second Bind. Only allow it if the SSEL is the same. */ + if (cosp_only_ssel [0] != (ST_UCHAR) loc_addr->ssel_len || + (loc_addr->ssel_len != 0 && + memcmp (&cosp_only_ssel [1], loc_addr->ssel, loc_addr->ssel_len))) + { + COSP_LOG_ERR0 ("COSP-ERROR: Cannot BIND to different SSEL"); + ret = COSP_ERR_INV_SSEL; + } + } + + + /* Bind to Transport. */ + if (ret == SD_SUCCESS) + { + /* Copy tsel from pres_addr to tp4_addr struct. Don't copy nsap */ + /* because tp4_bind ignores it anyway. */ + if (loc_addr->tsel_len <= sizeof (tp4_addr.tp4_sel)) + { + tp4_addr.tp4_sel_len = loc_addr->tsel_len; + memcpy (tp4_addr.tp4_sel, loc_addr->tsel, loc_addr->tsel_len); + tp4_addr.tp_type = loc_addr->tp_type; /* TP4 or TCP? */ + + user_bind_id = cosp_user_bind_id; /* pass bind id down */ + + + + if ((ret = tp4_bind (user_bind_id, &tp4_addr, sharable, max_conns)) + != SD_SUCCESS) + { + COSP_LOG_ERR0 ("COSP-ERROR: S-BIND.req: T-BIND.req failed."); + } + } + else + { + ret = COSP_ERR_INV_TP4_ADDR; /* TP4 bind failed */ + COSP_LOG_ERR2 ("COSP-ERROR: S-BIND.req: Invalid TSEL length=%d or NSAP length=%d.", + loc_addr->tsel_len, loc_addr->nsap_len); + } + } /* end Transport binding section */ + + + + /* If successful, set called flag. Otherwise, treat next bind like first.*/ + if (ret == SD_SUCCESS) + cosp_bind_called = SD_TRUE; + + return (ret); +} + + +/************************************************************************/ +/* tp4_bind_cnf */ +/*----------------------------------------------------------------------*/ +/* This function is called by the TP-provider to indicate the result of */ +/* the bind operation (see cosp_bind func). */ +/* */ +/* Parameters: */ +/* ST_LONG user_bind_id User's id (COSP id) for this binding. */ +/* ST_LONG tp4_bind_id TP4 assigned ID for this binding. */ +/* ST_INT result Indicates if the bind was successful: */ +/* = 0 Success */ +/* <> 0 Error code */ +/* */ +/* Return: */ +/* ST_VOID */ +/************************************************************************/ +ST_VOID tp4_bind_cnf (ST_LONG user_bind_id, ST_LONG tp4_bind_id, ST_RET result) +{ +ST_LONG cosp_user_bind_id; +ST_LONG cosp_bind_id; + + cosp_user_bind_id = user_bind_id; /* we passing same bind id up */ + cosp_bind_id = tp4_bind_id; /* COSP bind id same as TP4 */ + + COSP_LOG_DEC3 ("S-BIND.cnf: cosp_user_bind_id =0x%08X cosp_bind_id =%9ld result =%d", + cosp_user_bind_id, cosp_bind_id, result); + + u_cosp_bind_cnf (cosp_user_bind_id, cosp_bind_id, result); +} + + +/************************************************************************/ +/* cosp_unbind */ +/*----------------------------------------------------------------------*/ +/* Function called by SS-user to unbind from local Session Address. */ +/* The SS-user should implement the u_cosp_unbind_cnf function. */ +/* */ +/* Parameters: */ +/* ST_LONG cosp_bind_id COSP's id to unbind. */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if unbind successful */ +/* error code otherwise */ +/************************************************************************/ +ST_RET cosp_unbind (ST_LONG cosp_bind_id) +{ +ST_LONG tp4_bind_id; + + COSP_LOG_ENC1 ("S-UNBIND.req: cosp_bind_id =%9ld", cosp_bind_id); + + tp4_bind_id = cosp_bind_id; + + /* unbind the transport */ + if (tp4_unbind (tp4_bind_id) != SD_SUCCESS) + { + COSP_LOG_ERR0 ("COSP-ERROR: S-UNBIND.req: T-UNBIND.req failed."); + return (COSP_ERR_TP4_RET); + } + return (SD_SUCCESS); +} + + +/************************************************************************/ +/* tp4_unbind_cnf */ +/*----------------------------------------------------------------------*/ +/* This function is called by the TP4-provider to indicate that the */ +/* unbind operation completed. */ +/* */ +/* Parameters: */ +/* ST_LONG user_bind_id User's id for this binding. */ +/* */ +/* Return: */ +/* ST_VOID */ +/************************************************************************/ +ST_VOID tp4_unbind_cnf (ST_LONG user_bind_id) +{ +ST_LONG cosp_user_bind_id; + + cosp_user_bind_id = user_bind_id; + + COSP_LOG_DEC1 ("S-UNBIND.cnf: cosp_user_bind_id =0x%08X", cosp_user_bind_id); + + u_cosp_unbind_cnf (cosp_user_bind_id); +} + + +/************************************************************************/ +/* acse_free_con */ +/*----------------------------------------------------------------------*/ +/* This function will free the pointer to connection info. */ +/* In most cases the COSP engine is responsible for releasing the con */ +/* pointer. */ +/* */ +/* Parameters: */ +/* ACSE_CONN *con Pointer to connection info struct */ +/* */ +/* Return: */ +/* ST_VOID none */ +/************************************************************************/ +ST_VOID acse_free_con (ACSE_CONN *con) +{ + + + if (con) + { + /* free partner Authentication Info */ + + a_free_part_security_info ((ST_LONG) con); + + if (con->cosp_cn_ptr) + M_FREE (MSMEM_COSP_CN, con->cosp_cn_ptr); /* free saved encoded CN SPDU */ + + M_FREE (MSMEM_ACSE_CONN, con); + } + +} + + /*======================================================*/ + /* */ + /* C O N N E C T (CALLED SIDE) F U N C T I O N S */ + /* */ + /*======================================================*/ + + +/************************************************************************/ +/* tp4_connect_ind */ +/*----------------------------------------------------------------------*/ +/* This function is called by the TP4-provider to indicate that a */ +/* remote node wishes to establish a connection. */ +/* */ +/* Parameters: */ +/* ST_LONG user_bind_id User's id for this binding. */ +/* ST_LONG tp4_conn_id COSP connection id for this connect. */ +/* ST_UCHAR *loc_tsel Local (called) TSEL. */ +/* ST_UCHAR *rem_tsel Remote (calling) TSEL. */ +/* ST_UCHAR *rem_nsap Remote (calling) NSAP (TP4) or */ +/* ST_ULONG rem_ip Remote (calling) IP addr(TP0) */ +/* ST_INT conndata_len Length of opt connect data <= 32 bytes */ +/* char *conndata Pointer to opt connect data. */ +/* */ +/* Return: */ +/* ST_VOID */ +/************************************************************************/ +ST_VOID tp4_connect_ind (ST_LONG user_bind_id, ST_LONG tp4_conn_id, + ST_UCHAR *loc_tsel, ST_UCHAR *rem_tsel, + ST_UCHAR *rem_nsap, ST_ULONG rem_ip, + ST_INT conndata_len, char *conndata) +{ +ACSE_CONN *con; + + tp4_reldata (conndata); /* !!! we ignoring conndata */ + + con = (ACSE_CONN *) M_CALLOC (MSMEM_ACSE_CONN, 1, sizeof (ACSE_CONN)); + + /* accept incomming transport connection */ + if (tp4_accept (tp4_conn_id, (ST_LONG) con, 0, NULL) == SD_SUCCESS) + { + con->cosp_state = COSP_CSTATE_IDLE_TCON; + con->cosp_bind_id = user_bind_id; /* save the id to pass to COPP */ + con->cosp_vtca = SD_TRUE; /* transport conn acceptor */ + con->tp4_conn_id = tp4_conn_id; + /* Save TSELs, NSAP in ACSE_CONN struct. */ + memcpy (con->loc_tsel, loc_tsel, loc_tsel [0]+1); + memcpy (con->rem_tsel, rem_tsel, rem_tsel [0]+1); + if (tp4_conn_id >= MIN_TP0_CONN_ID) /* This is TP0 conn. Save IP addr*/ + { + con->remNetAddr.ip = rem_ip; +#if defined (TP0_ENABLED) + /* If connection is TP0, save encrypt_ctrl. */ + if (tp4_conn_id >= MIN_TP0_CONN_ID) + { /* this is TP0 connection */ + TP0_CONN *tp0_conn = &tp0_conn_arr [tp4_conn_id-MIN_TP0_CONN_ID]; + /* save the encryption info in ACSE_CONN */ + con->encrypt_ctrl = tp0_conn->sock_info->encrypt_ctrl; + } +#endif + } + else /* This is TP4 conn. Save NSAP */ + memcpy (con->remNetAddr.nsap, rem_nsap, rem_nsap [0]+1); + } + else + { + COSP_LOG_ERR0 ("COSP-ERROR: T-CONNECT.ind: T-ACCEPT.req connection failed."); + + M_FREE (MSMEM_STARTUP, con); + + /* reject incomming transport connection, accept failed */ + tp4_disconnect (tp4_conn_id, 0, NULL); + } +} + + +/************************************************************************/ +/* cosp_con_rsp_pos */ +/*----------------------------------------------------------------------*/ +/* Function called by SS-user to Accept an incomming connection. */ +/* */ +/* Parameters: */ +/* ACSE_CONN *con Pointer to con info struct */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if successful */ +/* error code otherwise */ +/************************************************************************/ +ST_RET cosp_con_rsp_pos (ACSE_CONN *con) +{ +ST_INT ret; +ST_UINT spdu_len; +char *spdu_ptr; + + COSP_LOG_ENC2 ("S-CONNECT.rsp+: acse_conn_id =0x%08X user_conn_id =%4ld", + con, con->user_conn_id); + COSP_LOG_ENCC1 ("User data length: %d", con->ppdu_len); + COSP_LOG_ENCH (con->ppdu_len, con->ppdu_ptr); + + ret = SD_SUCCESS; + + if (con->cosp_state == COSP_CSTATE_WAIT_CON_RSP) + { + /* encode ACCEPT SPDU */ + ret = cosp_enc_cn_ac (con, NULL, &spdu_ptr, &spdu_len, COSP_SI_ACCEPT); + if (ret == SD_SUCCESS) + { + if (tp4_data (con->tp4_conn_id, SD_TRUE, spdu_len, spdu_ptr) == SD_SUCCESS) + { + con->cosp_state = COSP_CSTATE_DATA_XFER; + con->cosp_vcoll = SD_FALSE; + con->cosp_vdnr = SD_FALSE; + } + else + { + ret = COSP_ERR_TP4_RET; + COSP_LOG_ERR1 ("COSP-ERROR: S-CONNECT.rsp+ acse_conn_id=0x%08X: T-DATA.req failed.", + con); + } + } + else + { + COSP_LOG_ERR1 ("COSP-ERROR: S-CONNECT.rsp+ acse_conn_id=0x%08X: Encoding ACCEPT SPDU failed.", + con); + } + } + else + { + ret = COSP_ERR_INV_CON_STATE; + COSP_LOG_ERR2 ("COSP-ERROR: S-CONNECT.rsp+ acse_conn_id=0x%08X: Invalid state=%d.", + con, con->cosp_state); + } + + return (ret); +} + + +/************************************************************************/ +/* cosp_con_rsp_neg */ +/*----------------------------------------------------------------------*/ +/* Function called by SS-user to Reject an incomming connection. */ +/* */ +/* Parameters: */ +/* ACSE_CONN *con Pointer to con info struct */ +/* ST_INT reason Reason for reject COSP_CON_RSP_U_... */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if successful */ +/* error code otherwise */ +/************************************************************************/ +ST_RET cosp_con_rsp_neg (ACSE_CONN *con, ST_INT reason) +{ +ST_INT ret; +ST_UINT spdu_len; +char *spdu_ptr; +ST_UCHAR reason_code; + + COSP_LOG_ENC3 ("S-CONNECT.rsp-: acse_conn_id =0x%08X user_conn_id =%4ld reason =%d", + con, con->user_conn_id, reason); + COSP_LOG_ENCC1 ("User data length: %d", con->ppdu_len); + COSP_LOG_ENCH (con->ppdu_len, con->ppdu_ptr); + + ret = SD_SUCCESS; + + if (con->cosp_state == COSP_CSTATE_WAIT_CON_RSP) + { + /* encode REFUSE SPDU */ + switch (reason) + { + case COSP_CON_RSP_U_CONGESTION: + reason_code = COSP_RF_REASON_U_CONGESTION; + break; + + case COSP_CON_RSP_U_IN_UDATA: + reason_code = COSP_RF_REASON_U_REJECT; + /* SS-user data should be present in this case */ + break; + + case COSP_CON_RSP_U_NOT_SPECIFIED: + default: + reason_code = COSP_RF_REASON_U_NOT_SPECIFIED; + } + + /* check if user data present */ + if (reason == COSP_CON_RSP_U_IN_UDATA) + { + /* SS-user data should be present in this case */ + if (con->ppdu_len == 0) + ret = COSP_ERR_INV_UDATA_LEN; + } + else + { + /* SS-user data should NOT be present in this case */ + if (con->ppdu_len != 0) + ret = COSP_ERR_INV_UDATA_LEN; + } + + if (ret == SD_SUCCESS) + { + ret = cosp_enc_rf (con, &spdu_ptr, &spdu_len, reason_code); + if (ret == SD_SUCCESS) + { + if (tp4_data (con->tp4_conn_id, SD_TRUE, spdu_len, spdu_ptr) == SD_SUCCESS) + { + con->cosp_state = COSP_CSTATE_WAIT_TDISCON_IND; + tp4_session_timer (con->tp4_conn_id, SD_TRUE); /* start timer */ + } + else + { + ret = COSP_ERR_TP4_RET; + COSP_LOG_ERR1 ("COSP-ERROR: S-CONNECT.rsp- acse_conn_id=0x%08X: T-DATA.req failed.", + con); + } + } + else + { + COSP_LOG_ERR1 ("COSP-ERROR: S-CONNECT.rsp- acse_conn_id=0x%08X: Encoding REFUSE SPDU failed.", + con); + } + } + else + { + COSP_LOG_ERR3 ("COSP-ERROR: S-CONNECT.rsp- acse_conn_id=0x%08X: Invalid SS-UserData length=%u for Reason=%d.", + con, con->ppdu_len, reason); + } + } + else + { + ret = COSP_ERR_INV_CON_STATE; + COSP_LOG_ERR2 ("COSP-ERROR: S-CONNECT.rsp- acse_conn_id=0x%08X: Invalid state=%d.", + con, con->cosp_state); + } + + return (ret); +} + + /*======================================================*/ + /* */ + /* C O N N E C T (CALLING SIDE) F U N C T I O N S */ + /* */ + /*======================================================*/ + + +/************************************************************************/ +/* cosp_con_req */ +/*----------------------------------------------------------------------*/ +/* Function called by SS-user to establish Session Layer connection. */ +/* SS-user should implement the u_cosp_con_cnf_pos & u_cosp_con_cnf_neg */ +/* functions to receive confirm for this request. */ +/* If this function returns value other then SD_SUCCESS then the function */ +/* u_cosp_con_cnf_xxx will not be called. */ +/* */ +/* Parameters: */ +/* ST_LONG cosp_bind_id COSP bind id */ +/* PRES_ADDR *rem_addr Remote Address */ +/* ACSE_CONN *con Pointer to connection info */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if successful */ +/* error code otherwise */ +/************************************************************************/ +ST_RET cosp_con_req (ST_LONG cosp_bind_id, PRES_ADDR *rem_addr, ACSE_CONN *con) +{ +ST_RET ret; +TP4_ADDR tp4_addr; +ST_UINT spdu_len; +char *spdu_ptr; +ST_LONG tp4_user_bind_id; + + COSP_LOG_ENC3 ("S-CONNECT.req: acse_conn_id =0x%08X user_conn_id =%4ld cosp_bind_id =%9ld", + con, con->user_conn_id, cosp_bind_id); + COSP_LOG_ENCC1 ("User data length: %d", con->ppdu_len); + COSP_LOG_ENCH (con->ppdu_len, con->ppdu_ptr); + + if (con->cosp_state != COSP_CSTATE_IDLE) + { + ret = COSP_ERR_INV_CON_STATE; /* invalid connect state*/ + COSP_LOG_ERR2 ("COSP-ERROR: S-CONNECT.req acse_conn_id=0x%08X: Invalid state=%d.", + con, con->cosp_state); + return (ret); + } + + tp4_user_bind_id = cosp_bind_id; /* we using only one id */ + + /* Check "Called" SSEL. May be NULL (i.e. length=0) */ + if (rem_addr->ssel_len <= MAX_SSEL_LEN) + { + /* Save SSEL in ACSE_CONN struct. */ + con->rem_ssel[0] = rem_addr->ssel_len; /* first byte is len */ + memcpy (&con->rem_ssel[1], rem_addr->ssel, rem_addr->ssel_len); + + ret = cosp_enc_cn_ac (con, rem_addr, &spdu_ptr, &spdu_len, COSP_SI_CONNECT); + if (ret == SD_SUCCESS) + { + /* we always will initiate new transport connection for every new */ + /* session connection, so find empty spot for con info */ + + /* Copy tsel and nsap from pres_addr to tp4_addr struct */ + tp4_addr.tp4_sel_len = rem_addr->tsel_len; + memcpy (tp4_addr.tp4_sel, rem_addr->tsel, rem_addr->tsel_len); + tp4_addr.tp_type = rem_addr->tp_type; + if (rem_addr->tp_type == TP_TYPE_TP4) + { + tp4_addr.net_addr_len = rem_addr->nsap_len; + memcpy (tp4_addr.netAddr.nsap, rem_addr->netAddr.nsap, rem_addr->nsap_len); + } + else + { + tp4_addr.netAddr.ip = rem_addr->netAddr.ip; /* IP Addr */ + tp4_addr.port = rem_addr->port; + } + + /* Note: !!! the tp4_disconnect_ind may be called before the */ + /* tp4_connect function returns (SD_FAILURE), we want to log the err */ + /* only in one place (here) */ + cosp_in_tp4_func = SD_TRUE; /* prevents logging err */ + + /* request transport connection (no connect data) */ + if ((con->tp4_conn_id = tp4_connect (tp4_user_bind_id, (ST_LONG) con, &tp4_addr, 0, NULL, + &con->encrypt_ctrl)) >= 0) + { + /* save the encoded CN until T-CONNECT.cnf received */ + con->cosp_state = COSP_CSTATE_WAIT_TCON_CNF; + con->cosp_cn_len = spdu_len; + con->cosp_cn_ptr = (ST_CHAR *) M_MALLOC (MSMEM_COSP_CN, spdu_len); + memcpy (con->cosp_cn_ptr, spdu_ptr, spdu_len); + con->cosp_vtca = SD_FALSE; /* transport conn initiator */ + } + else + { + ret = COSP_ERR_TP4_RET; + COSP_LOG_ENC1 ("COSP-ERROR: S-CONNECT.req acse_conn_id=0x%08X: T-CONNECT.req failed.", + con); + } + + cosp_in_tp4_func = SD_FALSE; /* turn off the flag */ + } + else + { + COSP_LOG_ERR1 ("COSP-ERROR: S-CONNECT.req acse_conn_id=0x%08X: Encoding CONNECT SPDU failed.", + con); + } + } + else + { + ret = COSP_ERR_INV_SSEL; /* invalid SSEL (length) */ + COSP_LOG_ERR2 ("COSP-ERROR: S-CONNECT.req acse_conn_id=0x%08X: Invalid remote SSEL length=%d.", + con, rem_addr->ssel_len); + } + + return (ret); +} + + +/************************************************************************/ +/* tp4_connect_cnf */ +/*----------------------------------------------------------------------*/ +/* This function is called by the TP4-provider to indicate that the */ +/* transport connection has been established. */ +/* NOTE: cosp_con_req saved the TP4 connection ID in con->tp4_conn_id. */ +/* It should match the tp4_conn_id passed to this function. */ +/* */ +/* Parameters: */ +/* ST_LONG user_conn_id User's connection id for this connect. */ +/* ST_LONG tp4_conn_id TP4 connection id for this connect. */ +/* ST_INT conndata_len Length of optional connect data. */ +/* char *conndata Pointer to optional connect data. */ +/* */ +/* Return: */ +/* ST_VOID */ +/************************************************************************/ +ST_VOID tp4_connect_cnf (ST_LONG user_conn_id, ST_LONG tp4_conn_id, + ST_INT conndata_len, char *conndata) +{ +ACSE_CONN *con; + + tp4_reldata (conndata); /* !!! we ignoring conndata */ + + con = (ACSE_CONN *) user_conn_id; + + if (con->cosp_state == COSP_CSTATE_WAIT_TCON_CNF) + { +#if defined (TP0_ENABLED) + /* If connection is TP0, save encrypt_ctrl. */ + if (tp4_conn_id >= MIN_TP0_CONN_ID) + { /* this is TP0 connection */ + TP0_CONN *tp0_conn = &tp0_conn_arr [tp4_conn_id-MIN_TP0_CONN_ID]; + /* save the encryption info in ACSE_CONN */ + con->encrypt_ctrl = tp0_conn->sock_info->encrypt_ctrl; + } +#endif + + /* send the CN (already encoded) on the established transport connection */ + if (tp4_data (tp4_conn_id, SD_TRUE, con->cosp_cn_len, con->cosp_cn_ptr) + == SD_SUCCESS) + { + con->cosp_state = COSP_CSTATE_WAIT_AC; /* wait AC or RF */ + + /* we are done with the encoding buffer for CN */ + if (con->cosp_cn_ptr) + { + M_FREE (MSMEM_COSP_CN, con->cosp_cn_ptr); + con->cosp_cn_len = 0; + con->cosp_cn_ptr = NULL; + } + } + else + { + COSP_LOG_ERR1 ("COSP-ERROR: T-CONNECT.cnf acse_conn_id=0x%08X: T-DATA.req failed", + con); + } + } + else + { + COSP_LOG_ERR2 ("COSP-ERROR: T-CONNECT.cnf acse_conn_id=0x%08X: Invalid state=%d.", + con, con->cosp_state); + } +} + + /*======================================================*/ + /* */ + /* C O N N E C T I O N R E L E A S E (CALLED SIDE) */ + /* */ + /*======================================================*/ + +/************************************************************************/ +/* cosp_rel_rsp_pos */ +/*----------------------------------------------------------------------*/ +/* Function called by SS-user to Accept a release of connection. */ +/* */ +/* Parameters: */ +/* ACSE_CONN *con Pointer to connection info */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if successful */ +/* error code otherwise */ +/************************************************************************/ +ST_RET cosp_rel_rsp_pos (ACSE_CONN *con) +{ +ST_INT ret; +ST_UINT spdu_len; +char *spdu_ptr; + + COSP_LOG_ENC2 ("S-RELEASE.rsp+: acse_conn_id =0x%08X user_conn_id =%4ld", + con, con->user_conn_id); + COSP_LOG_ENCC1 ("User data length: %d", con->ppdu_len); + COSP_LOG_ENCH (con->ppdu_len, con->ppdu_ptr); + + if (con->cosp_state == COSP_CSTATE_WAIT_REL_RSP) + { + /* some additional predicates must be also true */ + if (!con->cosp_vcoll || + (con->cosp_vcoll && con->cosp_vdnr) || /* collision but DN received */ + (con->cosp_vcoll && !con->cosp_vtca)) /* collision and we are con initiator */ + { + /* connection released confirmed by COPP, encode and send DISCONNECT SPDU */ + /* Transport connections are not reused. */ + ret = cosp_enc_fn_dn (con, &spdu_ptr, &spdu_len, COSP_SI_DISCON); + if (ret == SD_SUCCESS) + { + if (tp4_data (con->tp4_conn_id, SD_TRUE, spdu_len, spdu_ptr) == SD_SUCCESS) + { + if (!con->cosp_vcoll || + (con->cosp_vcoll && con->cosp_vdnr)) /* collision but DN received */ + { + con->cosp_state = COSP_CSTATE_WAIT_TDISCON_IND; + tp4_session_timer (con->tp4_conn_id, SD_TRUE); /* start timer */ + } + else + { + /* collision and we are the con initiator */ + con->cosp_state = COSP_CSTATE_WAIT_DN; + } + } + else + { + ret = COSP_ERR_TP4_RET; + COSP_LOG_ERR1 ("COSP-ERROR: S-RELEASE.rsp+ acse_conn_id=0x%08X: T-DATA.req failed.", + con); + } + } + else + { + COSP_LOG_ERR1 ("COSP-ERROR: S-RELEASE.rsp+ acse_conn_id=0x%08X: Encoding DISCONNECT SPDU failed.", + con); + } + } + else + { + ret = COSP_ERR_INV_CON_STATE; + COSP_LOG_ERR1 ("COSP-ERROR: S-RELEASE.rsp+ acse_conn_id=0x%08X: Connection Release Collision\n" + " (DN not received or not a connection initiator).", + con); + } + } + else + { + ret = COSP_ERR_INV_CON_STATE; + COSP_LOG_ERR2 ("COSP-ERROR: S-RELEASE.rsp+ acse_conn_id=0x%08X: Invalid state=%d.", + con, con->cosp_state); + } + + return (ret); +} + + + /*======================================================*/ + /* */ + /* C O N N E C T I O N R E L E A S E (CALLING SIDE)*/ + /* */ + /*======================================================*/ + + +/************************************************************************/ +/* cosp_rel_req */ +/*----------------------------------------------------------------------*/ +/* Function called by SS-user to release a Session connection. */ +/* SS-user should implement the u_cosp_rel_cnf_pos function to receive */ +/* confirm for this request. Negative confirm is not implemented. */ +/* If this function returns value other then SD_SUCCESS then the function */ +/* u_cosp_rel_cnf_pos will not be called. */ +/* */ +/* Parameters: */ +/* ACSE_CONN *con Pointer to connection info */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if successful */ +/* error code otherwise */ +/************************************************************************/ +ST_RET cosp_rel_req (ACSE_CONN *con) +{ +ST_INT ret; +ST_UINT spdu_len; +char *spdu_ptr; + + COSP_LOG_ENC2 ("S-RELEASE.req: acse_conn_id =0x%08X user_conn_id =%4ld", + con, con->user_conn_id); + COSP_LOG_ENCC1 ("User data length: %d", con->ppdu_len); + COSP_LOG_ENCH (con->ppdu_len, con->ppdu_ptr); + + ret = SD_SUCCESS; + + if (con->cosp_state == COSP_CSTATE_WAIT_REL_RSP || + con->cosp_state == COSP_CSTATE_DATA_XFER) + { + /* connection is beeing released, encode and send FINISH SPDU */ + ret = cosp_enc_fn_dn (con, &spdu_ptr, &spdu_len, COSP_SI_FINISH); + if (ret == SD_SUCCESS) + { + if (tp4_data (con->tp4_conn_id, SD_TRUE, spdu_len, spdu_ptr) == SD_SUCCESS) + { + if (con->cosp_state == COSP_CSTATE_WAIT_REL_RSP) + { + /* collision occurred, request to release con while waiting */ + /* for resp to S-RELEASE.ind */ + con->cosp_vcoll = SD_TRUE; + /* remain in the same state */ + } + else + con->cosp_state = COSP_CSTATE_WAIT_DN; + } + else + { + ret = COSP_ERR_TP4_RET; + COSP_LOG_ERR1 ("COSP-ERROR: S-RELEASE.req acse_conn_id=0x%08X: T-DATA.req failed.", + con); + } + } + else + { + COSP_LOG_ERR1 ("COSP-ERROR: S-RELEASE.req acse_conn_id=0x%08X: Encoding FINISH SPDU failed.", + con); + } + } + else + { + ret = COSP_ERR_INV_CON_STATE; + COSP_LOG_ERR2 ("COSP-ERROR: S-RELEASE.req acse_conn_id=0x%08X: Invalid state=%d.", + con, con->cosp_state); + } + + return (ret); +} + + +/************************************************************************/ +/* tp4_disconnect_ind */ +/*----------------------------------------------------------------------*/ +/* This function is called by the TP4-provider to indicate that a */ +/* transport connection is beeing released. */ +/* */ +/* Parameters: */ +/* ST_LONG user_conn_id User's connection id for this connect. */ +/* ST_INT reason Reason for disconnect */ +/* ST_INT conndata_len Length of opt connect data <= 32 bytes */ +/* char *conndata Pointer to opt connect data. */ +/* */ +/* Return: */ +/* ST_VOID */ +/************************************************************************/ +ST_VOID tp4_disconnect_ind (ST_LONG user_conn_id, ST_INT reason, + ST_INT conndata_len, char *conndata) +{ +ACSE_CONN *con; + + tp4_reldata (conndata); /* !!! we ignoring conndata */ + + con = (ACSE_CONN *) user_conn_id; + + switch (con->cosp_state) + { + case COSP_CSTATE_IDLE: + /* ignore this tp4_disconnect_ind if in tp4_connect (returns SD_FAILURE) */ + if (!cosp_in_tp4_func) + { + COSP_LOG_ERR2 ("COSP-ERROR: T-DISCONNECT.ind acse_conn_id=0x%08X: Invalid state=%d.", + con, con->cosp_state); + } + break; + + case COSP_CSTATE_IDLE_TCON: + /* disconnected before a CN has been received (COPP has no */ + /* knowledge about this connection at this point). */ + acse_free_con (con); + break; + + case COSP_CSTATE_WAIT_TCON_CNF: + case COSP_CSTATE_WAIT_AC: + case COSP_CSTATE_WAIT_DN: + case COSP_CSTATE_WAIT_CON_RSP: + case COSP_CSTATE_WAIT_REL_RSP: + case COSP_CSTATE_DATA_XFER: + + /* issue S-P-ABORT.ind to local SS-user (use code from cosp_usr.h)*/ + COSP_LOG_DEC4 ("S-P-ABORT.ind: acse_conn_id =0x%08X user_conn_id =%4ld reason =%d (TP4 reason=0x%02x)", + con, con->user_conn_id, (ST_INT) COSP_P_AB_IND_TP_DISCON, reason); + + u_cosp_p_abort_ind (con, COSP_P_AB_IND_TP_DISCON); + acse_free_con (con); + break; + + case COSP_CSTATE_WAIT_TDISCON_IND: + tp4_session_timer (con->tp4_conn_id, SD_FALSE); /* stop timer */ + acse_free_con (con); + break; + + default: + COSP_LOG_ERR2 ("COSP-ERROR: T-DISCONNECT.ind acse_conn_id=0x%08X: Invalid state=%d.", + con, con->cosp_state); + } +} + + +/************************************************************************/ +/* tp4_session_timer_expired */ +/*----------------------------------------------------------------------*/ +/* This function is called by TP4 when the session_timer expire. */ +/* */ +/* Parameters: */ +/* ST_LONG user_conn_id COSP connection id for this connect. */ +/* */ +/* Return: */ +/* ST_VOID */ +/************************************************************************/ +ST_VOID tp4_session_timer_expired (ST_LONG user_conn_id) +{ +ACSE_CONN *con; + + con = (ACSE_CONN *) user_conn_id; + + if (con->cosp_state == COSP_CSTATE_WAIT_TDISCON_IND) + { + tp4_disconnect (con->tp4_conn_id, 0, NULL); + acse_free_con (con); + } + else + { + COSP_LOG_ERR2 ("COSP-ERROR: S-TIMER.expired acse_conn_id=0x%08X: Invalid state=%d.", + con, con->cosp_state); + } +} + + + /*======================================================*/ + /* */ + /* A B O R T F U N C T I O N S */ + /* */ + /*======================================================*/ + + +/************************************************************************/ +/* cosp_u_abort_req */ +/*----------------------------------------------------------------------*/ +/* Function called by SS-user to Abort a connection (S-U-ABORT) */ +/* */ +/* Parameters: */ +/* ACSE_CONN *con Pointer to connection info */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if successful */ +/* error code otherwise */ +/* CRITICAL: this function may free the ACSE_CONN struct so the struct */ +/* MUST NOT be accessed after calling this function. */ +/************************************************************************/ +ST_RET cosp_u_abort_req (ACSE_CONN *con) +{ +ST_INT ret; + + COSP_LOG_ENC2 ("S-U-ABORT.req: acse_conn_id =0x%08X user_conn_id =%4ld", + con, con->user_conn_id); + COSP_LOG_ENCC1 ("User data length: %d", con->ppdu_len); + COSP_LOG_ENCH (con->ppdu_len, con->ppdu_ptr); + + ret = SD_SUCCESS; + + switch (con->cosp_state) + { + case COSP_CSTATE_WAIT_TCON_CNF: + tp4_disconnect (con->tp4_conn_id, 0, NULL); + acse_free_con (con); /* done with this connection */ + break; + + case COSP_CSTATE_WAIT_AC: + case COSP_CSTATE_WAIT_DN: + case COSP_CSTATE_WAIT_CON_RSP: + case COSP_CSTATE_WAIT_REL_RSP: + case COSP_CSTATE_DATA_XFER: + /* send ABORT SPDU and wait for T-DISCONNECT.ind */ + if ((ret = cosp_send_abort (con, 0)) == SD_SUCCESS) + { + con->cosp_state = COSP_CSTATE_WAIT_TDISCON_IND; + tp4_session_timer (con->tp4_conn_id, SD_TRUE); /* start timer */ + } + break; + + default: + ret = COSP_ERR_INV_CON_STATE; + COSP_LOG_ERR2 ("COSP-ERROR: S-U-ABORT.req acse_conn_id=0x%08X: Invalid state=%d.", + con, con->cosp_state); + } + + if (ret != SD_SUCCESS) + { + + + /* disconnect if we couldn't send abort */ + tp4_disconnect (con->tp4_conn_id, 0, NULL); + acse_free_con (con); + + + + } + + /* we always will return success */ + return (SD_SUCCESS); +} + + +/************************************************************************/ +/* cosp_send_abort */ +/*----------------------------------------------------------------------*/ +/* Function to sends ABORT SPDU to remote SS-user. */ +/* */ +/* Parameters: */ +/* ACSE_CONN *con Pointer to conn info struct */ +/* ST_INT err_code Error code (defined by COSP) */ +/* If =0 then S-U-ABORT sent */ +/* If !=0 then S-P-ABORT sent */ +/* Return: */ +/* SD_SUCCESS (0) if abort successful */ +/* error code otherwise */ +/************************************************************************/ + ST_RET cosp_send_abort (ACSE_CONN *con, ST_INT err_code) +{ +ST_RET ret; +char spdu_buf [COSP_P_AB_SPDU_LEN]; +ST_UINT spdu_len; +char *spdu_ptr; + + if (err_code != 0) + { + /* encode S-P-ABORT (error code will be encoded and we supply encoding buffer) */ + spdu_len = sizeof (spdu_buf); + spdu_ptr = spdu_buf; + if ((ret = cosp_enc_p_ab (spdu_ptr, err_code)) == SD_SUCCESS) + { + if (tp4_data (con->tp4_conn_id, SD_TRUE, spdu_len, spdu_ptr) != SD_SUCCESS) + { + ret = COSP_ERR_TP4_RET; + COSP_LOG_ERR1 ("COSP-ERROR: S-P-ABORT acse_conn_id=0x%08X: T-DATA.req failed.", + con); + } + } + else + { + COSP_LOG_ERR1 ("COSP-ERROR: S-P-ABORT acse_conn_id=0x%08X: Encoding of P-ABORT SPDU failed.", + con); + } + } + else + { + /* encode S-U-ABORT (user data should be already encoded) */ + if ((ret = cosp_enc_u_ab (con, &spdu_ptr, &spdu_len)) == SD_SUCCESS) + { + if (tp4_data (con->tp4_conn_id, SD_TRUE, spdu_len, spdu_ptr) != SD_SUCCESS) + { + ret = COSP_ERR_TP4_RET; + COSP_LOG_ERR1 ("COSP-ERROR: S-U-ABORT.req acse_conn_id=0x%08X: T-DATA.req failed.", + con); + } + } + else + { + COSP_LOG_ERR1 ("COSP-ERROR: S-U-ABORT.req acse_conn_id=0x%08X: Encoding of U-ABORT SPDU failed.", + con); + } + } + + return (ret); +} + + + /*======================================================*/ + /* */ + /* D A T A F U N C T I O N S */ + /* */ + /*======================================================*/ + +/************************************************************************/ +/* tp4_data_ind */ +/*----------------------------------------------------------------------*/ +/* Function to process data indication. */ +/* Note that the tp4_data_ind is called when complete SPDU has been */ +/* received, so the eot flag is always SD_TRUE. */ +/* */ +/* Parameters: */ +/* ST_LONG user_conn_id User's connection id for this connect. */ +/* ST_INT eot Indicates if last part of SPDU received.*/ +/* ST_UINT data_len Length of data. */ +/* char *data Pointer to data buffer. */ +/* */ +/* Return: */ +/* ST_VOID */ +/************************************************************************/ +//void called_conn_disconnect(ACSE_CONN *con);//lnk编译删除，原å‰ç½®ç¨‹åºæœªä½¿ç”¨ +ST_VOID tp4_data_ind (ST_LONG user_conn_id, ST_INT eot, + ST_UINT data_len, char *data) +{ +ST_INT ret; +ST_UINT action; +ACSE_CONN *con; + + ret = SD_SUCCESS; + action = 0; + con = (ACSE_CONN *) user_conn_id; + + /* Note: the protocol requires following steps to be taken for invalid*/ + /* incomming-event/state intersection (default: in switch) or */ + /* if the incomming SPDU can't be correctly process: */ + /* - issue S-P-ABORT */ + /* - send an ABORT SPDU */ + /* - start timer */ + /* - wait for T-DISCONNECT or ABORT ACCEPT SPDU */ + + switch (data [0]) /* First byte is SPDU Session Identifier */ + { + + case COSP_SI_CONNECT: + switch (con->cosp_state) + { + case COSP_CSTATE_IDLE_TCON: + /* if we are the transport connection acceptor, process CN */ + if (con->cosp_vtca) + ret = cosp_process_connect (con, data_len, data); + else + action = COSP_T_DISCONNECT; + break; + + case COSP_CSTATE_WAIT_TDISCON_IND: + tp4_session_timer (con->tp4_conn_id, SD_FALSE); /* stop timer */ + action = COSP_T_DISCONNECT; + break; + + default: /* in invalid state */ + ret = COSP_ERR_INV_CON_STATE; + COSP_LOG_ERR2 ("COSP-ERROR: T-DATA.ind acse_conn_id=0x%08X: Invalid state=%d (for CONNECT SPDU).", + con, con->cosp_state); + } + break; + + case COSP_SI_FINISH: + switch (con->cosp_state) + { + case COSP_CSTATE_IDLE_TCON: + action = COSP_T_DISCONNECT; + break; + + case COSP_CSTATE_WAIT_DN: /* collision of conn releases */ + con->cosp_vcoll = SD_TRUE; + /* go to next case */ + case COSP_CSTATE_DATA_XFER: + ret = cosp_process_finish (con, data_len, data); + break; + + case COSP_CSTATE_WAIT_TDISCON_IND: + /* we ignore the FINISH SPDU and remain in the same state */ + break; + + default: /* in invalid state */ + ret = COSP_ERR_INV_CON_STATE; + COSP_LOG_ERR2 ("COSP-ERROR: T-DATA.ind acse_conn_id=0x%08X: Invalid state=%d (for FINISH SPDU).", + con, con->cosp_state); + } + break; + + case COSP_SI_ACCEPT: + switch (con->cosp_state) + { + case COSP_CSTATE_IDLE_TCON: + action = COSP_T_DISCONNECT; + break; + + case COSP_CSTATE_WAIT_AC: + con->cosp_vcoll = SD_FALSE; + con->cosp_vdnr = SD_FALSE; + ret = cosp_process_accept (con, data_len, data); + break; + + case COSP_CSTATE_WAIT_TDISCON_IND: + /* we ignore the ACCEPT SPDU and remain in the same state */ + break; + + default: /* in invalid state */ + ret = COSP_ERR_INV_CON_STATE; + COSP_LOG_ERR2 ("COSP-ERROR: T-DATA.ind acse_conn_id=0x%08X: Invalid state=%d (for ACCEPT SPDU).", + con, con->cosp_state); + } + break; + + case COSP_SI_REFUSE: + switch (con->cosp_state) + { + case COSP_CSTATE_IDLE_TCON: + action = COSP_T_DISCONNECT; + break; + + case COSP_CSTATE_WAIT_AC: + if ((ret = cosp_process_refuse (con, data_len, data)) == SD_SUCCESS) + action = COSP_T_DISCONNECT; + break; + + case COSP_CSTATE_WAIT_TDISCON_IND: + /* we ignore the REFUSE SPDU and remain in the same state */ + break; + + default: /* in invalid state */ + ret = COSP_ERR_INV_CON_STATE; + COSP_LOG_ERR2 ("COSP-ERROR: T-DATA.ind acse_conn_id=0x%08X: Invalid state=%d (for REFUSE SPDU).", + con, con->cosp_state); + } + break; + + case COSP_SI_DISCON: + switch (con->cosp_state) + { + case COSP_CSTATE_IDLE_TCON: + action = COSP_T_DISCONNECT; + break; + + case COSP_CSTATE_WAIT_DN: + if ((ret = cosp_process_discon (con, data_len, data)) == SD_SUCCESS) + action = COSP_T_DISCONNECT; + break; + + case COSP_CSTATE_WAIT_REL_RSP: /* collision */ + if (con->cosp_vcoll && con->cosp_vtca) + { + con->cosp_vdnr = SD_TRUE; + ret = cosp_process_discon (con, data_len, data); + /* remain in the same state */ + } + else + { + ret = COSP_ERR_INV_CON_STATE; + COSP_LOG_ERR1 ("COSP-ERROR: T-DATA.ind acse_conn_id=0x%08X: Collision flag not set or not a connection acceptor.", + con); + } + break; + + case COSP_CSTATE_WAIT_TDISCON_IND: + /* we ignore the DN SPDU and remain in the same state */ + break; + + default: /* in invalid state */ + ret = COSP_ERR_INV_CON_STATE; + COSP_LOG_ERR2 ("COSP-ERROR: T-DATA.ind acse_conn_id=0x%08X: Invalid state=%d (for DISCONNECT SPDU).", + con, con->cosp_state); + } + break; + + case COSP_SI_ABORT: /* !always! disconnect transport */ + /* otherwise we may loop sending ABORTs */ + action = COSP_T_DISCONNECT; + + switch (con->cosp_state) + { + case COSP_CSTATE_IDLE_TCON: + break; + + case COSP_CSTATE_WAIT_AC: + case COSP_CSTATE_WAIT_DN: + case COSP_CSTATE_WAIT_CON_RSP: + case COSP_CSTATE_WAIT_REL_RSP: + case COSP_CSTATE_DATA_XFER: + if ((ret = cosp_process_abort (con, data_len, data)) != SD_SUCCESS) + { + /* even if we failed to decode abort we still will generate S-P-ABORT */ + action |= COSP_S_P_ABORT_IND; + } + break; + + case COSP_CSTATE_WAIT_TDISCON_IND: + tp4_session_timer (con->tp4_conn_id, SD_FALSE); /* stop timer */ + break; + + default: /* in invalid state */ + ret = COSP_ERR_INV_CON_STATE; + COSP_LOG_ERR2 ("COSP-ERROR: T-DATA.ind acse_conn_id=0x%08X: Invalid state=%d (for ABORT SPDU).", + con, con->cosp_state); + action |= COSP_S_P_ABORT_IND; + } + break; + + case COSP_SI_AB_ACCEPT: + /* this SPDU may be sent by remote COSP engine even if the */ + /* transport connection is not to be kept */ + + action = COSP_T_DISCONNECT; /* !always! disconnect transport */ + + switch (con->cosp_state) + { + case COSP_CSTATE_IDLE_TCON: + break; + + case COSP_CSTATE_WAIT_TDISCON_IND: + tp4_session_timer (con->tp4_conn_id, SD_FALSE); /* stop timer */ + break; + + default: /* in invalid state */ + ret = COSP_ERR_INV_CON_STATE; + COSP_LOG_ERR2 ("COSP-ERROR: T-DATA.ind acse_conn_id=0x%08X: Invalid state=%d (for ABORT ACCEPT SPDU).", + con, con->cosp_state); + /* ABORT ACCEPT can be received only in response to already */ + /* sent ABORT, so we will not send another one here */ + } + break; + +/* case COSP_SI_GIVE_TOKEN: !!! GIVE-TOKEN is concatinated with DATA*/ + case COSP_SI_DATA: /* SPDU and both have the same code=1 */ + switch (con->cosp_state) + { + case COSP_CSTATE_IDLE_TCON: + action = COSP_T_DISCONNECT; + break; + + case COSP_CSTATE_WAIT_DN: + if (con->cosp_vcoll) + { + ret = COSP_ERR_INV_CON_STATE; + COSP_LOG_ERR2 ("COSP-ERROR: T-DATA.ind acse_conn_id=0x%08X: Invalid state=%d (for DATA SPDU).", + con, con->cosp_state); + break; + } + /* process the received DATA SPDU and remain in the same state */ + /* go to next case */ + case COSP_CSTATE_DATA_XFER: + ret = cosp_process_data (con, data_len, data); + break; + + case COSP_CSTATE_WAIT_TDISCON_IND: + /* we ignore the DATA SPDU and remain in the same state */ + break; + + default: /* in invalid state */ + ret = COSP_ERR_INV_CON_STATE; + COSP_LOG_ERR2 ("COSP-ERROR: T-DATA.ind acse_conn_id=0x%08X: Invalid state=%d (for DATA SPDU).", + con, con->cosp_state); + } + break; + + default: + ret = COSP_ERR_DEC_INV_SPDU; + COSP_LOG_ERR2 ("COSP-ERROR: T-DATA.ind acse_conn_id=0x%08X: Unsupported SPDU SI code=%d received.", + con, (ST_INT)(data [0])); + action = COSP_S_P_ABORT_IND | COSP_SEND_ABORT_SPDU; + } /* end of switch */ + + tp4_reldata (data); /* we are done with the TP4 data buffer */ + + if (ret != SD_SUCCESS) + { + /* if error occurred and SPDU other then an ABORT or ABORT ACCEPT */ + /* received then issue S-P-ABORT and SEND an ABORT SPDU. */ + + if ((data [0] != COSP_SI_ABORT) && (data [0] != COSP_SI_AB_ACCEPT)) + action = COSP_S_P_ABORT_IND | COSP_SEND_ABORT_SPDU; + } + + /*--------------------------------------------------------------------*/ + /* abort/disconnect if processing of received SPDU failed or this is */ + /* the protocol specification */ + /*--------------------------------------------------------------------*/ + + if (action & COSP_SEND_ABORT_SPDU) + { + /* encode and send ABORT SPDU to remote SS-user, ret is the error code */ + if (cosp_send_abort (con, ret) == SD_SUCCESS) + { + con->cosp_state = COSP_CSTATE_WAIT_TDISCON_IND; + tp4_session_timer (con->tp4_conn_id, SD_TRUE); /* start timer */ + } + else + { + con->cosp_state = COSP_CSTATE_IDLE; + action |= COSP_T_DISCONNECT; /* disconnect if we can't abort */ + } + } + + if (action & COSP_S_P_ABORT_IND) + { + /* issue S-P-ABORT.ind to local SS-user (use code from cosp_usr.h) */ + + COSP_LOG_DEC3 ("S-P-ABORT.ind: acse_conn_id =0x%08X user_conn_id =%4ld reason =%d", + con, con->user_conn_id, (ST_INT) COSP_P_AB_IND_PROT_ERR); + + u_cosp_p_abort_ind (con, COSP_P_AB_IND_PROT_ERR); + } + + if (action & COSP_T_DISCONNECT) + { + tp4_disconnect (con->tp4_conn_id, 0, NULL); + /*renxiaobao20220831 °²È«¼ì²â*/ + //called_conn_disconnect(con);//lnk编译删除，原å‰ç½®ç¨‹åºæœªä½¿ç”¨ + + acse_free_con (con); /* we are disconnected, free con struct */ + } +} + + +/************************************************************************/ +/* tp4_expdata_ind */ +/*----------------------------------------------------------------------*/ +/* Function to process a expedited S-DATA.ind. */ +/* */ +/* Parameters: */ +/* ST_LONG user_conn_id User's connection id for this connect. */ +/* ST_UINT data_len Length of data. */ +/* char *data Pointer to data buffer. */ +/* */ +/* Return: */ +/* ST_VOID */ +/************************************************************************/ +ST_VOID tp4_expdata_ind (ST_LONG user_conn_id, ST_UINT data_len, char *data) +{ + /* Treat like normal data. Assume "eot" = 1 */ + tp4_data_ind (user_conn_id, 1, data_len, data); +} + + +/************************************************************************/ +/* cosp_data_req */ +/*----------------------------------------------------------------------*/ +/* Function called by SS-user to transfer normal data on a previously */ +/* established connection. */ +/* */ +/* Parameters: */ +/* ACSE_CONN *con Pointer to connection info */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if successful */ +/* error code otherwise */ +/************************************************************************/ +ST_RET cosp_data_req (ACSE_CONN *con) +{ +ST_INT ret; +ST_UINT spdu_len; +char *spdu_ptr; + + COSP_LOG_ENC2 ("S-DATA.req: acse_conn_id =0x%08X user_conn_id =%4ld", + con, con->user_conn_id); + COSP_LOG_ENCC1 ("User data length: %d", con->ppdu_len); + COSP_LOG_ENCH (con->ppdu_len, con->ppdu_ptr); + + ret = SD_SUCCESS; + + if ((con->cosp_state == COSP_CSTATE_DATA_XFER) || + (con->cosp_state == COSP_CSTATE_WAIT_REL_RSP && !con->cosp_vcoll)) + { + if ((ret = cosp_enc_dt (con, &spdu_ptr, &spdu_len)) == SD_SUCCESS) + { + if (tp4_data (con->tp4_conn_id, SD_TRUE, spdu_len, spdu_ptr) != SD_SUCCESS) + { + ret = COSP_ERR_TP4_RET; + COSP_LOG_ERR0 ("COSP-ERROR: S-DATA.req acse_conn_id=0x%08X: T-DATA.req failed."); + } + } + else + { + COSP_LOG_ERR1 ("COSP-ERROR: S-DATA.req acse_conn_id=0x%08X: Encoding of DATA SPDU failed.", + con); + } + } + else + { + ret = COSP_ERR_INV_CON_STATE; + COSP_LOG_ERR2 ("COSP-ERROR: S-DATA.req acse_conn_id=0x%08X: Invalid state=%d (or collision flag set).", + con, con->cosp_state); + } + + return (ret); +} + + + /*======================================================*/ + /* */ + /* L O C A L S P D U P R O C E S S I N G F U N C */ + /* */ + /*======================================================*/ + + +/************************************************************************/ +/* cosp_process_connect */ +/*----------------------------------------------------------------------*/ +/* This function will decode the CONNECT SPDU and call SS-user's funct */ +/* u_cosp_con_ind to indicate to the SS-user incomming connection req. */ +/* */ +/* Parameters: */ +/* ACSE_CONN *con Pointer to con info struct */ +/* ST_UINT spdu_len Length of SPDU */ +/* char *spdu_buf Pointer to SPDU buffer */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if successful */ +/* error code otherwise */ +/************************************************************************/ +static ST_RET cosp_process_connect (ACSE_CONN *con, ST_UINT spdu_len, + char *spdu_buf) +{ +ST_INT ret; +COSP_CN_AC dec_par; /* decoded connection params */ +ST_LONG cosp_user_bind_id; + + /*----------------------------*/ + /* decode the CONNECT SPDU */ + /*----------------------------*/ + + ret = cosp_dec_cn_ac (&dec_par, spdu_buf, spdu_len, COSP_SI_CONNECT); + if (ret == SD_SUCCESS) + { + /* Save SSELs in ACSE_CONN struct. */ + memcpy (con->loc_ssel, dec_par.loc_ssel, dec_par.loc_ssel [0]+1); + memcpy (con->rem_ssel, dec_par.rem_ssel, dec_par.rem_ssel [0]+1); + + /* generate S-CONNECT.ind to the SS-user */ + + con->cosp_state = COSP_CSTATE_WAIT_CON_RSP; + con->ppdu_len = dec_par.udata_len; + con->ppdu_ptr = dec_par.udata_ptr; + + /* user_conn_id (created by ACSE-user) is invalid at this point, */ + /* we probably should set it to -1 (an invalid value). Note that 0 */ + /* is a valid id. */ + con->user_conn_id = -1L; + + cosp_user_bind_id = con->cosp_bind_id; /* COSP id = COSP User's bind id */ + + COSP_LOG_DEC1 ("S-CONNECT.ind: acse_conn_id =0x%08X", con); + COSP_LOG_DECC1 ("User data length: %d", con->ppdu_len); + COSP_LOG_DECH (con->ppdu_len, con->ppdu_ptr); + + u_cosp_con_ind (cosp_user_bind_id, con); + } + else + { + COSP_LOG_ERR1 ("COSP-ERROR: T-DATA.ind acse_conn_id=0x%08X: Decoding of CONNECT SPDU failed.", + con); + } + + return (ret); +} + + +/************************************************************************/ +/* cosp_process_finish */ +/*----------------------------------------------------------------------*/ +/* This function will decode the FINISH SPDU and call SS-user's function*/ +/* u_cosp_rel_ind to indicate to the SS-user that the remote wants to */ +/* release connection. */ +/* */ +/* Parameters: */ +/* ACSE_CONN *con Pointer to con info struct */ +/* ST_UINT spdu_len Length of SPDU */ +/* char *spdu_buf Pointer to SPDU buffer */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if successful */ +/* error code otherwise */ +/************************************************************************/ +static ST_RET cosp_process_finish (ACSE_CONN *con, ST_UINT spdu_len, + char *spdu_buf) +{ +ST_INT ret; +COSP_FN_DN dec_par; /* decoded con rel params */ + + /*------------------------------------*/ + /* decode and check the FINISH SPDU */ + /*------------------------------------*/ + + ret = cosp_dec_fn_dn (&dec_par, spdu_buf, spdu_len, COSP_SI_FINISH); + if (ret == SD_SUCCESS) + { + /* generate S-RELEASE.ind */ + + con->cosp_state = COSP_CSTATE_WAIT_REL_RSP; + con->ppdu_len = dec_par.udata_len; + con->ppdu_ptr = dec_par.udata_ptr; + + COSP_LOG_DEC2 ("S-RELEASE.ind: acse_conn_id =0x%08X user_conn_id =%4ld", + con, con->user_conn_id); + COSP_LOG_DECC1 ("User data length: %d", con->ppdu_len); + COSP_LOG_DECH (con->ppdu_len, con->ppdu_ptr); + + u_cosp_rel_ind (con); + } + else + { + COSP_LOG_ERR1 ("COSP-ERROR: T-DATA.ind acse_conn_id=0x%08X: Decoding of FINISH SPDU failed.", + con); + } + + return (ret); +} + + +/************************************************************************/ +/* cosp_process_accept */ +/*----------------------------------------------------------------------*/ +/* This function will decode the ACCEPT SPDU and call SS-user's funct */ +/* u_cosp_con_cnf_pos to indicate to the SS-user that the connection has*/ +/* been established. */ +/* */ +/* Parameters: */ +/* ACSE_CONN *con Pointer to con info struct */ +/* ST_UINT spdu_len Length of SPDU */ +/* char *spdu_buf Pointer to SPDU buffer */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if successful */ +/* error code otherwise */ +/************************************************************************/ +static ST_RET cosp_process_accept (ACSE_CONN *con, ST_UINT spdu_len, + char *spdu_buf) +{ +ST_INT ret; +COSP_CN_AC dec_par; /* decoded accept params */ + + /*----------------------------------*/ + /* decode and check the ACCEPT SPDU */ + /*----------------------------------*/ + + ret = cosp_dec_cn_ac (&dec_par, spdu_buf, spdu_len, COSP_SI_ACCEPT); + if (ret == SD_SUCCESS) + { + /* generate S-CONNECT.cnf+ */ + + con->cosp_state = COSP_CSTATE_DATA_XFER; + con->ppdu_len = dec_par.udata_len; + con->ppdu_ptr = dec_par.udata_ptr; + + COSP_LOG_DEC2 ("S-CONNECT.cnf+: acse_conn_id =0x%08X user_conn_id =%4ld", + con, con->user_conn_id); + COSP_LOG_DECC1 ("User data length: %d", con->ppdu_len); + COSP_LOG_DECH (con->ppdu_len, con->ppdu_ptr); + + u_cosp_con_cnf_pos (con); + } + else + { + COSP_LOG_ERR1 ("COSP-ERROR: T-DATA.ind acse_conn_id=0x%08X: Decoding of ACCEPT SPDU failed.", + con); + } + + return (ret); +} + + +/************************************************************************/ +/* cosp_process_refuse */ +/*----------------------------------------------------------------------*/ +/* This function will decode the REFUSE SPDU and call SS-user's function*/ +/* u_cosp_con_cnf_neg to indicate to the SS-user that the establishment */ +/* of connection failed. */ +/* Note that this implementation will not reuse the transport connection*/ +/* for another session connect (transport will be disconnected). */ +/* */ +/* Parameters: */ +/* ACSE_CONN *con Pointer to con info struct */ +/* ST_UINT spdu_len Length of SPDU */ +/* char *spdu_buf Pointer to SPDU buffer */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if successful */ +/* error code otherwise */ +/************************************************************************/ +static ST_RET cosp_process_refuse (ACSE_CONN *con, ST_UINT spdu_len, + char *spdu_buf) +{ +ST_INT ret; +COSP_RF dec_par; /* decoded refuse connection params */ +ST_INT result; +ST_INT reason; + + /*----------------------------------*/ + /* decode and check the REFUSE SPDU */ + /*----------------------------------*/ + + ret = cosp_dec_rf (&dec_par, spdu_buf, spdu_len); + if (ret == SD_SUCCESS) + { + con->cosp_state = COSP_CSTATE_IDLE; + + /* generate S-CONNECT.cnf- */ + + if (dec_par.reason <= 2) + result = COSP_CON_CNF_U_REJECT; /* remote SS-user reject */ + else + result = COSP_CON_CNF_P_REJECT; /* remote SS-provider reject */ + + /* convert the reason code from SPDU to reason codes in cosp_usr.h */ + switch ((ST_UINT) dec_par.reason) + { + case 0: /* rejection by called SS-user??, reason not specified */ + reason = COSP_CON_CNF_U_NOT_SPECIFIED; + break; + + case 1: /* rejection by called SS-user, tmp congestion */ + reason = COSP_CON_CNF_U_CONGESTION; + break; + + case 2: /* rejection by called SS-user, user data may follow */ + reason = COSP_CON_CNF_U_IN_UDATA; + con->ppdu_len = dec_par.udata_len; + con->ppdu_ptr = dec_par.udata_ptr; + break; + + case 128+1: /* rejection by called SS-prov, SSEL unknown */ + reason = COSP_CON_CNF_P_INV_SSEL; + break; + + case 128+2: /* rejection by called SS-prov, SS-user not attached */ + reason = COSP_CON_CNF_P_NOT_ATTACHED; + break; + + case 128+3: /* rejection by called SS-prov, congestion */ + reason = COSP_CON_CNF_P_CONGESTION; + break; + + case 128+4: /* rejection by called SS-prov, prot version not supported */ + case 128+5: /* rejection by called SS-prov, reason not specified */ + case 128+6: /* rejection by called SS-prov, implementation restriction stated in PICS */ + default: + reason = COSP_CON_CNF_P_NOT_SPECIFIED; + } /* end of switch */ + + COSP_LOG_DEC4 ("S-CONNECT.cnf-: acse_conn_id =0x%08X user_conn_id =%4ld result =%d reason =%d", + con, con->user_conn_id, result, reason); + COSP_LOG_DECC1 ("User data length: %d", con->ppdu_len); + COSP_LOG_DECH (con->ppdu_len, con->ppdu_ptr); + + /* S-CONNECT.cnf- */ + u_cosp_con_cnf_neg (con, result, reason); + } + else + { + COSP_LOG_ERR1 ("COSP-ERROR: T-DATA.ind acse_conn_id=0x%08X: Decoding of REFUSE SPDU failed.", + con); + } + + return (ret); +} + + +/************************************************************************/ +/* cosp_process_discon */ +/*----------------------------------------------------------------------*/ +/* This function will decode the DN SPDU and call SS-user's function */ +/* u_cosp_rel_cnf_pos to indicate to the SS-user the result of session */ +/* release request. */ +/* */ +/* Parameters: */ +/* ACSE_CONN *con Pointer to con info struct */ +/* ST_UINT spdu_len Length of SPDU */ +/* char *spdu_buf Pointer to SPDU buffer */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if successful */ +/* error code otherwise */ +/************************************************************************/ +static ST_RET cosp_process_discon (ACSE_CONN *con, ST_UINT spdu_len, + char *spdu_buf) +{ +ST_INT ret; +COSP_FN_DN dec_par; /* decoded con rel params */ + + /*------------------------------------*/ + /* decode and check the DN SPDU */ + /*------------------------------------*/ + + ret = cosp_dec_fn_dn (&dec_par, spdu_buf, spdu_len, COSP_SI_DISCON); + if (ret == SD_SUCCESS) + { + /* do not change here the state, new state depends on previous */ + /* state and if collision of S-RELEASEs occurred. */ + + /* generate S-RELEASE.cnf+ */ + + con->ppdu_len = dec_par.udata_len; + con->ppdu_ptr = dec_par.udata_ptr; + + COSP_LOG_DEC2 ("S-RELEASE.cnf+: acse_conn_id =0x%08X user_conn_id =%4ld", + con, con->user_conn_id); + COSP_LOG_DECC1 ("User data length: %d", con->ppdu_len); + COSP_LOG_DECH (con->ppdu_len, con->ppdu_ptr); + + u_cosp_rel_cnf_pos (con); /* currently only positive cnf possible */ + } + else + { + COSP_LOG_ERR1 ("COSP-ERROR: T-DATA.ind acse_conn_id=0x%08X: Decoding of DISCONNECT SPDU failed.", + con); + } + + return (ret); +} + + +/************************************************************************/ +/* cosp_process_abort */ +/*----------------------------------------------------------------------*/ +/* This function will decode the ABORT SPDU and call SS-user's function */ +/* u_cosp_abort_ind to indicate to the SS-user that the session */ +/* connection has been aborted by remote. */ +/* Note that this implementation will not reuse the transport connection*/ +/* for another session connect (transport will be disconnected). */ +/* */ +/* Parameters: */ +/* ACSE_CONN *con Pointer to con info struct */ +/* ST_UINT spdu_len Length of SPDU */ +/* char *spdu_buf Pointer to SPDU buffer */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if successful */ +/* error code otherwise */ +/************************************************************************/ +static ST_RET cosp_process_abort (ACSE_CONN *con, ST_UINT spdu_len, + char *spdu_buf) +{ +ST_INT ret; +COSP_AB dec_par; /* decoded abort connection params */ +ST_INT reason; +ST_INT err_code; + + /*------------------------------------*/ + /* decode and check the ABORT SPDU */ + /*------------------------------------*/ + + ret = cosp_dec_ab (&dec_par, spdu_buf, spdu_len); + if (ret == SD_SUCCESS) + { + con->cosp_state = COSP_CSTATE_IDLE; + + /* generate S-U-ABORT.ind or S-P-ABORT.ind */ + + if (dec_par.reason & COSP_AB_REASON_USER_ABORT) + { + /* remote SS-user abort */ + con->ppdu_len = dec_par.udata_len; + con->ppdu_ptr = dec_par.udata_ptr; + + COSP_LOG_DEC2 ("S-U-ABORT.ind: acse_conn_id =0x%08X user_conn_id =%4ld", + con, con->user_conn_id); + COSP_LOG_DECC1 ("User data length: %d", con->ppdu_len); + COSP_LOG_DECH (con->ppdu_len, con->ppdu_ptr); + + u_cosp_u_abort_ind (con); + } + else + { + /* SS-provider abort */ + if (dec_par.reason & COSP_AB_REASON_PROT_ERROR) + { + reason = COSP_P_AB_IND_PROT_ERR; + err_code = 0; + + /* Log the ABORT error code */ + if (dec_par.reflect_par_len == 2) + err_code = ((ST_UINT16) dec_par.reflect_par [0] << 8) + + (ST_UINT16) dec_par.reflect_par [1]; + + COSP_LOG_DEC4 ("S-P-ABORT.ind: acse_conn_id =0x%08X user_conn_id =%4ld reason =%d err_code =0x%04X", + con, con->user_conn_id, reason, err_code); + } + else + { + reason = COSP_P_AB_IND_UNDEFINED; + + COSP_LOG_DEC3 ("S-P-ABORT.ind: acse_conn_id =0x%08X user_conn_id =%4ld reason =%d", + con, con->user_conn_id, reason); + } + + u_cosp_p_abort_ind (con, reason); + } + } + else + { + COSP_LOG_ERR1 ("COSP-ERROR: T-DATA.ind acse_conn_id=0x%08X: Decoding of ABORT SPDU failed.", + con); + } + + return (ret); +} + + +/************************************************************************/ +/* cosp_process_data */ +/*----------------------------------------------------------------------*/ +/* This function will decode a DATA SPDU and generate a S-DATA.ind. */ +/* */ +/* Parameters: */ +/* ACSE_CONN *con Pointer to con info struct */ +/* ST_UINT spdu_len Length of SPDU */ +/* char *spdu_buf Pointer to SPDU buffer */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if successful */ +/* error code otherwise */ +/************************************************************************/ +static ST_RET cosp_process_data (ACSE_CONN *con, ST_UINT spdu_len, + char *spdu_buf) +{ +ST_INT ret; +COSP_DT dec_par; /* decoded refuse connection params */ + + /*------------------------------------*/ + /* decode and check the DATA SPDU */ + /*------------------------------------*/ + ret = cosp_dec_dt (&dec_par, spdu_buf, spdu_len); + if (ret == SD_SUCCESS) + { + /* generate S-DATA.ind */ + con->ppdu_len = dec_par.udata_len; + con->ppdu_ptr = dec_par.udata_ptr; + + COSP_LOG_DEC2 ("S-DATA.ind: acse_conn_id =0x%08X user_conn_id =%4ld", + con, con->user_conn_id); + COSP_LOG_DECC1 ("User data length: %d", con->ppdu_len); + COSP_LOG_DECH (con->ppdu_len, con->ppdu_ptr); + + u_cosp_data_ind (con); + } + else + { + COSP_LOG_ERR1 ("COSP-ERROR: T-DATA.ind acse_conn_id=0x%08X: Decoding of DATA SPDU failed.", + con); + } + + return (ret); +} + + + diff --git a/mmslib/ositcps/lean_cfg.c b/mmslib/ositcps/lean_cfg.c new file mode 100644 index 0000000..22611e2 --- /dev/null +++ b/mmslib/ositcps/lean_cfg.c @@ -0,0 +1,1271 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1996-2002 All Rights Reserved */ +/* */ +/* MODULE NAME : lean_cfg.c */ +/* PRODUCT(S) : Lean-T Stack */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module implements parsing of the Lean-T Stack */ +/* configuration file. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 06/27/02 JRB 28 Add tp0_sock.h. */ +/* 06/20/02 JRB 27 Chg to use new netAddr union in PRES_ADDR. */ +/* 07/17/00 JRB 26 Set DriverID only if TP4_ENABLED defined. */ +/* 06/15/00 JRB 25 Set DriverID only if MOSI defined. */ +/* 05/02/00 JRB 24 Added DriverID for WIN32. */ +/* 01/25/00 MDE 23 Fixed compile problem for DEBUG version */ +/* 12/10/99 JRB 22 Fix save_dib_table when AP Title or AE Qual */ +/* NOT CONFIGURED or AP Title parse fails. */ +/* Fix parseObjId for invalid data. */ +/* 06/08/99 JRB 21 Chg max_num_conns to ST_UINT16. */ +/* 09/18/98 JRB 20 Del all logging cfg. Use "log_cfg.c" instead.*/ +/* 08/13/98 JRB 19 Lint cleanup. */ +/* 08/06/98 JRB 18 Use new cfg_get_octet_string function & */ +/* delete parseSelector. */ +/* 06/19/98 JRB 17 Allow TP_TYPE_TPX for multiple stack support.*/ +/* 03/11/98 JRB 16 Del "max_spdu_length" param from tp4c_kwtbl..*/ +/* Add "rfc1006_keepalive" param to tp4c_kwtbl..*/ +/* 02/16/98 JRB 15 Clean up some #ifs. */ +/* 08/26/97 JRB 14 RFC1006 changes: */ +/* - Use new DIB_ENTRY with embedded PRES_ADDR. */ +/* - Include "lean_a.h" instead of "suicacse.h" */ +/* - Add "rfc1006_*" params to "tp4c_kwtbl". */ +/* - Add "tranport", "ip_addr" to "dibc_kwtbl.."*/ +/* - If !TP4_ENABLED, ignore TP4/CLNP config */ +/* - If TP0_ENABLED, save TP0 config */ +/* - parseSelector: chg arg back to (ST_INT *) */ +/* - parseSelector: don't ignore maxSelLen arg */ +/* - parseObjId: add default "return" statement.*/ +/* 07/09/97 JRB 13 Deleted obsolete clnp_err.h include. */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 03/03/97 EJV 12 Removed CLNP_LOG_ALWAYS */ +/* 11/19/96 MDE 11 Now handle 0 dib entries w/o mem error */ +/* 11/13/96 JRB 10 Don't init globals unless they are constant. */ +/* 10/04/96 JRB 09 Add ak_delay to TP4 config. */ +/* 10/04/96 JRB 08 Chg parseSelector arg to (ST_INT16 *). */ +/* 10/04/96 JRB 07 Chg funct name to "save_loc_rem_dib_tables" */ +/* and modify for reconfig. */ +/* 10/04/96 JRB 06 Add init_dirser_called flag for reconfig. */ +/* 10/04/96 JRB 05 If MCGW defined, don't config TP4, and add */ +/* adlcAddr to DIB config. */ +/* 09/04/96 EJV 04 Fixed keyword table (_ENC_ instead of _END_) */ +/* 07/24/96 EJV 03 Combined CLNP, TP4 and DIB configuration */ +/* files into one. */ +/* 07/22/96 JRB 02 Fixed up names, etc. for Lean-T. */ +/* 07/22/96 MDE 01 Created from rs_cfg.c */ +/************************************************************************/ +#ifdef DEBUG_SISCO +static char *thisFileName = __FILE__; +#endif + +#include "glbtypes.h" +#include "sysincs.h" +#include "mem_chk.h" +#include "gen_list.h" +#include "cfg_util.h" +#include "cfglog.h" + + +#if defined (MCGW) +/* For the MCGW, the following global variables and function names */ +/* are renamed by macro so they don't conflict with names in OSI SUIC. */ +#define num_loc_dib_entries num_loc_dib_entries_clt7 +#define num_rem_dib_entries num_rem_dib_entries_clt7 +#define loc_dib_table loc_dib_table_clt7 +#define rem_dib_table rem_dib_table_clt7 +#define init_dirser init_dirser_clt7 +#endif /* defined (MCGW) */ + +#include "clnp_usr.h" +#include "tp4api.h" +#include "tp0_sock.h" /* portable "sockets" interface */ +#include "lean_a.h" /* DIB_ENTRY definition. */ +#include "acse2log.h" + +#if defined (_WIN32) +#include "ethsub.h" +#endif + +/************************************************************************/ +/* Local variables in this module */ +/************************************************************************/ + +static ST_CHAR *cfg_file_name = "lean.cfg"; +static ST_BOOLEAN init_dirser_called; + +static ST_RET save_loc_rem_dib_tables (void); + +/*----------------------------------------------------------------------*/ +/* Base configuration keyword table for major sections in cfg file. */ +/* Functions and keyword tables related to parsing specific section */ +/* are defined in respective part of this module. */ +/*----------------------------------------------------------------------*/ +static void clnpc_begin (void); +static void tp4c_begin (void); +static void dibc_begin (void); + +static CFG_KW_EL cfg_base_kwtbl [] = + { + {"%Clnp_Begin", clnpc_begin, NULL }, +#if !defined (MCGW) + { "%Tp4_Begin", tp4c_begin, NULL }, +#endif /* !defined (MCGW) */ + { "%Dib_Begin", dibc_begin, NULL }, + { NULL, NULL, NULL} + }; + +/************************************************************************/ +/* init_dirser */ +/*----------------------------------------------------------------------*/ +/* This function will initialize the LEAN-T Stack parameters from */ +/* configuration file. */ +/* */ +/* Parameters: */ +/* ST_VOID none */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if configuration successful */ +/* SD_FAILURE (1) otherwise */ +/************************************************************************/ + +ST_RET init_dirser (ST_VOID) + { +ST_RET ret; + + ret = SD_FAILURE; + + /* This function will initialize the state table for reading the */ + /* configuration file and parse the file until EOF or end flag is set */ + + /* Read the configuration file */ + ret = cfg_process_file (cfg_file_name, cfg_base_kwtbl); + + if (ret == SD_SUCCESS) + { + save_loc_rem_dib_tables (); + } + else + { + ST_UINT cfg_log_mask_save = cfg_log_mask; + + /* parsing cfg file failed, turn on cfg logging and parse file again */ + cfg_log_mask = CFG_LOG_ERR | CFG_LOG_FLOW; + cfg_process_file (cfg_file_name, cfg_base_kwtbl); + cfg_log_mask = cfg_log_mask_save; + } + + /* Set flag to prevent reconfiguring of critical parameters. */ + init_dirser_called = SD_TRUE; + return (ret); + } + + +/*======================================================================*/ +/************************************************************************/ +/*======================================================================*/ +/* */ +/* Functions and keyword tables for parsing the CLNP section */ +/* from configuration file. */ +/* */ +/*======================================================================*/ +/************************************************************************/ +/*======================================================================*/ + +#if defined(_WIN32) && defined(MOSI) && defined(TP4_ENABLED) +static void clnpc_driverid (void); +#endif +static void clnpc_lifetime (void); +static void clnpc_lifetime_dec (void); +static void clnpc_cfg_timer (void); +static void clnpc_esh_delay (void); +static void clnpc_loc_mac (void); +static void clnpc_loc_nsap (void); + +static void clnpc_end (void); + + +/* CLNP section keyword tables */ + +static CFG_KW_EL clnpc_kwtbl [] = + { +#if defined(_WIN32) && defined(MOSI) && defined(TP4_ENABLED) + {"DriverID", clnpc_driverid, NULL }, +#endif + {"Lifetime", clnpc_lifetime, NULL }, + {"Lifetime_Decrement", clnpc_lifetime_dec, NULL }, + {"Cfg_Timer", clnpc_cfg_timer, NULL }, + {"Esh_Delay", clnpc_esh_delay, NULL }, + {"Local_MAC", clnpc_loc_mac, NULL }, + {"Local_NSAP", clnpc_loc_nsap, NULL }, + {"%Clnp_End", clnpc_end, NULL }, + { NULL, NULL, NULL} + }; + +/*----------------------------------------------------------------------*/ +/* clnpc_begin */ +/* keyword '%Clnp_Begin' */ +/*----------------------------------------------------------------------*/ +static void clnpc_begin (void) + { + if (cfg_tbl_push (clnpc_kwtbl) != SD_SUCCESS) + cfg_set_config_err (); + } + +/*----------------------------------------------------------------------*/ +/* clnpc_end */ +/* keyword '%Clnp_End' */ +/*----------------------------------------------------------------------*/ +static void clnpc_end (void) + { + if (cfg_tbl_pop (1) != SD_SUCCESS) + cfg_set_config_err (); + } + +#if defined(_WIN32) && defined(MOSI) && defined(TP4_ENABLED) +/*----------------------------------------------------------------------*/ +/* clnpc_driverid */ +/* keyword 'driverid' */ +/*----------------------------------------------------------------------*/ +static void clnpc_driverid (void) + { +ST_INT iVal; + + if (init_dirser_called) + { + cfg_get_string_ptr (); /* Get rest of line and ignore it. */ + return; /* Don't allow reconfiguring. */ + } + + if (cfg_get_int (&iVal) == SD_SUCCESS) + { + DriverID = iVal; + } + else + cfg_set_config_err(); + } +#endif /* _WIN32 && MOSI && TP4_ENALBED */ + +/*----------------------------------------------------------------------*/ +/* clnpc_lifetime */ +/* keyword 'Lifetime' */ +/*----------------------------------------------------------------------*/ +static void clnpc_lifetime (void) + { +ST_UINT16 sVal; + + if (init_dirser_called) + { + cfg_get_string_ptr (); /* Get rest of line and ignore it. */ + return; /* Don't allow reconfiguring. */ + } + + if (cfg_get_ushort (&sVal) == SD_SUCCESS) + { +#if defined (TP4_ENABLED) /* Just ignore if disabled. */ + clnp_param.pdu_lifetime = (ST_UCHAR) sVal; +#endif /* TP4_ENABLED */ + } + else + cfg_set_config_err(); + } + +/*----------------------------------------------------------------------*/ +/* clnpc_lifetime_dec */ +/* keyword 'Lifetime_Decrement' */ +/*----------------------------------------------------------------------*/ +static void clnpc_lifetime_dec (void) + { +ST_UINT16 sVal; + + if (init_dirser_called) + { + cfg_get_string_ptr (); /* Get rest of line and ignore it. */ + return; /* Don't allow reconfiguring. */ + } + + if (cfg_get_ushort (&sVal) == SD_SUCCESS) + { +#if defined (TP4_ENABLED) /* Just ignore if disabled. */ + clnp_param.pdu_lifetime_dec = (ST_UCHAR) sVal; +#endif /* TP4_ENABLED */ + } + else + cfg_set_config_err(); + } + +/*----------------------------------------------------------------------*/ +/* clnpc_cfg_timer */ +/* keyword 'Cfg_Timer' */ +/*----------------------------------------------------------------------*/ +static void clnpc_cfg_timer (void) + { +ST_UINT16 sVal; + + if (init_dirser_called) + { + cfg_get_string_ptr (); /* Get rest of line and ignore it. */ + return; /* Don't allow reconfiguring. */ + } + + if (cfg_get_ushort (&sVal) == SD_SUCCESS) + { +#if defined (TP4_ENABLED) /* Just ignore if disabled. */ + clnp_param.esh_cfg_timer = sVal; +#endif /* TP4_ENABLED */ + } + else + cfg_set_config_err(); + } + +/*----------------------------------------------------------------------*/ +/* clnpc_esh_delay */ +/* keyword 'Esh_Delay' */ +/*----------------------------------------------------------------------*/ +static void clnpc_esh_delay (void) + { +ST_UINT16 sVal; + + if (init_dirser_called) + { + cfg_get_string_ptr (); /* Get rest of line and ignore it. */ + return; /* Don't allow reconfiguring. */ + } + + if (cfg_get_ushort (&sVal) == SD_SUCCESS) + { +#if defined (TP4_ENABLED) /* Just ignore if disabled. */ + clnp_param.esh_delay = sVal; +#endif /* TP4_ENABLED */ + } + else + cfg_set_config_err(); + } + +/*----------------------------------------------------------------------*/ +/* clnpc_loc_mac */ +/* keyword 'Local_MAC' */ +/*----------------------------------------------------------------------*/ +static void clnpc_loc_mac (void) + { +#if defined (TP4_ENABLED) +ST_UINT mac_len; + + if (init_dirser_called) + { + cfg_get_string_ptr (); /* Get rest of line and ignore it. */ + return; /* Don't allow reconfiguring. */ + } + + if (cfg_get_octet_string (clnp_param.loc_mac, &mac_len, CLNP_MAX_LEN_MAC)) + cfg_set_config_err(); +#else /* !TP4_ENABLED */ + cfg_get_string_ptr (); /* Get rest of line and ignore it. */ +#endif /* !TP4_ENABLED */ + } + +/*----------------------------------------------------------------------*/ +/* clnpc_loc_nsap */ +/* keyword 'Local_NSAP' */ +/*----------------------------------------------------------------------*/ +static void clnpc_loc_nsap (void) + { +#if defined (TP4_ENABLED) +ST_UINT nsap_len; + + if (init_dirser_called) + { + cfg_get_string_ptr (); /* Get rest of line and ignore it. */ + return; /* Don't allow reconfiguring. */ + } + + if (cfg_get_octet_string (&clnp_param.loc_nsap[1], &nsap_len, CLNP_MAX_LEN_NSAP) + == SD_SUCCESS) + { + if (nsap_len > 0) + clnp_param.loc_nsap[0] = (ST_UCHAR) nsap_len; + } + else + cfg_set_config_err(); +#else /* !TP4_ENABLED */ + cfg_get_string_ptr (); /* Get rest of line and ignore it. */ +#endif /* !TP4_ENABLED */ + } + + +#if !defined (MCGW) +/*======================================================================*/ +/************************************************************************/ +/*======================================================================*/ +/* */ +/* Functions and keyword tables for parsing the TP4 section */ +/* from configuration file. */ +/* */ +/*======================================================================*/ +/************************************************************************/ +/*======================================================================*/ + +static void tp4c_end (void); + +static void tp4c_max_tpdu_len (void); +static void tp4c_max_rem_cdt (void); +static void tp4c_loc_cdt (void); +static void tp4c_max_num_conns (void); +static void tp4c_max_spdu_outst (void); +static void tp4c_window_time (void); +static void tp4c_inact_time (void); +static void tp4c_retrans_time (void); +static void tp4c_max_trans (void); +static void tp4c_ak_delay (void); + +static void rfc1006_max_tpdu_len (void); +static void rfc1006_max_num_conns (void); +static void rfc1006_keepalive (void); + +/* TP4 section keyword tables */ + +static CFG_KW_EL tp4c_kwtbl [] = + { + {"Max_Tpdu_Length", tp4c_max_tpdu_len, NULL }, + {"Max_Remote_Cdt", tp4c_max_rem_cdt, NULL }, + {"Local_Cdt", tp4c_loc_cdt, NULL }, + {"Max_Num_Connections", tp4c_max_num_conns, NULL }, + {"Max_Spdu_Outstanding", tp4c_max_spdu_outst, NULL }, + {"Window_Time", tp4c_window_time, NULL }, + {"Inactivity_Time", tp4c_inact_time, NULL }, + {"Retransmission_Time", tp4c_retrans_time, NULL }, + {"Max_Transmissions", tp4c_max_trans, NULL }, + {"ak_delay", tp4c_ak_delay, NULL }, + {"RFC1006_Max_Tpdu_Len", rfc1006_max_tpdu_len, NULL }, + {"RFC1006_Max_Num_Conns", rfc1006_max_num_conns, NULL }, + {"rfc1006_keepalive", rfc1006_keepalive, NULL }, + {"%Tp4_End", tp4c_end, NULL }, + { NULL, NULL, NULL} + }; + +/*----------------------------------------------------------------------*/ +/* tp4c_begin */ +/* keyword '%Tp4_Begin' */ +/*----------------------------------------------------------------------*/ +static void tp4c_begin (void) + { + if (cfg_tbl_push (tp4c_kwtbl) != SD_SUCCESS) + cfg_set_config_err (); + } + +/*----------------------------------------------------------------------*/ +/* tp4c_end */ +/* keyword '%Tp4_End' */ +/*----------------------------------------------------------------------*/ +static void tp4c_end (void) + { + if (cfg_tbl_pop (1) != SD_SUCCESS) + cfg_set_config_err (); + } + +/*----------------------------------------------------------------------*/ +/* tp4c_max_tpdu_len */ +/* keyword 'Max_Tpdu_Length' */ +/*----------------------------------------------------------------------*/ +static void tp4c_max_tpdu_len (void) + { +ST_UINT16 sVal; + + if (init_dirser_called) + { + cfg_get_string_ptr (); /* Get rest of line and ignore it. */ + return; /* Don't allow reconfiguring. */ + } + + if (cfg_get_ushort (&sVal) == SD_SUCCESS) + { +#if defined (TP4_ENABLED) /* Just ignore if disabled. */ + tp_cfg.max_tpdu_len = sVal; +#endif /* TP4_ENABLED */ + } + else + cfg_set_config_err(); + } + +/*----------------------------------------------------------------------*/ +/* tp4c_max_rem_cdt */ +/* keyword 'Max_Remote_Cdt' */ +/*----------------------------------------------------------------------*/ +static void tp4c_max_rem_cdt (void) + { +ST_UINT16 sVal; + + if (init_dirser_called) + { + cfg_get_string_ptr (); /* Get rest of line and ignore it. */ + return; /* Don't allow reconfiguring. */ + } + + if (cfg_get_ushort (&sVal) == SD_SUCCESS) + { +#if defined (TP4_ENABLED) /* Just ignore if disabled. */ + tp_cfg.max_rem_cdt = (ST_UCHAR) sVal; +#endif /* TP4_ENABLED */ + } + else + cfg_set_config_err(); + } + +/*----------------------------------------------------------------------*/ +/* tp4c_loc_cdt */ +/* keyword 'Local_Cdt' */ +/*----------------------------------------------------------------------*/ +static void tp4c_loc_cdt (void) + { +ST_UINT16 sVal; + + if (init_dirser_called) + { + cfg_get_string_ptr (); /* Get rest of line and ignore it. */ + return; /* Don't allow reconfiguring. */ + } + + if (cfg_get_ushort (&sVal) == SD_SUCCESS) + { +#if defined (TP4_ENABLED) /* Just ignore if disabled. */ + tp_cfg.loc_cdt = (ST_UCHAR) sVal; +#endif /* TP4_ENABLED */ + } + else + cfg_set_config_err(); + } + +/*----------------------------------------------------------------------*/ +/* tp4c_max_num_conns */ +/* keyword 'Max_Num_Connections' */ +/*----------------------------------------------------------------------*/ +static void tp4c_max_num_conns (void) + { +ST_UINT16 sVal; + + if (init_dirser_called) + { + cfg_get_string_ptr (); /* Get rest of line and ignore it. */ + return; /* Don't allow reconfiguring. */ + } + + if (cfg_get_ushort (&sVal) == SD_SUCCESS) + { +#if defined (TP4_ENABLED) /* Just ignore if disabled. */ + tp_cfg.max_num_conns = sVal; +#endif /* TP4_ENABLED */ + } + else + cfg_set_config_err(); + } + +/*----------------------------------------------------------------------*/ +/* tp4c_max_spdu_outst */ +/* keyword 'Max_Spdu_Outstanding' */ +/*----------------------------------------------------------------------*/ +static void tp4c_max_spdu_outst (void) + { +ST_UINT16 sVal; + + if (init_dirser_called) + { + cfg_get_string_ptr (); /* Get rest of line and ignore it. */ + return; /* Don't allow reconfiguring. */ + } + + if (cfg_get_ushort (&sVal) == SD_SUCCESS) + { +#if defined (TP4_ENABLED) /* Just ignore if disabled. */ + tp_cfg.max_spdu_outst = (ST_UCHAR) sVal; +#endif /* TP4_ENABLED */ + } + else + cfg_set_config_err(); + } + +/*----------------------------------------------------------------------*/ +/* tp4c_window_time */ +/* keyword 'Window_Time' */ +/*----------------------------------------------------------------------*/ +static void tp4c_window_time (void) + { +ST_UINT16 sVal; + + if (init_dirser_called) + { + cfg_get_string_ptr (); /* Get rest of line and ignore it. */ + return; /* Don't allow reconfiguring. */ + } + + if (cfg_get_ushort (&sVal) == SD_SUCCESS) + { +#if defined (TP4_ENABLED) /* Just ignore if disabled. */ + tp_cfg.window_time = sVal; +#endif /* TP4_ENABLED */ + } + else + cfg_set_config_err(); + } + +/*----------------------------------------------------------------------*/ +/* tp4c_inact_time */ +/* keyword 'Inactivity_Time' */ +/*----------------------------------------------------------------------*/ +static void tp4c_inact_time (void) + { +ST_UINT16 sVal; + + if (init_dirser_called) + { + cfg_get_string_ptr (); /* Get rest of line and ignore it. */ + return; /* Don't allow reconfiguring. */ + } + + if (cfg_get_ushort (&sVal) == SD_SUCCESS) + { +#if defined (TP4_ENABLED) /* Just ignore if disabled. */ + tp_cfg.inact_time = sVal; +#endif /* TP4_ENABLED */ + } + else + cfg_set_config_err(); + } + +/*----------------------------------------------------------------------*/ +/* tp4c_retrans_time */ +/* keyword 'Retransmission_Time' */ +/*----------------------------------------------------------------------*/ +static void tp4c_retrans_time (void) + { +ST_UINT16 sVal; + + if (init_dirser_called) + { + cfg_get_string_ptr (); /* Get rest of line and ignore it. */ + return; /* Don't allow reconfiguring. */ + } + + if (cfg_get_ushort (&sVal) == SD_SUCCESS) + { +#if defined (TP4_ENABLED) /* Just ignore if disabled. */ + tp_cfg.retrans_time = sVal; +#endif /* TP4_ENABLED */ + } + else + cfg_set_config_err(); + } + +/*----------------------------------------------------------------------*/ +/* tp4c_max_trans */ +/* keyword 'Max_Transmissions' */ +/*----------------------------------------------------------------------*/ +static void tp4c_max_trans (void) + { +ST_UINT16 sVal; + + if (init_dirser_called) + { + cfg_get_string_ptr (); /* Get rest of line and ignore it. */ + return; /* Don't allow reconfiguring. */ + } + + if (cfg_get_ushort (&sVal) == SD_SUCCESS) + { +#if defined (TP4_ENABLED) /* Just ignore if disabled. */ + tp_cfg.max_trans = (ST_UCHAR) sVal; +#endif /* TP4_ENABLED */ + } + else + cfg_set_config_err(); + } + +/*----------------------------------------------------------------------*/ +/* tp4c_ak_delay */ +/* keyword 'ak_delay' */ +/*----------------------------------------------------------------------*/ +static void tp4c_ak_delay (void) + { +ST_UINT16 sVal; + + if (init_dirser_called) + { + cfg_get_string_ptr (); /* Get rest of line and ignore it. */ + return; /* Don't allow reconfiguring. */ + } + + if (cfg_get_ushort (&sVal) == SD_SUCCESS) + { +#if defined (TP4_ENABLED) /* Just ignore if disabled. */ + tp_cfg.ak_delay = (ST_UCHAR) sVal; +#endif /* TP4_ENABLED */ + } + else + cfg_set_config_err(); + } + +/*----------------------------------------------------------------------*/ +/* rfc1006_max_tpdu_len */ +/* keyword 'RFC1006_Max_Tpdu_Len' */ +/*----------------------------------------------------------------------*/ +static void rfc1006_max_tpdu_len (void) + { +ST_UINT16 sVal; + + if (init_dirser_called) + { + cfg_get_string_ptr (); /* Get rest of line and ignore it. */ + return; /* Don't allow reconfiguring. */ + } + + if (cfg_get_ushort (&sVal) == SD_SUCCESS) + { +#if defined (TP0_ENABLED) /* Just ignore if not enabled. */ + tp0_cfg.max_tpdu_len = sVal; +#endif /* defined (TP0_ENABLED) */ + } + else + cfg_set_config_err(); + } + +/*----------------------------------------------------------------------*/ +/* rfc1006_max_num_conns */ +/* keyword 'RFC1006_Max_Num_Conns' */ +/*----------------------------------------------------------------------*/ +static void rfc1006_max_num_conns (void) + { +ST_UINT16 sVal; + + if (init_dirser_called) + { + cfg_get_string_ptr (); /* Get rest of line and ignore it. */ + return; /* Don't allow reconfiguring. */ + } + + if (cfg_get_ushort (&sVal) == SD_SUCCESS) + { +#if defined (TP0_ENABLED) /* Just ignore if not enabled. */ + tp0_cfg.max_num_conns = sVal; +#endif /* defined (TP0_ENABLED) */ + } + else + cfg_set_config_err(); + } + +/*----------------------------------------------------------------------*/ +/* rfc1006_keepalive */ +/* keyword 'rfc1006_keepalive' */ +/*----------------------------------------------------------------------*/ +static void rfc1006_keepalive (void) + { +#if defined (TP0_ENABLED) /* Just ignore if not enabled. */ + tp0_cfg.keepalive = SD_TRUE; +#endif /* defined (TP0_ENABLED) */ + } + +#endif /* !defined (MCGW) */ + + +/*======================================================================*/ +/************************************************************************/ +/*======================================================================*/ +/* */ +/* Functions and keyword tables for parsing the Local and */ +/* Remote DIB sections from configuration file. */ +/* */ +/*======================================================================*/ +/************************************************************************/ +/*======================================================================*/ + + +#define CFG_MAX_AR_NAME 64 +#define CFG_MAX_AP_TITLE 80 +#define CFG_MAX_AE_QUAL 32 + +typedef struct _tagTransDevInfo + { + DBL_LNK l; + ST_CHAR name[CFG_MAX_AR_NAME +1]; + ST_CHAR apTitle[CFG_MAX_AP_TITLE +1]; + ST_CHAR aeQual[CFG_MAX_AE_QUAL +1]; + PRES_ADDR pres_addr; + ST_CHAR ip_addr [MAX_IP_ADDR_LEN]; /* Overwrite pres_addr->nsap */ + /* with this if tp_type = TCP */ + } TRANS_DEV_INFO; + +static void dibc_end (void); + +static void dibc_begin_local (void); +static void dibc_begin_remote (void); +static void dibc_common_name (void); +static void dibc_ap_title (void); +static void dibc_ae_qualifier (void); +static void dibc_psel (void); +static void dibc_ssel (void); +static void dibc_tsel (void); +static void dibc_nsap (void); +static void dibc_tp_type (void); +static void dibc_ip_addr (void); +#if defined (MCGW) +static void dibc_adlcaddr (void); +#endif /* defined (MCGW) */ +static void dibc_end_local (void); +static void dibc_end_remote (void); + +static ST_RET parseObjId (MMS_OBJ_ID *o, ST_CHAR *buff); +static ST_VOID save_dib_table (TRANS_DEV_INFO *, DIB_ENTRY *); + + + +static CFG_KW_EL dibc_kwtbl[] = + { + {"Begin_Local", dibc_begin_local, NULL }, + {"Begin_Remote", dibc_begin_remote, NULL }, + {"%Dib_End", dibc_end, NULL }, + { NULL, NULL, NULL} + }; + +static CFG_KW_EL dibc_kwtbl_param[] = + { + {"Common_Name", dibc_common_name, NULL }, + {"AP_Title", dibc_ap_title, NULL }, + {"AE_Qualifier", dibc_ae_qualifier, NULL }, + {"Psel", dibc_psel, NULL }, + {"Ssel", dibc_ssel, NULL }, + {"Tsel", dibc_tsel, NULL }, + {"NSAP", dibc_nsap, NULL }, + {"Transport", dibc_tp_type, NULL }, + {"IP_Addr", dibc_ip_addr, NULL }, +#if defined (MCGW) + {"AdlcAddr", dibc_adlcaddr, NULL }, +#endif /* defined (MCGW) */ + {"End_Local", dibc_end_local, NULL }, + {"End_Remote", dibc_end_remote, NULL }, + { NULL, NULL, NULL} + }; + +static TRANS_DEV_INFO *localTransList; +static TRANS_DEV_INFO *remoteTransList; +static TRANS_DEV_INFO *currTransEl; + +static ST_BOOLEAN rem_section_flag; + +/*----------------------------------------------------------------------*/ +/* dibc_begin */ +/* keyword '%Dib_Begin' */ +/*----------------------------------------------------------------------*/ +static void dibc_begin (void) + { + /* CRITICAL: Always start with empty temporary DIB Table linked lists */ + /* (may be reconfiguring). */ + localTransList = NULL; + remoteTransList = NULL; + + if (cfg_tbl_push (dibc_kwtbl) != SD_SUCCESS) + cfg_set_config_err (); + } + +/*----------------------------------------------------------------------*/ +/* dibc_end */ +/* keyword '%Dib_End' */ +/*----------------------------------------------------------------------*/ +static void dibc_end (void) + { + if (cfg_tbl_pop (1) != SD_SUCCESS) + cfg_set_config_err (); + + cfg_set_endfile_ok (); /* this is the end of configuration */ + } + +/*----------------------------------------------------------------------*/ +/* dibc_begin_local */ +/* keyword 'Begin_Local' */ +/*----------------------------------------------------------------------*/ + +static void dibc_begin_local (void) + { + if (!init_dirser_called) + { /* Don't alloc if reconfiguring. */ + currTransEl = (TRANS_DEV_INFO *) chk_calloc (1, sizeof(TRANS_DEV_INFO)); + currTransEl->pres_addr.tp_type = TP_TYPE_TP4; /* Default=TP4 */ + list_add_last ((void**) &localTransList, currTransEl); + } + + cfg_tbl_push (dibc_kwtbl_param); + } + +/*----------------------------------------------------------------------*/ +/* dibc_begin_remote */ +/* keyword 'Begin_Remote' */ +/*----------------------------------------------------------------------*/ +static void dibc_begin_remote (void) + { + currTransEl = (TRANS_DEV_INFO *) chk_calloc (1, sizeof(TRANS_DEV_INFO)); + currTransEl->pres_addr.tp_type = TP_TYPE_TP4; /* Default=TP4 */ + list_add_last ((void**) &remoteTransList, currTransEl); + cfg_tbl_push (dibc_kwtbl_param); + rem_section_flag = SD_TRUE; + } + +/*----------------------------------------------------------------------*/ +/* Processing of keywords found in one of sub-section: */ +/* Local_Begin ... Local_End */ +/* Remote_Begin ... Remote_End */ +/*----------------------------------------------------------------------*/ + +static void dibc_common_name (void) + { +ST_CHAR *p; + + if (init_dirser_called && rem_section_flag == SD_FALSE) + { + cfg_get_string_ptr (); /* Get rest of line and ignore it. */ + return; /* Don't allow reconfiguring. */ + } + + p = cfg_get_string_ptr (); + if (!p) + cfg_set_config_err(); + else if (strlen (p) > CFG_MAX_AR_NAME) + cfg_set_config_err(); + else + strcpy (currTransEl->name, p); + } + +/*----------------------------------------------------------------------*/ +static void dibc_ap_title (void) + { +ST_CHAR *p; + + if (init_dirser_called && rem_section_flag == SD_FALSE) + { + cfg_get_string_ptr (); /* Get rest of line and ignore it. */ + return; /* Don't allow reconfiguring. */ + } + + p = cfg_get_string_ptr (); + if (!p) + cfg_set_config_err(); + else if (strlen (p) > CFG_MAX_AP_TITLE) + cfg_set_config_err(); + else + strcpy (currTransEl->apTitle, p); + } + +/*----------------------------------------------------------------------*/ +static void dibc_ae_qualifier (void) + { +ST_CHAR *p; + + if (init_dirser_called && rem_section_flag == SD_FALSE) + { + cfg_get_string_ptr (); /* Get rest of line and ignore it. */ + return; /* Don't allow reconfiguring. */ + } + + p = cfg_get_string_ptr (); + if (!p) + cfg_set_config_err(); + else if (strlen (p) > CFG_MAX_AE_QUAL) + cfg_set_config_err(); + else + strcpy (currTransEl->aeQual, p); + } + +/*----------------------------------------------------------------------*/ +static void dibc_psel (void) + { + if (init_dirser_called && rem_section_flag == SD_FALSE) + { + cfg_get_string_ptr (); /* Get rest of line and ignore it. */ + return; /* Don't allow reconfiguring. */ + } + + if (cfg_get_octet_string (currTransEl->pres_addr.psel, + &currTransEl->pres_addr.psel_len, MAX_PSEL_LEN) != SD_SUCCESS) + cfg_set_config_err(); + } + +/*----------------------------------------------------------------------*/ +static void dibc_ssel (void) + { + if (init_dirser_called && rem_section_flag == SD_FALSE) + { + cfg_get_string_ptr (); /* Get rest of line and ignore it. */ + return; /* Don't allow reconfiguring. */ + } + + if (cfg_get_octet_string (currTransEl->pres_addr.ssel, + &currTransEl->pres_addr.ssel_len, MAX_SSEL_LEN) != SD_SUCCESS) + cfg_set_config_err(); + } + +/*----------------------------------------------------------------------*/ +static void dibc_tsel (void) + { + if (init_dirser_called && rem_section_flag == SD_FALSE) + { + cfg_get_string_ptr (); /* Get rest of line and ignore it. */ + return; /* Don't allow reconfiguring. */ + } + + if (cfg_get_octet_string (currTransEl->pres_addr.tsel, + &currTransEl->pres_addr.tsel_len, MAX_TSEL_LEN) != SD_SUCCESS) + cfg_set_config_err(); + } + +/*----------------------------------------------------------------------*/ +static void dibc_nsap (void) + { + if (rem_section_flag) + { + /* NSAP only in remote DIB is valid */ + /* NOTE: array size is MAX_IP_ADDR_LEN. Must be >= CLNP_MAX_LEN_NSAP.*/ + if (cfg_get_octet_string (currTransEl->pres_addr.netAddr.nsap, + &currTransEl->pres_addr.nsap_len, CLNP_MAX_LEN_NSAP) != SD_SUCCESS) + cfg_set_config_err(); + } + else + { + cfg_set_config_err(); + } + } + +/*----------------------------------------------------------------------*/ +static void dibc_tp_type (void) + { +ST_CHAR *p; + + p = cfg_get_string_ptr (); + if (!p) + cfg_set_config_err(); + else + { + if (strcmp (p, "TCP") == 0) + currTransEl->pres_addr.tp_type = TP_TYPE_TCP; + else if (strcmp (p, "TP4") == 0) + currTransEl->pres_addr.tp_type = TP_TYPE_TP4; + else if (strcmp (p, "TPX") == 0) + currTransEl->pres_addr.tp_type = TP_TYPE_TPX; /* Both. Only for Local*/ + else + cfg_set_config_err(); /* too long to fit. */ + } + } + +/*----------------------------------------------------------------------*/ +static void dibc_ip_addr (void) + { +ST_CHAR *p; + + if (rem_section_flag) + { + /* IP Addr only valid in remote DIB entry */ + p = cfg_get_string_ptr (); + if (!p) + cfg_set_config_err(); + else + { + if (strlen (p) < MAX_IP_ADDR_LEN) /* must fit with NULL terminator*/ + strcpy (currTransEl->ip_addr, p); + else + cfg_set_config_err(); /* too long to fit. */ + } + } + else + { + cfg_set_config_err(); + } + } + +#if defined (MCGW) +/*----------------------------------------------------------------------*/ +static void dibc_adlcaddr (void) + { +ST_CHAR *p; +ST_LONG longval; + + if (init_dirser_called) + { + cfg_get_string_ptr (); /* Get rest of line and ignore it. */ + return; /* Don't allow reconfiguring. */ + } + + p = cfg_get_string_ptr (); + if (!p) + cfg_set_config_err(); + else + { + longval = atol (p); + /* Make sure it's a legal ST_UINT16 before casting it. */ + if (longval < 0 || longval > 0xffff) + cfg_set_config_err(); + else + currTransEl->pres_addr.adlcAddr = (ST_UINT16) longval; + } + } +#endif /* defined (MCGW) */ + +/*----------------------------------------------------------------------*/ +/* dibc_end_local */ +/* keyword 'Local_End' */ +/*----------------------------------------------------------------------*/ +static void dibc_end_local (void) + { + cfg_tbl_pop (1); + } + +/*----------------------------------------------------------------------*/ +/* dibc_end_remote */ +/* keyword 'Remote_End' */ +/*----------------------------------------------------------------------*/ +static void dibc_end_remote (void) + { + if (currTransEl->pres_addr.tp_type == TP_TYPE_TCP) + { + if ((currTransEl->pres_addr.netAddr.ip = tp0_convert_ip (currTransEl->ip_addr)) + == htonl(INADDR_NONE)) + cfg_set_config_err(); /* IP Addr invalid. */ + } + + cfg_tbl_pop (1); + rem_section_flag = SD_FALSE; + } + + +/************************************************************************/ +/* parseObjId */ +/*----------------------------------------------------------------------*/ +/* Parses components of the 'ApTitle'. */ +/************************************************************************/ + +static ST_RET parseObjId (MMS_OBJ_ID *objId, ST_CHAR *buff) + { +char *numStr; + + /* Found keyword 'ApTitle', read the components */ + objId->num_comps = 0; + numStr = strtok (buff, " \t"); + while (numStr && strlen (numStr) > 0) + { + if (objId->num_comps >= MAX_OBJID_COMPONENTS) + { + return (SD_FAILURE); + } + objId->comps[objId->num_comps] = (ST_INT16) atoi (numStr); + numStr = strtok (NULL, " \t"); + ++objId->num_comps; + } + if (objId->num_comps == 0) /* couldn't parse anything */ + return (SD_FAILURE); + return (SD_SUCCESS); + } + +/************************************************************************/ +/* save_loc_rem_dib_tables */ +/*----------------------------------------------------------------------*/ +/* This function will initialize local and remote dib entries tables. */ +/* */ +/* Parameters: */ +/* void none */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if initialization successful. */ +/* SD_FAILURE (1) otherwise */ +/* NOTES: Does not allow reconfiguration of loc_dib_table. */ +/* Allows reconfiguration of rem_dib_table, but only after */ +/* freeing the old table. */ +/************************************************************************/ + +static ST_RET save_loc_rem_dib_tables (void) + { +ST_RET ret; +ST_INT j; + + ret = SD_SUCCESS; + + if (!init_dirser_called) /* Don't allow reconfiguring. */ + { + num_loc_dib_entries = list_get_sizeof (localTransList); + if (num_loc_dib_entries) + { + loc_dib_table = (DIB_ENTRY *) chk_calloc (num_loc_dib_entries, sizeof (DIB_ENTRY)); + save_dib_table (localTransList, loc_dib_table); + } + } + + /* If Remote DIB table already configured, free old before allocating new.*/ + if (init_dirser_called) + { + for (j = 0; j < num_rem_dib_entries; j++) + chk_free (rem_dib_table [j].name); + chk_free (rem_dib_table); + } + + num_rem_dib_entries = list_get_sizeof (remoteTransList); + if (num_rem_dib_entries) + { + rem_dib_table = (DIB_ENTRY *) chk_calloc (num_rem_dib_entries, sizeof (DIB_ENTRY)); + save_dib_table (remoteTransList, rem_dib_table); + } + return (ret); + } + + +/************************************************************************/ +/* save_dib_table */ +/*----------------------------------------------------------------------*/ +/* This function copies the temporary DIB Table to the permanent */ +/* DIB Table. It may be used for the Local as well as the Remote DIB */ +/* Tables. */ +/* */ +/* Parameters: */ +/* TRANS_DEV_INFO * temporary table (linked list of structs)*/ +/* DIB_ENTRY * permanent table (array of structs) */ +/* */ +/************************************************************************/ + +static ST_VOID save_dib_table (TRANS_DEV_INFO *TransList, DIB_ENTRY *de) + { +TRANS_DEV_INFO *toFree; +TRANS_DEV_INFO *d; + + d = TransList; /* Point to first in linked list */ + while (d) + { + de->name = (ST_CHAR *) chk_malloc (strlen(d->name) + 1); + strcpy (de->name, d->name); + if (strlen (d->apTitle)) + { + if (parseObjId (&de->AP_title, d->apTitle)) + { + ACSELOG_ERR1 ("Invalid AP Title '%s'. Ignored.", d->apTitle); + } + else + de->AP_title_pres = SD_TRUE; /* defaults to FALSE */ + } + + if (strlen (d->aeQual)) + { + de->AE_qual_pres = SD_TRUE; /* defaults to FALSE */ + de->AE_qual = atol (d->aeQual); + } + + de->AP_inv_id_pres = SD_FALSE; + de->AE_inv_id_pres = SD_FALSE; + + memcpy (&de->pres_addr, &d->pres_addr, sizeof (PRES_ADDR)); + + toFree = d; + d = (TRANS_DEV_INFO *) list_get_next (TransList, d); /* Point to next TRANS_DEV_INFO */ + chk_free (toFree); + ++de; /* Point to next DIB_ENTRY */ + } /* End "while" */ + + TransList = NULL; /* CRITICAL: clean up in case reconfigure later.*/ + } diff --git a/mmslib/ositcps/lean_var.c b/mmslib/ositcps/lean_var.c new file mode 100644 index 0000000..9486782 --- /dev/null +++ b/mmslib/ositcps/lean_var.c @@ -0,0 +1,163 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2005 - 2008 All Rights Reserved */ +/* */ +/* MODULE NAME : lean_var.c */ +/* PRODUCT(S) : Lean-T Stack */ +/* */ +/* MODULE DESCRIPTION : */ +/* Global variables used by the stack components are placed here, */ +/* so that when they are referenced, the linker is NOT forced */ +/* to pull in a lot of code. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* None */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 08/24/07 EJV 08 Ported for SNAP-Lite. */ +/* 02/11/08 EJV 07 Turned ON the COPP_LOG_ERR and COSP_LOG_ERR. */ +/* 10/04/07 MDE 06 Tweaked LOGCFG_VALUE_GROUP/LOGCFGX_VALUE_MAP */ +/* 12/13/06 JRB 05 hPktSock moved here (avail on any system). */ +/* 08/18/06 JRB 04 Init *_debug_sel with appropriate *_ERR. */ +/* 05/24/05 EJV 03 Moved xxxLogMaskMapCtrl from logcfgx.c */ +/* 02/01/05 JRB 02 Remove DEBUG_SISCO around *_debug_sel so old */ +/* apps link without problems. */ +/* 01/24/05 JRB 01 Created. */ +/************************************************************************/ +#include "glbtypes.h" +#include "sysincs.h" +#include "acse2usr.h" /* for ACSE_LOG_xxx */ +#include "acse2log.h" +#include "tp4_log.h" +#if defined(MMS_LITE) +#include "clnp_log.h" +#endif + +/************************************************************************/ +/* Global Variables for ACSE, COPP, COSP layer logging. */ +/************************************************************************/ +ST_UINT acse_debug_sel = (ACSE_LOG_ERR | COPP_LOG_ERR | COSP_LOG_ERR); + +#if defined(DEBUG_SISCO) +SD_CONST ST_CHAR *SD_CONST _acse_err_logstr = "ACSE_LOG_ERR"; +SD_CONST ST_CHAR *SD_CONST _acse_enc_logstr = "ACSE_LOG_ENC"; +SD_CONST ST_CHAR *SD_CONST _acse_dec_logstr = "ACSE_LOG_DEC"; +SD_CONST ST_CHAR *SD_CONST _acse_dib_logstr = "ACSE_LOG_DIB"; + +SD_CONST ST_CHAR *SD_CONST _copp_err_logstr = "COPP_LOG_ERR"; +SD_CONST ST_CHAR *SD_CONST _copp_dec_logstr = "COPP_LOG_DEC"; +SD_CONST ST_CHAR *SD_CONST _copp_dec_hex_logstr = "COPP_LOG_DEC_HEX"; +SD_CONST ST_CHAR *SD_CONST _copp_enc_logstr = "COPP_LOG_ENC"; +SD_CONST ST_CHAR *SD_CONST _copp_enc_hex_logstr = "COPP_LOG_ENC_HEX"; + +SD_CONST ST_CHAR *SD_CONST _cosp_err_logstr = "COSP_LOG_ERR"; +SD_CONST ST_CHAR *SD_CONST _cosp_dec_logstr = "COSP_LOG_DEC"; +SD_CONST ST_CHAR *SD_CONST _cosp_dec_hex_logstr = "COSP_LOG_DEC_HEX"; +SD_CONST ST_CHAR *SD_CONST _cosp_enc_logstr = "COSP_LOG_ENC"; +SD_CONST ST_CHAR *SD_CONST _cosp_enc_hex_logstr = "COSP_LOG_ENC_HEX"; + +LOGCFGX_VALUE_MAP acseLogMaskMaps[] = + { + {"ACSE_LOG_ERR", ACSE_LOG_ERR, &acse_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "AcseError"}, + {"ACSE_LOG_ENC", ACSE_LOG_ENC, &acse_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "AcseEncode"}, + {"ACSE_LOG_DEC", ACSE_LOG_DEC, &acse_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "AcseDecode"}, + {"ACSE_LOG_DIB", ACSE_LOG_DIB, &acse_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "DIB"}, + {"COPP_LOG_ERR", COPP_LOG_ERR, &acse_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "CoppError"}, + {"COPP_LOG_DEC", COPP_LOG_DEC, &acse_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "CoppDecode"}, + {"COPP_LOG_DEC_HEX",COPP_LOG_DEC_HEX, &acse_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "CoppDecodeHex"}, + {"COPP_LOG_ENC", COPP_LOG_ENC, &acse_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "CoppEncode"}, + {"COPP_LOG_ENC_HEX",COPP_LOG_ENC_HEX, &acse_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "CoppEncodeHex"}, + {"COSP_LOG_ERR", COSP_LOG_ERR, &acse_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "CoppError"}, + {"COSP_LOG_DEC", COSP_LOG_DEC, &acse_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "CoppDecode"}, + {"COSP_LOG_DEC_HEX",COSP_LOG_DEC_HEX, &acse_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "CoppDecodeHex"}, + {"COSP_LOG_ENC", COSP_LOG_ENC, &acse_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "CoppEncode"}, + {"COSP_LOG_ENC_HEX",COSP_LOG_ENC_HEX, &acse_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "CoppEncodeHex"} + }; + +LOGCFG_VALUE_GROUP acseLogMaskMapCtrl = + { + {NULL,NULL}, + "AcseLogMasks", /* Parent Tag */ + sizeof(acseLogMaskMaps)/sizeof(LOGCFGX_VALUE_MAP), + acseLogMaskMaps + }; +#endif /* DEBUG_SISCO */ + +/************************************************************************/ +/* Global Variables for TP4 layer logging. */ +/************************************************************************/ +ST_UINT tp4_debug_sel = TP4_LOG_ERR; + +#if defined(DEBUG_SISCO) +SD_CONST ST_CHAR *SD_CONST _tp4_err_logstr = "TP4_LOG_ERR"; +SD_CONST ST_CHAR *SD_CONST _tp4_flowup_logstr = "TP4_LOG_FLOWUP"; +SD_CONST ST_CHAR *SD_CONST _tp4_flowdown_logstr = "TP4_LOG_FLOWDOWN"; + +LOGCFGX_VALUE_MAP tp4LogMaskMaps[] = + { + {"TP4_LOG_ERR", TP4_LOG_ERR, &tp4_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "Tp4Error"}, + {"TP4_LOG_FLOWUP", TP4_LOG_FLOWUP, &tp4_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "Tp4FlowUp"}, + {"TP4_LOG_FLOWDOWN", TP4_LOG_FLOWDOWN, &tp4_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "Tp4FlowDown"}, + /* for TP0 use different names in xml file */ + {"TP_LOG_ERR", TP4_LOG_ERR, &tp4_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "TpError"}, + {"TP_LOG_FLOWUP", TP4_LOG_FLOWUP, &tp4_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "TpFlowUp"}, + {"TP_LOG_FLOWDOWN", TP4_LOG_FLOWDOWN, &tp4_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "TpFlowDown"} + }; + +LOGCFG_VALUE_GROUP tp4LogMaskMapCtrl = + { + {NULL,NULL}, + "TransportLogMasks", /* Parent Tag */ + sizeof(tp4LogMaskMaps)/sizeof(LOGCFGX_VALUE_MAP), + tp4LogMaskMaps + }; +#endif /* DEBUG_SISCO */ + +#if defined(MMS_LITE) +/************************************************************************/ +/* Global Variables for CLNP layer logging. */ +/************************************************************************/ +ST_UINT clnp_debug_sel = CLNP_LOG_ERR; + +#if defined(DEBUG_SISCO) +SD_CONST ST_CHAR *SD_CONST _clnp_err_logstr = "CLNP_LOG_ERR"; +SD_CONST ST_CHAR *SD_CONST _clnp_nerr_logstr = "CLNP_LOG_NERR"; +SD_CONST ST_CHAR *SD_CONST _clnp_req_logstr = "CLNP_LOG_REQ"; +SD_CONST ST_CHAR *SD_CONST _clnp_ind_logstr = "CLNP_LOG_IND"; +SD_CONST ST_CHAR *SD_CONST _clnp_enc_dec_logstr = "CLNP_LOG_ENC_DEC"; +SD_CONST ST_CHAR *SD_CONST _clnp_llc_enc_dec_logstr = "CLNP_LOG_LLC_ENC_DEC"; +SD_CONST ST_CHAR *SD_CONST _clsns_req_logstr = "CLSNS_LOG_REQ"; +SD_CONST ST_CHAR *SD_CONST _clsns_ind_logstr = "CLSNS_LOG_IND"; + +LOGCFGX_VALUE_MAP clnpLogMaskMaps[] = + { + {"CLNP_LOG_ERR", CLNP_LOG_ERR, &clnp_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "Error"}, + {"CLNP_LOG_NERR", CLNP_LOG_NERR, &clnp_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "Notice"}, + {"CLNP_LOG_REQ", CLNP_LOG_REQ, &clnp_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "ClnpRequest"}, + {"CLNP_LOG_IND", CLNP_LOG_IND, &clnp_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "ClnpIndication"}, + {"CLNP_LOG_ENC_DEC", CLNP_LOG_ENC_DEC, &clnp_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "EncodeDecode"}, + {"CLNP_LOG_LLC_ENC_DEC", CLNP_LOG_LLC_ENC_DEC, &clnp_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "EncodeDecode"}, + {"CLSNS_LOG_REQ", CLSNS_LOG_REQ, &clnp_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "ClnsRequest"}, + {"CLSNS_LOG_IND", CLSNS_LOG_IND, &clnp_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "ClnsIndication"} + }; + +LOGCFG_VALUE_GROUP clnpLogMaskMapCtrl = + { + {NULL,NULL}, + "ClnpLogMasks", /* Parent Tag */ + sizeof(clnpLogMaskMaps)/sizeof(LOGCFGX_VALUE_MAP), + clnpLogMaskMaps + }; +#endif /* DEBUG_SISCO */ + +/************************************************************************/ +/* hPktSock is used in LINUX subnetwork code (see clnp_linux.c) and it */ +/* may be used on new systems. */ +/************************************************************************/ +int hPktSock = -1; /* Packet Socket handle: initialized to invalid value*/ + +#endif /* defined(MMS_LITE) */ diff --git a/mmslib/ositcps/osicfgx.c b/mmslib/ositcps/osicfgx.c new file mode 100644 index 0000000..9b93e82 --- /dev/null +++ b/mmslib/ositcps/osicfgx.c @@ -0,0 +1,1822 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2000 - 2005, All Rights Reserved */ +/* */ +/* MODULE NAME : osicfgx.c */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : This routine parses the osicfg.xml */ +/* configuration file for the Lean-T Stack */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 02/18/08 JRB 40 Parse Network_Device. */ +/* 02/07/08 JRB 39 Chg strtok to thread-safe get_next_string. */ +/* Ignore obsolete Max_Num_Connections & */ +/* Rfc1006_Max_Num_Conns. */ +/* 01/12/07 JRB 38 If RemoteAddress NetAddr Type is illegal, */ +/* ignore addr, log error, but continue parsing.*/ +/* 07/08/05 EJV 37 MMSEASE_MOSI: allow only TCP tp_type. */ +/* _netAddr_EFun: re-arranged NSAP with IPADDR */ +/* 05/23/05 JRB 36 Del CFLOW logging (sx_dec logs similar info).*/ +/* 05/18/05 DWL 35 Move "SX_PUSH (networkAddr..)" inside "if". */ +/* 05/05/05 EJV 34 Added Rfc1006_Listen_Port, remote Port */ +/* 04/06/05 JRB 33 MMSEASE_MOSI: set def tp_type to TP_TYPE_TCP */ +/* 09/20/04 JRB 32 Always allow session_cfg.disconnect_timeout */ +/* to be configured (not just for TP4). */ +/* 08/13/04 JRB 31 Use thread-safe sx_parseExx_mt. */ +/* Del unneeded system includes. */ +/* 04/31/04 MDE 30 Now use sx_parseExx */ +/* 02/02/04 JRB 29 Set err flag if IPADDR entered & !TP0_ENABLED*/ +/* OR NSAP entered & !TP4_ENABLED. Clarify logs.*/ +/* 01/14/04 EJV 28 Added rfc1006MaxSpduOutstanding. */ +/* 12/09/03 JRB 27 Init all 5 members of SX_ELEMENT structs. */ +/* 10/24/03 JRB 26 Lint. */ +/* 09/09/03 EJV 25 Use the XML element names in ERR, FLOW logs. */ +/* 12/16/02 ASK 24 Wrap ifdef TP0_ENABLED around inet_ntoa calls*/ +/* 07/18/02 JRB 23 Move ifdefs to skip more unneeded code. */ +/* 06/27/02 JRB 22 Add tp0_sock.h. */ +/* 06/20/02 JRB 21 Chg to use new netAddr union in PRES_ADDR. */ +/* 05/03/02 MDE 20 Now set max_bind_ctrl */ +/* 02/27/02 GLB 19 Changed ascii_t_.. to asciiTo.. */ +/* 02/25/02 MDE 18 More changes to MVL_CFG_INFO */ +/* 02/20/02 MDE 17 Changes for new MVL_CFG_INFO */ +/* 02/11/02 JRB 16 Don't reparse w/ logging. Let user do it. */ +/* 02/08/02 JRB 15 Add MVL_CFG.. arg & pass along to sx_parseEx.*/ +/* 02/05/02 GLB 14 Made optional: Rfc1006_Max_Num_Conns, */ +/* LocalAddressList, RemoteAddressList */ +/* 01/22/02 JRB 13 Move mvl_set_num_connections call so it does */ +/* not depend on order of params in XML file. */ +/* 01/10/02 GLB 12 Update optional/mandatory flags */ +/* Add sx_pop to allow check for mandatory */ +/* elements */ +/* Make Session optional */ +/* 11/28/01 MDE 11 Use new mvl_acse functions */ +/* 11/28/01 MDE 10 Allocate mmsl_enc_buf */ +/* 11/06/01 GLB 09 Added MMS section */ +/* 05/25/01 GLB 08 Removed getFileSize */ +/* 05/11/01 JRB 07 Use new sx_parseEx. Del osiCfgParse & */ +/* LOG_DEC_CTRL (not used for anything useful). */ +/* Save "called" flag to use on 2nd pass so same*/ +/* data parsed on 2nd pass. Chg MVL_LOG to */ +/* SXLOG, mvl log mask not initialized yet. */ +/* Use correct defines for SSEL TSEL len. */ +/* 03/15/01 JRB 06 Added Session group w/ Disconnect_Timeout. */ +/* 01/25/01 JRB 05 Use stricmp. */ +/* Chg sx_deb.. again: do NOT set SX_LOG_DEBUG. */ +/* 01/15/01 EJV 04 Chnaged sx_debug_sel in cfg parsing. */ +/* 01/09/01 GLB 03 Changed logBufParse to osiCfgParse */ +/* 01/03/01 EJV 02 Don't use O_TEXT in open() on non _WIN32 sys.*/ +/* Changed _getFileSize to use stat(). */ +/* Changed sx_debug_sel to 'or' flags. */ +/* Deleted duplicate code in _netAddr_EFun. */ +/* 08/31/00 GLB 01 Module created from existing lean_cfg.c */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "mem_chk.h" +#include "mvl_acse.h" + +#include "sx_defs.h" +#include "sx_log.h" + +#include "cfg_util.h" +#include "str_util.h" +#include "cfglog.h" +#include "slog.h" +#include "acse2log.h" +#include "lean_a.h" +#include "tp0_sock.h" /* portable "sockets" interface */ + +#if !defined(MMSEASE_MOSI) +#include "mmsldefs.h" /* for MMS section */ +#include "mvl_defs.h" /* for MMS section */ +#endif + + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +#define REMOTE_DIB_TABLE 0 +#define LOCAL_DIB_TABLE 1 + +#define CFG_MAX_AR_NAME 64 +#define CFG_MAX_AP_TITLE 80 +#define CFG_MAX_AE_QUAL 32 + +typedef struct _tagTransDevInfo + { + DBL_LNK l; + ST_CHAR name[CFG_MAX_AR_NAME +1]; + ST_CHAR apTitle[CFG_MAX_AP_TITLE +1]; + ST_CHAR aeQual[CFG_MAX_AE_QUAL +1]; + PRES_ADDR pres_addr; + } TRANS_DEV_INFO; + +static ST_BOOLEAN init_dirser_called; +static ST_BOOLEAN rem_section_flag; + +/************************************************************************/ + +static ST_VOID _logStart_SEFun (SX_DEC_CTRL *sxDecCtrl); + +static ST_VOID _mms_SFun (SX_DEC_CTRL *sxDecCtrl); + +static ST_VOID _maxMmsPduLength_EFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _maxCallingConnections_EFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _maxCalledConnections_EFun (SX_DEC_CTRL *sxDecCtrl); + +static ST_VOID _network_SFun (SX_DEC_CTRL *sxDecCtrl); + +static ST_VOID _networkDevice_EFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _clnp_SFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _lifetime_EFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _lifetimeDecrement_EFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _cfgTimer_EFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _eshDelay_EFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _localNsap_EFun (SX_DEC_CTRL *sxDecCtrl); + +static ST_VOID _transport_SFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _session_SFun (SX_DEC_CTRL *sxDecCtrl); + +static ST_VOID _tp4_SFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _maxTpduLength_EFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _maxRemoteCdt_EFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _localCdt_EFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _maxNumConnections_EFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _maxSpduOutstanding_EFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _windowTime_EFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _inactivityTime_EFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _retransmissionTime_EFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _maxTransmissions_EFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _akDelay_EFun (SX_DEC_CTRL *sxDecCtrl); + +static ST_VOID _tcp_SFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _rfc1006MaxTpduLen_EFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _rfc1006MaxNumConns_EFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _rfc1006MaxSpduOutstanding_EFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _rfc1006ListenPort_EFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _disconnectTimeout_EFun (SX_DEC_CTRL *sxDecCtrl); + +static ST_VOID _networkAddressing_SFun (SX_DEC_CTRL *sxDecCtrl); + +static ST_VOID _localAddresses_SFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _remoteAddresses_SFun (SX_DEC_CTRL *sxDecCtrl); + +static ST_VOID _localArName_SFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _arname_EFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _apTitle_EFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _aeQualifier_EFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _psel_EFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _ssel_EFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _tsel_EFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _transportType_EFun (SX_DEC_CTRL *sxDecCtrl); + +static ST_VOID _remoteArName_SFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _netAddr_EFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _port_EFun (SX_DEC_CTRL *sxDecCtrl); + +static TRANS_DEV_INFO *localTransList; +static TRANS_DEV_INFO *remoteTransList; +static TRANS_DEV_INFO *currTransEl; + +static ST_RET save_loc_rem_dib_tables (void); +static ST_VOID save_dib_table (TRANS_DEV_INFO *, DIB_ENTRY *); +static ST_RET parseObjId (MMS_OBJ_ID *o, ST_CHAR *buff); + +static ST_VOID printDibEntry (ST_VOID); +static ST_VOID printDibStruct (DIB_ENTRY *de,ST_INT table_type); + +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ + +SX_ELEMENT cfgStartElements[] = +{ + {"STACK_CFG", SX_ELF_CSTART | SX_ELF_CEND, _logStart_SEFun, NULL, 0} +}; + +SX_ELEMENT cfgElements[] = +{ + {"MMS", SX_ELF_CSTART|SX_ELF_OPT, _mms_SFun, NULL, 0}, + {"Network", SX_ELF_CSTART|SX_ELF_OPT, _network_SFun, NULL, 0}, + {"Transport", SX_ELF_CSTART, _transport_SFun, NULL, 0}, + {"Session", SX_ELF_CSTART|SX_ELF_OPT, _session_SFun, NULL, 0}, + {"NetworkAddressing", SX_ELF_CSTARTEND, _networkAddressing_SFun, NULL, 0} +}; + +SX_ELEMENT mmsElements[] = +{ + {"Max_Mms_Pdu_Length", SX_ELF_CEND, _maxMmsPduLength_EFun, NULL, 0}, + {"Max_Calling_Connections", SX_ELF_CEND, _maxCallingConnections_EFun, NULL, 0}, + {"Max_Called_Connections", SX_ELF_CEND, _maxCalledConnections_EFun, NULL, 0}, +}; + +SX_ELEMENT networkElements[] = +{ + {"Network_Device", SX_ELF_CEND|SX_ELF_OPT, _networkDevice_EFun, NULL, 0}, + {"Clnp", SX_ELF_CSTART|SX_ELF_OPT, _clnp_SFun, NULL, 0} +}; + +SX_ELEMENT clnpElements[] = +{ + {"Lifetime", SX_ELF_CEND|SX_ELF_OPT, _lifetime_EFun, NULL, 0}, + {"Lifetime_Decrement", SX_ELF_CEND|SX_ELF_OPT, _lifetimeDecrement_EFun, NULL, 0}, + {"Cfg_Timer", SX_ELF_CEND|SX_ELF_OPT, _cfgTimer_EFun, NULL, 0}, + {"Esh_Delay", SX_ELF_CEND|SX_ELF_OPT, _eshDelay_EFun, NULL, 0}, + {"Local_NSAP", SX_ELF_CEND|SX_ELF_OPT, _localNsap_EFun, NULL, 0} +}; + + +SX_ELEMENT transportElements[] = +{ + {"Tp4", SX_ELF_CSTART|SX_ELF_OPT, _tp4_SFun, NULL, 0}, + {"Tcp", SX_ELF_CSTART|SX_ELF_OPT, _tcp_SFun, NULL, 0} +}; + +SX_ELEMENT Tp4Elements[] = +{ + {"Max_Tpdu_Length", SX_ELF_CEND|SX_ELF_OPT, _maxTpduLength_EFun, NULL, 0}, + {"Max_Remote_Cdt", SX_ELF_CEND|SX_ELF_OPT, _maxRemoteCdt_EFun, NULL, 0}, + {"Local_Cdt", SX_ELF_CEND|SX_ELF_OPT, _localCdt_EFun, NULL, 0}, + {"Max_Num_Connections", SX_ELF_CEND|SX_ELF_OPT, _maxNumConnections_EFun, NULL, 0}, + {"Max_Spdu_Outstanding", SX_ELF_CEND|SX_ELF_OPT, _maxSpduOutstanding_EFun, NULL, 0}, + {"Window_Time", SX_ELF_CEND|SX_ELF_OPT, _windowTime_EFun, NULL, 0}, + {"Inactivity_Time", SX_ELF_CEND|SX_ELF_OPT, _inactivityTime_EFun, NULL, 0}, + {"Retransmission_Time", SX_ELF_CEND|SX_ELF_OPT, _retransmissionTime_EFun, NULL, 0}, + {"Max_Transmissions", SX_ELF_CEND|SX_ELF_OPT, _maxTransmissions_EFun, NULL, 0}, + {"Ak_Delay", SX_ELF_CEND|SX_ELF_OPT, _akDelay_EFun, NULL, 0} +}; + +SX_ELEMENT TcpElements[] = +{ + {"Rfc1006_Max_Tpdu_Len", SX_ELF_CEND|SX_ELF_OPT, _rfc1006MaxTpduLen_EFun, NULL, 0}, + {"Rfc1006_Max_Num_Conns", SX_ELF_CEND|SX_ELF_OPT, _rfc1006MaxNumConns_EFun, NULL, 0}, + {"Rfc1006_Max_Spdu_Outstanding", SX_ELF_CEND|SX_ELF_OPT, _rfc1006MaxSpduOutstanding_EFun, NULL, 0}, + {"Rfc1006_Listen_Port", SX_ELF_CEND|SX_ELF_OPT, _rfc1006ListenPort_EFun, NULL, 0} +}; + + +SX_ELEMENT sessionElements[] = +{ + {"Disconnect_Timeout", SX_ELF_CEND|SX_ELF_OPT, _disconnectTimeout_EFun, NULL, 0} +}; + +SX_ELEMENT networkAddressingElements[] = +{ + {"LocalAddressList", SX_ELF_CSTART|SX_ELF_OPT, _localAddresses_SFun, NULL, 0}, + {"RemoteAddressList", SX_ELF_CSTART|SX_ELF_OPT, _remoteAddresses_SFun, NULL, 0} +}; + +SX_ELEMENT LocalAddressesElements[] = +{ + {"LocalAddress", SX_ELF_CSTART|SX_ELF_RPT, _localArName_SFun, NULL, 0} +}; + +SX_ELEMENT LocalArNameElements[] = +{ + {"AR_Name", SX_ELF_CEND, _arname_EFun, NULL, 0}, + {"AP_Title", SX_ELF_CEND|SX_ELF_OPT, _apTitle_EFun, NULL, 0}, + {"AE_Qualifier", SX_ELF_CEND|SX_ELF_OPT, _aeQualifier_EFun, NULL, 0}, + {"Psel", SX_ELF_CEND, _psel_EFun, NULL, 0}, + {"Ssel", SX_ELF_CEND, _ssel_EFun, NULL, 0}, + {"Tsel", SX_ELF_CEND, _tsel_EFun, NULL, 0}, + {"TransportType", SX_ELF_CEND, _transportType_EFun, NULL, 0} +}; + +SX_ELEMENT RemoteAddressesElements[] = +{ + {"RemoteAddress", SX_ELF_CSTART | SX_ELF_RPT, _remoteArName_SFun, NULL, 0} +}; + +SX_ELEMENT RemoteArNameElements[] = +{ + {"AR_Name", SX_ELF_CEND, _arname_EFun, NULL, 0}, + {"AP_Title", SX_ELF_CEND|SX_ELF_OPT, _apTitle_EFun, NULL, 0}, + {"AE_Qualifier", SX_ELF_CEND|SX_ELF_OPT, _aeQualifier_EFun, NULL, 0}, + {"Psel", SX_ELF_CEND, _psel_EFun, NULL, 0}, + {"Ssel", SX_ELF_CEND, _ssel_EFun, NULL, 0}, + {"Tsel", SX_ELF_CEND, _tsel_EFun, NULL, 0}, + {"NetAddr", SX_ELF_CEND, _netAddr_EFun, NULL, 0}, + {"Port", SX_ELF_CEND|SX_ELF_OPT, _port_EFun, NULL, 0} +}; + +/************************************************************************/ +/* osicfgx */ +/************************************************************************/ + +ST_RET osicfgx (ST_CHAR *logFileName, MVL_CFG_INFO *mvlCfg) + { +ST_RET rc; + + rc = sx_parseExx_mt (logFileName, + sizeof (cfgStartElements)/sizeof(SX_ELEMENT), cfgStartElements, + mvlCfg, NULL, NULL); + + /* Here we save the bind information */ + if (loc_dib_table != NULL) + { +#ifdef MAP30_ACSE /* Select bind mode */ + mvlCfg->use_bind_ctrl = SD_TRUE; + mvlCfg->max_bind_ctrl = 1; + mvlCfg->num_bind_ctrl = 1; + mvlCfg->bind_ctrl = chk_calloc (1, sizeof (NET_BIND_CTRL)); + mvlCfg->bind_ctrl[0].ar_name = loc_dib_table->name; + mvlCfg->bind_ctrl[0].tp_type = loc_dib_table->pres_addr.tp_type; +#else + strcpy (mvlCfg->local_ar_name, loc_dib_table->name); +#endif + } + + if (rc == SD_SUCCESS) + init_dirser_called = SD_TRUE; + + return (rc); + } + +/************************************************************************/ +/************************************************************************/ +/* _logStart_SEFun */ +/************************************************************************/ + +static ST_VOID _logStart_SEFun (SX_DEC_CTRL *sxDecCtrl) + { + if (sxDecCtrl->reason == SX_ELEMENT_START) + { + SX_PUSH (cfgElements); + } + else + { + while (sxDecCtrl->itemStackLevel > 0) + sx_pop (sxDecCtrl); + } + } +/************************************************************************/ +/* _mms_SFun */ +/************************************************************************/ + +static ST_VOID _mms_SFun (SX_DEC_CTRL *sxDecCtrl) + { + SX_PUSH (mmsElements); + } + +/************************************************************************/ +/* _maxMmsPduLength_EFun */ +/************************************************************************/ + +static ST_VOID _maxMmsPduLength_EFun (SX_DEC_CTRL *sxDecCtrl) + { +ST_BOOLEAN rc; +ST_CHAR *str; +ST_INT strLen; +MVL_CFG_INFO *mvlCfg = (MVL_CFG_INFO *) sxDecCtrl->usr; + +ST_INT sInt; + + rc = sx_get_string_ptr (sxDecCtrl, &str, &strLen); + if (rc != SD_SUCCESS) + return; + + if (!init_dirser_called) + { + + sInt = 0; + if (strlen(str) == 0) + { + SXLOG_ERR0 ("ERROR: Max_Mms_Pdu_Length required but not present "); + sxDecCtrl->errCode = SX_USER_ERROR; + } + else if ((asciiToSint(str,&sInt) != SD_SUCCESS) || (strchr(str,'-')) ) + { + SXLOG_ERR1 ("ERROR: Max_Mms_Pdu_Length Data Conversion Error on value: %s", str); + sxDecCtrl->errCode = SX_USER_ERROR; + } + else + mvlCfg->max_msg_size = sInt; + } + } + +/************************************************************************/ +/* _maxCallingConnections_EFun */ +/************************************************************************/ + +static ST_VOID _maxCallingConnections_EFun (SX_DEC_CTRL *sxDecCtrl) + { +ST_BOOLEAN rc; +ST_CHAR *str; +ST_INT strLen; +ST_INT sInt; +MVL_CFG_INFO *mvlCfg = (MVL_CFG_INFO *) sxDecCtrl->usr; + + rc = sx_get_string_ptr (sxDecCtrl, &str, &strLen); + if (rc != SD_SUCCESS) + return; + + if (!init_dirser_called) + { + + sInt = 0; + + if (strlen(str) == 0) + { + SXLOG_ERR0 ("ERROR: Max_Calling_Connections required but not present "); + sxDecCtrl->errCode = SX_USER_ERROR; + } + else if ((asciiToSint(str,&sInt) != SD_SUCCESS) || (strchr(str,'-')) ) + { + SXLOG_ERR1 ("ERROR: Max_Calling_Connections Data Conversion Error on value: %s", str); + sxDecCtrl->errCode = SX_USER_ERROR; + } + else + { + mvlCfg->num_calling = sInt; + } + + } + } + +/************************************************************************/ +/* _maxCalledConnections_EFun */ +/************************************************************************/ + +static ST_VOID _maxCalledConnections_EFun (SX_DEC_CTRL *sxDecCtrl) + { +ST_BOOLEAN rc; +ST_CHAR *str; +ST_INT strLen; +ST_INT sInt; +MVL_CFG_INFO *mvlCfg = (MVL_CFG_INFO *) sxDecCtrl->usr; + + rc = sx_get_string_ptr (sxDecCtrl, &str, &strLen); + if (rc != SD_SUCCESS) + return; + + if (!init_dirser_called) + { + sInt = 0; + if (strlen(str) == 0) + { + SXLOG_ERR0 ("ERROR: Max_Called_Connections required but not present "); + sxDecCtrl->errCode = SX_USER_ERROR; + } + else if ((asciiToSint(str,&sInt) != SD_SUCCESS) || (strchr(str,'-')) ) + { + SXLOG_ERR1 ("ERROR: Max_Called_Connections Data Conversion Error on value: %s", str); + sxDecCtrl->errCode = SX_USER_ERROR; + } + else + { + mvlCfg->num_called = sInt; + } + } + } + +/************************************************************************/ +/************************************************************************/ +/* _network_SFun */ +/************************************************************************/ + +static ST_VOID _network_SFun (SX_DEC_CTRL *sxDecCtrl) + { + SX_PUSH (networkElements); + } + +/************************************************************************/ +/* _networkDevice_EFun */ +/************************************************************************/ +static ST_VOID _networkDevice_EFun (SX_DEC_CTRL *sxDecCtrl) + { +#if defined (TP4_ENABLED) /* Just ignore if disabled. */ +ST_BOOLEAN rc; +ST_CHAR *str; +ST_INT strLen; + + rc = sx_get_string_ptr (sxDecCtrl, &str, &strLen); + if (rc != SD_SUCCESS) + return; + + if (!init_dirser_called) + { + clnp_param.network_device = chk_malloc (strLen + 1); + strcpy (clnp_param.network_device, str); + } +#endif /* TP4_ENABLED */ + } + +/************************************************************************/ +/************************************************************************/ +/* _clnp_SFun */ +/************************************************************************/ + +static ST_VOID _clnp_SFun (SX_DEC_CTRL *sxDecCtrl) + { + SX_PUSH (clnpElements); + } + +/************************************************************************/ +/* _lifetime_EFun */ +/************************************************************************/ + +static ST_VOID _lifetime_EFun (SX_DEC_CTRL *sxDecCtrl) + { +#if defined (TP4_ENABLED) /* Just ignore if disabled. */ +ST_BOOLEAN rc; +ST_CHAR *str; +ST_INT strLen; + +ST_UINT16 uShortInt = 0; + + rc = sx_get_string_ptr (sxDecCtrl, &str, &strLen); + if (rc != SD_SUCCESS) + return; + + if (!init_dirser_called) + { + if (asciiToUint16(str,&uShortInt) != SD_SUCCESS) + { + SXLOG_ERR0 ("ERROR: Lifetime Data Conversion Error"); + sxDecCtrl->errCode = SX_ERR_CONVERT; + } + else + { + clnp_param.pdu_lifetime = (ST_UCHAR) uShortInt; + } + } +#endif /* TP4_ENABLED */ + } + +/************************************************************************/ +/* _lifetimeDecrement_EFun */ +/************************************************************************/ + +static ST_VOID _lifetimeDecrement_EFun (SX_DEC_CTRL *sxDecCtrl) + { +#if defined (TP4_ENABLED) /* Just ignore if disabled. */ +ST_BOOLEAN rc; +ST_CHAR *str; +ST_INT strLen; + +ST_UINT16 uShortInt = 0; + + rc = sx_get_string_ptr (sxDecCtrl, &str, &strLen); + if (rc != SD_SUCCESS) + return; + + if (!init_dirser_called) + { + if (asciiToUint16(str,&uShortInt) != SD_SUCCESS) + { + SXLOG_ERR0 ("ERROR: Lifetime_Decrement Data Conversion Error"); + sxDecCtrl->errCode = SX_ERR_CONVERT; + } + else + { + clnp_param.pdu_lifetime_dec = (ST_UCHAR) uShortInt; + } + } +#endif /* TP4_ENABLED */ + } + +/************************************************************************/ +/* _cfgTimer_EFun */ +/************************************************************************/ + +static ST_VOID _cfgTimer_EFun (SX_DEC_CTRL *sxDecCtrl) + { +#if defined (TP4_ENABLED) /* Just ignore if disabled. */ +ST_BOOLEAN rc; +ST_CHAR *str; +ST_INT strLen; + +ST_UINT16 uShortInt = 0; + + rc = sx_get_string_ptr (sxDecCtrl, &str, &strLen); + if (rc != SD_SUCCESS) + return; + + if (!init_dirser_called) + { + if (asciiToUint16(str,&uShortInt) != SD_SUCCESS) + { + SXLOG_ERR0 ("ERROR: Cfg_Timer Data Conversion Error"); + sxDecCtrl->errCode = SX_ERR_CONVERT; + } + else + { + clnp_param.esh_cfg_timer = uShortInt; + } + } +#endif /* TP4_ENABLED */ + } + +/************************************************************************/ +/* _eshDelay_EFun */ +/************************************************************************/ + +static ST_VOID _eshDelay_EFun (SX_DEC_CTRL *sxDecCtrl) + { +#if defined (TP4_ENABLED) /* Just ignore if disabled. */ +ST_BOOLEAN rc; +ST_CHAR *str; +ST_INT strLen; + +ST_UINT16 uShortInt = 0; + + rc = sx_get_string_ptr (sxDecCtrl, &str, &strLen); + if (rc != SD_SUCCESS) + return; + + if (!init_dirser_called) + { + if (asciiToUint16(str,&uShortInt) != SD_SUCCESS) + { + SXLOG_ERR0 ("ERROR: Esh_Delay Data Conversion Error"); + sxDecCtrl->errCode = SX_ERR_CONVERT; + } + else + { + clnp_param.esh_delay = uShortInt; + } + } +#endif /* TP4_ENABLED */ + } + +/************************************************************************/ +/* _localNsap_EFun */ +/************************************************************************/ + +static ST_VOID _localNsap_EFun (SX_DEC_CTRL *sxDecCtrl) + { +#if defined (TP4_ENABLED) /* Just ignore if disabled. */ +ST_BOOLEAN rc; +ST_CHAR *str; +ST_INT strLen; +ST_UINT hexStrLen = 0; + + rc = sx_get_string_ptr (sxDecCtrl, &str, &strLen); + if (rc != SD_SUCCESS) + return; + + if (!init_dirser_called) + { + if (ascii_to_hex_str (&clnp_param.loc_nsap[1],&hexStrLen,CLNP_MAX_LEN_NSAP,str) + == SD_SUCCESS) + { + if (hexStrLen > 0) + clnp_param.loc_nsap[0] = (ST_UCHAR) hexStrLen; + } + else + { + /*cfg_set_config_err();*/ + SXLOG_ERR0 ("ERROR: Clnp Local_NSAP Data Conversion Error"); + sxDecCtrl->errCode = SX_ERR_CONVERT; + } + } +#endif /* TP4_ENABLED */ + } + +/************************************************************************/ +/************************************************************************/ +/* _transport_SFun */ +/************************************************************************/ + +static ST_VOID _transport_SFun (SX_DEC_CTRL *sxDecCtrl) + { + SX_PUSH (transportElements); + } + +/************************************************************************/ +/************************************************************************/ +/* _tp4_SFun */ +/************************************************************************/ + +static ST_VOID _tp4_SFun (SX_DEC_CTRL *sxDecCtrl) + { + SX_PUSH (Tp4Elements); + } + +/************************************************************************/ +/* _maxTpduLength_EFun */ +/************************************************************************/ + +static ST_VOID _maxTpduLength_EFun (SX_DEC_CTRL *sxDecCtrl) + { +#if defined (TP4_ENABLED) /* Just ignore if disabled. */ +ST_BOOLEAN rc; +ST_CHAR *str; +ST_INT strLen; + +ST_UINT16 uShortInt = 0; + + rc = sx_get_string_ptr (sxDecCtrl, &str, &strLen); + if (rc != SD_SUCCESS) + return; + + if (!init_dirser_called) + { + if (asciiToUint16(str,&uShortInt) != SD_SUCCESS) + { + SXLOG_ERR0 ("ERROR: Max_Tpdu_Length Data Conversion Error"); + sxDecCtrl->errCode = SX_ERR_CONVERT; + } + else + { + tp_cfg.max_tpdu_len = uShortInt; + } + } +#endif /* TP4_ENABLED */ + } + +/************************************************************************/ +/* _maxRemoteCdt_EFun */ +/************************************************************************/ + +static ST_VOID _maxRemoteCdt_EFun (SX_DEC_CTRL *sxDecCtrl) + { +#if defined (TP4_ENABLED) /* Just ignore if disabled. */ +ST_BOOLEAN rc; +ST_CHAR *str; +ST_INT strLen; + +ST_UINT16 uShortInt = 0; + + rc = sx_get_string_ptr (sxDecCtrl, &str, &strLen); + if (rc != SD_SUCCESS) + return; + + if (!init_dirser_called) + { + if (asciiToUint16(str,&uShortInt) != SD_SUCCESS) + { + SXLOG_ERR0 ("ERROR: Max_Remote_Cdt Data Conversion Error"); + sxDecCtrl->errCode = SX_ERR_CONVERT; + } + else + { + tp_cfg.max_rem_cdt = (ST_UCHAR) uShortInt; + } + } +#endif /* TP4_ENABLED */ + } + +/************************************************************************/ +/* _localCdt_EFun */ +/************************************************************************/ + +static ST_VOID _localCdt_EFun (SX_DEC_CTRL *sxDecCtrl) + { +#if defined (TP4_ENABLED) /* Just ignore if disabled. */ +ST_BOOLEAN rc; +ST_CHAR *str; +ST_INT strLen; + +ST_UINT16 uShortInt = 0; + + rc = sx_get_string_ptr (sxDecCtrl, &str, &strLen); + if (rc != SD_SUCCESS) + return; + + if (!init_dirser_called) + { + if (asciiToUint16(str,&uShortInt) != SD_SUCCESS) + { + SXLOG_ERR0 ("ERROR: Local_Cdt Data Conversion Error"); + sxDecCtrl->errCode = SX_ERR_CONVERT; + } + else + { + tp_cfg.loc_cdt = (ST_UCHAR) uShortInt; + } + } +#endif /* TP4_ENABLED */ + } + +/************************************************************************/ +/* _maxNumConnections_EFun */ +/************************************************************************/ + +static ST_VOID _maxNumConnections_EFun (SX_DEC_CTRL *sxDecCtrl) + { + SXLOG_ERR0 ("Max_Num_Connections element is OBSOLETE. Ignored."); + return; + } + +/************************************************************************/ +/* _maxSpduOutstanding_EFun */ +/************************************************************************/ + +static ST_VOID _maxSpduOutstanding_EFun (SX_DEC_CTRL *sxDecCtrl) + { +#if defined (TP4_ENABLED) /* Just ignore if disabled. */ +ST_BOOLEAN rc; +ST_CHAR *str; +ST_INT strLen; + +ST_UINT16 uShortInt = 0; + + rc = sx_get_string_ptr (sxDecCtrl, &str, &strLen); + if (rc != SD_SUCCESS) + return; + + if (!init_dirser_called) + { + if (asciiToUint16(str,&uShortInt) != SD_SUCCESS) + { + SXLOG_ERR0 ("ERROR: Max_Spdu_Outstanding Data Conversion Error"); + sxDecCtrl->errCode = SX_ERR_CONVERT; + } + else + { + tp_cfg.max_spdu_outst = (ST_UCHAR) uShortInt; + } + } +#endif /* TP4_ENABLED */ + } + +/************************************************************************/ +/* _windowTime_EFun */ +/************************************************************************/ + +static ST_VOID _windowTime_EFun (SX_DEC_CTRL *sxDecCtrl) + { +#if defined (TP4_ENABLED) /* Just ignore if disabled. */ +ST_BOOLEAN rc; +ST_CHAR *str; +ST_INT strLen; + +ST_UINT16 uShortInt = 0; + + rc = sx_get_string_ptr (sxDecCtrl, &str, &strLen); + if (rc != SD_SUCCESS) + return; + + if (!init_dirser_called) + { + if (asciiToUint16(str,&uShortInt) != SD_SUCCESS) + { + SXLOG_ERR0 ("ERROR: Window_Time Data Conversion Error"); + sxDecCtrl->errCode = SX_ERR_CONVERT; + } + else + { + tp_cfg.window_time = uShortInt; + } + } +#endif /* TP4_ENABLED */ + } + +/************************************************************************/ +/* _inactivityTime_EFun */ +/************************************************************************/ + +static ST_VOID _inactivityTime_EFun (SX_DEC_CTRL *sxDecCtrl) + { +#if defined (TP4_ENABLED) /* Just ignore if disabled. */ +ST_BOOLEAN rc; +ST_CHAR *str; +ST_INT strLen; + +ST_UINT16 uShortInt = 0; + + rc = sx_get_string_ptr (sxDecCtrl, &str, &strLen); + if (rc != SD_SUCCESS) + return; + + if (!init_dirser_called) + { + if (asciiToUint16(str,&uShortInt) != SD_SUCCESS) + { + SXLOG_ERR0 ("ERROR: Inactivity_Time Data Conversion Error"); + sxDecCtrl->errCode = SX_ERR_CONVERT; + } + else + { + tp_cfg.inact_time = uShortInt; + } + } +#endif /* TP4_ENABLED */ + } + +/************************************************************************/ +/* _retransmissionTime_EFun */ +/************************************************************************/ + +static ST_VOID _retransmissionTime_EFun (SX_DEC_CTRL *sxDecCtrl) + { +#if defined (TP4_ENABLED) /* Just ignore if disabled. */ +ST_BOOLEAN rc; +ST_CHAR *str; +ST_INT strLen; + +ST_UINT16 uShortInt = 0; + + rc = sx_get_string_ptr (sxDecCtrl, &str, &strLen); + if (rc != SD_SUCCESS) + return; + + if (!init_dirser_called) + { + if (asciiToUint16(str,&uShortInt) != SD_SUCCESS) + { + SXLOG_ERR0 ("ERROR: Retransmission_Time Data Conversion Error"); + sxDecCtrl->errCode = SX_ERR_CONVERT; + } + else + { + tp_cfg.retrans_time = uShortInt; + } + } +#endif /* TP4_ENABLED */ + } + +/************************************************************************/ +/* _maxTransmissions_EFun */ +/************************************************************************/ + +static ST_VOID _maxTransmissions_EFun (SX_DEC_CTRL *sxDecCtrl) + { +#if defined (TP4_ENABLED) /* Just ignore if disabled. */ +ST_BOOLEAN rc; +ST_CHAR *str; +ST_INT strLen; + +ST_UINT16 uShortInt = 0; + + rc = sx_get_string_ptr (sxDecCtrl, &str, &strLen); + if (rc != SD_SUCCESS) + return; + + if (!init_dirser_called) + { + if (asciiToUint16(str,&uShortInt) != SD_SUCCESS) + { + SXLOG_ERR0 ("ERROR: Max_Transmissions Data Conversion Error"); + sxDecCtrl->errCode = SX_ERR_CONVERT; + } + else + { + tp_cfg.max_trans = (ST_UCHAR) uShortInt; + } + } +#endif /* TP4_ENABLED */ + } + +/************************************************************************/ +/* _akDelay_EFun */ +/************************************************************************/ + +static ST_VOID _akDelay_EFun (SX_DEC_CTRL *sxDecCtrl) + { +#if defined (TP4_ENABLED) /* Just ignore if disabled. */ +ST_BOOLEAN rc; +ST_CHAR *str; +ST_INT strLen; + +ST_UINT16 uShortInt = 0; + + rc = sx_get_string_ptr (sxDecCtrl, &str, &strLen); + if (rc != SD_SUCCESS) + return; + + if (!init_dirser_called) + { + if (asciiToUint16(str,&uShortInt) != SD_SUCCESS) + { + SXLOG_ERR0 ("ERROR: Ak_Delay Data Conversion Error"); + sxDecCtrl->errCode = SX_ERR_CONVERT; + } + else + { + tp_cfg.ak_delay = (ST_UCHAR) uShortInt; + } + } +#endif /* TP4_ENABLED */ + } + +/************************************************************************/ +/************************************************************************/ +/* _tcp_SFun */ +/************************************************************************/ + +static ST_VOID _tcp_SFun (SX_DEC_CTRL *sxDecCtrl) + { + SX_PUSH (TcpElements); + } + +/************************************************************************/ +/* _rfc1006MaxTpduLen_EFun */ +/************************************************************************/ + +static ST_VOID _rfc1006MaxTpduLen_EFun (SX_DEC_CTRL *sxDecCtrl) + { +ST_BOOLEAN rc; +ST_CHAR *str; +ST_INT strLen; + + rc = sx_get_string_ptr (sxDecCtrl, &str, &strLen); + if (rc != SD_SUCCESS) + return; + +#if defined (TP0_ENABLED) /* Just ignore if disabled. */ + if (!init_dirser_called) + { + ST_UINT16 uShortInt = 0; + + if (asciiToUint16(str,&uShortInt) != SD_SUCCESS) + { + SXLOG_ERR0 ("ERROR: Rfc1006_Max_Tpdu_Len Data Conversion Error"); + sxDecCtrl->errCode = SX_ERR_CONVERT; + } + else + { + tp0_cfg.max_tpdu_len = uShortInt; + } + } +#endif /* TP0_ENABLED */ + } + +/************************************************************************/ +/* _rfc1006MaxNumConns_EFun */ +/************************************************************************/ + +static ST_VOID _rfc1006MaxNumConns_EFun (SX_DEC_CTRL *sxDecCtrl) + { + SXLOG_ERR0 ("Rfc1006_Max_Num_Conns element is OBSOLETE. Ignored."); + return; + } + +/************************************************************************/ +/* _rfc1006MaxSpduOutstanding_EFun */ +/************************************************************************/ + +static ST_VOID _rfc1006MaxSpduOutstanding_EFun (SX_DEC_CTRL *sxDecCtrl) + { +ST_BOOLEAN rc; +ST_CHAR *str; +ST_INT strLen; + + rc = sx_get_string_ptr (sxDecCtrl, &str, &strLen); + if (rc != SD_SUCCESS) + return; + +#if defined (TP0_ENABLED) /* Just ignore if disabled. */ + if (!init_dirser_called) + { + ST_UINT uInt = 0; + + if (asciiToUint(str,&uInt) != SD_SUCCESS) + { + SXLOG_ERR0 ("ERROR: Rfc1006_Max_Spdu_Outstanding Data Conversion Error"); + sxDecCtrl->errCode = SX_ERR_CONVERT; + } + else + { + tp0_cfg.max_spdu_outst = uInt; + } + } +#endif /* TP0_ENABLED */ + } + +/************************************************************************/ +/* _rfc1006ListenPort_EFun */ +/************************************************************************/ + +static ST_VOID _rfc1006ListenPort_EFun (SX_DEC_CTRL *sxDecCtrl) + { +ST_BOOLEAN rc; +ST_CHAR *str; +ST_INT strLen; + + rc = sx_get_string_ptr (sxDecCtrl, &str, &strLen); + if (rc != SD_SUCCESS) + return; + +#if defined (TP0_ENABLED) /* Just ignore if disabled. */ + if (!init_dirser_called) + { + ST_UINT16 uShortInt = 0; + + if (asciiToUint16(str,&uShortInt) != SD_SUCCESS) + { + SXLOG_ERR0 ("ERROR: Rfc1006_Listen_Port Data Conversion Error"); + sxDecCtrl->errCode = SX_ERR_CONVERT; + } + else + { + tp0_cfg.rfc1006_listen_port = uShortInt; + } + } +#endif /* TP0_ENABLED */ + } + +/************************************************************************/ +/************************************************************************/ +/* _session_SFun */ +/************************************************************************/ + +static ST_VOID _session_SFun (SX_DEC_CTRL *sxDecCtrl) + { + SX_PUSH (sessionElements); + } + +/************************************************************************/ +/* _disconnectTimeout_EFun */ +/************************************************************************/ + +static ST_VOID _disconnectTimeout_EFun (SX_DEC_CTRL *sxDecCtrl) + { +ST_BOOLEAN rc; +ST_CHAR *str; +ST_INT strLen; + +ST_UINT16 uShortInt = 0; + + rc = sx_get_string_ptr (sxDecCtrl, &str, &strLen); + if (rc != SD_SUCCESS) + return; + + if (!init_dirser_called) + { + if (asciiToUint16(str,&uShortInt) != SD_SUCCESS) + { + SXLOG_ERR0 ("ERROR: Session Disconnect_Timeout Data Conversion Error"); + sxDecCtrl->errCode = SX_ERR_CONVERT; + } + else + { + session_cfg.disconnect_timeout = uShortInt; + } + } + } + +/************************************************************************/ +/************************************************************************/ +/* _networkAddressing_SFun */ +/************************************************************************/ + +static ST_VOID _networkAddressing_SFun (SX_DEC_CTRL *sxDecCtrl) + { + if (sxDecCtrl->reason == SX_ELEMENT_START) + { + /* CRITICAL: Always start with empty temporary DIB Table linked lists */ + /* (may be reconfiguring). */ + localTransList = NULL; + remoteTransList = NULL; + + SX_PUSH (networkAddressingElements); + } + + if (sxDecCtrl->reason == SX_ELEMENT_END) + { + /* save link list data from configuartion file parse in tables */ + save_loc_rem_dib_tables (); + printDibEntry (); + + rem_section_flag = SD_FALSE; + init_dirser_called = SD_TRUE; + } + } + +/************************************************************************/ +/* _localAddresses_SFun */ +/************************************************************************/ + +static ST_VOID _localAddresses_SFun (SX_DEC_CTRL *sxDecCtrl) + { + SX_PUSH (LocalAddressesElements); + } + +/************************************************************************/ +/************************************************************************/ +/* _localArName_SFun */ +/************************************************************************/ + +static ST_VOID _localArName_SFun (SX_DEC_CTRL *sxDecCtrl) + { + SX_PUSH (LocalArNameElements); + + if (!init_dirser_called) + { /* Don't alloc if reconfiguring. */ + currTransEl = (TRANS_DEV_INFO *) chk_calloc (1, sizeof(TRANS_DEV_INFO)); +#if defined(MMSEASE_MOSI) + currTransEl->pres_addr.tp_type = TP_TYPE_TCP; /* Default=TCP */ + /* preset IP addr to be local system (used in loop back connection) */ + if ((currTransEl->pres_addr.netAddr.ip = tp0_convert_ip ("127.0.0.1")) + == htonl(INADDR_NONE)) + { + SXLOG_ERR1 ("NetAddr Type=IPADDR '%s' invalid", "127.0.0.1"); + sxDecCtrl->errCode = SX_ERR_CONVERT; + } +#else + currTransEl->pres_addr.tp_type = TP_TYPE_TP4; /* Default=TP4 */ +#endif + list_add_last (&localTransList, currTransEl); + } + } + +/************************************************************************/ +/* _arname_EFun */ +/************************************************************************/ + +static ST_VOID _arname_EFun (SX_DEC_CTRL *sxDecCtrl) + { +ST_BOOLEAN rc; +ST_CHAR *str; +ST_INT strLen; + + rc = sx_get_string_ptr (sxDecCtrl, &str, &strLen); + if (rc != SD_SUCCESS) + return; + + + if ((!init_dirser_called) || + (init_dirser_called && rem_section_flag == SD_TRUE)) + { + if (!str) + { + SXLOG_ERR0 ("ERROR: AR_Name Error"); + } + else if (strlen (str) > CFG_MAX_AR_NAME) + { + SXLOG_ERR0 ("ERROR: AR_Name Error"); + sxDecCtrl->errCode = SX_ERR_CONVERT; + } + else + strcpy (currTransEl->name, str); + } + } + +/************************************************************************/ +/* _apTitle_EFun */ +/************************************************************************/ + +static ST_VOID _apTitle_EFun (SX_DEC_CTRL *sxDecCtrl) + { +ST_BOOLEAN rc; +ST_CHAR *str; +ST_INT strLen; + + rc = sx_get_string_ptr (sxDecCtrl, &str, &strLen); + if (rc != SD_SUCCESS) + return; + + if ((!init_dirser_called) || + (init_dirser_called && rem_section_flag == SD_TRUE)) + { + if (!str) + { + SXLOG_ERR0 ("ERROR: AP_Title Error"); + } + else if (strlen (str) > CFG_MAX_AR_NAME) + { + SXLOG_ERR0 ("ERROR: AP_Title Error"); + sxDecCtrl->errCode = SX_ERR_CONVERT; + } + else + strcpy (currTransEl->apTitle, str); + } + } + +/************************************************************************/ +/* _aeQualifier_EFun */ +/************************************************************************/ + +static ST_VOID _aeQualifier_EFun (SX_DEC_CTRL *sxDecCtrl) +{ +ST_BOOLEAN rc; +ST_CHAR *str; +ST_INT strLen; + + rc = sx_get_string_ptr (sxDecCtrl, &str, &strLen); + if (rc != SD_SUCCESS) + return; + + + if ((!init_dirser_called) || + (init_dirser_called && rem_section_flag == SD_TRUE)) + { + if (!str) + { + SXLOG_ERR0 ("ERROR: AE_Qualifier Error"); + } + else if (strlen (str) > CFG_MAX_AR_NAME) + { + SXLOG_ERR0 ("ERROR: AE_Qualifier Error"); + sxDecCtrl->errCode = SX_ERR_CONVERT; + } + else + strcpy (currTransEl->aeQual, str); + } + } + +/************************************************************************/ +/* _psel_EFun */ +/************************************************************************/ + +static ST_VOID _psel_EFun (SX_DEC_CTRL *sxDecCtrl) + { +ST_BOOLEAN rc; +ST_CHAR *str; +ST_INT strLen; + +ST_UINT hexStrLen = 0; + + rc = sx_get_string_ptr (sxDecCtrl, &str, &strLen); + if (rc != SD_SUCCESS) + return; + + if ((!init_dirser_called) || + (init_dirser_called && rem_section_flag == SD_TRUE)) + { + if (ascii_to_hex_str (currTransEl->pres_addr.psel,&hexStrLen,MAX_PSEL_LEN,str) + == SD_SUCCESS) + { + currTransEl->pres_addr.psel_len = hexStrLen; + } + else + { + /*cfg_set_config_err();*/ + SXLOG_ERR0 ("ERROR: Psel Data Conversion Error"); + sxDecCtrl->errCode = SX_ERR_CONVERT; + } + } + } + +/************************************************************************/ +/* _ssel_EFun */ +/************************************************************************/ + +static ST_VOID _ssel_EFun (SX_DEC_CTRL *sxDecCtrl) + { +ST_BOOLEAN rc; +ST_CHAR *str; +ST_INT strLen; + +ST_UINT hexStrLen = 0; + + rc = sx_get_string_ptr (sxDecCtrl, &str, &strLen); + if (rc != SD_SUCCESS) + return; + + if ((!init_dirser_called) || + (init_dirser_called && rem_section_flag == SD_TRUE)) + { + if (ascii_to_hex_str (currTransEl->pres_addr.ssel,&hexStrLen,MAX_SSEL_LEN,str) + == SD_SUCCESS) + { + currTransEl->pres_addr.ssel_len = hexStrLen; + } + else + { + SXLOG_ERR0 ("ERROR: Ssel Data Conversion Error"); + sxDecCtrl->errCode = SX_ERR_CONVERT; + } + } + } + +/************************************************************************/ +/* _tsel_EFun */ +/************************************************************************/ + +static ST_VOID _tsel_EFun (SX_DEC_CTRL *sxDecCtrl) + { +ST_BOOLEAN rc; +ST_CHAR *str; +ST_INT strLen; + +ST_UINT hexStrLen = 0; + + rc = sx_get_string_ptr (sxDecCtrl, &str, &strLen); + if (rc != SD_SUCCESS) + return; + + if ((!init_dirser_called) || + (init_dirser_called && rem_section_flag == SD_TRUE)) + { + if (ascii_to_hex_str (currTransEl->pres_addr.tsel,&hexStrLen,MAX_TSEL_LEN,str) + == SD_SUCCESS) + { + currTransEl->pres_addr.tsel_len = hexStrLen; + } + else + { + SXLOG_ERR0 ("ERROR: Tsel Data Conversion Error"); + sxDecCtrl->errCode = SX_ERR_CONVERT; + } + } + } + +/************************************************************************/ +/* _transportType_EFun */ +/************************************************************************/ + +static ST_VOID _transportType_EFun (SX_DEC_CTRL *sxDecCtrl) + { +ST_BOOLEAN rc; +ST_CHAR *str; +ST_INT strLen; + + rc = sx_get_string_ptr (sxDecCtrl, &str, &strLen); + if (rc != SD_SUCCESS) + return; + + + if (!str) + { + SXLOG_ERR0 ("ERROR: TransportType Data Conversion Error"); + } + else + { + if (stricmp (str, "TCP") == 0) + currTransEl->pres_addr.tp_type = TP_TYPE_TCP; +#if !defined(MMSEASE_MOSI) + else if (stricmp (str, "TP4") == 0) + currTransEl->pres_addr.tp_type = TP_TYPE_TP4; + else if (stricmp (str, "TPX") == 0) + { + currTransEl->pres_addr.tp_type = TP_TYPE_TPX; + } +#endif /* !defined(MMSEASE_MOSI) */ + else + { + SXLOG_ERR0 ("ERROR: Invalid TransportType Data Conversion Error"); + sxDecCtrl->errCode = SX_ERR_CONVERT; + } + } + + } + +/************************************************************************/ +/************************************************************************/ +/* _remoteAddresses_SFun */ +/************************************************************************/ + +static ST_VOID _remoteAddresses_SFun (SX_DEC_CTRL *sxDecCtrl) + { + SX_PUSH (RemoteAddressesElements); + } + +/************************************************************************/ +/* _remoteArName_SFun */ +/************************************************************************/ + +static ST_VOID _remoteArName_SFun (SX_DEC_CTRL *sxDecCtrl) + { + SX_PUSH (RemoteArNameElements); + + currTransEl = (TRANS_DEV_INFO *) chk_calloc (1, sizeof(TRANS_DEV_INFO)); +#if defined(MMSEASE_MOSI) + currTransEl->pres_addr.tp_type = TP_TYPE_TCP; /* Default=TCP */ +#else + currTransEl->pres_addr.tp_type = TP_TYPE_TP4; /* Default=TP4 */ +#endif + list_add_last (&remoteTransList, currTransEl); + + rem_section_flag = SD_TRUE; + } + +/************************************************************************/ +/* _netAddr_EFun */ +/************************************************************************/ + +static ST_VOID _netAddr_EFun (SX_DEC_CTRL *sxDecCtrl) + { +ST_BOOLEAN rc; +ST_CHAR *str; +ST_INT strLen; + + rc = sx_get_string_ptr (sxDecCtrl, &str, &strLen); + if (rc != SD_SUCCESS) + return; + + if (stricmp(sxDecCtrl->sxDecElInfo.attr[0].value, "IPADDR")==0) + { +#if defined (TP0_ENABLED) /* Just ignore if disabled. */ + if (!str) + { + SXLOG_ERR0 ("NetAddr Type=IPADDR Data Conversion Error: null string"); + sxDecCtrl->errCode = SX_ERR_CONVERT; + } + else + { + currTransEl->pres_addr.tp_type = TP_TYPE_TCP; + if ((currTransEl->pres_addr.netAddr.ip = tp0_convert_ip (str)) + == htonl(INADDR_NONE)) + { + SXLOG_ERR1 ("NetAddr Type=IPADDR '%s' invalid", str); + sxDecCtrl->errCode = SX_ERR_CONVERT; + } + } +#else + SXLOG_ERR1 ("NetAddr Type=IPADDR not allowed in RemoteAddress='%s' (TCP not supported). This entry ignored.", currTransEl->name); + list_unlink (&remoteTransList, currTransEl); /* discard this address*/ +#endif + } + +#if !defined(MMSEASE_MOSI) + else if (stricmp(sxDecCtrl->sxDecElInfo.attr[0].value, "NSAP")==0) + { +#if defined (TP4_ENABLED) /* Just ignore if disabled. */ +ST_UINT hexStrLen=0; + /* NSAP valid only for remote DIB */ + /* NOTE: array size is MAX_IP_ADDR_LEN. Must be >= CLNP_MAX_LEN_NSAP.*/ + if (ascii_to_hex_str (currTransEl->pres_addr.netAddr.nsap,&hexStrLen,CLNP_MAX_LEN_NSAP,str) + == SD_SUCCESS) + { + currTransEl->pres_addr.nsap_len = hexStrLen; + currTransEl->pres_addr.tp_type = TP_TYPE_TP4; + } + else + { + /*cfg_set_config_err();*/ + SXLOG_ERR0 ("NetAddr Type=NSAP Data Conversion Error"); + } +#else + SXLOG_ERR1 ("NetAddr Type=NSAP not allowed in RemoteAddress='%s' (OSI not supported). This entry ignored.", currTransEl->name); + list_unlink (&remoteTransList, currTransEl); /* discard this address*/ +#endif + } +#endif /* !defined(MMSEASE_MOSI) */ + + else + { + SXLOG_ERR1 ("NetAddr Type='%s' invalid", sxDecCtrl->sxDecElInfo.attr[0].value); + sxDecCtrl->errCode = SX_ERR_CONVERT; + } + } + +/************************************************************************/ +/* _port_EFun */ +/************************************************************************/ + +static ST_VOID _port_EFun (SX_DEC_CTRL *sxDecCtrl) + { +ST_BOOLEAN rc; +ST_CHAR *str; +ST_INT strLen; + + rc = sx_get_string_ptr (sxDecCtrl, &str, &strLen); + if (rc != SD_SUCCESS) + return; + +#if defined (TP0_ENABLED) /* Just ignore if disabled. */ + if (!init_dirser_called) + { + ST_UINT16 uShortInt = 0; + + if (asciiToUint16(str,&uShortInt) != SD_SUCCESS) + { + SXLOG_ERR0 ("ERROR: Port Data Conversion Error"); + sxDecCtrl->errCode = SX_ERR_CONVERT; + } + else + { + currTransEl->pres_addr.port = uShortInt; + } + } +#endif /* TP0_ENABLED */ + } + + +/************************************************************************/ +/* save_loc_rem_dib_tables */ +/*----------------------------------------------------------------------*/ +/* This function will initialize local and remote dib entries tables. */ +/* */ +/* Parameters: */ +/* void none */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if initialization successful. */ +/* SD_FAILURE (1) otherwise */ +/* NOTES: Does not allow reconfiguration of loc_dib_table. */ +/* Allows reconfiguration of rem_dib_table, but only after */ +/* freeing the old table. */ +/************************************************************************/ + +static ST_RET save_loc_rem_dib_tables (void) + { +ST_RET ret; +ST_INT j; + + ret = SD_SUCCESS; + + if (!init_dirser_called) /* Don't allow reconfiguring. */ + { + num_loc_dib_entries = list_get_sizeof (localTransList); + if (num_loc_dib_entries) + { + loc_dib_table = (DIB_ENTRY *) chk_calloc (num_loc_dib_entries, sizeof (DIB_ENTRY)); + save_dib_table (localTransList, loc_dib_table); + } + } + + /* If Remote DIB table already configured, FREE OLD BEFORE ALLOCATING NEW!*/ + if (init_dirser_called) + { + for (j = 0; j < num_rem_dib_entries; j++) + chk_free (rem_dib_table [j].name); + chk_free (rem_dib_table); + } + + num_rem_dib_entries = list_get_sizeof (remoteTransList); + if (num_rem_dib_entries) + { + rem_dib_table = (DIB_ENTRY *) chk_calloc (num_rem_dib_entries, sizeof (DIB_ENTRY)); + save_dib_table (remoteTransList, rem_dib_table); + } + return (ret); + } + +/************************************************************************/ +/* save_dib_table */ +/*----------------------------------------------------------------------*/ +/* This function copies the temporary DIB Table to the permanent */ +/* DIB Table. It may be used for the Local as well as the Remote DIB */ +/* Tables. */ +/* */ +/* Parameters: */ +/* TRANS_DEV_INFO * temporary table (linked list of structs) */ +/* DIB_ENTRY * permanent table (array of structs) */ +/* */ +/************************************************************************/ + +static ST_VOID save_dib_table (TRANS_DEV_INFO *TransList, DIB_ENTRY *de) + { +TRANS_DEV_INFO *toFree; +TRANS_DEV_INFO *d; + + d = TransList; /* Point to first in linked list */ + while (d) + { + de->name = (ST_CHAR *) chk_malloc (strlen(d->name) + 1); + strcpy (de->name, d->name); + if (strlen (d->apTitle)) + { + if (parseObjId (&de->AP_title, d->apTitle)) + { + ACSELOG_ERR1 ("Invalid AP Title '%s'. Ignored.", d->apTitle); + } + else + de->AP_title_pres = SD_TRUE; /* defaults to FALSE */ + } + + if (strlen (d->aeQual)) + { + de->AE_qual_pres = SD_TRUE; /* defaults to FALSE */ + de->AE_qual = atol (d->aeQual); + } + + de->AP_inv_id_pres = SD_FALSE; + de->AE_inv_id_pres = SD_FALSE; + + memcpy (&de->pres_addr, &d->pres_addr, sizeof (PRES_ADDR)); + + toFree = d; + d = (TRANS_DEV_INFO *) list_get_next (TransList, d); /* Point to next TRANS_DEV_INFO */ + chk_free (toFree); + ++de; /* Point to next DIB_ENTRY */ + } /* End "while" */ + + TransList = NULL; /* CRITICAL: clean up in case reconfigure later.*/ + } + +/************************************************************************/ +/* parseObjId */ +/*----------------------------------------------------------------------*/ +/* Parses components of the 'ApTitle'. */ +/************************************************************************/ + +static ST_RET parseObjId (MMS_OBJ_ID *objId, ST_CHAR *buff) + { +char *numStr; +ST_CHAR *seps = " \t"; /* delimiters to search for */ + + /* Found keyword 'ApTitle', read the components */ + objId->num_comps = 0; + numStr = get_next_string (&buff, seps); /* "buff" ptr changes */ + while (numStr && strlen (numStr) > 0) + { + if (objId->num_comps >= MAX_OBJID_COMPONENTS) + { + return (SD_FAILURE); + } + objId->comps[objId->num_comps] = (ST_INT16) atoi (numStr); + numStr = get_next_string (&buff, seps); /* "buff" ptr changes */ + ++objId->num_comps; + } + if (objId->num_comps == 0) /* couldn't parse anything */ + return (SD_FAILURE); + return (SD_SUCCESS); + } + +/************************************************************************/ +/* printDibEntry */ +/************************************************************************/ +static ST_VOID printDibEntry (ST_VOID) +{ +DIB_ENTRY *de; +ST_INT i; +ST_INT table_type; + + SXLOG_DEBUG0 (" LOCAL DIB TABLE"); + + for (i = 0; i < num_loc_dib_entries; i++) + { + table_type = LOCAL_DIB_TABLE; + de = &loc_dib_table[i]; + printDibStruct(de,table_type); + } + + SXLOG_DEBUG0 (" REMOTE DIB TABLE"); + + for (i = 0; i < num_rem_dib_entries; i++) + { + table_type = REMOTE_DIB_TABLE; + de = &rem_dib_table[i]; + printDibStruct(de,table_type); + } + + } + +/************************************************************************/ +/* printDibStruct */ +/************************************************************************/ +static ST_VOID printDibStruct (DIB_ENTRY *de,ST_INT table_type) + { +ST_INT i; +ST_UINT k; + + SXLOG_CDEBUG0 (" "); + SXLOG_CDEBUG1 (" Common_Name = %s",de->name); + SXLOG_CDEBUG1 (" local = %s ",de->local ? "SD_TRUE":"SD_FALSE"); + SXLOG_CDEBUG1 (" AP_title_pres = %s", de->AP_title_pres ? "SD_TRUE":"SD_FALSE"); + for (i = 0; i < de->AP_title.num_comps; ++i) + SXLOG_CDEBUG2 (" AP_title.comps[%d] = %d",i,de->AP_title.comps[i]); + SXLOG_CDEBUG2 (" AE_qual_pres = %s AE_qual = %ld", + de->AE_qual_pres ? "SD_TRUE":"SD_FALSE",de->AE_qual); + SXLOG_CDEBUG2 (" AP_inv_id_pres = %s AP_invoke_id = %ld", + de->AP_inv_id_pres ? "SD_TRUE":"SD_FALSE",de->AP_invoke_id); + SXLOG_CDEBUG2 (" AE_inv_id_pres = %s AE_invoke_id = %ld", + de->AE_inv_id_pres ? "SD_TRUE":"SD_FALSE",de->AE_invoke_id); + + SXLOG_CDEBUG1 (" psel_len = %d psel =",de->pres_addr.psel_len); + for (k = 0; k < de->pres_addr.psel_len; k++) + SXLOG_CDEBUG1 (" %02x",de->pres_addr.psel[k]); + + SXLOG_CDEBUG1 (" ssel_len = %d ssel =",de->pres_addr.ssel_len); + for (k = 0; k < de->pres_addr.ssel_len; k++) + SXLOG_CDEBUG1 (" %02x",de->pres_addr.ssel[k]); + + SXLOG_CDEBUG1 (" tsel_len = %d tsel =",de->pres_addr.tsel_len); + for (k = 0; k < de->pres_addr.tsel_len; k++) + SXLOG_CDEBUG1 (" %02x",de->pres_addr.tsel[k]); + + if (de->pres_addr.tp_type == TP_TYPE_TCP) + { + SXLOG_CDEBUG1 (" tp_type = %s ","TCP"); + } + else if (de->pres_addr.tp_type == TP_TYPE_TP4) + { + SXLOG_CDEBUG1 (" tp_type = %s ","TP4"); + } + else if (de->pres_addr.tp_type == TP_TYPE_TPX) + { + SXLOG_CDEBUG1 (" tp_type = %s ","TPX"); + } + + + if (table_type == REMOTE_DIB_TABLE) + { + if (de->pres_addr.tp_type == TP_TYPE_TP4) + { + SXLOG_CDEBUG1 (" nsap_len = %d nsap =",de->pres_addr.nsap_len); + for (k = 0; k < de->pres_addr.nsap_len; k++) + SXLOG_CDEBUG1 (" %02x",de->pres_addr.netAddr.nsap[k]); + } + +#if defined(TP0_ENABLED) + if (de->pres_addr.tp_type == TP_TYPE_TCP) + { + struct in_addr sin_addr; /* inet_ntoa needs this addr format*/ + sin_addr.s_addr = de->pres_addr.netAddr.ip; + SXLOG_CDEBUG1 (" ip_addr (s) = %s",inet_ntoa (sin_addr)); + SXLOG_CDEBUG1 (" port = %s",de->pres_addr.port); + } +#endif + } + + } +/*#endif*/ /* if defined 0 */ diff --git a/mmslib/ositcps/tp0_dec.c b/mmslib/ositcps/tp0_dec.c new file mode 100644 index 0000000..735aabc --- /dev/null +++ b/mmslib/ositcps/tp0_dec.c @@ -0,0 +1,181 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1997 All Rights Reserved */ +/* */ +/* MODULE NAME : tp0_dec.c */ +/* PRODUCT(S) : Lean-T Stack */ +/* */ +/* MODULE DESCRIPTION : */ +/* TP0 decode functions. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* np_data_ind () */ +/* np_disconnect_ind () */ +/* np_connect_cnf_pos () */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 10/22/08 JRB 06 TPDU must be at least 2 bytes to decode. */ +/* Chg tp_decode_er to really decode ER TPDU. */ +/* 04/07/03 JRB 05 Add SPDU_RX_NO_PREALLOCATE option. */ +/* 04/13/00 JRB 04 Lint cleanup. */ +/* 08/13/98 JRB 03 Lint cleanup. */ +/* 09/25/97 JRB 02 Don't generate exception for invalid state. */ +/* 08/01/97 JRB 01 Created (compatible with MMS-EASE 7.0). */ +/************************************************************************/ +#include "glbtypes.h" +#include "sysincs.h" +#include "mem_chk.h" +#include "tp4api.h" /* User definitions for tp4 */ +#include "tp4.h" /* Internal definitions for tp4 */ +#include "tp4_encd.h" +#include "tp4_log.h" + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/* np_data_ind */ +/* This "np_data_ind" funct is similar to "tp_decode_nsdu" used for TP4.*/ +/* It calls one function to decode the PDU, then another function to */ +/* process it. The "decode" functions are shared with TP4. */ +/************************************************************************/ +ST_VOID np_data_ind (SOCK_INFO *sock_info, ST_UCHAR *pdu_ptr, ST_UINT16 pdu_len) + { +ST_UCHAR type; +ST_UINT16 len; /* len of processed TPDU by a dec func */ +TPDU_CX tpdu_cx_rx; /* tpdu_cr_rx or tpdu_cc_rx */ +TPDU_DR tpdu_dr_rx; +TPDU_DT tpdu_dt_rx; +TPDU_ER tpdu_er_rx; + + /* TP0 TPDU starts after TPKT hdr (RFC1006_HEAD_LEN bytes). */ + /* TPDU must be at least 2 bytes (len and TPDU code) to safely decode.*/ + if (pdu_len < RFC1006_HEAD_LEN + 2) + { + TP_LOG_ERR0 ("TP0 TPDU too short to decode. Ignored."); + return; + } + + /* Strip off TPKT header. */ + pdu_len -= RFC1006_HEAD_LEN; + pdu_ptr += RFC1006_HEAD_LEN; + + /* get the TPDU type (from the second octet, bits 4-7) */ + type = pdu_ptr [1] & TP_PDU_MASK_CDT; + + /* Based on type of TPDU (CR, CC, DT, etc.) call appropriate decode */ + /* subfunction. */ + + switch (type) + { + case TP_PDU_TYPE_CR: + case TP_PDU_TYPE_CC: + if ((len = tp_decode_cx (&tpdu_cx_rx, pdu_ptr, pdu_len, type, + TP_PDU_MAX_SIZE_65531)) != 0) /* Default TPDU size=65531*/ + { + tpdu_cx_rx.sock_info = sock_info; + + tp_log_tsdu ((ST_VOID *) &tpdu_cx_rx, type, TP_IND); + /* This is the only step different in processing CR or CC. */ + if (type == TP_PDU_TYPE_CR) + tp0_process_cr (&tpdu_cx_rx); + else + tp0_process_cc (&tpdu_cx_rx); + } + break; + + case TP_PDU_TYPE_DR: + if ((len = tp_decode_dr (&tpdu_dr_rx, pdu_ptr, pdu_len)) != 0) + { + tpdu_dr_rx.sock_info = sock_info; + + tp_log_tsdu ((ST_VOID *) &tpdu_dr_rx, TP_PDU_TYPE_DR, TP_IND); + tp0_process_dr (&tpdu_dr_rx); + } + break; + + case TP_PDU_TYPE_DT: + if ((len = tp0_decode_dt (&tpdu_dt_rx, pdu_ptr, pdu_len)) != 0) + { + tpdu_dt_rx.sock_info = sock_info; + + tp_log_tsdu ((ST_VOID *) &tpdu_dt_rx, TP_PDU_TYPE_DT, TP_IND); + tp0_process_dt (&tpdu_dt_rx); + } + break; + + case TP_PDU_TYPE_ER: + /* NOTE: the last arg indicates this is Transport Class 0. */ + if ((len = tp_decode_er (&tpdu_er_rx, pdu_ptr, pdu_len, 0)) > 0) + { + /* decode succeeded but we ignore ER TPDU. Log so user knows.*/ + TP_LOG_ERR0 ("DEBUG: processing of TPDU-ER.ind not implemented yet."); + } + break; + + case TP_PDU_TYPE_ED: /* we do not support expedited data */ + case TP_PDU_TYPE_EA: + TP_LOG_ERR0 ("TP-ERROR: decode ED or EA TPDU failed (not supported)"); + break; /* Do nothing */ + + default: /* type unknown, we should exit decoding */ + TP_LOG_ERR1 ("TP-ERROR: decode TPDU failed (invalid type 0x%2.2X)", + (unsigned) type); + break; + } /* end "switch" */ + } +/************************************************************************/ +/* np_disconnect_ind */ +/************************************************************************/ +ST_VOID np_disconnect_ind (SOCK_INFO *sock_info) + { +TP0_CONN *tp_conn; +ST_INT reason; /* Transport Disconnect reason */ + + if (sock_info->user_conn_id == INVALID_CONN_ID) + return; /* Transport doesn't know about connection yet. IGNORE. */ + + tp_conn = (TP0_CONN *) sock_info->user_conn_id; + switch (tp_conn->state) + { + case TP_STATE_WFNC: + case TP_STATE_WFCC: + case TP_STATE_OPEN: + case TP_STATE_WFTRESP: + reason = 0; /* Normal disconnection */ + /* NOTE: To save memory, user data is never passed up to user. */ + tp4_disconnect_ind (tp_conn->user_conn_id, reason, + 0, NULL); /* No user data passed up. */ + tp_conn->state = TP_STATE_CLOSED; +#if defined(SPDU_RX_NO_PREALLOCATE) + M_FREE (MSMEM_STARTUP, tp_conn->spdu_rx.spdu_ptr); +#endif + break; + default: + TP_LOG_ERR1 ("TP-ERROR: invalid state (%d) for N-DISCONNECT.ind. Ignored.", + tp_conn->state); + break; + } + } +/************************************************************************/ +/* np_connect_cnf_pos */ +/************************************************************************/ +ST_VOID np_connect_cnf_pos (SOCK_INFO *sock_info, ST_LONG user_conn_id) + { +TP0_CONN *tp_conn = (TP0_CONN *) user_conn_id; + + /* Save sock_info ptr in tp_conn. */ + tp_conn->sock_info = sock_info; + + /* CRITICAL: Save sock_info in tp_conn->tpdu_cx before calling tp0_send_cr*/ + tp_conn->tpdu_cx.sock_info = tp_conn->sock_info; + + /* Send T-CONNECT.req */ + tp0_send_cr (&tp_conn->tpdu_cx); + tp_conn->state = TP_STATE_WFCC; + } diff --git a/mmslib/ositcps/tp0_socks.c b/mmslib/ositcps/tp0_socks.c new file mode 100644 index 0000000..22ba69c --- /dev/null +++ b/mmslib/ositcps/tp0_socks.c @@ -0,0 +1,1937 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2003-2008, All Rights Reserved */ +/* */ +/* MODULE NAME : tp0_socks.c */ +/* PRODUCT(S) : Lean-T Stack */ +/* */ +/* MODULE DESCRIPTION : */ +/* TP0 functions for dealing with secured sockets interface (SSL). */ +/* Uses "gensock2" as intermediate interface to sockets. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 10/10/08 JRB 38 _uSockHunt: make sure len is legal. */ +/* Ignore empty msg (len=RFC1006_HEAD_LEN). */ +/* 02/21/08 EJV 37 _uSockHunt: corr lenOut for 0x8000-0xFFFF len*/ +/* 09/10/07 MDE 36 Updated to use new SOCK_LOG_ macros */ +/* 02/16/07 JRB 35 Use new sockEventPut, sockEventGet functions */ +/* and new "uSockConnectInd/Conf" funct ptrs. */ +/* 01/30/07 JRB 34 readyToFree flag was deleted so don't use it.*/ +/* 01/15/07 JRB 33 Del poll_mode arg to sockStart. */ +/* 01/15/07 EJV 32 Rpl TP0_SOCKS_MUTEX_* with S_LOCK_UTIL_RESOURCES */ +/* due to mutex changes in gensock2.c. */ +/* TP0_SOCK_CTX: rem listsMutex create/destroy. */ +/* 12/11/06 EJV 31 rfc1006_listener_connect: chg nonblock_on */ +/* from ST_LONG to int. */ +/* Needed on 64-bit UNIX, Linux systems. */ +/* 11/29/06 EJV 30 recvwait_fd: chg __hpux to use the SCM_RIGHTS*/ +/* 11/17/06 EJV 29 socket funs: added (int) cast, the HP-UX */ +/* ssize_t is long. */ +/* recvwait_fd: impl timeout for recvmsg loop */ +/* 11/07/06 EJV 28 MMSEASE_MOSI:init tp0Ctx.tcpEventWakeupPort=0*/ +/* 07/10/06 EJV 27 MMSEASE_MOSI: finished GEN_SOCK_CTXT work. */ +/* Use sysincs.h for system includes. */ +/* Changed sun to s_un (err on Sun Solaris) */ +/* 01/30/06 GLB 26 Integrated porting changes for VMS */ +/* 12/15/05 EJV 24 _processDisconnectInd: call list_find_node */ +/* 12/07/05 EJV 23 _processDisconnectInd: unlink if on the list */ +/* _processConnectDone: moved secEnable code to */ +/* case for SOCK_STATE_CONNECTED state. */ +/* 10/04/05 EJV 22 Implemented GEN_SOCK_CTXT and other changes: */ +/* Renamed orginal SOCK_CTX to TP0_SOCK_CTX, */ +/* sockCtx to tp0Ctx. */ +/* _uSockDisconnectInd: mk errptr more readable */ +/* _addSockInd: chg to ST_RET from ST_VOID */ +/* _sockClose: moved code to _sockCloseAllListen*/ +/* np_end: added new call to _sockCloseAllListen*/ +/* Rpl GSOCK_MUTEX_* with TP0_SOCKS_MUTEX_*. */ +/* Folded some glb vars into the TP0_SOCK_CTX. */ +/* Reversed Rev 21 change, not needed anymore. */ +/* 08/03/05 EJV 20 Reworked rekeyTime to be per connection. */ +/* Use sockCtx glb (instead saving it in usr1). */ +/* 07/19/05 EJV 19 _processConnectInd: set usr2 back to NULL. */ +/* _processConnectDone: if secEnable don't free */ +/* sock_info. Check state. */ +/* np_disconnect_req:check other states, add log*/ +/* 07/01/05 EJV 18 _uSockWritable CORR: removed state chg. */ +/* 06/24/05 EJV 17 Added code to prevent queues buildup. */ +/* 05/02/05 JRB 16 Add RFC1006_LISTENER task code (MMSEASE_MOSI)*/ +/* EJV Added _sockSetDefaults. */ +/* 05/05/05 EJV 15 Use rfc1006_listen_port if configured */ +/* 04/21/05 JRB 14 Fix logging of sin_port (use ntohs). */ +/* Del unused vars. */ +/* 04/13/05 EJV 13 Corr EADDRINUSE to SOCK_EADDRINUSE */ +/* 03/22/05 EJV 12 LINUX (MMSEASE_MOSI): implemented events. */ +/* _sockInitListen: allow to SO_REUSEADDR. */ +/* Added indTypeStr. Added/chg logging. */ +/* 03/16/05 JRB 11 _uSockHunt: allow any val for 2nd byte & */ +/* ret ..HUNT_DISCONNECT on err to cause disconn*/ +/* For speed, set ptr to strings instead of strcpy.*/ +/* Use RFC1006 defines from tp0_sock.h. */ +/* 03/07/05 EJV 10 Fixed queuing bug where connectInd sometimes */ +/* processed AFTER disconnectInd by moving */ +/* sec cleanup from _uSockDisconnectInd to */ +/* _processDisconnectInd. */ +/* Moved sec code from _uSockConnectDone to */ +/* _processConnectDone,for consistency w/con ind*/ +/* Use secEnable (in place of other sec fields) */ +/* 02/19/04 EJV 09 np_end: chg sleep from 1000 to 100 ms */ +/* 02/18/04 JRB 08 _uSockDisconnectInd: DON'T chk state, only */ +/* safe from main thread (_processDisconnectInd)*/ +/* np_end: allow disconnects to finish. */ +/* 02/06/04 JRB 07 np_disconnect_req:Chg assert to log & ret err*/ +/* 01/28/04 EJV 06 _handleRekeying:chk if connected before rekey*/ +/* 01/23/04 EJV 05 np_data_req: sockTxMsg will free sockData. */ +/* 01/21/04 JRB 04 Do most disconnect processing in callback */ +/* _uSockDisconnectInd. */ +/* EJV Change test for rekey to '>=' */ +/* 01/14/04 EJV 03 np_data_req: added eot param. */ +/* Free buff if sockTxMsg fails. */ +/* Added np_get_tx_queue_cnt func. */ +/* 10/16/03 JRB 02 Port to LINUX. Chg SOCKET to (GEN_SOCK *). */ +/* Compare (GEN_SOCK *) to NULL, not INVALID_...*/ +/* 07/29/03 EJV 01 New. Replacement for tp0_sock.c using */ +/* gensock2 to interface to sockets. */ +/* Used tp0_sock2.c and snapmain.c */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" + +#include "mem_chk.h" +#include "ssec.h" +#include "ssec_int.h" +#include "tp4api.h" /* User definitions for tp4 */ +#include "tp4.h" /* Internal definitions for tp4 */ +#include "tp4_log.h" +#include "tp0_sock.h" +#include "sock_log.h" +#if defined(MMSEASE_MOSI) +#include "gensock2.h" +#endif + +#ifdef MMS_LITE +#include "mvl_acse.h" /* Need "mvl_num_called". */ +#endif + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/* This many messages can accumulate in the receiving ind queue */ +/* for given socket before we stop receiving, start receiving after */ +/* we reach low mark. */ +#define SOCK_RX_QUE_HIGH_MARK 10 /* >= stop receiving */ +#define SOCK_RX_QUE_LOW_MARK 1 /* <= start receiving */ + +ST_CHAR *eventTypeStr[5] = + { + "UNKNOWN", + "CONNECT_IND", + "CONNECT_CONF", + "DISCONNECT", + "RXDATA" + }; + +/* Similar to sock_info_alloc but uses GEN_SOCK. */ +SOCK_INFO *sock_info_alloc2 (GEN_SOCK *genSock, ST_INT state, ST_LONG user_conn_id); + +/* Functions to process indications/events. */ +static ST_RET _setSecInfo (GEN_SOCK *pSock, S_SEC_ENCRYPT_CTRL *encrypt_ctrl); +static ST_VOID _processConnectInd (GEN_SOCK *pSock); +static ST_VOID _processConnectDone (GEN_SOCK *pSock); +static ST_VOID _processDisconnectInd (GEN_SOCK *pSock); +static ST_VOID _processRxInd (GEN_SOCK *pSock, GEN_SOCK_DATA *sockData); + +/* gensock2 callback functions */ +static ST_RET _uSockConnectDone (GEN_SOCK *pSock); +static ST_RET _uSockConnectInd (GEN_SOCK *pSock); +static ST_VOID _uSockDisconnectInd (GEN_SOCK *pSock); +static ST_VOID _uSockRxInd (GEN_SOCK *pSock, GEN_SOCK_DATA *sockData); +static ST_VOID _uSockWritable (GEN_SOCK *pSock); +static ST_VOID _uSockHunt (GEN_SOCK *pSock, ST_INT *huntStateIo, + ST_CHAR *buf, ST_INT bufCount, ST_INT *lenOut); +static ST_VOID _uSockDataAlloc (GEN_SOCK *pSock, ST_INT dataLen, + GEN_SOCK_DATA **sockDataOut); +static ST_VOID _uSockDataFree (GEN_SOCK *pSock, GEN_SOCK_DATA *sockData); + +/* misc functions */ +static ST_RET _addSockInd (GEN_SOCK *pSock, ST_INT indType, + GEN_SOCK_DATA *sockData); +static ST_RET _handleRekeying (ST_VOID); + +#define SOCK_REKEY_TIME 1000 /* check every 1000 ms if we need to rekey */ + + +/************************************************************************/ +/* Global variables. */ +/************************************************************************/ +int pipe_to_main; /* Linker needs this, but it is never used. */ + +#if defined(_WIN32) +ST_EVENT_SEM hTcpEvent; /* to notify user about network events */ +#endif + +#if defined(MMSEASE_MOSI) +/*----------------------------------------------------------------------*/ +/* NOTES: */ +/* 1. We set SO_KEEPALIVE opt on TCP sockets (in/out connections). */ +/* 2. We set SO_REUSEADDR on TCP sockets (in connections). */ +/* 3. The domain socket and TCP sockets are all non-blocking. */ +/* 4. How many fds we can FD_SET (for TCP connections in gensock2) ? */ +/* From the Linux: in the /usr/include/linux/posix_types.h the */ +/* __FD_SETSIZE is 1024 (FD_SETSIZE) */ +/* In gensock2.c there will be one service thread for every */ +/* GS_MAX_SOCK_PER_SERVICE defined to be (FD_SETSIZE - 1). */ +/*----------------------------------------------------------------------*/ + +#if !defined(GENSOCK_THREAD_SUPPORT) +#error GENSOCK_THREAD_SUPPORT must be defined for MMSEASE_MOSI +#endif + +/* NOTE: These two sockets below need to be added to user's application */ +/* select() statement. */ +/* The mms_event_fd must always be added since it indicates events on */ +/* all the TCP connections. */ +/* The domsock_listener need to be added only if the flag */ +/* use_rfc1006_listener_task=SD_TRUE. */ +SOCKET mms_event_fd = INVALID_SOCKET; /* wakeup socket, indicating TCP Events */ +SOCKET domsock_listener = INVALID_SOCKET; /* domain socket connected to the */ + /* RFC1006_LISTENER task. */ +ST_BOOLEAN use_rfc1006_listener_task = SD_TRUE; /*DEBUG:: add to tp0_cfg struct? */ +#else /* !defined(MMSEASE_MOSI) */ +ST_BOOLEAN use_rfc1006_listener_task = SD_FALSE; +#endif /* !defined(MMSEASE_MOSI) */ + +/* use macro to simplify the code */ +#define CLOSE_THIS_SOCKET(hSock) \ + { \ + if (hSock != INVALID_SOCKET) \ + { \ + CLOSE_SOCKET (hSock); \ + hSock = INVALID_SOCKET; \ + } \ + } + +/* listening socket types */ +#define SOCK_LISTEN_NON_SSL 1 +#define SOCK_LISTEN_SSL 2 + +/* Ctx state */ +#define TP0_SOCK_CTX_STATE_IDLE 0 +#define TP0_SOCK_CTX_STATE_ACTIVE 1 +#define TP0_SOCK_CTX_STATE_TERMINATING 2 + +/* struct to hold configuration and communication info for secured and */ +/* non-secured connections. */ +typedef struct tag_tp0_sock_ctx + { + ST_UINT state; /* TP0_SOCK_CTX_STATE_xxx */ + S_SEC_CONFIG *secCfg; /* ptr to global configuration */ + ST_UINT16 rfc1006Port; /* save the listen port used for RFC1006 connections */ + GEN_SOCK *remListenSock; /* listen socket for non-secured cons from remotes */ + GEN_SOCK *remListenSockSSL[S_SSL_MAX_LISTEN_PORTS]; /* tbl of secure listen sockets for */ + /* connections from remotes */ + SOCK_INFO *secureSockList; /* list of secured sockets */ + + #if defined(MMSEASE_MOSI) + ST_UINT16 tcpEventWakeupPortBase; /* base listen port */ + ST_UINT tcpEventWakeupPortRange; /* range to search for free port */ + ST_UINT16 tcpEventWakeupPort; /* actual wakeup port */ + SOCKET hTcpEventSender; /* signaled by gensock2 service thread */ + ST_CHAR listenerIPCDir[256]; /* IPC directory (where to find domsock file); */ + /* set by calling setListenerIPCDir fun. If it */ + /* is not set by user appl the default dir */ + /* RFC1006_LISTENER_IPC_PATH will be used. */ + #endif /* defined(MMSEASE_MOSI) */ + + + GEN_SOCK_CTXT *sockCtx; /* this is gensock2 context for tp0_socks.c */ + } TP0_SOCK_CTX; + +TP0_SOCK_CTX tp0Ctx; /* must be global for !GENSOCK_THREAD_SUPPORT in event2.c */ + + +static ST_RET _sockSetDefaults (GEN_SOCK_CONFIG *sockCfg); +static ST_RET _sockInitListen (ST_UINT type, ST_UINT idx, ST_INT max_num_conns); +static ST_RET _sockCloseAllListen (ST_VOID); +static ST_RET _sockClean (ST_VOID); + + /*----------------------------------------------*/ + /* MMSEASE_MOSI - RFC1006 Listener funcs */ + /*----------------------------------------------*/ + +#if defined(MMSEASE_MOSI) + +/************************************************************************/ +/* setListenerIPCDir */ +/* This function would be called by user application to set the */ +/* RFC1006_LISTENER daemon IPC directory where UNIX domain socket */ +/* should be created. If this function is not called the default path */ +/* RFC1006_LISTENER_IPC_PATH will be used. */ +/************************************************************************/ +ST_RET setListenerIPCDir (ST_CHAR *dirPath) + { +ST_RET rtn = SD_FAILURE; + + if (dirPath && strlen (dirPath) > 0) + { + strcpy (tp0Ctx.listenerIPCDir, dirPath); /* path to domsock file */ + rtn = SD_SUCCESS; + } + return (rtn); + } + + +/* This section copied exactly from tp0_unix.c */ + +/************************************************************************/ +/* This a special recv function only for receiving the socket handle */ +/* from the "rfc1006_listener" task. It waits as long as the error is */ +/* SOCK_WOULDBLOCK. On any other error, it stops waiting and returns. */ +/* This function needs to take in account that the sender may fail in */ +/* the sendmsg() by implementing timeout when waiting for the socket fd.*/ +/************************************************************************/ +ssize_t recvwait_fd (int fd, void *ptr, size_t nbytes, int *recvfd) + { +struct msghdr msg; +struct iovec iov[1]; +ssize_t ret; +int err; +ST_DOUBLE recvmsg_start; + +#define RECVMSG_TIMEOUT 10000 /* in milliseconds */ + +#if defined (OLD_WAY) + /* NOTE: On HP-UX to use the msg_accrights fields compile without */ + /* defining the -D_XOPEN_SOURCE_EXTENDED, -D_OPEN_SOURCE and */ + /* without linking the -lxnet library). */ +#else + /* NOTE: On HP-UX to use the SCM_RIGHTS msg type compile with the */ + /* -D_XOPEN_SOURCE_EXTENDED, -D_OPEN_SOURCE and link with the */ + /* -lxnet library. Without linking the libxnet.* library the */ + /* sendmsg() fails with EBADF error. */ + /* See Richard Stevens "UNIX Network Programming" book. */ + +/* this just helps get alignment right */ +union + { + struct cmsghdr cm; + char control [CMSG_SPACE(sizeof(int))]; + } control_un; +struct cmsghdr *cmptr; +#endif + + SOCK_LOG_FLOW1 ("domsock %d: in recvwait_fd()", fd); + + *recvfd = -1; /* init to invalid handle just in case the receive fails*/ + +#if defined (OLD_WAY) + msg.msg_accrights = (caddr_t) recvfd; + msg.msg_accrightslen = sizeof (int); /* must be int */ +#else + msg.msg_control = control_un.control; + msg.msg_controllen = sizeof (control_un.control); +#endif + + msg.msg_name = NULL; + msg.msg_namelen = 0; + + iov[0].iov_base = ptr; + iov[0].iov_len = nbytes; + msg.msg_iov = iov; + msg.msg_iovlen = 1; + + /* Wait for data as long as error is SOCK_WOULDBLOCK. Stop on any other error.*/ + /* NOTE: at this time there is only 1 byte of dummy data sent with this */ + /* special message, but if this is changed to more bytes then the */ + /* non-blocking recvmsg function may return with partial bytes. */ + recvmsg_start = sGetMsTime(); + while ((ret = recvmsg(fd, &msg, 0)) < 0) + { + err = SOCKET_ERRORNO; + if (!(err == SOCK_WOULDBLOCK || err == SOCK_INTR || + err == SOCK_TIMEDOUT || err == SOCK_INPROGRESS)) + break; /* some non-recoverable socket error */ + + /* check is we want to still wait longer for the msg */ + if ((sGetMsTime() - recvmsg_start) >= RECVMSG_TIMEOUT) + { + SOCK_LOG_NERR3 ("domsock %d: timed out in recvmsg(), errno = %d, timeout=%d", fd, err, RECVMSG_TIMEOUT); + return (ret); /* timeout, other side failed to send the socket handle */ + } + sMsSleep(20); /* sleep for a moment while waiting for the msg */ + } + if (ret <= 0) + { + SOCK_LOG_NERR2 ("domsock %d: recvmsg() failed, errno = %d", fd, err); + return (ret); /* error we can't handle */ + } + +#if defined (OLD_WAY) + +#else + if ((cmptr = CMSG_FIRSTHDR(&msg)) != NULL && + cmptr->cmsg_len == CMSG_LEN(sizeof(int))) + { + if (cmptr->cmsg_level != SOL_SOCKET) + { + SOCK_LOG_NERR1 ("domsock %d: cmsg_level != SOL_SOCKET", fd); + *recvfd = -1; /* DEBUG: error. Book uses err_quit.*/ + } + else if (cmptr->cmsg_type != SCM_RIGHTS) + { + SOCK_LOG_NERR1 ("domsock %d: cmsg_type != SCM_RIGHTS", fd); + *recvfd = -1; /* DEBUG: error. Book uses err_quit. */ + } + else + *recvfd = *((int *) CMSG_DATA(cmptr)); + } + else + *recvfd = -1; /* descriptor was not passed */ +#endif + + if (*recvfd == -1) + SOCK_LOG_NERR1 ("domsock %d: DID NOT receive socket handle from RFC1006_LISTENER task", fd); + else + SOCK_LOG_FLOW2 ("domsock %d: received socket handle = %d from RFC1006_LISTENER task", + fd, *recvfd); + return (ret); + } + +/************************************************************************/ +/* check_domsock */ +/* This function checks if the there are any events pending from */ +/* RFC1006_LISTENER task. */ +/* Note that this function does not non-blocking select. */ +/************************************************************************/ +ST_RET check_domsock (int domsock) + { +fd_set rset, allset; +int nready; +int maxfd = 0; +struct timeval stTimeVal; + + if (domsock == INVALID_SOCKET) + return (SD_FALSE); + + FD_ZERO (&allset); + FD_SET (domsock, &allset); + maxfd = max (maxfd, domsock); + + rset = allset; + /* 0 timeout on select. Don't want to wait here. */ + stTimeVal.tv_sec = 0; + stTimeVal.tv_usec = 0; + nready = select (maxfd + 1, &rset, NULL, NULL, &stTimeVal); + if (nready > 0 && FD_ISSET (domsock, &rset)) + return (SD_TRUE); + return (SD_FALSE); + } + +/************************************************************************/ +/* rfc1006_listener_connect */ +/* Connects to the UNIX domain socket of the RFC1006 Listener task. */ +/* Stores the connected socket handle at the address pointed to by */ +/* domsock. */ +/************************************************************************/ +ST_RET rfc1006_listener_connect (SOCKET *domsock) + { +struct sockaddr_un s_un; +#if defined(__hpux) || defined(_AIX) || defined(sun) || defined(linux) +int nonblock_on=1; /* CRITICAL: must be non-zero to enable non-blocking*/ +#else +/* _WIN32 */ +ST_ULONG nonblock_on=1; /* CRITICAL: must be non-zero to enable non-blocking*/ +#endif +int retcode; + + *domsock = socket (AF_LOCAL, SOCK_STREAM, 0); /*DEBUG: why does some code use AF_UNIX */ + if (*domsock == INVALID_SOCKET) + { + SOCK_LOG_ERR1 ("Cannot create UNIX domain socket(), errno=%d", SOCKET_ERRORNO); + return (SD_FAILURE); + } + + s_un.sun_family = AF_LOCAL; + if (strlen (tp0Ctx.listenerIPCDir) == 0) + sprintf (s_un.sun_path, "%s/%s", RFC1006_LISTENER_IPC_PATH, RFC1006_LISTENER_DOMSOCK); + else + /* use the IPC directory that user set with call to setListenerIPCDir */ + sprintf (s_un.sun_path, "%s/%s", tp0Ctx.listenerIPCDir, RFC1006_LISTENER_DOMSOCK); + retcode = connect (*domsock, (struct sockaddr *) &s_un, sizeof (s_un)); + if (retcode == 0) + { + SOCK_LOG_FLOW2 ("domsock %d: connected to RFC1006_LISTENER task (DomSockFile=%s)", + *domsock, s_un.sun_path); + /* make the socket non-blocking */ + if (ioctlsocket (*domsock, FIONBIO, &nonblock_on) == -1) + SOCK_LOG_ERR2 ("domsock %d: cannot set socket to non-blocking mode, errno = %d.", + *domsock, SOCKET_ERRORNO); + } + else + { + SOCK_LOG_ERR3 ("domsock %d: cannot connect() to RFC1006_LISTENER task (DomSockFile=%s), errno=%d, closing socket.", + *domsock, s_un.sun_path, SOCKET_ERRORNO); + CLOSE_SOCKET (*domsock); + *domsock = INVALID_SOCKET; + } + + return (retcode); + } + +/************************************************************************/ +/* sockAcceptFromListenerTask */ +/************************************************************************/ +ST_RET sockAcceptFromListenerTask (SOCKET hNewSock, + char *tpkt_buf, /* ptr to TP0 connect.ind received from rfc1006_listener */ + int tpkt_len) + { +ST_RET rc; +GEN_SOCK_CONFIG sockCfg; +GEN_SOCK *pSock; + +#if !defined(_WIN32) + if (hNewSock >= FD_SETSIZE) + { /* Can't use this socket because illegal to use in "select" call*/ + SOCK_LOG_ERR1 ("sockAcceptFromListenerTask: socket num %d > FD_SETSIZE", hNewSock); + CLOSE_SOCKET (hNewSock); + return (SD_FAILURE); + } +#endif + + /* Usually get sockCfg from pListenSock, but don't have that here, so just init local var*/ + rc = _sockSetDefaults (&sockCfg); + + /* OK, we have a go ... */ + pSock = _sockAllocSock (tp0Ctx.sockCtx, GS_ROLE_CALLED, GS_STATE_CONNECTED, hNewSock, &sockCfg); + pSock->listenSocket = NULL; /* "listenSocket" not used with rfc1006_listener task */ + + SOCK_LOG_FLOW2 ("%s: new TCP connection passed from RFC1006_LISTENER, socket handle = %d", + pSock->sockIdStr, hNewSock); + + /* Set callingAddr and callingAddrLen. */ + pSock->callingAddrLen = sizeof (SOCKADDR_IN); + if (sockGetRemAddrInfo (pSock, &pSock->callingAddr, NULL, NULL) != SD_SUCCESS) + { + SOCK_LOG_ERR1 ("%s: error getting remote address info", pSock->sockIdStr); + } + + /* only non-secured TCP connections */ + rc = (*pSock->sockCfg.uSockConnectInd)(pSock); + + if (rc == SD_SUCCESS) + _sockAddSock (pSock); /* Add to a service list */ + else + { + CLOSE_SOCKET (hNewSock); + chk_free (pSock); + } + + SOCK_LOG_FLOW2 ("%s: first packet received len = %d", pSock->sockIdStr, tpkt_len); + + /* Allocate pSock->sockData and copy packet data to it. */ + (*pSock->sockCfg.uSockRxBufAlloc) (pSock, tpkt_len, &pSock->sockData); + memcpy (pSock->sockData->data, tpkt_buf, tpkt_len); + pSock->sockData->dataLen = tpkt_len; + pSock->sockData->result = SD_SUCCESS; + + /* Pass packet up to user just like normal packet. */ + (*pSock->sockCfg.uSockRx)(pSock, pSock->sockData); + + return (SD_SUCCESS); + } + +/************************************************************************/ +/* rfc1006_listener_event */ +/************************************************************************/ +ST_BOOLEAN rfc1006_listener_event (ST_VOID) + { +char tpkt_buf [1024]; /* this buffer is big enough for TP0 CR (per JRB) */ +int tpkt_len; +int recv_ret; +ST_RET retcode; +SOCKET hSockConnected; +RFC1006_IPC_MSG ipc_msg; +char dummy_byte; /* one byte msg to read with recvwait_fd */ + +ST_BOOLEAN activityFlag = SD_FALSE; /* assume no events processed */ + + if (check_domsock (domsock_listener)) + { + /* received msg on domain socket. Process it completely here. */ + /* receiwait & recvwait_fd read TP0 connect.ind pdu from the listener task. + * It also gets the socket handle in hSockConnected. + */ + SOCK_LOG_FLOW1 ("domsock %d: receiving msg from RFC1006_LISTENER...", domsock_listener); + recv_ret = recvwait (domsock_listener, &ipc_msg, sizeof (RFC1006_IPC_MSG), 0); + if (recv_ret == sizeof (RFC1006_IPC_MSG)) + { /* NOTE: other opcodes maybe implemeted later */ + if (ipc_msg.opcode != RFC1006_IPC_OP_CONNECT) + { + SOCK_LOG_ERR2 ("domsock %d: received invalid opcode=%u", + domsock_listener, (ST_UINT) ipc_msg.opcode); + return (activityFlag); + } + /* recvwait_fd waits for the socket handle in hSockConnected. */ + recv_ret = (int) recvwait_fd (domsock_listener, &dummy_byte, 1, &hSockConnected); + if (recv_ret > 0) + { + assert (recv_ret == 1); /* must ALWAYS be this size */ + /* This recvwait reads TP0 connect.ind pdu from the listener task.*/ + /* NOTE: read (data_len-1) because 1 byte already read with recvwait_fd.*/ + assert (ipc_msg.data_len-1 <= sizeof (tpkt_buf)); + tpkt_len = recv_ret = recvwait (domsock_listener, tpkt_buf, ipc_msg.data_len-1, 0); + if (tpkt_len > 0 && hSockConnected >= 0) + { + /* rfc1006_listener task already did the "accept". */ + /* This funct should get the whole machine running. */ + retcode = sockAcceptFromListenerTask (hSockConnected, tpkt_buf, tpkt_len); + activityFlag = SD_TRUE; + } + } + } + +/* DEBUG: In the future we could add code to reconnect to the RFC1006_LISTENER task */ +/* and bind our selectors. For now just let the application to continue working.*/ + if (recv_ret == 0) + { + SOCK_LOG_ERR1 ("domsock %d: recvwait() detected RFC1006_LISTENER socket disconnect", domsock_listener); + CLOSE_THIS_SOCKET(domsock_listener); + } + else if (recv_ret < 0) + { + SOCK_LOG_ERR2 ("domsock %d: recvwait() detected error (errno=%d), closing RFC1006_LISTENER socket", + domsock_listener, SOCKET_ERRORNO); + CLOSE_THIS_SOCKET(domsock_listener); + } + } + return (activityFlag); + } +#endif /* defined(MMSEASE_MOSI) */ + + /*----------------------------------------------*/ + /* Initialization / Cleanup */ + /*----------------------------------------------*/ + +/************************************************************************/ +/* np_init */ +/* NOTE: max_num_conns arg used only by listen sockets. */ +/************************************************************************/ +ST_RET np_init (ST_INT max_num_conns) + { +ST_RET rc; +ST_INT i; + +#if defined(MMSEASE_MOSI) + tp0Ctx.tcpEventWakeupPortBase = 55051; /* base listen port */ + tp0Ctx.tcpEventWakeupPortRange = 100; /* range to search for free port*/ + tp0Ctx.tcpEventWakeupPort = 0; /* actual wakeup port */ + tp0Ctx.hTcpEventSender = INVALID_SOCKET; /* set by gensock2 service thread*/ +#endif + + if (tp0Ctx.state != TP0_SOCK_CTX_STATE_IDLE) + { + SOCK_LOG_NERR0 (tp0Ctx.sockCtx, "np_init: TP0 Context State not IDLE."); + return (SD_FAILURE); + } + + SOCK_LOG_FLOW1 (tp0Ctx.sockCtx, "np_init: initializing Network layer ... TCP max_num_conns = %d.", max_num_conns); + + /* Create "TCP" Event Semaphore. */ +#if defined(_WIN32) + if (!(hTcpEvent = gs_get_event_sem (SD_FALSE))) + { + SOCK_LOG_ERR0 (tp0Ctx.sockCtx, "np_init: error creating TCP Event Semaphore."); + return (SD_FAILURE); + } +#endif + + /* initialize gensock2 before calling any of the socket functions */ + rc = sockStart ("TP0_SOCKS", &tp0Ctx.sockCtx); + if (rc != SD_SUCCESS) + { + SOCK_LOG_ERR1 (tp0Ctx.sockCtx, "np_init: sockStart() failed, rc=%d", rc); +#if defined(_WIN32) + gs_free_event_sem (hTcpEvent); +#endif + return (rc); + } + +#if defined(MMSEASE_MOSI) + if ((rc = sockCreateWakeupSockets ( tp0Ctx.sockCtx, + tp0Ctx.tcpEventWakeupPortBase, tp0Ctx.tcpEventWakeupPortRange, + &tp0Ctx.tcpEventWakeupPort, + &tp0Ctx.hTcpEventSender, &mms_event_fd)) != SD_SUCCESS) + { + sockEnd (tp0Ctx.sockCtx); + tp0Ctx.sockCtx = NULL; + return (rc); + } +#endif /* defined(MMSEASE_MOSI) */ + + /* start the security components */ + rc = sSecStart (&tp0Ctx.secCfg); + if (rc != SD_SUCCESS) + { + SOCK_LOG_ERR1 (tp0Ctx.sockCtx, "np_init: sSecStart() failed, rc=%d", rc); + _sockClean (); + return (rc); + } + +#if defined(MMSEASE_MOSI) + /* MMSEASE_MOSI uses the RFC1006_LISTENER task to listen for TCP connections, */ + /* but it is not required to do so. Instead the application could listen for */ + /* TCP connections itself if it is the only RFC1006 port listener in the system.*/ + /* This is an undocumented option that maybe exposed in the future to */ + /* selected customers when need arises. */ + if (use_rfc1006_listener_task) + { + /* NOTE: if RFC1006_LITENER task is used then the UNIX domain socket will */ + /* handle only non-secure connections. */ + rc = rfc1006_listener_connect (&domsock_listener); + if (rc != SD_SUCCESS) + _sockClean (); + return (rc); + } +#endif /* defined(MMSEASE_MOSI) */ + /* If !use_rfc1006_listener_task, continue with default code. */ +#if !defined(MMSEASE_MOSI) + /* only MMS_LITE configures num_called */ + if (mvl_cfg_info->num_called) +#endif + { + /* start listening for non-secured connections from remotes */ + if (!tp0Ctx.secCfg->secureModeEnabled || tp0Ctx.secCfg->encryptReqCalled == SD_FALSE) + { + rc = _sockInitListen (SOCK_LISTEN_NON_SSL, 0, max_num_conns); + if (rc != SD_SUCCESS) + { + _sockClean (); + return (rc); + } + } + + /* start listening for secured connections from remotes (multiple ports maybe configured) */ + if (tp0Ctx.secCfg->secureModeEnabled) + { + for (i=0; inumSslListenPorts; ++i) + { + rc = _sockInitListen (SOCK_LISTEN_SSL, i, max_num_conns); + if (rc != SD_SUCCESS) + { + rc = _sockClean (); + return (SD_FAILURE); + } + } + } + } + + if (rc == SD_SUCCESS) + { + tp0Ctx.state = TP0_SOCK_CTX_STATE_ACTIVE; + SOCK_LOG_FLOW0 (tp0Ctx.sockCtx, "np_init: initialization successful."); + } + + return (rc); + } + +/************************************************************************/ +/* _sockSetDefaults */ +/*----------------------------------------------------------------------*/ +/* Initialize socket cfg params (used for secure/non-secure connections)*/ +/************************************************************************/ +static ST_RET _sockSetDefaults (GEN_SOCK_CONFIG *sockCfg) + +{ +ST_RET rc = SD_SUCCESS; + + SOCK_LOG_FLOW0 (tp0Ctx.sockCtx, "in _sockSetDefaults()"); + + memset (sockCfg, 0, sizeof (GEN_SOCK_CONFIG)); /* start clean */ + + /* set socket parameters */ + + sockCfg->hdrSize = RFC1006_HEAD_LEN; /* RFC1006 header len */ + + /* set sockopt parameters */ + sockCfg->setSockOpts = SD_TRUE; + sockCfg->noDelay = SD_TRUE; + sockCfg->keepAlive = SD_TRUE; + sockCfg->reuseAddr = SD_TRUE; /* SO_REUSEADDR for quick restart */ + sockCfg->rcvBufSize = 0; /* use default socket buffer size */ + sockCfg->sndBufSize = 0; /* use default socket buffer size */ + + sockCfg->pauseRecv = SD_FALSE; /* used to apply back pressure */ + sockCfg->listenBacklog = 0; /* if 0, SOMAXCONN used */ + + /* set callback funcs for non-secured connections from remotes */ + + sockCfg->uSockConnectInd = &_uSockConnectInd; + sockCfg->uSockConnectConf= &_uSockConnectDone; + sockCfg->uSockDisconnect = &_uSockDisconnectInd; + sockCfg->uSockRx = &_uSockRxInd; + sockCfg->uSockWritable = &_uSockWritable; + sockCfg->uSockHunt = &_uSockHunt; + sockCfg->uSockRxBufAlloc = &_uSockDataAlloc; + sockCfg->uSockTxBufFree = &_uSockDataFree; + + /* sockCfg->recvEvent = not used */ + /* sockCfg->usr1 = not used */ + + return (rc); +} + +/************************************************************************/ +/* _sockInitListen */ +/*----------------------------------------------------------------------*/ +/* Initialize listen socket. */ +/************************************************************************/ +int cfg_61850_tcp_port=102; +static ST_RET _sockInitListen (ST_UINT type, + ST_UINT idx, + ST_INT max_num_conns) + +{ +ST_RET rc; +GEN_SOCK_CONFIG sockCfg; +ST_UINT16 listenPort; +ST_UINT maxActive; +GEN_SOCK **pListenSock; + + SOCK_LOG_FLOW1 (tp0Ctx.sockCtx, "%s: in _sockInitListen()", tp0Ctx.sockCtx->ctxName); + + /* set socket parameters */ + + rc = _sockSetDefaults (&sockCfg); + + if (type == SOCK_LISTEN_SSL) + { + /* set callback functions for secure connections from remotes */ + setGenSockSSL (&sockCfg); /* sets sockCfg.secEnable=SD_TRUE & secure fun ptrs */ + listenPort = tp0Ctx.secCfg->sslListenPorts[idx]; + maxActive = max_num_conns; + pListenSock = &tp0Ctx.remListenSockSSL[idx]; + } + else + { + /* SOCK_LISTEN_NON_SSL */ + if (tp0_cfg.rfc1006_listen_port) + listenPort = tp0_cfg.rfc1006_listen_port; + else + { + listenPort = IPPORT_RFC1006; /* use the default port */ + if(cfg_61850_tcp_port) + listenPort = cfg_61850_tcp_port; + } + tp0Ctx.rfc1006Port = listenPort; /* save the port used */ + maxActive = max_num_conns; + pListenSock = &tp0Ctx.remListenSock; + } + + /* init the listening socket */ + rc = sockInitListen (tp0Ctx.sockCtx, &sockCfg, listenPort, maxActive, pListenSock); + if (rc != SD_SUCCESS) + { + SOCK_LOG_ERR4 (tp0Ctx.sockCtx, "%s: sockInitListen() failed for port=%u, rc=%d %s", + tp0Ctx.sockCtx->ctxName, (ST_UINT) listenPort, rc, + (rc== SOCK_EADDRINUSE) ? "(port already used)" : ""); + *pListenSock = NULL; /* need to be set if bind fails */ + return (SD_FAILURE); + } + + SOCK_LOG_FLOW2 (tp0Ctx.sockCtx, "%s: listening on port=%u", (*pListenSock)->sockIdStr, (ST_UINT) listenPort); + + return (SD_SUCCESS); +} + +/************************************************************************/ +/* _sockCloseAllListen */ +/* Closes all listen sockets. Currently the only return is SD_SUCCESS. */ +/************************************************************************/ +static ST_RET _sockCloseAllListen (ST_VOID) +{ +ST_INT i; + +#if defined(MMSEASE_MOSI) + /* disconnect domain socket to avoid incoming connections */ + if (use_rfc1006_listener_task) + CLOSE_THIS_SOCKET(domsock_listener); +#endif + + /* Close all listen sockets to avoid handling incoming connections */ + if (tp0Ctx.secCfg) + for (i=0; inumSslListenPorts; ++i) + if (tp0Ctx.remListenSockSSL[i]) + { + SOCK_LOG_FLOW2 (tp0Ctx.sockCtx, "%s: closing secure listening port=%d", + tp0Ctx.remListenSockSSL[i]->sockIdStr, tp0Ctx.secCfg->sslListenPorts[i]); + sockClose (tp0Ctx.remListenSockSSL[i]); + } + + if (tp0Ctx.remListenSock) + { + SOCK_LOG_FLOW2 (tp0Ctx.sockCtx, "%s: closing listening port=%d", + tp0Ctx.remListenSock->sockIdStr, tp0Ctx.rfc1006Port); + sockClose (tp0Ctx.remListenSock); + } + + return SD_SUCCESS; +} + +/************************************************************************/ +/* _sockClean */ +/************************************************************************/ +static ST_RET _sockClean (ST_VOID) +{ +ST_RET rc; + + SOCK_LOG_FLOW1 (tp0Ctx.sockCtx, "%s: in _sockClean()", tp0Ctx.sockCtx->ctxName); + + /* CRITICAL: release resources in reverse order. */ + + /* close all listen sockets to avoid handling incoming connections */ + _sockCloseAllListen (); + + /* terminate Security Manager */ + rc = sSecEnd (); + + /* cleanup gensock2 resources, terminate threads,... */ + rc = sockEnd (tp0Ctx.sockCtx); + tp0Ctx.sockCtx = NULL; + + /* free events and mutexes */ +#if defined(_WIN32) + gs_free_event_sem (hTcpEvent); +#endif +#if defined(MMSEASE_MOSI) + CLOSE_THIS_SOCKET(domsock_listener); + CLOSE_THIS_SOCKET(tp0Ctx.hTcpEventSender); + CLOSE_THIS_SOCKET(mms_event_fd); +#endif + + return (SD_SUCCESS); +} + +/************************************************************************/ +/* np_end */ +/* This function will terminate the operation of the Network layer */ +/* */ +/* Parameters: */ +/* ST_VOID none */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if termination successful */ +/* error code otherwise */ +/************************************************************************/ +ST_RET np_end (ST_VOID) + { +ST_RET rc; +GEN_SOCK_EVENT *sdi; + + SOCK_LOG_FLOW1 (tp0Ctx.sockCtx, "%s: in np_end()", tp0Ctx.sockCtx->ctxName); + + tp0Ctx.state = TP0_SOCK_CTX_STATE_TERMINATING; + + /* close all listen sockets to avoid handling incoming connections */ + _sockCloseAllListen (); + + /* Finish processing of disconnect events. Ignore all other events. */ + sMsSleep (100); /* let other threads finish disconnects */ + + /* Get all events off list and process them. */ + while ((sdi = sockEventGet (tp0Ctx.sockCtx)) != NULL) + { + if (sdi->eventType == GS_EVENT_DISCONNECT) + { + SOCK_LOG_FLOW1 (tp0Ctx.sockCtx, "%s: np_end: processing Event Indication IndType=DISCONNECT.", + sdi->pSock->sockIdStr); + _processDisconnectInd (sdi->pSock); + } + else if (sdi->eventType == GS_EVENT_CONNECT_IND) + { + SOCK_LOG_FLOW1 (tp0Ctx.sockCtx, "%s: np_end: IGNORING Event Indication IndType=CONNECT (closing socket).", + sdi->pSock->sockIdStr); + sockClose (sdi->pSock); + } + else if (sdi->eventType == GS_EVENT_DATA_IND) + { + SOCK_LOG_FLOW1 (tp0Ctx.sockCtx, "%s: np_end: IGNORING Event Indication IndType=RXDATA (closing socket).", + sdi->pSock->sockIdStr); + _uSockDataFree (sdi->pSock, sdi->sockData); + } + else + SOCK_LOG_FLOW3 (tp0Ctx.sockCtx, "%s: np_end: IGNORING Event Indication IndType=%d (%s).", + sdi->pSock->sockIdStr, sdi->eventType, + (sdi->eventType < sizeof(eventTypeStr)) ? eventTypeStr[sdi->eventType] : "UNKNOWN"); + + chk_free (sdi); + } /* end loop processing all events */ + + rc = _sockClean (); + + tp0Ctx.state = TP0_SOCK_CTX_STATE_IDLE; + return (rc); + } + + /*----------------------------------------------*/ + /* Event/Indication Handling */ + /*----------------------------------------------*/ + +#if defined(MMSEASE_MOSI) +ST_VOID drain_wakeup_sock (ST_VOID) + { +ST_CHAR dataBucket[256]; +ST_INT recvRet; +ST_INT err; + + /* Non-blocking receive, dump wakeup data */ + if (mms_event_fd != INVALID_SOCKET) + { + recvRet = (ST_INT) recv (mms_event_fd, dataBucket, sizeof (dataBucket), 0); + if (recvRet > 0) + { + SOCK_LOG_FLOW3 ("%s: XSocket received %d wakeup bytes, byte[0]=%d", + tp0Ctx.sockCtx->ctxName, recvRet, (ST_UINT) ((ST_UCHAR) dataBucket[0])); + } + else if (recvRet == 0) + { + SOCK_LOG_ERR1 ("%s: XSocket disconnected", tp0Ctx.sockCtx->ctxName); + CLOSE_THIS_SOCKET(mms_event_fd); + } + else + { + err = SOCKET_ERRORNO; + if (err == SOCK_WOULDBLOCK || err == SOCK_INTR || + err == SOCK_TIMEDOUT || err == SOCK_INPROGRESS) + { + /* recoverable error or nothing received */ + } + else + { + SOCK_LOG_ERR3 ("%s: XSocket error, recv() returned %d, errno = %d", + tp0Ctx.sockCtx->ctxName, recvRet, err); + CLOSE_THIS_SOCKET(mms_event_fd); + } + } + } + } +#endif /* defined(MMSEASE_MOSI) */ + +/************************************************************************/ +/* np_event */ +/* This function is called to process network events. */ +/************************************************************************/ +ST_BOOLEAN np_event (ST_VOID) + { +GEN_SOCK_EVENT *sdi; +ST_BOOLEAN activityFlag = SD_FALSE; /* assume no events processed */ + +#if defined(MMSEASE_MOSI) + if (use_rfc1006_listener_task) + rfc1006_listener_event (); +#endif /* defined(MMSEASE_MOSI) */ + +#if !defined(GENSOCK_THREAD_SUPPORT) + /* Service all sockets. */ + /* NOTE: this may add "many" entries to the linked list. */ + /* User should have already waited for event, so use timeout=0 here. */ + sockServiceAll (tp0Ctx.sockCtx, 0); /* arg is timeout in milliseconds*/ +#endif /* !GENSOCK_THREAD_SUPPORT */ + +#if defined(MMSEASE_MOSI) + drain_wakeup_sock (); +#endif + + /* CRITICAL: Get one and only one entry off linked list. If we get more,*/ + /* MVL queue fills up, and user can't process other events, including TP4.*/ + if ((sdi = sockEventGet (tp0Ctx.sockCtx)) != NULL) + { + activityFlag = SD_TRUE; /* 1 event processed */ + S_LOCK_UTIL_RESOURCES (); + /* check if we need to enable reception of data (we have flow control to */ + /* prevent excessive memory allocations when data messages are received */ + /* faster than the application can process) */ + if (sdi->eventType == GS_EVENT_DATA_IND) + { + SOCK_INFO *sock_info = (SOCK_INFO *) sdi->pSock->sockCfg.usr2; /* get (SOCK_INFO *) from GEN_SOCK */ + if (sock_info->recvCnt > 0) + --sock_info->recvCnt; + if (sock_info->recvCnt <= SOCK_RX_QUE_LOW_MARK && sdi->pSock->sockCfg.pauseRecv == SD_TRUE) + { + sdi->pSock->sockCfg.pauseRecv = SD_FALSE; + SOCK_LOG_FLOW2 (tp0Ctx.sockCtx, "%s: recvCnt=%u setting pauseRecv=SD_FALSE", sdi->pSock->sockIdStr, sock_info->recvCnt); + sockServiceWakeAll (tp0Ctx.sockCtx); + } + } + S_UNLOCK_UTIL_RESOURCES (); + SOCK_LOG_FLOW3 (tp0Ctx.sockCtx, "%s: processing Event Indication IndType=%d (%s).", + sdi->pSock->sockIdStr, sdi->eventType, + (sdi->eventType < sizeof(eventTypeStr)) ? eventTypeStr[sdi->eventType] : "UNKNOWN"); + + switch (sdi->eventType) + { + case GS_EVENT_CONNECT_IND: + //logprint("Sokect_GetConnect_rec(IP:%s)",inet_ntoa(sdi->pSock->callingAddr.sin_addr)); + _processConnectInd (sdi->pSock); + break; + + case GS_EVENT_CONNECT_CONF: + _processConnectDone (sdi->pSock); + break; + + case GS_EVENT_DISCONNECT: + //logprint("Sokect_DisConnect_rec(IP:%s)",inet_ntoa(sdi->pSock->callingAddr.sin_addr)); + _processDisconnectInd (sdi->pSock); + break; + + case GS_EVENT_DATA_IND: + _processRxInd (sdi->pSock, sdi->sockData); + break; + + default: + assert (0); /* Unknown eventType */ + } + chk_free (sdi); + } + + /* we have to take care of rekeying every once a while, since this */ + /* function is called periodically (at least once every 1 sec) we */ + /* use it to do the job */ + _handleRekeying (); + + return (activityFlag); + } + +/************************************************************************/ +/* _setSecInfo */ +/************************************************************************/ +static ST_RET _setSecInfo (GEN_SOCK *pSock, S_SEC_ENCRYPT_CTRL *encrypt_ctrl) +{ +ST_RET rc; + + rc = sSecGetCipherSuite (pSock, &encrypt_ctrl->u.ssl.cipherSuite); + if (rc != SD_SUCCESS) + { + SOCK_LOG_NERR2 (tp0Ctx.sockCtx, "%s: failed to obtain Cipher Suite (rc=%d)", pSock->sockIdStr, rc); + return (rc); + } + + rc = sSecGetCertCtrl (pSock, &encrypt_ctrl->u.ssl.sslCert); + if (rc == SD_SUCCESS) + { + /* SD_SUCCESS means that this is a secured connection */ + encrypt_ctrl->encryptMode = S_SEC_ENCRYPT_SSL; + + /* if the remote certificate is not config the function above may return */ + /* NULL for the sslCert pointer */ + if (encrypt_ctrl->u.ssl.sslCert) + encrypt_ctrl->u.ssl.sslCertMatched = SD_TRUE; + else + encrypt_ctrl->u.ssl.sslCertMatched = SD_FALSE; + } + else + SOCK_LOG_NERR2 (tp0Ctx.sockCtx, "%s: failed to obtain Certificate Ctrl (rtn=%d)", pSock->sockIdStr, rc); + + return (rc); +} + +/************************************************************************/ +/* _processConnectInd */ +/* Accepted new socket connection, let user know. */ +/************************************************************************/ +static ST_VOID _processConnectInd (GEN_SOCK *pSock) + { +ST_RET rc; +SOCK_INFO *sock_info; +S_SEC_ENCRYPT_CTRL *encrypt_ctrl; + + /* For a listening socket we will attach the GEN_SOCK to our user ctrl*/ + /* Pass (GEN_SOCK *) instead of SOCKET as first arg. */ + /* This saves (GEN_SOCK *) in SOCK_INFO. */ + sock_info = sock_info_alloc2 (pSock, SOCK_STATE_ACCEPTED, + INVALID_CONN_ID); + sock_info->ip_addr = pSock->callingAddr.sin_addr.s_addr; /* Save remote IP addr */ + pSock->sockCfg.usr2 = sock_info; /* Save (SOCK_INFO *) in GEN_SOCK*/ + encrypt_ctrl = &sock_info->encrypt_ctrl; + + /* if secured connection extract encryption info */ + if (pSock->sockCfg.secEnable) + { + rc = _setSecInfo (pSock, encrypt_ctrl); + if (rc != SD_SUCCESS) + { + pSock->sockCfg.usr2 = NULL; /* to prevent use of invalid sock_info */ + sock_info_free (sock_info); + sockClose (pSock); + return; + } + sock_info->rekeyTime = sGetMsTime() + SOCK_REKEY_TIME; + /* add sock_info to list of secured sockets */ + S_LOCK_UTIL_RESOURCES (); + list_add_last (&tp0Ctx.secureSockList, sock_info); + S_UNLOCK_UTIL_RESOURCES (); + } + + handle_accepted_conn (sock_info); + } + +/************************************************************************/ +/* handle_accepted_conn */ +/************************************************************************/ +ST_VOID handle_accepted_conn (SOCK_INFO *sock_info) + { + /* User only cares about T-CONNECT.ind. Just log this. */ + SOCK_LOG_RX1 (tp0Ctx.sockCtx, "N-CONNECT.ind: sock_info = 0x%X", sock_info); + sock_info->state = SOCK_STATE_CONNECTED; + } + +/************************************************************************/ +/* _processConnectDone */ +/* Socket connection established, let user know. */ +/************************************************************************/ +static ST_VOID _processConnectDone (GEN_SOCK *pSock) + { +ST_RET rc; +SOCK_INFO *sock_info = (SOCK_INFO *) pSock->sockCfg.usr2; /* get (SOCK_INFO *) from GEN_SOCK */ +S_SEC_ENCRYPT_CTRL *encrypt_ctrl; + + assert (sock_info); + sock_info->genSock = pSock; /* CRITICAL: save pSock now */ + + /* it is possible that if the connection took long time then the application */ + /* called already np_disconnect_req */ + if (sock_info->state == SOCK_STATE_CONNECT_CANCELLED) + sockClose (pSock); /* couldn't call this function from np_disconnect_req */ + else if (sock_info->state == SOCK_STATE_CONNECTING) + { + /* if secured connection extract encryption info */ + if (pSock->sockCfg.secEnable) + { + encrypt_ctrl = &sock_info->encrypt_ctrl; + rc = _setSecInfo (pSock, encrypt_ctrl); + if (rc != SD_SUCCESS) + { + sockClose (pSock); + return; + } + sock_info->rekeyTime = sGetMsTime() + SOCK_REKEY_TIME; + /* add sock_info to list of secured sockets */ + S_LOCK_UTIL_RESOURCES (); + list_add_last (&tp0Ctx.secureSockList, sock_info); + S_UNLOCK_UTIL_RESOURCES (); + } + + handle_connect_success (sock_info); + } + else + SOCK_LOG_ERR2 (tp0Ctx.sockCtx, "%s: _processConnectDone invalid state=%d", pSock->sockIdStr, sock_info->state); + } + +/************************************************************************/ +/* handle_connect_success */ +/************************************************************************/ +ST_VOID handle_connect_success (SOCK_INFO *sock_info) + { + /* Pass up N-CONNECT.cnf+ to user. */ + SOCK_LOG_RX1 (tp0Ctx.sockCtx, "N-CONNECT.cnf+ (pos): user_conn=%d", sock_info->user_conn_id); + np_connect_cnf_pos (sock_info, sock_info->user_conn_id); + sock_info->state = SOCK_STATE_CONNECTED; + } + +/************************************************************************/ +/* _processDisconnectInd */ +/************************************************************************/ +static ST_VOID _processDisconnectInd (GEN_SOCK *pSock) + { +SOCK_INFO *sock_info = (SOCK_INFO *) pSock->sockCfg.usr2; + + if (pSock->sockCfg.secEnable) + { + if (sock_info) + { + S_LOCK_UTIL_RESOURCES (); + if (list_find_node (tp0Ctx.secureSockList, sock_info) == SD_SUCCESS) + /* del sock_info from list of secured sockets */ + list_unlink (&tp0Ctx.secureSockList, sock_info); + S_UNLOCK_UTIL_RESOURCES (); + } + else + { + /* in this case a remote node attempted to connect on a secured port */ + /* but for some SSL reason the socket connection need to be terminated */ + sockClose (pSock); + sockFree (pSock); + return; /* can't do anything else */ + } + } + + if (sock_info) + { + /* If we disconnected, don't call handle_disconnect. */ + if (!(sock_info->state == SOCK_STATE_DISCONNECTING || + sock_info->state == SOCK_STATE_CONNECT_CANCELLED)) + handle_disconnect (sock_info); + + sock_info_free (sock_info); + } + else + SOCK_LOG_ERR1 (tp0Ctx.sockCtx, "%s: _processDisconnectInd sock_info=NULL", pSock->sockIdStr); + + sockFree (pSock); /* Totally done with this socket now. */ + } + +/************************************************************************/ +/* handle_disconnect */ +/************************************************************************/ +ST_VOID handle_disconnect (SOCK_INFO *sock_info) + { + SOCK_LOG_RX2 (tp0Ctx.sockCtx, "N-DISCONNECT.ind: sock_info = 0x%X, user_conn = %d", + sock_info, sock_info->user_conn_id); + np_disconnect_ind (sock_info); + } + +/************************************************************************/ +/* _processRxInd */ +/************************************************************************/ +static ST_VOID _processRxInd (GEN_SOCK *pSock, GEN_SOCK_DATA *sockData) + { + /* data is only valid if result==SD_SUCCESS */ + if (sockData->result == SD_SUCCESS) + { + /* rxData->data includes 4-byte RFC-1006 header. That's what handle_data wants.*/ + assert (sockData->dataLen <= 65535); /* RFC-1006 limit */ + handle_data ((SOCK_INFO *)pSock->sockCfg.usr2, sockData->data, + (ST_UINT16)sockData->dataLen); + } + _uSockDataFree (pSock, sockData); + } + +/************************************************************************/ +/* handle_data */ +/* Parameters: */ +/* sock_info ptr to socket tracking struct */ +/* tpkt_ptr ptr to RFC1006 TPKT. */ +/* tpkt_len len of RFC1006 TPKT. */ +/************************************************************************/ +ST_VOID handle_data (SOCK_INFO *sock_info, ST_UCHAR *tpkt_ptr, ST_UINT16 tpkt_len) + { + SOCK_LOG_RX3 (tp0Ctx.sockCtx, "N-DATA.ind: sock_info = 0x%X, user_conn = %d tpkt_len = %d", + sock_info, sock_info->user_conn_id, tpkt_len); + SOCK_LOG_RXH (tp0Ctx.sockCtx, tpkt_len, tpkt_ptr); + np_data_ind (sock_info, tpkt_ptr, tpkt_len); + } + + /*----------------------------------------------*/ + /* Connection Request / Indication */ + /*----------------------------------------------*/ + +/************************************************************************/ +/* np_connect_req */ +/* RETURNS: */ +/* SOCK_INFO * ptr to socket info for new socket, OR */ +/* NULL if connect fails immediately. */ +/************************************************************************/ +int win_61850_tcp_port=102; +SOCK_INFO *np_connect_req (ST_LONG user_conn_id, ST_ULONG ipAddr, ST_UINT16 rem_port, + S_SEC_ENCRYPT_CTRL *encrypt_ctrl) + { +ST_RET rc; +SOCK_INFO *sock_info; /* new tracking struct for this conn. */ +struct in_addr sin_addr; /* inet_ntoa needs this addr format */ +ST_CHAR *tmp_ptr; +ST_CHAR addr_string [32]; /* local copy of addr */ +GEN_SOCK_CONFIG sockCfg = {0}; +ST_UINT16 port; +GEN_SOCK *pGenSock; + + SOCK_LOG_TX1 (tp0Ctx.sockCtx, "N-CONNECT.req: user_conn=%d", user_conn_id); + + /* MMS Lite stores IP Addr as ULONG. Must convert back to string. */ + sin_addr.s_addr = ipAddr; + tmp_ptr = inet_ntoa (sin_addr); + assert (strlen (tmp_ptr) < sizeof (addr_string)); + strcpy (addr_string, tmp_ptr); + + /* Must do this first, because connect ind callback may be called + * before returning from sockInitCalling! + */ + sock_info = sock_info_alloc2 (NULL, SOCK_STATE_CONNECTING, user_conn_id); + + + /* setup rem socket params and connect to the rem IP Addr, Port */ + _sockSetDefaults (&sockCfg); + sockCfg.reuseAddr = SD_FALSE; /* Override setting from _sockSetDefaults.*/ + + /* save our control ptr (used in callback functions) */ + sockCfg.usr2 = (ST_VOID *) sock_info; + + if (encrypt_ctrl->encryptMode == S_SEC_ENCRYPT_SSL) + { + /* secure connection requested, set the security functions hooks */ + setGenSockSSL (&sockCfg); /* sets sockCfg.secEnable=SD_TRUE & secure fun ptrs */ + port = encrypt_ctrl->u.ssl.port; + } + else + { + /* non-secured connection */ + if (rem_port) + port = rem_port; /* use configured remote port */ + else + port = IPPORT_RFC1006; + } + + +#ifdef WIN32 + port = win_61850_tcp_port; +#endif + + /* connect to Remote */ + /* NOTE: The callback may be called before + * sockInitCalling returns, so just save the (GEN_SOCK *) to "sock_info->genSock" + * in the callback function (_uSockConnectInd). + */ + SOCK_LOG_TX4 (tp0Ctx.sockCtx, "N-CONNECT.req: sock_info=0x%X, connection pending to IP Address='%s' Port=%u %s", + sock_info, addr_string, port, + (encrypt_ctrl->encryptMode==S_SEC_ENCRYPT_SSL) ? "(SSL)" : ""); + + rc = sockInitCalling (tp0Ctx.sockCtx, &sockCfg, port, addr_string, &pGenSock); + /* DEBUG Note: the pGenSock may need to be in the SOCK_INFO struct */ + + if (rc != SD_SUCCESS) + { /* failed, clean up */ + sock_info_free (sock_info); + sock_info = NULL; + } + + return (sock_info); + } + +/************************************************************************/ +/* _uSockConnectDone */ +/* This is gensock2 callback function called when socket connection */ +/* to the remote has been established. */ +/************************************************************************/ + +static ST_RET _uSockConnectDone (GEN_SOCK *pSock) + { +ST_RET rtn; + + SOCK_LOG_FLOW1 (tp0Ctx.sockCtx, "%s: in _uSockConnectDone()", pSock->sockIdStr); + + rtn = _addSockInd (pSock, GS_EVENT_CONNECT_CONF, NULL); + return (rtn); + } + +/************************************************************************/ +/* _uSockConnectInd */ +/* This is gensock2 callback function when a socket connection has been */ +/* accepted from remote. */ +/************************************************************************/ + +static ST_RET _uSockConnectInd (GEN_SOCK *pSock) + { +ST_RET rtn; +ST_CHAR *SSLstr; + + if (pSock->sockCfg.secEnable) + SSLstr = "SSL"; + else + SSLstr = ""; + SOCK_LOG_FLOW4 (tp0Ctx.sockCtx, "%s: in _uSockConnectInd(), received %s connection from" + " IP Address=%s Port=%u", pSock->sockIdStr, SSLstr, + inet_ntoa (pSock->callingAddr.sin_addr), (ST_UINT) ntohs (pSock->callingAddr.sin_port)); + + rtn = _addSockInd (pSock, GS_EVENT_CONNECT_IND, NULL); + return (rtn); + } + + /*----------------------------------------------*/ + /* Disconnection Request / Indication */ + /*----------------------------------------------*/ + +/************************************************************************/ +/* np_disconnect_req */ +/* This function is called by the user to break connection */ +/************************************************************************/ + +ST_RET np_disconnect_req (SOCK_INFO *sock_info) + { +ST_RET retCode; + SOCK_LOG_TX2 (tp0Ctx.sockCtx, "N-DISCONNECT.req: sock_info = 0x%X, user_conn = %d", + sock_info, sock_info->user_conn_id); + + + if (sock_info->genSock == NULL) + { + /* this is the case when application issues connect request but calls disconnect */ + /* before the socket connection gets established (for example because of timeout). */ + SOCK_LOG_NERR3 (tp0Ctx.sockCtx, "N-DISCONNECT.req: disconnect delayed (connect pending), \n" + " sock_info = 0x%X, user_conn = %d, state = %d", + sock_info, sock_info->user_conn_id, sock_info->state); + /* change the state to avoid calling any transport functions from this point on */ + sock_info->state = SOCK_STATE_CONNECT_CANCELLED; + retCode = SD_FAILURE; + } + else + { + /* change the state to avoid calling any transport functions from this point on */ + sock_info->state = SOCK_STATE_DISCONNECTING; + retCode = sockClose (sock_info->genSock); + } + + return (retCode); + /* sock_info is not freed until _processDisconnectInd. */ + } + +/************************************************************************/ +/* _uSockDisconnectInd */ +/* This is gensock2 callback function when socket gets disconnected or */ +/* we call sockClose. */ +/************************************************************************/ +static ST_VOID _uSockDisconnectInd (GEN_SOCK *pSock) + { +ST_RET rtn; +ST_CHAR *errptr; +ST_INT i; + + switch (pSock->disconnectReason) + { + case GS_DISCONNECT_CONNECT_FAILED: errptr= "CONNECT_FAILED"; break; + case GS_DISCONNECT_USR_REFUSED: errptr= "USER_REFUSED"; break; + case GS_DISCONNECT_SEND_FAILURE: errptr= "SEND_FAILURE"; break; + case GS_DISCONNECT_RECV_FAILED: errptr= "RECEIVE_FAILED"; break; + case GS_DISCONNECT_ACCEPT_FAILED: errptr= "ACCEPT_FAILED"; break; + case GS_DISCONNECT_CLOSED: errptr= "SOCKET_CLOSED"; break; + case GS_DISCONNECT_TERMINATING: errptr= "TERMINATING"; break; + case GS_DISCONNECT_RESOURCES_ERROR: errptr= "RESOURCES_ERROR"; break; + case GS_DISCONNECT_INTERNAL_ERROR: errptr= "INTERNAL_ERROR"; break; + + case GS_DISCONNECT_UNKNOWN: + default: errptr= "UNKNOWN"; break; + } + SOCK_LOG_FLOW2 (tp0Ctx.sockCtx, "%s: in _uSockDisconnectInd() reason=%s", pSock->sockIdStr, errptr); + + /* CRITICAL: deal with GS_ROLE_LISTENING now. This happens when server is + * exiting. _processDisconnectInd may not be called again. + */ + if (pSock->role == GS_ROLE_LISTENING) + { + if (pSock == tp0Ctx.remListenSock) + { + SOCK_LOG_FLOWC1 (tp0Ctx.sockCtx, " for non-secured listening port=%d", tp0Ctx.rfc1006Port); + tp0Ctx.remListenSock = NULL; + } + else + { + for (i=0; isslListenPorts[i]); + tp0Ctx.remListenSockSSL[i] = NULL; + break; + } + } + } + sockFree (pSock); + return; + } + + rtn = _addSockInd (pSock, GS_EVENT_DISCONNECT, NULL); + if (rtn != SD_SUCCESS && tp0Ctx.state == TP0_SOCK_CTX_STATE_TERMINATING) + { + SOCK_INFO *sock_info = pSock->sockCfg.usr2; + /* since we will not pass the disconnect ind to the main thread clean the */ + /* sock_info here */ + if (sock_info) + sock_info_free (sock_info); + + sockFree (pSock); + } + } + + /*----------------------------------------------*/ + /* Data Request / Indication */ + /*----------------------------------------------*/ + +/************************************************************************/ +/* np_data_req */ +/* Parameters: */ +/* eot SD_TRUE if last TPDU msg in a SPDU. */ +/* RETURN CODES: */ +/* SD_SUCCESS or SD_FAILURE */ +/************************************************************************/ +/*renxiaobao ±¨ÎÄ·¢ËÍ*/ +ST_RET np_data_req (SOCK_INFO *sock_info, ST_INT tpkt_len, ST_UCHAR *tpkt_ptr, + ST_BOOLEAN eot) + { +GEN_SOCK_DATA *sockData; +ST_RET rc; + +/*//static int qqq=0; + +//assert (sock_info->genSock != NULL); +*/ if(sock_info->genSock == NULL) + { + printf("sock_info->genSock == NULL\n"); + return (SD_FAILURE); + } + /*// if(qqq++>500) + //{ +// qqq=0; + // sockClose (sock_info->genSock); + // sockFree (sock_info->genSock); + // return (SD_FAILURE); + //} +*/ /* check if queueing limit has been reached to prevent the excessive */ + /* growth of the outbound queue in gensock2.c */ + if (sockTxQueueGroupCntGet (sock_info->genSock) >= tp0_cfg.max_spdu_outst) + { + SOCK_LOG_ERR2 (tp0Ctx.sockCtx, "N-DATA.req: sock_info = 0x%X, error sending (queue limit = %u reached)", + sock_info, tp0_cfg.max_spdu_outst); + /*renxiaobao ±¨ÎÄ·¢ËÍʧ°Ü + printf(tp0Ctx.sockCtx, "N-DATA.req: sock_info = 0x%X, error sending (queue limit = %u reached)", + sock_info, tp0_cfg.max_spdu_outst);*/ + return (SD_FAILURE); + } + + /* _uSockDataAlloc allocs "sockData" (plus space for data) and initializes it.*/ + _uSockDataAlloc (sock_info->genSock, tpkt_len, &sockData); + memcpy (sockData->data, tpkt_ptr, tpkt_len); /* copy the data */ + sockData->eot = eot; + + rc = sockTxMsg (sock_info->genSock, sockData); + + if (rc == SD_SUCCESS) + { + SOCK_LOG_TX3 (tp0Ctx.sockCtx, "N-DATA.req: sock_info = 0x%X, user_conn = %d tpkt_len = %d", + sock_info, sock_info->user_conn_id, tpkt_len); + SOCK_LOG_TXH (tp0Ctx.sockCtx, tpkt_len, tpkt_ptr); + } + else + { + SOCK_LOG_ERR1 (tp0Ctx.sockCtx, "N-DATA.req: sock_info = 0x%X, error sending", sock_info); + /*printf (tp0Ctx.sockCtx, "N-DATA.req: sock_info = 0x%X, error sending", sock_info);*/ + } + + return (rc); + } + +/************************************************************************/ +/* np_get_tx_queue_cnt */ +/* Returns number of queued SPDUs. */ +/************************************************************************/ +ST_UINT np_get_tx_queue_cnt (SOCK_INFO *sock_info) + { + assert (sock_info->genSock != NULL); + return (sockTxQueueGroupCntGet (sock_info->genSock)); + } + +/************************************************************************/ +/* _uSockWritable */ +/* This function is called by gensock2 when the socket becomes writable.*/ +/************************************************************************/ +static ST_VOID _uSockWritable (GEN_SOCK *pSock) + { +ST_RET rc; + + SOCK_LOG_FLOW1 (tp0Ctx.sockCtx, "%s: in _uSockWritable()", pSock->sockIdStr); + + /* the socket is writable, so send something from the transmit queue. */ + rc = sockTxQueueProc (pSock); + if (rc != SD_SUCCESS) + { + SOCK_LOG_ERR1 (tp0Ctx.sockCtx, "%s: sockTxQueueProc failed, closing socket", pSock->sockIdStr); + /* DEBUG: this change of state will cause problem, */ + /* app will not be notified about disconnect */ + /* sock_info->state = SOCK_STATE_DISCONNECTING; */ + sockClose (pSock); + } + } + +/************************************************************************/ +/* _uSockRxInd */ +/************************************************************************/ +static ST_VOID _uSockRxInd (GEN_SOCK *pSock, GEN_SOCK_DATA *sockData) + { +ST_RET rtn; + + if (pSock && sockData) + SOCK_LOG_FLOW3 (tp0Ctx.sockCtx, "%s: in _uSockRxInd() result=%s, bytes=%d", pSock->sockIdStr, + (sockData->result == SD_SUCCESS) ? "SD_SUCCESS" : "SD_FAILURE", sockData->dataLen); + else + { + SOCK_LOG_ERR2 (tp0Ctx.sockCtx, "%s: in _uSockRxInd() sockData=%08lx", pSock->sockIdStr, sockData); + if (sockData) + _uSockDataFree (pSock, sockData); + return; + } + + if (sockData->result != SD_SUCCESS) + { + /* socket is disconnecting, any received data buffers need to be free */ + _uSockDataFree (pSock, sockData); + return; + } + + /* If no data (len=RFC1006_HEAD_LEN) ignore msg. */ + if (sockData->dataLen <= RFC1006_HEAD_LEN) + { + /* Should NEVER be '<' because _uSockHunt checks for illegal len, but just in case...*/ + if (sockData->dataLen < RFC1006_HEAD_LEN) + SOCK_LOG_ERR1 (tp0Ctx.sockCtx, "Illegal TPKT len = %d", sockData->dataLen); + + /* May be '='. NOT normal, but some bad apps could send just header.*/ + /* Either way, do NOT put on queue. */ + _uSockDataFree (pSock, sockData); + return; + } + + /* received data on the socket, queue indication for user */ + rtn = _addSockInd (pSock, GS_EVENT_DATA_IND, sockData); + if (rtn != SD_SUCCESS) + _uSockDataFree (pSock, sockData); + } + +/************************************************************************/ +/* uSockHunt */ +/* This function will get the length of received message on a socket. */ +/* We expect the size field to be RFC1006_HEAD_LEN bytes. */ +/************************************************************************/ + +static ST_VOID _uSockHunt (GEN_SOCK *pSock, ST_INT *huntStateIo, + ST_CHAR *buf, ST_INT bufCount, ST_INT *lenOut) + { +ST_UINT16 u16len; + + /* Better get our 4 byte RFC-1006 header ... */ + if (bufCount != RFC1006_HEAD_LEN) + { + /* This should NEVER happen. gensock2 state machine must be corrupted.*/ + SOCK_LOG_ERR1 (tp0Ctx.sockCtx, "%s: Socket Hunt for start of message failed.\n" + " Error could be unrecoverable.", pSock->sockIdStr); + *huntStateIo = GENSOCK_HUNT_DISCONNECT; + return; + } + + if (buf[0] != RFC1006_VERSION) + { + SOCK_LOG_ERR1 (tp0Ctx.sockCtx, "%s: Received RFC 1006 header with invalid version (first byte). Header:", + pSock->sockIdStr); + SOCK_LOG_ERRH (tp0Ctx.sockCtx, 4, buf); + *huntStateIo = GENSOCK_HUNT_DISCONNECT; + return; + } + + /* Ignore 2nd byte (reserved). */ + + /* len is in 3rd/4th bytes, in network byte order, and includes len of header. + * Convert to host byte order, & subtract header len. + * CRITICAL: cast to ST_UCHAR before ST_UINT16 to avoid sign extension. + */ + u16len = (((ST_UINT16)(ST_UCHAR) buf[2]) << 8) | (ST_UINT16)(ST_UCHAR) buf[3]; + /* CRITICAL: make sure len is at least RFC1006_HEAD_LEN so subtracting*/ + /* does not create negative number. */ + if (u16len < RFC1006_HEAD_LEN) + { + SOCK_LOG_ERR2 (tp0Ctx.sockCtx, "%s: Received RFC 1006 header with invalid length (%u). Header:", + pSock->sockIdStr, u16len); + SOCK_LOG_ERRH (tp0Ctx.sockCtx, RFC1006_HEAD_LEN, buf); + *huntStateIo = GENSOCK_HUNT_DISCONNECT; + return; + } + u16len -= RFC1006_HEAD_LEN; /* subtract header len */ + /* NOTE: cast to ST_UINT before ST_INT to avoid sign extension. */ + *lenOut = (ST_INT)(ST_UINT)u16len; + *huntStateIo = GENSOCK_HUNT_DONE; + } + + /*----------------------------------------------*/ + /* Alloc / Free */ + /*----------------------------------------------*/ + +/************************************************************************/ +/* sock_info_alloc2 */ +/* Allocate a SOCK_INFO struct and fill it in. */ +/************************************************************************/ +SOCK_INFO *sock_info_alloc2 (GEN_SOCK *genSock, ST_INT state, ST_LONG user_conn_id) + { +SOCK_INFO *sock_info; + + /* Allocate SOCK_INFO struct. */ + sock_info = (SOCK_INFO *) M_CALLOC (MSMEM_SOCK_INFO, 1, sizeof (SOCK_INFO)); + /* Fill in SOCK_INFO struct. */ + /* NOTE: sock_info->hSock is NOT used. sock_info->genSock is used instead.*/ + sock_info->genSock = genSock; + sock_info->state = state; + sock_info->user_conn_id = user_conn_id; + sock_info->encrypt_ctrl.encryptMode = S_SEC_ENCRYPT_NONE; + sock_info->recvCnt = 0; + return (sock_info); + } + +/************************************************************************/ +/* sock_info_free */ +/* Free a SOCK_INFO struct. */ +/************************************************************************/ +ST_VOID sock_info_free (SOCK_INFO *sock_info) + { + /* NOTE: gensock2 handles closing of the socket. */ + M_FREE (MSMEM_SOCK_INFO, sock_info); + } + +/************************************************************************/ +/* _uSockDataAlloc */ +/************************************************************************/ +static ST_VOID _uSockDataAlloc (GEN_SOCK *pSock, ST_INT dataLen, + GEN_SOCK_DATA **sockDataOut) + { +GEN_SOCK_DATA *sockData; + + sockData = (GEN_SOCK_DATA *) chk_malloc (sizeof (GEN_SOCK_DATA) + dataLen); + sockData->data = (ST_UCHAR *) (sockData + 1); + sockData->dataLen = dataLen; + /* We don't use sockData->usrBufBase, sockData->usrBufLen */ + + *sockDataOut = sockData; + } +/************************************************************************/ +/* _uSockDataFree */ +/************************************************************************/ +static ST_VOID _uSockDataFree (GEN_SOCK *pSock, GEN_SOCK_DATA *sockData) + { + /* Allocated in _uSockDataAlloc using "chk_malloc", so use "chk_free".*/ + chk_free (sockData); + } + + /*----------------------------------------------*/ + /* Misc */ + /*----------------------------------------------*/ + +/************************************************************************/ +/* _addSockInd */ +/************************************************************************/ +static ST_RET _addSockInd (GEN_SOCK *pSock, ST_INT eventType, GEN_SOCK_DATA *sockData) + { +GEN_SOCK_EVENT *sdi; +#if defined(MMSEASE_MOSI) +static ST_UCHAR tcpEventWakeupData = 1; +ST_INT numSent = 0; +#endif + + if (tp0Ctx.state == TP0_SOCK_CTX_STATE_TERMINATING) + { + SOCK_LOG_FLOW1 (tp0Ctx.sockCtx, "%s: in _addSockInd failed - context terminating", pSock->sockIdStr); + return (SD_FAILURE); + } + else + SOCK_LOG_FLOW1 (tp0Ctx.sockCtx, "%s: in _addSockInd", pSock->sockIdStr); + + sdi = (GEN_SOCK_EVENT *) chk_calloc (1, sizeof (GEN_SOCK_EVENT)); + sdi->eventType = eventType; + sdi->pSock = pSock; + + sdi->sockData = sockData; + sockEventPut (tp0Ctx.sockCtx, sdi); /* let gensock save on list*/ + S_LOCK_UTIL_RESOURCES (); + /* if application can't process incoming data msgs as fast as they are*/ + /* received by the socket then the best way to prevent uncontrolled */ + /* growth of the receiving queue is to apply back pressure to the */ + /* sending socket. */ + if (eventType == GS_EVENT_DATA_IND) + { +SOCK_INFO *sock_info = (SOCK_INFO *) pSock->sockCfg.usr2; + /* this is a bit tricky, if we accept connection from rfc1006listener */ + /* then the first packet will be queued before the sock_info is allocated */ + /* so we must check here if the ptr is NULL */ + if (sock_info) + { + ++sock_info->recvCnt; + if (sock_info->recvCnt >= SOCK_RX_QUE_HIGH_MARK && pSock->sockCfg.pauseRecv == SD_FALSE) + { + pSock->sockCfg.pauseRecv = SD_TRUE; + SOCK_LOG_FLOWC2 (tp0Ctx.sockCtx, "%s: recvCnt=%u, setting pauseRecv=SD_TRUE", + pSock->sockIdStr, sock_info->recvCnt); + } + } + } + S_UNLOCK_UTIL_RESOURCES (); + + /* wake up main thread */ +#if defined(_WIN32) + gs_signal_event_sem (hTcpEvent); /* wake up main thread */ + SOCK_LOG_FLOW2 (tp0Ctx.sockCtx, "%s: in _addSockInd() signaled hTcpEvent=%lu", pSock->sockIdStr, (ST_ULONG) hTcpEvent); +#endif + +#if defined(MMSEASE_MOSI) + if (tp0Ctx.hTcpEventSender != INVALID_SOCKET) + { + numSent = (ST_INT) send (tp0Ctx.hTcpEventSender, &tcpEventWakeupData, sizeof(tcpEventWakeupData), 0); + if (numSent == sizeof (tcpEventWakeupData)) + { + SOCK_LOG_FLOW3 ("%s: XSocket sent %d Wakeup data (value=%u)", + tp0Ctx.sockCtx->ctxName, numSent, (ST_UINT) tcpEventWakeupData); + } + else + { + /* when a lot of indications are received in short time, EWOULDBLOCK and EAGAIN */ + /* errors could happen often with this 1-byte packets */ + SOCK_LOG_FLOW3 ("%s: XSocket Wakeup data send() error (numSent=%d), errno=%d", + tp0Ctx.sockCtx->ctxName, numSent, SOCKET_ERRORNO); + /* ignore any errors */ + } + ++tcpEventWakeupData; + } +#endif /* defined(MMSEASE_MOSI) */ + + return (SD_SUCCESS); + } + +/************************************************************************/ +/* _handleRekeying */ +/* Call function driving security rekeying on every secured socket. */ +/************************************************************************/ +static ST_RET _handleRekeying (ST_VOID) +{ +ST_RET rc; +S_SEC_CONFIG *pSecCfg; + + rc = secManAccessCfg (&pSecCfg); + if (rc != SD_SUCCESS) + return (rc); + + /* we have to drive the checking for periodic rekeying, to do that call */ + /* the TX func with no data to send */ + if (pSecCfg->secureModeEnabled) + { + SOCK_INFO *sock_info; + + S_LOCK_UTIL_RESOURCES (); + sock_info = tp0Ctx.secureSockList; + while (sock_info) + { + if (sGetMsTime () >= sock_info->rekeyTime && + sock_info->genSock != NULL && sock_info->genSock->sockState == GS_STATE_CONNECTED) + { + GEN_SOCK_DATA sockData={{0}}; /* first in struct is struct, so need double braces */ + ST_INT numSent; + sockTx (sock_info->genSock, &sockData, &numSent); + /* set the time for next check */ + sock_info->rekeyTime = sGetMsTime() + SOCK_REKEY_TIME; + } + sock_info = list_get_next (tp0Ctx.secureSockList, sock_info); + } + S_UNLOCK_UTIL_RESOURCES (); + } + + secManReleaseCfg(); + return (rc); +} + diff --git a/mmslib/ositcps/tp0calld.c b/mmslib/ositcps/tp0calld.c new file mode 100644 index 0000000..61b9af9 --- /dev/null +++ b/mmslib/ositcps/tp0calld.c @@ -0,0 +1,210 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1997 - 2005 All Rights Reserved */ +/* */ +/* MODULE NAME : tp0calld.c */ +/* PRODUCT(S) : Lean-T Stack */ +/* */ +/* MODULE DESCRIPTION : */ +/* TP0 functions for handling of "Called" side of connections. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* tp0_accept () */ +/* tp0_process_cr () */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 07/30/08 JRB 08 Use DR reason codes valid for TP0. */ +/* 03/29/05 EJV 07 Added MMSEASE_MOSI support. */ +/* 06/20/02 JRB 06 Chg addr args to tp4_connect_ind. */ +/* 05/09/01 JRB 05 On T-CONNECT.ind, save TSAPs in TP0_CONN. */ +/* 04/25/00 JRB 04 Lint cleanup. */ +/* 06/08/99 JRB 03 Chg to support 1024 connections. */ +/* 08/13/98 JRB 02 Lint cleanup. */ +/* 08/01/97 JRB 01 Created (compatible with MMS-EASE 7.0). */ +/************************************************************************/ +#include "glbtypes.h" +#include "sysincs.h" +#include "mem_chk.h" +#include "tp4api.h" /* User definitions for tp4 */ +#include "tp4.h" /* Internal definitions for tp4 */ +#include "tp4_encd.h" /* Encode/decode defs for tp4 */ +#include "tp4_log.h" + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/*======================================================================*/ +/*======================================================================*/ +/* FUNCTIONS BELOW CALLED BY USER TO ENCODE AND SEND TPDUs. */ +/*======================================================================*/ +/*======================================================================*/ + +/************************************************************************/ +/* tp0_accept */ +/* This function is called by the user to accept a connect request from */ +/* a remote node */ +/************************************************************************/ + +ST_RET tp0_accept (ST_LONG tp0_conn_id, ST_LONG user_conn_id, + ST_INT conndata_len, + char *conndata) + { +TP0_CONN *tp_conn; + + if ((ST_ULONG) (tp0_conn_id-MIN_TP0_CONN_ID) >= tp0_cfg.max_num_conns) + return (TP4E_BADCONN); + + tp_conn = &tp0_conn_arr [tp0_conn_id-MIN_TP0_CONN_ID]; + if (tp_conn->state != TP_STATE_WFTRESP) + return (TP4E_BADCONN); + + tp_conn->user_conn_id = user_conn_id; /* Save User's ID */ + + /* Save User Data in tp_conn for retransmission. */ + /* DEBUG: Can we blow this off to save space? */ + tp_conn->tpdu_cx.udata_len = min ((ST_UINT16) conndata_len, TP_MAX_CONN_UDATA); + memcpy (tp_conn->tpdu_cx.udata_buf, conndata, tp_conn->tpdu_cx.udata_len); + + tp_conn->state = TP_STATE_OPEN; + tp0_send_cc (&tp_conn->tpdu_cx); + return (SD_SUCCESS); + } + +/*======================================================================*/ +/*======================================================================*/ +/* FUNCTIONS BELOW CALLED BY TP0 TO PROCESS TPDUs RECEIVED */ +/* (TPDUs ALREADY DECODED BY TP0). */ +/*======================================================================*/ +/*======================================================================*/ + +/************************************************************************/ +/* tp0_process_cr */ +/* Process a CR (Connection Request) TPDU. */ +/************************************************************************/ +ST_VOID tp0_process_cr (TPDU_CX *tpdu_cr_rx) + { +ST_UINT16 conn_id; /* index into "tp0_conn_arr" array (Unsigned so */ + /* no sign-extension on compare to tp0_cfg.max_num_conns).*/ +TP0_CONN *tp_conn; /* ptr to struct in "tp0_conn_arr" array. */ +TPDU_DR tpdu_dr; +ST_LONG tp0_user_bind_id; + + /* Fill in TPDU_DR struct in case DR needs to be sent. */ + /* Do not fill in "reason" yet. */ + tpdu_dr.loc_ref = 0; /* src-ref = 0 (always) */ + tpdu_dr.rem_ref = tpdu_cr_rx->rem_ref; + tpdu_dr.sock_info = tpdu_cr_rx->sock_info; + + /* Check if Local TSAP is correct. */ +#if defined(MMSEASE_MOSI) + if (tp0_check_tsel (tpdu_cr_rx->loc_tsap, &tp0_user_bind_id) != SD_SUCCESS) +#else + tp0_user_bind_id = only_tp0_user_bind_id; + if (memcmp (tpdu_cr_rx->loc_tsap, only_tp0_loc_tsap, only_tp0_loc_tsap[0]+1)) +#endif + { + TP_LOG_ERR0 ("TP-ERROR: received CR with invalid TSAP. Sending DR."); + TP_LOGH_ERR (tpdu_cr_rx->loc_tsap[0], &tpdu_cr_rx->loc_tsap[1]); + tpdu_dr.reason = TP_DR_ADDR_UNKNOWN; + tp0_send_dr (&tpdu_dr); + return; + } + + /* Check for Transport Class 0. Don't allow any other. */ + if (tpdu_cr_rx->preferred_class != 0) + { + TP_LOG_ERR1 ("TP-ERROR: received CR with invalid class %d. Sending DR.", + tpdu_cr_rx->preferred_class); + /* NOTE: this DR "reason" is not legal for Class 0, but caller */ + /* proposed different class, so they should recognize this reason. */ + tpdu_dr.reason = TP_DR_CLASS_UNSUPPORTED; /* illegal for TP0 but OK here*/ + tp0_send_dr (&tpdu_dr); + return; + } + + /* Local Ref must equal 0. If not, it is protocol error. */ + if (tpdu_cr_rx->loc_ref != 0) + { + TP_LOG_ERR0 ("TP-ERROR: received CR with invalid reference. Sending DR."); + tpdu_dr.reason = TP_DR_NO_REASON; + tp0_send_dr (&tpdu_dr); + return; + } + + /* Look for a position in "tp0_conn_arr" where state = TP_STATE_CLOSED */ + tp_conn = &tp0_conn_arr [0]; + for (conn_id = 0; conn_id < tp0_cfg.max_num_conns; conn_id++, tp_conn++) + { + if (tp_conn->state == TP_STATE_CLOSED) + { + tp0_conn_clean (tp_conn); /* Good time to clean up conn struct. */ + inc_loc_ref_offset (tp_conn->loc_ref_offset); + + /* Save sock_info in "tp_conn". */ + tp_conn->sock_info = tpdu_cr_rx->sock_info; + /* Save tp_conn (as user_conn_id) in "sock_info". */ + tp_conn->sock_info->user_conn_id = (ST_LONG) tp_conn; + + /* Copy the CR info to the tp_conn struct and modify it for the CC.*/ + /* Most parameters we send back exactly as received (all except */ + /* max_tpdu_len, loc_ref, cdt, udata_buf/len). */ + /* NOTE: udata_buf/len not changed until tp0_accept. */ + + memcpy (&tp_conn->tpdu_cx, tpdu_cr_rx, sizeof (TPDU_CX)); + tp_conn->tpdu_cx.max_tpdu_len_enc = min (tp0_cfg.max_tpdu_len_enc, + tpdu_cr_rx->max_tpdu_len_enc); + /* Save negotiated TPDU len in tp_conn. */ + switch (tp_conn->tpdu_cx.max_tpdu_len_enc) + { /* code for PDU size */ + case TP_PDU_MAX_SIZE_128 : tp_conn->max_tpdu_len = 128; break; + case TP_PDU_MAX_SIZE_256 : tp_conn->max_tpdu_len = 256; break; + case TP_PDU_MAX_SIZE_512 : tp_conn->max_tpdu_len = 512; break; + case TP_PDU_MAX_SIZE_1024 : tp_conn->max_tpdu_len = 1024; break; + case TP_PDU_MAX_SIZE_2048 : tp_conn->max_tpdu_len = 2048; break; + case TP_PDU_MAX_SIZE_4096 : tp_conn->max_tpdu_len = 4096; break; + case TP_PDU_MAX_SIZE_8192 : tp_conn->max_tpdu_len = 8192; break; + case TP_PDU_MAX_SIZE_65531: tp_conn->max_tpdu_len = 65531; break; + default: + TP_LOG_ERR0 ("TP-ERROR: received CR with illegal TPDU size. Sending DR."); + tpdu_dr.reason = TP_DR_NO_REASON; + tp0_send_dr (&tpdu_dr); + return; + } /* end "switch" */ + + tp_conn->tpdu_cx.loc_ref = calc_loc_ref (conn_id, tp_conn->loc_ref_offset); + tp_conn->tpdu_cx.cdt = 0; /* CDT always 0 for Class 0 */ + + /* Set "tp_conn" parameters for new connection. */ + tp_conn->rem_ref = tpdu_cr_rx->rem_ref; /* need for sending AKs */ + tp_conn->state = TP_STATE_WFTRESP; + + /* Save TSAPs in TP0_CONN struct. */ + memcpy (tp_conn->loc_tsap, tpdu_cr_rx->loc_tsap, tpdu_cr_rx->loc_tsap[0]+1); + memcpy (tp_conn->rem_tsap, tpdu_cr_rx->rem_tsap, tpdu_cr_rx->rem_tsap[0]+1); + + tp4_connect_ind (tp0_user_bind_id, conn_id+MIN_TP0_CONN_ID, + tpdu_cr_rx->loc_tsap, + tpdu_cr_rx->rem_tsap, + NULL, /* NSAP: not used */ + tp_conn->sock_info->ip_addr, + (ST_INT) tpdu_cr_rx->udata_len, + tpdu_cr_rx->udata_buf); + break; /* BREAK OUT OF LOOP. Only want 1 connection!!! */ + } + } /* end "for" loop */ + if (conn_id >= tp0_cfg.max_num_conns) + { /* Did not find an available conn_id. */ + TP_LOG_ERR0 ("TP-ERROR: not enough resources for received CR. Sending DR."); + tpdu_dr.reason = TP_DR_CONGESTION_AT_TSAP; /* legal for TP0 */ + tp0_send_dr (&tpdu_dr); + return; + } + return; + } + + diff --git a/mmslib/ositcps/tp0callg.c b/mmslib/ositcps/tp0callg.c new file mode 100644 index 0000000..0718d66 --- /dev/null +++ b/mmslib/ositcps/tp0callg.c @@ -0,0 +1,243 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1997-2005 All Rights Reserved */ +/* */ +/* MODULE NAME : tp0callg.c */ +/* PRODUCT(S) : Lean-T Stack */ +/* */ +/* MODULE DESCRIPTION : */ +/* TP0 functions for handling of "Calling" side of connections. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* tp0_connect */ +/* tp0_process_cc */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 11/12/08 MDE 15 Added tpdu_cc->sock_info->user_conn_id check */ +/* 07/30/08 JRB 14 Use DR reason codes valid for TP0. */ +/* 05/06/05 EJV 13 Added port param to np_connect_req call. */ +/* 03/29/05 EJV 12 Added MMSEASE_MOSI support. */ +/* 09/17/04 JRB 11 Chg tp0_connect to return connection ID. */ +/* 02/02/04 JRB 10 tp0_connect: fix tp_type, bind_id checks. */ +/* 07/30/03 EJV 09 Added encrypt_ctrl to tp0_connect. */ +/* 04/07/03 JRB 08 Add SPDU_RX_NO_PREALLOCATE option. */ +/* 06/20/02 JRB 07 Pass ip addr as ulong to np_connect_req. */ +/* 06/08/99 JRB 06 Chg to support 1024 connections. */ +/* 08/13/98 JRB 05 Lint cleanup. */ +/* 06/17/98 JRB 04 Increment loc_ref_offset before encoding CR */ +/* to avoid sending duplicate CR. */ +/* 12/04/97 JRB 03 Don't chk TSAPs on CC (may not be sent). */ +/* 09/25/97 JRB 02 Don't generate exception for invalid state. */ +/* 08/01/97 JRB 01 Created (compatible with MMS-EASE 7.0). */ +/************************************************************************/ +static char *thisFileName = __FILE__; /* For TP4_EXCEPT and slog macros*/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "mem_chk.h" +#include "tp4api.h" /* User definitions for tp4 */ +#include "tp4.h" /* Internal definitions for tp4 */ +#include "tp4_encd.h" /* Encode/decode defs for tp4 */ +#include "tp4_log.h" + +/************************************************************************/ +/* tp0_connect */ +/* This function is called by the user to initiate a connect request to */ +/* a remote node */ +/* RETURNS: connection ID if successful, (-1) on error */ +/* CRITICAL: connection ID = (conn_id+MIN_TP0_CONN_ID). Remember that */ +/* this is hoe we distinguish between TP0 and TP4 connections. */ +/************************************************************************/ + +ST_LONG tp0_connect (ST_LONG tp0_bind_id, ST_LONG user_conn_id, + TP4_ADDR *rem_tp4_addr, + ST_INT conndata_len, + char *conndata, + S_SEC_ENCRYPT_CTRL *encrypt_ctrl) + { +ST_UINT16 conn_id; /* index into "tp0_conn_arr" array. */ +TP0_CONN *tp_conn; +TPDU_CX *tpdu_cr; +ST_UCHAR *tp0_loc_tsap; + + if (rem_tp4_addr->tp_type == TP_TYPE_TCP) + { +#if defined(MMSEASE_MOSI) + if (tp0_check_bind_id (tp0_bind_id, &tp0_loc_tsap) != SD_SUCCESS) +#else + tp0_loc_tsap = only_tp0_loc_tsap; + if (tp0_bind_id != only_tp0_bind_id) +#endif + { + TP_LOG_ERR1 ("tp0_connect: bind id %ld invalid. TCP must be enabled in config.", tp0_bind_id); + return (-1); + } + } + else /* Transport type not TP0, this is error. */ + { + TP_LOG_ERR0 ("tp0_connect: invalid transport type"); + return (-1); + } + + if (rem_tp4_addr->tp4_sel_len > MAX_TSEL_LEN) + { + TP4_EXCEPT (); /* If this happens, user code is invalid. */ + return (-1); + } + + /* Look for available connection. */ + tp_conn = &tp0_conn_arr [0]; + for (conn_id = 0; conn_id < tp0_cfg.max_num_conns; conn_id++, tp_conn++) + { + if (tp_conn->state == TP_STATE_CLOSED) + break; /* Found one!! "tp_conn" points to it now. */ + } /* end "for" */ + if (conn_id >= tp0_cfg.max_num_conns) + { /* Didn't find one!! */ + TP_LOG_ERR0 ("TP-ERROR: tp0_connect: all connections in use"); + return (-1); + } + /* "tp_conn" now points to a connection in TP_STATE_CLOSED state. */ + tp0_conn_clean (tp_conn); /* Good time to clean up conn struct. */ + + /* Increment "loc_ref_offset" to avoid duplicate CR. */ + inc_loc_ref_offset (tp_conn->loc_ref_offset); + + /* Set "tpdu_cr" pointing to "tp_conn->tpdu_cx" and fill in. */ + /* Info stored in "tp_conn" in case retransmissions needed. */ + tpdu_cr = &tp_conn->tpdu_cx; + memcpy (tpdu_cr->loc_tsap, tp0_loc_tsap, tp0_loc_tsap [0]+1); + tpdu_cr->rem_tsap [0] = (ST_UCHAR) rem_tp4_addr->tp4_sel_len; + memcpy (&tpdu_cr->rem_tsap [1], rem_tp4_addr->tp4_sel, rem_tp4_addr->tp4_sel_len); + tpdu_cr->loc_ref = calc_loc_ref (conn_id, tp_conn->loc_ref_offset); + tpdu_cr->rem_ref = 0; + tpdu_cr->max_tpdu_len_enc = tp0_cfg.max_tpdu_len_enc; + tpdu_cr->preferred_class = 0; + tpdu_cr->cdt = 0; + tpdu_cr->udata_len = min ((ST_UINT16) conndata_len, TP_MAX_CONN_UDATA); + memcpy (tpdu_cr->udata_buf, conndata, tpdu_cr->udata_len); + + /* Set state before calling np_connect_req (may complete immediately).*/ + tp_conn->user_conn_id = user_conn_id; /* Save User's ID for confirm. */ + tp_conn->state = TP_STATE_WFNC; + if ((tp_conn->sock_info = np_connect_req ((ST_LONG) tp_conn, rem_tp4_addr->netAddr.ip, + rem_tp4_addr->port, encrypt_ctrl)) == NULL) + { + tp_conn->state = TP_STATE_CLOSED; /* CRITICAL: so tp_conn can be reused.*/ +#if defined(SPDU_RX_NO_PREALLOCATE) + M_FREE (MSMEM_STARTUP, tp_conn->spdu_rx.spdu_ptr); +#endif + return (-1); /* Network connect failed immediately. */ + } + + /* CRITICAL: For TP0, connection ID = (conn_id+MIN_TP0_CONN_ID). */ + return (conn_id+MIN_TP0_CONN_ID); + } + +/************************************************************************/ +/* tp0_process_cc */ +/************************************************************************/ +ST_VOID tp0_process_cc (TPDU_CX *tpdu_cc) + { +ST_ULONG conn_id; /* index into "tp0_conn_arr" array (Unsigned so */ + /* no sign-extension on compare to tp0_cfg.max_num_conns).*/ +TP0_CONN *tp_conn; /* ptr to struct in "tp0_conn_arr" array. */ +TPDU_DR tpdu_dr; +ST_INT unacceptable_cc = SD_FALSE; +ST_INT reason; + + + /* Fill in TPDU_DR struct in case DR needs to be sent. */ + /* Do not fill in "reason" yet. */ + tpdu_dr.loc_ref = tpdu_cc->loc_ref; + tpdu_dr.rem_ref = tpdu_cc->rem_ref; + tpdu_dr.sock_info = tpdu_cc->sock_info; + + /* Check connection ID. */ + if (tpdu_cc->sock_info->user_conn_id == INVALID_CONN_ID) + { + /* Invalid ID means CR has not been sent, so this CC is unexpected. */ + /* CC most likely received from "abnormal" application. */ + TP_LOG_ERR0 ("TP-ERROR: tp0_process_cc: Invalid tp_conn"); + /* May be intentional attack, so disconnect immediately. */ + np_disconnect_req (tpdu_cc->sock_info); + return; + } + + /* Find the correct "tp_conn". It should have been saved in sock_info.*/ + tp_conn = (TP0_CONN *) tpdu_cc->sock_info->user_conn_id; + + + conn_id = tp_conn - tp0_conn_arr; /* conn_id = index into array */ + + switch (tp_conn->state) + { + case TP_STATE_CLOSED: + tpdu_dr.reason = TP_DR_NO_SESSION; /* We're not trying to connect*/ + tp0_send_dr (&tpdu_dr); + break; + case TP_STATE_WFCC: + /* Check for Transport Class 0. Don't allow any other. */ + if (tpdu_cc->preferred_class != 0) + { + unacceptable_cc = SD_TRUE; + } + /* Save negotiated TPDU len in tp_conn->max_tpdu_len. */ + switch (tpdu_cc->max_tpdu_len_enc) + { + case TP_PDU_MAX_SIZE_128 : tp_conn->max_tpdu_len = 128; break; + case TP_PDU_MAX_SIZE_256 : tp_conn->max_tpdu_len = 256; break; + case TP_PDU_MAX_SIZE_512 : tp_conn->max_tpdu_len = 512; break; + case TP_PDU_MAX_SIZE_1024 : tp_conn->max_tpdu_len = 1024; break; + case TP_PDU_MAX_SIZE_2048 : tp_conn->max_tpdu_len = 2048; break; + case TP_PDU_MAX_SIZE_4096 : tp_conn->max_tpdu_len = 4096; break; + case TP_PDU_MAX_SIZE_8192 : tp_conn->max_tpdu_len = 8192; break; + case TP_PDU_MAX_SIZE_65531: tp_conn->max_tpdu_len = 65531; break; + /* Default to ILLEGAL value (i.e. 0) */ + default: tp_conn->max_tpdu_len = 0; break; + } /* end "switch" */ + /* If max_tpdu_len ILLEGAL or ">" proposed, this is protocol error.*/ + if (tp_conn->max_tpdu_len == 0 || /* ILLEGAL */ + tp_conn->max_tpdu_len > tp0_cfg.max_tpdu_len) /* ">" proposed */ + { + tpdu_dr.reason = TP_DR_NO_REASON; + unacceptable_cc = SD_TRUE; + } + + if (unacceptable_cc) + { /* UN-ACCEPTABLE CLASS 0 CC TPDU. */ + reason = 0xff; /* Local user error */ + tp4_disconnect_ind (tp_conn->user_conn_id, reason, + 0, NULL); /* No user data passed up. */ + np_disconnect_req (tp_conn->sock_info); + tp_conn->state = TP_STATE_CLOSED; +#if defined(SPDU_RX_NO_PREALLOCATE) + M_FREE (MSMEM_STARTUP, tp_conn->spdu_rx.spdu_ptr); +#endif + } + else + { /* ACCEPTABLE CLASS 0 CC TPDU. */ + /* Save "rem_ref" in "tp_conn". */ + tp_conn->rem_ref = tpdu_cc->rem_ref; + + /* CRITICAL: set state before tp4_connect_cnf because may */ + /* send first Transport data from within tp4_connect_cnf. */ + tp_conn->state = TP_STATE_OPEN; + tp4_connect_cnf (tp_conn->user_conn_id, conn_id+MIN_TP0_CONN_ID, + (ST_UINT) tpdu_cc->udata_len, tpdu_cc->udata_buf); + tp_conn->state = TP_STATE_OPEN; + } + break; + + default: + TP_LOG_ERR1 ("TP-ERROR: invalid state (%d) for received CC. Ignored.", + tp_conn->state); + break; + } /* end "switch" */ + return; + } + diff --git a/mmslib/ositcps/tp0main.c b/mmslib/ositcps/tp0main.c new file mode 100644 index 0000000..1b24f38 --- /dev/null +++ b/mmslib/ositcps/tp0main.c @@ -0,0 +1,1173 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1997-2005 All Rights Reserved */ +/* */ +/* MODULE NAME : tp0main.c */ +/* PRODUCT(S) : Lean-T Stack */ +/* */ +/* MODULE DESCRIPTION : */ +/* Main processsing functions for TP0. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* tp0_initialize () */ +/* tp0_terminate () */ +/* tp0_bind () */ +/* tp0_unbind () */ +/* tp0_session_timer () */ +/* tp0_timer_tick () */ +/* tp0_buffers_avail () */ +/* tp0_event () */ +/* tp0_data () */ +/* tp0_disconnect () */ +/* tp0_process_dt () */ +/* tp0_process_dr () */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 07/30/08 JRB 27 Use DR reason codes valid for TP0. */ +/* 06/23/06 JRB 26 Fix calc_loc_ref problem (conn_id wrong type)*/ +/* 06/06/05 EJV 25 MMSEASE_MOSI: add rfc1006_listener_* funcs. */ +/* 04/06/05 EJV 24 Added MMSEASE_MOSI support. */ +/* tp0_terminate: check for valid tp0_conn_arr. */ +/* 03/11/05 JRB 23 Ignore DT.ind or DR.ind if waiting for CR.ind*/ +/* 02/22/05 JRB 22 tp0_data: fix return value. */ +/* 01/24/05 JRB 21 Move tp4_debug_sel & "*_logstr" to lean_var.c*/ +/* 09/17/04 JRB 20 tp0_session_timer: chk state only if starting*/ +/* Use session_cfg.disconnect_timeout. */ +/* 01/13/04 EJV 19 tp0_initialize: set tp0_cfg.max_spdu_outst. */ +/* Changed tp0_send_... funcs to return value. */ +/* np_data_req: added eot param. */ +/* 04/07/03 JRB 18 Add SPDU_RX_NO_PREALLOCATE option. */ +/* 07/10/02 JRB 17 tp0_buffers_avail return INT_MAX (no limit). */ +/* 06/20/02 JRB 16 Add tp0_convert_ip function. */ +/* 05/08/02 JRB 15 Add tp0_connect_outstanding_count function. */ +/* 01/22/02 JRB 14 Add max_conns arg to tp0_initialize. */ +/* 05/25/01 JRB 13 Fix thisFile.. warning. */ +/* 03/15/00 JRB 12 Alloc tp_conn->spdu_rx.spdu_ptr once at */ +/* startup for each conn. Free before exit. */ +/* 03/15/00 JRB 11 If spdu_rx exceeds max, disconnect. */ +/* 01/05/01 EJV 10 tp0_initialize: corrected logging. */ +/* 03/14/00 JRB 09 tp0_terminate: fake DR.ind so stack cleans up*/ +/* 09/13/99 MDE 08 Added SD_CONST modifiers */ +/* 06/08/99 JRB 07 Chg to support 1024 connections. */ +/* 08/13/98 JRB 06 Lint cleanup. */ +/* 03/23/98 NAV 05 Free g_tpkt_enc_buf on termination */ +/* 02/16/98 JRB 04 Cast args. */ +/* 09/25/97 JRB 03 Don't generate exception for invalid state. */ +/* 09/23/97 JRB 02 tp0_terminate: disconnect all TP0 conns. */ +/* 08/01/97 JRB 01 Created (compatible with MMS-EASE 7.0). */ +/************************************************************************/ +#include "glbtypes.h" +#include "sysincs.h" +#include "mem_chk.h" +#include "tp4api.h" /* User definitions for tp4 */ +#include "tp4.h" /* Internal definitions for tp4 */ +#include "tp4_encd.h" +#include "tp4_log.h" + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif +/************************************************************************/ +/* Local function Prototypes */ +/************************************************************************/ + +/************************************************************************/ +/* Global Configuration Structure */ +/* This structure must be filled in by user BEFORE tp0_initialize (). */ +/* It MUST NOT change after tp0_initialize (). */ +/* DEBUG: should tp0_initialize make it's own copy of this struct */ +/* so that the user CAN NOT screw it up????? */ +/************************************************************************/ +TP0_CFG tp0_cfg; + +/************************************************************************/ +/* Global Variables initialized by tp0_initialize (). */ +/* Not accessible to user. */ +/************************************************************************/ +TP0_CONN *tp0_conn_arr; /* ptr to array of "max_num_conns" structs */ +ST_UCHAR *g_tpkt_enc_buf; /* Buffer for encoding TPKTs. */ +static ST_UINT g_tp0_max_spdu_len; /* Max SPDU size to send or receive */ + +/************************************************************************/ +/* Global Variables initialized by tp0_bind (). */ +/* Not accessible to user. */ +/************************************************************************/ +#if defined(MMSEASE_MOSI) +/* multiple binds allowed, tp0_bind_id = index into the bind_tsel_tbl */ +typedef struct tagBIND_TSEL + { + ST_LONG user_bind_id; /* = session bind id */ + ST_UCHAR tsel [1+MAX_TSEL_LEN]; /* Local len & TSEL */ + } BIND_TSEL; + +ST_UINT bind_tsel_tbl_max; /* for now use max_conns */ +BIND_TSEL *bind_tsel_tbl; /* entry 0 unused! */ +#else /* !defined(MMSEASE_MOSI) */ +/* DEBUG: should we check tp0_bind_called before any calls to user? */ +static ST_INT tp0_bind_called; /* Flag to prevent multiple bind calls. */ +/* CRITICAL: only_tp0_bind_id must be different from only_tp4_bind_id, */ +/* because either may be passed up to user in tp4_bind_cnf. */ +ST_LONG only_tp0_bind_id = 199; /* Only one tp0_bind_id. */ +ST_LONG only_tp0_user_bind_id; /* Only one user_bind_id. */ +ST_UCHAR only_tp0_loc_tsap [1+MAX_TSEL_LEN]; /* Local len & TSAP addr*/ +#endif /* !defined(MMSEASE_MOSI) */ + +/*======================================================================*/ +/*======================================================================*/ +/* INITIALIZATION AND TERMINATION FUNCTIONS */ +/*======================================================================*/ +/*======================================================================*/ + +/************************************************************************/ +/* tp0_initialize */ +/* Initialize the TP0 service provider. */ +/* NOTE: the configuration parameters in the "tp0_cfg" struct must be */ +/* set BEFORE calling this function. */ +/* WARNING: tp0_cfg MUST NOT be modified after this function called. */ +/* NOTE: the value of tp0_cfg.max_num_conns is overwritten with the */ +/* value passed in the argument max_conns. */ +/* Return: */ +/* SD_SUCCESS or */ +/* error code (TP4E_* or error code returned from np_init) */ +/************************************************************************/ +ST_RET tp0_initialize (ST_UINT max_conns, ST_UINT max_spdu_len) + { +ST_RET errcode; +ST_UINT16 max_tpkt_len; /* Max len of RFC1006 TPKT. */ +ST_UINT j; + + if (max_conns > TP_MAX_NUM_CONNS) + { + TP_LOG_ERR1 ("TP-ERROR: number of requested TCP connections (%d) exceeds max", + max_conns); + return (TP4E_INVAL_NUM_CONNS); + } + tp0_cfg.max_num_conns = max_conns; /* overwrite configured value */ + +#if !defined (TP4_ENABLED) /* Otherwise, done in tp4_initialize */ +#if defined(DEBUG_SISCO) + tp4_debug_sel |= TP4_LOG_ERR; /* Always enable error logging. */ +#endif + tp4_init_timer (); +#endif /* !TP4_ENABLED */ + + /* Save arg in global for later use. */ + g_tp0_max_spdu_len = max_spdu_len; + + /* Check that all configured parameter values are legal. */ + + /* init the max number of SPDUs that can be queued in gensock2 */ + if (tp0_cfg.max_spdu_outst == 0) + tp0_cfg.max_spdu_outst = 50; + + /* Check max_tpdu_len. If legal, save binary encoding in global NOW. */ + switch (tp0_cfg.max_tpdu_len) + { /* code for PDU size */ + case 128: tp0_cfg.max_tpdu_len_enc = TP_PDU_MAX_SIZE_128 ; break; + case 256: tp0_cfg.max_tpdu_len_enc = TP_PDU_MAX_SIZE_256 ; break; + case 512: tp0_cfg.max_tpdu_len_enc = TP_PDU_MAX_SIZE_512 ; break; + case 1024: tp0_cfg.max_tpdu_len_enc = TP_PDU_MAX_SIZE_1024 ; break; + case 2048: tp0_cfg.max_tpdu_len_enc = TP_PDU_MAX_SIZE_2048 ; break; + case 4096: tp0_cfg.max_tpdu_len_enc = TP_PDU_MAX_SIZE_4096 ; break; + case 8192: tp0_cfg.max_tpdu_len_enc = TP_PDU_MAX_SIZE_8192 ; break; + case 65531: tp0_cfg.max_tpdu_len_enc = TP_PDU_MAX_SIZE_65531; break; + default: + TP_LOG_ERR1 ("TP-ERROR: configured rfc1006_max_tpdu_len (%d) illegal", + tp0_cfg.max_tpdu_len); + return (TP4E_INVAL_TPDU_LEN); + } + + /* Compute Max TPKT len & allocate TPKT encode buffer. */ + max_tpkt_len = tp0_cfg.max_tpdu_len + RFC1006_HEAD_LEN; + g_tpkt_enc_buf = (ST_UCHAR *) M_MALLOC (MSMEM_STARTUP, max_tpkt_len); + + /* Initialize the Network layer (i.e. RFC1006). */ + + + + + if ((errcode = np_init (max_conns)) != SD_SUCCESS) + return (errcode); + + tp0_conn_arr = (TP0_CONN *) M_CALLOC (MSMEM_STARTUP, max_conns, sizeof (TP0_CONN)); + for (j=0; jtp_type != TP_TYPE_TCP) + { /* Not for TP0 */ + /* No other TP provider to pass to. This is error. */ + TP_LOG_ERR0 ("TP-ERROR: tp0_bind: invalid transport type"); + return (SD_FAILURE); + } + + if (max_conns > tp0_cfg.max_num_conns) + { + TP_LOG_ERR2 ("TP-ERROR: tp0_bind: requested TP conns (%d) greater than number configured (%d)", + max_conns, tp0_cfg.max_num_conns); + return (TP4E_INVAL_NUM_CONNS); + } + +/* DEBUG:: the tbl alloc may need to be moved to tp0_initialize, and free */ +/* in tp0_terminate. */ + if (!bind_tsel_tbl) + { + bind_tsel_tbl_max = tp0_cfg.max_num_conns + 1; /* entry 0 unused */ + bind_tsel_tbl = (BIND_TSEL *) chk_calloc (bind_tsel_tbl_max, sizeof(BIND_TSEL)); + } + + /* Make sure Local TSAP len is legal before copying. */ + if (tp4_addr->tp4_sel_len > 0 && tp4_addr->tp4_sel_len <= MAX_TSEL_LEN) + { + /* find a spot in the bind_tsel_tbl (entry 0 unused) */ + for (idx=1; idxtsel[0] == 0) /* if available */ + { + ST_UCHAR tmp_tsel[MAX_TSEL_LEN+1]; + tmp_tsel[0] = (ST_UCHAR) tp4_addr->tp4_sel_len; + memcpy (&tmp_tsel[1], tp4_addr->tp4_sel, tp4_addr->tp4_sel_len); + if (tp0_check_tsel (tmp_tsel, NULL) == SD_SUCCESS) + { + TP_LOG_ERR0 ("TP-ERROR: tp0_bind: TSEL already bound"); + TP_LOGH_ERR (tp4_addr->tp4_sel_len, tp4_addr->tp4_sel); + return (TP4E_INVAL_TSEL); + } + ret = rfc1006_listener_bind (tmp_tsel); + if (ret != SD_SUCCESS) + return (ret); + tp0_bind_id = idx; + bind_tsel->user_bind_id = user_bind_id; + memcpy (bind_tsel->tsel, tmp_tsel, tp4_addr->tp4_sel_len+1); + TP_LOG_REQ1 ("tp0_bind: Bound TSEL to tp0_bind_id=%d", tp0_bind_id); + TP_LOGH_REQ (tp4_addr->tp4_sel_len, tp4_addr->tp4_sel); + break; + } + } + if (idx == bind_tsel_tbl_max) + { + TP_LOG_ERR0 ("TP-ERROR: too many binds"); + return (TP4E_TOO_MANY_BINDS); + } + } + else + { + TP_LOG_ERR2 ("TP-ERROR: tp0_bind: invalid TSEL length=%d octets (len>0 && len<=%d)", + tp4_addr->tp4_sel_len, MAX_TSEL_LEN); + return (TP4E_INVAL_TSEL); + } + + tp4_bind_cnf (user_bind_id, tp0_bind_id, SD_SUCCESS); + return (SD_SUCCESS); + } + +/************************************************************************/ +/* rfc1006_listener_unbind */ +/* Function to unbind TSAP in rfc1006_listener task. Passed through */ +/* UNIX domain socket. Waits for the response, discarding any non */ +/* RFC1006_IPC_OP_UNBIND messages. */ +/************************************************************************/ +ST_RET rfc1006_listener_unbind (ST_UCHAR *tsap) + { +ST_UINT tsap_len = (ST_UINT) ((ST_UINT8) tsap [0]+1); +RFC1006_IPC_MSG ipc_msg; +int count; +ST_CHAR *tmp_buf; +char resp; + + ipc_msg.magic = RFC1006_IPC_MAGIC_NUM; + ipc_msg.opcode = RFC1006_IPC_OP_UNBIND; + ipc_msg.data_len = 0; + + /* send the UNBIND msg header */ + count = sendwait (domsock_listener, &ipc_msg, sizeof (RFC1006_IPC_MSG), 0); + if (count != sizeof (RFC1006_IPC_MSG)) + { + TP_LOG_ERR0 ("TP-ERROR: rfc1006_listener_unbind: send UNBIND header failed."); + return (SD_FAILURE); + } + + /* send the TSAP to unbind */ + count = sendwait (domsock_listener, tsap, tsap_len, 0); + if (count != tsap_len) + { + TP_LOG_ERR0 ("TP-ERROR: rfc1006_listener_unbind: send UNBIND TSAP failed."); + return (SD_FAILURE); + } + + /* Keep trying to read until RFC1006_IPC_OP_UNBIND response arrives. */ + do + { /* read and drop any other IPC_MSG */ + count = recvwait (domsock_listener, &ipc_msg, sizeof (RFC1006_IPC_MSG), 0); + if (count != sizeof (RFC1006_IPC_MSG)) + { + TP_LOG_ERR0 ("TP-ERROR: rfc1006_listener_unbind: failed to receive UNIBIND response."); + return (SD_FAILURE); + } + if (ipc_msg.magic != RFC1006_IPC_MAGIC_NUM) + { + TP_LOG_ERR1 ("TP-ERROR: rfc1006_listener_unbind: received invalid magic='%X'", + ipc_msg.magic); + return (SD_FAILURE); + } + if (ipc_msg.opcode != RFC1006_IPC_OP_UNBIND) + { + TP_LOG_IND2 ("rfc1006_listener_unbind: waiting for UNBIND response.\n Ignoring message with opcode=%d, len=%d", + ipc_msg.opcode, ipc_msg.data_len); + if (ipc_msg.data_len > 0) /* read and discard data if present */ + { + tmp_buf = chk_malloc (ipc_msg.data_len); + count = read (domsock_listener, tmp_buf, ipc_msg.data_len); + chk_free (tmp_buf); + } + } + } while (ipc_msg.opcode != RFC1006_IPC_OP_UNBIND); + + if (ipc_msg.data_len != 1) + { + TP_LOG_ERR1 ("TP-ERROR: rfc1006_listener_unbind: received invalid data_len=%u (expecting 1 byte)", + (ST_UINT) ipc_msg.data_len); + return (SD_FAILURE); + } + + count = recvwait (domsock_listener, &resp, 1, 0); + if (count != 1) + { + TP_LOG_ERR0 ("TP-ERROR: rfc1006_listener_unbind: failed to receive expected 1 byte UNBIND response"); + return (SD_FAILURE); + } + + if (resp != SD_SUCCESS) + { + TP_LOG_ERR1 ("TP-ERROR: rfc1006_listener_unbind: UNBIND failed resp=%d.", + (ST_UINT) resp); + return (SD_FAILURE); + } + + return (SD_SUCCESS); + } + +/************************************************************************/ +/* tp0_unbind */ +/************************************************************************/ +ST_RET tp0_unbind (ST_LONG tp0_bind_id) + { +ST_RET ret = SD_FAILURE; +BIND_TSEL *bind_tsel; + + if (bind_tsel_tbl && tp0_bind_id > 0 && tp0_bind_id <= bind_tsel_tbl_max) + { + /* tp0_bind_id is the index into the bind table */ + bind_tsel = &bind_tsel_tbl[tp0_bind_id]; + if (bind_tsel->tsel[0] != 0) + { + ret = rfc1006_listener_unbind (bind_tsel->tsel); + TP_LOG_REQ1 ("tp0_unbind: tp0_bind_id=%d", tp0_bind_id); + tp4_unbind_cnf (bind_tsel->user_bind_id); + bind_tsel->tsel[0] = 0; + bind_tsel->user_bind_id = 0; + ret = SD_SUCCESS; + } + else + TP_LOG_ERR0 ("TP-ERROR: TP0 UNBIND failed (not bound)."); + } + else + TP_LOG_ERR1 ("TP-ERROR: TP0 UNBIND failed (invalid tp0_bind_id=%ld).", tp0_bind_id); + + return (ret); + } + +/************************************************************************/ +/* tp0_check_tsel */ +/* Checks if given tsel was bound and sets the user_bind_id if tsel OK. */ +/* Returns: */ +/* SD_SUCCESS if tsel bound */ +/* SD_FAILURE otherwise */ +/************************************************************************/ +ST_RET tp0_check_tsel (ST_UCHAR *tsel, ST_LONG *user_bind_id) + { +ST_RET ret = SD_FAILURE; +ST_UINT idx; +BIND_TSEL *bind_tsel; + + /* find tsel (entry 0 unused) */ + for (idx=1; idxtsel[0] > 0 && + memcmp (tsel, bind_tsel->tsel, bind_tsel->tsel[0]+1) == 0) + { + if (user_bind_id) + *user_bind_id = bind_tsel->user_bind_id; + ret = SD_SUCCESS; /* tsel is bound */ + break; + } + } + return (ret); + } + +/************************************************************************/ +/* tp0_check_bind_id */ +/* Checks if given bind_id is valid and sets the tsel if bind_id OK. */ +/* Returns: */ +/* SD_SUCCESS if bind_id valid */ +/* SD_FAILURE otherwise */ +/************************************************************************/ +ST_RET tp0_check_bind_id (ST_LONG bind_id, ST_UCHAR **tsel) + { +ST_RET ret = SD_FAILURE; +ST_UINT idx; +BIND_TSEL *bind_tsel; + + /* check bind_id (entry 0 unused) */ + for (idx=1; idxtsel[0] > 0 && (ST_LONG) idx == bind_id) + { + *tsel = bind_tsel->tsel; + ret = SD_SUCCESS; /* bind_id valid */ + break; + } + } + return (ret); + } + +#else /* !defined(MMSEASE_MOSI) */ +/************************************************************************/ +/* tp0_bind */ +/* This function substitutes for "tp4_bind" when TP0/RFC1006 is being */ +/* used. See "tp4_bind" header for more info. */ +/************************************************************************/ +ST_RET tp0_bind (ST_LONG user_bind_id, + TP4_ADDR *tp4_addr, + ST_INT sharable, + ST_INT max_conns) + { + + + + + if (tp4_addr->tp_type != TP_TYPE_TCP) + { /* Not for TP0 */ + /* No other TP provider to pass to. This is error. */ + TP_LOG_ERR0 ("TP-ERROR: tp0_bind: invalid transport type"); + return (SD_FAILURE); + } + + if (tp0_bind_called) + { + TP_LOG_ERR0 ("TP-ERROR: too many binds"); + return (TP4E_TOO_MANY_BINDS); + } + + if (max_conns > tp0_cfg.max_num_conns) + { + TP_LOG_ERR2 ("TP-ERROR: requested TP conns (%d) greater than number configured (%d)", + max_conns, tp0_cfg.max_num_conns); + return (TP4E_INVAL_NUM_CONNS); + } + + /* Save user_bind_id in Global. Use in all calls to user functions. */ + only_tp0_user_bind_id = user_bind_id; + + /* Make sure Local TSAP len is legal before copying. */ + if (tp4_addr->tp4_sel_len > MAX_TSEL_LEN) + { + TP_LOG_ERR0 ("TP-ERROR: TSEL too long"); + return (TP4E_INVAL_TSEL); + } + + /* Save Local TSAP (only do memcpy if len != 0). */ + if ((only_tp0_loc_tsap [0] = (ST_UCHAR) tp4_addr->tp4_sel_len) != 0) + memcpy (&only_tp0_loc_tsap [1], tp4_addr->tp4_sel, tp4_addr->tp4_sel_len); + + + + tp4_bind_cnf (user_bind_id, only_tp0_bind_id, SD_SUCCESS); + tp0_bind_called = SD_TRUE; /* Only set if successful. */ + + + + return (SD_SUCCESS); + } + +/************************************************************************/ +/* tp0_unbind */ +/************************************************************************/ +ST_RET tp0_unbind (ST_LONG tp0_bind_id) + { + if (tp0_bind_id != only_tp0_bind_id) + return (SD_FAILURE); /* Invalid bind id. */ + if (tp0_bind_called == SD_FALSE) + return (SD_FAILURE); /* Bind never made. Cannot unbind. */ + tp0_bind_called = SD_FALSE; /* Clear flag so user can bind again. */ + tp4_unbind_cnf (only_tp0_user_bind_id); + return (SD_SUCCESS); + } +#endif /* !defined(MMSEASE_MOSI) */ + +/*======================================================================*/ +/*======================================================================*/ +/* TIMER FUNCTIONS */ +/*======================================================================*/ +/*======================================================================*/ + +/************************************************************************/ +/* tp0_session_timer */ +/*----------------------------------------------------------------------*/ +/* This function starts the session timer (for MOSI implementation). */ +/* The user function tp4_session_timer_expired will be called if the */ +/* timer expires. */ +/* */ +/* Parameters: */ +/* ST_LONG tp_conn_id TP0 connection id for this connect. */ +/* ST_BOOLEAN start SD_TRUE if timer should be started, */ +/* SD_FALSE if timer should be stopped. */ +/* */ +/* Return: */ +/* SD_SUCCESS (0) if successful */ +/* error code if not successful */ +/************************************************************************/ +ST_RET tp0_session_timer (ST_LONG tp_conn_id, ST_BOOLEAN start) +{ +TP0_CONN *tp_conn = &tp0_conn_arr [tp_conn_id-MIN_TP0_CONN_ID]; + + if (start) + { + if (tp_conn->state != TP_STATE_OPEN) + { + TP_LOG_ERR1 ("TP-ERROR: illegal connection state = %d", tp_conn->state); + return (TP4E_CONN_STATE); + } + + /* If configured, use configured val. It not, use reasonable val.*/ + if (session_cfg.disconnect_timeout) + tp_conn->session_timer = session_cfg.disconnect_timeout; + else + tp_conn->session_timer = 60; + } + else + tp_conn->session_timer = 0; /* stopping the session timer */ + + return (SD_SUCCESS); +} + +/************************************************************************/ +/* tp0_timer_tick */ +/*----------------------------------------------------------------------*/ +/* This function is called on 1 second intervals by the TP0-user */ +/* When this function is called, TP0 decrements all of the timers */ +/* for all outstanding transport connections. */ +/* */ +/* Parameters: */ +/* ST_VOID none */ +/* */ +/* Return: */ +/* ST_VOID none */ +/************************************************************************/ +ST_VOID tp0_timer_tick () + { +ST_UINT conn_id; +TP0_CONN *tp_conn; + + /* Because this function is called often and the entire tp0_conn_arr */ + /* must be checked, it must be very efficient. Therefore, tp_conn */ + /* is used to point to each element of array (instead of */ + /* tp0_conn_arr[conn_id]). */ + for (conn_id = 0, tp_conn = &tp0_conn_arr[0]; + conn_id < tp0_cfg.max_num_conns; + conn_id++, tp_conn++) + { + /* Handle "session timer" (MOSI implementation only) */ + /* Only decrement it if it's not 0 and state is legal. */ + if (tp_conn->state == TP_STATE_OPEN && + tp_conn->session_timer) + { + if (--tp_conn->session_timer == 0) + tp4_session_timer_expired (tp_conn->user_conn_id); + } /* End "session timer" handling */ + } /* End "for" loop */ + } + +/************************************************************************/ +/* tp0_buffers_avail */ +/*----------------------------------------------------------------------*/ +/* This function returns the number of buffers available for sending */ +/* SPDUs. This may be used, for example, when sending Information */ +/* Reports, to make sure there are always enough buffers for sending */ +/* responses to incoming requests. */ +/* */ +/* Parameters: */ +/* ST_LONG tp_conn_id Transport Connection ID */ +/* */ +/* Return: */ +/* ST_INT # of SPDU transmit buffers available */ +/************************************************************************/ +ST_INT tp0_buffers_avail (ST_LONG tp_conn_id) + { +TP0_CONN *tp_conn = &tp0_conn_arr [tp_conn_id-MIN_TP0_CONN_ID]; +ST_UINT spdu_que_cnt; + + spdu_que_cnt = np_get_tx_queue_cnt (tp_conn->sock_info); + return (tp0_cfg.max_spdu_outst - spdu_que_cnt); + } + +/************************************************************************/ +/* tp0_event */ +/* Receive a n_unitdata NSDU, decode it, process it, and free it. */ +/************************************************************************/ +ST_BOOLEAN tp0_event () + { + tp4_check_timer (); + + return (np_event ()); + } + +/*======================================================================*/ +/*======================================================================*/ +/* FUNCTIONS BELOW CALLED BY USER TO ENCODE AND SEND TPDUs. */ +/*======================================================================*/ +/*======================================================================*/ + +/************************************************************************/ +/* tp0_data */ +/* RETURN CODES: */ +/* SD_SUCCESS (if SPDU successfully queued for sending) */ +/* TP4E_CONN_STATE (connection not in proper state for this) */ +/* OR error returned from tp0_send_dt. */ +/************************************************************************/ +ST_RET tp0_data (ST_LONG tp_conn_id, ST_INT eot, ST_UINT spdu_len, ST_CHAR *spdu_ptr) + { +ST_RET ret = SD_SUCCESS; +TP0_CONN *tp_conn = &tp0_conn_arr [tp_conn_id-MIN_TP0_CONN_ID]; +ST_UINT spdu_offset; +TPDU_DT tpdu_dt_tx; /* ptr to TPDU of interest. */ + + if (tp_conn->state != TP_STATE_OPEN) + { + TP_LOG_ERR1 ("TP-ERROR: illegal connection state = %d", tp_conn->state); + return (TP4E_CONN_STATE); + } + + tpdu_dt_tx.dst_ref = tp_conn->rem_ref; + tpdu_dt_tx.sock_info = tp_conn->sock_info; + + /* Set up TPDU user data by pointing into SPDU. */ + for (spdu_offset = 0; spdu_offset < spdu_len; ) + { + tpdu_dt_tx.udata_ptr = spdu_ptr + spdu_offset; + if (spdu_len - spdu_offset <= (ST_UINT)(tp_conn->max_tpdu_len - TP0_HEAD_LEN_DT)) + { + tpdu_dt_tx.udata_len = spdu_len - spdu_offset; + tpdu_dt_tx.eot = SD_TRUE; + } + else + { + TP_LOG_REQ0 ("TP-INFO: SPDU being segmented. Should increase TPDU size."); + /* Send largest allowed TPDU, taking header size into account. */ + tpdu_dt_tx.udata_len = (tp_conn->max_tpdu_len - TP0_HEAD_LEN_DT); + tpdu_dt_tx.eot = SD_FALSE; + } + spdu_offset += tpdu_dt_tx.udata_len; + + ret = tp0_send_dt (&tpdu_dt_tx); + if (ret != SD_SUCCESS) + break; + } /* end "for" */ + + return (ret); + } + +/************************************************************************/ +/* tp0_disconnect */ +/* This function is called by the user to break connection */ +/************************************************************************/ +ST_RET tp0_disconnect (ST_LONG tp0_conn_id, + ST_INT conndata_len, + char *conndata) + { +TP0_CONN *tp_conn; /* ptr to struct in "tp0_conn_arr" array. */ +TPDU_DR tpdu_dr; +ST_UINT16 conn_id = (ST_UINT16) tp0_conn_id - MIN_TP0_CONN_ID; + + if (conn_id >= tp0_cfg.max_num_conns) + return (TP4E_BADCONN); + + tp_conn = &tp0_conn_arr [conn_id]; + + /* Fill in TPDU_DR struct in case DR needs to be sent. */ + tpdu_dr.loc_ref = calc_loc_ref (conn_id, tp_conn->loc_ref_offset); + tpdu_dr.rem_ref = tp_conn->rem_ref; + tpdu_dr.sock_info = tp_conn->sock_info; + tpdu_dr.reason = TP_DR_NO_REASON; + + switch (tp_conn->state) + { + case TP_STATE_OPEN: + case TP_STATE_WFCC: + case TP_STATE_WFNC: + np_disconnect_req (tp_conn->sock_info); + tp_conn->state = TP_STATE_CLOSED; +#if defined(SPDU_RX_NO_PREALLOCATE) + M_FREE (MSMEM_STARTUP, tp_conn->spdu_rx.spdu_ptr); +#endif + break; + case TP_STATE_WFTRESP: + /* Overwrite assumed "loc_ref". Not valid in this state. */ + tpdu_dr.loc_ref = 0; + tp0_send_dr (&tpdu_dr); + tp_conn->state = TP_STATE_CLOSED; +#if defined(SPDU_RX_NO_PREALLOCATE) + M_FREE (MSMEM_STARTUP, tp_conn->spdu_rx.spdu_ptr); +#endif + break; + default: + TP_LOG_ERR1 ("TP-ERROR: invalid state (%d) for sending DR. Not sent.", + tp_conn->state); + return (SD_FAILURE); + } /* end "switch" */ + return (SD_SUCCESS); + } + +/*======================================================================*/ +/*======================================================================*/ +/* FUNCTIONS BELOW CALLED BY TP0 TO PROCESS TPDUs RECEIVED */ +/* (TPDUs ALREADY DECODED BY TP0). */ +/*======================================================================*/ +/*======================================================================*/ + +/************************************************************************/ +/* tp0_process_dt */ +/* Only one SPDU per connection is ever being processed. As soon as */ +/* the EOT is received, the SPDU is passed up to the Transport-user. */ +/************************************************************************/ +ST_VOID tp0_process_dt (TPDU_DT *tpdu_dt_rx) + { +TP0_CONN *tp_conn; + + if (tpdu_dt_rx->sock_info->user_conn_id == INVALID_CONN_ID) + { + TP_LOG_ERR0 ("TP-ERROR: unexpected TPDU-DT.ind ignored. Waiting for TPDU-CR.ind."); + return; + } + + tp_conn = (TP0_CONN *) tpdu_dt_rx->sock_info->user_conn_id; + if (tp_conn - tp0_conn_arr > tp0_cfg.max_num_conns) /* check "conn_id"*/ + { + TP_LOG_ERR0 ("TP-ERROR: illegal connection id"); + return; /* conn_id is invalid. Ignore this TPDU. */ + } + + switch (tp_conn->state) + { + case TP_STATE_CLOSED: + return; /* Ignore this DT. */ + case TP_STATE_OPEN: + break; /* Continue */ + default: + TP_LOG_ERR1 ("TP-ERROR: invalid state (%d) for received DT. Ignored.", + tp_conn->state); + return; + } + + /* If this is beginning of SPDU, initialize buffer for it. */ + if (tp_conn->spdu_rx_start) /* init when CR rcvd or CR sent */ + { /* Last TPDU contained EOT. This TPDU starts new SPDU. */ + /* We can freely overwrite "spdu_rx.spdu_ptr" because the user */ + /* is now responsible for the last one. */ + tp_conn->spdu_rx.spdu_len = 0; + } + + if ((ST_UINT) (tp_conn->spdu_rx.spdu_len + tpdu_dt_rx->udata_len) + > g_tp0_max_spdu_len) + { + /* Would exceed max SPDU size. CAN'T DO memcpy. WON'T FIT IN BUFFER.*/ + /* No good recovery, so just disconnect. */ + /* NOTE: This is really a Session problem, but we handle it here. */ + + TP_LOG_ERR1 ("Received msg exceeds max_spdu_len (%d)", g_tp0_max_spdu_len); + + /* Pass up disconnect indication. */ + tp4_disconnect_ind (tp_conn->user_conn_id, TP_DR_NO_REASON, + 0, NULL); + /* Send disconnect request (compute conn_id from tp_conn. */ + tp0_disconnect (tp_conn - tp0_conn_arr + MIN_TP0_CONN_ID, 0, NULL); + return; /* DO NOT CONTINUE */ + } + + memcpy (tp_conn->spdu_rx.spdu_ptr + tp_conn->spdu_rx.spdu_len, tpdu_dt_rx->udata_ptr, + tpdu_dt_rx->udata_len); + tp_conn->spdu_rx.spdu_len += tpdu_dt_rx->udata_len; + + if (tpdu_dt_rx->eot) + { /* This TPDU contains EOT. This TPDU ends SPDU. */ + tp_conn->spdu_rx_start = SD_TRUE; /* Next TPDU will begin a SPDU. */ + + /* Pass up SPDU to user. Note that we always pass up complete SPDU */ + /* so eot is always SD_TRUE. */ + /* "tp4_data_ind" must completely process the data at spdu_ptr. */ + /* When it returns, the buffer may be reused. */ + + tp4_data_ind (tp_conn->user_conn_id, tpdu_dt_rx->eot, tp_conn->spdu_rx.spdu_len, + tp_conn->spdu_rx.spdu_ptr); + } + else + tp_conn->spdu_rx_start = SD_FALSE; /* Next TPDU is part of this SPDU*/ + } + +/************************************************************************/ +/* tp0_process_dr */ +/* Process a DR (Disconnect Request) TPDU. */ +/************************************************************************/ +ST_VOID tp0_process_dr (TPDU_DR *tpdu_dr) + { +TP0_CONN *tp_conn; +ST_INT reason; + + if (tpdu_dr->sock_info->user_conn_id == INVALID_CONN_ID) + { + TP_LOG_ERR0 ("TP-ERROR: unexpected TPDU-DR.ind ignored. Waiting for TPDU-CR.ind."); + return; + } + + /* tp_conn was saved in "sock_info" (as user_conn_id) when CR sent/rcvd*/ + tp_conn = (TP0_CONN *) tpdu_dr->sock_info->user_conn_id; + + switch (tp_conn->state) + { + case TP_STATE_CLOSED: + break; + case TP_STATE_WFCC: + reason = 0; /* Normal disconnection */ + /* NOTE: To save memory, user data is never passed up to user. */ + tp4_disconnect_ind (tp_conn->user_conn_id, reason, + 0, NULL); /* No user data passed up. */ + np_disconnect_req (tp_conn->sock_info); /* Disconnect network conn.*/ + tp_conn->state = TP_STATE_CLOSED; /* Skip REFWAIT state. */ +#if defined(SPDU_RX_NO_PREALLOCATE) + M_FREE (MSMEM_STARTUP, tp_conn->spdu_rx.spdu_ptr); +#endif + break; + case TP_STATE_OPEN: + TP_LOG_ERR0 ("TP-ERROR: Received TP0 DR in OPEN state. Ignoring."); + break; + default: + TP_LOG_ERR1 ("TP-ERROR: invalid state (%d) for received DR. Ignored.", + tp_conn->state); + break; + } + return; + } + +/*======================================================================*/ +/*======================================================================*/ +/* INTERNAL TP0 FUNCTIONS */ +/*======================================================================*/ +/*======================================================================*/ + +/************************************************************************/ +/* tp0_conn_clean */ +/* Initialize connection struct for a new connection. */ +/************************************************************************/ +ST_VOID tp0_conn_clean (TP0_CONN *tp_conn) + { + tp_conn->spdu_rx_start = SD_TRUE; /* CRITICAL: Initialize flag. */ +#if defined(SPDU_RX_NO_PREALLOCATE) + tp_conn->spdu_rx.spdu_ptr = (ST_CHAR *) M_MALLOC (MSMEM_STARTUP, g_tp0_max_spdu_len); +#endif + return; + } + +/************************************************************************/ +/* tp0_send_dt */ +/* Send a DT (Data) TPDU. */ +/************************************************************************/ +ST_RET tp0_send_dt (TPDU_DT *tpdu_dt) + { +ST_RET ret = SD_FAILURE; +ST_UINT16 data_len; + + tp_log_tsdu ((ST_VOID *) tpdu_dt, (ST_UCHAR) TP_PDU_TYPE_DT, TP_REQ); + + /* Fill in g_tpkt_enc_buf with TPDU */ + data_len = tp0_encode_dt (g_tpkt_enc_buf + RFC1006_HEAD_LEN, tpdu_dt); + if (data_len > 0) + { + /* Fill in g_tpkt_enc_buf HEADER */ + data_len += RFC1006_HEAD_LEN; /* include header in len */ + g_tpkt_enc_buf [0] = 3; /* vrsn */ + g_tpkt_enc_buf [1] = 0; /* reserved */ + g_tpkt_enc_buf [2] = (ST_UCHAR) (data_len >> 8); /* high byte */ + g_tpkt_enc_buf [3] = (ST_UCHAR) (data_len & 0xff); /* low byte */ + ret = np_data_req (tpdu_dt->sock_info, data_len, g_tpkt_enc_buf, tpdu_dt->eot); + } + return (ret); + } + +/************************************************************************/ +/* tp0_send_cr */ +/* Send a CR (Connect Request) TPDU. */ +/************************************************************************/ +ST_RET tp0_send_cr (TPDU_CX *tpdu_cr) + { +ST_RET ret = SD_FAILURE; +ST_UINT16 data_len; + + tp_log_tsdu ((ST_VOID *) tpdu_cr, (ST_UCHAR) TP_PDU_TYPE_CR, TP_REQ); + + /* Fill in g_tpkt_enc_buf with TPDU */ + data_len = tp_encode_cx (g_tpkt_enc_buf + RFC1006_HEAD_LEN, tpdu_cr, + TP_PDU_TYPE_CR); + if (data_len > 0) + { + /* Fill in g_tpkt_enc_buf HEADER */ + data_len += RFC1006_HEAD_LEN; /* include header in len */ + g_tpkt_enc_buf [0] = 3; /* vrsn */ + g_tpkt_enc_buf [1] = 0; /* reserved */ + g_tpkt_enc_buf [2] = (ST_UCHAR) (data_len >> 8); /* high byte */ + g_tpkt_enc_buf [3] = (ST_UCHAR) (data_len & 0xff); /* low byte */ + ret = np_data_req (tpdu_cr->sock_info, data_len, g_tpkt_enc_buf, SD_TRUE); + } + return (ret); + } + +/************************************************************************/ +/* tp0_send_cc */ +/* Send a CC (Connect Confirm) TPDU. */ +/************************************************************************/ +ST_RET tp0_send_cc (TPDU_CX *tpdu_cc) + { +ST_RET ret = SD_FAILURE; +ST_UINT16 data_len; + + tp_log_tsdu ((ST_VOID *) tpdu_cc, (ST_UCHAR) TP_PDU_TYPE_CC, TP_REQ); + + /* Fill in g_tpkt_enc_buf with TPDU */ + data_len = tp_encode_cx (g_tpkt_enc_buf + RFC1006_HEAD_LEN, tpdu_cc, + TP_PDU_TYPE_CC); + if (data_len > 0) + { + /* Fill in g_tpkt_enc_buf HEADER */ + data_len += RFC1006_HEAD_LEN; /* include header in len */ + g_tpkt_enc_buf [0] = 3; /* vrsn */ + g_tpkt_enc_buf [1] = 0; /* reserved */ + g_tpkt_enc_buf [2] = (ST_UCHAR) (data_len >> 8); /* high byte */ + g_tpkt_enc_buf [3] = (ST_UCHAR) (data_len & 0xff); /* low byte */ + ret = np_data_req (tpdu_cc->sock_info, data_len, g_tpkt_enc_buf, SD_TRUE); + } + return (ret); + } + +/************************************************************************/ +/* tp0_send_dr */ +/* Send a DR (Disconnect Request) TPDU. */ +/************************************************************************/ +int cotp_test_mode=0; +ST_RET tp0_send_dr (TPDU_DR *tpdu_dr) + { +ST_RET ret = SD_FAILURE; +ST_UINT16 data_len; + + + if(cotp_test_mode) return SD_FAILURE; /*renxiaobao °²È«¼ì²â*/ + + tp_log_tsdu ((ST_VOID *) tpdu_dr, TP_PDU_TYPE_DR, TP_REQ); + + /* Fill in g_tpkt_enc_buf with TPDU */ + data_len = tp_encode_dr (g_tpkt_enc_buf + RFC1006_HEAD_LEN, tpdu_dr); + if (data_len > 0) + { + /* Fill in g_tpkt_enc_buf HEADER */ + data_len += RFC1006_HEAD_LEN; /* include header in len */ + g_tpkt_enc_buf [0] = 3; /* vrsn */ + g_tpkt_enc_buf [1] = 0; /* reserved */ + g_tpkt_enc_buf [2] = (ST_UCHAR) (data_len >> 8); /* high byte */ + g_tpkt_enc_buf [3] = (ST_UCHAR) (data_len & 0xff); /* low byte */ + ret = np_data_req (tpdu_dr->sock_info, data_len, g_tpkt_enc_buf, SD_TRUE); + } + return (ret); + } + +/************************************************************************/ +/* tp0_connect_outstanding_count */ +/* NOTE: can't presently use tp4Addr for anything, but in the future */ +/* we may use it to check only for outstanding connections to the same */ +/* IP Address. */ +/************************************************************************/ +ST_INT tp0_connect_outstanding_count (TP4_ADDR *tp4Addr) + { +ST_INT connectOutstandingCount = 0; +ST_INT j; + + for (j=0; jh_addr); +#endif /* !VXWORKS */ + } + return (ipAddr); + } diff --git a/mmslib/ositcps/tp4_enc.c b/mmslib/ositcps/tp4_enc.c new file mode 100644 index 0000000..03585b2 --- /dev/null +++ b/mmslib/ositcps/tp4_enc.c @@ -0,0 +1,539 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1996, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : tp4_enc.c */ +/* PRODUCT(S) : Lean-T Stack */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module implements the encoding of the TPDUs. */ +/* */ +/* For information see the: */ +/* ISO 8073 "Information processing systems - Open Systems */ +/* Interconnections - Connection oriented transport protocol */ +/* specification. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* tp_encode_cx */ +/* tp_encode_dr */ +/* tp_encode_dc */ +/* tp_encode_dt */ +/* tp0_encode_dt */ +/* tp_encode_ak */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 08/13/98 JRB 04 Fix indenting. */ +/* 08/26/97 JRB 03 RFC1006 changes: */ +/* - add TP0 encode */ +/* - tp_encode_cx: if TPDU size = 65531, don't */ +/* encode it. Peer should default to 65531. */ +/* - Use TP_PDU_TYPE_* everywhere. */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 10/04/96 JRB 02 Use max_tpdu_len_enc (binary encoded value). */ +/* 06/20/96 EJV 01 Created */ +/************************************************************************/ +static char *thisFileName = __FILE__; /* For TP4_EXCEPT and slog macros*/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "checksum.h" +#include "tp4api.h" /* User definitions for tp4 */ +#include "tp4.h" +#include "tp4_encd.h" +#include "tp4_log.h" + + + +/* local functions prototypes */ + +static ST_VOID tp_enc_par_checksum (ST_UCHAR *buf, ST_UINT16 buf_len, ST_UINT16 par_pos); + + + +/************************************************************************/ +/* tp_encode_cx */ +/*----------------------------------------------------------------------*/ +/* This function is used to encode a CR or CC TPDU. */ +/* */ +/* Parameters: */ +/* ST_UCHAR *enc_buf Pointer where to encode the CX TPDU */ +/* TPDU_CX *tpdu_cx Pointer to info struct for CX TPDU */ +/* ST_UCHAR pdu_type TP_PDU_TYPE_CR or TP_PDU_TYPE_CC */ +/* */ +/* Return: */ +/* ST_UINT16 The actual length of encoded TPDU */ +/************************************************************************/ +ST_UINT16 tp_encode_cx (ST_UCHAR *enc_buf, TPDU_CX *tpdu_cx, ST_UCHAR pdu_type) +{ +ST_UINT16 enc_len; /* The actual length of encoded TPDU */ +TP_FHDR_CX *pdu; +TP_PAR *param; /* generic struct for a parameter */ +ST_UINT16 idx; /* points to current offset into enc_buf*/ + + enc_len = 0; + + /*------------------------------------*/ + /* encode TPDU header, fixed part */ + /*------------------------------------*/ + + pdu = (TP_FHDR_CX *) enc_buf; + + /* compute actual header length (do not count the hdr_len byte) */ + if (tpdu_cx->preferred_class == 0) + pdu->hdr_len = + (ST_UCHAR) (TP_FHDR_CX_LEN - sizeof(pdu->hdr_len)+ /* fixed part of header */ + TP_PAR_FIX_LEN + tpdu_cx->loc_tsap [0] + /* local TSAP parameter */ + TP_PAR_FIX_LEN + tpdu_cx->rem_tsap [0]); /* remote TSAP parameter*/ + else + pdu->hdr_len = + (ST_UCHAR) (TP_FHDR_CX_LEN - sizeof(pdu->hdr_len)+ /* fixed part of header */ + TP_PAR_FIX_LEN + tpdu_cx->loc_tsap [0] + /* local TSAP parameter */ + TP_PAR_FIX_LEN + tpdu_cx->rem_tsap [0] + /* remote TSAP parameter*/ + TP_PAR_LEN_VERSION + /* TP version parameter */ + TP_PAR_LEN_ADD_OPTIONS + /* additional opt param */ + TP_PAR_LEN_CHECKSUM); /* checksum parameter */ + /* NOTE: if TPDU size gets encoded hdr_len must be increased. */ + + /* set TPDU type */ + if (pdu_type == TP_PDU_TYPE_CR || pdu_type == TP_PDU_TYPE_CC) + pdu->type_cdt = pdu_type; + else + { + TP_LOG_ERR1 ("TP-ERROR: Encode CR or CC failed (invalid pdu_type %u passed to func)", + pdu_type); + TP4_EXCEPT (); + return (enc_len); /* valid types are CR and CC */ + } + + /* set CDT, if specified CDT is greater then max default to max */ + if (tpdu_cx->cdt <= TP_MAX_CDT) + pdu->type_cdt |= tpdu_cx->cdt; + else + pdu->type_cdt |= TP_MAX_CDT; + + /* copy to dest ref remote connection reference */ + if (pdu_type == TP_PDU_TYPE_CR) + pdu->dest_ref [0] = pdu->dest_ref [1] = 0; /* always 0 */ + else + memcpy (pdu->dest_ref, (ST_UCHAR *) &tpdu_cx->rem_ref, sizeof (pdu->dest_ref)); + + /* copy to src ref local connection reference */ + memcpy (pdu->src_ref, (ST_UCHAR *) &tpdu_cx->loc_ref, sizeof (pdu->src_ref)); + + if (tpdu_cx->preferred_class == 4) + pdu->class_opt = TP_CLASS_4_NORMAL; /* set the TP class */ + else if (tpdu_cx->preferred_class == 0) + pdu->class_opt = TP_CLASS_0; /* set the TP class */ + else + { + /* only class 4 (normal format) implemented */ + TP_LOG_ERR1 ("TP-ERROR: Encode CR or CC failed (not implemented class %u)", + tpdu_cx->preferred_class); + TP4_EXCEPT (); + return (enc_len); + } + + idx = TP_FHDR_CX_LEN; + + /*------------------------------------*/ + /* encode calling TSAP parameter */ + /*------------------------------------*/ + + param = (TP_PAR *) &enc_buf [idx]; + + param->code = TP_PAR_CODE_TSAP_CALLING; /* parameter code */ + if (pdu_type == TP_PDU_TYPE_CR) + { + /* Copy len and local TSAP to enc_buf */ + memcpy (¶m->len, tpdu_cx->loc_tsap, 1 + tpdu_cx->loc_tsap [0]); + idx += (ST_UINT16) (TP_PAR_FIX_LEN + tpdu_cx->loc_tsap [0]); + } + else + { + /* for CC copy len and remote TSAP to enc_buf */ + memcpy (¶m->len, tpdu_cx->rem_tsap, 1 + tpdu_cx->rem_tsap [0]); + idx += (ST_UINT16) (TP_PAR_FIX_LEN + tpdu_cx->rem_tsap [0]); + } + + /*------------------------------------*/ + /* encode called TSAP parameter */ + /*------------------------------------*/ + + param = (TP_PAR *) &enc_buf [idx]; + + param->code = TP_PAR_CODE_TSAP_CALLED; /* parameter code */ + if (pdu_type == TP_PDU_TYPE_CR) + { + /* Copy len and remote TSAP to enc_buf */ + memcpy (¶m->len, tpdu_cx->rem_tsap, 1 + tpdu_cx->rem_tsap [0]); + idx += (ST_UINT16) (TP_PAR_FIX_LEN + tpdu_cx->rem_tsap [0]); + } + else + { + /* for CC copy len and local TSAP to enc_buf */ + memcpy (¶m->len, tpdu_cx->loc_tsap, 1 + tpdu_cx->loc_tsap [0]); + idx += (ST_UINT16) (TP_PAR_FIX_LEN + tpdu_cx->loc_tsap [0]); + } + + /*------------------------------------*/ + /* encode TPDU size parameter */ + /*------------------------------------*/ + + /* Can't encode 65531. If not encoded, other side defaults to 65531. */ + if (tpdu_cx->max_tpdu_len_enc != TP_PDU_MAX_SIZE_65531) + { + pdu->hdr_len += TP_PAR_LEN_TPDU_SIZE; /* Adjust "hdr_len" */ + + param = (TP_PAR *) &enc_buf [idx]; + + param->code = TP_PAR_CODE_TPDU_SIZE; /* parameter code */ + param->len = 1; /* parameter len */ + + if (tpdu_cx->max_tpdu_len_enc < TP_PDU_MAX_SIZE_128 || + tpdu_cx->max_tpdu_len_enc > TP_PDU_MAX_SIZE_8192) + { + TP_LOG_ERR1 ("TP-ERROR: Encode CR or CC failed (invalid TPDU size %u)", + tpdu_cx->max_tpdu_len_enc); + TP4_EXCEPT (); + return (enc_len); + } + else + param->value[0] = tpdu_cx->max_tpdu_len_enc; + + idx += TP_PAR_LEN_TPDU_SIZE; + } + + /*------------------------------------*/ + /* encode TP version */ + /*------------------------------------*/ + + if (tpdu_cx->preferred_class != 0) + { + param = (TP_PAR *) &enc_buf [idx]; + + param->code = TP_PAR_CODE_VERSION; /* parameter code */ + param->len = 1; /* parameter len */ + param->value [0] = TP_VERSION; /* version number */ + + idx += TP_PAR_LEN_VERSION; + } + + /*------------------------------------*/ + /* encode TP additional options */ + /*------------------------------------*/ + + if (tpdu_cx->preferred_class != 0) + { + param = (TP_PAR *) &enc_buf [idx]; + + param->code = TP_PAR_CODE_ADD_OPTIONS;/* parameter code */ + param->len = 1; /* parameter len */ + param->value [0] = TP_OPT_CHECKSUM_USE | TP_OPT_EXPEDITED_NON_USE; + /* this param is 0 for our selected options */ + idx += TP_PAR_LEN_ADD_OPTIONS; + /* next param is checksum */ + } + + /*-----------------------------------------------------*/ + /* copy the user data (if any) after the last parameter*/ + /* (in our case the last param will be checksum param) */ + /*-----------------------------------------------------*/ + + enc_len = (ST_UINT16) (pdu->hdr_len+1); /* set the TPDU size and add to it */ + /* user data len (if any); add 1 for the*/ + /* len byte we didn't counted in hdr_len*/ + if (tpdu_cx->udata_len > 0) + { + if (tpdu_cx->preferred_class == 4) /* leave room for checksum */ + memcpy (&enc_buf [idx + TP_PAR_LEN_CHECKSUM], tpdu_cx->udata_buf, tpdu_cx->udata_len); + else + memcpy (&enc_buf [idx], tpdu_cx->udata_buf, tpdu_cx->udata_len); + + enc_len += tpdu_cx->udata_len; + } + + /*------------------------------------*/ + /* encode the checksum parameter */ + /*------------------------------------*/ + + if (tpdu_cx->preferred_class == 4) + { + tp_enc_par_checksum (enc_buf, enc_len, idx); + } + return (enc_len); +} + + +/************************************************************************/ +/* tp_encode_dr */ +/*----------------------------------------------------------------------*/ +/* This function is used to encode a DR TPDU. */ +/* */ +/* Parameters: */ +/* ST_UCHAR *enc_buf Pointer where to encode the DR TPDU */ +/* TPDU_DR *tpdu_dr Pointer to info struct for DR TPDU */ +/* */ +/* Return: */ +/* ST_UINT16 The actual length of encoded TPDU */ +/************************************************************************/ +ST_UINT16 tp_encode_dr (ST_UCHAR *enc_buf, TPDU_DR *tpdu_dr) +{ +ST_UINT16 enc_len; /* The actual length of encoded TPDU */ +TP_FHDR_DR *pdu; + + enc_len = TP_MAX_LEN_DR; + + /*------------------------------------*/ + /* encode the TPDU header, fixed part */ + /*------------------------------------*/ + + pdu = (TP_FHDR_DR *) enc_buf; + + pdu->hdr_len = TP_MAX_LEN_DR - sizeof (pdu->hdr_len); + /* header length */ + /* don't count the hdr_len byte */ + pdu->type = TP_PDU_TYPE_DR; /* TPDU type */ + memcpy (pdu->dest_ref, (ST_UCHAR *) &tpdu_dr->rem_ref, sizeof (pdu->dest_ref)); + /* Remote connection reference */ + memcpy (pdu->src_ref, (ST_UCHAR *) &tpdu_dr->loc_ref, sizeof (pdu->src_ref)); + /* Local connection reference */ + pdu->reason = tpdu_dr->reason; /* reason for DR */ + + /*------------------------------------*/ + /* encode the checksum parameter */ + /*------------------------------------*/ + + tp_enc_par_checksum (enc_buf, /* buf on which checksum is computed */ + enc_len, /* len of buffer (length of TPDU) */ + TP_FHDR_DR_LEN); /* position of checksum param in enc_buf*/ + + return (enc_len); +} + + +/************************************************************************/ +/* tp_encode_dc */ +/*----------------------------------------------------------------------*/ +/* This function is used to encode a DC TPDU. */ +/* */ +/* Parameters: */ +/* ST_UCHAR *enc_buf Pointer where to encode the DC TPDU */ +/* TPDU_DR *tpdu_dc Pointer to info struct for DC TPDU */ +/* */ +/* Return: */ +/* ST_UINT16 The actual length of encoded TPDU */ +/************************************************************************/ +ST_UINT16 tp_encode_dc (ST_UCHAR *enc_buf, TPDU_DC *tpdu_dc) +{ +ST_UINT16 enc_len; /* The actual length of encoded TPDU */ +TP_FHDR_DC *pdu; + + enc_len = TP_MAX_LEN_DC; + + /*------------------------------------*/ + /* encode the TPDU header, fixed part */ + /*------------------------------------*/ + + pdu = (TP_FHDR_DC *) enc_buf; + + pdu->hdr_len = TP_MAX_LEN_DC - sizeof (pdu->hdr_len); + /* header length */ + /* don't count the hdr_len byte */ + pdu->type = TP_PDU_TYPE_DC; /* TPDU type */ + memcpy (pdu->dest_ref, (ST_UCHAR *) &tpdu_dc->rem_ref, sizeof (pdu->dest_ref)); + /* Remote connection reference */ + memcpy (pdu->src_ref, (ST_UCHAR *) &tpdu_dc->loc_ref, sizeof (pdu->src_ref)); + /* Local connection reference */ + + /*------------------------------------*/ + /* encode the checksum parameter */ + /*------------------------------------*/ + + tp_enc_par_checksum (enc_buf, /* buf on which checksum is computed */ + enc_len, /* len of buffer (length of TPDU) */ + TP_FHDR_DC_LEN); /* position of checksum param in enc_buf*/ + return (enc_len); +} + + +/************************************************************************/ +/* tp_encode_dt */ +/*----------------------------------------------------------------------*/ +/* This function is used to encode a DT TPDU. */ +/* */ +/* Parameters: */ +/* ST_UCHAR *enc_buf Pointer to buffer where the TPDU should */ +/* be encoded. */ +/* TPDU_DT *tpdu_dt Pointer data info structure */ +/* */ +/* Return: */ +/* ST_UINT16 The actual length of encoded TPDU */ +/************************************************************************/ +ST_UINT16 tp_encode_dt (ST_UCHAR *enc_buf, TPDU_DT *tpdu_dt) +{ +ST_UINT16 enc_len; /* The actual length of encoded TPDU */ +TP_FHDR_DT *pdu; + + enc_len = (ST_UINT16) (TP_HEAD_LEN_DT + tpdu_dt->udata_len); + + /*------------------------------------*/ + /* encode the TPDU header, fixed part */ + /*------------------------------------*/ + + pdu = (TP_FHDR_DT *) enc_buf; + + pdu->hdr_len = TP_HEAD_LEN_DT - sizeof (pdu->hdr_len); + /* header length */ + /* don't count the hdr_len byte */ + pdu->type = TP_PDU_TYPE_DT; /* TPDU type */ + memcpy (pdu->dest_ref, (ST_UCHAR *) &tpdu_dt->dst_ref, sizeof (pdu->dest_ref)); + /* Remote connection reference */ + + /* set sequence number (make sure that bit 8 is not set) */ + pdu->eot_sn = (ST_UCHAR) (tpdu_dt->sn & TP_PDU_MASK_EOF); + if (tpdu_dt->eot) + pdu->eot_sn |= TP_PDU_EOF; /* set EOT flag */ + + /*------------------------------------*/ + /* copy the udata to enc_buf */ + /*------------------------------------*/ + + memcpy (&enc_buf [TP_HEAD_LEN_DT], tpdu_dt->udata_ptr, tpdu_dt->udata_len); + + /*------------------------------------*/ + /* encode the checksum parameter */ + /*------------------------------------*/ + + tp_enc_par_checksum (enc_buf, /* buf on which checksum is computed */ + enc_len, /* len of buffer (length of TPDU) */ + TP_FHDR_DT_LEN); /* position of checksum param in enc_buf*/ + return (enc_len); +} + +/************************************************************************/ +/* tp0_encode_dt */ +/* This function is used to encode a Class 0 DT TPDU. */ +/* Same as tp_encode_dt except dest_ref and Checksum NOT encoded. */ +/************************************************************************/ +ST_UINT16 tp0_encode_dt (ST_UCHAR *enc_buf, TPDU_DT *tpdu_dt) +{ +ST_UINT16 enc_len; /* The actual length of encoded TPDU */ +TP0_FHDR_DT *tp0_fhdr_dt; + + enc_len = (ST_UINT16) (TP0_HEAD_LEN_DT + tpdu_dt->udata_len); + + /*------------------------------------*/ + /* encode the TPDU header, fixed part */ + /*------------------------------------*/ + + tp0_fhdr_dt = (TP0_FHDR_DT *) enc_buf; + + tp0_fhdr_dt->hdr_len = TP0_HEAD_LEN_DT - 1; /* header length */ + /* don't count the hdr_len byte */ + tp0_fhdr_dt->type = TP_PDU_TYPE_DT; /* TPDU type */ + + /* set sequence number (make sure that bit 8 is not set) */ + tp0_fhdr_dt->eot_sn = (ST_UCHAR) 0; /* sequence number always 0 */ + if (tpdu_dt->eot) + tp0_fhdr_dt->eot_sn |= TP_PDU_EOF; /* set EOT flag */ + + /*------------------------------------*/ + /* copy the udata to enc_buf */ + /*------------------------------------*/ + + memcpy (&enc_buf [TP0_HEAD_LEN_DT], tpdu_dt->udata_ptr, tpdu_dt->udata_len); + return (enc_len); +} + +/************************************************************************/ +/* tp_encode_ak */ +/*----------------------------------------------------------------------*/ +/* This function is used to encode an AK TPDU. */ +/* */ +/* Parameters: */ +/* ST_UCHAR *enc_buf Pointer to buffer where the TPDU should */ +/* be encoded. */ +/* TPDU_AK *tpdu_ak Pointer to AK info struct */ +/* */ +/* Return: */ +/* ST_UINT16 The actual length of encoded TPDU */ +/************************************************************************/ +ST_UINT16 tp_encode_ak (ST_UCHAR *enc_buf, TPDU_AK *tpdu_ak) +{ +ST_UINT16 enc_len; /* The actual length of encoded TPDU */ +TP_FHDR_AK *pdu; + + enc_len = TP_MAX_LEN_AK; + + /*------------------------------------*/ + /* encode the TPDU header, fixed part */ + /*------------------------------------*/ + + pdu = (TP_FHDR_AK *) enc_buf; + + pdu->hdr_len = TP_MAX_LEN_AK - sizeof (pdu->hdr_len); + /* header length */ + /* don't count the hdr_len byte */ + pdu->type_cdt = TP_PDU_TYPE_AK; /* TPDU type */ + + /* encode the CDT (from cfg struct) */ + if (tpdu_ak->cdt <= TP_MAX_CDT) + pdu->type_cdt |= tpdu_ak->cdt; + else + pdu->type_cdt |= TP_MAX_CDT; + memcpy (pdu->dest_ref, (ST_UCHAR *) &tpdu_ak->dst_ref, sizeof (pdu->dest_ref)); + /* Remote connection reference */ + pdu->sn = tpdu_ak->sn; /* set next expected seq number */ + + /*------------------------------------*/ + /* encode the checksum parameter */ + /*------------------------------------*/ + + tp_enc_par_checksum (enc_buf, /* buf on which checksum is computed */ + enc_len, /* len of buffer (length of TPDU) */ + TP_FHDR_AK_LEN); /* position of checksum param in enc_buf*/ + return (enc_len); +} + + +/*======================================================================*/ +/* LOCAL FUNCTIONS for ENCODING */ +/*======================================================================*/ + + +/************************************************************************/ +/* tp_enc_par_checksum */ +/*----------------------------------------------------------------------*/ +/* This function is used to encode the checksum parameter in TPDU. */ +/* */ +/* Parameters: */ +/* ST_UCHAR *buf Ptr to encoding buffer on which checksum*/ +/* will be computed. */ +/* ST_UINT16 buf_len Length of the buffer (TPDU). */ +/* ST_UINT16 par_pos Position of checksum parameter in buf. */ +/* */ +/* Return: */ +/* ST_VOID none */ +/************************************************************************/ +static ST_VOID tp_enc_par_checksum (ST_UCHAR *buf, ST_UINT16 buf_len, ST_UINT16 par_pos) +{ +TP_PAR *param; + + param = (TP_PAR *) &buf [par_pos]; + + param->code = TP_PAR_CODE_CHECKSUM; /* parameter code */ + param->len = 2; /* Parameter length */ + + /* compute the checksum of the entire TPDU, the position of the */ + /* checksum first byte in the buf is computed as the difference */ + /* between pointers */ + + checksum_insert (buf, buf_len, (ST_UINT16) (param->value - buf)); +} diff --git a/mmslib/ositcps/tp4port.c b/mmslib/ositcps/tp4port.c new file mode 100644 index 0000000..6c6f50a --- /dev/null +++ b/mmslib/ositcps/tp4port.c @@ -0,0 +1,100 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1996-2003 All Rights Reserved */ +/* */ +/* MODULE NAME : tp4port.c */ +/* PRODUCT(S) : Lean-T Stack */ +/* */ +/* MODULE DESCRIPTION : */ +/* Functions for porting to new operating systems. */ +/* The purpose of these functions is to cause "tp4_timer_tick" */ +/* to be called on 1 second intervals. These functions are */ +/* appropriate for MS-DOS or any other single tasking OS. */ +/* They may be replaced by any Operating System appropriate code */ +/* which causes the same result. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* tp4_init_timer () */ +/* tp4_check_timer () */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 12/19/03 JRB 04 Use sGetMsTime instead of "time" function to */ +/* avoid problems when system time changed. */ +/* 09/11/00 JRB 03 Make sure tp4_check_timer called at least */ +/* once a second. If NOT, write msg to log. */ +/* 08/13/98 JRB 02 Lint cleanup. */ +/* 05/27/97 JRB 7.00 MMSEASE 7.0 release. */ +/* 07/17/96 JRB 01 Created */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "tp4api.h" /* User definitions for tp4 */ +#include "tp4_log.h" + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +static ST_DOUBLE oldtime; /* milliseconds */ +static ST_DOUBLE newtime; /* milliseconds */ + +/************************************************************************/ +/* tp4_init_timer */ +/************************************************************************/ +ST_VOID tp4_init_timer (ST_VOID) + { + oldtime = sGetMsTime (); + } + +/************************************************************************/ +/* tp4_check_timer */ +/************************************************************************/ +ST_VOID tp4_check_timer (ST_VOID) + { +#ifdef DEBUG_SISCO +static ST_BOOLEAN time_problem; /* Timing problem detected. */ +#endif + + newtime = sGetMsTime (); + +#ifdef DEBUG_SISCO /* Don't check for problem if can't log it. */ + /* Check time since last call. */ + /* This function should be called at least every second, so time diff */ + /* should be < 1000 ms. If difference is > 3000 ms, service loop may */ + /* be too slow. */ + /* //renxiaobao ͨѶ³¬Ê± +//if (newtime - oldtime > 3000.0) +*/ if (newtime - oldtime > 10000.0) + { + TP_LOG_ERR1 ("WARNING: stack not serviced for %.3f seconds.", (newtime-oldtime)/1000.0); + if (!time_problem) + { + /* Log this message only the first time it happens. */ + TP_LOGC_ERR0 ("MAY CAUSE UNEXPECTED TIMEOUTS, DISCONNECTS, ABORTS."); + time_problem = SD_TRUE; + } + } +#endif + + /* Increment "oldtime" by 1000 ms increments as much as possible */ + /* without exceeding "newtime". */ + /* Call "tp4_timer_tick" once for each increment. */ + /*renxiaobao ͨѶ³¬Ê±*/ + while (oldtime + 5000.0 < newtime) + { + tp4_timer_tick (); /* Call function to process timer tick. */ + oldtime += 5000.0; + } +/* //while (oldtime + 1000.0 < newtime) + //{ +// tp4_timer_tick (); Call function to process timer tick. + // oldtime += 1000.0; + //} +*/ +} + diff --git a/mmslib/ositcps/tpx_dec.c b/mmslib/ositcps/tpx_dec.c new file mode 100644 index 0000000..1709104 --- /dev/null +++ b/mmslib/ositcps/tpx_dec.c @@ -0,0 +1,1053 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1996-2008, All Rights Reserved. */ +/* */ +/* PROPRIETARY AND CONFIDENTIAL */ +/* */ +/* MODULE NAME : tpx_dec.c */ +/* PRODUCT(S) : Lean-T Stack */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module implements the decoding of the TPDUs. */ +/* */ +/* For information see the: */ +/* ISO 8073 "Information processing systems - Open Systems */ +/* Interconnections - Connection oriented transport protocol */ +/* specification. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* tp_decode_nsdu */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 10/23/08 JRB 11 Add casts to fix warnings. */ +/* 10/22/08 JRB 10 Add many length checks & return immediately */ +/* on any error. */ +/* Allow any class in CR, CC (caller checks it).*/ +/* Chg decode of DC, DT variable part like others*/ +/* Chg tp_decode_er to really decode ER TPDU. */ +/* Delete tp_decode_rj (not used in TP0 or TP4) */ +/* Fix byte order in logging of dst_ref, src_ref*/ +/* 11/01/07 EJV 09 Chg TSAP to TSEL in slogs. */ +/* tp_log_tsdu: added mutex. */ +/* 08/29/00 JRB 08 Don't return error if checksum NOT received */ +/* in DR or DC (maybe not negotiated yet). */ +/* 04/25/00 JRB 07 Lint cleanup. */ +/* 06/08/99 JRB 06 Chg src_ref, dst_ref logs to HEX. */ +/* 08/13/98 JRB 05 Lint cleanup. */ +/* 01/16/98 JRB 04 Chg unrecognixed param logs to "IND" logs. */ +/* 12/04/97 JRB 03 Clarify casts. Log unrecognized params. */ +/* 07/31/97 JRB 02 tp_decode_cx: pass default max_tpdu_len_enc */ +/* as arg because TP0/RFC1006 and TP4 need */ +/* different defaults. */ +/* 07/31/97 JRB 01 Created. Moved all tp_decode_* functions */ +/* from tp4_dec.c to here and changed arguments */ +/* so TP0 can use them too. */ +/************************************************************************/ +#include "glbtypes.h" +#include "sysincs.h" +#include "checksum.h" +#include "tp4.h" +#include "tp4_encd.h" +#include "tp4_log.h" + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/* local functions prototypes */ + +static ST_BOOLEAN tp_checksum_verified (ST_UCHAR *buf, ST_UINT16 buf_len, ST_UINT16 par_pos); + +/************************************************************************/ +/* get_hdr_len */ +/* Get the total length of the TPDU header. */ +/************************************************************************/ +static ST_UINT16 get_hdr_len (ST_UCHAR *pdu_ptr, ST_UINT16 pdu_len, ST_UINT16 min_len) + { +ST_UINT16 hdr_len; + if (pdu_len < min_len) + return (0); /* error */ + /* First byte is always header len but doesn't include itself, so add 1.*/ + hdr_len = (ST_UINT16) pdu_ptr[0] + 1; + if (hdr_len < min_len || hdr_len > pdu_len) + return (0); /* error */ + return (hdr_len); + } +/************************************************************************/ +/* get_next_param */ +/* Must have at least 2 bytes to get param len. If 2 bytes available, */ +/* get param len (2nd byte) and make sure it doesn't go past end of */ +/* header. */ +/* WARNING: Assumes (len_proc < hdr_len). Caller must check. */ +/************************************************************************/ +static TP_PAR *get_next_param (ST_UCHAR *pdu_ptr, + ST_UINT16 len_proc, /* num bytes already processed */ + ST_UINT16 hdr_len) /* num bytes in header */ + { +ST_UCHAR *cur_ptr; +ST_UINT16 len_left; /* num bytes remaining in header */ + + /* len_proc < hdr_len, so this calc can't be messed up by underflow */ + len_left = hdr_len - len_proc; + cur_ptr = pdu_ptr + len_proc; + if (len_left < 2 || + (ST_UINT16) cur_ptr[1] + 2 > len_left) /* cur_ptr[1]=param len*/ + return (NULL); + return ((TP_PAR *) cur_ptr); + } + +/************************************************************************/ +/* tp_decode_cx */ +/*----------------------------------------------------------------------*/ +/* Function used to decode a received CR or CC TPDU. Because n_unitdata */ +/* may contain multiple TPDUs, the offset parameter will tell us where */ +/* the CR or CC TPDU starts in the data_buf (n_unitdata). */ +/* */ +/* NOTE: Default value of "max_tpdu_len_enc" is passed as arg because */ +/* TP4 and TP0/RFC1006 need different defaults. */ +/* */ +/* Parameters: */ +/* TPDU_CX *tpdu_cx_rx Struct to fill in with decoded info. */ +/* ST_UCHAR *pdu_ptr Pointer to TPDU. */ +/* ST_UINT16 pdu_len Len of TPDU. */ +/* ST_UCHAR pdu_type TP_PDU_TYPE_CR or TP_PDU_TYPE_CC */ +/* ST_UCHAR max_tpdu_len_enc Binary encoded Max TPDU len */ +/* */ +/* Return: */ +/* ST_UINT16 Length of CR or CC TPDU. */ +/* 0 if decoding failed */ +/* NOTE: many ways to fail so return 0 IMMEDIATELY after any error. */ +/************************************************************************/ +ST_UINT16 tp_decode_cx (TPDU_CX *tpdu_cx_rx, ST_UCHAR *pdu_ptr, + ST_UINT16 pdu_len, ST_UCHAR pdu_type, ST_UCHAR def_max_tpdu_len_enc) +{ +TP_FHDR_CX *pdu; +ST_UINT16 len_proc; /* length of CR or CC TPDU processed */ +TP_PAR *param; +ST_BOOLEAN checksum_present; +ST_UINT16 hdr_len; + + hdr_len = get_hdr_len (pdu_ptr, pdu_len, TP_FHDR_CX_LEN); + if (hdr_len == 0) + { + TP_LOG_ERR0 ("TPDU-CR.ind or CC.ind invalid header len. TPDU Ignored."); + return (0); + } + + checksum_present = SD_FALSE; /* it is error if checksum is not */ + /* present in CR or TPDU */ + + /* make sure the struct is cleared */ + memset (tpdu_cx_rx, 0, sizeof (TPDU_CX)); + + pdu = (TP_FHDR_CX *) pdu_ptr; + + /* everything in data_buf starting from offset should be the CR or CC */ + + /* Set TPDU size to default in case not encoded. */ + tpdu_cx_rx->max_tpdu_len_enc = def_max_tpdu_len_enc; + + /*----------------------------------------------------*/ + /* Process the fixed part of CR or CC TPDU header */ + /*----------------------------------------------------*/ + + tpdu_cx_rx->cdt = (ST_UCHAR) (pdu->type_cdt & TP_PDU_MASK_TYPE); + /* remote CDT */ + tpdu_cx_rx->loc_ref = *((ST_UINT16 *) pdu->dest_ref); /* local conn reference */ + tpdu_cx_rx->rem_ref = *((ST_UINT16 *) pdu->src_ref); /* remote conn reference*/ + + /* get the preferred class option */ + /* Class is in high nibble of class_opt. */ + tpdu_cx_rx->preferred_class = pdu->class_opt >> 4; + + /*----------------------------------------------------*/ + /* Process the variable part of CR or CC TPDU header. */ + /* Extract parameters in which we are interested into */ + /* the tpdu_cx_rx. */ + /* The ISO 8073 states that is if a parameter is not */ + /* present in CR or CC and the standard defines a */ + /* default value for it, then the default value should*/ + /* be used (equivalent to present parameter). */ + /* Following parameters have default value: */ + /* TPDU size: 128 bytes */ + /* TP version 0x01 */ + /* Additional options 0x01 (checksum used and */ + /* support expedited */ + /* data transfer) */ + /*----------------------------------------------------*/ + + len_proc = TP_FHDR_CX_LEN; /* we processed already the fixed part */ + + while (len_proc < hdr_len) + { + if ((param = get_next_param (pdu_ptr, len_proc, hdr_len)) == NULL) + { + TP_LOG_ERR0 ("TPDU-CR.ind or CC.ind invalid param len. TPDU Ignored."); + return (0); + } + + switch (param->code) + { + case TP_PAR_CODE_TSAP_CALLING: /* copy the len & remote TSAP */ + if (param->len <= MAX_TSEL_LEN) + { + if (pdu_type == TP_PDU_TYPE_CR) + /* CR TPDU, we are called (remote TSAP in this field) */ + memcpy (tpdu_cx_rx->rem_tsap, (ST_CHAR *) ¶m->len, 1 + param->len); + else + /* CC TPDU, we are calling (local TSAP in this field) */ + memcpy (tpdu_cx_rx->loc_tsap, (ST_CHAR *) ¶m->len, 1 + param->len); + } + else + { + TP_LOG_ERR1 ("TP-ERROR: decode CR or CC TPDU failed (TSEL length %u not supported)", + (unsigned) param->len); + return (0); /* bad TSAP length, ignore this TPDU */ + } + break; + + case TP_PAR_CODE_TSAP_CALLED: + /* copy the length and local TSAP */ + if (param->len <= MAX_TSEL_LEN) + { + if (pdu_type == TP_PDU_TYPE_CR) + /* CR TPDU, we are called (local TSAP in this field) */ + memcpy (tpdu_cx_rx->loc_tsap, (ST_CHAR *) ¶m->len, 1 + param->len); + else + /* CC TPDU, we are calling (remote TSAP in this field) */ + memcpy (tpdu_cx_rx->rem_tsap, (ST_CHAR *) ¶m->len, 1 + param->len); + } + else + { + TP_LOG_ERR1 ("TP-ERROR: decode CR or CC TPDU failed (TSEL length %u not supported)", + (unsigned) param->len); + return (0); /* bad TSAP length, ignore this TPDU */ + } + break; + + case TP_PAR_CODE_TPDU_SIZE: + if (param->len != 1) + { + TP_LOG_ERR0 ("TPDU-CR.ind or CC.ind invalid param len. TPDU Ignored."); + return (0); + } + if (param->value [0] < TP_PDU_MAX_SIZE_128 || + param->value [0] > TP_PDU_MAX_SIZE_8192) + { + TP_LOG_ERR1 ("TP-ERROR: decode CR TPDU failed (invalid TPDU size %u)", + (unsigned) param->value[0]); + return (0); /* invalid TPDU size, ignore this TPDU */ + } + else + tpdu_cx_rx->max_tpdu_len_enc = param->value [0]; + break; + + case TP_PAR_CODE_VERSION: + if (param->len != 1) + { + TP_LOG_ERR0 ("TPDU-CR.ind or CC.ind invalid param len. TPDU Ignored."); + return (0); + } + if (param->value [0] != TP_VERSION) + { + TP_LOG_ERR1 ("TP-ERROR: decode CR TPDU failed (invalid TPDU version %u)", + (unsigned) param->value[0]); + return (0); /* invalid TP version, ignore this TPDU */ + } + break; + + case TP_PAR_CODE_ADD_OPTIONS: + /* Following proposed protocol parameters can be in */ + /* additional options (for class 4): */ + /* non-use of checksum, use/non-use of expedited data. */ + /* We will reject non-use of checksum and we will not */ + /* support expedited data service (see encoding of CC). */ + /* There is no processing needed of this parameter. */ + break; + + case TP_PAR_CODE_CHECKSUM: + checksum_present = SD_TRUE; + if (!tp_checksum_verified (pdu_ptr, pdu_len, len_proc)) + return (0); /* bad checksum, ignore this TPDU */ + break; + + default: + /* ignore this parameter */ + TP_LOG_IND1 ("TP-WARNING: decode CR or CC TPDU: Unrecognized param code (0x%X) ignored", + param->code); + break; + } /* end switch */ + + /* add len of currently processed parameter to len_proc */ + len_proc += (ST_UINT16) (TP_PAR_FIX_LEN + param->len); + } /* end while */ + + if (checksum_present==SD_FALSE && tpdu_cx_rx->preferred_class==4) + { + TP_LOG_ERR0 ("TP-ERROR: decode CR TPDU failed (checksum parameter not present)"); + return (0); + } + + /*----------------------------------------------------*/ + /* If decoding of header successful copy user data */ + /* and call proceess function. */ + /*----------------------------------------------------*/ + + /* check if user data are present */ + + if (hdr_len < pdu_len) + { + ST_UINT16 udata_len = pdu_len - hdr_len; + + if ( udata_len <= TP_MAX_CONN_UDATA) + { + memcpy (tpdu_cx_rx->udata_buf, &pdu_ptr [hdr_len], udata_len); + tpdu_cx_rx->udata_len = udata_len; + } + else + TP_LOG_ERR1 ("TP-ERROR: invalid user data length (%u) in received CR or CC TPDU", + udata_len); + } + + return (pdu_len); +} + + +/************************************************************************/ +/* tp_decode_dr */ +/*----------------------------------------------------------------------*/ +/* Function used to decode a received DR TPDU. Because the n_unitdata */ +/* may contain multiple TPDUs, the offset parameter will tell us where */ +/* the DR TPDU starts in the data_buf (n_unitdata). */ +/* This function does NOT return a decode error if the checksum is */ +/* not present. Use of checksum may not have been negotiated yet. */ +/* */ +/* Parameters: */ +/* TPDU_DR *tpdu_dr_rx Struct to fill in with decoded info. */ +/* ST_UCHAR *pdu_ptr Pointer to TPDU. */ +/* ST_UINT16 pdu_len Len of TPDU. */ +/* */ +/* Return: */ +/* ST_UINT16 Length of DR TPDU. */ +/* 0 if decoding failed */ +/* NOTE: many ways to fail so return 0 IMMEDIATELY after any error. */ +/************************************************************************/ +ST_UINT16 tp_decode_dr (TPDU_DR *tpdu_dr_rx, ST_UCHAR *pdu_ptr, + ST_UINT16 pdu_len) +{ +TP_FHDR_DR *pdu; +ST_UINT16 len_proc; /* length of DR TPDU already processed */ +TP_PAR *param; +ST_UINT16 hdr_len; + + hdr_len = get_hdr_len (pdu_ptr, pdu_len, TP_FHDR_DR_LEN); + if (hdr_len == 0) + { + TP_LOG_ERR0 ("TPDU-DR.ind invalid header len. TPDU Ignored."); + return (0); + } + + /* make sure the struct is cleared */ + memset (tpdu_dr_rx, 0, sizeof (TPDU_DR)); + + pdu = (TP_FHDR_DR *) pdu_ptr; + + /* everything in data_buf starting from offset should be the DR TPDU */ + + /*--------------------------------------------*/ + /* Process the fixed part of DR TPDU header */ + /*--------------------------------------------*/ + + tpdu_dr_rx->loc_ref = *((ST_UINT16 *) pdu->dest_ref); /* local conn reference */ + tpdu_dr_rx->rem_ref = *((ST_UINT16 *) pdu->src_ref); /* remote conn reference*/ + tpdu_dr_rx->reason = pdu->reason; /* reson for disconnect */ + + /*----------------------------------------------------*/ + /* Process the variable part of DR TPDU header. */ + /*----------------------------------------------------*/ + + len_proc = TP_FHDR_DR_LEN; /* we processed already the fixed part */ + + while (len_proc < hdr_len) + { + if ((param = get_next_param (pdu_ptr, len_proc, hdr_len)) == NULL) + { + TP_LOG_ERR0 ("TPDU-DR.ind invalid param len. TPDU Ignored."); + return (0); + } + + switch (param->code) + { + case TP_PAR_CODE_CHECKSUM: + if (!tp_checksum_verified (pdu_ptr, pdu_len, len_proc)) + return (0); /* bad checksum, ignore this TPDU */ + break; + + default: + /* ignore other parameters */ + TP_LOG_IND1 ("TP-WARNING: decode DR TPDU: Unrecognized param code (0x%X) ignored", + param->code); + break; + } /* end switch */ + + /* add len of currently processed parameter to len_proc */ + len_proc += (ST_UINT16) (TP_PAR_FIX_LEN + param->len); + } /* end while */ + + return (pdu_len); +} + + +/************************************************************************/ +/* tp_decode_dc */ +/*----------------------------------------------------------------------*/ +/* Function used to decode a received DC TPDU. */ +/* This function does NOT return a decode error if the checksum is */ +/* not present. Use of checksum may not have been negotiated yet. */ +/* */ +/* Parameters: */ +/* TPDU_DC *tpdu_dc_rx Struct to fill in with decoded info. */ +/* ST_UCHAR *pdu_ptr Pointer to TPDU. */ +/* */ +/* Return: */ +/* ST_UINT16 Length of DC TPDU. */ +/* 0 if decoding failed */ +/* NOTE: many ways to fail so return 0 IMMEDIATELY after any error. */ +/************************************************************************/ +ST_UINT16 tp_decode_dc (TPDU_DC *tpdu_dc_rx, + ST_UCHAR *pdu_ptr, + ST_UINT16 pdu_len) +{ +TP_FHDR_DC *pdu; +TP_PAR *param; +ST_UINT16 len_proc; /* length of TPDU already processed */ +ST_UINT16 hdr_len; + + hdr_len = get_hdr_len (pdu_ptr, pdu_len, TP_FHDR_DC_LEN); + if (hdr_len == 0) + { + TP_LOG_ERR0 ("TPDU-DC.ind invalid header len. TPDU Ignored."); + return (0); + } + + /* make sure the struct is cleared */ + memset (tpdu_dc_rx, 0, sizeof (TPDU_DC)); + + pdu = (TP_FHDR_DC *) pdu_ptr; + + /*--------------------------------------------*/ + /* Process the fixed part of DC TPDU header */ + /*--------------------------------------------*/ + + tpdu_dc_rx->loc_ref = *((ST_UINT16 *) pdu->dest_ref); /* local conn reference */ + tpdu_dc_rx->rem_ref = *((ST_UINT16 *) pdu->src_ref); /* remote conn reference*/ + + /*----------------------------------------------------*/ + /* Process the variable part of DC TPDU header. */ + /*----------------------------------------------------*/ + + len_proc = TP_FHDR_DC_LEN; /* we processed already the fixed part */ + + while (len_proc < hdr_len) + { + if ((param = get_next_param (pdu_ptr, len_proc, hdr_len)) == NULL) + { + TP_LOG_ERR0 ("TPDU-DC.ind invalid param len. TPDU Ignored."); + return (0); + } + + switch (param->code) + { + case TP_PAR_CODE_CHECKSUM: + if (!tp_checksum_verified (pdu_ptr, pdu_len, len_proc)) + return (0); /* bad checksum, ignore this TPDU */ + break; + + default: + /* Other parameters not allowed. */ + TP_LOG_ERR1 ("TPDU-DC.ind unrecognized param code (0x%X). Protocol error.", + param->code); + return (0); + break; + } /* end switch */ + + /* add len of currently processed parameter to len_proc */ + len_proc += (ST_UINT16) (TP_PAR_FIX_LEN + param->len); + } /* end while */ + + return (pdu_len); +} + + +/************************************************************************/ +/* tp_decode_dt */ +/*----------------------------------------------------------------------*/ +/* Function used to decode a received DT TPDU. */ +/* */ +/* Parameters: */ +/* TPDU_DT *tpdu_dt_rx Struct to fill in with decoded info. */ +/* ST_UCHAR *pdu_ptr Pointer to TPDU. */ +/* ST_UINT16 pdu_len Len of TPDU. */ +/* */ +/* Return: */ +/* ST_UINT16 Length of DT TPDU. */ +/* 0 if decoding failed */ +/* NOTE: many ways to fail so return 0 IMMEDIATELY after any error. */ +/************************************************************************/ +ST_UINT16 tp_decode_dt (TPDU_DT *tpdu_dt_rx, ST_UCHAR *pdu_ptr, + ST_UINT16 pdu_len) +{ +TP_FHDR_DT *pdu; +ST_BOOLEAN checksum_present; +ST_UINT16 hdr_len; +ST_UINT16 len_proc; /* length of TPDU already processed */ +TP_PAR *param; + + hdr_len = get_hdr_len (pdu_ptr, pdu_len, TP_FHDR_DT_LEN); + if (hdr_len == 0) + { + TP_LOG_ERR0 ("TPDU-DT.ind invalid header len. TPDU Ignored."); + return (0); + } + + checksum_present = SD_FALSE; /* it is error if checksum is missing */ + + /* make sure the struct is cleared */ + memset (tpdu_dt_rx, 0, sizeof (TPDU_DT)); + + pdu = (TP_FHDR_DT *) pdu_ptr; + + /*--------------------------------------------*/ + /* Process the fixed part of DT TPDU header */ + /*--------------------------------------------*/ + + /* udata is everything after the header */ + tpdu_dt_rx->udata_ptr = (ST_CHAR *) pdu_ptr + hdr_len; + tpdu_dt_rx->udata_len = pdu_len - hdr_len; + + if (pdu->eot_sn & TP_PDU_MASK_SN) + tpdu_dt_rx->eot = SD_TRUE; /* set the EOF flag */ + else + tpdu_dt_rx->eot = SD_FALSE; + + tpdu_dt_rx->dst_ref = *((ST_UINT16 *) pdu->dest_ref); /* local conn reference */ + tpdu_dt_rx->sn = (ST_UCHAR) (pdu->eot_sn & TP_PDU_MASK_EOF); /* sn of received TPDU */ + + /*----------------------------------------------------*/ + /* Process the variable part of DT TPDU header. */ + /*----------------------------------------------------*/ + + len_proc = TP_FHDR_DT_LEN; /* we processed already the fixed part */ + + while (len_proc < hdr_len) + { + if ((param = get_next_param (pdu_ptr, len_proc, hdr_len)) == NULL) + { + TP_LOG_ERR0 ("TPDU-DT.ind invalid param len. TPDU Ignored."); + return (0); + } + switch (param->code) + { + /* Checksum is the only allowed parameter*/ + case TP_PAR_CODE_CHECKSUM: + checksum_present = SD_TRUE; + if (!tp_checksum_verified (pdu_ptr, pdu_len, len_proc)) + return (0); /* bad checksum, ignore this TPDU */ + break; + + default: + /* Other parameters not allowed. */ + TP_LOG_ERR1 ("TPDU-DT.ind unrecognized param code (0x%X). Protocol error.", + param->code); + return (0); + break; + } /* end switch */ + + /* add len of currently processed parameter to len_proc */ + len_proc += (ST_UINT16) (TP_PAR_FIX_LEN + param->len); + } /* end while */ + + if (!checksum_present) + { + TP_LOG_ERR0 ("TP-ERROR: decode DT TPDU failed (checksum parameter not present)"); + return (0); + } + + return (pdu_len); +} + + +/************************************************************************/ +/* tp0_decode_dt */ +/*----------------------------------------------------------------------*/ +/* This function is used to decode a Class 0 DT TPDU. */ +/* Same as tp_decode_dt except dest_ref and Checksum NOT encoded. */ +/* NOTE: many ways to fail so return 0 IMMEDIATELY after any error. */ +/************************************************************************/ +ST_UINT16 tp0_decode_dt (TPDU_DT *tpdu_dt_rx, ST_UCHAR *pdu_ptr, + ST_UINT16 pdu_len) +{ +TP0_FHDR_DT *tp0_fhdr_dt; +ST_UINT16 hdr_len; + + hdr_len = get_hdr_len (pdu_ptr, pdu_len, TP0_FHDR_DT_LEN); + if (hdr_len == 0) + { + TP_LOG_ERR0 ("TPDU-DT.ind invalid header len. TPDU Ignored."); + return (0); + } + if (hdr_len != TP0_FHDR_DT_LEN) + { + /* Variable part not allowed. */ + TP_LOG_ERR1 ("TPDU-DT.ind header len (%u) != 3. Protocol error.", + hdr_len); + return (0); + } + + /* make sure the struct is cleared */ + memset (tpdu_dt_rx, 0, sizeof (TPDU_DT)); + + tp0_fhdr_dt = (TP0_FHDR_DT *) pdu_ptr; + + /*--------------------------------------------*/ + /* Process the fixed part of DT TPDU header */ + /*--------------------------------------------*/ + + /* udata is everything after the header */ + tpdu_dt_rx->udata_ptr = (ST_CHAR *) pdu_ptr + hdr_len; + tpdu_dt_rx->udata_len = pdu_len - hdr_len; + + if (tp0_fhdr_dt->eot_sn & TP_PDU_MASK_SN) + tpdu_dt_rx->eot = SD_TRUE; /* set the EOF flag */ + else + tpdu_dt_rx->eot = SD_FALSE; + + tpdu_dt_rx->sn = (ST_UCHAR) (tp0_fhdr_dt->eot_sn & TP_PDU_MASK_EOF); /* sn of received TPDU */ + + return (pdu_len); +} + + +/************************************************************************/ +/* tp_decode_ak */ +/*----------------------------------------------------------------------*/ +/* Function used to decode a received AK TPDU. Because the n_unitdata */ +/* may contain multiple TPDUs, the offset parameter will tell us where */ +/* the AK TPDU starts in the data_buf (n_unitdata). */ +/* */ +/* Parameters: */ +/* TPDU_AK *tpdu_ak_rx Struct to fill in with decoded info. */ +/* ST_UCHAR *pdu_ptr Pointer to TPDU. */ +/* */ +/* Return: */ +/* ST_UINT16 Length of AK TPDU. */ +/* 0 if decoding failed */ +/* NOTE: many ways to fail so return 0 IMMEDIATELY after any error. */ +/************************************************************************/ +ST_UINT16 tp_decode_ak (TPDU_AK *tpdu_ak_rx, + ST_UCHAR *pdu_ptr, + ST_UINT16 pdu_len) +{ +TP_FHDR_AK *pdu; +ST_UINT16 len_proc; /* length of AK TPDU already processed */ +TP_PAR *param; +ST_BOOLEAN checksum_present; +ST_UINT16 hdr_len; + + hdr_len = get_hdr_len (pdu_ptr, pdu_len, TP_FHDR_AK_LEN); + if (hdr_len == 0) + { + TP_LOG_ERR0 ("TPDU-AK.ind invalid header len. TPDU Ignored."); + return (0); + } + + checksum_present = SD_FALSE; /* it is error if checksum is missing */ + + /* make sure the struct is cleared */ + memset (tpdu_ak_rx, 0, sizeof (TPDU_AK)); + + pdu = (TP_FHDR_AK *) pdu_ptr; + + /*--------------------------------------------*/ + /* Process the fixed part of AK TPDU header */ + /*--------------------------------------------*/ + + tpdu_ak_rx->dst_ref = *((ST_UINT16 *) pdu->dest_ref); /* local conn reference */ + tpdu_ak_rx->sn = (ST_UCHAR) (pdu->sn & TP_PDU_MASK_BIT8); /* next expected DT sn */ + tpdu_ak_rx->cdt = (ST_UCHAR) (pdu->type_cdt & TP_PDU_MASK_TYPE); /* remote CDT */ + + /*----------------------------------------------------*/ + /* Process the variable part of AK TPDU. */ + /*----------------------------------------------------*/ + + len_proc = TP_FHDR_AK_LEN; /* we processed already the fixed part */ + + while (len_proc < hdr_len) + { + if ((param = get_next_param (pdu_ptr, len_proc, hdr_len)) == NULL) + { + TP_LOG_ERR0 ("TPDU-AK.ind invalid param len. TPDU Ignored."); + return (0); + } + + switch (param->code) + { + case TP_PAR_CODE_CHECKSUM: + checksum_present = SD_TRUE; + if (!tp_checksum_verified (pdu_ptr, pdu_len, len_proc)) + return (0); /* bad checksum, ignore this TPDU */ + break; + + default: + /* ignore other parameters */ + TP_LOG_IND1 ("TP-WARNING: decode AK TPDU: Unrecognized param code (0x%X) ignored", + param->code); + break; + } /* end switch */ + + /* add len of currently processed parameter to len_proc */ + len_proc += (ST_UINT16) (TP_PAR_FIX_LEN + param->len); + } /* end while */ + + if (!checksum_present) + { + TP_LOG_ERR0 ("TP-ERROR: decode AK TPDU failed (checksum parameter not present)"); + return (0); + } + + /* NOTE: len_proc may be less than pdu_len if multiple TPDU in NSDU. */ + return (len_proc); +} + + +/************************************************************************/ +/* tp_decode_er */ +/*----------------------------------------------------------------------*/ +/* Function used to decode a received ER TPDU. Because the n_unitdata */ +/* may contain multiple TPDUs, the offset parameter will tell us where */ +/* the ER TPDU starts in the data_buf (n_unitdata). */ +/* */ +/* Parameters: */ +/* TPDU_ER *tpdu_er_rx Struct to fill in with decoded info. */ +/* ST_UCHAR *pdu_ptr Pointer to TPDU. */ +/* ST_UINT16 pdu_len Len of TPDU. */ +/* ST_INT tp_classs Transport class (must be 0 or 4). */ +/* */ +/* Return: */ +/* ST_UINT16 Length of ER TPDU. */ +/* 0 if decoding failed */ +/* NOTE: many ways to fail so return 0 IMMEDIATELY after any error. */ +/************************************************************************/ +ST_UINT16 tp_decode_er (TPDU_ER *tpdu_er_rx, + ST_UCHAR *pdu_ptr, + ST_UINT16 pdu_len, + ST_INT tp_class) /* must be 0 or 4 */ +{ +TP_FHDR_ER *pdu; +ST_UINT16 len_proc; /* length of TPDU already processed */ +TP_PAR *param; +ST_UINT16 hdr_len; +ST_BOOLEAN checksum_present; + + hdr_len = get_hdr_len (pdu_ptr, pdu_len, TP_FHDR_ER_LEN); + if (hdr_len == 0) + { + TP_LOG_ERR0 ("TPDU-ER.ind invalid header len. TPDU Ignored."); + return (0); + } + + /* If class 4 (tp_class=4), checksum must be present. */ + checksum_present = SD_FALSE; + + /* make sure the struct is cleared */ + memset (tpdu_er_rx, 0, sizeof (TPDU_ER)); + + pdu = (TP_FHDR_ER *) pdu_ptr; + + /*--------------------------------------------*/ + /* Process the fixed part of ER TPDU header */ + /*--------------------------------------------*/ + tpdu_er_rx->dst_ref = *((ST_UINT16 *) pdu->dest_ref); /* local conn reference */ + tpdu_er_rx->reject_cause = pdu->reason; + + /*----------------------------------------------------*/ + /* Process the variable part of ER TPDU header. */ + /*----------------------------------------------------*/ + + len_proc = TP_FHDR_ER_LEN; /* we processed already the fixed part */ + + while (len_proc < hdr_len) + { + if ((param = get_next_param (pdu_ptr, len_proc, hdr_len)) == NULL) + { + TP_LOG_ERR0 ("TPDU-ER.ind invalid param len. TPDU Ignored."); + return (0); + } + + switch (param->code) + { + case TP_PAR_CODE_ER_INVAL_TPDU: /* Invalid TPDU */ + /* Set ptr to Invalid TPDU part of message & set len. */ + tpdu_er_rx->invalid_tpdu_ptr = ¶m->value[0]; + tpdu_er_rx->invalid_tpdu_len = param->len; + break; + + case TP_PAR_CODE_CHECKSUM: + checksum_present = SD_TRUE; + if (!tp_checksum_verified (pdu_ptr, pdu_len, len_proc)) + return (0); /* bad checksum, ignore this TPDU */ + break; + + default: + /* Other parameters not allowed. */ + TP_LOG_ERR1 ("TPDU-ER.ind unrecognized param code (0x%X). Protocol error.", + param->code); + return (0); + break; + } /* end switch */ + + /* add len of currently processed parameter to len_proc */ + len_proc += (ST_UINT16) (TP_PAR_FIX_LEN + param->len); + } /* end while */ + + /* For Class 0, invalid_tpdu_ptr must be set during decode. */ + if (tpdu_er_rx->invalid_tpdu_ptr == NULL && tp_class == 0) + { + TP_LOG_ERR0 ("TPDU-ER.ind 'Invalid TPDU' not present for Class 0"); + return (0); + } + + /* For Class 4, checksum must be found during decode. */ + if (!checksum_present && tp_class == 4) + { + TP_LOG_ERR0 ("TPDU-ER.ind checksum not present for Class 4"); + return (0); + } + + /* NOTE: len_proc may be less than pdu_len if multiple TPDU in NSDU. */ + return (len_proc); +} + + +/************************************************************************/ +/* tp_checksum_verified */ +/*----------------------------------------------------------------------*/ +/* This function is used to decode and verify the checksum parameter in */ +/* TPDU. */ +/* */ +/* Parameters: */ +/* ST_UCHAR *buf Ptr to TPDU buffer */ +/* ST_UINT16 buf_len Length of the buffer (TPDU). */ +/* ST_UINT16 par_pos Position of checksum parameter in TPDU. */ +/* */ +/* Return: */ +/* ST_BOOLEAN SD_TRUE if checksum verified. */ +/* SD_FALSE otherwise */ +/************************************************************************/ +static ST_BOOLEAN tp_checksum_verified (ST_UCHAR *buf, ST_UINT16 buf_len, ST_UINT16 par_pos) +{ +ST_BOOLEAN verified; +TP_PAR *param; + + /* NOTE: len checked before calling, so we know param fits in TPDU, */ + /* but here we make sure param len == 2 before continuing. */ + + verified = SD_FALSE; + + param = (TP_PAR *) (&buf [par_pos]); /* point to start of param*/ + + if (param->code == TP_PAR_CODE_CHECKSUM) + { + if (param->len == 2) + { + /* compute the checksum of the entire TPDU, the position of the */ + /* checksum first byte in the buf is computed as the difference */ + /* between pointers */ + + verified = checksum_verified (buf, buf_len, + (ST_UINT16) (param->value - buf), SD_FALSE); + + if (!verified) + TP_LOG_ERR0 ("TP-ERROR: decode TPDU failed (verification of checksum failed)"); + } + else + TP_LOG_ERR1 ("TP-ERROR: decode TPDU failed (invalid length=%u for checksum parameter)", + param->len); + } + else + TP_LOG_ERR0 ("TP-ERROR: decode TPDU failed (checksum parameter missing)"); + + return (verified); +} + +#if defined(DEBUG_SISCO) +/************************************************************************/ +/* tp_log_tsdu */ +/*----------------------------------------------------------------------*/ +/* Function used to log Transport Service data unit. */ +/* */ +/* Parameters: */ +/* ST_VOID *tsdu Pointer to data unit struct */ +/* ST_UCHAR type TSDU type (TP_PDU_TYPE_CR, etc.) */ +/* ST_UCHAR mask logging mask: */ +/* TP_IND (indication) or TP_REQ (request) */ +/* */ +/* Return: */ +/* ST_VOID none */ +/* NOTE: all src_ref & dst_ref stored in network byte order. Converted */ +/* to "host byte order" using "ntohs" only in this function. */ +/************************************************************************/ +ST_VOID tp_log_tsdu (ST_VOID *tsdu, ST_UCHAR type, ST_UCHAR mask) +{ +char *buf; /* ptr to msg header (i.e. TPDU type) */ + /* set before passing to log function */ + + S_LOCK_UTIL_RESOURCES (); + switch (type) + { + case TP_PDU_TYPE_CR: + case TP_PDU_TYPE_CC: + { /*block*/ + TPDU_CX *tpdu = (TPDU_CX *) tsdu; + + if (mask == TP_IND) + { + if (type == TP_PDU_TYPE_CR) + buf = "TPDU-CR.ind:"; + else + buf = "TPDU-CC.ind:"; + + /* For IND, dst_ref is loc_ref */ + TP_LOG_RI6 (mask,"%s dst_ref=0x%04X src_ref=0x%04X max_len=%4u class=%u cdt=%2u", + buf, ntohs(tpdu->loc_ref), ntohs(tpdu->rem_ref), 1 << tpdu->max_tpdu_len_enc, + (unsigned) tpdu->preferred_class, (unsigned) tpdu->cdt); + } + else + { + if (type == TP_PDU_TYPE_CR) + buf = "TPDU-CR.req:"; + else + buf = "TPDU-CC.req:"; + + /* For REQ, dst_ref is rem_ref */ + TP_LOG_RI6 (mask,"%s dst_ref=0x%04X src_ref=0x%04X max_len=%4u class=%u cdt=%2u", + buf, ntohs(tpdu->rem_ref), ntohs(tpdu->loc_ref), 1 << tpdu->max_tpdu_len_enc, + (unsigned) tpdu->preferred_class, (unsigned) tpdu->cdt); + } + + TP_LOGC_RI0 (mask,"Local TSEL:"); + TP_LOGHC_RI (mask,(ST_UINT) tpdu->loc_tsap [0], &tpdu->loc_tsap [1]); + TP_LOGC_RI0 (mask,"Remote TSEL:"); + TP_LOGHC_RI (mask,(ST_UINT) tpdu->rem_tsap [0], &tpdu->rem_tsap [1]); + +#if 0 + TP_LOGC_RI0 (mask,"Remote MAC:"); + TP_LOGHC_RI (mask,(ST_UINT) CLNP_MAX_LEN_MAC, tpdu->rem_mac); + TP_LOGC_RI0 (mask,"Remote NSAP:"); + TP_LOGHC_RI (mask,(ST_UINT) tpdu->rem_nsap [0], &tpdu->rem_nsap [1]); +#endif + TP_LOGC_RI1 (mask,"User data length: %u", tpdu->udata_len); + if (tpdu->udata_len > 0) + TP_LOGHC_RI (mask,(ST_UINT) tpdu->udata_len, tpdu->udata_buf); + } + break; + + case TP_PDU_TYPE_DR: + case TP_PDU_TYPE_DC: + { /*block*/ + TPDU_DR *tpdu = (TPDU_DR *) tsdu; /* we use DR struct for both */ + + if (mask == TP_IND) + { + if (type == TP_PDU_TYPE_DR) + buf = "TPDU-DR.ind:"; + else + buf = "TPDU-DC.ind:"; + + /* For IND, dst_ref is loc_ref */ + TP_LOG_RI3 (mask,"%s dst_ref=0x%04X src_ref=0x%04X", + buf, ntohs(tpdu->loc_ref), ntohs(tpdu->rem_ref)); + } + else + { + if (type == TP_PDU_TYPE_DR) + buf = "TPDU-DR.req:"; + else + buf = "TPDU-DC.req:"; + + /* For REQ, dst_ref is rem_ref */ + TP_LOG_RI3 (mask,"%s dst_ref=0x%04X src_ref=0x%04X", + buf, ntohs(tpdu->rem_ref), ntohs(tpdu->loc_ref)); + } + + if (type == TP_PDU_TYPE_DR) + TP_LOGC_RI1 (mask,"Disconnect reason: 0x%2.2X", (unsigned) tpdu->reason); +#if 0 + TP_LOGC_RI0 (mask,"Remote MAC:"); + TP_LOGHC_RI (mask,(ST_UINT) CLNP_MAX_LEN_MAC, tpdu->rem_mac); + TP_LOGC_RI0 (mask,"Remote NSAP:"); + TP_LOGHC_RI (mask,(ST_UINT) tpdu->rem_nsap [0], &tpdu->rem_nsap [1]); +#endif + } + break; + + case TP_PDU_TYPE_DT: + { /*block*/ + TPDU_DT *tpdu = (TPDU_DT *) tsdu; + + if (mask == TP_IND) + buf = "TPDU-DT.ind:"; + else + buf = "TPDU-DT.req:"; + + TP_LOG_RI4 (mask,"%s dst_ref=0x%04X sn=%3u eot=%u", + buf, ntohs(tpdu->dst_ref), (unsigned) tpdu->sn, (unsigned) tpdu->eot); + +#if 0 + TP_LOGC_RI0 (mask,"Remote MAC:"); + TP_LOGHC_RI (mask,(ST_UINT) CLNP_MAX_LEN_MAC, tpdu->rem_mac); + TP_LOGC_RI0 (mask,"Remote NSAP:"); + TP_LOGHC_RI (mask,(ST_UINT) tpdu->rem_nsap [0], &tpdu->rem_nsap [1]); +#endif + TP_LOGC_RI1 (mask,"User data length: %u", tpdu->udata_len); + TP_LOGHC_RI (mask,(ST_UINT) tpdu->udata_len, tpdu->udata_ptr); + } + break; + + case TP_PDU_TYPE_AK: + { /*block*/ + TPDU_AK *tpdu = (TPDU_AK *) tsdu; + + if (mask == TP_IND) + buf = "TPDU-AK.ind:"; + else + buf = "TPDU-AK.req:"; + + TP_LOG_RI4 (mask,"%s dst_ref=0x%04X sn=%3u cdt=%2u", + buf, ntohs(tpdu->dst_ref), (unsigned) tpdu->sn, (unsigned) tpdu->cdt); +#if 0 + TP_LOGC_RI0 (mask,"Remote MAC:"); + TP_LOGHC_RI (mask,(ST_UINT) CLNP_MAX_LEN_MAC, tpdu->rem_mac); + TP_LOGC_RI0 (mask,"Remote NSAP:"); + TP_LOGHC_RI (mask,(ST_UINT) tpdu->rem_nsap [0], &tpdu->rem_nsap [1]); +#endif + } + break; + default: + TP_LOG_ERR1 ("TP-ERROR: unknown TPDU type %d", type); + break; + } + + S_UNLOCK_UTIL_RESOURCES (); +} +#else /* function if DEBUG_SISCO not defined */ +ST_VOID tp_log_tsdu (ST_VOID *tsdu, ST_UCHAR type, ST_UCHAR mask) +{ + return; +} +#endif diff --git a/mmslib/slog/qmem.c b/mmslib/slog/qmem.c new file mode 100644 index 0000000..139fce2 --- /dev/null +++ b/mmslib/slog/qmem.c @@ -0,0 +1,166 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1993-2007, All Rights Reserved */ +/* */ +/* MODULE NAME : qmem.c */ +/* PRODUCT(S) : Quick Memory Allocator */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 01/15/07 EJV 08 Chg S_LOCK_RESOURCES to S_LOCK_UTIL_RESOURCES*/ +/* 03/11/04 GLB 07 Remove "thisFileName" */ +/* 06/06/03 JRB 06 Use S_LOCK_RESOURCES (new util mutex). */ +/* 04/14/03 JRB 05 Eliminate compiler warnings. */ +/* 05/24/01 JRB 04 Chg chk_calloc to calloc. This always compiled*/ +/* with !DEBUG_SISCO, screws up link. */ +/* 09/24/99 JRB 03 added: #include "sysincs.h" */ +/* 09/13/99 MDE 02 Added SD_CONST modifiers */ +/* 04/14/99 MDE 01 Removed unnecessary include files */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" + +#include "mem_chk.h" +#include "qmem.h" + +#if defined(MSDOS) +#define HUGE _huge +#else +#define HUGE +#define halloc(a,b) calloc(a,b) +#endif + +ST_INT qMemElemSize; /* should be ((power of 2)-2) */ + +static ST_INT initialized; +static ST_CHAR HUGE *qMemBuf; +static ST_CHAR *qMemUsed; +static ST_INT16 qMemIndex; +static ST_INT qNumElem; +static ST_INT qShift; + +/************************************************************************/ +/* qMemInit */ +/* Initialization function */ +/************************************************************************/ + +ST_RET qMemInit (ST_INT NumElem) + { +ST_INT size; +ST_RET ret; + + S_LOCK_UTIL_RESOURCES (); + if (!initialized) + { + if (qMemElemSize == 0) + qMemElemSize = 126; + qMemBuf = (ST_CHAR HUGE *) halloc ((ST_INT32) NumElem, qMemElemSize + 2); + qMemUsed = (ST_CHAR *) calloc (NumElem, 1); + qMemIndex = 0; + qNumElem = NumElem; + + qShift = -1; + size = qMemElemSize + 2; /* 2 for the header! */ + while (size) /* determine the size of the buffer (power of 2)*/ + { + size >>= 1; /* size = (size/2) */ + qShift++; /* Need to multiply buffer index by 2 later */ + } + initialized = SD_TRUE; + } + + if (!qMemBuf || !qMemUsed) + ret = SD_FAILURE; + else + ret = SD_SUCCESS; + + S_UNLOCK_UTIL_RESOURCES (); + return (ret); + } + +/************************************************************************/ +/* qMemAlloc */ +/* Allocation function */ +/************************************************************************/ + +ST_VOID *qMemAlloc (ST_INT size) + { +ST_INT32 offset; +ST_CHAR HUGE *ptr; +register ST_INT i; + + S_LOCK_UTIL_RESOURCES (); + if (!initialized) + qMemInit (qNumElem == 0 ? 1024 : qNumElem); + + if (qMemIndex == -1 || size > qMemElemSize) + { + S_UNLOCK_UTIL_RESOURCES (); + return (NULL); + } + +/* qMemIndex is the index into the array of buffers to the one that */ +/* we will return this time */ + + offset = ((ST_INT32) qMemIndex) << qShift; /* multiply by buffer size */ + ptr = qMemBuf + offset; + * (ST_INT16 *) ptr = qMemIndex; /* save index into used array */ + + qMemUsed[qMemIndex] = SD_TRUE; /* mark used */ + +/* Now get ready for next time */ + qMemIndex++; + if (qMemIndex == qNumElem) + qMemIndex = 0; + + for (i = 0; i < qNumElem; i++) /* find available buffer */ + { + if (qMemUsed[qMemIndex] == SD_FALSE) + break; + else + { + qMemIndex++; + if (qMemIndex == qNumElem) + qMemIndex = 0; + } + } + if (i == qNumElem) /* no more buffers */ + qMemIndex = -1; + + S_UNLOCK_UTIL_RESOURCES (); + return ((ST_VOID *) (ptr + 2)); + } + + +/************************************************************************/ +/* qMemFree */ +/* Free function */ +/************************************************************************/ + +ST_VOID qMemFree (ST_VOID *vp) + { +ST_INT16 index; +ST_CHAR *ptr; + +/* recover the index into the 'used' flag array & set SD_FALSE */ + S_LOCK_UTIL_RESOURCES (); + ptr = (ST_CHAR *) vp; + ptr -= 2; + index = * (ST_INT16 *) ptr; + qMemUsed[index] = SD_FALSE; + + qMemIndex = index; + S_UNLOCK_UTIL_RESOURCES (); + } + diff --git a/mmslib/slog/slog.c b/mmslib/slog/slog.c new file mode 100644 index 0000000..c4a2995 --- /dev/null +++ b/mmslib/slog/slog.c @@ -0,0 +1,1004 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1993-2008, All Rights Reserved */ +/* */ +/* MODULE NAME : slog.c */ +/* PRODUCT(S) : SLOG */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/27/08 EJV 61 Use S_MAX_PATH instead of MAX_PATH. */ +/* slog_get_index_file_name: added destLen param*/ +/* and changed to return result. */ +/* 02/06/08 EJV 60 Moved MAX_PATH define to sysincs.h */ +/* _slogSetTimeTextElapsed _WIN32 only. */ +/* 12/14/07 DSF 59 Added sNonStandardLogMode to support .NET */ +/* Logger class */ +/* 11/16/07 MDE 58 Fixed LINUX compile problems */ +/* 10/23/07 MDE 57 Added ElapsedTime option for Windows */ +/* 01/15/07 EJV 56 Chg S_LOCK_RESOURCES to S_LOCK_UTIL_RESOURCES*/ +/* 01/08/07 EJV 55 slogIpcStop: added lc param. */ +/* 09/13/06 DSF 54 No calls to ExceptionReport */ +/* 08/18/06 JRB 53 Chk _slog_remote_fun along with other ptrs. */ +/* 08/02/06 EJV 52 Corr: chg logMissed to ST_INT to avoid */ +/* repeated logging when IPC_LOG_EN is set. */ +/* 06/20/06 RLH 51 Added parameter checks and other robustness */ +/* features to _slogXML */ +/* 03/14/06 CRM 50 Added _slogXML to log XML strings */ +/* 02/13/06 DSF 49 Migrate to VS.NET 2005 */ +/* 01/23/06 EJV 48 doSlog: clarified buf overrun log for WIN32. */ +/* 11/01/05 EJV 47 slog_end: added S_LOCK_RESOURCES. */ +/* 10/31/05 MDE 46 Tweaked slog_end to stop IPC, disable */ +/* 10/31/05 MDE 45 Default logging now disabled, log missed */ +/* 10/21/05 MDE 44 Fixed slog_end path size */ +/* 08/10/05 MDE 43 Added slog_start, slog_end */ +/* 08/02/05 MDE 42 Fixed compile warning */ +/* 05/23/05 EJV 40 doSlog corr: replaced LOG_IPC_EN with */ +/* LOG_IPC_LISTEN_EN || LOG_IPC_CALL_EN */ +/* Moved sock_debug_sel to gensock2.c */ +/* Moved gs_debug_sel to glbsem.c */ +/* 04/21/05 EJV 39 doSlog: use vsnprintf on Linux; */ +/* Reworked the code assembling log in msg_buf.*/ +/* 02/23/05 JRB 38 slogSetTimeText: fix for VXWORKS. */ +/* 01/26/05 JRB 37 Move clnp_debug_sel to lean_var.c */ +/* 01/24/05 MDE 36 Fixed tweak */ +/* 01/20/05 MDE 35 Minor tweak for fileName & logtype checks */ +/* 11/22/04 JRB 34 Add & use slog_max_msg_size_set funct. */ +/* Ignore sl_max_msg_size if chged after first log.*/ +/* Del static slog_buf, use new lc->msg_buf. */ +/* slogDelBuf: add (LOG_CTRL *) arg. */ +/* 08/04/04 EJV 33 Del slogTime, slogMs global variables. */ +/* 07/09/04 EJV 32 All systems: one time/date format in slog hdr*/ +/* 06/24/04 DSF 31 For Windows, log milliseconds */ +/* 05/18/04 MDE 30 Removed LOG_IPC_SUPPORT #ifdef's */ +/* 05/13/04 EJV 29 Added slogSetHdr, slogHdr. */ +/* 03/11/04 GLB 28 Remove "thisFileName" */ +/* 02/10/04 KCR 27 Added slogDelBuf() */ +/* 01/12/04 EJV 26 Moved sock_debug_sel from gensock2.c */ +/* 10/24/03 JRB 25 Move gs_debug_sel from glbsem.c to here. */ +/* Move clnp_debug_sel to here. */ +/* 10/13/03 EJV 24 Del MSOS2 (old), _WINDOWS. */ +/* 05/07/03 DSF 23 Added support for sErrLogCtrl */ +/* 03/28/02 EJV 22 vnsprintf: use it on Tru64 UNIX v5.0 and up */ +/* 02/11/02 DSF 21 Call ExpRaiseDebugException () to log the */ +/* call stack */ +/* 10/18/01 JRB 20 Fix sprintf calls. */ +/* 09/28/01 EJV 19 Added vnsprintf for systems that support it. */ +/* 05/18/00 JRB 18 More Lint cleanup. */ +/* 04/19/00 JRB 17 Lint cleanup. */ +/* 09/24/99 JRB 16 added: #include "sysincs.h" */ +/* 09/13/99 MDE 15 Added SD_CONST modifiers */ +/* 07/15/99 RKR 14 16-bit version needs stdarg.h */ +/* 04/14/99 MDE 13 Removed unnecessary include files */ +/* 11/11/98 DSF 12 Minor changes to _slog_dyn_log_fun */ +/* 10/08/98 MDE 11 Migrated to updated SLOG interface */ +/* 08/25/98 IKE 10 Prevent buffer overrun by vsprintf for some */ +/* platforms */ +/* 08/13/98 MDE 09 Now log buffer overruns */ +/* 06/15/98 MDE 08 Changes to allow compile under C++ */ +/* 06/02/98 DSF 07 LOG_TIME_EN on by default */ +/* 01/09/98 EJV 06 SUN Solaris 2.5 uses now ANSI vsprintf */ +/* 11/05/97 DSF 05 Added SYSTIME_EN */ +/* 10/06/97 DSF 04 Added thisFileName */ +/* 09/12/97 DSF 03 Expose slogSetTimeText () */ +/* 08/19/97 DSF 02 Initialize sLogCtrlDefault to default */ +/* settings */ +/* 05/27/97 DSF 01 Added IPC logging capability */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#if defined(__OS2__) +#pragma data_seg(alldata) +#define INCL_BASE +#define INCL_DOS +#define INCL_DOSMISC +#define INCL_ERRORS +#define INCL_DOSPROCESS +#define INCL_DOSQUEUES +#define INCL_DOSSEMAPHORES +#define INCL_DOSMEMMGR +#define INCL_DOSFILEMGR +#define INCL_DOSDATETIME +#define INCL_DOSDEVICES +#include +#include +#endif + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" +#include "slog.h" +#include "stime.h" +#include "str_util.h" +#include "sx_defs.h" + +#if defined (_WIN32) +#include +#endif + +#define XML_NO_TAG 0 +#define XML_DOCUMENT 1 +#define XML_COMMENT 2 +#define XML_START 3 +#define XML_END 4 +#define XML_EMPTY 5 + +ST_CHAR *_slogXMLLogTypeStr = "SLOGXML"; + +/************************************************************************/ +/* Other prototypes. */ +/************************************************************************/ + +static ST_VOID doSlog (LOG_CTRL *lc, + SD_CONST ST_INT logType, + SD_CONST ST_CHAR *SD_CONST logTypeStr, + SD_CONST ST_CHAR *SD_CONST sourceFile, + SD_CONST ST_INT lineNum, + SD_CONST ST_CHAR *SD_CONST format, va_list ap); +ST_VOID slogSetTimeText (LOG_CTRL *lc); +#if defined (_WIN32) +static ST_VOID _slogSetTimeTextElapsed (LOG_CTRL *lc); +#endif + +/************************************************************************/ +/* Global variables used by the SLOG library. */ +/************************************************************************/ + + +LOG_CTRL *sErrLogCtrl = NULL; + +LOG_CTRL sLogCtrlDefault = {LOG_TIME_EN, + {1000000, "mms.log", + FIL_CTRL_WIPE_EN | + FIL_CTRL_WRAP_EN | + FIL_CTRL_MSG_HDR_EN, + 0, 0, NULL}}; + +LOG_CTRL *sLogCtrl = &sLogCtrlDefault; +ST_CHAR slogTimeText[TIME_BUF_LEN]; +ST_INT sl_max_msg_size = MAX_LOG_SIZE; +ST_UINT32 slogRemoteFlags; +ST_BOOLEAN sNonStandardLogMode = SD_FALSE; + +ST_VOID (*slog_service_fun) (ST_VOID); + +ST_CHAR *_slogAlwaysLogTypeStr = "SLOGALWAYS"; + +/* dynamic logging function */ +ST_VOID (*slog_dyn_log_fun) (LOG_CTRL *lc, + SD_CONST ST_INT logType, + SD_CONST ST_CHAR *SD_CONST sourceFile, + SD_CONST ST_INT lineNum, + SD_CONST ST_INT bufLen, + SD_CONST ST_CHAR *buf); +ST_VOID (*_slog_dyn_log_fun) (LOG_CTRL *lc, + SD_CONST ST_CHAR *timeStr, + SD_CONST ST_INT logType, + SD_CONST ST_CHAR *SD_CONST logTypeStr, + SD_CONST ST_CHAR *SD_CONST sourceFile, + SD_CONST ST_INT lineNum, + SD_CONST ST_INT bufLen, + SD_CONST ST_CHAR *buf); + +/* remote logging function */ +/* Assign to this fun pointer a function which handles the logging to */ +/* remote log file. For the slog_remote_flags parameter reference the */ +/* description for slog_remote_fun function. */ + +ST_VOID (*slog_remote_fun) (ST_UINT32 slog_remote_flags, + LOG_CTRL *lc, + SD_CONST ST_INT logType, + SD_CONST ST_CHAR *SD_CONST sourceFile, + SD_CONST ST_INT lineNum, + SD_CONST ST_INT bufLen, + SD_CONST ST_CHAR *buf); + +ST_VOID (*_slog_remote_fun) (ST_UINT32 slog_remote_flags, + LOG_CTRL *lc, + SD_CONST ST_INT logType, + SD_CONST ST_CHAR *SD_CONST logTypeStr, + SD_CONST ST_CHAR *SD_CONST sourceFile, + SD_CONST ST_INT lineNum, + SD_CONST ST_INT bufLen, + SD_CONST ST_CHAR *buf); + +/************************************************************************/ +/* _slog */ +/* Main general message logging function, typically called via macro */ +/* Just print the message to be logged, pass to memory & file logging */ +/* functions if enabled */ +/************************************************************************/ + +ST_VOID _slogc (LOG_CTRL *lc, SD_CONST ST_CHAR *format, ...) + { +va_list ap; + + + + va_start (ap, format); + doSlog (lc, SLOG_CONT, NULL, NULL, 0, format, ap); + va_end(ap); + } + + +ST_VOID _slog (LOG_CTRL *lc, + SD_CONST ST_CHAR *SD_CONST logTypeStr, + SD_CONST ST_CHAR *SD_CONST sourceFile, + SD_CONST ST_INT lineNum, + SD_CONST ST_CHAR *format, ...) + { +va_list ap; + + va_start (ap, format); + doSlog (lc, SLOG_NORMAL, logTypeStr, sourceFile, lineNum, format, ap); + va_end(ap); + } + +/************************************************************************/ +/* slog */ +/************************************************************************/ + +ST_VOID slog (LOG_CTRL *lc, + SD_CONST ST_INT logType, + SD_CONST ST_CHAR *SD_CONST sourceFile, + SD_CONST ST_INT lineNum, + SD_CONST ST_CHAR *format, ...) + { +va_list ap; + + va_start (ap, format); + doSlog (lc, logType, NULL, sourceFile, lineNum, format, ap); + va_end(ap); + } + +/************************************************************************/ +/* slogx */ +/* Extended message logging function. */ +/* Same as slog, except one more argument to determine if this type of */ +/* logging is enabled. This function allows one macro to be used */ +/* for any number of arguments. */ +/* This function is designed so that the first 5 arguments are passed */ +/* to this function via macro. For example: */ +/* #define SLOG_ACSE_IND s_debug_sel & ACSE_IND_PRINT, s_sLogCtrl,\ */ +/* ACSE_IND_PRINT_TYPE,THISFILE,__LINE__ */ +/* slogx (SLOG_ACSE_IND, "Indication PDU ptr=" S_FMT_PTR ", len=%d", ptr, len); */ +/************************************************************************/ + +ST_VOID slogx (ST_UINT32 doit, LOG_CTRL *lc, + SD_CONST ST_INT logType, + SD_CONST ST_CHAR *SD_CONST sourceFile, + SD_CONST ST_INT lineNum, + SD_CONST ST_CHAR *format, ...) + { +va_list ap; + +/* Make sure "doit" flag is set. */ + if (!doit) + return; + + va_start (ap, format); + doSlog (lc, logType, NULL, sourceFile, lineNum, format, ap); + va_end(ap); + } + + +/************************************************************************/ +/* doSlog */ +/* Main logging function, called from slog or slogx. */ +/* Just print the message to be logged, pass to memory & file logging */ +/* functions if enabled */ +/************************************************************************/ + +#define SLOG_MISSED_LOG_MSG "Warning: SLOG Log messages missed" + +static ST_VOID doSlog (LOG_CTRL *lc, + SD_CONST ST_INT logType, + SD_CONST ST_CHAR *SD_CONST logTypeStr, + SD_CONST ST_CHAR *SD_CONST sourceFile, + SD_CONST ST_INT lineNum, + SD_CONST ST_CHAR *SD_CONST format, va_list ap) + { +ST_INT count; +ST_CHAR tmpBuf[128]; +static ST_INT logMissed = 0; +static ST_CHAR *missedSourceFile; +static ST_INT missedLineNum; + + S_GS_INIT (); + S_LOCK_UTIL_RESOURCES (); + +/* Make sure the LOG_CTRL pointer is not NULL */ + if (!lc) + { + S_UNLOCK_UTIL_RESOURCES (); + return; + } + +/* Check to see if any logging is enabled AND dynamic user logging */ +/* function pointer not set */ + + if (!(lc->logCtrl & (LOG_FILE_EN | LOG_MEM_EN | LOG_IPC_EN)) && + !slog_dyn_log_fun && !_slog_dyn_log_fun && + !slog_remote_fun && !_slog_remote_fun) + { + if (logMissed == 0) + { + logMissed = 1; + missedSourceFile = sourceFile; + missedLineNum = lineNum; + } + S_UNLOCK_UTIL_RESOURCES (); + return; + } + +/* Allocate a slog_buffer the first time this function is called. This */ +/* allows us to make the size of the slog message buffer larger than */ +/* the default. */ + + if (lc->msg_buf == NULL) + { + /* NOTE: this code only for backward compatibility with apps that */ + /* control buffer size by setting the global var "sl_max_msg_size". */ + /* New apps should call "slog_max_msg_size_set" directly. */ + /* Use value of sl_max_msg_size NOW. Don't care if user changes it later.*/ + if (slog_max_msg_size_set (lc, sl_max_msg_size) != SD_SUCCESS) + { + fprintf(stderr, "\nslog: error setting max msg size"); + S_UNLOCK_UTIL_RESOURCES (); + return; + } + } + +/* It is OK to pass in a NULL format string when using the dynamic */ +/* logging functions - no vsprintf if so */ + + if (format == NULL) + { + /* make buf a zero length string just in case */ + count = 0; + lc->msg_buf[0] = 0; + } + else + { +#if defined(_WIN32) + count = _vsnprintf(lc->msg_buf,lc->max_msg_size,format,ap); +#elif defined(__QNX__) && defined(__WATCOMC__) + count = _vbprintf(lc->msg_buf,lc->max_msg_size,format,ap); +#elif defined(_AIX) || defined(sun) || defined(_hpux) || defined(__alpha) || defined(linux) + count = vsnprintf(lc->msg_buf,lc->max_msg_size,format,ap); +#else /* other systems: VXWORKS, ... */ + count = vsprintf (lc->msg_buf, format, ap); +#endif + lc->msg_buf[lc->max_msg_size-1] = 0; /* terminate the buffer, Win and UNIX */ + /* functions don't behave the same */ + /* NOTE: On _WIN32 count could be negative because of error or too small buffer. */ + /* On other systems count is negative because of error, too small buffer is */ + /* indicated by return of count larger than buf_size supplied to the function.*/ +#if defined(_WIN32) + if (count < 0) + { + sprintf (tmpBuf,"*** LOG ERROR: LOG BUFFER OVERRUN (lc->max_msg_size=%d bytes) or _vsnprintf function error", + lc->max_msg_size); + strncpy_safe (lc->msg_buf, tmpBuf, lc->max_msg_size-1); + count = strlen (lc->msg_buf); /* count = len of this log message */ + } +#else /* !defined(_WIN32) */ + if (count < 0) + { + sprintf (tmpBuf,"*** LOG ERROR: _vbprintf(QNX), vsnprintf(UNIX,LINUX), or vsprintf(other sys) function failed"); + strncpy_safe (lc->msg_buf, tmpBuf, lc->max_msg_size-1); + count = strlen (lc->msg_buf); /* count = len of this log message */ + } + else if (count >= lc->max_msg_size) + { + sprintf (tmpBuf,"*** LOG ERROR: LOG BUFFER OVERRUN: message len=%d bytes (lc->max_msg_size=%d bytes)", + count, lc->max_msg_size); + strncpy_safe (lc->msg_buf, tmpBuf, lc->max_msg_size-1); + count = strlen (lc->msg_buf); /* set count to len of this log message */ + } +#endif /* !defined(_WIN32) */ + + count++; /* allow for null terminator */ + } + +/* If time stamping is desired, get the time string from the user */ + if (lc->logCtrl & LOG_TIME_EN) + slogSetTimeText (lc); + else + slogTimeText[0] = 0; /* Init to empty time/date string. */ + +/* Check for type for special logging ('continuation' or dynamic */ +/* logging format commands) - */ +/* All standard log types are >= 0 */ +/* Continuation logging is SLOG_CONT (-1) */ +/* Dynamic logging format commands are other negative numbers, */ +/* reserved are - */ +/* SLOG_DYN_PAUSE = -10 */ +/* SLOG_DYN_LF = -11 */ +/* SLOG_DYN_CLRSCR = -12 */ + + if (logType >=0 || logType == SLOG_CONT) + { + if (lc->logCtrl & LOG_FILE_EN) /* File Logging enabled */ + { + if (logMissed == 1) + { + logMissed = 2; /* to prevent logging this msg again */ + /* when slogIpc turns off all masks */ + slogFile (lc, 0, "INTERNAL_SLOG", missedSourceFile, missedLineNum, strlen (SLOG_MISSED_LOG_MSG), SLOG_MISSED_LOG_MSG); + } + slogFile (lc, logType, logTypeStr, sourceFile, lineNum, count, lc->msg_buf); + } + if (lc->logCtrl & LOG_MEM_EN) /* File Logging enabled */ + slogMem (lc, logType, logTypeStr, sourceFile, lineNum, count, lc->msg_buf); + } + if ((lc->logCtrl & LOG_IPC_LISTEN_EN) || (lc->logCtrl & LOG_IPC_CALL_EN)) + /* IPC Logging enabled (listen, calling, or both modes) */ + slogIpc (lc, logType, logTypeStr, sourceFile, lineNum, count, lc->msg_buf); + +/* If the user has set up a dynamic log display function, call it */ + if (slog_dyn_log_fun) + (*slog_dyn_log_fun)(lc, logType, sourceFile, lineNum, count, lc->msg_buf); + if (_slog_dyn_log_fun) + (*_slog_dyn_log_fun)(lc, slogTimeText, logType, logTypeStr, sourceFile, + lineNum, count, lc->msg_buf); + + /* If the user has set up a remote logging function, call it */ + if (slog_remote_fun) + { + (*slog_remote_fun)(slogRemoteFlags, lc, logType, sourceFile, lineNum, + count, lc->msg_buf); + } + if (_slog_remote_fun) + { + (*_slog_remote_fun)(slogRemoteFlags, lc, logType, logTypeStr, + sourceFile, lineNum, count, lc->msg_buf); + } + + S_UNLOCK_UTIL_RESOURCES (); + } + +/************************************************************************/ +/* slogSetTimeText */ +/* Set the time string per the lc control information */ +/************************************************************************/ +ST_VOID slogSetTimeText (LOG_CTRL *lc) + { + slogTimeText[0] = 0; /* Init to empty. */ + + if (lc->logCtrl & LOG_TIME_EN) + { +#if defined (_WIN32) + SYSTEMTIME systime; + + if ((lc->logCtrl & LOG_ELAPSEDTIME_EN) == 0) + { + GetLocalTime (&systime); + sprintf (slogTimeText, "%04d-%02d-%02d %02d:%02d:%02d.%03d", + systime.wYear, systime.wMonth, systime.wDay, + systime.wHour, systime.wMinute, systime.wSecond, systime.wMilliseconds); + } + else + _slogSetTimeTextElapsed (lc); + +#elif defined (VXWORKS) + /* Does not support gettimeofday. */ + time_t curTime; + struct tm *locTime; + + curTime = time (NULL); + locTime = localtime (&curTime); + sprintf (slogTimeText, "%04d-%02d-%02d %02d:%02d:%02d", + locTime->tm_year+1900, locTime->tm_mon+1, locTime->tm_mday, + locTime->tm_hour, locTime->tm_min, locTime->tm_sec); +#else + /* UNIX, Linux, QNX,... */ + struct timeval tp; + time_t curTime; + struct tm *locTime; + + gettimeofday (&tp, NULL); + curTime = (time_t) tp.tv_sec; + locTime = localtime (&curTime); + sprintf (slogTimeText, "%04d-%02d-%02d %02d:%02d:%02d.%03ld", + locTime->tm_year+1900, locTime->tm_mon+1, locTime->tm_mday, + locTime->tm_hour, locTime->tm_min, locTime->tm_sec, tp.tv_usec/1000); +#endif /* UNIX, Linux, QNX,... */ + } + } + + +/************************************************************************/ + +#if defined (_WIN32) +static ST_VOID _slogSetTimeTextElapsed (LOG_CTRL *lc) +{ +static ST_BOOLEAN firstTime = SD_TRUE; +static LARGE_INTEGER ticksPerSec; +static LARGE_INTEGER startTicks; +static double dTicksPerSec; +LARGE_INTEGER ticks; +double dDeltaTicks; +double dSec; + + if (firstTime == SD_TRUE) + { + /* See if supported, and if so how many ticks per second */ + if (QueryPerformanceFrequency(&ticksPerSec)) + { + /* Mark the start of time for us */ + QueryPerformanceCounter (&startTicks); + + /* We want to work with double precision floating point */ + dTicksPerSec = (double) ticksPerSec.QuadPart; + } + else + { + strncpy_safe (slogTimeText, "Elapsed Time Not Available", sizeof (slogTimeText) - 1); + return; + } + firstTime = SD_FALSE; + } + + +/* Get the current tick count */ + QueryPerformanceCounter (&ticks); + +/* Get delta from start of logging */ + dDeltaTicks = (double) (ticks.QuadPart - startTicks.QuadPart); + +/* Calculate the elapsed time */ + dSec = dDeltaTicks/dTicksPerSec; + + sprintf (slogTimeText, "%.6f", dSec); + } +#endif /* defined (_WIN32) */ + + + +/************************************************************************/ +/* slogTrimFileName */ +/************************************************************************/ + +ST_VOID slogTrimFileName (ST_CHAR *dest, SD_CONST ST_CHAR *fullName) + { +ST_INT i,s; +ST_CHAR c; + + s = 0; + i = 0; + while ((c = fullName[i])) + { + if (c == '\\' || c == '/' || c == ':' || c == ']' ) + s = i+1; /* remember the last path seperator character position */ + i++; + } + strncpy (dest,&fullName[s], SLOG_MAX_FNAME); + dest[SLOG_MAX_FNAME] = 0; + } + +/************************************************************************/ +/* slogSetHdr */ +/* Set the header string per the lc control information. */ +/* The slogHdr needs to be SLOG_MAX_HDR+1 bytes long (in worst case). */ +/************************************************************************/ + +ST_VOID slogSetHdr (LOG_CTRL *lc, SD_CONST ST_INT logType, + SD_CONST ST_CHAR *SD_CONST logTypeStr, + SD_CONST ST_CHAR *SD_CONST sourceFile, + SD_CONST ST_INT lineNum, + ST_CHAR *slogHdr, ST_CHAR *lineBreak) + { +ST_CHAR fname[SLOG_MAX_FNAME+1]; +ST_CHAR tmp[SLOG_MAX_FNAME+14+1]; /* 14 for line nubmer & () */ + + sprintf (slogHdr, lineBreak); + + if ((lc->fc.ctrl & FIL_CTRL_MSG_HDR_EN) && (logType != SLOG_CONT)) + { + if (!(lc->logCtrl & LOG_NO_HEADER_CR)) + strcat (slogHdr, lineBreak); + + if (lc->logCtrl & LOG_TIME_EN) /* user wants time stamp */ + { + strcat (slogHdr, slogTimeText); + strcat (slogHdr, " "); + } + + if (!(lc->logCtrl & LOG_LOGTYPE_SUPPRESS)) + { + if (logTypeStr != NULL && logTypeStr[0] != 0) + { + strncat (slogHdr, logTypeStr, min (strlen(logTypeStr), SLOG_MAX_LOGTYPESTR)); + strcat (slogHdr, " "); + } + else + { + sprintf (tmp, "LogType:% 2d ", logType); + strcat (slogHdr, tmp); + } + } + + if ((sourceFile != NULL && sourceFile[0] != 0) && !(lc->logCtrl & LOG_FILENAME_SUPPRESS)) + { + slogTrimFileName (fname, sourceFile); + sprintf (tmp, "(%s %d) ", fname, lineNum); + strcat (slogHdr, tmp); + } + if (!(lc->logCtrl & LOG_NO_HEADER_CR)) + { + strcat (slogHdr, lineBreak); + strcat (slogHdr," "); + } + } + if (logType == SLOG_CONT) + strcat (slogHdr," "); + } + +/************************************************************************/ +/* dumpCallingStack */ +/************************************************************************/ + +#if defined(MSDOS) && !defined(_WINDOWS) +ST_VOID main (ST_VOID); +#endif + +ST_VOID slogCallStack (LOG_CTRL *lc, SD_CONST ST_CHAR *txt) + { +#if !defined(CODAN) +#if defined(MSDOS) && !defined(TC) +static ST_UINT32 ptr_to_abs (ST_VOID *ptr); +ST_UINT16 os,sg; +ST_UINT16 os2,sg2; +ST_UINT16 os3,sg3; +ST_UINT16 os4,sg4; +ST_UINT16 os5,sg5; +#endif + +/* For DOS we can save the caller's return address */ +#if defined(MSDOS) && !defined(TC) + _asm { + push si ; save SI + + mov si, bp ; first BP frame + mov ax, ss:[si+2] ; get return address "offset" from stack + mov os, ax ; store in "offset" variable + mov ax, ss:[si+4] ; get return address "segment" from stack + mov sg, ax ; store in "segment" variable + + mov si, ss:[si] ; second BP frame + mov ax, ss:[si+2] ; get return address "offset" from stack + mov os2, ax ; store in "offset" variable + mov ax, ss:[si+4] ; get return address "segment" from stack + mov sg2, ax ; store in "segment" variable + + mov si, ss:[si] ; third BP frame + mov ax, ss:[si+2] ; get return address "offset" from stack + mov os3, ax ; store in "offset" variable + mov ax, ss:[si+4] ; get return address "segment" from stack + mov sg3, ax ; store in "segment" variable + + mov si, ss:[si] ; fourth BP frame + mov ax, ss:[si+2] ; get return address "offset" from stack + mov os4, ax ; store in "offset" variable + mov ax, ss:[si+4] ; get return address "segment" from stack + mov sg4, ax ; store in "segment" variable + + mov si, ss:[si] ; fifth BP frame + mov ax, ss:[si+2] ; get return address "offset" from stack + mov os5, ax ; store in "offset" variable + mov ax, ss:[si+4] ; get return address "segment" from stack + mov sg5, ax ; store in "segment" variable + + pop si ; restore SI + } +#endif + +#endif + + if (txt != NULL) + slog(lc, 0, NULL, 0, "%s", txt); + +#if defined(MSDOS) && !defined(TC) + slog(lc,SLOG_CONT,NULL,0,"Calling Address (1st frame): 0x%04X:%04X (0x%lX)", + sg,os,((ST_UINT32)sg << 4) + (ST_UINT32)os); + slog(lc,SLOG_CONT,NULL,0,"Calling Address (2nd frame): 0x%04X:%04X (0x%lX)", + sg2,os2,((ST_UINT32)sg2 << 4) + (ST_UINT32)os2); + slog(lc,SLOG_CONT,NULL,0,"Calling Address (3rd frame): 0x%04X:%04X (0x%lX)", + sg3,os3,((ST_UINT32)sg3 << 4) + (ST_UINT32)os3); + slog(lc,SLOG_CONT,NULL,0,"Calling Address (4th frame): 0x%04X:%04X (0x%lX)", + sg4,os4,((ST_UINT32)sg4 << 4) + (ST_UINT32)os4); + slog(lc,SLOG_CONT,NULL,0,"Calling Address (5th frame): 0x%04X:%04X (0x%lX)", + sg5,os5,((ST_UINT32)sg5 << 4) + (ST_UINT32)os5); + slog(lc,SLOG_CONT,NULL,0,"Main Address : %08lx (0x%lX)", + main,ptr_to_abs ((ST_VOID *)main)); + +#endif + +#if !defined(CODAN) +#endif + } + +/************************************************************************/ +/* ptr_to_abs (ptr) */ +/* Convert buffer address to long real address */ +/************************************************************************/ + +#if defined(MSDOS) && !defined(TC) +static ST_UINT32 ptr_to_abs (ST_VOID *ptr) + { +ST_UINT32 temp1; +ST_UINT32 temp2; + + temp1 = (ST_UINT32) ptr; + temp2 = temp1 >> 12; /* Microsoft/Xenix use seg/off */ + temp1 &= 0xFFFF; + temp2 &= 0xFFFF0; + return (temp1 + temp2); /* find real address */ + } +#endif + + +/************************************************************************/ +/* slog */ +/************************************************************************/ + +ST_VOID slogDelBuf (LOG_CTRL *lc) + { + S_LOCK_UTIL_RESOURCES (); + if (lc->msg_buf) + free (lc->msg_buf); + lc->msg_buf = NULL; + S_UNLOCK_UTIL_RESOURCES (); + } + +/************************************************************************/ +/* slog_max_msg_size_set */ +/* Set the maximum message size and allocate a buffer of this size. */ +/* This function sets "max_msg_size" and "msg_buf" in LOG_CTRL. */ +/************************************************************************/ +ST_RET slog_max_msg_size_set (LOG_CTRL *lc, ST_INT max_msg_size) + { +ST_RET retcode = SD_SUCCESS; + + S_LOCK_UTIL_RESOURCES (); + lc->max_msg_size = max_msg_size; /* save size in LOG_CTRL */ + + if (lc->msg_buf != NULL) + free (lc->msg_buf); /* buf already allocated by previous call, so free it first*/ + + /* Alloc "lc->msg_buf". chk_malloc calls slog so use malloc here! */ + /* This is the only place "lc->msg_buf" is allocated. */ + lc->msg_buf = (ST_CHAR *) malloc (lc->max_msg_size + 1); + if (lc->msg_buf == NULL) + { /* this should almost never happen */ + lc->max_msg_size = 0; /* no buffer so can't log anything */ + retcode = SD_FAILURE; + } + S_UNLOCK_UTIL_RESOURCES (); + return (retcode); + } + +/************************************************************************/ +/* slog_start */ +/************************************************************************/ + +ST_RET slog_start (LOG_CTRL *lc, ST_INT max_msg_size) + { +ST_RET rc; + + rc = slog_max_msg_size_set (lc, max_msg_size); + rc = slogIpcInit (lc); + return (rc); + } + +/************************************************************************/ +/* slog_end */ +/************************************************************************/ + +ST_RET slog_end (LOG_CTRL *lc) + { +ST_CHAR idxFileName[S_MAX_PATH]; +FILE *fh; +ST_RET rc; + + slogIpcStop (lc); + rc = slog_get_index_file_name (lc, idxFileName, sizeof(idxFileName)); + + S_LOCK_UTIL_RESOURCES (); + if (rc == SD_SUCCESS) + { + fh = fopen (idxFileName,"w+"); + if (fh) + { + fprintf (fh,"%ld", lc->fc.wipeFilePos); + fclose (fh); + rc = SD_SUCCESS; + } + else + rc = SD_FAILURE; + } + +/* No more file or IPC logging after end ... */ + lc->logCtrl &= ~(LOG_FILE_EN | LOG_IPC_EN); + S_UNLOCK_UTIL_RESOURCES (); + + return (rc); + } + +/************************************************************************/ +/* _slogXML */ +/* Formats XML strings and logs them if file logging is enabled. */ +/************************************************************************/ +ST_VOID _slogXML (LOG_CTRL *lc, + SD_CONST ST_CHAR *SD_CONST logTypeStr, + SD_CONST ST_CHAR *SD_CONST sourceFile, + SD_CONST ST_INT lineNum, + ST_UINT numBytes, + SD_CONST ST_CHAR *textData) + { +ST_UINT filCtrlSave; +ST_UINT tabLevel = 0; +ST_UINT index, i, j; +ST_CHAR xmlBuffer[SX_MAX_ELEM_LEN+1]; +ST_INT eleLength[SX_MAX_XML_NEST]; +ST_INT prevTag; +ST_INT tag = XML_NO_TAG; + + + + S_GS_INIT (); + S_LOCK_UTIL_RESOURCES (); + + /* Make sure the LOG_CTRL and textData pointers are not NULL */ + if ((!lc) || (!textData)) + { + S_UNLOCK_UTIL_RESOURCES (); + return; + } + + /* Check to see if any logging is enabled AND dynamic user logging */ + /* function pointer not set */ + if (!(lc->logCtrl & LOG_FILE_EN) && + !slog_dyn_log_fun && !_slog_dyn_log_fun && + !slog_remote_fun && !_slog_remote_fun) + { + S_UNLOCK_UTIL_RESOURCES (); + return; + } + + /* Remember the state of the wipe/wrap/header enable flags */ + /* so that we can restore them later */ + filCtrlSave = lc->fc.ctrl & (FIL_CTRL_WIPE_EN | + FIL_CTRL_WRAP_EN | + FIL_CTRL_MSG_HDR_EN); + + if (!numBytes) + { + lc->fc.ctrl |= (filCtrlSave & FIL_CTRL_WIPE_EN); + } + + if (lc->logCtrl & LOG_FILE_EN) /* File Logging enabled */ + { + for (i=0; i= SX_MAX_XML_NEST) /* Log error if maximum nesting level is exceeded */ + { + slogFile (lc, SLOG_NORMAL, logTypeStr, sourceFile, lineNum, 0, "XML nesting exceeds maximum level"); + break; + } + + if (eleLength[tabLevel] >= SX_MAX_ELEM_LEN) /* Log error if maximum element length is exceeded */ + { + slogFile (lc, SLOG_NORMAL, logTypeStr, sourceFile, lineNum, 0, "XML element exceeds maximum length"); + break; + } + + eleLength[tabLevel]++; + + /* Skip control characters */ + /* cast the chars as ST_UCHAR so data > 0x7F will not look negative */ + + if (iscntrl((ST_UCHAR) textData[i]) || (textData[i] == ' ' && index == 0)) + { + index = 0; + continue; + } + + /* Determine tag value */ + if (textData[i] == '/' && textData[i+1] == '>') + tag = XML_EMPTY; + + if (textData[i] == '<') + { + prevTag = tag; + + if (textData[i] == '<' && textData[i+1] == '?') + tag = XML_DOCUMENT; + else if (textData[i] == '<' && textData[i+1] == '!') + tag = XML_COMMENT; + else if (textData[i] == '<' && textData[i+1] == '/') + tag = XML_END; + else if(textData[i] == '<') + tag = XML_START; + + /* Increment/decrement tabLevel */ + if (prevTag == XML_START && (tag == XML_START || tag == XML_COMMENT)) + tabLevel++; + else if (tag == XML_END && (prevTag == XML_END || prevTag == XML_EMPTY)) + tabLevel--; + + /* Format tab level */ + if (index == 0) + { + xmlBuffer[0] = '\0'; + + if (tabLevel) + { + for (j=0; j' && ( + textData[i+1] == '<' || + textData[i+1] == ' ' || + iscntrl ((ST_UCHAR) textData[i+1]) || + i == numBytes-1 || + tag != XML_START)) + { + slogFile (lc, SLOG_CONT, logTypeStr, sourceFile, lineNum, strlen(xmlBuffer), xmlBuffer); + index = 0; + + /* If the user has set up a dynamic log display function, call it */ + if (slog_dyn_log_fun) + { + (*slog_dyn_log_fun)(lc, SLOG_CONT, NULL, 0, strlen(xmlBuffer), xmlBuffer); + } + if (_slog_dyn_log_fun) + { + (*_slog_dyn_log_fun)(lc, slogTimeText, SLOG_CONT, NULL, NULL, 0, strlen(xmlBuffer), xmlBuffer); + } + + /* If the user has set up a remote logging function, call it */ + if (slog_remote_fun) + { + (*slog_remote_fun)(slogRemoteFlags, lc, SLOG_CONT, NULL, 0, strlen(xmlBuffer), xmlBuffer); + } + if (_slog_remote_fun) + { + (*_slog_remote_fun)(slogRemoteFlags, lc, SLOG_CONT, NULL, NULL, 0, strlen(xmlBuffer), xmlBuffer); + } + } + } + } + + /* All done, restore the flag state bits */ + lc->fc.ctrl |= filCtrlSave; + + S_UNLOCK_UTIL_RESOURCES (); + } + + diff --git a/mmslib/slog/slogfil.c b/mmslib/slog/slogfil.c new file mode 100644 index 0000000..a61c25b --- /dev/null +++ b/mmslib/slog/slogfil.c @@ -0,0 +1,741 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1993-2008, All Rights Reserved */ +/* */ +/* MODULE NAME : slogfil.c */ +/* PRODUCT(S) : SLOG */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/27/08 EJV 22 Elim warning from previous changes. */ +/* 03/27/08 EJV 21 Use S_MAX_PATH instead of MAX_PATH. */ +/* slog_get_index_file_name: added destLen param*/ +/* and changed to return result. */ +/* 10/08/07 EJV 20 Moved MAX_PATH define to sysincs.h */ +/* 01/15/07 EJV 19 Chg S_LOCK_RESOURCES to S_LOCK_UTIL_RESOURCES*/ +/* 02/13/06 DSF 18 Migrate to VS.NET 2005 */ +/* 10/31/05 MDE 17 Tweaked index tile name creation */ +/* 09/23/05 MDE 16 Tweaked size of idxFileName in */ +/* 09/14/05 DSF 15 Increased size of idxFileName in */ +/* 08/26/05 MDE 14 Fixed startup w/wo */ +/* 08/10/05 MDE 13 Added index file, wrap cleanup, etc. */ +/* 06/07/04 EJV 12 slogFil: chg state if reopen err (HARD_FLUSH)*/ +/* 05/13/04 EJV 11 Moved log header formatting to slogSetHdr. */ +/* 03/11/04 GLB 10 Remove "thisFileName" */ +/* 02/20/03 JRB 09 Del PSOS code. */ +/* 10/13/00 EJV 08 Moved glbsem.h below sysincs.h. */ +/* 08/22/00 KCR 07 Added FIL_CTRL_NO_LOG_HDR */ +/* 09/13/99 MDE 06 Added SD_CONST modifiers */ +/* 04/14/99 MDE 05 Removed unnecessary include files */ +/* 10/23/98 MDE 04 No blank line bet. logs if LOG_NO_HEADER_CR */ +/* 10/16/98 DSF 03 Spelling */ +/* 10/08/98 MDE 02 Migrated to updated SLOG interface */ +/* 10/06/97 DSF 01 Added thisFileName */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#if defined (_WIN32) +#pragma warning(disable : 4996) +#endif + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" +#include +#if defined(_WIN32) +#include "io.h" +#endif + +#include "slog.h" + +/************************************************************************/ + +/* Do not change w/o testing */ +#define OLDEST_STRING " OLDEST DATA STARTS BELOW" + +/************************************************************************/ +/* Local function prototypes */ +/************************************************************************/ + +static ST_VOID printWipe (FILE *fh); +static ST_VOID printWrap (FILE *fh); +static ST_VOID printStart (FILE *fh); +static ST_VOID slogFileErrorPrint(ST_CHAR *text, ST_CHAR *fname); +static ST_LONG findOldestMessage(LOG_CTRL *lc, FILE *fh); +static ST_INT copy_named_files (LOG_CTRL *lc, SD_CONST ST_CHAR *SD_CONST dest, + SD_CONST ST_CHAR *SD_CONST src); +static ST_INT copy_named_files_ex (LOG_CTRL *lc, SD_CONST ST_CHAR *SD_CONST dest, + SD_CONST ST_CHAR *SD_CONST src); +static ST_VOID chk_slog_service (LOG_CTRL *lc); + +/************************************************************************/ +/* slogFile */ +/************************************************************************/ + +ST_VOID slogFile (LOG_CTRL *lc, SD_CONST ST_INT logType, + SD_CONST ST_CHAR *SD_CONST logTypeStr, + SD_CONST ST_CHAR *SD_CONST sourceFile, + SD_CONST ST_INT lineNum, + SD_CONST ST_INT bufLen, SD_CONST ST_CHAR *buf) + + { +FILE *fh; +struct stat fileStat; +ST_LONG seekPos; +ST_LONG currPos; +ST_ULONG fileSize; +ST_CHAR slogHdr[SLOG_MAX_HDR + 1]; +/*ST_INT wrap; */ + + if (!(lc->fc.state & FIL_STATE_OPEN)) /* if not already opened */ + { + /* Need to open the file */ + if (lc->fc.ctrl & FIL_CTRL_NO_APPEND) /* If overwrite is requested */ + fh = NULL; + else + lc->fc.fp = fh = fopen (lc->fc.fileName,"r+"); + + if (!fh) /* File must not exist, or overwrite requested */ + { /* try creating it */ + lc->fc.fp = fh = fopen (lc->fc.fileName,"w+"); + if (!fh) + { + slogFileErrorPrint ("OPEN",lc->fc.fileName); + return; + } + } + + /* We have successfully opened the log file */ + lc->fc.state = FIL_STATE_OPEN; + if (lc->fc.ctrl & FIL_CTRL_SETBUF_EN) /* If setbuf desired */ + setbuf (fh,NULL); /* no buffering, please */ + + /* If appending, need to get to the start write position */ + if ((lc->fc.ctrl & FIL_CTRL_NO_APPEND) == 0) + { + /* Check the current file size, see if we can just append */ + if (fstat (fileno(fh), &fileStat)) + { + slogFileErrorPrint ("SEEK",lc->fc.fileName); + return; + } + fileSize = fileStat.st_size; + if (fileSize < lc->fc.maxSize) + seekPos = (ST_LONG) fileSize; + else + { + seekPos = findOldestMessage (lc, fh); + lc->fc.state |= FIL_STATE_NEED_WIPE; /* flag to show we wrapped */ + } + if (fseek (fh,seekPos,SEEK_SET)) + { + slogFileErrorPrint ("SEEK",lc->fc.fileName); + return; + } + } + +/* Print the 'started' message */ + if (!(lc->fc.ctrl & FIL_CTRL_NO_LOG_HDR)) /* log file header */ + printStart (fh); + }/* File not opened */ + else + { /* The file has already been opened for logging */ + fh = lc->fc.fp; + if (lc->fc.ctrl & FIL_CTRL_WRAP_EN) /* if wrap allowed */ + { + +/* Check to see the position of the file to see if we need to wrap it */ + + currPos = ftell (fh); + if (currPos == -1L) + { + slogFileErrorPrint ("TELL",lc->fc.fileName); + return; + } + +/* Check to see if we need to wrap - currPos is where we would write */ + + if (((ST_ULONG) currPos > lc->fc.maxSize)) + { + +/* Yep, need to wrap - cut off the rest of the file to avoid trailing */ + +#if defined(MSDOS) || defined(__OS2__) || defined(_WIN32) + if (chsize (fileno(fh), currPos)) + { + slogFileErrorPrint ("CHSIZE",lc->fc.fileName); + } +#else + #ifndef __ECOS + if (ftruncate (fileno(fh), currPos)) + { + slogFileErrorPrint ("FTRUNCATE",lc->fc.fileName); + } + #endif +#endif + +/* Seek to start of file */ + if (fseek (fh,0L,SEEK_SET)) + { + slogFileErrorPrint ("SEEK",lc->fc.fileName); + return; + } + +/* Print wrap message at top */ + + seekPos = 0; + printWrap (fh); + lc->fc.state |= FIL_STATE_NEED_WIPE; /* flag to show we wrapped */ + } /* need to wrap */ + } /* Wrap not disabled */ + } /* File already opened */ + +/* Ok, the file is open and the pointer set to where we log the next */ +/* message, any wrap has been printed - time to log the info */ + +/* Now print the message header */ + slogSetHdr (lc, logType, logTypeStr, sourceFile, lineNum, slogHdr, "\n"); + fprintf (fh,"%s", slogHdr); + +/* Now print the message buffer */ + fprintf (fh,"%s", buf); + +/* Now print 'wipe bar', if file has wrapped some time in the past */ +/* and if we are supposed to do the wipe */ + + if (lc->fc.state & FIL_STATE_NEED_WIPE && + lc->fc.ctrl & FIL_CTRL_WIPE_EN) + { + currPos = ftell (fh); + if (currPos == -1L) + { + slogFileErrorPrint ("TELL",lc->fc.fileName); + return; + } + +/* Print the wipe bar */ + lc->fc.wipeFilePos = currPos; + printWipe (fh); + +/* Seek to the current write position */ + + if (fseek (fh,currPos,SEEK_SET)) + { + slogFileErrorPrint ("SEEK",lc->fc.fileName); + return; + } + } /* Need to print wipe bar */ + +/* Try to not lose log data */ + + fflush (fh); + +/* Check for paranoid user - wants to close && reopen */ + + if (lc->fc.ctrl & FIL_CTRL_HARD_FLUSH) + { + currPos = ftell (fh); + if (currPos == -1L) + { + slogFileErrorPrint ("TELL",lc->fc.fileName); + return; + } + +/* Close the file */ + + fclose (fh); + +/* Re-open the file */ + + lc->fc.fp = fh = fopen (lc->fc.fileName,"r+"); + if (!fh) /* better exist */ + { + slogFileErrorPrint ("OPEN",lc->fc.fileName); + lc->fc.state &= ~FIL_STATE_OPEN; + return; + } + + if (lc->fc.ctrl & FIL_CTRL_SETBUF_EN) /* If setbuf desired */ + setbuf (fh,NULL); /* no buffering, please */ + +/* Seek to current write position */ + + if (fseek (fh,currPos,SEEK_SET)) + { + slogFileErrorPrint ("SEEK",lc->fc.fileName); + return; + } + } /* if hard flush enabled */ + } + +/************************************************************************/ +/* slogCloseFile */ +/************************************************************************/ + +ST_VOID slogCloseFile (LOG_CTRL *lc) + { + + S_GS_INIT (); + S_LOCK_UTIL_RESOURCES (); + + if (lc->fc.state & FIL_STATE_OPEN) + { + if (fclose (lc->fc.fp)) + { + fprintf (stderr,"\n *** LOG FILE CLOSE PROBLEM (%s) : ", + lc->fc.fileName); + return; + } + lc->fc.state &= ~FIL_STATE_OPEN; + } + S_UNLOCK_UTIL_RESOURCES (); + } + +/************************************************************************/ +/* slogCloneFile */ +/************************************************************************/ + +ST_VOID slogCloneFile (LOG_CTRL *lc, SD_CONST ST_CHAR *newFile) + { +ST_LONG currPos; +FILE *fh; + + S_GS_INIT (); + S_LOCK_UTIL_RESOURCES (); + + fh = lc->fc.fp; + if (lc->fc.state & FIL_STATE_OPEN) + { + currPos = ftell (fh); + if (currPos == -1L) + { + slogFileErrorPrint ("TELL",lc->fc.fileName); + S_UNLOCK_UTIL_RESOURCES (); + return; + } + +/* Close the file */ + fclose (fh); + +/* Copy the log file */ + copy_named_files (lc, newFile, lc->fc.fileName); + +/* Re-open the file at the old position */ + lc->fc.fp = fh = fopen (lc->fc.fileName,"r+"); + if (!fh) /* better exist */ + { + slogFileErrorPrint ("OPEN",lc->fc.fileName); + S_UNLOCK_UTIL_RESOURCES (); + return; + } + + if (lc->fc.ctrl & FIL_CTRL_SETBUF_EN) /* If setbuf desired */ + setbuf (fh,NULL); /* no buffering, please */ + +/* Seek to current write position */ + if (fseek (fh,currPos,SEEK_SET)) + { + slogFileErrorPrint ("SEEK",lc->fc.fileName); + S_UNLOCK_UTIL_RESOURCES (); + return; + } + } + else /* log file not opened, just copy it */ + copy_named_files (lc, newFile, lc->fc.fileName); + + S_UNLOCK_UTIL_RESOURCES (); + } + +/************************************************************************/ +/* slogCloneFileEx */ +/************************************************************************/ + +ST_VOID slogCloneFileEx (LOG_CTRL *lc, SD_CONST ST_CHAR *newFile) + { +ST_LONG currPos; +FILE *fh; + + S_GS_INIT (); + S_LOCK_UTIL_RESOURCES (); + + fh = lc->fc.fp; + if (lc->fc.state & FIL_STATE_OPEN) + { + currPos = ftell (fh); + if (currPos == -1L) + { + slogFileErrorPrint ("TELL",lc->fc.fileName); + S_UNLOCK_UTIL_RESOURCES (); + return; + } + +/* Close the file */ + fclose (fh); + +/* Copy the log file */ + copy_named_files_ex (lc, newFile, lc->fc.fileName); + +/* Re-open the file at the old position */ + lc->fc.fp = fh = fopen (lc->fc.fileName,"r+"); + if (!fh) /* better exist */ + { + slogFileErrorPrint ("OPEN",lc->fc.fileName); + S_UNLOCK_UTIL_RESOURCES (); + return; + } + + if (lc->fc.ctrl & FIL_CTRL_SETBUF_EN) /* If setbuf desired */ + setbuf (fh,NULL); /* no buffering, please */ + +/* Seek to current write position */ + if (fseek (fh,currPos,SEEK_SET)) + { + slogFileErrorPrint ("SEEK",lc->fc.fileName); + S_UNLOCK_UTIL_RESOURCES (); + return; + } + } + else /* log file not opened, just copy it */ + copy_named_files_ex (lc, newFile, lc->fc.fileName); + + S_UNLOCK_UTIL_RESOURCES (); + } + +/************************************************************************/ +/* slogDeleteFile */ +/************************************************************************/ + +ST_VOID slogDeleteFile (LOG_CTRL *lc) + { + + S_GS_INIT (); + S_LOCK_UTIL_RESOURCES (); + +/* first close the log file */ + + slogCloseFile (lc); + +/* Now delete it */ + + remove (lc->fc.fileName); + + S_UNLOCK_UTIL_RESOURCES (); + } + +/************************************************************************/ +/* findOldestMessage */ +/************************************************************************/ + +static ST_LONG findOldestMessage (LOG_CTRL *lc, FILE *fh) + { +ST_CHAR idxFileName[S_MAX_PATH]; +FILE *idxFh; +ST_CHAR buf[200]; +ST_LONG startPos; +ST_LONG currPos; +ST_INT count; +ST_INT cmpLen; + + cmpLen = strlen(OLDEST_STRING); + +/* Need to find the start position by looking for the 'OLDEST' message. */ +/* See if we have an index file and seek position ... */ + if (slog_get_index_file_name (lc, idxFileName, sizeof(idxFileName)) == SD_SUCCESS) + { + idxFh = fopen (idxFileName,"r"); + if (idxFh) + { + count = fscanf (idxFh, "%ld", &startPos); + fclose (idxFh); + if (count == 1) + { + if (fseek (fh, startPos, SEEK_SET) == 0) + { + fgets (buf,200,fh); + fgets (buf,200,fh); + fgets (buf,200,fh); + if (fgets (buf,200,fh)) + { + if (buf[10] == 'O' && !strncmp (buf,OLDEST_STRING, cmpLen)) + return (startPos); + } + } + } + } + } + +/* Darn, need to start at the top and find it */ + fseek (fh, 0, SEEK_SET); + while (SD_TRUE) + { + currPos = ftell (fh); + if (!fgets (buf,200,fh)) + break; + + chk_slog_service (lc); + + /* Is this the position with the marker string? */ + if (buf[10] == 'O' && !strncmp (buf,OLDEST_STRING, cmpLen)) + return (currPos); + } + +/* No oldest found, go to the start of the file */ + fseek (fh, 0, SEEK_END); + currPos = ftell (fh); + return (currPos); + } + +/************************************************************************/ +/* slog_get_index_file_name */ +/************************************************************************/ + +ST_RET slog_get_index_file_name (LOG_CTRL *lc, ST_CHAR *dest, ST_INT destLen) + { +ST_CHAR *src; +ST_INT srcLen; + + src = lc->fc.fileName; + srcLen = strlen(src); + + if (!src || srcLen == 0) + return (SD_FAILURE); + if (!dest || destLen < (srcLen+4)) /* +4 for len of ".sli" */ + return (SD_FAILURE); + + while (SD_TRUE) + { + *dest = *src; + if (*dest == 0) /* End of string ... */ + break; + + if (*dest == '.') + *dest = '_'; + + ++src; + ++dest; + } + + strcat (dest, ".sli"); + return (SD_SUCCESS); + } + +/************************************************************************/ +/* printStart */ +/************************************************************************/ + +static ST_VOID printStart (FILE *fh) + { +time_t t; + + t = time(NULL); + fprintf (fh,"\n\n***********************************************************"); + fprintf (fh,"\n LOGGING STARTED %s", ctime(&t)); + fprintf (fh,"***********************************************************"); + } + +/************************************************************************/ +/* printWrap */ +/************************************************************************/ + +static ST_VOID printWrap (FILE *fh) + { +time_t t; + + t = time(NULL); + fprintf (fh,"\n***********************************************************"); + fprintf (fh,"\n FILE WRAPPED %s", ctime(&t)); + fprintf (fh,"***********************************************************"); + } + +/************************************************************************/ +/* printWipe */ +/************************************************************************/ + +static ST_VOID printWipe (FILE *fh) + { + fprintf (fh,"\n\n***********************************************************"); + fprintf (fh,"\n%s",OLDEST_STRING);; + fprintf (fh,"\n***********************************************************\n\n"); + } + +/************************************************************************/ +/* slogFileErrorPrint */ +/************************************************************************/ + +static ST_VOID slogFileErrorPrint (ST_CHAR *text, ST_CHAR *fname) + { + fprintf (stderr,"\n*** LOG FILE %s ERROR (%s) : ",text,fname); + fprintf (stderr,"%s",strerror(errno)); + } + +/************************************************************************/ +/* copy_named_files */ +/************************************************************************/ + +#define FILE_READ_SIZE 1000 + +static ST_INT copy_named_files (LOG_CTRL *lc, + SD_CONST ST_CHAR *SD_CONST dest, SD_CONST ST_CHAR *SD_CONST src) + { +FILE *dest_fp; +FILE *src_fp; +ST_INT ret; +ST_CHAR buf[FILE_READ_SIZE+1]; +ST_INT bytes_read; +ST_INT bytes_written; + + if (!(src_fp = fopen (src,"rb"))) + return (SD_FAILURE); + + if (!(dest_fp = fopen (dest,"wb"))) + { + fclose (src_fp); + return (SD_FAILURE); + } + + ret = SD_SUCCESS; + while (SD_TRUE) + { + if (!(bytes_read = fread (buf,1,FILE_READ_SIZE,src_fp))) + break; + + bytes_written = fwrite (buf,1,bytes_read,dest_fp); + if (bytes_read != bytes_written) + { + ret = SD_FAILURE; + break; + } + + chk_slog_service (lc); + } + + if (fclose (src_fp)) + ret = SD_FAILURE; + + if (fclose (dest_fp)) + ret = SD_FAILURE; + + return (ret); + } + + +/************************************************************************/ +/* copy_named_files_ex */ +/************************************************************************/ + +static ST_INT copy_named_files_ex (LOG_CTRL *lc, SD_CONST ST_CHAR *SD_CONST dest, + SD_CONST ST_CHAR *SD_CONST src) + { +FILE *dest_fp; +FILE *src_fp; +ST_INT ret; +ST_CHAR buf[200+1]; +ST_LONG currPos; +ST_LONG oldestPos; + + if (!(src_fp = fopen (src,"rb"))) + return (SD_FAILURE); + + oldestPos = findOldestMessage (lc, src_fp); + if (fseek (src_fp, oldestPos, SEEK_SET)) + { + slogFileErrorPrint ("SEEK",lc->fc.fileName); + fclose (src_fp); + return (SD_FAILURE); + } + + if (!(dest_fp = fopen (dest,"wb"))) + { + fclose (src_fp); + return (SD_FAILURE); + } + + ret = SD_SUCCESS; + while (SD_TRUE) + { + if (!fgets (buf,200,src_fp)) + break; + + fputs (buf,dest_fp); + + chk_slog_service (lc); + } + + if (fclose (src_fp)) + ret = SD_FAILURE; + + if (ret == SD_SUCCESS) + { + if (oldestPos > 0) + { + if (!(src_fp = fopen (src,"rb"))) + { + fclose (dest_fp); + return (SD_FAILURE); + } + + currPos = 0; + while (currPos < oldestPos) + { + if (!fgets (buf,200,src_fp)) + break; + + fputs (buf,dest_fp); + + currPos = ftell (src_fp); + if (currPos == -1L) + { + slogFileErrorPrint ("TELL",lc->fc.fileName); + fclose (src_fp); + fclose (dest_fp); + return (SD_FAILURE); + } + + chk_slog_service (lc); + } + } + } + + if (fclose (src_fp)) + ret = SD_FAILURE; + + if (fclose (dest_fp)) + ret = SD_FAILURE; + + return (ret); + } + + +/************************************************************************/ +/* chk_slog_service */ +/************************************************************************/ + +static ST_INT slog_service_count; + +static ST_VOID chk_slog_service (LOG_CTRL *lc) + { +ST_UINT32 logCtrlSave; + + /* Allow the application to do it's thing during a slow operation */ + if (slog_service_fun) + { + if (++slog_service_count > 10) + { + slog_service_count = 0; + + /* do not allow file logging during this operation */ + logCtrlSave = lc->logCtrl; + lc->logCtrl &= ~LOG_FILE_EN; + (*slog_service_fun) (); + lc->logCtrl = logCtrlSave; + } + } + } diff --git a/mmslib/slog/sloghex.c b/mmslib/slog/sloghex.c new file mode 100644 index 0000000..6e9af48 --- /dev/null +++ b/mmslib/slog/sloghex.c @@ -0,0 +1,362 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1993-2007, All Rights Reserved */ +/* */ +/* MODULE NAME : sloghex.c */ +/* PRODUCT(S) : SLOG */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 01/15/07 EJV 15 Chg S_LOCK_RESOURCES to S_LOCK_UTIL_RESOURCES*/ +/* 08/18/06 JRB 14 Chk _slog_remote_fun along with other ptrs. */ +/* 05/23/05 EJV 13 doSlog corr: replaced LOG_IPC_EN with */ +/* LOG_IPC_LISTEN_EN || LOG_IPC_CALL_EN */ +/* 11/05/04 EJV 12 Added check for LOG_IPC_EN. */ +/* 05/18/04 MDE 11 Removed LOG_IPC_SUPPORT #ifdef's */ +/* 03/11/04 GLB 10 Remove "thisFileName" */ +/* 02/17/03 JRB 09 Del system includes (using sysincs.h). */ +/* 03/27/01 MDE 08 Added _slogStr */ +/* 09/13/99 MDE 07 Added SD_CONST modifiers */ +/* 11/11/98 DSF 06 Minor changes to _slog_dyn_log_fun */ +/* 10/09/98 MDE 05 Put back center space per JB request */ +/* 10/08/98 MDE 04 Migrated to updated SLOG interface */ +/* 04/07/98 MDE 03 Minor warning cleanup */ +/* 10/06/97 DSF 02 Added thisFileName */ +/* 05/28/97 DSF 01 Added IPC logging capability */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" +#include "slog.h" + +#define cvt_nibble(a) ((ST_UCHAR) ((a) > 9 ? (a) + 'A' - 10 : (a) + '0')) +#define DEBUG_BUF_LEN 100 + +#define CHAR_PER_LINE 75 + +/************************************************************************/ +/* slogHex */ +/* Main HEX logging function, typically called via macro */ +/* Create the HEX strings && pass to memory & file logging */ +/* functions if enabled */ +/************************************************************************/ + +ST_VOID slogHex (LOG_CTRL *lc, + SD_CONST ST_INT logType, + SD_CONST ST_CHAR *SD_CONST fileName, + SD_CONST ST_INT lineNum, + SD_CONST ST_INT numBytes, + SD_CONST ST_VOID *hexData) + { + _slogHex (lc, numBytes, hexData); + } + + +ST_VOID _slogHex (LOG_CTRL *lc, + ST_INT numBytes, + SD_CONST ST_VOID *hexData) + { +ST_INT i; +ST_INT ascii_index; +ST_INT hex_index; +ST_CHAR debug_buf[DEBUG_BUF_LEN+1]; /* output buffer */ +ST_INT curlen; +ST_UCHAR ch; +ST_UCHAR hex; +ST_LONG addr; +ST_UINT filCtrlSave; +ST_UINT memCtrlSave; +ST_UCHAR *buf; + + S_GS_INIT (); + S_LOCK_UTIL_RESOURCES (); + + addr = 0; + +/* Make the compiler happy */ + buf = (ST_UCHAR *) hexData; + +/* Make sure the LOG_CTRL pointer is not NULL */ + if (!lc) + { + S_UNLOCK_UTIL_RESOURCES (); + return; + } + +/* Check to see if any logging is enabled AND dynamic user logging */ +/* function pointer not set */ + if (!(lc->logCtrl & (LOG_FILE_EN | LOG_MEM_EN | LOG_IPC_EN)) && + !slog_dyn_log_fun && !_slog_dyn_log_fun && + !slog_remote_fun && !_slog_remote_fun) + { + S_UNLOCK_UTIL_RESOURCES (); + return; + } + +/* Remember the state of the wipe/wrap/header enable flags */ +/* so that we can restore them later */ + + filCtrlSave = lc->fc.ctrl & (FIL_CTRL_WIPE_EN | + FIL_CTRL_WRAP_EN | + FIL_CTRL_MSG_HDR_EN); + + memCtrlSave = lc->mc.ctrl & MEM_CTRL_MSG_HDR_EN; + +/* No hdr or wipe during a hex dump (allow wrap for first line if req'd)*/ + lc->fc.ctrl &= ~(FIL_CTRL_WIPE_EN | FIL_CTRL_MSG_HDR_EN); + lc->mc.ctrl &= ~MEM_CTRL_MSG_HDR_EN; + +/* Also turn on HEX flag bit for memory logging */ + lc->mc.ctrl |= MEM_CTRL_HEX_LOG; + +/* OK, now start the dump, line by line */ + while (numBytes) + { + curlen = min(numBytes,16); /* # char's in current line */ + for (i = 0; i < DEBUG_BUF_LEN; ++i) + debug_buf[i] = ' '; + sprintf (debug_buf,"%05lX ",addr);/* data offset */ + hex_index = 7; /* where to put hex data */ + ascii_index = 57; /* where to put ascii conversion */ + debug_buf[ascii_index++] = '*'; + + for (i = 0; i < curlen; i++) /* for each byte in this line */ + { + ch = *buf++; /* get next character */ + + hex = (ch >> 4) & (ST_UCHAR) 0x0f;/* write HEX chars for the byte */ + hex = cvt_nibble(hex); + debug_buf[hex_index++] = hex; + hex = ch & (ST_UCHAR) 0x0f; + hex = cvt_nibble(hex); + debug_buf[hex_index++] = hex; + ++hex_index; /* space between bytes */ + if (i == 7) + ++hex_index; + + if (isprint(ch)) /* print ASCII portion */ + debug_buf[ascii_index] = ch; + else + debug_buf[ascii_index] = '.'; /* just put a '.' there */ + ascii_index++; + } + + debug_buf[ascii_index++] = '*'; + debug_buf[ascii_index++] = 0; + + addr += 16; /* prepare for next line */ + numBytes -= curlen; + +/* debug_buf now contains the hex/ascii line to be logged */ + +/* for the last line to be logged, turn wipe back on */ + if (!numBytes) + { + lc->fc.ctrl |= (filCtrlSave & FIL_CTRL_WIPE_EN); + } + + if (lc->logCtrl & LOG_FILE_EN) /* File Logging enabled */ + { + slogFile (lc, SLOG_CONT, NULL, NULL, 0, strlen(debug_buf), debug_buf); + } + + if (lc->logCtrl & LOG_MEM_EN) /* Memory Logging enabled */ + { + slogMem (lc, SLOG_CONT, NULL, NULL, 0, strlen(debug_buf), debug_buf); + } + + if ((lc->logCtrl & LOG_IPC_LISTEN_EN) || (lc->logCtrl & LOG_IPC_CALL_EN)) + /* IPC Logging enabled (listen, calling, or both modes) */ + { + slogIpc (lc, SLOG_CONT, NULL, NULL, 0, strlen(debug_buf), debug_buf); + } + +/* If the user has set up a dynamic log display function, call it */ + if (slog_dyn_log_fun) + { + (*slog_dyn_log_fun)(lc, SLOG_CONT, NULL, 0, + strlen(debug_buf), debug_buf); + } + if (_slog_dyn_log_fun) + { + (*_slog_dyn_log_fun)(lc, slogTimeText, SLOG_CONT, NULL, NULL, 0, + strlen(debug_buf), debug_buf); + } + +/* If the user has set up a remote logging function, call it */ + if (slog_remote_fun) + { + (*slog_remote_fun)(slogRemoteFlags, lc, SLOG_CONT, + NULL, 0, + strlen(debug_buf), debug_buf); + } + if (_slog_remote_fun) + { + (*_slog_remote_fun)(slogRemoteFlags, lc, SLOG_CONT, NULL, + NULL, 0, + strlen(debug_buf), debug_buf); + } + +/* Don't want to wrap the file in the middle of a hex dump */ + lc->fc.ctrl &= ~FIL_CTRL_WRAP_EN; + } + +/* All done, restore the flag state bits */ + + lc->fc.ctrl |= filCtrlSave; + lc->mc.ctrl |= memCtrlSave; + lc->mc.ctrl &= ~MEM_CTRL_HEX_LOG; + + S_UNLOCK_UTIL_RESOURCES (); + } + + +/************************************************************************/ +/* slogStr */ +/************************************************************************/ + +ST_VOID _slogStr (LOG_CTRL *lc, ST_CHAR *strData) + { +ST_INT i; +ST_INT ascii_index; +ST_CHAR debug_buf[DEBUG_BUF_LEN+1]; /* output buffer */ +ST_INT curlen; +ST_UCHAR ch; +ST_UINT filCtrlSave; +ST_UINT memCtrlSave; +ST_INT numBytes; + + S_GS_INIT (); + S_LOCK_UTIL_RESOURCES (); + +/* Make sure the LOG_CTRL pointer is not NULL */ + if (!lc) + { + S_UNLOCK_UTIL_RESOURCES (); + return; + } + +/* Check to see if any logging is enabled AND dynamic user logging */ +/* function pointer not set */ + if (!(lc->logCtrl & (LOG_FILE_EN | LOG_MEM_EN | LOG_IPC_EN)) && + !slog_dyn_log_fun && !_slog_dyn_log_fun && + !slog_remote_fun && !_slog_remote_fun) + { + S_UNLOCK_UTIL_RESOURCES (); + return; + } + +/* Remember the state of the wipe/wrap/header enable flags */ +/* so that we can restore them later */ + + filCtrlSave = lc->fc.ctrl & (FIL_CTRL_WIPE_EN | + FIL_CTRL_WRAP_EN | + FIL_CTRL_MSG_HDR_EN); + + memCtrlSave = lc->mc.ctrl & MEM_CTRL_MSG_HDR_EN; + +/* No hdr or wipe during a hex dump (allow wrap for first line if req'd)*/ + lc->fc.ctrl &= ~(FIL_CTRL_WIPE_EN | FIL_CTRL_MSG_HDR_EN); + lc->mc.ctrl &= ~MEM_CTRL_MSG_HDR_EN; + +/* OK, now start the dump, line by line */ + + numBytes = strlen (strData); + while (numBytes) + { + curlen = min (numBytes,CHAR_PER_LINE); /* # char's in current line */ + ascii_index = 0; /* where to put ascii conversion */ + for (i = 0; i < curlen; i++) /* for each byte in this line */ + { + ch = *strData++; /* get next character */ + if (isprint(ch)) /* print ASCII portion */ + debug_buf[ascii_index] = ch; + else if (ch == '\n') + { + debug_buf[ascii_index] = ch; + ++i; + break; + } /* end of this line */ + else if (ch == '\t') + debug_buf[ascii_index] = ch; + else + debug_buf[ascii_index] = '.'; /* just put a '.' there */ + ascii_index++; + } + debug_buf[ascii_index++] = 0; + + numBytes -= i; + +/* debug_buf now contains the ascii line to be logged */ +/* for the last line to be logged, turn wipe back on */ + if (!numBytes) + { + lc->fc.ctrl |= (filCtrlSave & FIL_CTRL_WIPE_EN); + } + + if (lc->logCtrl & LOG_FILE_EN) /* File Logging enabled */ + { + slogFile (lc, SLOG_CONT, NULL, NULL, 0, strlen(debug_buf), debug_buf); + } + + if (lc->logCtrl & LOG_MEM_EN) /* Memory Logging enabled */ + { + slogMem (lc, SLOG_CONT, NULL, NULL, 0, strlen(debug_buf), debug_buf); + } + + if ((lc->logCtrl & LOG_IPC_LISTEN_EN) || (lc->logCtrl & LOG_IPC_CALL_EN)) + /* IPC Logging enabled (listen, calling, or both modes) */ + { + slogIpc (lc, SLOG_CONT, NULL, NULL, 0, strlen(debug_buf), debug_buf); + } + +/* If the user has set up a dynamic log display function, call it */ + if (slog_dyn_log_fun) + { + (*slog_dyn_log_fun)(lc, SLOG_CONT, NULL, 0, + strlen(debug_buf), debug_buf); + } + if (_slog_dyn_log_fun) + { + (*_slog_dyn_log_fun)(lc, slogTimeText, SLOG_CONT, NULL, NULL, 0, + strlen(debug_buf), debug_buf); + } + +/* If the user has set up a remote logging function, call it */ + if (slog_remote_fun) + { + (*slog_remote_fun)(slogRemoteFlags, lc, SLOG_CONT, + NULL, 0, + strlen(debug_buf), debug_buf); + } + if (_slog_remote_fun) + { + (*_slog_remote_fun)(slogRemoteFlags, lc, SLOG_CONT, NULL, + NULL, 0, + strlen(debug_buf), debug_buf); + } + +/* Don't want to wrap the file in the middle of a hex dump */ + lc->fc.ctrl &= ~FIL_CTRL_WRAP_EN; + } + +/* All done, restore the flag state bits */ + + lc->fc.ctrl |= filCtrlSave; + lc->mc.ctrl |= memCtrlSave; + lc->mc.ctrl &= ~MEM_CTRL_HEX_LOG; + + S_UNLOCK_UTIL_RESOURCES (); + } + + diff --git a/mmslib/slog/slogipcs.c b/mmslib/slog/slogipcs.c new file mode 100644 index 0000000..6f34961 --- /dev/null +++ b/mmslib/slog/slogipcs.c @@ -0,0 +1,124 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2004 - 2007, All Rights Reserved */ +/* */ +/* MODULE NAME : slogipcs.c */ +/* PRODUCT(S) : SLOG */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 08/04/08 MDE 46 Added slogIpcEventEx */ +/* 07/25/08 MDE 06 Moved slogIpcCtx into LOG_CTRL */ +/* 05/30/08 JRB 05 Fix ..RawData args. */ +/* 10/04/07 MDE 04 Added slogIpcCallingEnable */ +/* 01/08/07 EJV 04 slogIpcStop: added lc param. */ +/* 11/03/05 EJV 02 Added slogIpcEvent. */ +/* 02/22/05 JRB 02 slogIpc: add SD_CONST to some args. */ +/* 05/18/04 MDE 01 Initial Release */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "stime.h" +#include "slog.h" +#include "gensock2.h" + +/************************************************************************/ +SLOGIPC_CMD *slogIpcCmdList; +ST_INT slogIpcMaxCmdPend = 1; + +/************************************************************************/ +/* slogIpcInit */ +/************************************************************************/ + +ST_RET slogIpcInit (LOG_CTRL *lc) + { + return (SD_SUCCESS); + } + +/************************************************************************/ +/* slogIpcCallingEnable */ +/************************************************************************/ + +ST_VOID slogIpcCallingEnable (ST_BOOLEAN enable) + { + } + + +ST_VOID slogIpcCallingEnableEx (struct log_ctrl *lc, ST_BOOLEAN enable) + { + } + + +/************************************************************************/ +/* slogIpcStop */ +/************************************************************************/ + +ST_RET slogIpcStop (LOG_CTRL *lc) + { + return (SD_SUCCESS); + } + +/************************************************************************/ +/* slogIpcEvent */ +/************************************************************************/ + +ST_RET slogIpcEvent (ST_VOID) +{ + return (SD_SUCCESS); +} + +ST_RET slogIpcEventEx (LOG_CTRL *lc) +{ + return (SD_SUCCESS); +} + +/************************************************************************/ +/* slogIpc */ +/************************************************************************/ + +ST_VOID slogIpc (LOG_CTRL *lc, ST_INT logType, + SD_CONST ST_CHAR *SD_CONST logTypeStr, + SD_CONST ST_CHAR *SD_CONST sourceFile, + ST_INT lineNum, ST_INT bufLen, + ST_CHAR *buf) + { + } + + + +/************************************************************************/ +/* slog_ipc_std_cmd_fun */ +/************************************************************************/ + +ST_VOID slog_ipc_std_cmd_fun (GEN_SOCK *pSock, GEN_SOCK_DATA *sockData, + ST_UINT32 msgType, ST_UINT32 msgDataLen, + ST_CHAR *msgData) + { + } + + + +/************************************************************************/ +/* slogIpcSendData */ +/************************************************************************/ + +ST_VOID slogIpcSendData (GEN_SOCK *pSock, ST_UINT32 msgType, ST_INT dataLen, ST_UCHAR *data) + { + } + +/************************************************************************/ +/* slogIpcSendRawData */ +/************************************************************************/ + +ST_VOID slogIpcSendRawData (LOG_CTRL *lc, ST_INT bufLen, ST_CHAR *buf, ST_BOOLEAN sendAlways) + { + } + diff --git a/mmslib/slog/slogmem.c b/mmslib/slog/slogmem.c new file mode 100644 index 0000000..9d562ac --- /dev/null +++ b/mmslib/slog/slogmem.c @@ -0,0 +1,434 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1993-2007, All Rights Reserved */ +/* */ +/* MODULE NAME : slogmem.c */ +/* PRODUCT(S) : SLOG */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 01/15/07 EJV 16 Chg S_LOCK_RESOURCES to S_LOCK_UTIL_RESOURCES*/ +/* 07/13/05 JRB 15 slogGetMemMsg: skip timestamp on continuation*/ +/* logs & indent 4 chars; indent hex logs. */ +/* getMsgBuffer: make size based on max msg. */ +/* 02/25/05 MDE 14 Added \n */ +/* 01/10/05 MDE 13 Cleanup dump a bit */ +/* 07/09/04 EJV 12 All systems: one time/date format in slog hdr*/ +/* 03/12/04 GLB 11 Removed "thisFileName" */ +/* 02/17/03 JRB 10 Del system includes (using sysincs.h). */ +/* 05/24/01 JRB 09 Chg chk_calloc to calloc. This always compiled*/ +/* with !DEBUG_SISCO, screws up link. */ +/* 10/13/00 EJV 08 Moved glbsem.h below sysincs.h. */ +/* 09/13/99 MDE 07 Added SD_CONST modifiers */ +/* 02/09/99 DSF 06 Thread-safe slogMem () */ +/* Remove extraneous newline in slogMemDump() */ +/* 10/23/98 MDE 05 No blank line bet. logs if LOG_NO_HEADER_CR */ +/* 10/16/98 DSF 04 Spelling */ +/* 10/08/98 MDE 03 Migrated to updated SLOG interface */ +/* 06/15/98 MDE 02 Changes to allow compile under C++ */ +/* 09/18/97 DSF 01 In slogMemInit (), clear chk_debug_en before */ +/* calling chk_calloc () and restore it after. */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" +#include "mem_chk.h" +#include "slog.h" +#include "qmem.h" + +/************************************************************************/ +/* Some mysterious looking function pointers */ +/************************************************************************/ + +ST_VOID *(*slogAllocBuf) (ST_INT size) = qMemAlloc; +ST_VOID (*slogFreeBuf) (ST_VOID *buf) = qMemFree; + +/************************************************************************/ +/* slogMem */ +/************************************************************************/ + +ST_VOID slogMem (LOG_CTRL *lc, + SD_CONST ST_INT logType, + SD_CONST ST_CHAR *SD_CONST logTypeStr, + SD_CONST ST_CHAR *SD_CONST sourceFile, + SD_CONST ST_INT lineNum, + ST_INT bufLen, SD_CONST ST_CHAR *buf) + { +LOGMEM_ITEM *thisItem; +MEM_LOG_CTRL *mc; + + S_GS_INIT (); + S_LOCK_UTIL_RESOURCES (); + +/* get pointer to memory control structure */ + + mc = &lc->mc; + +/* Check for initialization */ + + if (!(mc->state & MEM_STATE_INIT)) + { + slogMemInit (lc); + } + +/* Get pointer to the destination item and reset the 'next put' index */ + + thisItem = &mc->item[mc->nextPut]; + + mc->nextPut++; + if (mc->nextPut >= mc->maxItems) /* check for wraparound */ + { + mc->nextPut = 0; + +/* Check for autodump && clean */ + + if (mc->ctrl & MEM_CTRL_AUTODUMP_EN) + { + slogDumpMem (lc); /* Dump memory to log file */ + slogResetMem (lc); /* Delete all contents */ + } + } + +/* Check to see if we need to free the string buffer */ + + if (thisItem->flags & LMF_USED) + { + (*slogFreeBuf) (thisItem->string); + } + +/* Set flags for this item */ + + if (mc->ctrl & MEM_CTRL_MSG_HDR_EN) + { + thisItem->flags = LMF_HEADER | LMF_USED; + thisItem->sourceFile = sourceFile; /* save source information */ + thisItem->lineNum = lineNum; + } + else + thisItem->flags = LMF_USED; + +/* If this is a HEX log, remember that it is */ + + if (mc->ctrl & MEM_CTRL_HEX_LOG) + { + thisItem->flags |= LMF_HEX; + } + +/* Save the log type information */ + + thisItem->logType = logType; + thisItem->logTypeStr = logTypeStr; + +/* If time stamping is enabled, need to save the time */ + + if (lc->logCtrl & LOG_TIME_EN) + strcpy (thisItem->slogTimeText, slogTimeText); + +/* Limit the string size (bufLen includes the null) */ + + if (bufLen > SLOG_MEM_BUF_SIZE) + { + bufLen = SLOG_MEM_BUF_SIZE; + thisItem->string = (ST_CHAR *) (*slogAllocBuf) (bufLen+1); + strncpy (thisItem->string, buf, SLOG_MEM_BUF_SIZE -1); + thisItem->string[SLOG_MEM_BUF_SIZE-1] = 0; + } + else /* no buffer size adjustments req'd */ + { + thisItem->string = (ST_CHAR *) (*slogAllocBuf) (bufLen+1); + strcpy (thisItem->string, buf); + } + + S_UNLOCK_UTIL_RESOURCES (); + } + +/************************************************************************/ +/* slogDumpMem */ +/************************************************************************/ + +ST_VOID slogDumpMem (LOG_CTRL *lc) + { +LOGMEM_ITEM *item; +LOGMEM_ITEM *tooFar; +ST_INT count; +FILE *fh; +time_t t; +ST_CHAR fname[SLOG_MAX_FNAME + 1]; +MEM_LOG_CTRL *mc; +ST_INT i; + + S_GS_INIT (); + S_LOCK_UTIL_RESOURCES (); + +/* get pointer to memory control structure */ + + mc = &lc->mc; + + if (!(mc->state & MEM_STATE_INIT)) + { + S_UNLOCK_UTIL_RESOURCES (); + return; + } + + fh = fopen(mc->dumpFileName, "a+"); + if (!fh) + fh = fopen(mc->dumpFileName, "w+"); + + if (fh) + { + +/* Print the dump header */ + + t = time(NULL); + fprintf (fh,"\n\n***********************************************************"); + fprintf (fh,"\n MEMORY LOG LIST %s", ctime(&t)); + fprintf (fh,"***********************************************************"); + + count = mc->maxItems; /* just in case, for loop escape */ + +/* start at the last logged item, which would be 'next put' */ +/* if the list has wrapped, otherwise somewhere down the list */ + + item = &mc->item[mc->nextPut]; /* Item to log */ + tooFar = &mc->item[mc->maxItems]; /* 1 past end of array */ + + for (i = 0; i < count; ++i,++item) /* for each possible item */ + { + if (item >= tooFar) /* check for wrap */ + item = mc->item; /* go to top */ + + if (item->flags & LMF_USED) /* if used .. */ + { + if (item->flags & LMF_HEADER) + { /* header info is to be used */ + if (!(lc->logCtrl & LOG_NO_HEADER_CR)) + fprintf (fh,"\n"); + + if (item->logType != SLOG_CONT) + { + if (lc->logCtrl & LOG_TIME_EN) /* user wants time stamp */ + fprintf (fh,"\n%s ", item->slogTimeText); + + if (!(lc->logCtrl & LOG_LOGTYPE_SUPPRESS)) + { + if (item->logTypeStr != NULL) + fprintf (fh,"%s ", item->logTypeStr); + else + fprintf (fh,"LogType:% 2d ", item->logType); + } + + if (item->sourceFile && !(lc->logCtrl & LOG_FILENAME_SUPPRESS)) + { + slogTrimFileName (fname,item->sourceFile); + fprintf (fh,"(%s %d) ", fname, item->lineNum); + } + if (!(lc->logCtrl & LOG_NO_HEADER_CR)) + fprintf (fh,"\n "); + } + } + if (item->logType == SLOG_CONT) + fprintf (fh," "); + + fprintf(fh,"%s",item->string); + } /* end if used */ + } /* end for each possible item */ + fclose(fh); + } + S_UNLOCK_UTIL_RESOURCES (); + } + +/************************************************************************/ +/* slogResetMem */ +/************************************************************************/ + +ST_VOID slogResetMem (LOG_CTRL *lc) + { +LOGMEM_ITEM *item; +ST_INT i; +MEM_LOG_CTRL *mc; + + S_GS_INIT (); + S_LOCK_UTIL_RESOURCES (); + +/* get pointer to memory control structure */ + mc = &lc->mc; + + if (!(mc->state & MEM_STATE_INIT)) + return; + +/* just go through the list, clear the used flag && free the str buf */ + + item = mc->item; + for (i = 0; i < mc->maxItems; ++i, ++item) + { + if (item->flags & LMF_USED) + { + item->flags &= ~LMF_USED; + (*slogFreeBuf) (item->string); + } + } + mc->nextPut = 0; + S_UNLOCK_UTIL_RESOURCES (); + } + +/************************************************************************/ +/* slogMemInit */ +/************************************************************************/ + +#define SLOG_MAX_ITEMS (0xFF00/sizeof(LOGMEM_ITEM)) + +ST_VOID slogMemInit (LOG_CTRL *lc) + { +MEM_LOG_CTRL *mc; +ST_UINT save_debug_en; + + mc = &lc->mc; + if (!mc->maxItems) + { + fprintf (stderr,"\n Memory Logging Problem - 0 Items"); + return; + } + + if (mc->maxItems > SLOG_MAX_ITEMS) + { + fprintf (stderr,"\n Memory Logging Problem - Too Many Items"); + mc->maxItems = SLOG_MAX_ITEMS; + } + + if (qMemInit (mc->maxItems)) + { + fprintf (stderr,"\n QMEM Initialization Problem"); + mc->maxItems = 0; + lc->logCtrl &= ~LOG_MEM_EN; + } + else + { +/* Allocate a zero'd memory block for the item control list */ + save_debug_en = chk_debug_en; + chk_debug_en = 0; + mc->item = + (LOGMEM_ITEM *) calloc (mc->maxItems, sizeof (LOGMEM_ITEM)); + chk_debug_en = save_debug_en; + } + + mc->state |= MEM_STATE_INIT; + } + +/************************************************************************/ +/* slogGetMemMsg */ +/************************************************************************/ + +/* Need buffer big enough for max msg plus extra space for timestamp. */ +/* 50 should leave plenty of safety margin. */ +static ST_CHAR getMsgBuffer[SLOG_MEM_BUF_SIZE + 50]; + +ST_CHAR *slogGetMemMsg (LOG_CTRL *lc, SD_CONST ST_INT msgNum) + { +ST_INT i; +MEM_LOG_CTRL *mc; +ST_INT index; + + S_GS_INIT (); + S_LOCK_UTIL_RESOURCES (); + +/* get pointer to memory control structure */ + + mc = &lc->mc; + if (!(mc->state & MEM_STATE_INIT) || msgNum > mc->maxItems) + { + S_UNLOCK_UTIL_RESOURCES (); + return (NULL); + } + +/* FInd the start index in the item array */ + + index = mc->nextPut; /* if wrapped, next put is oldest item */ + if (!(mc->item[index].flags & LMF_USED)) /* but if not wrapped */ + index = 0; /* oldest is item 0 */ + +/* Find the 'msgNum' item index (msgNum == 0 means oldest item) */ + + for (i = 0; i < msgNum; ++i) + { + ++index; + if (index >= mc->maxItems) /* check for wraparound */ + index = 0; + } + + if ((mc->item[index].flags & LMF_USED)) /* if used ... */ + { +/* too easy! return (mc->item[index].string); */ + + if (lc->logCtrl & LOG_TIME_EN) + { + if (mc->item[index].flags & LMF_HEADER) + { + if (mc->item[index].logType == SLOG_CONT) + sprintf (getMsgBuffer," %s", mc->item[index].string); /* indent 4 char*/ + else + sprintf (getMsgBuffer,"%s: %s", &mc->item[index].slogTimeText[11], + mc->item[index].string); + } + else if (mc->item[index].flags & LMF_HEX) + sprintf (getMsgBuffer," %s", mc->item[index].string); /* indent 4 char*/ + else + sprintf (getMsgBuffer," %s", mc->item[index].string); + } + else + { + if (mc->item[index].logType == SLOG_CONT) + sprintf (getMsgBuffer," %s", mc->item[index].string); /* indent 4 char*/ + else + sprintf (getMsgBuffer,"%s", mc->item[index].string); + } + + S_UNLOCK_UTIL_RESOURCES (); + return (getMsgBuffer); + } + + S_UNLOCK_UTIL_RESOURCES (); + return (NULL); + } + +/************************************************************************/ +/* slogGetMemCount */ +/************************************************************************/ + +ST_INT slogGetMemCount (LOG_CTRL *lc) + { +MEM_LOG_CTRL *mc; + + S_GS_INIT (); + S_LOCK_UTIL_RESOURCES (); + +/* get pointer to memory control structure */ + + mc = &lc->mc; + if (!(mc->state & MEM_STATE_INIT)) + { + S_UNLOCK_UTIL_RESOURCES (); + return (0); + } + + if (mc->item[mc->nextPut].flags & LMF_USED) /* if wrapped, */ + { + S_UNLOCK_UTIL_RESOURCES (); + return (mc->maxItems); + } + else + { + S_UNLOCK_UTIL_RESOURCES (); + return (mc->nextPut); + } + } + diff --git a/mmslib/ssec0/ssecusr0.c b/mmslib/ssec0/ssecusr0.c new file mode 100644 index 0000000..643ce87 --- /dev/null +++ b/mmslib/ssec0/ssecusr0.c @@ -0,0 +1,794 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2003 - 2008, All Rights Reserved */ +/* */ +/* MODULE NAME : ssecusr0.c */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : */ +/* This file contains Security Manager NUL functions called */ +/* from an MMS or MMS-Lite application. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 07/07/08 EJV 19 Chg sSecGetCertId param to ST_UINT32. */ +/* 10/04/07 MDE 18 Tweaked LOGCFG_VALUE_GROUP/LOGCFGX_VALUE_MAP */ +/* 08/12/05 MDE 17 Added sslLogMaskMapCtrl */ +/* 08/01/05 MDE 16 Added secLogMaskMapCtrl */ +/* 02/25/05 MDE 15 Added sSecAssocConfChkEx */ +/* 08/10/04 EJV 14 secManCfgXmlFile: all lowcase "secmancfg.xml"*/ +/* 02/04/04 EJV 13 Moved maceMechId to acse2dec.c and marb_tx.c */ +/* Added secManCfgChange. */ +/* 10/23/03 EJV 12 Del sSecFreeSecParam, sSecFreePartSecParam. */ +/* Added params to sSecUpdate, sSecUsrEnd. */ +/* 10/15/03 EJV 11 MMS_LITE: added glb var secManCfgXmlFile. */ +/* 09/05/03 EJV 10 Changed defines SECLOG..._ to SEC_LOG_... */ +/* Added ssle_debug_sel. */ +/* sSecUpdate returns SD_SUCCESS. */ +/* Added few more secman.c, genssl.c NUL funcs */ +/* 08/25/03 EJV 09 Merged with recent code changes. */ +/* 08/25/03 EJV 08 Added MMS_LITE code. */ +/* Added sSecUpdate. Removed dupl sSecUsrStart. */ +/* Added maceMechId. */ +/* Added usr funcs from ssec.c */ +/* 08/05/03 ASK 07 sSecFreeSecParam: chg param to ACSE_AUTH_INFO*/ +/* 07/14/03 EJV 06 Added secman functions. */ +/* 06/20/03 EJV 05 sSecAssocConfChk added parameters. */ +/* sSecAssocIndChk added matchCtrl parameter. */ +/* 05/27/03 EJV 04 sSecAssocIndChk added srcChkDest parameter. */ +/* 05/21/03 EJV 03 Added sSecUsrStart. */ +/* 05/08/03 EJV 02 Chg params according to ne ssec.h */ +/* 04/22/03 EJV 01 Created from ssecusr.c */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "ssec.h" +#include "ssec_int.h" +#include "sslelog.h" + + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + + +/************************************************************************/ +/* Logging */ + +/* Log type strings */ +SD_CONST ST_CHAR *SD_CONST _sec_err_logstr = "SEC_LOG_ERR"; +SD_CONST ST_CHAR *SD_CONST _sec_nerr_logstr = "SEC_LOG_NERR"; +SD_CONST ST_CHAR *SD_CONST _sec_flow_logstr = "SEC_LOG_FLOW"; +SD_CONST ST_CHAR *SD_CONST _sec_data_logstr = "SEC_LOG_DATA"; +SD_CONST ST_CHAR *SD_CONST _sec_debug_logstr = "SEC_LOG_DEBUG"; + +ST_UINT sec_debug_sel = SEC_LOG_ERR; +ST_UINT ssle_debug_sel = SSLE_LOG_ERR; +S_SEC_CONFIG _dummySecCfg; + +LOGCFG_VALUE_GROUP secLogMaskMapCtrl = + { + {NULL,NULL}, + "SecurityLogMasks", /* Parent Tag */ + 0, + NULL + }; + +LOGCFG_VALUE_GROUP ssleLogMaskMapCtrl = + { + {NULL,NULL}, + "SecurityLogMasks", /* Parent Tag */ + 0, + NULL + }; + + +#if defined(MMS_LITE) && !defined(MAP30_ACSE) +ST_CHAR *secManCfgXmlFile = "secmancfg.xml"; +#endif /* MMS_LITE over LEAN-T */ + +/************************************************************************/ +/* sSecUsrStart */ +/************************************************************************/ + +ST_RET sSecUsrStart (S_SEC_CONFIG **secCfgOut) + { + _dummySecCfg.secureModeEnabled = SD_FALSE; + *secCfgOut = &_dummySecCfg; + return (SD_SUCCESS); + } + +/************************************************************************/ +/* secManAccessCfg */ +/************************************************************************/ + +ST_RET secManAccessCfg (S_SEC_CONFIG **secCfgOut) + { + _dummySecCfg.secureModeEnabled = SD_FALSE; + *secCfgOut = &_dummySecCfg; + return (SD_SUCCESS); + } + +/************************************************************************/ +/* secManReleaseCfg */ +/************************************************************************/ + +ST_RET secManReleaseCfg () + { + return (SD_SUCCESS); + } + +/************************************************************************/ +/* sSecUpdate */ +/************************************************************************/ + +ST_RET sSecUpdate(S_SEC_CONFIG *currCfg, S_SEC_CONFIG *newCfg) + { + return (SD_SUCCESS); + } + + /*- - - - - - - - - - - - - - - - - - - - - - - - - - - */ + /* Set/Get/Free Authentication Info & Encrypt Control */ + /* in stack. */ + /*- - - - - - - - - - - - - - - - - - - - - - - - - - - */ + +#if !defined(MMS_LITE) || defined(MAP30_ACSE) +/************************************************************************/ +/* sSecSetSecParam */ +/*----------------------------------------------------------------------*/ +/* Copies the local authentication info and encryption control into the */ +/* channel info. This function must be called before MMS connection */ +/* request. */ +/* After connection terminated call the s_free_security_info() to free */ +/* the user allocated auth_value buf and cleanup the channel info. */ +/* Parameters: */ +/* ST_INT chan channel to set security info */ +/* S_SEC_PARAMS *secParams ptr to security parameters */ +/* Return: */ +/* ST_RET SD_SUCCESS if set operation succeeded */ +/* SD_FAILURE otherwise. */ +/************************************************************************/ + +ST_RET sSecSetSecParam (ST_INT chan, S_SEC_SPARAMS *secParams) + { + SECLOG_NERR0 ("Security functions not supported."); + return (SD_FAILURE); + } + +/************************************************************************/ +/* sSecGetSecParam */ +/*----------------------------------------------------------------------*/ +/* Returns pointers to encryption control and partner's authentication */ +/* info from the specified channel info. This functions should be called*/ +/* after connection indication was received to retrieve the security */ +/* informations. */ +/* After the connection terminates call the s_free_part_security_info() */ +/* to free the allocated auth_value buf and cleanup the channel info. */ +/* Parameters: */ +/* ST_INT chan channel to get security info */ +/* S_SEC_PARAMS *secParams ptr where to return sec params */ +/* Return: */ +/* ST_RET SD_SUCCESS if get operation succeeded */ +/* SD_FAILURE or other error. */ +/************************************************************************/ + +ST_RET sSecGetSecParam (ST_INT chan, S_SEC_SPARAMS *secParams) + { + SECLOG_NERR0 ("Security functions not supported."); + return (SD_FAILURE); + } + +#else /* defined(MMS_LITE) */ + +/************************************************************************/ +/* sSecGetSecParam */ +/*----------------------------------------------------------------------*/ +/* Parameters: */ +/* Return: */ +/* ST_RET SD_SUCCESS if get operation succeeded */ +/* SD_FAILURE otherwise. */ +/************************************************************************/ + +ST_RET sSecGetSecParam (struct mvl_net_info *cc, S_SEC_SPARAMS *secParams) + { + SECLOG_NERR0 ("Security functions not supported."); + return (SD_FAILURE); + } + +/************************************************************************/ +/* sSecFreeSecParam */ +/*----------------------------------------------------------------------*/ +/* Parameters: */ +/* Return: */ +/* ST_RET SD_SUCCESS if free operation succeeded */ +/* SD_FAILURE otherwise. */ +/************************************************************************/ +ST_RET sSecFreeSecParam (ACSE_AUTH_INFO *authInfo) +{ + SECLOG_NERR0 ("Security functions not supported."); + return (SD_FAILURE); +} + +/************************************************************************/ +/* sSecFreePartSecParam */ +/*----------------------------------------------------------------------*/ +/* Parameters: */ +/* Return: */ +/* ST_RET SD_SUCCESS if free operation succeeded */ +/* SD_FAILURE otherwise. */ +/************************************************************************/ +ST_RET sSecFreePartSecParam (struct mvl_net_info *cc) +{ + SECLOG_NERR0 ("Security functions not supported."); + return (SD_FAILURE); +} + +/************************************************************************/ +/* secManCfgChange */ +/************************************************************************/ + +ST_VOID secManCfgChange(ST_VOID) + { + } +#endif /* defined(MMS_LITE) */ + +/************************************************************************/ +/* sSecUsrEnd */ +/*----------------------------------------------------------------------*/ +/* Called by a MACE application to free any resources allocated by the */ +/* secman and sslEngine DLLs. This function should be called before the */ +/* application terminates to ensure that all sensitive memory has been */ +/* overwritten. */ +/* */ +/* Return: */ +/* ST_RET SD_SUCCESS if shutdown was successfull */ +/* SD_FAILURE otherwise. */ +/************************************************************************/ +ST_RET sSecUsrEnd (ST_VOID) + { + return (SD_SUCCESS); + } + +/************************************************************************/ +/* sSecAuthChk */ +/*----------------------------------------------------------------------*/ +/* Perform security checks on a received ACSE_AUTH_INFO */ +/* 1. Get the Cipher Suite being used for the connection */ +/* 2. Decode the certificate and time seal */ +/* 3. Verify the time seal */ +/* 4. Check the Certificate validity time */ +/* 5. Verify the issuer is acceptable per secCfg */ +/* 6. Match the subject to a AR Name per secCfg */ +/* Parameters: */ +/* ST_INT chan conection channel */ +/* S_SEC_AUTHCHK_RSLT *srcChkDest pointer to authentication check */ +/* result. */ +/* Return: */ +/* ST_RET SD_SUCCESS if Authentication check succeeded */ +/* SD_FAILURE otherwise. */ +/************************************************************************/ + +#if !defined(MMS_LITE) +ST_RET sSecAuthChk (ST_INT chan, S_SEC_AUTHCHK_RSLT *srcChkDest) +#else +ST_RET sSecAuthChk (struct mvl_net_info *cc, S_SEC_AUTHCHK_RSLT *srcChkDest) +#endif + { + SECLOG_NERR0 ("Security functions not supported."); + return (SD_FAILURE); + } + + /*- - - - - - - - - - - - - - - - - - - - - - - - - - - */ + /* MACE Authentication */ + /*- - - - - - - - - - - - - - - - - - - - - - - - - - - */ + +/************************************************************************/ +/* sSecMaceAuthInfoCreate */ +/*----------------------------------------------------------------------*/ +/* Create a 'ready-to-go' ACSE_AUTH_INFO for the specified local AR */ +/* Note that the returned struct is to be free'd using */ +/* sSecMaceAuthInfoFree. */ +/* Parameters: */ +/* S_CERT_ID *certId pointer to Certificate Id */ +/* ACSE_AUTH_INFO *authInfo pointer to Authentication Info */ +/* to be created. */ +/* Return: */ +/* ST_RET SD_SUCCESS if authInfo created */ +/* SD_FAILURE otherwise. */ +/************************************************************************/ + +ST_RET sSecMaceAuthInfoCreate (S_CERT_ID *certId, ACSE_AUTH_INFO *authInfo) + { + SECLOG_NERR0 ("Security functions not supported."); + return (SD_FAILURE); + } + +/************************************************************************/ +/* sSecMaceAuthInfoFree */ +/*----------------------------------------------------------------------*/ +/* Free ACSE_AUTH_INFO fields. */ +/* Parameters: */ +/* ACSE_AUTH_INFO *auth_info pointer to Authentication Info */ +/* to free */ +/* Return: */ +/* none */ +/************************************************************************/ + +ST_VOID sSecMaceAuthInfoFree (ACSE_AUTH_INFO *auth_info) + { + SECLOG_NERR0 ("Security functions not supported."); + } + + +/************************************************************************/ +/* sSecMaceAsn1Enc */ +/*----------------------------------------------------------------------*/ +/* Encode a ASN.1 MACE ACSE_AUTH_INFO */ +/* Parameters: */ +/* Return: */ +/* ST_RET SD_SUCCESS if MACE encoding succeeded */ +/* SD_FAILURE otherwise. */ +/************************************************************************/ + +ST_RET sSecMaceAsn1Enc (S_MACE_INFO *maceInfo, + ST_CHAR *asn1Buf, ST_INT asn1BufLen, + ST_CHAR **maceAsn1Out, ST_INT *maceAsn1LenOut) + { + SECLOG_NERR0 ("Security functions not supported."); + return (SD_FAILURE); + } + + +/************************************************************************/ +/* sSecMaceAuthInfoDec */ +/*----------------------------------------------------------------------*/ +/* Decode an ACSE_AUTH_INFO into time seal and certificate info */ +/* Note that the maceInfo is to be free'd using chk_free, and the */ +/* certInfo by sSecFreeCertInfo */ +/* Parameters: */ +/* Return: */ +/* ST_RET SD_SUCCESS if MACE decoding succeeded */ +/* SD_FAILURE otherwise. */ +/************************************************************************/ + +ST_RET sSecMaceAuthInfoDec (ACSE_AUTH_INFO *authInfo, + S_MACE_INFO **maceInfoOut, + S_CERT_INFO **certInfoOut) + { + SECLOG_NERR0 ("Security functions not supported."); + return (SD_FAILURE); + } + +/************************************************************************/ +/* sSecFreeCertInfo */ +/*----------------------------------------------------------------------*/ +/* Free Certificate Info. */ +/* S_CERT_INFO *certInfo pointer to Certificate to free */ +/* Parameters: */ +/* Return: */ +/* none */ +/************************************************************************/ + +ST_VOID sSecFreeCertInfo (S_CERT_INFO *certInfo) + { + SECLOG_NERR0 ("Security functions not supported."); + } + + /*- - - - - - - - - - - - - - - - - - - - - - - - - - - */ + /* AR Security Configuration */ + /*- - - - - - - - - - - - - - - - - - - - - - - - - - - */ + +/************************************************************************/ +/* sSecLocArNameToArSec */ +/*----------------------------------------------------------------------*/ +/* Parameters: */ +/* Return: */ +/* ST_RET SD_SUCCESS if conversion successful */ +/* SD_FAILURE otherwise. */ +/************************************************************************/ + +ST_RET sSecLocArNameToArSec (ST_CHAR *arName, S_SEC_LOC_AR **arSecOut) + { + SECLOG_NERR0 ("Security functions not supported."); + return (SD_FAILURE); + } + +/************************************************************************/ +/* sSecRemArNameToArSec */ +/*----------------------------------------------------------------------*/ +/* Parameters: */ +/* Return: */ +/* ST_RET SD_SUCCESS if conversion successful */ +/* SD_FAILURE otherwise. */ +/************************************************************************/ + +ST_RET sSecRemArNameToArSec (ST_CHAR *arName, S_SEC_REM_AR **arSecOut) + { + SECLOG_NERR0 ("Security functions not supported."); + return (SD_FAILURE); + } + +/************************************************************************/ +/* sSecAssocConfChk */ +/*----------------------------------------------------------------------*/ +/* Parameters: */ +/* Return: */ +/* ST_RET SD_SUCCESS if Assoc Confirm check successful */ +/* SD_FAILURE otherwise. */ +/************************************************************************/ + +#if defined(MMS_LITE) +ST_RET sSecAssocConfChkEx (struct mvl_net_info *cc, DIB_MATCH_CTRL *matchCtrl, + S_SEC_REM_AR *remArSec, S_SEC_AUTHCHK_RSLT *srcChkDest) +#else +ST_RET sSecAssocConfChkEx (ST_INT chan, DIB_MATCH_CTRL *matchCtrl, + S_SEC_REM_AR *remArSec, S_SEC_AUTHCHK_RSLT *srcChkDest) +#endif + { + SECLOG_NERR0 ("Security functions not supported."); + return (SD_FAILURE); + } + +/************************************************************************/ +/* sSecAssocIndChk */ +/*----------------------------------------------------------------------*/ +/* Parameters: */ +/* Return: */ +/* ST_RET SD_SUCCESS if Assoc Indication check successful */ +/* SD_FAILURE otherwise. */ +/************************************************************************/ + +#if defined(MMS_LITE) +ST_RET sSecAssocIndChk (struct mvl_net_info *cc, DIB_MATCH_CTRL *matchCtrl, + S_SEC_REM_AR **arSecOut, S_SEC_AUTHCHK_RSLT *srcChkDest) +#else +ST_RET sSecAssocIndChk (ST_INT chan, DIB_MATCH_CTRL *matchCtrl, + S_SEC_REM_AR **arSecOut, S_SEC_AUTHCHK_RSLT *srcChkDest) +#endif + { + SECLOG_NERR0 ("Security functions not supported."); + return (SD_FAILURE); + } + + + /*- - - - - - - - - - - - - - - - - - - - - - - - - - - */ + /* Finding things in the Security Configuration */ + /*- - - - - - - - - - - - - - - - - - - - - - - - - - - */ + +/************************************************************************/ +/* sSecCertNameToLocCertCtrl */ +/*----------------------------------------------------------------------*/ +/* Parameters: */ +/* Return: */ +/* ST_RET SD_SUCCESS if conversion successful */ +/* SD_FAILURE otherwise. */ +/************************************************************************/ +/* Get the configured certCtrl for the selected Cert Name */ + +ST_RET sSecCertNameToLocCertCtrl (ST_CHAR *certName, S_CERT_CTRL **certCtrlOut) + { + SECLOG_NERR0 ("Security functions not supported."); + return (SD_FAILURE); + } + +/************************************************************************/ +/* sSecCertNameToRemCertCtrl */ +/*----------------------------------------------------------------------*/ +/* Get the configured certCtrl for the selected Cert Name */ +/* Parameters: */ +/* Return: */ +/* ST_RET SD_SUCCESS if conversion successful */ +/* SD_FAILURE otherwise. */ +/************************************************************************/ + +ST_RET sSecCertNameToRemCertCtrl (ST_CHAR *certName, S_CERT_CTRL **certCtrlOut) + { + SECLOG_NERR0 ("Security functions not supported."); + return (SD_FAILURE); + } + +/************************************************************************/ +/* sSecCertIdToRemCertCtrl */ +/*----------------------------------------------------------------------*/ +/* Parameters: */ +/* Return: */ +/* ST_RET SD_SUCCESS if conversion successful */ +/* SD_FAILURE otherwise. */ +/************************************************************************/ + +ST_RET sSecCertIdToRemCertCtrl (S_CERT_ID *certId, S_CERT_CTRL **certCtrlOut) + { + SECLOG_NERR0 ("Security functions not supported."); + return (SD_FAILURE); + } + +/************************************************************************/ +/* sSecCertCfgIdToRemCertCtrl */ +/*----------------------------------------------------------------------*/ +/* Parameters: */ +/* Return: */ +/* ST_RET SD_SUCCESS if conversion successful */ +/* SD_FAILURE otherwise. */ +/************************************************************************/ + +ST_RET sSecCertCfgIdToRemCertCtrl (ST_INT cfgId, S_CERT_CTRL **certCtrlOut) + { + SECLOG_NERR0 ("Security functions not supported."); + return (SD_FAILURE); + } + + /*- - - - - - - - - - - - - - - - - - - - - - - - - - - */ + /* Remote Certificate Validity Checking */ + /*- - - - - - - - - - - - - - - - - - - - - - - - - - - */ + +/************************************************************************/ +/* sSecChkIssuer */ +/*----------------------------------------------------------------------*/ +/* Verify that the issuer of the certificate has been configured as OK */ +/* Parameters: */ +/* Return: */ +/* ST_RET SD_SUCCESS if Issuer check successful */ +/* SD_FAILURE otherwise. */ +/************************************************************************/ + +ST_RET sSecChkIssuer (S_CERT_INFO *certInfo) + { + SECLOG_NERR0 ("Security functions not supported."); + return (SD_FAILURE); + } + +/************************************************************************/ +/* sSecChkValidityTimes */ +/*----------------------------------------------------------------------*/ +/* Verify the certificate validity times are OK */ +/* Parameters: */ +/* Return: */ +/* ST_RET SD_SUCCESS if check Validity Times successful */ +/* SD_FAILURE otherwise. */ +/************************************************************************/ + +ST_RET sSecChkValidityTimes (S_CERT_INFO *certInfo) + { + SECLOG_NERR0 ("Security functions not supported."); + return (SD_FAILURE); + } + +/************************************************************************/ +/* sSecChkTimeSeal */ +/*----------------------------------------------------------------------*/ +/* This function performs time seal checks, which are an anti-replay */ +/* where: */ +/* 1. The signedTimeT must match local time within */ +/* pSecCfg->timeSigWindow seconds */ +/* 2. The signedTime has not have been received within */ +/* pSecCfg->timeSigWindow seconds */ +/* Parameters: */ +/* Return: */ +/* ST_RET SD_SUCCESS if Time Seal check successful */ +/* SD_FAILURE otherwise. */ +/************************************************************************/ + +ST_RET sSecChkTimeSeal (S_CERT_INFO *remCert, + time_t signedTimeT, + ST_UCHAR *clearTime, + S_SIGNED_TIME *signedTime) + { + SECLOG_NERR0 ("Security functions not supported."); + return (SD_FAILURE); + } + + + /*- - - - - - - - - - - - - - - - - - - - - - - - - - - */ + /* Certificate Blob Handling */ + /*- - - - - - - - - - - - - - - - - - - - - - - - - - - */ + +/************************************************************************/ +/* sSecGetLocalCert */ +/*----------------------------------------------------------------------*/ +/* Retrieve local Certificate Blob from Certificate Store for the */ +/* sprecified CName. */ +/* Parameters: */ +/* Return: */ +/* ST_RET SD_SUCCESS if get Local Cert succeeded */ +/* SD_FAILURE otherwise. */ +/************************************************************************/ + + +ST_RET sSecGetLocalCert (S_CERT_ID *certId, S_CERT_BLOB *certBlob) + { + SECLOG_NERR0 ("Security functions not supported."); + return (SD_FAILURE); + } + +/************************************************************************/ +/* sSecCertDec */ +/*----------------------------------------------------------------------*/ +/* Decode an Certificate Blob into certificate info */ +/* Note that the certInfo is to be free'd using sSecFreeCertInfo */ +/* Parameters: */ +/* Return: */ +/* ST_RET SD_SUCCESS if Cert decode succeeded */ +/* SD_FAILURE otherwise. */ +/************************************************************************/ + +ST_RET sSecCertDec (S_CERT_BLOB *certData, S_CERT_INFO **certInfoOut) + { + SECLOG_NERR0 ("Security functions not supported."); + return (SD_FAILURE); + } + + /*- - - - - - - - - - - - - - - - - - - - - - - - - - - */ + /* Signed Time Handling */ + /*- - - - - - - - - - - - - - - - - - - - - - - - - - - */ + +/************************************************************************/ +/* sSecSignedTimeDec */ +/*----------------------------------------------------------------------*/ +/* Decode an SignedTime into time_t */ +/* Parameters: */ +/* Return: */ +/* ST_RET SD_SUCCESS if Signed Time decode succeeded */ +/* SD_FAILURE otherwise. */ +/************************************************************************/ + +ST_RET sSecSignedTimeDec (S_CERT_INFO *remCert, S_SIGNED_TIME *signedTime, time_t *timeOut) + { + SECLOG_NERR0 ("Security functions not supported."); + return (SD_FAILURE); + } + +/************************************************************************/ +/* sSecSignedTimeEnc */ +/*----------------------------------------------------------------------*/ +/* Encoding a Signed Time */ +/* Parameters: */ +/* Return: */ +/* ST_RET SD_SUCCESS if Signed Time encode succeeded */ +/* SD_FAILURE otherwise. */ +/************************************************************************/ + +ST_RET sSecSignedTimeEnc (S_CERT_ID *localCert, time_t timeToSign, S_SIGNED_TIME *signedTime) + { + SECLOG_NERR0 ("Security functions not supported."); + return (SD_FAILURE); + } + + + + /*------------------------------------------------------*/ + /* */ + /* ssec.c NULL functions needed for MMS_LITE */ + /* */ + /*------------------------------------------------------*/ + +/************************************************************************/ +/* sSecStart */ +/************************************************************************/ +ST_RET sSecStart (S_SEC_CONFIG **secCfgOut) + { + _dummySecCfg.secureModeEnabled = SD_FALSE; + *secCfgOut = &_dummySecCfg; + return (SD_SUCCESS); + } + +/************************************************************************/ +/* sSecEnd */ +/************************************************************************/ + +ST_RET sSecEnd (ST_VOID) + { + return (SD_SUCCESS); + } + +/************************************************************************/ +/* sSecGetCertId */ +/************************************************************************/ +/* Retrieve the remote certificate ID on a given socket */ +ST_RET sSecGetCertId (GEN_SOCK *pSock, ST_UINT32 *cfgIdOut) + { + return (SD_FAILURE); + } + +/************************************************************************/ +/* sSecGetCertCtrl */ +/************************************************************************/ +/* Retrieve a ptr to the remote certificate control on a given socket */ +ST_RET sSecGetCertCtrl (GEN_SOCK *pSock, S_CERT_CTRL **certCtrlOut) + { + return (SD_FAILURE); + } + + +/************************************************************************/ +/* sSecGetCipherSuite */ +/************************************************************************/ +/* Retrieve the cipher suite in use on a given socket */ +ST_RET sSecGetCipherSuite (GEN_SOCK *pSock, ST_INT *cipherSuiteOut) + { + return (SD_FAILURE); + } + +/************************************************************************/ +/* setGenSockSSL */ +/************************************************************************/ +/* Sets the security control and callback functions on a given socket. */ +/* Called by SNAP; always returns SD_SUCCESS. */ + +ST_RET setGenSockSSL (GEN_SOCK_CONFIG *sockCfg) + { + return (SD_FAILURE); + } + + + /*------------------------------------------------------*/ + /* */ + /* secman.c NULL functions needed for MMS_LITE */ + /* */ + /*------------------------------------------------------*/ + +/************************************************************************/ +/* secManChkNewCfgAvail */ +/************************************************************************/ + +ST_BOOLEAN secManChkNewCfgAvail() + { + return (SD_FALSE); + } + +/************************************************************************/ +/* secManLoadCfg */ +/************************************************************************/ + +ST_RET secManLoadCfg(S_SEC_CONFIG *secCfgOut) + { + _dummySecCfg.secureModeEnabled = SD_FALSE; + *secCfgOut = _dummySecCfg; + + return (SD_SUCCESS); + } + +/************************************************************************/ +/* secManUpdateCfg */ +/************************************************************************/ + +ST_RET secManUpdateCfg(S_SEC_CONFIG *currCfg, S_SEC_CONFIG *newCfg) + { + return (SD_SUCCESS); + } + +/************************************************************************/ +/* secManFreeCfg */ +/************************************************************************/ + +ST_RET secManFreeCfg(S_SEC_CONFIG *secCfg) + { + return (SD_SUCCESS); + } + + + /*------------------------------------------------------*/ + /* */ + /* genssl.c NULL functions needed for MMS_LITE */ + /* */ + /*------------------------------------------------------*/ + + +/************************************************************************/ +/* sslUpdate */ +/************************************************************************/ + +ST_RET sslUpdate() + { + return (SD_SUCCESS); + } diff --git a/mmslib/util/cfg_util.c b/mmslib/util/cfg_util.c new file mode 100644 index 0000000..df90863 --- /dev/null +++ b/mmslib/util/cfg_util.c @@ -0,0 +1,889 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1991-2006, All Rights Reserved */ +/* */ +/* MODULE NAME : cfg_util.c */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 02/07/06 EJV 18 cfg_special_char_str: added '$'. */ +/* 02/20/03 JRB 17 Del PSOS code. */ +/* 11/29/01 EJV 16 Del code for old LATT, XENIX, ultrix, RMX86. */ +/* Removed call to strcasecmp (sun) */ +/* 10/18/01 JRB 15 Add str_util.h (for strcmpi, etc. protos) */ +/* 01/19/01 EJV 14 Moved strcmpi,stricmp,strnicmp to str_util.c */ +/* 11/07/00 JRB 13 Del QNX from ifdef. It supports stricmp, etc.*/ +/* 04/28/00 JRB 12 Lint cleanup */ +/* 09/13/99 MDE 11 Added SD_CONST modifiers */ +/* 04/14/99 MDE 10 Replaced SYSTEM_SEL with compiler defines */ +/* 10/08/98 MDE 09 Migrated to updated SLOG interface */ +/* 08/24/98 EJV 08 Added __hpux to str* cmp functions */ +/* 08/06/98 JRB 07 Added cfg_get_octet_string function. */ +/* 06/15/98 MDE 06 Changes to allow compile under C++ */ +/* 05/22/98 EJV 05 added _AIX, sun, and __alpha to */ +/* stricmp, strcmpi, strnicmp functions */ +/* 04/03/98 RKR 04 added stricmp, strcmpi, strnicmp */ +/* 12/22/97 JRB 03 Clean up PSOS code. */ +/* 12/04/97 KCR 02 Added cfg_goto_keyword function */ +/* 11/05/97 MDE 01 Added VXWORKS support */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "mem_chk.h" +#include "cfg_util.h" +#include "cfglog.h" +#include "str_util.h" +#include + +#include "slog.h" + +/************************************************************************/ + +/* #define DEBUG */ + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ + +/* Externally visable variables */ +ST_CHAR *cfg_line_buf; /* File line read buffer */ +ST_INT cfg_curr_line; /* Current line number */ +ST_INT cfg_line_offset; /* Offset into cfg_line_buf */ + +ST_CHAR *cfg_special_char_str; +ST_CHAR *cfg_end_of_rval_str; + +ST_BOOLEAN config_stop; +ST_RET config_err; +ST_BOOLEAN config_eof; + +ST_UINT cfg_log_mask; +#ifdef DEBUG_SISCO +SD_CONST ST_CHAR *SD_CONST _cfg_err_logstr = "CFG_LOG_ERR"; +SD_CONST ST_CHAR *SD_CONST _cfg_flow_logstr = "CFG_LOG_FLOW"; +#endif + +/************************************************************************/ + +/* Internal definitions */ +#define MAX_STRING_LEN 256 +#define LINE_BUF_SIZE 256 + +ST_INT cfg_max_string_len; +ST_INT cfg_line_buf_size; +ST_INT cfg_max_rval_len; + +#define MAX_CONFIG_NEST 10 + +/* Internal variables */ +static ST_CHAR *cfg_string_buf; +static struct cfg_kw_el *curr_table; +static ST_BOOLEAN cfg_need_new_line; +static FILE *config_fptr; /* Configuration file handle */ + +/* Keyword table stack control */ +static ST_INT num_on_stack; +static struct cfg_kw_el **cfg_kw_stack; + + +/* Internal funtions */ +static struct cfg_kw_el *cfg_lookup_keyword (struct cfg_kw_el *, ST_CHAR *); +static ST_RET cfg_get_next_keyword (FILE *); +static ST_CHAR *cfg_get_rval (ST_VOID); +static ST_RET cfg_end_of_rval (ST_CHAR c); +static ST_RET cfg_special_char (ST_CHAR c); + +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ +/* cfg_process_file */ +/************************************************************************/ + +ST_RET cfg_process_file (ST_CHAR *fileName, struct cfg_kw_el *root_kw_tbl) + { +ST_RET ret; + + if (cfg_special_char_str == NULL) + cfg_special_char_str = ":\\/-_ .{}[]<>@,()$"; + + if (cfg_end_of_rval_str == NULL) + cfg_end_of_rval_str = "|"; + + if (cfg_max_string_len == 0) + cfg_max_string_len = MAX_STRING_LEN; + + if (cfg_line_buf_size == 0) + cfg_line_buf_size = LINE_BUF_SIZE; + + if (cfg_max_rval_len == 0) + cfg_max_rval_len = MAX_RVAL_LEN; + +/* Open the configuration file */ + if ((config_fptr = fopen (fileName,"r"))==NULL) + { + CFG_LOG_ERR1 ("Config File (%s) Open Error",fileName); + return (SD_FAILURE); + } + + CFG_LOG_FLOW1 ("Config File (%s) Opened OK",fileName); + +/* If a previous call to the function ended in error there may be some */ +/* old keyword table pushed on the stack. The keywords table stack is */ +/* initialized to zero to process the current configuration file */ + + num_on_stack = 0; + +/* Allocate required buffers */ + + cfg_line_buf = (ST_CHAR *) chk_calloc (cfg_line_buf_size, + sizeof(ST_CHAR)); + cfg_string_buf = (ST_CHAR *) chk_calloc (cfg_max_string_len+1, + sizeof(ST_CHAR)); + cfg_kw_stack = (struct cfg_kw_el **) chk_calloc (MAX_CONFIG_NEST, + sizeof (struct cfg_kw_el *)); + +/* Start with the ROOT keyword table */ + + cfg_tbl_push (root_kw_tbl); + +/* Process the configuration file */ + + cfg_need_new_line = SD_TRUE; + cfg_line_offset = 0; + cfg_curr_line = 0; + config_err = SD_FALSE; + config_stop = SD_FALSE; + config_eof = SD_FAILURE; + +/* Process keywords while not done and no error is detected */ + + while ( ( config_stop == SD_FALSE ) && ( config_err == SD_FALSE ) ) + { + if ( cfg_get_next_keyword( config_fptr ) ) + break; + } + +/* All done, see if it went OK */ + + if ( ( config_stop == SD_TRUE ) && ( config_err == SD_FALSE ) ) + { + CFG_LOG_CFLOW0 ("Config File Read OK"); + ret = SD_SUCCESS; + } + else + { + CFG_LOG_ERR3 ("Config Error, Line %d, \"%s\", Column %d", + cfg_curr_line, cfg_line_buf, cfg_line_offset); + + ret = SD_FAILURE; + } + +/* Free allocated buffers */ + chk_free (cfg_line_buf); + chk_free (cfg_string_buf); + chk_free (cfg_kw_stack); + +/* Close the file so the calling program can reopen it if necessary. */ + + fclose( config_fptr ); + + return (ret); + } + +/************************************************************************/ +/************************************************************************/ +/* cfg_get_next_keyword */ +/************************************************************************/ +/* This function is used to get the next keyword */ + +static ST_RET cfg_get_next_keyword (FILE *fptr) + { +struct cfg_kw_el *ptr; +ST_INT i; +ST_CHAR c; + +/* Look for 'yyy =' string */ + + while (SD_TRUE) /* While looking for the next word */ + { + if (cfg_need_new_line) + { + if ( fgets( cfg_line_buf, cfg_line_buf_size - 1, fptr ) == NULL ) + { + CFG_LOG_CFLOW0 ("No More Keywords : End Of File"); + +/* The following piece of logic exists to allow the state functions to */ +/* declare when it is ok for the file to be out of keywords. If a user */ +/* state function set 'config_eof == SD_SUCCESS' then config_stop is set */ +/* to true when ENDFILE is encountered. */ + + if ( config_eof == SD_SUCCESS ) + { + config_stop = SD_TRUE; + } + return( SD_FAILURE ); + } + + /* Wack the \n */ + for (i = 0; i < cfg_line_buf_size; ++i) + { + if (cfg_line_buf[i] == '\n') + { + cfg_line_buf[i] = 0; + break; + } + } + + cfg_line_offset = 0; /* Offset is 0 for new line */ + ++cfg_curr_line; + if (cfg_line_buf[0] == '#') + continue; /* Discard comment lines */ + + cfg_need_new_line = SD_FALSE; /* Got a new line */ + } + +/* We now have a line to work on, with cfg_line_offset the 1st char */ +/* Extract the keyword from the string (alpha numeric characters) */ +/* '=' means end of rval */ +/* 0 is end of line */ + + i = 0; + c = cfg_line_buf[cfg_line_offset++]; + while (c && c != '#' && /* End of line or comment start */ + c != '=' && /* end of keyword */ + c != '|' && + i < cfg_max_string_len) + { + if (c != ' ' && c != '\t') /* Ignore spaces and tabs */ + { + cfg_string_buf[i] = c; + ++i; + } + c = cfg_line_buf[cfg_line_offset++]; + } + + if (i >= cfg_max_string_len) + { + CFG_LOG_ERR1 ("Error : Line %d too long", cfg_curr_line); + return (SD_FAILURE); + } + + if (c == '#' || !c) /* See if we need a new line next time */ + cfg_need_new_line = SD_TRUE; + +/* i is the index to the char position that terminated the scan */ + cfg_string_buf[i]=0x0; /* NULL terminate the keyword */ + +/* if we have a keyword, then search look it up in the currently active */ +/* keyword table and execute the selected function */ + + if (strlen (cfg_string_buf)) + { /* Find the keyword */ + if ((ptr = cfg_lookup_keyword (curr_table, cfg_string_buf)) != NULL) + { + CFG_LOG_CFLOW1 ("Keyword : %s",cfg_string_buf); + (*ptr->extract)(); + break; + } + else /* invalid keyword */ + { + CFG_LOG_ERR1 ("Unknown Keyword : %s",cfg_string_buf); + return (SD_FAILURE); + } + } + } /* While SD_TRUE */ + + return(SD_SUCCESS); + } + +/************************************************************************/ +/* cfg_get_rval() */ +/************************************************************************/ + +static ST_CHAR *cfg_get_rval(ST_VOID) + { +ST_INT i; +ST_CHAR c; + + cfg_string_buf[0]=0x0; + +/* Now get the rval (value). */ +/* search for 0 to note end of line */ + + i = 0; + c = cfg_line_buf[cfg_line_offset++]; + +/* First strip leading white space (' ', '\t') */ + while (c == ' ' || c == '\t') + c = cfg_line_buf[cfg_line_offset++]; + + while (c && + c != '#' && + !cfg_end_of_rval (c) && + i < cfg_max_rval_len-1) + { + if (isalnum (c) || cfg_special_char (c)) + { + cfg_string_buf[i] = c; + ++i; + } + c = cfg_line_buf[cfg_line_offset++]; + } + + if (c == '#' || !c) /* See if we need a new line next time */ + cfg_need_new_line = SD_TRUE; + +/* Strip trailing spaces and tabs */ + while (i && (cfg_string_buf[i-1] == ' ' || + cfg_string_buf[i-1] == '\t')) + i--; + +/* Null terminate the string */ + cfg_string_buf[i] = 0x0; + + if (!strlen (cfg_string_buf)) + { + CFG_LOG_ERR2 ("Bad rval, line #%d \"%s\"",cfg_curr_line,cfg_line_buf); + return (NULL); + } + + CFG_LOG_CFLOW1 ("Rval : '%s'",cfg_string_buf); + return (cfg_string_buf); + } + +/************************************************************************/ +/* cfg_lookup_keyword */ +/************************************************************************/ + +static struct cfg_kw_el *cfg_lookup_keyword(struct cfg_kw_el *tbl_ptr, + ST_CHAR *name) + { +ST_INT i; +struct cfg_kw_el *ret = NULL; + + for (i = 0; i < MAX_NUM_KEYWORDS; ++i) + { + if (tbl_ptr[i].extract == NULL) /* End of table */ + break; + else if (!strcmpi (name, tbl_ptr[i].name)) + { /* we have a match */ + if (tbl_ptr[i].valid !=NULL) /* Want to validate? */ + { + if ((*tbl_ptr[i].valid)()) + ret = &tbl_ptr[i]; + } + else + ret = &tbl_ptr[i]; + + break; + } + } + + return(ret); + } + +/************************************************************************/ +/* cfg_end_of_rval */ +/************************************************************************/ +/* CONFIG calls back to this function while looking the rval over */ +/* If this function returns SD_TRUE, CONFIG will assume that the */ +/* character is a keyword/rval pair seperator */ +/* Used to allow multiple pairs per line */ + + +static ST_RET cfg_end_of_rval (ST_CHAR c) + { +ST_INT i; +ST_INT str_len; + + str_len = strlen (cfg_end_of_rval_str); + for (i = 0; i < str_len; ++i) + { + if (c == cfg_end_of_rval_str[i]) + return (SD_TRUE); + } + return (SD_FALSE); + } + +/************************************************************************/ +/* cfg_special_char */ +/************************************************************************/ + +static ST_RET cfg_special_char (ST_CHAR c) + { +ST_INT i; +ST_INT str_len; + + str_len = strlen (cfg_special_char_str); + for (i = 0; i < str_len; ++i) + { + if (c == cfg_special_char_str[i]) + return (SD_TRUE); + } + + return (SD_FALSE); + } + + +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ +/* cfg_tbl_push (new_table) */ +/************************************************************************/ + +ST_RET cfg_tbl_push (struct cfg_kw_el *new_table) + { + if (num_on_stack >= MAX_CONFIG_NEST) + { + CFG_LOG_ERR0 ("Too many pushes - configuration nesting exceeded"); + config_stop = SD_TRUE; + config_err = CFG_UTIL_ERR; + return (SD_FAILURE); + } + + cfg_kw_stack[num_on_stack] = new_table; + ++num_on_stack; + curr_table = new_table; + return (SD_SUCCESS); + } + +/************************************************************************/ +/* cfg_tbl_pop (num_to_pop) */ +/************************************************************************/ + +ST_RET cfg_tbl_pop (ST_INT num_to_pop) + { + if ((num_on_stack-num_to_pop-1)<0) + { + CFG_LOG_ERR0 ("Too many pops off configuration stack"); + config_stop = SD_TRUE; + config_err = CFG_UTIL_ERR; + return (SD_FAILURE); + } + num_on_stack -= num_to_pop; + curr_table = cfg_kw_stack[num_on_stack-1]; + return (SD_SUCCESS); + } + +/************************************************************************/ +/* cfg_get_short */ +/************************************************************************/ + +ST_RET cfg_get_short (ST_INT16 *out_ptr) + { +ST_INT d; +ST_INT16 ret; + + ret = cfg_get_value ("%d", &d); + if (!ret) + *out_ptr = (ST_INT16) d; + return (ret); + } + +/************************************************************************/ +/* cfg_get_ushort */ +/************************************************************************/ + +ST_RET cfg_get_ushort (ST_UINT16 *out_ptr) + { +ST_UINT d; +ST_RET ret; + + ret = cfg_get_value ("%u", &d); + if (!ret) + *out_ptr = (ST_UINT16) d; + return (ret); + } + +/************************************************************************/ +/* cfg_get_int */ +/************************************************************************/ + +ST_RET cfg_get_int (ST_INT *out_ptr) + { +ST_INT d; +ST_RET ret; + + ret = cfg_get_value ("%d", &d); + if (!ret) + *out_ptr = d; + return (ret); + } + +/************************************************************************/ +/* cfg_get_uint */ +/************************************************************************/ + +ST_RET cfg_get_uint (ST_UINT *out_ptr) + { +ST_UINT d; +ST_RET ret; + + ret = cfg_get_value ("%u", &d); + if (!ret) + *out_ptr = d; + return (ret); + } + +/************************************************************************/ +/* cfg_get_long */ +/************************************************************************/ + +ST_RET cfg_get_long (ST_LONG *out_ptr) + { + return (cfg_get_value ("%ld", out_ptr)); + } + +/************************************************************************/ +/* cfg_get_ulong */ +/************************************************************************/ + +ST_RET cfg_get_ulong (ST_ULONG *out_ptr) + { + return (cfg_get_value ("%lu", out_ptr)); + } + + +/************************************************************************/ +/* cfg_get_double */ +/************************************************************************/ + +ST_RET cfg_get_double (ST_DOUBLE *out_ptr) + { + return (cfg_get_value ("%lf", out_ptr)); + } + + +/************************************************************************/ +/* cfg_get_hex_ushort */ +/************************************************************************/ + +ST_RET cfg_get_hex_ushort (ST_UINT16 *out_ptr) + { +ST_UINT d; +ST_RET ret; + + ret = cfg_get_value ("%x", &d); + if (!ret) + *out_ptr = (ST_UINT16) d; + return (ret); + +/* return (cfg_get_value ("%x", out_ptr)); */ + } + +/************************************************************************/ +/* cfg_get_hex_uint */ +/************************************************************************/ + +ST_RET cfg_get_hex_uint (ST_UINT *out_ptr) + { +ST_UINT d; +ST_RET ret; + + ret = cfg_get_value ("%x", &d); + if (!ret) + *out_ptr = d; + return (ret); + +/* return (cfg_get_value ("%x", out_ptr)); */ + } + +/************************************************************************/ +/* cfg_get_hex_ulong */ +/************************************************************************/ + +ST_RET cfg_get_hex_ulong (ST_ULONG *out_ptr) + { + return (cfg_get_value ("%lx", out_ptr)); + } + +/************************************************************************/ +/* cfg_get_value */ +/************************************************************************/ + +ST_RET cfg_get_value (ST_CHAR *format_string, ST_VOID *out_ptr) + { +ST_CHAR *rval; + + rval = cfg_get_rval (); /* get the rvalue string */ + if (!rval) + { + config_err = CFG_GET_RVAL_ERR; + CFG_LOG_ERR0 ("Get Rval Error"); + } + else + { /* Convert to desired data format*/ + if (!sscanf (rval,format_string,out_ptr)) + { + config_err = CFG_CONVERT_ERR; + CFG_LOG_ERR0 ("Data Conversion Error"); + } + } + + if (config_err) /* if error detected ... */ + { + config_stop = SD_TRUE; + return (SD_FAILURE); + } + + return (SD_SUCCESS); + } + + +/************************************************************************/ +/************************************************************************/ +/* *cfg_get_alloc_string */ +/************************************************************************/ + +ST_CHAR *cfg_get_alloc_string (ST_VOID) + { +ST_CHAR *ret_ptr; +ST_CHAR *rval; + + rval = cfg_get_rval (); /* get the rvalue string */ + if (!rval) + { + config_stop = SD_TRUE; + config_err = CFG_GET_RVAL_ERR; + CFG_LOG_ERR0 ("Get Rval Error"); + return (NULL); + } + + /* allocate storage for string */ + ret_ptr = (ST_CHAR *) chk_calloc (1,strlen (rval) +1); + strcpy (ret_ptr,rval); + return (ret_ptr); + } + + +/************************************************************************/ +/* *cfg_get_string_ptr */ +/************************************************************************/ + +ST_CHAR *cfg_get_string_ptr (ST_VOID) + { +ST_CHAR *rval; + + rval = cfg_get_rval (); /* get the rvalue string */ + if (!rval) + { + config_stop = SD_TRUE; + config_err = CFG_GET_RVAL_ERR; + CFG_LOG_ERR0 ("Get Rval Error"); + return (NULL); + } + + return (rval); + } + +/************************************************************************/ +/* cfg_get_octet_string */ +/************************************************************************/ + +ST_RET cfg_get_octet_string (ST_UCHAR *ostr, /* ptr to user's ostr */ + ST_UINT *len_out_ptr, /* addr of len var to be set */ + ST_UINT len_max) /* maximum len to allow. */ + { +ST_UINT j; +ST_INT digit; +ST_BOOLEAN nibble; /* SD_TRUE if nibble read, SD_FALSE if whole byte read*/ +ST_CHAR *rval; + + rval = cfg_get_rval (); /* get the rvalue string */ + if (!rval) + { + config_stop = SD_TRUE; + config_err = CFG_GET_RVAL_ERR; + CFG_LOG_ERR0 ("Get Rval Error"); + return (SD_FAILURE); + } + + j = 0; + nibble = SD_FALSE; + while (isxdigit (*rval)) /* get hex number */ + { + if (j >= len_max) + return (SD_FAILURE); /* Selector longer than allowed */ + + digit = *rval++; /* separate nibbles */ + digit = isdigit (digit) ? digit - '0' : 10 + (toupper (digit) - 'A'); + if (nibble) + { + nibble = SD_FALSE; + ostr[j] = (ostr[j] | (ST_UCHAR) digit); /* set low */ + j++; + + while (isspace (*rval) && *rval != '\n') + ++rval; + } + else + { + nibble = SD_TRUE; + ostr[j] = (ST_UCHAR) digit << 4; /* set high byte */ + } + } + + if (nibble) + { /* Only got half of byte. */ + config_stop = SD_TRUE; + config_err = CFG_CONVERT_ERR; + CFG_LOG_ERR0 ("Incomplete byte in Octet string"); + return (SD_FAILURE); + } + + /* set selector length */ + *len_out_ptr = j; + return (SD_SUCCESS); + } + +/************************************************************************/ +/* cfg_set_config_err */ +/************************************************************************/ + +ST_VOID cfg_set_config_err(ST_VOID) + { + config_err = SD_TRUE; + } + +/************************************************************************/ +/* cfg_set_endfile_ok */ +/************************************************************************/ + +ST_VOID cfg_set_endfile_ok(ST_VOID) + { + config_eof = SD_SUCCESS; + } + + + +/************************************************************************/ +/************************************************************************/ +/* cfg_goto_keyword */ +/************************************************************************/ +/* This function is used to skip over a section to the specified keyword*/ + +ST_RET cfg_goto_keyword (ST_CHAR *keyword) + { +ST_INT i, cfgStringLen, keywordLen; +ST_CHAR c; + +/* Look for 'yyy =' string */ + + keywordLen = strlen (keyword); + while (SD_TRUE) /* While looking for the specified word */ + { + if (cfg_need_new_line) + { + if ( fgets( cfg_line_buf, cfg_line_buf_size - 1, config_fptr ) == NULL ) + { + CFG_LOG_CFLOW0 ("No More Keywords : End Of File"); + +/* The following piece of logic exists to allow the state functions to */ +/* declare when it is ok for the file to be out of keywords. If a user */ +/* state function set 'config_eof == SD_SUCCESS' then config_stop is set */ +/* to true when ENDFILE is encountered. */ + + if ( config_eof == SD_SUCCESS ) + { + config_stop = SD_TRUE; + } + return( SD_FAILURE ); + } + + /* Wack the \n */ + for (i = 0; i < cfg_line_buf_size; ++i) + { + if (cfg_line_buf[i] == '\n') + { + cfg_line_buf[i] = 0; + break; + } + } + + cfg_line_offset = 0; /* Offset is 0 for new line */ + ++cfg_curr_line; + if (cfg_line_buf[0] == '#') + continue; /* Discard comment lines */ + + cfg_need_new_line = SD_FALSE; /* Got a new line */ + } + +/* We now have a line to work on, with cfg_line_offset the 1st char */ +/* Extract the keyword from the string (alpha numeric characters) */ +/* '=' means end of rval */ +/* 0 is end of line */ + + i = 0; + c = cfg_line_buf[cfg_line_offset++]; + while (c && c != '#' && /* End of line or comment start */ + c != '=' && /* end of keyword */ + c != '|' && + i < cfg_max_string_len) + { + if (c != ' ' && c != '\t') /* Ignore spaces and tabs */ + { + cfg_string_buf[i] = c; + ++i; + } + c = cfg_line_buf[cfg_line_offset++]; + } + + if (i >= cfg_max_string_len) + { + CFG_LOG_ERR1 ("Error : Line %d too long", cfg_curr_line); + return (SD_FAILURE); + } + + if (c == '#' || !c) /* See if we need a new line next time */ + cfg_need_new_line = SD_TRUE; + +/* i is the index to the char position that terminated the scan */ + cfg_string_buf[i]=0x0; /* NULL terminate the keyword */ + +/* if we have a keyword, then search look it up in the currently active */ +/* keyword table and execute the selected function */ + + if ((cfgStringLen = strlen (cfg_string_buf)) > 0) + { /* Find the keyword */ + if ((cfgStringLen == keywordLen) && !strcmpi (keyword, cfg_string_buf)) + break; + else /* keyword not found */ + cfg_need_new_line = SD_TRUE; + } + } /* While SD_TRUE */ + + return(SD_SUCCESS); + } + + + + + + + + + + + + + + + + diff --git a/mmslib/util/genlists.c b/mmslib/util/genlists.c new file mode 100644 index 0000000..708944f --- /dev/null +++ b/mmslib/util/genlists.c @@ -0,0 +1,464 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1986-2005 All Rights Reserved */ +/* */ +/* MODULE NAME : gen_list.c */ +/* PRODUCT(S) : general list handling functions */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module contains generic que manipulation routines */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 10/04/07 MDE 07 Tweaked LOGCFG_VALUE_GROUP/LOGCFGX_VALUE_MAP */ +/* 06/30/05 EJV 06 Add genlistDebugMaps, genlistDebugMapCtrl */ +/* for parsing logcfg.xml */ +/* 04/08/04 JRB 05 list_find_last: if head=NULL, don't log. */ +/* 12/12/02 JRB 04 list_get_first/last: if *head==NULL, return */ +/* NULL & do NOT log a message. */ +/* 11/21/01 MDE 03 Changed logging to use SLOGALWAYS */ +/* 10/09/98 JRB 02 Add list_find_prev, list_find_last. */ +/* 06/15/98 MDE 01 Changes to allow compile under C++ */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#define I_AM_THE_TRUE_GEN_LIST +#include "gen_list.h" +#include "slog.h" + +/************************************************************************/ +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +static ST_CHAR *thisFileName = __FILE__; +#endif + +/************************************************************************/ +/* The variable below is used in selecting generic queuing debug */ +/* checking. When this variable is set to SD_TRUE all data strucutres */ +/* using the list manipulation primitives will under go this checking */ + +ST_BOOLEAN list_debug_sel; + +#ifdef DEBUG_SISCO +LOGCFGX_VALUE_MAP genlistDebugMaps[] = + { +/* Memory debugging */ + {"ListDebugSel", 0, &list_debug_sel, _LOGCFG_DATATYPE_BOOLEAN, NULL, NULL} + }; + +LOGCFG_VALUE_GROUP genlistDebugMapCtrl = + { + {NULL,NULL}, + "GenListLogMasks", /* Parent Tag */ + sizeof(genlistDebugMaps)/sizeof(LOGCFGX_VALUE_MAP), + genlistDebugMaps + }; +#endif /* DEBUG_SISCO */ + +/************************************************************************/ +/* list_unlink */ +/* Primitive to unlink a node out of a circular double linked list */ +/************************************************************************/ + +ST_RET list_unlink (DBL_LNK **list_head_ptr, DBL_LNK *node_ptr) + { +#ifdef DEBUG_SISCO + if (*list_head_ptr == NULL) + { + SLOGALWAYS0 ("GENLIST: ATTEMPT TO UNLINK A NODE FROM A NULL LIST"); + return (SD_FAILURE); + } + + if (node_ptr == NULL) + { + SLOGALWAYS0 ("GENLIST: ATTEMPT TO UNLINK A NULL ADDRESS FROM A LIST"); + return (SD_FAILURE); + } + + if (list_debug_sel == SD_TRUE) + { + if (list_find_node (*list_head_ptr, node_ptr) == SD_FAILURE) + { + SLOGALWAYS0 ("GENLIST: NODE NOT FOUND IN LIST"); + return (SD_FAILURE); + } + } +#endif + +/* If list checking is enabled and we get to here we have valid */ +/* arguments and a valid list */ + + if ((node_ptr -> next == *list_head_ptr) && + (node_ptr == *list_head_ptr)) /* only node in list? */ + { + *list_head_ptr = NULL; + } + else + { + if (node_ptr == *list_head_ptr) /* first node in a multi*/ + *list_head_ptr = node_ptr->next; /* node list */ + (node_ptr->next)->prev = node_ptr->prev; /* link cur next to prev*/ + (node_ptr->prev)->next = node_ptr->next; /* link cur prev to next*/ + } + return (SD_SUCCESS); + } + + +/************************************************************************/ +/* list_add_first */ +/* Primitive to add a node as the first node of a circular double */ +/* linked list */ +/************************************************************************/ + +ST_RET list_add_first (DBL_LNK **list_head_ptr, DBL_LNK *node_ptr) + { +DBL_LNK *list_tail_ptr; + +#ifdef DEBUG_SISCO + if (node_ptr == NULL) + { + SLOGALWAYS0 ("GENLIST: ATTEMPT TO ADD A NULL ADDRESS TO A LIST"); + return (SD_FAILURE); + } +#endif + +/* If list checking is enabled and we get to here we have valid */ +/* arguments */ + + if (*list_head_ptr == NULL) /* will this be the only node? */ + { + node_ptr->next = node_ptr; + node_ptr->prev = node_ptr; + } + else + { + list_tail_ptr = (*list_head_ptr)->prev; + node_ptr->next = *list_head_ptr; + node_ptr->prev = list_tail_ptr; + list_tail_ptr->next = node_ptr; + (*list_head_ptr)->prev = node_ptr; + } + *list_head_ptr = node_ptr; /* assign the new head of list */ + return (SD_SUCCESS); + + } + + +/************************************************************************/ +/* list_add_last */ +/* Primitive to add a node as the last node of a circular double */ +/* linked list */ +/************************************************************************/ + +ST_RET list_add_last (DBL_LNK **list_head_ptr, DBL_LNK *node_ptr) + { +DBL_LNK *list_tail_ptr; + +#ifdef DEBUG_SISCO + if (node_ptr == NULL) + { + SLOGALWAYS0 ("GENLIST: ATTEMPT TO ADD A NULL ADDRESS TO A LIST"); + return (SD_FAILURE); + } +#endif + +/* If list checking is enabled and we get to here we have valid */ +/* arguments */ + + if (*list_head_ptr == NULL) /* will this be the only node? */ + { + node_ptr->next = node_ptr; + node_ptr->prev = node_ptr; + *list_head_ptr = node_ptr; + } + else + { + list_tail_ptr = (*list_head_ptr)->prev; + list_tail_ptr->next = node_ptr; + node_ptr->prev = list_tail_ptr; + node_ptr->next = *list_head_ptr; + (*list_head_ptr)->prev = node_ptr; + } + return (SD_SUCCESS); + } + +/************************************************************************/ +/* list_get_first */ +/* Primitive to unlink the first node out of the list and return it's */ +/* address */ +/************************************************************************/ + +#ifndef FASTLIST + +ST_VOID *list_get_first (DBL_LNK **list_head_ptr) + { +DBL_LNK *node_ptr; + + if (*list_head_ptr == NULL) + return (NULL); + + node_ptr = *list_head_ptr; + list_unlink (list_head_ptr, node_ptr); + return (node_ptr); + + } +#endif + +/************************************************************************/ +/* list_get_last */ +/* Primitive to unlink the last node out of the list and return it's */ +/* address */ +/************************************************************************/ + + +ST_VOID *list_get_last (DBL_LNK **list_head_ptr) + { +DBL_LNK *node_ptr; + + if (*list_head_ptr == NULL) + return (NULL); + + node_ptr = *list_head_ptr; + node_ptr = node_ptr->prev; + list_unlink (list_head_ptr, node_ptr); + return (node_ptr); + } + + +/************************************************************************/ +/* list_move_to_first */ +/* Primitive to unlink the first node out of the list and return it's */ +/* address */ +/************************************************************************/ + +ST_RET list_move_to_first (DBL_LNK **src_list_head_ptr, + DBL_LNK **dest_list_head_ptr, + DBL_LNK *node_ptr) + { +ST_RET ret_code; + + if (!(ret_code = list_unlink (src_list_head_ptr, node_ptr))) + { + list_add_first (dest_list_head_ptr, node_ptr); + } + return (ret_code); + } + +/************************************************************************/ +/* list_find_node */ +/* Primitive to verify that a node is in a list, returns SD_SUCCESS if it */ +/* is; SD_FAILURE otherwise. */ +/************************************************************************/ + +ST_RET list_find_node (DBL_LNK *list_head_ptr, DBL_LNK *node_ptr) + { +DBL_LNK *temp_ptr; +DBL_LNK *list_tail_ptr; +ST_RET ret_code; + + if ((list_head_ptr == NULL) || (node_ptr == NULL)) + ret_code = SD_FAILURE; + else + { + temp_ptr = list_head_ptr; + list_tail_ptr = list_head_ptr->prev; + +/* search forward from the begining to the end of the list for our node */ + + while ((temp_ptr != list_tail_ptr) && (temp_ptr != node_ptr)) + { + temp_ptr = temp_ptr->next; + } + if (temp_ptr == node_ptr) + ret_code = SD_SUCCESS; + else + ret_code = SD_FAILURE; + } + return (ret_code); + } + + +/************************************************************************/ +/* list_print_links */ +/************************************************************************/ + +#if 0 + +ST_VOID list_print_links (DBL_LNK *list_head_ptr) + { +DBL_LNK *temp_ptr; +DBL_LNK *list_tail_ptr; +ST_INT i; + + i = 1; + if (list_head_ptr == NULL) + { + printf ("\nThe list is empty"); + } + else + { + temp_ptr = list_head_ptr; + list_tail_ptr = list_head_ptr->prev; + printf ("\npointer to the head of the list is: %lx",list_head_ptr); + printf ("\n"); + printf ("\npointer to node number %d is: %lx",i, temp_ptr); + printf ("\nnode number: next ptr is: %lx",temp_ptr->next); + printf ("\n prev ptr is: %lx",temp_ptr->prev); + while ((temp_ptr != list_tail_ptr)) + { + temp_ptr = temp_ptr->next; + i++; + printf ("\npointer to node number %d is: %lx",i, temp_ptr); + printf ("\nnode number: next ptr is: %lx",temp_ptr->next); + printf ("\n prev ptr is: %lx",temp_ptr->prev); + } + } + } +#endif + +/************************************************************************/ +/* list_add_node_after(list insert node prim) */ +/* Primitive to add a node to a list after the current node. This */ +/* function assumes that we are working with a non NIL list. SD_SUCCESS */ +/* is returned if the node gets added to the list; SD_FAILURE otherwise. */ +/************************************************************************/ + +ST_RET list_add_node_after (DBL_LNK *cur_node, DBL_LNK *new_node) + { +DBL_LNK *next_node; +ST_RET ret_val; + + ret_val = SD_FAILURE; + if (new_node == NULL) + { + SLOGALWAYS0 ("GENLIST: ATTEMPT TO ADD A NULL ADDRESS TO A LIST"); + } + else if (cur_node == NULL) + { + SLOGALWAYS0 ("GENLIST: ATTEMPT TO ADD A NODE TO A NULL LIST"); + } + else /* this is a good node and good predecessor */ + { + next_node = cur_node -> next; + new_node -> next = next_node; + new_node -> prev = cur_node; + next_node -> prev = new_node; + cur_node -> next = new_node; + ret_val = SD_SUCCESS; + } + return (ret_val); + } + +/************************************************************************/ +/* list_get_next */ +/* Primitive to get the node pointed to by the next component of the */ +/* current node. This function returns NULL if the list_head_ptr is */ +/* NULL, the address of the current node is NULL or the next node in the*/ +/* list is the list_head_ptr(the list has wrapped around). This */ +/* function is useful for traversing a doubly linked circular list */ +/* from begining to the end as if the list were NULL terminated. */ +/************************************************************************/ + +#ifndef FASTLIST + +ST_VOID *list_get_next (DBL_LNK *list_head_ptr, DBL_LNK *cur_node) + { +DBL_LNK *next_node = NULL; + + if (list_head_ptr == NULL) + { + SLOGALWAYS0 ("GENLIST: ATTEMPT TO REFERENCE A NULL LIST"); + } + else if (cur_node == NULL) + { + SLOGALWAYS0 ("GENLIST: ATTEMPT TO REFERENCE THROUGH A NULL PTR"); + } + else if (cur_node->next != list_head_ptr) + { + next_node = cur_node->next; + } + return (next_node); + } +#endif + +/************************************************************************/ +/* list_get_sizeof */ +/* Primitive to return the number of nodes in this generic list. */ +/************************************************************************/ + +ST_INT list_get_sizeof (DBL_LNK *list_head_ptr) + { +ST_INT count; +DBL_LNK *cur_node; + + count = 0; + cur_node = list_head_ptr; + + while (cur_node != NULL) + { + count ++; + cur_node = (DBL_LNK *) list_get_next (list_head_ptr, cur_node); + } + + return (count); + } + +/************************************************************************/ +/* list_find_prev */ +/* Primitive to find the node "before" the current node in the linked */ +/* list. This function returns NULL if the list_head_ptr is */ +/* NULL, the current node is NULL, or the current node */ +/* is the head of the linked list (i.e. does not wrap around). */ +/************************************************************************/ + +DBL_LNK *list_find_prev (DBL_LNK *list_head_ptr, DBL_LNK *cur_node) + { +DBL_LNK *prev_node = NULL; + + if (list_head_ptr == NULL) + { + SLOGALWAYS0 ("GENLIST: ATTEMPT TO REFERENCE A NULL LIST"); + } + else if (cur_node == NULL) + { + SLOGALWAYS0 ("GENLIST: ATTEMPT TO REFERENCE THROUGH A NULL PTR"); + } + else if (cur_node != list_head_ptr) + { + prev_node = cur_node->prev; + } + return (prev_node); + } + +/************************************************************************/ +/* list_find_last */ +/* Primitive to find the last node in the linked list and return it's */ +/* address. */ +/************************************************************************/ + +DBL_LNK *list_find_last (DBL_LNK *list_head_ptr) + { +DBL_LNK *last_node; + + if (list_head_ptr) + last_node = list_head_ptr->prev; + else + { /* head is NULL (i.e. list is empty) so last is NULL too. */ + last_node = NULL; + } + + return (last_node); + } + diff --git a/mmslib/util/gensock2.c b/mmslib/util/gensock2.c new file mode 100644 index 0000000..afc65d5 --- /dev/null +++ b/mmslib/util/gensock2.c @@ -0,0 +1,2814 @@ +/************************************************************************/ +/* SOFTWARE MODULE HEADER ***********************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2002 - 2008, All Rights Reserved */ +/* */ +/* MODULE NAME : gensock2.c */ +/* */ +/* MODULE DESCRIPTION : */ +/* general socket routines */ +/* */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 10/15/08 EJV 63 sockCheckForIdleConns CORR: don't close */ +/* listening socket. */ +/* 10/08/08 MDE 62 Allow variable len header, sockEventQueueFlush*/ +/* 10/06/08 JRB 61 Close socket on ANY _sockCheckRxData error */ +/* & remove sockClose calls in _sockRecv. */ +/* Del _sockCheckRxData call right after connect*/ +/* completes (almost never gets data). */ +/* 07/24/08 EJV 60 sockSelectResultProcess: check sockErrorDetected */ +/* Fix on 11/26/07 (Rev 1.59.1.0 branch). */ +/* 04/07/08 EJV 59 sockFree CORR: call sockTxQueueDestroy to */ +/* prevent memory leaks. */ +/* 02/27/08 EJV 58 sockEventGet: check before decrementing. */ +/* 01/29/08 EJV 57 Use S_FMT_PTR macro to log pointers. */ +/* sockInitCalling: added 2 return(SD_FAILURE). */ +/* 12/04/07 EJV 56 sockUsrFun: check if con secured. */ +/* Add sockCheckForIdleConns (SISCO KeepAlive). */ +/* 11/28/07 EJV 55 _WIN32: changed to Winsock version 2. */ +/* Added disconnectReason in few places. */ +/* Added sockDisconnReasonStr for slogging. */ +/* sockFree: reversed 'if' for more redability. */ +/* 02/21/08 EJV 54 sockGetRemAddrInfo: corr portOut casting for */ +/* 0x8000-0xFFFF ports. */ +/* 11/28/07 EJV 53 sockSelectResultProcess corr: added continue.*/ +/* sockClose: add pSock->hSock=INVALID_SOCKET; */ +/* 10/04/07 MDE 52 Tweaked LOGCFG_VALUE_GROUP/LOGCFGX_VALUE_MAP */ +/* 09/10/07 MDE 51 Added sockStartEx, log_disable */ +/* 02/28/07 MDE 50 Handle 'send' returning 0 (full pipe) */ +/* 02/08/07 JRB 49 Add sockEventPut, sockEventGet. */ +/* Repl uSockConnect with 2 separate pointers */ +/* uSockConnectInd, uSockConnectConf. */ +/* 02/06/07 JRB 48 Call _sockServiceDiscardSock ONLY from sockClose.*/ +/* Replace other ..DiscardSock calls w/ sockClose.*/ +/* 01/30/07 JRB 47 Fix crash in sockFree by simplifying threads */ +/* (eliminate Free thread & sockServiceFreeList).*/ +/* Call _sockServiceDiscardSock from sockClose. */ +/* Lock all access to sockList. */ +/* 01/15/07 JRB 46 Del gs_poll_mode flag & poll_mode arg to */ +/* sockStart (no longer supported). */ +/* 01/03/07 EJV 45 Rpl gensock2 mutexes with S_LOCK_UTIL_RESOURCES */ +/* to avoid potential deadlock in slogipc.c; */ +/* Del create/destroy calls for gensock2 mutexes*/ +/* 12/11/06 EJV 44 sockCreateWakeupSockets, _sockAllocSock: */ +/* chg nonblock_on from ST_LONG to int. */ +/* Needed on 64-bit UNIX, Linux systems. */ +/* 11/17/06 EJV 43 socket funs: added (int) cast, the HP-UX */ +/* ssize_t is long. */ +/* 11/06/06 EJV 42 Rem static from sockCtxList (extern in H). */ +/* 06/13/06 RKR 41 Incorporated porting changes */ +/* 04/14/06 JRB 40 Close xCallingSock, xCalledSock in sockEnd. */ +/* 02/17/06 EJV 39 __VMS: defined SOCK_OPTLEN and SOCK_ADDRLEN */ +/* in gensock2.h. */ +/* sockGetRemAddrInfo: chg len from ST_INT type */ +/* to SOCK_ADDRLEN. */ +/* 01/30/06 GLB 38 Integrated porting changes for VMS */ +/* 12/19/05 EJV 37 sockUsrFun: chg args. */ +/* 10/09/05 MDE 36 Changed connect errors NERR log to FLOW */ +/* 09/28/05 EJV 35 Implemented GEN_SOCK_CTXT & other changes: */ +/* Moved filio.h for sun to sysincs.h. */ +/* Moved MUTEX macros from gensock2.h & renamed.*/ +/* sockStart, sockEnd, _sockAddServiceThread: */ +/* add cleanup code. */ +/* _sockAddSock: chg return to ST_RET. */ +/* Added handling when _sockAddSock fails. */ +/* Protect all numActive operations. */ +/* sockInitFds: mv init code out, for non-thread*/ +/* 07/18/05 EJV 34 sockSelectResultProcess: corr UNIX,LINUX,QNX */ +/* check if socket connection successful. */ +/* 07/11/05 EJV 33 Added convertIPAddr. */ +/* 07/05/05 EJV 32 sockInitCalling, sockInitListen, _sockAccept:*/ +/* close hSock if hSock >= FD_SETSIZE */ +/* 06/17/05 EJV 31 sockTx: clearer log. */ +/* 06/10/05 JRB 30 "_sockClose" deleted. Use "sockClose". */ +/* Don't close listen socket on accept error. */ +/* 05/23/05 EJV 29 Add sockLogMaskMapCtrl for parsing logcfg.xml*/ +/* Moved sock_debug_sel from slog.c. */ +/* 05/12/05 EJV 28 MMSEASE_MOSI:listenSocket=NULL GS_ROLE_CALLED*/ +/* 05/10/05 EJV Exposed _sockAllocSock, _sockAddSock protos. */ +/* sockServiceWake: chg NERR to FLOW log. */ +/* 05/04/05 MDE 27 Changed recv NERR log to FLOW */ +/* 05/04/05 EJV 26 Corr sockGetRemAddrInfo (chg peer to pp) */ +/* 05/03/05 MDE 25 OK to get EINPROGRESS & EINTR in select */ +/* 04/15/05 ASK 24 Signed/unsigned warning cleanup. Comment chg.*/ +/* 03/23/05 EJV 23 Exposed sockCreateWakeupSockets. */ +/* 03/16/05 JRB 22 Disconnect socket if uSockHunt returns */ +/* GENSOCK_HUNT_DISCONNECT. */ +/* 02/14/05 MDE 21 _sockRecv now looks for SOCK_INPROGRESS too */ +/* 02/10/05 MDE 20 Added sockGetRemAddrInfo */ +/* 02/02/05 MDE 37 Allow header only receive (empty body) */ +/* 12/20/04 ASK 36 Change gs_wakeup_port to 55050. */ +/* _sockCreateWakeupSockets: try up to 100 ports*/ +/* in range. Change XSocket logs to ERR. */ +/* 09/22/04 JRB 35 Change "..Connect Failed.." logs to NERR. */ +/* Change "expected" select err log to FLOW. */ +/* 08/12/04 EJV 34 sockInitFds corr: do not use FD_SET directly!*/ +/* 07/22/04 EJV 33 Added filio.h for sun. */ +/* Moved _gUsrCount up (out of define). */ +/* 06/21/04 EJV 32 sockInitListen: chg to return errno. */ +/* 05/21/04 MDE 31 Added user count _gUsrCount */ +/* 05/20/04 EJV 30 Log port number when unable to bind. */ +/* 05/17/04 MDE 29 Removed send assert forcing data buffer to */ +/* be allocated as part of GEN_SOCK_DATA */ +/* 05/03/04 ASK 28 Log errno when unable to send */ +/* 04/09/04 ASK 27 sockSelectResultProcess:log SOCK_INTR as NERR*/ +/* 04/22/04 MDE 26 Minor logging cleanup */ +/* 03/19/04 MDE 25 Added broken pipe handler for QNX */ +/* 03/04/04 ASK 24 Switched code in _sockClose. */ +/* 02/26/04 EJV 23 Switched code in sockClose. */ +/* Use SOCK_OPTLEN and SOCK_ADDRLEN. */ +/* 01/30/04 EJV 22 sockSelectResultProcess: fix previous change.*/ +/* 01/27/04 EJV 21 sockSelectResultProcess: chg log to NERR. */ +/* 01/23/04 EJV 20 sockLogState: added locking semaphore. */ +/* sockTxQueueAdd: free the sockData if error. */ +/* 01/22/04 EJV 19 Replaced time() calls with sGetMsTime(). */ +/* 01/12/04 ASK 18 Don't use socket if closed in _sockAccept. */ +/* Add log msg if select() fails. */ +/* Sleep for a second if select() fails. */ +/* EJV Moved sock_debug_sel to slog.c */ +/* Add sockTxQueuedGroupCnt update. */ +/* Add sockTxQueueGroupCntGet func. */ +/* 11/04/03 JRB 17 Replace gs_sleep calls with sMsSleep. */ +/* 07/07/03 JRB 16 Fix some log macros. */ +/* 06/25/03 JRB 15 Chg log macros. Chg FLOW log to ERR. */ +/* 06/23/03 EJV 14 Added 'first' param to sockTxQueueAdd. */ +/* 06/23/03 ASK 13 Set rc to SD_SUCCESS in sockTxQueueProc */ +/* 06/20/03 EJV 12 Added sockTxQueueDestroy. Log conn errors. */ +/* 06/19/03 EJV 11 Chg some logs. Chg gSock to pSock in funs. */ +/* Moved pSock->sockStats.numSend. */ +/* 06/19/03 JRB 10 Make Rx/Tx names more consistent. */ +/* 06/19/03 JRB 09 Fix ioctlsocket calls chging to non-blocking */ +/* mode (last arg must point to non-zero ulong).*/ +/* 06/18/03 JRB 08 Chk FD_SETSIZE if !(_WIN32). */ +/* Add sockInitAllFds. */ +/* Add sockTxMsg, sockTxQueue*: these */ +/* use new txMutex & uSockTxBufFree func ptr. */ +/* Set REUSEADDR option only on listen socket. */ +/* Init totalfds,selectnfds=0 in sockInitFds. */ +/* Chg some logging. Fix some ";". */ +/* Chk for SOCK_INPROGRESS too. */ +/* 06/03/03 MDE 07 More user poll featuresAdded sockGetFds */ +/* 06/02/03 ASK 06 _sockRecv(): Log err before calling sockClose*/ +/* 05/28/03 JRB 05 Fix setting of timeout for select call. */ +/* Del unused code. */ +/* 05/14/03 MDE 04 Added sockGetFds */ +/* 05/09/03 JRB 03 Don't use SOCKET_ERROR (only defined on WIN32)*/ +/* 04/07/03 EJV 02 Preset sock_debug_sel to SOCK_LOG_ERR */ +/* 02/17/03 MDE 01 Created */ +/************************************************************************/ + +#include "string.h" + +#include "gensock2.h" +/*renxiaobao add*/ +#ifndef WIN32 +#include + +extern struct hostent *gethostbyname(const char *name); +#endif + + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/* Global logging variables */ + +#define GENSOCK_MAX_HEADER_SIZE 500 + +ST_UINT sock_debug_sel; /* init in sockStart() */ + +#ifdef DEBUG_SISCO +LOGCFGX_VALUE_MAP sockLogMaskMaps[] = + { + {"SOCK_LOG_ERR", SOCK_LOG_ERR, &sock_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "Error"}, + {"SOCK_LOG_NERR", SOCK_LOG_NERR, &sock_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "Notice"}, + {"SOCK_LOG_FLOW", SOCK_LOG_FLOW, &sock_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "Flow"}, + {"SOCK_LOG_RX", SOCK_LOG_RX, &sock_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "Receive"}, + {"SOCK_LOG_TX", SOCK_LOG_TX, &sock_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "Transmit"} + }; + +LOGCFG_VALUE_GROUP sockLogMaskMapCtrl = + { + {NULL,NULL}, + "SocketLogMasks", /* Parent Tag */ + sizeof(sockLogMaskMaps)/sizeof(LOGCFGX_VALUE_MAP), + sockLogMaskMaps + }; +#endif /* DEBUG_SISCO */ + +SD_CONST ST_CHAR *SD_CONST SOCK_LOG_FLOW_TEXT = "SOCK_LOG_FLOW"; +SD_CONST ST_CHAR *SD_CONST SOCK_LOG_NERR_TEXT = "SOCK_LOG_NERR"; +SD_CONST ST_CHAR *SD_CONST SOCK_LOG_ERR_TEXT = "SOCK_LOG_ERR"; +SD_CONST ST_CHAR *SD_CONST SOCK_LOG_RX_TEXT = "SOCK_LOG_RX"; +SD_CONST ST_CHAR *SD_CONST SOCK_LOG_TX_TEXT = "SOCK_LOG_TX"; + + +/************************************************************************/ +/* variables */ +GEN_SOCK_CTXT *sockCtxList; + +/* disconnectReason strings for logging */ +ST_CHAR *sockDisconnReasonStr[] = + { + "DISCONNECT REASON: UNKNOWN", /* 0 */ + "DISCONNECT REASON: CONNECT_FAILED", /* 1 */ + "DISCONNECT REASON: USR_REFUSED", /* 2 */ + "DISCONNECT REASON: SEND_FAILURE", /* 3 */ + "DISCONNECT REASON: RECV_FAILED", /* 4 */ + "DISCONNECT REASON: ACCEPT_FAILED", /* 5 */ + "DISCONNECT REASON: SOCKET CLOSED", /* 6 */ + "DISCONNECT REASON: TERMINATING", /* 7 */ + "DISCONNECT REASON: RESOURCES_ERROR", /* 8 */ + "DISCONNECT REASON: INTERNAL_ERROR", /* 9 */ + "DISCONNECT REASON: NORMAL_DISCONNECT", /* 10 */ + /* disconnectReason for SSL connection */ + "DISCONNECT REASON: SSLE_LICENSE", /* 11 */ + "DISCONNECT REASON: SSLE_INT_ERR", /* 12 */ + "DISCONNECT REASON: REKEY_FAILED", /* 13 */ + "DISCONNECT REASON: CERT_VERIFY_ERR", /* 14 */ + "DISCONNECT REASON: CERT_ON_CRL", /* 15 */ + "DISCONNECT REASON: SEC_PARAM_ERR", /* 16 */ + }; + +ST_INT sockDisconnReasonStrCnt = sizeof (sockDisconnReasonStr)/sizeof (ST_CHAR *); + +/************************************************************************/ +/* Static functions and macros */ + +#if defined(GENSOCK_THREAD_SUPPORT) + static ST_THREAD_RET ST_THREAD_CALL_CONV _sockServiceThread (ST_THREAD_ARG pArg); + static ST_RET _sockAddServiceThread (GEN_SOCK_CTRL *serviceCtrl); +#endif + + +static GEN_SOCK_CTRL *_sockAddServiceCtrl (GEN_SOCK_CTXT *sockCtx); +static ST_RET _sockAccept (GEN_SOCK *pListenSock); +static ST_INT _sockCheckRxData (GEN_SOCK *pSock); +static ST_VOID _sockServiceDiscardSock (GEN_SOCK_CTRL *serviceCtrl, GEN_SOCK *pSock); + + + +/************************************************************************/ +/* sockStart */ +/* This function initializes the gensock2 for use in new context and */ +/* sets the sockCtxOut pointer if the initialization is successful. */ +/* Returns: */ +/* SD_SUCCESS (0) context initialized */ +/* SD_FAILURE otherwise */ +/************************************************************************/ + +ST_RET sockStart (ST_CHAR *ctxName, GEN_SOCK_CTXT **sockCtxOut) + { +ST_RET rc; + + rc = sockStartEx (ctxName, sockCtxOut, SD_FALSE); + return (rc); + } + + +ST_RET sockStartEx (ST_CHAR *ctxName, GEN_SOCK_CTXT **sockCtxOut, ST_BOOLEAN log_disable) + { +static ST_UINT ctxId = 0; +GEN_SOCK_CTXT *sockCtx = NULL; +GEN_SOCK_CTRL *serviceCtrl = NULL; +ST_RET rc = SD_SUCCESS; + + if (ctxId == 0) + { + /* do not put any logging above */ + #if DEBUG_SISCO + sock_debug_sel |= SOCK_LOG_ERR; + #endif + + #ifdef _WIN32 + { + ST_INT wRet; + WSADATA wsaData; /* WinSock data */ + /* init WinSock interface */ + if (wRet = WSAStartup(0x0202, &wsaData)) + { + SOCK_LOG_ERR2 (sockCtx, "Can't initialize WinSock interface to use version 2.2 (error=%d) for context '%s'", + (ctxName ? ctxName : ""), wRet); + return (SD_FAILURE); + } + } + #else /* UNIX,... */ + signal (SIGPIPE, SIG_IGN); + #endif + + ++ctxId; + } /* if firstTime */ + + sockCtx = (GEN_SOCK_CTXT *)chk_calloc (1, sizeof (GEN_SOCK_CTXT)); + sockCtx->log_disable = log_disable; + sockCtx->ctxId = ctxId++; + sprintf(sockCtx->ctxName, "%s(ctxId=%u)", (ctxName ? ctxName : ""), sockCtx->ctxId); + #if defined(GENSOCK_THREAD_SUPPORT) + sockCtx->gs_select_timeout = 100000; /* 10 seconds */ + sockCtx->gs_wakeup_port = 55050; /* up to 100 ports will be tried starting with this one */ + /* already false + sockCtx->gTerminateService = SD_FALSE; + sockCtx->gTerminateFree = SD_FALSE; + */ + #endif /* defined(GENSOCK_THREAD_SUPPORT) */ + + SOCK_LOG_FLOW1 (sockCtx, "%s: sockStart() initialization pending...", sockCtx->ctxName); + + /* Start with one service control */ + serviceCtrl = _sockAddServiceCtrl (sockCtx); + + /*printf("GENSOCK_THREAD_SUPPORT...\n");*/ + + #if defined(GENSOCK_THREAD_SUPPORT) + /* Start the service control thread */ + //printf("_sockAddServiceThread 1...\n"); + rc = _sockAddServiceThread (serviceCtrl); + if (rc != SD_SUCCESS) + { + S_LOCK_UTIL_RESOURCES (); + list_unlink (&sockCtx->sockServiceList, serviceCtrl); + S_UNLOCK_UTIL_RESOURCES (); + chk_free (serviceCtrl); + chk_free (sockCtx); + return (rc); + } + #endif + + S_LOCK_UTIL_RESOURCES (); + list_add_last (&sockCtxList, sockCtx); + S_UNLOCK_UTIL_RESOURCES (); + + SOCK_LOG_FLOW1 (sockCtx, "%s: sockStart() successful", sockCtx->ctxName); + *sockCtxOut = sockCtx; + + return (rc); + } + +/************************************************************************/ +/* sockEnd */ +/* This function cleans up all resources aquired by the sockCtx and */ +/* removes the sockCtx from the list. */ +/* All context specific threads need to terminate before this function */ +/* will return. */ +/* Returns: */ +/* SD_SUCCESS (0) context released */ +/* SD_FAILURE otherwise */ +/************************************************************************/ + +#if defined(_WIN32) + #define MAX_THREAD_END_WAIT INFINITE +#else /* UNIX, Linux,... */ + #define MAX_THREAD_END_WAIT -1 /* gs_thread_wait ignores this param (waits indefinitely) */ +#endif + + +ST_RET sockEnd (GEN_SOCK_CTXT *sockCtx) + { +GEN_SOCK_CTRL *serviceCtrl; +#if !defined(GENSOCK_THREAD_SUPPORT) +GEN_SOCK *pSock; +#endif +#if defined(GENSOCK_THREAD_SUPPORT) +ST_RET rc; +#endif + + SOCK_LOG_FLOW1 (sockCtx, "%s: sockEnd() pending...", sockCtx->ctxName); + + sockCtx->ctxStatus = GEN_SOCK_CTX_TERMINATING; /* prevent adding new sockets to serviceCtrl(s) */ + +/* First let's terminate terminate all service threads and the free thread */ +#if defined(GENSOCK_THREAD_SUPPORT) + /* Set flag for service threads to terminate, then wake them */ + sockCtx->gTerminateService = SD_TRUE; + sockServiceWakeAll (sockCtx); + + /* Wait for all service threads to terminate */ + serviceCtrl = sockCtx->sockServiceList; + while (serviceCtrl != NULL) + { + if (serviceCtrl->tIdService) + { + rc = gs_wait_thread (serviceCtrl->thService, serviceCtrl->tIdService, MAX_THREAD_END_WAIT); + rc = gs_close_thread (serviceCtrl->thService); + serviceCtrl->tIdService = 0; + } + S_LOCK_UTIL_RESOURCES (); + list_unlink (&sockCtx->sockServiceList, serviceCtrl); + S_UNLOCK_UTIL_RESOURCES (); + if (serviceCtrl->serviceEvent) + gs_free_event_sem (serviceCtrl->serviceEvent); + CLOSE_SOCKET (serviceCtrl->xCallingSock); + CLOSE_SOCKET (serviceCtrl->xCalledSock); + chk_free (serviceCtrl); + serviceCtrl = sockCtx->sockServiceList; /* remove from front */ + } + +#else /* !defined(GENSOCK_THREAD_SUPPORT) */ + /* Polled mode */ + /* Clean up the service controls */ + serviceCtrl = sockCtx->sockServiceList; + while (serviceCtrl != NULL) + { + /* Close all sockets associated with the service control */ + while (serviceCtrl->sockList) + { + pSock = serviceCtrl->sockList; + pSock->disconnectReason = GS_DISCONNECT_TERMINATING; + sockClose (pSock); + } + + list_unlink (&sockCtx->sockServiceList, serviceCtrl); + chk_free (serviceCtrl); + serviceCtrl = sockCtx->sockServiceList; /* remove from front */ + } +#endif /* !defined(GENSOCK_THREAD_SUPPORT) */ + + SOCK_LOG_FLOW1 (sockCtx, "%s: sockEnd() complete", sockCtx->ctxName); + + /* delete the context */ + S_LOCK_UTIL_RESOURCES (); + list_unlink (&sockCtxList, sockCtx); + S_UNLOCK_UTIL_RESOURCES (); + chk_free (sockCtx); + + return (SD_SUCCESS); + } + +/************************************************************************/ +/************************************************************************/ +/* sockInitCalling */ +/************************************************************************/ + +ST_RET sockInitCalling (GEN_SOCK_CTXT *sockCtx, GEN_SOCK_CONFIG *sockCfg, + ST_UINT16 portNo, ST_CHAR *ipAddr, + GEN_SOCK **pSockOut) + { +GEN_SOCK *pSock; +SOCKET hSock; +struct hostent *pHost; +int sRet; +ST_RET rc; +int err; + + SOCK_LOG_FLOW2 (sockCtx, "in sockInitCalling() to ipAddr=%s portNo=%u", + ipAddr, (ST_UINT) portNo); + + if (sockCtx->ctxStatus == GEN_SOCK_CTX_TERMINATING) + { + /* prevent adding new sockets to serviceCtrl */ + SOCK_LOG_NERR1 (sockCtx, "sockInitCalling failed in context '%s' is terminating", sockCtx->ctxName); + return (SD_FAILURE); + } + + hSock = socket (AF_INET, SOCK_STREAM, IPPROTO_TCP); + if (hSock == INVALID_SOCKET) + { + err = SOCKET_ERRORNO; + SOCK_LOG_ERR1 (sockCtx, "socket() returned INVALID_SOCKET, errno=%d.", err); + return (err); + } +#if !defined(_WIN32) + if (hSock >= FD_SETSIZE) + { /* Can't use this socket because illegal to use in "select" call*/ + SOCK_LOG_ERR1 (sockCtx, "Socket: socket num %d >= FD_SETSIZE (can not be used in select)," + " closing socket.", hSock); + CLOSE_SOCKET (hSock); + return (SD_FAILURE); + } +#endif + + pSock = _sockAllocSock (sockCtx, GS_ROLE_CALLING, GS_STATE_CONNECTING, hSock, sockCfg); + SOCK_LOG_FLOW1 (sockCtx, "%s: socket initialized", pSock->sockIdStr); + *pSockOut = pSock; + +/* Set up the socket address */ + if (strchr(ipAddr, '.') != NULL) /* dotted address format */ + { + pSock->sockAddrIn.sin_family = AF_INET; + pSock->sockAddrIn.sin_addr.s_addr = inet_addr (ipAddr); + } + else /* host address format, get dotted address */ + { + pHost = gethostbyname (ipAddr); + if (pHost == NULL) + { + err = SOCKET_ERRORNO; + SOCK_LOG_NERR2 (sockCtx, "%s: gethostbyname() failed for host='%s'", pSock->sockIdStr, ipAddr); + CLOSE_SOCKET (pSock->hSock); + chk_free (pSock); + return (err); + } + pSock->sockAddrIn.sin_family = pHost->h_addrtype; + pSock->sockAddrIn.sin_addr.s_addr = ((struct in_addr *)(pHost->h_addr))->s_addr; + } + pSock->sockAddrIn.sin_port = htons (portNo); + +/* Do non-blocking connect */ + sRet = connect (pSock->hSock, (struct sockaddr *)&pSock->sockAddrIn, + sizeof(pSock->sockAddrIn)); + if (sRet >= 0) + { + /* DEBUG: This code probably never executes because socket is non-blocking. */ + SOCK_LOG_FLOW1 (sockCtx, "%s: socket connected", pSock->sockIdStr); + pSock->sockState = GS_STATE_CONNECTED; + pSock->sockStats.activeTime = time (NULL); + + /* add new socket to service list and then call uSockConnect fun, */ + /* the sockAddSock may start new thread that will receive data before */ + /* the uSockConnect is called, LOCK is needed to prevent this scenario */ + S_LOCK_UTIL_RESOURCES (); + rc = _sockAddSock (pSock); /* Add to a service list */ + if (rc == SD_SUCCESS) + { + if (pSock->sockCfg.secConnectProc == NULL) + rc = (*pSock->sockCfg.uSockConnectConf)(pSock); + else + rc = (*pSock->sockCfg.secConnectProc)(pSock); + if (rc != SD_SUCCESS) + { + /* user does not want this connection */ + pSock->usrCloseCalled = SD_TRUE; /* don't call uSockDisconnect */ + sockClose (pSock); + sockFree (pSock); + /* DEBUG EJV: added this return, otherwise SD_SUCCESS was returned */ + return (SD_FAILURE); + } + } + else + { + SOCK_LOG_FLOW1 (sockCtx, "%s: closing socket connections", pSock->sockIdStr); + CLOSE_SOCKET (pSock->hSock); + chk_free (pSock); + /* DEBUG EJV: added this return, otherwise SD_SUCCESS was returned */ + return (SD_FAILURE); + } + S_UNLOCK_UTIL_RESOURCES (); + } + else + { + err = SOCKET_ERRORNO; + if (err == SOCK_WOULDBLOCK || err == SOCK_INPROGRESS) + { + rc = _sockAddSock (pSock); /* Add to a service list */ + if (rc != SD_SUCCESS) + { + /* since socket is not connected we can use the system socket close */ + CLOSE_SOCKET (pSock->hSock); + chk_free (pSock); + return (SD_FAILURE); + } + } + else + { + SOCK_LOG_NERR4 (sockCtx, "%s: connect() to host=%s failed, port=%d, errno=%d", + pSock->sockIdStr, ipAddr, portNo, err); + CLOSE_SOCKET (pSock->hSock); + chk_free (pSock); + return (SD_FAILURE); + } + } + + return (SD_SUCCESS); + } + +/************************************************************************/ +/************************************************************************/ +/* sockInitListen */ +/* Returns: */ +/* SD_SUCCESS (0) listen socket initialized */ +/* SD_FAILURE or errno otherwise */ +/************************************************************************/ +ST_RET sockInitListen (GEN_SOCK_CTXT *sockCtx, GEN_SOCK_CONFIG *sockCfg, + ST_UINT16 portNo, ST_INT maxActive, + GEN_SOCK **pListenSockOut) + { +ST_RET rc; +GEN_SOCK *pListenSock; +ST_INT listenBacklog; +int sRet; +SOCKET hSock; +struct sockaddr_in localAddr; +int err; + +int sockopt_on = 1; +int keep_idle,keep_interval,keep_count; +struct timeval TimeOut; + + + if (sockCtx->ctxStatus == GEN_SOCK_CTX_TERMINATING) + { + /* prevent adding new sockets to serviceCtrl */ + SOCK_LOG_NERR1 (sockCtx, "%s: sockInitListen() failed, context is terminating", sockCtx->ctxName); + return (SD_FAILURE); + } + + hSock = socket (AF_INET, SOCK_STREAM, IPPROTO_TCP); + if (hSock == INVALID_SOCKET) + { + err = SOCKET_ERRORNO; + SOCK_LOG_ERR2 (sockCtx, "%s: socket() failed for listen socket, errno=%d", sockCtx->ctxName, err); + return (err); + } + + /* renxiaobao ÍøÂç´æ»îʱ¼ä */ + sockopt_on = 1; /* ÊÇ·ñÆôÓÃKEEPALIVE */ + keep_idle = 30; /* µ±Ã»ÓÐÊý¾Ý°ü´«Êäºó£¬µÈ¶àÉÙÃ뿪ʼKEEPALIVE */ + keep_interval = 5; /* ·¢ËÍKEEPALIVE°üµÄʱ¼ä¼ä¸ô */ + keep_count = 5; /* Á¬Ðø¶àÉÙ¸öKEEPALIVE°üûӦ´ð¾Í¶Ï¿ªTCPÁ¬½Ó */ + if(setsockopt (hSock, SOL_SOCKET, SO_KEEPALIVE,(char *) &sockopt_on, sizeof (int))) + { + printf ("Error setting KEEPALIVE socket option"); + } +#if defined(linux) ||defined(VXWORKS) + if(setsockopt(hSock, IPPROTO_TCP, TCP_KEEPIDLE, (char *)&keep_idle, sizeof(int))) /* IPPROTO_TCP »ò SOL_TCP*/ + { + printf ("Error setting KEEPIDLE socket option"); + } + if(setsockopt(hSock, IPPROTO_TCP, TCP_KEEPCNT, (char *)&keep_count, sizeof(int))) + { + printf ("Error setting KEEPCNT socket option"); + } + if(setsockopt(hSock, IPPROTO_TCP, TCP_KEEPINTVL,(char *)&keep_interval, sizeof(int))) + { + printf ("Error setting KEEPINTVL socket option"); + } +#endif + +#if !defined(_WIN32) + if (hSock >= FD_SETSIZE) + { /* Can't use this socket because illegal to use in "select" call*/ + SOCK_LOG_ERR2 (sockCtx, "%s: socket() returned socket num %d >= FD_SETSIZE " + "(can not be used in select), closing socket.", sockCtx->ctxName, hSock); + CLOSE_SOCKET (hSock); + return (SD_FAILURE); + } +#endif + + pListenSock = _sockAllocSock (sockCtx, GS_ROLE_LISTENING, GS_STATE_LISTENING, + hSock, sockCfg); + SOCK_LOG_FLOW1 (sockCtx, "%s: initializing listen socket", pListenSock->sockIdStr); + *pListenSockOut = pListenSock; + pListenSock->maxActive = maxActive; + + memset((char *)(&localAddr), 0, sizeof(localAddr)); + localAddr.sin_family = AF_INET; + localAddr.sin_port = htons(portNo); + localAddr.sin_addr.s_addr = htonl (INADDR_ANY); + sRet = bind (pListenSock->hSock, (struct sockaddr *)&localAddr, sizeof(localAddr)); + if (sRet != 0) + { + err = SOCKET_ERRORNO; + SOCK_LOG_NERR4 (sockCtx, "%s: listen socket bind() error on port=%u, errno=%d %s", + pListenSock->sockIdStr, (ST_UINT) portNo, err, + (err == SOCK_EADDRINUSE) ? "(port in use)" : " "); + CLOSE_SOCKET (pListenSock->hSock); + chk_free (pListenSock); + return (err); + } + SOCK_LOG_FLOW1 (sockCtx, "%s: listen socket bind() OK", pListenSock->sockIdStr); + + if (pListenSock->sockCfg.listenBacklog == 0) + listenBacklog = SOMAXCONN; + else + listenBacklog = pListenSock->sockCfg.listenBacklog; + + sRet = listen (pListenSock->hSock, listenBacklog); + if (sRet != 0) + { + err = SOCKET_ERRORNO; + SOCK_LOG_NERR2 (sockCtx, "%s: listen() failed, errno=%d", pListenSock->sockIdStr, err); + CLOSE_SOCKET (pListenSock->hSock); + chk_free (pListenSock); + return (err); + } + + /* Add to a service list */ + rc = _sockAddSock (pListenSock); + if (rc != SD_SUCCESS) + { + CLOSE_SOCKET (pListenSock->hSock); + chk_free (pListenSock); + } + else + SOCK_LOG_FLOW2 (sockCtx, "%s: listen started on port=%d", pListenSock->sockIdStr, portNo); + + return (rc); + } + +/************************************************************************/ +/* sockTxMsg */ +/* Send complete message. Some data may be queued for later delivery. */ +/* "sockTxQueueProc" must be called periodically to send any data that */ +/* has been queued up. */ +/************************************************************************/ +ST_RET sockTxMsg (GEN_SOCK *pSock, GEN_SOCK_DATA *sockData) + { +ST_RET retVal; + + retVal = sockTxQueueAdd (pSock, sockData, SD_FALSE); /* queue data */ + if (retVal==SD_SUCCESS) + retVal = sockTxQueueProc (pSock); /* send what we can from queue */ + return (retVal); + } + +/************************************************************************/ +/* sockTxQueueAdd */ +/* Queue data for later delivery. */ +/* "sockTxQueueProc" must be called periodically to send any data that */ +/* has been queued up. */ +/************************************************************************/ +ST_RET sockTxQueueAdd (GEN_SOCK *pSock, GEN_SOCK_DATA *sockData, ST_BOOLEAN first) + { +GEN_SOCK_CTXT *sockCtx; +ST_RET retVal; + + sockCtx = pSock->sockCtx; + +/* Put on our pending send list */ + + S_LOCK_UTIL_RESOURCES (); + if (first) + retVal = list_add_first (&pSock->sockTxPend, sockData); + else + retVal = list_add_last (&pSock->sockTxPend, sockData); + if (retVal == SD_SUCCESS) + { + if (sockData->eot) + ++pSock->sockTxQueueGroupCnt; + } + else + /* user expects that sockTxMsg will free the sockData buff in any case */ + (*pSock->sockCfg.uSockTxBufFree) (pSock, sockData); + S_UNLOCK_UTIL_RESOURCES (); + + return (retVal); + } + +/************************************************************************/ +/* sockTxQueueDestroy */ +/* Free all queued messages. */ +/************************************************************************/ +ST_RET sockTxQueueDestroy (GEN_SOCK *pSock) + { +GEN_SOCK_CTXT *sockCtx; +GEN_SOCK_DATA *sockData; + + sockCtx = pSock->sockCtx; + +/* Free all queued messages from list */ + S_LOCK_UTIL_RESOURCES (); + while (pSock->sockTxPend != NULL) + { + sockData = pSock->sockTxPend; + list_unlink (&pSock->sockTxPend, sockData); + (*pSock->sockCfg.uSockTxBufFree) (pSock, sockData); + } + pSock->sockTxQueueGroupCnt = 0; + S_UNLOCK_UTIL_RESOURCES (); + + return (SD_SUCCESS); + } + +/************************************************************************/ +/* sockTxQueueProc */ +/* Must be called periodically to send any data queued up by calls to */ +/* "sockTxQueueAdd". */ +/************************************************************************/ +ST_RET sockTxQueueProc (GEN_SOCK *pSock) + { +GEN_SOCK_CTXT *sockCtx; +GEN_SOCK_DATA *sockData; +ST_INT numSent; +ST_RET rc = SD_SUCCESS; + + sockCtx = pSock->sockCtx; + + S_LOCK_UTIL_RESOURCES (); + +/* Send as much data as possible */ + while (pSock->sockTxPend != NULL) + { + sockData = pSock->sockTxPend; + rc = sockTx (pSock, sockData, &numSent); + if (rc == SD_SUCCESS) + { + if (numSent == sockData->dataLen) + { + /* OK, we were able to send the rest of the buffer */ + ++pSock->sockStats.numSend; /* num of RFC1006 msgs sent */ + list_unlink (&pSock->sockTxPend, sockData); + if (sockData->eot) + { + if (pSock->sockTxQueueGroupCnt > 0 ) + --pSock->sockTxQueueGroupCnt; /* tx last msg from a group */ + else + SOCK_LOG_ERR1 (sockCtx, "%s: tx queue count invalid.", pSock->sockIdStr); + } + (*pSock->sockCfg.uSockTxBufFree) (pSock, sockData); + } + else + { + /*printf("numSent(%d) != sockData->dataLen(%d)\n",numSent , sockData->dataLen);*/ + /* Prepare for next send attempt */ + sockData->data += numSent; + sockData->dataLen -= numSent; + /* Stop trying to send */ + break; + } + } + else /* Send error */ + { + SOCK_LOG_NERRC1 (sockCtx, "%s: sockTx() failed, emptying send queue.", pSock->sockIdStr); + /* printf(sockCtx, "%s: sockTx() failed, emptying send queue.", pSock->sockIdStr);*/ + /* Free all queued send data ... */ + sockTxQueueDestroy (pSock); + break; + } + } + S_UNLOCK_UTIL_RESOURCES (); + return (rc); + } + +/************************************************************************/ +/* sockTxQueueGroupCntGet */ +/************************************************************************/ +ST_UINT sockTxQueueGroupCntGet (GEN_SOCK *pSock) + { +GEN_SOCK_CTXT *sockCtx; +ST_UINT queCnt; + + sockCtx = pSock->sockCtx; + + S_LOCK_UTIL_RESOURCES (); + queCnt = pSock->sockTxQueueGroupCnt; + S_UNLOCK_UTIL_RESOURCES (); + + return (queCnt); + } + +/************************************************************************/ +/************************************************************************/ +/* sockTx */ +/************************************************************************/ + +ST_RET sockTx (GEN_SOCK *pSock, GEN_SOCK_DATA *sockData, ST_INT *numSentOut) + { +GEN_SOCK_CTXT *sockCtx; +ST_RET ret; + + sockCtx = pSock->sockCtx; + + if (pSock->sockState != GS_STATE_CONNECTED) + { + SOCK_LOG_NERR2 (sockCtx, "%s: sockTx() failed, socket not connected sockState=%d", + pSock->sockIdStr, pSock->sockState); + return (SD_FAILURE); + } + + if (pSock->sockCfg.secTxProc == NULL) + ret = _sockTx (pSock, sockData, numSentOut); + else + ret = (*pSock->sockCfg.secTxProc) (pSock, sockData, numSentOut); + + return (ret); + } + +/************************************************************************/ +/* _sockTx */ +/************************************************************************/ + +ST_RET _sockTx (GEN_SOCK *pSock, GEN_SOCK_DATA *sockData, ST_INT *numSentOut) + { +GEN_SOCK_CTXT *sockCtx; +ST_INT numSent; +ST_INT err; + + sockCtx = pSock->sockCtx; + +#ifdef SOCK_FLOW_PRINT /* DEBUG: enable this to see data flow. */ + printf ("|"); +#endif + SOCK_LOG_FLOW2 (sockCtx, "%s: _sockTx() request to send %d bytes", + pSock->sockIdStr, sockData->dataLen); + numSent = (ST_INT) send (pSock->hSock, sockData->data, sockData->dataLen, 0); + if (numSent >= 0) /* Success ? */ + { + SOCK_LOG_FLOWC3 (sockCtx, "%s: _sockTx() sent %d vs. %d requested", + pSock->sockIdStr, numSent, sockData->dataLen); + if (numSent < sockData->dataLen) + { + pSock->sockCfg.chkWritable = SD_TRUE; + sockServiceWake (pSock->serviceCtrl); + } + *numSentOut = numSent; + /* save the time of last successful data transfer activity on the socket */ + if (numSent > 0 && sockCtx->maxIdleTime > 0) + pSock->sockStats.lastActivityTime = sGetMsTime(); + return (SD_SUCCESS); + } + else + { + err = SOCKET_ERRORNO; + switch (err) + { + case SOCK_WOULDBLOCK: + case SOCK_NOBUFS: + case SOCK_INTR: + case SOCK_INPROGRESS: + case SOCK_TIMEDOUT: + SOCK_LOG_FLOWC2 (sockCtx, "%s: _sockTx sent 0, error (%d), no send buffers?", + pSock->sockIdStr, err); + pSock->sockCfg.chkWritable = SD_TRUE; + sockServiceWake (pSock->serviceCtrl); + *numSentOut = 0; + return (SD_SUCCESS); + break; + + default: + SOCK_LOG_NERR2 (sockCtx, "%s: socket send() error (%d)", pSock->sockIdStr, err); + break; + } + } + + S_LOCK_UTIL_RESOURCES (); + if (pSock->sockState == GS_STATE_CONNECTED) + { + pSock->disconnectReason = GS_DISCONNECT_SEND_FAILURE; + sockClose (pSock); /* Close and wake the service thread */ + } + S_UNLOCK_UTIL_RESOURCES (); + return (SD_FAILURE); + } + +/************************************************************************/ +/* sockClose */ +/************************************************************************/ + +ST_RET sockClose (GEN_SOCK *pSock) + { +GEN_SOCK_CTXT *sockCtx; + + + sockCtx = pSock->sockCtx; + SOCK_LOG_FLOW1 (sockCtx, "%s: in sockClose()", pSock->sockIdStr); + + S_LOCK_UTIL_RESOURCES (); + if (pSock->sockState != GS_STATE_CLOSED) + { + pSock->sockState = GS_STATE_CLOSED; + + /* On AIX the close() will not return until select() returns. */ + /* Wake the service thread (or terminate the select) */ + if (pSock->serviceCtrl) /* sockClose maybe called when serviceCtrl=NULL */ + sockServiceWake (pSock->serviceCtrl); + + CLOSE_SOCKET (pSock->hSock); + pSock->hSock = INVALID_SOCKET; /* make sure handle not used anymore */ + + /* Discard all events for this socket */ + sockEventQueueFlush (sockCtx, pSock); + + /* Done with this socket. Remove it from service list. */ + _sockServiceDiscardSock (pSock->serviceCtrl, pSock); + } + S_UNLOCK_UTIL_RESOURCES (); + return SD_SUCCESS; + } + +/************************************************************************/ +/* sockFree */ +/************************************************************************/ +/* Must be called after (or from) disconnect callback */ + +ST_RET sockFree (GEN_SOCK *pSock) + { +GEN_SOCK_CTXT *sockCtx; + + sockCtx = pSock->sockCtx; + SOCK_LOG_FLOW1 (sockCtx, "%s: in sockFree()", pSock->sockIdStr); + + if (pSock->sockState != GS_STATE_CLOSED) + { + SOCK_LOG_NERR1 (sockCtx, "%s: socket state not closed, can't free", pSock->sockIdStr); + return (SD_FAILURE); + } + + if (pSock->sockCfg.secSockFree != NULL) + (*pSock->sockCfg.secSockFree) (pSock); + + /* We can free this socket if: */ + /* 1. It is not a listen socket, or */ + /* 2. It is a listen socket with no called socket references */ + + /* protect numActive */ + S_LOCK_UTIL_RESOURCES (); + /* release any queued data buffers */ + sockTxQueueDestroy (pSock); + if (pSock->role == GS_ROLE_LISTENING && pSock->numActive != 0) + { + /* can happen when exiting */ + SOCK_LOG_NERR2 (sockCtx, "%s: Can't free listening GEN_SOCK " S_FMT_PTR " (pointer still in use)", + pSock->sockIdStr, pSock); + } + else + { + SOCK_LOG_FLOW2 (sockCtx, "%s: freeing GEN_SOCK " S_FMT_PTR ".", pSock->sockIdStr, pSock); + chk_free (pSock); + } + S_UNLOCK_UTIL_RESOURCES (); + return SD_SUCCESS; + } + +/************************************************************************/ +/* _sockAddServiceCtrl */ +/************************************************************************/ + +static GEN_SOCK_CTRL *_sockAddServiceCtrl (GEN_SOCK_CTXT *sockCtx) + { +GEN_SOCK_CTRL *serviceCtrl; + + serviceCtrl = (GEN_SOCK_CTRL *) chk_calloc (1, sizeof (GEN_SOCK_CTRL)); + serviceCtrl->sockCtx = sockCtx; + S_LOCK_UTIL_RESOURCES (); + list_add_last (&sockCtx->sockServiceList, serviceCtrl); + S_UNLOCK_UTIL_RESOURCES (); + return (serviceCtrl); + } + + +/************************************************************************/ +/* sockServiceWakeAll */ +/************************************************************************/ + +ST_VOID sockServiceWakeAll (GEN_SOCK_CTXT *sockCtx) + { +#if defined(GENSOCK_THREAD_SUPPORT) +GEN_SOCK_CTRL *serviceCtrl; + + serviceCtrl = sockCtx->sockServiceList; + while (serviceCtrl != NULL) + { + sockServiceWake (serviceCtrl); + serviceCtrl = (GEN_SOCK_CTRL *) list_get_next (sockCtx->sockServiceList, serviceCtrl); + } +#endif + } + +/************************************************************************/ +/* sockServiceWake */ +/************************************************************************/ + +ST_VOID sockServiceWake (GEN_SOCK_CTRL *serviceCtrl) + { +#if defined(GENSOCK_THREAD_SUPPORT) +GEN_SOCK_CTXT *sockCtx; +ST_INT numSent; +static ST_UCHAR wakeupData = 1; + + if (!serviceCtrl) + return; + sockCtx = serviceCtrl->sockCtx; + +/* Be sure it was not set NULL */ + if (serviceCtrl == NULL) + return; + + if (serviceCtrl->serviceEvent) + gs_signal_event_sem (serviceCtrl->serviceEvent); + if (serviceCtrl->xCalledSock == 0) + return; + +/* OK, there is a wakeup port for this sock service */ + numSent = (ST_INT) send (serviceCtrl->xCalledSock, &wakeupData, sizeof(wakeupData), 0); + if (numSent == sizeof (wakeupData)) + { + SOCK_LOG_FLOW2 (sockCtx, "%s: XSocket sent %d wakeup bytes", sockCtx->ctxName, numSent); + } + else + { + /* when a lot of packets are received in short time, EWOULDBLOCK and EAGAIN */ + /* errors could happen often with this 1-byte packets */ + SOCK_LOG_FLOW3 (sockCtx, "%s: XSocket wakeup data send() error, errno=%d", + sockCtx->ctxName, numSent, SOCKET_ERRORNO); + } + ++wakeupData; +#endif + } + + +/************************************************************************/ +/* sockCheckForIdleConns */ +/*----------------------------------------------------------------------*/ +/* Check for idle connections if the tcpMaxIdleTime >0. */ +/* Calling/called connections are closed if there is no activity tx/rx */ +/* for this period of time. The checking will be performed with the */ +/* frequency of 30 seconds. */ +/************************************************************************/ +#define GS_IDLE_CON_CHECK_FREQENCY ((ST_DOUBLE)(30*1000)) /* ms */ +float sock_sts_lastCheckTimer=0; +static ST_RET sockCheckForIdleConns (GEN_SOCK_CTRL *serviceCtrl) + { +ST_DOUBLE currTime; +ST_UINT maxIdleTime; +int index=0; +GEN_SOCK *pSock; +GEN_SOCK *pSockNext; +GEN_SOCK_CTXT *sockCtx; + + + if (!serviceCtrl || !serviceCtrl->sockCtx) + return (SD_FAILURE); + + + sockCtx = serviceCtrl->sockCtx; + maxIdleTime = sockCtx->maxIdleTime; + + + + if (maxIdleTime == 0) + /* user do not want to check for idle TCP connections */ + return (SD_SUCCESS); + + if (serviceCtrl->lastCheckIdleTime == 0) + { + /* starting, initialize the lastCheckedTime */ + serviceCtrl->lastCheckIdleTime = sGetMsTime (); + return (SD_SUCCESS); + } + currTime = sGetMsTime (); + if ((currTime - serviceCtrl->lastCheckIdleTime) < GS_IDLE_CON_CHECK_FREQENCY) + return (SD_SUCCESS); + + /* it is time to check the list of sockets for idle connections */ + S_LOCK_UTIL_RESOURCES (); /* CRITICAL: lock all access to sockList*/ + pSock = serviceCtrl->sockList; + while (pSock) + { + + + pSockNext = (GEN_SOCK *) list_get_next (serviceCtrl->sockList, pSock); + if (pSock->role != GS_ROLE_LISTENING) + { + if ((ST_UINT) (currTime - pSock->sockStats.lastActivityTime) >= maxIdleTime) + { + SOCK_LOG_NERR2 (sockCtx, "%s: closing idle socket, maxIdleTime=%u seconds reached.", + pSock->sockIdStr, maxIdleTime/1000); + printf("%s: closing idle socket, maxIdleTime=%u seconds reached.\r\n", + pSock->sockIdStr, maxIdleTime/1000); + sockClose (pSock); + } + } + pSock = pSockNext; + } + S_UNLOCK_UTIL_RESOURCES (); + + serviceCtrl->lastCheckIdleTime = currTime; + return (SD_SUCCESS); + } + +/************************************************************************/ +/* sockCtrlService */ +/************************************************************************/ +int sockCtrlService_pri=0; +int test_sockClose =0; /*test_sockClose=1;*/ +int ttt_t=0; +ST_INT sockCtrlService (GEN_SOCK_CTRL *serviceCtrl, ST_LONG timeOut) + { +GENSOCK_FD_SET sockFds; +struct timeval selectTimeout; +int nfds; +ST_INT retVal; +int index=0; +GEN_SOCK *pSock; +GEN_SOCK *pSockNext; + + /* CRITICAL: start with clean sockFds. */ + sockFds.totalfds = 0; + sockFds.selectnfds = 0; + sockFds.numReadfds = 0; + sockFds.numWritefds = 0; + sockFds.numExceptfds = 0; + FD_ZERO (&sockFds.readfds); + FD_ZERO (&sockFds.writefds); + FD_ZERO (&sockFds.exceptfds); + +/* Build the set of sockets to listen to */ + sockInitFds (serviceCtrl, &sockFds); + if (sockFds.totalfds == 0) + return (GS_SELECT_NO_ACTIVE_SOCK); + +/* Now wait for some activity */ + selectTimeout.tv_sec = timeOut / 1000; + selectTimeout.tv_usec = (timeOut % 1000) * 1000; + nfds = select (sockFds.selectnfds, &sockFds.readfds, &sockFds.writefds, &sockFds.exceptfds, &selectTimeout); + /*renxiaobao ²âÊÔ*/ + if((test_sockClose)||(nfds<0)) + { + test_sockClose=0; + S_LOCK_UTIL_RESOURCES (); + pSock = serviceCtrl->sockList; + while(pSock) + { + pSockNext=(GEN_SOCK *)list_get_next (serviceCtrl->sockList, pSock); + if(pSock->sockState!=GS_STATE_LISTENING) + { + SOCK_LOG_ERR3 (serviceCtrl->sockCtx, "sockClose(%d)(selectnfds=%d pSock->sockState=%d)", ++index,sockFds.selectnfds,pSock->sockState); + printf("sockClose(%d)(selectnfds=%d pSock->sockState=%d)\r\n", index,sockFds.selectnfds,pSock->sockState); + /* sockClose(pSock);*/ + } + pSock=pSockNext; + } + S_UNLOCK_UTIL_RESOURCES (); + serviceCtrl->lastCheckIdleTime=sGetMsTime (); + return (GS_SELECT_ERROR); + } + /*end*/ +if(sockCtrlService_pri) +{ + sockCtrlService_pri--; + printf("sockCtrlService nfds=%d %d timeOut=%d \r\n",nfds,serviceCtrl->sockList->sockState,timeOut); + index=0; + pSock = serviceCtrl->sockList; + while(pSock) + { + pSockNext=(GEN_SOCK *)list_get_next (serviceCtrl->sockList, pSock); + printf("sockState(%d)(pSock->sockState=%d)\r\n", index,pSock->sockState); + pSock=pSockNext; + } +} +/* +#define GS_STATE_LISTENING 1 +#define GS_STATE_STOPPING_LISTEN 2 +#define GS_STATE_FAILED_LISTEN 3 +#define GS_STATE_CONNECTING 4 +#define GS_STATE_CONNECTED 5 +#define GS_STATE_CLOSED 6 +*/ + +#if (defined(GENSOCK_THREAD_SUPPORT) && defined(__VMS)) + if (nfds > 0) + { + sys$cantim(10000, 0); /* that is sys$cantim(MICS_AST_WAITANYEVENT, 0); */ + sys$setef (101); /* that is sys$setef (MICS_FLAG_ACTIVITY) */ + } +#endif + +#if defined(GENSOCK_THREAD_SUPPORT) + { + GEN_SOCK_CTXT *sockCtx = serviceCtrl->sockCtx; +/* Make sure we are not supposed to terminate .. */ + if (sockCtx->gTerminateService == SD_TRUE) + return (GS_SELECT_TERMINATED); + } +#endif + + retVal = sockSelectResultProcess (serviceCtrl, nfds, &sockFds); + + /* check if there are idle sockets before we return */ + sockCheckForIdleConns (serviceCtrl); + + return (retVal); + } + + +#if !defined(GENSOCK_THREAD_SUPPORT) +/************************************************************************/ +/* sockInitAllFds */ +/* Initialize the GENSOCK_FD_SET struct for "all" sockets, so that */ +/* "select" call can include all sockets. */ +/* Assume there is only one entry on the linked list "sockCtx->sockServiceList" */ +/* and just use it. */ +/************************************************************************/ +ST_VOID sockInitAllFds (GENSOCK_FD_SET *sockFds) + { +GEN_SOCK_CTXT *sockCtx; + + + /* CRITICAL: start with clean sockFds. */ + sockFds->totalfds = 0; + sockFds->selectnfds = 0; + sockFds->numReadfds = 0; + sockFds->numWritefds = 0; + sockFds->numExceptfds = 0; + FD_ZERO (&sockFds->readfds); + FD_ZERO (&sockFds->writefds); + FD_ZERO (&sockFds->exceptfds); + + sockCtx = sockCtxList; + while (sockCtx) + { + assert (sockCtx->sockServiceList->l.next == (DBL_LNK *) sockCtx->sockServiceList); /* make sure only one on list*/ + sockInitFds (sockCtx->sockServiceList, sockFds); + + sockCtx = (GEN_SOCK_CTXT *)list_get_next (sockCtxList, sockCtx); + } + } +#endif /* !defined(GENSOCK_THREAD_SUPPORT) */ + +/************************************************************************/ +/* sockInitFds */ +/************************************************************************/ + +ST_VOID sockInitFds (GEN_SOCK_CTRL *serviceCtrl, GENSOCK_FD_SET *sockFds) + { +GEN_SOCK *pSock; +GEN_SOCK *pNextSock; +GEN_SOCK_CONFIG *sockCfg; +GEN_SOCK_CTXT *sockCtx; + + sockCtx = serviceCtrl->sockCtx; + +#if defined(GENSOCK_THREAD_SUPPORT) + if (serviceCtrl->xCallingSock) + sockAddReadFds (sockFds, serviceCtrl->xCallingSock); +#endif + + S_LOCK_UTIL_RESOURCES (); + pSock = serviceCtrl->sockList; + while (pSock) + { + pNextSock = (GEN_SOCK *) list_get_next (serviceCtrl->sockList, pSock); + + if (pSock->sockState == GS_STATE_CONNECTED) + { + sockCfg = &pSock->sockCfg; + if (sockCfg->pauseRecv == SD_FALSE) + sockAddReadFds (sockFds, pSock->hSock); + if (sockCfg->chkWritable) + sockAddWriteFds (sockFds, pSock->hSock); + } + else if (pSock->sockState == GS_STATE_CONNECTING) + { + sockAddWriteFds (sockFds, pSock->hSock); + sockAddExceptFds (sockFds, pSock->hSock); + } + else if (pSock->sockState == GS_STATE_LISTENING) + sockAddReadFds (sockFds, pSock->hSock); + + pSock = pNextSock; + } + S_UNLOCK_UTIL_RESOURCES (); + } + + +/************************************************************************/ +/* sockAddReadFds */ +/************************************************************************/ + +ST_VOID sockAddReadFds (GENSOCK_FD_SET *sockFds, SOCKET hSock) + { +#if !defined(_WIN32) + assert (hSock < FD_SETSIZE); /* FD_SET assumes this is true */ +#endif + FD_SET (hSock, &sockFds->readfds); + if ((hSock+1) > (sockFds->selectnfds)) + sockFds->selectnfds = (hSock+1); + + ++sockFds->numReadfds; + ++sockFds->totalfds; + } + +/************************************************************************/ +/* sockAddWriteFds */ +/************************************************************************/ + +ST_VOID sockAddWriteFds (GENSOCK_FD_SET *sockFds, SOCKET hSock) + { +#if !defined(_WIN32) + assert (hSock < FD_SETSIZE); /* FD_SET assumes this is true */ +#endif + FD_SET (hSock, &sockFds->writefds); + if ((hSock+1) > (sockFds->selectnfds)) + sockFds->selectnfds = (hSock+1); + + ++sockFds->numWritefds; + ++sockFds->totalfds; + } + +/************************************************************************/ +/* sockAddExceptFds */ +/************************************************************************/ + +ST_VOID sockAddExceptFds (GENSOCK_FD_SET *sockFds, SOCKET hSock) + { +#if !defined(_WIN32) + assert (hSock < FD_SETSIZE); /* FD_SET assumes this is true */ +#endif + FD_SET (hSock, &sockFds->exceptfds); + if ((hSock+1) > (sockFds->selectnfds)) + sockFds->selectnfds = (hSock+1); + + ++sockFds->numExceptfds; + ++sockFds->totalfds; + } + +/************************************************************************/ +/* sockSelectResultProcess */ +/* NOTE: this function closes the socket on any error. */ +/************************************************************************/ + +ST_INT sockSelectResultProcess (GEN_SOCK_CTRL *serviceCtrl, + int nfds, GENSOCK_FD_SET *sockFds) + { +GEN_SOCK_CTXT *sockCtx; +GEN_SOCK *pSock; +GEN_SOCK *pNextSock; +GEN_SOCK_CONFIG *sockCfg; +ST_RET rc; +ST_INT startState; +ST_INT err; +ST_RET sockErrorDetected; +#if defined(GENSOCK_THREAD_SUPPORT) +ST_CHAR bitBucket[100]; +ST_INT recvRet; +#endif + + sockCtx = serviceCtrl->sockCtx; + +/* Check for timeout */ + if (nfds == 0) + return (GS_SELECT_TIMEOUT); + +/* Check for error (may happen when sockets are closed while in select) */ + if (nfds < 0) + { + /* error */ + err = SOCKET_ERRORNO; + if (err == SOCK_INPROGRESS || err == SOCK_INTR) + return (GS_SELECT_ACTIVE); + +#if defined(GENSOCK_THREAD_SUPPORT) + + if ((err == SOCK_NOTSOCK || err == SOCK_INTR)) /* ? SOCK_INTR is above */ + /* If one or more sockets were closed by another thread, this error is expected.*/ + SOCK_LOG_FLOW2 (sockCtx, "%s: select() call failed." + " Expected if one or more sockets closed by another thread, errno=%d", + sockCtx->ctxName, err); + else + SOCK_LOG_ERR2 (sockCtx, "%s: select() call failed, errno=%d", sockCtx->ctxName, err); +#else + SOCK_LOG_ERR2 (sockCtx, "%s: select() call failed, errno=%d", sockCtx->ctxName, err); +#endif + return (GS_SELECT_ERROR); + } + + /* OK now we have got some data to read from at least one of the sockets */ + S_LOCK_UTIL_RESOURCES (); /* CRITICAL: lock all access to sockList*/ + pSock = serviceCtrl->sockList; + while (pSock && nfds > 0) + { + pNextSock = (GEN_SOCK *) list_get_next (serviceCtrl->sockList, pSock); + + sockErrorDetected = SD_FALSE; + sockCfg = &pSock->sockCfg; + + if (pSock->sockState == GS_STATE_CONNECTED) + { + /* Check for data or disconnect on this socket ... */ + if (FD_ISSET (pSock->hSock, &sockFds->readfds)) + { /* We have data or a disconnect */ + --nfds; + + startState = pSock->recvState; + if (_sockCheckRxData (pSock) != SD_SUCCESS) + sockErrorDetected = SD_TRUE; + } + + /* See if we are checking for writability too */ + if (!sockErrorDetected && sockCfg->chkWritable && FD_ISSET (pSock->hSock, &sockFds->writefds)) + { + SOCK_LOG_FLOW1 (sockCtx, "%s: socket is Writable", pSock->sockIdStr); + sockCfg->chkWritable = SD_FALSE; /* one-shot */ + if (sockCfg->secEnable == SD_FALSE) + (*sockCfg->uSockWritable)(pSock); + else + (*sockCfg->secWritable)(pSock); + } + } + else if (pSock->sockState == GS_STATE_CONNECTING) + { /* Check for activity on this socket ... */ + /* NOTE: On UNIX, LINUX, QNX the writefds is used to indicate that the */ + /* connection completed or failed. Must call the getsocketopt() */ + /* to check the connection status! */ + /* On Windows writefds set indicates successful connection */ + /* (exceptfds is used to indicate failed connection). */ + if (FD_ISSET (pSock->hSock, &sockFds->writefds)) + { +#if !defined(_WIN32) + SOCK_OPTLEN optlen; + ST_INT sRet; + ST_INT connError = 0; + + optlen = sizeof(connError); + sRet = getsockopt (pSock->hSock, SOL_SOCKET, SO_ERROR, (ST_CHAR *) &connError, &optlen); + if (sRet == 0) + { + if (connError != 0) + { + SOCK_LOG_FLOW2 (sockCtx, "%s: socket Connect failed. Error = %d", pSock->sockIdStr, connError); + pSock->disconnectReason = GS_DISCONNECT_CONNECT_FAILED; + sockErrorDetected = SD_TRUE; + } + } + else + { + SOCK_LOG_ERR2 (sockCtx, "%s: getsockopt(...,SOL_SOCKET, SO_ERROR,...) failed, errno=%d.", + pSock->sockIdStr, SOCKET_ERRORNO); + pSock->disconnectReason = GS_DISCONNECT_CONNECT_FAILED; + sockErrorDetected = SD_TRUE; + } +#endif /* !defined(_WIN32) */ + + --nfds; + + if (!sockErrorDetected) + { + SOCK_LOG_FLOW1 (sockCtx, "%s: socket connected", pSock->sockIdStr); + pSock->sockState = GS_STATE_CONNECTED; + pSock->sockStats.activeTime = time (NULL); + + if (sockCfg->secConnectProc == NULL) + rc = (*sockCfg->uSockConnectConf)(pSock); + else + rc = (*sockCfg->secConnectProc)(pSock); + + if (rc == SD_SUCCESS) + { + /* Do nothing. Receive data on next call. */ + } + else /* User does not want */ + { + if (!pSock->disconnectReason) + pSock->disconnectReason = GS_DISCONNECT_USR_REFUSED; + /* No need to lock, user will not free or access anymore */ + sockClose (pSock); + sockFree (pSock); /* Allow it to be free'd */ + } + } + } + else if (FD_ISSET (pSock->hSock, &sockFds->exceptfds)) + { /* Connect failed (WNIDOWS ONLY) */ + SOCK_OPTLEN optlen; + ST_INT sRet; + ST_INT connError; + + optlen = sizeof(connError); + sRet = getsockopt (pSock->hSock, SOL_SOCKET, SO_ERROR, (ST_CHAR *) &connError, &optlen); + if (sRet == 0) + SOCK_LOG_FLOW2 (sockCtx, "%s: socket Connect Failed. Error = %d", pSock->sockIdStr, connError); + else + SOCK_LOG_ERR2 (sockCtx, "%s: getsockopt(...,SOL_SOCKET, SO_ERROR,...) failed, errno=%d.", + pSock->sockIdStr, SOCKET_ERRORNO); + --nfds; + pSock->disconnectReason = GS_DISCONNECT_CONNECT_FAILED; + sockErrorDetected = SD_TRUE; + } + } + else if (pSock->sockState == GS_STATE_LISTENING) + { /* Check for activity on this socket ... */ + if (FD_ISSET (pSock->hSock, &sockFds->readfds)) + { + --nfds; + _sockAccept (pSock); + } + } + else /* Not really interesting */ + { + if (FD_ISSET (pSock->hSock, &sockFds->readfds)) + --nfds; + } + + if (sockErrorDetected == SD_TRUE) + sockClose (pSock); /* error on this socket, so close it */ + + pSock = pNextSock; + } /* While sockets and nfds */ + S_UNLOCK_UTIL_RESOURCES (); /* CRITICAL: lock all access to sockList*/ + +#if defined(GENSOCK_THREAD_SUPPORT) + /* See if someone woke us by sending us data */ + if (nfds > 0) + { + if (FD_ISSET (serviceCtrl->xCallingSock, &sockFds->readfds)) + { + /* Non-blocking receive, dump data */ + recvRet = (ST_INT) recv (serviceCtrl->xCallingSock, bitBucket, sizeof (bitBucket), 0); + /* log only if this is not an SLOGIPC xCallingSock (otherwise looping occurs) */ + if (memcmp (sockCtx->ctxName, SLOGIPC_NAME, strlen(SLOGIPC_NAME)) != 0) + { + if (recvRet > 0) + { + SOCK_LOG_FLOW2 (sockCtx, "%s: XSocket received %d wakeup bytes", sockCtx->ctxName, recvRet); + } + else if (recvRet == 0) + { + SOCK_LOG_NERR1 (sockCtx, "%s: XSocket disconnected detected by recv()", sockCtx->ctxName); + } + } + } + } +#endif + + return (GS_SELECT_ACTIVE); + } + +/************************************************************************/ +/* _sockServiceDiscardSock */ +/* NOTE: this must be called ONLY from sockClose. */ +/************************************************************************/ +/* Remove a pSock from a service control and allow it to be free'd */ + +static ST_VOID _sockServiceDiscardSock (GEN_SOCK_CTRL *serviceCtrl, + GEN_SOCK *pSock) + { +GEN_SOCK_CTXT *sockCtx; + + sockCtx = pSock->sockCtx; + SOCK_LOG_FLOW2 (sockCtx, "%s: preparing to free GEN_SOCK " S_FMT_PTR ".", pSock->sockIdStr, pSock); + +/* The service control is done with this socket, clean it up */ +/* See if we need to return a receive buffer to the user */ + if (pSock->recvState == RECV_STATE_DATA) + { + pSock->sockData->result = SD_FAILURE; + (*pSock->sockCfg.uSockRx)(pSock, pSock->sockData); + } + + /* If the socket has not been closed, time to do so */ + /* protect numActive, numSock, sockList */ + S_LOCK_UTIL_RESOURCES (); + + /* Dec the active socket count for a called socket. Note that the */ + /* listen socket will not be free'd until numActive = 0 */ + if (pSock->role == GS_ROLE_CALLED && pSock->listenSocket) + --pSock->listenSocket->numActive; + + list_unlink (&serviceCtrl->sockList, pSock); + pSock->serviceCtrl = NULL; + --serviceCtrl->numSock; + + /* See if the user needs to be told that the socket is closed */ + if (pSock->usrCloseCalled == SD_FALSE) + { + pSock->usrCloseCalled = SD_TRUE; + if (pSock->sockCfg.secDisconnectProc == NULL) + { + SOCK_LOG_FLOW1 (sockCtx, "%s: calling uSockDisconnect()",pSock->sockIdStr); + (*pSock->sockCfg.uSockDisconnect)(pSock); + } + else + { + SOCK_LOG_FLOW1 (sockCtx, "%s: calling secDisconnectProc()", pSock->sockIdStr); + (*pSock->sockCfg.secDisconnectProc)(pSock); + } + } + S_UNLOCK_UTIL_RESOURCES (); + } + +/************************************************************************/ +/* _sockAccept */ +/************************************************************************/ + +static ST_RET _sockAccept (GEN_SOCK *pListenSock) + { +GEN_SOCK_CTXT *sockCtx = pListenSock->sockCtx; +GEN_SOCK *pSock; +SOCKET hNewSock; +ST_BOOLEAN okToAccept; +ST_INT rc = SD_SUCCESS; +SOCK_ADDRLEN callingAddrLen; +SOCKADDR_IN callingAddr; +int err; + +/* This accept should succeed immediately */ + callingAddrLen = sizeof (callingAddr); + hNewSock = accept (pListenSock->hSock, + (SOCKADDR *) &callingAddr, &callingAddrLen); + if (hNewSock == INVALID_SOCKET) + { + err = SOCKET_ERRORNO; + SOCK_LOG_NERR2 (sockCtx, "%s: socket accept() error (errno=%d)", pListenSock->sockIdStr, err); + if (pListenSock->sockState == GS_STATE_LISTENING) + { + pListenSock->disconnectReason = GS_DISCONNECT_ACCEPT_FAILED; + } + return (SD_FAILURE); + } + +#if !defined(_WIN32) + if (hNewSock >= FD_SETSIZE) + { /* Can't use this socket because illegal to use in "select" call*/ + SOCK_LOG_ERR2 (sockCtx, "%s: accept returned socket num %d >= FD_SETSIZE " + "(can not be used in select), closing socket.", pListenSock->sockIdStr, hNewSock); + CLOSE_SOCKET (hNewSock); + return (SD_FAILURE); + } +#endif + + if (sockCtx->ctxStatus == GEN_SOCK_CTX_TERMINATING) + { + /* prevent adding new sockets to serviceCtrl */ + SOCK_LOG_FLOW1 (sockCtx, "%s: can't accept socket connection, context is terminating", pListenSock->sockIdStr); + CLOSE_SOCKET (hNewSock); + return (SD_FAILURE); + } + + /* Got a connection, see if we are still listening ... */ + SOCK_LOG_FLOW4 (sockCtx, "%s: accepted connection (socket=%d) from IP Address=%s Port=%u", + pListenSock->sockIdStr, hNewSock, + inet_ntoa (callingAddr.sin_addr), (ST_UINT) ntohs (callingAddr.sin_port)); + /* protect numActive */ + S_LOCK_UTIL_RESOURCES (); + if (pListenSock->maxActive != 0 && (pListenSock->numActive >= pListenSock->maxActive)) + okToAccept = SD_FALSE; + else + okToAccept = SD_TRUE; + S_UNLOCK_UTIL_RESOURCES (); + if (okToAccept == SD_FALSE) + { + SOCK_LOG_FLOW2 (sockCtx, "%s: cannot process new socket connection, reached maxActive=%d socket connections", + pListenSock->sockIdStr, pListenSock->maxActive); + CLOSE_SOCKET (hNewSock); + return (SD_FAILURE); + } + +/* OK, we have a go ... */ + pSock = _sockAllocSock (sockCtx, GS_ROLE_CALLED, GS_STATE_CONNECTED, + hNewSock, &pListenSock->sockCfg); + + pSock->listenSocket = pListenSock; + pSock->callingAddrLen = callingAddrLen; + pSock->callingAddr = callingAddr; + + /* add new socket to service list and then call uSockConnect fun, */ + /* the sockAddSock may start new thread that will receive data before */ + /* the uSockConnect is called, LOCK is needed to prevent this scenario */ + S_LOCK_UTIL_RESOURCES (); + rc = _sockAddSock (pSock); /* Add to a service list */ + if (rc == SD_SUCCESS) + { + if (pSock->sockCfg.secConnectProc == NULL) + rc = (*pSock->sockCfg.uSockConnectInd)(pSock); + else + rc = (*pSock->sockCfg.secConnectProc)(pSock); + if (rc != SD_SUCCESS) + { + /* user does not want this connection */ + pSock->usrCloseCalled = SD_TRUE; /* don't call uSockDisconnect */ + sockClose (pSock); + sockFree (pSock); + } + } + else + { + SOCK_LOG_FLOW1 (sockCtx, "%s: closing socket connections", pSock->sockIdStr); + CLOSE_SOCKET (hNewSock); + chk_free (pSock); + } + S_UNLOCK_UTIL_RESOURCES (); + + return (SD_SUCCESS); + } + +/************************************************************************/ +/* _sockCheckRxData */ +/* Receive data from the socket and check its validity. */ +/* NOTE: caller should close the socket if this function returns error. */ +/************************************************************************/ + +static ST_INT _sockCheckRxData (GEN_SOCK *pSock) + { +ST_INT numRxd; +ST_INT totalSize; +ST_INT bodySize; +ST_INT huntState; +ST_RET rc; +ST_CHAR *rxDest; +ST_INT rxBufSize; +ST_BOOLEAN secDataLeft; +ST_BOOLEAN foundHeader; +GEN_SOCK_CTXT *sockCtx; + + sockCtx = pSock->sockCtx; + secDataLeft = SD_FALSE; + do + { + foundHeader = SD_FALSE; + rxDest = pSock->recvBuf+pSock->recvCurrCount; + rxBufSize = pSock->recvDoneCount - pSock->recvCurrCount; + + /* Use a non-blocking recv to get what's there */ + /* See if we need to pass it to a receive processing subsystem */ + if (pSock->sockCfg.secRxProc == NULL) + rc = _sockRecv (pSock, rxDest, rxBufSize, 0, &numRxd); + else + rc = (*pSock->sockCfg.secRxProc) (pSock, rxDest, rxBufSize, 0, + &numRxd, &secDataLeft); + + if (rc == SD_SUCCESS) + { + if (numRxd) + { +#ifdef SOCK_FLOW_PRINT /* DEBUG: enable this to see data flow. */ + printf ("."); +#endif + SOCK_LOG_FLOW2 (sockCtx, "%s: received %d bytes", pSock->sockIdStr, numRxd); + pSock->recvCurrCount += numRxd; + if (pSock->recvDoneCount == pSock->recvCurrCount) + { + /* We got all the data we wanted, see if it is the header or data */ + if (pSock->recvState == RECV_STATE_HUNT) + { + huntState = GENSOCK_HUNT_UNDERWAY; + (*pSock->sockCfg.uSockHunt) (pSock, &huntState, + pSock->recvBuf, pSock->recvCurrCount, &bodySize); + if (huntState == GENSOCK_HUNT_DONE) + { + /* OK, the hunt is over and we have the length of the buffer to read */ + totalSize = pSock->sockCfg.hdrSize + bodySize; + SOCK_LOG_FLOWC2 (sockCtx, "%s: hunt complete, expecting %d more bytes", pSock->sockIdStr, bodySize); + (*pSock->sockCfg.uSockRxBufAlloc) (pSock, totalSize, &pSock->sockData); + pSock->sockData->dataLen = totalSize; + memcpy (pSock->sockData->data, pSock->recvBuf, pSock->sockCfg.hdrSize); + + if (bodySize) + { + pSock->recvState = RECV_STATE_DATA; + pSock->recvBuf = (ST_CHAR *) pSock->sockData->data + pSock->sockCfg.hdrSize; + pSock->recvCurrCount = 0; + pSock->recvDoneCount = bodySize; + foundHeader = SD_TRUE; + } + else /* No body, just header */ + { + ++pSock->sockStats.numRecv; + + /* Give the data to the user... */ + pSock->sockData->result = SD_SUCCESS; + (*pSock->sockCfg.uSockRx)(pSock, pSock->sockData); + + /* Now hunt for the next */ + pSock->recvState = RECV_STATE_HUNT; + pSock->recvDoneCount = pSock->sockCfg.hdrSize; + pSock->recvCurrCount = 0; + pSock->recvBuf = pSock->hdrBuf; + } + } + else if (huntState == GENSOCK_HUNT_RESET) + { + huntState = GENSOCK_HUNT_UNDERWAY; + pSock->recvCurrCount = 0; + } + else if (huntState == GENSOCK_HUNT_DISCONNECT) + { /* beginning of packet is invalid */ + pSock->recvCurrCount = 0; + rc = SD_FAILURE; /* this should cause an immediate disconnect*/ + } + } + else /* Not hunting, state is RECV_STATE_DATA */ + { + SOCK_LOG_FLOWC1 (sockCtx, "%s: got body", pSock->sockIdStr); + ++pSock->sockStats.numRecv; + + /* Give the data to the user... */ + pSock->sockData->result = SD_SUCCESS; + (*pSock->sockCfg.uSockRx)(pSock, pSock->sockData); + + /* Now hunt for the next */ + pSock->recvState = RECV_STATE_HUNT; + pSock->recvDoneCount = pSock->sockCfg.hdrSize; + pSock->recvCurrCount = 0; + pSock->recvBuf = pSock->hdrBuf; + } + } /* Got all expected data */ + } /* Got some data */ + } + } while (rc == SD_SUCCESS && (secDataLeft == SD_TRUE || foundHeader == SD_TRUE)); + return (rc); + } + +/************************************************************************/ +/* _sockRecv */ +/* Receive up to "maxRx" bytes from the socket. */ +/* NOTE: caller should close the socket if this function returns error. */ +/************************************************************************/ + +ST_RET _sockRecv (GEN_SOCK *pSock, ST_CHAR *dest, + ST_INT maxRx, ST_INT flags, ST_INT *rxCountOut) + { +ST_INT recvRet; +ST_RET retVal; +int err; +GEN_SOCK_CTXT *sockCtx; + + sockCtx = pSock->sockCtx; + +/* All socketa are non-blocking, so recv will NOT block. */ + recvRet = (ST_INT) recv (pSock->hSock, dest, maxRx, flags); + if (recvRet > 0) + { + *rxCountOut = recvRet; + /* save the time of last successful data transfer activity on the socket */ + if (sockCtx->maxIdleTime > 0) + pSock->sockStats.lastActivityTime = sGetMsTime(); + return (SD_SUCCESS); + } + +/* Not a clean receive, see if we have a disconnect */ + if (recvRet == 0) + { + pSock->disconnectReason = GS_DISCONNECT_CLOSED; + SOCK_LOG_FLOW1 (sockCtx, "%s: Socket disconnect detected by recv()", pSock->sockIdStr); + return (SD_FAILURE); + } + +/* Some kind of error */ + + + err = SOCKET_ERRORNO; + + + switch (err) /* See if recoverable */ + { + case SOCK_WOULDBLOCK: + case SOCK_INTR: + /* case SOCK_TIMEDOUT: RRRRRRRRRRRRRRRRRRRRRRRRR*/ + case SOCK_INPROGRESS: /* Seen for Solaris 8 */ + *rxCountOut = 0; + retVal = SD_SUCCESS; + break; + + default: + /* if(err==SOCK_TIMEDOUT) ͨѶ³¬Ê± 20160617 */ + //logprint("SOCK RECV FAILED ERRORNO=%d(IP:%s)",err,inet_ntoa(pSock->callingAddr.sin_addr)); + +/* + ETIMEDOUTÆóͼÁ¬ÏߵIJÙ×÷³¬¹ýÏÞ¶¨Ê±¼äÈÔδÓÐÏìÓ¦¡£ + ENETUNREACHÎÞ·¨´«ËÍÊý¾Ý°üÖÁÖ¸¶¨µÄÖ÷»ú¡£ +*/ + + SOCK_LOG_FLOW2 (sockCtx, "%s: Socket error detected by recv() errno=%d", pSock->sockIdStr, err); + pSock->disconnectReason = GS_DISCONNECT_RECV_FAILED; + retVal = SD_FAILURE; + break; + } + + return (retVal); + } + +/************************************************************************/ +/* _sockAllocSock */ +/************************************************************************/ + +GEN_SOCK *_sockAllocSock (GEN_SOCK_CTXT *sockCtx, + ST_INT role, ST_INT sockState, + SOCKET hSock, GEN_SOCK_CONFIG *sockCfg) + { +static ST_UINT sockId = 0; /* give diff id to each socket */ +GEN_SOCK *pSock; +#if defined(__hpux) || defined(_AIX) || defined(sun) || defined(linux) +int nonblock_on=1; /* CRITICAL: must be non-zero to enable non-blocking*/ +#else +/* _WIN32 */ +ST_ULONG nonblock_on=1; /* CRITICAL: must be non-zero to enable non-blocking*/ +#endif +int sRet; + +#if !defined(_WIN32) + assert (hSock < FD_SETSIZE); /* this should have already been checked*/ +#endif + + +/* Allocate enough room for the header too */ +/* 0 is OK for backward compatability */ + if (sockCfg->hdrAllocSize < sockCfg->hdrSize) + { + SOCK_LOG_FLOW1 (sockCtx, "Setting hdrAllocSize = %d", sockCfg->hdrSize); + sockCfg->hdrAllocSize = sockCfg->hdrSize; + } +/* Sanity checks */ + if ((sockCfg->hdrAllocSize > GENSOCK_MAX_HEADER_SIZE) || + (sockCfg->hdrAllocSize < 0) || + (sockCfg->hdrSize < 0)) + { + assert (0); /* these must be set correctly before now. */ + } + + pSock = (GEN_SOCK *) chk_calloc (1, sizeof (GEN_SOCK) + sockCfg->hdrAllocSize); + pSock->hdrBuf = (ST_CHAR *) (pSock+1); + + pSock->sockId = ++sockId; /* assign different gensock2 Id number to each socket */ + if (pSock->sockId == 0) + ++sockId; + sprintf (pSock->sockIdStr, "%s sockId=%5.5u%s", sockCtx->ctxName, pSock->sockId, (role == GS_ROLE_LISTENING ? "L" : "")); + pSock->sockCtx = sockCtx; + pSock->hSock = hSock; + pSock->role = role; + pSock->sockCfg = *sockCfg; /* Copy socket config */ + if (sockCfg->setSockOpts) + { + if (role == GS_ROLE_LISTENING) + { /* set REUSEADDR option ONLY if Listen socket */ + sRet = setsockopt (hSock, SOL_SOCKET, SO_REUSEADDR, + (ST_CHAR *) &sockCfg->reuseAddr, sizeof(sockCfg->reuseAddr)); + } + else + { /* set all other options ONLY if NOT Listen socket */ + sRet = setsockopt (hSock, IPPROTO_TCP, TCP_NODELAY, + (ST_CHAR *) &sockCfg->noDelay, sizeof(sockCfg->noDelay)); + + sRet = setsockopt (hSock, SOL_SOCKET, SO_KEEPALIVE, + (ST_CHAR *) &sockCfg->keepAlive, sizeof(sockCfg->keepAlive)); + + if (sockCfg->rcvBufSize > 0) + { + sRet = setsockopt (hSock, SOL_SOCKET, SO_RCVBUF, + (ST_CHAR *) &sockCfg->rcvBufSize, sizeof(sockCfg->rcvBufSize)); + } + if (sockCfg->sndBufSize > 0) + { + sRet = setsockopt (hSock, SOL_SOCKET, SO_SNDBUF, + (ST_CHAR *) &sockCfg->sndBufSize, sizeof(sockCfg->sndBufSize)); + } + } + } + + pSock->sockState = sockState; + +/* Make the socket non-blocking */ + sRet = ioctlsocket (pSock->hSock, FIONBIO, &nonblock_on); + + pSock->sockStats.createdTime = time (NULL); + pSock->sockStats.lastActivityTime = sGetMsTime(); + + SOCK_LOG_FLOW3 (sockCtx, "%s: allocated GEN_SOCK " S_FMT_PTR ", socket=%d.", + pSock->sockIdStr, pSock, pSock->hSock); + return (pSock); + } + +/************************************************************************/ +/* _sockAddSock */ +/************************************************************************/ + +ST_RET _sockAddSock (GEN_SOCK *pSock) + { +GEN_SOCK_CTXT *sockCtx = pSock->sockCtx; +GEN_SOCK_CTRL *serviceCtrl; +ST_RET rc = SD_SUCCESS; + + /* protect numActive, sockServiceList, numSock, sockList */ + S_LOCK_UTIL_RESOURCES (); + +/* Set receive mode to start hunting ... not needed for listen socks */ + pSock->recvState = RECV_STATE_HUNT; + pSock->recvDoneCount = pSock->sockCfg.hdrSize; + pSock->recvCurrCount = 0; + pSock->recvBuf = pSock->hdrBuf; + +/* Find a service thread with capacity */ + serviceCtrl = sockCtx->sockServiceList; + while (serviceCtrl != NULL) + { + if (serviceCtrl->numSock < GS_MAX_SOCK_PER_SERVICE) + break; + + serviceCtrl = (GEN_SOCK_CTRL *) list_get_next (sockCtx->sockServiceList, serviceCtrl); + } +#if defined(GENSOCK_THREAD_SUPPORT) + if (serviceCtrl == NULL) + { + /* UNIX/Linux note: theoretically we should never need to add new */ + /* thread when GS_MAX_SOCK_PER_SERVICE is (FD_SETSIZE - 1) */ + + /* add new service control (it will exist until the sockEnd() is called) */ + serviceCtrl = _sockAddServiceCtrl (sockCtx); + //printf("_sockAddServiceThread 2...\n"); + rc = _sockAddServiceThread (serviceCtrl); + if (rc != SD_SUCCESS) + { + list_unlink (&sockCtx->sockServiceList, serviceCtrl); + chk_free (serviceCtrl); + pSock->disconnectReason = GS_DISCONNECT_INTERNAL_ERROR; + } + } +#else /* !defined(GENSOCK_THREAD_SUPPORT) */ + if (serviceCtrl == NULL) + { + /* list empty or we reached max numSock */ + SOCK_LOG_NERR2 (sockCtx, "%s: Can't add GEN_SOCK to list (limit reached %d sockets)", + pSock->sockIdStr, GS_MAX_SOCK_PER_SERVICE); + rc = SD_FAILURE; + pSock->disconnectReason = GS_DISCONNECT_RESOURCES_ERROR; + } +#endif + + if (rc == SD_SUCCESS) + { + if (pSock->role == GS_ROLE_CALLED && pSock->listenSocket) + ++pSock->listenSocket->numActive; + + /* Add to the tracking list */ + list_add_last (&serviceCtrl->sockList, pSock); + pSock->serviceCtrl = serviceCtrl; + ++serviceCtrl->numSock; + sockServiceWake (serviceCtrl); + SOCK_LOG_FLOW1 (sockCtx, "%s: Added GEN_SOCK to service list", pSock->sockIdStr); + } + else + SOCK_LOG_FLOW2 (sockCtx, "%s: Add GEN_SOCK to service list failed (error=%d)", pSock->sockIdStr, rc); + + S_UNLOCK_UTIL_RESOURCES (); + + return (rc); + } + +/************************************************************************/ +/************************************************************************/ +/* POLLING MODEL SPECIFIC */ +/************************************************************************/ +/* sockServiceAll */ +/************************************************************************/ + +#if !defined(GENSOCK_THREAD_SUPPORT) +/* For use in polled environment */ +ST_VOID sockServiceAll (GEN_SOCK_CTXT *sockCtx, ST_LONG timeOut) + { +GEN_SOCK_CTRL *serviceCtrl; + + serviceCtrl = sockCtx->sockServiceList; + while (serviceCtrl != NULL) + { + sockCtrlService (serviceCtrl, timeOut); + serviceCtrl = (GEN_SOCK_CTRL *) list_get_next (sockCtx->sockServiceList, serviceCtrl); + } + } +#endif /* !defined(GENSOCK_THREAD_SUPPORT) */ + +/************************************************************************/ +/* End of polling specific functions */ +/************************************************************************/ + + + /****************************************/ + /* THREAD MODEL SPECIFIC */ + /****************************************/ + +#if defined(GENSOCK_THREAD_SUPPORT) +/************************************************************************/ +/* _sockAddServiceThread */ +/************************************************************************/ + +static ST_RET _sockAddServiceThread (GEN_SOCK_CTRL *serviceCtrl) + { +ST_RET rc = SD_SUCCESS; +GEN_SOCK_CTXT *sockCtx = serviceCtrl->sockCtx; + + SOCK_LOG_FLOW1 (sockCtx, "%s: in sockAddServiceThread()", sockCtx->ctxName); + + serviceCtrl->serviceEvent = gs_get_event_sem (SD_FALSE); + if (!serviceCtrl->serviceEvent) + { + SOCK_LOG_ERR1 (sockCtx, "%s: could not get service event", sockCtx->ctxName); + return (SD_FAILURE); + } + + /* Create a set of wakeup sockets for this service control */ + rc = sockCreateWakeupSockets (sockCtx, sockCtx->gs_wakeup_port, 100, + &serviceCtrl->wakeupPort, + &serviceCtrl->xCallingSock, &serviceCtrl->xCalledSock); + if (rc != SD_SUCCESS) + { + gs_free_event_sem (serviceCtrl->serviceEvent); + serviceCtrl->serviceEvent = NULL; + return (rc); + } + + /* start Service thread */ + rc = gs_start_thread (_sockServiceThread, serviceCtrl, + &serviceCtrl->thService, + &serviceCtrl->tIdService); + if (rc != SD_SUCCESS) + { + SOCK_LOG_ERR2 (sockCtx, "%s: could not start Service thread error=%d", sockCtx->ctxName, rc); + gs_free_event_sem (serviceCtrl->serviceEvent); + serviceCtrl->serviceEvent = NULL; + if (serviceCtrl->xCallingSock) + { + CLOSE_SOCKET (serviceCtrl->xCallingSock); + serviceCtrl->xCallingSock = 0; + } + if (serviceCtrl->xCalledSock) + { + CLOSE_SOCKET (serviceCtrl->xCalledSock); + serviceCtrl->xCalledSock = 0; + } + rc = SD_FAILURE; + } + + return (rc); + } + +/************************************************************************/ +/* _sockServiceThread */ +/************************************************************************/ + +static ST_THREAD_RET ST_THREAD_CALL_CONV _sockServiceThread (ST_THREAD_ARG pArg) + { +GEN_SOCK_CTRL *serviceCtrl = (GEN_SOCK_CTRL *) pArg; +GEN_SOCK_CTXT *sockCtx = serviceCtrl->sockCtx; +GEN_SOCK *pSock; +ST_INT ret; + + SOCK_LOG_FLOW1 (sockCtx, "%s: sockServiceThread started", sockCtx->ctxName); + + while (sockCtx->gTerminateService == SD_FALSE) + { + ret = sockCtrlService (serviceCtrl, sockCtx->gs_select_timeout); + switch (ret) + { + case GS_SELECT_NO_ACTIVE_SOCK: /* Nothing on our list */ + gs_wait_event_sem (serviceCtrl->serviceEvent, 10000); + break; + + case GS_SELECT_ACTIVE: /* Action! */ + break; + + case GS_SELECT_TIMEOUT: /* No action */ + break; + + case GS_SELECT_ERROR: /* Error */ + gs_wait_event_sem (serviceCtrl->serviceEvent, 1000); + break; + + case GS_SELECT_TERMINATED: /* Terminating */ + break; + + default: + break; + } + } /* While not terminate */ + + +/* Close all sockets associated with the service control */ + S_LOCK_UTIL_RESOURCES (); /* CRITICAL: lock all access to sockList*/ + while (serviceCtrl->sockList) + { + pSock = serviceCtrl->sockList; + pSock->disconnectReason = GS_DISCONNECT_TERMINATING; + sockClose (pSock); + } + S_UNLOCK_UTIL_RESOURCES (); /* CRITICAL: lock all access to sockList*/ + + SOCK_LOG_FLOW1 (sockCtx, "%s: sockServiceThread ended", sockCtx->ctxName); + return (0); + // return (ST_THREAD_RET_VAL); + } + +/************************************************************************/ +/************************************************************************/ +/* sockCreateWakeupSockets */ +/* This function will create pair of sockets that can be used for */ +/* signaling an event. */ +/************************************************************************/ + +ST_RET sockCreateWakeupSockets (GEN_SOCK_CTXT *sockCtx, + ST_UINT16 basePort, ST_UINT portRange, + ST_UINT16 *usedPort, + SOCKET *callingSock, SOCKET *calledSock) + { +ST_UINT16 wakeupPort = basePort; +SOCKET xCallingSock, xCalledSock; +SOCKET hListenSock; +SOCK_ADDRLEN callingAddrLen; +SOCKADDR_IN callingAddr; +#if defined(__hpux) || defined(_AIX) || defined(sun) || defined(linux) +int nonblock_on=1; /* CRITICAL: must be non-zero to enable non-blocking*/ +#else +/* _WIN32 */ +ST_ULONG nonblock_on=1; /* CRITICAL: must be non-zero to enable non-blocking*/ +#endif +struct sockaddr_in localAddr; +ST_INT noDelay; +ST_INT keepAlive; +ST_INT reuseAddr; +ST_UINT i; +int sRet; +int err; + + SOCK_LOG_FLOW1 (sockCtx, "%s: in sockCreateWakeupSockets()", sockCtx->ctxName); + +/* Step 1: Make a non-blocking listen socket */ + hListenSock = socket (AF_INET, SOCK_STREAM, IPPROTO_TCP); + if (hListenSock == INVALID_SOCKET) + { + SOCK_LOG_ERR1 (sockCtx, "%s: XSocket socket() failed", sockCtx->ctxName); + return (SD_FAILURE); + } + + sRet = ioctlsocket (hListenSock, FIONBIO, &nonblock_on); + reuseAddr = 0; + sRet = setsockopt (hListenSock, SOL_SOCKET, SO_REUSEADDR, + (ST_CHAR *) &reuseAddr, sizeof(reuseAddr)); + + memset((char *)(&localAddr), 0, sizeof(localAddr)); + localAddr.sin_family = AF_INET; + localAddr.sin_port = htons (wakeupPort); + localAddr.sin_addr.s_addr = htonl (INADDR_ANY); + + /* Try up to the next ports in this range */ + for (i = 0; i < portRange; ++i) + { + sRet = bind (hListenSock, (struct sockaddr *)&localAddr, sizeof(localAddr)); + if (sRet == 0) + { + SOCK_LOG_FLOW2 (sockCtx, "%s: XSocket bind on port=%d", sockCtx->ctxName, (ST_UINT) wakeupPort); + break; + } + + err = SOCKET_ERRORNO; + SOCK_LOG_FLOW4 (sockCtx, "%s: XSocket bind() failure on port=%d, errno=%d %s", + sockCtx->ctxName, (ST_UINT) wakeupPort, err, + (err == SOCK_EADDRINUSE) ? "(port in use)" : " "); + wakeupPort++; + localAddr.sin_port = htons(wakeupPort); + + sMsSleep (2); + } + + /* App may still function if unable to create Wakeup Socket, but let user know with ERR log */ + if (sRet != 0) + { + SOCK_LOG_ERR2 (sockCtx, "%s: XSocket bind() failed, errno=%d", sockCtx->ctxName, SOCKET_ERRORNO); + CLOSE_SOCKET (hListenSock); + return (SD_FAILURE); + } + + sRet = listen (hListenSock, SOMAXCONN); + if (sRet != 0) + { + SOCK_LOG_ERR2 (sockCtx, "%s: XSocket listen() failed, errno=%d", sockCtx->ctxName, SOCKET_ERRORNO); + CLOSE_SOCKET (hListenSock); + return (SD_FAILURE); + } + + +/* Step 2: Do a non-blocking connect */ + xCallingSock = socket (AF_INET, SOCK_STREAM, IPPROTO_TCP); + if (xCallingSock == INVALID_SOCKET) + { + SOCK_LOG_ERR1 (sockCtx, "%s: XSocket socket() failed", sockCtx->ctxName); + CLOSE_SOCKET (hListenSock); + return (SD_FAILURE); + } + + noDelay = 1; + keepAlive = 0; + sRet = setsockopt (xCallingSock, IPPROTO_TCP, TCP_NODELAY, + (ST_CHAR *) &noDelay, sizeof(noDelay)); + sRet = setsockopt (xCallingSock, SOL_SOCKET, SO_KEEPALIVE, + (ST_CHAR *) &keepAlive, sizeof(keepAlive)); + +/* Set up the socket address */ + memset((char *)(&localAddr), 0, sizeof(localAddr)); + localAddr.sin_family = AF_INET; + localAddr.sin_addr.s_addr = inet_addr ("127.0.0.1"); + localAddr.sin_port = htons (wakeupPort); + +/* Make the calling socket non-blocking */ + sRet = ioctlsocket (xCallingSock, FIONBIO, &nonblock_on); + +/* Do non-blocking connect */ + sRet = connect (xCallingSock, (struct sockaddr *)&localAddr, sizeof(localAddr)); + if (sRet >= 0) + { + SOCK_LOG_FLOW2 (sockCtx, "%s: XSocket connected on port=%d", sockCtx->ctxName, (ST_UINT) wakeupPort); + } + else + { + sRet = SOCKET_ERRORNO; + if (sRet == SOCK_WOULDBLOCK || sRet == SOCK_INPROGRESS) + { + SOCK_LOG_FLOW1 (sockCtx, "%s: XSocket connection pending", sockCtx->ctxName); + } + else + { + CLOSE_SOCKET (hListenSock); + CLOSE_SOCKET (xCallingSock); + SOCK_LOG_ERR2 (sockCtx, "%s: XSocket connect() failed, errno=%d", sockCtx->ctxName, sRet); + return (SD_FAILURE); + } + } + +/* Step 3: Do non-blocking accept */ + callingAddrLen = sizeof (callingAddr); + + for (i = 0; i < 50; ++i) + { + callingAddrLen = sizeof (callingAddr); /* set for each accept call */ + xCalledSock = accept (hListenSock, (SOCKADDR *) &callingAddr, &callingAddrLen); + if (xCalledSock != INVALID_SOCKET) + break; + sMsSleep (2); + } + + if (xCalledSock == INVALID_SOCKET) + { + sRet = SOCKET_ERRORNO; + CLOSE_SOCKET (xCallingSock); + CLOSE_SOCKET (hListenSock); + SOCK_LOG_ERR2 (sockCtx, "%s: XSocket accept() failed, errno=%d", sockCtx->ctxName, sRet); + return (SD_FAILURE); + } + + SOCK_LOG_FLOW2 (sockCtx, "%s: XSocket accept() successful on port=%d", sockCtx->ctxName, wakeupPort); + noDelay = 1; + keepAlive = 0; + sRet = setsockopt (xCalledSock, IPPROTO_TCP, TCP_NODELAY, + (ST_CHAR *) &noDelay, sizeof(noDelay)); + sRet = setsockopt (xCalledSock, SOL_SOCKET, SO_KEEPALIVE, + (ST_CHAR *) &keepAlive, sizeof(keepAlive)); + +/* Make the called socket non-blocking */ + sRet = ioctlsocket (xCalledSock, FIONBIO, &nonblock_on); + + CLOSE_SOCKET (hListenSock); + + /* wakeup sockets pair connected */ + *usedPort = wakeupPort; + *callingSock = xCallingSock; + *calledSock = xCalledSock; + return (SD_SUCCESS); + } + +/************************************************************************/ +/* End of thread specific functions */ +#endif /* #if defined(GENSOCK_THREAD_SUPPORT */ +/************************************************************************/ + +/************************************************************************/ +/************************************************************************/ +/* sockLogState */ +/************************************************************************/ + +ST_VOID sockLogState (GEN_SOCK_CTXT *sockCtx) + { +GEN_SOCK_CTRL *serviceCtrl; +GEN_SOCK *pSock; +ST_INT serviceCount; +ST_INT sockCount; + + S_LOCK_UTIL_RESOURCES (); + + SLOGALWAYS1 ("GEN_SOCK STATE for context '%s':", sockCtx->ctxName); + SLOGCALWAYS1 (" Service Control List (%d)", list_get_sizeof (sockCtx->sockServiceList)); + serviceCtrl = sockCtx->sockServiceList; + + serviceCount = 1; + while (serviceCtrl != NULL) + { + SLOGCALWAYS1 (" %d) Service Control", serviceCount++); + SLOGCALWAYS1 (" %d sockets", serviceCtrl->numSock); +#if defined(GENSOCK_THREAD_SUPPORT) + SLOGCALWAYS3 (" Wakeup Port: %d, xCalledSock: %d xCallingSock: %d", + serviceCtrl->wakeupPort, + serviceCtrl->xCalledSock, + serviceCtrl->xCallingSock); +#endif + sockCount = 1; + pSock = serviceCtrl->sockList; + while (pSock != NULL) + { + SLOGCALWAYS1 (" %d) Socket Control", sockCount++); + sockLogSockState (pSock," "); + pSock = (GEN_SOCK *) list_get_next (serviceCtrl->sockList, pSock); + } + serviceCtrl = (GEN_SOCK_CTRL *) list_get_next (sockCtx->sockServiceList, serviceCtrl); + } + + S_UNLOCK_UTIL_RESOURCES (); + } + + +/************************************************************************/ +/* sockLogSockState */ +/************************************************************************/ + +ST_VOID sockLogSockState (GEN_SOCK *pSock, ST_CHAR *prefix) + { +ST_CHAR *str; + + if (prefix == NULL) + prefix = ""; + + switch (pSock->role) + { + case GS_ROLE_CALLED: + str = "Called"; + break; + case GS_ROLE_CALLING: + str = "Calling"; + break; + case GS_ROLE_LISTENING: /* Not valid */ + str = "Lisening"; + break; + default: + str = "Invalid"; + break; + } + SLOGCALWAYS2 ("%sRole : %s", prefix, str); + + + switch (pSock->sockState) + { + case GS_STATE_LISTENING : + str = "LISTENING"; + break; + + case GS_STATE_FAILED_LISTEN : + str = "FAILED LISTEN"; + break; + + case GS_STATE_STOPPING_LISTEN : + str = "STOPPING_LISTEN"; + + case GS_STATE_CONNECTING : + str = "CONNECTING"; + break; + + case GS_STATE_CONNECTED : + str = "CONNECTED"; + break; + + case GS_STATE_CLOSED : + str = "CLOSED"; + break; + + default: + str = "Invalid"; + break; + } + + SLOGCALWAYS2 ("%sState: %s", prefix, str); + str = ctime (&pSock->sockStats.createdTime); + str[24] = 0; + SLOGCALWAYS2 ("%sTime Created: %s", prefix, str); + if (pSock->sockStats.activeTime) + { + str = ctime (&pSock->sockStats.activeTime); + str[24] = 0; + SLOGCALWAYS2 ("%sTime Active: %s", prefix, str); + } + SLOGCALWAYS2 ("%sNum Group Msgs Queued: %d", prefix, pSock->sockTxQueueGroupCnt); + SLOGCALWAYS2 ("%sNum Msgs (RFC1006) Sent: %ld", prefix, pSock->sockStats.numSend); + SLOGCALWAYS2 ("%sNum Msgs (RFC1006) Recv: %ld", prefix, pSock->sockStats.numRecv); + } + + +/************************************************************************/ +/* sockGetRemAddrInfo */ +/************************************************************************/ + +ST_RET sockGetRemAddrInfo (GEN_SOCK *pSock, SOCKADDR_IN *remSockAddrDest, + ST_CHAR **remAddrTxtOut, ST_INT *portOut) + { +SOCKADDR_IN peer; +SOCKADDR_IN *pp; +SOCK_ADDRLEN len; +ST_RET ret; + + if (remSockAddrDest) + pp = remSockAddrDest; + else + pp = &peer; + + len = sizeof (SOCKADDR_IN); + ret = getpeername (pSock->hSock, (struct sockaddr *) pp, &len); + if (ret == SD_SUCCESS) + { + if (remAddrTxtOut != NULL) + *remAddrTxtOut = inet_ntoa (pp->sin_addr); + + if (portOut != NULL) + /* first cast to ST_UINT to prevent sign extension for 0x8000-0xFFFF ports */ + *portOut = (ST_INT) ((ST_UINT) ntohs (pp->sin_port)); + } + return (ret); + } + + + /* -------------------------------------------- */ + /* User misc */ + /* -------------------------------------------- */ + +/************************************************************************/ +/* sockUsrFun */ +/*----------------------------------------------------------------------*/ +/* This function will call user function for all connections and close */ +/* the connection if the user function does not return SD_SUCCESS. */ +/* The secCtrl parameter is passed to the user function. */ +/************************************************************************/ +ST_VOID sockUsrFun (ST_RET (*usrFun)(ST_VOID *secCtrl), ST_CHAR *errMsg) +{ +GEN_SOCK_CTXT *sockCtx; +GEN_SOCK_CTRL *serviceCtrl; +GEN_SOCK *pSock; +ST_RET ret; + + if (!usrFun) + return; + + sockCtx = sockCtxList; + while (sockCtx) + { + SOCK_LOG_FLOW0 (sockCtx, "sockUsrFun"); + S_LOCK_UTIL_RESOURCES (); + + serviceCtrl = sockCtx->sockServiceList; + while (serviceCtrl != NULL) + { + /* Check all sockets associated with the service control */ + pSock = serviceCtrl->sockList; + while (pSock) + { + /* applies only to secured connections */ + if (pSock->sockCfg.secCtrl) + { + ret = (*usrFun) (pSock->sockCfg.secCtrl); + if (ret != SD_SUCCESS) + { + SOCK_LOG_ERR2 (sockCtx, "%s: %s, closing socket.", pSock->sockIdStr, errMsg); + sockClose(pSock); + } + } + pSock = (GEN_SOCK *)list_get_next (serviceCtrl->sockList, pSock); + } + serviceCtrl = (GEN_SOCK_CTRL *)list_get_next (sockCtx->sockServiceList, serviceCtrl); + } + + S_UNLOCK_UTIL_RESOURCES (); + + sockCtx = (GEN_SOCK_CTXT *)list_get_next (sockCtxList, sockCtx); + } +} + + /* -------------------------------------------- */ + /* Misc socket related functions */ + /* -------------------------------------------- */ + +/************************************************************************/ +/* convertIpAddr */ +/*----------------------------------------------------------------------*/ +/* This function will take pointer to IP address (host string or dotted */ +/* notation string) and convert it to unsigned long value. */ +/* If the useGetHostByName is SD_TRUE the gethostbyname() function will */ +/* be called when the inet_addr(ipAddrStr) produced INADDR_NONE return. */ +/* (host name was used or dotted notation was invalid). */ +/* RETURN: */ +/* ULONG != 0 converted IP Addr to ST_ULONG value or */ +/* 0 if function failed */ +/* Note: 0.0.0.0 would be invalid because we */ +/* return 0 for conversion error. */ +/************************************************************************/ +ST_ULONG convertIPAddr (ST_CHAR *ipAddrStr, ST_BOOLEAN useGetHostByName) +{ +ST_ULONG ipAddr = 0; +ST_CHAR *dotPtr; + +#ifdef _WIN32 +/* init WinSock interface */ +static ST_BOOLEAN bWSAStarted = SD_FALSE; +WSADATA wsaData; +ST_INT wRet; + + /* make sure sockets initialized before we call any socket functions */ + if (!bWSAStarted) + { + if (wRet = WSAStartup(0x0202, &wsaData)) + { + SLOGALWAYS1 ("convertIPAddr: unable to initialize WinSock interface to use version 2.2 (error=%d)", wRet); + return (ipAddr); + } + bWSAStarted = SD_TRUE; + } +#endif /* _WIN32 */ + + if (ipAddrStr == NULL || strlen(ipAddrStr) == 0) + { + SLOGALWAYS0 ("convertIPAddr: conversion failed, ipAddrStr=NULL or ipAddrStr is empty"); + return (ipAddr); + } + + /* Since inet_addr() considers following addresses valid: + a.b.c.d (Internet addr) + a.b.c (Class B addr) + a.b (Class A addr) + a stored directly + we will pass to inet_addr only valid ipAddrStr in form of Internet Addr */ + + /* call inet_addr if we find 3 '.' in the ipAddrStr (and do not use strtok) */ + if ((dotPtr = strstr(ipAddrStr, ".")) != NULL) + if ((dotPtr+1 < ipAddrStr+strlen(ipAddrStr)) && (dotPtr = strstr(dotPtr+1, ".")) != NULL) + if ((dotPtr+1 < ipAddrStr+strlen(ipAddrStr)) && (dotPtr = strstr(dotPtr+1, ".")) != NULL) + { + ipAddr = (ST_ULONG) inet_addr (ipAddrStr); + /* NOTE: some systems return from the inet_addr() unsigned int (LINUX) */ + /* and some return unsigned long (Windows). */ + } + + if (ipAddr == 0 || ipAddr == htonl(INADDR_NONE)) + { +#if !defined (VXWORKS) /* gethostbyname not supported */ + if (useGetHostByName) + { + struct hostent *pHostEnt = NULL; /* host database entry for remote host */ + /* UNIX IEEE: the behavior of gethostbyname() when passed a numeric */ + /* address string is unspecified */ + /* DEBUG: should we check for it? */ + pHostEnt = gethostbyname(ipAddrStr); + if (pHostEnt != NULL) + ipAddr = (ST_ULONG) (*(ST_UINT32 *)(pHostEnt->h_addr)); + else + { + ipAddr = 0; + SLOGALWAYS2 ("convertIPAddr : gethostbyname IPAddr='%s'conversion errno=%d", + ipAddrStr, SOCKET_ERRORNO); + } + } + else +#endif /* !defined (VXWORKS) */ + { + ipAddr = 0; + SLOGALWAYS1 ("convertIPAddr : IPAddr='%s'conversion error", ipAddrStr); + } + } + + return (ipAddr); +} + +/************************************************************************/ +/* sockEventPut */ +/* Put socket event on list. This should be called from callback */ +/* functions to save events on the list and return immediately. Other */ +/* threads can get events from the list later and process them. */ +/************************************************************************/ +ST_VOID sockEventPut (GEN_SOCK_CTXT *sockCtx, GEN_SOCK_EVENT *sockEvent) + { + S_LOCK_UTIL_RESOURCES (); + list_add_last (&sockCtx->sockEventList, sockEvent); + sockCtx->sockEventCount++; + S_UNLOCK_UTIL_RESOURCES (); + } + +/************************************************************************/ +/* sockEventGet */ +/* Get next socket event from list (to process the event). */ +/************************************************************************/ +int sockEventGet_pri=0; +GEN_SOCK_EVENT *sockEventGet (GEN_SOCK_CTXT *sockCtx) + { +GEN_SOCK_EVENT *sockEvent; + S_LOCK_UTIL_RESOURCES (); + sockEvent = (GEN_SOCK_EVENT *)list_get_first (&sockCtx->sockEventList); + if (sockEvent) + { + if(sockEventGet_pri) + printf("sockEvent->eventType=%d sockEventCount=%d\r\n",sockEvent->eventType,sockCtx->sockEventCount); + sockCtx->sockEventCount--; + } + S_UNLOCK_UTIL_RESOURCES (); + return (sockEvent); + } + + +/************************************************************************/ +/* sockEventQueueFlush */ +/************************************************************************/ + +ST_VOID sockEventQueueFlush (GEN_SOCK_CTXT *sockCtx, GEN_SOCK *pSock) + { +GEN_SOCK_EVENT *sockEvent; +GEN_SOCK_EVENT *nextSockEvent; + + S_LOCK_UTIL_RESOURCES (); + sockEvent = (GEN_SOCK_EVENT *) sockCtx->sockEventList; + + while (sockEvent) + { + nextSockEvent = (GEN_SOCK_EVENT *) list_get_next (sockCtx->sockEventList, sockEvent); + if (sockEvent->pSock == pSock) + { + list_unlink (&sockCtx->sockEventList, sockEvent); + chk_free (sockEvent); + } + sockEvent = nextSockEvent; + } + S_UNLOCK_UTIL_RESOURCES (); + } + + diff --git a/mmslib/util/glbsem.c b/mmslib/util/glbsem.c new file mode 100644 index 0000000..a79ad6b --- /dev/null +++ b/mmslib/util/glbsem.c @@ -0,0 +1,462 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1997-2005, All Rights Reserved */ +/* */ +/* MODULE NAME : glbsem.c */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : Multi-thread support. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 03/12/08 JRB 77 gs_free_semx: make sure fname initialized. */ +/* 10/04/07 MDE 76 Tweaked LOGCFG_VALUE_GROUP/LOGCFGX_VALUE_MAP */ +/* 05/23/07 NAV 75 gs_get_semx: conditionally call sGetMsTime */ +/* 02/13/06 DSF 74 Migrate to VS.NET 2005 */ +/* 06/17/05 EJV 73 UNIX, Linux: need str_util.h */ +/* 06/10/05 DSF 72 Added an array to track calls to gs_free_semx*/ +/* 06/07/05 EJV 71 Added S_MT_SUPPORT to avoid Linux errors. */ +/* 05/23/05 EJV 70 Add gsLogMaskMapCtrl for parsing logcfg.xml */ +/* Moved gs_debug_sel from slog.c. */ +/* 05/23/05 JRB 69 Move all gs_timer* functions to glbtimer.c */ +/* 02/22/05 EJV 68 gs_timer_worker_thread: eliminated warnings */ +/* 01/10/05 DSF 67 Signal timer event after timer object is */ +/* unlinked */ +/* Don't call user callback if timer is */ +/* terminated */ +/* 08/23/04 EJV 66 GS_TIMER: rpl elapsed w/ ST_DOUBLE expiration*/ +/* 07/23/04 DSF 65 Set names of timer threads */ +/* 07/22/04 DSF 64 Set timer resolution back to 10 */ +/* 07/02/04 EJV 63 gs_timer_thread: chg sleep from 10 to 0 ms. */ +/* 06/17/04 DSF 62 Reset gs_timer_thread_stop in gs_timer_init()*/ +/* 05/05/04 EJV 61 gs_timer_cleanup: added timeout parameter. */ +/* Added timer worker threads to proc callbacks.*/ +/* gs_timer_init: added min_workers, max_workers*/ +/* 04/22/04 DSF 60 Initialized timer resolution to 1000 ms */ +/* 01/21/04 EJV 59 Win Timers: changed to use UNIX code. */ +/* Win impl preserved with _WIN32_timers define */ +/* 12/01/03 EJV 58 gs_is_win_ver: chk for corr ret 1, 0, -1. */ +/* 11/17/03 EJV 57 gs_timer_end: reverted moved gs_timer_remove.*/ +/* _WIN32: reworked periodic timers >430000ms; */ +/* All timer_id will go on delayed delete list*/ +/* 10/15/03 JRB 56 Move gs_debug_sel to slog.c, slogl.c. */ +/* 10/09/03 JRB 55 Enable gs_timer* functions for ALL systems. */ +/* 07/29/03 DSF,EJV 54 gs_timer_end: moved gs_timer_remove fun up. */ +/* 06/20/03 EJV 53 Del param from gs_mutex_get, gs_get_semx. */ +/* 06/12/03 EJV 52 Redesigned mutex sems implementation. */ +/* 06/06/03 JRB 51 Move _WIN32 code to new glbsem_w32.c */ +/* Move UNIX code to new glbsem_unix.c */ +/* Del OS2 code & "default" code. */ +/* Del unused gs_*_sig functions for DEC UNIX. */ +/* Add gs_util_mutex, init it in gs_init. */ +/* Chg GLBSEM_LOG_ALWAYS* to SLOGALWAYS*. */ +/* 06/03/03 EJV 50 _WIN32: changed for 64-bit compiler: */ +/* last param cast in RaiseException */ +/* gs_timer_callback last 3 parms to DWORD_PTR*/ +/* 04/14/03 JRB 49 Del intermediate functions for mutexes, */ +/* macros in glbsem.h use gs_mutex_get/free. */ +/* assert if gs_init fails (no way to recover). */ +/* 04/04/03 JRB 48 Chg _ASSERTE calls to assert, otherwise must */ +/* link DebugMultithreaded libs on Windows. */ +/* 03/24/03 EJV 47 Removed logging from some MUTEX functions. */ +/* gs_get_sem, gs_get_semx: added ASSERTE. */ +/* 02/03/03 EJV 46 _WIN32: added gs_is_win_ver() */ +/* added gs_get_named_event_sem() */ +/* 01/24/03 EJV 45 _WIN32 gs_start_thread: added comment. */ +/* 01/14/03 EJV 44 Added gs_sleep(). */ +/* 11/01/02 EJV 43 Use SISCO's link list with timers. */ +/* 10/30/02 EJV 42 gs_timer_check_list: limit delay to 1 sec. */ +/* Check if callback pending before deleting. */ +/* 10/31/02 EJV 41 gs_wait_mult_event_sem: corr activity memset */ +/* 07/29/02 EJV 40 Added gs_timer_get_resolution(), */ +/* Corrected timer termination wait. */ +/* Reverted timer _WIN32, added ptr wait list */ +/* 02/06/02 EJV 39 Compile this module if S_MT_SUPPORT defined */ +/* 12/04/01 KCR 38 cleared activity[] in gs_wait_mult_event_sem */ +/* 10/31/01 EJV 37 _WIN32: changed to call _beginthreadex; */ +/* Added gs_close_thread, gs_pulse_event_sem. */ +/* Replaced _ALWAYS macros with _ERR or _NERR. */ +/* _WIN32: gs_wait_thread now returns SD_FAILURE*/ +/* on timeout. */ +/* UNIX: gs_reset_event_sem now clears predicate*/ +/* 10/18/01 JRB 36 Eliminate warning. */ +/* 09/20/01 EJV 35 _WIN32 gs_timer_callback: check if pending */ +/* 08/01/01 JRB 34 gs_get_semx fill in fname even if NOT logging*/ +/* 07/30/01 EJV 33 Added gs_timer_set_resolution() fun. */ +/* _WIN32: reworked gs_timer functions. */ +/* 07/25/01 EJV 32 Changed gs_timer_resolution from 1000 to 10ms*/ +/* 07/24/01 EJV 31 _WIN32: added gs_timer support. */ +/* 05/17/01 EJV 30 _WIN32: eliminated compile warnings. */ +/* 04/04/01 DSF 29 Added gs_set_thread_name for WIN32 */ +/* 03/27/01 EJV 28 UNIX: gs_wait_event_sem, mutex the whole fun */ +/* 03/16/01 EJV 27 UNIX: added check to gs_free_event_sem. */ +/* UNIX: set thread attribute to joinable. */ +/* Removed #undef NDEBUG (now in make file) */ +/* 03/12/01 EJV 26 UNIX: added/changed few FLOW slogs. */ +/* UNIX: corr gs_wait_event_sem, predicate=0 */ +/* Removed , already in sysincs.h */ +/* Changed assert to _ASSERTE - def in sysincs.h*/ +/* 03/08/01 EJV 25 UNIX: Corrected type to ST_BOOLEAN for */ +/* static var gs_timer_thread_stop. Corr logs. */ +/* 03/07/01 EJV 24 UNIX: init attr before calling create thread.*/ +/* In gs_wait_event_sem check for predicate=1 */ +/* before entering the wait. */ +/* 02/19/01 EJV 23 _AIX: eliminated need to call gs_timer_init. */ +/* 02/14/01 EJV 22 Removed some DEBUG_SISCO around slog macros */ +/* AIX: added timer functions gs_timer_xxx. */ +/* 01/16/01 EJV 21 Moved GET_THREAD_ID define to glbsem.h */ +/* 12/27/00 EJV 20 _WIN32: Renamed glbCritSetion for easy calls.*/ +/* Added check for gs_already_inited. */ +/* 12/20/00 EJV 19 Ported to AIX. Revised DEC UNIX. */ +/* 12/13/00 EJV 18 Added gs_mutex_... user mutex functions. */ +/* Added gs_track for faster SISCO MUTEX. */ +/* Removed currSemOwner, semCount */ +/* Added few DEBUG_SISCO for __alpha. */ +/* 12/06/00 EJV 17 Changed gs_get_event_sem to accept arg. */ +/* USE_MANUAL_RESET_SEM define not necessary. */ +/* 10/25/00 JRB 16 Del gs_chk_thread_id. Found better way to */ +/* prevent errors (see "_MT" chk in glbsem.h). */ +/* 10/06/00 EJV 15 Ported to DEC UNIX (__alpha) pthread funcs. */ +/* Deleted unused: myThreadId,... */ +/* 10/06/00 EJV 14 _WIN32: corrected logging statements */ +/* 04/27/00 MDE 13 Lint cleanup */ +/* 03/14/00 JRB 12 Chg to allow breakpoint before assert. */ +/* 01/21/00 JRB 11 Del gs_install. Del function pointers. */ +/* gs_get_sem call gs_init if not already done. */ +/* Add "gs_chk_thread_id". */ +/* 12/16/99 NAV 10 in gs_free_semx watch for GS_LOG_FLOW */ +/* 09/13/99 MDE 09 Added SD_CONST modifiers */ +/* 08/05/99 JRB 08 Chged "gs_get_event_sem" to "auto-reset" */ +/* unless USE_MANUAL_RESET_SEM defined. */ +/* #ifdef'd out "gs_reset_event_sem". */ +/* Added partial support for __OS2__. */ +/* 03/01/99 DSF 07 Corrected #define releaseMutexSem for */ +/* non-DEBUG_SISCO version */ +/* 01/22/99 DSF 06 Use Critical Section instead of Mutex (faster)*/ +/* 10/08/98 MDE 05 Migrated to updated SLOG interface */ +/* 06/05/98 MDE 04 Fixed uninitialized 'rc' */ +/* 05/05/98 DSF 03 Added SD_TIMEOUT */ +/* 12/11/97 KCR 02 Added gs_wait_mult_event_sem for _WIN32 */ +/* 10/27/97 EJV 01 For !_WIN32 implementations: */ +/* Added typecast to define GET_THREAD_ID(); */ +/* Changed func gs_get_event_sem return from */ +/* from SD_FAILURE to (ST_EVENT_SEM) 0. */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + +#if defined (_WIN32) +#pragma warning(disable : 4996) +#endif + +#include "glbtypes.h" +#include "sysincs.h" +#include "mem_chk.h" +#include "slog.h" +#include "glbsem.h" +#include "str_util.h" + +#if defined(S_MT_SUPPORT) + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/************************************************************************/ +/* GLOBAL VARIABLES */ + +ST_UINT gs_debug_sel = GS_LOG_ERR | GS_LOG_NERR; + +#ifdef DEBUG_SISCO +SD_CONST ST_CHAR *SD_CONST _glbem_flow_logstr = "GS_LOG_FLOW"; +SD_CONST ST_CHAR *SD_CONST _glbem_err_logstr = "GS_LOG_ERR"; +SD_CONST ST_CHAR *SD_CONST _glbem_nerr_logstr = "GS_LOG_NERR"; + +LOGCFGX_VALUE_MAP gsLogMaskMaps[] = + { + {"GS_LOG_ERR", GS_LOG_ERR, &gs_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "Error"}, + {"GS_LOG_NERR", GS_LOG_NERR, &gs_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "Notice"}, + {"GS_LOG_FLOW", GS_LOG_FLOW, &gs_debug_sel, _LOGCFG_DATATYPE_UINT_MASK, NULL, "Flow"}, + }; + +LOGCFG_VALUE_GROUP gsLogMaskMapCtrl = + { + {NULL,NULL}, + "SemaphoreLogMasks", /* Parent Tag */ + sizeof(gsLogMaskMaps)/sizeof(LOGCFGX_VALUE_MAP), + gsLogMaskMaps + }; +#endif /* DEBUG_SISCO */ + +/* variables to evalueate semaphores locking performance */ +ST_DOUBLE gs_hwMutexTime; +ST_DOUBLE gs_hwEventTime; + +ST_MUTEX_SEM gs_glb_mutex; /* global SISCO MUTEX semaphore */ +ST_MUTEX_SEM gs_util_mutex; /* UTILITY MUTEX semaphore: for "low-level"*/ + /* util functs (slog,mem_chk,stime,etc.)*/ + +ST_BOOLEAN gs_already_inited = SD_FALSE; + +#if defined(DEBUG_SISCO) +/* The debug version keeps a stack of sem owners call locations */ +/* which can be logged to aid in debugging. */ +/* These variables are only changed by a thread that owns the sem, but */ +/* can be read (for logging) by 'gs_log_sem_state', possibly resulting */ +/* in a 'torn' log if the called is not careful. */ + +#define MAX_SEM_NEST_TRACK 20 +ST_UINT gs_track; /* This variable when set to value >0 */ + /* during an application startup allows */ + /* tracking of MUTEX or EVENT sem. */ +ST_INT gs_currSemOwnerIndex; +ST_CHAR gs_currSemOwnerFile[MAX_SEM_NEST_TRACK][SLOG_MAX_FNAME+1]; +ST_INT gs_currSemOwnerLine[MAX_SEM_NEST_TRACK]; +ST_CHAR gs_currSemFreeFile[MAX_SEM_NEST_TRACK][SLOG_MAX_FNAME+1]; +ST_INT gs_currSemFreeLine[MAX_SEM_NEST_TRACK]; + +#endif /* DEBUG_SISCO */ + + + /*---*---*---*---*---*---*---*---*---*---*---*---*---*--*/ + /* */ + /* SISCO's GLOBAL MUTEX SEMAPHORE FUNCTIONS */ + /* */ + /*---*---*---*---*---*---*---*---*---*---*---*---*---*--*/ + +/************************************************************************/ +/* gs_init */ +/*----------------------------------------------------------------------*/ +/* Initialize global SISCO MUTEX semaphore. */ +/* This function will be called from the gs_get_sem or gs_get_semx, */ +/* it does not have to be called from user application. */ +/* Parameters: */ +/* none */ +/* Return values: */ +/* SD_SUCCESS function successful */ +/* SD_FAILURE error occurred */ +/************************************************************************/ + +ST_RET gs_init (ST_VOID) + { +ST_RET rc; + +/* !!! To avoid infinite loop with SLOG do not log from this function. */ + + if (gs_already_inited) + return (SD_SUCCESS); + +/* WARNING: The gs_util_mutex should not be changed to use named mutex */ +/* because logging in the code handling named mutex will cause */ +/* infinite loop. */ + +/* Initialize the MUTEX semaphores. Both must succeed, so OR the returns.*/ + rc = gs_mutex_create (&gs_glb_mutex); + rc |= gs_mutex_create (&gs_util_mutex); + +/* Set up to track the semaphore owners by nesting level */ +#if defined(DEBUG_SISCO) + gs_currSemOwnerIndex = -1; +#endif + + if (rc == SD_SUCCESS) + gs_already_inited = SD_TRUE; + else + assert (0); /* nothing will work properly if this fails. */ + + return (rc); + } + +/************************************************************************/ +/* gs_log_sem_state */ +/*----------------------------------------------------------------------*/ +/* Log the global SISCO MUTEX semaphore owner stack. */ +/* Parameters: */ +/* none */ +/* Return values: */ +/* none */ +/************************************************************************/ + +ST_VOID gs_log_sem_state (ST_VOID) + { +#if defined(DEBUG_SISCO) +ST_INT i; + + if (!gs_already_inited) /* Make sure gs is initialized. */ + return; + + SLOGALWAYS0 ("GLBSEM: Semaphore owner stack (oldest to latest) :"); + for (i = 0; i <= gs_currSemOwnerIndex && i < MAX_SEM_NEST_TRACK; ++i) + { + SLOGCALWAYS3 (" %d) File %s, Line %d", + i+1, gs_currSemOwnerFile[i], gs_currSemOwnerLine[i]); + } + if (gs_currSemOwnerIndex >= MAX_SEM_NEST_TRACK) + SLOGCALWAYS0 (" Sem's nested too deep to track further"); +#endif + } + +/************************************************************************/ +/* gs_get_semx */ +/*----------------------------------------------------------------------*/ +/* Lock (obtain ownership) the global SISCO MUTEX semaphore. */ +/* This debug version function keeps track of the sem owner stack. */ +/* If compiled without DEBUG_SISCO it just falls through to gs_get_sem. */ +/* If compiled with DEBUG_SISCO the gs_track variable need to be set to */ +/* value >0 to enable the tracking code. This way logging can be used */ +/* by an application without degradation of the MUTEX sem performance. */ +/* In addition the gs_debug_sel need to be set to GS_LOG_FLOW to */ +/* log the tracking results. */ +/* Parameters: */ +/* srcFile ptr to source code file name calling this fun */ +/* srcLineNum source code line number */ +/* Return values: */ +/* none */ +/* CRITICAL: gs_get_semx must NOT be called from any slog or stime */ +/* functions. It calls slog and stime functions which would cause */ +/* an infinite loop. Slog and stime must call gs_mutex_get. */ +/************************************************************************/ + +ST_VOID gs_get_semx (SD_CONST ST_CHAR *srcFile, ST_INT srcLineNum) + { +#if defined(DEBUG_SISCO) +ST_CHAR fname[SLOG_MAX_FNAME+1]; +ST_DOUBLE startTime; +ST_DOUBLE endTime; +ST_DOUBLE elapsedTime; + + if (!gs_already_inited) /* Make sure gs is initialized. */ + gs_init (); + + if (gs_track) + startTime = sGetMsTime (); + + gs_mutex_get (&gs_glb_mutex); + + if (gs_track) + { + endTime = sGetMsTime (); + + elapsedTime = endTime - startTime; + if (elapsedTime > gs_hwMutexTime) + gs_hwMutexTime = elapsedTime; + + if (srcFile != NULL) + slogTrimFileName (fname, srcFile); + else + strcpy (fname, "Unknown"); + + if (gs_debug_sel & GS_LOG_FLOW) + { + GLBSEM_LOG_FLOW2 ("GLBSEM: File %s, Line %d has the mutex", + fname, srcLineNum); + GLBSEM_LOG_CFLOW2 (" took %.3f sec (hw = %.3f)", + elapsedTime/1000, gs_hwMutexTime/1000); + } + + ++gs_currSemOwnerIndex; + if (gs_currSemOwnerIndex < MAX_SEM_NEST_TRACK) + { + strcpy (gs_currSemOwnerFile[gs_currSemOwnerIndex], fname); + gs_currSemOwnerLine[gs_currSemOwnerIndex] = srcLineNum; + } + else + { + GLBSEM_LOG_CFLOW0 (" Nested too deep to track"); + } + } +#else /* Not DEBUG_SISCO */ + + gs_mutex_get (&gs_glb_mutex); + +#endif /* DEBUG_SISCO */ + } + +/************************************************************************/ +/* gs_free_semx */ +/*----------------------------------------------------------------------*/ +/* Unlock (release ownership) the global SISCO MUTEX semaphore. */ +/* This debug version function keeps track of the sem owner stack. */ +/* If compiled without DEBUG_SISCO is just falls through to gs_free_sem.*/ +/* If compiled with DEBUG_SISCO the gs_track variable need to be set to */ +/* value >0 to enable the tracking code. This way logging can be used */ +/* by an application without degradation of the MUTEX sem performance. */ +/* In addition the gs_debug_sel need to be set to GS_LOG_FLOW to log */ +/* the tracking results. */ +/* Parameters: */ +/* srcFile ptr to source code file name calling this fun */ +/* srcLineNum source code line number */ +/* Return values: */ +/* none */ +/* CRITICAL: gs_free_semx must NOT be called from any slog or stime */ +/* functions. It calls slog and stime functions which would cause */ +/* an infinite loop. Slog and stime must call gs_mutex_free. */ +/************************************************************************/ + +ST_VOID gs_free_semx (SD_CONST ST_CHAR *srcFile, ST_INT srcLineNum) + { +#if defined(DEBUG_SISCO) +ST_CHAR fname[SLOG_MAX_FNAME+1]; +ST_INT idx; + + if (!gs_already_inited) /* Make sure gs is initialized. */ + { + GLBSEM_LOG_ERR0 ("GLBSEM gs_free_semx error: global mutex semaphore not initialized"); + return; + } + + if (gs_track) + { + if (srcFile != NULL) + slogTrimFileName (fname, srcFile); + else + strcpy (fname, "Unknown"); + + GLBSEM_LOG_FLOW2 ("GLBSEM: File %s, Line %d freeing the semaphore", + fname, srcLineNum); + + idx = gs_currSemOwnerIndex; + --gs_currSemOwnerIndex; + if (gs_currSemOwnerIndex == -1) + { + GLBSEM_LOG_CFLOW0 (" The semaphore should now be free"); + } + else if (gs_currSemOwnerIndex >= 0 && gs_currSemOwnerIndex < MAX_SEM_NEST_TRACK) + { + GLBSEM_LOG_CFLOW2 (" File %s, Line %d now has the semaphore", + gs_currSemOwnerFile[gs_currSemOwnerIndex], + gs_currSemOwnerLine[gs_currSemOwnerIndex]); + strcpy (gs_currSemFreeFile[idx], fname); + gs_currSemFreeLine[idx] = srcLineNum; + if (strcmpi (gs_currSemFreeFile[idx], gs_currSemOwnerFile[idx])) + { + GLBSEM_LOG_ERR2 ("Possible problem: %s (%d)", gs_currSemOwnerFile[idx], + gs_currSemOwnerLine[idx]); + } + } + else if (gs_currSemOwnerIndex >= 0 && gs_currSemOwnerIndex >= MAX_SEM_NEST_TRACK) + { + GLBSEM_LOG_CFLOW0 (" Nested too deep to track"); + } + else if (gs_currSemOwnerIndex < -1) + { + GLBSEM_LOG_ERR0 ("GLBSEM gs_free_semx error: Sem track index negative"); + gs_currSemOwnerIndex = -1; + } + } +#endif /* DEBUG_SISCO */ + + gs_mutex_free (&gs_glb_mutex); + } + +#endif /* defined(S_MT_SUPPORT) */ diff --git a/mmslib/util/glbsem_unix.c b/mmslib/util/glbsem_unix.c new file mode 100644 index 0000000..a909f10 --- /dev/null +++ b/mmslib/util/glbsem_unix.c @@ -0,0 +1,1064 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1997-2008, All Rights Reserved */ +/* */ +/* MODULE NAME : glbsem_unix.c */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : Multi-thread support for UNIX-like systems ONLY.*/ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 01/29/08 EJV 11 Use S_FMT_* macros to log pointers & handles.*/ +/* 12/12/05 JRB 10 Disable gs_wait_mult_event_sem with #if 0 to */ +/* catch problems at compile time, not run time.*/ +/* 06/06/05 EJV 09 Added S_MT_SUPPORT to avoid Linux errors. */ +/* 11/04/03 JRB 08 Del gs_sleep (use sMsSleep). */ +/* 10/09/03 JRB 07 Use thisThreadId only if DEBUG_SISCO. */ +/* Use clock_gettime for default system. */ +/* gs_start_thread: don't init threadHandle=NULL*/ +/* 08/25/03 JRB 06 gs_sleep: use rqtp.tv_sec if ms >= 1000. */ +/* 06/20/03 EJV 05 Renamed gs_mutex_get to gs_mutex_get_tm. */ +/* Del param from gs_mutex_get calls. */ +/* 06/12/03 EJV 04 Redesigned mutex sems implementation. */ +/* 06/11/03 EJV 03 Added empty functions: gs_named_mutex_xxx */ +/* and gs_get_named_event_sem */ +/* Added thisFileName, del unmatched #if */ +/* 06/06/03 JRB 02 Del logging in gs_mutex_get, gs_mutex_free. */ +/* 06/06/03 JRB 01 NEW. Code taken out of glbsem.c */ +/************************************************************************/ +#include "glbtypes.h" +#include "sysincs.h" +#include "mem_chk.h" +#include "slog.h" +#include "glbsem.h" + +#if defined(S_MT_SUPPORT_RXB) + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +static ST_RET _gs_sig_event_sem (ST_EVENT_SEM es, ST_INT predicate); + +/*======================================================================*/ +/* UNIX FUNCTIONS complying with POSIX 1003.1c */ +/*======================================================================*/ + + + /*---*---*---*---*---*---*---*---*---*---*---*---*---*--*/ + /* */ + /* MUTEX SEMAPHORE FUNCTIONS for */ + /* _AIX, __alpha */ + /* */ + /*---*---*---*---*---*---*---*---*---*---*---*---*---*--*/ + + +/************************************************************************/ +/* gs_mutex_create */ +/*----------------------------------------------------------------------*/ +/* Creates and initializes MUTEX seamphore. */ +/* Parameters: */ +/* ms pointer to mutex sem struct */ +/* Return values: */ +/* SD_SUCCESS function successful */ +/* SD_FAILURE error occurred */ +/************************************************************************/ + +ST_RET gs_mutex_create (pthread_mutex_t *ms) + { +ST_RET ret; +ST_INT result; +pthread_mutexattr_t mutexattr; +#if defined(DEBUG_SISCO) +ST_THREAD_ID thisThreadId = GET_THREAD_ID(); +#endif + + ret = SD_FAILURE; + + /* Initialize the mutex attributes variable (needed only for mutex init) */ + + result = pthread_mutexattr_init (&mutexattr); + if ( result != 0 ) + { + GLBSEM_LOG_ERR3 ("GLBSEM gs_mutex_create error: Thread " S_FMT_PTR " failed to initialize" + " mutex semaphore ms=" S_FMT_PTR " attributes (error=%d).", + thisThreadId, ms, result); + return (ret); + } + + /* Set the mutex attributes (mutex type to PTHREAD_MUTEX_RECURSIVE). */ + + /* The semaphore type could not be PTHREAD_MUTEX_ERRORCHECK because */ + /* in the DEC UNIX manual there is a warning that "DECthreads does not*/ + /* currently detect deadlock conditions involving more then one mutex,*/ + /* but may in the future." Because of this restriction and the fact */ + /* that ICCP Toolkit is implementing an independent mutex semaphore */ + /* (currently PTHREAD_MUTEX_NORMAL may be changed to ERRORCHECK) or */ + /* possibility that user application may want to use the ERRORCHECK */ + /* semaphore we decided to use the PTHREAD_MUTEX_RECURSIVE. */ + + /* If the semaphore type is PTHREAD_MUTEX_ERRORCHECK then it will */ + /* return an error if the current owner of the semaphore tries */ + /* to lock the mutex again (or thread tries to unlock mutex that it */ + /* does not own). */ + + result = pthread_mutexattr_settype (&mutexattr, PTHREAD_MUTEX_RECURSIVE); + if ( result != 0 ) + { + GLBSEM_LOG_ERR3 ("GLBSEM gs_mutex_create error: thread " S_FMT_PTR " failed to set mutex" + " semaphore ms=" S_FMT_PTR " attributes (error=%d).", + thisThreadId, ms, result); + switch ( result ) + { + case EINVAL: + GLBSEM_LOG_CERR0 ("error=EINVAL (invalid mutex attribute or type)."); + break; + case ESRCH: + GLBSEM_LOG_CERR0 ("error=ESRCH (non existing mutex attributes object)."); + break; + } + + pthread_mutexattr_destroy (&mutexattr); + return (ret); + } + + /* Initialize the mutex with specific attributes. The mutex will be */ + /* in the unlocked state. */ + + result = pthread_mutex_init (ms, &mutexattr); + if ( result != 0 ) + { + GLBSEM_LOG_ERR3 ("GLBSEM gs_mutex_create error: thread " S_FMT_PTR " failed to initialize" + " mutex semaphore ms=" S_FMT_PTR " (error=%d).", + thisThreadId, ms, result); + switch ( result ) + { + case EAGAIN: + GLBSEM_LOG_CERR0 ("error=EAGAIN (system resouces not available)."); + break; + case ENOMEM: + GLBSEM_LOG_CERR0 ("error=ENOMEM (insufficient memory for mutex" + " initialization)."); + break; + case EBUSY: + GLBSEM_LOG_CERR0 ("error=EBUSY (programs requested mutex" + " reinitialization)."); + break; + case EINVAL: + GLBSEM_LOG_CERR0 ("error=EINVAL (invalid mutex argument)."); + break; + case EPERM: + GLBSEM_LOG_CERR0 ("error=EPERM (insufficient privileges)."); + break; + } + + pthread_mutexattr_destroy (&mutexattr); + return (ret); + } + + /* release the mutex attributes object - not needed anymore */ + pthread_mutexattr_destroy (&mutexattr); + + GLBSEM_LOG_FLOW2 ("GLBSEM gs_mutex_create: thread " S_FMT_PTR " initialized " + " mutex semaphore ms=" S_FMT_PTR ".", thisThreadId, ms); + + /* initialized the mutex successfully */ + ret = SD_SUCCESS; + + return (ret); + } + +/************************************************************************/ +/* gs_named_mutex_create */ +/*----------------------------------------------------------------------*/ +/* Create/Open NAMED mutex. */ +/* For each call to this function the gs_named_mutex_destroy must be */ +/* called. */ +/* Parameters: */ +/* ms pointer to mutex object */ +/* name pointer to mutex name. */ +/* Return values: */ +/* SD_SUCCESS function successful */ +/* SD_FAILURE error occurred */ +/************************************************************************/ + +#if 0 /* DEBUG: To be implemented later */ +ST_RET gs_named_mutex_create (ST_MUTEX_SEM *ms, ST_CHAR *name) + { +ST_RET ret = SD_FAILURE; + + /* To be implemented */ + return (ret); + } +#endif /* DEBUG: To be implemented later */ + +/************************************************************************/ +/* gs_mutex_get_tm */ +/*----------------------------------------------------------------------*/ +/* Lock the MUTEX semaphore ms. */ +/* Parameters: */ +/* ms pointer to mutex sem struct */ +/* timeout this parameter is ignored in UNIX implementation*/ +/* Return values: */ +/* SD_SUCCESS function successful */ +/* SD_FAILURE error occurred */ +/* CRITICAL: gs_mutex_get_tm must NOT call any slog, stime, or mem_chk */ +/* functions. These functions call ge_mutex_get which would cause */ +/* an infinite loop. */ +/************************************************************************/ + +ST_RET gs_mutex_get_tm (ST_MUTEX_SEM *ms, ST_LONG timeout) + { +ST_INT result; + + if (!gs_already_inited) /* Make sure gs is initialized. */ + gs_init (); + + /* Because the mutex semaphore type is PTHREAD_MUTEX_RECURSIVE it */ + /* will allow to relock the mutex by the thread that owns the mutex */ + /* without blocking. The lock count is incremented for each recursive */ + /* lock within the thread. */ + /* If the mutex is locked by another thread, the calling thread will */ + /* wait until the mutex become available. */ + + result = pthread_mutex_lock (ms); + assert (result==0); /* otherwise threads will overwrite each other's data */ + + if (result == 0) + return (SD_SUCCESS); + else + return (SD_FAILURE); + } + +/************************************************************************/ +/* gs_mutex_free */ +/*----------------------------------------------------------------------*/ +/* Unlock the MUTEX semaphore ms. */ +/* Parameters: */ +/* ms pointer to mutex sem struct */ +/* Return values: */ +/* SD_SUCCESS function successful */ +/* SD_FAILURE error occurred */ +/* CRITICAL: gs_mutex_free must NOT call any slog, stime, or mem_chk */ +/* functions. These functions call ge_mutex_free which would cause */ +/* an infinite loop. */ +/************************************************************************/ +ST_RET gs_mutex_free (ST_MUTEX_SEM *ms) + { +ST_INT result; + + /* Because the mutex semaphore type is PTHREAD_MUTEX_RECURSIVE */ + /* if the calling thread owns the mutex the lock count is decremented.*/ + /* the mutex remains owned by the calling thread until the count is 0.*/ + /* When the count becomes 0 the mutex is unlocked and can be grabed by*/ + /* next waiting thread. */ + + result = pthread_mutex_unlock (ms); + assert (result==0); /* otherwise threads will overwrite each other's data */ + + if (result == 0) + return (SD_SUCCESS); + else + return (SD_FAILURE); + } + +/************************************************************************/ +/* gs_mutex_destroy */ +/*----------------------------------------------------------------------*/ +/* Free all resources allocated for the MUTEX semaphore ms. */ +/* Parameters: */ +/* ms pointer to mutex sem struct */ +/* Return values: */ +/* SD_SUCCESS function successful */ +/* SD_FAILURE error occurred */ +/************************************************************************/ +ST_RET gs_mutex_destroy (pthread_mutex_t *ms) + { +ST_RET ret; +ST_INT result; +#if defined(DEBUG_SISCO) +ST_THREAD_ID thisThreadId = GET_THREAD_ID(); +#endif + + ret = SD_FAILURE; + + /* The pthread_mutex_destroy function deinitializes the ms mutex */ + /* semaphore. THe function is successful only if the mutex is not */ + /* referenced or locked. */ + + result = pthread_mutex_destroy (ms); + if ( result != 0 ) + { + /* Log a major error here */ + GLBSEM_LOG_ERR3 ("GLBSEM gs_mutex_destroy error: thread " S_FMT_PTR + " failed to destroy mutex semaphore ms=" S_FMT_PTR " (error=%d)", + thisThreadId, ms, result); + switch ( result ) + { + case EBUSY: + GLBSEM_LOG_CERR0 ("error=EBUSY (semaphore locked or referenced)"); + break; + case EINVAL: + GLBSEM_LOG_CERR0 ("error=EINVAL (invalid mutex semaphore)"); + break; + } + + return (ret); + } + + GLBSEM_LOG_FLOW2 ("GLBSEM gs_mutex_destroy: thread " S_FMT_PTR " destroyed mutex" + " semaphore ms=" S_FMT_PTR ".", thisThreadId, ms); + + /* destroy mutex successful */ + ret = SD_SUCCESS; + + return (ret); + } + + /*---*---*---*---*---*---*---*---*---*---*---*---*---*--*/ + /* */ + /* USER's EVENT SEMAPHORE FUNCTIONS for */ + /* _AIX, __alpha */ + /* */ + /*---*---*---*---*---*---*---*---*---*---*---*---*---*--*/ + +/************************************************************************/ +/* gs_get_event_sem */ +/*----------------------------------------------------------------------*/ +/* Creates and initializes an event semaphore. */ +/* The event semaphore is implemented using PTHREADs Condition Variable.*/ +/* Parameters: */ +/* ST_BOOLEAN manualReset Type of event sem */ +/* Return values: */ +/* ST_EVENT_SEM handle (pointer) to event semaphore */ +/* NULL if function failed */ +/************************************************************************/ + +ST_EVENT_SEM gs_get_event_sem (ST_BOOLEAN manualReset) + { +ST_INT result; +ST_EVENT_SEM es = NULL; /* pointer to event sem struct */ +#if defined(DEBUG_SISCO) +ST_THREAD_ID thisThreadId = GET_THREAD_ID(); /* Let's see just who we are */ +#endif + + /* allocate the memory for the event sem */ + + es = (ST_EVENT_SEM) chk_calloc (1, sizeof (GS_EVENT_SEM)); + if ( es == NULL ) + { + GLBSEM_LOG_ERR1 ("GLBSEM gs_get_event_sem error: thread " S_FMT_PTR + " (allocate memory failed).", thisThreadId); + return (NULL); + } + + /* crete mutex for the condition variable */ + if ( gs_mutex_create (&es->mutex) != SD_SUCCESS ) + { + GLBSEM_LOG_ERR1 ("GLBSEM gs_get_event_sem error: thread " S_FMT_PTR + " (gs_mutex_create failed).", thisThreadId); + + chk_free (es); + return (NULL); + } + + /* Condition Variable attributes are currently not implemented, use NULL */ + result = pthread_cond_init (&es->cond, NULL); + if ( result != 0 ) + { + GLBSEM_LOG_ERR2 ("GLBSEM gs_get_event_sem error: thread " S_FMT_PTR + " (pthread_cond_init failed result=%d),", thisThreadId, result); + switch ( result ) + { + case EAGAIN: + GLBSEM_LOG_CERR0 ("result=EAGAIN (system resouces not available)."); + break; + case ENOMEM: + GLBSEM_LOG_CERR0 ("result=ENOMEM (insufficient memory for mutex" + " initialization)."); + break; + case EBUSY: + GLBSEM_LOG_CERR0 ("result=EBUSY (programs requested condition variable" + " reinitialization)."); + break; + case EINVAL: + GLBSEM_LOG_CERR0 ("result=EINVAL (invalid attr argument)."); + break; + } + gs_mutex_destroy (&es->mutex); + chk_free (es); + return (NULL); + } + + GLBSEM_LOG_FLOW2 ("GLBSEM gs_get_event_sem: thread " S_FMT_PTR " initialized event sem es=" S_FMT_PTR ".", + thisThreadId, es); + + /* successfully initialized the event semaphore */ + es->manualReset = manualReset; + return (es); + } + +/************************************************************************/ +/* gs_get_named_event_sem */ +/*----------------------------------------------------------------------*/ +/* Create a "manual-reset" or "auto-reset" NAMED event semaphore. */ +/* Parameters: */ +/* name pointer to semaphore name. */ +/* manualReset SD_TRUE or SD_FALSE */ +/* Return values: */ +/* ST_EVENT_SEM handle to named event semaphore object */ +/************************************************************************/ + +#if 0 /* DEBUG: To be implemented later */ +ST_EVENT_SEM gs_get_named_event_sem (ST_CHAR *name, ST_BOOLEAN manualReset) + { +ST_EVENT_SEM retEventSem = NULL; + + /* To be implemented */ + return (retEventSem); + } +#endif /* DEBUG: To be implemented later */ + +/************************************************************************/ +/* gs_wait_event_sem */ +/*----------------------------------------------------------------------*/ +/* Wait for event semaphore es until it becomes signaled or timeout */ +/* occurrs. */ +/* If compiled with DEBUG_SISCO the gs_track variable need to be set to */ +/* value >0 to enable the timing code. This way logging can be used */ +/* by an application without degradation of the EVENT sem performance. */ +/* Parameters: */ +/* es event semaphore object (pointer) */ +/* timeout interval in milliseconds to wait for the es to */ +/* be signaled, if -1L then the function will be */ +/* blocked indefinitely until the event semaphore */ +/* is signaled. */ +/* Return values: */ +/* SD_SUCCESS function successful */ +/* SD_FAILURE error occurred */ +/* SD_TIMEOUT timeout occurred */ +/************************************************************************/ + +ST_RET gs_wait_event_sem (ST_EVENT_SEM es, ST_LONG timeout) + { +ST_RET ret; +ST_INT result; +struct timespec tsDelta; +struct timespec tsAbstime; +#if defined(DEBUG_SISCO) +ST_DOUBLE startTime; +ST_DOUBLE endTime; +ST_DOUBLE elapsedTime; +ST_THREAD_ID thisThreadId = GET_THREAD_ID(); /* Let's see just who we are */ +#endif +#if defined(linux) +struct timeval curtimeval; /* for gettimeofday */ +#endif + + ret = SD_FAILURE; + + if (!es) + { + GLBSEM_LOG_ERR1 ("GLBSEM gs_wait_event_sem error: thread " S_FMT_PTR " (invalid es=NULL)", + thisThreadId); + return (ret); + } + + /* mutex for the specified condition variable must be locked before */ + /* going into wait or checking preedicate */ + gs_mutex_get (&es->mutex); + + /* Note: according to the docummentation we may not capture the */ + /* signaling of conditional variable if a thread was not waiting*/ + /* for it, since the signaling of the condition is not held */ + /* (AIX and maybe other UNIX systems). */ + /* Let check the predicate for the conditional variable first to*/ + /* see if it was set and act accordingly. */ + + /* To simulate Windows manual-reset semaphore if gs_signal_event_sem */ + /* was used then the semaphore remains signaled until it is exlicitly */ + /* reset to non-signaled state by calling gs_reset_event_sem. */ + /* If it is auto-reset semaphore and ge_signal_event_sem was used but */ + /* no thread was waiting then the sem remains signaled until a thread */ + /* is released. */ + + if (es->predicate == 1) + { + /* conditional variable was signaled before we entered the wait */ + if (es->manualReset == SD_FALSE) + es->predicate = 0; /* simulate release of a waiting thread */ + gs_mutex_free (&es->mutex); + GLBSEM_LOG_FLOW2 ("GLBSEM gs_wait_event_sem: thread " S_FMT_PTR + " returned from wait for es=" S_FMT_PTR " (on entry p=1)", + thisThreadId, es); + return (SD_SUCCESS); + } + /* If gs_pulse_event_sem was used the state of the semaphore should */ + /* be always in non-signaled state when this function is entered. */ + +#if defined(DEBUG_SISCO) + if (gs_track) + startTime = sGetMsTime (); +#endif + + /* set the absolute wait time */ + if ( timeout >= 0 ) + { + tsDelta.tv_sec = timeout / 1000L; + tsDelta.tv_nsec = (timeout % 1000L) * 1000000L; /* nanoseconds */ + +#if defined(_AIX) || (defined(__alpha) && !defined(__VMS)) + /* obtain abosolute time for wakeup */ + result = pthread_get_expiration_np (&tsDelta, &tsAbstime); + if ( result != 0 ) + { + GLBSEM_LOG_ERR3 ("GLBSEM gs_wait_event_sem error: thread " S_FMT_PTR ", es=" S_FMT_PTR + " (pthread_get_expiration_np failed result=%d)", + thisThreadId, es, result); + gs_mutex_free (&es->mutex); + return (ret); + } +#else /* all other systems */ + /* Get current time & add timeout to it. */ +#if defined(linux) + /* LINUX linker can't find "clock_gettime" so use "gettimeofday".*/ + gettimeofday (&curtimeval,NULL); + tsAbstime.tv_sec = curtimeval.tv_sec; /* convert timeval to timespec */ + tsAbstime.tv_nsec = curtimeval.tv_usec*1000; +#else + clock_gettime (CLOCK_REALTIME, &tsAbstime); /* gives timespec, which we want*/ +#endif + tsAbstime.tv_sec += tsDelta.tv_sec; + tsAbstime.tv_nsec += tsDelta.tv_nsec; + /* adjust if (nsec) > 1000000000 */ + if (tsAbstime.tv_nsec / 1000000000 > 0) + { /* in this case, should be EXACTLY = 1 */ + tsAbstime.tv_sec++; /* add 1 second */ + tsAbstime.tv_nsec = tsAbstime.tv_nsec % 1000000000; + } +#endif /* all other systems */ + } + + /* wait until condition signaled or timeout */ + es->predicate = 0; + while ( !es->predicate ) + { + if ( timeout < 0 ) + /* wait indefinitely */ + result = pthread_cond_wait (&es->cond, &es->mutex); + else + /* wait for a period of time, if timeout=0 then fun returns immediatelly */ + result = pthread_cond_timedwait (&es->cond, &es->mutex, &tsAbstime); + + if ( result == 0 ) + { + if (es->predicate) + { + /* if gs_signal_event_sem used then state of predicate will */ + /* remain set until exlicitly reset by gs_reset_event_sem. */ + if (es->manualReset == SD_TRUE && es->predicate == 1) + { + /* do not reset the predicate */ + } + else + es->predicate = 0; + ret = SD_SUCCESS; /* cond var was signaled */ + GLBSEM_LOG_FLOW2 ("GLBSEM gs_wait_event_sem: thread " S_FMT_PTR + " returning from wait for es=" S_FMT_PTR " (success)", + thisThreadId, es); + break; /* exit while */ + } + else + { + if (es->manualReset == SD_TRUE) + { + /* On Windows manual-reset semaphore calling PulseEvent allows*/ + /* to wake up all waiting threads. We will simulate this */ + /* behavior here by ignoring the predicate=0 because other */ + /* thread probably did reset it already. */ + ret = SD_SUCCESS; /* cond var was signaled */ + GLBSEM_LOG_FLOW2 ("GLBSEM gs_wait_event_sem: thread " S_FMT_PTR + " returning from wait for es=" S_FMT_PTR ".", + thisThreadId, es); + break; /* exit while */ + } + else + { + /* On Windows the auto-reset semaphore will allow to wake */ + /* only one thread, so we have to go back to waiting state */ + /* for this thread. */ + + GLBSEM_LOG_FLOW2 ("GLBSEM gs_wait_event_sem: thread " S_FMT_PTR + " spurious wake up for es=" S_FMT_PTR ".", + thisThreadId, es); + continue; + } + } + } + else if (result == ETIMEDOUT) + { + /* it is possible that the predicate was set shortly before timeout */ + if (es->predicate) + { + ret = SD_SUCCESS; /* cond variable signaled */ + GLBSEM_LOG_FLOW2 ("GLBSEM gs_wait_event_sem: thread " S_FMT_PTR + " returned from wait for es=" S_FMT_PTR " (timeout but p=1).", + thisThreadId, es); + } + else + { + ret = SD_TIMEOUT; /* timeout */ + GLBSEM_LOG_FLOW3 ("GLBSEM gs_wait_event_sem: thread " S_FMT_PTR ", es=" S_FMT_PTR + " (timeout of %d ms)", thisThreadId, es, timeout); + } + es->predicate = 0; /* clear for next time */ + break; /* exit while */ + } + else + { + GLBSEM_LOG_ERR3 ("GLBSEM gs_wait_event_sem error: thread " S_FMT_PTR ", es=" S_FMT_PTR + " (pthread_cond_(timed)wait failed result=%d)", + thisThreadId, es, result); + es->predicate = 0; /* clear for next time */ + break; /* exit while */ + } + } /* end while */ + + /* release the mutex semaphore for the conditional variable */ + gs_mutex_free (&es->mutex); + +#if defined(DEBUG_SISCO) + if (gs_track) + { + endTime = sGetMsTime (); + elapsedTime = endTime - startTime; + if (elapsedTime > gs_hwEventTime) + gs_hwEventTime = elapsedTime; + } +#endif /* defined(DEBUG_SISCO) */ + + return (ret); + } + +/************************************************************************/ +/* gs_wait_mult_event_sem */ +/*----------------------------------------------------------------------*/ +/* NOT IMPLEMENTED. */ +/* Wait for event semaphore es until it becomes signaled or timeout */ +/* occurrs. */ +/* Parameters: */ +/* numEvents number of event semaphores to wait for */ +/* esTable pointer to table of event semaphore objects */ +/* activity pointer to table where this function will mark */ +/* proper index entry with SD_TRUE for the event */ +/* semaphore that have been signaled */ +/* timeout interval in milliseconds to wait for the es to */ +/* be signaled, if -1L then the function will be */ +/* blocked indefinitely until the event semaphore */ +/* is signaled. */ +/* Return values: */ +/* SD_SUCCESS function successful */ +/* SD_FAILURE error occurred */ +/* SD_TIMEOUT timeout */ +/************************************************************************/ +#if 0 /* DEBUG: Not implemented on this platform. Is it needed? */ +ST_RET gs_wait_mult_event_sem (ST_INT numEvents, ST_EVENT_SEM *esTable, + ST_BOOLEAN *activity, ST_LONG timeout) + { +ST_RET ret = SD_FAILURE; + return (ret); + } +#endif + +/************************************************************************/ +/* _gs_sig_event_sem */ +/*----------------------------------------------------------------------*/ +/* Signal event semaphore es. */ +/* pthread_cond_signal wakes up at least one thread that is currently */ +/* blocked on the specified condition. The higher priority thread will */ +/* wake up first. This is like Windows auto-reset semaphore. */ +/* pthread_cond_broadcast wakes up all waiting threads on specified */ +/* condition. This is like Windows manual-reset semaphore. */ +/* Parameters: */ +/* es event semaphore object (pointer) */ +/* predicate value for the predicate to be set to. */ +/* Return values: */ +/* none */ +/************************************************************************/ + +static ST_RET _gs_sig_event_sem (ST_EVENT_SEM es, ST_INT predicate) + { +ST_INT result = SD_FAILURE; +#if defined(DEBUG_SISCO) +ST_THREAD_ID thisThreadId = GET_THREAD_ID(); /* Let's see just who we are */ +#endif + + if (!es) + { + GLBSEM_LOG_ERR1 ("GLBSEM _gs_sig_event_sem error: thread " S_FMT_PTR + " (invalid es=NULL)", thisThreadId); + return (result); + } + + /* mutex for the specified condition variable must be locked before */ + /* going changing predicate and signaling */ + gs_mutex_get (&es->mutex); + + es->predicate = predicate; + if (es->manualReset == SD_TRUE) + result = pthread_cond_broadcast (&es->cond); + else + result = pthread_cond_signal (&es->cond); + + /* release the mutex semaphore for the conditional variable */ + gs_mutex_free (&es->mutex); + + if (result != 0) + { + GLBSEM_LOG_ERR3 ("GLBSEM _gs_sig_event_sem error: thread " S_FMT_PTR ", es=" S_FMT_PTR + " (pthread_cond_signal(broadcast) failed result=%d)", + thisThreadId, es, result); + } + + return (result); + } + +/************************************************************************/ +/* gs_signal_event_sem */ +/*----------------------------------------------------------------------*/ +/* Signal event semaphore es. */ +/* This behaviour is similiar to Windows auto-reset event semaphore */ +/* when SetEvent is used to signal. */ +/* The condition's predicate will be reset by the woken thread, */ +/* see gs_wait_event_sem. */ +/* If no thread is waiting the predicate remains set but the signaling */ +/* is not held. If new thread calls gs_wait_event_sem it will return */ +/* without going to wait state because the predicate value is 1. */ +/* Parameters: */ +/* es event semaphore object (pointer) */ +/* Return values: */ +/* none */ +/************************************************************************/ + +ST_VOID gs_signal_event_sem (ST_EVENT_SEM es) + { + ST_INT result; + ST_INT predicate = 1; + + result = _gs_sig_event_sem (es, predicate); + + if (result == 0) + { + GLBSEM_LOG_FLOW2 ("GLBSEM gs_signal_event_sem: thread " S_FMT_PTR " signaled es=" S_FMT_PTR ".", + GET_THREAD_ID(), es); + } + } + +/************************************************************************/ +/* gs_pulse_event_sem */ +/*----------------------------------------------------------------------*/ +/* Signal event semaphore es. */ +/* This behaviour is similiar to Windows auto-reset event semaphore */ +/* when PulseEvent is used to signal. The condition's predicate will be */ +/* reset by the woken thread, see gs_wait_event_sem. */ +/* If no thread is waiting the predicate remains set but the signaling */ +/* is not held. If a thread calls the gs_wait_event_sem it will go */ +/* into wait state because the predicate value is 2. */ +/* Parameters: */ +/* es event semaphore object (pointer) */ +/* Return values: */ +/* none */ +/************************************************************************/ + +ST_VOID gs_pulse_event_sem (ST_EVENT_SEM es) + { + ST_INT result; + ST_INT predicate = 2; + + result = _gs_sig_event_sem (es, predicate); + + if (result == 0) + { + GLBSEM_LOG_FLOW2 ("GLBSEM gs_pulse_event_sem: thread " S_FMT_PTR " signaled es=" S_FMT_PTR ".", + GET_THREAD_ID(), es); + } + } + +/************************************************************************/ +/* gs_reset_event_sem */ +/*----------------------------------------------------------------------*/ +/* Reset event semaphore es. */ +/* Parameters: */ +/* es event semaphore object (pointer) */ +/* Return values: */ +/* none */ +/************************************************************************/ + +ST_VOID gs_reset_event_sem (ST_EVENT_SEM es) + { + /* mutex for the specified condition variable must be locked before */ + /* going changing predicate and signaling */ + gs_mutex_get (&es->mutex); + + es->predicate = 0; + + /* release the mutex semaphore for the conditional variable */ + gs_mutex_free (&es->mutex); + } + +/************************************************************************/ +/* gs_free_event_sem */ +/*----------------------------------------------------------------------*/ +/* Release resources taken by event semaphore es. */ +/* Parameters: */ +/* es event semaphore object (pointer) */ +/* Return values: none */ +/* none */ +/************************************************************************/ + +ST_VOID gs_free_event_sem (ST_EVENT_SEM es) + { +ST_RET ret; +ST_INT result; +#if defined(DEBUG_SISCO) +ST_THREAD_ID thisThreadId = GET_THREAD_ID(); /* Let's see just who we are */ +#endif + + if (!es) + { + GLBSEM_LOG_ERR1 ("GLBSEM gs_free_event_sem error: thread " S_FMT_PTR + " (invalid es=NULL)", thisThreadId); + return; + } + + /* free mutex */ + ret = gs_mutex_destroy (&es->mutex); + if ( ret != SD_SUCCESS) + return; /* mutex probably busy, a thread is in the gs_wait_event_sem */ + + /* free the conditional variable */ + result = pthread_cond_destroy (&es->cond); + if (result != 0) + { + GLBSEM_LOG_ERR3 ("GLBSEM gs_free_event_sem error: thread " S_FMT_PTR ", es=" S_FMT_PTR + " (pthread_cond_destroy failed result=%d)", + thisThreadId, es, result); + switch ( result ) + { + case EBUSY: + GLBSEM_LOG_CERR0 ("result=EBUSY (program requested to destroy" + " referenced condition variable)."); + break; + case EINVAL: + GLBSEM_LOG_CERR0 ("result=EINVAL (invalid cond argument)."); + break; + } + } + else + { + GLBSEM_LOG_FLOW2 ("GLBSEM gs_free_event_sem: thread " S_FMT_PTR + " released event sem es=" S_FMT_PTR ".", thisThreadId, es); + } + + /* free this allocated pointer */ + chk_free (es); + } + + + /*---*---*---*---*---*---*---*---*---*---*---*---*---*--*/ + /* */ + /* USER's THREAD FUNCTIONS for _AIX, __alpha */ + /* */ + /*---*---*---*---*---*---*---*---*---*---*---*---*---*--*/ + +/************************************************************************/ +/* gs_start_thread */ +/*----------------------------------------------------------------------*/ +/* Start a new thread. */ +/* Parameters: */ +/* threadFunc pointer to thread function to run */ +/* threadArg thread function argument */ +/* threadHandleOut pointer where to return thread handle */ +/* threadIdOut pointer where to return thread ID */ +/* Return values: */ +/* SD_SUCCESS function successful */ +/* SD_FAILURE error occurred */ +/************************************************************************/ + +ST_RET gs_start_thread (ST_THREAD_RET (*threadFunc) (ST_THREAD_ARG), + ST_THREAD_ARG threadArg, + ST_THREAD_HANDLE *threadHandleOut, + ST_THREAD_ID *threadIdOut) + { +ST_RET ret; +ST_INT result; +ST_THREAD_HANDLE threadHandle; +pthread_attr_t init_attr; + + /* set the thread parameters just in case the default are not set as */ + /* we expecting */ + result = pthread_attr_init (&init_attr); + if (result != 0 ) + { + ret = SD_FAILURE; + + GLBSEM_LOG_ERR1 ("GLBSEM error: gs_start_thread pthread_attr_init failed" + " (error=%d)", result); + switch ( result ) + { + case EINVAL: + GLBSEM_LOG_CERR0 ("errno=EINVAL (invalid attr argument)"); + break; + case ENOMEM: + GLBSEM_LOG_CERR0 ("errno=ENOMEM (insufficient memory to create thread)"); + break; + } + return (ret); + } + result = pthread_attr_setdetachstate (&init_attr, PTHREAD_CREATE_JOINABLE); + if (result != 0 ) + { + ret = SD_FAILURE; + + GLBSEM_LOG_ERR1 ("GLBSEM error: gs_start_thread pthread_attr_setdetachstate failed" + " (error=%d)", result); + switch ( result ) + { + case EINVAL: + GLBSEM_LOG_CERR0 ("errno=EINVAL (invalid detachstate)"); + break; + } + return (ret); + } + + /* The thread is created with the default attribute PTHREAD_CREATE_JOINABLE */ + /* that allows us to wait until the thread terminates in the gs_wait_thread */ + /* function. */ + + result = pthread_create (&threadHandle, /* pointer for thread pointer */ + &init_attr, /* if NULL, use default thread attr */ + threadFunc, /* thread funct to be executed */ + threadArg); /* thread funct argument */ + if (result == 0 ) + { + /* Thread created successfully */ + ret = SD_SUCCESS; + + if (threadHandleOut != NULL) + *threadHandleOut = threadHandle; + + if (threadIdOut != NULL) + *threadIdOut = threadHandle; /* use thread handle as id */ + + GLBSEM_LOG_FLOW1 ("GLBSEM: gs_start_thread created thread threadHandle=" S_FMT_THREAD_HANDLE ".", + threadHandle); + } + else + { + ret = SD_FAILURE; + + GLBSEM_LOG_ERR1 ("GLBSEM error: gs_start_thread create thread failed" + " (error=%d)", result); + switch ( result ) + { + case EAGAIN: + GLBSEM_LOG_CERR0 ("errno=EAGAIN (insufficient resources to create" + " thread, limit exceeded)"); + break; + case EINVAL: + GLBSEM_LOG_CERR0 ("errno=EINVAL (invalid attr argument)"); + break; + case ENOMEM: + GLBSEM_LOG_CERR0 ("errno=ENOMEM (insufficient memory to create thread)"); + break; + case EPERM: + GLBSEM_LOG_CERR0 ("errno=EPERM (insufficient permission to create thread)"); + break; + } + } + + return (ret); + } + +/************************************************************************/ +/* gs_wait_thread */ +/*----------------------------------------------------------------------*/ +/* Wait until thread with threadHandle terminates or timeout occurrs. */ +/* On UNIX systems the is no option for timed wait. This function will */ +/* wait until the thread is terminated. */ +/* Parameters: */ +/* threadHandle thread handle returned from gs_start_thread */ +/* threadId thread ID returned from gs_start_thread */ +/* timeout max time in milliseconds to wait for thread to */ +/* terminate. IGNORED. */ +/* Return values: */ +/* SD_SUCCESS function successful */ +/* SD_FAILURE error occurred */ +/************************************************************************/ +ST_RET gs_wait_thread (ST_THREAD_HANDLE threadHandle, + ST_THREAD_ID threadId, ST_LONG timeout) + { +ST_RET ret; +ST_INT result; + + result = pthread_join (threadHandle, NULL); + if ( result == 0 ) + { + /* thread terminated successfully */ + ret = SD_SUCCESS; + GLBSEM_LOG_FLOW1 ("GLBSEM: pthread_join SUCCESS for thread threadHandle=" S_FMT_THREAD_HANDLE ".", + threadHandle); + } + else + { + ret = SD_FAILURE; + GLBSEM_LOG_ERR2 ("GLBSEM error: pthread_join failed for thread " S_FMT_THREAD_HANDLE "." + " (error=%d)", threadHandle, result); + switch ( result ) + { + case EINVAL: + GLBSEM_LOG_CERR0 ("errno=EINVAL (thread is not joinable)"); + break; + case ESRCH: + GLBSEM_LOG_CERR0 ("errno=ESRCH (invalid thread)"); + break; + case EDEADLK: + GLBSEM_LOG_CERR0 ("errno=EDEADLK (deadlock, or thread specifies" + " the calling thread)"); + break; + } + } + + return (ret); + } + +/************************************************************************/ +/* gs_close_thread */ +/*----------------------------------------------------------------------*/ +/* Cleanup after thread terminated. */ +/* Parameters: */ +/* threadHandle thread handle ret from gs_start_thread()*/ +/* Return values: */ +/* SD_SUCCESS function successful */ +/* SD_FAILURE error occurred */ +/************************************************************************/ + +ST_RET gs_close_thread (ST_THREAD_HANDLE threadHandle) + { +ST_RET ret = SD_SUCCESS; + + /* nothing to clean up here */ + return (ret); + } + +#endif /* defined(S_MT_SUPPORT) */ diff --git a/mmslib/util/glbsem_w32.c b/mmslib/util/glbsem_w32.c new file mode 100644 index 0000000..3b675a8 --- /dev/null +++ b/mmslib/util/glbsem_w32.c @@ -0,0 +1,1139 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1997-2008, All Rights Reserved */ +/* */ +/* MODULE NAME : glbsem_w32.c */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : Multi-thread support for Windows ONLY. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 06/10/08 EJV 21 Ported to Windows Vista. */ +/* 03/27/08 EJV 20 Use S_MAX_PATH instead of MAX_PATH. */ +/* 01/29/08 EJV 19 Use S_FMT_* macros to log pointers & handles.*/ +/* 05/23/07 DSF 18 Added dependency on advapi32.dll */ +/* 06/29/06 MDE,EJV 17 Added UNICODE support (gs_translate_name). */ +/* Del , see sysincs.h. */ +/* 04/12/05 DSF 16 Added refCount member to GS_MUTEX (Windows) */ +/* 01/06/05 DSF 15 Added owner member to GS_MUTEX (Windows) */ +/* 01/14/05 EJV 14 Reversed change. */ +/* 07/21/04 DWL 13 Added ifdef so non debug configs would build.*/ +/* 07/02/04 DSF 12 Always link in winmm.lib */ +/* 05/21/04 DSF 11 Timeout log is now FLOW instead of NERR */ +/* 04/19/04 DSF 10 gs_wait_thread () now returns SD_TIMEOUT on */ +/* timeouts */ +/* 12/29/03 ASK 09 enable logLastError, pass gle to logLastError*/ +/* 12/03/03 EJV 08 gs_is_win_ver(): chg return ST_RET to ST_INT;*/ +/* Add SD_WIN_VER_2003_AND_LATER, replaced */ +/* SD_WIN_VER_NET with SD_WIN_VER_2003; */ +/* 12/01/03 EJV 07 gs_is_win_ver: chk for corr ret 1, 0, -1. */ +/* Named mutex, event: for 2000S w/terminal serv*/ +/* chg from XP to SD_WIN_VER_2K_AND_LATER. */ +/* 11/24/03 DSF 06 Spelling */ +/* 11/04/03 JRB 05 Del gs_sleep (use sMsSleep). */ +/* 06/20/03 EJV 04 Renamed gs_mutex_get to gs_mutex_get_tm. */ +/* 06/12/03 EJV 03 Redesigned mutex sems implementation. */ +/* 06/10/03 EJV 02 Added gs_named_mutex_xxx functions. */ +/* 06/06/03 JRB 01 NEW. Code taken out of glbsem.c */ +/************************************************************************/ +#include "glbtypes.h" +#include "sysincs.h" +#include "mem_chk.h" +#include "slog.h" +#include "glbsem.h" + +#ifdef WIN32 + +#pragma comment(linker, "/defaultlib:winmm.lib") +#pragma comment(linker, "/defaultlib:advapi32.lib") + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +static ST_VOID logLastError (DWORD errCode); + + /*---*---*---*---*---*---*---*---*---*---*---*---*---*--*/ + /* */ + /* MUTEX SEMAPHORE FUNCTIONS for _WIN32 */ + /* */ + /*---*---*---*---*---*---*---*---*---*---*---*---*---*--*/ + +/************************************************************************/ +/* gs_mutex_create */ +/*----------------------------------------------------------------------*/ +/* Initialize the mutex semaphore ms. */ +/* CRITICAL_SECTION is used for mutex semaphore for faster operation. */ +/* Parameters: */ +/* ms pointer to mutex object */ +/* Return values: */ +/* SD_SUCCESS function successful */ +/* SD_FAILURE error occurred */ +/************************************************************************/ + +ST_RET gs_mutex_create (ST_MUTEX_SEM *ms) + { + ms->mutexType = GS_MUTEX_UNNAMED; + ms->owner = 0; + ms->refCount = 0; + InitializeCriticalSection (&ms->u.cs); + + return (SD_SUCCESS); + } + +/************************************************************************/ +/* gs_translate_name */ +/*----------------------------------------------------------------------*/ +/* This function, if necessary, will prepend "Global\\" to the name and */ +/* convert the name to Unicode. */ +/* name ptr to name str (named mutex or sem). */ +/* newName, wideName ptr to output buffer. */ +/* bufSize output buffer size. */ +/* */ +/* !NOTE: The UNICODE was not tested. */ +/************************************************************************/ +#if defined (UNICODE) +ST_RET gs_translate_name (ST_CHAR *name, WCHAR *wideName, ST_UINT bufSize) +#else +ST_RET gs_translate_name (ST_CHAR *name, ST_CHAR *newName, ST_UINT bufSize) +#endif +{ +#if defined (UNICODE) +ST_CHAR tmpName[S_MAX_PATH]; /* max size that a mutex/sem name can have */ +#endif +ST_UINT maxLen; +ST_BOOLEAN bPrepend = SD_FALSE; + + /* NOTE: do not put any logging to this function. It is used in DLLs. */ + + /* compute the max name size that can be handled & set bPrepend flag */ + #if defined (UNICODE) + maxLen = sizeof(tmpName) - 1; + #else + maxLen = bufSize - 1; + #endif + if (gs_is_win_ver (SD_WIN_VER_2K_AND_LATER) == 1) + if (memcmp (name, "Global\\", strlen ("Global\\")) != 0) + { + /* need to prepend "Global\\" */ + maxLen = maxLen - strlen ("Global\\"); + bPrepend = SD_TRUE; + } + + /* make sure we got buffer big enough for the resulting prepended name */ + if (strlen(name) > maxLen) + return (SD_FAILURE); + +#if defined (UNICODE) + { + /* copy the name to temporary buffer and prepend "Global\\" if necessary */ + if (bPrepend) + sprintf (tmpName, "Global\\%s", name); + else + strcpy (tmpName, name); + + /* Convert ANSI name to Unicode (error will be set if bufSize is too small) */ + if (MultiByteToWideChar (CP_ACP, 0, tmpName, strlen (tmpName)+1, wideName, bufSize) == 0) + return (SD_FAILURE); + } +#else /* !defined (UNICODE) */ + if (bPrepend) + sprintf (newName, "Global\\%s", name); + else + strcpy (newName, name); +#endif /* !defined (UNICODE) */ + + return (SD_SUCCESS); +} + +/************************************************************************/ +/* gs_named_mutex_create */ +/*----------------------------------------------------------------------*/ +/* Create/Open NAMED mutex. */ +/* On Windows XP this function prepends 'Global\\' to the mutex name */ +/* and sets the security descriptor in the way that the mutex can */ +/* be accessed by processes in different user spaces (in Windows XP Fast*/ +/* User Switching). */ +/* For each call to this function the gs_named_mutex_destroy must be */ +/* called. */ +/* Parameters: */ +/* ms pointer where to return handle to named mutex */ +/* name pointer to mutex name. */ +/* Return values: */ +/* SD_SUCCESS function successful */ +/* SD_FAILURE error occurred */ +/************************************************************************/ + +ST_RET gs_named_mutex_create (ST_MUTEX_SEM *ms, ST_CHAR *name) + { +ST_RET ret = SD_SUCCESS; +HANDLE hMutex = NULL; +#if defined (UNICODE) +WCHAR mutexName[S_MAX_PATH]; +#else +ST_CHAR mutexName[S_MAX_PATH]; +#endif + + if (ms == NULL || name == NULL) + { +#if defined(DEBUG_SISCO) + GLBSEM_LOG_ERR0 ("GLBSEM error: gs_named_mutex_create() failed ms=NULL or name=NULL"); +#endif + return (SD_FAILURE); + } + + ret = gs_translate_name (name, mutexName, (ST_UINT) (sizeof(mutexName)/sizeof(mutexName[0]))); + if (ret != SD_SUCCESS) + { +#if defined(DEBUG_SISCO) + GLBSEM_LOG_ERR1 ("GLBSEM error: gs_translate_name () failed, name='%s'.", name); +#endif + return (ret); + } + + /* set the mutex type */ + ms->mutexType = GS_MUTEX_NAMED; + ms->owner = 0; + ms->refCount = 0; + + if (gs_is_win_ver (SD_WIN_VER_2K_AND_LATER) == 1) + { + PSECURITY_DESCRIPTOR psd; + SECURITY_ATTRIBUTES sa; + + /* This code allows the mutex to be accessed from different */ + /* applications in different users (Windows XP Fast User Switching). */ + psd = (PSECURITY_DESCRIPTOR) LocalAlloc(LPTR, SECURITY_DESCRIPTOR_MIN_LENGTH); + if (psd == NULL) + return (SD_FAILURE); + if (!InitializeSecurityDescriptor(psd, SECURITY_DESCRIPTOR_REVISION)) + { + LocalFree (psd); + return (SD_FAILURE); + } + if (!SetSecurityDescriptorDacl(psd, TRUE, (PACL) NULL, FALSE)) + { + LocalFree (psd); + return (SD_FAILURE); + } + sa.nLength = sizeof(sa); + sa.lpSecurityDescriptor = psd; + sa.bInheritHandle = TRUE; + + hMutex = CreateMutex (&sa, /* security attributes */ + SD_FALSE, /* FALSE is initially not owned */ + mutexName); /* object name */ + if (hMutex == NULL) + { +#if defined(DEBUG_SISCO) + DWORD gle = GetLastError (); + GLBSEM_LOG_ERR2 ("GLBSEM error: CreateMutex failed GLE=%d for %s", + (unsigned int) gle, mutexName); +#endif + ret = SD_FAILURE; + } + LocalFree (psd); + } + else + { + /* this is Win 98, NT or 2000 */ + hMutex = CreateMutex (NULL, /* no security attributes */ + SD_FALSE, /* FALSE is initially not owned */ + mutexName); /* object name */ + if (hMutex == NULL) + { +#if defined(DEBUG_SISCO) + DWORD gle = GetLastError (); + GLBSEM_LOG_ERR2 ("GLBSEM error: CreateMutex failed GLE=%d for %s", + (unsigned int) gle, mutexName); +#endif + ret = SD_FAILURE; + } + } + + ms->u.hMutex = hMutex; /* return the handle to user */ + + return (ret); + } + +/************************************************************************/ +/* gs_mutex_get_tm */ +/*----------------------------------------------------------------------*/ +/* Lock the mutex semaphore ms. */ +/* This function uses the gs_wait_event_sem to wait for ownership of */ +/* the named mutex. The named mutex object can be also passed to the */ +/* gs_wait_mult_event_sem function when waiting for multiple objects is */ +/* required. */ +/* */ +/* Parameters: */ +/* ms pointer to mutex object */ +/* timeout Interval in milliseconds to wait for the named */ +/* mutex to be owned, if -1L then the function will*/ +/* be blocked indefinitely until the named mutex */ +/* is owned. */ +/* The timeout parameter is ignored for unnamed */ +/* mutex. The function will wait indefinetely until*/ +/* the mutex is owned. */ +/* Return values: */ +/* none */ +/* SD_SUCCESS function successful */ +/* SD_FAILURE error occurred */ +/* SD_TIMEOUT timeout */ +/* */ +/* CRITICAL: gs_mutex_get_tm must NOT call any slog, stime, or mem_chk */ +/* functions. These functions call gs_mutex_get_tm causing */ +/* an infinite loop. Logging in the named mutex code is OK. */ +/************************************************************************/ + +ST_RET gs_mutex_get_tm (ST_MUTEX_SEM *ms, ST_LONG timeout) + { +ST_RET ret = SD_SUCCESS; + + if (!gs_already_inited) /* Make sure gs is initialized. */ + gs_init (); + + if (ms->mutexType == GS_MUTEX_UNNAMED) + /* ! do not put logging here to avoid infinite loop */ + EnterCriticalSection (&ms->u.cs); + else + /* named mutex */ + ret = gs_wait_event_sem ((ST_EVENT_SEM) ms->u.hMutex, timeout); + if (ret == SD_SUCCESS) + { + ms->owner = GET_THREAD_ID (); + ++ms->refCount; + } + + return (ret); + } + +/************************************************************************/ +/* gs_mutex_free */ +/*----------------------------------------------------------------------*/ +/* Unlock the mutex semaphore ms. */ +/* Parameters: */ +/* ms pointer to mutex object */ +/* Return values: */ +/* SD_SUCCESS function successful */ +/* SD_FAILURE error occurred */ +/* CRITICAL: gs_mutex_free must NOT call any slog, stime, or mem_chk */ +/* functions. These functions call ge_mutex_free which would cause */ +/* an infinite loop. Logging in the named mutex code is OK. */ +/************************************************************************/ + +ST_RET gs_mutex_free (ST_MUTEX_SEM *ms) + { +ST_RET ret = SD_SUCCESS; + + --ms->refCount; + if (ms->refCount == 0) + ms->owner = 0; + if (ms->mutexType == GS_MUTEX_UNNAMED) + /* ! do not put logging here to avoid infinite loop */ + LeaveCriticalSection (&ms->u.cs); + else + { + /* named mutex */ + if (ReleaseMutex (ms->u.hMutex) == SD_FALSE) + { +#if defined(DEBUG_SISCO) + DWORD gle = GetLastError (); + GLBSEM_LOG_ERR2 ("GLBSEM error: ReleaseMutex failed for hMutex=" S_FMT_HANDLE " (GLE=%d)", + ms->u.hMutex, (unsigned int) gle); +#endif + ret = SD_FAILURE; + } + } + + return (ret); + } + +/************************************************************************/ +/* gs_mutex_destroy */ +/*----------------------------------------------------------------------*/ +/* Free all resources allocated for the MUTEX semaphore ms. */ +/* Parameters: */ +/* ms pointer to mutex object */ +/* Return values: */ +/* SD_SUCCESS function successful */ +/* SD_FAILURE error occurred */ +/************************************************************************/ + +ST_RET gs_mutex_destroy (ST_MUTEX_SEM *ms) + { +ST_RET ret = SD_SUCCESS; + + if (ms->mutexType == GS_MUTEX_UNNAMED) + DeleteCriticalSection (&ms->u.cs); + else + { + /* named mutex */ + if (CloseHandle (ms->u.hMutex) == SD_FALSE) + { +#if defined(DEBUG_SISCO) + DWORD gle = GetLastError (); + GLBSEM_LOG_ERR2 ("GLBSEM error: CloseHandle failed for hMutex=" S_FMT_HANDLE " (GLE=%d)", + ms->u.hMutex, (unsigned int) gle); +#endif + ret = SD_FAILURE; + } + } + + return (ret); + } + + /*---*---*---*---*---*---*---*---*---*---*---*---*---*--*/ + /* */ + /* USER's EVENT SEMAPHORE FUNCTIONS for _WIN32 */ + /* */ + /*---*---*---*---*---*---*---*---*---*---*---*---*---*--*/ + +/************************************************************************/ +/* gs_get_event_sem */ +/*----------------------------------------------------------------------*/ +/* Create a "manual-reset" or "auto-reset" event semaphore. */ +/* Parameters: */ +/* manualReset SD_TRUE or SD_FALSE */ +/* Return values: */ +/* ST_EVENT_SEM handle to event semaphore object */ +/************************************************************************/ + +ST_EVENT_SEM gs_get_event_sem (ST_BOOLEAN manualReset) + { +ST_EVENT_SEM retEventSem; + + retEventSem = CreateEvent(NULL, // no security attributes + manualReset, // manual-reset event + FALSE, // initial state is signaled + NULL // object name + ); + if (retEventSem == NULL) + GLBSEM_LOG_ERR1 ("GLBSEM error: CreateEvent failed for event semaphore, rc = %d", GetLastError ()); + + return (retEventSem); + } + +/************************************************************************/ +/* gs_get_named_event_sem */ +/*----------------------------------------------------------------------*/ +/* Create a "manual-reset" or "auto-reset" NAMED event semaphore. */ +/* On Windows XP this function prepends 'Global\\' to the semaphore name*/ +/* and sets the security descriptor in the way that the semaphore can */ +/* be accessed by processes in different user spaces (in Windows XP Fast*/ +/* User Switching). */ +/* Parameters: */ +/* name pointer to semaphore name. */ +/* manualReset SD_TRUE or SD_FALSE */ +/* Return values: */ +/* ST_EVENT_SEM handle to named event semaphore object */ +/************************************************************************/ + +ST_EVENT_SEM gs_get_named_event_sem (ST_CHAR *name, ST_BOOLEAN manualReset) + { +ST_EVENT_SEM retEventSem = NULL; +#if defined (UNICODE) +WCHAR semName[S_MAX_PATH]; +#else +ST_CHAR semName[S_MAX_PATH]; +#endif + + /* NOTE: do not put any logging to this function. It is used in DLLs. */ + + if (gs_translate_name (name, semName, (ST_UINT) (sizeof(semName)/sizeof(semName[0]))) + != SD_SUCCESS) + return (NULL); + + if (gs_is_win_ver (SD_WIN_VER_2K_AND_LATER) == 1) + { + PSECURITY_DESCRIPTOR psd; + SECURITY_ATTRIBUTES sa; + + /* This code allows the event semaphore to be accessed from different */ + /* applications in different users (Windows XP Fast User Switching). */ + psd = (PSECURITY_DESCRIPTOR) LocalAlloc(LPTR, SECURITY_DESCRIPTOR_MIN_LENGTH); + if (psd == NULL) + return (NULL); + if (!InitializeSecurityDescriptor(psd, SECURITY_DESCRIPTOR_REVISION)) + { + LocalFree (psd); + return (NULL); + } + if (!SetSecurityDescriptorDacl(psd, TRUE, (PACL) NULL, FALSE)) + { + LocalFree (psd); + return (NULL); + } + sa.nLength = sizeof(sa); + sa.lpSecurityDescriptor = psd; + sa.bInheritHandle = TRUE; + + retEventSem = CreateEvent(&sa, /* security attributes */ + manualReset, /* manual-reset event */ + SD_FALSE, /* initial state is non-signaled */ + semName); /* object name */ + LocalFree (psd); + } + else + { + /* this is Win 98, NT or 2000 */ + retEventSem = CreateEvent (NULL, manualReset, SD_FALSE, semName); + } + + return (retEventSem); + } + +/************************************************************************/ +/* gs_wait_event_sem */ +/*----------------------------------------------------------------------*/ +/* Wait for event semaphore es until it becomes signaled or timeout */ +/* occurrs. */ +/* If compiled with DEBUG_SISCO the gs_track variable need to be set to */ +/* value >0 to enable the timing code. This way logging can be used */ +/* by an application without degradation of the EVENT sem performance. */ +/* Parameters: */ +/* es event semaphore object */ +/* timeout interval in milliseconds to wait for the es to */ +/* be signaled, if -1L then the function will be */ +/* blocked indefinitely until the event semaphore */ +/* is signaled. */ +/* Return values: */ +/* SD_SUCCESS function successful */ +/* SD_FAILURE error occurred */ +/* SD_TIMEOUT timeout */ +/************************************************************************/ + +ST_RET gs_wait_event_sem (ST_EVENT_SEM es, ST_LONG timeout) + { +ST_RET ret; +DWORD rc; +#if defined(DEBUG_SISCO) +DWORD gle; +ST_DOUBLE startTime; +ST_DOUBLE endTime; +ST_DOUBLE elapsedTime; +#endif +ST_THREAD_ID thisThreadId; + + /* Let's see just who we are */ + thisThreadId = GET_THREAD_ID(); + +#if defined(DEBUG_SISCO) + if (gs_track) + startTime = sGetMsTime (); +#endif + + rc = WaitForSingleObject (es, timeout); + +#if defined(DEBUG_SISCO) + if (gs_track) + { + endTime = sGetMsTime (); + elapsedTime = endTime - startTime; + if (elapsedTime > gs_hwEventTime) + gs_hwEventTime = elapsedTime; + } +#endif + + if (rc == WAIT_FAILED) + { +#if defined(DEBUG_SISCO) + gle = GetLastError (); + GLBSEM_LOG_ERR3 ("GLBSEM error: WaitEvent rc=0x%04x, GLE=0x%04x, ThreadId=0x%08x", + (unsigned int) rc, (unsigned int)gle, thisThreadId); + logLastError (gle); +#endif + ret = SD_FAILURE; + } + else if (rc == WAIT_TIMEOUT) + ret = SD_TIMEOUT; + else + ret = SD_SUCCESS; + + return (ret); + } + +/************************************************************************/ +/* gs_wait_mult_event_sem */ +/*----------------------------------------------------------------------*/ +/* Wait for event semaphores in table esTable until one of them becomes */ +/* signaled or timeout occurrs. */ +/* If compiled with DEBUG_SISCO the gs_track variable need to be set to */ +/* value >0 to enable the timing code. This way logging can be used */ +/* by an application without degradation of the EVENT sem performance. */ +/* Parameters: */ +/* numEvents number of event semaphores to wait for */ +/* esTable pointer to table of event semaphore objects */ +/* activity pointer to table where this function will mark */ +/* proper index entry with SD_TRUE for the event */ +/* semaphore that have been signaled */ +/* timeout interval in milliseconds to wait for the es to */ +/* be signaled, if -1L then the function will be */ +/* blocked indefinitely until the event semaphore */ +/* is signaled. */ +/* Return values: */ +/* SD_SUCCESS function successful */ +/* SD_FAILURE error occurred */ +/* SD_TIMEOUT timeout */ +/************************************************************************/ + +ST_RET gs_wait_mult_event_sem (ST_INT numEvents, ST_EVENT_SEM *esTable, + ST_BOOLEAN *activity, ST_LONG timeout) + { +ST_RET ret; +DWORD rc; +ST_INT i; +#if defined(DEBUG_SISCO) +DWORD gle; +ST_DOUBLE startTime; +ST_DOUBLE endTime; +ST_DOUBLE elapsedTime; +#endif +ST_THREAD_ID thisThreadId; + + /* Let's see just who we are */ + thisThreadId = GET_THREAD_ID(); + +#if defined(DEBUG_SISCO) + if (gs_track) + startTime = sGetMsTime (); +#endif + + rc = WaitForMultipleObjects (numEvents, esTable, FALSE, timeout); + +#if defined(DEBUG_SISCO) + if (gs_track) + { + endTime = sGetMsTime (); + elapsedTime = endTime - startTime; + if (elapsedTime > gs_hwEventTime) + gs_hwEventTime = elapsedTime; + } +#endif + + /* make sure activity array is zero'd out */ + memset (activity, '\x0', sizeof (ST_BOOLEAN) * numEvents); + + i = rc - WAIT_OBJECT_0; + if ((i >= 0) && (i < numEvents)) + { + activity[i] = SD_TRUE; + ret = SD_SUCCESS; + } + else if (rc == WAIT_FAILED) + { +#if defined(DEBUG_SISCO) + gle = GetLastError (); + GLBSEM_LOG_ERR3 ("GLBSEM error: WaitEvent rc=0x%04x, GLE=0x%04x, ThreadId=0x%08x", + (unsigned int) rc, (unsigned int)gle, thisThreadId); + logLastError (gle); +#endif + ret = SD_FAILURE; + } + else if (rc == WAIT_TIMEOUT) + ret = SD_TIMEOUT; + else + ret = SD_SUCCESS; + + return (ret); + } + +/************************************************************************/ +/* gs_signal_event_sem */ +/*----------------------------------------------------------------------*/ +/* Signal event semaphore es. */ +/* Manual-Reset: all waiting threads are released, es remains signaled */ +/* until reset explicitly by call to ResetEvent. */ +/* Auto-Reset: first waiting thread is released and es will be reset */ +/* to non-signaled state. If no thread is waiting the es */ +/* remains in signaled state unless ResetEvent is called. */ +/* Parameters: */ +/* es event semaphore object */ +/* Return values: */ +/* none */ +/************************************************************************/ + +ST_VOID gs_signal_event_sem (ST_EVENT_SEM es) + { +BOOL rc; +#if defined(DEBUG_SISCO) +DWORD gle; +#endif + + rc = SetEvent(es); +#if defined(DEBUG_SISCO) + if (rc == FALSE) + { + gle = GetLastError (); + GLBSEM_LOG_ERR1 ("GLBSEM error: SetEvent GLE=0x%04x", (unsigned int) gle); + logLastError (gle); + } +#endif + } + +/************************************************************************/ +/* gs_pulse_event_sem */ +/*----------------------------------------------------------------------*/ +/* Uses PulseEvent to signal the event semaphore es. */ +/* Manual-Reset: all waiting threads are released, es state changes to */ +/* non-signaled. */ +/* Auto-Reset: first waiting thread is released and es will be reset */ +/* to non-signaled state even if no thread is waiting. */ +/* Parameters: */ +/* es event semaphore object */ +/* Return values: */ +/* none */ +/************************************************************************/ + +ST_VOID gs_pulse_event_sem (ST_EVENT_SEM es) + { +BOOL rc; +#if defined(DEBUG_SISCO) +DWORD gle; +#endif + + rc = PulseEvent(es); +#if defined(DEBUG_SISCO) + if (rc == FALSE) + { + gle = GetLastError (); + GLBSEM_LOG_ERR1 ("GLBSEM error: PulseEvent GLE=0x%04x", (unsigned int) gle); + logLastError (gle); + } +#endif + } + +/************************************************************************/ +/* gs_reset_event_sem */ +/*----------------------------------------------------------------------*/ +/* Reset event semaphore es. */ +/* This function should be called after function gs_wait_event_sem or */ +/* gs_wait_mult_event_sem return SD_SUCCESS and the signaled event */ +/* semaphore is a "manual-reset" semaphore. */ +/* Parameters: */ +/* es event semaphore object */ +/* Return values: */ +/* none */ +/************************************************************************/ + +ST_VOID gs_reset_event_sem (ST_EVENT_SEM es) + { +BOOL rc; +#if defined(DEBUG_SISCO) +DWORD gle; +#endif + + rc = ResetEvent (es); +#if defined(DEBUG_SISCO) + if (rc == FALSE) + { + gle = GetLastError (); + GLBSEM_LOG_ERR1 ("GLBSEM error: ResetEvent gle=0x%04x", (unsigned int)gle); + logLastError (gle); + } +#endif + } + +/************************************************************************/ +/* gs_free_event_sem */ +/*----------------------------------------------------------------------*/ +/* Release resources taken be event semaphore es. */ +/* Parameters: */ +/* es event semaphore object */ +/* Return values: */ +/* none */ +/************************************************************************/ + +ST_VOID gs_free_event_sem (ST_EVENT_SEM es) + { +BOOL rc; +#if defined(DEBUG_SISCO) +DWORD gle; +#endif + + rc = CloseHandle (es); +#if defined(DEBUG_SISCO) + if (rc == FALSE) + { + gle = GetLastError (); + GLBSEM_LOG_ERR1 ("GLBSEM error: CloseHandle GLE=0x%04x", (unsigned int)gle); + logLastError (gle); + } +#endif + } + + /*---*---*---*---*---*---*---*---*---*---*---*---*---*--*/ + /* */ + /* USER's THREAD FUNCTIONS for _WIN32 */ + /* */ + /*---*---*---*---*---*---*---*---*---*---*---*---*---*--*/ + +/************************************************************************/ +/* gs_start_thread */ +/*----------------------------------------------------------------------*/ +/* Start a new thread. The thread handle should be closed after the */ +/* thread terminates by calling the gs_close_thread(). The function */ +/* gs_wait_thread can be used to wait until a thread terminates. */ +/* Parameters: */ +/* threadFunc pointer to thread function to run */ +/* threadArg thread function argument list */ +/* threadHandleOut pointer where to return thread handle */ +/* threadIdOut pointer where to return thread ID */ +/* Return values: */ +/* SD_SUCCESS function successful */ +/* SD_FAILURE error occurred */ +/************************************************************************/ + +ST_RET gs_start_thread (ST_THREAD_RET (ST_THREAD_CALL_CONV *threadFunc) (ST_THREAD_ARG), + ST_THREAD_ARG threadArg, + ST_THREAD_HANDLE *threadHandleOut, + ST_THREAD_ID *threadIdOut) + { +ST_RET ret; +ST_THREAD_HANDLE threadHandle; +ST_THREAD_ID threadId; + + threadHandle = _beginthreadex (NULL, /* No security */ + 0, /* Use def stack size */ + threadFunc, + threadArg, /* Argument for thread */ + 0, /* Creation flags, 0 for running initial state */ + &threadId); /* Thread identifier */ + + if (threadHandle == 0) + { + GLBSEM_LOG_ERR1 ("GLBSEM error: gs_start_thread _beginthreadex failed errno=%d", + errno); + ret = SD_FAILURE; + } + else + { + ret = SD_SUCCESS; + + if (threadHandleOut != NULL) + *threadHandleOut = threadHandle; + + if (threadIdOut != NULL) + *threadIdOut = threadId; + + GLBSEM_LOG_FLOW2 ("GLBSEM: gs_start_thread created thread threadHandle=" S_FMT_THREAD_HANDLE + " threadId=0x%08x", threadHandle, threadId); + } + + return (ret); + } + + +/************************************************************************/ +/* gs_wait_thread */ +/*----------------------------------------------------------------------*/ +/* Wait until thread with threadHandle terminates or timeout occurrs. */ +/* Parameters: */ +/* threadHandle thread handle returned from gs_start_thread */ +/* threadId thread ID returned from gs_start_thread */ +/* timeout max time in milliseconds to wait for thread to */ +/* terminate. */ +/* Return values: */ +/* SD_SUCCESS function successful */ +/* SD_FAILURE error occurred */ +/************************************************************************/ + +ST_RET gs_wait_thread (ST_THREAD_HANDLE threadHandle, + ST_THREAD_ID threadId, ST_LONG timeout) + { +ST_RET ret; +DWORD rc; +#if defined(DEBUG_SISCO) +DWORD gle; +#endif + + rc = WaitForSingleObject ((HANDLE)threadHandle, timeout); + + if (rc != WAIT_OBJECT_0) + { +#if defined(DEBUG_SISCO) + gle = GetLastError (); +#endif + if (rc == WAIT_TIMEOUT) + { + ret = SD_TIMEOUT; + /* WAIT_FAILED or WAIT_TIMEOUT */ +#if defined(DEBUG_SISCO) + GLBSEM_LOG_FLOW3 ("GLBSEM: Timeout=%d ms in Wait Thread threadHandle=" S_FMT_THREAD_HANDLE ", " + "threadId=0x%08x", timeout, threadHandle, threadId); +#endif + } + else + { +#if defined(DEBUG_SISCO) + GLBSEM_LOG_ERR3 ("GLBSEM error: Wait Thread threadHandle=" S_FMT_THREAD_HANDLE ", rc=0x%04x, GLE=0x%04x", + threadHandle, (unsigned int)rc, (unsigned int)gle); + logLastError (gle); +#endif + ret = SD_FAILURE; + } + } + else + ret = SD_SUCCESS; + + return (ret); + } + + +/************************************************************************/ +/* gs_close_thread */ +/*----------------------------------------------------------------------*/ +/* Cleanup after thread terminated. */ +/* Parameters: */ +/* threadHandle thread handle ret from gs_start_thread()*/ +/* Return values: */ +/* SD_SUCCESS function successful */ +/* SD_FAILURE error occurred */ +/************************************************************************/ + +ST_RET gs_close_thread (ST_THREAD_HANDLE threadHandle) + { +ST_RET ret = SD_SUCCESS; +#if defined(DEBUG_SISCO) +DWORD gle; +#endif + + if (threadHandle) + { + if (CloseHandle ((HANDLE)threadHandle) == 0) + { +#if defined(DEBUG_SISCO) + gle = GetLastError (); + GLBSEM_LOG_ERR1 ("GLBSEM error: Close Thread GLE=0x%04x", (unsigned int)gle); +#endif + ret = SD_FAILURE; + } + } + else + { + GLBSEM_LOG_ERR1 ("GLBSEM error: Close Thread invalid threadHandle=" S_FMT_THREAD_HANDLE ".", + threadHandle); + ret = SD_FAILURE; + } + return (ret); + } + + +/************************************************************************/ +/* gs_set_thread_name */ +/*----------------------------------------------------------------------*/ +/* Start a new thread. */ +/* Parameters: */ +/* threadId ID of Thread whose name is to be set */ +/* -1 if name is to be set for calling */ +/* thread */ +/* pThreadName Name to set */ +/************************************************************************/ + +#define THREADNAME_EXCEPT_ID 0x406D1388 +#define THREADNAME_INFO_TYPE 0x1000 + +typedef struct tagTHREADNAME_INFO + { + ST_LONG type; + ST_CHAR *pName; + ST_THREAD_ID threadId; + LONG flags; + } THREADNAME_INFO; + +ST_VOID gs_set_thread_name (ST_THREAD_ID threadId, ST_CHAR *pThreadName) + { +THREADNAME_INFO info; + + info.type = THREADNAME_INFO_TYPE; + info.pName = pThreadName; + info.threadId = threadId; + info.flags = 0; + + __try + { +#if (_MSC_VER >= 1300) + RaiseException (THREADNAME_EXCEPT_ID, 0, + sizeof (info) / sizeof (ST_LONG), (ULONG_PTR *) &info); +#else + RaiseException (THREADNAME_EXCEPT_ID, 0, + sizeof (info) / sizeof (ST_LONG), (DWORD *) &info); +#endif + } + __except (EXCEPTION_CONTINUE_EXECUTION) + { + } + } + + + /*---*---*---*---*---*---*---*---*---*---*---*---*---*--*/ + /* */ + /* Misc. FUNCTIONS for _WIN32 */ + /* */ + /*---*---*---*---*---*---*---*---*---*---*---*---*---*--*/ + +/************************************************************************/ +/* gs_is_win_ver */ +/*----------------------------------------------------------------------*/ +/* Accesses the OS version of the running system and checks if the */ +/* version is ver. */ +/* This function is compatible with Windows 95 and above. */ +/* Parameters: */ +/* ST_UINT ver see SD_WIN_* choices in glbsem.h */ +/* Return: */ +/* 1 If OS version is ver */ +/* 0 If OS version is not ver */ +/* -1 If could not access OS version info or ver invalid */ +/************************************************************************/ +ST_INT gs_is_win_ver (ST_UINT ver) +{ +ST_INT ret = 0; +OSVERSIONINFO OsVerInfo; /* supported on Win 95 and up */ + + /* NOTE: do not put any logging to this function. It is used in DLLs. */ + + OsVerInfo.dwOSVersionInfoSize = sizeof (OSVERSIONINFO); + if (GetVersionEx (&OsVerInfo) == 0) + return (-1); + + switch (ver) + { + case SD_WIN_VER_95_98_Me: /* 95, 98, Me */ + if (OsVerInfo.dwPlatformId == VER_PLATFORM_WIN32_WINDOWS) + ret = 1; + break; + + case SD_WIN_VER_NT_AND_LATER: /* NT 3.51, NT 4.0 and above */ + if (OsVerInfo.dwPlatformId == VER_PLATFORM_WIN32_NT) + ret = 1; + break; + + case SD_WIN_VER_2K_AND_LATER: /* 2000 and above */ + if (OsVerInfo.dwPlatformId == VER_PLATFORM_WIN32_NT && + ((OsVerInfo.dwMajorVersion == 5 && OsVerInfo.dwMinorVersion >= 0) || + OsVerInfo.dwMajorVersion > 5)) + ret = 1; + break; + + case SD_WIN_VER_XP_AND_LATER: /* XP and above */ + if (OsVerInfo.dwPlatformId == VER_PLATFORM_WIN32_NT && + ((OsVerInfo.dwMajorVersion == 5 && OsVerInfo.dwMinorVersion >= 1) || + OsVerInfo.dwMajorVersion > 5)) + ret = 1; + break; + + case SD_WIN_VER_2003_AND_LATER: /* 2003 and above */ + if (OsVerInfo.dwPlatformId == VER_PLATFORM_WIN32_NT && + ((OsVerInfo.dwMajorVersion == 5 && OsVerInfo.dwMinorVersion >= 2) || + OsVerInfo.dwMajorVersion > 5)) + ret = 1; + break; + + case SD_WIN_VER_VISTA_AND_LATER: /* Vista and above */ + if (OsVerInfo.dwPlatformId == VER_PLATFORM_WIN32_NT && + ((OsVerInfo.dwMajorVersion == 6 && OsVerInfo.dwMinorVersion >= 0) || + OsVerInfo.dwMajorVersion > 6)) + ret = 1; + break; + + case SD_WIN_VER_95: + if (OsVerInfo.dwPlatformId == VER_PLATFORM_WIN32_WINDOWS && + OsVerInfo.dwMajorVersion == 4 && OsVerInfo.dwMinorVersion == 0) + ret = 1; + break; + + case SD_WIN_VER_98: + if (OsVerInfo.dwPlatformId == VER_PLATFORM_WIN32_WINDOWS && + OsVerInfo.dwMajorVersion == 4 && OsVerInfo.dwMinorVersion == 10) + ret = 1; + break; + + case SD_WIN_VER_Me: + if (OsVerInfo.dwPlatformId == VER_PLATFORM_WIN32_WINDOWS && + OsVerInfo.dwMajorVersion == 4 && OsVerInfo.dwMinorVersion == 90) + ret = 1; + break; + + case SD_WIN_VER_NT_351: + if (OsVerInfo.dwPlatformId == VER_PLATFORM_WIN32_NT && + OsVerInfo.dwMajorVersion == 3 && OsVerInfo.dwMinorVersion == 51) + ret = 1; + break; + + case SD_WIN_VER_NT_40: + if (OsVerInfo.dwPlatformId == VER_PLATFORM_WIN32_NT && + OsVerInfo.dwMajorVersion == 4 && OsVerInfo.dwMinorVersion == 0) + ret = 1; + break; + + case SD_WIN_VER_2000: + if (OsVerInfo.dwPlatformId == VER_PLATFORM_WIN32_NT && + OsVerInfo.dwMajorVersion == 5 && OsVerInfo.dwMinorVersion == 0) + ret = 1; + break; + + case SD_WIN_VER_XP: + if (OsVerInfo.dwPlatformId == VER_PLATFORM_WIN32_NT && + OsVerInfo.dwMajorVersion == 5 && OsVerInfo.dwMinorVersion == 1) + ret = 1; + break; + + case SD_WIN_VER_2003: + if (OsVerInfo.dwPlatformId == VER_PLATFORM_WIN32_NT && + OsVerInfo.dwMajorVersion == 5 && OsVerInfo.dwMinorVersion == 2) + ret = 1; + break; + + case SD_WIN_VER_VISTA: /* Vista workstation or Longhorn server */ + if (OsVerInfo.dwPlatformId == VER_PLATFORM_WIN32_NT && + OsVerInfo.dwMajorVersion == 6 && OsVerInfo.dwMinorVersion == 0) + ret = 1; + break; + + default: + ret = -1; /* invalid ver */ + } + + return (ret); +} + +/************************************************************************/ +/* logLastError */ +/*----------------------------------------------------------------------*/ +/* Parameters: */ +/* Return values: */ +/************************************************************************/ + +static ST_VOID logLastError (DWORD errCode) + { +LPVOID lpMsgBuf; +DWORD len; + + len = FormatMessage( + FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM, + NULL, + errCode, + MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), // Default language + (LPTSTR) &lpMsgBuf, + 0, + NULL); + + if(len == 0) /* FormatMessage failed... */ + return; + + GLBSEM_LOG_CERR1 (" -> %s", lpMsgBuf); + + // Free the buffer. + LocalFree( lpMsgBuf ); + } +#endif diff --git a/mmslib/util/scl_log.c b/mmslib/util/scl_log.c new file mode 100644 index 0000000..69466e9 --- /dev/null +++ b/mmslib/util/scl_log.c @@ -0,0 +1,353 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2004-2004 All Rights Reserved */ +/* */ +/* MODULE NAME : scl_log.c */ +/* PRODUCT(S) : MMS-EASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* Functions to log info parsed from SCL file. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* scl_log_all_data_types */ +/* scl_log_all_logical_devices */ +/* scl_log_all */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 05/08/07 JRB 02 Fix log message. */ +/* 06/10/04 DWL 01 Initial Revision. */ +/************************************************************************/ +#include "glbtypes.h" +#include "sysincs.h" +#include "scl.h" +#include "slog.h" +#include "sx_log.h" + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/* scl_log_do */ +/************************************************************************/ +static ST_VOID scl_log_do (SCL_DO *scl_do) + { + SXLOG_DEC2 ("SCL LOG: ", + scl_do->name, scl_do->type); + } + +/************************************************************************/ +/* scl_log_da */ +/************************************************************************/ +static ST_VOID scl_log_da (SCL_DA *scl_da) + { +ST_CHAR dchg[6]; +ST_CHAR qchg[6]; +ST_CHAR dupd[6]; + + SXLOG_DEC8 ("SCL LOG: name, scl_da->desc, scl_da->sAddr, scl_da->bType, + scl_da->valKind, scl_da->type, scl_da->count, scl_da->fc); + + if (scl_da->dchg == SD_TRUE) + strncpy (dchg, "true", sizeof(dchg)); + else + strncpy (dchg, "false", sizeof(dchg)); + + if (scl_da->qchg == SD_TRUE) + strncpy (qchg, "true", sizeof(qchg)); + else + strncpy (qchg, "false", sizeof(qchg)); + + if (scl_da->dupd == SD_TRUE) + strncpy (dupd, "true", sizeof(dupd)); + else + strncpy (dupd, "false", sizeof(dupd)); + + SXLOG_CDEC3 ("SCL LOG: dchg='%s' qchg='%s' dupd='%s'>", + dchg, qchg, dupd); + } + +/************************************************************************/ +/* scl_log_sdo */ +/************************************************************************/ +static ST_VOID scl_log_sdo (SCL_DA *scl_da) + { + SXLOG_DEC3 ("SCL LOG: ", + scl_da->name, scl_da->desc, scl_da->type); + } + +/************************************************************************/ +/* scl_log_lntype */ +/************************************************************************/ +static ST_VOID scl_log_lntype (SCL_LNTYPE *scl_lntype) + { +SCL_DO *scl_do; + + SXLOG_DEC2 ("SCL LOG: ", + scl_lntype->id, scl_lntype->lnClass); + + for (scl_do = (SCL_DO *) list_find_last ((DBL_LNK *) scl_lntype->doHead); + scl_do != NULL; + scl_do = (SCL_DO *) list_find_prev ((DBL_LNK *) scl_lntype->doHead, (DBL_LNK *) scl_do)) + { + scl_log_do (scl_do); + } + } + +/************************************************************************/ +/* scl_log_dotype */ +/************************************************************************/ +static ST_VOID scl_log_dotype (SCL_DOTYPE *scl_dotype) + { +SCL_DA *scl_da; + + SXLOG_DEC2 ("SCL LOG: ", + scl_dotype->id, scl_dotype->cdc); + + for (scl_da = (SCL_DA *) list_find_last ((DBL_LNK *) scl_dotype->daHead); + scl_da != NULL; + scl_da = (SCL_DA *) list_find_prev ((DBL_LNK *) scl_dotype->daHead, (DBL_LNK *) scl_da)) + { + if (scl_da->objtype == SCL_OBJTYPE_SDO) + scl_log_sdo (scl_da); + else /* Must be SCL_OBJTYPE_DA */ + scl_log_da (scl_da); + } + } + +/************************************************************************/ +/* scl_log_bda */ +/************************************************************************/ +static ST_VOID scl_log_bda (SCL_BDA *scl_bda) + { + SXLOG_DEC7 ("SCL LOG: ", + scl_bda->name, scl_bda->desc, scl_bda->sAddr, + scl_bda->bType, scl_bda->valKind, scl_bda->type, + scl_bda->count); + SXLOG_DEC1 ("SCL LOG: ", scl_bda->Val); + } + +/************************************************************************/ +/* scl_log_datype */ +/************************************************************************/ +static ST_VOID scl_log_datype (SCL_DATYPE *scl_datype) + { +SCL_BDA *scl_bda; + + SXLOG_DEC1 ("SCL LOG: ", + scl_datype->id); + + for (scl_bda = (SCL_BDA *) list_find_last ((DBL_LNK *) scl_datype->bdaHead); + scl_bda != NULL; + scl_bda = (SCL_BDA *) list_find_prev ((DBL_LNK *) scl_datype->bdaHead, (DBL_LNK *) scl_bda)) + { + scl_log_bda (scl_bda); + } + } + +/************************************************************************/ +/* scl_log_enumval */ +/************************************************************************/ +static ST_VOID scl_log_enumval (SCL_ENUMVAL *scl_enumval) + { + SXLOG_DEC2 ("SCL LOG: ", + scl_enumval->ord, scl_enumval->EnumVal); + } + +/************************************************************************/ +/* scl_log_enumtype */ +/************************************************************************/ +static ST_VOID scl_log_enumtype (SCL_ENUMTYPE *scl_enumtype) + { +SCL_ENUMVAL *scl_enumval; + + SXLOG_DEC1 ("SCL LOG: ", + scl_enumtype->id); + + for (scl_enumval = (SCL_ENUMVAL *) list_find_last ((DBL_LNK *) scl_enumtype->enumvalHead); + scl_enumval != NULL; + scl_enumval = (SCL_ENUMVAL *) list_find_prev ((DBL_LNK *) scl_enumtype->enumvalHead, (DBL_LNK *) scl_enumval)) + { + scl_log_enumval (scl_enumval); + } + } + +/************************************************************************/ +/* scl_log_all_data_types */ +/************************************************************************/ +ST_VOID scl_log_all_data_types (SCL_INFO *scl_info) + { +SCL_LNTYPE *scl_lntype; +SCL_DOTYPE *scl_dotype; +SCL_DATYPE *scl_datype; +SCL_ENUMTYPE *scl_enumtype; + + /* NOTE: linked list is in reverse order from data in SCL file, */ + /* so get off list in reverse order. */ + for (scl_lntype = (SCL_LNTYPE *) list_find_last ((DBL_LNK *) scl_info->lnTypeHead); + scl_lntype != NULL; + scl_lntype = (SCL_LNTYPE *) list_find_prev ((DBL_LNK *) scl_info->lnTypeHead, (DBL_LNK *) scl_lntype)) + { + scl_log_lntype (scl_lntype); + } + + for (scl_dotype = (SCL_DOTYPE *) list_find_last ((DBL_LNK *) scl_info->doTypeHead); + scl_dotype != NULL; + scl_dotype = (SCL_DOTYPE *) list_find_prev ((DBL_LNK *) scl_info->doTypeHead, (DBL_LNK *) scl_dotype)) + { + scl_log_dotype (scl_dotype); + } + + for (scl_datype = (SCL_DATYPE *) list_find_last ((DBL_LNK *) scl_info->daTypeHead); + scl_datype != NULL; + scl_datype = (SCL_DATYPE *) list_find_prev ((DBL_LNK *) scl_info->daTypeHead, (DBL_LNK *) scl_datype)) + { + scl_log_datype (scl_datype); + } + + for (scl_enumtype = (SCL_ENUMTYPE *) list_find_last ((DBL_LNK *) scl_info->enumTypeHead); + scl_enumtype != NULL; + scl_enumtype = (SCL_ENUMTYPE *) list_find_prev ((DBL_LNK *) scl_info->enumTypeHead, (DBL_LNK *) scl_enumtype)) + { + scl_log_enumtype (scl_enumtype); + } + } + +/************************************************************************/ +/* scl_log_fcda */ +/************************************************************************/ +static ST_VOID scl_log_fcda (SCL_FCDA *scl_fcda) + { + SXLOG_DEC7 ("SCL LOG: ", + scl_fcda->ldInst, scl_fcda->prefix, scl_fcda->lnInst, + scl_fcda->lnClass, scl_fcda->doName, scl_fcda->daName, + scl_fcda->fc); + } + +/************************************************************************/ +/* scl_log_dataset */ +/************************************************************************/ +static ST_VOID scl_log_dataset (SCL_DATASET *scl_dataset) + { +SCL_FCDA *scl_fcda; + + SXLOG_DEC2 ("SCL LOG: ", + scl_dataset->name, scl_dataset->desc); + + for (scl_fcda = (SCL_FCDA *) list_find_last ((DBL_LNK *) scl_dataset->fcdaHead); + scl_fcda != NULL; + scl_fcda = (SCL_FCDA *) list_find_prev ((DBL_LNK *) scl_dataset->fcdaHead, (DBL_LNK *) scl_fcda)) + { + scl_log_fcda (scl_fcda); + } + } + +/************************************************************************/ +/* scl_log_rcb */ +/************************************************************************/ +static ST_VOID scl_log_rcb (SCL_RCB *scl_rcb) + { +ST_CHAR buffered[6]; + + if (scl_rcb->buffered == SD_TRUE) + strncpy (buffered, "true", sizeof (buffered)); + else + strncpy (buffered, "false", sizeof (buffered)); + + SXLOG_DEC8 ("SCL LOG: name, scl_rcb->desc, scl_rcb->datSet, + scl_rcb->intgPd, scl_rcb->rptID, scl_rcb->confRev, + buffered, scl_rcb->bufTime); + + /* These are bitstrings. Just log as hex. */ + SXLOG_CDEC3 ("SCL LOG: TrgOps=0x%02X, OptFlds=0x%02X%02X", + (ST_UINT) scl_rcb->TrgOps [0], + (ST_UINT) scl_rcb->OptFlds[0], + (ST_UINT) scl_rcb->OptFlds[1] ); + } + +/************************************************************************/ +/* scl_log_ln */ +/************************************************************************/ +static ST_VOID scl_log_ln (SCL_LN *scl_ln) + { +SCL_DATASET *scl_dataset; +SCL_RCB *scl_rcb; + + SXLOG_DEC5 ("SCL LOG: ", + scl_ln->desc, scl_ln->lnType, scl_ln->lnClass, + scl_ln->inst, scl_ln->prefix); + + /* Log Datasets */ + for (scl_dataset = (SCL_DATASET *) list_find_last ((DBL_LNK *) scl_ln->datasetHead); + scl_dataset != NULL; + scl_dataset = (SCL_DATASET *) list_find_prev ((DBL_LNK *) scl_ln->datasetHead, (DBL_LNK *) scl_dataset)) + { + scl_log_dataset (scl_dataset); + } + + /* Log RCBs */ + for (scl_rcb = (SCL_RCB *) list_find_last ((DBL_LNK *) scl_ln->rcbHead); + scl_rcb != NULL; + scl_rcb = (SCL_RCB *) list_find_prev ((DBL_LNK *) scl_ln->rcbHead, (DBL_LNK *) scl_rcb)) + { + scl_log_rcb (scl_rcb); + } + } + +/************************************************************************/ +/* scl_log_ld */ +/************************************************************************/ +static ST_VOID scl_log_ld ( + SCL_INFO *scl_info, /* main struct where all SCL info stored*/ + SCL_LD *scl_ld) + { +SCL_LN *scl_ln; + + SXLOG_DEC2 ("SCL LOG: ", + scl_ld->desc, scl_ld->inst); + + /* Log Logical nodes */ + /* NOTE: linked lists are in reverse order from data in SCL file, */ + /* so get off list in reverse order. */ + for (scl_ln = (SCL_LN *) list_find_last ((DBL_LNK *) scl_ld->lnHead); + scl_ln != NULL; + scl_ln = (SCL_LN *) list_find_prev ((DBL_LNK *) scl_ld->lnHead, (DBL_LNK *) scl_ln)) + { + scl_log_ln (scl_ln); + } + } + +/************************************************************************/ +/* scl_log_all_logical_devices */ +/* Log all Logical Devices from SCL info saved in "scl_info". */ +/* RETURNS: SD_SUCCESS or error code */ +/************************************************************************/ +ST_VOID scl_log_all_logical_devices (SCL_INFO *scl_info) + { +SCL_LD *scl_ld; + + /* NOTE: linked list is in reverse order from data in SCL file, */ + /* so get off list in reverse order. */ + for (scl_ld = (SCL_LD *) list_find_last ((DBL_LNK *) scl_info->ldHead); + scl_ld != NULL; + scl_ld = (SCL_LD *) list_find_prev ((DBL_LNK *) scl_info->ldHead, (DBL_LNK *) scl_ld)) + { + scl_log_ld (scl_info, scl_ld); + } + } + +/************************************************************************/ +/* scl_log_all */ +/* Log everything from SCL info saved in "scl_info". */ +/************************************************************************/ +ST_VOID scl_log_all (SCL_INFO *scl_info) + { + scl_log_all_logical_devices (scl_info); + scl_log_all_data_types (scl_info); + } diff --git a/mmslib/util/sclparse.c b/mmslib/util/sclparse.c new file mode 100644 index 0000000..d09b3e6 --- /dev/null +++ b/mmslib/util/sclparse.c @@ -0,0 +1,2507 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2004-2006, All Rights Reserved */ +/* */ +/* MODULE NAME : sclparse.c */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : This routine parses XML files conforming to the */ +/* SCL object model. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 05/06/08 JRB 23 Chk ReportControl indexed attr (must be true)*/ +/* 04/23/08 JRB 22 Parse & save "SettingControl" info (SGCB). */ +/* Save dchg, qchg, dupd values in SCL_DA struct*/ +/* 01/18/08 JRB 21 Allow max LN prefix+inst=11. IEC 61850 max=7.*/ +/* Must also reduce max suffix in mvlu_rt.c to */ +/* avoid overflow. */ +/* 01/18/08 JRB 20 Chg datSet in GSEControl & LogControl to */ +/* optional to match Schema (see tControl def). */ +/* 07/10/07 JRB 19 Check length of lnClass, prefix, & inst. */ +/* 06/12/07 JRB 18 Save VLANID in SCL_GSE & SCL_SMV. */ +/* 09/08/06 JRB 17 Fix dstlen type in convert_mac. */ +/* 07/26/06 LWP/JRB 16 Parse & save GOOSE & SMV addressing info from*/ +/* "Communication" section. */ +/* 04/19/06 JRB 15 Make datSet in ReportControl "optional". */ +/* 04/19/06 JRB 14 Parse & save "RptEnabled" info. */ +/* 04/04/06 JRB 13 Parse & save "SampledValueControl" info. */ +/* 03/25/06 JRB 12 Change order of operations: call create/add */ +/* functions first, then copy data directly to */ +/* SCL structs (eliminates intermediate copy). */ +/* Repl scl_get_attr (could overflow caller buf)*/ +/* with scl_get_attr_ptr & scl_get_attr_copy. */ +/* Replace CONTROL_BLOCK with SCL_RCB & SCL_LCB,*/ +/* Fix _DA_SEFun setting of dchg, qchg, & dupd. */ +/* Fix sx_get_string calls to prevent overflow. */ +/* Fix "*_Val_*" functions. */ +/* Chg desc to ptr (allocated during parse). */ +/* 07/25/05 JRB 11 Make nameStructure optional, default=IEDName.*/ +/* 06/24/05 JRB 10 Call sx_parseExx_mt (faster). */ +/* Chg "ord" from unsigned to signed value. */ +/* 05/17/05 DWL 09 Use sx_push instead of SX_PUSH, and force */ +/* user code to call sx_pop. Eliminated some */ +/* unnecessary debug logging. */ +/* 05/17/05 JRB 08 Avoid allocating struct in scl_parse. */ +/* 02/15/05 JRB 07 Save iedName in scl_info. */ +/* Parse Header & save in scl_info. */ +/* Fix some log messages. */ +/* 12/07/04 JRB 06 Del unneeded memsets after callocs. */ +/* 08/23/04 JRB 05 Ret err if iedName or accessPoint.. not found*/ +/* 08/06/04 JRB 04 Del "sclparse.h", use "scl.h". */ +/* 07/23/04 JRB 03 Del unused static functions. */ +/* 07/15/04 DWL 02 Added LogControl & GSEControl elements */ +/* Handle LN and LN0 differently. */ +/* 06/10/04 DWL 01 Created */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "mem_chk.h" +#include "sx_defs.h" +#include "sx_log.h" +#include "str_util.h" +#include "slog.h" +#include "scl.h" /* SCL file processing structs & functions */ +#include "mvl_uca.h" +#include "smpval.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +#define SCL_ATTR_OPTIONAL 0 /* attribute is optional */ +#define SCL_ATTR_REQUIRED 1 /* attribute is required */ + +typedef struct scl_dec_ctrl + { + ST_CHAR *iedName; + ST_CHAR *accessPointName; + ST_BOOLEAN accessPointFound; /* SD_TRUE if IED and AccessPoint found */ + ST_BOOLEAN iedNameMatched; + ST_BOOLEAN accessPointMatched; + SCL_INFO *sclInfo; + SCL_GSE *scl_gse; /* Used for "GSE" in "Communication" section */ + SCL_SMV *scl_smv; /* Used for "SMV" in "Communication" section */ + SCL_LD *scl_ld; /* Used for "LDevice" */ + SCL_LN *scl_ln; /* Used for "LN" (Logical Node) */ + SCL_RCB *scl_rcb; /* alloc to store ReportControl info */ + SCL_LCB *scl_lcb; /* alloc to store LogControl info */ + ST_UINT8 TrgOps[1]; /* Used for ReportControl or LogControl. */ + /* Copied to SCL_RCB or SCL_LCB. */ + SCL_SVCB *scl_svcb; /* Used for "SampledValueControl". */ + SCL_ENUMVAL *scl_enumval; /* Used for "EnumVal". */ + SCL_DAI *scl_dai; /* Used for "DAI". */ + SCL_DA *scl_da; /* Used for "DA". */ + SCL_BDA *scl_bda; /* Used for "BDA". */ + ST_CHAR flattened[MAX_FLAT_LEN + 1]; /* Created by concatenating values*/ + /* from DOI, SDI, and DAI elements*/ + } SCL_DEC_CTRL; + +/************************************************************************/ +static ST_VOID _SCL_SEFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _Header_SFun (SX_DEC_CTRL *sxDecCtrl); + +static ST_VOID _Communication_SEFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _SubNetwork_SEFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _ConnectedAP_SEFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _GSE_SEFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _GSE_Address_SEFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _GSE_Address_P_SEFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _SMV_SEFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _SMV_Address_SEFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _SMV_Address_P_SEFun (SX_DEC_CTRL *sxDecCtrl); +/*renxiaobao GSE ½âÎö*/ +static ST_VOID _GSE_MinTime_SEFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _GSE_MaxTime_SEFun (SX_DEC_CTRL *sxDecCtrl); + +static ST_VOID _IED_SEFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _AccessPoint_SEFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _Server_SEFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _LDevice_SEFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _LN_SEFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _DataSet_SEFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _FCDA_SFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _ReportControl_SEFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _LogControl_SEFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _GSEControl_SFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _SettingControl_SFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _TrgOps_SFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _OptFlds_SFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _RptEnabled_SFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _DOI_SEFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _SDI_SEFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _DAI_SEFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _DAI_Val_SEFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _DataTypeTemplates_SEFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _LNodeType_SEFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _DO_SFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _DOType_SEFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _DA_SEFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _SDO_SFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _DAType_SEFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _DA_Val_SEFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _BDA_SEFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _BDA_Val_SEFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _EnumType_SEFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _EnumVal_SEFun (SX_DEC_CTRL *sxDecCtrl); +static ST_RET _scl_unknown_el_start (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *tag); +static ST_RET _scl_unknown_el_end (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *tag); +static ST_VOID _SampledValueControl_SEFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _SampledValueControl_SFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _SampledValueControl_EFun (SX_DEC_CTRL *sxDecCtrl); +static ST_VOID _SmvOpts_SFun (SX_DEC_CTRL *sxDecCtrl); + +/************************************************************************/ +/************************************************************************/ +/* Only the elements we need to extract are listed here. */ +/* The rest are handled by "unknown" element handler. */ +SX_ELEMENT sclStartElements[] = +{ + {"SCL", SX_ELF_CSTARTEND, _SCL_SEFun, NULL, 0} +}; + +SX_ELEMENT SCLElements[] = +{ + {"Header", SX_ELF_CSTART|SX_ELF_OPT, _Header_SFun, NULL, 0}, + {"Communication", SX_ELF_CSTARTEND|SX_ELF_OPT, _Communication_SEFun, NULL, 0}, + {"IED", SX_ELF_CSTARTEND|SX_ELF_OPTRPT, _IED_SEFun, NULL, 0}, + {"DataTypeTemplates", SX_ELF_CSTARTEND|SX_ELF_OPT, _DataTypeTemplates_SEFun, NULL, 0} +}; + +/************************************************************************/ +/* Tables for mapping "Communication" elements. */ +/************************************************************************/ +SX_ELEMENT CommunicationElements[] = +{ + {"SubNetwork", SX_ELF_CSTARTEND|SX_ELF_OPTRPT, _SubNetwork_SEFun, NULL, 0} +}; + +SX_ELEMENT SubNetworkElements[] = +{ + /* NOTE: "bitRate" and "Text" elements ignored. */ + {"ConnectedAP", SX_ELF_CSTARTEND|SX_ELF_OPTRPT, _ConnectedAP_SEFun, NULL, 0} +}; + +SX_ELEMENT ConnectedAPElements[] = +{ + /* DEBUG: add "Address". Ignore "PhyConn". */ + {"GSE", SX_ELF_CSTARTEND|SX_ELF_OPTRPT, _GSE_SEFun, NULL, 0}, + {"SMV", SX_ELF_CSTARTEND|SX_ELF_OPTRPT, _SMV_SEFun, NULL, 0} +}; + +SX_ELEMENT GSEElements[] = +{ + {"Address", SX_ELF_CSTARTEND|SX_ELF_OPT, _GSE_Address_SEFun, NULL, 0}, + /*renxiaobao GSE ½âÎö*/ + {"MinTime", SX_ELF_CSTARTEND|SX_ELF_OPTRPT, _GSE_MinTime_SEFun, NULL, 0}, + {"MaxTime", SX_ELF_CSTARTEND|SX_ELF_OPTRPT, _GSE_MaxTime_SEFun, NULL, 0} +}; +SX_ELEMENT GSEAddressElements[] = +{ + {"P", SX_ELF_CSTARTEND|SX_ELF_OPTRPT, _GSE_Address_P_SEFun, NULL, 0} +}; + +SX_ELEMENT SMVElements[] = +{ + {"Address", SX_ELF_CSTARTEND|SX_ELF_OPT, _SMV_Address_SEFun, NULL, 0} +}; + +SX_ELEMENT SMVAddressElements[] = +{ + {"P", SX_ELF_CSTARTEND|SX_ELF_OPTRPT, _SMV_Address_P_SEFun, NULL, 0} +}; +/************************************************************************/ +/* Tables for mapping "IED" elements. */ +/************************************************************************/ +SX_ELEMENT IEDElements[] = +{ + {"AccessPoint", SX_ELF_CSTARTEND|SX_ELF_RPT, _AccessPoint_SEFun, NULL, 0} +}; + +SX_ELEMENT AccessPointElements[] = +{ + {"Server", SX_ELF_CSTARTEND, _Server_SEFun, NULL, 0} +}; + +SX_ELEMENT ServerElements[] = +{ + {"LDevice", SX_ELF_CSTARTEND|SX_ELF_RPT, _LDevice_SEFun, NULL, 0} +}; + +SX_ELEMENT LDeviceElements[] = +{ + {"LN0", SX_ELF_CSTARTEND, _LN_SEFun, NULL, 0}, + {"LN", SX_ELF_CSTARTEND|SX_ELF_OPTRPT, _LN_SEFun, NULL, 0} +}; + +SX_ELEMENT LN0Elements[] = +{ + {"DataSet", SX_ELF_CSTARTEND|SX_ELF_OPTRPT, _DataSet_SEFun, NULL, 0}, + {"ReportControl", SX_ELF_CSTARTEND|SX_ELF_OPTRPT, _ReportControl_SEFun, NULL, 0}, + {"DOI", SX_ELF_CSTARTEND|SX_ELF_OPTRPT, _DOI_SEFun, NULL, 0}, + {"SampledValueControl", SX_ELF_CSTARTEND|SX_ELF_OPTRPT, _SampledValueControl_SEFun, NULL, 0}, + {"LogControl", SX_ELF_CSTARTEND|SX_ELF_OPTRPT, _LogControl_SEFun, NULL, 0}, + {"SettingControl", SX_ELF_CSTART|SX_ELF_OPTRPT, _SettingControl_SFun, NULL, 0}, + {"GSEControl", SX_ELF_CSTART|SX_ELF_OPTRPT, _GSEControl_SFun, NULL, 0} +}; + +SX_ELEMENT LNElements[] = +{ + {"DataSet", SX_ELF_CSTARTEND|SX_ELF_OPTRPT, _DataSet_SEFun, NULL, 0}, + {"ReportControl", SX_ELF_CSTARTEND|SX_ELF_OPTRPT, _ReportControl_SEFun, NULL, 0}, + {"DOI", SX_ELF_CSTARTEND|SX_ELF_OPTRPT, _DOI_SEFun, NULL, 0}, + {"SampledValueControl", SX_ELF_CSTARTEND|SX_ELF_OPTRPT, _SampledValueControl_SEFun, NULL, 0}, + {"LogControl", SX_ELF_CSTARTEND|SX_ELF_OPTRPT, _LogControl_SEFun, NULL, 0} +}; + +SX_ELEMENT DataSetElements[] = +{ + {"FCDA", SX_ELF_CSTART|SX_ELF_RPT, _FCDA_SFun, NULL, 0} +}; + +SX_ELEMENT ReportControlElements[] = +{ + {"TrgOps", SX_ELF_CSTART|SX_ELF_OPT, _TrgOps_SFun, NULL, 0}, + {"OptFields", SX_ELF_CSTART, _OptFlds_SFun, NULL, 0}, + {"RptEnabled", SX_ELF_CSTART|SX_ELF_OPT, _RptEnabled_SFun, NULL, 0} +}; + +SX_ELEMENT LogControlElements[] = +{ + {"TrgOps", SX_ELF_CSTART|SX_ELF_OPT, _TrgOps_SFun, NULL, 0} +}; + +SX_ELEMENT SampledValueControlElements[] = +{ + {"SmvOpts", SX_ELF_CSTART, _SmvOpts_SFun, NULL, 0} +}; + +SX_ELEMENT DOIElements[] = +{ + {"SDI", SX_ELF_CSTARTEND|SX_ELF_OPTRPT, _SDI_SEFun, NULL, 0}, + {"DAI", SX_ELF_CSTARTEND|SX_ELF_OPTRPT, _DAI_SEFun, NULL, 0} +}; + +/* SDI can be nested under itself indefinitely */ +SX_ELEMENT SDIElements[] = +{ + {"SDI", SX_ELF_CSTARTEND|SX_ELF_OPTRPT, _SDI_SEFun, NULL, 0}, + {"DAI", SX_ELF_CSTARTEND|SX_ELF_OPTRPT, _DAI_SEFun, NULL, 0} +}; + +SX_ELEMENT DAIElements[] = +{ + {"Val", SX_ELF_CSTARTEND|SX_ELF_OPT, _DAI_Val_SEFun, NULL, 0} +}; + +/************************************************************************/ +/* Tables for mapping "DataTypeTemplates" elements. */ +/************************************************************************/ +SX_ELEMENT DataTypeTemplatesElements[] = +{ + {"LNodeType", SX_ELF_CSTARTEND|SX_ELF_RPT, _LNodeType_SEFun, NULL, 0}, + {"DOType", SX_ELF_CSTARTEND|SX_ELF_RPT, _DOType_SEFun, NULL, 0}, + {"DAType", SX_ELF_CSTARTEND|SX_ELF_OPTRPT, _DAType_SEFun, NULL, 0}, + {"EnumType", SX_ELF_CSTARTEND|SX_ELF_OPTRPT, _EnumType_SEFun, NULL, 0} +}; + +SX_ELEMENT LNodeTypeElements[] = +{ + {"DO", SX_ELF_CSTART|SX_ELF_RPT, _DO_SFun, NULL, 0} +}; + +SX_ELEMENT DOTypeElements[] = +{ + {"DA", SX_ELF_CSTARTEND|SX_ELF_OPTRPT, _DA_SEFun, NULL, 0}, + {"SDO", SX_ELF_CSTART|SX_ELF_OPTRPT, _SDO_SFun, NULL, 0} +}; + +SX_ELEMENT DAElements[] = +{ + {"Val", SX_ELF_CSTARTEND|SX_ELF_OPTRPT, _DA_Val_SEFun, NULL, 0} +}; + +SX_ELEMENT DATypeElements[] = +{ + {"BDA", SX_ELF_CSTARTEND|SX_ELF_RPT, _BDA_SEFun, NULL, 0} +}; + +SX_ELEMENT BDAElements[] = +{ + {"Val", SX_ELF_CSTARTEND|SX_ELF_OPTRPT, _BDA_Val_SEFun, NULL, 0} +}; + +SX_ELEMENT EnumTypeElements[] = +{ + {"EnumVal", SX_ELF_CSTARTEND|SX_ELF_RPT, _EnumVal_SEFun, NULL, 0} +}; + +/************************************************************************/ +/* convert_mac */ +/* Converts MAC string read from SCL file (like 01-02-03-04-05-06) */ +/* to 6 byte hex MAC address. */ +/************************************************************************/ +#define MAX_MAC_STRING_LEN 60 +static ST_RET convert_mac (ST_UCHAR *dst, ST_CHAR *src) + { +ST_RET retcode; +ST_CHAR tmpbuf [MAX_MAC_STRING_LEN+1]; +ST_CHAR *tmpptr; +ST_UINT dstlen; + + /* Input string may include extra blanks, so allow for fairly long string.*/ + if (strlen (src) > MAX_MAC_STRING_LEN) + retcode = SD_FAILURE; + else + { + /* Just replace each '-' with ' '. Then use ascii_to_hex_str to convert.*/ + tmpptr = tmpbuf; + /* Copy until NULL terminator but ignore '-' and spaces. */ + for ( ; *src; src++) + { + if (*src != '-' && (!isspace(*src))) + *tmpptr++ = *src; + } + *tmpptr = '\0'; /* NULL terminate temp buffer */ + retcode = ascii_to_hex_str (dst, &dstlen, 6, tmpbuf); + if (retcode == SD_SUCCESS && dstlen != 6) + retcode = SD_FAILURE; + } + return (retcode); + } + +/************************************************************************/ +/* log_notfound_attr */ +/************************************************************************/ + +static ST_VOID log_notfound_attr (ST_CHAR *attrName) + { + SXLOG_ERR1 ("SCL PARSE: Required attribute '%s' not found.", + attrName); + } + +/************************************************************************/ +/* log_attr_str */ +/************************************************************************/ + +static ST_VOID log_attr_str (ST_CHAR *name, ST_CHAR *value) + { + SXLOG_DEC2 ("SCL PARSE: Found attribute '%s', value is '%s'", name, value); + } + +/************************************************************************/ +/* log_attr_int */ +/************************************************************************/ + +static ST_VOID log_attr_int (ST_CHAR *name, ST_INT value) + { + SXLOG_DEC2 ("SCL PARSE: Found attribute '%s', value is '%d'", name, value); + } + +/************************************************************************/ +/* log_attr_uint */ +/************************************************************************/ + +static ST_VOID log_attr_uint (ST_CHAR *name, ST_UINT value) + { + SXLOG_DEC2 ("SCL PARSE: Found attribute '%s', value is '%u'", name, value); + } + +/************************************************************************/ +/* log_returned_failure */ +/************************************************************************/ + +static ST_VOID log_returned_failure (ST_CHAR *funcName, ST_LONG ret) + { + SXLOG_ERR2 ("SCL PARSE: %s returned failure, err=%ld", funcName, ret); + } + +/************************************************************************/ +/* scl_stop_parsing */ +/************************************************************************/ + +static ST_VOID scl_stop_parsing (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *offender, + ST_RET errCode) + { + sxDecCtrl->errCode = errCode; + sxDecCtrl->termFlag = SD_TRUE; + if (errCode == SX_REQUIRED_TAG_NOT_FOUND) + { + log_notfound_attr (offender); + } + else /* SX_USER_ERROR */ + { + log_returned_failure (offender, errCode); + } + } + +/************************************************************************/ +/* scl_get_attr_ptr */ +/* Get a pointer to an attr string stored in SX_DEC_CTRL. */ +/* If attr found, SD_SUCCESS returned & "*value" points to string. */ +/* NOTE: The pointer returned in "*value" might not be valid later */ +/* when parsing continues. */ +/************************************************************************/ + +static ST_RET scl_get_attr_ptr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, + ST_CHAR **value, ST_BOOLEAN required) + { +ST_RET ret; + + ret = sx_get_attr_ptr (sxDecCtrl, value, name); + if (ret != SD_SUCCESS) + { + *value = NULL; /* make sure ptr is NULL on error (better than garbage)*/ + if (required) + scl_stop_parsing (sxDecCtrl, name, SX_REQUIRED_TAG_NOT_FOUND); + } + else + log_attr_str (name, *value); + + return (ret); + } + +/************************************************************************/ +/* scl_get_attr_copy */ +/* Get a pointer to an attr string stored in SX_DEC_CTRL. */ +/* If strlen <= maxValueLen, copy string, else return error. */ +/************************************************************************/ + +static ST_RET scl_get_attr_copy (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, + ST_CHAR *value, ST_UINT maxValueLen, ST_BOOLEAN required) + { +ST_RET ret; +ST_CHAR *pValue; + + ret = scl_get_attr_ptr (sxDecCtrl, name, &pValue, required); + if (ret == SD_SUCCESS) + { + if (strlen (pValue) <= maxValueLen) + strcpy (value, pValue); /* copy string to caller's buffer */ + else + { + SXLOG_ERR3 ("Attribute Value='%s' exceeds max len '%d' for attribute '%s'", pValue, maxValueLen, name); + scl_stop_parsing (sxDecCtrl, name, SX_USER_ERROR); + ret = SD_FAILURE; + } + } + + return (ret); + } + +/************************************************************************/ +/* scl_get_int_attr */ +/************************************************************************/ + +static ST_RET scl_get_int_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, + ST_INT *value, ST_BOOLEAN required) + { +ST_RET ret; + + ret = sx_get_int_attr (sxDecCtrl, name, value); + if (ret != SD_SUCCESS) + { + if (required) + scl_stop_parsing (sxDecCtrl, name, SX_REQUIRED_TAG_NOT_FOUND); + } + else + log_attr_int (name, *value); + + return (ret); + } + +/************************************************************************/ +/* scl_get_uint_attr */ +/************************************************************************/ + +static ST_RET scl_get_uint_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, + ST_UINT *value, ST_BOOLEAN required) + { +ST_RET ret; + + ret = sx_get_uint_attr (sxDecCtrl, name, value); + if (ret != SD_SUCCESS) + { + if (required) + scl_stop_parsing (sxDecCtrl, name, SX_REQUIRED_TAG_NOT_FOUND); + } + else + log_attr_uint (name, *value); + + return (ret); + } + +/************************************************************************/ +/* construct_flattened */ +/* Construct a flattened variable name from DOI, SDI, DAI names. */ +/************************************************************************/ +ST_RET construct_flattened (ST_CHAR *flattened, size_t maxlen, ST_CHAR *name, ST_CHAR *ix) + { +size_t ixlen; +ST_RET retCode; + + /* Calc space needed for optional [ix] */ + if (ix) + ixlen = strlen(ix)+2; /* string plus brackets */ + else + ixlen = 0; + /* Make sure there is room for [ix] and "$" */ + if (strlen (flattened) + strlen(name) + ixlen + 1 <= maxlen) + { + /* If flattened is now empty, just copy name, else add "$" then name.*/ + if (strlen(flattened) == 0) + strcpy (flattened, name); + else + { + strcat (flattened, "$"); + strcat (flattened, name); + } + if (ix) + { /* Add 'ix' to flattened if necessary. */ + strcat (flattened, "["); + strcat (flattened, ix); + strcat (flattened, "]"); + } + retCode = SD_SUCCESS; + } + else + { /* flattened is big, so this error should never occur with normal SCL.*/ + SXLOG_ERR2 ("ERROR: not enough space to add name '%s' to flattened name '%s'", name, flattened); + retCode = SD_FAILURE; + } + return (retCode); + } + +/************************************************************************/ +/* scl_parse */ +/************************************************************************/ + +ST_RET scl_parse (ST_CHAR *xmlFileName, ST_CHAR *iedName, + ST_CHAR *accessPointName, SCL_INFO *sclInfo) + { +ST_RET ret; +SCL_DEC_CTRL sclDecCtrl = {0}; /* start with clean struct. */ + + memset (sclInfo, 0, sizeof (SCL_INFO)); /* CRITICAL: start with clean struct*/ + + /* Save iedName in sclInfo for later use. */ + strncpy_safe (sclInfo->iedName, iedName, MAX_IDENT_LEN); + + sclDecCtrl.iedName = iedName; + sclDecCtrl.accessPointName = accessPointName; + sclDecCtrl.accessPointFound = SD_FALSE; + sclDecCtrl.sclInfo = sclInfo; + + ret = sx_parseExx_mt (xmlFileName, + sizeof (sclStartElements)/sizeof(SX_ELEMENT), sclStartElements, + &sclDecCtrl, _scl_unknown_el_start, _scl_unknown_el_end); + + /* NOTE: sx_parseEx_mt doesn't log error if file open fails, so log here*/ + /* It may not log some other errors, so log any other error here too. */ + if (ret == SX_FILE_NOT_FOUND) + SXLOG_ERR1 ("XML File (%s) Open Error",xmlFileName); + else if (ret != SD_SUCCESS) + SXLOG_ERR2 ("Error 0x%X parsing SCL file (%s)", ret, xmlFileName); + + /* If parsing successful, check if requested AccessPoint was found. */ + if (ret == SD_SUCCESS && sclDecCtrl.accessPointFound == SD_FALSE) + { + SXLOG_ERR3 ("IED='%s' or AccessPoint='%s' not found in input file (%s)", + iedName, accessPointName, xmlFileName); + ret = SX_REQUIRED_TAG_NOT_FOUND; /* new error code could be clearer*/ + } + + return (ret); + } + +/************************************************************************/ +/************************************************************************/ +/* SCL_SEFun */ +/************************************************************************/ + +static ST_VOID _SCL_SEFun (SX_DEC_CTRL *sxDecCtrl) + { + if (sxDecCtrl->reason == SX_ELEMENT_START) + sx_push (sxDecCtrl, sizeof(SCLElements)/sizeof(SX_ELEMENT), SCLElements, SD_FALSE); + + else + { + while (sxDecCtrl->itemStackLevel > 0) + sx_pop (sxDecCtrl); + } + } + +/************************************************************************/ +/* _Header_SFun */ +/************************************************************************/ + +static ST_VOID _Header_SFun (SX_DEC_CTRL *sxDecCtrl) + { +SCL_DEC_CTRL *sclDecCtrl; +ST_CHAR *nameStructure; +ST_RET ret; +SCL_INFO *sclInfo; + + sclDecCtrl = (SCL_DEC_CTRL *) sxDecCtrl->usr; + sclInfo = sclDecCtrl->sclInfo; + + /* Get required attributes */ + ret = scl_get_attr_copy (sxDecCtrl, "id", sclInfo->Header.id, + (sizeof(sclInfo->Header.id)-1), SCL_ATTR_REQUIRED); + if (ret != SD_SUCCESS) + return; /* At least one required attr not found. Stop now. */ + + /* Handle optional "nameStructure". */ + if (scl_get_attr_ptr (sxDecCtrl, "nameStructure", &nameStructure, SCL_ATTR_OPTIONAL) == SD_SUCCESS) + { + if (strcmp (nameStructure, "IEDName") != 0) + SXLOG_ERR1 ("Header attribute nameStructure='%s' not allowed. Assuming nameStructure='IEDName' (i.e. 'Product Naming')", nameStructure); + } + /* Always assume nameStructure="IEDName" (i.e. "Product Naming") */ + sclInfo->Header.nameStructure = SCL_NAMESTRUCTURE_IEDNAME; + } + +/************************************************************************/ +/* _Communication_SEFun */ +/************************************************************************/ +static ST_VOID _Communication_SEFun (SX_DEC_CTRL *sxDecCtrl) + { + if (sxDecCtrl->reason == SX_ELEMENT_START) + { + sx_push (sxDecCtrl, sizeof(CommunicationElements)/sizeof(SX_ELEMENT), + CommunicationElements, SD_FALSE); + } + else + { + sx_pop (sxDecCtrl); + } + } +/************************************************************************/ +/* _SubNetwork_SEFun */ +/************************************************************************/ +static ST_VOID _SubNetwork_SEFun (SX_DEC_CTRL *sxDecCtrl) + { +SCL_DEC_CTRL *sclDecCtrl = (SCL_DEC_CTRL *) sxDecCtrl->usr; +ST_RET ret; +ST_CHAR *desc; + + if (sxDecCtrl->reason == SX_ELEMENT_START) + { + SCL_SUBNET *scl_subnet; + scl_subnet = scl_subnet_add (sclDecCtrl->sclInfo); + if (scl_subnet == NULL) + { + scl_stop_parsing (sxDecCtrl, "scl_subnet_add", SX_USER_ERROR); + return; + } + /* Get required attributes. */ + ret = scl_get_attr_copy (sxDecCtrl, "name", scl_subnet->name, (sizeof(scl_subnet->name)-1), SCL_ATTR_REQUIRED); + if (ret) + { + scl_stop_parsing (sxDecCtrl, "SubNetwork", SX_USER_ERROR); + return; + } + /* Get optional attributes. */ + ret = scl_get_attr_ptr (sxDecCtrl, "desc", &desc, SCL_ATTR_OPTIONAL); + if (ret == SD_SUCCESS) + scl_subnet->desc = chk_strdup (desc); /* Alloc & copy desc string */ + ret = scl_get_attr_copy (sxDecCtrl, "type", scl_subnet->type, (sizeof(scl_subnet->type)-1), SCL_ATTR_OPTIONAL); + + sx_push (sxDecCtrl, sizeof(SubNetworkElements)/sizeof(SX_ELEMENT), + SubNetworkElements, SD_FALSE); + } + else + { + sx_pop (sxDecCtrl); + } + } +/************************************************************************/ +/* _ConnectedAP_SEFun */ +/************************************************************************/ +static ST_VOID _ConnectedAP_SEFun (SX_DEC_CTRL *sxDecCtrl) + { +SCL_DEC_CTRL *sclDecCtrl = (SCL_DEC_CTRL *) sxDecCtrl->usr; +ST_RET ret; +ST_CHAR *desc; + + if (sxDecCtrl->reason == SX_ELEMENT_START) + { + SCL_CAP *scl_cap; + scl_cap = scl_cap_add (sclDecCtrl->sclInfo); + if (scl_cap == NULL) + { + scl_stop_parsing (sxDecCtrl, "scl_cap_add", SX_USER_ERROR); + return; + } + /* Get required attributes */ + ret = scl_get_attr_copy (sxDecCtrl, "iedName", scl_cap->iedName, (sizeof(scl_cap->iedName)-1), SCL_ATTR_REQUIRED); + ret |= scl_get_attr_copy (sxDecCtrl, "apName", scl_cap->apName, (sizeof(scl_cap->apName)-1), SCL_ATTR_REQUIRED); + if (ret) + { + scl_stop_parsing (sxDecCtrl, "ConnectedAP", SX_USER_ERROR); + return; + } + /* Get optional attributes. */ + ret = scl_get_attr_ptr (sxDecCtrl, "desc", &desc, SCL_ATTR_OPTIONAL); + if (ret == SD_SUCCESS) + scl_cap->desc = chk_strdup (desc); /* Alloc & copy desc string */ + + sx_push (sxDecCtrl, sizeof(ConnectedAPElements)/sizeof(SX_ELEMENT), + ConnectedAPElements, SD_FALSE); + } + else + { + sx_pop (sxDecCtrl); + } + } +/************************************************************************/ +/* _GSE_SEFun */ +/************************************************************************/ +static ST_VOID _GSE_SEFun (SX_DEC_CTRL *sxDecCtrl) + { +SCL_DEC_CTRL *sclDecCtrl = (SCL_DEC_CTRL *) sxDecCtrl->usr; +ST_RET ret; + + if (sxDecCtrl->reason == SX_ELEMENT_START) + { + /* NOTE: save ptr in sclDecCtrl->scl_gse to use later in parsing. */ + sclDecCtrl->scl_gse = scl_gse_add (sclDecCtrl->sclInfo); + if (sclDecCtrl->scl_gse == NULL) + { + scl_stop_parsing (sxDecCtrl, "scl_gse_add", SX_USER_ERROR); + return; + } + ret = scl_get_attr_copy (sxDecCtrl, "ldInst", sclDecCtrl->scl_gse->ldInst, (sizeof(sclDecCtrl->scl_gse->ldInst)-1), SCL_ATTR_REQUIRED); + ret |= scl_get_attr_copy (sxDecCtrl, "cbName", sclDecCtrl->scl_gse->cbName, (sizeof(sclDecCtrl->scl_gse->cbName)-1), SCL_ATTR_REQUIRED); + if (ret) + { + scl_stop_parsing (sxDecCtrl, "GSE", SX_USER_ERROR); + return; + } + else + sx_push (sxDecCtrl, sizeof(GSEElements)/sizeof(SX_ELEMENT), + GSEElements, SD_FALSE); + } + else + { + sx_pop (sxDecCtrl); + } + } +/************************************************************************/ +/* _GSE_Address_SEFun */ +/************************************************************************/ +static ST_VOID _GSE_Address_SEFun (SX_DEC_CTRL *sxDecCtrl) + { + if (sxDecCtrl->reason == SX_ELEMENT_START) + { + sx_push (sxDecCtrl, sizeof(GSEAddressElements)/sizeof(SX_ELEMENT), + GSEAddressElements, SD_FALSE); + } + else + { + sx_pop (sxDecCtrl); + } + } +/************************************************************************/ +/* _GSE_Address_P_SEFun */ +/************************************************************************/ +static ST_VOID _GSE_Address_P_SEFun (SX_DEC_CTRL *sxDecCtrl) + { +SCL_DEC_CTRL *sclDecCtrl = (SCL_DEC_CTRL *) sxDecCtrl->usr; +ST_CHAR *str; +ST_RET ret; +ST_BOOLEAN required = SD_FALSE; +ST_CHAR *strOut; +ST_INT strLen; + + if (sxDecCtrl->reason == SX_ELEMENT_END) + { + ret = scl_get_attr_ptr (sxDecCtrl, "type", &str, required); + if (!strcmpi(str,"MAC-Address")) + { + ret = sx_get_string_ptr (sxDecCtrl, &strOut, &strLen); + if (ret == SD_SUCCESS) + { + if (convert_mac (sclDecCtrl->scl_gse->MAC,strOut)) + { + SXLOG_ERR1 ("Illegal MAC Address '%s'", strOut); + scl_stop_parsing (sxDecCtrl, "_GSE_Address_P_SEFun", SX_USER_ERROR); + } + } + } + else if (!strcmpi(str,"APPID")) + { + ret = sx_get_string_ptr (sxDecCtrl, &strOut, &strLen); + if (ret == SD_SUCCESS) + sclDecCtrl->scl_gse->APPID = atoi(strOut); + } + else if (!strcmpi(str,"VLAN-PRIORITY")) + { + ret = sx_get_string_ptr (sxDecCtrl, &strOut, &strLen); + if (ret == SD_SUCCESS) + sclDecCtrl->scl_gse->VLANPRI = atoi(strOut); + } + else if (!strcmpi(str,"VLAN-ID")) + { + ret = sx_get_string_ptr (sxDecCtrl, &strOut, &strLen); + if (ret == SD_SUCCESS) + sclDecCtrl->scl_gse->VLANID = atoi(strOut); + } + } + } + +/*renxiaobao GSE ½âÎö*/ +/************************************************************************/ +/* _GSE_MinTime_SEFun */ +/************************************************************************/ +static ST_VOID _GSE_MinTime_SEFun (SX_DEC_CTRL *sxDecCtrl) +{ + SCL_DEC_CTRL *sclDecCtrl = (SCL_DEC_CTRL *) sxDecCtrl->usr; + ST_CHAR *str; + ST_RET ret; + ST_BOOLEAN required = SD_FALSE; + ST_CHAR *strOut; + ST_INT strLen; + if (sxDecCtrl->reason == SX_ELEMENT_END) + { + ret = scl_get_attr_ptr (sxDecCtrl, "unit", &str, required); + /*if (!strcmpi(str,"s"))*/ + { + ret = sx_get_string_ptr (sxDecCtrl, &strOut, &strLen); + if (ret == SD_SUCCESS) + sclDecCtrl->scl_gse->MinTime = atoi(strOut); + } + } +} +static ST_VOID _GSE_MaxTime_SEFun (SX_DEC_CTRL *sxDecCtrl) +{ + SCL_DEC_CTRL *sclDecCtrl = (SCL_DEC_CTRL *) sxDecCtrl->usr; + ST_CHAR *str; + ST_RET ret; + ST_BOOLEAN required = SD_FALSE; + ST_CHAR *strOut; + ST_INT strLen; + if (sxDecCtrl->reason == SX_ELEMENT_END) + { + ret = scl_get_attr_ptr (sxDecCtrl, "unit", &str, required); + /*if (!strcmpi(str,"s"))*/ + { + ret = sx_get_string_ptr (sxDecCtrl, &strOut, &strLen); + if (ret == SD_SUCCESS) + sclDecCtrl->scl_gse->MaxTime = atoi(strOut); + } + } +} +/************************************************************************/ +/* _SMV_SEFun */ +/************************************************************************/ +static ST_VOID _SMV_SEFun (SX_DEC_CTRL *sxDecCtrl) + { +SCL_DEC_CTRL *sclDecCtrl = (SCL_DEC_CTRL *) sxDecCtrl->usr; +ST_RET ret; + + if (sxDecCtrl->reason == SX_ELEMENT_START) + { + /* NOTE: save ptr in sclDecCtrl->scl_smv to use later in parsing. */ + sclDecCtrl->scl_smv = scl_smv_add (sclDecCtrl->sclInfo); + if (sclDecCtrl->scl_smv == NULL) + { + scl_stop_parsing (sxDecCtrl, "scl_smv_add", SX_USER_ERROR); + return; + } + ret = scl_get_attr_copy (sxDecCtrl, "ldInst", sclDecCtrl->scl_smv->ldInst, (sizeof(sclDecCtrl->scl_smv->ldInst)-1), SCL_ATTR_REQUIRED); + ret |= scl_get_attr_copy (sxDecCtrl, "cbName", sclDecCtrl->scl_smv->cbName, (sizeof(sclDecCtrl->scl_smv->cbName)-1), SCL_ATTR_REQUIRED); + if (ret) + { + scl_stop_parsing (sxDecCtrl, "SMV", SX_USER_ERROR); + return; + } + else + sx_push (sxDecCtrl, sizeof(SMVElements)/sizeof(SX_ELEMENT), + SMVElements, SD_FALSE); + } + else + { + sx_pop (sxDecCtrl); + } + } +/************************************************************************/ +/* _SMV_Address_SEFun */ +/************************************************************************/ +static ST_VOID _SMV_Address_SEFun (SX_DEC_CTRL *sxDecCtrl) + { + if (sxDecCtrl->reason == SX_ELEMENT_START) + { + sx_push (sxDecCtrl, sizeof(SMVAddressElements)/sizeof(SX_ELEMENT), + SMVAddressElements, SD_FALSE); + } + else + { + sx_pop (sxDecCtrl); + } + } +/************************************************************************/ +/* _SMV_Address_P_SEFun */ +/************************************************************************/ +static ST_VOID _SMV_Address_P_SEFun (SX_DEC_CTRL *sxDecCtrl) + { +SCL_DEC_CTRL *sclDecCtrl = (SCL_DEC_CTRL *) sxDecCtrl->usr; +ST_CHAR *str; +ST_RET ret; +ST_BOOLEAN required = SD_FALSE; +ST_CHAR *strOut; +ST_INT strLen; + + if (sxDecCtrl->reason == SX_ELEMENT_END) + { + ret = scl_get_attr_ptr (sxDecCtrl, "type", &str, required); + if (!strcmpi(str,"MAC-Address")) + { + ret = sx_get_string_ptr (sxDecCtrl, &strOut, &strLen); + if (ret == SD_SUCCESS) + { + if (convert_mac (sclDecCtrl->scl_smv->MAC,strOut)) + { + SXLOG_ERR1 ("Illegal MAC Address '%s'", strOut); + scl_stop_parsing (sxDecCtrl, "_SMV_Address_P_SEFun", SX_USER_ERROR); + } + } + } + else if (!strcmpi(str,"APPID")) + { + ret = sx_get_string_ptr (sxDecCtrl, &strOut, &strLen); + if (ret == SD_SUCCESS) + sclDecCtrl->scl_smv->APPID = atoi(strOut); + } + else if (!strcmpi(str,"VLAN-PRIORITY")) + { + ret = sx_get_string_ptr (sxDecCtrl, &strOut, &strLen); + if (ret == SD_SUCCESS) + sclDecCtrl->scl_smv->VLANPRI = atoi(strOut); + } + else if (!strcmpi(str,"VLAN-ID")) + { + ret = sx_get_string_ptr (sxDecCtrl, &strOut, &strLen); + if (ret == SD_SUCCESS) + sclDecCtrl->scl_smv->VLANID = atoi(strOut); + } + } + } +/************************************************************************/ +/* IED_SEFun */ +/************************************************************************/ +char icd_ied_type[65]; +static ST_VOID _IED_SEFun (SX_DEC_CTRL *sxDecCtrl) + { +SCL_DEC_CTRL *sclDecCtrl; +ST_CHAR *str; /* ptr set by scl_get_attr_ptr */ +ST_RET ret; +ST_BOOLEAN required = SD_FALSE; + + sclDecCtrl = (SCL_DEC_CTRL *) sxDecCtrl->usr; + + if (sxDecCtrl->reason == SX_ELEMENT_START) + { + /* start required attributes */ + required = SD_TRUE; + ret = scl_get_attr_ptr (sxDecCtrl, "name", &str, required); + if (ret != SD_SUCCESS) + { + return; + } + if (strcmp(str, sclDecCtrl->iedName) == 0) + { + icd_ied_type[0] = 0; + scl_get_attr_copy (sxDecCtrl, "type", &icd_ied_type[0], 64, 0); /*renxiaobao add 20151218*/ + SXLOG_CDEC1 ("SCL PARSE: IED 'name' match found: %s", str); + sclDecCtrl->iedNameMatched = SD_TRUE; + sx_push (sxDecCtrl, sizeof(IEDElements)/sizeof(SX_ELEMENT), IEDElements, SD_FALSE); + } + else + { + SXLOG_CDEC1 ("SCL PARSE: IED 'name' found (%s), not a match", str); + } + /* end required attributes */ + } + else + { + if (sclDecCtrl->iedNameMatched == SD_TRUE) + { + sclDecCtrl->iedNameMatched = SD_FALSE; + sx_pop (sxDecCtrl); + } + } + } + +/************************************************************************/ +/* _AccessPoint_SEFun */ +/************************************************************************/ + +static ST_VOID _AccessPoint_SEFun (SX_DEC_CTRL *sxDecCtrl) + { +SCL_DEC_CTRL *sclDecCtrl; +ST_CHAR *str; /* ptr set by scl_get_attr_ptr */ +ST_RET ret; +ST_BOOLEAN required = SD_FALSE; + + sclDecCtrl = (SCL_DEC_CTRL *) sxDecCtrl->usr; + + if (sxDecCtrl->reason == SX_ELEMENT_START) + { + /* start required attributes */ + required = SD_TRUE; + ret = scl_get_attr_ptr (sxDecCtrl, "name", &str, required); + if (ret != SD_SUCCESS) + { + return; + } + if (strcmp(str, sclDecCtrl->accessPointName) == 0) + { + SXLOG_CDEC1 ("SCL PARSE: AccessPoint 'name' match found: %s", str); + sclDecCtrl->accessPointFound = SD_TRUE; /*NOTE: only get here if IED also found*/ + sclDecCtrl->accessPointMatched = SD_TRUE; + sx_push (sxDecCtrl, sizeof(AccessPointElements)/sizeof(SX_ELEMENT), AccessPointElements, SD_FALSE); + } + else + { + SXLOG_CDEC1 ("SCL PARSE: AccessPoint 'name' found (%s), not a match", str); + } + /* end required attributes */ + } + else + { + if (sclDecCtrl->accessPointMatched == SD_TRUE) + { + sclDecCtrl->accessPointMatched = SD_FALSE; + sx_pop (sxDecCtrl); + } + } + } + +/************************************************************************/ +/* _Server_SEFun */ +/************************************************************************/ + +static ST_VOID _Server_SEFun (SX_DEC_CTRL *sxDecCtrl) + { + if (sxDecCtrl->reason == SX_ELEMENT_START) + { + sx_push (sxDecCtrl, sizeof(ServerElements)/sizeof(SX_ELEMENT), ServerElements, SD_FALSE); + } + else + sx_pop (sxDecCtrl); + } + +/************************************************************************/ +/* _LDevice_SEFun */ +/************************************************************************/ +static ST_VOID _LDevice_SEFun (SX_DEC_CTRL *sxDecCtrl) + { +SCL_DEC_CTRL *sclDecCtrl; +ST_RET ret; +ST_BOOLEAN required = SD_FALSE; +SCL_INFO *scl_info; +SCL_LD *scl_ld; +ST_CHAR *desc; + + if (sxDecCtrl->reason == SX_ELEMENT_START) + { + sclDecCtrl = (SCL_DEC_CTRL *) sxDecCtrl->usr; + + scl_ld = sclDecCtrl->scl_ld = scl_ld_create (sclDecCtrl->sclInfo); + if (scl_ld == NULL) + { + scl_stop_parsing (sxDecCtrl, "scl_ld_create", SX_USER_ERROR); + return; + } + + /* start optional attributes */ + ret = scl_get_attr_ptr (sxDecCtrl, "desc", &desc, required); + if (ret == SD_SUCCESS) + scl_ld->desc = chk_strdup (desc); /* Alloc & copy desc string */ + /* end optional attributes */ + + /* start required attributes */ + required = SD_TRUE; + ret = scl_get_attr_copy (sxDecCtrl, "inst", scl_ld->inst, (sizeof(scl_ld->inst)-1), required); + if (ret != SD_SUCCESS) + return; /* At least one required attr not found. Stop now. */ + /* end required attributes */ + + sx_push (sxDecCtrl, sizeof(LDeviceElements)/sizeof(SX_ELEMENT), LDeviceElements, SD_FALSE); + } + else + { /* reason == SX_ELEMENT_END */ + sclDecCtrl = (SCL_DEC_CTRL *) sxDecCtrl->usr; + scl_info = sclDecCtrl->sclInfo; + scl_ld = sclDecCtrl->scl_ld; + /* Construct MMS Domain name from scl info. */ + /* ASSUME nameStructure="IEDName" (domain name = IED name + LDevice inst)*/ + /* nameStructure="FuncName" is OBSOLETE. */ + if (strlen(scl_info->iedName) + strlen(scl_ld->inst) <= MAX_IDENT_LEN) + { + strcpy (scl_ld->domName, scl_info->iedName); /* construct domain name*/ + strcat (scl_ld->domName, scl_ld->inst); + } + else + { + SXLOG_ERR0 ("Cannot create LD: constructed domain name too long"); + scl_stop_parsing (sxDecCtrl, "_LDevice_SEFun", SX_USER_ERROR); + } + sx_pop (sxDecCtrl); + } + } + +/************************************************************************/ +/* _LN_SEFun */ +/************************************************************************/ + +static ST_VOID _LN_SEFun (SX_DEC_CTRL *sxDecCtrl) + { +SCL_DEC_CTRL *sclDecCtrl; +ST_RET ret,ret1; +ST_BOOLEAN required = SD_FALSE; +SCL_LN *scl_ln; +ST_CHAR *desc; + + if (sxDecCtrl->reason == SX_ELEMENT_START) + { + sclDecCtrl = (SCL_DEC_CTRL *) sxDecCtrl->usr; + + scl_ln = sclDecCtrl->scl_ln = scl_ln_add (sclDecCtrl->sclInfo); + if (scl_ln == NULL) + { + scl_stop_parsing (sxDecCtrl, "scl_ln_add", SX_USER_ERROR); + return; + } + + /* start optional attributes */ + ret = scl_get_attr_ptr (sxDecCtrl, "desc", &desc, required); + if (ret == SD_SUCCESS) + scl_ln->desc = chk_strdup (desc); /* Alloc & copy desc string */ + ret = scl_get_attr_copy (sxDecCtrl, "prefix", scl_ln->prefix, (sizeof(scl_ln->prefix)-1), required); + /* end optional attributes */ + + /* start required attributes */ + required = SD_TRUE; + ret = scl_get_attr_copy (sxDecCtrl, "lnType", scl_ln->lnType, (sizeof(scl_ln->lnType)-1), required); + + + /* ret |= scl_get_attr_copy (sxDecCtrl, "inst", scl_ln->inst, (sizeof(scl_ln->inst)-1), required); renxiaobao remove*/ +/* scl_ln->inst ="";*/ +/* ret |= */ + scl_get_attr_copy (sxDecCtrl, "inst", scl_ln->inst, (sizeof(scl_ln->inst)-1), SD_FALSE); + + + ret |= scl_get_attr_copy (sxDecCtrl, "lnClass", scl_ln->lnClass, (sizeof(scl_ln->lnClass)-1), required); + + if (ret != SD_SUCCESS) + return; + + if (stricmp(sxDecCtrl->sxDecElInfo.tag, "LN0") == 0 && + stricmp(scl_ln->lnClass, "LLN0") != 0) + { + sxDecCtrl->errCode = SX_USER_ERROR; + sxDecCtrl->termFlag = SD_TRUE; + SXLOG_ERR0 ("SCL PARSE: Attribute 'lnClass' of element 'LN0' has a value other then 'LLN0' (schema violation)."); + return; + } + /* end required attributes */ + + if (stricmp(sxDecCtrl->sxDecElInfo.tag, "LN0") == 0) + sx_push (sxDecCtrl, sizeof(LN0Elements)/sizeof(SX_ELEMENT), LN0Elements, SD_FALSE); + else + sx_push (sxDecCtrl, sizeof(LNElements)/sizeof(SX_ELEMENT), LNElements, SD_FALSE); + } + else + { /* reason == SX_ELEMENT_END */ + sclDecCtrl = (SCL_DEC_CTRL *) sxDecCtrl->usr; + scl_ln = sclDecCtrl->scl_ln; + /* Construct MMS Variable name from scl info. */ + if (strlen (scl_ln->lnClass) != 4) + { + SXLOG_ERR1 ("Illegal lnClass='%s'. Must be exactly 4 char", + scl_ln->lnClass); + scl_stop_parsing (sxDecCtrl, "_LN_SEFun", SX_USER_ERROR); + } + else if (strlen (scl_ln->prefix) + strlen (scl_ln->inst) > 11) + { + /* NOTE: standard only allows max=7, but we want to be more forgiving.*/ + SXLOG_ERR3 ("Illegal definition for lnClass='%s': prefix (%s) plus inst (%s) > 11 char.", + scl_ln->lnClass, scl_ln->prefix, scl_ln->inst); + scl_stop_parsing (sxDecCtrl, "_LN_SEFun", SX_USER_ERROR); + } + else + { + strcpy (scl_ln->varName, scl_ln->prefix); + strcat (scl_ln->varName, scl_ln->lnClass); + strcat (scl_ln->varName, scl_ln->inst); + } + sx_pop (sxDecCtrl); + } + } + +/************************************************************************/ +/* _DataSet_SEFun */ +/************************************************************************/ + +static ST_VOID _DataSet_SEFun (SX_DEC_CTRL *sxDecCtrl) + { +SCL_DEC_CTRL *sclDecCtrl; +ST_RET ret; +ST_BOOLEAN required = SD_FALSE; +SCL_DATASET *scl_dataset; +ST_CHAR *desc; + + if (sxDecCtrl->reason == SX_ELEMENT_START) + { + sclDecCtrl = (SCL_DEC_CTRL *) sxDecCtrl->usr; + + scl_dataset = scl_dataset_add (sclDecCtrl->sclInfo); + if (scl_dataset == NULL) + { + scl_stop_parsing (sxDecCtrl, "scl_dataset_add", SX_USER_ERROR); + return; + } + + /* start optional attributes */ + ret = scl_get_attr_ptr (sxDecCtrl, "desc", &desc, required); + if (ret == SD_SUCCESS) + scl_dataset->desc = chk_strdup (desc); /* Alloc & copy desc string */ + /* end optional attributes */ + + /* start required attributes */ + required = SD_TRUE; + ret = scl_get_attr_copy (sxDecCtrl, "name", scl_dataset->name, (sizeof(scl_dataset->name)-1), required); + if (ret != SD_SUCCESS) + return; + /* end required attributes */ + + sx_push (sxDecCtrl, sizeof(DataSetElements)/sizeof(SX_ELEMENT), DataSetElements, SD_FALSE); + } + else + sx_pop (sxDecCtrl); + } + +/************************************************************************/ +/* _FCDA_SFun */ +/************************************************************************/ + +static ST_VOID _FCDA_SFun (SX_DEC_CTRL *sxDecCtrl) + { +SCL_DEC_CTRL *sclDecCtrl; +ST_RET ret; +ST_BOOLEAN required = SD_FALSE; +SCL_INFO *scl_info; +SCL_FCDA *scl_fcda; + + sclDecCtrl = (SCL_DEC_CTRL *) sxDecCtrl->usr; + scl_info = sclDecCtrl->sclInfo; + + scl_fcda = scl_fcda_add (scl_info); + if (scl_fcda == NULL) + { + scl_stop_parsing (sxDecCtrl, "scl_fcda_add", SX_USER_ERROR); + return; + } + + /* start optional attributes */ + ret = scl_get_attr_copy (sxDecCtrl, "ldInst", scl_fcda->ldInst, (sizeof(scl_fcda->ldInst)-1), required); + ret = scl_get_attr_copy (sxDecCtrl, "prefix", scl_fcda->prefix, (sizeof(scl_fcda->prefix)-1), required); + ret = scl_get_attr_copy (sxDecCtrl, "lnInst", scl_fcda->lnInst, (sizeof(scl_fcda->lnInst)-1), required); + ret = scl_get_attr_copy (sxDecCtrl, "lnClass", scl_fcda->lnClass, (sizeof(scl_fcda->lnClass)-1), required); + ret = scl_get_attr_copy (sxDecCtrl, "doName", scl_fcda->doName, (sizeof(scl_fcda->doName)-1), required); + ret = scl_get_attr_copy (sxDecCtrl, "daName", scl_fcda->daName, (sizeof(scl_fcda->daName)-1), required); + /* end optional attributes */ + + /* start required attributes */ + required = SD_TRUE; + ret = scl_get_attr_copy (sxDecCtrl, "fc", scl_fcda->fc, (sizeof(scl_fcda->fc)-1), required); + if (ret != SD_SUCCESS) + return; + /* end required attributes */ + + /* Construct domain name from SCL info */ + /* ASSUME nameStructure="IEDName" (domain name = IED name + LDevice inst)*/ + /* nameStructure="FuncName" is OBSOLETE. */ + if (strlen(scl_info->iedName) + strlen(scl_fcda->ldInst) <= MAX_IDENT_LEN) + { + strcpy (scl_fcda->domName, scl_info->iedName); + strcat (scl_fcda->domName, scl_fcda->ldInst); + } + else + { + SXLOG_ERR0 ("Cannot add FCDA: constructed domain name too long"); + scl_stop_parsing (sxDecCtrl, "_FCDA_SFun", SX_USER_ERROR); + } + } + +/************************************************************************/ +/* _ReportControl_SEFun */ +/************************************************************************/ + +static ST_VOID _ReportControl_SEFun (SX_DEC_CTRL *sxDecCtrl) + { +SCL_DEC_CTRL *sclDecCtrl; +ST_CHAR *str; /* ptr set by scl_get_attr_ptr */ +ST_RET ret; +ST_BOOLEAN required = SD_FALSE; +ST_CHAR *desc; + + sclDecCtrl = (SCL_DEC_CTRL *) sxDecCtrl->usr; + + if (sxDecCtrl->reason == SX_ELEMENT_START) + { + /* Alloc struct, save ptr in sclDecCtrl, & set local ptr to it. */ + SCL_RCB *scl_rcb = sclDecCtrl->scl_rcb = scl_rcb_add (sclDecCtrl->sclInfo); + if (scl_rcb == NULL) + { + scl_stop_parsing (sxDecCtrl, "scl_rcb_add", SX_USER_ERROR); + return; + } + + /* start optional attributes */ + ret = scl_get_attr_ptr (sxDecCtrl, "desc", &desc, required); + if (ret == SD_SUCCESS) + scl_rcb->desc = chk_strdup (desc); /* Alloc & copy desc string */ + ret = scl_get_attr_copy (sxDecCtrl, "datSet", scl_rcb->datSet, (sizeof(scl_rcb->datSet)-1), required); + ret = scl_get_uint_attr (sxDecCtrl, "intgPd", &scl_rcb->intgPd, required); + ret = scl_get_uint_attr (sxDecCtrl, "bufTime", &scl_rcb->bufTime, required); + ret = scl_get_attr_ptr (sxDecCtrl, "buffered", &str, required); + + scl_rcb->buffered = SD_FALSE; /* default */ + if (ret == SD_SUCCESS) + { + if (stricmp(str, "true") == 0) + scl_rcb->buffered = SD_TRUE; + } + /* NOTE: we only accept default value of indexed="true". */ + ret = scl_get_attr_ptr (sxDecCtrl, "indexed", &str, required); + if (ret == SD_SUCCESS && stricmp(str, "false") == 0) + { + SXLOG_ERR0 ("ReportControl attribute indexed='false' not supported"); + scl_stop_parsing (sxDecCtrl, "scl_rcb_add", SX_USER_ERROR); + return; + } + /* end optional attributes */ + + /* start required attributes */ + required = SD_TRUE; + ret = scl_get_attr_copy (sxDecCtrl, "name", scl_rcb->name, (sizeof(scl_rcb->name)-1), required); + ret |= scl_get_attr_copy (sxDecCtrl, "rptID", scl_rcb->rptID, (sizeof(scl_rcb->rptID)-1), required); + ret |= scl_get_uint_attr (sxDecCtrl, "confRev", &scl_rcb->confRev, required); + if (ret != SD_SUCCESS) + return; + /* end required attributes */ + + sx_push (sxDecCtrl, sizeof(ReportControlElements)/sizeof(SX_ELEMENT), ReportControlElements, SD_FALSE); + } + else /* reason = SX_ELEMENT_END */ + { + /* CRITICAL: Copy TrgOps to scl_rcb. */ + sclDecCtrl->scl_rcb->TrgOps[0] = sclDecCtrl->TrgOps[0]; + /* If "RptEnabled max" not configured, set default value*/ + if (sclDecCtrl->scl_rcb->maxClient == 0) + sclDecCtrl->scl_rcb->maxClient = 1; /* default */ + /* NOTE: scl_rcb is all filled in now */ + sx_pop (sxDecCtrl); + } + } + +/************************************************************************/ +/* _LogControl_SEFun */ +/************************************************************************/ + +static ST_VOID _LogControl_SEFun (SX_DEC_CTRL *sxDecCtrl) + { +SCL_DEC_CTRL *sclDecCtrl; +ST_CHAR *str; /* ptr set by scl_get_attr_ptr */ +ST_RET ret; +ST_BOOLEAN required = SD_FALSE; +ST_CHAR *desc; + + sclDecCtrl = (SCL_DEC_CTRL *) sxDecCtrl->usr; + + if (sxDecCtrl->reason == SX_ELEMENT_START) + { + /* Alloc struct, save ptr in sclDecCtrl, & set local ptr to it. */ + SCL_LCB *scl_lcb = sclDecCtrl->scl_lcb = scl_lcb_add (sclDecCtrl->sclInfo); + if (scl_lcb == NULL) + { + scl_stop_parsing (sxDecCtrl, "scl_lcb_add", SX_USER_ERROR); + return; + } + + /* start optional attributes */ + ret = scl_get_attr_ptr (sxDecCtrl, "desc", &desc, required); + if (ret == SD_SUCCESS) + scl_lcb->desc = chk_strdup (desc); /* Alloc & copy desc string */ + ret = scl_get_uint_attr (sxDecCtrl, "intgPd", &scl_lcb->intgPd, required); + ret = scl_get_attr_copy (sxDecCtrl, "datSet", scl_lcb->datSet, (sizeof(scl_lcb->datSet)-1), required); + ret = scl_get_attr_ptr (sxDecCtrl, "logEna", &str, required); + scl_lcb->logEna = SD_FALSE; /* default */ + if (ret == SD_SUCCESS) + { + if (stricmp(str, "true") == 0) + scl_lcb->logEna = SD_TRUE; + } + + ret = scl_get_attr_ptr (sxDecCtrl, "reasonCode", &str, required); + scl_lcb->reasonCode = SD_FALSE; /* default */ + if (ret == SD_SUCCESS) + { + if (stricmp(str, "true") == 0) + scl_lcb->reasonCode = SD_TRUE; + } + /* end optional attributes */ + + /* start required attributes */ + required = SD_TRUE; + ret = scl_get_attr_copy (sxDecCtrl, "name", scl_lcb->name, (sizeof(scl_lcb->name)-1), required); + ret |= scl_get_attr_copy (sxDecCtrl, "logName", scl_lcb->logName, (sizeof(scl_lcb->logName)-1), required); + if (ret != SD_SUCCESS) + return; + /* end required attributes */ + + sx_push (sxDecCtrl, sizeof(LogControlElements)/sizeof(SX_ELEMENT), LogControlElements, SD_FALSE); + } + else /* reason = SX_ELEMENT_END */ + { + /* CRITICAL: Copy TrgOps to scl_lcb. */ + sclDecCtrl->scl_lcb->TrgOps[0] = sclDecCtrl->TrgOps[0]; + /* NOTE: scl_lcb is all filled in now */ + sx_pop (sxDecCtrl); + } + } + +/************************************************************************/ +/* _GSEControl_SFun */ +/************************************************************************/ + +static ST_VOID _GSEControl_SFun (SX_DEC_CTRL *sxDecCtrl) + { +SCL_DEC_CTRL *sclDecCtrl; +ST_RET ret; +ST_BOOLEAN required = SD_FALSE; +ST_CHAR *type; /* ptr set by scl_get_attr_ptr */ +SCL_GCB *scl_gcb; +ST_CHAR *desc; + + sclDecCtrl = (SCL_DEC_CTRL *) sxDecCtrl->usr; + + scl_gcb = scl_gcb_add (sclDecCtrl->sclInfo); + if (scl_gcb == NULL) + { + scl_stop_parsing (sxDecCtrl, "scl_gcb_add", SX_USER_ERROR); + return; + } + + /* start optional attributes */ + ret = scl_get_attr_ptr (sxDecCtrl, "desc", &desc, required); + if (ret == SD_SUCCESS) + scl_gcb->desc = chk_strdup (desc); /* Alloc & copy desc string */ + ret = scl_get_uint_attr (sxDecCtrl, "confRev", &scl_gcb->confRev, required); + ret = scl_get_attr_copy (sxDecCtrl, "datSet", scl_gcb->datSet, (sizeof(scl_gcb->datSet)-1), required); + ret = scl_get_attr_ptr (sxDecCtrl, "type", &type, required); + if (ret == SD_SUCCESS && strcmp(type, "GSSE") == 0) + scl_gcb->isGoose = SD_FALSE; + else + scl_gcb->isGoose = SD_TRUE; + /* end optional attributes */ + + /* start required attributes */ + required = SD_TRUE; + ret = scl_get_attr_copy (sxDecCtrl, "name", scl_gcb->name, (sizeof(scl_gcb->name)-1), required); + ret |= scl_get_attr_copy (sxDecCtrl, "appID", scl_gcb->appID, (sizeof(scl_gcb->appID)-1), required); + if (ret != SD_SUCCESS) + return; + /* end required attributes */ + } + +/************************************************************************/ +/* _SettingControl_SFun */ +/************************************************************************/ + +static ST_VOID _SettingControl_SFun (SX_DEC_CTRL *sxDecCtrl) + { +SCL_DEC_CTRL *sclDecCtrl; +ST_RET ret; +ST_BOOLEAN required; +SCL_SGCB *scl_sgcb; +ST_CHAR *desc; + + sclDecCtrl = (SCL_DEC_CTRL *) sxDecCtrl->usr; + + scl_sgcb = scl_sgcb_add (sclDecCtrl->sclInfo); + if (scl_sgcb == NULL) + { + scl_stop_parsing (sxDecCtrl, "scl_sgcb_add", SX_USER_ERROR); + return; + } + + /* start optional attributes */ + required = SD_FALSE; + ret = scl_get_attr_ptr (sxDecCtrl, "desc", &desc, required); + if (ret == SD_SUCCESS) + scl_sgcb->desc = chk_strdup (desc); /* Alloc & copy desc string */ + ret = scl_get_uint_attr (sxDecCtrl, "actSG", &scl_sgcb->actSG, required); + if (ret) + scl_sgcb->actSG = 1; /* default value */ + /* end optional attributes */ + + /* start required attributes */ + required = SD_TRUE; + ret = scl_get_uint_attr (sxDecCtrl, "numOfSGs", &scl_sgcb->numOfSGs, required); + /* end required attributes */ + } + +/************************************************************************/ +/* _TrgOps_SFun */ +/* Save all TrgOps bits in sclDecCtrl->TrgOps. */ +/************************************************************************/ + +static ST_VOID _TrgOps_SFun (SX_DEC_CTRL *sxDecCtrl) + { +SCL_DEC_CTRL *sclDecCtrl; +ST_CHAR *str; /* ptr set by scl_get_attr_ptr */ +ST_RET ret; +ST_BOOLEAN required = SD_FALSE; + + sclDecCtrl = (SCL_DEC_CTRL *) sxDecCtrl->usr; + + sclDecCtrl->TrgOps[0] = 0; /* Start with all bits=0 */ + + /* start optional attributes */ + ret = scl_get_attr_ptr (sxDecCtrl, "dchg", &str, required); + if (ret == SD_SUCCESS) + { + if (stricmp(str, "true") == 0) + { + BSTR_BIT_SET_ON(sclDecCtrl->TrgOps, TRGOPS_BITNUM_DATA_CHANGE); + } + } + + ret = scl_get_attr_ptr (sxDecCtrl, "qchg", &str, required); + if (ret == SD_SUCCESS) + { + if (stricmp(str, "true") == 0) + { + BSTR_BIT_SET_ON(sclDecCtrl->TrgOps, TRGOPS_BITNUM_QUALITY_CHANGE); + } + } + + ret = scl_get_attr_ptr (sxDecCtrl, "dupd", &str, required); + if (ret == SD_SUCCESS) + { + if (stricmp(str, "true") == 0) + { + BSTR_BIT_SET_ON(sclDecCtrl->TrgOps, TRGOPS_BITNUM_DATA_UPDATE); + } + } + + ret = scl_get_attr_ptr (sxDecCtrl, "period", &str, required); + if (ret == SD_SUCCESS) + { + if (stricmp(str, "true") == 0) + { + BSTR_BIT_SET_ON(sclDecCtrl->TrgOps, TRGOPS_BITNUM_INTEGRITY); + } + } + /* end optional attributes */ + } + +/************************************************************************/ +/* _OptFlds_SFun */ +/* Save all OptFlds bits in sclDecCtrl->scl_rcb->OptFlds. */ +/************************************************************************/ + +static ST_VOID _OptFlds_SFun (SX_DEC_CTRL *sxDecCtrl) + { +SCL_DEC_CTRL *sclDecCtrl; +ST_CHAR *str; /* ptr set by scl_get_attr_ptr */ +ST_RET ret; +SCL_RCB *scl_rcb; +ST_BOOLEAN required = SD_FALSE; + + sclDecCtrl = (SCL_DEC_CTRL *) sxDecCtrl->usr; + scl_rcb = sclDecCtrl->scl_rcb; + + /* start optional attributes */ + ret = scl_get_attr_ptr (sxDecCtrl, "seqNum", &str, required); + if (ret == SD_SUCCESS) + { + if (stricmp(str, "true") == 0) + { + BSTR_BIT_SET_ON(scl_rcb->OptFlds, OPTFLD_BITNUM_SQNUM); + } + } + + ret = scl_get_attr_ptr (sxDecCtrl, "timeStamp", &str, required); + if (ret == SD_SUCCESS) + { + if (stricmp(str, "true") == 0) + { + BSTR_BIT_SET_ON(scl_rcb->OptFlds, OPTFLD_BITNUM_TIMESTAMP); + } + } + + ret = scl_get_attr_ptr (sxDecCtrl, "dataSet", &str, required); + if (ret == SD_SUCCESS) + { + if (stricmp(str, "true") == 0) + { + BSTR_BIT_SET_ON(scl_rcb->OptFlds, OPTFLD_BITNUM_DATSETNAME); + } + } + + ret = scl_get_attr_ptr (sxDecCtrl, "reasonCode", &str, required); + if (ret == SD_SUCCESS) + { + if (stricmp(str, "true") == 0) + { + BSTR_BIT_SET_ON(scl_rcb->OptFlds, OPTFLD_BITNUM_REASON); + } + } + + ret = scl_get_attr_ptr (sxDecCtrl, "dataRef", &str, required); + if (ret == SD_SUCCESS) + { + if (stricmp(str, "true") == 0) + { + BSTR_BIT_SET_ON(scl_rcb->OptFlds, OPTFLD_BITNUM_DATAREF); + } + } + + ret = scl_get_attr_ptr (sxDecCtrl, "bufOvfl", &str, required); + if (ret == SD_SUCCESS) + { + if (stricmp(str, "true") == 0) + { + BSTR_BIT_SET_ON(scl_rcb->OptFlds, OPTFLD_BITNUM_BUFOVFL); + } + } + + ret = scl_get_attr_ptr (sxDecCtrl, "entryID", &str, required); + if (ret == SD_SUCCESS) + { + if (stricmp(str, "true") == 0) + { + BSTR_BIT_SET_ON(scl_rcb->OptFlds, OPTFLD_BITNUM_ENTRYID); + } + } + + ret = scl_get_attr_ptr (sxDecCtrl, "configRef", &str, required); + if (ret == SD_SUCCESS) + { + if (stricmp(str, "true") == 0) + { + BSTR_BIT_SET_ON(scl_rcb->OptFlds, OPTFLD_BITNUM_CONFREV); + } + } + /* end optional attributes */ + } + +/************************************************************************/ +/* _RptEnabled_SFun */ +/* Save RptEnabled info in sclDecCtrl->scl_rcb. */ +/************************************************************************/ +static ST_VOID _RptEnabled_SFun (SX_DEC_CTRL *sxDecCtrl) + { +SCL_DEC_CTRL *sclDecCtrl = (SCL_DEC_CTRL *) sxDecCtrl->usr; +ST_RET ret; +SCL_RCB *scl_rcb; + + assert (sxDecCtrl->reason == SX_ELEMENT_START); + scl_rcb = sclDecCtrl->scl_rcb; + + /* start optional attributes */ + ret = scl_get_uint_attr (sxDecCtrl, "max", &scl_rcb->maxClient, SCL_ATTR_OPTIONAL); + /* If configured, check for legal value. */ + if (ret == SD_SUCCESS) + { + if (scl_rcb->maxClient <= 0 || scl_rcb->maxClient > 99) + { + SXLOG_ERR1 ("RptEnabled max=%d is not valid. Must be value between 1 and 99", scl_rcb->maxClient); + scl_stop_parsing (sxDecCtrl, "RptEnabled", SX_USER_ERROR); + scl_rcb->maxClient = 1; /* set to default just in case user ignores error*/ + } + } + } + +/************************************************************************/ +/* _DOI_SEFun */ +/************************************************************************/ + +static ST_VOID _DOI_SEFun (SX_DEC_CTRL *sxDecCtrl) + { +SCL_DEC_CTRL *sclDecCtrl; +ST_CHAR *ix; +ST_CHAR *name; +ST_RET ret; +ST_BOOLEAN required = SD_FALSE; + + sclDecCtrl = (SCL_DEC_CTRL *) sxDecCtrl->usr; + + if (sxDecCtrl->reason == SX_ELEMENT_START) + { + /* start optional attributes */ + ret = scl_get_attr_ptr (sxDecCtrl, "ix", &ix, required); + if (ret) + ix = NULL; + /* end optional attributes */ + + /* start required attributes */ + required = SD_TRUE; + ret = scl_get_attr_ptr (sxDecCtrl, "name", &name, required); + if (ret != SD_SUCCESS) + { + return; + } + /* end required attributes */ + + /* Start creation of flattened name */ + sclDecCtrl->flattened[0] = '\0'; /* CRITICAL: start with empty flatname*/ + if (construct_flattened (sclDecCtrl->flattened, sizeof(sclDecCtrl->flattened), name, ix) + != SD_SUCCESS) + { /* error already logged. */ + scl_stop_parsing (sxDecCtrl, "_DOI_SEFun", SX_USER_ERROR); + return; + } + + + SXLOG_CDEC1 ("SCL PARSE: Created flattened variable: '%s'", sclDecCtrl->flattened); + + sx_push (sxDecCtrl, sizeof(DOIElements)/sizeof(SX_ELEMENT), DOIElements, SD_FALSE); + } + else + { + sx_pop (sxDecCtrl); + } + } + +/************************************************************************/ +/* _SDI_SEFun */ +/************************************************************************/ + +static ST_VOID _SDI_SEFun (SX_DEC_CTRL *sxDecCtrl) + { +SCL_DEC_CTRL *sclDecCtrl; +ST_CHAR *ix; +ST_CHAR *name; +ST_RET ret; +ST_CHAR *p; +ST_BOOLEAN required = SD_FALSE; + + sclDecCtrl = (SCL_DEC_CTRL *) sxDecCtrl->usr; + + if (sxDecCtrl->reason == SX_ELEMENT_START) + { + /* start optional attributes */ + ret = scl_get_attr_ptr (sxDecCtrl, "ix", &ix, required); + if (ret) + ix = NULL; + /* end optional attributes */ + + /* start required attributes */ + required = SD_TRUE; + ret = scl_get_attr_ptr (sxDecCtrl, "name", &name, required); + if (ret != SD_SUCCESS) + { + return; + } + /* end required attributes */ + + /* Continue creation of flattened name */ + if (construct_flattened (sclDecCtrl->flattened, sizeof(sclDecCtrl->flattened), name, ix) + != SD_SUCCESS) + { /* error already logged. */ + scl_stop_parsing (sxDecCtrl, "_SDI_SEFun", SX_USER_ERROR); + return; + } + + SXLOG_CDEC1 ("SCL PARSE: Appended to flattened variable: '%s'", sclDecCtrl->flattened); + + sx_push (sxDecCtrl, sizeof(SDIElements)/sizeof(SX_ELEMENT), SDIElements, SD_FALSE); + } + else /* reason = SX_ELEMENT_END */ + { + /* Remove the last item from the flattened string */ + p = strrchr(sclDecCtrl->flattened, '$'); + if (p != NULL) + *p = 0; + SXLOG_CDEC1 ("SCL PARSE: Removed last item from flattened variable: '%s'", sclDecCtrl->flattened); + sx_pop (sxDecCtrl); + } + } + +/************************************************************************/ +/* _DAI_SEFun */ +/************************************************************************/ + +static ST_VOID _DAI_SEFun (SX_DEC_CTRL *sxDecCtrl) + { +SCL_DEC_CTRL *sclDecCtrl; +ST_CHAR *ix; +ST_CHAR *name; +ST_RET ret; +ST_CHAR *p; +ST_BOOLEAN required = SD_FALSE; + + sclDecCtrl = (SCL_DEC_CTRL *) sxDecCtrl->usr; + + if (sxDecCtrl->reason == SX_ELEMENT_START) + { + SCL_DAI *scl_dai; + if ((scl_dai = sclDecCtrl->scl_dai = scl_dai_add (sclDecCtrl->sclInfo)) == NULL) + { + scl_stop_parsing (sxDecCtrl, "scl_enumtype_create", SX_USER_ERROR); + return; + } + + /* start optional attributes */ + ret = scl_get_attr_ptr (sxDecCtrl, "ix", &ix, required); + if (ret) + ix = NULL; + ret = scl_get_attr_copy (sxDecCtrl, "sAddr", scl_dai->sAddr, (sizeof(scl_dai->sAddr)-1), required); + ret = scl_get_attr_copy (sxDecCtrl, "valKind", scl_dai->valKind, (sizeof(scl_dai->valKind)-1), required); + if (ret) + strcpy (scl_dai->valKind, "Set"); /* default */ + /* end optional attributes */ + + /* start required attributes */ + required = SD_TRUE; + ret = scl_get_attr_ptr (sxDecCtrl, "name", &name, required); + if (ret != SD_SUCCESS) + { + return; + } + /* end required attributes */ + + /* Continue creation of flattened name */ + if (construct_flattened (sclDecCtrl->flattened, sizeof(sclDecCtrl->flattened), name, ix) + != SD_SUCCESS) + { /* error already logged. */ + scl_stop_parsing (sxDecCtrl, "_DAI_SEFun", SX_USER_ERROR); + return; + } + + SXLOG_CDEC1 ("SCL PARSE: Appended to flattened variable: '%s'", sclDecCtrl->flattened); + strcpy (scl_dai->flattened, sclDecCtrl->flattened); + sx_push (sxDecCtrl, sizeof(DAIElements)/sizeof(SX_ELEMENT), DAIElements, SD_FALSE); + } + else /* reason = SX_ELEMENT_END */ + { + /* Remove the last item from the flattened string */ + p = strrchr(sclDecCtrl->flattened, '$'); + if (p != NULL) + *p = 0; + SXLOG_CDEC1 ("SCL PARSE: Removed last item from flattened variable: '%s'", sclDecCtrl->flattened); + sx_pop (sxDecCtrl); + } + } + +/************************************************************************/ +/* _DAI_Val_SEFun */ +/* Sets "sGroup" and "Val" in sclDecCtrl->scl_dai. */ +/************************************************************************/ + +static ST_VOID _DAI_Val_SEFun (SX_DEC_CTRL *sxDecCtrl) + { + if (sxDecCtrl->reason == SX_ELEMENT_START) + { + SCL_DEC_CTRL *sclDecCtrl = (SCL_DEC_CTRL *) sxDecCtrl->usr; + /* start optional attributes (don't care about return) */ + scl_get_uint_attr (sxDecCtrl, "sGroup", &sclDecCtrl->scl_dai->sGroup, SCL_ATTR_OPTIONAL); + /* end optional attributes */ + } + else /* reason = SX_ELEMENT_END */ + { + SCL_DEC_CTRL *sclDecCtrl = (SCL_DEC_CTRL *) sxDecCtrl->usr; + ST_RET ret; + ST_INT strLen; + ST_CHAR *Val; + ret = sx_get_string_ptr (sxDecCtrl, &Val, &strLen); + if (ret==SD_SUCCESS) + sclDecCtrl->scl_dai->Val = chk_strdup (Val); /* alloc & store Val*/ + else + scl_stop_parsing (sxDecCtrl, "DAI Val", SX_USER_ERROR); + } + } + +/************************************************************************/ +/* _DataTypeTemplates_SEFun */ +/************************************************************************/ + +static ST_VOID _DataTypeTemplates_SEFun (SX_DEC_CTRL *sxDecCtrl) + { + if (sxDecCtrl->reason == SX_ELEMENT_START) + sx_push (sxDecCtrl, sizeof(DataTypeTemplatesElements)/sizeof(SX_ELEMENT), DataTypeTemplatesElements, SD_FALSE); + else + sx_pop (sxDecCtrl); + } + +/************************************************************************/ +/* _LNodeType_SEFun */ +/************************************************************************/ + +static ST_VOID _LNodeType_SEFun (SX_DEC_CTRL *sxDecCtrl) + { +SCL_DEC_CTRL *sclDecCtrl; +ST_RET ret; +ST_BOOLEAN required = SD_FALSE; +SCL_LNTYPE *scl_lntype; + + if (sxDecCtrl->reason == SX_ELEMENT_START) + { + sclDecCtrl = (SCL_DEC_CTRL *) sxDecCtrl->usr; + + scl_lntype = scl_lntype_create (sclDecCtrl->sclInfo); + if (scl_lntype == NULL) + { + scl_stop_parsing (sxDecCtrl, "scl_lntype_create", SX_USER_ERROR); + return; + } + + /* start required attributes */ + required = SD_TRUE; + ret = scl_get_attr_copy (sxDecCtrl, "id", scl_lntype->id, (sizeof(scl_lntype->id)-1), required); + ret |= scl_get_attr_copy (sxDecCtrl, "lnClass", scl_lntype->lnClass, (sizeof(scl_lntype->lnClass)-1), required); + if (ret != SD_SUCCESS) + { + return; + } + /* end required attributes */ + + sx_push (sxDecCtrl, sizeof(LNodeTypeElements)/sizeof(SX_ELEMENT), LNodeTypeElements, SD_FALSE); + } + else + sx_pop (sxDecCtrl); + } + +/************************************************************************/ +/* _DO_SFun */ +/************************************************************************/ + +static ST_VOID _DO_SFun (SX_DEC_CTRL *sxDecCtrl) + { +SCL_DEC_CTRL *sclDecCtrl; +ST_RET ret; +ST_BOOLEAN required = SD_FALSE; +SCL_DO *scl_do; + + sclDecCtrl = (SCL_DEC_CTRL *) sxDecCtrl->usr; + + scl_do = scl_lntype_add_do (sclDecCtrl->sclInfo); + if (scl_do == NULL) + { + scl_stop_parsing (sxDecCtrl, "scl_lntype_add_do", SX_USER_ERROR); + return; + } + + /* start required attributes */ + required = SD_TRUE; + ret = scl_get_attr_copy (sxDecCtrl, "name", scl_do->name, (sizeof(scl_do->name)-1), required); + ret |= scl_get_attr_copy (sxDecCtrl, "type", scl_do->type, (sizeof(scl_do->type)-1), required); + if (ret != SD_SUCCESS) + { + return; + } + /* end required attributes */ + } + +/************************************************************************/ +/* _DOType_SEFun */ +/************************************************************************/ + +static ST_VOID _DOType_SEFun (SX_DEC_CTRL *sxDecCtrl) + { +SCL_DEC_CTRL *sclDecCtrl; +ST_RET ret; +ST_BOOLEAN required = SD_FALSE; +SCL_DOTYPE *scl_dotype; + + if (sxDecCtrl->reason == SX_ELEMENT_START) + { + sclDecCtrl = (SCL_DEC_CTRL *) sxDecCtrl->usr; + + scl_dotype = scl_dotype_create (sclDecCtrl->sclInfo); + if (scl_dotype == NULL) + { + scl_stop_parsing (sxDecCtrl, "scl_dotype_create", SX_USER_ERROR); + return; + } + + /* start required attributes */ + required = SD_TRUE; + ret = scl_get_attr_copy (sxDecCtrl, "id", scl_dotype->id, (sizeof(scl_dotype->id)-1), required); + ret |= scl_get_attr_copy (sxDecCtrl, "cdc", scl_dotype->cdc, (sizeof(scl_dotype->cdc)-1), required); + if (ret != SD_SUCCESS) + { + return; + } + /* end required attributes */ + + sx_push (sxDecCtrl, sizeof(DOTypeElements)/sizeof(SX_ELEMENT), DOTypeElements, SD_FALSE); + } + else + sx_pop (sxDecCtrl); + } + +/************************************************************************/ +/* _DA_SEFun */ +/************************************************************************/ + +static ST_VOID _DA_SEFun (SX_DEC_CTRL *sxDecCtrl) + { + if (sxDecCtrl->reason == SX_ELEMENT_START) + { + SCL_DEC_CTRL *sclDecCtrl; + ST_CHAR *str; /* use for dchg, qchg, dupd */ + ST_RET ret; + ST_BOOLEAN required = SD_FALSE; + SCL_DA *scl_da; + ST_CHAR *desc; + + sclDecCtrl = (SCL_DEC_CTRL *) sxDecCtrl->usr; + + scl_da = sclDecCtrl->scl_da = scl_dotype_add_da (sclDecCtrl->sclInfo); + if (scl_da == NULL) + { + scl_stop_parsing (sxDecCtrl, "scl_dotype_add_da", SX_USER_ERROR); + return; + } + + /* start optional attributes */ + ret = scl_get_attr_ptr (sxDecCtrl, "desc", &desc, required); + if (ret == SD_SUCCESS) + scl_da->desc = chk_strdup (desc); /* Alloc & copy desc string */ + ret = scl_get_attr_copy (sxDecCtrl, "sAddr", scl_da->sAddr, (sizeof(scl_da->sAddr)-1), required); + ret = scl_get_attr_copy (sxDecCtrl, "valKind", scl_da->valKind, (sizeof(scl_da->valKind)-1), required); + if (ret) + strcpy (scl_da->valKind, "Set"); /* default */ + ret = scl_get_attr_copy (sxDecCtrl, "type", scl_da->type, (sizeof(scl_da->type)-1), required); + ret = scl_get_uint_attr (sxDecCtrl, "count", &scl_da->count, required); + ret = scl_get_attr_ptr (sxDecCtrl, "dchg", &str, required); + if (ret == SD_SUCCESS && stricmp(str, "true") == 0) + scl_da->dchg = SD_TRUE; + + ret = scl_get_attr_ptr (sxDecCtrl, "qchg", &str, required); + if (ret == SD_SUCCESS && stricmp(str, "true") == 0) + scl_da->qchg = SD_TRUE; + + ret = scl_get_attr_ptr (sxDecCtrl, "dupd", &str, required); + if (ret == SD_SUCCESS && stricmp(str, "true") == 0) + scl_da->dupd = SD_TRUE; + /* end optional attributes */ + + /* start required attributes */ + required = SD_TRUE; + ret = scl_get_attr_copy (sxDecCtrl, "name", scl_da->name, (sizeof(scl_da->name)-1), required); + ret |= scl_get_attr_copy (sxDecCtrl, "bType", scl_da->bType, (sizeof(scl_da->bType)-1), required); + ret |= scl_get_attr_copy (sxDecCtrl, "fc", scl_da->fc, (sizeof(scl_da->fc)-1), required); + if (ret != SD_SUCCESS) + { + return; + } + /* end required attributes */ + sx_push (sxDecCtrl, sizeof(DAElements)/sizeof(SX_ELEMENT), DAElements, SD_FALSE); + } + else + sx_pop (sxDecCtrl); + } + +/************************************************************************/ +/* _SDO_SFun */ +/************************************************************************/ + +static ST_VOID _SDO_SFun (SX_DEC_CTRL *sxDecCtrl) + { +SCL_DEC_CTRL *sclDecCtrl; +ST_RET ret; +ST_BOOLEAN required = SD_FALSE; +SCL_DA *scl_da; +ST_CHAR *desc; + + sclDecCtrl = (SCL_DEC_CTRL *) sxDecCtrl->usr; + + scl_da = scl_dotype_add_sdo (sclDecCtrl->sclInfo); + if (scl_da == NULL) + { + scl_stop_parsing (sxDecCtrl, "scl_dotype_add_sdo", SX_USER_ERROR); + return; + } + + /* start optional attributes */ + ret = scl_get_attr_ptr (sxDecCtrl, "desc", &desc, required); + if (ret == SD_SUCCESS) + scl_da->desc = chk_strdup (desc); /* Alloc & copy desc string */ + /* end optional attributes */ + + /* start required attributes */ + required = SD_TRUE; + ret = scl_get_attr_copy (sxDecCtrl, "name", scl_da->name, (sizeof(scl_da->name)-1), required); + ret |= scl_get_attr_copy (sxDecCtrl, "type", scl_da->type, (sizeof(scl_da->type)-1), required); + if (ret != SD_SUCCESS) + { + return; + } + /* end required attributes */ + } + +/************************************************************************/ +/* _DA_Val_SEFun */ +/************************************************************************/ + +static ST_VOID _DA_Val_SEFun (SX_DEC_CTRL *sxDecCtrl) + { + if (sxDecCtrl->reason == SX_ELEMENT_START) + { + SCL_DEC_CTRL *sclDecCtrl = (SCL_DEC_CTRL *) sxDecCtrl->usr; + /* start optional attributes (don't care about return) */ + scl_get_uint_attr (sxDecCtrl, "sGroup", &sclDecCtrl->scl_da->sGroup, SCL_ATTR_OPTIONAL); + /* end optional attributes */ + } + else /* reason = SX_ELEMENT_END */ + { + SCL_DEC_CTRL *sclDecCtrl = (SCL_DEC_CTRL *) sxDecCtrl->usr; + ST_RET ret; + ST_INT strLen; + ST_CHAR *Val; + ret = sx_get_string_ptr (sxDecCtrl, &Val, &strLen); + if (ret==SD_SUCCESS) + sclDecCtrl->scl_da->Val = chk_strdup (Val); /* alloc & store Val*/ + else + scl_stop_parsing (sxDecCtrl, "DA Val", SX_USER_ERROR); + } + } + +/************************************************************************/ +/* _DAType_SEFun */ +/************************************************************************/ + +static ST_VOID _DAType_SEFun (SX_DEC_CTRL *sxDecCtrl) + { +SCL_DEC_CTRL *sclDecCtrl; +ST_RET ret; +ST_BOOLEAN required = SD_FALSE; +SCL_DATYPE *scl_datype; + + if (sxDecCtrl->reason == SX_ELEMENT_START) + { + sclDecCtrl = (SCL_DEC_CTRL *) sxDecCtrl->usr; + + scl_datype = scl_datype_create (sclDecCtrl->sclInfo); + if (scl_datype == NULL) + { + scl_stop_parsing (sxDecCtrl, "scl_datype_create", SX_USER_ERROR); + return; + } + + /* start required attributes */ + required = SD_TRUE; + ret = scl_get_attr_copy (sxDecCtrl, "id", scl_datype->id, (sizeof(scl_datype->id)-1), required); + if (ret != SD_SUCCESS) + { + return; + } + /* end required attributes */ + + sx_push (sxDecCtrl, sizeof(DATypeElements)/sizeof(SX_ELEMENT), DATypeElements, SD_FALSE); + } + else + sx_pop (sxDecCtrl); + } + +/************************************************************************/ +/* _BDA_SEFun */ +/************************************************************************/ + +static ST_VOID _BDA_SEFun (SX_DEC_CTRL *sxDecCtrl) + { + if (sxDecCtrl->reason == SX_ELEMENT_START) + { + SCL_DEC_CTRL *sclDecCtrl; + ST_RET ret; + ST_BOOLEAN required = SD_FALSE; + SCL_BDA *scl_bda; + ST_CHAR *desc; + + sclDecCtrl = (SCL_DEC_CTRL *) sxDecCtrl->usr; + + scl_bda = sclDecCtrl->scl_bda = scl_datype_add_bda (sclDecCtrl->sclInfo); + if (scl_bda == NULL) + { + scl_stop_parsing (sxDecCtrl, "scl_datype_add_bda", SX_USER_ERROR); + return; + } + + /* start optional attributes */ + ret = scl_get_attr_ptr (sxDecCtrl, "desc", &desc, required); + if (ret == SD_SUCCESS) + scl_bda->desc = chk_strdup (desc); /* Alloc & copy desc string */ + ret = scl_get_attr_copy (sxDecCtrl, "sAddr", scl_bda->sAddr, (sizeof(scl_bda->sAddr)-1), required); + ret = scl_get_attr_copy (sxDecCtrl, "valKind", scl_bda->valKind, (sizeof(scl_bda->valKind)-1), required); + if (ret) + strcpy (scl_bda->valKind, "Set"); /* default */ + ret = scl_get_attr_copy (sxDecCtrl, "type", scl_bda->type, (sizeof(scl_bda->type)-1), required); + ret = scl_get_uint_attr (sxDecCtrl, "count", &scl_bda->count, required); + /* end optional attributes */ + + /* start required attributes */ + required = SD_TRUE; + ret = scl_get_attr_copy (sxDecCtrl, "name", scl_bda->name, (sizeof(scl_bda->name)-1), required); + ret |= scl_get_attr_copy (sxDecCtrl, "bType", scl_bda->bType, (sizeof(scl_bda->bType)-1), required); + if (ret != SD_SUCCESS) + { + return; + } + /* end required attributes */ + sx_push (sxDecCtrl, sizeof(BDAElements)/sizeof(SX_ELEMENT), BDAElements, SD_FALSE); + } + else + sx_pop (sxDecCtrl); + } + +/************************************************************************/ +/* _BDA_Val_SEFun */ +/************************************************************************/ + +static ST_VOID _BDA_Val_SEFun (SX_DEC_CTRL *sxDecCtrl) + { + if (sxDecCtrl->reason == SX_ELEMENT_START) + { + SCL_DEC_CTRL *sclDecCtrl = (SCL_DEC_CTRL *) sxDecCtrl->usr; + /* start optional attributes (don't care about return) */ + scl_get_uint_attr (sxDecCtrl, "sGroup", &sclDecCtrl->scl_bda->sGroup, SCL_ATTR_OPTIONAL); + /* end optional attributes */ + } + else /* reason = SX_ELEMENT_END */ + { + SCL_DEC_CTRL *sclDecCtrl = (SCL_DEC_CTRL *) sxDecCtrl->usr; + ST_RET ret; + ST_INT strLen; + ST_CHAR *Val; + ret = sx_get_string_ptr (sxDecCtrl, &Val, &strLen); + if (ret==SD_SUCCESS) + sclDecCtrl->scl_bda->Val = chk_strdup (Val); /* alloc & store Val*/ + else + scl_stop_parsing (sxDecCtrl, "BDA Val", SX_USER_ERROR); + } + } + +/************************************************************************/ +/* _EnumType_SEFun */ +/************************************************************************/ + +static ST_VOID _EnumType_SEFun (SX_DEC_CTRL *sxDecCtrl) + { +SCL_DEC_CTRL *sclDecCtrl; +ST_RET ret; +ST_BOOLEAN required = SD_FALSE; +SCL_ENUMTYPE *scl_enumtype; + + if (sxDecCtrl->reason == SX_ELEMENT_START) + { + sclDecCtrl = (SCL_DEC_CTRL *) sxDecCtrl->usr; + + if ((scl_enumtype = scl_enumtype_create (sclDecCtrl->sclInfo)) == NULL) + { + scl_stop_parsing (sxDecCtrl, "scl_enumtype_create", SX_USER_ERROR); + return; + } + + /* start required attributes */ + required = SD_TRUE; + ret = scl_get_attr_copy (sxDecCtrl, "id", scl_enumtype->id, (sizeof(scl_enumtype->id)-1), required); + if (ret != SD_SUCCESS) + { + return; + } + /* end required attributes */ + + sx_push (sxDecCtrl, sizeof(EnumTypeElements)/sizeof(SX_ELEMENT), EnumTypeElements, SD_FALSE); + } + else + sx_pop (sxDecCtrl); + } + +/************************************************************************/ +/* _EnumVal_SEFun */ +/************************************************************************/ + +static ST_VOID _EnumVal_SEFun (SX_DEC_CTRL *sxDecCtrl) + { +SCL_DEC_CTRL *sclDecCtrl; +ST_RET ret; +ST_INT strLen; +ST_BOOLEAN required = SD_FALSE; +SCL_ENUMVAL *scl_enumval; + + sclDecCtrl = (SCL_DEC_CTRL *) sxDecCtrl->usr; + + if (sxDecCtrl->reason == SX_ELEMENT_START) + { + if ((scl_enumval = sclDecCtrl->scl_enumval = scl_enumtype_add_enumval (sclDecCtrl->sclInfo)) == NULL) + { + scl_stop_parsing (sxDecCtrl, "scl_enumtype_add_enumval", SX_USER_ERROR); + return; + } + + /* start required attributes */ + required = SD_TRUE; + ret = scl_get_int_attr (sxDecCtrl, "ord", &scl_enumval->ord, required); + if (ret != SD_SUCCESS) + { + return; + } + /* end required attributes */ + } + else /* reason = SX_ELEMENT_END */ + { + scl_enumval = sclDecCtrl->scl_enumval; + /* CRITICAL: Init strLen = max len. After sx_get_string, strLen = actual len*/ + strLen = sizeof(scl_enumval->EnumVal)-1; + ret = sx_get_string (sxDecCtrl, scl_enumval->EnumVal, &strLen); + if (ret != SD_SUCCESS) + scl_stop_parsing (sxDecCtrl, "_EnumVal_SEFun", SX_USER_ERROR); + } + } + +/************************************************************************/ +/* _scl_unknown_el_start */ +/************************************************************************/ + +static ST_RET _scl_unknown_el_start (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *tag) + { + SXLOG_DEC1 ("SCL PARSE: Unneeded or unknown element '%s'", tag); + return (SD_SUCCESS); + } + +/************************************************************************/ +/* _scl_unknown_el_end */ +/************************************************************************/ + +static ST_RET _scl_unknown_el_end (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *tag) + { + return (SD_SUCCESS); + } + +/************************************************************************/ +/* _SampledValueControl_SEFun */ +/* DEBUG: if parser called separate start and end functions, the lower */ +/* functs could be called directly & this funct would not be needed. */ +/************************************************************************/ +static ST_VOID _SampledValueControl_SEFun (SX_DEC_CTRL *sxDecCtrl) + { + if (sxDecCtrl->reason == SX_ELEMENT_START) + _SampledValueControl_SFun (sxDecCtrl); + else + _SampledValueControl_EFun (sxDecCtrl); + } +/************************************************************************/ +/* _SampledValueControl_SFun */ +/* Handle Start tag */ +/************************************************************************/ +static ST_VOID _SampledValueControl_SFun (SX_DEC_CTRL *sxDecCtrl) + { +SCL_DEC_CTRL *sclDecCtrl; +ST_CHAR *str; /* ptr set by scl_get_attr_ptr */ +ST_RET ret; +SCL_SVCB *scl_svcb; +ST_CHAR *desc; + + sclDecCtrl = (SCL_DEC_CTRL *) sxDecCtrl->usr; + + /* Alloc struct, save in sclDecCtrl, & set local ptr to it. */ + scl_svcb = sclDecCtrl->scl_svcb = scl_svcb_add (sclDecCtrl->sclInfo); + if (scl_svcb == NULL) + { + scl_stop_parsing (sxDecCtrl, "scl_svcb_add", SX_USER_ERROR); + return; + } + + /* start required attributes */ + ret = scl_get_attr_copy (sxDecCtrl, "name", scl_svcb->name, (sizeof(scl_svcb->name)-1), SCL_ATTR_REQUIRED); + ret |= scl_get_attr_copy (sxDecCtrl, "smvID", scl_svcb->smvID, (sizeof(scl_svcb->smvID)-1), SCL_ATTR_REQUIRED); + ret |= scl_get_uint_attr (sxDecCtrl, "smpRate", &scl_svcb->smpRate, SCL_ATTR_REQUIRED); + ret |= scl_get_uint_attr (sxDecCtrl, "nofASDU", &scl_svcb->nofASDU, SCL_ATTR_REQUIRED); + if (ret != SD_SUCCESS) + return; /* At least one required attr not found. Stop now. */ + /* end required attributes */ + + /* start optional attributes */ + ret = scl_get_attr_ptr (sxDecCtrl, "desc", &desc, SCL_ATTR_OPTIONAL); + if (ret == SD_SUCCESS) + scl_svcb->desc = chk_strdup (desc); /* Alloc & copy desc string */ + ret = scl_get_attr_copy (sxDecCtrl, "datSet", scl_svcb->datSet, (sizeof(scl_svcb->datSet)-1), SCL_ATTR_OPTIONAL); + ret = scl_get_uint_attr (sxDecCtrl, "confRev", &scl_svcb->confRev, SCL_ATTR_OPTIONAL); + ret = scl_get_attr_ptr (sxDecCtrl, "multicast", &str, SCL_ATTR_OPTIONAL); /* chk "str" below*/ + if (ret == SD_SUCCESS && stricmp(str, "false") == 0) + scl_svcb->multicast = SD_FALSE; + else + scl_svcb->multicast = SD_TRUE; /* default value */ + /* end optional attributes */ + + sx_push (sxDecCtrl, sizeof(SampledValueControlElements)/sizeof(SX_ELEMENT), SampledValueControlElements, SD_FALSE); + } +/************************************************************************/ +/* _SampledValueControl_EFun */ +/* Handle End tag */ +/************************************************************************/ +static ST_VOID _SampledValueControl_EFun (SX_DEC_CTRL *sxDecCtrl) + { + sx_pop (sxDecCtrl); + } + +/************************************************************************/ +/* _SmvOpts_SFun */ +/************************************************************************/ +static ST_VOID _SmvOpts_SFun (SX_DEC_CTRL *sxDecCtrl) + { +SCL_DEC_CTRL *sclDecCtrl; +ST_CHAR *str; /* ptr set by scl_get_attr_ptr */ +ST_RET ret; +SCL_SVCB *scl_svcb; + + sclDecCtrl = (SCL_DEC_CTRL *) sxDecCtrl->usr; + scl_svcb = sclDecCtrl->scl_svcb; + + /* start optional attributes */ + ret = scl_get_attr_ptr (sxDecCtrl, "sampleRate", &str, SCL_ATTR_OPTIONAL); + if (ret == SD_SUCCESS && stricmp(str, "true") == 0) + { + BSTR_BIT_SET_ON(scl_svcb->OptFlds, SVOPT_BITNUM_SMPRATE); + } + + ret = scl_get_attr_ptr (sxDecCtrl, "refreshTime", &str, SCL_ATTR_OPTIONAL); + if (ret == SD_SUCCESS && stricmp(str, "true") == 0) + { + BSTR_BIT_SET_ON(scl_svcb->OptFlds, SVOPT_BITNUM_REFRTM); + } + + ret = scl_get_attr_ptr (sxDecCtrl, "sampleSynchronized", &str, SCL_ATTR_OPTIONAL); + if (ret == SD_SUCCESS && stricmp(str, "true") == 0) + { + BSTR_BIT_SET_ON(scl_svcb->OptFlds, SVOPT_BITNUM_SMPSYNCH); + } + + ret = scl_get_attr_ptr (sxDecCtrl, "security", &str, SCL_ATTR_OPTIONAL); + if (ret == SD_SUCCESS && stricmp(str, "true") == 0) + scl_svcb->securityPres = SD_TRUE; /* scl_svcb calloced so init val is FALSE*/ + + /* NOTE: SCL calls this "dataRef", but 7-2 & 9-2 call it "DatSet". */ + ret = scl_get_attr_ptr (sxDecCtrl, "dataRef", &str, SCL_ATTR_OPTIONAL); + if (ret == SD_SUCCESS && stricmp(str, "true") == 0) + scl_svcb->dataRefPres = SD_TRUE; /* scl_svcb calloced so init val is FALSE*/ + /* end optional attributes */ + } diff --git a/mmslib/util/sclstore.c b/mmslib/util/sclstore.c new file mode 100644 index 0000000..5974aa2 --- /dev/null +++ b/mmslib/util/sclstore.c @@ -0,0 +1,737 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2004-2006 All Rights Reserved */ +/* */ +/* MODULE NAME : sclstore.c */ +/* PRODUCT(S) : MMS-EASE-LITE */ +/* */ +/* MODULE DESCRIPTION : */ +/* Functions to store information parsed from SCL file. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* scl_lntype_create */ +/* scl_lntype_add_do */ +/* scl_dotype_create */ +/* scl_dotype_add_da */ +/* scl_dotype_add_sdo */ +/* scl_datype_create */ +/* scl_datype_add_bda */ +/* scl_enumtype_create */ +/* scl_enumtype_add_enumval */ +/* scl_fcda_add */ +/* scl_dai_add */ +/* scl_dataset_add */ +/* scl_rcb_add */ +/* scl_lcb_add */ +/* scl_gcb_add */ +/* scl_ln_add */ +/* scl_ld_create */ +/* scl_info_destroy */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 04/23/08 JRB 11 Add scl_sgcb_add. */ +/* 07/26/06 JRB 10 Add scl_subnet_add, scl_cap_add, scl_gse_add,*/ +/* scl_smv_add. */ +/* 04/04/06 JRB 09 Add scl_svcb_add: alloc SCL_SVCB & add to list.*/ +/* 03/15/06 JRB 08 Simplify functions: Do not copy data. */ +/* Most functions take only (SCL_INFO *) arg & */ +/* just alloc struct and add to linked list. */ +/* Del scl_dotype_add_da_val, */ +/* scl_datype_add_bda_val, scl_header_save. */ +/* 01/30/06 GLB 07 Integrated porting changes for VMS */ +/* 07/25/05 JRB 06 If nameStructure!=IEDName, ignore it and */ +/* assume nameStructure=IEDName anyway. */ +/* 06/29/05 CRM 05 Add scl_info_destroy. */ +/* 06/24/05 JRB 04 Chg "ord" from unsigned to signed value. */ +/* 02/15/05 JRB 03 Chg scl_ld_create to generate scl_ld->domName.*/ +/* Chg scl_fcda_add to generate scl_fcda->domName.*/ +/* Chg scl_ln_add to generate scl_ln->varName. */ +/* Add scl_header_save. */ +/* 07/19/04 JRB 02 Add scl_lcb_add, scl_gcb_add. */ +/* 06/10/04 JRB 01 Initial Revision. */ +/************************************************************************/ +#include "glbtypes.h" +#include "sysincs.h" +#include "scl.h" +#include "sx_log.h" +#include "str_util.h" + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + + +/* NOTE: + * Functions with "scl_" prefix used while parsing SCL file to + * store data in linked lists. + * Functions with "scl2_" prefix (see sclproc.c) used to read info from + * linked lists and create MMS objects (Domains, variables, NVLs, etc.). + */ + +/************************************************************************/ +/* scl_lntype_create */ +/* Begin creation of a Logical Node Type (LNodeType). */ +/* RETURNS: SD_SUCCESS or error code */ +/************************************************************************/ +SCL_LNTYPE *scl_lntype_create ( + SCL_INFO *scl_info) /* struct to store all SCL info */ + { +SCL_LNTYPE *scl_lntype; + + scl_lntype = (SCL_LNTYPE *) chk_calloc (1, sizeof (SCL_LNTYPE)); + /* Add LNType to front of LNType List. */ + list_add_first (&scl_info->lnTypeHead, scl_lntype); + return (scl_lntype); + } + +/************************************************************************/ +/* scl_lntype_add_do */ +/* Add a Data Object (DO) to a Logical Node Type (LNodeType). */ +/* Adds to lntype created by most recent call to "scl_lntype_create". */ +/* RETURNS: SD_SUCCESS or error code */ +/************************************************************************/ +SCL_DO *scl_lntype_add_do ( + SCL_INFO *scl_info) /* main struct where all SCL info stored*/ + { +SCL_DO *scl_do = NULL; /* assume failure */ + + /* All higher level linked lists must be initialized. */ + if (scl_info->lnTypeHead) + { + scl_do = (SCL_DO *) chk_calloc (1, sizeof (SCL_DO)); + /* Add DO to front of DO List in first entry of LNType list */ + list_add_first (&scl_info->lnTypeHead->doHead, scl_do); + } + else + SXLOG_ERR0 ("Cannot add DO to NULL LNTYPE"); + return (scl_do); + } + +/************************************************************************/ +/* scl_dotype_create */ +/* Begin creation of a Data Object Type (DOType). */ +/* RETURNS: SD_SUCCESS or error code */ +/************************************************************************/ +SCL_DOTYPE *scl_dotype_create ( + SCL_INFO *scl_info) /* main struct where all SCL info stored*/ + { +SCL_DOTYPE *scl_dotype; + + scl_dotype = (SCL_DOTYPE *) chk_calloc (1, sizeof (SCL_DOTYPE)); + /* Add DOType to front of DOType List. */ + list_add_first (&scl_info->doTypeHead, scl_dotype); + return (scl_dotype); + } + +/************************************************************************/ +/* scl_dotype_add_da */ +/* Add a Data Attribute (DA) to a Data Object Type (DOType). */ +/* RETURNS: SD_SUCCESS or error code */ +/************************************************************************/ +SCL_DA *scl_dotype_add_da ( + SCL_INFO *scl_info) /* main struct where all SCL info stored*/ + { +SCL_DA *scl_da = NULL; /* assume failure */ + + /* All higher level linked lists must be initialized. */ + if (scl_info->doTypeHead) + { + scl_da = (SCL_DA *) chk_calloc (1, sizeof (SCL_DA)); + /* CRITICAL: DA and SDO use same struct, "objtype" tells which one it is.*/ + scl_da->objtype = SCL_OBJTYPE_DA; + /* Add DA to front of DA List in first entry of DOType list */ + list_add_first (&scl_info->doTypeHead->daHead, scl_da); + } + else + SXLOG_ERR0 ("Cannot add DA to NULL DO"); + return (scl_da); + } + +/************************************************************************/ +/* scl_dotype_add_sdo */ +/* Add a (SDO) to a Data Object Type (DOType). */ +/* RETURNS: SD_SUCCESS or error code */ +/************************************************************************/ +SCL_DA *scl_dotype_add_sdo ( + SCL_INFO *scl_info) /* main struct where all SCL info stored*/ + { +SCL_DA *scl_da = NULL; /* assume failure */ + + /* All higher level linked lists must be initialized. */ + if (scl_info->doTypeHead) + { + scl_da = (SCL_DA *) chk_calloc (1, sizeof (SCL_DA)); + /* CRITICAL: DA and SDO use same struct, "objtype" tells which one it is. + * NOTE: Because this is SDO, the sAddr, bType, and valKind members of + * the scl_da structure are NOT used. + */ + scl_da->objtype = SCL_OBJTYPE_SDO; + /* Add DA to front of DA List in first entry of DOType list */ + list_add_first (&scl_info->doTypeHead->daHead, scl_da); + } + else + SXLOG_ERR0 ("Cannot add SDO to NULL DO"); + return (scl_da); + } + +/************************************************************************/ +/* scl_datype_create */ +/* Begin creation of a Data Attribute Type (DAType). */ +/* RETURNS: SD_SUCCESS or error code */ +/************************************************************************/ +SCL_DATYPE *scl_datype_create ( + SCL_INFO *scl_info) /* main struct where all SCL info stored*/ + { +SCL_DATYPE *scl_datype; + + scl_datype = (SCL_DATYPE *) chk_calloc (1, sizeof (SCL_DATYPE)); + /* Add DAType to front of DAType List. */ + list_add_first (&scl_info->daTypeHead, scl_datype); + return (scl_datype); + } +/************************************************************************/ +/* scl_datype_add_bda */ +/* Add a Basic Data Attribute (BDA) to a Data Attribute Type (DAType). */ +/* RETURNS: SD_SUCCESS or error code */ +/************************************************************************/ +SCL_BDA *scl_datype_add_bda ( + SCL_INFO *scl_info) /* main struct where all SCL info stored*/ + { +SCL_BDA *scl_bda = NULL; /* assume failure */ + + /* All higher level linked lists must be initialized. */ + if (scl_info->daTypeHead) + { + scl_bda = (SCL_BDA *) chk_calloc (1, sizeof (SCL_BDA)); + /* Add BDA to front of BDA List in first entry of DAType list */ + list_add_first (&scl_info->daTypeHead->bdaHead, scl_bda); + } + else + SXLOG_ERR0 ("Cannot add BDA to NULL DATYPE"); + return (scl_bda); + } + +/************************************************************************/ +/* scl_enumtype_create */ +/* Begin creation of an EnumType. */ +/* RETURNS: SD_SUCCESS or error code */ +/************************************************************************/ +SCL_ENUMTYPE *scl_enumtype_create ( + SCL_INFO *scl_info) /* main struct where all SCL info stored*/ + { +SCL_ENUMTYPE *scl_enumtype; + + scl_enumtype = (SCL_ENUMTYPE *) chk_calloc (1, sizeof (SCL_ENUMTYPE)); + /* Add EnumType to front of EnumType List. */ + list_add_first (&scl_info->enumTypeHead, scl_enumtype); + return (scl_enumtype); + } + + +/************************************************************************/ +/* scl_enumtype_add_enumval */ +/* Add an EnumVal to an EnumType. */ +/* Add to EnumType created by most recent call to scl_enumtype_create. */ +/* RETURNS: SD_SUCCESS or error code */ +/************************************************************************/ +SCL_ENUMVAL *scl_enumtype_add_enumval ( + SCL_INFO *scl_info) /* main struct where all SCL info stored*/ + { +SCL_ENUMVAL *scl_enumval = NULL; /* assume failure */ + + /* All higher level linked lists must be initialized. */ + if (scl_info->enumTypeHead) + { + scl_enumval = (SCL_ENUMVAL *) chk_calloc (1, sizeof (SCL_ENUMVAL)); + /* Add EnumVal to front of EnumVal List in first entry of EnumType list */ + list_add_first (&scl_info->enumTypeHead->enumvalHead, scl_enumval); + } + else + SXLOG_ERR0 ("Cannot add ENUMVAL to NULL ENUMTYPE"); + return (scl_enumval); + } + + +/************************************************************************/ +/* scl_fcda_add */ +/* Allocates a SCL_FCDA struct */ +/* and adds it to the linked list "fcdaHead" in SCL_DATASET. */ +/************************************************************************/ +SCL_FCDA *scl_fcda_add ( + SCL_INFO *scl_info) /* main struct where all SCL info stored*/ + { +SCL_FCDA *scl_fcda = NULL; /* assume failure */ + + /* All higher level linked lists must be initialized. */ + if (scl_info->ldHead + && scl_info->ldHead->lnHead + && scl_info->ldHead->lnHead->datasetHead) + { + scl_fcda = (SCL_FCDA *) chk_calloc (1, sizeof (SCL_FCDA)); + /* Add FCDA to front of FCDA List. */ + list_add_first (&scl_info->ldHead->lnHead->datasetHead->fcdaHead, scl_fcda); + } + else + SXLOG_ERR0 ("Cannot add FCDA to NULL DATASET"); + + return (scl_fcda); + } + +/************************************************************************/ +/* scl_dai_add */ +/* Allocates a SCL_DAI struct */ +/* and adds it to the linked list "daiHead" in SCL_LN. */ +/************************************************************************/ +SCL_DAI *scl_dai_add ( + SCL_INFO *scl_info) /* main struct where all SCL info stored*/ + { +SCL_DAI *scl_dai = NULL; /* assume failure */ + + /* All higher level linked lists must be initialized. */ + if (scl_info->ldHead + && scl_info->ldHead->lnHead) + { + scl_dai = (SCL_DAI *) chk_calloc (1, sizeof (SCL_DAI)); + /* Add DAI to front of DAI List. */ + list_add_first (&scl_info->ldHead->lnHead->daiHead, scl_dai); + } + else + SXLOG_ERR0 ("Cannot add DAI to NULL LN"); + return (scl_dai); + } + +/************************************************************************/ +/* scl_dataset_add */ +/* Allocates a SCL_DATASET struct */ +/* and adds it to the linked list "datasetHead" in SCL_LN. */ +/************************************************************************/ +SCL_DATASET *scl_dataset_add ( + SCL_INFO *scl_info) /* main struct where all SCL info stored*/ + /* TRUNCATED if longer than buffer */ + { +SCL_DATASET *scl_dataset = NULL; /* assume failure */ + + /* All higher level linked lists must be initialized. */ + if (scl_info->ldHead + && scl_info->ldHead->lnHead) + { + scl_dataset = (SCL_DATASET *) chk_calloc (1, sizeof (SCL_DATASET)); + /* Add DATASET to front of DATASET List. */ + list_add_first (&scl_info->ldHead->lnHead->datasetHead, scl_dataset); + } + else + SXLOG_ERR0 ("Cannot add DATASET to NULL LN"); + return (scl_dataset); + } + +/************************************************************************/ +/* scl_rcb_add */ +/* Alloc & add SCL_RCB struct to the linked list "rcbHead" in SCL_LN. */ +/* NOTE: struct is not filled in yet. */ +/* NOTE: the RptEnabled element of the SCL file is ignored. SISCO software*/ +/* does not need to know which clients may access the RCB. */ +/************************************************************************/ +SCL_RCB *scl_rcb_add ( + SCL_INFO *scl_info) /* main struct where all SCL info stored*/ + { +SCL_RCB *scl_rcb = NULL; + + /* All higher level linked lists must be initialized. */ + if (scl_info->ldHead + && scl_info->ldHead->lnHead) + { + scl_rcb = (SCL_RCB *) chk_calloc (1, sizeof (SCL_RCB)); + /* Add RCB to front of RCB List. */ + list_add_first (&scl_info->ldHead->lnHead->rcbHead, scl_rcb); + } + else + SXLOG_ERR0 ("Cannot add RCB to NULL LN"); + return (scl_rcb); + } + +/************************************************************************/ +/* scl_lcb_add */ +/* Alloc & add a SCL_LCB struct to the linked list "lcbHead" in SCL_LN. */ +/* NOTE: struct is not filled in yet. */ +/************************************************************************/ +SCL_LCB *scl_lcb_add ( + SCL_INFO *scl_info) /* main struct where all SCL info stored*/ + { +SCL_LCB *scl_lcb = NULL; + + /* All higher level linked lists must be initialized. */ + if (scl_info->ldHead + && scl_info->ldHead->lnHead) + { + scl_lcb = (SCL_LCB *) chk_calloc (1, sizeof (SCL_LCB)); + /* Add LCB to front of LCB List. */ + list_add_first (&scl_info->ldHead->lnHead->lcbHead, scl_lcb); + } + else + SXLOG_ERR0 ("Cannot add LCB to NULL LN"); + return (scl_lcb); + } + +/************************************************************************/ +/* scl_gcb_add */ +/* Add a GOOSE Control Block (GCB). */ +/* Allocates a SCL_GCB struct */ +/* and adds it to the linked list "gcbHead" in SCL_LN. */ +/* NOTE: The SCL file may also contain one or more "IEDName" elements to*/ +/* indicate IEDs that should subscribe for GOOSE data. We have no */ +/* way to use this information, so it is ignored. */ +/************************************************************************/ +SCL_GCB *scl_gcb_add ( + SCL_INFO *scl_info) /* main struct where all SCL info stored*/ + { +SCL_GCB *scl_gcb = NULL; /* assume failure */ + + /* All higher level linked lists must be initialized. */ + if (scl_info->ldHead + && scl_info->ldHead->lnHead) + { + scl_gcb = (SCL_GCB *) chk_calloc (1, sizeof (SCL_GCB)); + /* Add GCB to front of GCB List. */ + list_add_first (&scl_info->ldHead->lnHead->gcbHead, scl_gcb); + } + else + SXLOG_ERR0 ("Cannot add GCB (GOOSE Control Block) to NULL LN"); + return (scl_gcb); + } + +/************************************************************************/ +/* scl_sgcb_add */ +/* Add a Setting Group Control Block (SGCB). */ +/* Allocates a SCL_SGCB struct, stores ptr in "sgcb" in SCL_LN. */ +/************************************************************************/ +SCL_SGCB *scl_sgcb_add ( + SCL_INFO *scl_info) /* main struct where all SCL info stored*/ + { +SCL_SGCB *scl_sgcb = NULL; /* assume failure */ + + /* All higher level linked lists must be initialized. */ + if (scl_info->ldHead + && scl_info->ldHead->lnHead) + { + /* Only one SGCB allowed. Make sure not already set. */ + if (scl_info->ldHead->lnHead->sgcb != NULL) + { + SXLOG_ERR0 ("Duplicate SGCB (Setting Group Control Block) not allowed"); + return (NULL); + } + else + scl_info->ldHead->lnHead->sgcb = scl_sgcb = (SCL_SGCB *) chk_calloc (1, sizeof (SCL_SGCB)); + } + else + SXLOG_ERR0 ("Cannot add SGCB (Setting Group Control Block) to NULL LN"); + return (scl_sgcb); + } + +/************************************************************************/ +/* scl_svcb_add */ +/* Alloc & add SCL_SVCB struct to the linked list "svcbHead" in SCL_LN. */ +/* NOTE: struct is not filled in yet. */ +/************************************************************************/ +SCL_SVCB *scl_svcb_add ( + SCL_INFO *scl_info) /* main struct where all SCL info stored*/ + { +SCL_SVCB *scl_svcb = NULL; /* assume failure */ + + /* All higher level linked lists must be initialized. */ + if (scl_info->ldHead + && scl_info->ldHead->lnHead) + { + scl_svcb = (SCL_SVCB *) chk_calloc (1, sizeof(SCL_SVCB)); + /* Add to front of list. */ + list_add_first (&scl_info->ldHead->lnHead->svcbHead, scl_svcb); + } + else + SXLOG_ERR0 ("Cannot add SVCB to NULL LN"); + return (scl_svcb); + } + +/************************************************************************/ +/* scl_ln_add */ +/* Allocates a SCL_LN struct */ +/* and adds it to the linked list "lnHead" in SCL_LD. */ +/************************************************************************/ +SCL_LN *scl_ln_add ( + SCL_INFO *scl_info) /* main struct where all SCL info stored*/ + { +SCL_LN *scl_ln = NULL; /* assume failure */ + + /* All higher level linked lists must be initialized. */ + if (scl_info->ldHead) + { + scl_ln = (SCL_LN *) chk_calloc (1, sizeof (SCL_LN)); + /* Add LN to front of LN List. */ + list_add_first (&scl_info->ldHead->lnHead, scl_ln); + } + else + SXLOG_ERR0 ("Cannot add LN to NULL LD"); + return (scl_ln); + } + +/************************************************************************/ +/* scl_ld_create */ +/* Allocates SCL_LD struct */ +/* and adds it to the linked list "ldHead" in SCL_INFO. */ +/************************************************************************/ +SCL_LD *scl_ld_create ( + SCL_INFO *scl_info) /* main struct where all SCL info stored*/ + { +SCL_LD *scl_ld = NULL; /* assume failure */ + + scl_ld = (SCL_LD *) chk_calloc (1, sizeof (SCL_LD)); + /* Add LD to front of LD List. */ + list_add_first (&scl_info->ldHead, scl_ld); + + return (scl_ld); + } + +/************************************************************************/ +/* scl_subnet_add */ +/* Allocates SCL_SUBNET struct */ +/* and adds it to the linked list "subnetHead" in SCL_INFO. */ +/************************************************************************/ +SCL_SUBNET *scl_subnet_add ( + SCL_INFO *scl_info) /* main struct where all SCL info stored*/ + { +SCL_SUBNET *scl_subnet = NULL; /* assume failure */ + + scl_subnet = (SCL_SUBNET *) chk_calloc (1, sizeof (SCL_SUBNET)); + /* Add to front of list. */ + list_add_first (&scl_info->subnetHead, scl_subnet); + + return (scl_subnet); + } + +/************************************************************************/ +/* scl_cap_add */ +/* Allocates a SCL_CAP struct */ +/* and adds it to the linked list "capHead" in SCL_SUBNET. */ +/************************************************************************/ +SCL_CAP *scl_cap_add ( + SCL_INFO *scl_info) /* main struct where all SCL info stored*/ + { +SCL_CAP *scl_cap = NULL; /* assume failure */ + + /* All higher level linked lists must be initialized. */ + if (scl_info->subnetHead) + { + scl_cap = (SCL_CAP *) chk_calloc (1, sizeof (SCL_CAP)); + /* Add to front of list. */ + list_add_first (&scl_info->subnetHead->capHead, scl_cap); + } + else + SXLOG_ERR0 ("Cannot add CAP to NULL SUBNET"); + return (scl_cap); + } + +/************************************************************************/ +/* scl_gse_add */ +/* Allocates a SCL_GSE struct */ +/* and adds it to the linked list "gseHead" in SCL_CAP. */ +/************************************************************************/ +SCL_GSE *scl_gse_add ( + SCL_INFO *scl_info) /* main struct where all SCL info stored*/ + { +SCL_GSE *scl_gse = NULL; /* assume failure */ + + /* All higher level linked lists must be initialized. */ + if (scl_info->subnetHead->capHead) + { + scl_gse = (SCL_GSE *) chk_calloc (1, sizeof (SCL_GSE)); + /* Add to front of list. */ + list_add_first (&scl_info->subnetHead->capHead->gseHead, scl_gse); + } + else + SXLOG_ERR0 ("Cannot add GSE to NULL CAP"); + return (scl_gse); + } + +/************************************************************************/ +/* scl_smv_add */ +/* Allocates a SCL_SMV struct */ +/* and adds it to the linked list "smvHead" in SCL_CAP. */ +/************************************************************************/ +SCL_SMV *scl_smv_add ( + SCL_INFO *scl_info) /* main struct where all SCL info stored*/ + { +SCL_SMV *scl_smv = NULL; /* assume failure */ + + /* All higher level linked lists must be initialized. */ + if (scl_info->subnetHead->capHead) + { + scl_smv = (SCL_SMV *) chk_calloc (1, sizeof (SCL_SMV)); + /* Add to front of list. */ + list_add_first (&scl_info->subnetHead->capHead->smvHead, scl_smv); + } + else + SXLOG_ERR0 ("Cannot add SMV to NULL CAP"); + return (scl_smv); + } + +/************************************************************************/ +/* scl_info_destroy */ +/* Destroy all info stored in the SCL_INFO structure by "scl_parse". */ +/* NOTE: most buffers were allocated by functions in this module. The */ +/* elements "Val" and "desc" in several structures were allocated */ +/* by functions in "sclparse.c". */ +/************************************************************************/ +ST_VOID scl_info_destroy (SCL_INFO *scl_info) + { +SCL_LNTYPE *lnType; +SCL_DO *scl_do; +SCL_LD *scl_ld; +SCL_LN *scl_ln; +SCL_RCB *scl_rcb; +SCL_LCB *scl_lcb; +SCL_GCB *scl_gcb; +SCL_SVCB *scl_svcb; +SCL_DAI *scl_dai; +SCL_DATASET *scl_dataset; +SCL_FCDA *scl_fcda; +SCL_DATYPE * scl_daType; +SCL_BDA *scl_bda; +SCL_ENUMTYPE *scl_enum; +SCL_ENUMVAL *scl_enumval; +SCL_DOTYPE *scl_doType; +SCL_DA *scl_da; +SCL_SUBNET *scl_subnet; +SCL_CAP *scl_cap; +SCL_GSE *scl_gse; +SCL_SMV *scl_smv; + + while ((scl_subnet = (SCL_SUBNET *) list_get_first(&scl_info->subnetHead)) != NULL) + { + while ((scl_cap = (SCL_CAP *) list_get_first(&scl_subnet->capHead)) != NULL) + { + while ((scl_gse = (SCL_GSE *) list_get_first(&scl_cap->gseHead)) != NULL) + { + chk_free(scl_gse); + } + while ((scl_smv = (SCL_SMV *) list_get_first(&scl_cap->smvHead)) != NULL) + { + chk_free(scl_smv); + } + if (scl_cap->desc) + chk_free (scl_cap->desc); + chk_free (scl_cap); + } + if (scl_subnet->desc) + chk_free (scl_subnet->desc); + chk_free (scl_subnet); + } + + while ((scl_daType = (SCL_DATYPE *) list_get_first (&scl_info->daTypeHead)) != NULL) + { + while ((scl_bda = (SCL_BDA *) list_get_first (&scl_daType->bdaHead)) != NULL) + { + if (scl_bda->desc) + chk_free (scl_bda->desc); + if (scl_bda->Val) + chk_free (scl_bda->Val); + chk_free (scl_bda); + } + chk_free (scl_daType); + } + + while ((lnType = (SCL_LNTYPE *) list_get_first (&scl_info->lnTypeHead)) != NULL) + { + while ((scl_do = (SCL_DO *) list_get_first (&lnType->doHead)) != NULL) + { + chk_free (scl_do); + } + chk_free (lnType); + } + while ((scl_doType = (SCL_DOTYPE *) list_get_first (&scl_info->doTypeHead)) != NULL) + { + while ((scl_da = (SCL_DA *) list_get_first (&scl_doType->daHead)) != NULL) + { + if (scl_da->desc) + chk_free (scl_da->desc); + if (scl_da->Val) + chk_free (scl_da->Val); + chk_free (scl_da); + } + chk_free (scl_doType); + } + while ((scl_enum = (SCL_ENUMTYPE *) list_get_first (&scl_info->enumTypeHead)) != NULL) + { + while ((scl_enumval = (SCL_ENUMVAL *) list_get_first (&scl_enum->enumvalHead)) != NULL) + { + chk_free (scl_enumval); + } + chk_free (scl_enum); + } + while ((scl_ld = (SCL_LD *) list_get_first (&scl_info->ldHead)) != NULL) + { + while ((scl_ln = (SCL_LN *) list_get_first (&scl_ld->lnHead)) != NULL) + { + while ((scl_dai = (SCL_DAI *) list_get_first (&scl_ln->daiHead)) != NULL) + { + if (scl_dai->Val) + chk_free (scl_dai->Val); + chk_free (scl_dai); + } + + while ((scl_dataset = (SCL_DATASET *) list_get_first (&scl_ln->datasetHead)) != NULL) + { + while ((scl_fcda = (SCL_FCDA *) list_get_first (&scl_dataset->fcdaHead)) != NULL) + { + chk_free (scl_fcda); + } + if (scl_dataset->desc) + chk_free (scl_dataset->desc); + chk_free (scl_dataset); + } + + while ((scl_rcb = (SCL_RCB *) list_get_first (&scl_ln->rcbHead)) != NULL) + { + if (scl_rcb->desc) + chk_free (scl_rcb->desc); + chk_free (scl_rcb); + } + + while ((scl_lcb = (SCL_LCB *) list_get_first (&scl_ln->lcbHead)) != NULL) + { + if (scl_lcb->desc) + chk_free (scl_lcb->desc); + chk_free (scl_lcb); + } + + while ((scl_gcb = (SCL_GCB *) list_get_first (&scl_ln->gcbHead)) != NULL) + { + if (scl_gcb->desc) + chk_free (scl_gcb->desc); + chk_free (scl_gcb); + } + while ((scl_svcb = (SCL_SVCB *) list_get_first (&scl_ln->svcbHead)) != NULL) + { + if (scl_svcb->desc) + chk_free (scl_svcb->desc); + chk_free (scl_svcb); + } + /* Only one SGCB allowed (no linked list) */ + if (scl_ln->sgcb) + { + if (scl_ln->sgcb->desc) + chk_free (scl_ln->sgcb->desc); + chk_free (scl_ln->sgcb); + } + if (scl_ln->desc) + chk_free (scl_ln->desc); + chk_free (scl_ln); + } + if (scl_ld->desc) + chk_free (scl_ld->desc); + chk_free (scl_ld); + } + } + + diff --git a/mmslib/util/stdtime.c b/mmslib/util/stdtime.c new file mode 100644 index 0000000..91c1022 --- /dev/null +++ b/mmslib/util/stdtime.c @@ -0,0 +1,3815 @@ +/*+***************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER **********************************************/ +/* ***************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2005 All Rights Reserved */ +/* */ +/* MODULE NAME : stdtime.c */ +/* PRODUCT(S) : Standard Time Management Library */ +/* */ +/* MODULE DESCRIPTION: */ +/* Implementation of Standard Time Management Library Functions */ +/* */ +/* Note: Most functions a produce a return-code value STDTIME_RC. */ +/* The return code is zero if successful, otherwise it is a structured */ +/* value in which the low-order 10 bits enumerates an error reason, */ +/* and the upper 20 bits enumerates the high-level and low-level */ +/* functions where the error was detected. */ +/* */ +/* MODIFICATION LOG: */ +/* Date Who Rev Comments */ +/* -------- --- --- ----------------------------------------------------- */ +/* 02/20/08 JRB 14 Make STDTIME same as FILETIME (simplifies a lot). */ +/* Delete MANY unused functions. */ +/* Simplified TimeTypeEx & StructTmEx functions. */ +/* Del rounding code and PVT_STDTIME_ROUND macro. */ +/* Rewrote "Date" functions (simpler)(only for WIN32). */ +/* Del all STDTIME_LOCAL_USES_TZDB code. */ +/* Rewrote StdTimeToStdTimeStringA (much simpler). */ +/* Several functions ONLY for _WIN32 now. */ +/* 04/03/07 RLH 13 Improve performance of local vs. GMT conversions */ +/* 03/18/07 RLH 12 Correct bug in new normalization code. */ +/* 03/16/07 RLH 11 Normalize struct tm, SYSTEMTIME, and STDTIME_FIELDS */ +/* after rounding is applied; no rounding for formatting */ +/* functions. */ +/* 02/16/07 RLH 10 Clean up minor warnings under Linux */ +/* 01/11/07 RLH 09 Perform generalized rounding when creating outside */ +/* data types and extra (Ex) fields are not written. */ +/* This supersedes the Rev 08 changes. */ +/* Also, add TruncStdTimeString functions. */ +/* 01/10/07 RLH 08 Perform rounding at msec level when creating HpDate */ +/* 11/22/06 RLH 07 Ensure DelimitStdTimeString does not pad a trimmed */ +/* string value with trailing blanks. */ +/* 11/21/06 RLH 06 Remove unused variable to silence a warning msg */ +/* 10/27/06 RLH 05 Correct rounding in Rc_ArgDateExToStdTime */ +/* 10/18/06 RLH 04 Enhanced capabilities for timezone rules */ +/* 09/13/06 RLH 03 Ensure local time conversions work when TZ not set */ +/* 06/07/06 RLH 02 Numerous features added, see stdtime.doc */ +/* 01/18/06 RLH 01 Created */ +/*+***************************************************************************/ + +/* define list of error-code descriptions */ +/* this is done by temporary macro and include file */ + +#define STDTIME_ENUM_ERR(x) #x , + +static char * enum_stdtime_err_text[] = + { + "", /* dummy 0 entry */ +#include "stdtime_enum_err.h" + "" + }; + +/* temporary macro has served its purpose, so undefine it */ +#undef STDTIME_ENUM_ERR + + +/* create function name table from enum_stdtime_func.h */ +/* this is done by temporary macro and include file */ + +#define STDTIME_ENUM_FUNC(x) #x , + +static char * enum_stdtime_func_text[] = + { + "", /* dummy 0 entry */ +#include "stdtime_enum_func.h" + "" + }; + +/* temporary macro has served its purpose, so undefine it */ +#undef STDTIME_ENUM_FUNC + + +#include "stdtime.h" +#include "time_str.h" +#include +#include + +/*** private (helper) macros and static areas ********************************/ + +#define STDTIME_IF(x) ((rc=(x)) == STDTIME_OK) +#define STDTIME_IFNOT(x) ((rc=(x)) != STDTIME_OK) + +#define STDTIME_IN_RANGE(x,lo,hi) (((x) >= (lo)) && ((x) <= (hi))) + +#define PVT_STDTIME_FORMAT_BUFSIZE 256 +#define PVT_STDTIME_FORMAT_DEFAULT "%a %b %d %H:%M:%S %Y" + +/* standard delimiters for ISO 8601-formatted time strings */ +/* allow for user to redefine the standard delimiter string */ +/* this change must be done carefully */ + +#ifndef STDTIME_ISO_DLM_STR +#define STDTIME_ISO_DLM_STR "-T:." +#endif + +#if defined(_WIN32) + static char Pvt_StdTime_UserDelimString[5] = STDTIME_ISO_DLM_STR; +#endif + +#define PVT_STDTIME_ISO_DLM_DATE (STDTIME_ISO_DLM_STR[0]) +#define PVT_STDTIME_ISO_DLM_SEP (STDTIME_ISO_DLM_STR[1]) +#define PVT_STDTIME_ISO_DLM_TIME (STDTIME_ISO_DLM_STR[2]) +#define PVT_STDTIME_ISO_DLM_FRAC (STDTIME_ISO_DLM_STR[3]) + +#define PVT_STDTIME_USR_DLM_DATE (Pvt_StdTime_UserDelimString[0]) +#define PVT_STDTIME_USR_DLM_SEP (Pvt_StdTime_UserDelimString[1]) +#define PVT_STDTIME_USR_DLM_TIME (Pvt_StdTime_UserDelimString[2]) +#define PVT_STDTIME_USR_DLM_FRAC (Pvt_StdTime_UserDelimString[3]) + +#define PVT_STDTIME_SCALE_FILETIME 10000000 + +/* value of 11644473600000000 in hex, split into high/low 32-bit values */ +#define PVT_STDTIME_U32_TIMET_BASE_HI 0x019DB1DE +#define PVT_STDTIME_U32_TIMET_BASE_LO 0xD53E8000 + +/* value of 2650467743999999999 in hex, split into high/low 32-bit values */ +#define PVT_STDTIME_MAX_FILETIME_HI 0x24C85A5E +#define PVT_STDTIME_MAX_FILETIME_LO 0xD1C03FFF + +/* value of 864000000000 in hex, split into high/low 32-bit values */ +#define PVT_STDTIME_100NS_PERDAY_HI 0x000000C9 +#define PVT_STDTIME_100NS_PERDAY_LO 0x2A69C000 + + +/* form value of 1899-12-30 00:00:00.0000000 as a FILETIME equivalent */ +/* value of 94353120000000000 in hex, split into high/low 32-bit values */ +#define PVT_STDTIME_U32_COMDATE_BASE_HI 0x014F35A9 +#define PVT_STDTIME_U32_COMDATE_BASE_LO 0xA90CC000 + + +#define PVT_STDTIME_COMPARE(x) \ + if (pOne->x < pTwo->x) return STDTIME_LT; \ + if (pOne->x > pTwo->x) return STDTIME_GT /**/ + + +#define PVT_STDTIME_EXPORT_TZOA(x) \ + { \ + if ((x)->embTzo[0] != 0) \ + { \ + strncpy ((x)->extTzo.str, (x)->embTzo, STDTIME_TZO_LEN); \ + (x)->extTzo.str[STDTIME_TZO_LEN] = 0; \ + (x)->embTzo[0] = 0; \ + } \ + } /**/ + +#define PVT_STDTIME_IMPORT_TZOA(x) \ + { \ + if ((x)->extTzo.str[0] != 0) \ + { \ + strncpy ((x)->embTzo, (x)->extTzo.str, STDTIME_TZO_LEN); \ + (x)->embTzo[STDTIME_TZO_LEN] = 0; \ + (x)->extTzo.str[0] = 0; \ + } \ + } /**/ + + +/*** private (helper) functions **********************************************/ + + +/* NOTE: function names beginning with Rc_, Int_, Char_, Wchar_ and Bool_ */ +/* are private functions; the prefix identifies the return type. */ + + +/*-***************************************************************************/ +/* StdTimeRet */ +/* assemble a STDTIME return code */ +/* when basic error code is 0, always return 0 */ +/* (used to be static, but was needed in multiple modules) */ +/*****************************************************************************/ + + +STDTIME_RC StdTimeRet ( + const STDTIME_RC /*I*/ func, + const STDTIME_RC /*I*/ ec) + { + if (ec == 0) return 0; + return ((func & STDTIME_10_BITS) << 20) | (ec & STDTIME_20_BITS); + } + +/*-***************************************************************************/ +/* Bool_StdTime_IsBlankA - PRIVATE FUNCTION */ +/* Return STDTIME_TRUE if string is nul or whitespace only */ +/*****************************************************************************/ + +static STDTIME_BOOL Bool_StdTime_IsBlankA ( + const char * /*I*/ str) + { + if (str == NULL) + { + return STDTIME_FALSE; + } + + for (; *str; str++) + { + if (*str == 0) + { + break; + } + + if (*str > (char) ' ') + { + return STDTIME_FALSE; + } + } + + return STDTIME_TRUE; + + } /* Bool_StdTime_IsBlankA */ + + +#if 0 /* OBSOLETE: delete next release */ +/*-***************************************************************************/ +/* Rc_NormalizeStdTimeFields */ +/* ensure a STDTIME_FIELDS value is normalized, adjusting fields as needed. */ +/*****************************************************************************/ + + +#define PVT_STDTIME_NORMALIZE_FIELD(curr,num,next) \ + while ((curr) < 0) \ + { \ + (curr) += num; \ + (next)--; \ + } \ + if ((curr) >= num) \ + { \ + (next) += (curr) / num; \ + (curr) = (curr) % num; \ + } + + +STDTIME_RC Rc_NormalizeStdTimeFields ( + STDTIME_FIELDS * pFields) + { + STDTIME_DELTA delta = {0}; + int32_t new_day = 0; + int32_t max_day; + + STDTIME_ENUM_FUNC (Rc_NormalizeStdTimeFields) + + if (pFields == NULL) + { + STDTIME_RET_EC (null_argument); + } + + PVT_STDTIME_NORMALIZE_FIELD (pFields->nsec, 1000, pFields->usec) + PVT_STDTIME_NORMALIZE_FIELD (pFields->usec, 1000, pFields->msec) + PVT_STDTIME_NORMALIZE_FIELD (pFields->msec, 1000, pFields->sec ) + PVT_STDTIME_NORMALIZE_FIELD (pFields->sec, 60, pFields->min ) + PVT_STDTIME_NORMALIZE_FIELD (pFields->min, 60, pFields->hour) + PVT_STDTIME_NORMALIZE_FIELD (pFields->hour, 24, delta.day) + + if (delta.day == 0) + { + /* did not change the day, so no calendar normalization needed */ + STDTIME_RET_OK; + } + + /* easy normalization: just day, within current month */ + + max_day = StdTimeDaysInYearMon (pFields->year, pFields->mon); + new_day = pFields->day + delta.day; + + if ((new_day >= 1) + && (new_day <= max_day) + && (pFields->mon >= 1) + && (pFields->mon <= 12)) + { + /* month was good, and day did not overflow the month */ + pFields->day = new_day; + STDTIME_RET_OK; + } + + /* hard normalization: do full AddDelta processing */ + + STDTIME_RET (StdTimeFields_AddDelta (pFields, &delta)); + + } /* Rc_NormalizeStdTimeFields */ + +#undef PVT_STDTIME_NORMALIZE_FIELD + +/*-***************************************************************************/ +/* Rc_StdTime_NormalizeSystemTimeEx */ +/* ensure a SYSTEMTIME value is normalized, adjusting fields as needed. */ +/* method: convert to STDTIME_FIELDS, normalize that, and convert back. */ +/*****************************************************************************/ + +STDTIME_RC Rc_StdTime_NormalizeSystemTimeEx ( + STDTIME_WIN_SYSTEMTIME * /*IO*/ pSystemTime, + int32_t * /*IO*/ pUsec, + int32_t * /*IO*/ pNsec) + { + STDTIME_FIELDS fields = {0}; + STDTIME_ENUM_FUNC (Rc_StdTime_NormalizeSystemTimeEx) + + if (pSystemTime == NULL) + { + STDTIME_RET_EC (null_argument); + } + + fields.year = (int32_t) pSystemTime->wYear; + fields.mon = (int32_t) pSystemTime->wMonth; + fields.day = (int32_t) pSystemTime->wDay; + + fields.hour = (int32_t) pSystemTime->wHour; + fields.min = (int32_t) pSystemTime->wMinute; + fields.sec = (int32_t) pSystemTime->wSecond; + + fields.msec = (int32_t) pSystemTime->wMilliseconds; + + if (pUsec != NULL) + { + fields.usec = *pUsec; + } + + if (pNsec != NULL) + { + fields.nsec = *pNsec; + } + + rc = Rc_NormalizeStdTimeFields (&fields); + + pSystemTime->wYear = (STDTIME_WIN_WORD) fields.year; + pSystemTime->wMonth = (STDTIME_WIN_WORD) fields.mon ; + pSystemTime->wDay = (STDTIME_WIN_WORD) fields.day ; + + pSystemTime->wHour = (STDTIME_WIN_WORD) fields.hour; + pSystemTime->wMinute = (STDTIME_WIN_WORD) fields.min ; + pSystemTime->wSecond = (STDTIME_WIN_WORD) fields.sec ; + + pSystemTime->wMilliseconds = (STDTIME_WIN_WORD) fields.msec; + + if (pUsec != NULL) + { + *pUsec = fields.usec; + } + + if (pNsec != NULL) + { + *pNsec = fields.nsec; + } + + return rc; + + } /* Rc_StdTime_NormalizeSystemTimeEx */ + + +/*-***************************************************************************/ +/* Rc_StdTime_NormalizeStructTmEx */ +/* ensure a struct tm value is normalized, adjusting fields as needed. */ +/* method: convert to STDTIME_FIELDS, normalize that, and convert back. */ +/*****************************************************************************/ + +STDTIME_RC Rc_StdTime_NormalizeStructTmEx ( + struct tm * /*IO*/ pStructTm, + int32_t * /*IO*/ pMsec, + int32_t * /*IO*/ pUsec, + int32_t * /*IO*/ pNsec) + { + STDTIME_FIELDS fields = {0}; + + STDTIME_ENUM_FUNC (Rc_StdTime_NormalizeStructTmEx) + + if (pStructTm == NULL) + { + STDTIME_RET_EC (null_argument); + } + + + fields.year = (int32_t) pStructTm->tm_year + 1900; + fields.mon = (int32_t) pStructTm->tm_mon + 1; + fields.day = (int32_t) pStructTm->tm_mday; + + fields.hour = (int32_t) pStructTm->tm_hour; + fields.min = (int32_t) pStructTm->tm_min; + fields.sec = (int32_t) pStructTm->tm_sec; + + if (pMsec != NULL) + { + fields.msec = *pMsec; + } + + if (pUsec != NULL) + { + fields.usec = *pUsec; + } + + if (pNsec != NULL) + { + fields.nsec = *pNsec; + } + + rc = Rc_NormalizeStdTimeFields (&fields); + + pStructTm->tm_year = (int) fields.year - 1900; + pStructTm->tm_mon = (int) fields.mon - 1; + pStructTm->tm_mday = (int) fields.day; + + pStructTm->tm_hour = (int) fields.hour; + pStructTm->tm_min = (int) fields.min; + pStructTm->tm_sec = (int) fields.sec; + + if (pMsec != NULL) + { + *pMsec = fields.msec; + } + + if (pUsec != NULL) + { + *pUsec = fields.usec; + } + + if (pNsec != NULL) + { + *pNsec = fields.nsec; + } + + return rc; + + } /* Rc_StdTime_NormalizeStructTmEx */ +#endif /* OBSOLETE: delete next release */ + +/*-***************************************************************************/ +/* Rc_StdTime_FileTimeToSystemTimeEx - PRIVATE FUNCTION */ +/* convert FILETIME to SYSTEMTIME, extracting and storing fractional */ +/* seconds not available in a SYSTEMTIME structure, if pointers provided. */ +/*****************************************************************************/ + +static STDTIME_RC Rc_StdTime_FileTimeToSystemTimeEx ( + const STDTIME_WIN_FILETIME * /*I*/ pFileTime, + STDTIME_WIN_SYSTEMTIME * /*O*/ pSystemTime, + int32_t * /*O*/ pUsec, + int32_t * /*O*/ pNsec) + { + /* helper function to convert FILETIME to SYSTEMTIME and capture */ + /* fractional milliseconds */ + + QUADLIB_I64 qFileTime; + QUADLIB_I64 work; + int32_t frac; + int32_t msec; + int32_t usec; + int32_t nsec; + + STDTIME_ENUM_FUNC (Rc_StdTime_FileTimeToSystemTimeEx) + + if (pSystemTime == NULL) + { + STDTIME_RET_EC (null_argument); + } + + *pSystemTime = StdTimeApiZeroSystemTime(); + + if (pFileTime == NULL) + { + STDTIME_RET_EC (null_argument); + } + + /* extract fractional seconds (units of 100 nanoseconds) */ + + QUADLIB_U64_HI(qFileTime) = pFileTime->dwHighDateTime; + QUADLIB_U64_LO(qFileTime) = pFileTime->dwLowDateTime; + + work = QUADLIB_U64_MOD ( + qFileTime, QUADLIB_U64_CASTU32 (PVT_STDTIME_SCALE_FILETIME)); + + frac = QUADLIB_U64_LO(work); + + if (! STDTIME_API_FILETIMETOSYSTEMTIME (pFileTime, pSystemTime)) + { + STDTIME_RET_EC (failure_in_api_FileTimeToSystemTime); + } + + /* extract 1 digit of nanoseconds, but make it a 3-digit value */ + + nsec = (frac % STDTIME_PREC_NSEC) * STDTIME_SCALE_NSEC; + frac /= STDTIME_PREC_NSEC; + usec = frac % 1000; + frac /= 1000; + msec = (frac % 1000); + + /* If pointers not NULL, copy values there. */ + if (pNsec) + *pNsec = nsec; + if (pUsec) + *pUsec = usec; + + pSystemTime->wMilliseconds = (STDTIME_WIN_WORD) msec; + +#if 0 /* OBSOLETE: delete next release */ + STDTIME_RET (Rc_StdTime_NormalizeSystemTimeEx (pSystemTime, pNsec, pUsec)); +#endif + STDTIME_RET_OK; + } /* Rc_StdTime_FileTimeToSystemTimeEx */ + + +/*-***************************************************************************/ +/* Rc_StdTime_SystemTimeExToFileTime - PRIVATE FUNCTION */ +/* convert SYSTEMTIME to FILETIME, incorporating additional parameters */ +/* to account for fractional seconds not available in a SYSTEMTIME. */ +/*****************************************************************************/ + +static STDTIME_RC Rc_StdTime_SystemTimeExToFileTime ( + const STDTIME_WIN_SYSTEMTIME * /*I*/ pSystemTime, + int32_t /*I*/ nUsec, + int32_t /*I*/ nNsec, + STDTIME_WIN_FILETIME * /*O*/ pFileTime) + { + STDTIME_ENUM_FUNC (Rc_StdTime_SystemTimeExToFileTime) + + /* helper function to convert SYSTEMTIME to FILETIME and add in */ + /* fractional milliseconds */ + + if (pFileTime == NULL) + { + STDTIME_RET_EC (null_argument); + } + + *pFileTime = StdTimeApiZeroFileTime(); + + if (pSystemTime == NULL) + { + STDTIME_RET_EC (null_argument); + } + + if (! STDTIME_API_SYSTEMTIMETOFILETIME (pSystemTime, pFileTime)) + { + STDTIME_RET_EC (failure_in_api_SystemTimeToFileTime); + } + + if ((nUsec != 0) || (nNsec != 0)) + { + /* add in fractional seconds */ + STDTIME_DELTA delta = {0}; + STDTIME_SPAN span; + QUADLIB_I64 qFileTime; + + FILETIME_TO_QUADLIB_I64 (pFileTime, &qFileTime); + delta.usec = nUsec; + delta.nsec = nNsec; + StdTimeDeltaToStdTimeSpan (&delta, &span); + QUADLIB_I64_ADD_EQ (qFileTime, span.value); + QUADLIB_I64_TO_FILETIME (&qFileTime, pFileTime); + } + + STDTIME_RET_OK; + + } /* Rc_StdTime_SystemTimeExToFileTime */ + + +#if defined(_WIN32) +/*-***************************************************************************/ +/* Int_StdTime_GetNumField - PRIVATE FUNCTION */ +/* extract a fixed-length decimal string and Return int32_t value or -1 */ +/*****************************************************************************/ + +static int32_t Int_StdTime_GetNumField ( + const char * /*I*/ str, + int32_t /*I*/ len) + { + /* extract a decimal string and Return int32_t value */ + /* an exact number of digits must be present */ + /* string is delimited by length, not by null terminator */ + /* on error, Return -1 */ + + int32_t result = 0; + int32_t i; + int32_t c; + + if ((str == NULL) || (len < 1)) + { + return -1; + } + + for (i=0; i < len; i++) + { + c = str[i]; + + if ((c < '0') || (c > '9')) + { + return -1; + } + + result = (result * 10) + (c - '0'); + } + + return result; + + } /* Int_StdTime_GetNumField */ +#endif /* defined(_WIN32) */ + +/*-***************************************************************************/ +/* StdTimeYearIsLeap */ +/* Return 1 if year is leapyear, else Return 0 */ +/*****************************************************************************/ + +int32_t StdTimeYearIsLeap ( + int32_t /*I*/ year) + { + /* no assertions made about invalid years */ + + if ((year < STDTIME_YEAR_MIN) || (year > STDTIME_YEAR_MAX)) + { + return 0; + } + + if ((year % 4000) == 0) + { + return 0; /* multiples of 4000 are not leap years */ + } + + if ((year % 400) == 0) + { + return 1; /* multiples of 400 are leap years */ + } + + if ((year % 100) == 0) + { + return 0; /* multiples of 100 are not leap years */ + } + + if ((year % 4) == 0) + { + return 1; /* multiples of 4 are leap years */ + } + + return 0; /* all others are not leap years */ + + } /* StdTimeYearIsLeap */ + + +/*-***************************************************************************/ +/* StdTimeDaysInYearMon */ +/* calendar function: get maximum number of days in month for a given year */ +/*****************************************************************************/ + +static int32_t StdTimeDaysPerMonTab [13] = + { 00, + 31, /* JAN */ + 28, /* FEB */ + 31, /* MAR */ + 30, /* APR */ + 31, /* MAY */ + 30, /* JUN */ + 31, /* JUL */ + 31, /* AUG */ + 30, /* SEP */ + 31, /* OCT */ + 30, /* NOV */ + 31 /* DEC */ + }; + +int32_t StdTimeDaysInYearMon ( + int32_t /*I*/ year, + int32_t /*I*/ mon) + { + int32_t leap = 0; + + if ((year < STDTIME_YEAR_MIN) + || (year > STDTIME_YEAR_MAX) + || (mon < 1) + || (mon > 12)) + { + return 0; /* argument error */ + } + + if (mon == 2) + { + leap = StdTimeYearIsLeap (year); + } + + return leap + StdTimeDaysPerMonTab [mon]; + + } /* StdTimeDaysInYearMon */ + + +#if defined(_WIN32) +/*-***************************************************************************/ +/* Rc_StdTime_FileTimeSplit - PRIVATE FUNCTION */ +/* split FILETIME into FILETIME, usec and nsec. */ +/*****************************************************************************/ + +static STDTIME_RC Rc_StdTime_FileTimeSplit ( + STDTIME_WIN_FILETIME * /*IO*/ pFileTime, + int32_t * /*IO*/ pUsec, + int32_t * /*IO*/ pNsec) + { + QUADLIB_I64 qFileTime; + QUADLIB_I64 qFactor; + QUADLIB_I64 qResult; + QUADLIB_I64 qRemainder; + + STDTIME_ENUM_FUNC (Rc_StdTime_FileTimeSplit) + + if ((pFileTime == NULL) || (pUsec == NULL) || (pNsec == NULL)) + { + STDTIME_RET_EC (null_argument); + } + + /* divide 64-bit filetime by 10000 to extract usec,nsec */ + /* then Return these values */ + + FILETIME_TO_QUADLIB_I64 (pFileTime, &qFileTime); + QUADLIB_U64_HI (qFactor) = 0; + QUADLIB_U64_LO (qFactor) = 10000; + + qResult = QuadLibI64DivMod (qFileTime, qFactor, &qRemainder); + qFileTime = QUADLIB_I64_MUL (qResult, qFactor); + QUADLIB_I64_TO_FILETIME (&qFileTime, pFileTime); + + *pUsec = QUADLIB_I64_LO (qRemainder) / 10; + *pNsec = (QUADLIB_I64_LO (qRemainder) % 10) * 100; + + STDTIME_RET_OK; + + } /* Rc_StdTime_FileTimeSplit */ +#endif /* defined(_WIN32) */ + + +/*** StdTime/StdTimeFields conversions ***************************************/ + +#if defined(_WIN32) +/*-***************************************************************************/ +/* StdTimeToStdTimeFields */ +/* convert: StdTime structure to StdTimeFields structure */ +/* method: StdTime -> FILETIME -> SYSTEMTIME -> StdTimeFields */ +/*****************************************************************************/ + +STDTIME_RC StdTimeToStdTimeFields ( + const STDTIME * /*I*/ pStdTime, + STDTIME_FIELDS * /*O*/ pStdTimeFields) + { + STDTIME_WIN_FILETIME ft; + STDTIME_WIN_SYSTEMTIME st; + int32_t usec; + int32_t nsec; + + STDTIME_ENUM_FUNC (StdTimeToStdTimeField) + + if (pStdTimeFields == NULL) + { + STDTIME_RET_EC (null_argument); + } + + *pStdTimeFields = ZeroStdTimeFields (); + + if (pStdTime == NULL) + { + STDTIME_RET_EC (null_argument); + } + + if STDTIME_IF (StdTimeToFileTime (pStdTime, &ft)) + { + if STDTIME_IF (Rc_StdTime_FileTimeSplit (&ft, &usec, &nsec)) + { + if (STDTIME_API_FILETIMETOSYSTEMTIME (&ft, &st)) + { + STDTIME_RET (SystemTimeExToStdTimeFields ( + &st, usec, nsec, pStdTimeFields)); + } + else + { + STDTIME_RET_EC (failure_in_api_FileTimeToSystemTime); + } + } + } + + STDTIME_RET_RC; + + } /* StdTimeToStdTimeFields */ + + +/*-***************************************************************************/ +/* StdTimeFieldsToStdTime */ +/* convert: StdTimeFields structure to StdTime structure */ +/* method: StdTimeFields -> SYSTEMTIME -> FILETIME -> StdTime */ +/*****************************************************************************/ + +STDTIME_RC StdTimeFieldsToStdTime ( + const STDTIME_FIELDS * /*I*/ pStdTimeFields, + STDTIME * /*O*/ pStdTime) + { + STDTIME_WIN_FILETIME ft; + STDTIME_WIN_SYSTEMTIME st; + int32_t usec; + int32_t nsec; + + STDTIME_ENUM_FUNC (StdTimeFieldsToStdTime) + + if (pStdTime == NULL) + { + STDTIME_RET_EC (null_argument); + } + + *pStdTime = ZeroStdTime (); + + if (pStdTimeFields == NULL) + { + STDTIME_RET_EC (null_argument); + } + + if STDTIME_IF (StdTimeFieldsToSystemTimeEx ( + pStdTimeFields, &st, &usec, &nsec)) + { + if STDTIME_IF (Rc_StdTime_SystemTimeExToFileTime (&st, usec, nsec, &ft)) + { + *pStdTime = ft; + } + } + + STDTIME_RET_RC; + + } /* StdTimeFieldsToStdTime */ +#endif /* defined(_WIN32) */ + +/*** StdTime/external conversions ********************************************/ + +/*-***************************************************************************/ +/* StdTimeToStdTimeStringA */ +/* convert: StdTime structure to String formatted like this: */ +/* 2007-11-19T16:59:59.1234567 */ +/*****************************************************************************/ +STDTIME_RC StdTimeToStdTimeStringA ( + const STDTIME * /*I*/ pStdTime, + STDTIME_STRINGA * /*O*/ pStdTimeString) + { + struct tm tms; + int32_t fraction; /* number of 100-nanosecond intervals*/ + char sfraction [10]; + /* DEBUG: would be simpler if arg just changed to (char *) */ + char *string = (char *) pStdTimeString; /* cast arg to (char *) */ + size_t maxsize=28; /* caller buffer must be at least this big */ + int32_t nsec; + + STDTIME_ENUM_FUNC (StdTimeToStdTimeStringA) + + if (string == NULL) + { + STDTIME_RET_EC (null_argument); + } + /* Convert to "struct tm" for strftime. */ + rc = StdTimeToStructTmEx (pStdTime, &tms, &nsec); + if (rc) + return (rc); + + fraction = nsec / 100; /* reduce to 7 digits */ + sprintf (sfraction, ".%07d", fraction); /* include '.' in this string*/ + + /* CRITICAL: leave room to add 8 char suffix (fraction of second) */ + if (strftime (string, maxsize-8, "%Y-%m-%dT%H:%M:%S", &tms) == 0) + { + STDTIME_RET_EC (argument_out_of_range); /* maxsize too small */ + } + strcat (string, sfraction); + assert (strlen (string) < maxsize); + STDTIME_RET_RC; + } + + +/*** external/StdTime conversions ********************************************/ + +#if defined(_WIN32) +/*-***************************************************************************/ +/* StdTimeStringAToStdTime */ +/* convert: StdTimeStringA structure to StdTime structure */ +/*****************************************************************************/ + +STDTIME_RC StdTimeStringAToStdTime ( + const STDTIME_STRINGA * /*I*/ pStdTimeString, + STDTIME * /*O*/ pStdTime) + { + STDTIME_FIELDS f; + + STDTIME_ENUM_FUNC (StdTimeStringAToStdTime) + + if (pStdTime == NULL) + { + STDTIME_RET_EC (null_argument); + } + + *pStdTime = ZeroStdTime (); + + if STDTIME_IF (StdTimeStringAToStdTimeFields (pStdTimeString, &f)) + { + /* StdTimeStringAToStdTimeFields will apply embTzo to form GMT */ + + STDTIME_RET (StdTimeFieldsToStdTime (&f, pStdTime)); + } + + STDTIME_RET_RC; + + } /* StdTimeStringAToStdTime */ + +/*** external/StdTimeFields conversions **************************************/ + +/*-***************************************************************************/ +/* StdTimeStringAToStdTimeFields */ +/* convert: StdTimeStringA structure to StdTimeFields structure */ +/*****************************************************************************/ + +/* string format: yyyy-mm-ddThh:mi:ss.fffffff */ +/* 0123456789012345678901234567 */ + +STDTIME_RC StdTimeStringAToStdTimeFields ( + const STDTIME_STRINGA * /*I*/ pStdTimeString, + STDTIME_FIELDS * /*O*/ pStdTimeFields) + { + /* method: validate delimiters, then extract numeric values */ + /* into a STDTIME_FIELDS structure. if a timezone offset is present */ + /* then validate it, and apply its value to the time fields */ + + STDTIME_STRINGA s; + STDTIME_TZOA tzo; + char c; + + STDTIME_ENUM_FUNC (StdTimeStringAToStdTimeFields) + + if (pStdTimeFields == NULL) + { + STDTIME_RET_EC (null_argument); + } + + *pStdTimeFields = ZeroStdTimeFields (); + + if (pStdTimeString == NULL) + { + STDTIME_RET_EC (null_argument); + } + + s = *pStdTimeString; + + /* check for some reasonable delimiters */ + + c = s.str[STDTIME_STRING_DLM_D1]; /* date delim between yyyy and mm */ + + if ( (c != PVT_STDTIME_ISO_DLM_DATE) /* normally '-' */ + && (c != PVT_STDTIME_USR_DLM_DATE) + && (c != '/') /* common but nonstandard delimiter */ + && (c != ' ') + && (c != 0 ) ) + { + STDTIME_RET_EC (invalid_delimiter); + } + + c = s.str[STDTIME_STRING_DLM_D2]; /* date delim between mo and dd */ + + if ( (c != PVT_STDTIME_ISO_DLM_DATE) /* normally '-' */ + && (c != PVT_STDTIME_USR_DLM_DATE) + && (c != '/') /* common but nonstandard delimiter */ + && (c != ' ') + && (c != 0 ) ) + { + STDTIME_RET_EC (invalid_delimiter); + } + + c = s.str[STDTIME_STRING_DLM_S1]; /* separator between dd and hh */ + + if ( (c != PVT_STDTIME_ISO_DLM_SEP) /* normally 'T' */ + && (c != PVT_STDTIME_USR_DLM_SEP) + && (c != ' ') + && (c != 0 ) ) + { + STDTIME_RET_EC (invalid_delimiter); + } + + c = s.str[STDTIME_STRING_DLM_T1]; /* time delim between hh and mi */ + + if ( (c != PVT_STDTIME_ISO_DLM_TIME) /* normally ':' */ + && (c != PVT_STDTIME_USR_DLM_TIME) + && (c != ' ') + && (c != 0 ) ) + { + STDTIME_RET_EC (invalid_delimiter); + } + + c = s.str[STDTIME_STRING_DLM_T2]; /* time delim between mi and ss */ + + if ( (c != PVT_STDTIME_ISO_DLM_TIME) /* normally ':' */ + && (c != PVT_STDTIME_USR_DLM_TIME) + && (c != ' ') + && (c != 0 ) ) + { + STDTIME_RET_EC (invalid_delimiter); + } + + c = s.str[STDTIME_STRING_DLM_F1]; /* fraction delim between ss and fffffff */ + + if ( (c != PVT_STDTIME_ISO_DLM_FRAC) /* normally '.' */ + && (c != PVT_STDTIME_USR_DLM_FRAC) + && (c != ' ') + && (c != ',') /* iso 8601 also allows comma here */ + && (c != 0 ) ) + { + STDTIME_RET_EC (invalid_delimiter); + } + + /* string may be followed by optional embTzo field */ + /* if so, we need to extract its value and adjust the time accordingly */ + /* it is valid for an embTzo to be empty (null string) */ + + strncpy (tzo.str, s.embTzo, STDTIME_TZO_LEN); + + if STDTIME_IFNOT (NormalizeStdTimeTzoA (&tzo)) /* normalize also validates */ + { + STDTIME_RET_RC; + } + + /* Int_StdTime_GetNumField Returns -1 on error */ + /* this will be detected via ValidStdTimeFields */ + + pStdTimeFields->year = Int_StdTime_GetNumField (s.str+0, 4); + pStdTimeFields->mon = Int_StdTime_GetNumField (s.str+5, 2); + pStdTimeFields->day = Int_StdTime_GetNumField (s.str+8, 2); + pStdTimeFields->hour = Int_StdTime_GetNumField (s.str+11, 2); + pStdTimeFields->min = Int_StdTime_GetNumField (s.str+14, 2); + pStdTimeFields->sec = Int_StdTime_GetNumField (s.str+17, 2); + pStdTimeFields->msec = Int_StdTime_GetNumField (s.str+20, 3); + pStdTimeFields->usec = Int_StdTime_GetNumField (s.str+23, 3); + + pStdTimeFields->nsec = Int_StdTime_GetNumField (s.str+26, 1) + * STDTIME_SCALE_NSEC; + + if STDTIME_IFNOT (ValidStdTimeFields (pStdTimeFields)) + { + STDTIME_RET_RC; + } + + if ((tzo.str[0] == '+') || (tzo.str[0] == '-')) + { + /* a valid, non-null, non-Z timezone offset exists */ + /* extract the timezone offset fields and adjust the stdtime fields */ + /* +hh:mm:ss# */ + /* 0123456789 */ + + STDTIME_DELTA delta = {0}; + + delta.hour = atoi (tzo.str+1); + delta.min = atoi (tzo.str+4); + + if (tzo.str[6] == ':') /* seconds field is present */ + { + delta.sec = atoi (tzo.str+7); + } + + /* an offset like -05:00 means that 5 hours is subtracted from GMT to */ + /* get local time. however, the -05:00 appears next to the local time, */ + /* not the GMT time. so, to get back to GMT, 5 hours would have to be */ + /* added. thus, '-' means "add offset to get GMT", and '+' means */ + /* "subtract offset to get GMT". we could use the normal meaning of */ + /* '+' and '-' and use a SubDelta call, but there is overhead to negate */ + /* the delta. instead, we negate only when '+' is used, and then call */ + /* AddDelta. it's counter-intuitive, but more efficient. */ + + if (tzo.str[0] == '+') /* yes, '+' */ + { + delta.hour = -(delta.hour); + delta.min = -(delta.min); + delta.sec = -(delta.sec); + } + + STDTIME_RET (StdTimeFields_AddDelta (pStdTimeFields, &delta)); + } + + STDTIME_RET_OK; + + } /* StdTimeStringAToStdTimeFields */ +#endif /* defined(_WIN32) */ + +/*** Get (current UTC/GMT time) functions ************************************/ + +/*-***************************************************************************/ +/* GetStdTime */ +/* get current UTC time and store in StdTime structure */ +/* method: get current UTC time as a FILETIME, then convert to StdTime */ +/*****************************************************************************/ + +STDTIME_RC GetStdTime ( + STDTIME * /*O*/ pStdTime) + { + STDTIME_WIN_FILETIME gmtFileTime; + + STDTIME_ENUM_FUNC (GetStdTime) + + if (pStdTime == NULL) + { + STDTIME_RET_EC (null_argument); + } + + STDTIME_API_GETSYSTEMTIMEASFILETIME (&gmtFileTime); + + STDTIME_RET (FileTimeToStdTime (&gmtFileTime, pStdTime)); + + } /* GetStdTime */ + + +/*** validation functions ****************************************************/ + +/*-***************************************************************************/ +/* ValidStdTimeFields */ +/* return STDTIME_OK if StdTimeFields is valid, else STDTIME_FALSE */ +/*****************************************************************************/ + +STDTIME_RC ValidStdTimeFields ( + const STDTIME_FIELDS * /*I*/ pFields) + { + STDTIME_ENUM_FUNC (ValidStdTimeFields) + + if (pFields == NULL) + { + STDTIME_RET_EC (null_argument); + } + + if (! STDTIME_IN_RANGE (pFields->year, STDTIME_YEAR_MIN, STDTIME_YEAR_MAX)) + { + STDTIME_RET_EC (invalid_year); + } + + if (! STDTIME_IN_RANGE (pFields->mon, 1, 12)) + { + STDTIME_RET_EC (invalid_mon); + } + + if (! STDTIME_IN_RANGE (pFields->day, 1, 31)) + { + STDTIME_RET_EC (invalid_day); + } + + if (! STDTIME_IN_RANGE (pFields->hour, 0, 23)) + { + STDTIME_RET_EC (invalid_hour); + } + + if (! STDTIME_IN_RANGE (pFields->min, 0, 59)) + { + STDTIME_RET_EC (invalid_min); + } + + if (! STDTIME_IN_RANGE (pFields->sec, 0, 59)) + { + STDTIME_RET_EC (invalid_sec); + } + + if (! STDTIME_IN_RANGE (pFields->msec, 0, 999)) + { + STDTIME_RET_EC (invalid_msec); + } + + if (! STDTIME_IN_RANGE (pFields->usec, 0, 999)) + { + STDTIME_RET_EC (invalid_usec); + } + + if (! STDTIME_IN_RANGE (pFields->nsec, 0, 999)) + { + STDTIME_RET_EC (invalid_nsec); + } + + /* already checked that day is 0-31, now validate per month */ + + if (pFields->day > + StdTimeDaysInYearMon (pFields->year, pFields->mon)) + { + STDTIME_RET_EC (invalid_mon); + } + + STDTIME_RET_OK; + + } /* ValidStdTimeFields */ + + +/*** AddFraction adjustment function *****************************************/ + +/*-***************************************************************************/ +/* StdTimeFields_AddFraction */ +/* a low-overhead StdTimeFields adjustment without using a delta */ +/* nMsec, nUsec and nNsec must be positive */ +/*****************************************************************************/ + +STDTIME_RC StdTimeFields_AddFraction ( + STDTIME_FIELDS * /*IO*/ pStdTimeFields, + int32_t /*I*/ nMsec, + int32_t /*I*/ nUsec, + int32_t /*I*/ nNsec) + { + STDTIME_FIELDS f; + int32_t maxday; + + STDTIME_ENUM_FUNC (StdTimeFields_AddFraction) + + if (pStdTimeFields == NULL) + { + STDTIME_RET_EC (null_argument); + } + + if ((nMsec < 0) || (nUsec < 0) || (nNsec < 0)) + { + STDTIME_RET_EC (argument_out_of_range); + } + + if STDTIME_IFNOT (ValidStdTimeFields (pStdTimeFields)) + { + STDTIME_RET_RC; + } + + if ((nMsec == 0) && (nUsec == 0) && (nNsec == 0)) + { + STDTIME_RET_OK; /* nothing to do */ + } + + f.nsec = pStdTimeFields->nsec + nNsec; + pStdTimeFields->nsec = ((f.nsec / 100) * 100) % 1000; + + f.usec = pStdTimeFields->usec + (f.nsec / 1000) + nUsec; + pStdTimeFields->usec = (f.usec % 1000); + + f.msec = pStdTimeFields->msec + (f.usec / 1000) + nMsec; + pStdTimeFields->msec = (f.msec % 1000); + + f.sec = pStdTimeFields->sec + (f.msec / 1000); + pStdTimeFields->sec = (f.sec % 60); + + f.min = pStdTimeFields->min + (f.sec / 60); + pStdTimeFields->min = (f.min % 60); + + f.hour = pStdTimeFields->hour + (f.min / 60); + pStdTimeFields->hour = (f.hour % 24); + + f.day = pStdTimeFields->day + (f.hour / 24); + f.mon = pStdTimeFields->mon; + f.year = pStdTimeFields->year; + + /* adjust days using calander logic */ + + for (;;) + { + maxday = StdTimeDaysInYearMon (f.year, f.mon); + + if (f.day <= maxday) /* no (further) calendar adj needed */ + { + pStdTimeFields->mon = f.mon; + pStdTimeFields->year = f.year; + break; /* and return true */ + } + + f.day -= maxday; + f.mon++; + + if (f.mon > 12) + { + f.mon = 1; + f.year++; + + if (f.year > STDTIME_YEAR_MAX) + { + STDTIME_RET_EC (year_out_of_range); + } + } + } /* for */ + + STDTIME_RET_OK; + + } /* StdTimeFields_AddFraction */ + + +/*** AddSpan functions *******************************************************/ + + +/*-***************************************************************************/ +/* StdTime_AddSpan */ +/* use STDTIME_SPAN parm to increment value in StdTime structure */ +/*****************************************************************************/ + +STDTIME_RC StdTime_AddSpan ( + STDTIME * /*IO*/ pStdTime, + const STDTIME_SPAN * /*I*/ pSpan) + { + QUADLIB_I64 qStdTime; + + STDTIME_ENUM_FUNC (StdTime_AddSpan) + + qStdTime = *(QUADLIB_I64 *)pStdTime; + + QUADLIB_I64_ADD_EQ (qStdTime, pSpan->value); + + *pStdTime = *(STDTIME *)&qStdTime; + STDTIME_RET_OK; + } /* StdTime_AddSpan */ + + +#if defined(_WIN32) +/*-***************************************************************************/ +/* StdTimeFields_AddSpan */ +/* use STDTIME_SPAN parm to increment value in StdTimeFields structure */ +/*****************************************************************************/ + +STDTIME_RC StdTimeFields_AddSpan ( + STDTIME_FIELDS * /*IO*/ pStdTimeFields, + const STDTIME_SPAN * /*I*/ pSpan) + { + STDTIME stdTime; + + STDTIME_ENUM_FUNC (StdTimeFields_AddSpan) + + if STDTIME_IF (StdTimeFieldsToStdTime (pStdTimeFields, &stdTime)) + { + if STDTIME_IF (StdTime_AddSpan (&stdTime, pSpan)) + { + STDTIME_RET (StdTimeToStdTimeFields (&stdTime, pStdTimeFields)); + } + } + + STDTIME_RET_RC; + + } /* StdTimeFields_AddSpan */ +#endif /* defined(_WIN32) */ + + +/*** SubSpan functions *******************************************************/ + + +/*-***************************************************************************/ +/* StdTime_SubSpan */ +/* use STDTIME_SPAN parm to decrement value in StdTime structure */ +/*****************************************************************************/ + +STDTIME_RC StdTime_SubSpan ( + STDTIME * /*IO*/ pStdTime, + const STDTIME_SPAN * /*I*/ pSpan) + { + QUADLIB_I64 qStdTime; + + STDTIME_ENUM_FUNC (StdTime_SubSpan) + + qStdTime = *(QUADLIB_I64 *)pStdTime; + + QUADLIB_I64_SUB_EQ (qStdTime, pSpan->value); + + *pStdTime = *(STDTIME *)&qStdTime; + STDTIME_RET_OK; + } /* StdTime_SubSpan */ + + +/*** AddDelta functions ******************************************************/ + + +/*-***************************************************************************/ +/* StdTime_AddDelta */ +/* use STDTIME_DELTA parm to increment value in StdTime structure */ +/*****************************************************************************/ + +STDTIME_RC StdTime_AddDelta ( + STDTIME * /*IO*/ pStdTime, + const STDTIME_DELTA * /*I*/ pDelta) + { + STDTIME_SPAN span; + + STDTIME_ENUM_FUNC (StdTime_AddDelta) + + if STDTIME_IF (StdTimeDeltaToStdTimeSpan (pDelta, &span)) + { + STDTIME_RET (StdTime_AddSpan (pStdTime, &span)); + } + + STDTIME_RET_RC; + + } /* StdTime_AddDelta */ + +#if defined(_WIN32) +/*-***************************************************************************/ +/* StdTimeFields_AddDelta */ +/* use STDTIME_DELTA parm to increment value in StdTimeFields structure */ +/*****************************************************************************/ + +STDTIME_RC StdTimeFields_AddDelta ( + STDTIME_FIELDS * /*IO*/ pStdTimeFields, + const STDTIME_DELTA * /*I*/ pDelta) + { + STDTIME_SPAN span; + + STDTIME_ENUM_FUNC (StdTimeFields_AddDelta) + + if STDTIME_IF (StdTimeDeltaToStdTimeSpan (pDelta, &span)) + { + STDTIME_RET (StdTimeFields_AddSpan (pStdTimeFields, &span)); + } + + STDTIME_RET_RC; + + } /* StdTimeFields_AddDelta */ +#endif /* defined(_WIN32) */ + + +/*** SubDelta functions ******************************************************/ + + +/*-***************************************************************************/ +/* StdTime_SubDelta */ +/* use STDTIME_DELTA parm to decrement value in StdTime structure */ +/*****************************************************************************/ + +STDTIME_RC StdTime_SubDelta ( + STDTIME * /*IO*/ pStdTime, + const STDTIME_DELTA * /*I*/ pDelta) + { + STDTIME_SPAN span; + + STDTIME_ENUM_FUNC (StdTime_SubDelta) + + if STDTIME_IF (StdTimeDeltaToStdTimeSpan (pDelta, &span)) + { + STDTIME_RET (StdTime_SubSpan (pStdTime, &span)); + } + + STDTIME_RET_RC; + + } /* StdTime_SubDelta */ + + +/*** GetSpan functions *******************************************************/ + + +/*-***************************************************************************/ +/* StdTime_GetSpan */ +/* produce a STDTIME_SPAN value as the delta-t of two STDTIME values */ +/*****************************************************************************/ + + +STDTIME_RC StdTime_GetSpan ( + const STDTIME * /*I*/ pStdTimeOne, + const STDTIME * /*I*/ pStdTimeTwo, + STDTIME_SPAN * /*O*/ pSpan) + { + QUADLIB_I64 qOne; + QUADLIB_I64 qTwo; + + STDTIME_ENUM_FUNC (StdTime_GetSpan) + + qOne = *(QUADLIB_I64 *)pStdTimeOne; + qTwo = *(QUADLIB_I64 *)pStdTimeTwo; + + pSpan->value = QUADLIB_I64_SUB (qOne, qTwo); + + STDTIME_RET (ValidStdTimeSpan (pSpan)); + + } /* StdTime_GetSpan */ + + +/*** GetDelta functions ******************************************************/ + + +/*-***************************************************************************/ +/* StdTime_GetDelta */ +/* produce a STDTIME_DELTA value as the delta-t of two STDTIME values */ +/*****************************************************************************/ + +STDTIME_RC StdTime_GetDelta ( + const STDTIME * /*I*/ pStdTimeOne, + const STDTIME * /*I*/ pStdTimeTwo, + STDTIME_DELTA * /*O*/ pDelta) + { + STDTIME_SPAN span; + + STDTIME_ENUM_FUNC (StdTime_GetDelta) + + if STDTIME_IF (StdTime_GetSpan (pStdTimeOne, pStdTimeTwo, &span)) + { + STDTIME_RET (StdTimeSpanToStdTimeDelta (&span, pDelta)); + } + + STDTIME_RET_RC; + + } /* StdTime_GetDelta */ + + +/*-***************************************************************************/ +/* NormalizeStdTimeDelta */ +/* normalize a delta value to the nearest number of days */ +/* this is the same as truncating its value to the nearest day */ +/*****************************************************************************/ + + +STDTIME_RC NormalizeStdTimeDelta ( + STDTIME_DELTA * /*IO*/ pDelta) + { + STDTIME_ENUM_FUNC (NormalizeStdTimeDelta) + + STDTIME_RET (TruncStdTimeDelta (pDelta, STDTIME_FIELD_DAY)); + + } /* NormalizeStdTimeDelta */ + + +/*-***************************************************************************/ +/* TruncStdTimeDelta */ +/* form normalized value of delta, such that there are non-zero difference */ +/* values only as large as the selected units of the specified field. */ +/* for example, to truncate to 'hour' means that the delta value is */ +/* expressed in units no larger than hours. thus, an 'hour' value of 25 */ +/* is truncated to hours because it does not get changed to 1 day and 1 */ +/* 'hour'. fields of smaller units do not exceed the normal maximum value */ +/* for that field. for example, a value may be truncated to 25 hours, but */ +/* the 'min' field will be within the absolute value of 0 to 59, etc. */ +/* */ +/* all non-zero values in a truncated delta will have the same sign, plus */ +/* or minus, regardless of how they were originally defined. */ +/*****************************************************************************/ + +STDTIME_RC TruncStdTimeDelta ( + STDTIME_DELTA * /*IO*/ pDelta, + int32_t /*I*/ field) + { + QUADLIB_I64 qVal; + int32_t sign = 1; + STDTIME_SPAN span; + STDTIME_DELTA result = {0}; + + STDTIME_ENUM_FUNC (TruncStdTimeDelta) + + if (pDelta == NULL) + { + STDTIME_RET_EC (null_argument); + } + + if ((field < STDTIME_FIELD_DAY) || (field > STDTIME_FIELD_NSEC)) + { + /* field selector is invalid */ + STDTIME_RET_EC (field_selector_out_of_range); + } + + if STDTIME_IFNOT (StdTimeDeltaToStdTimeSpan (pDelta, &span)) + { + STDTIME_RET_RC; + } + + qVal = span.value; + + /* at this point, qVal has a count of 100-nanosecond intervals */ + /* and may be positive or negative */ + /* now, rebuilt the delta value with normalized quantities */ + + /***************************************************************************/ + /* nsecs - only 1 digit available, but we store as 3 digit nsec */ + /***************************************************************************/ + + if (QUADLIB_I64_LT_0 (qVal)) + { + qVal = QUADLIB_I64_NEG (qVal); + sign = -1; + } + + /* if truncating to nsec we are done */ + + if (field == STDTIME_FIELD_NSEC) + { + /* since the 100-nanosecond count must be multiplied by 100 to */ + /* get actual nanoseconds, just checking for overflow is not */ + /* enough. we must check to see if overflow WILL occur when */ + /* the multiply is done, but we have to check before we do it */ + + if ((QUADLIB_I64_HI(qVal) != 0) + || (QUADLIB_U64_LO(qVal) > (0x7FFFFFFF / STDTIME_SCALE_NSEC) )) + { + STDTIME_RET_EC (overflow_in_delta_nsec); + /* cannot hold nsec value in I32 field */ + } + + result.nsec = sign * STDTIME_SCALE_NSEC * QUADLIB_I64_LO(qVal); + *pDelta = result; + + STDTIME_RET_OK; + } + + result.nsec = + sign * STDTIME_SCALE_NSEC * QUADLIB_I32_CASTI64 ( + QUADLIB_I64_MOD (qVal, QUADLIB_I64_CASTI32 (STDTIME_PREC_NSEC)) ); + + QUADLIB_I64_DIV_EQ (qVal, QUADLIB_I64_CASTI32 (STDTIME_PREC_NSEC)); + + /***************************************************************************/ + /* qVal now has usecs */ + /***************************************************************************/ + + /* if truncating to usec we are done */ + + if (field == STDTIME_FIELD_USEC) + { + if (QUADLIB_I64_OVERFLOW_I32 (qVal)) + { + STDTIME_RET_EC (overflow_in_delta_usec); + /* cannot hold usec value in I32 field */ + } + + result.usec = sign * QUADLIB_I64_LO(qVal); + *pDelta = result; + STDTIME_RET_OK; + } + + result.usec = + sign * QUADLIB_I32_CASTI64 ( + QUADLIB_I64_MOD (qVal, QUADLIB_I64_CASTI32 (1000)) ); + + QUADLIB_I64_DIV_EQ (qVal, QUADLIB_I64_CASTI32 (1000)); /* qVal / 1000 */ + + + /***************************************************************************/ + /* qVal now has msecs */ + /***************************************************************************/ + + /* if truncating to msec we are done */ + + if (field == STDTIME_FIELD_MSEC) + { + if (QUADLIB_I64_OVERFLOW_I32 (qVal)) + { + STDTIME_RET_EC (overflow_in_delta_msec); + /* cannot hold msec value in I32 field */ + } + + result.msec = sign * QUADLIB_I64_LO(qVal); + *pDelta = result; + STDTIME_RET_OK; + } + + result.msec = + sign * QUADLIB_I32_CASTI64 ( + QUADLIB_I64_MOD (qVal, QUADLIB_I64_CASTI32 (1000)) ); + + QUADLIB_I64_DIV_EQ (qVal, QUADLIB_I64_CASTI32 (1000)); /* qVal / 1000 */ + + + /***************************************************************************/ + /* qVal now has secs */ + /***************************************************************************/ + + /* if truncating to sec we are done */ + + if (field == STDTIME_FIELD_SEC) + { + if (QUADLIB_I64_OVERFLOW_I32 (qVal)) + { + STDTIME_RET_EC (overflow_in_delta_sec); + /* cannot hold sec value in I32 field */ + } + + result.sec = sign * QUADLIB_I64_LO(qVal); + *pDelta = result; + STDTIME_RET_OK; + } + + result.sec = + sign * QUADLIB_I32_CASTI64 ( + QUADLIB_I64_MOD (qVal, QUADLIB_I64_CASTI32 (60)) ); + + QUADLIB_I64_DIV_EQ (qVal, QUADLIB_I64_CASTI32 (60)); /* qVal / 60 */ + + + /***************************************************************************/ + /* qVal now has mins */ + /***************************************************************************/ + + /* if truncating to min we are done */ + + if (field == STDTIME_FIELD_MIN) + { + if (QUADLIB_I64_OVERFLOW_I32 (qVal)) + { + STDTIME_RET_EC (overflow_in_delta_min); + /* cannot hold min value in I32 field */ + } + + result.min = sign * QUADLIB_I64_LO(qVal); + *pDelta = result; + STDTIME_RET_OK; + } + + result.min = + sign * QUADLIB_I32_CASTI64 ( + QUADLIB_I64_MOD (qVal, QUADLIB_I64_CASTI32 (60)) ); + + QUADLIB_I64_DIV_EQ (qVal, QUADLIB_I64_CASTI32 (60)); /* qVal / 60 */ + + + /***************************************************************************/ + /* qVal now has hours */ + /***************************************************************************/ + + /* if truncating to hour we are done */ + + if (field == STDTIME_FIELD_HOUR) + { + if (QUADLIB_I64_OVERFLOW_I32 (qVal)) + { + STDTIME_RET_EC (overflow_in_delta_hour); + /* cannot hold hour value in I32 field */ + } + + result.hour = sign * QUADLIB_I64_LO(qVal); + *pDelta = result; + STDTIME_RET_OK; + } + + result.hour = + sign * QUADLIB_I32_CASTI64 ( + QUADLIB_I64_MOD (qVal, QUADLIB_I64_CASTI32 (24)) ); + + QUADLIB_I64_DIV_EQ (qVal, QUADLIB_I64_CASTI32 (24)); /* qVal / 24 */ + + + /***************************************************************************/ + /* qVal now has days */ + /***************************************************************************/ + + /* months and years are not linear, so they are left as zero */ + /* field == STDTIME_FIELD_DAY must be true because of prior check */ + + if (QUADLIB_I64_OVERFLOW_I32 (qVal)) + { + STDTIME_RET_EC (overflow_in_delta_day); + /* cannot hold day value in I32 field */ + } + + result.day = sign * QUADLIB_I64_LO(qVal); + *pDelta = result; + STDTIME_RET_OK; + + } /* TruncStdTimeDelta */ + + +/*-***************************************************************************/ +/* RoundStdTimeDelta */ +/* change a delta value to a rounded form. first, truncate the delta value */ +/* using TruncStdTimeDelta above. then, based on the field, if the field */ +/* to its 'right' is greater than or equal to its maximum, the 'round' */ +/* field is incremented. */ +/* */ +/* 'greater than' and 'increment' are relative terms, because the delta */ +/* could be positive or negative; the magnitudes and signs are taken into */ +/* account. */ +/* */ +/* once the rounding occurs, the fields to the right of the rounded field */ +/* are zeroed out. in case the selected field the one to its right are */ +/* both zero, no increment occurs, but zeroing-out is still done. */ +/* */ +/* if the delta is considered invalid by TruncStdTimeDelta, no further */ +/* processing is done. */ +/* */ +/* since nanoseconds (nsec) is the right-most field, a request to round to */ +/* the nsec level is simply ignored; in effect, it is already rounded to */ +/* that level, and TruncStdTimeDelta would already have dropped digits of */ +/* nsec smaller than the 100-nanosecond precision limit anyway. */ +/* */ +/* the helper function Bool_StdTime_AbsDelta forms the absolute value of a */ +/* delta field, and returns STDTIME_TRUE if a sign conflict is found, else */ +/* STDTIME_FALSE; */ +/* */ +/*****************************************************************************/ + +static STDTIME_BOOL Bool_StdTime_AbsDelta ( + int32_t *sign, + int32_t *value) + { + int32_t newsign = 0; + + if (*value > 0) + { + newsign = 1; + } + + else if (*value < 0) + { + newsign = -1; + *value = -(*value); + } + + if ((newsign == 0) || (*sign == newsign)) + { + /* *value is zero, or its sign is the same as the 'old' sign */ + return STDTIME_FALSE; /* no sign conflict detected */ + } + + if (*sign == 0) /* sign not defined yet */ + { + *sign = newsign; + return STDTIME_FALSE; /* no sign conflict detected */ + } + + return STDTIME_TRUE; /* error: delta has conflicting signs */ + + } /* Bool_StdTime_AbsDelta */ + + +/*-***************************************************************************/ +/* RoundStdTimeDelta */ +/*****************************************************************************/ + +STDTIME_RC RoundStdTimeDelta ( + STDTIME_DELTA * /*IO*/ pDelta, + int32_t /*I*/ field) + { + int32_t sign = 0; + STDTIME_DELTA f; + + STDTIME_ENUM_FUNC (RoundStdTimeDelta) + + if STDTIME_IFNOT (TruncStdTimeDelta (pDelta, field)) + { + STDTIME_RET_RC; + } + + if (field == STDTIME_FIELD_NSEC) + { + /* nothing to round - OK - leave value as is */ + + STDTIME_RET_OK; + } + + /* analyze sign of delta fields, and form absolute value of delta */ + + f = *pDelta; /* local copy */ + + if ( (Bool_StdTime_AbsDelta (&sign, &f.day )) + || (Bool_StdTime_AbsDelta (&sign, &f.hour)) + || (Bool_StdTime_AbsDelta (&sign, &f.min )) + || (Bool_StdTime_AbsDelta (&sign, &f.sec )) + || (Bool_StdTime_AbsDelta (&sign, &f.msec)) + || (Bool_StdTime_AbsDelta (&sign, &f.usec)) + || (Bool_StdTime_AbsDelta (&sign, &f.nsec)) ) + { + STDTIME_RET_EC (conflicting_sign_delta); + } + + /* rounding a field means to increment it if the field to its */ + /* 'right' is >= half the (max+1) value for it */ + + /* whether rounds occurs or not, the fields to the right are */ + /* zeroed out to maintain a numerically valid delta value */ + /* to the requested precision of the field being rounded */ + + switch (field) + { + case STDTIME_FIELD_DAY: + if (f.hour >= 12) + { + f.day++; + } + + f.hour = f.min = f.sec = f.msec = f.usec = f.nsec = 0; + break; + + case STDTIME_FIELD_HOUR: + if (f.min >= 30) + { + f.hour++; + } + + f.min = f.sec = f.msec = f.usec = f.nsec = 0; + break; + + case STDTIME_FIELD_MIN: + if (f.sec >= 30) + { + f.min++; + } + + f.sec = f.msec = f.usec = f.nsec = 0; + break; + + case STDTIME_FIELD_SEC: + if (f.msec >= 500) + { + f.sec++; + } + + f.msec = f.usec = f.nsec = 0; + break; + + case STDTIME_FIELD_MSEC: + if (f.usec >= 500) + { + f.msec++; + } + + f.usec = f.nsec = 0; + break; + + case STDTIME_FIELD_USEC: + if (f.nsec >= 500) + { + f.usec++; + } + + f.nsec = 0; + break; + + default: + STDTIME_RET_EC (unexpected_condition); /* should not occur */ + + } /* switch (field) */ + + /* copy back to pDelta parameter, with correct sign */ + + pDelta->day = sign * f.day; + pDelta->hour = sign * f.hour; + pDelta->min = sign * f.min; + pDelta->sec = sign * f.sec; + pDelta->msec = sign * f.msec; + pDelta->usec = sign * f.usec; + pDelta->nsec = sign * f.nsec; + + STDTIME_RET_OK; + + } /* RoundStdTimeDelta */ + + +/*** Delta/Span conversion functions *****************************************/ + + +/*-***************************************************************************/ +/* StdTimeDeltaToStdTimeSpan */ +/* convert a StdTimeDelta to a StdTimeSPan value */ +/* if the resultant value exceeds the maximum range for a span, return */ +/* STDTIME_FALSE. the value range is about +/- 8400 years, in terms of */ +/* 100-nanosecond intervals. */ +/*****************************************************************************/ + + +STDTIME_RC StdTimeDeltaToStdTimeSpan ( + const STDTIME_DELTA * /*I*/ pDelta, + STDTIME_SPAN * /*O*/ pSpan) + { + QUADLIB_I64 qSum; + QUADLIB_I64 qTest; + + STDTIME_ENUM_FUNC (StdTimeDeltaToStdTimeSpan) + + if ((pDelta == NULL) || (pSpan == NULL)) + { + STDTIME_RET_EC (null_argument); + } + + /* accumulate field values, and convert to nanoseconds */ + + /* qSum = day */ + qSum = QUADLIB_I64_CASTI32 (pDelta->day); + + /* qSum (day) *= 24 -> (hour)_*/ + QUADLIB_I64_MUL_EQ (qSum, QUADLIB_I64_CASTI32 (24)); + + /* qSum += hour */ + QUADLIB_I64_ADD_EQ (qSum, QUADLIB_I64_CASTI32 (pDelta->hour)); + + /* qSum (hour) *= 60 -> (min) */ + QUADLIB_I64_MUL_EQ (qSum, QUADLIB_I64_CASTI32 (60)); + + /* qSum += min */ + QUADLIB_I64_ADD_EQ (qSum, QUADLIB_I64_CASTI32 (pDelta->min)); + + /* qSum (min) *= 60 -> (sec) */ + QUADLIB_I64_MUL_EQ (qSum, QUADLIB_I64_CASTI32 (60)); + + /* qSum += sec */ + QUADLIB_I64_ADD_EQ (qSum, QUADLIB_I64_CASTI32 (pDelta->sec)); + + /* qSum (sec) *= 1000 -> (msec) */ + QUADLIB_I64_MUL_EQ (qSum, QUADLIB_I64_CASTI32 (1000)); + + /* qSum += msec */ + QUADLIB_I64_ADD_EQ (qSum, QUADLIB_I64_CASTI32 (pDelta->msec)); + + /* qSum (msec) *= 1000 -> (usec) */ + QUADLIB_I64_MUL_EQ (qSum, QUADLIB_I64_CASTI32 (1000)); + + /* qSum += usec */ + QUADLIB_I64_ADD_EQ (qSum, QUADLIB_I64_CASTI32 (pDelta->usec)); + + /* qSum (usec) *= 10 -> (nsec/100) */ + QUADLIB_I64_MUL10_EQ (qSum); + + /* qSum += nsec/100 */ + QUADLIB_I64_ADD_EQ (qSum, QUADLIB_I64_CASTI32 ((pDelta->nsec) / 100)); + + pSpan->value = qSum; + + if (QUADLIB_I64_LT_0 (qSum)) + { + /* create negative test value and see if value is less than it */ + QUADLIB_U64_HI (qTest) = STDTIME_SPAN_MIN_HI; + QUADLIB_U64_LO (qTest) = STDTIME_SPAN_MIN_LO; + + if (QUADLIB_I64_LT (qSum, qTest)) /* qSum < qTest */ + { + STDTIME_RET_EC (span_out_of_range); + } + } + + else /* qSum >= 0 */ + { + /* create positive test value and see if value is less than it */ + QUADLIB_U64_HI (qTest) = STDTIME_SPAN_MAX_HI; + QUADLIB_U64_LO (qTest) = STDTIME_SPAN_MAX_LO; + + if (QUADLIB_I64_GT (qSum, qTest)) /* qSum > qTest */ + { + STDTIME_RET_EC (span_out_of_range); + } + } + + STDTIME_RET_OK; + + } /* StdTimeDeltaToStdTimeSpan */ + + +/*-***************************************************************************/ +/* StdTimeSpanToStdTimeDelta */ +/* convert a StdTimeSpan to a StdTimeDelta value */ +/* if the resultant day value exceeds the maximum range for a day, return */ +/* STDTIME_FALSE. the value range 8400 years * 366 days, just to keep */ +/* the definition simple. */ +/*****************************************************************************/ + +STDTIME_RC StdTimeSpanToStdTimeDelta ( + const STDTIME_SPAN * /*I*/ pSpan, + STDTIME_DELTA * /*O*/ pDelta) + { + QUADLIB_U64 uVal; + QUADLIB_U64 uMod; + QUADLIB_U64 uDiv; + + int32_t sign = 1; + + STDTIME_ENUM_FUNC (StdTimeSpanToStdTimeDelta) + + if ((pSpan == NULL) || (pDelta == NULL)) + { + STDTIME_RET_EC (null_argument); + } + + if (QUADLIB_I64_LT_0 (pSpan->value)) + { + uVal = QUADLIB_I64_NEG (pSpan->value); + sign = -1; + } + + else + { + uVal = pSpan->value; + } + + /* uVal has count of 100 nsecs intervals */ + /* calculate: nsec = (uVal % 10) * 100; */ + + QUADLIB_U64_HI (uDiv) = 0; + QUADLIB_U64_LO (uDiv) = 10; + uVal = QuadLibU64DivMod (uVal, uDiv, &uMod); + pDelta->nsec = sign * QUADLIB_I64_LO (uMod) * 100; + + /* uVal has usecs */ + /* calculate: usec = uVal % 1000; */ + + QUADLIB_U64_LO (uDiv) = 1000; + uVal = QuadLibU64DivMod (uVal, uDiv, &uMod); + pDelta->usec = sign * QUADLIB_I64_LO (uMod); + + /* uVal has msecs */ + /* calculate: wMilliseconds = uVal % 1000; */ + /* QUADLIB_U64_LO (uDiv) = 1000; ==> still in effect */ + + uVal = QuadLibU64DivMod (uVal, uDiv, &uMod); + pDelta->msec = sign * QUADLIB_U64_LO (uMod); + + /* uVal has secs */ + /* calculate: wSecond = uVal % 60; */ + + QUADLIB_U64_LO (uDiv) = 60; + uVal = QuadLibU64DivMod (uVal, uDiv, &uMod); + pDelta->sec = sign * QUADLIB_U64_LO (uMod); + + /* uVal has mins */ + /* calculate: wMinute = uVal % 60; */ + /* QUADLIB_U64_LO (uDiv) = 60; ==> still in effect */ + + uVal = QuadLibU64DivMod (uVal, uDiv, &uMod); + pDelta->min = sign * QUADLIB_U64_LO(uMod); + + /* uVal has hours */ + /* calculate: wHour = uVal % 24; */ + + QUADLIB_U64_LO (uDiv) = 24; + uVal = QuadLibU64DivMod (uVal, uDiv, &uMod); + + pDelta->hour = sign * QUADLIB_U64_LO (uMod); + + /* uVal has days */ + + pDelta->day = sign * QUADLIB_I64_LO (uVal); + + if (QUADLIB_I64_OVERFLOW_I32 (uVal)) + { + STDTIME_RET_EC (overflow_in_delta_day); + } + + /* we check the positive value for valid range, so that +/- cases */ + /* are both covered in one test */ + + if (QUADLIB_I64_LO (uVal) > STDTIME_DELTA_DAY_MAX) + { + STDTIME_RET_EC (overflow_in_delta_day); + } + + STDTIME_RET_OK; + + } /* StdTimeSpanToStdTimeDelta */ + + +/*** validation of delta and span ********************************************/ + + +/*-***************************************************************************/ +/* ValidStdTimeDelta */ +/* validate delta by converting to a span and discard the result */ +/*****************************************************************************/ + +STDTIME_RC ValidStdTimeDelta ( + const STDTIME_DELTA * /*I*/ pDelta) + { + STDTIME_SPAN span; + + STDTIME_ENUM_FUNC (ValidStdTimeDelta) + + STDTIME_RET (StdTimeDeltaToStdTimeSpan (pDelta, &span)); + + } /* ValidStdTimeDelta */ + + +/*-***************************************************************************/ +/* ValidStdTimeSpan */ +/* validate span by converting to a delta and discard the result */ +/*****************************************************************************/ + +STDTIME_RC ValidStdTimeSpan ( + const STDTIME_SPAN * /*I*/ pSpan) + { + STDTIME_DELTA delta; + + STDTIME_ENUM_FUNC (ValidStdTimeSpan) + + STDTIME_RET (StdTimeSpanToStdTimeDelta (pSpan, &delta)); + + } /* ValidStdTimeSpan */ + + +/*** Delta/Span sign-related functions ***************************************/ + + +/*-***************************************************************************/ +/* SgnStdTimeDelta */ +/* characterize the sign of a delta as -1, 0 or +1 */ +/*****************************************************************************/ + +int32_t SgnStdTimeDelta ( + const STDTIME_DELTA * /*I*/ pDelta) + { + STDTIME_SPAN span; + + if (pDelta == NULL) + { + return STDTIME_ERR; + } + + /* test for a normal sign first */ + + if ((pDelta->day == 0) + && (pDelta->hour == 0) + && (pDelta->min == 0) + && (pDelta->sec == 0) + && (pDelta->msec == 0) + && (pDelta->usec == 0) + && (pDelta->nsec == 0)) + { + return STDTIME_EQ; /* == 0 */ + } + + if ((pDelta->day >= 0) + && (pDelta->hour >= 0) + && (pDelta->min >= 0) + && (pDelta->sec >= 0) + && (pDelta->msec >= 0) + && (pDelta->usec >= 0) + && (pDelta->nsec >= 0)) + { + return STDTIME_GT; /* > 0 (not >= 0, because 0 already checked for) */ + } + + if ((pDelta->day <= 0) + && (pDelta->hour <= 0) + && (pDelta->min <= 0) + && (pDelta->sec <= 0) + && (pDelta->msec <= 0) + && (pDelta->usec <= 0) + && (pDelta->nsec <= 0)) + { + return STDTIME_LT; /* < 0 (not <= 0, because 0 already checked for) */ + } + + /* delta has a complex sign. convert to a span, and report its sign */ + + if (StdTimeDeltaToStdTimeSpan (pDelta, &span) == STDTIME_OK) + { + return SgnStdTimeSpan (&span); + } + + return STDTIME_ERR; + + } /* SgnStdTimeDelta */ + + +/*-***************************************************************************/ +/* AbsStdTimeDelta */ +/* form absolute value of a delta; depends on its sign */ +/*****************************************************************************/ + +STDTIME_RC AbsStdTimeDelta ( + STDTIME_DELTA * /*IO*/ pDelta) + { + int32_t sign; + + STDTIME_ENUM_FUNC (AbsStdTimeDelta) + + sign = SgnStdTimeDelta (pDelta); /* handles NULL argument */ + + if (sign == STDTIME_ERR) + { + STDTIME_RET_EC (failure_in_api_SgnStdTimeDelta); + } + + if (sign == STDTIME_LT) + { + STDTIME_RET (NegStdTimeDelta (pDelta)); + } + + STDTIME_RET_OK; + + } /* AbsStdTimeDelta */ + + +/*-***************************************************************************/ +/* NegStdTimeDelta */ +/* form negative value of a delta; negates each element */ +/*****************************************************************************/ + +STDTIME_RC NegStdTimeDelta ( + STDTIME_DELTA * /*IO*/ pDelta) + { + STDTIME_ENUM_FUNC (NegStdTimeDelta) + + if (pDelta == NULL) + { + STDTIME_RET_EC (null_argument); + } + + pDelta->day = -(pDelta->day); + pDelta->hour = -(pDelta->hour); + pDelta->min = -(pDelta->min); + pDelta->sec = -(pDelta->sec); + pDelta->msec = -(pDelta->msec); + pDelta->usec = -(pDelta->usec); + pDelta->nsec = -(pDelta->nsec); + + STDTIME_RET_OK; + + } /* NegStdTimeDelta */ + + +/*-***************************************************************************/ +/* SgnStdTimeSpan */ +/* characterize the sign of a span as -1, 0 or +1 */ +/*****************************************************************************/ + +int32_t SgnStdTimeSpan ( + const STDTIME_SPAN * /*I*/ pSpan) + { + if (pSpan == NULL) + { + return STDTIME_ERR; + } + + if (QUADLIB_I64_LT_0 (pSpan->value)) + { + return STDTIME_LT; + } + + if (QUADLIB_I64_EQ_0 (pSpan->value)) + { + return STDTIME_EQ; + } + + return STDTIME_GT; + } /* SgnStdTimeSpan */ + + +/*-***************************************************************************/ +/* AbsStdTimeSpan */ +/* form absolute value of a span, via call to QUADLIB function */ +/*****************************************************************************/ + +STDTIME_RC AbsStdTimeSpan ( + STDTIME_SPAN * /*IO*/ pSpan) + { + STDTIME_ENUM_FUNC (AbsStdTimeSpan) + + if (pSpan == NULL) + { + STDTIME_RET_EC (null_argument); + } + + pSpan->value = QUADLIB_I64_ABS (pSpan->value); + + STDTIME_RET_OK; + + } /* AbsStdTimeSpan */ + + +/*-***************************************************************************/ +/* NegStdTimeSpan */ +/* form negative value of a span, via call to QUADLIB function */ +/*****************************************************************************/ + +STDTIME_RC NegStdTimeSpan ( + STDTIME_SPAN * /*IO*/ pSpan) + { + STDTIME_ENUM_FUNC (NegStdTimeSpan) + + if (pSpan == NULL) + { + STDTIME_RET_EC (null_argument); + } + + pSpan->value = QUADLIB_I64_NEG (pSpan->value); + + STDTIME_RET_OK; + + } /* NegStdTimeSpan */ + + +/*** Compare functions *******************************************************/ + + +/*-***************************************************************************/ +/* CompareStdTime */ +/* compare two STDTIME values and return a strcmp-like result */ +/*****************************************************************************/ + +int32_t CompareStdTime ( + const STDTIME * /*I*/ pOne, + const STDTIME * /*I*/ pTwo) + { + if ((pOne == NULL) || (pTwo == NULL)) + { + return STDTIME_ERR; + } + + PVT_STDTIME_COMPARE(dwHighDateTime); + PVT_STDTIME_COMPARE(dwLowDateTime); + + return STDTIME_EQ; + + } /* CompareStdTime */ + +/*-***************************************************************************/ +/* CompareStdTimeFields */ +/* compare two STDTIME_FIELDS values and return a strcmp-like result */ +/*****************************************************************************/ + +int32_t CompareStdTimeFields ( + const STDTIME_FIELDS * /*I*/ pOne, + const STDTIME_FIELDS * /*I*/ pTwo) + { + if ((pOne == NULL) || (pTwo == NULL)) + { + return STDTIME_ERR; + } + + PVT_STDTIME_COMPARE(year); + PVT_STDTIME_COMPARE(mon ); + PVT_STDTIME_COMPARE(day ); + PVT_STDTIME_COMPARE(hour); + PVT_STDTIME_COMPARE(min ); + PVT_STDTIME_COMPARE(sec ); + PVT_STDTIME_COMPARE(msec); + PVT_STDTIME_COMPARE(usec); + PVT_STDTIME_COMPARE(nsec); + + return STDTIME_EQ; + + } /* CompareStdTimeFields */ + + +/*** FileTime functions ******************************************************/ + + +/*-***************************************************************************/ +/* StdTimeToFileTime */ +/* convert: StdTime structure to FILETIME structure */ +/*****************************************************************************/ + +STDTIME_RC StdTimeToFileTime ( + const STDTIME * /*I*/ pStdTime, + STDTIME_WIN_FILETIME * /*O*/ pFileTime) + { + STDTIME_ENUM_FUNC (StdTimeToFileTime) + + if (pFileTime == NULL || pStdTime == NULL) + { + STDTIME_RET_EC (null_argument); + } + /* Structures are now identical, so just copy. */ + *pFileTime = *pStdTime; /* faster than memcpy */ + STDTIME_RET_OK; + + } /* StdTimeToFileTime */ + + +/*-***************************************************************************/ +/* FileTimeToStdTime */ +/* convert: FILETIME structure to StdTime structure */ +/*****************************************************************************/ + +STDTIME_RC FileTimeToStdTime ( + const STDTIME_WIN_FILETIME * /*I*/ pFileTime, + STDTIME * /*O*/ pStdTime) + { + STDTIME_ENUM_FUNC (FileTimeToStdTime) + + if (pFileTime == NULL || pStdTime == NULL) + { + STDTIME_RET_EC (null_argument); + } + /* Structures are now identical, so just copy. */ + *pStdTime = *pFileTime; /* faster than memcpy */ + STDTIME_RET_OK; + + } /* FileTimeToStdTime */ + + +#if defined(_WIN32) +/*-***************************************************************************/ +/* StdTimeFieldsToFileTime */ +/* convert: StdTimeFields structure to FILETIME structure */ +/*****************************************************************************/ + +STDTIME_RC StdTimeFieldsToFileTime ( + const STDTIME_FIELDS * /*I*/ pStdTimeFields, + STDTIME_WIN_FILETIME * /*O*/ pFileTime) + { + STDTIME_WIN_SYSTEMTIME st; + STDTIME_WIN_FILETIME ft; + QUADLIB_U64 qFileTime; + int32_t omit = 0; + uint32_t incr32; + + STDTIME_ENUM_FUNC (StdTimeFieldsToFileTime) + + if (pFileTime == NULL) + { + STDTIME_RET_EC (null_argument); + } + + *pFileTime = StdTimeApiZeroFileTime(); + + if (pStdTimeFields == NULL) + { + STDTIME_RET_EC (null_argument); + } + + /* the 'omit' argument is like NULL, but suppressing rounding */ + + if STDTIME_IFNOT (StdTimeFieldsToSystemTimeEx ( + pStdTimeFields, &st, &omit, &omit)) + { + STDTIME_RET_RC; + } + + if (! STDTIME_API_SYSTEMTIMETOFILETIME (&st, &ft)) + { + STDTIME_RET_EC (failure_in_api_SystemTimeToFileTime); + } + + /* SYSTEMTIME does not have usec and nsec, so add them to FILETIME */ + + QUADLIB_U64_HI (qFileTime) = ft.dwHighDateTime; + QUADLIB_U64_LO (qFileTime) = ft.dwLowDateTime; + + incr32 = (uint32_t) (pStdTimeFields->usec * STDTIME_PREC_NSEC) + + (uint32_t) (pStdTimeFields->nsec / STDTIME_SCALE_NSEC); + + QUADLIB_U64_ADD_EQ (qFileTime, QUADLIB_U64_CASTU32 (incr32)); + + pFileTime->dwHighDateTime = QUADLIB_U64_HI (qFileTime); + pFileTime->dwLowDateTime = QUADLIB_U64_LO (qFileTime); + + STDTIME_RET_OK; + + } /* StdTimeFieldsToFileTime */ + +/*-***************************************************************************/ +/* FileTimeToStdTimeFields */ +/* convert: FILETIME structure to StdTimeFields structure */ +/*****************************************************************************/ + +STDTIME_RC FileTimeToStdTimeFields ( + const STDTIME_WIN_FILETIME * /*I*/ pFileTime, + STDTIME_FIELDS * /*O*/ pStdTimeFields) + { + STDTIME_WIN_SYSTEMTIME st; + int32_t usec; + int32_t nsec; + + STDTIME_ENUM_FUNC (FileTimeToStdTimeFields) + + if (pStdTimeFields == NULL) + { + STDTIME_RET_EC (null_argument); + } + + *pStdTimeFields = ZeroStdTimeFields (); + + if (pFileTime == NULL) + { + STDTIME_RET_EC (null_argument); + } + + if STDTIME_IFNOT (Rc_StdTime_FileTimeToSystemTimeEx ( + pFileTime, &st, &usec, &nsec)) + { + STDTIME_RET_RC; + } + + STDTIME_RET (SystemTimeExToStdTimeFields (&st, usec, nsec, pStdTimeFields)); + + } /* FileTimeToStdTimeFields */ +#endif /* defined(_WIN32) */ + + +/*** SystemTimeEx functions **************************************************/ + +/*-***************************************************************************/ +/* StdTimeToSystemTimeEx */ +/* convert: StdTime structure to SYSTEMTIME and extra fields */ +/* method: StdTime -> FILETIME -> StdTimeFields */ +/*****************************************************************************/ + +STDTIME_RC StdTimeToSystemTimeEx ( + const STDTIME * /*I*/ pStdTime, + STDTIME_WIN_SYSTEMTIME * /*O*/ pSystemTime, + int32_t * /*O*/ pUsec, + int32_t * /*O*/ pNsec) + { + STDTIME_WIN_FILETIME ft; + + STDTIME_ENUM_FUNC (StdTimeToSystemTimeEx) + + if (pSystemTime == NULL) + { + STDTIME_RET_EC (null_argument); + } + + *pSystemTime = StdTimeApiZeroSystemTime(); + + if STDTIME_IF (StdTimeToFileTime (pStdTime, &ft)) + { + STDTIME_RET (Rc_StdTime_FileTimeToSystemTimeEx ( + &ft, pSystemTime, pUsec, pNsec)); + } + + STDTIME_RET_RC; + + } /* StdTimeToSystemTimeEx */ + +/*-***************************************************************************/ +/* SystemTimeExToStdTime */ +/* convert: SYSTEMTIME and extra fields to StdTime structure */ +/* method: SYSTEMTIME, fields -> FILETIME -> StdTime */ +/*****************************************************************************/ + +STDTIME_RC SystemTimeExToStdTime ( + const STDTIME_WIN_SYSTEMTIME * /*I*/ pSystemTime, + int32_t /*I*/ nUsec, + int32_t /*I*/ nNsec, + STDTIME * /*O*/ pStdTime) + { + STDTIME_WIN_FILETIME ft; + + STDTIME_ENUM_FUNC (SystemTimeExToStdTime) + + if (pStdTime == NULL) + { + STDTIME_RET_EC (null_argument); + } + + *pStdTime = ZeroStdTime (); + + if STDTIME_IF (Rc_StdTime_SystemTimeExToFileTime ( + pSystemTime, nUsec, nNsec, &ft)) + { + STDTIME_RET (FileTimeToStdTime (&ft, pStdTime)); + } + + STDTIME_RET_RC; + + } /* SystemTimeExToStdTime */ + +#if defined(_WIN32) +/*-***************************************************************************/ +/* StdTimeFieldsToSystemTimeEx */ +/* convert: StdTimeFields structure to SYSTEMTIME and extra fields */ +/*****************************************************************************/ + +STDTIME_RC StdTimeFieldsToSystemTimeEx ( + const STDTIME_FIELDS * /*I*/ pStdTimeFields, + STDTIME_WIN_SYSTEMTIME * /*O*/ pSystemTime, + int32_t * /*O*/ pUsec, /* optional */ + int32_t * /*O*/ pNsec) /* optional */ + { + int32_t wday; + int32_t msec; + int32_t usec; + int32_t nsec; + + STDTIME_ENUM_FUNC (StdTimeFieldsToSystemTimeEx) + + if (pSystemTime == NULL) + { + STDTIME_RET_EC (null_argument); + } + + *pSystemTime = StdTimeApiZeroSystemTime(); + + if (pStdTimeFields == NULL) + { + STDTIME_RET_EC (null_argument); + } + + if STDTIME_IFNOT (ValidStdTimeFields (pStdTimeFields)) + { + STDTIME_RET_RC; + } + + pSystemTime->wYear = (STDTIME_WIN_WORD) pStdTimeFields->year; + pSystemTime->wMonth = (STDTIME_WIN_WORD) pStdTimeFields->mon; + pSystemTime->wDay = (STDTIME_WIN_WORD) pStdTimeFields->day; + pSystemTime->wHour = (STDTIME_WIN_WORD) pStdTimeFields->hour; + pSystemTime->wMinute = (STDTIME_WIN_WORD) pStdTimeFields->min; + pSystemTime->wSecond = (STDTIME_WIN_WORD) pStdTimeFields->sec; + + nsec = pStdTimeFields->nsec; + usec = pStdTimeFields->usec; + msec = pStdTimeFields->msec; + + /* If pointers not NULL, copy values there. */ + if (pNsec) + *pNsec = nsec; + if (pUsec) + *pUsec = usec; + + pSystemTime->wMilliseconds = (STDTIME_WIN_WORD) msec; + +#if 0 /* OBSOLETE: delete next release */ + Rc_StdTime_NormalizeSystemTimeEx (pSystemTime, pNsec, pUsec); +#endif + + /* generate wDayOfWeek value */ + + /* a conversion to FILETIME and back to SYSTEM could do this */ + /* but that is a lot of overhead for one field */ + /* the 'yday' value, stored in a struct tm, is not contained in */ + /* a SYSTEMTIME struct, so we discard its value with the NULL parm */ + + if STDTIME_IFNOT (StdTimeW32GetDayofWeekAndYear ( + pStdTimeFields->year, + pStdTimeFields->mon, + pStdTimeFields->day, + &wday, NULL)) + { + STDTIME_RET_EC (failure_in_api_StdTimeW32GetDayofWeekAndYear); + } + + pSystemTime->wDayOfWeek = (STDTIME_WIN_WORD) wday; + + STDTIME_RET_OK; + + } /* StdTimeFieldsToSystemTimeEx */ + +/*-***************************************************************************/ +/* SystemTimeExToStdTimeFields */ +/* convert: SYSTEMTIME and extra fields to StdTimeFields structure */ +/*****************************************************************************/ + +STDTIME_RC SystemTimeExToStdTimeFields ( + const STDTIME_WIN_SYSTEMTIME * /*I*/ pSystemTime, + int32_t /*I*/ nUsec, + int32_t /*I*/ nNsec, + STDTIME_FIELDS * /*O*/ pStdTimeFields) + { + STDTIME_ENUM_FUNC (SystemTimeExToStdTimeFields) + + if (pStdTimeFields == NULL) + { + STDTIME_RET_EC (null_argument); + } + + *pStdTimeFields = ZeroStdTimeFields (); + + if (pSystemTime == NULL) + { + STDTIME_RET_EC (null_argument); + } + + pStdTimeFields->year = pSystemTime->wYear; + pStdTimeFields->mon = pSystemTime->wMonth; + pStdTimeFields->day = pSystemTime->wDay; + + pStdTimeFields->hour = pSystemTime->wHour; + pStdTimeFields->min = pSystemTime->wMinute; + pStdTimeFields->sec = pSystemTime->wSecond; + + pStdTimeFields->msec = pSystemTime->wMilliseconds; + pStdTimeFields->usec = 0; + pStdTimeFields->nsec = 0; + + STDTIME_RET (StdTimeFields_AddFraction (pStdTimeFields, 0, nUsec, nNsec)); + + } /* SystemTimeExToStdTimeFields */ +#endif /* defined(_WIN32) */ + + +/*** SystemTime functions ****************************************************/ + +/*-***************************************************************************/ +/* StdTimeToSystemTime */ +/* convert: StdTime structure to SYSTEMTIME (without extra fields) */ +/*****************************************************************************/ + +STDTIME_RC StdTimeToSystemTime ( + const STDTIME * /*I*/ pStdTime, + STDTIME_WIN_SYSTEMTIME * /*O*/ pSystemTime) + { + STDTIME_ENUM_FUNC (StdTimeToSystemTime) + + STDTIME_RET (StdTimeToSystemTimeEx (pStdTime, pSystemTime, NULL, NULL)); + + } /* StdTimeToSystemTime */ + +/*-***************************************************************************/ +/* SystemTimeToStdTime */ +/* convert: SYSTEMTIME (without extra fields) to StdTime structure */ +/*****************************************************************************/ + +STDTIME_RC SystemTimeToStdTime ( + const STDTIME_WIN_SYSTEMTIME * /*I*/ pSystemTime, + STDTIME * /*O*/ pStdTime) + { + STDTIME_ENUM_FUNC (SystemTimeToStdTime) + + STDTIME_RET (SystemTimeExToStdTime (pSystemTime, 0, 0, pStdTime)); + + } /* SystemTimeToStdTime */ + + +#ifdef _WIN32 /* DbTimeStamp functions only for _WIN32 */ +/*** DbTimeStamp functions ***************************************************/ + +/*-***************************************************************************/ +/* StdTimeApiZeroDbTimeStamp */ +/* return a zero value of type STDTIME_WIN_DBTIMESTAMP */ +/*****************************************************************************/ + +STDTIME_WIN_DBTIMESTAMP StdTimeApiZeroDbTimeStamp () + { + STDTIME_WIN_DBTIMESTAMP zero = {0}; + + return zero; + + } /* StdTimeApiZeroDbTimeStamp */ + + +/*-***************************************************************************/ +/* StdTimeToDbTimeStamp */ +/* convert: StdTime structure to DBTIMESTAMP */ +/*****************************************************************************/ + +STDTIME_RC StdTimeToDbTimeStamp ( + const STDTIME * /*I*/ pStdTime, + STDTIME_WIN_DBTIMESTAMP * /*O*/ pDbTimeStamp) + { + STDTIME_FIELDS stdTimeFields; + + STDTIME_ENUM_FUNC (StdTimeToDbTimeStamp) + + if (pDbTimeStamp == NULL) + { + STDTIME_RET_EC (null_argument); + } + + *pDbTimeStamp = StdTimeApiZeroDbTimeStamp(); + + if STDTIME_IF (StdTimeToStdTimeFields (pStdTime, &stdTimeFields)) + { + STDTIME_RET (StdTimeFieldsToDbTimeStamp (&stdTimeFields, pDbTimeStamp)); + } + + STDTIME_RET_RC; + + } /* StdTimeToDbTimeStamp */ + + +/*-***************************************************************************/ +/* DbTimeStampToStdTime */ +/* convert: DBTIMESTAMP to StdTime structure */ +/*****************************************************************************/ + +STDTIME_RC DbTimeStampToStdTime ( + const STDTIME_WIN_DBTIMESTAMP * /*I*/ pDbTimeStamp, + STDTIME * /*O*/ pStdTime) + { + STDTIME_FIELDS stdTimeFields; + + STDTIME_ENUM_FUNC (DbTimeStampToStdTime) + + if (pStdTime == NULL) + { + STDTIME_RET_EC (null_argument); + } + + *pStdTime = ZeroStdTime (); + + if STDTIME_IF (DbTimeStampToStdTimeFields (pDbTimeStamp, &stdTimeFields)) + { + STDTIME_RET (StdTimeFieldsToStdTime (&stdTimeFields, pStdTime)); + } + + STDTIME_RET_RC; + + } /* DbTimeStampToStdTime */ + + +/*-***************************************************************************/ +/* StdTimeFieldsToDbTimeStamp */ +/* convert: StdTimeFields structure to DBTIMESTAMP */ +/*****************************************************************************/ + +STDTIME_RC StdTimeFieldsToDbTimeStamp ( + const STDTIME_FIELDS * /*I*/ pStdTimeFields, + STDTIME_WIN_DBTIMESTAMP * /*O*/ pDbTimeStamp) + { + STDTIME_ENUM_FUNC (StdTimeFieldsToDbTimeStamp) + + if (pDbTimeStamp == NULL) + { + STDTIME_RET_EC (null_argument); + } + + *pDbTimeStamp = StdTimeApiZeroDbTimeStamp(); + + if (pStdTimeFields == NULL) + { + STDTIME_RET_EC (null_argument); + } + + if STDTIME_IFNOT (ValidStdTimeFields (pStdTimeFields)) + { + STDTIME_RET_RC; + } + + pDbTimeStamp->year = (STDTIME_WIN_SHORT) pStdTimeFields->year; + pDbTimeStamp->month = (STDTIME_WIN_USHORT) pStdTimeFields->mon; + pDbTimeStamp->day = (STDTIME_WIN_USHORT) pStdTimeFields->day; + pDbTimeStamp->hour = (STDTIME_WIN_USHORT) pStdTimeFields->hour; + pDbTimeStamp->minute = (STDTIME_WIN_USHORT) pStdTimeFields->min; + pDbTimeStamp->second = (STDTIME_WIN_USHORT) pStdTimeFields->sec; + + /* a DBTIMESTAMP fraction is a number of nanoseconds, 0 to 999,999,999 */ + + pDbTimeStamp->fraction = (STDTIME_WIN_ULONG) + (pStdTimeFields->msec * 1000000) + + (pStdTimeFields->usec * 1000) + + (pStdTimeFields->nsec); + + STDTIME_RET_OK; + + } /* StdTimeFieldsToDbTimeStamp */ + + +/*-***************************************************************************/ +/* DbTimeStampToStdTimeFields */ +/* convert: DBTIMESTAMP to StdTimeFields structure */ +/*****************************************************************************/ + +STDTIME_RC DbTimeStampToStdTimeFields ( + const STDTIME_WIN_DBTIMESTAMP * /*I*/ pDbTimeStamp, + STDTIME_FIELDS * /*O*/ pStdTimeFields) + { + int32_t fraction; + + STDTIME_ENUM_FUNC (DbTimeStampToStdTimeFields) + + if (pStdTimeFields == NULL) + { + STDTIME_RET_EC (null_argument); + } + + *pStdTimeFields = ZeroStdTimeFields (); + + if (pDbTimeStamp == NULL) + { + STDTIME_RET_EC (null_argument); + } + + pStdTimeFields->year = (int32_t) pDbTimeStamp->year; + pStdTimeFields->mon = (int32_t) pDbTimeStamp->month; + pStdTimeFields->day = (int32_t) pDbTimeStamp->day; + + pStdTimeFields->hour = (int32_t) pDbTimeStamp->hour; + pStdTimeFields->min = (int32_t) pDbTimeStamp->minute; + pStdTimeFields->sec = (int32_t) pDbTimeStamp->second; + + fraction = (int32_t) pDbTimeStamp->fraction; + + /* limit fraction to valid range */ + + if (fraction < 0) + { + fraction = 0; + } + + else if (fraction > 999999999) + { + fraction = 999999999; + } + + pStdTimeFields->msec = (fraction / 1000000) % 1000; + pStdTimeFields->usec = (fraction / 1000) % 1000; + pStdTimeFields->nsec = (fraction % 1000); + + STDTIME_RET_OK; + + } /* DbTimeStampToStdTimeFields */ +#endif /* DbTimeStamp functions only for _WIN32 */ + + +/*** StructTmEx functions ****************************************************/ + +/*-***************************************************************************/ +/* StdTimeToStructTmEx */ +/* convert: StdTime structure to 'struct tm' and extra fields */ +/*****************************************************************************/ + +STDTIME_RC StdTimeToStructTmEx ( + const STDTIME * /*I*/ pStdTime, + struct tm * /*O*/ pStructTm, + int32_t * /*O*/ pNsec) /* optional */ + { + time_t timet; + int32_t nsec; + + STDTIME_ENUM_FUNC (StdTimeToStructTmEx) + + rc = StdTimeToTimeTypeEx (pStdTime, &timet, &nsec); + if (rc == STDTIME_OK) + { + if (Bool_StdTimeGmTimeR (&timet, pStructTm) != STDTIME_TRUE) + STDTIME_RET_EC (argument_out_of_range); + } + if (pNsec) + *pNsec = nsec; + STDTIME_RET_RC; + + } /* StdTimeToStructTmEx */ + +/*-***************************************************************************/ +/* StructTmExToStdTime */ +/* convert: 'struct tm' and extra fields to StdTime structure */ +/*****************************************************************************/ + +STDTIME_RC StructTmExToStdTime ( + const struct tm * /*I*/ pStructTm, + int32_t /*I*/ nNsec, + STDTIME * /*O*/ pStdTime) + { + time_t timet; + + STDTIME_ENUM_FUNC (StructTmExToStdTime) + + /* usr_mkgmtime doesn't accept const arg so must cast first. */ + if ((timet = usr_mkgmtime ((struct tm *) pStructTm)) < 0) + { + STDTIME_RET_EC (argument_out_of_range); + } + STDTIME_RET (TimeTypeExToStdTime (timet, nNsec, pStdTime)); + + } /* StructTmExToStdTime */ + + +/*** TimeTypeEx functions ************************************************ */ + +/************************************************************************/ +/* StdTimeToTimeTypeEx */ +/* convert: StdTime struct to time_t plus nanoseconds */ +/************************************************************************/ +STDTIME_RC StdTimeToTimeTypeEx ( + const STDTIME * /*I*/ pStdTime, + time_t * /*O*/ pTimeT, + int32_t * /*O*/ pNsec) + { + QUADLIB_U64 qFileTime; + QUADLIB_U64 qValue, qOffset; + QUADLIB_U64 qRemainder; + int32_t nsec; + + STDTIME_ENUM_FUNC (StdTimeToTimeTypeEx) + + /* Check that *pStdTime is not before 1970 (illegal). */ + if (pStdTime->dwHighDateTime < FILETIME_1970_HIGH || + (pStdTime->dwHighDateTime == FILETIME_1970_HIGH && + pStdTime->dwLowDateTime < FILETIME_1970_LOW)) + STDTIME_RET_EC (argument_out_of_range); + + FILETIME_TO_QUADLIB_U64 (pStdTime, &qFileTime); + + /* This just divides by 10000000 to get seconds since 1601 */ + qValue = QUADLIB_I64_DIV ( + qFileTime, + QUADLIB_I64_CASTI32 (PVT_STDTIME_SCALE_FILETIME) ); + + /* Get remainder. */ + qRemainder = QUADLIB_I64_MOD ( + qFileTime, + QUADLIB_I64_CASTI32 (PVT_STDTIME_SCALE_FILETIME) ); + + /* Convert remainder to nanoseconds */ + nsec = (QUADLIB_I32_CASTI64 (qRemainder)) * 100; + if (pNsec != NULL) + *pNsec = nsec; + + /* Subtract number of seconds from 1601 to 1970. */ + QUADLIB_U64_HI(qOffset) = SECONDS_FROM_1601_TO_1970_HIGH; + QUADLIB_U64_LO(qOffset) = SECONDS_FROM_1601_TO_1970_LOW; + QUADLIB_I64_SUB_EQ (qValue, qOffset); /* modifies qValue */ + + /* Cast to time_t. */ +#ifdef STDTIME_TIME_T64_ENABLED + *pTimeT = QUADLIB_I64N_CASTI64(qValue); +#else + /* DEBUG: should check for qValue out of range before this cast.*/ + *pTimeT = QUADLIB_I32_CASTI64 (qValue); +#endif + return (STDTIME_OK); + } /* StdTimeToTimeTypeEx */ + +/************************************************************************/ +/* TimeTypeExToStdTime */ +/* convert: time_t plus nanoseconds to StdTime struct */ +/************************************************************************/ +STDTIME_RC TimeTypeExToStdTime ( + time_t /*I*/ timet, + int32_t /*I*/ nsec, + STDTIME * /*O*/ pStdTime) + { + QUADLIB_U64 qValue, qOffset; + + STDTIME_ENUM_FUNC (TimeTypeExToStdTime) + + if (pStdTime == NULL) + { + STDTIME_RET_EC (null_argument); + } + + if (timet < 0) + { + STDTIME_RET_EC (argument_out_of_range); + } + +#ifdef STDTIME_TIME_T64_ENABLED + QUADLIB_U64_HI(qValue) = QUADLIB_U64_HI(timet); + QUADLIB_U64_LO(qValue) = QUADLIB_U64_LO(timet); +#else + QUADLIB_U64_HI(qValue) = 0; + QUADLIB_U64_LO(qValue) = timet; +#endif + + /* Add number of seconds from 1601 to 1970. */ + QUADLIB_U64_HI(qOffset) = SECONDS_FROM_1601_TO_1970_HIGH; + QUADLIB_U64_LO(qOffset) = SECONDS_FROM_1601_TO_1970_LOW; + QUADLIB_I64_ADD_EQ (qValue, qOffset); /* modifies qValue */ + + /* Multiply seconds by 10000000 */ + qValue = QUADLIB_I64_MUL ( + qValue, + QUADLIB_I64_CASTI32 (PVT_STDTIME_SCALE_FILETIME) ); + + + /* Divide nsec by 100 to get num of "100-nanoseccond" intervals & add them.*/ + QUADLIB_U64_HI(qOffset) = 0; + QUADLIB_U64_LO(qOffset) = nsec / 100; + QUADLIB_I64_ADD_EQ (qValue, qOffset); /* modifies qValue */ + + QUADLIB_I64_TO_FILETIME (&qValue, pStdTime); + return (STDTIME_OK); + } /* TimeTypeExToStdTime */ + + +/*** Constructor-like functions **********************************************/ + +/*-***************************************************************************/ +/* StdTimeFields */ +/* construct a STDTIME_FIELDS structure from parameters */ +/*****************************************************************************/ + + +STDTIME_FIELDS StdTimeFields ( + int32_t /*I*/ year, + int32_t /*I*/ mon, + int32_t /*I*/ day, + int32_t /*I*/ hour, + int32_t /*I*/ min, + int32_t /*I*/ sec, + int32_t /*I*/ msec, + int32_t /*I*/ usec, + int32_t /*I*/ nsec) + { + STDTIME_FIELDS x; + + x.year = year; + x.mon = mon; + x.day = day; + x.hour = hour; + x.min = min; + x.sec = sec; + x.msec = msec; + x.usec = usec; + x.nsec = nsec; + + return x; + + } /* StdTimeFields */ + + +/*-***************************************************************************/ +/* StdTimeDelta */ +/* construct a STDTIME_DELTA structure from parameters */ +/*****************************************************************************/ + + +STDTIME_DELTA StdTimeDelta ( + int32_t /*I*/ day, + int32_t /*I*/ hour, + int32_t /*I*/ min, + int32_t /*I*/ sec, + int32_t /*I*/ msec, + int32_t /*I*/ usec, + int32_t /*I*/ nsec) + { + STDTIME_DELTA x; + + x.day = day; + x.hour = hour; + x.min = min; + x.sec = sec; + x.msec = msec; + x.usec = usec; + x.nsec = nsec; + + return x; + + } /* StdTimeDelta */ + + +/*-***************************************************************************/ +/* StdTimeSpan */ +/* construct a STDTIME structure from parameters */ +/*****************************************************************************/ + + +STDTIME_SPAN StdTimeSpan ( + QUADLIB_I64 /*I*/ value) + { + STDTIME_SPAN x; + + x.value = value; + + return x; + + } /* StdTimeSpan */ + + +/*** Initializer functions ***************************************************/ + + +/*-***************************************************************************/ +/* ZeroStdTime */ +/* return a zero value of type STDTIME */ +/*****************************************************************************/ + +STDTIME ZeroStdTime () + { + STDTIME zero = {0}; + + return zero; + + } /* ZeroStdTime */ + + +/*-***************************************************************************/ +/* ZeroStdTimeFields */ +/* return a zero value of type STDTIME_FIELDS */ +/*****************************************************************************/ + +STDTIME_FIELDS ZeroStdTimeFields () + { + STDTIME_FIELDS zero = {0}; + + return zero; + + } /* ZeroStdTimeFields */ + + +/*-***************************************************************************/ +/* ZeroStdTimeStringA */ +/* return a zero value of type STDTIME_STRINGA */ +/*****************************************************************************/ + +STDTIME_STRINGA ZeroStdTimeStringA () + { + STDTIME_STRINGA zero = {{0}}; + + return zero; + + } /* ZeroStdTimeStringA */ + + +/*-***************************************************************************/ +/* ZeroStdTimeDelta */ +/* return a zero value of type STDTIME_DELTA */ +/*****************************************************************************/ + +STDTIME_DELTA ZeroStdTimeDelta () + { + STDTIME_DELTA zero = {0}; + + return zero; + + } /* ZeroStdTimeDelta */ + + +/*-***************************************************************************/ +/* ZeroStdTimeSpan */ +/* return a zero value of type STDTIME_SPAN */ +/*****************************************************************************/ + +STDTIME_SPAN ZeroStdTimeSpan () + { + STDTIME_SPAN zero = {0}; + + return zero; + + } /* ZeroStdTimeSpan */ + + +/*-***************************************************************************/ +/* ZeroStdTimeTzoA */ +/* return a zero value of type STDTIME_TZOA */ +/*****************************************************************************/ + +STDTIME_TZOA ZeroStdTimeTzoA () + { + STDTIME_TZOA zero = {{0}}; + + return zero; + + } /* ZeroStdTimeTzoA */ + + +/*-***************************************************************************/ +/* ZeroStdTimeErrMsgA */ +/* return a zero value of type STDTIME_ERRMSGA */ +/*****************************************************************************/ + +STDTIME_ERRMSGA ZeroStdTimeErrMsgA () + { + STDTIME_ERRMSGA zero = {{0}}; + + return zero; + + } /* ZeroStdTimeErrMsgA */ + + +/*-***************************************************************************/ +/* ZeroStdTimeErrMsgW */ + + +/*** Initializer functions for 'outside' types *******************************/ +/*** names prefixed with 'StdTimeApi' because they are non-STDTIME structs ***/ + +/*-***************************************************************************/ +/* StdTimeApiZeroFileTime */ +/* return a zero value of type STDTIME_WIN_FILETIME */ +/*****************************************************************************/ + +STDTIME_WIN_FILETIME StdTimeApiZeroFileTime () + { + STDTIME_WIN_FILETIME zero = {0}; + + return zero; + + } /* StdTimeApiZeroFileTime */ + + +/*-***************************************************************************/ +/* StdTimeApiZeroSystemTime */ +/* return a zero value of type STDTIME_WIN_SYSTEMTIME */ +/*****************************************************************************/ + +STDTIME_WIN_SYSTEMTIME StdTimeApiZeroSystemTime () + { + STDTIME_WIN_SYSTEMTIME zero = {0}; + + return zero; + + } /* StdTimeApiZeroSystemTime */ + + +/*-***************************************************************************/ +/* StdTimeApiZeroStructTm */ +/* return a zero value of type struct tm */ +/*****************************************************************************/ + +struct tm StdTimeApiZeroStructTm () + { + struct tm zero = {0}; + + return zero; + + } /* StdTimeApiZeroStructTm */ + + +/*** calandar function interface *********************************************/ + + +/*-***************************************************************************/ +/* OBTAIN DAY OF WEEK AND DAY OF WEEK */ +/* This provides an interface to the W32 layer, which we do not want to */ +/* expose to the user. */ +/*****************************************************************************/ + +STDTIME_RC StdTimeGetDayofWeekAndYear ( + int32_t /*I*/ nYear, + int32_t /*I*/ nMon, + int32_t /*I*/ nDayofMon, + int32_t * /*O*/ pDayofWeek, + int32_t * /*O*/ pDayofYear) + { + STDTIME_ENUM_FUNC (StdTimeGetDayofWeekAndYear) + + STDTIME_RET (StdTimeW32GetDayofWeekAndYear ( + nYear, nMon, nDayofMon, pDayofWeek, pDayofYear)); + } + + +#if defined(_WIN32) +/*** Date functions (COM DATE) ***********************************************/ + +/************************************************************************/ +/* FileTimeToDate */ +/* RETURNS: 0=SUCCESS, 1=FAILURE */ +/************************************************************************/ +static int FileTimeToDate(const FILETIME *pft, double *pdate) + { + /* Don't allow FILETIME before 1899 (causes negative DATE). */ + if (*(__int64 *)pft < 0x014f35a9a90cc000) + { + *pdate = 0.0; /* set to bad value in case caller ignores return*/ + return (1); /* error */ + } + *pdate = (double)((double)(*(__int64 *)pft) / 8.64e11) - (double)(363 + (1899 - 1601) * 365 + (24 + 24 + 24)); + assert (*pdate >= 0.0); + return (0); /* success */ + } +/************************************************************************/ +/* DateToFileTime */ +/* RETURNS: 0=SUCCESS, 1=FAILURE */ +/************************************************************************/ +static int DateToFileTime(const double *pdate, FILETIME *pft) + { + __int64 temp; + if (*pdate < 0.0) /* negative date too complicated to deal with */ + { + temp = 0; + *pft = *(FILETIME *)&temp; /* set to bad value in case caller ignores return*/ + return (1); /* error */ + } + /* NOTE: this casts double to _int64 (some precision lost). */ + temp = (__int64)((*pdate + (double)(363 + (1899 - 1601) * 365 + (24 + 24 + 24))) * 8.64e11); + *pft = *(FILETIME *)&temp; + return (0); /* success */ + } + +/*-***************************************************************************/ +/* StdTimeToDate */ +/* convert: StdTime structure to DATE time value */ +/*****************************************************************************/ + +STDTIME_RC StdTimeToDate ( + const STDTIME * /*I*/ pStdTime, + STDTIME_WIN_DATE * /*O*/ pDate) + { + STDTIME_ENUM_FUNC (StdTimeToDate) + + /* STDTIME same as FILETIME, so this works. */ + if (FileTimeToDate (pStdTime, pDate)) + STDTIME_RET_EC (argument_out_of_range); + STDTIME_RET_OK; + } /* StdTimeToDate */ + +/*-***************************************************************************/ +/* DateToStdTime */ +/* convert: DATE time value to StdTime structure */ +/*****************************************************************************/ + +STDTIME_RC DateToStdTime ( + const STDTIME_WIN_DATE * /*I*/ pDate, + STDTIME * /*O*/ pStdTime) + { + STDTIME_ENUM_FUNC (DateToStdTime) + + /* STDTIME same as FILETIME, so this works. */ + if (DateToFileTime (pDate, pStdTime)) + STDTIME_RET_EC (argument_out_of_range); + STDTIME_RET_OK; + } /* DateToStdTime */ + +/*-***************************************************************************/ +/* StdTimeFieldsToDate */ +/* convert: StdTime structure to DATE time value */ +/*****************************************************************************/ + +STDTIME_RC StdTimeFieldsToDate ( + const STDTIME_FIELDS * /*I*/ pStdTimeFields, + STDTIME_WIN_DATE * /*O*/ pDate) + { + STDTIME StdTime; + + STDTIME_ENUM_FUNC (StdTimeFieldsToDate) + + rc = StdTimeFieldsToStdTime (pStdTimeFields, &StdTime); + if (rc == STDTIME_OK) + rc = StdTimeToDate (&StdTime, pDate); + return (rc); + } /* StdTimeFieldsToDate */ + +/*-***************************************************************************/ +/* DateToStdTimeFields */ +/* convert: DATE time value to StdTimeFields structure */ +/*****************************************************************************/ + +STDTIME_RC DateToStdTimeFields ( + const STDTIME_WIN_DATE * /*I*/ pDate, + STDTIME_FIELDS * /*O*/ pStdTimeFields) + { + STDTIME StdTime; + + STDTIME_ENUM_FUNC (DateToStdTimeFields) + + rc = DateToStdTime (pDate, &StdTime); + if (rc == STDTIME_OK) + rc = StdTimeToStdTimeFields (&StdTime, pStdTimeFields); + return (rc); + } /* DateToStdTimeFields */ + +#endif /* defined(_WIN32) */ + +/*-***************************************************************************/ +/* StdTimeToLocalStdTime */ +/* convert: StdTime structure from UTC/GMT time to local time */ +/* if not using TZDB, use local host to speed up conversion */ +/*****************************************************************************/ + +STDTIME_RC StdTimeToLocalStdTime ( + const STDTIME * /*I*/ pStdTime, + STDTIME * /*O*/ pStdTimeLocal) + { + STDTIME_ENUM_FUNC (StdTimeToLocalStdTime) + { + STDTIME_WIN_FILETIME gmtFileTime; + STDTIME_WIN_FILETIME locFileTime; + + if STDTIME_IFNOT (StdTimeToFileTime (pStdTime, &gmtFileTime)) + { + STDTIME_RET_RC; + } + + if (! STDTIME_API_FILETIMETOLOCALFILETIME (&gmtFileTime, &locFileTime)) + { + STDTIME_RET_EC (failure_in_api_FileTimeToLocalFileTime); + } + + STDTIME_RET (FileTimeToStdTime (&locFileTime, pStdTimeLocal)); + } + } /* StdTimeToLocalStdTime */ + + +/*-***************************************************************************/ +/* LocalStdTimeToStdTime */ +/* convert: StdTime structure from local time to UTC/GMT time */ +/* if not using TZDB, use local host to speed up conversion */ +/*****************************************************************************/ + +STDTIME_RC LocalStdTimeToStdTime ( + const STDTIME * /*I*/ pStdTimeLocal, + STDTIME * /*O*/ pStdTime) + { + STDTIME_ENUM_FUNC (LocalStdTimeToStdTime) + + { + STDTIME_WIN_FILETIME gmtFileTime; + STDTIME_WIN_FILETIME locFileTime; + + if STDTIME_IFNOT (StdTimeToFileTime (pStdTimeLocal, &locFileTime)) + { + STDTIME_RET_RC; + } + + if (! STDTIME_API_LOCALFILETIMETOFILETIME (&locFileTime, &gmtFileTime)) + { + STDTIME_RET_EC (failure_in_api_LocalFileTimeToFileTime); + } + + STDTIME_RET (FileTimeToStdTime (&gmtFileTime, pStdTime)); + } + } /* LocalStdTimeToStdTime */ + + +/*** timezone-offset support functions ***************************************/ + + +/*-***************************************************************************/ +/* NormalizeStdTimeTzoA */ +/* if timezone offset string is in a valid format, normalize it. */ +/* normalization involves the following: */ +/* */ +/* 1. a 'z' code is converted to 'Z' */ +/* 2. if the ss field is zero, it is dropped */ +/* 3. if all numeric fields are zero, the offset string becomes Z */ +/* 4. trailing blanks are removed, and replaced by nuls */ +/* */ +/*****************************************************************************/ + + +STDTIME_RC NormalizeStdTimeTzoA ( + STDTIME_TZOA * /*IO*/ pTzo) + { + STDTIME_TZOA tzoA = {{0}}; + int32_t hour; + int32_t min; + int32_t sec; + + STDTIME_ENUM_FUNC (NormalizeStdTimeTzoA) + + if (pTzo == NULL) + { + STDTIME_RET_EC (null_argument); + } + + /* limit input tzo string to declared length, jic */ + + pTzo->str[STDTIME_TZO_LEN] = 0; + + /* see if timezone offset is omitted */ + + if (Bool_StdTime_IsBlankA (pTzo->str)) + { + *pTzo = tzoA; /* clear out entire TZO field */ + STDTIME_RET_OK; + } + + if ((pTzo->str[0] == 'z') || (pTzo->str[0] == 'Z')) + { + if (Bool_StdTime_IsBlankA (pTzo->str+1)) + { + /* normalize Z and pad field with nuls */ + tzoA.str[0] = 'Z'; + *pTzo = tzoA; + STDTIME_RET_OK; + } + } + + if ((pTzo->str[0] != '+') && (pTzo->str[0] != '-')) + { + STDTIME_RET_EC (invalid_timezone_offset); + } + + if ( (! isdigit (pTzo->str[1])) + || (! isdigit (pTzo->str[2])) + || ( pTzo->str[3] != ':') + || (! isdigit (pTzo->str[4])) + || (! isdigit (pTzo->str[5])) ) + { + STDTIME_RET_EC (invalid_timezone_offset); + } + + hour = atoi (pTzo->str+1); + min = atoi (pTzo->str+4); + + if (! STDTIME_IN_RANGE (hour, 0, 23)) + { + STDTIME_RET_EC (invalid_hour); + } + + if (! STDTIME_IN_RANGE (min, 0, 59)) + { + STDTIME_RET_EC (invalid_min); + } + + /* determine whether we have short form or long form */ + /* long form: validate 'ss' digits */ + + if (pTzo->str[6] == ':') + { + if ( (! isdigit (pTzo->str[7])) + || (! isdigit (pTzo->str[8])) ) + { + STDTIME_RET_EC (invalid_timezone_offset); + } + + sec = atoi (pTzo->str+7); + + if (! STDTIME_IN_RANGE (sec, 0, 59)) + { + STDTIME_RET_EC (invalid_sec); + } + + if (! Bool_StdTime_IsBlankA (pTzo->str+9)) + { + STDTIME_RET_EC (invalid_timezone_offset); + } + } + + /* short form: ensure we are at end of string */ + + else + { + if (! Bool_StdTime_IsBlankA (pTzo->str+6)) + { + STDTIME_RET_EC (invalid_timezone_offset); + } + + sec = 0; + } + + /* now, normalize the format */ + + if ((hour == 0) && (min == 0) && (sec == 0)) + { + /* if all fields zero, it is GMT time */ + /* normalize Z and pad field with nuls */ + tzoA.str[0] = 'Z'; + *pTzo = tzoA; + STDTIME_RET_OK; + } + + if (sec == 0) + { + /* +hh:mm or -hh:mm format */ + sprintf (tzoA.str, "%c%02d:%02d", pTzo->str[0], hour, min); + } + + else + { + /* +hh:mm:ss or -hh:mm:ss format */ + sprintf (tzoA.str, "%c%02d:%02d:%02d", pTzo->str[0], hour, min, sec); + } + + *pTzo = tzoA; /* copy back reformatted tzoA */ + STDTIME_RET_OK; + + } /* NormalizeStdTimeTzoA */ + + +/*** error message decoding functions ****************************************/ + + +/*-***************************************************************************/ +/* StdTimeRcToErrMsgA */ +/* interpret STDTIME_RC value and convert to a STDTIME_ERRMSGA structure. */ +/*****************************************************************************/ + +STDTIME_RC StdTimeRcToErrMsgA ( + const STDTIME_RC /*I*/ stdTimeRc, + STDTIME_ERRMSGA * /*O*/ pErrMsg) + { + STDTIME_ERRMSGA errMsg = {{0}}; + int32_t hilevel; + int32_t lolevel; + int32_t reason; + int32_t i; + + STDTIME_ENUM_FUNC (StdTimeRcToErrMsgA) + + if (pErrMsg == NULL) + { + STDTIME_RET_EC (null_argument); + } + + *pErrMsg = ZeroStdTimeErrMsgA (); + + /* a STDTIME_RC has the following bit layout */ + /* bits 31-30(2) unused */ + /* bits 29-20(10) hi-level function enum */ + /* bits 19-10(10) lo-level function enum */ + /* bits 09-00(10) error reason code */ + + hilevel = (stdTimeRc >> 20) & 0x3FF; + lolevel = (stdTimeRc >> 10) & 0x3FF; + reason = stdTimeRc & 0x3FF; + + /* an error code has the form 0xNNNNNNNN = HHHH.LLLL.RRRR# */ + /* 0123456789012345678901234567 */ + /* this holds a raw hex RC value, and the RC as decimal subfields */ + + sprintf (errMsg.errcode, "0x%08X = %04d.%04d.%04d", + stdTimeRc, hilevel, lolevel, reason); + + if ((stdTimeRc & 0xC0000000) != 0) + { + strncpy (errMsg.hilevel, "*** invalid STDTIME_RC value", + STDTIME_ERRMSG_LEN); + + *pErrMsg = errMsg; /* pass back result */ + STDTIME_RET_EC (invalid_stdtime_rc_value); + } + + /* the first entry is at STDTIME_FUNC__0000 with an enum value of 0 */ + /* enum 0 is "valid" but 0 is not used for error return codes, because */ + /* a STDTIME_RC of 0 means there is no error, so 0 is skipped. */ + /* example: suppose there were 10 entries; they would have enum's 1 to 10 */ + /* the last entry is at STDTIME_FUNC__SIZE with (example) enum value of 11 */ + + if (hilevel < (STDTIME_RC) STDTIME_FUNC__SIZE) + { + strncpy (errMsg.hilevel, enum_stdtime_func_text[hilevel], + STDTIME_ERRMSG_LEN); + } + + else + { + strncpy (errMsg.hilevel, "*** undefined hilevel function", + STDTIME_ERRMSG_LEN); + } + + if (lolevel < (STDTIME_RC) STDTIME_FUNC__SIZE) + { + strncpy (errMsg.lolevel, enum_stdtime_func_text[lolevel], + STDTIME_ERRMSG_LEN); + } + + else + { + strncpy (errMsg.lolevel, "*** undefined lolevel function", + STDTIME_ERRMSG_LEN); + } + + if (reason < (STDTIME_RC) STDTIME_ERR__SIZE) + { + strncpy (errMsg.reason, enum_stdtime_err_text[reason], + STDTIME_ERRMSG_LEN); + } + + else + { + strncpy (errMsg.reason, "*** undefined reason code", + STDTIME_ERRMSG_LEN); + } + + errMsg.hilevel[STDTIME_ERRMSG_LEN] = 0; + errMsg.lolevel[STDTIME_ERRMSG_LEN] = 0; + errMsg.reason [STDTIME_ERRMSG_LEN] = 0; + + /* remove underscores from reason message */ + /* the underscores were necessary for the macro to form an enum name */ + /* but we don't want them literally present in the message */ + + for (i=0; errMsg.reason[i]; i++) + { + if (errMsg.reason[i] == '_') + { + errMsg.reason[i] = ' '; + } + } + + *pErrMsg = errMsg; /* pass back result */ + + STDTIME_RET_RC; + + } /* StdTimeRcToErrMsgA */ + + +/*** END - STDTIME.C *********************************************************/ + + diff --git a/mmslib/util/stdtime_mms_btime.c b/mmslib/util/stdtime_mms_btime.c new file mode 100644 index 0000000..cc53df0 --- /dev/null +++ b/mmslib/util/stdtime_mms_btime.c @@ -0,0 +1,194 @@ +/*****************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER **********************************************/ +/*****************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2006 All Rights Reserved */ +/* */ +/* MODULE NAME : stdtime_mms_btime.c */ +/* PRODUCT(S) : Standard Time Management Library */ +/* */ +/* MODULE DESCRIPTION: */ +/* Support for MMS Btime4, BTime6 and BTOD conversions to/from STDTIME */ +/* */ +/* MODIFICATION LOG: */ +/* Date Who Rev Comments */ +/* -------- --- --- ----------------------------------------------------- */ +/* 02/20/08 JRB 02 Make STDTIME same as FILETIME (simplifies a lot). */ +/* Move T84_* defines to header file. */ +/* Del TimeOfDay4, Btod, and StdTimeFields functions. */ +/* 10/05/06 RLH 01 Created */ +/*****************************************************************************/ + + +#include "stdtime.h" +#include "stdtime_mms_btime.h" + +/*** MmsTimeOfDay6 initialization functions ***************************/ + + +STDTIME_MMS_TIMEOFDAY6 StdTimeApiZeroMmsTimeOfDay6 () + { + STDTIME_MMS_TIMEOFDAY6 zero = {0}; + + return zero; + + } /* StdTimeApiZeroMmsTimeOfDay6 */ + + +/*** MmsTimeOfDay6Ex functions ***********************************************/ + + +/*-***************************************************************************/ +/* StdTimeToMmsTimeOfDay6Ex */ +/* convert: StdTime struct to MMS_TIMEOFDAY6 and extra fields */ +/* method: subtract 1984-01-01 from stdTime to form delta */ +/*****************************************************************************/ + +STDTIME_RC StdTimeToMmsTimeOfDay6Ex ( + const STDTIME * /*I*/ pStdTime, + STDTIME_MMS_TIMEOFDAY6 * /*O*/ pMmsTimeOfDay6, + int32_t * /*O*/ pUsec, + int32_t * /*O*/ pNsec) + { + /* pre-calculated STDTIME value of 1984-01-01 00:00:00.0000000 */ + STDTIME t84; /* initialized below */ + + STDTIME_DELTA mms; + + STDTIME_ENUM_FUNC (StdTimeToMmsTimeOfDay6Ex) + + if (pStdTime->dwHighDateTime < T84_HIGHDATETIME || + (pStdTime->dwHighDateTime == T84_HIGHDATETIME && + pStdTime->dwLowDateTime < T84_LOWDATETIME)) + { + STDTIME_RET_EC (MMS_year_LT_1984); + } + + t84.dwHighDateTime = T84_HIGHDATETIME; /* initialize */ + t84.dwLowDateTime = T84_LOWDATETIME; + + if (pMmsTimeOfDay6 == NULL) + { + STDTIME_RET_EC (null_argument); + } + + *pMmsTimeOfDay6 = StdTimeApiZeroMmsTimeOfDay6(); + + /* form difference between supplied date and 1984 */ + + if STDTIME_IFNOT (StdTime_GetDelta (pStdTime, &t84, &mms)) + { + STDTIME_RET_RC; + } + + pMmsTimeOfDay6->day = mms.day; + + pMmsTimeOfDay6->ms = + (mms.hour * 60 * 60 * 1000) + + (mms.min * 60 * 1000) + + (mms.sec * 1000) + mms.msec; + + if (pUsec != NULL) + { + *pUsec = mms.usec; + } + + if (pNsec != NULL) + { + *pNsec = mms.nsec; + } + + STDTIME_RET_OK; + + } /* StdTimeToMmsTimeOfDay6Ex */ + + +/*-***************************************************************************/ +/* MmsTimeOfDay6ExToStdTime */ +/* convert: MMS_TIMEOFDAY6 and extra fields to StdTime struct */ +/* method: add MMS days and msec to base value of 1984-01-01 */ +/*****************************************************************************/ + +STDTIME_RC MmsTimeOfDay6ExToStdTime ( + const STDTIME_MMS_TIMEOFDAY6 * /*I*/ pMmsTimeOfDay6, + int32_t /*I*/ nUsec, + int32_t /*I*/ nNsec, + STDTIME * /*O*/ pStdTime) + { + /* pre-calculated STDTIME value of 1984-01-01 00:00:00.0000000 */ + STDTIME t84; /* initialized below */ + STDTIME_DELTA mms = {0}; + + STDTIME_ENUM_FUNC (MmsTimeOfDay6ExToStdTime) + + t84.dwHighDateTime = T84_HIGHDATETIME; /* initialize */ + t84.dwLowDateTime = T84_LOWDATETIME; + + if (pStdTime == NULL) + { + STDTIME_RET_EC (null_argument); + } + + *pStdTime = ZeroStdTime (); + + if (pMmsTimeOfDay6 == NULL) + { + STDTIME_RET_EC (null_argument); + } + + *pStdTime = ZeroStdTime(); + + /* create delta from 1984-01-01 */ + + mms.day = pMmsTimeOfDay6->day; + mms.msec = pMmsTimeOfDay6->ms; + mms.usec = nUsec; + mms.nsec = nNsec; + + /* add mms displacement to mms epoch date of Jan 1 1984 */ + + if STDTIME_IFNOT (StdTime_AddDelta (&t84, &mms)) + { + STDTIME_RET_RC; + } + + *pStdTime = t84; + + STDTIME_RET_OK; + + } /* MmsTimeOfDay6ExToStdTime */ + + +/*** MmsTimeOfDay6 functions *************************************************/ + + +/*-***************************************************************************/ +/* StdTimeToMmsTimeOfDay6 */ +/* convert: StdTime struct to MMS_TIMEOFDAY6 (without extra fields) */ +/*****************************************************************************/ + +STDTIME_RC StdTimeToMmsTimeOfDay6 ( + const STDTIME * /*I*/ pStdTime, + STDTIME_MMS_TIMEOFDAY6 * /*O*/ pMmsTimeOfDay6) + { + STDTIME_ENUM_FUNC (StdTimeToMmsTimeOfDay6) + + STDTIME_RET (StdTimeToMmsTimeOfDay6Ex (pStdTime, pMmsTimeOfDay6, NULL, NULL)); + + } /* StdTimeToMmsTimeOfDay6 */ + + +/*-***************************************************************************/ +/* MmsTimeOfDay6ToStdTime */ +/* convert: MMS_TIMEOFDAY6 (without extra fields) to StdTime struct */ +/*****************************************************************************/ + +STDTIME_RC MmsTimeOfDay6ToStdTime ( + const STDTIME_MMS_TIMEOFDAY6 * /*I*/ pMmsTimeOfDay6, + STDTIME * /*O*/ pStdTime) + { + STDTIME_ENUM_FUNC (MmsTimeOfDay6ToStdTime) + + STDTIME_RET (MmsTimeOfDay6ExToStdTime (pMmsTimeOfDay6, 0, 0, pStdTime)); + + } /* MmsTimeOfDay6ToStdTime */ diff --git a/mmslib/util/stdtime_mms_utctime.c b/mmslib/util/stdtime_mms_utctime.c new file mode 100644 index 0000000..904e53e --- /dev/null +++ b/mmslib/util/stdtime_mms_utctime.c @@ -0,0 +1,169 @@ +/*****************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER **********************************************/ +/*****************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2006 All Rights Reserved */ +/* */ +/* MODULE NAME : stdtime_mms_utctime.c */ +/* PRODUCT(S) : Standard Time Management Library */ +/* */ +/* MODULE DESCRIPTION: */ +/* Support for MMS UTC TIME conversions to/from STDTIME */ +/* */ +/* MODIFICATION LOG: */ +/* Date Who Rev Comments */ +/* -------- --- --- ----------------------------------------------------- */ +/* 02/20/08 JRB 02 Simplified StdTimeToMmsUtcTime (fixes rounding bug). */ +/* Simplified MmsUtcTimeToStdTime. */ +/* Delete StdTimeFields functions. */ +/* 10/05/06 RLH 01 Created */ +/*****************************************************************************/ + + +#include "stdtime.h" +#include "stdtime_mms_utctime.h" + + +/*** MmsUtcTime initialization function **************************************/ + + +STDTIME_MMS_UTC_TIME StdTimeApiZeroMmsUtcTime () + { + STDTIME_MMS_UTC_TIME zero = {0}; + + return zero; + + } /* StdTimeApiZeroMmsUtcTime */ + + +/*** MmsUtcTime functions ****************************************************/ + + +/*-***************************************************************************/ +/* StdTimeToMmsUtcTime */ +/* convert: StdTime structure to MMS_UTC_TIME */ +/* method: convert to TIMETYPE, then calculate binary fraction of second */ +/*****************************************************************************/ + +STDTIME_RC StdTimeToMmsUtcTime ( + const STDTIME * /*I*/ pStdTime, + STDTIME_MMS_UTC_TIME * /*O*/ pMmsUtcTime) + { + QUADLIB_I64 qFrac; + QUADLIB_I64 qRem; + QUADLIB_I64 q10_7; + QUADLIB_I64 q2_24; + time_t timet; + int32_t nsec; + + STDTIME_ENUM_FUNC (StdTimeToMmsUtcTime) + + + if (pMmsUtcTime == NULL) + { + STDTIME_RET_EC (null_argument); + } + + if STDTIME_IFNOT (StdTimeToTimeTypeEx (pStdTime, &timet, &nsec)) + { + STDTIME_RET_RC; + } + + /* Init qFrac to number of 100-nsec intervals. */ + QUADLIB_I64_HI(qFrac) = 0; + QUADLIB_I64_LO(qFrac) = nsec / 100; + + QUADLIB_I64_HI(q10_7) = 0; + QUADLIB_I64_LO(q10_7) = 10000000; + + QUADLIB_I64_HI(q2_24) = 0; + QUADLIB_I64_LO(q2_24) = 0x1000000; + + /* multiply by range of UTC fraction */ + + QUADLIB_I64_MUL_EQ (qFrac, q2_24); + + /* divide out number of 100-ns intervals */ + /* as 100-ns intervals approaches 10_7, frac approaches 2_24 */ + + qFrac = QuadLibI64DivMod (qFrac, q10_7, &qRem); + + /* assign UTC values to output argument */ + + pMmsUtcTime->secs = (int32_t) timet; + pMmsUtcTime->fraction = (int32_t) QUADLIB_I64_LO(qFrac); + pMmsUtcTime->qflags = 0; /* IS THIS CORRECT ? */ + + STDTIME_RET_OK; + + } /* StdTimeToMmsUtcTime */ + + +/*-***************************************************************************/ +/* MmsUtcTimeToStdTime */ +/* convert: MMS_UTC_TIME to StdTime structure */ +/*****************************************************************************/ + +STDTIME_RC MmsUtcTimeToStdTime ( + const STDTIME_MMS_UTC_TIME * /*I*/ pMmsUtcTime, + STDTIME * /*O*/ pStdTime) + { + QUADLIB_I64 qFrac; + QUADLIB_I64 qRem; + QUADLIB_I64 q10_7; + QUADLIB_I64 q2_24; + int32_t nsec; /* nanoseconds */ + + STDTIME_ENUM_FUNC (MmsUtcTimeToStdTime) + + if (pStdTime == NULL) + { + STDTIME_RET_EC (null_argument); + } + + *pStdTime = ZeroStdTime (); + + if (pMmsUtcTime == NULL) + { + STDTIME_RET_EC (null_argument); + } + + /* Convert fraction to nsec, then call TimeTypeExToStdTime. */ + + /* obtain number of binary fractional units */ + + QUADLIB_I64_HI(q10_7) = 0; + QUADLIB_I64_LO(q10_7) = 10000000; + + QUADLIB_I64_HI(q2_24) = 0; + QUADLIB_I64_LO(q2_24) = 0x1000000; + + QUADLIB_I64_HI(qFrac) = 0; + QUADLIB_I64_LO(qFrac) = pMmsUtcTime->fraction; + + + /* multiply by range of 100-ns intervals */ + + QUADLIB_I64_MUL_EQ (qFrac, q10_7); + + /* divide out number of binary fractional units */ + /* as fractional units approach 2**24, frac approaches 10**7 */ + + qFrac = QuadLibI64DivMod (qFrac, q2_24, &qRem); + + if (QUADLIB_I64_LO(qRem) >= (10000000 / 2)) + { + QUADLIB_I64_LO(qFrac)++; /* ROUND UP */ + } + + nsec = (QUADLIB_I32_CASTI64 (qFrac)) * 100; + + /* Convert and put result at pointer pStdTime. */ + if STDTIME_IFNOT (TimeTypeExToStdTime (pMmsUtcTime->secs, nsec, pStdTime)) + { + STDTIME_RET_RC; + } + STDTIME_RET_OK; + + } /* MmsUtcTimeToStdTime */ + diff --git a/mmslib/util/stdtime_quadlib.c b/mmslib/util/stdtime_quadlib.c new file mode 100644 index 0000000..fb02a28 --- /dev/null +++ b/mmslib/util/stdtime_quadlib.c @@ -0,0 +1,1599 @@ +/*****************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER **********************************************/ +/*****************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2005 All Rights Reserved */ +/* */ +/* MODULE NAME : QuadLib.c */ +/* PRODUCT(S) : Standard Time Management Library */ +/* */ +/* MODULE DESCRIPTION: */ +/* 64-bit Math Simulation Library. */ +/* Provided for platforms without native 64-bit support. */ +/* */ +/* MODIFICATION LOG: */ +/* Date Who Rev Comments */ +/* -------- --- --- ----------------------------------------------------- */ +/* 06/07/06 RLH 02 Numerous features added, see stdtime.doc */ +/* 01/18/06 RLH 01 Created */ +/*****************************************************************************/ + +#include "stdtime.h" + +#ifdef QUADLIB_ENABLED + +int32_t QuadLibU64Cmp (QUADLIB_U64 x, QUADLIB_U64 y) + { + if (x.hi.u < y.hi.u) return -1; + if (x.hi.u > y.hi.u) return 1; + + if (x.lo.u < y.lo.u) return -1; + if (x.lo.u > y.lo.u) return 1; + + return 0; + } + +int32_t QuadLibI64Cmp (QUADLIB_I64 x, QUADLIB_I64 y) + { + if (x.hi.i < y.hi.i) return -1; + if (x.hi.i > y.hi.i) return 1; + + /* the unsigned compare on lo.u works correctly if x.hi.i == y.hi.i */ + /* in case of negative numbers, when lo increases in unsigned */ + /* magnitude, the 64-bit value is less negative, and so is a */ + /* greater signed value, so nothing special needs to be done */ + + if (x.lo.u < y.lo.u) return -1; + if (x.lo.u > y.lo.u) return 1; + + return 0; + } + +#endif /* QUADLIB_ENABLED */ + + +/*****************************************************************************/ +/* GET/SET */ +/*****************************************************************************/ + + +#ifndef QUADLIB_ENABLED + +/* get hi value of a 64-bit value when host has native support */ + +QUADLIB_STATIC int32_t QuadLibI64GetHi (QUADLIB_I64 x) + { + return (int32_t) QUADLIB_I64_HI(x); + + } /* QuadLibI64GetHi */ + +QUADLIB_STATIC uint32_t QuadLibU64GetHi (QUADLIB_U64 x) + { + return (uint32_t) QUADLIB_U64_HI(x); + + } /* QuadLibU64GetHi */ + +/* get lo value of a 64-bit value when host has native support */ + +QUADLIB_STATIC int32_t QuadLibI64GetLo (QUADLIB_I64 x) + { + return (int32_t) QUADLIB_I64_LO(x); + + } /* QuadLibI64GetLo */ + +QUADLIB_STATIC uint32_t QuadLibU64GetLo (QUADLIB_U64 x) + { + return (uint32_t) QUADLIB_U64_LO(x); + + } /* QuadLibU64GetLo */ + + +/* set hi value of a 64-bit value when host has native support */ + +void QuadLibI64SetHi (QUADLIB_I64 *x, int32_t y) + { + (*(QUADLIB_I64_TYPE *)(x)).hi.i = y; + + } /* QuadLibI64SetHi */ + +void QuadLibU64SetHi (QUADLIB_U64 *x, uint32_t y) + { + (*(QUADLIB_I64_TYPE *)(x)).hi.u = y; + + } /* QuadLibU64SetHi */ + +/* set lo value of a 64-bit value when host has native support */ + +void QuadLibI64SetLo (QUADLIB_I64 *x, int32_t y) + { + (*(QUADLIB_I64_TYPE *)(x)).lo.i = y; + + } /* QuadLibI64SetLo */ + +void QuadLibU64SetLo (QUADLIB_U64 *x, uint32_t y) + { + (*(QUADLIB_I64_TYPE *)(x)).lo.u = y; + + } /* QuadLibU64SetLo */ + +#endif /* not QUADLIB_ENABLED */ + + +/*****************************************************************************/ +/* CAST */ +/*****************************************************************************/ + + +#ifdef QUADLIB_ENABLED + + +/* 64-bit to 64-bit conversions */ + + +QUADLIB_STATIC QUADLIB_I64 QuadLibI64CastI64N(void * x, size_t n) + { + QUADLIB_I64 result; + + /* determine type of cast based on sizeof(x) */ + + switch (n) + { + case 8: + QUADLIB_I64_HI(result) = QUADLIB_I64_HI(x); + QUADLIB_I64_LO(result) = QUADLIB_I64_LO(x); + break; + + case 2: + QUADLIB_I64_HI(result) = + QUADLIB_I64_LO(result) = (*(short *)(&x)); + QUADLIB_I64_HI(result) >>= 31; /* sign propagation */ + break; + + case 1: + QUADLIB_I64_HI(result) = + QUADLIB_I64_LO(result) = (*(char *)(&x)); + QUADLIB_I64_HI(result) >>= 31; /* sign propagation */ + break; + + default: + /* assume length 4 */ + QUADLIB_I64_HI(result) = + QUADLIB_I64_LO(result) = (*(long *)(&x)); + QUADLIB_I64_HI(result) >>= 31; /* sign propagation */ + break; + } + + return result; + + } /* QuadLibI64CastI64N */ + + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64CastU64N(void * x, size_t n) + { + QUADLIB_U64 result; + + /* determine type of cast based on sizeof(x) */ + + switch (n) + { + case 8: + QUADLIB_I64_HI(result) = QUADLIB_I64_HI(x); + QUADLIB_I64_LO(result) = QUADLIB_I64_LO(x); + break; + + case 2: + QUADLIB_I64_HI(result) = 0; + QUADLIB_I64_LO(result) = (*(unsigned short *)(&x)); + break; + + case 1: + QUADLIB_I64_HI(result) = 0; + QUADLIB_I64_LO(result) = (*(unsigned char *)(&x)); + break; + + default: + /* assume length 4 */ + QUADLIB_I64_HI(result) = 0; + QUADLIB_I64_LO(result) = (*(unsigned long *)(&x)); + break; + } + + return result; + + } /* QuadLibU64CastU64N */ + + +QUADLIB_STATIC QUADLIB_I64N QuadLibI64NCastI64(QUADLIB_I64 x) + { + QUADLIB_I64N result; + +#ifdef QUADLIB_NATIVE64_ENABLED + QUADLIB_I64_HI(result) = QUADLIB_I64_HI(x); + QUADLIB_I64_LO(result) = QUADLIB_I64_LO(x); + +#else + /* x is a 32-bit value, so we can only return 32 bits of I64 value */ + result = (QUADLIB_I64N) QUADLIB_I64_LO(x); + +#endif + return result; + + } /* QuadLibI64NCastI64 */ + + +QUADLIB_STATIC QUADLIB_U64N QuadLibU64NCastU64(QUADLIB_U64 x) + { + QUADLIB_U64N result; + +#ifdef QUADLIB_NATIVE64_ENABLED + QUADLIB_U64_HI(result) = QUADLIB_U64_HI(x); + QUADLIB_U64_LO(result) = QUADLIB_U64_LO(x); + +#else + /* x is a 32-bit value, so we can only return 32 bits of I64 value */ + result = (QUADLIB_U64N) QUADLIB_U64_LO(x); + +#endif + return result; + + } /* QuadLibU64NCastU64 */ + + +/* upsize casts: 32 to 64 bit */ + + +QUADLIB_STATIC QUADLIB_I64 QuadLibI64CastI32 (int32_t x) + { + QUADLIB_I64 result; + + result.lo.i = x; + result.hi.i = x; + result.hi.i >>= 31; /* for signed, x propagation */ + + return result; + } /* QuadLibI64CastI32 */ + + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64CastU32 (uint32_t x) + { + QUADLIB_U64 result; + + result.hi.u = 0; /* for unsigned, 0 propagation */ + result.lo.u = x; + + return result; + } /* QuadLibU64CastU32 */ + + +/* downsize casts: 64 to 32 bit */ + + +QUADLIB_STATIC int32_t QuadLibI32CastI64 (QUADLIB_I64 x) + { + return x.lo.i; + } /* QuadLibI32CastI64 */ + + +QUADLIB_STATIC uint32_t QuadLibU32CastU64 (QUADLIB_U64 x) + { + return x.lo.u; + } /* QuadLibU32CastU64 */ + + +#endif /* QUADLIB_ENABLED */ + + +/*****************************************************************************/ +/* QuadLibU64Not */ +/* form 1's complement of 64-bit value */ +/*****************************************************************************/ + + +#ifdef QUADLIB_ENABLED + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64Not (QUADLIB_U64 x) + { + QUADLIB_U64 result; + + result.hi.u = ~(x.hi.u); + result.lo.u = ~(x.lo.u); + return result; + } + +#endif /* QUADLIB_ENABLED */ + +/*****************************************************************************/ +/* QuadLibU64Neg */ +/* form 2's complement of 64-bit value */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64Neg (QUADLIB_U64 x) + { + QUADLIB_U64 result; + + result.hi.u = ~(x.hi.u); + result.lo.u = (~(x.lo.u)) + 1; + + /* if x.lo.u came in as 0, its complement is 0xFFFFFFFF */ + /* if we then increment it, it will become 0 again */ + /* so, if result.lo.u is zero now, there was a carry */ + + if (result.lo.u == 0) + { + result.hi.u++; + } + + return result; + } /* QuadLibU64Neg */ + +#endif /* QUADLIB_ENABLED */ + +/*****************************************************************************/ +/* QuadLibU64Abs */ +/* form absolute value of 64-bit value */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64Abs (QUADLIB_U64 x) + { + if (x.hi.i < 0) /* value is negative */ + { + return QUADLIB_U64_NEG (x); + } + + return x; /* value is positive, do not negate */ + + } /* QuadLibU64Abs */ + +#else /* not QUADLIB_ENABLED */ + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64Abs (QUADLIB_U64 x) + { + if (x < 0) /* value is negative */ + { + return (QUADLIB_U64) (-(QUADLIB_I64) x); + /* negate native I64 value */ + } + + return x; /* value is positive, do not negate */ + + } /* QuadLibU64Abs */ + +#endif /* QUADLIB_ENABLED */ + +/*****************************************************************************/ +/* QuadLibU64Mul */ +/* multiply two unsigned 64-bit values. */ +/* form partial products from 16-bit values to limit results to 32 bits. */ +/* */ +/* method: let ABCD mean four 16-bit values with 'one', and WXYZ in 'two' */ +/* then, one * two = ABCD * WXYZ. in "long-hand" this means: */ +/* */ +/* (let xxL mean the Left 16 bits of a word, and xxR the Right 16 bits) */ +/* */ +/* A B C D */ +/* W X Y Z */ +/* -------------- */ +/* AZ BZ CZ DZ */ +/* AY BY CY DY */ +/* AX BX CX DX */ +/* AW BW CW DW */ +/* */ +/* express the partial sums as split L/R pairs, and discard partial sums */ +/* that exceed the 64-bit result capacity. ("discard" means discard from */ +/* the explanation; the discarded values are not actually calculated.) */ +/* */ +/* A B C D */ +/* W X Y Z */ +/* -------------- */ +/* AZR BZR CZR DZR */ +/* BZL CZL DZL */ +/* BYR CYR DYR */ +/* CYL DYL */ +/* CXR DXR */ +/* DXL */ +/* DWR */ +/* */ +/* since there is no carry out of the left 32-bit value (the AB column), */ +/* there is no need to split the left-most (AB column) 32-bit values into */ +/* 16/16. so, we optimize the list of partial sums as follows, (where */ +/* (xxL:xxR represents an unsplit 32-bit value), and reorganize the */ +/* diagram to show the left/right relationships better: */ +/* */ +/* A B C D */ +/* W X Y Z */ +/* -------------- */ +/* AZR */ +/* bzL:bzR */ +/* CZL CZR */ +/* DZL DZR */ +/* -------------- */ +/* BYR */ +/* cyL:cyR */ +/* DYL DYR */ +/* -------------- */ +/* CXR */ +/* dxL:dxR */ +/* -------------- */ +/* DWR */ +/* */ +/* finally, add up the columns, and store the sums in a 64-bit value */ +/* */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +#define QUADLIB_U32_LWORD(x) ( ((uint32_t)(x)) >> 16) +#define QUADLIB_U32_RWORD(x) ((x) & 0xFFFF) + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64Mul ( + QUADLIB_U64 /*I*/ one, + QUADLIB_U64 /*I*/ two) + { + QUADLIB_U64 result; + + uint32_t a, b, c, d, w, x, y, z; + uint32_t ab, bc, cd; + uint32_t az, bz, cz, dz; + uint32_t by, cy, dy; + uint32_t cx, dx; + uint32_t dw; + + uint32_t azr, czr, dzr; + uint32_t czl, dzl; + uint32_t byr, dyr; + uint32_t dyl; + uint32_t cxr; + uint32_t dwr; + + + a = QUADLIB_U32_LWORD(one.hi.u); + b = QUADLIB_U32_RWORD(one.hi.u); + c = QUADLIB_U32_LWORD(one.lo.u); + d = QUADLIB_U32_RWORD(one.lo.u); + + w = QUADLIB_U32_LWORD(two.hi.u); + x = QUADLIB_U32_RWORD(two.hi.u); + y = QUADLIB_U32_LWORD(two.lo.u); + z = QUADLIB_U32_RWORD(two.lo.u); + + + az = a * z; bz = b * z; cz = c * z; dz = d * z; + by = b * y; cy = c * y; dy = d * y; + cx = c * x; dx = d * x; + dw = d * w; + azr = QUADLIB_U32_RWORD(az); + czr = QUADLIB_U32_RWORD(cz); + dzr = QUADLIB_U32_RWORD(dz); + czl = QUADLIB_U32_LWORD(cz); + dzl = QUADLIB_U32_LWORD(dz); + byr = QUADLIB_U32_RWORD(by); + dyr = QUADLIB_U32_RWORD(dy); + dyl = QUADLIB_U32_LWORD(dy); + cxr = QUADLIB_U32_RWORD(cx); + dwr = QUADLIB_U32_RWORD(dw); + + bc = czr + dzl + dyr; + + ab = bc >> 16; + cd = bc << 16; + + result.lo.u = cd + dzr; + + result.hi.u = ab + bz + cy + dx + + czl + dyl + + ((azr + byr + cxr + dwr) << 16); + + return result; + + } /* QuadLibU64Mul */ + +#undef QUADLIB_U32_LWORD +#undef QUADLIB_U32_RWORD + +#endif /* QUADLIB_ENABLED */ + +/*****************************************************************************/ +/* QuadLibU64Add */ +/* add two unsigned 64-bit values */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64Add ( + QUADLIB_U64 /*I*/ one, + QUADLIB_U64 /*I*/ two) + { + QUADLIB_U64 sum; + uint32_t carry; + + sum.lo.u = one.lo.u + two.lo.u; + sum.hi.u = one.hi.u + two.hi.u; + + /* calculate carry using boolean algebra */ + + carry = + ( (one.lo.u & two.lo.u) | ((one.lo.u ^ two.lo.u) & (~sum.lo.u)) ) >> 31; + + sum.hi.u += carry; + + return sum; + + } /* QuadLibU64Add */ + +#endif /* QUADLIB_ENABLED */ + +/*****************************************************************************/ +/* QuadLibU64Sub */ +/* subtract two unsigned 64-bit values */ +/* method: negate second operand, and then add values */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64Sub ( + QUADLIB_U64 /*I*/ one, + QUADLIB_U64 /*I*/ two) + { + return QuadLibU64Add (one, QUADLIB_U64_NEG (two)); + } /* QuadLibU64Sub */ + +#endif /* QUADLIB_ENABLED */ + +/*****************************************************************************/ +/* QuadLibU64Add1 */ +/* increment a 64-bit value */ +/* method: add a constant 1 to a 64-bit value */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64Add1 ( + QUADLIB_U64 /*I*/ x) + { + QUADLIB_U64 result; + + result.hi.u = x.hi.u; + result.lo.u = x.lo.u + 1; + + if (result.lo.u == 0) + { + /* x.lo.u must have had all 1 bits, so a carry occurred */ + result.hi.u++; + } + + return result; + + } /* QuadLibU64Add1 */ + +#endif /* QUADLIB_ENABLED */ + +/*****************************************************************************/ +/* QuadLibU64Sub1 */ +/* decrement a 64-bit value */ +/* method: add a constant -1 to a 64-bit value */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64Sub1 ( + QUADLIB_U64 /*I*/ x) + { + QUADLIB_U64 result; + + result.hi.u = x.hi.u; + result.lo.u = x.lo.u - 1; + + if (x.lo.u == 0) + { + /* x.lo.u was 0, so a borrow occurred */ + result.hi.u--; + } + + return result; + + } /* QuadLibU64Sub1 */ + +#endif /* QUADLIB_ENABLED */ + +/*****************************************************************************/ +/* QuadLibU64SHR */ +/* shift an unsigned 64-bit value right by n bits */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64SHR ( + QUADLIB_U64 /*I*/ value, + int32_t /*I*/ shift) + { + QUADLIB_U64 result = QUADLIB_ZERO; + + if (shift == 0) + { + return value; + } + + if (shift < 0) + { + return QuadLibU64SHL (value, -shift); + } + + if (shift > 63) + { + return result; /* all bits shifted out, return 0 */ + } + + for (result = value; shift > 0; shift--) + { + result.lo.u >>= 1; + + if (result.hi.u & 1) + { + /* hi has low-order 1 about to be shifted out */ + result.lo.u |= QUADLIB_U32_HIGHBIT; + } + + result.hi.u >>= 1; /* unsigned shift right */ + } + + return result; + + } /* QuadLibU64SHR */ + +#endif /* QUADLIB_ENABLED */ + +/*****************************************************************************/ +/* QuadLibI64SHR */ +/* shift a signed 64-bit value right by n bits */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +QUADLIB_STATIC QUADLIB_I64 QuadLibI64SHR ( + QUADLIB_I64 /*I*/ value, + int32_t /*I*/ shift) + { + QUADLIB_I64 result = QUADLIB_ZERO; + + if (shift == 0) + { + return value; + } + + if (shift < 0) + { + return QuadLibU64SHL (value, -shift); + } + + if (shift > 63) + { + return result; /* all bits shifted out return 0 */ + } + + for (result = value; shift > 0; shift--) + { + result.lo.u >>= 1; + + if (result.hi.u & 1) + { + /* hi has low-order 1 about to be shifted out */ + result.lo.u |= QUADLIB_U32_HIGHBIT; + } + + result.hi.i >>= 1; /* signed shift right */ + } + + return result; + + } /* QuadLibI64SHR */ + +#endif /* QUADLIB_ENABLED */ + +/*****************************************************************************/ +/* QuadLibU64SHL */ +/* shift an unsigned 64-bit value left by n bits */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64SHL ( + QUADLIB_U64 /*I*/ value, + int32_t /*I*/ shift) + { + QUADLIB_U64 result = QUADLIB_ZERO; + + if (shift == 0) + { + return value; + } + + if (shift < 0) + { + return QuadLibU64SHR (value, -shift); + } + + if (shift > 63) + { + return result; /* all bits shifted out return 0 */ + } + + for (result = value; shift > 0; shift--) + { + QUADLIB_U64_SHL1_EQ_INLINE (result); + } + + return result; + + } /* QuadLibU64SHL */ + +#endif /* QUADLIB_ENABLED */ + +/*****************************************************************************/ +/* QuadLibI64SHR1 */ +/* shift a signed 64-bit value right by 1 bit */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +QUADLIB_STATIC QUADLIB_I64 QuadLibI64SHR1 ( + QUADLIB_I64 /*I*/ value) + { + QUADLIB_I64_SHR1_EQ_INLINE (value); + + return value; + + } /* QuadLibI64SHR1 */ + +#endif /* QUADLIB_ENABLED */ + +/*****************************************************************************/ +/* QuadLibU64SHR1 */ +/* shift an unsigned 64-bit value right by 1 bit */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64SHR1 ( + QUADLIB_U64 /*I*/ value) + { + QUADLIB_U64_SHR1_EQ_INLINE (value); + + return value; + + } /* QuadLibU64SHR1 */ + +#endif /* QUADLIB_ENABLED */ + +/*****************************************************************************/ +/* QuadLibU64SHL1 */ +/* shift an unsigned 64-bit value left by 1 bit */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64SHL1 ( + QUADLIB_U64 /*I*/ value) + { + QUADLIB_U64_SHL1_EQ_INLINE (value); + + return value; + + } /* QuadLibU64SHL1 */ + +#endif /* QUADLIB_ENABLED */ + +/*****************************************************************************/ +/* QuadLibI64SHR4 */ +/* shift a signed 64-bit value right by 1 bit */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +QUADLIB_STATIC QUADLIB_I64 QuadLibI64SHR4 ( + QUADLIB_I64 /*I*/ value) + { + QUADLIB_I64_SHR4_EQ_INLINE (value); + + return value; + + } /* QuadLibI64SHR4 */ + +#endif /* QUADLIB_ENABLED */ + +/*****************************************************************************/ +/* QuadLibU64SHR4 */ +/* shift an unsigned 64-bit value right by 1 bit */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64SHR4 ( + QUADLIB_U64 /*I*/ value) + { + QUADLIB_U64_SHR4_EQ_INLINE (value); + + return value; + + } /* QuadLibU64SHR4 */ + +#endif /* QUADLIB_ENABLED */ + +/*****************************************************************************/ +/* QuadLibU64SHL4 */ +/* shift an unsigned 64-bit value left by 1 bit */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64SHL4 ( + QUADLIB_U64 /*I*/ value) + { + QUADLIB_U64_SHL4_EQ_INLINE (value); + + return value; + + } /* QuadLibU64SHL4 */ + +#endif /* QUADLIB_ENABLED */ + +/*****************************************************************************/ +/* QuadLibU64Mul10 */ +/* multiple an unsigned 64-bit value by 10 */ +/* method: get value*2 and value*8 by shifting, and then add them */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64Mul10 ( + QUADLIB_U64 /*I*/ value) + { + QUADLIB_U64 value2; + QUADLIB_U64 value8; + QUADLIB_U64 result; + + value2 = value; + QUADLIB_U64_SHL1_EQ_INLINE (value2); + + value8 = value2; + QUADLIB_U64_SHL1_EQ_INLINE (value8); + QUADLIB_U64_SHL1_EQ_INLINE (value8); + + result = QuadLibU64Add (value8, value2); + return result; + + } /* QuadLibU64Mul10 */ + +#endif /* QUADLIB_ENABLED */ + +/*****************************************************************************/ +/* StrAToQuadLibU64 */ +/* define a portable 64-bit unsigned atoi convervion */ +/*****************************************************************************/ + +/* StrAToQuadLibU64 always defined */ + +QUADLIB_STATIC QUADLIB_U64 StrAToQuadLibU64 ( + char * /*I*/ str) + { + /* extract a decimal string and return unsigned int64 value */ + + QUADLIB_U64 result = QUADLIB_ZERO; + QUADLIB_U64 digit = QUADLIB_ZERO; + int32_t n; + + if (str == NULL) + { + return result; + } + + while (isspace (*str)) + { + str++; /* skip over whitespace */ + } + + /* handle hex value if present */ + + if ( (str[0] == '0') && ((str[1] == 'x') || (str[1] == 'X')) ) + { + for (str+=2; *str; str++) + { + n = *str; + + if ((n >= '0') && (n <= '9')) + { + n -= '0'; + } + + else if ((n >= 'A') && (n <= 'F')) + { + n = n - 'A' + 10; + } + + else if ((n >= 'a') && (n <= 'f')) + { + n = n - 'a' + 10; + } + + else + { + break; + } + + QUADLIB_I64_LO(digit) = n; + QUADLIB_U64_SHL1_EQ_INLINE (result); + QUADLIB_U64_ADD_EQ (result, digit); + } /* for */ + + return result; + } + + for (; *str; str++) + { + n = (*str) - '0'; + + if ((n < 0) || (n > 9)) + { + break; + } + + QUADLIB_I64_LO(digit) = n; + QUADLIB_U64_MUL10_EQ (result); + QUADLIB_U64_ADD_EQ (result, digit); + } + + return result; + + } /* StrAToQuadLibU64 */ + +/* StrAToQuadLibU64 always defined */ + +/*****************************************************************************/ +/* StrAToQuadLibI64 */ +/* define a portable 64-bit signed atoi convervion */ +/*****************************************************************************/ + +/* StrAToQuadLibI64 always defined */ + +QUADLIB_STATIC QUADLIB_I64 StrAToQuadLibI64 ( + char * /*I*/ str) + { + /* extract a decimal string and return unsigned int64 value */ + + QUADLIB_I64 result = QUADLIB_ZERO; + QUADLIB_I64 digit = QUADLIB_ZERO; + char sign = ' '; + int32_t n; + + if (str == NULL) + { + return result; + } + + while (isspace (*str)) + { + str++; /* skip over whitespace */ + } + + if ((*str == '+') || (*str == '-')) + { + sign = *str; + str++; /* skip over sign */ + } + + /* handle hex value if present */ + + if ( (str[0] == '0') && ((str[1] == 'x') || (str[1] == 'X')) ) + { + for (str+=2; *str; str++) + { + n = *str; + + if ((n >= '0') && (n <= '9')) + { + n -= '0'; + } + + else if ((n >= 'A') && (n <= 'F')) + { + n = n - 'A' + 10; + } + + else if ((n >= 'a') && (n <= 'f')) + { + n = n - 'a' + 10; + } + + else + { + break; + } + + QUADLIB_I64_LO(digit) = n; + QUADLIB_U64_SHL1_EQ_INLINE (result); + QUADLIB_U64_ADD_EQ (result, digit); + } /* for */ + + if (sign == '-') + { + result = QUADLIB_I64_NEG (result); + } + + return result; + } + + for (; *str; str++) + { + n = (*str) - '0'; + + if ((n < 0) || (n > 9)) + { + break; + } + + QUADLIB_I64_LO(digit) = n; + QUADLIB_I64_MUL10_EQ (result); + QUADLIB_I64_ADD_EQ (result, digit); + } + + if (sign == '-') + { + result = QUADLIB_I64_NEG (result); + } + + return result; + + } /* StrAToQuadLibI64 */ + +/* StrAToQuadLibI64 always defined */ + + +/*****************************************************************************/ +/* QuadLibU64ToFixedStrA */ +/* define a portable 64-bit unsigned itoa convervion */ +/*****************************************************************************/ + +/* QuadLibU64ToFixedStrA always defined */ + +QUADLIB_STATIC void QuadLibU64ToFixedStrA ( + QUADLIB_U64 /*I*/ qValue, + QUADLIB_STRINGA * /*O*/ pString) + { + QUADLIB_U64 value = qValue; + int32_t i; + int32_t n; + + int32_t xdigit; + uint8_t sum [QUADLIB_STRING_LEN] = {0}; + uint8_t carry; + + char * factor; + static char * factor_table[16] = + { + "00000000000000000001", + "00000000000000000016", + "00000000000000000256", + "00000000000000004096", + "00000000000000065536", + "00000000000001048576", + "00000000000016777216", + "00000000000268435456", + "00000000004294967296", + "00000000068719476736", + "00000001099511627776", + "00000017592186044416", + "00000281474976710656", + "00004503599627370496", + "00072057594037927936", + "01152921504606846976", + }; + + /* grab 16 hex digits one at a time */ + /* obtain the decimal factor for a '1' in that position */ + /* multiply each decimal digit of the factor by the hex digit */ + /* and add to sum */ + + for (i=0; i < 16; i++) + { + if (QUADLIB_U64_EQ_0 (value)) + { + break; + } + + xdigit = QUADLIB_U64_LO (value) & 0x0F; + QUADLIB_U64_SHR4_EQ (value); + + if (xdigit == 0) + { + continue; /* nothing to do */ + } + + factor = factor_table [i]; + + /* highest value in any position is (15*9)+9 = 135+9 = 144 */ + /* with a carry in of 9, the highest value is 153 */ + /* recall that factor is ASCII when calculating the sum */ + + carry = 0; + +#ifdef _MSC_VER +#pragma warning(push) +#pragma warning(disable:4244) +/* silence the VC compiler warning message: */ +/* "conversion from 'int ' to 'unsigned __int8', possible loss of data" */ +#endif + + for (n = QUADLIB_STRING_LEN-1; n >= 0; n--) + { + sum[n] += (uint8_t) (((factor[n] & 0x0F) * xdigit) + carry); + carry = sum[n] / 10; + sum[n] %= 10; + } + } + +#ifdef _MSC_VER +#pragma warning(pop) +#endif + + /* copy sum to output, converting to ASCII */ + + for (n = 0; n < QUADLIB_STRING_LEN; n++) + { + pString->str[n] = (char) ((sum[n] & 0x0F) + '0'); + } + + pString->str[QUADLIB_STRING_LEN] = 0; + + } /* QuadLibU64ToFixedStrA */ + + +/*****************************************************************************/ +/* QuadLibI64ToFixedStrA */ +/* define a portable 64-bit signed itoa convervion */ +/*****************************************************************************/ + +/* QuadLibI64ToFixedStrA always defined */ + +QUADLIB_STATIC void QuadLibI64ToFixedStrA ( + QUADLIB_I64 /*I*/ qValue, + QUADLIB_STRINGA * /*O*/ pString) + { + char sign = '0'; + + if (QUADLIB_I64_LT_0 (qValue)) + { + qValue = QUADLIB_I64_NEG (qValue); + sign = '-'; + } + + QuadLibU64ToFixedStrA (* (QUADLIB_U64 *) &qValue, pString); + pString->str[0] = sign; + + } /* QuadLibI64ToFixedStrA */ + + +/*****************************************************************************/ +/* QuadLibU64ToStrA */ +/* define a portable 64-bit signed itoa convervion, with zero suppression */ +/*****************************************************************************/ + +/* QuadLibU64ToStrA always defined */ + +QUADLIB_STATIC void QuadLibU64ToStrA ( + QUADLIB_U64 /*I*/ qValue, + QUADLIB_STRINGA * /*O*/ pString) + { + QUADLIB_STRINGA s; + int32_t source = 0; + int32_t target = 0; + + QuadLibU64ToFixedStrA (qValue, &s); + + /* copy back value, suppressing leading zeros */ + + while (s.str [source] == '0') + { + source++; + } + + if (s.str [source] == 0) + { + pString->str [target++] = '0'; /* source is all zero */ + } + + while (s.str [source]) + { + pString->str [target++] = s.str [source++]; + } + + pString->str [target] = 0; + + } /* QuadLibU64ToStrA */ + + +/*****************************************************************************/ +/* QuadLibI64ToStrA */ +/* define a portable 64-bit signed itoa convervion, with zero suppression */ +/*****************************************************************************/ + +/* QuadLibI64ToStrA always defined */ + +QUADLIB_STATIC void QuadLibI64ToStrA ( + QUADLIB_I64 /*I*/ qValue, + QUADLIB_STRINGA * /*O*/ pString) + { + QUADLIB_STRINGA s; + int32_t source = 0; + int32_t target = 0; + + QuadLibI64ToFixedStrA (qValue, &s); + + /* copy back value, suppressing leading zeros */ + + if (s.str [source] == '-') + { + pString->str [target++] = s.str [source++]; + } + + while (s.str [source] == '0') + { + source++; + } + + if (s.str [source] == 0) + { + pString->str [target++] = '0'; /* source is all zero */ + } + + while (s.str [source]) + { + pString->str [target++] = s.str [source++]; + } + + pString->str [target] = 0; + + } /* QuadLibI64ToStrA */ + + +/*****************************************************************************/ +/* QuadLibU64DivMod */ +/* divide two unsigned 64-bit values to produce a quotient and remainder */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64DivMod ( + QUADLIB_U64 u64Dividend, + QUADLIB_U64 u64Divisor, + QUADLIB_U64 *pu64Remainder ) + { + int32_t Count; + QUADLIB_U64 A_restore; + + QUADLIB_U64 A = QUADLIB_ZERO; + QUADLIB_U64 M = u64Divisor; + QUADLIB_U64 Q = u64Dividend; + + + if ((u64Divisor.hi.u == 0) + && (u64Divisor.lo.u == 0)) + { + *pu64Remainder = A; /* 0 */ + return A; /* 0 */ + } + + + for (Count=64; Count; Count--) + { + /* shift A:Q left */ + + QUADLIB_U64_SHL1_EQ_INLINE (A); + + if (Q.hi.i < 0) /* Q has high-order 1 bit */ + { + A = QuadLibU64Add1(A); /* A gets low-order 1 bit */ + } + + QUADLIB_U64_SHL1_EQ_INLINE (Q); /* Q gets low-order 0 bit */ + + A_restore = A; + + A = QuadLibU64Sub(A, M); + + if (A.hi.i < 0) /* A has high-order 1 bit */ + { + A = A_restore; /* Q has low-order 0 bit */ + } + + else + { + Q = QuadLibU64Add1(Q); /* Q gets low-order 1 bit */ + } + + } /* for */ + + *pu64Remainder = A; + return Q; + + } /* QuadLibU64DivMod */ + +#endif /* QUADLIB_ENABLED */ + +/*****************************************************************************/ +/* QuadLibU64Div */ +/* divide two signed 64-bit values to produce an unsigned quotient */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64Div ( + QUADLIB_U64 u64Dividend, + QUADLIB_U64 u64Divisor) + { + QUADLIB_U64 u64Remainder; /* dummy argument */ + + return QuadLibU64DivMod (u64Dividend, u64Divisor, &u64Remainder); + + } /*QuadLibU64Div */ + +#endif /* QUADLIB_ENABLED */ + +/*****************************************************************************/ +/* QuadLibU64Mod */ +/* divide two signed 64-bit values to produce unsigned remainder (modulus) */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64Mod ( + QUADLIB_U64 u64Dividend, + QUADLIB_U64 u64Divisor) + { + QUADLIB_U64 u64Remainder; + + QuadLibU64DivMod (u64Dividend, u64Divisor, &u64Remainder); + + return u64Remainder; + + } /*QuadLibU64Mod */ + +#endif /* QUADLIB_ENABLED */ + +/*****************************************************************************/ +/* QuadLibI64DivMod */ +/* divide two signed 64-bit values to produce a quotient and remainder */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +QUADLIB_STATIC QUADLIB_I64 QuadLibI64DivMod ( + QUADLIB_I64 s64Dividend, + QUADLIB_I64 s64Divisor, + QUADLIB_I64 *ps64Remainder ) + { + QUADLIB_I64 s64Quotient; + QUADLIB_U64 u64Dividend; + QUADLIB_U64 u64Divisor; + int32_t sign = 0; + + if (s64Dividend.hi.i < 0) + { + u64Dividend = QUADLIB_I64_NEG (s64Dividend); + sign = 1; + } + + else + { + u64Dividend = s64Dividend; + } + + if (s64Divisor.hi.i < 0) + { + u64Divisor = QUADLIB_I64_NEG (s64Divisor); + sign ^= 1; + } + + else + { + u64Divisor = s64Divisor; + } + + s64Quotient = QuadLibU64DivMod (u64Dividend, u64Divisor, ps64Remainder); + + if (sign) + { + /* signs of dividend and divisor are different, result is neg */ + s64Quotient = QUADLIB_I64_NEG (s64Quotient); + } + + /* remainder takes sign of dividend */ + + if (s64Dividend.hi.i < 0) + { + *ps64Remainder = QUADLIB_I64_NEG (*ps64Remainder); + } + + return s64Quotient; + +} /* QuadLibI64DivMod */ + +#endif /* QUADLIB_ENABLED */ + +/*****************************************************************************/ +/* QuadLibI64Div */ +/* divide two signed 64-bit values to produce a signed quotient */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +QUADLIB_STATIC QUADLIB_I64 QuadLibI64Div ( + QUADLIB_I64 s64Dividend, + QUADLIB_I64 s64Divisor) + { + QUADLIB_U64 s64Remainder; /* dummy argument */ + + return QuadLibI64DivMod (s64Dividend, s64Divisor, &s64Remainder); + + } /*QuadLibI64Div */ + +#endif /* QUADLIB_ENABLED */ + +/*****************************************************************************/ +/* QuadLibI64Mod */ +/* divide two signed 64-bit values to produce a signed remainder (modulus) */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +QUADLIB_STATIC QUADLIB_I64 QuadLibI64Mod ( + QUADLIB_I64 s64Dividend, + QUADLIB_I64 s64Divisor) + { + QUADLIB_I64 s64Remainder; + + QuadLibI64DivMod (s64Dividend, s64Divisor, &s64Remainder); + + return s64Remainder; + + } /*QuadLibI64Mod */ + +#endif /* QUADLIB_ENABLED */ + +/*****************************************************************************/ +/* QuadLibU64DivMod - COMPATIBILITY MODE */ +/* QuadLibI64DivMod - COMPATIBILITY MODE */ +/* native I64 divide/modulus functions with I64 simulation not in effect */ +/*****************************************************************************/ + +#ifndef QUADLIB_ENABLED + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64DivMod ( + QUADLIB_U64 u64Dividend, + QUADLIB_U64 u64Divisor, + QUADLIB_U64 *pu64Remainder) + { + if (pu64Remainder != NULL) + { + *pu64Remainder = u64Dividend % u64Divisor; + } + + return u64Dividend / u64Divisor; + + } /* QuadLibU64DivMod */ + +QUADLIB_STATIC QUADLIB_I64 QuadLibI64DivMod ( + QUADLIB_I64 s64Dividend, + QUADLIB_I64 s64Divisor, + QUADLIB_I64 *ps64Remainder) + { + if (ps64Remainder != NULL) + { + *ps64Remainder = s64Dividend % s64Divisor; + } + + return s64Dividend / s64Divisor; + + } /* QuadLibI64DivMod */ + +#endif /* not QUADLIB_ENABLED */ + + +/*****************************************************************************/ +/* AND */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64And ( + QUADLIB_U64 /*I*/ one, + QUADLIB_U64 /*I*/ two) + { + QUADLIB_U64 result; + + result.hi.u = one.hi.u & two.hi.u; + result.lo.u = one.lo.u & two.lo.u; + + return result; + } + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64AndNot ( + QUADLIB_U64 /*I*/ one, + QUADLIB_U64 /*I*/ two) + { + QUADLIB_U64 result; + + result.hi.u = one.hi.u & (~two.hi.u); + result.lo.u = one.lo.u & (~two.lo.u); + + return result; + } + +#endif /* QUADLIB_ENABLED */ + +/*****************************************************************************/ +/* OR */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64Or ( + QUADLIB_U64 /*I*/ one, + QUADLIB_U64 /*I*/ two) + { + QUADLIB_U64 result; + + result.hi.u = one.hi.u | two.hi.u; + result.lo.u = one.lo.u | two.lo.u; + + return result; + } + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64OrNot ( + QUADLIB_U64 /*I*/ one, + QUADLIB_U64 /*I*/ two) + { + QUADLIB_U64 result; + + result.hi.u = one.hi.u | (~two.hi.u); + result.lo.u = one.lo.u | (~two.lo.u); + + return result; + } + +#endif /* QUADLIB_ENABLED */ + +/*****************************************************************************/ +/* XOR */ +/*****************************************************************************/ + +#ifdef QUADLIB_ENABLED + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64Xor ( + QUADLIB_U64 /*I*/ one, + QUADLIB_U64 /*I*/ two) + { + QUADLIB_U64 result; + + result.hi.u = one.hi.u ^ two.hi.u; + result.lo.u = one.lo.u ^ two.lo.u; + + return result; + } + +QUADLIB_STATIC QUADLIB_U64 QuadLibU64XorNot ( + QUADLIB_U64 /*I*/ one, + QUADLIB_U64 /*I*/ two) + { + QUADLIB_U64 result; + + result.hi.u = one.hi.u ^ (~two.hi.u); + result.lo.u = one.lo.u ^ (~two.lo.u); + + return result; + } + +#endif /* QUADLIB_ENABLED */ + diff --git a/mmslib/util/stdtime_w32.c b/mmslib/util/stdtime_w32.c new file mode 100644 index 0000000..05d358a --- /dev/null +++ b/mmslib/util/stdtime_w32.c @@ -0,0 +1,1348 @@ +/*****************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER **********************************************/ +/*****************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2005 All Rights Reserved */ +/* */ +/* MODULE NAME : StdTimeW32.h */ +/* PRODUCT(S) : Standard Time Management Library */ +/* */ +/* MODULE DESCRIPTION: */ +/* Implementation of Standard Time Management Library Win32 Compatibility */ +/* Layer. This module is compiled with STDTIMEW32_ENABLED on Windows to */ +/* generate debugging code or to run emulation on Unix. To run on */ +/* Windows, compile with STDTIMEW32_DISABLED. STDTIMEW32_ENABLED is */ +/* required on Unix/Linux (that is, non-Windows) platforms. */ +/* */ +/* MODIFICATION LOG: */ +/* Date Who Rev Comments */ +/* -------- --- --- ----------------------------------------------------- */ +/* 05/16/08 JRB 07 Fix DST adjustment in StdTimeW32LocalFileTimeToFileTime*/ +/* 04/08/08 JRB 06 Chg FILETIME to portable STDTIME_WIN_FILETIME. */ +/* 02/20/08 JRB 05 Use new simpler "TimeTypeEx", "StructTmEx" functions. */ +/* 03/18/07 RLH 04 Enable GMT vs. LOC conversions to work on QNX; */ +/* fix bug in Bool_StdTimeGmTimeR. */ +/* 11/21/06 RLH 03 StdTimeRet no longer static, now in stdtime.c */ +/* 06/07/06 RLH 02 Numerous features added, see stdtime.doc */ +/* 01/18/06 RLH 01 Created */ +/*****************************************************************************/ + +#include "stdtime.h" + +#define STDTIMEW32_FT_TIMET_SCALE 10000000 +#define STDTIMEW32_FT_TIMET_BASE_HI 0x019DB1DE +#define STDTIMEW32_FT_TIMET_BASE_LO 0xD53E8000 + + +/*-***************************************************************************/ +/* Bool_StdTimeGmTimeR - PRIVATE FUNCTION */ +/* provide interface for gmtime_r where possible, otherwise gmtime. */ +/* we provide thread safety for this function, if the operating system and */ +/* runtime library allows for it. */ +/*****************************************************************************/ + +STDTIME_BOOL Bool_StdTimeGmTimeR ( + time_t * pTimeT, + struct tm * pStructTm) + { + + if ((pTimeT == NULL) || (pStructTm == NULL)) + { + return STDTIME_FALSE; + } + + +#ifdef STDTIME_REENTRANT_GMTIME_LOCALTIME + + if (gmtime_r (pTimeT, pStructTm) != 0) + { + return STDTIME_TRUE; + } + + return STDTIME_FALSE; + + +#elif defined(STDTIME_MSVC8) + + +#ifdef _USE_64BIT_TIME_T + if (_gmtime64_s (pStructTm, (__time64_t *) pTimeT) == 0) + { + return STDTIME_TRUE; + } + + return STDTIME_FALSE; + + +#else /* not _USE_64BIT_TIME_T */ + + if (_gmtime32_s (pStructTm, (__time32_t *) pTimeT) == 0) + { + return STDTIME_TRUE; + } + + return STDTIME_FALSE; + +#endif /* _USE_64BIT_TIME_T */ + + +#else /* no reentrant gmtime available */ + + { + struct tm * pTempTm = NULL; + + pTempTm = gmtime (pTimeT); + + if (pTempTm == NULL) + { + return STDTIME_FALSE; + } + + /* copy back to caller */ + *pStructTm = *pTempTm; + + return STDTIME_TRUE; + } + +#endif + + } /* Bool_StdTimeGmTimeR */ + + +/*-***************************************************************************/ +/* Bool_StdTimeLocalTimeR - PRIVATE FUNCTION */ +/* provide interface for localtime_r where possible, otherwise localtime. */ +/* we provide thread safety for this function, if the operating system and */ +/* runtime library allows for it. */ +/*****************************************************************************/ + +STDTIME_BOOL Bool_StdTimeLocalTimeR ( + time_t * pTimeT, + struct tm * pStructTm) + { + + if ((pTimeT == NULL) || (pStructTm == NULL)) + { + return STDTIME_FALSE; + } + + +#ifdef STDTIME_REENTRANT_GMTIME_LOCALTIME + + if (localtime_r (pTimeT, pStructTm) != 0) + { + return STDTIME_TRUE; + } + + return STDTIME_FALSE; + + +#elif defined(STDTIME_MSVC8) + + +#ifdef _USE_64BIT_TIME_T + if (_localtime64_s (pStructTm, (__time64_t *) pTimeT) == 0) + { + return STDTIME_TRUE; + } + + return STDTIME_FALSE; + + +#else /* not _USE_64BIT_TIME_T */ + + if (_localtime32_s (pStructTm, (__time32_t *) pTimeT) == 0) + { + return STDTIME_TRUE; + } + + return STDTIME_FALSE; + +#endif /* _USE_64BIT_TIME_T */ + + +#else /* no reentrant localtime available */ + + { + struct tm * pTempTm = NULL; + + pTempTm = localtime (pTimeT); + + if (pTempTm == NULL) + { + return STDTIME_FALSE; + } + + /* copy back to caller */ + *pStructTm = *pTempTm; + + return STDTIME_TRUE; + } + +#endif + + } /* Bool_StdTimeLocalTimeR */ + + +#if 0 /* Int_StdTimeLocalDiff is obsolete */ + +/* function is obsolete as of 2007-03-18, will be removed in future release. */ + +/*-***************************************************************************/ +/* Int_StdTimeLocalDiff - PRIVATE FUNCTION */ +/* get difference in minutes of (GMT time) - (local time) */ +/* in case gmtime() or localtime() fails, return 0 */ +/*****************************************************************************/ + +static int32_t Int_StdTimeLocalDiff () + { + time_t gmt_time_t; + struct tm locTm; + struct tm gmtTm; + + int32_t locDay; + int32_t gmtDay; + int32_t locMin; + int32_t gmtMin; + int32_t diff; + + /* problem with this logic is that 'time(NULL)' returns current time */ + /* so calculation of LOC vs. GMT is based on current time instead of */ + /* the time value being converted. */ + + gmt_time_t = time(NULL); + + if (! Bool_StdTimeLocalTimeR (&gmt_time_t, &locTm)) + { + return 0; + } + + locDay = ((locTm.tm_year) * 10000) + ((locTm.tm_mon) * 100) + +(locTm.tm_mday); + + locMin = ((locTm.tm_hour) * 60) + locTm.tm_min; + + if (! Bool_StdTimeGmTimeR (&gmt_time_t, &gmtTm)) + { + return 0; + } + + gmtDay = ((gmtTm.tm_year) * 10000) + ((gmtTm.tm_mon) * 100) + +(gmtTm.tm_mday); + + gmtMin = ((gmtTm.tm_hour) * 60) + gmtTm.tm_min; + + if (locDay == gmtDay) + { + /* loc and gmt are in same day */ + diff = gmtMin - locMin; + } + + else if (gmtDay > locDay) + { + /* gmtDay > locDay, so gmtMin < locMin */ + + /* example: 2006-01-01 23:00 EST = 2006-01-02 04:00 GMT */ + /* 04:00 GMT - 23:00 EST = difference of -19:00 but that is wrong. */ + /* it should be a difference of +05:00 */ + + /* to correct, calculate (04:00+24:00) GMT - 23:00 EST = +05:00 */ + /* note that adjustment is made in minutes */ + + diff = (gmtMin + 1440) - locMin; + } + + else + { + /* gmtDay < locDay, so gmtMin > locMin */ + + /* example: 2006-01-02 01:00 MSK = 2006-01-01 22:00 GMT */ + /* 22:00 GMT - 01:00 MSK = difference of +21:00 but that is wrong. */ + /* it should be a difference of -03:00 */ + + /* to correct, calculate 22:00 GMT - (01:00+24:00) MSK = -03:00 */ + /* note that adjustment is made in minutes */ + + diff = gmtMin - (locMin + 1440); + } + + /* calculated difference value is in minutes */ + /* for EST, diff = GMT-EST = 300 [ 5 hours ] */ + /* for EDT, diff = GMT-EDT = 240 [ 4 hours ] */ + + return diff; + + } /* Int_StdTimeLocalDiff */ + +#endif /* Int_StdTimeLocalDiff is obsolete */ + + +/*****************************************************************************/ +/* StdTimeW32FileTimeToLocalFileTime */ +/* portable implementation of WIN32 API FileTimeToLocalFileTime */ +/*****************************************************************************/ + + +STDTIMEW32_STATIC STDTIME_WIN_BOOL StdTimeW32FileTimeToLocalFileTime ( + const STDTIME_WIN_FILETIME * /*I*/ pGmtFileTime, + STDTIME_WIN_FILETIME * /*O*/ pLocFileTime) + { + STDTIME gmtStdTime; + STDTIME locStdTime; + STDTIME_RC rc; + time_t gmtTimeT; + + struct tm * pStructTm; + struct tm locStructTm; + int32_t nsec; + + if ((pGmtFileTime == NULL) || (pLocFileTime == NULL)) + { + return STDTIME_WIN_FALSE; + } + + rc = FileTimeToStdTime (pGmtFileTime, &gmtStdTime); + + if (rc != STDTIME_OK) + return STDTIME_WIN_FALSE; + + rc = StdTimeToTimeTypeEx (&gmtStdTime, &gmtTimeT, &nsec); + + if (rc != STDTIME_OK) + return STDTIME_WIN_FALSE; + + pStructTm = localtime (&gmtTimeT); + + if (pStructTm == NULL) + return STDTIME_WIN_FALSE; + + locStructTm = *pStructTm; + + rc = StructTmExToStdTime (&locStructTm, nsec, &locStdTime); + + if (rc != STDTIME_OK) + return STDTIME_WIN_FALSE; + + rc = StdTimeToFileTime (&locStdTime, pLocFileTime); + + if (rc != STDTIME_OK) + return STDTIME_WIN_FALSE; + + return STDTIME_WIN_TRUE; + + } /* StdTimeW32FileTimeToLocalFileTime */ + + +/*****************************************************************************/ +/* StdTimeW32LocalFileTimeToFileTime */ +/* portable implementation of WIN32 API LocalFileTimeToFileTime */ +/*****************************************************************************/ + + +STDTIMEW32_STATIC STDTIME_WIN_BOOL StdTimeW32LocalFileTimeToFileTime ( + const STDTIME_WIN_FILETIME * /*I*/ pLocFileTime, + STDTIME_WIN_FILETIME * /*O*/ pGmtFileTime) + { + STDTIME gmtStdTime; + STDTIME locStdTime; + STDTIME_RC rc; + time_t gmtTimeT; + + struct tm locStructTm; + int32_t nsec; + + + if ((pGmtFileTime == NULL) || (pLocFileTime == NULL)) + { + return STDTIME_WIN_FALSE; + } + + rc = FileTimeToStdTime (pLocFileTime, &locStdTime); + + if (rc != STDTIME_OK) + return STDTIME_WIN_FALSE; + + rc = StdTimeToStructTmEx (&locStdTime, &locStructTm, &nsec); + + if (rc != STDTIME_OK) + return STDTIME_WIN_FALSE; + + locStructTm.tm_isdst = -1; /* CRITICAL: make OS figure out if DST */ + gmtTimeT = mktime (&locStructTm); + + if (gmtTimeT == (time_t) (-1)) + return STDTIME_WIN_FALSE; + + rc = TimeTypeExToStdTime (gmtTimeT, nsec, &gmtStdTime); + + if (rc != STDTIME_OK) + return STDTIME_WIN_FALSE; + + rc = StdTimeToFileTime (&gmtStdTime, pGmtFileTime); + + if (rc != STDTIME_OK) + return STDTIME_WIN_FALSE; + + return STDTIME_WIN_TRUE; + + } /* StdTimeW32LocalFileTimeToFileTime */ + + +/*****************************************************************************/ +/* StdTimeW32_IsLeap - return 1 if leap year, else 0 */ +/*****************************************************************************/ + + +STDTIMEW32_STATIC int StdTimeW32_IsLeap (int year) + { + if ((year < 0 ) || (year > 32767)) + { + return 0; + } + + if ((year % 4000) == 0) + { + return 0; /* multiples of 4000 are not leap years */ + } + + if ((year % 400) == 0) + { + return 1; /* multiples of 400 are leap years */ + } + + if ((year % 100) == 0) + { + return 0; /* multiples of 100 are not leap years */ + } + + if ((year % 4) == 0) + { + return 1; /* multiples of 4 are leap years */ + } + + return 0; /* all others are not leap years */ + + } /* StdTimeW32_IsLeap */ + + +/*****************************************************************************/ +/* StdTimeW32_LeapYearDays - number leap-year days based on year y */ +/*****************************************************************************/ + + +STDTIMEW32_STATIC int StdTimeW32_LeapYearDays (int y) + { + /* number of 4000-year multiples */ + int n4000 = (y / 4000); + + /* number of 400-year multiples in excess of 4000 */ + int n400 = (y % 4000) / 400; + + /* number of 100-year multiples in excess of 400 */ + int n100 = (y % 400) / 100; + + /* number of 4-year multiples in excess of 100 */ + int n4 = (y % 100) / 4; + + return + ( 969 * n4000 ) + + ( 97 * n400 ) + + ( 24 * n100 ) + + ( 1 * n4 ); + + } /* StdTimeW32_LeapYearDays */ + + +/*****************************************************************************/ +/* days-per-month table */ +/*****************************************************************************/ + + +static int StdTimeW32_DaysPerMon [13] = + { 00, + 31, /* JAN */ + 28, /* FEB */ + 31, /* MAR */ + 30, /* APR */ + 31, /* MAY */ + 30, /* JUN */ + 31, /* JUL */ + 31, /* AUG */ + 30, /* SEP */ + 31, /* OCT */ + 30, /* NOV */ + 31 /* DEC */ + }; + + +/*****************************************************************************/ +/* StdTimeW32SystemTimeToFileTimeEx */ +/* portable implementation of WIN32 API SystemTimeToFileTime */ +/*****************************************************************************/ + + +STDTIMEW32_STATIC STDTIME_WIN_BOOL StdTimeW32SystemTimeToFileTimeEx ( + const STDTIME_WIN_SYSTEMTIME * /*I*/ pSystemTime, + STDTIME_WIN_FILETIME * /*O*/ pFileTime, + int /*I*/ nsec, + int /*I*/ usec) + { + QUADLIB_U64 uVal; + QUADLIB_U64 uNum; + + STDTIME_WIN_SYSTEMTIME st; + STDTIME_WIN_FILETIME ft; + + + int i; + int d; + int basedays; + + if ((pSystemTime == NULL) || (pFileTime == NULL)) + { + return STDTIME_WIN_FALSE; + } + + st = *pSystemTime; + + /* form # of days for year - will not overflow uVal.lo */ + + QUADLIB_U64_HI(uVal) = 0; + QUADLIB_I64_LO(uVal) = (365 * st.wYear) + StdTimeW32_LeapYearDays (st.wYear); + + /* convert year/mon to days */ + + d = st.wDay; + + for (i=1; i < st.wMonth; i++) + { + d += StdTimeW32_DaysPerMon [i]; + } + + if (st.wMonth > 2) + { + d += StdTimeW32_IsLeap (st.wYear); + } + + /* calculate: uVal += (d - basedays - 1) */ + /* == uVal = uVal + d - basedays - 1 == uVal + d - (basedays + 1); */ + + /* use the equivalence above to avoid one QUADLIB operation, since */ + /* there is an overhead to using them under simulation. */ + + QUADLIB_U64_HI(uNum) = 0; + + QUADLIB_I64_LO(uNum) = d; + QUADLIB_U64_ADD_EQ (uVal, uNum); + + basedays = (STDTIME_WIN_EPOCH_YEAR * 365) + + StdTimeW32_LeapYearDays(STDTIME_WIN_EPOCH_YEAR); + + QUADLIB_I64_LO(uNum) = basedays + 1; + QUADLIB_U64_SUB_EQ (uVal, uNum); + + /* calculate: uVal = (uVal * 24) + st.wHour; */ + + QUADLIB_U64_LO(uNum) = 24; + QUADLIB_U64_MUL_EQ (uVal, uNum); + + QUADLIB_U64_LO(uNum) = st.wHour; + QUADLIB_U64_ADD_EQ (uVal, uNum); + + /* calculate: uVal = (uVal * 60) + st.wMinute; */ + + QUADLIB_U64_LO(uNum) = 60; + QUADLIB_U64_MUL_EQ (uVal, uNum); + + QUADLIB_U64_LO(uNum) = st.wMinute; + QUADLIB_U64_ADD_EQ (uVal, uNum); + + /* calculate: uVal = (uVal * 60) + st.wSecond; */ + + QUADLIB_U64_LO(uNum) = 60; + QUADLIB_U64_MUL_EQ (uVal, uNum); + + QUADLIB_U64_LO(uNum) = st.wSecond; + QUADLIB_U64_ADD_EQ (uVal, uNum); + + /* calculate: uVal = (uVal * 1000) + st.wMilliseconds; */ + + QUADLIB_U64_LO(uNum) = 1000; + QUADLIB_U64_MUL_EQ (uVal, uNum); + + QUADLIB_U64_LO(uNum) = st.wMilliseconds; + QUADLIB_U64_ADD_EQ (uVal, uNum); + + /* calculate: uVal = (uVal * 1000) + usec; */ + + QUADLIB_U64_LO(uNum) = 1000; + QUADLIB_U64_MUL_EQ (uVal, uNum); + + QUADLIB_U64_LO(uNum) = usec; + QUADLIB_U64_ADD_EQ (uVal, uNum); + + /* calculate: uVal = (uVal * 10) + (nsec/100); */ + + QUADLIB_U64_LO(uNum) = 10; + QUADLIB_U64_MUL_EQ (uVal, uNum); + + QUADLIB_U64_LO(uNum) = (nsec/100); + QUADLIB_U64_ADD_EQ (uVal, uNum); + + ft.dwLowDateTime = QUADLIB_U64_LO(uVal); + ft.dwHighDateTime = QUADLIB_U64_HI(uVal); + + *pFileTime = ft; + return STDTIME_WIN_TRUE; + + } /* StdTimeW32SystemTimeToFileTimeEx */ + + +/*****************************************************************************/ +/* StdTimeW32SystemTimeToFileTime */ +/* portable implementation of WIN32 API SystemTimeToFileTime */ +/* convert SYSTEMTIME to FILETIME; usec and nsec values default to zero */ +/*****************************************************************************/ + + +STDTIMEW32_STATIC STDTIME_WIN_BOOL StdTimeW32SystemTimeToFileTime ( + const STDTIME_WIN_SYSTEMTIME * /*I*/ pSystemTime, + STDTIME_WIN_FILETIME * /*O*/ pFileTime) + { + return StdTimeW32SystemTimeToFileTimeEx (pSystemTime, pFileTime, 0, 0); + + } /* StdTimeW32SystemTimeToFileTime */ + + +/*****************************************************************************/ +/* StdTimeW32FileTimeToSystemTime */ +/* portable implementation of WIN32 API FileTimeToSystemTime */ +/*****************************************************************************/ + + +STDTIMEW32_STATIC STDTIME_WIN_BOOL StdTimeW32FileTimeToSystemTime ( + const STDTIME_WIN_FILETIME * /*I*/ pFileTime, + STDTIME_WIN_SYSTEMTIME * /*O*/ pSystemTime) + { + QUADLIB_U64 uVal; + QUADLIB_U64 uMod; + QUADLIB_U64 uDiv; + + STDTIME_WIN_SYSTEMTIME st; + STDTIME_WIN_FILETIME ft; + + int yday; + int max_yday; + int day; + int mon; + int nsec; + int usec; + int days; + int year; + int year_hi; + int year_lo; + int leap; + int dpm; + int basedays; + int workdays; + + +#ifdef _MSC_VER +#pragma warning(push) +#pragma warning(disable:4244) +/* silence the VC compiler warning message: */ +/* "conversion from 'int' to 'WORD', possible loss of data" */ +#endif + + + if ((pSystemTime == NULL) || (pFileTime == NULL)) + { + return STDTIME_WIN_FALSE; + } + + ft = *pFileTime; + + QUADLIB_U64_HI(uVal) = ft.dwHighDateTime; + QUADLIB_U64_LO(uVal) = ft.dwLowDateTime; + + /* uVal has count of 100 nsecs intervals */ + /* calculate: nsec = (uVal % 10) * 100; */ + + QUADLIB_U64_HI(uDiv) = 0; + QUADLIB_U64_LO(uDiv) = 10; + uVal = QuadLibU64DivMod (uVal, uDiv, &uMod); + nsec = QUADLIB_I64_LO(uMod) * 100; + + /* uVal has usecs */ + /* calculate: usec = uVal % 1000; */ + + QUADLIB_U64_LO(uDiv) = 1000; + uVal = QuadLibU64DivMod (uVal, uDiv, &uMod); + usec = QUADLIB_I64_LO(uMod); + + /* uVal has msecs */ + /* calculate: wMilliseconds = uVal % 1000; */ + /* QUADLIB_U64_LO(uDiv) = 1000; ==> still in effect */ + + uVal = QuadLibU64DivMod (uVal, uDiv, &uMod); + st.wMilliseconds = QUADLIB_U64_LO(uMod); + + /* uVal has secs */ + /* calculate: wSecond = uVal % 60; */ + + QUADLIB_U64_LO(uDiv) = 60; + uVal = QuadLibU64DivMod (uVal, uDiv, &uMod); + st.wSecond = QUADLIB_U64_LO(uMod); + + /* uVal has mins */ + /* calculate: wMinute = uVal % 60; */ + /* QUADLIB_U64_LO(uDiv) = 60; ==> still in effect */ + + uVal = QuadLibU64DivMod (uVal, uDiv, &uMod); + st.wMinute = QUADLIB_U64_LO(uMod); + + /* uVal has hours */ + /* calculate: wHour = uVal % 24; */ + + QUADLIB_U64_LO(uDiv) = 24; + uVal = QuadLibU64DivMod (uVal, uDiv, &uMod); + + st.wHour = QUADLIB_U64_LO(uMod); + + /* uVal has days */ + + days = QUADLIB_I64_LO(uVal); + + /* Jan 1 1601 was a Monday (day number 1) */ + /* determine day of week by adding base day number to relative 0 day */ + /* modulus 7 is the day number */ + + st.wDayOfWeek = (days + 1) % 7; + + /* FT Epoch starts on Jan 1, 1601 */ + /* calculate the number of days prior to FT Epoch */ + /* treating year 0 as a year = start of year 0 to end of year 1600 */ + /* which is 1601 years = 584753 */ + + basedays = (STDTIME_WIN_EPOCH_YEAR * 365) + + StdTimeW32_LeapYearDays(STDTIME_WIN_EPOCH_YEAR); + + workdays = days + basedays; + + /* if we assumed every year were 365 days long, */ + /* then workdays / 365 would calculate too high a year, whereas */ + /* workdays / 366 would calculate too low a year */ + /* determine year by forming an estimated year, then */ + /* calculating its total days until we get the right number */ + + year_hi = (workdays / 365) + 1; + year_lo = (workdays / 366) - 1; + + for (year = year_hi; year > year_lo; year--) + { + days = (year * 365) + StdTimeW32_LeapYearDays (year); + + if (days <= workdays) break; + } + + if (year == year_lo) + { + /* failed to determine year */ + return STDTIME_WIN_FALSE; + } + + st.wYear = year; + + /* if 'days' == 6 (for example), then 6 complete days have */ + /* elapsed, plus the number of fractional days (sec, msec, etc.) */ + /* once fractional days exist, we are into the next day */ + /* from a calendar point of view, the day is 'days+1' even if a */ + /* day isn't over yet. */ + + /* however, at midnight (fractional days are exactly zero) */ + /* it is assumed to be the start of the next day. */ + /* so regardless, the day of year is days+1 always. */ + + yday = workdays - days + 1; + leap = StdTimeW32_IsLeap (year); + max_yday = 365 + leap; + + if ((yday < 1) || (yday > max_yday)) + { + /* yday is invalid for the given year */ + return STDTIME_WIN_FALSE; + } + + day = yday; + + for (mon=1; mon <= 12; mon++) + { + dpm = StdTimeW32_DaysPerMon [mon]; + + if (leap && (mon == 2)) dpm++; + + if (day <= dpm) break; + day -= dpm; + } + + if (mon > 12) + { + /* failed to determine month */ + return STDTIME_WIN_FALSE; + } + + st.wMonth = mon; + st.wDay = day; + + *pSystemTime = st; + + return STDTIME_WIN_TRUE; + + +#ifdef _MSC_VER +#pragma warning(pop) +#endif + + + } /* StdTimeW32FileTimeToSystemTime */ + + +/*****************************************************************************/ +/* StdTimeW32GetDayofWeekAndYear */ +/* get day of week, day of year from year, mon, day of month */ +/* the maximum day number in the STDTIME system is about 3,652,500 */ +/* so, there is no need for 64-bit math in this function, which only */ +/* deals with days as the finest resolution. */ +/*****************************************************************************/ + +STDTIME_RC StdTimeW32GetDayofWeekAndYear ( + int32_t /*I*/ nYear, + int32_t /*I*/ nMon, + int32_t /*I*/ nDayofMon, + int32_t * /*O*/ pDayofWeek, + int32_t * /*O*/ pDayofYear) + { + int32_t n; + int32_t yeardays; + int32_t basedays; + int32_t leap; + + int32_t nDayofWeek; + int32_t nDayofYear; + + STDTIME_ENUM_FUNC (StdTimeW32GetDayofWeekAndYear) + + /* output fields are optional, but at least one must be present */ + /* for the function to be considered successful */ + + if ((pDayofWeek == NULL) && (pDayofYear == NULL)) + { + STDTIME_RET_EC (null_argument); + } + + if ((nYear < STDTIME_YEAR_MIN) + || (nYear > STDTIME_YEAR_MAX)) + { + STDTIME_RET_EC (invalid_year); + } + + if ((nMon < 1) || (nMon > 12)) + { + STDTIME_RET_EC (invalid_mon); + } + + if (nDayofMon < 1) + { + STDTIME_RET_EC (invalid_day); + } + + leap = StdTimeW32_IsLeap (nYear); + n = StdTimeW32_DaysPerMon [nMon]; + + if (nMon == 2) + { + n += leap; + } + + if (nDayofMon > n) + { + STDTIME_RET_EC (invalid_day); + } + + /* form # of days for year - will not overflow 32 bits */ + + yeardays = (365 * nYear) + StdTimeW32_LeapYearDays (nYear-1); + + /* convert year/mon to days */ + + nDayofYear = nDayofMon; + + for (n=1; n < nMon; n++) + { + nDayofYear += StdTimeW32_DaysPerMon [n]; + } + + if (nMon > 2) + { + nDayofYear += leap; + } + + if (pDayofYear != NULL) + { + *pDayofYear = nDayofYear; + } + + if (pDayofWeek == NULL) + { + STDTIME_RET_OK; /* nothing else to do */ + } + + basedays = (STDTIME_WIN_EPOCH_YEAR * 365) + + StdTimeW32_LeapYearDays(STDTIME_WIN_EPOCH_YEAR); + + yeardays += (nDayofYear - basedays - 1); + + /* uNum now contains a day number relative to January 1, 1601. */ + /* it is known that this day was a Monday (day number == 1) */ + /* so, to get day of week, form mod 7 of the day number + 1 */ + /* and add 1 */ + + nDayofWeek = (yeardays + 1) % 7; + *pDayofWeek = nDayofWeek; + + STDTIME_RET_OK; + + } /* StdTimeW32GetDayofWeekAndYear */ + + + +/*****************************************************************************/ +/* gettimeofday() simulation on Win32 systems */ +/*****************************************************************************/ + +#define STDTIMEW32_GETTIMEOFDAY_SUCCESS 0 +#define STDTIMEW32_GETTIMEOFDAY_FAILURE (-1) + +#ifdef STDTIMEW32_USE_GETTIMEOFDAY +#ifdef STDTIMEW32_DEBUGGING + +/* on Unix/Linux systems, gettimeofday() is defined in */ +/* or */ + +#ifndef _WINSOCKAPI_ +struct timeval + { + long tv_sec; /* seconds since Jan 1 1970 */ + long tv_usec; /* microseconds (seconds / 1_000_000) */ + }; +#endif + +STDTIMEW32_STATIC int gettimeofday ( + struct timeval *pTimeVal, void *pObsolete); + +/*****************************************************************************/ +/* */ +/* pObsolete as an argument is obsolete on most Unix/Linux systems, in */ +/* which it is an error to specify a non-NULL value. */ +/* */ +/* gettimeofday() return codes */ +/* rc 0: success */ +/* rc -1: failure, errno set. */ +/* errno: EFAULT pTimeVal points outside the accessible address space. */ +/* errno: EINVAL The structure pointed to by 'pTimeVal' specifies an */ +/* invalid time (not supported here) */ +/* errno: EINVAL pObsolete argument is not NULL */ +/* errno: EOVERFLOW: The system time is greater than 2038, cannot be stored.*/ +/* Windows does not have EOVERFLOW in errno.h; ERANGE could be used, */ +/* but for simulation purposes, this condition is not supported. */ +/* */ +/*****************************************************************************/ + + +#endif /* STDTIMEW32_DEBUGGING */ +#endif /* STDTIMEW32_USE_GETTIMEOFDAY */ + + +/*****************************************************************************/ +/* gettimeofday - simulate Unix/Linux function gettimeofday() */ +/* function is used for debugging purposes only */ +/*****************************************************************************/ + + +#ifdef STDTIMEW32_USE_GETTIMEOFDAY +#ifdef STDTIMEW32_DEBUGGING + + +STDTIMEW32_STATIC int gettimeofday ( + struct timeval *pTimeVal, void *pObsolete) + { + STDTIME_WIN_FILETIME ft; + QUADLIB_U64 qFileTime; + QUADLIB_U64 qSec; + QUADLIB_U64 qNsec100; + QUADLIB_U64 qNum; + + if (pTimeVal == NULL) + { + errno = EFAULT; + return STDTIMEW32_GETTIMEOFDAY_FAILURE; + } + + if (pObsolete != NULL) + { + /* the obsolete argument is not supposed to be used */ + errno = EINVAL; + return STDTIMEW32_GETTIMEOFDAY_FAILURE; + } + + GetSystemTimeAsFileTime (&ft); + + QUADLIB_U64_HI(qFileTime) = ft.dwHighDateTime; + QUADLIB_U64_LO(qFileTime) = ft.dwLowDateTime; + + /* conversion code adapted from MSDN KB Q167296 */ + /* subtract epoch factor and divide by 10_000_000 */ + + QUADLIB_U64_HI(qNum) = STDTIMEW32_FT_TIMET_BASE_HI; + QUADLIB_U64_LO(qNum) = STDTIMEW32_FT_TIMET_BASE_LO; + + QUADLIB_I64_SUB_EQ (qFileTime, qNum); + + QUADLIB_U64_HI(qNum) = 0; + QUADLIB_U64_LO(qNum) = STDTIMEW32_FT_TIMET_SCALE; + + qSec = QuadLibU64DivMod (qFileTime, qNum, &qNsec100); + + pTimeVal->tv_sec = (long) QUADLIB_U64_LO(qSec); + + /* qNsec100 has multiples of 100 nanoseconds, or 1/10 microseconds */ + /* to get whole microseconds, divide by 10 */ + + pTimeVal->tv_usec = (long) QUADLIB_U64_LO(qNsec100) / 10; + + return STDTIMEW32_GETTIMEOFDAY_SUCCESS; + + } /* gettimeofday */ + + +#endif /* STDTIMEW32_DEBUGGING */ +#endif /* STDTIMEW32_USE_GETTIMEOFDAY */ + + +/*****************************************************************************/ +/* StdTimeW32GetTimeOfDayToFileTime - interface Unix to Windows time */ +/* function is used to replace WIN32 API GetSystemTimeAsFileTime */ +/*****************************************************************************/ + + +#ifdef STDTIMEW32_USE_GETTIMEOFDAY + + +STDTIMEW32_STATIC void StdTimeW32GetTimeOfDayToFileTime (STDTIME_WIN_FILETIME *pFileTime) +{ + QUADLIB_U64 qResult; + QUADLIB_U64 qNum; + struct timeval timeVal; + STDTIME_WIN_FILETIME ft = {0}; + + /* since there is no return-code mechanism for the Windows API */ + /* GetSystemTimeAsFileTime, we have none here. if the input */ + /* parameter is NULL, the caller accepts the consequences. */ + /* a call to GetSystemTimeAsFileTime(NULL) crashes on Windows */ + + if (gettimeofday (&timeVal, NULL) != STDTIMEW32_GETTIMEOFDAY_SUCCESS) + { + *pFileTime = ft; + return; + } + + /* multiply seconds result by 10_000_000 */ + QUADLIB_U64_HI(qResult) = 0; + QUADLIB_U64_LO(qResult) = timeVal.tv_sec; + + QUADLIB_U64_HI(qNum) = 0; + QUADLIB_U64_LO(qNum) = STDTIMEW32_FT_TIMET_SCALE; + + QUADLIB_U64_MUL_EQ (qResult, qNum); + + /* add 100nsec intervals by converting tv_usec to 100nsec */ + /* note that 100nsec units = 10 * usec units */ + /* there is no way to know if multiply by 10 will cause overflow */ + /* in 32-bit mode, so quad lib used for this */ + + QUADLIB_U64_LO(qNum) = timeVal.tv_usec; + QUADLIB_U64_MUL10_EQ (qNum); + QUADLIB_U64_ADD_EQ (qResult, qNum); + + /* add constant difference in epoch values */ + + QUADLIB_U64_HI(qNum) = STDTIMEW32_FT_TIMET_BASE_HI; + QUADLIB_U64_LO(qNum) = STDTIMEW32_FT_TIMET_BASE_LO; + + QUADLIB_U64_ADD_EQ (qResult, qNum); + + ft.dwHighDateTime = QUADLIB_U64_HI(qResult); + ft.dwLowDateTime = QUADLIB_U64_LO(qResult); + + *pFileTime = ft; + +} /* StdTimeW32GetTimeOfDayToFileTime */ + + +#endif /* STDTIMEW32_USE_GETTIMEOFDAY */ + + +/*****************************************************************************/ +/* clock_gettime() simulation on Win32 systems */ +/* StdTimeW32ClockGetTimeToFileTime - interface Unix to Windows time */ +/*****************************************************************************/ + +#define STDTIMEW32_CLOCKGETTIME_SUCCESS 0 +#define STDTIMEW32_CLOCKGETTIME_FAILURE (-1) + +#ifdef STDTIMEW32_USE_CLOCKGETTIME +#ifdef STDTIMEW32_DEBUGGING + +/* clock_gettime is defined in Unix */ + +#ifndef _CLOCKID_T +#define _CLOCKID_T +typedef int clockid_t; +#endif + +#ifndef _TIME_T_DEFINED +typedef long time_t; +#define _TIME_T_DEFINED +#endif + +#define CLOCK_REALTIME 0 + +/* only CLOCK_REALTIME is supported in this simulation */ + +/*efine CLOCK_MONOTONIC 1 */ +/*efine CLOCK_PROCESS_CPUTIME_ID 2 */ +/*efine CLOCK_THREAD_CPUTIME_ID 3 */ + +struct timespec + { + time_t tv_sec; /* Seconds */ + long tv_nsec; /* Nanoseconds */ + }; + +STDTIMEW32_STATIC int clock_gettime (clockid_t clock_id, struct timespec *tp); + +/*****************************************************************************/ +/* rc 0: success */ +/* rc -1: failure, errno set. */ +/* errno: EFAULT tp points outside the accessible address space. */ +/* errno: EINVAL The clk_id specified is not supported on this system. */ +/*****************************************************************************/ + + +#endif /* STDTIMEW32_DEBUGGING */ +#endif /* STDTIMEW32_USE_CLOCKGETTIME */ + + +/*****************************************************************************/ +/* clock_gettime - simulate Unix/Linux function clock_gettime() */ +/*****************************************************************************/ + +#ifdef STDTIMEW32_USE_CLOCKGETTIME +#ifdef STDTIMEW32_DEBUGGING + +STDTIMEW32_STATIC int clock_gettime ( + clockid_t clock_id, struct timespec *pTimeSpec) + { + STDTIME_WIN_FILETIME ft; + QUADLIB_U64 qFileTime; + QUADLIB_U64 qSec; + QUADLIB_U64 qNsec100; + QUADLIB_U64 qNum; + + if (pTimeSpec == NULL) + { + errno = EFAULT; + return STDTIMEW32_CLOCKGETTIME_FAILURE; + } + + if (clock_id != CLOCK_REALTIME) + { + errno = EINVAL; + return STDTIMEW32_CLOCKGETTIME_FAILURE; + } + + GetSystemTimeAsFileTime (&ft); + + QUADLIB_U64_HI(qFileTime) = ft.dwHighDateTime; + QUADLIB_U64_LO(qFileTime) = ft.dwLowDateTime; + + /* conversion code adapted from MSDN KB Q167296 */ + /* subtract epoch factor and divide by 10_000_000 */ + + QUADLIB_U64_HI(qNum) = STDTIMEW32_FT_TIMET_BASE_HI; + QUADLIB_U64_LO(qNum) = STDTIMEW32_FT_TIMET_BASE_LO; + + QUADLIB_I64_SUB_EQ (qFileTime, qNum); + + QUADLIB_U64_HI(qNum) = 0; + QUADLIB_U64_LO(qNum) = STDTIMEW32_FT_TIMET_SCALE; + + qSec = QuadLibU64DivMod (qFileTime, qNum, &qNsec100); + + pTimeSpec->tv_sec = (long) QUADLIB_U64_LO(qSec); + + /* qNsec100 has multiples of 100 nanoseconds, or 1/10 microseconds */ + /* to get whole nanoseconds, multiply by 100 */ + /* since this value was calculated as a remainder, it will never */ + /* exceed 10_000_000, so multiplying by 100 will always work */ + + pTimeSpec->tv_nsec = (long) QUADLIB_U64_LO(qNsec100) * 100; + + return 0; + + } /* clock_gettime */ + + +#endif /* STDTIMEW32_DEBUGGING */ +#endif /* STDTIMEW32_USE_CLOCKGETTIME */ + + +/*****************************************************************************/ +/* StdTimeW32ClockGetTimeToFileTime - interface Unix to Windows time */ +/* function is used to replace WIN32 API GetSystemTimeAsFileTime */ +/*****************************************************************************/ + + +#ifdef STDTIMEW32_USE_CLOCKGETTIME + + +STDTIMEW32_STATIC void StdTimeW32ClockGetTimeToFileTime ( + STDTIME_WIN_FILETIME *pFileTime) + { + QUADLIB_U64 qResult; + QUADLIB_U64 qNum; + struct timespec timeSpec; + STDTIME_WIN_FILETIME ft = {0}; + + /* since there is no return-code mechanism for the Windows API */ + /* GetSystemTimeAsFileTime, we have none here. if the input */ + /* parameter is NULL, the caller accepts the consequences. */ + /* a call to GetSystemTimeAsFileTime(NULL) crashes on Windows */ + + if (clock_gettime (CLOCK_REALTIME, &timeSpec) != + STDTIMEW32_CLOCKGETTIME_SUCCESS) + { + *pFileTime = ft; + return; + } + + /* multiply seconds result by 10_000_000 */ +#if STDTIME_TIME_T64_ENABLED + QUADLIB_U64_HI(qResult) = QUADLIB_U64_HI(timeSpec.tv_sec); + QUADLIB_U64_LO(qResult) = QUADLIB_U64_LO(timeSpec.tv_sec); +#else + QUADLIB_U64_HI(qResult) = 0; + QUADLIB_U64_LO(qResult) = (*(uint32_t *)(&(timeSpec.tv_sec))); +#endif + + QUADLIB_U64_HI(qNum) = 0; + QUADLIB_U64_LO(qNum) = STDTIMEW32_FT_TIMET_SCALE; + + QUADLIB_U64_MUL_EQ (qResult, qNum); + + /* add 100nsec intervals by converting tv_nsec to 100nsec */ + + QUADLIB_U64_LO(qNum) = timeSpec.tv_nsec / 100; + QUADLIB_U64_ADD_EQ (qResult, qNum); + + /* add constant difference in epoch values */ + + QUADLIB_U64_HI(qNum) = STDTIMEW32_FT_TIMET_BASE_HI; + QUADLIB_U64_LO(qNum) = STDTIMEW32_FT_TIMET_BASE_LO; + + QUADLIB_U64_ADD_EQ (qResult, qNum); + + ft.dwHighDateTime = QUADLIB_U64_HI(qResult); + ft.dwLowDateTime = QUADLIB_U64_LO(qResult); + + *pFileTime = ft; + + } /* StdTimeW32ClockGetTimeToFileTime */ + + +#endif /* STDTIMEW32_USE_CLOCKGETTIME */ + + +/*****************************************************************************/ +/* StdTimeW32TimeBToFileTime - interface Unix to Windows time */ +/* function is used to replace WIN32 API GetSystemTimeAsFileTime */ +/* */ +/* ftime() and struct timeb exist on Windows and Unix */ +/* however, a struct timeb has only millisecond precision, so there is */ +/* no reason to use it on Windows, and would be used on Unix/Linux only */ +/* if no better alternatives existed. */ +/*****************************************************************************/ + + +#ifdef STDTIMEW32_USE_TIMEB + + +STDTIMEW32_STATIC void StdTimeW32TimeBToFileTime ( + STDTIME_WIN_FILETIME *pFileTime) + { + QUADLIB_U64 qResult; + QUADLIB_U64 qNum; + struct timeb timeBuffer; + STDTIME_WIN_FILETIME ft = {0}; + + /* since there is no return-code mechanism for the Windows API */ + /* GetSystemTimeAsFileTime, we have none here. if the input */ + /* parameter is NULL, the caller accepts the consequences. */ + /* a call to GetSystemTimeAsFileTime(NULL) crashes on Windows */ + + ftime (&timeBuffer); + + /* ftime returns a time_t and a millisecond count */ + /* since there is no further precision, the resulting FILETIME */ + /* value will have zero for microseconds and nanoseconds */ + + /* multiply seconds result by 10_000_000 */ + +#if STDTIME_TIME_T64_ENABLED + QUADLIB_U64_HI(qResult) = QUADLIB_U64_HI(timeBuffer.time); + QUADLIB_U64_LO(qResult) = QUADLIB_U64_LO(timeBuffer.time); +#else + QUADLIB_U64_HI(qResult) = 0; + QUADLIB_U64_LO(qResult) = (*(uint32_t *)(&(timeBuffer.time))); +#endif + + QUADLIB_U64_HI(qNum) = 0; + QUADLIB_U64_LO(qNum) = STDTIMEW32_FT_TIMET_SCALE; + + QUADLIB_U64_MUL_EQ (qResult, qNum); + + /* add milliseconds after converting to 100-nanosecond intervals */ + /* this requires multiplying an unsigned short by 10,000 */ + /* the maximum value will not overflow an unsigned 32-bit value */ + + QUADLIB_U64_LO(qNum) = 10000 * (unsigned long) timeBuffer.millitm; + QUADLIB_U64_ADD_EQ (qResult, qNum); + + /* add constant difference in epoch values */ + + QUADLIB_U64_HI(qNum) = STDTIMEW32_FT_TIMET_BASE_HI; + QUADLIB_U64_LO(qNum) = STDTIMEW32_FT_TIMET_BASE_LO; + + QUADLIB_U64_ADD_EQ (qResult, qNum); + + ft.dwHighDateTime = QUADLIB_U64_HI(qResult); + ft.dwLowDateTime = QUADLIB_U64_LO(qResult); + + *pFileTime = ft; + + } /* StdTimeW32TimeBToFileTime */ + + +#endif /* STDTIMEW32_USE_TIMEB */ + + diff --git a/mmslib/util/stime.c b/mmslib/util/stime.c new file mode 100644 index 0000000..153de0c --- /dev/null +++ b/mmslib/util/stime.c @@ -0,0 +1,479 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1993 - 2007, All Rights Reserved */ +/* */ +/* MODULE NAME : stime.c */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : */ +/* This module implements functions that can be used in */ +/* differencial timimg. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 01/15/07 EJV 30 Chg S_LOCK_RESOURCES to S_LOCK_UTIL_RESOURCES*/ +/* 10/26/06 EJV 29 HP-UX: changed from gettimeofday() to times()*/ +/* 07/13/06 EJV 28 Sun: changed from gettimeofday() to times(). */ +/* 06/20/06 RKR 27 removed a piece of code from _sGetSysMsTime */ +/* 05/31/06 GLB 26 Integrated porting changes for VMS */ +/* 03/23/06 EJV 25 Corrected VMS chg to _sGetSysMsTime. */ +/* Rearranged includes, del windows.h. */ +/* 01/30/06 GLB 24 Integrated porting changes for VMS */ +/* 01/30/06 EJV 23 _WIN32 _sGetSysMsTime: added (ST_INT64) cast */ +/* before (ST_DOUBLE) to eliminate VS6 compiler*/ +/* error after changing ST_UINT64 define to */ +/* unsigned __int64. */ +/* 06/10/05 EJV 22 Revised the repeating code. */ +/* Linux, QNX: rpl gettimeofday() with times(). */ +/* Del MSDOS and __OS2__ code. */ +/* Del sGetMsStartTime, sSetMsStartTime */ +/* Renamed lastTime to initTime. */ +/* 03/11/04 GLB 21 Remove "thisFileName" */ +/* 12/09/03 JRB 20 Add LYNX support. */ +/* 11/04/03 JRB 19 Add sMsSleep (replaces gs_sleep). */ +/* 10/13/03 EJV 18 Chg defined(vms) to defined(__VMS) */ +/* 04/08/03 EJV 17 Use S_LOCK_RESOURCES (better for non-MT apps)*/ +/* 03/21/03 EJV 16 _WIN32: sGetMsTime, sGetSysMsTime must be */ +/* protected by mutex,prevent incorect wrapCount*/ +/* 03/18/03 EJV 15 Corrected __QNX4__ to __QNX__ (per JRB). */ +/* 03/18/03 EJV 14 sGetMsTime: fixed lastTime casting problem */ +/* (made lastTime ST_UINT on _WIN32). */ +/* 02/17/03 CRM 13 Added "defined(linux)" code. */ +/* 02/17/03 JRB 12 Add "sysincs.h" & del other includes. */ +/* Del obsolete _WINDOWS, MSOS2 code. */ +/* 02/17/03 EJV 11 sGetMsTime, sGetSysMsTime: fixed wrap counter*/ +/* Auto-initialize funs with call to stimeInit()*/ +/* Chg S_LOCK_RESOURCES to gs_get_sem,avoid loop*/ +/* 06/05/02 MDE,EJV 10 sGetMsTime: workaround some math problem */ +/* 11/29/01 EJV 09 Del code for old LATT, XENIX, ultrix, RMX86. */ +/* 06/19/01 JRB 08 Chg S_LOCK_COMMON.. to S_LOCK_RESOURCES so */ +/* glbsem doesn't log (caused infinite loop). */ +/* 04/19/00 JRB 07 Lint cleanup. */ +/* 11/18/99 EJV 06 Added code to capture wrapping of ms counter */ +/* for _WIN32 and PHARLAP_ETS. */ +/* 09/13/99 MDE 05 Added SD_CONST modifiers */ +/* 11/05/97 DSF 04 Added sGetSysMsTime () */ +/* 09/22/97 JRB 03 Fixed some #if's. */ +/* 09/09/97 JRB 02 Use GetTickCount for PHARLAP_ETS. */ +/* 09/08/97 EJV 01 Added code for QNX. */ +/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */ +/* history. */ +/************************************************************************/ + + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" + +#if defined (_WIN32) +#include +#if defined (PHARLAP_ETS) +#define timeGetTime GetTickCount /* timeGetTime not supported */ +#endif /* PHARLAP_ETS */ +#endif + +#if defined(__VMS) +#include +#endif + +#if defined(linux) || defined(sun) || defined(__hpux) || \ + defined(__QNX__) || defined(__LYNX) +#include /* for struct tms */ +#endif + +/************************************************************************/ +/* NOTE: Users porting this code to new platform should not use the */ +/* gettimeofday() or similar functions. When the system time */ +/* is changed, for example during clock synchronization, the */ +/* gettimeofday() would also reflect this change. */ +/* Application should use times() function if available. */ +/* */ +/* DEBUG: On UNIX systems we should implement the sTime functions */ +/* the same way as on LINUX. */ +/************************************************************************/ + + /*------------------------------------------------------*/ + /* stime module variables */ + /*------------------------------------------------------*/ + +#if defined(linux) || defined(sun) || defined(__hpux) +static ST_UINT64 wrapCount; /* ms, cumulative wrapped time ticks elapsed since program start*/ + +#elif (defined (__QNX__) || defined(__LYNX)) +static ST_DOUBLE wrapCount; /* ms, cumulative wrapped time ticks elapsed since program start*/ + +#elif defined (_WIN32) +static ST_UINT64 wrapCount; /* wrap count (see timeGetTime or GetTickTime) */ +#endif + +#if defined (__ECOS) +#define ST_UINT64 unsigned long long +static unsigned long long wrapCount; +#endif + +static ST_ULONG ticksPerSec; /* system dependent value, returned by sysconf(_SC_CLK_TCK) */ +static ST_ULONG lastCheckTime; /* last time checked, used to detect clock_t overflow */ +static ST_DOUBLE initMsTime; /* in ms, store initialization time */ +static ST_INT initialized; /* SD_TRUE if stimeInit func successful */ + + +/************************************************************************/ +/* _sGetSysMsTime */ +/*----------------------------------------------------------------------*/ +/* Combined code from sGetMsTime and sGetSysMsTime, now also called by */ +/* stimeInit. */ +/* */ +/* NOTE: this new implementation on LINUX uses the times() function */ +/* to obtain the "number of clock ticks that have elapsed since */ +/* an arbitrary point in the past. For Linux this point is the */ +/* moment the system was booted. The return from times() may */ +/* overflow the possible range of clock_t." */ +/* The revision of the IEEE Std 1003.1, 2004 allows the that */ +/* reference point can be the start-up time of the process */ +/* rather than system start-up time. */ +/* IMPORTANT: */ +/* This implementation is assuming that POSIX compliant clock_t */ +/* type is defined as long (4 bytes integer). If this is not the */ +/* case then the code needs to be revised! */ +/* */ +/* DEBUG: In the future LINUX implementation should be used for all */ +/* UNIX systems. */ +/************************************************************************/ + +static ST_DOUBLE _sGetSysMsTime (ST_VOID) + { +ST_DOUBLE sysMsTime = (ST_DOUBLE) 0.0; /* system time to be returned */ + +#if defined(linux) || defined(sun) || defined(__hpux) + { + struct tms tmsTime; /* must be passed to times() but we do not use it */ + ST_ULONG sysTime; + + sysTime = (ST_ULONG) times (&tmsTime); + if (sysTime != (ST_ULONG) -1) + { + /* NOTE: The value returned from the times() function (number of ticks */ + /* from some fixed point in time) will wrap. */ + /* Wrapping depends on the frequency (ticksPerSec) and can be as */ + /* often as every 39 minutes. This function needs to be called */ + /* frequently enough to detect when the value wraps. */ +#if 0 /* DEBUG: code to test wrapping, */ + /* trigger the wrapping every 60 seconds if this funct is called */ + if ( (sysTime > ticksPerSec) && /* don't wrap before 1-st second elapses*/ + ((sysTime / ticksPerSec) % 60 == 0) ) + lastCheckTime=sysTime+1; /* tweek the lastCheckTime */ +#endif + if (sysTime < lastCheckTime) + /* the ticks counter wrapped to 0 */ + wrapCount += ((ST_UINT64) 1 << 32); /* increment the high part of ST_UINT64 */ + /* convert the sys time to ms accounting for possible wrap */ + /* (switch math operations order / with * for better precission, avoid floating point math) */ + sysMsTime = (ST_DOUBLE)((wrapCount + (ST_UINT64) sysTime) * 1000 / (ST_UINT64) ticksPerSec); + lastCheckTime = sysTime; /* save for next check */ + } + else + { + ST_INT err; + err = errno; /* can't log this error but we could see it in debugger */ + } + } +#elif defined(__ECOS) +{ + struct timeval tp; + struct timezone tzp; + gettimeofday (&tp, &tzp); /* avoid floating math */ + sysMsTime = (ST_DOUBLE) ( (ST_UINT64) ((ST_ULONG) tp.tv_sec) * (ST_UINT64) 1000 + + (ST_UINT64) ((ST_ULONG) tp.tv_usec) / (ST_UINT64) 1000 ); +#if 0 + cyg_tick_count_t sysTime; /* in ecos, cyg_tick_count_t is defined by cyg_uint64 */ + + sysTime = cyg_current_time(); + sysMsTime = (ST_DOUBLE)((wrapCount + (ST_UINT64) sysTime) * 1000 / (ST_UINT64) ticksPerSec); +#endif +} +#elif defined(_AIX) || (defined(__alpha) && !defined(__VMS)) /* Tru64 alpha */ + { + struct timeval tp; + struct timezone tzp; + gettimeofday (&tp, &tzp); /* avoid floating math */ + sysMsTime = (ST_DOUBLE) ( (ST_UINT64) ((ST_ULONG) tp.tv_sec) * (ST_UINT64) 1000 + + (ST_UINT64) ((ST_ULONG) tp.tv_usec) / (ST_UINT64) 1000 ); + } +#elif defined(__VMS) /* OpenVMS non-specific */ + { + struct timeval tp; + ST_LONG tzp; + gettimeofday (&tp, &tzp); /* avoid floating math */ + sysMsTime = (ST_DOUBLE) + ( + /*(ST_UINT64)*/ ((ST_ULONG) tp.tv_sec) * /*(ST_UINT64)*/ 1000 + + /*(ST_UINT64)*/ ((ST_ULONG) tp.tv_usec) / /*(ST_UINT64)*/ 1000 + ); + } +#elif defined (VXWORKS) + { + /*renxiaobao add*/ + struct timeval tp; + vx_gettimeofday (&tp,0); + sysMsTime = ((ST_DOUBLE)tp.tv_sec)*1000 + ((ST_DOUBLE)tp.tv_usec)/1000; + /*sysMsTime = (ST_DOUBLE) time (NULL) * 1000;*/ + } +#elif (defined (__QNX__) || defined(__LYNX)) + { + struct tms tmsTime; /* must be passed to times() but we do not use it */ + ST_ULONG sysTime; + + sysTime = (ST_ULONG) times (&tmsTime); + if (sysTime != (ST_ULONG) -1) + { + /* NOTE: The value returned from the times() function (number of ticks */ + /* from some fixed point in time) will wrap. */ + /* Wrapping depends on the frequency (ticksPerSec) and can be as */ + /* often as every 39 minutes. This function needs to be called */ + /* frequently enough to detect when the value wraps. */ + if (sysTime < lastCheckTime) + /* the ticks counter wrapped to 0 */ + wrapCount += (ST_DOUBLE) (ULONG_MAX); + /* convert the sys time to ms accounting for possible wrap, */ + /* note that we do not have ST_INT64 support on QNX or LYNX systems */ + sysMsTime = (ST_DOUBLE)((wrapCount + (ST_DOUBLE) sysTime) * 1000.0 / (ST_DOUBLE) ticksPerSec); + lastCheckTime = sysTime; /* save for next check */ + } + } +#elif defined (_WIN32) + { + ST_ULONG msTime; + + /* the timeGetTime function retrieves the system time, in milliseconds.*/ + /* The system time is the time elapsed since Windows was started. */ + + /* NOTE: The timeGetTime and GetTickCount (used for PHARLAP_ETS) */ + /* return DWORD value that wraps to 0 every 49 days. */ + /* We need to detect the wrap up moment and save it. */ + msTime = (ST_ULONG) timeGetTime (); + if ( msTime < lastCheckTime ) + /* the ms counter wrapped to 0 */ + wrapCount += ( (ST_UINT64) 1 << 32 ); /* increment the high part of ST_UINT64 */ + sysMsTime = (ST_DOUBLE) (ST_INT64) (wrapCount + (ST_UINT64) msTime); + /* NOTE VC V6.0 compiler: the compiler generates error for the */ + /* conversion of unsigned __int64 to double. We will cast to */ + /* ST_INT64 before the ST_DOUBLE cast. This should work */ + /* because the sum of both numbers will 'never' be negative. */ + + lastCheckTime = msTime; /* save for next check */ + } +#else +#error Missing stime module implementation for this platform +#endif + + return (sysMsTime); + } + +/************************************************************************/ +/* _stimeReset */ +/*----------------------------------------------------------------------*/ +/* Resets stime module variables. */ +/************************************************************************/ + +static ST_RET _stimeReset (ST_VOID) + { +ST_RET rtn = SD_SUCCESS; + +#if (defined(linux) || defined(sun) || defined(__hpux) || defined(_WIN32)) + wrapCount = 0; + lastCheckTime = 0; +#elif (defined(__QNX__) || defined(__LYNX)) + wrapCount = 0.0; + lastCheckTime = 0; +#endif + + initMsTime = _sGetSysMsTime (); + + return (rtn); + } + +/************************************************************************/ +/* stimeInit */ +/*----------------------------------------------------------------------*/ +/* Initialize stime module variables. */ +/************************************************************************/ + +ST_RET stimeInit (ST_VOID) + { +ST_RET rtn = SD_SUCCESS; + + /* Allow multiple calls */ + if (initialized) + return (rtn); + + S_LOCK_UTIL_RESOURCES (); /* NOTE: this macro is now using non-logging gs_get_sem() */ + +#if defined(linux) || defined(sun) || defined(__hpux) || defined(__QNX__) || defined(__LYNX) + { + ticksPerSec = 0; + + ticksPerSec = (ST_ULONG) sysconf(_SC_CLK_TCK); + if (ticksPerSec == (ST_ULONG) -1L || ticksPerSec == 0) + rtn = SD_FAILURE; /* some error getting the number of clock ticks per second */ + } +#endif + + if (rtn == SD_SUCCESS) + { + rtn = _stimeReset (); + if (rtn == SD_SUCCESS) + initialized = SD_TRUE; + } + + S_UNLOCK_UTIL_RESOURCES (); + + return (rtn); + } + +/************************************************************************/ +/* sGetMsTime */ +/*----------------------------------------------------------------------*/ +/* Returns time in milliseconds form the start of the program. */ +/************************************************************************/ + +ST_DOUBLE sGetMsTime (ST_VOID) + { +ST_DOUBLE sysMsTime, retMsTime; + + if (!initialized) + if (stimeInit () != SD_SUCCESS) + return ((ST_DOUBLE)0.0); + + S_LOCK_UTIL_RESOURCES (); + + sysMsTime = _sGetSysMsTime(); + retMsTime = sysMsTime - initMsTime; + + S_UNLOCK_UTIL_RESOURCES (); + + return (retMsTime); + } + +/************************************************************************/ +/* sGetSysMsTime */ +/*----------------------------------------------------------------------*/ +/* Returns system time in milliseconds (time from an arbitrary point */ +/* like system start or program start). */ +/************************************************************************/ + +ST_DOUBLE sGetSysMsTime (ST_VOID) + { +ST_DOUBLE sysMsTime; + + if (!initialized) + if (stimeInit () != SD_SUCCESS) + return ((ST_DOUBLE)0.0); + + S_LOCK_UTIL_RESOURCES (); + + sysMsTime = _sGetSysMsTime(); + + S_UNLOCK_UTIL_RESOURCES (); + + return (sysMsTime); + } + +/************************************************************************/ +/* sResetMsTime */ +/*----------------------------------------------------------------------*/ +/* Reset stime module variables. */ +/************************************************************************/ + +ST_VOID sResetMsTime (ST_VOID) + { + if (!initialized) + { + stimeInit (); /* calls the _stimeReset() */ + return; + } + + S_LOCK_UTIL_RESOURCES (); + + _stimeReset (); + + S_UNLOCK_UTIL_RESOURCES (); + } + +/************************************************************************/ +/* stimeExit */ +/*----------------------------------------------------------------------*/ +/* Terminate timer use. */ +/************************************************************************/ + +ST_VOID stimeExit (ST_VOID) + { + if (!initialized) + return; + + S_LOCK_UTIL_RESOURCES (); + + initialized = SD_FALSE; + + S_UNLOCK_UTIL_RESOURCES (); + } + +/************************************************************************/ +/* sMsSleep */ +/*----------------------------------------------------------------------*/ +/* Calls system function to suspend current task or thread for */ +/* specified amount of time. */ +/* Parameters: */ +/* ST_LONG ms Number of milliseconds to sleep */ +/* Return values: */ +/* none */ +/************************************************************************/ + +#if defined(_WIN32) + +ST_VOID sMsSleep (ST_LONG ms) + { + Sleep (ms); + } + +#elif defined(__VMS) + +ST_VOID sMsSleep (ST_LONG ms) + { +ST_ULONG msec = (ST_ULONG) ms; +unsigned int us; + + while (msec > 0) + { + if (msec >= 1000) + { + us = 999999; /* microseconds, it must be less than 1000000 for usleep */ + msec -= 1000; + } + else + { + us = msec * 1000; + msec = 0; + } + usleep (us); /* unistd.h */ + } + } + +#else /* all other systems */ + +/* This version of the function uses the POSIX nanosleep function. */ +ST_VOID sMsSleep (ST_LONG ms) + { +struct timespec rqtp; + + rqtp.tv_sec = ms / 1000; + rqtp.tv_nsec = (ms % 1000) * 1000000; /* 1000 ms/us, 1000 us/ns ... */ + + nanosleep (&rqtp, NULL); /* should be available on AIX v5.x */ + } + +#endif /* all other systems */ diff --git a/mmslib/util/str_util.c b/mmslib/util/str_util.c new file mode 100644 index 0000000..6c54f4a --- /dev/null +++ b/mmslib/util/str_util.c @@ -0,0 +1,947 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 2000 - 2007 All Rights Reserved */ +/* */ +/* MODULE NAME : str_util.c */ +/* PRODUCT(S) : General Use */ +/* */ +/* MODULE DESCRIPTION : */ +/* General purpose string manipulation functions. */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* ascii_to_hex_str */ +/* hex_to_ascii_str */ +/* strnicmp (UNIX) */ +/* strcmpi (UNIX) */ +/* stricmp (UNIX) */ +/* strncat_maxstrlen */ +/* strncpy_safe */ +/* asciiToSlong */ +/* asciiToUlong */ +/* asciiToSint */ +/* asciiToUint */ +/* asciiToSint32 */ +/* asciiToUint32 */ +/* asciiToSint16 */ +/* asciiToUint16 */ +/* asciiToSint8 */ +/* asciiToUint8 */ +/* asciiToUchar */ +/* asciiToFloat */ +/* asciiToDouble */ +/* sInt8ToAscii */ +/* uInt8ToAscii */ +/* sInt16ToAscii */ +/* uInt16ToAscii */ +/* sInt32ToAscii */ +/* uInt32ToAscii */ +/* sIntToAscii */ +/* uIntToAscii */ +/* sLongToAscii */ +/* uLongToAscii */ +/* getKeywordFromFile */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 11/07/07 EJV 23 Check before defining INT32_MAX, UINT32_MAX. */ +/* 10/29/07 JRB 22 Add strncat_maxstrlen. Del strncat_safe (len */ +/* was wrong), use strncat or strncat_maxstrlen.*/ +/* 10/11/07 JRB 21 Add asciiToSint32, asciiToUint32 */ +/* 08/03/07 JRB 20 get_next_string: don't ignore extra delimiters*/ +/* They now indicate empty field (as in Excel). */ +/* 02/13/06 DSF 19 Migrate to VS.NET 2005 */ +/* 07/28/05 DWL 18 Corrected microsecond resolution, use const */ +/* ST_CHAR* in asciiTo* functions. */ +/* 03/14/05 JRB 17 Add get_next_string. */ +/* 12/03/04 JRB 16 Use strcasecmp, strncasecmp if supported. */ +/* Don't need SISCO strnicmp, etc. */ +/* 07/09/04 JRB 15 Add strncat_safe, strncpy_safe. */ +/* 03/09/04 EJV 14 Added getKeywordFromFile function. */ +/* 12/12/03 JRB 13 Add LYNX support. */ +/* 12/10/03 MDE 12 Added itoa/ltoa/utoa/ultoa replacements */ +/* 04/10/03 DSF 11 Added strnstr */ +/* 02/20/03 JRB 10 Del PSOS code. */ +/* 12/20/02 CRM 09 Added "defined(linux)" for strcmpi, etc. */ +/* 03/01/02 EJV 08 Can't check doubleNum < FLT_MIN (0.0 fails). */ +/* 02/28/02 EJV 07 Added asciiToFloat, asciiToDouble. */ +/* 02/25/02 EJV 06 Replaced non-ANSI ltoa with sprintf. */ +/* Added asciiToUlong, asciiToUint16, */ +/* asciiToUint8, asciiToSint, asciiToUint */ +/* hex_to_ascii_str: added param hex_no_spaces. */ +/* asciiToxxx:eliminated dependency on sx_defs.h*/ +/* 12/09/01 GLB 05 Added asciiToSlong, asciiToSint16, */ +/* asciiToSint8, asciiToUchar */ +/* 05/21/01 MDE 04 Added bitstring_to_ascii_str */ +/* 01/19/01 EJV 03 Moved strcmpi,stricmp,strnicmp from cfg_util */ +/* 11/02/00 MDE 02 Added _hex_no_spaces */ +/* 02/03/00 JRB 01 Created */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "str_util.h" +#include "slog.h" + +#include +#include +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + + + + + +/* NOTE: limits.h (included in sysincs.h) should have these defined. */ +/* Used to compare to LONG_MAX, ULONG_MAX to detect the long size.*/ +#if !defined(INT32_MAX) +#define INT32_MAX 0x7fffffff +#endif +#if !defined(UINT32_MAX) +#define UINT32_MAX 0xffffffff +#endif + +/************************************************************************/ +/* ascii_to_hex_str */ +/************************************************************************/ + +ST_RET ascii_to_hex_str ( + ST_UCHAR *hstr, /* hex string */ + ST_UINT *hlen_out, /* ptr to hex len to be set */ + ST_UINT hlen_max, /* maximum hex len to allow. */ + ST_CHAR *astr) /* ascii string */ + { +ST_INT digit; +ST_BOOLEAN nibble; /* SD_TRUE if nibble read, SD_FALSE if whole byte read*/ + + *hlen_out = 0; + nibble = SD_FALSE; + for ( ; *astr; astr++) /* read until NULL terminator */ + { + if (isxdigit (*astr)) /* get hex number */ + { + if (*hlen_out >= hlen_max) + { /* hstr already full. Can't add digit. */ + return (SD_FAILURE); + } + + digit = *astr; + digit = isdigit (digit) ? digit - '0' : 10 + (toupper (digit) - 'A'); + if (nibble) + { /* set low nibble */ + nibble = SD_FALSE; + hstr[*hlen_out] |= (ST_UCHAR) digit; + (*hlen_out)++; + } + else + { /* set high nibble */ + nibble = SD_TRUE; + hstr[*hlen_out] = (ST_UCHAR) digit << 4; + } + } + else if (isspace (*astr)) + continue; + else + { /* not hex digit, not white space, NOT GOOD. */ + return (SD_FAILURE); + } + } /* end "while" */ + + if (nibble) + { /* Only got half of byte. */ + return (SD_FAILURE); + } + + return (SD_SUCCESS); + } + +/************************************************************************/ +/* hex_to_ascii_str */ +/* To make it more readable, a 'blank' is inserted after every 2 digits */ +/* in the ascii string. The ascii string is NULL terminated. */ +/* The ascii buffer must be at least 3 times the length of the hex */ +/* string (hlen) to allow for the blanks and the NULL terminator. */ +/************************************************************************/ +#define cvt_nibble(a) ((ST_UCHAR) ((a) > 9 ? (a) + 'A' - 10 : (a) + '0')) + +ST_VOID hex_to_ascii_str ( + ST_CHAR *astr, /* ascii string */ + ST_UCHAR *hstr, /* hex string */ + ST_UINT hlen, /* len of hex string */ + ST_BOOLEAN hex_no_spaces) + + { +ST_UINT j; +ST_INT hex_index = 0; +ST_UCHAR ch; +ST_UCHAR hex; + + for (j = 0; j < hlen; j++) + { + if (j && hex_no_spaces != SD_TRUE) + astr[hex_index++] = ' '; /* space between bytes, but not before first*/ + + ch = *hstr++; /* get next character */ + hex = (ch >> 4) & (ST_UCHAR) 0x0f;/* write HEX chars for the byte */ + hex = cvt_nibble(hex); + astr[hex_index++] = hex; + hex = ch & (ST_UCHAR) 0x0f; + hex = cvt_nibble(hex); + astr[hex_index++] = hex; + } + astr[hex_index] = '\0'; /* NULL terminate it. */ + } + + +/************************************************************************/ +/* strnstr */ +/************************************************************************/ + +char * strnstr (char *str1, char *str2, int len) + { +char *cp = (char *) str1; +char *s1, *s2; +int cl; + + if ( !*str2 ) + return((char *)str1); + + while (*cp && len) + { + cl = len; + s1 = cp; + s2 = (char *) str2; + + while (*s1 && *s2 && cl && !(*s1-*s2) ) + s1++, s2++, cl--; + + if (!*s2) + return(cp); + + cp++; + len--; + } + + return(NULL); + } + +/* These functions used when system libraries don't provide them. + * Most UNIX-like systems provide similar functions strcasecmp & + * strncasecmp. On those systems, strnicmp etc. are remapped to strcasecmp & + * strncasecmp (see str_util.h), so these functions NOT needed. + */ +#if defined(VXWORKS) || defined(__LYNX) || defined(__ECOS) + +/************************************************************************/ +/* strnicmp */ +/************************************************************************/ + +ST_INT strnicmp (ST_CHAR *str1, ST_CHAR *str2, ST_INT n ) + { + ST_INT i = 0; + ST_INT test = 1; + + for (i = 0; i < n; i++) + { + if ( tolower ( *(str1+i) ) != tolower ( *(str2+i) ) ) + { + test = 0; + break; + } + } + if (test == 1) + return (0); + else + if ( tolower ( *(str1+i) ) > tolower ( *(str2+i) ) ) + return (1); + else + return (-1); + } + +/************************************************************************/ +/* strcmpi */ +/************************************************************************/ +ST_INT strcmpi (ST_CHAR *str1, ST_CHAR *str2) +{ + ST_INT iLen1, iLen2; + + iLen1 = strlen(str1); + iLen2 = strlen(str2); + return(strnicmp(str1, str2, ((iLen1 > iLen2) ? iLen1 : iLen2))); +} + +/************************************************************************/ +/* stricmp */ +/************************************************************************/ +ST_INT stricmp (ST_CHAR *str1, ST_CHAR *str2) + { + return(strcmpi(str1, str2)); + } + +#endif /* system libs don't provide these functs & don't support strcasecmp, strncasecmp.*/ + +/************************************************************************/ +/* strncat_maxstrlen */ +/* Similar to strncat but third arg is the maximum string length. */ +/* Destination string "dest" is always NULL terminated. */ +/* NOTE: Destination buffer size should always be at least */ +/* (maxstrlen+1) so there is room for NULL. */ +/* RETURNS: SD_SUCCESS or SD_FAILURE if maxstrlen already exceeded. */ +/************************************************************************/ +ST_RET strncat_maxstrlen (char *dest, char *src, size_t maxstrlen) + { + size_t dest_len; + ST_RET retcode; + + dest_len = strlen (dest); + if (dest_len < maxstrlen) + { + strncat (dest, src, maxstrlen-dest_len); /* always NULL-terminates dest*/ + retcode = SD_SUCCESS; + } + else + retcode = SD_FAILURE; /* "dest" is already too long. Don't do anything. */ + return (retcode); + } + +/************************************************************************/ +/* strncpy_safe */ +/* Same as strncpy but always NULL terminates "dest" string. */ +/* strncpy return is useless so this function doesn't bother with return.*/ +/************************************************************************/ +ST_VOID strncpy_safe (char *dest, char *src, int max_len) + { + strncpy (dest, src, max_len); + dest[max_len] = '\0'; + } + +/************************************************************************/ +/* asciiToSlong */ +/************************************************************************/ + +ST_RET asciiToSlong (const ST_CHAR *astr, /* ascii string */ + ST_LONG *sLong) /* ptr to long value obtained + from converted ascii string */ + { +ST_CHAR *retPtr; + + *sLong = 0; + errno = 0; + + /* convert ascii string to signed long */ + *sLong = strtol (astr, &retPtr, 10); + if (retPtr == astr || errno != 0) + return (SD_FAILURE); /* conversion error */ + + return SD_SUCCESS; + } + +/************************************************************************/ +/* asciiToUlong */ +/************************************************************************/ + +ST_RET asciiToUlong (const ST_CHAR *astr, /* ascii string */ + ST_ULONG *uLong) /* ptr to long value obtained + from converted ascii string */ + { +ST_CHAR *retPtr; + + *uLong = 0; + errno = 0; + + /* convert ascii string to unsigned long */ + *uLong = strtoul (astr, &retPtr, 10); + if (retPtr == astr || errno != 0) + return (SD_FAILURE); /* conversion error */ + + return SD_SUCCESS; + } + +/************************************************************************/ +/* asciiToSint */ +/************************************************************************/ + +ST_RET asciiToSint (const ST_CHAR *astr, /* ascii string */ + ST_INT *sInt) /* ptr to value obtained + from converted ascii string */ + { +ST_CHAR *retPtr; +ST_LONG sLong = 0; + + *sInt = 0; + errno = 0; + + /* convert ascii string to signed long */ + sLong = strtol (astr, &retPtr, 10); + if (retPtr == astr || errno != 0) + return (SD_FAILURE); /* conversion error */ + +#if (INT_MAX != LONG_MAX) /* if they are same, don't need to check */ + if (sLong < INT_MIN || sLong > INT_MAX) + /* value does not fit in the range of ST_INT */ + return SD_FAILURE; +#endif + + *sInt = (ST_INT) sLong; + return SD_SUCCESS; + } + +/************************************************************************/ +/* asciiToUint */ +/************************************************************************/ + +ST_RET asciiToUint (const ST_CHAR *astr, /* ascii string */ + ST_UINT *uInt) /* ptr to value obtained + from converted ascii string */ + { +ST_CHAR *retPtr; +ST_ULONG uLong = 0; + + *uInt = 0; + errno = 0; + + /* convert ascii string to unsigned long */ + uLong = strtoul (astr, &retPtr, 10); + if (retPtr == astr || errno != 0) + return (SD_FAILURE); /* conversion error */ + +#if (UINT_MAX != ULONG_MAX) /* if they are same, don't need to check */ + if (uLong > UINT_MAX) + /* value does not fit in the range of ST_UINT */ + return SD_FAILURE; +#endif + + *uInt = (ST_UINT) uLong; + return SD_SUCCESS; + } + +/************************************************************************/ +/* asciiToSint32 */ +/************************************************************************/ +ST_RET asciiToSint32 (const ST_CHAR *astr, /* ascii string */ + ST_INT32 *value) /* ptr to converted value*/ + { +ST_CHAR *retPtr; +ST_LONG sLong = 0; + + *value = 0; + errno = 0; + + /* convert ascii string to signed long */ + sLong = strtol (astr, &retPtr, 10); + if (retPtr == astr || errno != 0) + return (SD_FAILURE); /* conversion error */ + +#if (LONG_MAX < INT32_MAX) /* LONG smaller than 32 bits */ + #error This code will not work on this platform. +#endif +#if (LONG_MAX > INT32_MAX) /* LONG bigger than 32 bits */ + /* DEBUG: test this on 64-bit system. */ + if (sLong > INT32_MAX || sLong < (-0x80000000)) + /* value does not fit in the range of ST_INT32 */ + return (SD_FAILURE); +#endif +/* if (LONG_MAX == INT32_MAX), long is same as ST_INT32, */ +/* so no need to chk range. */ + + *value = (ST_INT32) sLong; + return (SD_SUCCESS); + } + +/************************************************************************/ +/* asciiToUint32 */ +/************************************************************************/ +ST_RET asciiToUint32 (const ST_CHAR *astr, /* ascii string */ + ST_UINT32 *value) /* ptr to converted value*/ + { +ST_CHAR *retPtr; +ST_ULONG uLong = 0; + + *value = 0; + errno = 0; + + /* convert ascii string to unsigned long */ + uLong = strtoul (astr, &retPtr, 10); + if (retPtr == astr || errno != 0) + return (SD_FAILURE); /* conversion error */ + +#if (ULONG_MAX < UINT32_MAX) /* ULONG smaller than 32 bits */ + #error This code will not work on this platform. +#endif +#if (ULONG_MAX > UINT32_MAX) /* ULONG bigger than 32 bits */ + if (uLong > UINT32_MAX) + /* value does not fit in the range of ST_UINT32 */ + return (SD_FAILURE); +#endif +/* if (ULONG_MAX == UINT32_MAX), unsigned long is same as ST_UINT32,*/ +/* so no need to chk range. */ + + *value = (ST_UINT32) uLong; + return (SD_SUCCESS); + } + +/************************************************************************/ +/* asciiToSint16 */ +/************************************************************************/ + +ST_RET asciiToSint16 (const ST_CHAR *astr,/* ascii string */ + ST_INT16 *sInt16) /* ptr to value obtained + from converted ascii string */ + { +ST_CHAR *retPtr; +ST_LONG sLong = 0; + + *sInt16 = 0; + errno = 0; + + /* convert ascii string to signed long */ + sLong = strtol (astr, &retPtr, 10); + if (retPtr == astr || errno != 0) + return (SD_FAILURE); /* conversion error */ + + if (sLong < SHRT_MIN || sLong > SHRT_MAX) + /* value does not fit in the range of ST_INT16 */ + return SD_FAILURE; + + *sInt16 = (ST_INT16) sLong; + return SD_SUCCESS; + } + +/************************************************************************/ +/* asciiToUint16 */ +/************************************************************************/ + +ST_RET asciiToUint16 (const ST_CHAR *astr, /* ascii string */ + ST_UINT16 *uInt16) /* ptr to value obtained + from converted ascii string */ + { +ST_CHAR *retPtr; +ST_ULONG uLong = 0; + + *uInt16 = 0; + errno = 0; + + /* convert ascii string to unsigned long */ + uLong = strtoul (astr, &retPtr, 10); + if (retPtr == astr || errno != 0) + return (SD_FAILURE); /* conversion error */ + + if (uLong > USHRT_MAX) + /* value does not fit in the range of ST_UINT16 */ + return SD_FAILURE; + + *uInt16 = (ST_UINT16) uLong; + return SD_SUCCESS; + } + +/************************************************************************/ +/* asciiToUchar */ +/************************************************************************/ + +ST_RET asciiToUchar (const ST_CHAR *astr, /* ascii string */ + ST_UCHAR *uChar) /* ptr to value obtained + from converted ascii string */ + { +ST_CHAR *retPtr; +ST_ULONG uLong = 0; + + *uChar = 0; + errno = 0; + + /* convert ascii string to unsigned long */ + uLong = strtoul (astr, &retPtr, 10); + if (retPtr == astr || errno != 0) + return (SD_FAILURE); /* conversion error */ + + if (uLong > UCHAR_MAX) + /* value does not fit in range of ST_UCHAR */ + return SD_FAILURE; + + *uChar = (ST_UCHAR) uLong; + return SD_SUCCESS; + } + +/************************************************************************/ +/* asciiToSint8 */ +/************************************************************************/ + +ST_RET asciiToSint8 (const ST_CHAR *astr, /* ascii string */ + ST_INT8 *sInt8) /* ptr to value obtained + from converted ascii string */ + { +ST_CHAR *retPtr; +ST_LONG sLong = 0; + + *sInt8 = 0; + errno = 0; + + /* convert ascii string to signed long */ + sLong = strtol (astr, &retPtr, 10); + if (retPtr == astr || errno != 0) + return (SD_FAILURE); /* conversion error */ + + if (sLong < CHAR_MIN || sLong > CHAR_MAX) + /* value does not fit in range of ST_INT8 */ + return SD_FAILURE; + + *sInt8 = (ST_INT8) sLong; + return SD_SUCCESS; + } + +/************************************************************************/ +/* asciiToUint8 */ +/************************************************************************/ + +ST_RET asciiToUint8 (const ST_CHAR *astr, /* ascii string */ + ST_UINT8 *uInt8) /* ptr to value obtained + from converted ascii string */ + { +ST_CHAR *retPtr; +ST_ULONG uLong = 0; + + *uInt8 = 0; + errno = 0; + + /* convert ascii string to unsigned long */ + uLong = strtoul (astr, &retPtr, 10); + if (retPtr == astr || errno != 0) + return (SD_FAILURE); /* conversion error */ + + if (uLong > UCHAR_MAX) + /* value does not fit in range of ST_UINT8 */ + return SD_FAILURE; + + *uInt8 = (ST_UINT8) uLong; + return SD_SUCCESS; + } + +/************************************************************************/ +/* asciiToFloat */ +/************************************************************************/ + +ST_RET asciiToFloat (const ST_CHAR *astr, + ST_FLOAT *floatNum) + { +ST_CHAR *retPtr; +ST_DOUBLE doubleNum = 0.0; + + *floatNum = 0.0; + errno = 0; + + /* convert ascii string to double */ + doubleNum = strtod (astr, &retPtr); + if (retPtr == astr || errno != 0) + return (SD_FAILURE); /* conversion error */ + + if (fabs(doubleNum) > FLT_MAX) + /* value does not fit in range of ST_FLOAT */ + return SD_FAILURE; + + *floatNum = (ST_FLOAT) doubleNum; + return SD_SUCCESS; + } + +/************************************************************************/ +/* asciiToDouble */ +/************************************************************************/ + +ST_RET asciiToDouble (const ST_CHAR *astr, + ST_DOUBLE *doubleNum) + { +ST_CHAR *retPtr; + + *doubleNum = 0.0; + errno = 0; + + /* convert ascii string to double */ + *doubleNum = strtod (astr, &retPtr); + if (retPtr == astr || errno != 0) + return (SD_FAILURE); /* conversion error */ + + return SD_SUCCESS; + } + + +/************************************************************************/ +/************************************************************************/ +/* Base 10 Integer to ASCII Functions */ +/************************************************************************/ + +static char *lToStr(long int val,char *dst, int radix); + +ST_CHAR *sInt8ToAscii (ST_INT8 v, ST_CHAR *p) {lToStr ((long) v, p, -10); return p;} +ST_CHAR *uInt8ToAscii (ST_UINT8 v, ST_CHAR *p) {lToStr ((long) v, p, 10); return p;} +ST_CHAR *sInt16ToAscii (ST_INT16 v, ST_CHAR *p) {lToStr ((long) v, p, -10); return p;} +ST_CHAR *uInt16ToAscii (ST_UINT16 v, ST_CHAR *p) {lToStr ((long) v, p, 10); return p;} +ST_CHAR *sInt32ToAscii (ST_INT32 v, ST_CHAR *p) {lToStr ((long) v, p, -10); return p;} +ST_CHAR *uInt32ToAscii (ST_UINT32 v, ST_CHAR *p) {lToStr ((long) v, p, 10); return p;} +ST_CHAR *sIntToAscii (ST_INT v, ST_CHAR *p) {lToStr ((long) v, p, -10); return p;} +ST_CHAR *uIntToAscii (ST_UINT v, ST_CHAR *p) {lToStr ((long) v, p, 10); return p;} +ST_CHAR *sLongToAscii (ST_LONG v, ST_CHAR *p) {lToStr ((long) v, p, -10); return p;} +ST_CHAR *uLongToAscii (ST_ULONG v, ST_CHAR *p) {lToStr ((long) v, p, 10); return p;} + +static char *lToStr(long int val,char *dst, int radix) + { +char buffer[65]; +char *p; +long int new_val; + + if (radix < 0) /* -10 */ + { + if (val < 0) + { + *dst++ = '-'; + val = -val; + } + } + + p = &buffer[sizeof(buffer)-1]; + *p = '\0'; + new_val= (long) ((unsigned long int) val / 10); + *--p = '0'+ (char) ((unsigned long int) val - (unsigned long) new_val * 10); + val = new_val; + + while (val != 0) + { + new_val=val/10; + *--p = '0' + (char) (val-new_val*10); + val= new_val; + } + while ((*dst++ = *p++) != 0) ; + return dst-1; + } + +/************************************************************************/ +/************************************************************************/ + +#if 0 +#include "stime.h" + +int testItoA () + { +char dest[100]; +long numMs; +double endTime; +double startTime; +int i; + + startTime = sGetMsTime (); + for (i = 0; i < 100000; ++i) + sprintf (dest, "%ld", 698); + endTime = sGetMsTime (); + numMs = (long) (endTime - startTime); + printf ("\n sprintf took %ld ms", numMs); + + startTime = sGetMsTime (); + for (i = 0; i < 100000; ++i) + ltoa (698, dest, 10); + endTime = sGetMsTime (); + numMs = (long) (endTime - startTime); + printf ("\n ltoa took %ld ms", numMs); + + startTime = sGetMsTime (); + for (i = 0; i < 100000; ++i) + lToStr (698, dest); + endTime = sGetMsTime (); + numMs = (long) (endTime - startTime); + printf ("\n lToStr took %ld ms", numMs); + + lToStr (0, dest); + if (strcmp (dest, "0")) + printf ("\nError in lToStr (0, dest);"); + + lToStr (-1, dest); + if (strcmp (dest, "-1")) + printf ("\nError in lToStr (-1, dest);"); + + lToStr (1, dest); + if (strcmp (dest, "1")) + printf ("\nError in lToStr (1, dest);"); + + sInt16ToAscii (SHRT_MIN, dest); + if (strcmp (dest, "-32768")) + printf ("\nError in sInt16ToAscii (SHRT_MIN, dest);"); + + sInt16ToAscii (SHRT_MAX, dest); + if (strcmp (dest, "32767")) + printf ("\nError in sInt16ToAscii (SHRT_MAX, dest);"); + + uInt16ToAscii (USHRT_MAX, dest); + if (strcmp (dest, "65535")) + printf ("\nError in sUint16ToAscii (USHRT_MAX, dest);"); + + sIntToAscii (INT_MIN, dest); + if (strcmp (dest, "-2147483648")) + printf ("\nError in sIntToAscii (INT_MIN, dest);"); + + sIntToAscii (INT_MAX, dest); + if (strcmp (dest, "2147483647")) + printf ("\nError in sIntToAscii (INT_MAX, dest);"); + + uIntToAscii (UINT_MAX, dest); + if (strcmp (dest, "0xffffffff")) + printf ("\nError in sUintToAscii (UINT_MAX, dest);"); + + sLongToAscii (LONG_MIN, dest); + if (strcmp (dest, "-2147483648")) + printf ("\nError in sIntToAscii (INT_MIN, dest);"); + + sLongToAscii (LONG_MAX, dest); + if (strcmp (dest, "2147483647")) + printf ("\nError in sIntToAscii (INT_MAX, dest);"); + + uLongToAscii (ULONG_MAX, dest); + if (strcmp (dest, "4294967295")) + printf ("\nError in sUintToAscii (UINT_MAX, dest);"); + } +#endif + + +/************************************************************************/ +/* getKeywordFromFile */ +/*----------------------------------------------------------------------*/ +/* Function to check if given keyword is found in a specified text file.*/ +/* When found, keyword value (string) is copied to user buffer valBuf. */ +/* This function assumes that there is one keyword per line in the file */ +/* in the form: */ +/* keyword=val */ +/* Where val is an int, long, string, etc. */ +/* keywordStr should include the '=' char. */ +/* Line length is limited to 255 bytes. */ +/* Any NL or CR characters are eliminated from the end of line. */ +/* Parameters: */ +/* ST_CHAR *fileStr file to open */ +/* ST_CHAR *keywordStr keyword to look for in file */ +/* ST_CHAR *valBuf ptr where to put keyword value */ +/* ST_UINT valBufLen len of buffer for the value. */ +/* Return: */ +/* SD_TRUE if keyword found. */ +/* SD_FALSE otherwise */ +/************************************************************************/ +ST_BOOLEAN getKeywordFromFile (ST_CHAR *fileStr, ST_CHAR *keywordStr, + ST_CHAR *valBuf, ST_UINT valBufLen) +{ +ST_BOOLEAN ret = SD_FALSE; +ST_CHAR lineBuf[256]; +ST_CHAR *keywordPtr = NULL; /* set if keywordStr found */ +FILE *fd = NULL; +ST_INT i; +ST_INT copyLen; + + /* make sure we got some valid parameters */ + if (!fileStr || strlen(fileStr) == 0) + return (ret); + if (!keywordStr || strlen(keywordStr) == 0) + return (ret); + if (!valBuf || valBufLen == 0 || valBufLen >= sizeof(lineBuf)) + return (ret); + + /* open and read the file line by line */ + if ((fd = fopen (fileStr, "r")) != NULL) + { + memset (lineBuf, 0, sizeof(lineBuf)); + while (fgets(lineBuf, sizeof(lineBuf)-1, fd) != NULL) + { + /* eliminate any NL or CR characters from the end of line */ + for (i=0; iTEXT data conversion */ + +ST_CHAR *sxaLocalToText (ST_VOID *dataPtr, SD_CONST RUNTIME_TYPE *rtHead, ST_INT numRt) + { + return (sxaLocalToText2 (dataPtr, rtHead, numRt, + gTextBuf, /* Use global text buffer */ + sizeof (gTextBuf))); /* size of global text buffer */ + } + +/************************************************************************/ +/* sxaLocalToText2 */ +/* This function should be thread-safe as long as caller's "textBuf" */ +/* is not accessed by other threads. */ +/* NOTE: "ms_local_to_text" function produces better text for logging, */ +/* but this function produces text compatible with sxaTextToLocal.*/ +/************************************************************************/ +ST_CHAR *sxaLocalToText2 (ST_VOID *dataPtr, SD_CONST RUNTIME_TYPE *rtHead, ST_INT numRt, + ST_CHAR *textBuf, /* User buffer in which to write text */ + ST_UINT textBufSize) /* size of user buffer */ + { +SXD_CONTEXT sxdContext; +ST_CHAR tempDataBuf[TEMP_DATA_BUF_SIZE]; +ST_RET rtnVal; + +/* Make a global temporary buffer available (easier than calloc..) */ + sxdContext.sTmpData = (ST_CHAR *) tempDataBuf; + sxdContext.sxaTextWorkBuf = textBuf; /* save user buffer pointer */ + sxdContext.workBufLen = textBufSize; /* save user buffer size */ + + sxdContext.nStrLen = 0; + sxdContext.nDataIdx = 0; + sxdContext.nStringCount = 0; + + sxdContext.textDataErrorDetected = SD_FALSE; + + rtnVal = sxd_process_arb_data ((ST_CHAR *) dataPtr, rtHead, numRt, &sxdContext, + &sxaLocToTextTbl, NULL); + + if (rtnVal != SD_SUCCESS) + { + return (NULL); + } + + if (sxdContext.textDataErrorDetected) + { + return (NULL); + } + + /* Null terminate the string */ + sxdContext.sxaTextWorkBuf[sxdContext.nStrLen + 1] = 0; + + return (sxdContext.sxaTextWorkBuf); + } + +/************************************************************************/ +/* sxaLocToTextInt8 () */ +/************************************************************************/ + +static ST_RET sxaLocToTextInt8 (ST_VOID *usr, ST_INT8 *pSrc, RUNTIME_TYPE *rt) + { +SXD_CONTEXT *sxdContext; + + sxdContext = (SXD_CONTEXT *) usr; + sprintf (sxdContext->sTmpData,"%d", (ST_INT) *pSrc); + sxaAddString (usr, sxdContext->sTmpData); + return (SD_SUCCESS); + } + +/************************************************************************/ +/* sxaLocToTextInt16 () */ +/************************************************************************/ + +static ST_RET sxaLocToTextInt16 (ST_VOID *usr, ST_INT16 *pSrc, RUNTIME_TYPE *rt) + { +SXD_CONTEXT *sxdContext; + + sxdContext = (SXD_CONTEXT *) usr; + sprintf (sxdContext->sTmpData,"%d",(ST_INT) *pSrc); + sxaAddString (usr, sxdContext->sTmpData); + return (SD_SUCCESS); + } + +/************************************************************************/ +/* sxaLocToTextInt32 () */ +/************************************************************************/ + +static ST_RET sxaLocToTextInt32 (ST_VOID *usr, ST_INT32 *pSrc, RUNTIME_TYPE *rt) + { +SXD_CONTEXT *sxdContext; + + sxdContext = (SXD_CONTEXT *) usr; + sprintf (sxdContext->sTmpData,"%ld", (ST_LONG) *pSrc); + sxaAddString (usr, sxdContext->sTmpData); + return (SD_SUCCESS); + } + +/************************************************************************/ +/* sxaLocToTextInt64 () */ +/************************************************************************/ + +#if defined(INT64_SUPPORT) +static ST_RET sxaLocToTextInt64 (ST_VOID *usr, ST_INT64 *pSrc, RUNTIME_TYPE *rt) + { +SXD_CONTEXT *sxdContext; + + sxdContext = (SXD_CONTEXT *) usr; + sprintf (sxdContext->sTmpData, S_FMT_INT64, *pSrc); + sxaAddString (usr, sxdContext->sTmpData); + return SD_SUCCESS; + } +#endif + +/************************************************************************/ +/* sxaLocToTextUint8 () */ +/************************************************************************/ + +static ST_RET sxaLocToTextUint8 (ST_VOID *usr, ST_UINT8 *pSrc, RUNTIME_TYPE *rt) + { +SXD_CONTEXT *sxdContext; + + sxdContext = (SXD_CONTEXT *) usr; + sprintf (sxdContext->sTmpData,"%u",(ST_UINT) *pSrc); + sxaAddString (usr, sxdContext->sTmpData); + return SD_SUCCESS; + } + +/************************************************************************/ +/* sxaLocToTextUint16 () */ +/************************************************************************/ + +static ST_RET sxaLocToTextUint16 (ST_VOID *usr, ST_UINT16 *pSrc, RUNTIME_TYPE *rt) + { +SXD_CONTEXT *sxdContext; + + sxdContext = (SXD_CONTEXT *) usr; + sprintf (sxdContext->sTmpData,"%u",(ST_UINT) *pSrc); + sxaAddString (usr, sxdContext->sTmpData); + return SD_SUCCESS; + } + +/************************************************************************/ +/* sxaLocToTextUint32 () */ +/************************************************************************/ + +static ST_RET sxaLocToTextUint32 (ST_VOID *usr, ST_UINT32 *pSrc, RUNTIME_TYPE *rt) + { +SXD_CONTEXT *sxdContext; + + sxdContext = (SXD_CONTEXT *) usr; + sprintf (sxdContext->sTmpData,"%lu", (ST_ULONG) *pSrc); + sxaAddString (usr, sxdContext->sTmpData); + return SD_SUCCESS; + } + +/************************************************************************/ +/* sxaLocToTextUint64 () */ +/************************************************************************/ + +#if defined(INT64_SUPPORT) +static ST_RET sxaLocToTextUint64 (ST_VOID *usr, ST_UINT64 *pSrc, RUNTIME_TYPE *rt) + { +SXD_CONTEXT *sxdContext; + + sxdContext = (SXD_CONTEXT *) usr; + sprintf (sxdContext->sTmpData, S_FMT_UINT64, *pSrc); + sxaAddString (usr, sxdContext->sTmpData); + return SD_SUCCESS; + } +#endif + +/************************************************************************/ +/* sxaLocToTextBcd1 () */ +/************************************************************************/ + +static ST_RET sxaLocToTextBcd1 (ST_VOID *usr, ST_INT8 *pSrc, RUNTIME_TYPE *rt) + { +SXD_CONTEXT *sxdContext; + + sxdContext = (SXD_CONTEXT *) usr; + sprintf (sxdContext->sTmpData,"%d", (ST_INT) *pSrc); + sxaAddString (usr, sxdContext->sTmpData); + return SD_SUCCESS; + } + +/************************************************************************/ +/* sxaLocToTextBcd2 () */ +/************************************************************************/ + +static ST_RET sxaLocToTextBcd2 (ST_VOID *usr, ST_INT16 *pSrc, RUNTIME_TYPE *rt) + { +SXD_CONTEXT *sxdContext; + + sxdContext = (SXD_CONTEXT *) usr; + sprintf (sxdContext->sTmpData,"%d",(ST_INT) *pSrc); + sxaAddString (usr, sxdContext->sTmpData); + return SD_SUCCESS; + } + +/************************************************************************/ +/* sxaLocToTextBcd4 () */ +/************************************************************************/ + +static ST_RET sxaLocToTextBcd4 (ST_VOID *usr, ST_INT32 *pSrc, RUNTIME_TYPE *rt) + { +SXD_CONTEXT *sxdContext; + + sxdContext = (SXD_CONTEXT *) usr; + sprintf (sxdContext->sTmpData,"%ld", (ST_LONG) *pSrc); + sxaAddString (usr, sxdContext->sTmpData); + return SD_SUCCESS; + } + +/************************************************************************/ +/* sxaLocToTextBool () */ +/************************************************************************/ + +static ST_RET sxaLocToTextBool (ST_VOID *usr, ST_BOOLEAN *pSrc, RUNTIME_TYPE *rt) + { +SXD_CONTEXT *sxdContext; + + sxdContext = (SXD_CONTEXT *) usr; + sprintf (sxdContext->sTmpData,"%u",(ST_UINT) *pSrc); + sxaAddString (usr, sxdContext->sTmpData); + return SD_SUCCESS; + } + +/************************************************************************/ +/* sxaLocToTextFlt () */ +/************************************************************************/ + +static ST_RET sxaLocToTextFlt (ST_VOID *usr, ST_FLOAT *pSrc, RUNTIME_TYPE *rt) + { +SXD_CONTEXT *sxdContext; + + sxdContext = (SXD_CONTEXT *) usr; +#if defined(_WIN32) || defined(__QNX__) + /* 7 significant digits */ + gcvt((ST_DOUBLE) *pSrc, 7, sxdContext->sTmpData); +#else + sprintf (sxdContext->sTmpData, "%.7g", (ST_DOUBLE) (*pSrc)); +#endif + sxaAddString (usr, sxdContext->sTmpData); + return SD_SUCCESS; + } + +/************************************************************************/ +/* sxaLocToTextDbl () */ +/************************************************************************/ + +static ST_RET sxaLocToTextDbl (ST_VOID *usr, ST_DOUBLE *pSrc, RUNTIME_TYPE *rt) + { +SXD_CONTEXT *sxdContext; + + sxdContext = (SXD_CONTEXT *) usr; +#if defined(_WIN32) || defined(__QNX__) + /* 16 significant digits */ + gcvt(*pSrc, 16, sxdContext->sTmpData); +#else + sprintf (sxdContext->sTmpData, "%.16g", *pSrc); +#endif + sxaAddString (usr, sxdContext->sTmpData); + return SD_SUCCESS; + } + +/************************************************************************/ +/* sxaLocToTextStr () */ +/************************************************************************/ + +static ST_RET sxaLocToTextStr (ST_VOID *usr, ST_CHAR *pSrc, RUNTIME_TYPE *rt) + { + sxaAddString (usr, pSrc); + return SD_SUCCESS; + } + +/************************************************************************/ +/* sxaLocToTextOct */ +/************************************************************************/ + +static ST_RET sxaLocToTextOct (ST_VOID *usr, ST_UCHAR *pSrc, RUNTIME_TYPE *rt) + { +ST_INT i, k; +ST_INT numBytes; +ST_INT16 *sp; +ST_CHAR *destBuf; +SXD_CONTEXT *sxdContext; + + sxdContext = (SXD_CONTEXT *) usr; + + sxdContext->sTmpData[0] = 0; + numBytes = rt->u.p.el_len; + + if (numBytes < 0) /* a variable length octet string */ + { + sp = (ST_INT16 *) pSrc; + numBytes = *sp; + k=2; + } + else + k=0; + + /* We take 3 bytes per octet, make sure it fits */ + if (numBytes > TEMP_DATA_BUF_SIZE/3) + { + SXLOG_NERR0 ("Octet String to encode too long"); + return SD_FAILURE; + } + + destBuf = sxdContext->sTmpData; + for (i = 0; i < numBytes; ++i, ++k) + { + sprintf (destBuf, "%02x ", (ST_UINT) pSrc[k]); + destBuf += 3; + } + + /* Eliminate the trailing space */ + *(destBuf - 1) = 0; + sxaAddString (usr, sxdContext->sTmpData); + return SD_SUCCESS; + } + +/************************************************************************/ +/* sxaLocToTextBs */ +/************************************************************************/ + +static ST_RET sxaLocToTextBs (ST_VOID *usr, ST_UCHAR *pSrc, RUNTIME_TYPE *rt) + { +ST_INT i; +ST_INT j; +ST_INT k; +ST_INT numBits; +ST_INT16 *sp; +ST_CHAR *destBuf; +ST_UCHAR mask; +SXD_CONTEXT *sxdContext; + + sxdContext = (SXD_CONTEXT *) usr; + + sxdContext->sTmpData[0] = 0; + numBits = rt->u.p.el_len; + +/* We take 1 dest byte per bit, make sure it fits */ + if (numBits > TEMP_DATA_BUF_SIZE-1) + { + SXLOG_NERR0 ("Bit String to encode too long"); + return (SD_FAILURE); + } + + if (numBits < 0) /* a variable length bit string */ + { + sp = (ST_INT16 *) pSrc; + numBits = *sp; + k=2; + } + else + k=0; + + destBuf = sxdContext->sTmpData; + for (i = 0; i < numBits; ++k) /* for each byte, while bits remain */ + { + mask = 0x80; + for (j = 0; j < 8 && i < numBits; ++i, ++j) + { + if (pSrc[k] & mask) + destBuf[i] = '1'; + else + destBuf[i] = '0'; + mask >>= 1; + } + } + destBuf[i] = 0; + sxaAddString (usr, sxdContext->sTmpData); + return (SD_SUCCESS); + } + +/************************************************************************/ +/* sxaLocToTextBtime4 */ +/************************************************************************/ + +static ST_RET sxaLocToTextBtime4 (ST_VOID *usr, ST_INT32 *pSrc, RUNTIME_TYPE *rt) + { +ST_CHAR timeString[MAX_TIME_STRING_LEN]; + + if (Btime4ValsToString (timeString, *pSrc)) + { + SXLOG_NERR0 ("Btime4 String conversion error."); + return (SD_FAILURE); + } + + sxaAddString (usr, timeString); + return (SD_SUCCESS); + } + + +/************************************************************************/ +/* sxaLocToTextBtime6 */ +/************************************************************************/ + +static ST_RET sxaLocToTextBtime6 (ST_VOID *usr, ST_INT32 *pSrc, RUNTIME_TYPE *rt) + { +ST_INT32 *pDays, *pMsec; +ST_CHAR timeString[MAX_TIME_STRING_LEN]; + + pMsec = pSrc; + pDays = (pSrc+1); + if (Btime6ValsToString (timeString, *pDays, *pMsec)) + { + SXLOG_NERR0 ("Btime6 String conversion error."); + return (SD_FAILURE); + } + + sxaAddString (usr, timeString); + return (SD_SUCCESS); + } + +/************************************************************************/ +/* sxaLocToTextGtime */ +/************************************************************************/ + +static ST_RET sxaLocToTextGtime (ST_VOID *usr, time_t *pSrc, RUNTIME_TYPE *rt) + { +ST_CHAR timeString[MAX_TIME_STRING_LEN]; + + if (tstrTimeToString (*pSrc, timeString)) + { + SXLOG_NERR0 ("Time to String conversion error"); + return (SD_FAILURE); + } + + sxaAddString (usr, timeString); + return (SD_SUCCESS); + } +#if 0 +/************************************************************************/ +/* sxaLocToTextUtc */ +/************************************************************************/ + +static ST_RET sxaLocToTextUtc (ST_VOID *usr, MMS_UTC_TIME *pSrc, RUNTIME_TYPE *rt) + { + SXLOG_ERR0 ("sxaLocToTextUtc error: function not implemented"); + return (SD_FAILURE); + } +#endif +/************************************************************************/ +/* sxaAddString */ +/************************************************************************/ +/* This function is used to add a string to the working string buffer */ + +static ST_VOID sxaAddString (ST_VOID *usr, ST_CHAR *str) + { +SXD_CONTEXT *sxdContext; + + sxdContext = (SXD_CONTEXT *) usr; + + /* Watch out for overrun */ + if ((sxdContext->nStrLen + strlen (str) + 3) >= sxdContext->workBufLen) + { + SXLOG_NERR0 ("Local->Text buffer overrun"); + sxdContext->textDataErrorDetected = SD_TRUE; + return; /* STOP: DO NOT write any more data to buffer */ + } + + /* If not the first one, need to add seperators */ + if (sxdContext->nStringCount > 0) + { +/* sxaTextWorkBuf[nStrLen++] = DATA_SEPARATOR; */ + sxdContext->sxaTextWorkBuf[sxdContext->nStrLen++] = DATA_SEPARATOR1; + sxdContext->sxaTextWorkBuf[sxdContext->nStrLen++] = DATA_SEPARATOR2; + sxdContext->sxaTextWorkBuf[sxdContext->nStrLen] = 0x00; + strcat (sxdContext->sxaTextWorkBuf,str); + } + else + strcpy (sxdContext->sxaTextWorkBuf,str); + + sxdContext->nStringCount++; + sxdContext->nStrLen += strlen (str); + } + +/************************************************************************/ +/************************************************************************/ +/* TEXT TO LOCAL DATA CONVERSION */ +/************************************************************************/ +/************************************************************************/ +/* This table is used as input to the MMS-EASE arbitrary data handling */ +/* function. All functions return SUCCESS or FAILURE */ + +static ST_RET sxaTextToLocBool (ST_VOID *usr, ST_BOOLEAN *pDest, RUNTIME_TYPE *rt); +static ST_RET sxaTextToLocInt8 (ST_VOID *usr, ST_INT8 *pDest, RUNTIME_TYPE *rt); +static ST_RET sxaTextToLocInt16 (ST_VOID *usr, ST_INT16 *pDest, RUNTIME_TYPE *rt); +static ST_RET sxaTextToLocInt32 (ST_VOID *usr, ST_INT32 *pDest, RUNTIME_TYPE *rt); +#if defined(INT64_SUPPORT) +static ST_RET sxaTextToLocInt64 (ST_VOID *usr, ST_INT64 *pDest, RUNTIME_TYPE *rt); +#endif +static ST_RET sxaTextToLocUint8 (ST_VOID *usr, ST_UINT8 *pDest, RUNTIME_TYPE *rt); +static ST_RET sxaTextToLocUint16 (ST_VOID *usr, ST_UINT16 *pDest, RUNTIME_TYPE *rt); +static ST_RET sxaTextToLocUint32 (ST_VOID *usr, ST_UINT32 *pDest, RUNTIME_TYPE *rt); +#if defined(INT64_SUPPORT) +static ST_RET sxaTextToLocUint64 (ST_VOID *usr, ST_UINT64 *pDest, RUNTIME_TYPE *rt); +#endif +static ST_RET sxaTextToLocBcd1 (ST_VOID *usr, ST_INT8 *pDest, RUNTIME_TYPE *rt); +static ST_RET sxaTextToLocBcd2 (ST_VOID *usr, ST_INT16 *pDest, RUNTIME_TYPE *rt); +static ST_RET sxaTextToLocBcd4 (ST_VOID *usr, ST_INT32 *pDest, RUNTIME_TYPE *rt); +static ST_RET sxaTextToLocFlt (ST_VOID *usr, ST_FLOAT *pDest, RUNTIME_TYPE *rt); +static ST_RET sxaTextToLocDbl (ST_VOID *usr, ST_DOUBLE *pDest, RUNTIME_TYPE *rt); +static ST_RET sxaTextToLocStr (ST_VOID *usr, ST_CHAR *pDest, RUNTIME_TYPE *rt); +static ST_RET sxaTextToLocOct (ST_VOID *usr, ST_UCHAR *pDest, RUNTIME_TYPE *rt); +static ST_RET sxaTextToLocBs (ST_VOID *usr, ST_UCHAR *pDest, RUNTIME_TYPE *rt); +static ST_RET sxaTextToLocBtime4 (ST_VOID *usr, ST_INT32 *pDest, RUNTIME_TYPE *rt); +static ST_RET sxaTextToLocBtime6 (ST_VOID *usr, ST_INT32 *pDest, RUNTIME_TYPE *rt); +static ST_RET sxaTextToLocGtime (ST_VOID *usr, time_t *pDest, RUNTIME_TYPE *rt); +#if 0 +static ST_RET sxaTextToLocUtc (ST_VOID *usr, MMS_UTC_TIME *pDest, RUNTIME_TYPE *rt); +#endif + +static SXD_ARB_DATA_CTRL sxaTextToLocTbl = + { + NULL, /* arrStart */ + NULL, /* arrEnd */ + NULL, /* strStart */ + NULL, /* strEnd */ + sxaTextToLocInt8, /* int8 */ + sxaTextToLocInt16, /* int16 */ + sxaTextToLocInt32, /* int32 */ +#if defined(INT64_SUPPORT) + sxaTextToLocInt64, /* int64 */ +#endif + sxaTextToLocUint8, /* uint8 */ + sxaTextToLocUint16, /* uint16 */ + sxaTextToLocUint32, /* uint32 */ +#if defined(INT64_SUPPORT) + sxaTextToLocUint64, /* uint64 */ +#endif + sxaTextToLocFlt, /* flt */ + sxaTextToLocDbl, /* dbl */ + sxaTextToLocOct, /* oct */ + sxaTextToLocBool, /* bool */ + sxaTextToLocBcd1, /* bcd1 */ + sxaTextToLocBcd2, /* bcd2 */ + sxaTextToLocBcd4, /* bcd4 */ + sxaTextToLocBs, /* bs */ + sxaTextToLocStr, /* visible str */ + sxaTextToLocBtime4, /* Bin Time */ + sxaTextToLocBtime6, /* Bin Time */ + sxaTextToLocGtime, /* Gen Time */ + NULL /* UTC Time */ + }; + +/************************************************************************/ +/* sxaTextToLocal */ +/************************************************************************/ +/* This is the main entry point for TEXT->LOCAL data conversion */ + +ST_RET sxaTextToLocal (ST_CHAR *pSource, ST_VOID *pDest, ST_INT numRt, SD_CONST RUNTIME_TYPE *rtHead) + { +SXD_CONTEXT sxdContext; +ST_CHAR tempDataBuf[TEMP_DATA_BUF_SIZE]; +ST_RET rtnVal; + +/* Make a global temporary buffer available (easier than calloc..) */ + sxdContext.sTmpData = tempDataBuf; + sxdContext.sxaTextWorkBuf = pSource; /* point to input string */ + sxdContext.nStrLen = strlen (sxdContext.sxaTextWorkBuf); + sxdContext.nDataIdx = 0; + sxdContext.nStringCount = 0; + + sxdContext.textDataErrorDetected = SD_FALSE; + + rtnVal = sxd_process_arb_data ((ST_CHAR *) pDest, rtHead, numRt, &sxdContext, + &sxaTextToLocTbl, NULL); + if (sxdContext.textDataErrorDetected) + rtnVal = SD_FAILURE; + + return (rtnVal); + } + +/************************************************************************/ +/* sxaTextToLocBool () */ +/************************************************************************/ + +static ST_RET sxaTextToLocBool (ST_VOID *usr, ST_BOOLEAN *pDest, RUNTIME_TYPE *rt) + { +ST_INT nDest; +SXD_CONTEXT *sxdContext; + + sxdContext = (SXD_CONTEXT *) usr; + +/* Get the next sub-string from the source string into 'sTmpData' */ + if (sxaGetNextString (usr) != SD_SUCCESS) + return SD_FAILURE; + +/* trim any leading blanks */ + leftTrim (sxdContext->sTmpData); + +/* Verify the string contents are correct for the data type */ +/* then convert to local format */ + + if (sxaCheckIntString (sxdContext->sTmpData) == SD_SUCCESS && + (sscanf (sxdContext->sTmpData, "%d", &nDest) == 1) && + (nDest >= 0 && nDest <= 255)) + { + *pDest = (ST_UCHAR) nDest; + } + else + { + SXLOG_NERR1 ("Text '%s' to Local error for type Boolean", + sxdContext->sTmpData); + sxdContext->textDataErrorDetected = SD_TRUE; + return SD_FAILURE; + } + return SD_SUCCESS; + } + +/************************************************************************/ +/* sxaTextToLocInt8 () */ +/************************************************************************/ + +static ST_RET sxaTextToLocInt8 (ST_VOID *usr, ST_INT8 *pDest, RUNTIME_TYPE *rt) + { +ST_INT nDest; +SXD_CONTEXT *sxdContext; + + sxdContext = (SXD_CONTEXT *) usr; + +/* Get the next sub-string frm the source string into 'sTmpData' */ + if (sxaGetNextString (usr) != SD_SUCCESS) + return SD_FAILURE; + +/* trim any leading blanks */ + leftTrim (sxdContext->sTmpData); + +/* Verify the string contents are correct for the data type */ +/* then convert to local format */ + + if (sxaCheckIntString (sxdContext->sTmpData) == SD_SUCCESS && + (sscanf (sxdContext->sTmpData, "%d", &nDest) == 1) && + (nDest >= -128 && nDest <= 127)) + { + *pDest = (ST_CHAR) nDest; + } + else + { + SXLOG_NERR1 ("Text '%s' to Local error for type Integer8", + sxdContext->sTmpData); + sxdContext->textDataErrorDetected = SD_TRUE; + return SD_FAILURE; + } + return SD_SUCCESS; + } + +/************************************************************************/ +/* sxaTextToLocInt16 () */ +/************************************************************************/ + +static ST_RET sxaTextToLocInt16 (ST_VOID *usr, ST_INT16 *pDest, RUNTIME_TYPE *rt) + { +ST_INT32 nDest; +SXD_CONTEXT *sxdContext; + + sxdContext = (SXD_CONTEXT *) usr; + +/* Get the next sub-string frm the source string into 'sTmpData' */ + if (sxaGetNextString (usr) != SD_SUCCESS) + return SD_FAILURE; + +/* trim any leading blanks */ + leftTrim (sxdContext->sTmpData); + +/* Verify the string contents are correct for the data type */ +/* then convert to local format */ + + if (sxaCheckIntString (sxdContext->sTmpData) == SD_SUCCESS && +#if (defined(__alpha) && !defined(__VMS)) + (sscanf (sxdContext->sTmpData, "%d", &nDest) == 1) && +#else + (sscanf (sxdContext->sTmpData, "%ld", &nDest) == 1) && +#endif + (nDest >= -32768 && nDest <= 32767)) + { + *pDest = (ST_INT16) nDest; + } + else + { + SXLOG_NERR1 ("Text '%s' to Local error for type Integer16", + sxdContext->sTmpData); + sxdContext->textDataErrorDetected = SD_TRUE; + return SD_FAILURE; + } + return SD_SUCCESS; + } + +/************************************************************************/ +/* sxaTextToLocInt32 () */ +/************************************************************************/ + +static ST_RET sxaTextToLocInt32 (ST_VOID *usr, ST_INT32 *pDest, RUNTIME_TYPE *rt) + { +ST_LONG nDest; +ST_CHAR temp[35]; +ST_CHAR *tempPtr; +SXD_CONTEXT *sxdContext; + + sxdContext = (SXD_CONTEXT *) usr; + +/* Get the next sub-string frm the source string into 'sTmpData' */ + if (sxaGetNextString (usr) != SD_SUCCESS) + return SD_FAILURE; + +/* trim any leading blanks */ + leftTrim (sxdContext->sTmpData); + +/* Verify the string contents are correct for the data type */ +/* then convert to local format */ + + if (sxaCheckIntString (sxdContext->sTmpData) == SD_SUCCESS && + (sscanf (sxdContext->sTmpData, "%ld", &nDest) == 1)) + { +#if defined(_WIN32) || defined(__QNX__) + ltoa(nDest, temp, 10); +#else + sprintf (temp, "%ld", nDest); +#endif + + /* look out for leading zero's */ + if (nDest != 0L) + { + tempPtr = sxdContext->sTmpData; + while (tempPtr[0] == '0') + tempPtr++; + sxdContext->sTmpData = tempPtr; + } + + if (strcmp(sxdContext->sTmpData, temp)) + { + SXLOG_NERR1 ("Text '%s' to Local error for type Integer32", + sxdContext->sTmpData); + sxdContext->textDataErrorDetected = SD_TRUE; + return SD_FAILURE; + } + else + *pDest = nDest; + } + else + { + SXLOG_NERR1 ("Text '%s' to Local error for type Integer32", + sxdContext->sTmpData); + sxdContext->textDataErrorDetected = SD_TRUE; + return SD_FAILURE; + } + + return SD_SUCCESS; + } + +/************************************************************************/ +/* sxaTextToLocInt64 () */ +/************************************************************************/ + +#if defined(INT64_SUPPORT) +static ST_RET sxaTextToLocInt64 (ST_VOID *usr, ST_INT64 *pDest, RUNTIME_TYPE *rt) + { +ST_INT64 nDest; +ST_CHAR temp[35]; +ST_CHAR *tempPtr; +SXD_CONTEXT *sxdContext; + + sxdContext = (SXD_CONTEXT *) usr; + +/* Get the next sub-string frm the source string into 'sTmpData' */ + if (sxaGetNextString (usr) != SD_SUCCESS) + return SD_FAILURE; + +/* trim any leading blanks */ + leftTrim (sxdContext->sTmpData); + +/* Verify the string contents are correct for the data type */ +/* then convert to local format */ + + if (sxaCheckIntString (sxdContext->sTmpData) == SD_SUCCESS && + (sscanf (sxdContext->sTmpData, S_FMT_INT64, &nDest) == 1)) + { +#ifdef _WIN32 + _i64toa(nDest, temp, 10); +#else + sprintf (temp, S_FMT_INT64, nDest); +#endif + + /* look out for leading zero's */ + if (nDest != 0L) + { + tempPtr = sxdContext->sTmpData; + while (tempPtr[0] == '0') + tempPtr++; + sxdContext->sTmpData = tempPtr; + } + + if (strcmp(sxdContext->sTmpData, temp)) + { + SXLOG_NERR1 ("Text '%s' to Local error for type Integer64", + sxdContext->sTmpData); + sxdContext->textDataErrorDetected = SD_TRUE; + return SD_FAILURE; + } + else + *pDest = nDest; + } + else + { + SXLOG_NERR1 ("Text '%s' to Local error for type Integer64", + sxdContext->sTmpData); + sxdContext->textDataErrorDetected = SD_TRUE; + return SD_FAILURE; + } + return SD_SUCCESS; + } +#endif + +/************************************************************************/ +/* sxaTextToLocUint8 () */ +/************************************************************************/ + +static ST_RET sxaTextToLocUint8 (ST_VOID *usr, ST_UINT8 *pDest, RUNTIME_TYPE *rt) + { +ST_UINT nDest; +SXD_CONTEXT *sxdContext; + + sxdContext = (SXD_CONTEXT *) usr; + +/* Get the next sub-string frm the source string into 'sTmpData' */ + if (sxaGetNextString (usr) != SD_SUCCESS) + return SD_FAILURE; + +/* trim any leading blanks */ + leftTrim (sxdContext->sTmpData); + +/* Verify the string contents are correct for the data type */ +/* then convert to local format */ + + if (sxaCheckUintString (sxdContext->sTmpData) == SD_SUCCESS && + (sscanf (sxdContext->sTmpData, "%d", &nDest) == 1) && + (nDest <= 255)) + { + *pDest = (ST_UCHAR) nDest; + } + else + { + SXLOG_NERR1 ("Text '%s' to Local error for type Unsigned8", + sxdContext->sTmpData); + sxdContext->textDataErrorDetected = SD_TRUE; + return SD_FAILURE; + } + return SD_SUCCESS; + } + +/************************************************************************/ +/* sxaTextToLocUint16 () */ +/************************************************************************/ + +static ST_RET sxaTextToLocUint16 (ST_VOID *usr, ST_UINT16 *pDest, RUNTIME_TYPE *rt) + { +ST_ULONG nDest; +SXD_CONTEXT *sxdContext; + + sxdContext = (SXD_CONTEXT *) usr; + +/* Get the next sub-string frm the source string into 'sTmpData' */ + if (sxaGetNextString (usr) != SD_SUCCESS) + return SD_FAILURE; + +/* trim any leading blanks */ + leftTrim (sxdContext->sTmpData); + +/* Verify the string contents are correct for the data type */ +/* then convert to local format */ + + if (sxaCheckUintString (sxdContext->sTmpData) == SD_SUCCESS && + (sscanf (sxdContext->sTmpData, "%lu", &nDest) == 1) && + (nDest <= 65535)) + { + *pDest = (ST_UINT16) nDest; + } + else + { + SXLOG_NERR1 ("Text '%s' to Local error for type Unsigned16", + sxdContext->sTmpData); + sxdContext->textDataErrorDetected = SD_TRUE; + return SD_FAILURE; + } + return SD_SUCCESS; + } + +/************************************************************************/ +/* sxaTextToLocUint32 () */ +/************************************************************************/ + +static ST_RET sxaTextToLocUint32 (ST_VOID *usr, ST_UINT32 *pDest, RUNTIME_TYPE *rt) + { +ST_ULONG nDest; +ST_CHAR temp[35]; +ST_CHAR *tempPtr; +SXD_CONTEXT *sxdContext; + + + sxdContext = (SXD_CONTEXT *) usr; + +/* Get the next sub-string frm the source string into 'sTmpData' */ + if (sxaGetNextString (usr) != SD_SUCCESS) + return SD_FAILURE; + +/* Check for hex format */ + if (sxdContext->sTmpData[0] == '0' && sxdContext->sTmpData[1] == 'x') + { + if (sscanf (sxdContext->sTmpData, "0x%lx", &nDest) == 1) + { + *pDest = nDest; + return SD_SUCCESS; + } + } + +/* trim any leading blanks */ + leftTrim (sxdContext->sTmpData); + +/* Verify the string contents are correct for the data type */ +/* then convert to local format */ + + if (sxaCheckUintString (sxdContext->sTmpData) == SD_SUCCESS && + (sscanf (sxdContext->sTmpData, "%lu", &nDest) == 1)) + { +#if defined(_WIN32) || defined(__QNX__) + ultoa(nDest, temp, 10); +#else + sprintf (temp, "%lu", nDest); +#endif + + /* look out for leading zero's */ + if (nDest != 0L) + { + tempPtr = sxdContext->sTmpData; + while (tempPtr[0] == '0') + tempPtr++; + sxdContext->sTmpData = tempPtr; + } + + if (strcmp(sxdContext->sTmpData, temp)) + { + SXLOG_NERR1 ("Text '%s' to Local error for type Unsigned32", + sxdContext->sTmpData); + sxdContext->textDataErrorDetected = SD_TRUE; + return SD_FAILURE; + } + else + *pDest = nDest; + } + else + { + SXLOG_NERR1 ("Text '%s' to Local error for type Unsigned32", + sxdContext->sTmpData); + sxdContext->textDataErrorDetected = SD_TRUE; + return SD_FAILURE; + } + return SD_SUCCESS; + } + + +/************************************************************************/ +/* sxaTextToLocUint64 () */ +/************************************************************************/ + +#if defined(INT64_SUPPORT) +static ST_RET sxaTextToLocUint64 (ST_VOID *usr, ST_UINT64 *pDest, RUNTIME_TYPE *rt) + { +ST_UINT64 nDest; +ST_CHAR temp[35]; +ST_CHAR *tempPtr; +SXD_CONTEXT *sxdContext; + + sxdContext = (SXD_CONTEXT *) usr; + +/* Get the next sub-string frm the source string into 'sTmpData' */ + if (sxaGetNextString (usr) != SD_SUCCESS) + return SD_FAILURE; + +/* trim any leading blanks */ + leftTrim (sxdContext->sTmpData); + +/* Verify the string contents are correct for the data type */ +/* then convert to local format */ + + if (sxaCheckUintString (sxdContext->sTmpData) == SD_SUCCESS && + (sscanf (sxdContext->sTmpData, S_FMT_UINT64, &nDest) == 1)) + { +#ifdef _WIN32 + _ui64toa(nDest, temp, 10); +#else + sprintf (temp, S_FMT_UINT64, nDest); +#endif + + /* look out for leading zero's */ + if (nDest != 0L) + { + tempPtr = sxdContext->sTmpData; + while (tempPtr[0] == '0') + tempPtr++; + sxdContext->sTmpData = tempPtr; + } + + if (strcmp(sxdContext->sTmpData, temp)) + { + SXLOG_NERR1 ("Text '%s' to Local error for type Unsigned64", + sxdContext->sTmpData); + sxdContext->textDataErrorDetected = SD_TRUE; + return SD_FAILURE; + } + else + *pDest = nDest; + } + else + { + SXLOG_NERR1 ("Text '%s' to Local error for type Unsigned64", + sxdContext->sTmpData); + sxdContext->textDataErrorDetected = SD_TRUE; + return SD_FAILURE; + } + return SD_SUCCESS; + } +#endif + +/************************************************************************/ +/* sxaTextToLocBcd1 () */ +/************************************************************************/ + +static ST_RET sxaTextToLocBcd1 (ST_VOID *usr, ST_INT8 *pDest, RUNTIME_TYPE *rt) + { +ST_INT nDest; +SXD_CONTEXT *sxdContext; + + sxdContext = (SXD_CONTEXT *) usr; + +/* Get the next sub-string frm the source string into 'sTmpData' */ + if (sxaGetNextString (usr) != SD_SUCCESS) + return SD_FAILURE; + +/* trim any leading blanks */ + leftTrim (sxdContext->sTmpData); + +/* Verify the string contents are correct for the data type */ +/* then convert to local format */ + + if (sxaCheckIntString (sxdContext->sTmpData) == SD_SUCCESS && + (sscanf (sxdContext->sTmpData, "%d", &nDest) == 1)) + { + if ( (rt->u.p.el_len == 1) && (nDest >= 0 && nDest <= 9) ) + *pDest = (ST_CHAR) nDest; + else if ( (rt->u.p.el_len == 2) && (nDest >= 0 && nDest <= 99) ) + *pDest = (ST_CHAR) nDest; + else + { + SXLOG_NERR2 ("Text '%s' to Local error for type BCD%d", + sxdContext->sTmpData, rt->u.p.el_len); + sxdContext->textDataErrorDetected = SD_TRUE; + return SD_FAILURE; + } + } + else + { + SXLOG_NERR1 ("Text '%s' to Local error for type BCD1", + sxdContext->sTmpData); + sxdContext->textDataErrorDetected = SD_TRUE; + return SD_FAILURE; + } + return SD_SUCCESS; + } + +/************************************************************************/ +/* sxaTextToLocBcd2 () */ +/************************************************************************/ + +static ST_RET sxaTextToLocBcd2 (ST_VOID *usr, ST_INT16 *pDest, RUNTIME_TYPE *rt) + { +ST_UINT nDest; +SXD_CONTEXT *sxdContext; + + sxdContext = (SXD_CONTEXT *) usr; + +/* Get the next sub-string frm the source string into 'sTmpData' */ + if (sxaGetNextString (usr) != SD_SUCCESS) + return SD_FAILURE; + +/* trim any leading blanks */ + leftTrim (sxdContext->sTmpData); + +/* Verify the string contents are correct for the data type */ +/* then convert to local format */ + + if (sxaCheckIntString (sxdContext->sTmpData) == SD_SUCCESS && + (sscanf (sxdContext->sTmpData, "%u", &nDest) == 1)) + { + if ( (rt->u.p.el_len == 3) && (nDest <= 999) ) + *pDest = (ST_INT16) nDest; + else if ( (rt->u.p.el_len == 4) && (nDest <= 9999) ) + *pDest = (ST_INT16) nDest; + else + { + SXLOG_NERR2 ("Text '%s' to Local error for type BCD%d", + sxdContext->sTmpData, rt->u.p.el_len); + sxdContext->textDataErrorDetected = SD_TRUE; + return SD_FAILURE; + } + } + else + { + SXLOG_NERR1 ("Text '%s' to Local error for type BCD2", + sxdContext->sTmpData); + sxdContext->textDataErrorDetected = SD_TRUE; + return SD_FAILURE; + } + return SD_SUCCESS; + } + +/************************************************************************/ +/* sxaTextToLocBcd4 () */ +/************************************************************************/ + + +static ST_RET sxaTextToLocBcd4 (ST_VOID *usr, ST_INT32 *pDest, RUNTIME_TYPE *rt) + { +ST_LONG nDest; +SXD_CONTEXT *sxdContext; + + sxdContext = (SXD_CONTEXT *) usr; + +/* Get the next sub-string frm the source string into 'sTmpData' */ + if (sxaGetNextString (usr) != SD_SUCCESS) + return SD_FAILURE; + +/* trim any leading blanks */ + leftTrim (sxdContext->sTmpData); + +/* Verify the string contents are correct for the data type */ +/* then convert to local format */ + + if (sxaCheckIntString (sxdContext->sTmpData) == SD_SUCCESS && + (sscanf (sxdContext->sTmpData, "%ld", &nDest) == 1)) + { + if ( (rt->u.p.el_len == 5) && (nDest >= 0 && nDest <= 99999L) ) + *pDest = nDest; + else if ( (rt->u.p.el_len == 6) && (nDest >= 0 && nDest <= 999999L) ) + *pDest = nDest; + else if ( (rt->u.p.el_len == 7) && + (nDest >= 0 && (ST_ULONG) nDest <= 9999999L) ) + *pDest = nDest; + else if ( (rt->u.p.el_len == 8) && + ((ST_ULONG) nDest <= 99999999L) ) + *pDest = nDest; + else + { + SXLOG_NERR2 ("Text '%s' to Local error for type BCD%d", + sxdContext->sTmpData, rt->u.p.el_len); + sxdContext->textDataErrorDetected = SD_TRUE; + return SD_FAILURE; + } + } + else + { + SXLOG_NERR1 ("Text '%s' to Local error for type BCD4", + sxdContext->sTmpData); + sxdContext->textDataErrorDetected = SD_TRUE; + return SD_FAILURE; + } + return SD_SUCCESS; + } + +/************************************************************************/ +/* sxaTextToLocFlt () */ +/************************************************************************/ + +static ST_RET sxaTextToLocFlt (ST_VOID *usr, ST_FLOAT *pDest, RUNTIME_TYPE *rt) + { +ST_DOUBLE dDest; +SXD_CONTEXT *sxdContext; + + sxdContext = (SXD_CONTEXT *) usr; + + +/* Get the next sub-string frm the source string into 'sTmpData' */ + if (sxaGetNextString (usr) != SD_SUCCESS) + return SD_FAILURE; + +/* trim any leading blanks */ + leftTrim (sxdContext->sTmpData); + +/* Verify the string contents are correct for the data type */ +/* then convert to local format */ + if (sxaCheckFloatString (sxdContext->sTmpData) == SD_SUCCESS && + (sscanf (sxdContext->sTmpData, "%lf", &dDest) == 1)) + { + + *pDest = (ST_FLOAT) dDest; + + } + else + { + SXLOG_NERR1 ("Text '%s' to Local error for type Float", + sxdContext->sTmpData); + sxdContext->textDataErrorDetected = SD_TRUE; + return SD_FAILURE; + } + return SD_SUCCESS; + } + +/************************************************************************/ +/* sxaTextToLocDbl () */ +/************************************************************************/ + +static ST_RET sxaTextToLocDbl (ST_VOID *usr, ST_DOUBLE *pDest, RUNTIME_TYPE *rt) + { +ST_DOUBLE dDest; +SXD_CONTEXT *sxdContext; + + sxdContext = (SXD_CONTEXT *) usr; + +/* Get the next sub-string frm the source string into 'sTmpData' */ + if (sxaGetNextString (usr) != SD_SUCCESS) + return SD_FAILURE; + +/* trim any leading blanks */ + leftTrim (sxdContext->sTmpData); + +/* Verify the string contents are correct for the data type */ +/* then convert to local format */ + + if (sxaCheckFloatString (sxdContext->sTmpData) == SD_SUCCESS && + (sscanf (sxdContext->sTmpData, "%lf", &dDest) == 1)) + { + *pDest = dDest; + } + else + { + SXLOG_NERR1 ("Text '%s' to Local error for type Double", + sxdContext->sTmpData); + sxdContext->textDataErrorDetected = SD_TRUE; + return SD_FAILURE; + } + return SD_SUCCESS; + } + +/************************************************************************/ +/* sxaTextToLocStr () */ +/************************************************************************/ + +static ST_RET sxaTextToLocStr (ST_VOID *usr, ST_CHAR *pDest, RUNTIME_TYPE *rt) + { +SXD_CONTEXT *sxdContext; + + sxdContext = (SXD_CONTEXT *) usr; + +/* Get the next sub-string frm the source string into 'sTmpData' */ + if (sxaGetNextString (usr) != SD_SUCCESS) + { + sxdContext->sTmpData[0] = 0x00; + } + + +/* Verify that the string will fit into the destination */ + if (strlen (sxdContext->sTmpData) > (ST_UINT) (rt->el_size - 1)) + { + sxdContext->textDataErrorDetected = SD_TRUE; + SXLOG_NERR2 ("String too long (%d max) : '%s'", (ST_INT) (rt->el_size - 1), + sxdContext->sTmpData); + sxdContext->textDataErrorDetected = SD_TRUE; + return SD_FAILURE; + } + + strcpy (pDest, sxdContext->sTmpData); + return SD_SUCCESS; + } + + +/************************************************************************/ +/* sxaTextToLocOct */ +/************************************************************************/ + +static ST_RET sxaTextToLocOct (ST_VOID *usr, ST_UCHAR *pDest, RUNTIME_TYPE *rt) + { +ST_CHAR outData[TEMP_DATA_BUF_SIZE]; +ST_INT outDataLen; +SXD_CONTEXT *sxdContext; + + sxdContext = (SXD_CONTEXT *) usr; + +/* Get the next sub-string frm the source string into 'sTmpData' */ + if (sxaGetNextString (usr) != SD_SUCCESS) + return SD_FAILURE; + +/* Verify the string contents are correct for the data type */ +/* then convert to local format */ + + if (sxaCheckOctetString (sxdContext->sTmpData, outData, &outDataLen) != SD_SUCCESS) + { + SXLOG_NERR1 ("Text '%s' to Local error for type Octet String", + sxdContext->sTmpData); + sxdContext->textDataErrorDetected = SD_TRUE; + return SD_FAILURE; + } + + if (rt->u.p.el_len <0) + { + if (outDataLen > (ST_INT) abs(rt->u.p.el_len)) + { + SXLOG_NERR2 ("Octet String too long (%d max) : '%s'", + abs (rt->u.p.el_len), sxdContext->sTmpData); + sxdContext->textDataErrorDetected = SD_TRUE; + return SD_FAILURE; + } + *((ST_INT16 *) pDest) = (ST_INT16) outDataLen; + memcpy (pDest+2, outData, outDataLen); + } + else + { + if (outDataLen != (ST_INT) rt->u.p.el_len) + { + SXLOG_NERR2 ("Invalid Length Octet String (required length=%d octets) : '%s'", + rt->u.p.el_len, sxdContext->sTmpData); + sxdContext->textDataErrorDetected = SD_TRUE; + return SD_FAILURE; + } + memcpy (pDest, outData, outDataLen); + } + + return SD_SUCCESS; + } + +/************************************************************************/ +/* sxaTextToLocBs */ +/************************************************************************/ + +static ST_RET sxaTextToLocBs (ST_VOID *usr, ST_UCHAR *pDest, RUNTIME_TYPE *rt) + { +ST_CHAR outData[TEMP_DATA_BUF_SIZE]; +ST_INT outDataLen, bstringLength; +SXD_CONTEXT *sxdContext; + + sxdContext = (SXD_CONTEXT *) usr; + +/* Get the next sub-string frm the source string into 'sTmpData' */ + if (sxaGetNextString (usr) != SD_SUCCESS) + return SD_FAILURE; + +/* Verify the string contents are correct for the data type */ +/* then convert to local format */ + + if (sxaCheckBitString (sxdContext->sTmpData, outData, &outDataLen) != SD_SUCCESS) + { + SXLOG_NERR1 ("Text '%s' to Local error for type Bit String", + sxdContext->sTmpData); + sxdContext->textDataErrorDetected = SD_TRUE; + return SD_FAILURE; + } + + bstringLength = strlen(sxdContext->sTmpData); + if (rt->u.p.el_len <0) /* variable length bit string */ + { + if (bstringLength > abs(rt->u.p.el_len)) + { + SXLOG_NERR2 ("Variable Length Bit String too long (%d bits max) : '%s'", + abs(rt->u.p.el_len), sxdContext->sTmpData); + sxdContext->textDataErrorDetected = SD_TRUE; + return SD_FAILURE; + } + *((ST_INT16 *) pDest) = (ST_INT16) bstringLength; + memcpy (pDest+2, outData, outDataLen); + } + else + { + if (bstringLength != rt->u.p.el_len) + { + SXLOG_NERR2 ("Invlid Length Bit String (required length=%d bits) : '%s'", + rt->u.p.el_len, sxdContext->sTmpData); + sxdContext->textDataErrorDetected = SD_TRUE; + return SD_FAILURE; + } + memcpy (pDest, outData, outDataLen); + } + + return SD_SUCCESS; + } + +/************************************************************************/ +/* sxaTextToLocBtime4 */ +/************************************************************************/ + +static ST_RET sxaTextToLocBtime4 (ST_VOID *usr, ST_INT32 *pDest, RUNTIME_TYPE *rt) + { +ST_INT32 nDest; +SXD_CONTEXT *sxdContext; + + sxdContext = (SXD_CONTEXT *) usr; + +/* Get the next sub-string frm the source string into 'sTmpData' */ + if (sxaGetNextString (usr) != SD_SUCCESS) + return SD_FAILURE; + + if (Btime4StringToVals (sxdContext->sTmpData, &nDest)) + { + SXLOG_NERR1 ("Local Btime4 conversion error '%s'", sxdContext->sTmpData); + sxdContext->textDataErrorDetected = SD_TRUE; + return SD_FAILURE; + } + + memcpy(pDest, &nDest, sizeof(ST_INT32)); + return SD_SUCCESS; + } + + +/************************************************************************/ +/* sxaTextToLocBtime6 */ +/************************************************************************/ + +static ST_RET sxaTextToLocBtime6 (ST_VOID *usr, ST_INT32 *pDest, RUNTIME_TYPE *rt) + { +ST_INT32 nDest[2]; +SXD_CONTEXT *sxdContext; + + sxdContext = (SXD_CONTEXT *) usr; + +/* Get the next sub-string frm the source string into 'sTmpData' */ + if (sxaGetNextString (usr) != SD_SUCCESS) + return SD_FAILURE; + + if (Btime6StringToVals (sxdContext->sTmpData, &nDest[1], &nDest[0])) + { + SXLOG_NERR1 ("Local Btime6 conversion error '%s'", sxdContext->sTmpData); + sxdContext->textDataErrorDetected = SD_TRUE; + return SD_FAILURE; + } + + memcpy(pDest, nDest, 2*sizeof(ST_INT32)); + return SD_SUCCESS; + } + +/************************************************************************/ +/* sxaTextToLocGtime */ +/************************************************************************/ + +static ST_RET sxaTextToLocGtime (ST_VOID *usr, time_t *pDest, RUNTIME_TYPE *rt) + { +time_t t; +SXD_CONTEXT *sxdContext; + + sxdContext = (SXD_CONTEXT *) usr; + +/* Get the next sub-string frm the source string into 'sTmpData' */ + if (sxaGetNextString (usr) != SD_SUCCESS) + return SD_FAILURE; + + if (tstrStringToTime (sxdContext->sTmpData, &t)) + { + SXLOG_NERR1 ("Local time conversion error '%s'", sxdContext->sTmpData); + sxdContext->textDataErrorDetected = SD_TRUE; + return SD_FAILURE; + } + + *pDest = t; + return SD_SUCCESS; + } + +#if 0 +/************************************************************************/ +/* sxaTextToLocUtc */ +/************************************************************************/ + +static ST_RET sxaTextToLocUtc (ST_VOID *usr, MMS_UTC_TIME *pDest, RUNTIME_TYPE *rt) + { + SXLOG_ERR0 ("sxaTextToLocUtc error: function not implemented"); + return (SD_FAILURE); + } +#endif + +/************************************************************************/ +/************************************************************************/ +/* sxaGetNextString */ +/************************************************************************/ +/* Get the next sub-string frm the source string into 'sTmpData' */ + +static ST_INT sxaGetNextString (ST_VOID *usr) + { +ST_INT nCount; +ST_INT nIdx; +ST_CHAR c; +SXD_CONTEXT *sxdContext; + + sxdContext = (SXD_CONTEXT *) usr; + +/* Copy the data from data buffer to temporary data buffer. */ +/* Start at the current position, strip off learing delimiters, */ +/* accept characters until the next delimiter */ +/* */ +/* CF_TEXT: Each line ends with a carriage return/linefeed combination.*/ +/* A null character signals the end of the data. */ + nCount = 0; + nIdx = sxdContext->nDataIdx; + while (sxdContext->nStrLen > 0) + { + sxdContext->nStrLen--; + c = sxdContext->sxaTextWorkBuf[nIdx++]; + if (c == 0x00 || c == 0x0d) + { + break; /* This is the end of this component of the string */ + } + + sxdContext->sTmpData[nCount++] = c; + } + + while (sxdContext->nStrLen > 0) + { + c = sxdContext->sxaTextWorkBuf[nIdx]; + if (c != 0x00 && c != 0x0a ) + { + break; /* This is strips out the linefeed */ + } + nIdx++; + sxdContext->nStrLen--; + } + + sxdContext->nDataIdx = nIdx; + sxdContext->sTmpData[nCount] = 0x00; + return (SD_SUCCESS); + } + +/************************************************************************/ +/* leftTrim: remove leading spaces from text string */ +/************************************************************************/ + +static ST_VOID leftTrim (ST_CHAR *pString) + { +ST_CHAR outData[TEMP_DATA_BUF_SIZE]; +ST_INT len, startPos=0, i=0; + + len = (strlen (pString)); + if (!len) + return; + + strcpy (outData, pString); + while (i 2000) + return (SD_FAILURE); /* length too long */ + digit = *p++; /* separate nibbles */ + digit = isdigit (digit) ? digit - '0' : 10 + (toupper (digit) - 'A'); + if (nibble) + { + nibble = 0; + /* set low byte */ + pOutData[i] = (pOutData[i] | (ST_CHAR) digit); + i++; + SkipWhiteSpace (&p); + } + else + { + nibble = 1; + pOutData[i] = (ST_CHAR) digit << 4; /* set high byte*/ + } + } + } + } + + /* set data length */ + if (nibble == 0) + *pOutLen = i; + else + return (SD_FAILURE); + + return (SD_SUCCESS); + } + + +/************************************************************************/ +/* sxaCheckBitString */ +/************************************************************************/ +/* Verify that this is valid bitstring data */ + +static ST_INT sxaCheckBitString (ST_CHAR *pC, ST_CHAR *pOutData, ST_INT *pOutLen) + { +ST_CHAR *p = pC; +ST_INT i, j; +ST_UCHAR mask; + + i = 0; + j = 0; + mask = 0x80; + while (*p != '\0') + { + + switch (*p) + { + case '0': + pOutData[i] &= ~mask; + break; + + case '1': + pOutData[i] |= mask; + break; + + default: + return (SD_FAILURE); + break; + } + + j++; /* check next bit */ + mask >>= 1; + + if (j == 8) + { + i++; /* do next byte */ + j = 0; + mask = 0x80; + } + + p++; + } + + if (j > 0) + i++; + *pOutLen = i; + + return (SD_SUCCESS); + } + diff --git a/mmslib/util/sx_data.c b/mmslib/util/sx_data.c new file mode 100644 index 0000000..e178e62 --- /dev/null +++ b/mmslib/util/sx_data.c @@ -0,0 +1,2601 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1999 - 2008, All Rights Reserved */ +/* */ +/* MODULE NAME : sx_data.c */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* sxd_process_arb_data */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 01/30/08 EJV 37 sprintf,sscanf: use S_FMT_* macros for ST_INT64 */ +/* 01/30/06 GLB 36 Integrated porting changes for VMS */ +/* 08/01/05 JRB 35 Avoid risky cast to remove const. */ +/* 09/01/04 EJV 34 Added new include "sx_arb.h" */ +/* 03/16/04 EJV 33 Added ST_(U)LONG typecast to sprintf,on some */ +/* sys ST_(U)INT32 can be (unsigned) long or int*/ +/* Use SISCO types in place of C types. */ +/* 01/23/04 MDE 32 Added type ID validity checking */ +/* 01/13/04 JRB 31 Add LYNX support. */ +/* 01/08/04 EJV 30 Ported 64-bit funcs to sun. Corr (__hpux). */ +/* 10/13/03 EJV 29 Replaced defined(QNX) with defined(__QNX__). */ +/* 04/29/03 JRB 28 Use MAX_IDENT_LEN define. */ +/* 04/14/03 JRB 27 Add linux support. Use #error. */ +/* 04/02/03 JRB 26 Add UTF8string support (see RT_UTF8_STRING). */ +/* 12/11/02 MDE 25 Now include 'mvl_defs.h' */ +/* 12/02/02 MDE 24 Fixed elPres handling */ +/* 04/24/02 EJV 23 Added DEBUG_SISCO for thisFileName */ +/* 04/17/02 EJV 22 sxd_process_arb_data: added RT_UTC_TIME case */ +/* _sxdEncArbFuns: added NULL for 'utc' fun */ +/* 04/08/02 MDE 21 Added NO_MVL ifdefs to support mmslog */ +/* 03/06/02 JRB 20 Add more SD_CONST. Comment out unused statics*/ +/* 02/26/02 EJV 19 strStart: added SD_CONST for rt_head param. */ +/* Eliminated some warnings on VXWORKS. */ +/* Moved limits.h to sysincs.h and INT_MAX check*/ +/* 02/25/02 EJV 18 _AIX: replace itoa, ltoa with ANSI sprintf */ +/* hex_to_ascii_str: added param hex_no_spaces. */ +/* 11/26/01 EJV 17 _sxdDecInt64: fixed logging. */ +/* 09/13/01 JRB 16 Add limits.h so INT_MAX & LONG_MAX defined. */ +/* 08/10/01 EJV 15 _sxdDecUint32: eliminated warning on QNX. */ +/* 06/22/01 EJV 14 Reworked decode of arrays and releated chgs. */ +/* Added rt_head param to _sxdEncStrStart. */ +/* Moved globals _sxdPrefix, _sxdCurrNestLevel */ +/* to SX_END_CTRL (to be thread safe). */ +/* Implemented INT64 funcs: _sxdDecInt64,... */ +/* 05/21/01 MDE 13 Fixed overwrite problem with bad data */ +/* 05/21/01 MDE 12 Changed to work with all RUNTIME_TYPE */ +/* 03/21/01 MDE 11 Fixed bitstring decode for variable len bs */ +/* 03/21/01 MDE 10 Moved sx arb handling defines to sx_defs.h */ +/* 02/28/01 EJV 09 _AIX: use itoa, ltoa instead of slow sprintf */ +/* 02/22/01 MDE 08 Changes to support SXD style selections */ +/* 02/22/01 MDE 07 Allow QNX & Win32 to use itoa, ltoa */ +/* 01/24/01 EJV 06 Replaced non-ANSI itoa, ltoa with sprintf. */ +/* SXD_ARB_DATA_CTRL:replaced bool with booln */ +/* (bool may conflict with C++ compiler). */ +/* Corrected conversion in _sxdEncDbl. */ +/* 01/08/01 EJV 05 Removed unused _writePos from _sxdDecBs. */ +/* 01/04/01 MDE 04 Always define MVL_DYN_ASN1_TYPES */ +/* 12/28/00 KCR 03 Removed unpaired S_LOCK_COMMON_RESOURCES() */ +/* 11/06/00 DWL 02 Modified sx_write_element and sx_end_element */ +/* calls with added parameter */ +/* 10/10/00 MDE 01 New */ +/************************************************************************/ + +#include "glbtypes.h" +#include "sysincs.h" +#include "glbsem.h" +#include "mms_def2.h" +#include "mms_mp.h" +#include "mms_pvar.h" +#include "mms_vvar.h" +#include "time_str.h" +#include "str_util.h" +#include "mem_chk.h" + +#include "sx_defs.h" +#include "sx_arb.h" +#include "sx_log.h" + +#if defined(MMS_LITE) && !defined(NO_MVL) +#include "mvl_defs.h" +#endif + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ +/************************************************************************/ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ +/* sxd_get_runtime */ +/************************************************************************/ + +#if defined(MMS_LITE) && !defined(NO_MVL) + +ST_RET sxd_get_runtime (ST_INT type_id, + RUNTIME_TYPE **rt_out, ST_INT *num_rt_out) + { + if (type_id >= 0 && type_id < mvl_num_types && + mvl_type_ctrl[type_id].num_rt > 0) + { + *rt_out = mvl_type_ctrl[type_id].rt; + *num_rt_out = mvl_type_ctrl[type_id].num_rt; + return (SD_SUCCESS); + } + return (SD_FAILURE); + } + +#endif + +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ +/* sxd_process_arb_data */ +/************************************************************************/ + +ST_RET sxd_process_arb_data (ST_CHAR *datptr, SD_CONST RUNTIME_TYPE *rt_head, + ST_INT rt_num, ST_VOID *usr, + SXD_ARB_DATA_CTRL *ac, ST_BOOLEAN *elPres) + { +RUNTIME_TYPE *rt_ptr; +RUNTIME_TYPE *rt_end; +ST_RET uDataRet; +ST_INT arr_loop_level; +ST_INT arr_loops[ASN1_MAX_LEVEL]; + + arr_loop_level = 0; + + rt_ptr = (RUNTIME_TYPE *) rt_head; /* point to head rt_block */ + rt_end = rt_ptr + rt_num; /* done when pointer is here */ + + uDataRet = SD_SUCCESS; + while (rt_ptr < rt_end && uDataRet == SD_SUCCESS) + { + if (rt_ptr->el_tag == RT_ARR_END) /* treat case of array ending */ + { + if (--arr_loops[arr_loop_level] > 0) /* if need to do next ar elmnt */ + rt_ptr -= rt_ptr->u.arr.num_rt_blks; /* mv rt_ptr to start of arr */ + else + --arr_loop_level; + } + if (rt_ptr->el_tag == RT_ARR_START) /* treat case of array starting */ + { + /* initialize the loop counter for the array */ + ++arr_loop_level; + arr_loops[arr_loop_level] = rt_ptr->u.arr.num_elmnts; + } + + if (elPres != NULL) + { + if (elPres[rt_ptr - rt_head] != SD_TRUE) + { + datptr += rt_ptr->el_size; /* Adjust data pointer */ + rt_ptr++; /* point to next rt element */ + continue; + } + } + + switch (rt_ptr->el_tag) + { + case RT_ARR_START : + if (ac->arrStart) + uDataRet = (*ac->arrStart) (usr, rt_ptr); + break; + + case RT_STR_START : + if (ac->strStart) + uDataRet = (*ac->strStart) (usr, rt_ptr, rt_head); + break; + + case RT_ARR_END : /* array done */ + if (ac->arrEnd) + uDataRet = (*ac->arrEnd) (usr, rt_ptr); + break; + + case RT_STR_END : /* structure done */ + if (ac->strEnd) + uDataRet = (*ac->strEnd) (usr, rt_ptr); + break; + + case RT_BOOL : + if (ac->booln) + uDataRet = (*ac->booln) (usr, (ST_BOOLEAN *) datptr, rt_ptr); + break; + + case RT_BIT_STRING : + if (ac->bs) + uDataRet = (*ac->bs) (usr, (ST_UCHAR *) datptr, rt_ptr); + break; + + case RT_INTEGER : + switch (rt_ptr->u.p.el_len) /* determine length */ + { + case 1 : /* one byte int */ + if (ac->int8) + uDataRet = (*ac->int8) (usr, (ST_INT8 *) datptr, rt_ptr); + break; + + case 2 : /* two byte int */ + if (ac->int16) + uDataRet = (*ac->int16) (usr, (ST_INT16 *) datptr, rt_ptr); + break; + + case 4 : /* four byte integer */ + if (ac->int32) + uDataRet = (*ac->int32) (usr, (ST_INT32 *) datptr, rt_ptr); + break; + +#ifdef INT64_SUPPORT + case 8 : /* eight byte integer */ + if (ac->int64) + uDataRet = (*ac->int64) (usr, (ST_INT64 *) datptr, rt_ptr); +#endif + break; + } + break; + + case RT_UNSIGNED : + switch (rt_ptr->u.p.el_len) /* determine length */ + { + case 1 : /* one byte int */ + if (ac->uint8) + uDataRet = (*ac->uint8) (usr, (ST_UCHAR *) datptr, rt_ptr); + break; + + case 2 : /* two byte int */ + if (ac->uint16) + uDataRet = (*ac->uint16) (usr, (ST_UINT16 *) datptr, rt_ptr); + break; + + case 4 : /* four byte integer */ + if (ac->uint32) + uDataRet = (*ac->uint32) (usr, (ST_UINT32 *) datptr, rt_ptr); + break; + +#ifdef INT64_SUPPORT + case 8 : /* eight byte integer */ + if (ac->uint64) + uDataRet = (*ac->uint64) (usr, (ST_UINT64 *) datptr, rt_ptr); + break; +#endif /* INT64_SUPPORT */ + } + break; + +#ifdef FLOAT_DATA_SUPPORT + case RT_FLOATING_POINT : + if (rt_ptr->u.p.el_len != sizeof (ST_FLOAT)) + { + if (ac->dbl) + uDataRet = (*ac->dbl) (usr, (ST_DOUBLE *) datptr, rt_ptr); + } + else + { + if (ac->flt) + uDataRet = (*ac->flt) (usr, (ST_FLOAT *) datptr, rt_ptr); + } + break; +#endif + + case RT_OCTET_STRING : + if (ac->oct) + uDataRet = (*ac->oct) (usr, (ST_UCHAR *) datptr, rt_ptr); + break; + + case RT_VISIBLE_STRING : + if (ac->vis) + uDataRet = (*ac->vis) (usr, (ST_CHAR *) datptr, rt_ptr); + break; + +#ifdef TIME_DATA_SUPPORT + case RT_GENERAL_TIME : + if (ac->gt) + uDataRet = (*ac->gt) (usr, (time_t *) datptr, rt_ptr); + break; +#endif + +#ifdef BTOD_DATA_SUPPORT + case RT_BINARY_TIME : + switch (rt_ptr->u.p.el_len) /* determine length */ + { + case 4: + if (ac->bt4) + uDataRet = (*ac->bt4) (usr, (ST_INT32 *) datptr, rt_ptr); + break; + case 6: + if (ac->bt6) + uDataRet = (*ac->bt6) (usr, (ST_INT32 *) datptr, rt_ptr); + break; + } + break; +#endif + + case RT_BCD : + if (rt_ptr->u.p.el_len <= 2) + { + if (ac->bcd1) + uDataRet = (*ac->bcd1) (usr, (ST_INT8 *) datptr, rt_ptr); + } + else if (rt_ptr->u.p.el_len <= 4) + { + if (ac->bcd2) + uDataRet = (*ac->bcd2) (usr, (ST_INT16 *) datptr, rt_ptr); + } + else if (rt_ptr->u.p.el_len <= 8) + { + if (ac->bcd4) + uDataRet = (*ac->bcd4) (usr, (ST_INT32 *) datptr, rt_ptr); + } + break; + + case RT_UTC_TIME : + if (ac->utc) + uDataRet = (*ac->utc) (usr, (MMS_UTC_TIME *) datptr, rt_ptr); + break; + + case RT_UTF8_STRING : + if (ac->utf8) + uDataRet = (*ac->utf8) (usr, (ST_UCHAR *) datptr, rt_ptr); + break; + + default : /* should not be any other tag */ + SXLOG_ERR1 ("Invalid tag: %d", (int) rt_ptr->el_tag); + return (SD_FAILURE); + break; + } + + datptr += rt_ptr->el_size; /* Adjust data pointer */ + rt_ptr++; /* point to next rt element */ + } + return (uDataRet); + } + +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ + +static ST_RET _sxdStripPrefix (ST_CHAR *prefix); +static ST_RET _sxdEncElement (SX_ENC_CTRL *ec, RUNTIME_TYPE *rt, + ST_CHAR *dtString, ST_CHAR *contents); + +/************************************************************************/ + +/* XML data type strings */ +static ST_CHAR _boolDtStr[] = "Bool"; +static ST_CHAR _visStringDtStr[] = "VisString"; +static ST_CHAR _bitStringDtStr[] = "BitString"; +static ST_CHAR _i1DtStr[] = "I1"; +static ST_CHAR _i2DtStr[] = "I2"; +static ST_CHAR _i4DtStr[] = "I4"; +static ST_CHAR _uI1DtStr[] = "UI1"; +static ST_CHAR _uI2DtStr[] = "UI2"; +static ST_CHAR _uI4DtStr[] = "UI4"; +static ST_CHAR _r4DtStr[] = "R4"; +static ST_CHAR _r8DtStr[] = "R8"; +static ST_CHAR _dateTimeDtStr[] = "DateTime"; +static ST_CHAR _binHexDtStr[] = "BinHex"; +#ifdef INT64_SUPPORT /* Only if INT64 supported*/ +static ST_CHAR _i8DtStr[] = "I8"; +static ST_CHAR _uI8DtStr[] = "UI8"; +#endif +#if 0 /* These not used yet. */ +static ST_CHAR _charDtStr[] = "Char"; +static ST_CHAR _octStringDtStr[] = "OctString"; +static ST_CHAR _dateDtStr[] = "Date"; +static ST_CHAR _dateTimeTzDtStr[] = "DateTimeTz"; +static ST_CHAR _timeDtStr[] = "Time"; +static ST_CHAR _timeTzDtStr[] = "TimeTz"; +static ST_CHAR _binDtStr[] = "Bin"; +static ST_CHAR _binBase64DtStr[] = "BinBase64"; +static ST_CHAR _uriDtStr[] = "Uri"; +static ST_CHAR _udtDtStr[] = "Udt"; +#endif + +ST_INT sxdDefXmlStyle; /* Note: 0 is style A */ + +/************************************************************************/ +/* _sxdStripPrefix */ +/************************************************************************/ +static ST_RET _sxdStripPrefix (ST_CHAR *prefix) + { + ST_INT i; + + if (prefix) + { + i = strlen (prefix) - 1; + while (--i > 0) + { + if (prefix[i] == '.') + { + prefix[i+1] = 0; /* keep the dot with remaining prefix */ + break; + } + } + /* if i=0 then dot not found, this must be the first nest level */ + if (i == 0) + prefix[0] = 0; + } + + return (SD_SUCCESS); + } + +/************************************************************************/ +/************************************************************************/ +/* _sxdEncArrStart */ +/************************************************************************/ + +static ST_RET _sxdEncArrStart (ST_VOID *usr, RUNTIME_TYPE *rt) + { + + /* Nothing to do here, the function _sxdEncElement is encoding */ + /* the element<=>array name. */ + return (SD_SUCCESS); + } + +/************************************************************************/ +/* _sxdEncArrEnd */ +/************************************************************************/ + +static ST_RET _sxdEncArrEnd (ST_VOID *usr, RUNTIME_TYPE *rt) + { + + /* Nothing to do here. */ + return (SD_SUCCESS); + } + +/************************************************************************/ +/* _sxdEncStrStart */ +/************************************************************************/ + +static ST_RET _sxdEncStrStart (ST_VOID *usr, RUNTIME_TYPE *rt, + SD_CONST RUNTIME_TYPE *rt_head) + { +SX_ENC_CTRL *ec; +SD_CONST ST_CHAR *elName = ""; /* init to an empty string */ +RUNTIME_TYPE *rt_tmp; + + ec = (SX_ENC_CTRL *) usr; + if (ms_comp_name_pres(rt) == SD_TRUE) + elName = ms_comp_name_find(rt); + else + { + /* name is NULL, it must be the outer element of struct within array */ + if (rt == rt_head) + { + elName = ec->outerElement; + if (elName == NULL) + return (SD_SUCCESS); /* nothing to encode */ + } + else + { + /* check if array of structs (check previous RTs) */ + rt_tmp = rt - 1; + while (rt_tmp->el_tag == RT_ARR_START) + { + if (ms_comp_name_pres(rt_tmp) == SD_TRUE) + { + elName = ms_comp_name_find(rt_tmp); + break; + } + --rt_tmp; + } + } + } + + if (ec->sxdXmlStyle == SXD_XML_STYLE_A) + { + if (ec->sxdStructNestLevel == 0) + { + *(ec->nextWritePos++) = '<'; + sx_add_string (ec, elName, &ec->nextWritePos); + } + else /* Not the outer element */ + { + strcat (ec->sxdPrefix, elName); + strcat (ec->sxdPrefix, "."); + } + ++ec->sxdStructNestLevel; + } + else if (ec->sxdXmlStyle == SXD_XML_STYLE_V || + ec->sxdXmlStyle == SXD_XML_STYLE_C) + { + sx_start_element ((SX_ENC_CTRL *) usr, elName, 0, NULL); + } + + return (SD_SUCCESS); + } + +/************************************************************************/ +/* _sxdEncStrEnd */ +/************************************************************************/ + +static ST_RET _sxdEncStrEnd (ST_VOID *usr, RUNTIME_TYPE *rt) + { +SX_ENC_CTRL *ec; + + ec = (SX_ENC_CTRL *) usr; + + if (ec->sxdXmlStyle == SXD_XML_STYLE_A) + { + if (ms_comp_name_pres(rt) == SD_FALSE && ec->outerElement == NULL) + return (SD_SUCCESS); + + --ec->sxdStructNestLevel; + + if (ec->sxdStructNestLevel == 0) + { + /* this is end of XML */ + *(ec->nextWritePos++) = '/'; + *(ec->nextWritePos++) = '>'; + } + else + { + /* Not the outer element or the first level, remove the last prefix */ + _sxdStripPrefix (ec->sxdPrefix); + } + } + else if (ec->sxdXmlStyle == SXD_XML_STYLE_V || + ec->sxdXmlStyle == SXD_XML_STYLE_C) + { + /* encode struct end tag */ + if (ec->currNestLevel > 0) + sx_end_element ((SX_ENC_CTRL *) usr); + } + return (SD_SUCCESS); + } + +/************************************************************************/ +/************************************************************************/ +/* _sxdEncInt8 */ +/************************************************************************/ + +static ST_RET _sxdEncInt8 (ST_VOID *usr, ST_INT8 *data_ptr, RUNTIME_TYPE *rt) + { +ST_INT intVal; +ST_CHAR buf[50]; + + intVal = (ST_INT) (*data_ptr); +#if defined(_WIN32) || defined(__QNX__) + itoa (intVal, buf, 10); +#else + sprintf (buf, "%d", intVal); +#endif + return (_sxdEncElement ((SX_ENC_CTRL *) usr, rt, _i1DtStr, buf)); + } + +/************************************************************************/ +/* _sxdEncInt16 */ +/************************************************************************/ + +static ST_RET _sxdEncInt16 (ST_VOID *usr, ST_INT16 *data_ptr, RUNTIME_TYPE *rt) + { +ST_INT intVal; +ST_CHAR buf[50]; + + intVal = (ST_INT) *data_ptr; +#if defined(_WIN32) || defined(__QNX__) + itoa (intVal, buf, 10); +#else + sprintf (buf, "%d", intVal); +#endif + return (_sxdEncElement ((SX_ENC_CTRL *) usr, rt, _i2DtStr, buf)); + } + +/************************************************************************/ +/* _sxdEncInt32 */ +/************************************************************************/ + +static ST_RET _sxdEncInt32 (ST_VOID *usr, ST_INT32 *data_ptr, RUNTIME_TYPE *rt) + { +ST_LONG long_val; +ST_CHAR buf[50]; + + long_val = (ST_LONG) *data_ptr; +#if defined(_WIN32) || defined(__QNX__) + ltoa (long_val, buf, 10); +#else + sprintf (buf, "%ld", long_val); +#endif + return (_sxdEncElement ((SX_ENC_CTRL *) usr, rt, _i4DtStr, buf)); + } + +/************************************************************************/ +/* _sxdEncInt64 */ +/************************************************************************/ +#ifdef INT64_SUPPORT + +static ST_RET _sxdEncInt64 (ST_VOID *usr, ST_INT64 *data_ptr, RUNTIME_TYPE *rt) + { +ST_INT64 i64_val; +ST_CHAR buf[80]; + + i64_val = (ST_INT64) *data_ptr; +#ifdef _WIN32 + _i64toa (i64_val, buf, 10); +#else + sprintf (buf, S_FMT_INT64, i64_val); +#endif + return (_sxdEncElement (usr, rt, _i8DtStr, buf)); + } +#endif + +/************************************************************************/ +/* _sxdEncUint8 */ +/************************************************************************/ + +static ST_RET _sxdEncUint8 (ST_VOID *usr, ST_UINT8 *data_ptr, RUNTIME_TYPE *rt) + { +ST_UINT uintVal; +ST_CHAR buf[50]; + + uintVal = (ST_UINT) *data_ptr; +#if defined(_WIN32) || defined(__QNX__) + itoa ((int) uintVal, buf, 10); +#else + sprintf (buf, "%u", uintVal); +#endif + return (_sxdEncElement ((SX_ENC_CTRL *) usr, rt, _uI1DtStr, buf)); + } + +/************************************************************************/ +/* _sxdEncUint16 */ +/************************************************************************/ + +static ST_RET _sxdEncUint16(ST_VOID *usr, ST_UINT16 *data_ptr, RUNTIME_TYPE *rt) + { +ST_LONG long_val; +ST_CHAR buf[50]; + + long_val = (ST_LONG) *data_ptr; +#if defined(_WIN32) || defined(__QNX__) + ltoa (long_val, buf, 10); +#else + sprintf (buf, "%u", (ST_UINT) long_val); +#endif + return (_sxdEncElement ((SX_ENC_CTRL *) usr, rt, _uI2DtStr, buf)); + } + +/************************************************************************/ +/* _sxdEncUint32 */ +/************************************************************************/ + +static ST_RET _sxdEncUint32(ST_VOID *usr, ST_UINT32 *data_ptr, RUNTIME_TYPE *rt) + { +ST_ULONG ulong_val; +ST_CHAR buf[50]; + + ulong_val = (ST_ULONG) *data_ptr; +#if defined(_WIN32) || defined(__QNX__) + ultoa (ulong_val, buf, 10); +#else + sprintf (buf, "%lu", ulong_val); +#endif + return (_sxdEncElement ((SX_ENC_CTRL *) usr, rt, _uI4DtStr, buf)); + } + +/************************************************************************/ +/* _sxdEncUint64 */ +/************************************************************************/ +#ifdef INT64_SUPPORT + +static ST_RET _sxdEncUint64(ST_VOID *usr, ST_UINT64 *data_ptr, RUNTIME_TYPE *rt) + { +ST_UINT64 u64_val; +ST_CHAR buf[80]; + + u64_val = (ST_INT64) *data_ptr; +#ifdef _WIN32 + _ui64toa (u64_val, buf, 10); +#else + sprintf (buf, S_FMT_UINT64, u64_val); +#endif + return (_sxdEncElement (usr, rt, _uI8DtStr, buf)); + } +#endif + +/************************************************************************/ +/* _sxdEncFlt */ +/************************************************************************/ + +static ST_RET _sxdEncFlt (ST_VOID *usr, ST_FLOAT *data_ptr, RUNTIME_TYPE *rt) + { +ST_DOUBLE d; +ST_CHAR buf[100]; + + d = (ST_DOUBLE) (*(ST_FLOAT *) data_ptr); + sprintf (buf,"%.10f", d); + return (_sxdEncElement ((SX_ENC_CTRL *) usr, rt, _r4DtStr, buf)); + } + +/************************************************************************/ +/* _sxdEncDbl */ +/************************************************************************/ + +static ST_RET _sxdEncDbl (ST_VOID *usr, ST_DOUBLE *data_ptr, RUNTIME_TYPE *rt) + { +ST_DOUBLE d; +ST_CHAR buf[100]; + + d = *data_ptr; + sprintf (buf,"%.16f", d); + return (_sxdEncElement ((SX_ENC_CTRL *) usr, rt, _r8DtStr, buf)); + } + +/************************************************************************/ +/* _sxdEncOct */ +/************************************************************************/ + +static ST_RET _sxdEncOct (ST_VOID *usr, ST_UCHAR *data_ptr, RUNTIME_TYPE *rt) + { +ST_INT16 *sp; +ST_CHAR *buf; +ST_INT dataLen; +ST_RET rc; + + if (rt->u.p.el_len < 0) + { + sp = (ST_INT16 *) data_ptr; + dataLen = (ST_INT) *sp; + data_ptr += 2; + } + else + dataLen = abs (rt->u.p.el_len); + + buf = (ST_CHAR *) M_MALLOC (NULL, (3 * dataLen) + 1); + hex_to_ascii_str (buf, data_ptr, dataLen, SD_TRUE); + rc = _sxdEncElement ((SX_ENC_CTRL *) usr, rt, _binHexDtStr, buf); + M_FREE (NULL, buf); + return (rc); + } + +/************************************************************************/ +/* _sxdEncBool */ +/************************************************************************/ + +static ST_RET _sxdEncBool (ST_VOID *usr, ST_BOOLEAN *data_ptr, RUNTIME_TYPE *rt) + { +ST_BOOLEAN *bptr; +ST_CHAR *valStr; + + bptr = (ST_BOOLEAN *) data_ptr; + if (*bptr == 0) + valStr = "0"; + else + valStr = "1"; + + return (_sxdEncElement ((SX_ENC_CTRL *) usr, rt, _boolDtStr, valStr)); + } + +/************************************************************************/ +/* _sxdEncBcd1 */ +/************************************************************************/ + +static ST_RET _sxdEncBcd1 (ST_VOID *usr, ST_INT8 *data_ptr, RUNTIME_TYPE *rt) + { + return (_sxdEncInt8 (usr, data_ptr, rt)); + } + +/************************************************************************/ +/* _sxdEncBcd2 */ +/************************************************************************/ + +static ST_RET _sxdEncBcd2 (ST_VOID *usr, ST_INT16 *data_ptr, RUNTIME_TYPE *rt) + { + return (_sxdEncInt16 (usr, data_ptr, rt)); + } + +/************************************************************************/ +/* _sxdEncBcd4 */ +/************************************************************************/ + +static ST_RET _sxdEncBcd4 (ST_VOID *usr, ST_INT32 *data_ptr, RUNTIME_TYPE *rt) + { + return (_sxdEncInt32 (usr, data_ptr, rt)); + } + +/************************************************************************/ +/* _sxdEncBs */ +/************************************************************************/ + +static ST_RET _sxdEncBs (ST_VOID *usr, ST_UCHAR *data_ptr, RUNTIME_TYPE *rt) + { +ST_INT i; +ST_INT16 *sp; +ST_CHAR *_writePos; +ST_UINT8 bitMask; +ST_UINT8 *bytePtr; +ST_INT numBits; +ST_CHAR *buf; +ST_RET rc; + + if (rt->u.p.el_len < 0) + { + sp = (ST_INT16 *) data_ptr; + numBits = (ST_INT) *sp; + data_ptr += 2; + } + else + numBits = rt->u.p.el_len; + + buf = (ST_CHAR *) M_MALLOC (NULL, numBits + 1); + + _writePos = buf; + bitMask = 0x80; + bytePtr = data_ptr; + for (i = 0; i < numBits; ++i) + { + if (*bytePtr & bitMask) + *(_writePos++) = '1'; + else + *(_writePos++) = '0'; + + if (bitMask == 0x01) + { + bitMask = 0x80; + ++bytePtr; + } + else + bitMask = bitMask >> 1; + } + + rc = _sxdEncElement ((SX_ENC_CTRL *) usr, rt, _bitStringDtStr, buf); + M_FREE (NULL, buf); + return (rc); + } + +/************************************************************************/ +/************************************************************************/ +/* _sxdEncVis */ +/************************************************************************/ + +static ST_RET _sxdEncVis (ST_VOID *usr, ST_CHAR *data_ptr, RUNTIME_TYPE *rt) + { + return (_sxdEncElement ((SX_ENC_CTRL *) usr, rt, _visStringDtStr, data_ptr)); + } + +/************************************************************************/ +/* _sxdEncBt4 */ +/************************************************************************/ + +static ST_RET _sxdEncBt4 (ST_VOID *usr, ST_INT32 *data_ptr, RUNTIME_TYPE *rt) + { +ST_CHAR buf[100]; +ST_RET rc; + + rc = Btime4ValsToString (buf, (ST_LONG) *data_ptr); + if (rc != SD_SUCCESS) + return (rc); + + return (_sxdEncElement ((SX_ENC_CTRL *) usr, rt, _dateTimeDtStr, buf)); + } + +/************************************************************************/ +/* _sxdEncBt6 */ +/************************************************************************/ + +static ST_RET _sxdEncBt6 (ST_VOID *usr, ST_INT32 *data_ptr, RUNTIME_TYPE *rt) + { +ST_CHAR buf[100]; +ST_RET rc; + + rc = Btime6ValsToString (buf, *(data_ptr+1), (ST_LONG) *data_ptr); + if (rc != SD_SUCCESS) + return (rc); + + return (_sxdEncElement ((SX_ENC_CTRL *) usr, rt, _dateTimeDtStr, buf)); + } + +/************************************************************************/ +/* _sxdEncGt */ +/************************************************************************/ + +#define _SXD_TIME_BUF_LEN 25 + +static ST_RET _sxdEncGt (ST_VOID *usr, time_t *data_ptr, RUNTIME_TYPE *rt) + { +ST_CHAR timeText[_SXD_TIME_BUF_LEN]; + + strcpy (timeText, ctime(data_ptr)); + timeText[24] = 0; /* squash the \n */ + + return (_sxdEncElement ((SX_ENC_CTRL *) usr, rt, _dateTimeDtStr, timeText)); + } + +/************************************************************************/ +/* _sxdEncUTF8 */ +/* Don't know how to display. Just show the hex bytes. */ +/************************************************************************/ + +static ST_RET _sxdEncUTF8 (ST_VOID *usr, ST_UCHAR *data_ptr, RUNTIME_TYPE *rt) + { +ST_CHAR *buf; +ST_INT dataLen; +ST_RET rc; + + dataLen = rt->el_size; + + buf = (ST_CHAR *) M_MALLOC (NULL, (3 * dataLen) + 1); + hex_to_ascii_str (buf, data_ptr, dataLen, SD_TRUE); + rc = _sxdEncElement ((SX_ENC_CTRL *) usr, rt, _binHexDtStr, buf); + M_FREE (NULL, buf); + return (rc); + } + +/************************************************************************/ +/************************************************************************/ +/* _sxdEncElement */ +/************************************************************************/ + +static ST_RET _sxdEncElement (SX_ENC_CTRL *ec, RUNTIME_TYPE *rt, + ST_CHAR *dtString, ST_CHAR *contents) + { +SD_CONST ST_CHAR *elName; +SXE_ATTR_PAIR attr[2]; +ST_INT numAttr; +RUNTIME_TYPE *rt_tmp; + + if (ms_comp_name_pres(rt) == SD_TRUE) + elName = ms_comp_name_find(rt); + else + { + /* must be an array element, get the name from the RT_ARR_START */ + elName = "UNNAMED"; /* set, just in case name not specified */ + rt_tmp = rt-1; + /* this maybe multidimentional array , only the first dim has name in RT tbl */ + while (rt_tmp->el_tag == RT_ARR_START) + { + if (ms_comp_name_pres(rt_tmp) == SD_TRUE) + { + elName = ms_comp_name_find(rt_tmp); + break; + } + --rt_tmp; + } + } + + if (ec->sxdXmlStyle == SXD_XML_STYLE_A) + { + *(ec->nextWritePos++) = ' '; + sx_add_string (ec, ec->sxdPrefix, &ec->nextWritePos); + sx_add_string (ec, elName, &ec->nextWritePos); + *(ec->nextWritePos++) = '='; + *(ec->nextWritePos++) = '"'; + sx_add_string (ec, contents, &ec->nextWritePos); + *(ec->nextWritePos++) = '"'; + } + else if (ec->sxdXmlStyle == SXD_XML_STYLE_C) + { + sx_wr_string_el (ec, elName, contents); + } + else if (ec->sxdXmlStyle == SXD_XML_STYLE_V) + { + if (ec->encDt) + { + attr[0].name = "DT"; + attr[0].value = dtString; + numAttr = 1; + } + else + numAttr = 0; + + attr[numAttr].name = "V"; + attr[numAttr].value = contents; + ++numAttr; + sx_write_element (ec, elName, numAttr, attr, SD_FALSE, SD_TRUE); + } + + return (SD_SUCCESS); + } + + + +/************************************************************************/ +/************************************************************************/ + +SXD_ARB_DATA_CTRL _sxdEncArbFuns = + { + _sxdEncArrStart, /* arrStart */ + _sxdEncArrEnd, /* arrEnd */ + _sxdEncStrStart, /* strStart */ + _sxdEncStrEnd, /* strEnd */ + _sxdEncInt8, /* int8 */ + _sxdEncInt16, /* int16 */ + _sxdEncInt32, /* int32 */ +#ifdef INT64_SUPPORT + _sxdEncInt64, /* int64 */ +#endif + _sxdEncUint8, /* uint8 */ + _sxdEncUint16, /* uint16 */ + _sxdEncUint32, /* uint32 */ +#ifdef INT64_SUPPORT + _sxdEncUint64, /* uint64 */ +#endif + _sxdEncFlt, /* flt */ + _sxdEncDbl, /* dbl */ + _sxdEncOct, /* oct */ + _sxdEncBool, /* booln */ + _sxdEncBcd1, /* bcd1 */ + _sxdEncBcd2, /* bcd2 */ + _sxdEncBcd4, /* bcd4 */ + _sxdEncBs, /* bs */ + _sxdEncVis, /* vis */ + _sxdEncBt4, /* Bin Time */ + _sxdEncBt6, /* Bin Time */ + _sxdEncGt, /* Gen Time */ + NULL, /* UTC Time */ + _sxdEncUTF8, /* UTF8string */ + }; + +/************************************************************************/ +/* _sxd_wr_data */ +/************************************************************************/ + +#if defined(MMS_LITE) && !defined(NO_MVL) + +ST_RET _sxd_wr_data (SX_ENC_CTRL *sxEncCtrl, ST_INT typeId, + ST_CHAR *elName, ST_VOID *data, ST_INT sxdXmlStyle, + ST_BOOLEAN encodeDt, ST_BOOLEAN *elPres) + { +RUNTIME_TYPE *rt; +ST_INT numRt; +ST_RET rc; + + rc = sxd_get_runtime (typeId, &rt, &numRt); + if (rc != SD_SUCCESS) + return (rc); + + rc = sxd_wr_rtdata (sxEncCtrl, rt, numRt, elName, data, sxdXmlStyle, encodeDt, elPres); + return (rc); + } +#endif + + +/************************************************************************/ +/* sxd_wr_rtdata */ +/************************************************************************/ + +ST_RET sxd_wr_rtdata (SX_ENC_CTRL *sxEncCtrl, RUNTIME_TYPE *rt, ST_INT numRt, + ST_CHAR *elName, ST_VOID *data, ST_INT sxdXmlStyle, + ST_BOOLEAN encodeDt, ST_BOOLEAN *elPres) + { +ST_RET rc; + + sxEncCtrl->sxdXmlStyle = sxdXmlStyle; + sxEncCtrl->encDt = encodeDt; + sxEncCtrl->outerElement = elName; + sxEncCtrl->sxdPrefix[0] = 0; + + rc = sxd_process_arb_data ((ST_CHAR *) data, rt, numRt, sxEncCtrl, + &_sxdEncArbFuns, elPres); + if (rc != SD_SUCCESS) + return (rc); + + return (rc); + } + + +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ + +#define _SXD_MAX_VAL_BUF 8000 +#define _SXD_MAX_EL_NAME 50 +#define _SXD_MAX_DT 50 + +typedef struct + { + ST_INT sxdXmlStyle; /* See sx_defs.h for values */ + ST_CHAR *xmlDest; + ST_BOOLEAN checkDt; + ST_CHAR *xmlPos; + ST_CHAR *xmlBufEnd; + ST_RET xmlDecResult; + SD_CONST ST_CHAR *outerElement; + ST_CHAR valBuf[_SXD_MAX_VAL_BUF+1]; + ST_CHAR elName[_SXD_MAX_EL_NAME+1]; + ST_CHAR dtBuf[_SXD_MAX_DT+1]; + ST_BOOLEAN endEl; + ST_BOOLEAN dataEl; + } SXD_DEC_CTRL; + +/************************************************************************/ +/************************************************************************/ + +static ST_RET _sxdCheckDt (SXD_DEC_CTRL *dc, ST_CHAR *dtString) + { + if (strcmp (dc->dtBuf, dtString) != 0) + { + SXLOG_NERR3 ("Type mismatch for elName '%s': expected '%s', got '%s'", + dc->elName, dtString, dc->dtBuf); + dc->xmlDecResult = SD_FAILURE; + return (SD_FAILURE); + } + return (SD_SUCCESS); + } + + +/************************************************************************/ +/************************************************************************/ +/* _sxdDecArrStart */ +/************************************************************************/ + +static ST_RET _sxdDecArrStart (SXD_DEC_CTRL *dc, RUNTIME_TYPE *rt) + { + return (SD_SUCCESS); + } + +/************************************************************************/ +/* _sxdDecArrEnd */ +/************************************************************************/ + +static ST_RET _sxdDecArrEnd (SXD_DEC_CTRL *dc, RUNTIME_TYPE *rt) + { + return (SD_SUCCESS); + } + +/************************************************************************/ +/* _sxdDecStrStart */ +/************************************************************************/ + +static ST_RET _sxdDecStrStart (SXD_DEC_CTRL *dc, RUNTIME_TYPE *rt) + { + return (SD_SUCCESS); + } + +/************************************************************************/ +/* _sxdDecStrEnd */ +/************************************************************************/ + +static ST_RET _sxdDecStrEnd (SXD_DEC_CTRL *dc, RUNTIME_TYPE *rt) + { + return (SD_SUCCESS); + } + +/************************************************************************/ +/************************************************************************/ +/* _sxdDecInt8 */ +/************************************************************************/ + +static ST_RET _sxdDecInt8 (SXD_DEC_CTRL *dc, ST_INT8 *data_ptr, RUNTIME_TYPE *rt) + { +ST_INT intVal; +ST_RET rc; + +/* Check data type, if requested ... */ + if (dc->checkDt != SD_FALSE) + { + rc = _sxdCheckDt (dc, _i1DtStr); + if (rc != SD_SUCCESS) + return (rc); + } + + intVal = atoi (dc->valBuf); + *data_ptr = (ST_INT8) intVal; + SXLOG_CDEC1 ("Integer8: %d",intVal); + return (SD_SUCCESS); + } + +/***********************************************************************/ +/* _sxdDecInt16 */ +/***********************************************************************/ + +static ST_RET _sxdDecInt16 (SXD_DEC_CTRL *dc, ST_INT16 *data_ptr, RUNTIME_TYPE *rt) + { +ST_INT intVal; +ST_RET rc; + +/* Check data type, if requested ... */ + if (dc->checkDt != SD_FALSE) + { + rc = _sxdCheckDt (dc, _i2DtStr); + if (rc != SD_SUCCESS) + return (rc); + } + + intVal = atoi (dc->valBuf); + *data_ptr = (ST_INT16) intVal; + SXLOG_CDEC1 ("Integer16: %d",intVal); + return (SD_SUCCESS); + } + +/************************************************************************/ +/* _sxdDecInt32 */ +/************************************************************************/ + +static ST_RET _sxdDecInt32 (SXD_DEC_CTRL *dc, ST_INT32 *data_ptr, RUNTIME_TYPE *rt) + { +ST_INT32 intVal; +ST_RET rc; + +/* Check data type, if requested ... */ + if (dc->checkDt != SD_FALSE) + { + rc = _sxdCheckDt (dc, _i4DtStr); + if (rc != SD_SUCCESS) + return (rc); + } + + intVal = atoi (dc->valBuf); + *data_ptr = (ST_INT32) intVal; + SXLOG_CDEC1 ("Integer32: %ld", (ST_LONG) intVal); + return (SD_SUCCESS); + } + +/************************************************************************/ +/* _sxdDecInt64 */ +/************************************************************************/ +#ifdef INT64_SUPPORT + +static ST_RET _sxdDecInt64 (SXD_DEC_CTRL *dc, ST_INT64 *data_ptr, RUNTIME_TYPE *rt) + { +ST_INT64 i64Val; +ST_RET rc; + +/* Check data type, if requested ... */ + if (dc->checkDt != SD_FALSE) + { + rc = _sxdCheckDt (dc, _i8DtStr); + if (rc != SD_SUCCESS) + return (rc); + } + +#if defined(_WIN32) + i64Val = _atoi64 (dc->valBuf); +#else + if (sscanf (dc->valBuf, S_FMT_INT64, &i64Val) != 1) + return (SD_FAILURE); +#endif + *data_ptr = i64Val; + SXLOG_CDEC1 ("Integer64: " S_FMT_INT64, i64Val); + return (SD_SUCCESS); + } +#endif + +/************************************************************************/ +/* _sxdDecUint8 */ +/************************************************************************/ + +static ST_RET _sxdDecUint8 (SXD_DEC_CTRL *dc, ST_UINT8 *data_ptr, RUNTIME_TYPE *rt) + { +ST_INT intVal; +ST_RET rc; + +/* Check data type, if requested ... */ + if (dc->checkDt != SD_FALSE) + { + rc = _sxdCheckDt (dc, _uI1DtStr); + if (rc != SD_SUCCESS) + return (rc); + } + + intVal = atoi (dc->valBuf); + *data_ptr = (ST_UINT8) intVal; + SXLOG_CDEC1 ("Unsigned8: %d",intVal); + return (SD_SUCCESS); + } + +/************************************************************************/ +/* _sxdDecUint16 */ +/************************************************************************/ + +static ST_RET _sxdDecUint16 (SXD_DEC_CTRL *dc, ST_UINT16 *data_ptr, RUNTIME_TYPE *rt) + { +ST_INT intVal; +ST_RET rc; + +/* Check data type, if requested ... */ + if (dc->checkDt != SD_FALSE) + { + rc = _sxdCheckDt (dc, _uI2DtStr); + if (rc != SD_SUCCESS) + return (rc); + } + + intVal = atoi (dc->valBuf); + *data_ptr = (ST_UINT16) intVal; + SXLOG_CDEC1 ("Unsigned16: %d",intVal); + return (SD_SUCCESS); + } + +/************************************************************************/ +/* _sxdDecUint32 */ +/************************************************************************/ + +static ST_RET _sxdDecUint32(SXD_DEC_CTRL *dc, ST_UINT32 *data_ptr, RUNTIME_TYPE *rt) + { +ST_ULONG intVal; +ST_RET rc; + +/* Check data type, if requested ... */ + if (dc->checkDt != SD_FALSE) + { + rc = _sxdCheckDt (dc, _uI4DtStr); + if (rc != SD_SUCCESS) + return (rc); + } + +#if (LONG_MAX > INT_MAX) + intVal = atol (dc->valBuf); +#else + if (sscanf (dc->valBuf, "%lu", &intVal) != 1) + return (SD_FAILURE); +#endif + *data_ptr = (ST_UINT32) intVal; + SXLOG_CDEC1 ("Unsigned32: %lu",intVal); + return (SD_SUCCESS); + } + +/************************************************************************/ +/* _sxdDecUint64 */ +/************************************************************************/ +#ifdef INT64_SUPPORT + +static ST_RET _sxdDecUint64(SXD_DEC_CTRL *dc, ST_UINT64 *data_ptr, RUNTIME_TYPE *rt) + { +ST_UINT64 intVal; +ST_RET rc; + +/* Check data type, if requested ... */ + if (dc->checkDt != SD_FALSE) + { + rc = _sxdCheckDt (dc, _uI8DtStr); + if (rc != SD_SUCCESS) + return (rc); + } + + if (sscanf (dc->valBuf, S_FMT_UINT64, &intVal) != 1) + return (SD_FAILURE); + *data_ptr = intVal; + SXLOG_CDEC1 ("Unsigned64: " S_FMT_UINT64, intVal); + return (SD_SUCCESS); + } +#endif + +/************************************************************************/ +/* _sxdDecFlt */ +/************************************************************************/ + +static ST_RET _sxdDecFlt (SXD_DEC_CTRL *dc, ST_FLOAT *data_ptr, RUNTIME_TYPE *rt) + { +ST_DOUBLE doubleVal; +ST_RET rc; + +/* Check data type, if requested ... */ + if (dc->checkDt != SD_FALSE) + { + rc = _sxdCheckDt (dc, _r4DtStr); + if (rc != SD_SUCCESS) + return (rc); + } + + doubleVal = atof (dc->valBuf); + *data_ptr = (ST_FLOAT) doubleVal; + SXLOG_CDEC1 ("Float: %f", doubleVal); + return (SD_SUCCESS); + } + +/************************************************************************/ +/* _sxdDecDbl */ +/************************************************************************/ + +static ST_RET _sxdDecDbl (SXD_DEC_CTRL *dc, ST_DOUBLE *data_ptr, RUNTIME_TYPE *rt) + { +ST_DOUBLE doubleVal; +ST_RET rc; + +/* Check data type, if requested ... */ + if (dc->checkDt != SD_FALSE) + { + rc = _sxdCheckDt (dc, _r8DtStr); + if (rc != SD_SUCCESS) + return (rc); + } + + doubleVal = atof (dc->valBuf); + *data_ptr = (ST_FLOAT) doubleVal; + SXLOG_CDEC1 ("Double: %f", doubleVal); + return (SD_SUCCESS); + } + +/************************************************************************/ +/* _sxdDecOct */ +/************************************************************************/ + +static ST_RET _sxdDecOct (SXD_DEC_CTRL *dc, ST_UCHAR *data_ptr, RUNTIME_TYPE *rt) + { +ST_RET rc; +ST_INT16 *sp; +ST_UINT maxOctets; +ST_UINT hexLen; + +/* Check data type, if requested ... */ + if (dc->checkDt != SD_FALSE) + { + rc = _sxdCheckDt (dc, _binHexDtStr); + if (rc != SD_SUCCESS) + return (rc); + } + + if (rt->u.p.el_len < 0) + data_ptr += 2; + + maxOctets = abs (rt->u.p.el_len); + rc = ascii_to_hex_str (data_ptr, &hexLen, maxOctets, dc->valBuf); + if (rc != SD_SUCCESS) + return (rc); + + if (rt->u.p.el_len < 0) + { + sp = (ST_INT16 *) (data_ptr-2); + *sp = hexLen; + } + + return (SD_SUCCESS); + } + +/************************************************************************/ +/* _sxdDecBool */ +/************************************************************************/ + +static ST_RET _sxdDecBool (SXD_DEC_CTRL *dc, ST_BOOLEAN *data_ptr, RUNTIME_TYPE *rt) + { +ST_RET rc; + +/* Check data type, if requested ... */ + if (dc->checkDt != SD_FALSE) + { + rc = _sxdCheckDt (dc, _boolDtStr); + if (rc != SD_SUCCESS) + return (rc); + } + + *data_ptr = dc->valBuf[0] == '0' ? 0 : 1; + return (SD_SUCCESS); + } + +/************************************************************************/ +/* _sxdDecBcd1 */ +/************************************************************************/ + +static ST_RET _sxdDecBcd1 (SXD_DEC_CTRL *dc, ST_INT8 *data_ptr, RUNTIME_TYPE *rt) + { + return (_sxdDecInt8 (dc, data_ptr, rt)); + } + +/************************************************************************/ +/* _sxdDecBcd2 */ +/************************************************************************/ + +static ST_RET _sxdDecBcd2 (SXD_DEC_CTRL *dc, ST_INT16 *data_ptr, RUNTIME_TYPE *rt) + { + return (_sxdDecInt16 (dc, data_ptr, rt)); + } + +/************************************************************************/ +/* _sxdDecBcd4 */ +/************************************************************************/ + +static ST_RET _sxdDecBcd4 (SXD_DEC_CTRL *dc, ST_INT32 *data_ptr, RUNTIME_TYPE *rt) + { + return (_sxdDecInt32 (dc, data_ptr, rt)); + } + +/************************************************************************/ +/* _sxdDecBs */ +/************************************************************************/ + +static ST_RET _sxdDecBs (SXD_DEC_CTRL *dc, ST_UCHAR *data_ptr, RUNTIME_TYPE *rt) + { +ST_INT16 *sp; +ST_UINT8 bitMask; +ST_UINT8 *bytePtr; +ST_RET rc; +ST_CHAR *ascPtr; +ST_INT bitCount; + +/* Check data type, if requested ... */ + if (dc->checkDt != SD_FALSE) + { + rc = _sxdCheckDt (dc, _bitStringDtStr); + if (rc != SD_SUCCESS) + return (rc); + } + + if (rt->u.p.el_len < 0) + bytePtr = data_ptr + 2; + else + bytePtr = data_ptr; + + bitMask = 0x80; + ascPtr = dc->valBuf; + bitCount = 0; + while (*ascPtr != 0 && bitCount < abs (rt->u.p.el_len)) + { + if (*ascPtr == '1') + *bytePtr |= bitMask; + else + *bytePtr &= ~bitMask; + + if (bitMask == 0x01) + { + bitMask = 0x80; + ++bytePtr; + } + else + bitMask = bitMask >> 1; + + ++bitCount; + } + + if (rt->u.p.el_len < 0) + { + sp = (ST_INT16 *) (data_ptr); + *sp = bitCount; + } + return (SD_SUCCESS); + } + +/************************************************************************/ +/* _sxdDecVis */ +/************************************************************************/ + +static ST_RET _sxdDecVis (SXD_DEC_CTRL *dc, ST_CHAR *data_ptr, RUNTIME_TYPE *rt) + { +ST_RET rc; + +/* Check data type, if requested ... */ + if (dc->checkDt != SD_FALSE) + { + rc = _sxdCheckDt (dc, _visStringDtStr); + if (rc != SD_SUCCESS) + return (rc); + } + + strcpy (data_ptr, dc->valBuf); + SXLOG_CDEC1 ("Visible string: '%s'", data_ptr); + return (SD_SUCCESS); + } + +/************************************************************************/ +/* _sxdDecBt4 */ +/************************************************************************/ + +static ST_RET _sxdDecBt4 (SXD_DEC_CTRL *dc, ST_INT32 *data_ptr, RUNTIME_TYPE *rt) + { +ST_RET rc; + +/* Check data type, if requested ... */ + if (dc->checkDt != SD_FALSE) + { + rc = _sxdCheckDt (dc, _dateTimeDtStr); + if (rc != SD_SUCCESS) + return (rc); + } + + rc = Btime4StringToVals (dc->valBuf, data_ptr); + return (SD_SUCCESS); + } + +/************************************************************************/ +/* _sxdDecBt6 */ +/************************************************************************/ + +static ST_RET _sxdDecBt6 (SXD_DEC_CTRL *dc, ST_INT32 *data_ptr, RUNTIME_TYPE *rt) + { +ST_RET rc; + +/* Check data type, if requested ... */ + if (dc->checkDt != SD_FALSE) + { + rc = _sxdCheckDt (dc, _dateTimeDtStr); + if (rc != SD_SUCCESS) + return (rc); + } + + rc = Btime6StringToVals (dc->valBuf, data_ptr+1, data_ptr); + return (rc); + } + +/************************************************************************/ +/* _sxdDecGt */ +/************************************************************************/ + +static ST_RET _sxdDecGt (SXD_DEC_CTRL *dc, time_t *data_ptr, RUNTIME_TYPE *rt) + { +ST_RET rc; + +/* Check data type, if requested ... */ + if (dc->checkDt != SD_FALSE) + { + rc = _sxdCheckDt (dc, _dateTimeDtStr); + if (rc != SD_SUCCESS) + return (rc); + } + + rc = tstrStringToTime (dc->valBuf, data_ptr); + return (rc); + } + +/************************************************************************/ +/************************************************************************/ +/* _sxdDecElementA */ +/************************************************************************/ + +static ST_RET _sxdDecElementA (SXD_DEC_CTRL *dc) + { +ST_CHAR *p; +ST_CHAR c; +ST_INT i; + +/* Continue decoding the element, which must be of the form */ +/* */ + + dc->endEl = SD_FALSE; + dc->dataEl = SD_FALSE; + + c = *(dc->xmlPos++); + if (c == '<') + { + /* OK, get the element name */ + c = *(dc->xmlPos++); + p = dc->elName; + i = 0; + while (c != ' ' && c != '>') + { + if (++i > _SXD_MAX_EL_NAME) + { + SXLOG_NERR0 ("Could not find ' ' or '>'"); + dc->xmlDecResult = SD_FAILURE; + return (SD_FAILURE); + } + + *(p++) = c; + c = *(dc->xmlPos++); + if (dc->xmlPos > dc->xmlBufEnd) + { + SXLOG_NERR0 ("Could not find ' ' or '>'"); + dc->xmlDecResult = SD_FAILURE; + return (SD_FAILURE); + } + } + *p = 0; + return (SD_SUCCESS); + } + +/* OK, not the start of an element, see if is the end of an element */ + if (c == '/') + { + dc->endEl = SD_TRUE; + c = *(dc->xmlPos++); /* Eat the '>' */ + return (SD_SUCCESS); + } + +/* OK, must be the name of a structure element */ + p = dc->elName; + i = 0; + while (c != '=') + { + if (c != ' ') /* Skip leading spaces before attribute name */ + { + if (++i > _SXD_MAX_EL_NAME) + { + SXLOG_NERR0 ("Could not find ' ' or '>'"); + dc->xmlDecResult = SD_FAILURE; + return (SD_FAILURE); + } + *(p++) = c; + } + c = *(dc->xmlPos++); + if (dc->xmlPos > dc->xmlBufEnd) + { + SXLOG_NERR0 ("Could not find '='"); + dc->xmlDecResult = SD_FAILURE; + return (SD_FAILURE); + } + } + *p = 0; + +/* Finally, we get to the value */ + c = *(dc->xmlPos++); /* Eat the '"' */ + p = dc->valBuf; + c = *(dc->xmlPos++); + i = 0; + while (c != '"') + { + if (++i > _SXD_MAX_VAL_BUF) + { + SXLOG_NERR0 ("Could not find ' ' or '>'"); + dc->xmlDecResult = SD_FAILURE; + return (SD_FAILURE); + } + *(p++) = c; + c = *(dc->xmlPos++); + if (dc->xmlPos > dc->xmlBufEnd) + { + SXLOG_NERR0 ("Could not find end of value attribute"); + dc->xmlDecResult = SD_FAILURE; + return (SD_FAILURE); + } + } + *p = 0; + dc->dataEl = SD_TRUE; + return (SD_SUCCESS); + } + +/************************************************************************/ +/* _sxdDecElementC */ +/************************************************************************/ + +static ST_RET _sxdDecElementC (SXD_DEC_CTRL *dc) + { +ST_CHAR *p; +ST_CHAR c; + +ST_INT i; +/* Decode the XML element, which must be of the form */ +/* xxxx */ +/* < ... */ +/* */ + +/* Find the opening '<' */ + while (SD_TRUE) + { + c = *(dc->xmlPos++); + if (c == '<') + { + if (*dc->xmlPos != '!') + break; + } + if (dc->xmlPos > dc->xmlBufEnd) + { + SXLOG_NERR0 ("Could not find opening '<'"); + dc->xmlDecResult = SD_FAILURE; + return (SD_FAILURE); + } + } + + c = *(dc->xmlPos++); + if (c == '/') + { + dc->endEl = SD_TRUE; + c = *(dc->xmlPos++); + } + else + dc->endEl = SD_FALSE; + +/* OK, get the element name */ + p = dc->elName; + i = 0; + while (c != '>') + { + if (++i > _SXD_MAX_EL_NAME) + { + SXLOG_NERR0 ("Could not find ' ' or '>'"); + dc->xmlDecResult = SD_FAILURE; + return (SD_FAILURE); + } + + *(p++) = c; + c = *(dc->xmlPos++); + if (dc->xmlPos > dc->xmlBufEnd) + { + SXLOG_NERR0 ("Could not find ' '"); + dc->xmlDecResult = SD_FAILURE; + return (SD_FAILURE); + } + } + *p = 0; + +/* If this is an end element, we are done */ + if (dc->endEl == SD_TRUE) + return (SD_SUCCESS); + +/* Now check to see if this is a nested element */ + p = dc->xmlPos; + while (SD_TRUE) + { + if (*(p++) == '<') /* The end of this element or start of nest */ + { + if (*p != '!') /* if this is not a comment */ + { + if (*p == '/') /* The end of this element */ + break; + + return (SD_SUCCESS); /* Start of nested element */ + } + } + if (p > dc->xmlBufEnd) + { + SXLOG_NERR0 ("Could not find ' '"); + dc->xmlDecResult = SD_FAILURE; + return (SD_FAILURE); + } + } + +/* OK, now we can get the value */ + dc->dataEl = SD_TRUE; + + p = dc->valBuf; + c = *(dc->xmlPos++); + i = 0; + while (c != '<') + { + if (++i > _SXD_MAX_VAL_BUF) + { + SXLOG_NERR0 ("Could not find ' ' or '>'"); + dc->xmlDecResult = SD_FAILURE; + return (SD_FAILURE); + } + + *(p++) = c; + c = *(dc->xmlPos++); + if (dc->xmlPos > dc->xmlBufEnd) + { + SXLOG_NERR0 ("Could not find end of value"); + dc->xmlDecResult = SD_FAILURE; + return (SD_FAILURE); + } + } + *p = 0; + +/* Now we need to consume the end tag */ + c = *(dc->xmlPos++); + if (c != '/') + { + SXLOG_NERR0 ("Expected end tag"); + dc->xmlDecResult = SD_FAILURE; + return (SD_FAILURE); + } + + while (c != '>') + { + c = *(dc->xmlPos++); + if (dc->xmlPos > dc->xmlBufEnd) + { + SXLOG_NERR0 ("Could not find end of end tag"); + dc->xmlDecResult = SD_FAILURE; + return (SD_FAILURE); + } + } + return (SD_SUCCESS); + } + +/************************************************************************/ +/* _sxdDecElementV */ +/************************************************************************/ + +static ST_RET _sxdDecElementV (SXD_DEC_CTRL *dc) + { +ST_CHAR *p; +ST_CHAR c; +ST_INT i; + +/* Decode the XML element, which must be of the form */ +/* */ +/* */ +/* */ + + c = *(dc->xmlPos++); + if (c != '<') + { + SXLOG_NERR0 ("Could not find opening '<'"); + dc->xmlDecResult = SD_FAILURE; + return (SD_FAILURE); + } + + c = *(dc->xmlPos++); + if (c == '/') + { + dc->endEl = SD_TRUE; + c = *(dc->xmlPos++); + } + else + dc->endEl = SD_FALSE; + +/* OK, get the element name */ + p = dc->elName; + i = 0; + while (c != ' ' && c != '>') + { + if (++i > _SXD_MAX_EL_NAME) + { + SXLOG_NERR0 ("Could not find ' ' or '>'"); + dc->xmlDecResult = SD_FAILURE; + return (SD_FAILURE); + } + *(p++) = c; + c = *(dc->xmlPos++); + if (dc->xmlPos > dc->xmlBufEnd) + { + SXLOG_NERR0 ("Could not find ' '"); + dc->xmlDecResult = SD_FAILURE; + return (SD_FAILURE); + } + } + *p = 0; + + if (c == ' ') + { + dc->dataEl = SD_TRUE; + + /* OK, now see if the data type is included ... */ + p = dc->dtBuf; + c = *(dc->xmlPos++); + if (c == 'D') + { + c = *(dc->xmlPos++); /* Eat the 'T' */ + c = *(dc->xmlPos++); /* Eat the '=' */ + c = *(dc->xmlPos++); /* Eat the '"' */ + c = *(dc->xmlPos++); + i = 0; + while (c != '"' && dc->xmlPos <= dc->xmlBufEnd) + { + if (++i > _SXD_MAX_DT) + { + SXLOG_NERR0 ("Could not find end of DT"); + dc->xmlDecResult = SD_FAILURE; + return (SD_FAILURE); + } + + *(p++) = c; + c = *(dc->xmlPos++); + if (dc->xmlPos > dc->xmlBufEnd) + { + SXLOG_NERR0 ("Could not find ' '"); + dc->xmlDecResult = SD_FAILURE; + return (SD_FAILURE); + } + } + c = *(dc->xmlPos++); /* Eat the ' ' */ + c = *(dc->xmlPos++); /* This should be the 'V' */ + } + *p = 0; + + /* Finally, we get to the value, right? */ + if (c != 'V') + { + SXLOG_NERR0 ("Expected 'V'"); + dc->xmlDecResult = SD_FAILURE; + return (SD_FAILURE); + } + c = *(dc->xmlPos++); /* Eat the '=' */ + c = *(dc->xmlPos++); /* Eat the '"' */ + + p = dc->valBuf; + c = *(dc->xmlPos++); + i = 0; + while (c != '"') + { + if (++i > _SXD_MAX_VAL_BUF) + { + SXLOG_NERR0 ("Could not find ' ' or '>'"); + dc->xmlDecResult = SD_FAILURE; + return (SD_FAILURE); + } + *(p++) = c; + c = *(dc->xmlPos++); + if (dc->xmlPos > dc->xmlBufEnd) + { + SXLOG_NERR0 ("Could not find end of value attribute"); + dc->xmlDecResult = SD_FAILURE; + return (SD_FAILURE); + } + } + *p = 0; + c = *(dc->xmlPos++); /* Eat the '/' */ + c = *(dc->xmlPos++); /* Eat the '>' */ + } + else + dc->dataEl = SD_FALSE; + + return (SD_SUCCESS); + } + +/************************************************************************/ +/************************************************************************/ + +#if defined(MMS_LITE) && !defined(NO_MVL) + +ST_RET _sxd_decode_data_el (ST_CHAR *elName, + ST_CHAR *xml, ST_INT xmlLen, ST_INT *xmlUsed, + ST_VOID *vdp, ST_INT typeId, + ST_BOOLEAN *elPres, ST_INT sxdXmlStyle, ST_BOOLEAN checkDt) + { +RUNTIME_TYPE *rt; +ST_INT numRt; +ST_RET rc; + + rc = sxd_get_runtime (typeId, &rt, &numRt); + if (rc != SD_SUCCESS) + return (rc); + + rc = sxd_decode_rtdata_el (elName, xml, xmlLen, xmlUsed, vdp, rt, numRt, + elPres, sxdXmlStyle, checkDt); + + return (rc); + } +#endif + +/************************************************************************/ +/* sxd_decode_rtdata_el */ +/************************************************************************/ + +ST_RET sxd_decode_rtdata_el (SD_CONST ST_CHAR *elName, + ST_CHAR *xml, ST_INT xmlLen, ST_INT *xmlUsed, + ST_VOID *vdp, SD_CONST RUNTIME_TYPE *rt_head, + ST_INT rt_num, ST_BOOLEAN *elPres, + ST_INT sxdXmlStyle, ST_BOOLEAN checkDt) + { +RUNTIME_TYPE *rt_ptr; +RUNTIME_TYPE *rt_end; +RUNTIME_TYPE *rt_tmp; +ST_RET uDataRet; +ST_INT arr_loop_level; +ST_INT arr_loops[ASN1_MAX_LEVEL]; +ST_RET rc; +SXD_DEC_CTRL *dc; +ST_CHAR *datptr; +ST_CHAR nameBuf[SXD_MAX_PREFIX+MAX_IDENT_LEN+1]; +ST_INT j, cnt; +ST_BOOLEAN set_arr_start; +ST_BOOLEAN set_arr_end; +ST_BOOLEAN plain_array; +ST_CHAR structPrefix[SXD_MAX_PREFIX+1]; /* used only for decoding of style A */ +ST_INT structNestLevel; /* used only for decoding of style A */ + +/* macro to set the elPres field, update datptr, and advance to next RT */ +#define _SXD_ADVANCE_PTR(rt_ptr, pres_flg) { \ + if (elPres != NULL) \ + elPres[(rt_ptr) - rt_head] = pres_flg; \ + datptr += (rt_ptr)->el_size; \ + ++(rt_ptr); } + + datptr = (ST_CHAR *) vdp; + dc = (SXD_DEC_CTRL *) M_CALLOC (NULL, 1, sizeof (SXD_DEC_CTRL)); + if (!dc) + { + SXLOG_ERR1 ("Unable to allocate memory (bytes %u)", sizeof (SX_DEC_CTRL)); + return (SD_FAILURE); + } + dc->sxdXmlStyle = sxdXmlStyle; + if (dc->sxdXmlStyle == SXD_XML_STYLE_V) + dc->checkDt = checkDt; + else + dc->checkDt = SD_FALSE; + + dc->xmlDest = xml; + dc->xmlPos = xml; + dc->xmlBufEnd = xml + xmlLen; + dc->xmlDecResult = SD_SUCCESS; + dc->outerElement = elName; + + arr_loop_level = 0; + memset (arr_loops, 0, sizeof (arr_loops)); + + rt_ptr = (RUNTIME_TYPE *) rt_head; /* point to head rt_block */ + rt_end = rt_ptr + rt_num; /* done when pointer is here */ + +/* Here we will work our way through the XML and the runtime type */ + + uDataRet = SD_SUCCESS; + structPrefix[0] = 0; + structNestLevel = 0; + + while ((dc->xmlPos < dc->xmlBufEnd) && (rt_ptr < rt_end) && + uDataRet == SD_SUCCESS) + { + /* Position to the opening '<' */ + if (dc->sxdXmlStyle == SXD_XML_STYLE_C || + dc->sxdXmlStyle == SXD_XML_STYLE_V) + { + while (*dc->xmlPos != '<' && dc->xmlPos < dc->xmlBufEnd) + ++dc->xmlPos; + } + if (dc->xmlPos >= dc->xmlBufEnd) + { + M_FREE (NULL, dc); + return (SD_SUCCESS); + } + + /* Decode the next XML data element */ + if (dc->sxdXmlStyle == SXD_XML_STYLE_A) + rc = _sxdDecElementA (dc); + else if (dc->sxdXmlStyle == SXD_XML_STYLE_C) + rc = _sxdDecElementC (dc); + else if (dc->sxdXmlStyle == SXD_XML_STYLE_V) + rc = _sxdDecElementV (dc); + else + rc = SD_FAILURE; /* invalid style */ + + if (rc != SD_SUCCESS) + { + M_FREE (NULL, dc); + return (rc); + } + + /* If we reached the end of the element for style A, we are done */ + if (dc->endEl == SD_TRUE && dc->sxdXmlStyle == SXD_XML_STYLE_A) + { + if (dc->outerElement && elPres != NULL) + elPres[rt_num-1] = SD_TRUE; + + break; + } + + /* Note1: The processing is different for plain array and different */ + /* for array of structures when they are decoded. */ + /* In the case of plain array the function sxdDecElementX */ + /* will return the decoded array element (no start or end */ + /* array element tag). */ + /* In the case of array of structures the fun sxdDecElementX */ + /* will return first the start of array element tag, then */ + /* the decoded array element (x struct fields), and at the */ + /* end we get the array element end tag. */ + /* Note2: Arrays are not supported in SXD_XML_STYLE_A because the */ + /* attributes must have unique names. */ + + plain_array = SD_FALSE; + set_arr_start = SD_FALSE; + set_arr_end = SD_FALSE; + + /* OK, we need to find the RT that has the name */ + while (rt_ptr < rt_end && uDataRet == SD_SUCCESS) + { + elName = NULL; + + if (rt_ptr->el_tag == RT_STR_START) /* treat case of struct start */ + { + /*--------------------------------------------------------------*/ + if (ms_comp_name_pres(rt_ptr) == SD_TRUE) + { + elName = ms_comp_name_find(rt_ptr); + if (dc->sxdXmlStyle == SXD_XML_STYLE_A) + { + strcat (structPrefix, elName); + strcat (structPrefix, "."); + if (strncmp (dc->elName, structPrefix, strlen(structPrefix)) == 0) + { + ++structNestLevel; + _SXD_ADVANCE_PTR(rt_ptr, SD_TRUE); + continue; + } + else + { + /* wrong struct, need to skip this struct in rt tbl */ + _sxdStripPrefix (structPrefix); /* restore the prefix */ + } + } + } + if (elName != NULL) + { + /* Check to see if we found the associated RUNTIME element */ + if (strcmp (dc->elName, elName) == 0) + break; /* struct name matches, process it */ + else + { + /* dc->elName does not match, need to skip this struct in rt tbl */ + cnt = rt_ptr->u.str.num_rt_blks + 2; /* 2 for str start, end */ + for (j=0; j 0) + { + /* array of structs, advance to next rt */ + uDataRet = _sxdDecStrStart (dc, rt_ptr);/* normally called from switch */ + _SXD_ADVANCE_PTR(rt_ptr, SD_TRUE); + continue; /* continue processing of the array element */ + } + else + { + /* must be the XML wrapper */ + elName = dc->outerElement; + if (elName == NULL) + /* can't compare the wrapper name, assume it is OK */ + break; + else + { + if (strcmp (dc->elName, elName) == 0) + break; /* process the wrapper */ + else + { + /* wrong XML ? */ + SXLOG_NERR2 ("Could not find XML wrapper '%s' (found '%s')", dc->elName, elName); + M_FREE (NULL, dc); + return (SD_FAILURE); + } + } + } + } + } + else if (rt_ptr->el_tag == RT_STR_END) /* treat case of struct end */ + { + /*--------------------------------------------------------------*/ + if (dc->sxdXmlStyle == SXD_XML_STYLE_A) + { + /* need to strip name of last struct level */ + _sxdStripPrefix (structPrefix); + --structNestLevel; + _SXD_ADVANCE_PTR(rt_ptr, SD_TRUE); + continue; + } + else + { + /* get the struct name from the RT_STR_START rt */ + rt_tmp = rt_ptr - (rt_ptr->u.str.num_rt_blks + 1); + if (ms_comp_name_pres(rt_tmp) == SD_TRUE) + elName = ms_comp_name_find(rt_tmp); + } + if (elName != NULL) + { + /* Check to see if we found the associated RUNTIME element */ + if (strcmp (dc->elName, elName) == 0) + break; /* struct name matches, process end */ + } + else + { + /* elName maybe NULL in the case of array of structures */ + if (arr_loop_level > 0) + { + /* this is an array of structs, advance to next rt (but not to next decoded element)*/ + uDataRet = _sxdDecStrEnd (dc, rt_ptr);/* normally called from switch */ + _SXD_ADVANCE_PTR(rt_ptr, SD_TRUE); + continue; /* continue processing of the array element */ + } + else + { + /* this may be the wrapper end */ + elName = dc->outerElement; + if (elName == NULL) + /* can't compare the wrapper name, assume it is OK */ + break; + else + { + if (strcmp (dc->elName, elName) == 0) + break; /* process the wrapper */ + else + { + /* wrong XML ? */ + SXLOG_NERR2 ("Could not find XML end wrapper tag '%s' (found '%s')", dc->elName, elName); + M_FREE (NULL, dc); + return (SD_FAILURE); + } + } + } + } + } + else if (rt_ptr->el_tag == RT_ARR_START) /* treat case of array element starting */ + { + /*--------------------------------------------------------------*/ + /* check if the start tag of array element matches dc->elName */ + /* before setting loop level */ + if (ms_comp_name_pres(rt_ptr) == SD_TRUE) + elName = ms_comp_name_find(rt_ptr); + if (strcmp (dc->elName, elName) == 0) + { + if (arr_loop_level == 0) /* set only one time per array */ + { + rt_tmp = rt_ptr; + while (rt_tmp->el_tag == RT_ARR_START) + { + ++arr_loop_level; + arr_loops[arr_loop_level] = rt_tmp->u.arr.num_elmnts; + ++rt_tmp; + } + } + /* array may be multidimentional, skip to the last RT_ARR_START */ + while ((rt_ptr+1)->el_tag == RT_ARR_START) + { + uDataRet = _sxdDecArrStart (dc, rt_ptr); /* normally called from switch */ + _SXD_ADVANCE_PTR(rt_ptr, SD_TRUE); + } + + /* if it is array of structs, processing is different */ + if ((rt_ptr+1)->el_tag == RT_STR_START) + /* array of structs */ + break; + else + { + /* plain array, adjust ptrs and go to next rt */ + plain_array = SD_TRUE; + uDataRet = _sxdDecArrStart (dc, rt_ptr);/* normally called from switch */ + _SXD_ADVANCE_PTR(rt_ptr, SD_TRUE); + continue; + } + } + /* dc->elName does not match, need to skip this array in rt tbl */ + cnt = rt_ptr->u.arr.num_rt_blks + 2; /* 2 for arr start, end */ + for (j=0; jelName in rt tbl */ + } + else if (rt_ptr->el_tag == RT_ARR_END) /* treat case of array element ending */ + { + /*--------------------------------------------------------------*/ + /* we get here only in the case of array of structures */ + /* get the array name from the first RT_ARR_START rt (maybe nested) */ + rt_tmp = rt_ptr - (rt_ptr->u.arr.num_rt_blks + 1); + while (ms_comp_name_pres(rt_tmp) != SD_TRUE && rt_tmp->el_tag == RT_ARR_START) + --rt_tmp; + elName = "UNKNOWN"; + if (ms_comp_name_pres(rt_tmp) == SD_TRUE) + elName = ms_comp_name_find(rt_tmp); + + /* check if the end tag of an array element is correct */ + if (strcmp (dc->elName, elName) != 0) + { + /* invalid end tag for the array element, quit decoding */ + SXLOG_NERR2 ("Could not find array element end tag '%s' (found '%s')", elName, dc->elName); + M_FREE (NULL, dc); + return (SD_FAILURE); + } + if (--arr_loops[arr_loop_level] > 0) /* if need next ar elmnt */ + { + /* there should be more array elements to process, need to */ + /* reset the rt to the beginning of the array */ + set_arr_start = SD_TRUE; + } + else + { + /* all array elements processed, decrement loop level */ + --arr_loop_level; + if (arr_loops[arr_loop_level] > 0) + set_arr_start = SD_TRUE; /* more elements to process */ + else + { + /* advance to last RT_ARR_END (if multidimentional array) */ + while ((rt_ptr+1)->el_tag == RT_ARR_END) + { + _SXD_ADVANCE_PTR(rt_ptr, SD_TRUE); + } + } + } + break; + } + else + { + /*--------------------------------------------------------------*/ + /* struct field or array element */ + if (ms_comp_name_pres(rt_ptr) == SD_TRUE) + { + elName = ms_comp_name_find(rt_ptr); + if (dc->sxdXmlStyle == SXD_XML_STYLE_A) + { + strcpy (nameBuf, structPrefix); + strcat (nameBuf, elName); + if (strcmp (dc->elName, nameBuf) == 0) + break; /* found element name, process it */ + else + { + /* not name we search for, skip it */ + _SXD_ADVANCE_PTR(rt_ptr, SD_FALSE); + continue; + } + } + } + + if (elName != NULL) + { + if (strcmp (dc->elName, elName) == 0) + break; /* found element name, process it */ + else + { + _SXD_ADVANCE_PTR(rt_ptr, SD_FALSE); + continue; /* continue looking for the dc->elName */ + } + } + else + { + /* elName maybe NULL in the case of an array element (plain array) */ + if (plain_array) + { + /* since no array element end tag will be decoded, we need */ + /* to handle this case here */ + if (--arr_loops[arr_loop_level] > 0) /* if need next ar elmnt */ + { + /* there should be more array elements to process, need to */ + /* reset the rt to the beginning of the array */ + set_arr_start = SD_TRUE; + } + else + { + /* all array elements processed, decrement loop level */ + --arr_loop_level; + if (arr_loops[arr_loop_level] > 0) + set_arr_start = SD_TRUE; /* more elements to process */ + else + set_arr_end = SD_TRUE; /* end of array */ + } + break; + } + else + { + SXLOG_NERR1 ("Could not find tag '%s' (found 'NULL')", dc->elName); + M_FREE (NULL, dc); + return (SD_FAILURE); + } + } + } + + /* !!! if we get here some 'if-else' is not handled! return error */ + SXLOG_NERR0 ("Unhandled code, returning from function sxd_decode_rtdata_el."); + M_FREE (NULL, dc); + return (SD_FAILURE); + } /* end of inner while loop */ + + if (rt_ptr >= rt_end || uDataRet != SD_SUCCESS) + { + SXLOG_NERR1 ("Could not find RT for element name %s", dc->elName); + M_FREE (NULL, dc); + return (SD_FAILURE); + } + + /* We found a RUNTIME element that matches the XML name */ + + if (1 || dc->dataEl == SD_TRUE) + { + switch (rt_ptr->el_tag) + { + case RT_ARR_START : + uDataRet = _sxdDecArrStart (dc, rt_ptr); + break; + + case RT_STR_START : + uDataRet = _sxdDecStrStart (dc, rt_ptr); + break; + + case RT_ARR_END : /* array done */ + uDataRet = _sxdDecArrEnd (dc, rt_ptr); + break; + + case RT_STR_END : /* structure done */ + uDataRet = _sxdDecStrEnd (dc, rt_ptr); + break; + + case RT_BOOL : + uDataRet = _sxdDecBool (dc, (ST_BOOLEAN *) datptr, rt_ptr); + break; + + case RT_BIT_STRING : + uDataRet = _sxdDecBs (dc, (ST_UCHAR *) datptr, rt_ptr); + break; + + case RT_INTEGER : + switch (rt_ptr->u.p.el_len) /* determine length */ + { + case 1 : /* one byte int */ + uDataRet = _sxdDecInt8 (dc, (ST_INT8 *) datptr, rt_ptr); + break; + + case 2 : /* two byte int */ + uDataRet = _sxdDecInt16 (dc, (ST_INT16 *) datptr, rt_ptr); + break; + + case 4 : /* four byte integer */ + uDataRet = _sxdDecInt32 (dc, (ST_INT32 *) datptr, rt_ptr); + break; + +#ifdef INT64_SUPPORT + case 8 : /* eight byte integer */ + uDataRet = _sxdDecInt64 (dc, (ST_INT64 *) datptr, rt_ptr); + break; +#endif + } + break; + + case RT_UNSIGNED : + switch (rt_ptr->u.p.el_len) /* determine length */ + { + case 1 : /* one byte int */ + uDataRet = _sxdDecUint8 (dc, (ST_UCHAR *) datptr, rt_ptr); + break; + + case 2 : /* two byte int */ + uDataRet = _sxdDecUint16 (dc, (ST_UINT16 *) datptr, rt_ptr); + break; + + case 4 : /* four byte integer */ + uDataRet = _sxdDecUint32 (dc, (ST_UINT32 *) datptr, rt_ptr); + break; + +#ifdef INT64_SUPPORT + case 8 : /* eight byte integer */ + uDataRet = _sxdDecUint64 (dc, (ST_UINT64 *) datptr, rt_ptr); + break; +#endif /* INT64_SUPPORT */ + } + break; + +#ifdef FLOAT_DATA_SUPPORT + case RT_FLOATING_POINT : + if (rt_ptr->u.p.el_len != sizeof (ST_FLOAT)) + { + uDataRet = _sxdDecDbl (dc, (ST_DOUBLE *) datptr, rt_ptr); + } + else + { + uDataRet = _sxdDecFlt (dc, (ST_FLOAT *) datptr, rt_ptr); + } + break; +#endif + + case RT_OCTET_STRING : + uDataRet = _sxdDecOct (dc, (ST_UCHAR *) datptr, rt_ptr); + break; + + case RT_VISIBLE_STRING : + uDataRet = _sxdDecVis (dc, (ST_CHAR *) datptr, rt_ptr); + break; + +#ifdef TIME_DATA_SUPPORT + case RT_GENERAL_TIME : + uDataRet = _sxdDecGt (dc, (time_t *) datptr, rt_ptr); + break; +#endif + +#ifdef BTOD_DATA_SUPPORT + case RT_BINARY_TIME : + switch (rt_ptr->u.p.el_len) /* determine length */ + { + case 4: + uDataRet = _sxdDecBt4 (dc, (ST_INT32 *) datptr, rt_ptr); + break; + case 6: + uDataRet = _sxdDecBt6 (dc, (ST_INT32 *) datptr, rt_ptr); + break; + } + break; +#endif + + case RT_BCD : + if (rt_ptr->u.p.el_len <= 2) + { + uDataRet = _sxdDecBcd1 (dc, (ST_INT8 *) datptr, rt_ptr); + } + else if (rt_ptr->u.p.el_len <= 4) + { + uDataRet = _sxdDecBcd2 (dc, (ST_INT16 *) datptr, rt_ptr); + } + else if (rt_ptr->u.p.el_len <= 8) + { + uDataRet = _sxdDecBcd4 (dc, (ST_INT32 *) datptr, rt_ptr); + } + break; + + default : /* should not be any other tag */ + SXLOG_ERR1 ("Invalid tag: %d", (int) rt_ptr->el_tag); + M_FREE (NULL, dc); + return (SD_FAILURE); + break; + } + + /* Set the element present flag for this element to TRUE */ + if (elPres != NULL) + elPres[rt_ptr - rt_head] = SD_TRUE; + datptr += rt_ptr->el_size; /* Adjust data pointer */ + + if (set_arr_start) + { + if (plain_array) + --rt_ptr; /* rt_ptr to arr start */ + else + rt_ptr -= rt_ptr->u.arr.num_rt_blks + 1; /* rt_ptr to arr start */ + while ((rt_ptr-1)->el_tag == RT_ARR_START) /* if multidimensional */ + --rt_ptr; /* go to first level */ + } + else if (set_arr_end) + { + rt_ptr++; + /* if multidimensional array, pass the last RT_ARR_END */ + while ((rt_ptr)->el_tag == RT_ARR_END) + { + _SXD_ADVANCE_PTR(rt_ptr, SD_TRUE); + } + } + else + rt_ptr++; /* point to next rt elmt*/ + } /* if (1 || ...) */ + } /* end of outher while loop */ + *xmlUsed = dc->xmlPos - xml; + M_FREE (NULL, dc); + return (uDataRet); + } + diff --git a/mmslib/util/sx_dec.c b/mmslib/util/sx_dec.c new file mode 100644 index 0000000..e03960f --- /dev/null +++ b/mmslib/util/sx_dec.c @@ -0,0 +1,2520 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1999 - 2008, All Rights Reserved */ +/* */ +/* MODULE NAME : sx_dec.c */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 02/06/08 EJV 88 Added SX_PARSING_OK, sx_err_str* (for slogs).*/ +/* 01/14/08 MDE 87 Fixed numOcc multithread problem */ +/* 10/04/07 MDE 86 Tweaked LOGCFG_VALUE_GROUP/LOGCFGX_VALUE_MAP */ +/* For early MODLOGS see previous revision of this file on PVCS. */ +/************************************************************************/ + +#if defined (_WIN32) +#pragma warning(disable : 4996) +#endif + +#include "glbtypes.h" +#include "sysincs.h" +#include "mem_chk.h" +#include "sx_defs.h" +#include "sx_log.h" +#include "time_str.h" +#include "str_util.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +#if defined(USE_EXPAT) +/* Assume linking to Expat "static" library. Must define XML_STATIC */ +/* before including "expat.h". */ +#define XML_STATIC +#include "expat.h" +#define EXPAT_BUF_SIZE 8192 /* parse buffer size if reading from file*/ +#define ENTITY_BUF_SIZE 2000 /* initial size to alloc for entity buffer*/ + /* reallocate larger if needed */ + +static void XMLCALL expatHandlerStartSkip(void *userData, const char *el, const char **attr); +static void XMLCALL expatHandlerEndSkip(void *userData, const char *el); +#endif +/************************************************************************/ + +SD_CONST ST_CHAR *SD_CONST _sx_log_dec_logstr = "SX_LOG_DEC"; +SD_CONST ST_CHAR *SD_CONST _sx_log_enc_logstr = "SX_LOG_ENC"; +SD_CONST ST_CHAR *SD_CONST _sx_log_flow_logstr = "SX_LOG_FLOW"; +SD_CONST ST_CHAR *SD_CONST _sx_log_debug_logstr = "SX_LOG_DEBUG"; +SD_CONST ST_CHAR *SD_CONST _sx_log_err_logstr = "SX_LOG_ERR"; +SD_CONST ST_CHAR *SD_CONST _sx_log_nerr_logstr = "SX_LOG_NERR"; + +ST_UINT sx_debug_sel = SX_LOG_ERR | SX_LOG_NERR; +ST_UINT sx_debug_sel_cfg = SX_LOG_ERR | SX_LOG_NERR; /* saves SX masks while logging configuration is parsed */ + +#ifdef DEBUG_SISCO +LOGCFGX_VALUE_MAP sxLogMaskMaps[] = + { + {"SX_LOG_ERR", SX_LOG_ERR, &sx_debug_sel_cfg, _LOGCFG_DATATYPE_UINT_MASK, NULL, "Error"}, + {"SX_LOG_NERR", SX_LOG_NERR, &sx_debug_sel_cfg, _LOGCFG_DATATYPE_UINT_MASK, NULL, "Notice"}, + {"SX_LOG_FLOW", SX_LOG_FLOW, &sx_debug_sel_cfg, _LOGCFG_DATATYPE_UINT_MASK, NULL, "Flow"}, + {"SX_LOG_DEC", SX_LOG_DEC, &sx_debug_sel_cfg, _LOGCFG_DATATYPE_UINT_MASK, NULL, "Decode"}, + {"SX_LOG_ENC", SX_LOG_ENC, &sx_debug_sel_cfg, _LOGCFG_DATATYPE_UINT_MASK, NULL, "Encode"}, + {"SX_LOG_DEBUG", SX_LOG_DEBUG, &sx_debug_sel_cfg, _LOGCFG_DATATYPE_UINT_MASK, NULL, "Debug"}, + }; + +LOGCFG_VALUE_GROUP sxLogMaskMapCtrl = + { + {NULL,NULL}, + "SxLogMasks", /* Parent Tag */ + sizeof(sxLogMaskMaps)/sizeof(LOGCFGX_VALUE_MAP), + sxLogMaskMaps + }; + +/* tbl of error strings, used in slogs */ +ST_CHAR *sx_err_str[] = + { + "SX_PARSING_OK", /* 0 */ + "SX_USER_ERROR", /* 1 */ + "SX_STRUCT_NOT_FOUND", /* 2 */ + "SX_REQUIRED_TAG_NOT_FOUND", /* 3 */ + "SX_DUPLICATE_NOT_ALLOWED", /* 4 */ + "SX_EMPTY_TAG_NOT_ALLOWED", /* 5 */ + "SX_XML_NEST_TOO_DEEP", /* 6 */ + "SX_XML_BUFFER_OVER_MAX", /* 7 */ + "SX_XML_MALFORMED", /* 8 */ + "SX_FILE_NOT_FOUND", /* 9 */ + "SX_END_PARSING", /* 10 */ + "SX_ELEMENT_TBL_TOO_BIG" /* 11 */ + }; +ST_INT sx_err_str_cnt = sizeof (sx_err_str)/sizeof (ST_CHAR *); +#endif /* DEBUG_SISCO */ + + + +/************************************************************************/ + +ST_BOOLEAN sxUseSax; +ST_BOOLEAN sxIgnoreNS; + +ST_RET sx_rip_xml (SX_DEC_CTRL *sxDecCtrl); +ST_RET sx_rip_xml_file (SX_DEC_CTRL *sxDecCtrl); +ST_RET sx_rip_xml_mem (SX_DEC_CTRL *sxDecCtrl); + +SX_ELEMENT *_uibed_find_element (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *tag, ST_INT **numOccOut); +static ST_VOID _sx_pop (SX_DEC_CTRL *sxDecCtrl, ST_BOOLEAN auto_pop); + +/************************************************************************/ +/* sx_parseExx_mt */ +/* Note: when making changes/correction to this function revise also */ +/* other sx_parse functions. */ +/* Decode the XML located in file by loading the whole thing into */ +/* memory first ... */ +/************************************************************************/ + +ST_RET sx_parseExx_mt (ST_CHAR *fileName, ST_INT numItems, + SX_ELEMENT *itemTbl, ST_VOID *usr, + ST_RET (*u_sx_el_start_fun) (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *tag), + ST_RET (*u_sx_el_end_fun) (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *tag)) + { +ST_RET rc; +ST_LONG fileSize; +ST_LONG bytesRead; +ST_CHAR *cfgData; +struct stat buf; +int result; +FILE *fp; + +/* Get the size of the file */ + fp = fopen (fileName, "r"); + if (fp == NULL) + { + /* + SXLOG_FLOW2 ("XML File (%s) Open Error (errno=%d)", fileName, errno); + printf ("XML File (%s) Open Error (errno=%d)\n", fileName, errno); + */ + return (SX_FILE_NOT_FOUND); + } + result = fstat (fileno (fp), &buf); + if (result != 0) + return (SD_FAILURE); + +/* Allocate a buffer and read all into memory */ + fileSize = buf.st_size; + cfgData = (ST_CHAR *) chk_malloc (fileSize); + + bytesRead = fread (cfgData, 1, fileSize, fp); + fclose (fp); + if (bytesRead <= 0) + { + chk_free (cfgData); + SXLOG_FLOW1 ("Error: Could not read from '%s'", fileName); + return (SX_FILE_NOT_FOUND); + } + + rc = sx_parse_mt (bytesRead, cfgData, numItems, itemTbl, usr, + u_sx_el_start_fun, u_sx_el_end_fun); + if (rc != SD_SUCCESS) + { + SXLOG_FLOW1 ("ERROR: parsing failed, return code: '%d'", rc); + } + + chk_free (cfgData); + return (rc); + } + +/************************************************************************/ +/* sx_parse_mt */ +/* Note: when making changes/correction to this function revise also */ +/* other sx_parse functions. */ +/* Decode the XML located in memory (thread safe version). */ +/************************************************************************/ +ST_RET sx_parse_mt (ST_LONG lMsgLen, ST_CHAR *xml, ST_INT numItems, + SX_ELEMENT *itemTbl, ST_VOID *usr, + ST_RET (*u_sx_el_start_fun) (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *tag), + ST_RET (*u_sx_el_end_fun) (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *tag)) +{ +SX_DEC_CTRL *sxDecCtrl; +ST_RET rc; + + SXLOG_FLOW0 ("Start Decoding XML"); + SXLOG_FLOWH ((ST_INT) lMsgLen, xml); + + sxDecCtrl = (SX_DEC_CTRL *) calloc (1, sizeof (SX_DEC_CTRL)); + /* !we need to use here the system calloc */ + + sx_push (sxDecCtrl, numItems, itemTbl, SD_FALSE); + sxDecCtrl->xmlStart = xml; + sxDecCtrl->xmlLen = lMsgLen; + sxDecCtrl->ignoreNS = sxIgnoreNS; + sxDecCtrl->useFp = SD_FALSE; + sxDecCtrl->usr = usr; + sxDecCtrl->u_sx_el_start = u_sx_el_start_fun; + sxDecCtrl->u_sx_el_end = u_sx_el_end_fun; + +#if defined(USE_EXPAT) + sx_rip_xml_mem (sxDecCtrl); +#else + sx_rip_xml (sxDecCtrl); +#endif + + if (sxDecCtrl->xmlNestLevel != 0 && sxDecCtrl->errCode == SD_SUCCESS) + { + sxDecCtrl->errCode = SX_XML_MALFORMED; + SXLOG_NERR0 ("Invalid XML nesting"); + } + + rc = sxDecCtrl->errCode; + + free (sxDecCtrl); + + return (rc); +} + +/************************************************************************/ +/* sx_parseEx_mt */ +/* Note: when making changes/correction to this function revise also */ +/* other sx_parse functions. */ +/* Decode the XML located in file (thread safe version). */ +/************************************************************************/ +ST_RET sx_parseEx_mt (ST_CHAR *fileName, ST_INT numItems, + SX_ELEMENT *itemTbl, ST_VOID *usr, + ST_RET (*u_sx_el_start_fun) (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *tag), + ST_RET (*u_sx_el_end_fun) (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *tag)) +{ +SX_DEC_CTRL *sxDecCtrl; +ST_RET rc; +FILE *fp; + + SXLOG_FLOW1 ("Start Decoding XML file %s", fileName); + if ((fp = fopen (fileName,"r"))==NULL) + { + SXLOG_FLOW1 ("XML File (%s) Open Error",fileName); + return (SX_FILE_NOT_FOUND); + } + + sxDecCtrl = (SX_DEC_CTRL *) calloc (1, sizeof (SX_DEC_CTRL)); + /* !we need to use here the system calloc */ + + sx_push (sxDecCtrl, numItems, itemTbl, SD_FALSE); + sxDecCtrl->fp = fp; + sxDecCtrl->ignoreNS = sxIgnoreNS; + sxDecCtrl->useFp = SD_TRUE; + sxDecCtrl->usr = usr; + sxDecCtrl->u_sx_el_start = u_sx_el_start_fun; + sxDecCtrl->u_sx_el_end = u_sx_el_end_fun; + +#if defined(USE_EXPAT) + sx_rip_xml_file (sxDecCtrl); +#else + sx_rip_xml (sxDecCtrl); +#endif + + if (sxDecCtrl->errCode == 0) + { + if (sxDecCtrl->xmlNestLevel != 0) + { + sxDecCtrl->errCode = SX_XML_MALFORMED; + SXLOG_NERR0 ("Invalid XML nesting"); + } + } + + rc = sxDecCtrl->errCode; + + free (sxDecCtrl); + + fclose (fp); + return (rc); +} + + +/************************************************************************/ +/* sxStartElement */ +/************************************************************************/ + +ST_VOID sxStartElement (SX_DEC_CTRL *sxDecCtrl) + { +SX_ELEMENT *item; +SX_DEC_ELEMENT_INFO *sxDecElInfo; +ST_CHAR *tag; +ST_RET rc = SD_FAILURE; +ST_INT stackLevelSave; +ST_INT *numOccPtr; + + sxDecElInfo = &sxDecCtrl->sxDecElInfo; + tag = sxDecElInfo->tag; + SXLOG_DEC1 ("Start element '%s'", tag); + if (sxDecCtrl->errCode != SD_SUCCESS && sxDecCtrl->errCode != SX_ERR_CONVERT) + { + return; + } + + item = _uibed_find_element (sxDecCtrl, tag, &numOccPtr); + + stackLevelSave = sxDecCtrl->itemStackLevel; + while (item == NULL && sxDecCtrl->itemStackLevel > 0) + { + if (sxDecCtrl->auto_pop[sxDecCtrl->itemStackLevel-1] == SD_TRUE) + { + _sx_pop (sxDecCtrl, SD_TRUE); + item = _uibed_find_element (sxDecCtrl, tag, &numOccPtr); + } + else + break; + } + + if (item != NULL) + { + if (*numOccPtr != 0 && ((item->elementFlags & SX_ELF_RPT) == 0)) + { + sxDecCtrl->errCode = SX_DUPLICATE_NOT_ALLOWED; + SXLOG_NERR1 ("Duplicate of element '%s' not allowed", tag); + return; + } + ++(*numOccPtr); + if (*numOccPtr > 1) + { + SXLOG_CDEC1 ("Number occurences: %d", *numOccPtr); + } + + /* Save the item for later */ + ++sxDecCtrl->xmlNestLevel; + sxDecCtrl->elTbl[sxDecCtrl->xmlNestLevel] = item; + + /* Call the user function, if there is one ... */ + sxDecCtrl->item = item; + sxDecCtrl->reason = SX_ELEMENT_START; + if ((item->elementFlags & SX_ELF_CSTART) != 0) + { + if (item->funcPtr != NULL) + { + sxDecCtrl->elUser = item->user; + (item->funcPtr)(sxDecCtrl); + } + else + { + SXLOG_CDEC0 ("No state function for this element"); + } + } + } + else if (sxDecCtrl->u_sx_el_start != NULL) + { + sxDecCtrl->itemStackLevel = stackLevelSave; + + if (sxDecCtrl->u_sx_el_start != NULL) + rc = (*(sxDecCtrl->u_sx_el_start)) (sxDecCtrl, tag); + if (rc == SD_SUCCESS) + { + ++sxDecCtrl->xmlNestLevel; + sxDecCtrl->elTbl[sxDecCtrl->xmlNestLevel] = NULL; + } + else + { + sxDecCtrl->errCode = SX_STRUCT_NOT_FOUND; + SXLOG_CDEC1 ("u_sx_el_start failed for element '%s'", tag); + } + } + else + { + sxDecCtrl->errCode = SX_STRUCT_NOT_FOUND; + SXLOG_NERR1 ("Could not find element '%s' in element table", tag); + } + } + +/************************************************************************/ +/* sxEndElement */ +/************************************************************************/ + +ST_VOID sxEndElement (SX_DEC_CTRL *sxDecCtrl) + { +SX_DEC_ELEMENT_INFO *sxDecElInfo; +SX_ELEMENT *item; +ST_CHAR *tag; +ST_RET rc = SD_FAILURE; + + sxDecElInfo = &sxDecCtrl->sxDecElInfo; + tag = sxDecElInfo->tag; + SXLOG_DEC1 ("End element '%s'", tag); + if (sxDecCtrl->errCode != SD_SUCCESS && sxDecCtrl->errCode != SX_ERR_CONVERT) + { + return; + } + + item = sxDecCtrl->elTbl[sxDecCtrl->xmlNestLevel]; + --sxDecCtrl->xmlNestLevel; + + if (item != NULL) + { + if (strcmp (tag, item->tag) != 0) /* verify end tag */ + { + sxDecCtrl->errCode = SX_XML_MALFORMED; + SXLOG_NERR2 ("XML malformed: found , expected ", tag, item->tag); + } + else + { + if ((item->elementFlags & SX_ELF_CEND) != 0) + { + sxDecCtrl->item = item; + sxDecCtrl->reason = SX_ELEMENT_END; + if (item->funcPtr != NULL) + { + sxDecCtrl->elUser = item->user; + (item->funcPtr)(sxDecCtrl); + } + else + { + SXLOG_CDEC0 ("No state function for this element"); + } + } + } + } + else + { + if (sxDecCtrl->u_sx_el_end != NULL) + { + rc = (*(sxDecCtrl->u_sx_el_end)) (sxDecCtrl, sxDecCtrl->sxDecElInfo.tag); + if (rc != SD_SUCCESS) + { + sxDecCtrl->errCode = SX_STRUCT_NOT_FOUND; + SXLOG_NERR1 ("u_sx_el_end failed for element '%s'", tag); + } + } + } + } + +/************************************************************************/ +/************************************************************************/ +/* sx_push */ +/************************************************************************/ + +ST_VOID sx_push (SX_DEC_CTRL *sxDecCtrl, ST_INT numItems, SX_ELEMENT *itemTbl, + ST_BOOLEAN auto_pop) + { +ST_INT i; +SX_ELEMENT_TBL_CTRL *itemTblCtrl; +ST_INT *numOccTbl; + +/* Do some sanity checks first */ + if (sxDecCtrl->itemStackLevel >= SX_MAX_STACK_LEVEL) + { + sxDecCtrl->errCode = SX_XML_NEST_TOO_DEEP; + return; + } + if (numItems > SX_MAX_ITEMS_PER_TABLE) + { + sxDecCtrl->errCode = SX_ELEMENT_TBL_TOO_BIG; + return; + } + + itemTblCtrl = &sxDecCtrl->items[sxDecCtrl->itemStackLevel]; + numOccTbl = itemTblCtrl->numOccTbl; + + itemTblCtrl->itemTbl= itemTbl; + itemTblCtrl->numItems= numItems; + sxDecCtrl->auto_pop[sxDecCtrl->itemStackLevel] = auto_pop; + ++sxDecCtrl->itemStackLevel; + +/* reset the numOCc elements */ + for (i = 0; i < numItems; ++i) + numOccTbl[i] = 0; + } + +/************************************************************************/ +/* sx_pop */ +/************************************************************************/ + +ST_VOID sx_pop (SX_DEC_CTRL *sxDecCtrl) + { + _sx_pop (sxDecCtrl, SD_FALSE); + } + + +/************************************************************************/ +/* _sx_pop */ +/************************************************************************/ + +static ST_VOID _sx_pop (SX_DEC_CTRL *sxDecCtrl, ST_BOOLEAN auto_pop) + { +SX_ELEMENT_TBL_CTRL *itemTblCtrl; +SX_ELEMENT *item; +ST_INT i; +ST_INT *numOccTbl; + +/* Check for mandatory elements */ + if (sxDecCtrl->itemStackLevel > 0) + { + --sxDecCtrl->itemStackLevel; + /* If auto-popping AND have a unknown element handler, don't check mandatory */ + if (auto_pop && sxDecCtrl->u_sx_el_start != NULL) + return; + + itemTblCtrl = &sxDecCtrl->items[sxDecCtrl->itemStackLevel]; + numOccTbl = itemTblCtrl->numOccTbl; + for (i = 0; i < itemTblCtrl->numItems; ++i) + { + item = &itemTblCtrl->itemTbl[i]; + if (numOccTbl[i] == 0 && ((item->elementFlags & SX_ELF_OPT) == 0)) + { + sxDecCtrl->errCode = SX_REQUIRED_TAG_NOT_FOUND; + SXLOG_NERR1 ("Mandatory element '%s' not found", item->tag); + break; + } + } + } + } + + +/************************************************************************/ +/************************************************************************/ + +SX_ELEMENT *_uibed_find_element (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *tag, ST_INT **numOccPtrOut) + { +SX_ELEMENT_TBL_CTRL *itemTblCtrl; +ST_INT numItems; +SX_ELEMENT *item; +ST_INT i; + + itemTblCtrl = &sxDecCtrl->items[sxDecCtrl->itemStackLevel-1]; + item = itemTblCtrl->itemTbl; + numItems = itemTblCtrl->numItems; + +/* See if this element is in our table */ + for (i = 0; i < numItems; ++i, ++item) + { + if (strcmp (tag, item->tag) == 0) + { + *numOccPtrOut = &itemTblCtrl->numOccTbl[i]; + return (item); + } + } + return (NULL); + } + + + +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ + +ST_RET sx_get_element_contents (SX_DEC_CTRL *sxDecCtrl, + ST_CHAR *destBuf, ST_INT destLen, + ST_INT *lenOut) + { +ST_CHAR *src; +ST_INT len; +ST_INT rc; + + rc = sx_find_element_contents (sxDecCtrl, &src, &len); + if (rc != SD_SUCCESS) + return (rc); + + if (destLen < len) + { + SXLOG_NERR0("sx_get_element_contents: dest too small"); + SXLOG_NERR1 ("Error: sx_get_element_contents: dest too small for tag '%s'", sxDecCtrl->sxDecElInfo.tag); + sxDecCtrl->errCode = SD_FAILURE; + return (SD_FAILURE); + } + + memcpy (destBuf, src, len); + *lenOut = len; + return (SD_SUCCESS); + } + +/************************************************************************/ + +ST_RET sx_find_element_contents (SX_DEC_CTRL *sxDecCtrl, + ST_CHAR **elStartOut, ST_INT *lenOut) + { +SX_DEC_ELEMENT_INFO *sxDecElInfo; +ST_CHAR *start; +ST_CHAR *end; +ST_CHAR endTagBuf[100]; +ST_INT len; +#if defined(USE_EXPAT) +int offset; +int size; +const char *ptr; + + /* Doesn't work if reading one buffer at a time from a file. */ + if (sxDecCtrl->fp) + { + SXLOG_ERR0 ("sx_find_element_contents only works if entire XML is in memory. Use sx_parseExx_mt or sx_parse_mt."); + return (SD_FAILURE); + } + + /* Set "start" ptr to point after end of this start tag. */ + ptr = XML_GetInputContext(sxDecCtrl->parser, &offset, &size); + ptr += offset; /* point to current position in XML buffer */ + /* should be beginning of start tag */ + start = strchr (ptr, '>') + 1; /* point after end of start tag */ + + /* save nest level to help find corresponding end tag */ + sxDecCtrl->skipNestLevel = sxDecCtrl->xmlNestLevel; + /* Change handlers to skip to end of this element (look for end tag). */ + XML_SetCharacterDataHandler(sxDecCtrl->parser, NULL); /* ignore element data */ + XML_SetElementHandler(sxDecCtrl->parser, expatHandlerStartSkip, expatHandlerEndSkip); + sxDecElInfo = &sxDecCtrl->sxDecElInfo; +#else + sxDecElInfo = &sxDecCtrl->sxDecElInfo; + start = sxDecCtrl->xmlPos; +#endif +/* Check to see if this is an empty element */ + if (*(start - 2) == '/') + { + *lenOut = 0; + return (SD_SUCCESS); + } + + *elStartOut = start; + len = sxDecCtrl->xmlLen - (start - sxDecCtrl->xmlStart); + +/* We need to find the closing element for this start element */ + endTagBuf[0] = '<'; + endTagBuf[1] = '/'; + strcpy (&endTagBuf[2], sxDecElInfo->tag); + strcat (endTagBuf, ">"); + + end = strnstr (start, endTagBuf, len); + if (end == NULL) + { + SXLOG_NERR1("Can't find end tag '%s'", sxDecElInfo->tag); + sxDecCtrl->errCode = SD_FAILURE; + return (SD_FAILURE); + } + *lenOut = end - start; + +#if !defined(USE_EXPAT) /* with Expat, can't set or use xmlPos */ + sxDecCtrl->xmlPos = end; +#endif + + SXLOG_CDEC0("sx_find_element_contents got data:"); + SXLOG_DECH (*lenOut, *elStartOut); + return (SD_SUCCESS); + } + +/************************************************************************/ +/************************************************************************/ +/* sx_get_entity */ +/************************************************************************/ + +ST_RET sx_get_entity (SX_DEC_CTRL *sxDecCtrl, + ST_CHAR *destBuf, ST_INT destLen, + ST_INT *lenOut) + { +#if defined(USE_EXPAT) + if (destLen < sxDecCtrl->entityLen) + { + SXLOG_NERR2 ("Error: sx_get_entity: dest too small (max %d bytes expected) for tag '%s'", destLen, sxDecCtrl->sxDecElInfo.tag); + sxDecCtrl->errCode = SD_FAILURE; + *lenOut = 0; /* return empty buf */ + return (SD_FAILURE); + } + else + { + memcpy (destBuf, sxDecCtrl->entityBuf, sxDecCtrl->entityLen); + *lenOut = sxDecCtrl->entityLen; + } + if (*lenOut == 0) + SXLOG_CDEC0("sx_get_entity (no data)"); + else + { + SXLOG_CDEC0("sx_get_entity got data:"); + SXLOG_DECH (*lenOut, destBuf); + } + return (SD_SUCCESS); +#else /* !USE_EXPAT */ +SX_DEC_ELEMENT_INFO *sxDecElInfo; +ST_INT i; +ST_CHAR *dest; +ST_CHAR *src; +ST_CHAR *end; + + sxDecElInfo = &sxDecCtrl->sxDecElInfo; + src = sxDecElInfo->entityStart; + dest = destBuf; + end = sxDecElInfo->entityEnd; + for (i = 0; i < destLen && src < end; ++i, ++src, ++dest) + *dest = *src; + + *lenOut = i; + + if (src < end) + { + SXLOG_NERR2 ("Error: sx_get_entity: dest too small (max %d bytes expected) for tag '%s'", destLen, sxDecCtrl->sxDecElInfo.tag); + sxDecCtrl->errCode = SD_FAILURE; + return (SD_FAILURE); + } + + SXLOG_CDEC0("sx_get_entity got data:"); + SXLOG_DECH (i, destBuf); + return (SD_SUCCESS); +#endif /* !USE_EXPAT */ + } + + +/************************************************************************/ +/* sx_get_bool */ +/************************************************************************/ + +ST_RET sx_get_bool (SX_DEC_CTRL *sxDecCtrl, ST_BOOLEAN *out_ptr) + { +ST_INT d; +ST_RET rc; + + rc = sx_get_value (sxDecCtrl, "%d", &d); + if (rc != SD_SUCCESS) + return (rc); + + if (d == 0) + *out_ptr = SD_FALSE; + else + *out_ptr = SD_TRUE; + + return (SD_SUCCESS); + } + +/************************************************************************/ +/* sx_get_int */ +/************************************************************************/ + +ST_RET sx_get_int (SX_DEC_CTRL *sxDecCtrl, ST_INT *out_ptr) + { + return (sx_get_value (sxDecCtrl, "%d", out_ptr)); + } + +/************************************************************************/ +/* sx_get_float */ +/************************************************************************/ + +ST_RET sx_get_float (SX_DEC_CTRL *sxDecCtrl, ST_FLOAT *out_ptr) + { + return (sx_get_value (sxDecCtrl, "%f", out_ptr)); + } + +/************************************************************************/ +/* sx_get_double */ +/************************************************************************/ + +ST_RET sx_get_double (SX_DEC_CTRL *sxDecCtrl, ST_DOUBLE *out_ptr) + { + /* Note: must use the '%le' format specifier for double */ + return (sx_get_value (sxDecCtrl, "%le", out_ptr)); + } + +/************************************************************************/ +/* sx_get_uchar */ +/************************************************************************/ + +ST_RET sx_get_uchar (SX_DEC_CTRL *sxDecCtrl, ST_UCHAR *out_ptr) + { + return (sx_get_value (sxDecCtrl, "%c", out_ptr)); + } + +/************************************************************************/ +/* sx_get_int16 */ +/************************************************************************/ + +ST_RET sx_get_int16 (SX_DEC_CTRL *sxDecCtrl, ST_INT16 *out_ptr) + { +ST_INT i; +ST_RET rc; + + if ((rc = sx_get_value (sxDecCtrl, "%d", &i)) == SD_SUCCESS) + *out_ptr = (ST_INT16) i; + return (rc); + } + +/************************************************************************/ +/* sx_get_uint16 */ +/************************************************************************/ + +ST_RET sx_get_uint16 (SX_DEC_CTRL *sxDecCtrl, ST_UINT16 *out_ptr) + { + return (sx_get_value (sxDecCtrl, "%hu", out_ptr)); + } + +/************************************************************************/ +/* sx_get_uint32 */ +/************************************************************************/ + +ST_RET sx_get_uint32 (SX_DEC_CTRL *sxDecCtrl, ST_UINT32 *out_ptr) + { +ST_ULONG ul; +ST_RET rc; + + if ((rc = sx_get_value (sxDecCtrl, "%lu", &ul)) == SD_SUCCESS) + *out_ptr = (ST_UINT32) ul; + return (rc); + } + +/************************************************************************/ +/* sx_get_uint32_hex */ +/************************************************************************/ + +ST_RET sx_get_uint32_hex (SX_DEC_CTRL *sxDecCtrl, ST_UINT32 *out_ptr) + { +ST_ULONG ul; +ST_RET rc; + + if ((rc = sx_get_value (sxDecCtrl, "0x%lx", &ul)) == SD_SUCCESS) + *out_ptr = (ST_UINT32) ul; + return (rc); + } +/************************************************************************/ +/* sx_get_int32 */ +/************************************************************************/ + +ST_RET sx_get_int32 (SX_DEC_CTRL *sxDecCtrl, ST_INT32 *out_ptr) + { +ST_LONG sl; +ST_RET rc; + + if ((rc = sx_get_value (sxDecCtrl, "%ld", &sl)) == SD_SUCCESS) + *out_ptr = (ST_INT32) sl; + return (rc); + } + +/************************************************************************/ +/* sx_get_long */ +/************************************************************************/ + +ST_RET sx_get_long (SX_DEC_CTRL *sxDecCtrl, ST_LONG *out_ptr) + { + return (sx_get_value (sxDecCtrl, "%ld", out_ptr)); + } + +/************************************************************************/ +/* sx_get_ulong */ +/************************************************************************/ + +ST_RET sx_get_ulong (SX_DEC_CTRL *sxDecCtrl, ST_ULONG *out_ptr) + { + return (sx_get_value (sxDecCtrl, "%lu", out_ptr)); + } + +/************************************************************************/ +/* sx_get_uint */ +/************************************************************************/ + +ST_RET sx_get_uint (SX_DEC_CTRL *sxDecCtrl, ST_UINT *out_ptr) + { + return (sx_get_value (sxDecCtrl, "%u", out_ptr)); + } + +/************************************************************************/ +/* sx_get_value */ +/************************************************************************/ + +ST_RET sx_get_value (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *format_string, ST_VOID *out_ptr) + { +ST_CHAR *str; +ST_INT strLen; +ST_RET rc; + + strLen = 0; + rc = sx_get_string_ptr (sxDecCtrl, &str, &strLen); + if (rc != SD_SUCCESS) + return (rc); + +/* Convert to desired data format*/ +/* Note: sscanf may return 'bad' value if the number in the str */ +/* exceeds the max value in format_string. */ + if (sscanf (str, format_string, out_ptr) != 1) + /* we just want to get one value out of the string, any other ret is an error */ + { + SXLOG_NERR1 ("Data Conversion Error for tag '%s'", sxDecCtrl->sxDecElInfo.tag); + sxDecCtrl->errCode = SD_FAILURE; + return (SD_FAILURE); + } + return (SD_SUCCESS); + } + +/************************************************************************/ +/* *sx_get_alloc_string */ +/************************************************************************/ + +ST_RET sx_get_alloc_string (SX_DEC_CTRL *sxDecCtrl, ST_CHAR **strOut) + { +ST_CHAR *str; +ST_INT strLen; +ST_RET rc; + + strLen = 0; + rc = sx_get_string_ptr (sxDecCtrl, &str, &strLen); + if (rc != SD_SUCCESS) + return (rc); + + *strOut = M_STRDUP(NULL,str); + return (SD_SUCCESS); + } + +/************************************************************************/ +/* *sx_get_string */ +/************************************************************************/ + +ST_RET sx_get_string (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *dest, ST_INT *lenOut) + { +ST_CHAR *str; +ST_INT strLen; +ST_RET rc; + + strLen = 0; + rc = sx_get_string_ptr (sxDecCtrl, &str, &strLen); + if (rc != SD_SUCCESS) + return (rc); + + if (*lenOut != 0) + { + if (strLen > *lenOut) + { + SXLOG_NERR1 ("Error: String too long for tag '%s'", sxDecCtrl->sxDecElInfo.tag); + sxDecCtrl->errCode = SD_FAILURE; + return (SD_FAILURE); + } + } + + sx_format_string_dec (dest, str); + *lenOut = strLen; + return (SD_SUCCESS); + } + +/************************************************************************/ +/* sx_format_string_dec */ +/************************************************************************/ + +ST_VOID sx_format_string_dec (ST_CHAR *dest, ST_CHAR *src) + { +ST_CHAR *srcPtr; +ST_CHAR *srcPtrLast; +ST_CHAR *dstPtr; +ST_INT diff; + + dstPtr = dest; + srcPtrLast = src; + srcPtr = strchr (src, '&'); + + if (srcPtr == NULL) + { + strcpy (dest, src); + return; + } + + diff = srcPtr - srcPtrLast; + strncpy (dstPtr, srcPtrLast, diff); + dstPtr += diff; + + /* parse the source string and generate the dest string */ + while (srcPtr != NULL) + { + /* srcPtr points at a & */ + /* lets find out if the following characters are what we are looking for */ + if (strncmp (srcPtr, CODE_APOS, CODE_APOS_LEN) == 0) + { + *dstPtr++ = CHAR_APOS; + srcPtr += CODE_APOS_LEN; + } + else if (strncmp (srcPtr, CODE_QUOT, CODE_QUOT_LEN) == 0) + { + *dstPtr++ = CHAR_QUOT; + srcPtr += CODE_QUOT_LEN; + } + else if (strncmp (srcPtr, CODE_AMP, CODE_AMP_LEN) == 0) + { + *dstPtr++ = CHAR_AMP; + srcPtr += CODE_AMP_LEN; + } + else if (strncmp (srcPtr, CODE_LT, CODE_LT_LEN) == 0) + { + *dstPtr++ = CHAR_LT; + srcPtr += CODE_LT_LEN; + } + else if (strncmp (srcPtr, CODE_GT, CODE_GT_LEN) == 0) + { + *dstPtr++ = CHAR_GT; + srcPtr += CODE_GT_LEN; + } + else + { + *dstPtr++ = '&'; + srcPtr++; + } + + srcPtrLast = srcPtr; + srcPtr = strchr (srcPtr, '&'); + + if (srcPtr == NULL) + { + /* copy the remaining section of the string */ + strcpy (dstPtr, srcPtrLast); + } + else + { + diff = srcPtr - srcPtrLast; + strncpy (dstPtr, srcPtrLast, diff); + dstPtr += diff; + } + } + } + + +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ +/* sx_get_bool_attr */ +/************************************************************************/ + +ST_RET sx_get_bool_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, ST_BOOLEAN *out_ptr) + { +ST_INT d; +ST_RET rc; + + rc = sx_get_attr_value (sxDecCtrl, name, "%d", &d); + if (rc != SD_SUCCESS) + return (rc); + + if (d == 0) + *out_ptr = SD_FALSE; + else + *out_ptr = SD_TRUE; + + return (SD_SUCCESS); + } + +/************************************************************************/ +/* sx_get_int_attr */ +/************************************************************************/ + +ST_RET sx_get_int_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, ST_INT *out_ptr) + { + return (sx_get_attr_value (sxDecCtrl, name, "%d", out_ptr)); + } + +/************************************************************************/ +/* sx_get_float_attr */ +/************************************************************************/ + +ST_RET sx_get_float_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, ST_FLOAT *out_ptr) + { + return (sx_get_attr_value (sxDecCtrl, name, "%f", out_ptr)); + } + +/************************************************************************/ +/* sx_get_double_attr */ +/************************************************************************/ + +ST_RET sx_get_double_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, ST_DOUBLE *out_ptr) + { + return (sx_get_attr_value (sxDecCtrl, name, "%le", out_ptr)); + } + +/************************************************************************/ +/* sx_get_uchar_attr */ +/************************************************************************/ + +ST_RET sx_get_uchar_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, ST_UCHAR *out_ptr) + { + return (sx_get_attr_value (sxDecCtrl, name, "%c", out_ptr)); + } + +/************************************************************************/ +/* sx_get_int16_attr */ +/************************************************************************/ + +ST_RET sx_get_int16_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, ST_INT16 *out_ptr) + { +ST_INT i; +ST_RET rc; + + if ((rc = sx_get_attr_value (sxDecCtrl, name, "%d", &i)) == SD_SUCCESS) + *out_ptr = (ST_INT16) i; + return (rc); + } + +/************************************************************************/ +/* sx_get_uint16_attr */ +/************************************************************************/ + +ST_RET sx_get_uint16_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, ST_UINT16 *out_ptr) + { +ST_UINT i; +ST_RET rc; + + if ((rc = sx_get_attr_value (sxDecCtrl, name, "%u", &i)) == SD_SUCCESS) + *out_ptr = (ST_UINT16) i; + return (rc); + } + +/************************************************************************/ +/* sx_get_uint32_attr */ +/************************************************************************/ + +ST_RET sx_get_uint32_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, ST_UINT32 *out_ptr) + { +ST_ULONG ul; +ST_RET rc; + + if ((rc = sx_get_attr_value (sxDecCtrl, name, "%lu", &ul)) == SD_SUCCESS) + *out_ptr = (ST_UINT32) ul; + return (rc); + } + +/************************************************************************/ +/* sx_get_int32_attr */ +/************************************************************************/ + +ST_RET sx_get_int32_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, ST_INT32 *out_ptr) + { +ST_LONG sl; +ST_RET rc; + + if ((rc = sx_get_attr_value (sxDecCtrl, name, "%ld", &sl)) == SD_SUCCESS) + *out_ptr = (ST_INT32) sl; + return (rc); + } + +/************************************************************************/ +/* sx_get_long_attr */ +/************************************************************************/ + +ST_RET sx_get_long_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, ST_LONG *out_ptr) + { + return (sx_get_attr_value (sxDecCtrl, name, "%ld", out_ptr)); + } + +/************************************************************************/ +/* sx_get_ulong_attr */ +/************************************************************************/ + +ST_RET sx_get_ulong_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, ST_ULONG *out_ptr) + { + return (sx_get_attr_value (sxDecCtrl, name, "%lu", out_ptr)); + } + +/************************************************************************/ +/* sx_get_uint_attr */ +/************************************************************************/ + +ST_RET sx_get_uint_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, ST_UINT *out_ptr) + { + return (sx_get_attr_value (sxDecCtrl, name, "%u", out_ptr)); + } + +/************************************************************************/ +/* XmlStringToDuration */ +/************************************************************************/ + +ST_RET XmlStringToDuration (ST_CHAR *src, SX_DURATION *out_ptr) + { +ST_CHAR *p; +ST_CHAR temp[50]; /* arbitrary length */ +ST_CHAR temp2[50]; /* arbitrary length */ +ST_BOOLEAN foundP = SD_FALSE; +ST_BOOLEAN foundT = SD_FALSE; +ST_BOOLEAN foundDot = SD_FALSE; +ST_UINT i; +ST_BOOLEAN something = SD_FALSE; /* Make sure we got SOMETHING out of */ + /* this, any of the fields can be missing */ + + out_ptr->inUse = SD_TRUE; + p = src; + memset (temp, 0, sizeof(temp)); + memset (temp2, 0, sizeof(temp2)); + for (i = 0; i < strlen(src); i++, p++) + { + /* check all error conditions I can think of */ + if ((*p == '-' && foundP) || + (isdigit(*p) && !foundP) || + (*p == 'Y' && !foundP) || + (*p == 'M' && !foundP) || + (*p == 'D' && !foundP) || + (!foundP && foundT) || + (*p == 'H' && !foundT) || + (*p == 'S' && !foundT) || + (*p != 'P' && *p != 'T' && isalpha(*p) && strlen(temp) == 0)) + return (SD_FAILURE); + + /* check for negative */ + else if (*p == '-') + out_ptr->negative = SD_TRUE; + else if (*p == '.') + foundDot = SD_TRUE; + /* We found a number */ + else if (isdigit(*p)) + { + if (foundDot) + strncat (temp2, p, 1); + else + strncat (temp, p, 1); + } + /* We found a letter */ + else if (isalpha(*p)) + { + switch (*p) + { + case 'P': + foundP = SD_TRUE; + break; + case 'T': + foundT = SD_TRUE; + break; + case 'Y': + sscanf(temp, "%d", &out_ptr->years); + temp[0] = 0; + something = SD_TRUE; + break; + case 'M': + if (foundT) + sscanf(temp, "%d", &out_ptr->minutes); + else + sscanf(temp, "%d", &out_ptr->months); + temp[0] = 0; + something = SD_TRUE; + break; + case 'D': + sscanf(temp, "%d", &out_ptr->days); + temp[0] = 0; + something = SD_TRUE; + break; + case 'H': + sscanf(temp, "%d", &out_ptr->hours); + temp[0] = 0; + something = SD_TRUE; + break; + case 'S': + sscanf(temp, "%d", &out_ptr->seconds); + temp[0] = 0; + sscanf(temp2, "%ld", &out_ptr->microseconds); + temp2[0] = 0; + something = SD_TRUE; + break; + default: + return (SD_FAILURE); + } + } + } + if (something == SD_FALSE) + return (SD_FAILURE); + + return (SD_SUCCESS); + } + +/************************************************************************/ +/* sx_get_duration_attr */ +/************************************************************************/ + +ST_RET sx_get_duration_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, SX_DURATION *out_ptr) + { +ST_RET rc; +ST_CHAR *sxDuration; + + memset (out_ptr, 0, sizeof (*out_ptr)); + + rc = sx_get_attr_ptr (sxDecCtrl, &sxDuration, name); + if (rc) + return (rc); + + rc = XmlStringToDuration (sxDuration, out_ptr); + if (rc != SD_SUCCESS) + { + SXLOG_NERR1 ("Error: String to Duration conversion for tag '%s'", sxDecCtrl->sxDecElInfo.tag); + sxDecCtrl->errCode = SD_FAILURE; + return (SD_FAILURE); + } + + return (SD_SUCCESS); + } + +/************************************************************************/ +/* sx_get_xtime_attr */ +/************************************************************************/ + +ST_RET sx_get_xtime_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, SX_DATE_TIME *out_ptr) + { +ST_RET rc; +ST_CHAR *sxDateTime; + + memset (out_ptr, 0, sizeof (*out_ptr)); + + rc = sx_get_attr_ptr (sxDecCtrl, &sxDateTime, name); + if (rc) + return (rc); + + rc = XmlStringToUtcValue (sxDateTime, out_ptr); + if (rc != SD_SUCCESS) + { + SXLOG_NERR1 ("Error: String to Value date/time conversion for tag '%s'", sxDecCtrl->sxDecElInfo.tag); + sxDecCtrl->errCode = SD_FAILURE; + return (rc); + } + + return (SD_SUCCESS); + } + +/************************************************************************/ +/* sx_get_tm_attr */ +/************************************************************************/ + +ST_RET sx_get_tm_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, struct tm *out_ptr) + { +ST_RET rc; +ST_CHAR *theTime; + + memset (out_ptr, 0, sizeof (*out_ptr)); + + rc = sx_get_attr_ptr (sxDecCtrl, &theTime, name); + if (rc) + return (rc); + + rc = tstrStringToTm (theTime, out_ptr); + if (rc != SD_SUCCESS) + { + SXLOG_NERR1 ("Error: String to Value (struct tm) date/time conversion for tag '%s'", sxDecCtrl->sxDecElInfo.tag); + sxDecCtrl->errCode = SD_FAILURE; + return (rc); + } + + return (SD_SUCCESS); + } + +/************************************************************************/ +/* sx_get_attr_value */ +/************************************************************************/ + +ST_RET sx_get_attr_value (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *name, + ST_CHAR *format_string, ST_VOID *out_ptr) + { +ST_UINT i; + + for (i = 0; i < sxDecCtrl->sxDecElInfo.attrCount; ++i) + { + if (strcmp (sxDecCtrl->sxDecElInfo.attr[i].name, name) == 0) + { + /* Convert to desired data format*/ + if (!sscanf (sxDecCtrl->sxDecElInfo.attr[i].value, + format_string, out_ptr)) + { + SXLOG_NERR1 ("Error: Attribute Data Conversion Error for tag '%s'", sxDecCtrl->sxDecElInfo.tag); + sxDecCtrl->errCode = SD_FAILURE; + return (SD_FAILURE); + } + return (SD_SUCCESS); + } + } + return (SD_FAILURE); + } + +/************************************************************************/ +/* sx_get_attr */ +/************************************************************************/ + +ST_RET sx_get_attr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR *value, ST_CHAR *name) + { +ST_UINT i; + + for (i = 0; i < sxDecCtrl->sxDecElInfo.attrCount; ++i) + { + if (strcmp (sxDecCtrl->sxDecElInfo.attr[i].name, name) == 0) + { + strcpy (value, sxDecCtrl->sxDecElInfo.attr[i].value); + return (SD_SUCCESS); + } + } + return (SD_FAILURE); + } + +/************************************************************************/ +/* sx_get_attr_ptr */ +/************************************************************************/ + +ST_RET sx_get_attr_ptr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR **ptrOut, ST_CHAR *name) + { +ST_UINT i; + + for (i = 0; i < sxDecCtrl->sxDecElInfo.attrCount; ++i) + { + if (strcmp (sxDecCtrl->sxDecElInfo.attr[i].name, name) == 0) + { + *ptrOut = sxDecCtrl->sxDecElInfo.attr[i].value; + return (SD_SUCCESS); + } + } + return (SD_FAILURE); + } + +/************************************************************************/ +/* *sx_get_bitstring */ +/************************************************************************/ + +ST_RET sx_get_bitstring (SX_DEC_CTRL *sxDecCtrl, ST_INT *dest, ST_INT *lenOut) + { +ST_CHAR *str; +ST_INT strLen; +ST_INT *bits; +ST_CHAR *pStr; +ST_RET rc; +ST_INT i; + + strLen = 0; + bits = dest; + rc = sx_get_string_ptr (sxDecCtrl, &str, &strLen); + if (rc != SD_SUCCESS) + return (rc); + + if (*lenOut != 0) + { + if (strLen > *lenOut) + { + SXLOG_NERR1 ("Error: String too long for tag '%s'", sxDecCtrl->sxDecElInfo.tag); + sxDecCtrl->errCode = SD_FAILURE; + return (SD_FAILURE); + } + } + + pStr = str; + pStr += strlen(str) - 1; + for (i=0;i<(ST_INT)strlen(str);++i,--pStr) + { + if (strncmp(pStr, "0", 1) != 0 && + strncmp(pStr, "1", 1) != 0) + { + SXLOG_NERR1 ("Error: Not a bitstring for tag '%s'", sxDecCtrl->sxDecElInfo.tag); + sxDecCtrl->errCode = SD_FAILURE; + return (SD_FAILURE); + } + + if (strncmp(pStr, "1", 1) == 0) + { + *bits |= (1 << i); + } + } + + *lenOut = strLen; + return (SD_SUCCESS); + } + +/************************************************************************/ +/* sx_get_string_ptr */ +/************************************************************************/ + +ST_RET sx_get_string_ptr (SX_DEC_CTRL *sxDecCtrl, ST_CHAR **strOut, ST_INT *lenOut) + { +ST_INT vLen; +ST_RET rc; + + rc = sx_get_entity (sxDecCtrl, sxDecCtrl->elemBuf, sizeof(sxDecCtrl->elemBuf), &vLen); + if (rc != SD_SUCCESS) + return (SD_FAILURE); + +/* Convert to desired data format*/ + sxDecCtrl->elemBuf[vLen] = 0; + *strOut = sxDecCtrl->elemBuf; + *lenOut = vLen; + return (SD_SUCCESS); + } + +/************************************************************************/ +/* sx_get_string_YesNo */ +/*----------------------------------------------------------------------*/ +/* This user helper function parses element value for the string */ +/* "Yes"/"No" and sets the dest to SD_TRUE/SD_FALSE respectively. */ +/* The string comparison is not case sensitive. */ +/* Parameters: */ +/* SX_DEC_CTRL *sxDecCtrl pointer to SX decoding control */ +/* ST_BOOLEAN *dest pointer to dest to SD_TRUE/SD_FALSE */ +/* ST_RET errCode SX err code to set in sxDecCtrl->errCode*/ +/* in case of invalid element value, */ +/* SX_ERR_CONVERT allows continue parsing. */ +/* Return: */ +/* SD_SUCCESS if function successful */ +/* SD_FAILURE otherwise,and the sxDecCtrl->errCode is */ +/* set to errCode. */ +/************************************************************************/ +ST_RET sx_get_string_YesNo (SX_DEC_CTRL *sxDecCtrl, ST_BOOLEAN *dest, + ST_RET errCode) + { +ST_RET rc; +ST_CHAR *str; +ST_INT strLen; + + rc = sx_get_string_ptr (sxDecCtrl, &str, &strLen); + if (rc == SD_SUCCESS) + { + if (stricmp (str, "Yes") == 0) + *dest = SD_TRUE; + else if (stricmp (str, "No") == 0) + *dest = SD_FALSE; + else + { + SXLOG_ERR2 ("SX DEC ERROR: invalid %s value '%s' (Yes/No expected)", + sxDecCtrl->sxDecElInfo.tag, str); + sxDecCtrl->errCode = errCode; + rc = SD_FAILURE; + } + } + + return (rc); + } + + +/************************************************************************/ +/* sx_get_string_OnOff_mask */ +/*----------------------------------------------------------------------*/ +/* This user helper function parses element value for the string */ +/* "On"/"Off" and sets/resets a maskBit in the mask. */ +/* The string comparison is not case sensitive. */ +/* Parameters: */ +/* SX_DEC_CTRL *sxDecCtrl pointer to SX decoding control */ +/* ST_UINT *mask pointer to mask to set/reset a bit */ +/* ST_UINT maskBit mask bit to set/reset if ON/OFF found */ +/* ST_RET errCode SX err code to set in sxDecCtrl->errCode*/ +/* in case of invalid element value, */ +/* SX_ERR_CONVERT allows continue parsing. */ +/* Return: */ +/* SD_SUCCESS if function successful */ +/* SD_FAILURE otherwise,and the sxDecCtrl->errCode is */ +/* set to errCode */ +/************************************************************************/ + +ST_RET sx_get_string_OnOff_mask (SX_DEC_CTRL *sxDecCtrl, ST_UINT *mask, + ST_UINT maskBit, ST_RET errCode) + { +ST_RET rc; +ST_CHAR *str; +ST_INT strLen; + + rc = sx_get_string_ptr (sxDecCtrl, &str, &strLen); + if (rc == SD_SUCCESS) + { + if (stricmp (str, "On") == 0) + { + *mask |= maskBit; /* turn on this bit in the mask */ + } + else if (stricmp (str, "Off") == 0) + { + *mask &= ~maskBit; /* turn off this bit in the mask */ + } + else + { + SXLOG_ERR2 ("SX DEC ERROR: invalid %s value '%s' (On/Off expected)", + sxDecCtrl->sxDecElInfo.tag, str); + sxDecCtrl->errCode = errCode; + rc = SD_FAILURE; + } + } + return (rc); + } + +/************************************************************************/ +/* sx_get_string_OnOff_bool */ +/*----------------------------------------------------------------------*/ +/* This user helper function parses element value for the string */ +/* "On"/"Off" and sets the dest to SD_TRUE/SD_FALSE respectively. */ +/* The string comparison is not case sensitive. */ +/* Parameters: */ +/* SX_DEC_CTRL *sxDecCtrl pointer to SX decoding control */ +/* ST_BOOLEAN *dest pointer to dest to SD_TRUE/SD_FALSE */ +/* ST_RET errCode SX err code to set in sxDecCtrl->errCode*/ +/* in case of invalid element value, */ +/* SX_ERR_CONVERT allows continue parsing. */ +/* Return: */ +/* SD_SUCCESS if function successful */ +/* SD_FAILURE otherwise,and the sxDecCtrl->errCode is */ +/* set to errCode */ +/************************************************************************/ + +ST_RET sx_get_string_OnOff_bool (SX_DEC_CTRL *sxDecCtrl, ST_BOOLEAN *dest, + ST_RET errCode) + { +ST_RET rc; +ST_CHAR *str; +ST_INT strLen; + + rc = sx_get_string_ptr (sxDecCtrl, &str, &strLen); + if (rc == SD_SUCCESS) + { + if (stricmp (str, "On") == 0) + *dest = SD_TRUE; + else if (stricmp (str, "Off") == 0) + *dest = SD_FALSE; + else + { + SXLOG_ERR2 ("SX DEC ERROR: invalid %s value '%s' (On/Off expected)", + sxDecCtrl->sxDecElInfo.tag, str); + sxDecCtrl->errCode = errCode; + rc = SD_FAILURE; + } + } + return (rc); + } + +/************************************************************************/ +/* sx_get_time */ +/************************************************************************/ +ST_RET sx_get_time (SX_DEC_CTRL *sxDecCtrl, time_t *out_ptr) + { +ST_CHAR *str; +ST_RET rc; +time_t t; +ST_INT strLen; + + strLen = 0; + rc = sx_get_string_ptr (sxDecCtrl, &str, &strLen); + if (rc != SD_SUCCESS) + return (rc); + + + rc = tstrStringToTime (str, &t); + if (rc != SD_SUCCESS) + { + SXLOG_NERR2 ("Error: Time conversion (0x%04x) for tag '%s'", rc, sxDecCtrl->sxDecElInfo.tag); + sxDecCtrl->errCode = SD_FAILURE; + return (rc); + } + + *out_ptr = t; + return (SD_SUCCESS); + } + +/************************************************************************/ +/* sx_get_tm */ +/************************************************************************/ +ST_RET sx_get_tm (SX_DEC_CTRL *sxDecCtrl, struct tm *out_ptr) + { +ST_CHAR *str; +ST_RET rc; +ST_INT strLen; + + strLen = 0; + rc = sx_get_string_ptr (sxDecCtrl, &str, &strLen); + if (rc != SD_SUCCESS) + return (rc); + + rc = tstrStringToTm (str, out_ptr); + if (rc != SD_SUCCESS) + { + SXLOG_NERR2 ("Error: Time conversion (0x%04x) for tag '%s'", rc, sxDecCtrl->sxDecElInfo.tag); + sxDecCtrl->errCode = SD_FAILURE; + return (rc); + } + + return (SD_SUCCESS); + } + +/************************************************************************/ +/* sx_get_tm_ex */ +/************************************************************************/ +ST_RET sx_get_tm_ex (SX_DEC_CTRL *sxDecCtrl, struct tm *out_ptr, ST_LONG *microseconds) + { +ST_CHAR *str; +ST_RET rc; +ST_INT strLen; +ST_CHAR *strMicro = NULL; /* init to invalid value*/ +char *periodLoc; + + strLen = 0; + rc = sx_get_string_ptr (sxDecCtrl, &str, &strLen); + if (rc != SD_SUCCESS) + return (rc); + + periodLoc = strchr (str, '.'); + if (periodLoc != NULL) + { + if ((periodLoc + 1) == '\0') + { + SXLOG_NERR2 ("Error: Time conversion (0x%04x) for tag '%s'", rc, sxDecCtrl->sxDecElInfo.tag); + sxDecCtrl->errCode = SD_FAILURE; + return (rc); + } + *periodLoc = '\0'; + strMicro = periodLoc + 1; + } + + rc = tstrStringToTm (str, out_ptr); + if (rc != SD_SUCCESS) + { + SXLOG_NERR2 ("Error: Time conversion (0x%04x) for tag '%s'", rc, sxDecCtrl->sxDecElInfo.tag); + sxDecCtrl->errCode = SD_FAILURE; + return (rc); + } + + if (strMicro != NULL) + { + while (strlen(strMicro) < 6) + strcat (strMicro, "0"); + while (strlen(strMicro) > 6) + strMicro[strlen(strMicro)-1] = '\0'; + *microseconds = atol(strMicro); + } + else + *microseconds = 0; + + return (SD_SUCCESS); + } + +/************************************************************************/ +/* sx_get_duration */ +/************************************************************************/ +/* Store duration string found in an xml file into the structure */ +/* "SX_DURATION". */ +/************************************************************************/ + +ST_RET sx_get_duration (SX_DEC_CTRL *sxDecCtrl, SX_DURATION *sxDuration) + { +ST_CHAR *str; +ST_RET rc; +ST_INT strLen; + + memset (sxDuration, 0, sizeof (*sxDuration)); + + strLen = 0; + rc = sx_get_string_ptr (sxDecCtrl, &str, &strLen); + if (rc != SD_SUCCESS) + return (rc); + + rc = XmlStringToDuration (str, sxDuration); + if (rc != SD_SUCCESS) + { + SXLOG_NERR1 ("Error: String to Duration for tag '%s'", sxDecCtrl->sxDecElInfo.tag); + sxDecCtrl->errCode = SD_FAILURE; + return (rc); + } + + return (SD_SUCCESS); + } + +/************************************************************************/ +/* sx_get_xtime */ +/************************************************************************/ +/* Store date and time string found in an xml file into the structure */ +/* "SX_DATE_TIME" specifying the number of seconds from */ +/* 1/1/1970 (UTC time), the number of microseconds in a decimal */ +/* fraction if it is specified and the number of minutes in the time */ +/* zone offset if it is specified. */ +/************************************************************************/ + +ST_RET sx_get_xtime (SX_DEC_CTRL *sxDecCtrl, SX_DATE_TIME *sxDateTime) + { +ST_CHAR *str; +ST_RET rc; +ST_INT strLen; + + memset (sxDateTime, 0, sizeof (*sxDateTime)); + + strLen = 0; + rc = sx_get_string_ptr (sxDecCtrl, &str, &strLen); + if (rc != SD_SUCCESS) + return (rc); + + /* convert input xml string to date and time */ + /* store data in "SX_DATE_TIME" structure */ + rc = XmlStringToUtcValue (str, sxDateTime); + if (rc != SD_SUCCESS) + { + SXLOG_NERR1 ("Error: String to Value date/time conversion for tag '%s'", sxDecCtrl->sxDecElInfo.tag); + sxDecCtrl->errCode = SD_FAILURE; + return (rc); + } + + return (SD_SUCCESS); + } + +/************************************************************************/ +/* sx_get_time_ex */ +/************************************************************************/ +ST_RET sx_get_time_ex (SX_DEC_CTRL *sxDecCtrl, time_t *out_ptr, ST_LONG *microseconds) + { +ST_CHAR *str; +ST_CHAR strMicro[10]; +char *periodLoc; +ST_RET rc; +time_t t; +ST_INT strLen; + + strLen = 0; + rc = sx_get_string_ptr (sxDecCtrl, &str, &strLen); + if (rc != SD_SUCCESS) + return (rc); + + periodLoc = strchr (str, '.'); + if (periodLoc != NULL) + { + if ((periodLoc + 1) == '\0') + { + SXLOG_NERR2 ("Error: Time conversion (0x%04x) for tag '%s'", rc, sxDecCtrl->sxDecElInfo.tag); + sxDecCtrl->errCode = SD_FAILURE; + return (rc); + } + strcpy(strMicro, periodLoc + 1); + *periodLoc = '\0'; + } + + rc = tstrStringToTime (str, &t); + if (rc != SD_SUCCESS) + { + SXLOG_NERR2 ("Error: Time conversion (0x%04x) for tag '%s'", rc, sxDecCtrl->sxDecElInfo.tag); + sxDecCtrl->errCode = SD_FAILURE; + return (rc); + } + + *out_ptr = t; + if (periodLoc != NULL) + { + while (strlen(strMicro) < 6) + strcat (strMicro, "0"); + while (strlen(strMicro) > 6) + strMicro[strlen(strMicro)-1] = '\0'; + *microseconds = atol(strMicro); + } + else + *microseconds = 0; + + return (SD_SUCCESS); + } + +/************************************************************************/ +/************************************************************************/ +#define MAX_BYTES_IN_CHUNK (2*SX_MAX_ELEM_LEN) /* MUST BE EVEN */ + +#define SX_LOAD_CHAR(a) {\ + if (sxDecCtrl->useFp == SD_TRUE)\ + {\ + sx_load_characters (lineBuf, &eof, sxDecCtrl->fp, a);\ + sxDecElInfo->entityStart-= a;\ + sxDecElInfo->entityEnd-= a;\ + }\ + else\ + {\ + xml+= a;\ + }\ + } + +#define SX_RIP_NOT_DONE (!sxDecCtrl->termFlag && (((sxDecCtrl->useFp == SD_FALSE) && (xml < xmlEnd)) || ((sxDecCtrl->useFp == SD_TRUE) && (*xml != '\0')))) + +#define SX_RIP_DONE (sxDecCtrl->termFlag || ((sxDecCtrl->useFp == SD_FALSE) && (xml >= xmlEnd)) || ((sxDecCtrl->useFp == SD_TRUE) && (*xml == '\0'))) + + +#if !defined(USE_EXPAT) +/************************************************************************/ +/* sx_rip_xml */ +/************************************************************************/ + +ST_RET sx_rip_xml (SX_DEC_CTRL *sxDecCtrl) + { +SX_DEC_ELEMENT_INFO *sxDecElInfo; +ST_CHAR *xml; +ST_INT nestLevel; +ST_CHAR *tagDest; +ST_CHAR *attribNameDest; +ST_CHAR *attribValDest; +ST_CHAR attribValCopy[SX_MAX_ATTR_VALUE]; +ST_INT len; +ST_INT midBuff; +ST_INT numChRead; +ST_LONG xmlLen; +ST_CHAR *xmlEnd = NULL; /* init to avoid compiler warning */ +ST_CHAR c; +ST_BOOLEAN bEmptyTag; +ST_BOOLEAN eof; +ST_BOOLEAN sawStartTag = SD_FALSE; +ST_CHAR lineBuf[MAX_BYTES_IN_CHUNK]; + + sxDecElInfo = &sxDecCtrl->sxDecElInfo; + + bEmptyTag = SD_FALSE; + + if (sxDecCtrl->useFp == SD_TRUE) + { + memset (lineBuf, 0, MAX_BYTES_IN_CHUNK); + eof = SD_FALSE; + midBuff = MAX_BYTES_IN_CHUNK / 2; + + /* get the first (MAX_BTYES_IN_CHUNK / 2) chunk from the file */ + numChRead = fread(lineBuf + midBuff, 1, MAX_BYTES_IN_CHUNK - midBuff, sxDecCtrl->fp); + if (numChRead > 0) + xml = lineBuf + midBuff; + else + { + SXLOG_NERR0 ("SX decode error: could not read xml from file"); + sxDecCtrl->errCode = SD_FAILURE; + return (SD_FAILURE); + } + } + else + { + sxDecElInfo = &sxDecCtrl->sxDecElInfo; + xml = sxDecCtrl->xmlStart; + xmlLen = sxDecCtrl->xmlLen; + xmlEnd = xml + xmlLen; + } + + while (SX_RIP_NOT_DONE) + { +/* Find a begin or end tag */ + while (*xml != '<' && SX_RIP_NOT_DONE) + SX_LOAD_CHAR (1); + + if (SX_RIP_DONE) + break; + + sawStartTag = SD_TRUE; + + sxDecElInfo->tagStart = xml; + +/* OK, this should be the start of a start tag, an end tag, or a comment */ +/* or block of binary CDATA */ + SX_LOAD_CHAR (1); + if (strncmp (xml, "!--", 3) == 0 || *xml == '?') /* Comment */ + { + while (strncmp (xml, "-->", 3) != 0 && + strncmp (xml, "?>", 2) != 0 && + SX_RIP_NOT_DONE) + { + SX_LOAD_CHAR (1); + } + } + else if (strncmp (xml, "![CDATA[", 8) == 0) /* CDATA */ + { + while (strncmp (xml, "]]>", 3) != 0 && + SX_RIP_NOT_DONE) + { + SX_LOAD_CHAR (1); + } + } + else if (strncmp (xml, "!DOCTYPE", 8) == 0) /* DocType */ + { + nestLevel = 0; + while (SD_TRUE) + { + if (*xml == '>') + { + if (nestLevel == 0) + break; + else + --nestLevel; + } + if (*xml == '<') + ++nestLevel; + + SX_LOAD_CHAR (1); + if (SX_RIP_DONE) + { + SXLOG_NERR0 ("SX decode error: could not find DOCTYPE end"); + sxDecCtrl->errCode = SD_FAILURE; + return (SD_FAILURE); + } + } + SX_LOAD_CHAR (1); + } + else if (*xml != '/') /* Begin tag */ + { + /* We have a element tag start, get the tag first */ + tagDest = sxDecElInfo->tag; + len = 0; + while (SX_RIP_NOT_DONE) + { + c = *xml; + if (c == '>' || c == ' ' || c == '/' || c == 10 || c == 9 || c == 13) /* Found the end of the tag */ + break; + + *(tagDest++) = c; + ++len; + if (len >= SX_MAX_TAG_LEN) + { + SXLOG_NERR0 ("SX decode error: tag too long"); + sxDecCtrl->errCode = SD_FAILURE; + return (SD_FAILURE); + } + SX_LOAD_CHAR (1); + if (sxDecCtrl->ignoreNS && c == ':') + { + tagDest = sxDecElInfo->tag; + len = 0; + } + } + if (SX_RIP_DONE) + { + SXLOG_NERR0 ("SX decode error: could not find tag end"); + sxDecCtrl->errCode = SD_FAILURE; + return (SD_FAILURE); + } + *tagDest = 0; /* terminate the tag */ + + /* Now look for attributes */ + sxDecElInfo->attrCount = 0; + while (*xml != '>' && *xml != '/') /* we could have attributes! */ + { + /* skip any whitespace before the start of the attribute name */ + while (*xml == ' ' && SX_RIP_NOT_DONE) + SX_LOAD_CHAR (1); + + if (SX_RIP_DONE) + { + SXLOG_NERR0 ("SX decode error: could not find attribute name"); + sxDecCtrl->errCode = SD_FAILURE; + return (SD_FAILURE); + } + + if (*xml != '>' && *xml != '/') + { + if (sxDecElInfo->attrCount >= SX_MAX_ATTRIB) + { + SXLOG_NERR0 ("SX decode error: too many attributes. Look at SX_MAX_ATTRIB define"); + sxDecCtrl->errCode = SD_FAILURE; + return (SD_FAILURE); + } + + /* This should be the start of an attribute name */ + attribNameDest = sxDecElInfo->attr[sxDecElInfo->attrCount].name; + len = 0; + while (SX_RIP_NOT_DONE) + { + c = *xml; + if (c == '=' || c == ' ') /* Found the end of the name */ + break; + + if (c == '>') /* this isn't really an attribute like we first thought */ + break; + + if (c != 9 && c != 10 && c != 13) /* dont include these characters */ + { + *(attribNameDest++) = c; + ++len; + } + + if (len >= SX_MAX_ATTR_NAME) + { + SXLOG_NERR0 ("SX decode error: attribute name too long"); + sxDecCtrl->errCode = SD_FAILURE; + return (SD_FAILURE); + } + SX_LOAD_CHAR (1); + if (sxDecCtrl->ignoreNS && c == ':') + { + attribNameDest = sxDecElInfo->attr[sxDecElInfo->attrCount].name; + len = 0; + } + } + + if (SX_RIP_DONE) + { + SXLOG_NERR0 ("SX decode error: could not find attribute name end"); + sxDecCtrl->errCode = SD_FAILURE; + return (SD_FAILURE); + } + + if (*xml == '>') /* this isn't really an attribute like we first thought */ + break; + + *attribNameDest = 0; /* terminate the attrib name */ + + /* skip to the attribute '=' */ + while (*xml != '=' && SX_RIP_NOT_DONE) + SX_LOAD_CHAR (1); + if (SX_RIP_DONE) + { + SXLOG_NERR0 ("SX decode error: could not find attribute '='"); + sxDecCtrl->errCode = SD_FAILURE; + return (SD_FAILURE); + } + SX_LOAD_CHAR (1); + + /* skip white space */ + while ((*xml == ' ' || *xml == '\t') && SX_RIP_NOT_DONE) + SX_LOAD_CHAR (1); + + /* OK, get the attrib value */ + if (*(xml) != '"' && *(xml) != '\'') /* skip the opening " */ + { + SXLOG_NERR0 ("SX decode error: could not find leading attribute value '\"'"); + sxDecCtrl->errCode = SD_FAILURE; + return (SD_FAILURE); + } + + SX_LOAD_CHAR (1); + + /* At the start of the attribute value */ + attribValDest = sxDecElInfo->attr[sxDecElInfo->attrCount].value; + len = 0; + while (SX_RIP_NOT_DONE) + { + c = *xml; + if (c == '"' || c == '\'') /* Found the end of the attrib */ + break; + + if (c != 9 && c != 10 && c != 13) /* dont include these characters */ + { + *(attribValDest++) = c; + ++len; + } + + if (len >= SX_MAX_ATTR_VALUE) + { + SXLOG_NERR0 ("SX decode error: attribute value too long"); + sxDecCtrl->errCode = SD_FAILURE; + return (SD_FAILURE); + } + SX_LOAD_CHAR (1); + } + if (SX_RIP_DONE) + { + SXLOG_NERR0 ("SX decode error: could not find closing attribute value '\"'"); + sxDecCtrl->errCode = SD_FAILURE; + return (SD_FAILURE); + } + + if (*(xml) != '"' && *(xml) != '\'') /* skip the closing " */ + { + SXLOG_NERR0 ("SX decode error: could not find closing attribute value '\"'"); + sxDecCtrl->errCode = SD_FAILURE; + return (SD_FAILURE); + } + SX_LOAD_CHAR (1); + + *attribValDest = 0; /* terminate the attrib value */ + strcpy (attribValCopy, sxDecElInfo->attr[sxDecElInfo->attrCount].value); + sx_format_string_dec (sxDecElInfo->attr[sxDecElInfo->attrCount].value, attribValCopy); + ++sxDecElInfo->attrCount; + } + + if (SX_RIP_DONE) + { + SXLOG_NERR0 ("SX decode error: could not find tag end"); + sxDecCtrl->errCode = SD_FAILURE; + return (SD_FAILURE); + } + } + + /* Could be empty tag */ + if (*xml == '/') + { + bEmptyTag = SD_TRUE; + while (*xml != '>') + SX_LOAD_CHAR (1); + } + SX_LOAD_CHAR (1); /* skip the '>' */ + + /* OK, now call the element start function */ + sxDecElInfo->entityStart = xml; + sxDecElInfo->entityEnd = xml; + sxDecCtrl->xmlPos = xml; /* Save current dec position */ + + sxStartElement (sxDecCtrl); + /* Fail on any error except convert error */ + if (sxDecCtrl->errCode != SD_SUCCESS && sxDecCtrl->errCode != SX_ERR_CONVERT) + { + return (SD_FAILURE); + } + + if (bEmptyTag) + { + /* OK, now call the element end function */ + sxEndElement (sxDecCtrl); + bEmptyTag = SD_FALSE; + } + SX_LOAD_CHAR (sxDecCtrl->xmlPos - xml); + sxDecCtrl->xmlPos = xml; /* Save current dec position */ + } + else /* End tag */ + { + sxDecElInfo->entityEnd = xml - 1; + SX_LOAD_CHAR (1); + tagDest = sxDecElInfo->tag; + len = 0; + while (SX_RIP_NOT_DONE) + { + c = *xml; + if (c == '>' || c == ' ') /* Found the end of the tag */ + break; + + *(tagDest++) = c; + ++len; + if (len >= SX_MAX_TAG_LEN) + { + SXLOG_NERR0 ("SX decode error: tag too long"); + sxDecCtrl->errCode = SD_FAILURE; + return (SD_FAILURE); + } + SX_LOAD_CHAR (1); + if (sxDecCtrl->ignoreNS && c == ':') + { + tagDest = sxDecElInfo->tag; + len = 0; + } + } + if (SX_RIP_DONE) + { + SXLOG_NERR0 ("SX decode error: could not find tag end"); + sxDecCtrl->errCode = SD_FAILURE; + return (SD_FAILURE); + } + *tagDest = 0; /* terminate the tag */ + + + /* any white space up to the end of the tag name */ + while (*xml != '>' && SX_RIP_NOT_DONE) + SX_LOAD_CHAR (1); + if (SX_RIP_DONE) + { + SXLOG_NERR0 ("SX decode error: could not find tag end"); + sxDecCtrl->errCode = SD_FAILURE; + return (SD_FAILURE); + } + SX_LOAD_CHAR (1); + + sxDecCtrl->xmlPos = xml; /* Save current dec position */ + + /* OK, now call the element end function */ + sxEndElement (sxDecCtrl); + /* Fail on any error except convert error */ + if (sxDecCtrl->errCode != SD_SUCCESS && sxDecCtrl->errCode != SX_ERR_CONVERT) + { + return (SD_FAILURE); + } + } + } + + if (!sawStartTag) + { + SXLOG_ERR0 ("SX decode error: could not find start tag"); + sxDecCtrl->errCode = SD_FAILURE; + return (SD_FAILURE); + } + else + return (SD_SUCCESS); + } + +ST_VOID sx_load_characters (ST_CHAR *lineBuf, ST_BOOLEAN *eof, FILE *fp, ST_INT numToRead) +{ +ST_LONG numChRead; +ST_LONG i; + + if (numToRead > 0) + { + /* first shift the characters by numToRead */ + memmove (lineBuf, &lineBuf[numToRead], MAX_BYTES_IN_CHUNK - numToRead); + + if (*eof != SD_TRUE) + { + numChRead = fread(lineBuf + (MAX_BYTES_IN_CHUNK - numToRead), 1, numToRead, fp); + if (numChRead == 0) + { + *eof = SD_TRUE; + for (i = 1; i < numToRead + 1; i++) + { + lineBuf[MAX_BYTES_IN_CHUNK - i] = '\0'; + } + } + } + } + } +#else /* USE_EXPAT */ + + +/************************************************************************/ +/* expatHandlerStart */ +/* Normal 'start tag' handler. */ +/* Log and set "errCode" if any string is too long to be stored. */ +/************************************************************************/ +static void XMLCALL expatHandlerStart(void *userData, const char *el, const char **attr) + { + SX_DEC_CTRL *sxDecCtrl = (SX_DEC_CTRL *) userData; + int i; + const ST_CHAR *ptr; + + if (!sxDecCtrl->termFlag) + { + /* Copy tag to sxDecCtrl */ + /* If ignoreNS flag set, ignore namespace prefix on tag. */ + if (sxDecCtrl->ignoreNS) + { + /* If ':' in the string, copy only text after ':' */ + if ((ptr = strrchr (el, ':')) != NULL) + ptr += 1; /* point after ':' */ + else + ptr = el; + } + else + ptr = el; + + if (strlen (ptr) < SX_MAX_TAG_LEN) + strcpy (sxDecCtrl->sxDecElInfo.tag, ptr); + else + { + SXLOG_ERR1 ("start tag '%s' too long. Can't be stored.", ptr); + sxDecCtrl->errCode = SD_FAILURE; + } + + /* Copy attributes to sxDecCtrl */ + for (i = 0; attr[i]; i += 2) + { + if (strlen (attr[i]) < SX_MAX_ATTR_NAME) + strcpy (sxDecCtrl->sxDecElInfo.attr[i/2].name, attr[i]); + else + { + SXLOG_ERR1 ("attr name '%s' too long. Can't be stored.", ptr); + sxDecCtrl->errCode = SD_FAILURE; + } + + if (strlen (attr[i+1]) < SX_MAX_ATTR_VALUE) + strcpy (sxDecCtrl->sxDecElInfo.attr[i/2].value, attr[i+1]); + else + { + SXLOG_ERR1 ("attr value '%s' too long. Can't be stored.", ptr); + sxDecCtrl->errCode = SD_FAILURE; + } + } + sxDecCtrl->sxDecElInfo.attrCount = i/2; + sxDecCtrl->entityLen = 0; /* reset entityLen */ + sxStartElement (sxDecCtrl); + } /* !termFlag */ + } + +/************************************************************************/ +/* expatHandlerEnd */ +/* Normal 'end tag' handler. */ +/************************************************************************/ +static void XMLCALL expatHandlerEnd(void *userData, const char *el) + { + SX_DEC_CTRL *sxDecCtrl = (SX_DEC_CTRL *) userData; + + if (!sxDecCtrl->termFlag) + { + strcpy (sxDecCtrl->sxDecElInfo.tag, el); + sxEndElement (sxDecCtrl); + sxDecCtrl->entityLen = 0; /* reset entityLen */ + } /* !termFlag */ + } + +/************************************************************************/ +/* expatHandlerData */ +/* Normal data handler. */ +/* Log and set "errCode" if data is too long to be stored. */ +/************************************************************************/ +static void XMLCALL expatHandlerData(void *userData, + const XML_Char *s, + int len) + { + SX_DEC_CTRL *sxDecCtrl = (SX_DEC_CTRL *) userData; + ST_INT sizeNeeded; /* buffer size needed to store this data */ + + if (!sxDecCtrl->termFlag) + { + sizeNeeded = len + sxDecCtrl->entityLen; + + /* Save data to access with "sx_get_entity" later. */ + if (sizeNeeded > sxDecCtrl->entityBufSize) + { + /* Reallocate buffer twice as big as currently needed. */ + sxDecCtrl->entityBufSize = sizeNeeded * 2; + SXLOG_FLOW1 ("entity buffer too small. Reallocating entity buffer size = %d", sxDecCtrl->entityBufSize); + sxDecCtrl->entityBuf = chk_realloc (sxDecCtrl->entityBuf, sxDecCtrl->entityBufSize); + } + + memcpy (&(sxDecCtrl->entityBuf [sxDecCtrl->entityLen]), s, len); + sxDecCtrl->entityLen += len; + } /* !termFlag */ + } + +/************************************************************************/ +/* expatHandlerStartSkip */ +/* The 'start tag' handler when tags are being skipped. */ +/************************************************************************/ +static void XMLCALL expatHandlerStartSkip(void *userData, const char *el, const char **attr) + { + SX_DEC_CTRL *sxDecCtrl = (SX_DEC_CTRL *) userData; + + if (!sxDecCtrl->termFlag) + { + /* Not calling normal start funct, so must increment nest level here*/ + sxDecCtrl->xmlNestLevel++; + } /* !termFlag */ + } + +/************************************************************************/ +/* expatHandlerEndSkip */ +/* The 'end tag' handler when tags are being skipped. */ +/************************************************************************/ +static void XMLCALL expatHandlerEndSkip(void *userData, const char *el) + { + SX_DEC_CTRL *sxDecCtrl = (SX_DEC_CTRL *) userData; + + if (!sxDecCtrl->termFlag) + { + if (sxDecCtrl->xmlNestLevel == sxDecCtrl->skipNestLevel) + { + SXLOG_DEC1 ("End element '%s' (contents skipped)", el); + /* Go back to normal handlers. */ + XML_SetCharacterDataHandler(sxDecCtrl->parser, expatHandlerData); + XML_SetElementHandler(sxDecCtrl->parser, expatHandlerStart, expatHandlerEnd); + } + + /* Not calling normal end funct, so must decrement nest level here*/ + sxDecCtrl->xmlNestLevel--; + } /* !termFlag */ + } +/************************************************************************/ +/* setup_expat */ +/* NOTE: If "sxDecCtrl->termFlag" is set by user (i.e. error found), */ +/* let parse complete, but ignore data (see "expatHandler*"). */ +/************************************************************************/ +static XML_Parser setup_expat(SX_DEC_CTRL *sxDecCtrl) + { + XML_Parser parser = XML_ParserCreate(NULL); + if (! parser) + { + SXLOG_ERR0 ("Couldn't allocate memory for XML parser"); + return (parser); + } + XML_SetUserData (parser, sxDecCtrl); /* passes sxDecCtrl to handlers */ + XML_SetCharacterDataHandler(parser, expatHandlerData); + XML_SetElementHandler(parser, expatHandlerStart, expatHandlerEnd); + sxDecCtrl->parser = parser; /* CRITICAL: save parser to use in callbacks*/ + + return (parser); + } +/************************************************************************/ +/* sx_rip_xml_file */ +/* Parse XML from a file. The caller must open a file */ +/* and store the file ptr in "sxDecCtrl->fp". It reads one segment */ +/* at a time from the file and passes it to XML_Parse. */ +/************************************************************************/ +ST_RET sx_rip_xml_file (SX_DEC_CTRL *sxDecCtrl) + { + XML_Parser parser; /* Expat parser control structure */ + ST_RET retcode = SD_SUCCESS; + char *parseBuf; /* temporary buffer to store text read from input file */ + + if (!(parser = setup_expat (sxDecCtrl))) + retcode = SD_FAILURE; /* error already logged in setup_expat */ + else + { + /* Allocate a reasonable size entity buffer. */ + /* This may be reallocated later if it is too small. */ + sxDecCtrl->entityBufSize = ENTITY_BUF_SIZE; + sxDecCtrl->entityBuf = chk_malloc (sxDecCtrl->entityBufSize); + + parseBuf = chk_malloc (EXPAT_BUF_SIZE); + + /* In a loop, read the file one segment at a time & pass to parser. */ + for (;;) + { + int done; + int len; + + len = fread(parseBuf, 1, EXPAT_BUF_SIZE, sxDecCtrl->fp); + if (ferror(sxDecCtrl->fp)) + { + fprintf(stderr, "Read error\n"); + retcode = SD_FAILURE; + break; /* stop now */ + } + done = feof(sxDecCtrl->fp); + + if (XML_Parse(parser, parseBuf, len, done) == XML_STATUS_ERROR) + { + SXLOG_ERR2 ("XML parse error at line %d: %s\n", + XML_GetCurrentLineNumber(parser), + XML_ErrorString(XML_GetErrorCode(parser))); + retcode = SD_FAILURE; + break; /* stop now */ + } + + if (done) + break; + } /* end main loop */ + chk_free (parseBuf); + chk_free (sxDecCtrl->entityBuf); + } + return (retcode); + } +/************************************************************************/ +/* sx_rip_xml_mem */ +/* Parse XML from a memory buffer. The caller must set */ +/* the following members of sxDecCtrl before calling this function: */ +/* sxDecCtrl->xmlStart points to the buffer. */ +/* sxDecCtrl->xmlLen contains the length of the buffer. */ +/* It simply sets up the parse and passes the buffer to XML_Parse. */ +/************************************************************************/ +ST_RET sx_rip_xml_mem (SX_DEC_CTRL *sxDecCtrl) + { + XML_Parser parser; /* Expat parser control structure */ + int done = SD_TRUE; /* indicates to parser that all data is being passed*/ + ST_RET retcode = SD_SUCCESS; + + if (!(parser = setup_expat (sxDecCtrl))) + retcode = SD_FAILURE; /* error already logged in setup_expat */ + else + { + /* Allocate a reasonable size entity buffer. */ + /* This may be reallocated later if it is too small. */ + sxDecCtrl->entityBufSize = ENTITY_BUF_SIZE; + sxDecCtrl->entityBuf = chk_malloc (sxDecCtrl->entityBufSize); + + /* Just pass data all at once to XML_Parse. */ + if (XML_Parse(parser, sxDecCtrl->xmlStart, sxDecCtrl->xmlLen, done) == XML_STATUS_ERROR) + { + SXLOG_ERR2 ("XML parse error at line %d: %s\n", + XML_GetCurrentLineNumber(parser), + XML_ErrorString(XML_GetErrorCode(parser))); + retcode = SD_FAILURE; + } + chk_free (sxDecCtrl->entityBuf); + } + + return (retcode); + } +#endif /* USE_EXPAT */ + diff --git a/mmslib/util/sx_enc.c b/mmslib/util/sx_enc.c new file mode 100644 index 0000000..14eca02 --- /dev/null +++ b/mmslib/util/sx_enc.c @@ -0,0 +1,1344 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1999 - 2008, All Rights Reserved */ +/* */ +/* MODULE NAME : sx_enc.c */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 01/30/08 EJV 57 Corr slogs (fun names). */ +/* 10/29/07 JRB 56 strncat_safe obsolete, use strncat_maxstrlen.*/ +/* 10/17/06 MDE 55 Added support for unsigned hex ints (32 bit) */ +/* 02/13/06 DSF 54 Migrate to VS.NET 2005 */ +/* 08/09/05 DWL 53 Handle duration of zero. */ +/* 01/31/05 DSF 52 Added sxLogOverrunAsFlow to control how */ +/* encode overrun errors are logged */ +/* 01/19/05 EJV 51 Replaced // comment. */ +/* 07/14/04 DWL 50 Added handling for Duration type */ +/* Added encode functions for struct tm type. */ +/* 03/17/04 EJV 49 Use SISCO types in place of C types. */ +/* 10/30/03 EJV 48 Added size param to UtcValueToXmlString */ +/* 10/27/03 RWM 47 Added sx_format_nstring_enc for */ +/* sx_wr_nstring */ +/* 10/27/03 DSF 46 Don't format strings if bUnformattedStrings */ +/* is set */ +/* 10/24/03 DSF 45 Added missing functions */ +/* Fixed SX_DATE_TIME functions */ +/* 10/13/03 EJV 44 Replaced defined(QNX) with defined(__QNX__). */ +/* 09/01/03 GLB 43 Added "sx_wr_xtime" */ +/* 05/15/03 RWM 42 Added support for special characters when */ +/* encoding */ +/* 03/24/03 DSF 27 Added sx_wrx_nstring, sx_wrx_nstring_el */ +/* 03/05/02 JRB 26 Add more SD_CONST. */ +/* 02/25/02 EJV 25 _AIX: replace itoa, ltoa with ANSI sprintf */ +/* sx_wr_double: repl non-ANSI '%le' with '%e'. */ +/* 01/21/02 EJV 24 Added support for encoding into a file: */ +/* New sx_start_encodeEx, sx_init_encodeEx. */ +/* Added sx_add_buf and _SX_ADD_BUF. */ +/* Added sx_wr_comment funcs. */ +/* Changed sx_add_string and _SX_ADD_STRING. */ +/* Eliminated _src, _xmlBufEnd ptrs from funs.*/ +/* 11/15/01 DGE 23 Added sx_wr_float functions & changed type */ +/* on sx_wr_double functions to ST_DOUBLE from */ +/* double. */ +/* 07/02/01 EJV 22 sx_init_encode: memset to 0 the sxEncCtrl. */ +/* 02/28/01 EJV 21 _AIX: use itoa, ltoa instead of slow sprintf */ +/* 02/28/01 MDE 20 Removed bEmptyTag from SX_ENC_CTRL */ +/* 02/26/01 MDE 19 Make sx_add_string global */ +/* 02/22/01 MDE 18 Allow QNX & Win32 to use itoa, ltoa */ +/* 01/24/01 EJV 17 Replaced non-ANSI itoa, ltoa with sprintf. */ +/* Replaced "%ud" with "%u". */ +/* 01/22/01 DWL 16 Created global var sxUseFormatting */ +/* 01/05/01 EJV 15 sx_wr_ulong: changed "%ul" to "%lu". */ +/* 01/02/01 DWL 14 Removed UIB_DEFINED check */ +/* 11/06/00 DWL 13 Modified sx_write_element and sx_end_element */ +/* to handle data syntax */ +/* 11/02/00 MDE 12 Changed attribute handling a bit */ +/* 10/31/00 MDE 11 Significant rewrite */ +/* 10/11/00 KCR 10 Fixed xmlBufLen calc. because of CDATA */ +/* 09/01/00 MDE 09 Now handle large strings better */ +/* 08/15/00 DWL 08 Added check for UIB_DEFINED, fixed support */ +/* for multiple attributes */ +/* 07/20/00 DWL 07 Added formatting option, code optimizations */ +/* 04/12/00 MDE 06 Changes for V1.00P2 release */ +/* 03/23/00 DWL 05 Format XML with CRLF and tabs */ +/* 03/21/00 DWL 04 Removed includes already in sysincs */ +/* 03/21/00 DWL 03 Changed sx_wr_string_el to accept attributes */ +/* 03/17/00 DWL 02 Changed sx_wr_string_el to skip empty strings*/ +/* 09/15/99 01 Module created */ +/************************************************************************/ + +#if defined (_WIN32) +#pragma warning(disable : 4996) +#endif + +#include "glbtypes.h" +#include "sysincs.h" +#include "mem_chk.h" +#include "time_str.h" +#include "str_util.h" +#include "sx_defs.h" +#include "sx_log.h" + +/************************************************************************/ +/* For debug version, use a static pointer to avoid duplication of */ +/* __FILE__ strings. */ + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + + +/************************************************************************/ +ST_BOOLEAN sxUseFormatting; +ST_BOOLEAN sxLogOverrunAsFlow; +/************************************************************************/ + +#if 0 + /* to increase speed we prefer not to call functions */ +#define _SX_ADD_BUF(_src, _srcLen) sx_add_buf (sxEncCtrl, _src, _srcLen, &_writePos) +#define _SX_ADD_STRING(_src) sx_add_string (sxEncCtrl, _src, &_writePos) + +#else + +#define _SX_ADD_BUF(_src, _srcLen)\ + {\ + if (sxEncCtrl->useFp)\ + {\ + if (fwrite( _src, sizeof( ST_CHAR ), _srcLen, sxEncCtrl->fp) != (ST_UINT) _srcLen)\ + {\ + sxEncCtrl->errCode = SD_FAILURE;\ + SXLOG_ERR0 ("XML encode file write error");\ + return;\ + }\ + }\ + else\ + {\ + if (_writePos + _srcLen >= sxEncCtrl->xmlBufEnd)\ + {\ + sxEncCtrl->errCode = SX_XML_BUFFER_OVER_MAX;\ + if (sxLogOverrunAsFlow)\ + SXLOG_FLOW0 ("XML encode buffer overrun");\ + else\ + SXLOG_ERR0 ("XML encode buffer overrun");\ + return;\ + }\ + else\ + {\ + memcpy (_writePos, _src, _srcLen);\ + _writePos += _srcLen;\ + *_writePos = 0;\ + }\ + }\ + } + +#define _SX_ADD_STRING(_src) _SX_ADD_BUF(_src, strlen(_src)) +#endif + + +/************************************************************************/ +/* sx_add_string */ +/************************************************************************/ + +ST_VOID sx_add_string (SX_ENC_CTRL *sxEncCtrl, SD_CONST ST_CHAR *_src, + ST_CHAR **writePosIo) + { + sx_add_buf (sxEncCtrl, _src, strlen(_src), writePosIo); + } + +/************************************************************************/ +/* sx_add_buf */ +/************************************************************************/ + +ST_RET sx_add_buf (SX_ENC_CTRL *sxEncCtrl, SD_CONST ST_CHAR *_src, ST_INT _srcLen, + ST_CHAR **writePosIo) + { +ST_CHAR *_writePos; + + if (sxEncCtrl->useFp) + { + if (fwrite( _src, sizeof( ST_CHAR ), _srcLen, sxEncCtrl->fp) != (ST_UINT) _srcLen) + { + sxEncCtrl->errCode = SD_FAILURE; + SXLOG_ERR0 ("XML encode file write error"); + return (SD_FAILURE); + } + } + else + { + _writePos = *writePosIo; + if (_writePos + _srcLen >= sxEncCtrl->xmlBufEnd) + { + sxEncCtrl->errCode = SX_XML_BUFFER_OVER_MAX; + if (sxLogOverrunAsFlow) + SXLOG_FLOW0 ("XML encode buffer overrun"); + else + SXLOG_ERR0 ("XML encode buffer overrun"); + return (SD_FAILURE); + } + else + { + memcpy (_writePos, _src, _srcLen); + _writePos += _srcLen; + *_writePos = 0; /* need string termination for logging */ + } + *writePosIo = _writePos; + } + return (SD_SUCCESS); + } + +/************************************************************************/ +/* sx_start_encode */ +/************************************************************************/ + +SX_ENC_CTRL *sx_start_encode (ST_CHAR *xmlBuf, ST_INT xmlBufLen) + { +SX_ENC_CTRL *sxEncCtrl; + + sxEncCtrl = (SX_ENC_CTRL *) M_CALLOC (NULL, 1, sizeof (SX_ENC_CTRL)); + sx_init_encode (sxEncCtrl, xmlBuf, xmlBufLen); + return (sxEncCtrl); + } + + +/************************************************************************/ +/* sx_start_encodeEx */ +/************************************************************************/ + +SX_ENC_CTRL *sx_start_encodeEx (ST_CHAR *fileName) + { +SX_ENC_CTRL *sxEncCtrl; + + sxEncCtrl = (SX_ENC_CTRL *) M_CALLOC (NULL, 1, sizeof (SX_ENC_CTRL)); + if (sx_init_encodeEx (sxEncCtrl, fileName) != SD_SUCCESS) + { + M_FREE (NULL, sxEncCtrl); + sxEncCtrl = NULL; + } + return (sxEncCtrl); + } + +/************************************************************************/ +/* sx_init_encode */ +/************************************************************************/ + +ST_VOID sx_init_encode (SX_ENC_CTRL *sxEncCtrl, + ST_CHAR *xmlBuf, ST_INT xmlBufLen) + { + /* sxEncCtrl must be cleared before usage */ + memset (sxEncCtrl, 0, sizeof(SX_ENC_CTRL)); + sxEncCtrl->xmlBufLen = xmlBufLen; + sxEncCtrl->xmlBuf = xmlBuf; + sxEncCtrl->xmlBufEnd = xmlBuf + xmlBufLen; + sxEncCtrl->useFp = SD_FALSE; + sxEncCtrl->nextWritePos = xmlBuf; + sxEncCtrl->currNestLevel = 0; + + sxEncCtrl->errCode = SD_SUCCESS; + sxEncCtrl->bUseFormatting = sxUseFormatting; + SXLOG_ENC0 ("Initialized XML Encode"); + } + +/************************************************************************/ +/* sx_init_encodeEx */ +/************************************************************************/ + +ST_RET sx_init_encodeEx (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *fileName) + { +FILE *fp; + + if ((fp = fopen (fileName, "w")) == NULL) + { + SXLOG_ERR2 ("XML File (%s) Open Error (errno=%d)", fileName, errno); + return (SD_FAILURE); + } + + /* sxEncCtrl must be cleared before usage */ + memset (sxEncCtrl, 0, sizeof(SX_ENC_CTRL)); + sxEncCtrl->xmlBufLen = 0; + sxEncCtrl->xmlBuf = NULL; + sxEncCtrl->xmlBufEnd = NULL; + sxEncCtrl->useFp = SD_TRUE; + sxEncCtrl->fp = fp; + sxEncCtrl->nextWritePos = NULL; + sxEncCtrl->currNestLevel = 0; + + sxEncCtrl->errCode = SD_SUCCESS; + sxEncCtrl->bUseFormatting = sxUseFormatting; + SXLOG_ENC1 ("Initialized XML Encode to file '%s'", fileName); + + return (SD_SUCCESS); + } + +/************************************************************************/ +/* sx_end_encode */ +/************************************************************************/ + +ST_VOID sx_end_encode (SX_ENC_CTRL *sxEncCtrl) + { +ST_LONG xmlLen; + + if (sxEncCtrl->useFp) + { + if (sxEncCtrl->fp) + fclose (sxEncCtrl->fp); + if (sxEncCtrl->errCode == SD_SUCCESS) + { + SXLOG_FLOW0 ("Encode XML to file complete."); + } + } + else + { + /* encoding into buffer */ + if (sxEncCtrl->errCode == SD_SUCCESS) + { + xmlLen = sxEncCtrl->nextWritePos - sxEncCtrl->xmlBuf; + SXLOG_FLOW0 ("Encode XML Complete:"); + SXLOG_FLOWH (xmlLen, sxEncCtrl->xmlBuf); + } + } + M_FREE (NULL, sxEncCtrl); + } + +/************************************************************************/ +/* sx_end_element */ +/************************************************************************/ + +ST_VOID sx_end_element (SX_ENC_CTRL *sxEncCtrl) + { +ST_CHAR *tag; + + if (sxEncCtrl->errCode == 0) + { + --sxEncCtrl->currNestLevel; + tag = sxEncCtrl->tags[sxEncCtrl->currNestLevel]; + sx_write_element (sxEncCtrl, tag, 0, NULL, SD_TRUE, SD_FALSE); + } + } + +/************************************************************************/ +/* sx_write_element */ +/************************************************************************/ + +ST_VOID sx_write_element (SX_ENC_CTRL *sxEncCtrl, SD_CONST ST_CHAR *tag, + ST_INT numAttr, SXE_ATTR_PAIR *attr, + ST_BOOLEAN end, ST_BOOLEAN empty) + { +ST_INT i; +ST_CHAR *_writePos; +ST_CHAR tabBuf[SX_MAX_XML_NEST+1]; +ST_CHAR attrValFormatted [8192]; + + if (sxEncCtrl->errCode == 0) + { + _writePos = sxEncCtrl->nextWritePos; + if (sxEncCtrl->bUseFormatting) + { + if (!sxEncCtrl->bOneLineEl || (sxEncCtrl->bOneLineEl && !end)) + { + for (i = 0; i < sxEncCtrl->currNestLevel; i++) + tabBuf[i] = '\t'; /* assemble all tabs in buffer */ + _SX_ADD_BUF (tabBuf, sxEncCtrl->currNestLevel); + } + } + + _SX_ADD_BUF ("<", 1); + if (end == SD_TRUE) + _SX_ADD_BUF ("/", 1); + _SX_ADD_STRING (tag); + + for (i = 0; i < numAttr; ++i, ++attr) + { + _SX_ADD_BUF (" ", 1); + _SX_ADD_STRING (attr->name); + _SX_ADD_BUF ("=", 1); + _SX_ADD_BUF ("\"", 1); + sx_format_string_enc (attrValFormatted, attr->value); + _SX_ADD_STRING (attrValFormatted); + _SX_ADD_BUF ("\"", 1); + } + + if (empty == SD_TRUE) + _SX_ADD_BUF ("/", 1); + + _SX_ADD_BUF (">", 1); + if (sxEncCtrl->bUseFormatting) + { + if (!sxEncCtrl->bOneLineEl || (sxEncCtrl->bOneLineEl && end)) + _SX_ADD_BUF ("\n", 1); + } + + if (!sxEncCtrl->useFp && (sx_debug_sel & SX_LOG_ENC)) + { + SLOGCALWAYS1 ("sx_write_element: %s", sxEncCtrl->nextWritePos); + } + + if (empty != SD_TRUE && end != SD_TRUE) + { + strcpy (sxEncCtrl->tags[sxEncCtrl->currNestLevel], tag); + ++sxEncCtrl->currNestLevel; + } + sxEncCtrl->nextWritePos = _writePos; + sxEncCtrl->bOneLineEl = SD_FALSE; + } + } + +/************************************************************************/ +/* sx_wr_string */ +/************************************************************************/ + +ST_VOID sx_wr_string (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *str) + { +ST_CHAR *_writePos; +ST_CHAR strFormatted [8192]; + + if (sxEncCtrl->errCode == 0) + { + _writePos = sxEncCtrl->nextWritePos; + if (!sxEncCtrl->bUnformattedStrings) + { + sx_format_string_enc (strFormatted, str); + _SX_ADD_STRING (strFormatted); + } + else + _SX_ADD_STRING (str); + + if (!sxEncCtrl->useFp && (sx_debug_sel & SX_LOG_ENC)) + { + SLOGCALWAYS1 ("sx_wr_string: %s", sxEncCtrl->nextWritePos); + } + sxEncCtrl->nextWritePos = _writePos; + } + } + +/************************************************************************/ +/* sx_wrx_string_el */ +/************************************************************************/ + +ST_VOID sx_wrx_string_el (SX_ENC_CTRL *sxEncCtrl, SD_CONST ST_CHAR *tag, ST_CHAR *str, + ST_INT numAttr, SXE_ATTR_PAIR *attr) + + { + sxEncCtrl->bOneLineEl = SD_TRUE; + sx_write_element (sxEncCtrl, tag, numAttr, attr, SD_FALSE, SD_FALSE); + sx_wr_string (sxEncCtrl, str); + sxEncCtrl->bOneLineEl = SD_TRUE; + sx_end_element (sxEncCtrl); + } + +/************************************************************************/ +/* sx_wr_nstring */ +/************************************************************************/ + +ST_VOID sx_wr_nstring (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *str, ST_INT len) + { +ST_CHAR *_writePos; +ST_CHAR strFormatted [8192]; +ST_INT formattedLen; + + if (sxEncCtrl->errCode == 0) + { + _writePos = sxEncCtrl->nextWritePos; + if (!sxEncCtrl->bUnformattedStrings) + { + sx_format_nstring_enc (strFormatted, str, len); + formattedLen = strlen (strFormatted); + _SX_ADD_BUF (strFormatted, formattedLen); + } + else + _SX_ADD_BUF (str, len); + + if (!sxEncCtrl->useFp && (sx_debug_sel & SX_LOG_ENC)) + { + SLOGCALWAYS1 ("sx_wr_nstring: %s", sxEncCtrl->nextWritePos); + } + sxEncCtrl->nextWritePos = _writePos; + } + } + +/************************************************************************/ +/* sx_wrx_string_el */ +/************************************************************************/ + +ST_VOID sx_wrx_nstring_el (SX_ENC_CTRL *sxEncCtrl, SD_CONST ST_CHAR *tag, ST_CHAR *str, ST_INT len, + ST_INT numAttr, SXE_ATTR_PAIR *attr) + + { + sxEncCtrl->bOneLineEl = SD_TRUE; + sx_write_element (sxEncCtrl, tag, numAttr, attr, SD_FALSE, SD_FALSE); + sx_wr_nstring (sxEncCtrl, str, len); + sxEncCtrl->bOneLineEl = SD_TRUE; + sx_end_element (sxEncCtrl); + } + +/************************************************************************/ +/* sx_wr_bitstring */ +/************************************************************************/ + +ST_VOID sx_wr_bitstring (SX_ENC_CTRL *sxEncCtrl, ST_INT numBits, + ST_UINT8 *bitStr) + { +ST_CHAR *_writePos; +ST_UINT8 bitMask; +ST_UINT8 *bytePtr; +ST_INT i; + + if (sxEncCtrl->errCode == 0) + { + _writePos = sxEncCtrl->nextWritePos; + + bitMask = 0x80; + bytePtr = bitStr; + for (i = 0; i < numBits; ++i) + { + if (*bytePtr & bitMask) + { + _SX_ADD_BUF ("1", 1); + } + else + { + _SX_ADD_BUF ("0", 1); + } + + if (bitMask == 0x01) + { + bitMask = 0x80; + ++bytePtr; + } + else + bitMask = bitMask >> 1; + } + + if (!sxEncCtrl->useFp && (sx_debug_sel & SX_LOG_ENC)) + { + SLOGCALWAYS1 ("sx_wr_bitstring: %s", sxEncCtrl->nextWritePos); + } + sxEncCtrl->nextWritePos = _writePos; + } + } + +/************************************************************************/ +/* sx_wrx_bitstring_el */ +/************************************************************************/ + +ST_VOID sx_wrx_bitstring_el (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *tag, + ST_INT numBits, ST_UINT8 *bitStr, + ST_INT numAttr, SXE_ATTR_PAIR *attr) + { + sxEncCtrl->bOneLineEl = SD_TRUE; + sx_write_element (sxEncCtrl, tag, numAttr, attr, SD_FALSE, SD_FALSE); + + sx_wr_bitstring (sxEncCtrl, numBits, bitStr); + + sxEncCtrl->bOneLineEl = SD_TRUE; + sx_end_element (sxEncCtrl); + } + +/************************************************************************/ +/* sx_wr_int */ +/************************************************************************/ + +ST_VOID sx_wr_int (SX_ENC_CTRL *sxEncCtrl, ST_INT val) + { +ST_CHAR *_writePos; +ST_CHAR strVal[100]; + + if (sxEncCtrl->errCode == 0) + { +#if defined(_WIN32) || defined(__QNX__) + itoa (val, strVal, 10); +#else + sprintf (strVal, "%d", val); +#endif + _writePos = sxEncCtrl->nextWritePos; + _SX_ADD_STRING (strVal); + + if (!sxEncCtrl->useFp && (sx_debug_sel & SX_LOG_ENC)) + { + SLOGCALWAYS1 ("sx_wr_int: %s", sxEncCtrl->nextWritePos); + } + sxEncCtrl->nextWritePos = _writePos; + } + } + +/************************************************************************/ +/* sx_wrx_int_el */ +/************************************************************************/ + +ST_VOID sx_wrx_int_el (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *tag, ST_INT val, + ST_INT numAttr, SXE_ATTR_PAIR *attr) + { + sxEncCtrl->bOneLineEl = SD_TRUE; + sx_write_element (sxEncCtrl, tag, numAttr, attr, SD_FALSE, SD_FALSE); + + sx_wr_int (sxEncCtrl, val); + + sxEncCtrl->bOneLineEl = SD_TRUE; + sx_end_element (sxEncCtrl); + } + +/************************************************************************/ +/* sx_wr_uint */ +/************************************************************************/ + +ST_VOID sx_wr_uint (SX_ENC_CTRL *sxEncCtrl, ST_UINT val) + { +ST_CHAR *_writePos; +ST_CHAR strVal[100]; + + if (sxEncCtrl->errCode == 0) + { + _writePos = sxEncCtrl->nextWritePos; + sprintf (strVal, "%u", val); + _SX_ADD_STRING (strVal); + + if (!sxEncCtrl->useFp && (sx_debug_sel & SX_LOG_ENC)) + { + SLOGCALWAYS1 ("sx_wr_uint: %s", sxEncCtrl->nextWritePos); + } + sxEncCtrl->nextWritePos = _writePos; + } + } + +/************************************************************************/ +/* sx_wrx_uint_el */ +/************************************************************************/ + +ST_VOID sx_wrx_uint_el (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *tag, ST_UINT val, + ST_INT numAttr, SXE_ATTR_PAIR *attr) + { + sxEncCtrl->bOneLineEl = SD_TRUE; + sx_write_element (sxEncCtrl, tag, numAttr, attr, SD_FALSE, SD_FALSE); + + sx_wr_uint (sxEncCtrl, val); + + sxEncCtrl->bOneLineEl = SD_TRUE; + sx_end_element (sxEncCtrl); + } + +/************************************************************************/ +/* sx_wr_ulong */ +/************************************************************************/ + +ST_VOID sx_wr_ulong (SX_ENC_CTRL *sxEncCtrl, ST_ULONG val) + { +ST_CHAR *_writePos; +ST_CHAR strVal[100]; + + if (sxEncCtrl->errCode == 0) + { + _writePos = sxEncCtrl->nextWritePos; + sprintf (strVal, "%lu", val); + _SX_ADD_STRING (strVal); + + if (!sxEncCtrl->useFp && (sx_debug_sel & SX_LOG_ENC)) + { + SLOGCALWAYS1 ("sx_wr_ulong: %s", sxEncCtrl->nextWritePos); + } + sxEncCtrl->nextWritePos = _writePos; + } + } + +/************************************************************************/ +/* sx_wrx_ulong_el */ +/************************************************************************/ + +ST_VOID sx_wrx_ulong_el (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *tag, ST_ULONG val, + ST_INT numAttr, SXE_ATTR_PAIR *attr) + { + sxEncCtrl->bOneLineEl = SD_TRUE; + sx_write_element (sxEncCtrl, tag, numAttr, attr, SD_FALSE, SD_FALSE); + + sx_wr_ulong (sxEncCtrl, val); + + sxEncCtrl->bOneLineEl = SD_TRUE; + sx_end_element (sxEncCtrl); + } + +/************************************************************************/ +/* sx_wr_uint32_hex */ +/************************************************************************/ + +ST_VOID sx_wr_uint32_hex (SX_ENC_CTRL *sxEncCtrl, ST_UINT32 val) + { +ST_CHAR *_writePos; +ST_CHAR strVal[100]; + + if (sxEncCtrl->errCode == 0) + { + _writePos = sxEncCtrl->nextWritePos; + sprintf (strVal, "0x%08lx", val); + _SX_ADD_STRING (strVal); + + if (!sxEncCtrl->useFp && (sx_debug_sel & SX_LOG_ENC)) + { + SLOGCALWAYS1 ("sx_wr_uint32_hex: %s", sxEncCtrl->nextWritePos); + } + sxEncCtrl->nextWritePos = _writePos; + } + } +/************************************************************************/ +/* sx_wrx_uint32_hex_el */ +/************************************************************************/ + +ST_VOID sx_wrx_uint32_hex_el (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *tag, ST_UINT32 val, + ST_INT numAttr, SXE_ATTR_PAIR *attr) + { + sxEncCtrl->bOneLineEl = SD_TRUE; + sx_write_element (sxEncCtrl, tag, numAttr, attr, SD_FALSE, SD_FALSE); + + sx_wr_uint32_hex (sxEncCtrl, val); + + sxEncCtrl->bOneLineEl = SD_TRUE; + sx_end_element (sxEncCtrl); + } + +/************************************************************************/ +/************************************************************************/ +/* sx_wr_double */ +/************************************************************************/ + +ST_VOID sx_wr_double (SX_ENC_CTRL *sxEncCtrl, ST_DOUBLE val) + { +ST_CHAR *_writePos; +ST_CHAR strVal[100]; + + if (sxEncCtrl->errCode == 0) + { + _writePos = sxEncCtrl->nextWritePos; + sprintf (strVal, "%e", val); + _SX_ADD_STRING (strVal); + + if (!sxEncCtrl->useFp && (sx_debug_sel & SX_LOG_ENC)) + { + SLOGCALWAYS1 ("sx_wr_double: %s", sxEncCtrl->nextWritePos); + } + sxEncCtrl->nextWritePos = _writePos; + } + } + +/************************************************************************/ +/* sx_wrx_double_el */ +/************************************************************************/ + +ST_VOID sx_wrx_double_el (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *tag, ST_DOUBLE val, + ST_INT numAttr, SXE_ATTR_PAIR *attr) + { + sxEncCtrl->bOneLineEl = SD_TRUE; + sx_write_element (sxEncCtrl, tag, numAttr, attr, SD_FALSE, SD_FALSE); + + sx_wr_double (sxEncCtrl, val); + + sxEncCtrl->bOneLineEl = SD_TRUE; + sx_end_element (sxEncCtrl); + } + +/************************************************************************/ +/************************************************************************/ +/* sx_wr_float */ +/************************************************************************/ + +ST_VOID sx_wr_float (SX_ENC_CTRL *sxEncCtrl, ST_FLOAT val) + { +ST_CHAR *_writePos; +ST_CHAR strVal[100]; + + if (sxEncCtrl->errCode == 0) + { + _writePos = sxEncCtrl->nextWritePos; + sprintf (strVal, "%f", val); + _SX_ADD_STRING (strVal); + + if (!sxEncCtrl->useFp && (sx_debug_sel & SX_LOG_ENC)) + { + SLOGCALWAYS1 ("sx_wr_float: %s", sxEncCtrl->nextWritePos); + } + sxEncCtrl->nextWritePos = _writePos; + } + } + +/************************************************************************/ +/* sx_wrx_float_el */ +/************************************************************************/ + +ST_VOID sx_wrx_float_el (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *tag, ST_FLOAT val, + ST_INT numAttr, SXE_ATTR_PAIR *attr) + { + sxEncCtrl->bOneLineEl = SD_TRUE; + sx_write_element (sxEncCtrl, tag, numAttr, attr, SD_FALSE, SD_FALSE); + + sx_wr_float (sxEncCtrl, val); + + sxEncCtrl->bOneLineEl = SD_TRUE; + sx_end_element (sxEncCtrl); + } + +/************************************************************************/ +/************************************************************************/ +/* sx_wr_long */ +/************************************************************************/ + +ST_VOID sx_wr_long (SX_ENC_CTRL *sxEncCtrl, ST_LONG val) + { +ST_CHAR *_writePos; +ST_CHAR strVal[100]; + + if (sxEncCtrl->errCode == 0) + { + _writePos = sxEncCtrl->nextWritePos; +#if defined(_WIN32) || defined(__QNX__) + ltoa (val, strVal, 10); +#else + sprintf (strVal,"%ld", val); +#endif + _SX_ADD_STRING (strVal); + + if (!sxEncCtrl->useFp && (sx_debug_sel & SX_LOG_ENC)) + { + SLOGCALWAYS1 ("sx_wr_long: %s", sxEncCtrl->nextWritePos); + } + sxEncCtrl->nextWritePos = _writePos; + } + } + +/************************************************************************/ +/* sx_wrx_long_el */ +/************************************************************************/ + +ST_VOID sx_wrx_long_el (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *tag, ST_LONG val, + ST_INT numAttr, SXE_ATTR_PAIR *attr) + { + sxEncCtrl->bOneLineEl = SD_TRUE; + sx_write_element (sxEncCtrl, tag, numAttr, attr, SD_FALSE, SD_FALSE); + + sx_wr_long (sxEncCtrl, val); + + sxEncCtrl->bOneLineEl = SD_TRUE; + sx_end_element (sxEncCtrl); + } + +/************************************************************************/ +/************************************************************************/ +/* sx_wr_bool */ +/************************************************************************/ + +ST_VOID sx_wr_bool (SX_ENC_CTRL *sxEncCtrl, ST_BOOLEAN val) + { +ST_CHAR *_writePos; + + if (sxEncCtrl->errCode == 0) + { + _writePos = sxEncCtrl->nextWritePos; + if (val != SD_FALSE) + { + _SX_ADD_BUF ("1", 1); + } + else + { + _SX_ADD_BUF ("0", 1); + } + + if (!sxEncCtrl->useFp && (sx_debug_sel & SX_LOG_ENC)) + { + SLOGCALWAYS1 ("sx_wr_bool: %s", sxEncCtrl->nextWritePos); + } + sxEncCtrl->nextWritePos = _writePos; + } + } + +/************************************************************************/ +/* sx_wrx_bool_el */ +/************************************************************************/ +ST_VOID sx_wrx_bool_el (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *tag, ST_BOOLEAN val, + ST_INT numAttr, SXE_ATTR_PAIR *attr) + { + sxEncCtrl->bOneLineEl = SD_TRUE; + sx_write_element (sxEncCtrl, tag, numAttr, attr, SD_FALSE, SD_FALSE); + + sx_wr_bool (sxEncCtrl, val); + + sxEncCtrl->bOneLineEl = SD_TRUE; + sx_end_element (sxEncCtrl); + } + +/************************************************************************/ +/************************************************************************/ +/************************************************************************/ +/* sx_wr_time */ +/************************************************************************/ +#define SX_MAX_TIME_STRING_LEN 30 +ST_CHAR *sxTimeFormatStr = "%m-%d-%Y %H:%M:%S"; + +ST_VOID sx_wr_time (SX_ENC_CTRL *sxEncCtrl, time_t val) + { +ST_CHAR *_writePos; +ST_CHAR timeStr[50]; + + if (sxEncCtrl->errCode == 0) + { + _writePos = sxEncCtrl->nextWritePos; + strftime (timeStr, SX_MAX_TIME_STRING_LEN, sxTimeFormatStr, localtime (&val)); + _SX_ADD_STRING (timeStr); + + if (!sxEncCtrl->useFp && (sx_debug_sel & SX_LOG_ENC)) + { + SLOGCALWAYS1 ("sx_wr_time: %s", sxEncCtrl->nextWritePos); + } + sxEncCtrl->nextWritePos = _writePos; + } + } + +/************************************************************************/ +/* sx_wr_tm */ +/************************************************************************/ + +ST_VOID sx_wr_tm (SX_ENC_CTRL *sxEncCtrl, struct tm *val) + { +ST_CHAR *_writePos; +ST_CHAR timeStr[50]; + + if (sxEncCtrl->errCode == 0) + { + _writePos = sxEncCtrl->nextWritePos; + strftime (timeStr, SX_MAX_TIME_STRING_LEN, sxTimeFormatStr, val); + _SX_ADD_STRING (timeStr); + + if (!sxEncCtrl->useFp && (sx_debug_sel & SX_LOG_ENC)) + { + SLOGCALWAYS1 ("sx_wr_tm: %s", sxEncCtrl->nextWritePos); + } + sxEncCtrl->nextWritePos = _writePos; + } + } + +/************************************************************************/ +/* XmlDurationToString */ +/************************************************************************/ + +ST_RET XmlDurationToString (ST_CHAR *buffer, ST_LONG size, SX_DURATION *sxDuration) + { +ST_CHAR temp[256]; +ST_BOOLEAN dateMemberFound = SD_FALSE; +ST_BOOLEAN timeMemberFound = SD_FALSE; + /* convert duration information stored in */ + /* "SX_DURATION" structure to an xml string */ + /* Use strncat_maxstrlen to avoid buffer overrun */ + if (sxDuration->negative == SD_TRUE) + strncpy_safe( buffer, "-P", size - 1 ); + else + strncpy_safe( buffer, "P", size - 1 ); + + if (sxDuration->years > 0 || + sxDuration->months > 0 || + sxDuration->days > 0) + dateMemberFound = SD_TRUE; + + if (sxDuration->years > 0) + { + sprintf( temp, "%dY", sxDuration->years ); + strncat_maxstrlen( buffer, temp, size - 1 ); + } + if (sxDuration->months > 0) + { + sprintf( temp, "%dM", sxDuration->months ); + strncat_maxstrlen( buffer, temp, size - 1 ); + } + if (sxDuration->days > 0) + { + sprintf( temp, "%dD", sxDuration->days ); + strncat_maxstrlen( buffer, temp, size - 1 ); + } + + if (sxDuration->hours > 0 || + sxDuration->minutes > 0 || + sxDuration->seconds > 0 || + sxDuration->microseconds > 0) + { + timeMemberFound = SD_TRUE; + sprintf( temp, "T" ); + strncat_maxstrlen( buffer, temp, size - 1 ); + } + + if (sxDuration->hours > 0) + { + sprintf( temp, "%dH", sxDuration->hours ); + strncat_maxstrlen( buffer, temp, size - 1 ); + } + if (sxDuration->minutes > 0) + { + sprintf( temp, "%dM", sxDuration->minutes ); + strncat_maxstrlen( buffer, temp, size - 1 ); + } + if (sxDuration->seconds > 0) + { + sprintf( temp, "%d", sxDuration->seconds ); + strncat_maxstrlen( buffer, temp, size - 1 ); + } + if (sxDuration->microseconds > 0) + { + if (sxDuration->seconds > 0) + sprintf( temp, ".%06ld", sxDuration->microseconds ); + else + sprintf( temp, "0.%06ld", sxDuration->microseconds ); + strncat_maxstrlen( buffer, temp, size - 1 ); + } + if (sxDuration->seconds > 0 || sxDuration->microseconds > 0) + { + sprintf( temp, "S" ); + strncat_maxstrlen( buffer, temp, size - 1 ); + } + + if (dateMemberFound == SD_FALSE && timeMemberFound == SD_FALSE) + { + sprintf( temp, "T0S" ); /* 0 seconds = duration of zero */ + strncat_maxstrlen( buffer, temp, size - 1 ); + } + + return (SD_SUCCESS); + } + +/************************************************************************/ +/* sx_wr_duration */ +/************************************************************************/ +/* Convert a SX_DURATION structure into a text string, and store it in */ +/* control structure for output to an XML file. The string */ +/* looks like the following: PnYnMnDTnHnMnS where n are the various */ +/* values, P = period, Y = years, M = months, D = days, T = date/time */ +/* seperator, H = hours, M = minutes, S = seconds. Seconds may be a */ +/* decimal number of arbitrary precisions. */ +/* Ex: P12Y10M2DT0H40M27.87S */ +/* Ex: P12Y10M2DT40M27.87S */ +/************************************************************************/ + +ST_VOID sx_wr_duration (SX_ENC_CTRL *sxEncCtrl, SX_DURATION *sxDuration) + { +ST_RET rc; +ST_CHAR *_writePos; +ST_CHAR buffer[100]; /* arbitrary size */ + + if (sxEncCtrl->errCode != 0) + return; + + rc = XmlDurationToString (buffer, sizeof(buffer), sxDuration); + + /* place newly created date/time string in xml encode structure */ + _writePos = sxEncCtrl->nextWritePos; + _SX_ADD_STRING (buffer); + + if (!sxEncCtrl->useFp && (sx_debug_sel & SX_LOG_ENC)) + { + SLOGCALWAYS1 ("sx_wr_duration: %s", sxEncCtrl->nextWritePos); + } + sxEncCtrl->nextWritePos = _writePos; + } + +/************************************************************************/ +/* sx_wr_xtime */ +/************************************************************************/ +/* Using the date and time data in the "SX_DATE_TIME" structure convert */ +/* the number of seconds from 1/1/1970 (UTC time), the decimal fraction */ +/* of microseconds if specified and the number of minutes in the */ +/* time zone offset if specified to a date and time string. */ +/* The string is stored in an encode structure for output to an xml */ +/* file. */ +/************************************************************************/ + +ST_VOID sx_wr_xtime (SX_ENC_CTRL *sxEncCtrl, SX_DATE_TIME *sxDateTime) + { +ST_RET rc; +ST_CHAR *_writePos; +ST_CHAR dateTimeStr[MAX_TIME_STRING_LEN]; + + if (sxEncCtrl->errCode != 0) + return; + + /* convert date and time information stored in */ + /* "SX_DATE_TIME" structure to an xml string */ + rc = UtcValueToXmlString (dateTimeStr, sizeof(dateTimeStr), sxDateTime); + if (rc != SD_SUCCESS) + { + SXLOG_NERR0 ("ERROR: Value to String date/time conversion "); + sxEncCtrl->errCode = SD_FAILURE; + return; + } + + /* place newly created date/time string in xml encode structure */ + _writePos = sxEncCtrl->nextWritePos; + _SX_ADD_STRING (dateTimeStr); + + if (!sxEncCtrl->useFp && (sx_debug_sel & SX_LOG_ENC)) + { + SLOGCALWAYS1 ("sx_wr_xtime: %s", sxEncCtrl->nextWritePos); + } + sxEncCtrl->nextWritePos = _writePos; + } + +/************************************************************************/ +/* sx_wrx_duration_el */ +/************************************************************************/ + +ST_VOID sx_wrx_duration_el (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *tag, SX_DURATION *val, + ST_INT numAttr, SXE_ATTR_PAIR *attr) + { + sxEncCtrl->bOneLineEl = SD_TRUE; + sx_write_element (sxEncCtrl, tag, numAttr, attr, SD_FALSE, SD_FALSE); + + sx_wr_duration (sxEncCtrl, val); + + sxEncCtrl->bOneLineEl = SD_TRUE; + sx_end_element (sxEncCtrl); + } + +/************************************************************************/ +/* sx_wrx_xtime_el */ +/************************************************************************/ + +ST_VOID sx_wrx_xtime_el (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *tag, SX_DATE_TIME *val, + ST_INT numAttr, SXE_ATTR_PAIR *attr) + { + sxEncCtrl->bOneLineEl = SD_TRUE; + sx_write_element (sxEncCtrl, tag, numAttr, attr, SD_FALSE, SD_FALSE); + + sx_wr_xtime (sxEncCtrl, val); + + sxEncCtrl->bOneLineEl = SD_TRUE; + sx_end_element (sxEncCtrl); + } + + +/************************************************************************/ +/* sx_wrx_time_el */ +/************************************************************************/ + +ST_VOID sx_wrx_time_el (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *tag, time_t val, + ST_INT numAttr, SXE_ATTR_PAIR *attr) + { + sxEncCtrl->bOneLineEl = SD_TRUE; + sx_write_element (sxEncCtrl, tag, numAttr, attr, SD_FALSE, SD_FALSE); + + sx_wr_time (sxEncCtrl, val); + + sxEncCtrl->bOneLineEl = SD_TRUE; + sx_end_element (sxEncCtrl); + } + +/************************************************************************/ +/* sx_wrx_tm_el */ +/************************************************************************/ + +ST_VOID sx_wrx_tm_el (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *tag, struct tm *val, + ST_INT numAttr, SXE_ATTR_PAIR *attr) + { + sxEncCtrl->bOneLineEl = SD_TRUE; + sx_write_element (sxEncCtrl, tag, numAttr, attr, SD_FALSE, SD_FALSE); + + sx_wr_tm (sxEncCtrl, val); + + sxEncCtrl->bOneLineEl = SD_TRUE; + sx_end_element (sxEncCtrl); + } + +/************************************************************************/ +/* sx_wr_cdata */ +/************************************************************************/ + +ST_VOID sx_wr_cdata (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *str, ST_INT len) + { +ST_INT i; +ST_CHAR *_writePos; +ST_CHAR tabBuf[SX_MAX_XML_NEST+1]; + + if (sxEncCtrl->errCode == 0) + { + _writePos = sxEncCtrl->nextWritePos; + + if (sxEncCtrl->bUseFormatting) + { + for (i = 0; i < sxEncCtrl->currNestLevel; i++) + tabBuf[i] = '\t'; /* assemble all tabs in buffer */ + _SX_ADD_BUF (tabBuf, sxEncCtrl->currNestLevel); + } + + _SX_ADD_BUF ("", 3); + + sxEncCtrl->nextWritePos = _writePos; + } + } + +/************************************************************************/ +/* sx_wrx_cdata_el */ +/************************************************************************/ + +ST_VOID sx_wrx_cdata_el (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *tag, + ST_CHAR *str, ST_INT len, + ST_INT numAttr, SXE_ATTR_PAIR *attr) + { + sxEncCtrl->bOneLineEl = SD_TRUE; + sx_write_element (sxEncCtrl, tag, numAttr, attr, SD_FALSE, SD_FALSE); + + sx_wr_cdata (sxEncCtrl, str, len); + + sxEncCtrl->bOneLineEl = SD_TRUE; + sx_end_element (sxEncCtrl); + } + + +/************************************************************************/ +/* sx_wr_comment */ +/************************************************************************/ + +ST_VOID sx_wr_comment (SX_ENC_CTRL *sxEncCtrl, ST_CHAR *str) + { +ST_INT i; +ST_CHAR *_writePos; +ST_INT writeLen; +ST_CHAR tabBuf[SX_MAX_XML_NEST+1]; + + if (sxEncCtrl->errCode == 0) + { + _writePos = sxEncCtrl->nextWritePos; + + if (sxEncCtrl->bUseFormatting) + { + for (i = 0; i < sxEncCtrl->currNestLevel; i++) + tabBuf[i] = '\t'; /* assemble all tabs in buffer */ + _SX_ADD_BUF (tabBuf, sxEncCtrl->currNestLevel); + } + + _SX_ADD_BUF ("\n", 4); + } + else + { + _SX_ADD_BUF (str, writeLen); + _SX_ADD_BUF ("-->", 3); + } + + if (!sxEncCtrl->useFp && (sx_debug_sel & SX_LOG_ENC)) + { + SLOGCALWAYS1 ("sx_wr_comment: %s", sxEncCtrl->nextWritePos); + } + sxEncCtrl->nextWritePos = _writePos; + } + } + +/************************************************************************/ +/* sx_format_string_enc */ +/************************************************************************/ + +ST_VOID sx_format_string_enc (ST_CHAR *dest, ST_CHAR *src) + { + ST_CHAR *srcPtr = src; + ST_CHAR *destPtr = dest; + + *destPtr = '\0'; + + while (*srcPtr != '\0') + { + switch (*srcPtr) + { + case CHAR_APOS: + strcat (destPtr, CODE_APOS); + destPtr += CODE_APOS_LEN; + break; + + case CHAR_QUOT: + strcat (destPtr, CODE_QUOT); + destPtr += CODE_QUOT_LEN; + break; + + case CHAR_AMP: + strcat (destPtr, CODE_AMP); + destPtr += CODE_AMP_LEN; + break; + + case CHAR_LT: + strcat (destPtr, CODE_LT); + destPtr += CODE_LT_LEN; + break; + + case CHAR_GT: + strcat (destPtr, CODE_GT); + destPtr += CODE_GT_LEN; + break; + + default: + *destPtr = *srcPtr; + *(destPtr + 1) = '\0'; + destPtr++; + break; + } + + srcPtr++; + } + } + +/************************************************************************/ +/* sx_format_nstring_enc */ +/************************************************************************/ + +ST_VOID sx_format_nstring_enc (ST_CHAR *dest, ST_CHAR *src, ST_INT len) + { + ST_CHAR *srcPtr = src; + ST_CHAR *destPtr = dest; + ST_INT i = 0; + + *destPtr = '\0'; + + while (i++ < len) + { + switch (*srcPtr) + { + case CHAR_APOS: + strcat (destPtr, CODE_APOS); + destPtr += CODE_APOS_LEN; + break; + + case CHAR_QUOT: + strcat (destPtr, CODE_QUOT); + destPtr += CODE_QUOT_LEN; + break; + + case CHAR_AMP: + strcat (destPtr, CODE_AMP); + destPtr += CODE_AMP_LEN; + break; + + case CHAR_LT: + strcat (destPtr, CODE_LT); + destPtr += CODE_LT_LEN; + break; + + case CHAR_GT: + strcat (destPtr, CODE_GT); + destPtr += CODE_GT_LEN; + break; + + default: + *destPtr = *srcPtr; + *(destPtr + 1) = '\0'; + destPtr++; + break; + } + + srcPtr++; + } + } + diff --git a/mmslib/util/time_str.c b/mmslib/util/time_str.c new file mode 100644 index 0000000..5a20203 --- /dev/null +++ b/mmslib/util/time_str.c @@ -0,0 +1,2748 @@ +/************************************************************************/ +/* SISCO SOFTWARE MODULE HEADER *****************************************/ +/************************************************************************/ +/* (c) Copyright Systems Integration Specialists Company, Inc., */ +/* 1994 - 2008, All Rights Reserved */ +/* */ +/* MODULE NAME : time_str.c */ +/* PRODUCT(S) : */ +/* */ +/* MODULE DESCRIPTION : */ +/* */ +/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */ +/* */ +/* MODIFICATION LOG : */ +/* Date Who Rev Comments */ +/* -------- --- ------ ------------------------------------------- */ +/* 06/24/08 EJV 41 Btime6StringToVals CORR: *1000 was missing. */ +/* 02/28/08 JRB 40 GetTimeAndUsec ONLY for _WIN32, linux, QNX. */ +/* 09/20/07 nav 39 Put TimeAccuracy in UTC Quality string */ +/* 02/15/07 RLH 38 Add validity checks to UtcValueToXmlString */ +/* so that invalid data will not cause a bad */ +/* string to be generated. */ +/* 01/16/07 RLH 37 Comment-out code obsoleted by rev 36 */ +/* 11/29/06 RLH 36 Merge time_str.c and time_str2, adjust revs, */ +/* add portable usr_mkgmtime function, */ +/* rewrite date and time parsing functions */ +/* tstrStringToTime, tstrStringToTm; */ +/* remove stdtime.h include, add validation to */ +/* quality-bit string, make date-field ordering */ +/* (m-d-y, d-m-y, y-m-d) based on locale, not */ +/* always assuming US m-d-y ordering. improve */ +/* compliance with use of standard SISCO types. */ +/* 09/13/06 NAV 35 Fix quality bits in UTC conversion */ +/* 07/13/06 MDE 34 Fixed compile warning */ +/* 06/05/06 RLH 33 Change to stdtime include */ +/* 03/06/06 RLH 32 add GetTimeAndUsec, tstrTimeToStringGmt, */ +/* tstrStringToTimeGmt */ +/* 02/28/06 EJV 31 UtcStringToVals: added cast. */ +/* 01/30/06 GLB 30 Integrated porting changes for VMS */ +/* 02/13/06 DSF 29 Migrate to VS.NET 2005 */ +/* 02/03/06 NAV 28 UTC - use 0x1000000 instead of 0xFFFFFF */ +/* 01/30/06 GLB 27 Integrated porting changes for VMS */ +/* 07/27/04 DWL 26 Added tstrTmToString (struct tm) */ +/* 07/16/04 DWL 25 Added tstrStringToTm (struct tm) */ +/* 01/27/04 nav 24 UtcValsToString: check for gmtime failure */ +/* 12/09/03 JRB 24 Btime6String..: stop using "daylight" global,*/ +/* use tm_isdst=0 to treat input as std time. */ +/* 10/30/03 GLB & 23 Reworked "XmlStringToUtcValue" & */ +/* EJV "UtcValueToXmlString" */ +/* 10/24/03 DSF 22 Fixed SX_DATE_TIME functions */ +/* 10/15/03 JRB 21 Del _WIN32 ifdef. */ +/* 09/01/03 GLB 20 Added "XmlStringToUtcValue" & */ +/* "UtcValueToXmlString" */ +/* 06/03/03 DSF 19 More compiler warnings */ +/* 04/14/03 JRB 18 Eliminate compiler warnings. */ +/* 09/26/02 NAV 17 UtcValsToString: use gmtime */ +/* 08/05/02 NAV 16 Make Btime4 conversion funcs ansi compatible */ +/* 07/12/02 NAV 15 Add UtcValsToString and UtcStringToVals */ +/* 06/07/02 NAV 14 sprintf msec to %03d */ +/* 02/25/02 JRB 13 Don't use "daylight" global on VXWORKS. */ +/* Fix "thisFil..", sprintf call. Add str_util.h*/ +/* 12/27/01 GLB 12 Remove embedded comment in prior log 11 */ +/* 12/19/01 EJV 11 Converted comments from double slash to */ +/* slash star */ +/* Substituted AXS4_LOG_xxx with SLOGALWAYS. */ +/* Replaced sys includes with sysincs.h */ +/* 06/26/01 EJV 10 Eliminated globals to make thread safe. */ +/* 02/02/01 EJV 09 tstrStringToTime: chg (long *) to (time_t *) */ +/* 11/21/00 MDE 08 Changes for QNX (Btime4 for Win32 only) */ +/* 07/17/98 NAV 07 Modify century calculation for y2k */ +/* 10/15/97 NAV 06 Add Btime4 Support Functions */ +/* 10/08/97 NAV 05 Add seconds to Btime4 and Gtime */ +/* 10/06/97 NAV 04 Handle daylight savings time problem - Btime6*/ +/* 09/04/97 NAV 03 Add Btime6 Conversion routines */ +/* 08/01/96 NAV 02 Lint CleanUp */ +/* 11/08/94 MDE 01 New */ +/************************************************************************/ + +#if defined (_WIN32) +#pragma warning(disable : 4996) +#endif + +#include "glbtypes.h" +#include "sysincs.h" +#include "slog.h" +#include "time_str.h" +#include "str_util.h" + +#ifdef DEBUG_SISCO +SD_CONST static ST_CHAR *SD_CONST thisFileName = __FILE__; +#endif + +/************************************************************************/ + +ST_CHAR *tstrTimeFormat = TSTR_DEF_TIME_FORMAT; +ST_CHAR *BtimeTimeFormat = BTIME_DEF_TIME_FORMAT; + +/************************************************************************/ +/************************************************************************/ +/* tstrTimeToString */ +/************************************************************************/ + +ST_RET tstrTimeToString (time_t t, ST_CHAR *dest) + { + strftime (dest, MAX_TIME_STRING_LEN, tstrTimeFormat, localtime (&t)); + return (SD_SUCCESS); + } + + +/************************************************************************/ +/* tstrTimeToStringGmt */ +/* this code was merged from time_str2.c */ +/************************************************************************/ + +ST_RET tstrTimeToStringGmt (time_t t, ST_CHAR *dest) + { + strftime (dest, MAX_TIME_STRING_LEN, tstrTimeFormat, gmtime (&t)); + return (SD_SUCCESS); + } + + +/************************************************************************/ +/************************************************************************/ + +/* structure to hold results from parsing date and time strings */ + +typedef struct + { + int month; + int day; + int year; + int hour; + int min; + int sec; + int mSec; + int uSec; + int nSec; + int zoneHour; + int zoneMin; + char zoneCode; /* 'Z', '+', '-' or 0 */ + int dateFound; /* not needed by new parsers */ + int timeFound; /* not needed by new parsers */ + int order; /*date-field ordering; 0 =f ANY */ + char *pflags; /* ptr to (qual= ... ) or NULL */ + + } _TS_DATETIME; + +#if 0 +/* obsoleted code */ +static int parseDateString (char *s, _TS_DATETIME *dt); +static int parseTimeString (char *s, _TS_DATETIME *dt); +static int parseBtimeString (char *s, _TS_DATETIME *dt); + +static int strToMonth (char *s, int *monthOut); +#endif + +/************************************************************************/ + + +typedef struct + { + ST_INT32 /*O*/ len; /* length of field */ + ST_INT32 /*O*/ value; /* extracted num value */ + ST_INT32 /*O*/ scale; /* for scaling fractions */ + ST_CHAR /*O*/ delim; /* field delimiter */ + ST_CHAR /*O*/ text[16]; /* extracted text value */ + } DATETIME_FIELD; + + +/************************************************************************/ +/* getDateTimeField */ +/* extract a (possible) date or time field, and report its value */ +/* return pointer to next position to parse, or NULL if no field found */ +/* a _DATETIME_FIELD len of 0 also means the field is not valid */ +/************************************************************************/ + +static ST_CHAR * getDateTimeField ( + ST_CHAR * /*I*/ buf, /* field being parsed */ + ST_CHAR /*I*/ prevDelim, /* '.' allows longer num */ + DATETIME_FIELD * /*O*/ dtf) + { + ST_INT32 i; + ST_CHAR work[4]; + + static ST_CHAR * monthTab[13] = + { + "", + "JAN", "FEB", "MAR", + "APR", "MAY", "JUN", + "JUL", "AUG", "SEP", + "OCT", "NOV", "DEC" + }; + + + if (dtf == NULL) + { + return NULL; /* bad parameter */ + } + + dtf->len = 0; + dtf->value = 0; + dtf->scale = 1; + dtf->delim = ' '; + dtf->text[0] = 0; + + if (buf == NULL) + { + return NULL; /* bad buf pointer */ + } + + /* skip leading whitespace */ + + while (isspace (*buf)) + { + buf++; + } + + if (*buf == 0) + { + return NULL; /* buf has no data */ + } + + /* accumulate value */ + + while (isdigit (*buf)) + { + dtf->text[dtf->len] = *buf; + dtf->text[dtf->len+1] = 0; + + dtf->value = (dtf->value * 10) + (*buf - '0'); + dtf->scale *= 10; + dtf->len++; + buf++; + + if (dtf->len > 9) + { + return NULL; /* numeric field too long */ + } + } /* while */ + + if (dtf->len > 0) /* field is numeric */ + { + + /* only lengths 1, 2 and 4 are allowed */ + /* this allows for 1 or 2 digit months, days and years */ + /* and 4 digit years */ + + /* when prevDelim is '.', the current field is a fraction */ + /* so, we allow longer field values */ + + if (prevDelim == '.') + { + if (dtf->len == 9) + { + /* a (fake) length of 9 is a 'marker' for an alpha month */ + /* we change numbers of length 9 to 8 to get around this */ + + /* we are lying about the length; don't worry, it's OK */ + + /* the precise length of fractional seconds isn't critical anyway. */ + /* we need lengths mainly to analyze month/day/year ordering. */ + + dtf->len = 8; + } + + else if (dtf->len > 9) + { + /* too many digits for a fraction */ + return NULL; + } + } + + else /* prevDelim != '.' */ + { + /* numbers for dates and times only have valid lengths of 1, 2 or 4 */ + /* except for fractional seconds, which can vary from 0 to 9 digits */ + + if ( (dtf->len > 4) + || (dtf->len == 3) ) + { + /* not a valid date or time numeric field size */ + return NULL; + } + + /* if a number is followed by . then a blank, nul, +/-, T or Z */ + /* the . is just noise, so ignore it */ + + /* this test is not made on the "if prevDelim == '.'" branch above */ + /* we don't want to permit values like .123. which is illegal */ + + if (*buf == '.') + { + if ( (buf[1] == 0 ) + || (buf[1] == ' ') + || (buf[1] == '+') + || (buf[1] == '-') + || (buf[1] == 'T') + || (buf[1] == 'Z') ) + { + buf++; /* a pointless dot */ + } + } /* *buf == '.' */ + + } /* when prevDelim != '.' */ + + /* next field is after curr delim at 'buf'; assume delim len is 1 */ + /* assume curr pos is the delimiter */ + /* example: buf == "-12", so delim == '-' and next field "12" at buf+1 */ + /* this holds in most cases, except AM/PM, when next field at buf+2 */ + + dtf->delim = (ST_CHAR) toupper (*buf); + + if (*buf == 0) /* end of buffer */ + { + /* delim is blank when there is no non-blank delimiter */ + /* to determine if end of buffer, look at dtf->buf */ + /* we don't return buf+1 because end of buffer was reached */ + /* be careful not to run off end of buffer */ + dtf->delim = ' '; + return buf; + } + + if (isspace (*buf)) + { + /* delim is blank when there is no non-blank delimiter */ + /* to determine if end of buffer, look at dtf->buf */ + dtf->delim = ' '; /* just in case of tabs, etc. */ + return buf + 1; + } + + if ( (*buf == ':') /* part of a time */ + || (*buf == '.') /* part of a time */ + || (*buf == '-') /* part of a date */ + || (*buf == '+') ) /* possibly part of a timezone offset */ + { + return buf + 1; + } + + if (*buf == '/') + { + dtf->delim = '-'; /* treat '/' same as '-' for dates */ + return buf + 1; + } + + if ( (dtf->delim == 'T') + && (isdigit (buf[1])) ) /* value is part of ISO 8601 time */ + { + return buf + 1; + } + + if (dtf->delim == 'Z') + { + if ( (buf[1] <= ' ') /* Zulu/GMT timezone suffix */ + || (buf[1] == '(') ) /* Z followed by (qual= ... ) */ + { + return buf + 1; + } + } /* Z */ + + /* look for A, P, AM or PM suffix */ + + if ( (dtf->delim == 'A') + || (dtf->delim == 'P') ) + { + if (!isalnum (buf[1])) /* short AM/PM suffix */ + { + return buf + 1; + } + + if ( (toupper (buf[1]) == 'M') /* long AM/PM suffix */ + && (!isalnum (buf[2])) ) /* good delim after M */ + { + return buf + 2; + } + + return NULL; /* malformed AM/PM */ + + } /* A or P delim */ + + } /* field is numeric */ + + /* look for alphabetic month */ + /* we are supporting the following date formats: */ + + /* 2006-Dec-17 */ + /* Dec-17-06 */ + /* Dec-17-2006 */ + /* 17-Dec-2006 */ + + /* in each case, the alpha month is followed by '-' or '/' */ + + /* the format 06-Dec-17 is not supported, because it is not */ + /* clear if it is day-month-year or year-month-day order. */ + + /* if found, return equivalent value (1 to 12) and a (fake) length of 9 */ + /* check for length of 9 is used to see if an alpha month is present */ + + if ( (buf[3] != '-') + && (buf[3] != '/') ) + { + return NULL; + } + + work[0] = (ST_CHAR) toupper (buf[0]); + work[1] = (ST_CHAR) toupper (buf[1]); + work[2] = (ST_CHAR) toupper (buf[2]); + work[3] = 0; + + strcpy (dtf->text, work); + + for (i=1; i <= 12; i++) + { + if (strcmp (work, monthTab[i]) == 0) + { + dtf->delim = '-'; /* treat '/' same as '-' for dates */ + dtf->value = i; + dtf->len = 9; /* fake length of 9 = alpha month */ + return buf + 4; + } + } + + return NULL; /* no valid date/time field found */ + + } /* getDateTimeField */ + + +/************************************************************************/ +/* getDateOrder */ +/* */ +/* on Windows systems, use GetLocaleInfo to determine the ordering of */ +/* month, day and year fields in a date, according to the current */ +/* locale. on non-Windows systems, assume m/d/y. */ +/* */ +/************************************************************************/ + +#ifdef _WIN32 +/* on Windows, GetLocaleInfo() depends on windows.h and kernel32.lib */ +#pragma comment(lib, "kernel32.lib") +#include +#endif + +ST_INT32 getDateOrder () + { +#ifdef _WIN32 + ST_CHAR work[2]; + ST_INT32 rc; + + work[0] = work[1] = 0; + rc = GetLocaleInfoA (LOCALE_USER_DEFAULT, LOCALE_ILDATE, work, 2); + + if (rc != 2) + { + return S_DATE_ORDER_MDY; + } + + if (work[0] == '1') + { + return S_DATE_ORDER_DMY; + } + + if (work[0] == '2') + { + return S_DATE_ORDER_YMD; + } + + /* in case of error, or default '0' returned */ + return S_DATE_ORDER_MDY; + +#else + /* unable to determine ordering, so assume a default order */ + return S_DATE_ORDER_MDY; +#endif + } + + +/************************************************************************/ +/* storeDateValue */ +/* */ +/* take a DATETIME_FIELD array, determine field order of a date, and */ +/* store into a _TS_DATETIME. if DATETIME_FIELD array is valid, and */ +/* the fields appear to be in the correct order, return SD_SUCCESS, */ +/* else return SD_FAILURE. */ +/* */ +/************************************************************************/ + +ST_RET storeDateValue ( + DATETIME_FIELD * /*I*/ dtf, + _TS_DATETIME * /*IO*/ dt) + { + ST_INT32 len; + ST_INT32 mm; + ST_INT32 dd; + ST_INT32 yy; + ST_INT32 order; + + if (dt == NULL) + { + return SD_FAILURE; + } + + dt->month = 0; + dt->day = 0; + dt->year = 0; + dt->dateFound = SD_FALSE; + + if (dtf == NULL) + { + return SD_FAILURE; + } + + if ( (dtf[0].delim != '-') + || (dtf[1].delim != '-') ) + { + return SD_FAILURE; + } + + if ( (dtf[2].delim != 'T') + && (dtf[2].delim != ' ') ) + { + return SD_FAILURE; + } + + /* determine field order by the lengths of 3 fields */ + /* form a single int value for easier testing */ + + /* for example, 412 means a 4-digit field, then a 1-digit field */ + /* and finally a 2-digit field, in that order. */ + + len = (100 * dtf[0].len) + (10 * dtf[1].len) + (dtf[2].len); + + /* if a specific date order is requested by caller, use it. */ + /* otherwise, ask system for the default order */ + + if (dt->order == S_DATE_ORDER_ANY) + { + /* caller accepts any currently active order, based on locale */ + order = getDateOrder (); + } + + else + { + /* caller insisted on date fields being in a particular order */ + order = dt->order; + } + + switch (len) + { + case 411: /* yyyy-m-d : ordering is confident */ + case 412: /* yyyy-m-dd : ordering is confident */ + case 421: /* yyyy-mm-d : ordering is confident */ + case 422: /* yyyy-mm-dd : ordering is confident */ + case 491: /* yyyy-Mon-d : ordering is confident */ + case 492: /* yyyy-Mon-dd : ordering is confident */ + + /* when date starts with a 4-digit number, the first field is a year. */ + /* no (known) locales use year-day-month, so we can assume the order */ + /* is year-month-day here, regardless of locale, with confidence. */ + + yy = dtf[0].value; + mm = dtf[1].value; + dd = dtf[2].value; + break; + + case 914: /* Mon-d-yyyy : ordering is certain */ + case 924: /* Mon-dd-yyyy : ordering is certain */ + + mm = dtf[0].value; + dd = dtf[1].value; + yy = dtf[2].value; + break; + + case 114: /* m-d-yyyy or d-m-yyyy */ + case 124: /* m-dd-yyyy or d-mm-yyyy */ + case 214: /* mm-d-yyyy or dd-m-yyyy */ + case 224: /* mm-dd-yyyy or dd-mm-yyyy */ + + if (order == S_DATE_ORDER_DMY) + { + dd = dtf[0].value; + mm = dtf[1].value; + } + + else + { + /* for S_DATE_ORDER_MDY, the field ordering is certain */ + /* for S_DATE_ORDER_YMD, the field ordering is not certain */ + /* but since YMD implies month before year, we assume this is right */ + + mm = dtf[0].value; + dd = dtf[1].value; + } + + yy = dtf[2].value; + break; + + case 194: /* d-Mon-yyyy : for alpha month, ordering is certain */ + case 294: /* dd-Mon-yyyy : for alpha month, ordering is certain */ + + dd = dtf[0].value; + mm = dtf[1].value; + yy = dtf[2].value; + break; + + case 911: /* Mon-d-y : ordering is confident */ + case 921: /* Mon-dd-y : ordering is confident */ + case 912: /* Mon-d-yy : ordering is confident */ + case 922: /* Mon-dd-yy : ordering is confident */ + + /* for alpha month, there is no such format as Mon-yy-dd */ + /* so, the mm-dd-yy ordering is reasonably certain */ + + mm = dtf[0].value; + dd = dtf[1].value; + yy = dtf[2].value; + + /* year is 2-digit, so form the default century */ + /* we would normally have a cutoff of 1970, but in some cases */ + /* a conversion error will leave a time_t with Dec 31 1969 */ + /* so, values < 69 are assumed to be in the 21 century */ + + if (yy < 69) + { + yy += 2000; + } + + else + { + yy += 1900; + } + + break; + + case 191: /* d-Mon-y */ + case 291: /* dd-Mon-y */ + case 192: /* d-Mon-yy */ + case 292: /* dd-Mon-yy */ + + if (order == S_DATE_ORDER_YMD) + { + yy = dtf[0].value; + mm = dtf[1].value; + dd = dtf[2].value; + } + + else + { + /* for S_DATE_ORDER_DMY, the field ordering is certain */ + /* for S_DATE_ORDER_MDY, the field ordering is not certain */ + /* but since MDY implies day before year, we assume this is right */ + + dd = dtf[0].value; + mm = dtf[1].value; + yy = dtf[2].value; + } + + /* year is 2-digit, so form the default century */ + /* we would normally have a cutoff of 1970, but in some cases */ + /* a conversion error will leave a time_t with Dec 31 1969 */ + /* so, values < 69 are assumed to be in the 21 century */ + + if (yy < 69) + { + yy += 2000; + } + + else + { + yy += 1900; + } + + break; + + case 111: /* d-m-y y-m-d m-d-y */ + case 112: /* d-m-yy y-m-dd m-d-yy */ + + case 121: /* d-mm-y y-mm-d m-dd-y */ + case 122: /* d-mm-yy y-mm-dd m-dd-yy */ + + case 211: /* dd-m-y yy-m-d mm-d-y */ + case 212: /* dd-m-yy yy-m-dd mm-d-yy */ + + case 221: /* dd-mm-y yy-mm-d mm-dd-y */ + case 222: /* dd-mm-yy yy-mm-dd mm-dd-yy */ + + if (order == S_DATE_ORDER_DMY) + { + dd = dtf[0].value; + mm = dtf[1].value; + yy = dtf[2].value; + } + + else if (order == S_DATE_ORDER_YMD) + { + yy = dtf[0].value; + mm = dtf[1].value; + dd = dtf[2].value; + } + + else /* assume mm-dd-yy */ + { + mm = dtf[0].value; + dd = dtf[1].value; + yy = dtf[2].value; + } + + /* year is 2-digit, so form the default century */ + /* we would normally have a cutoff of 1970, but in some cases */ + /* a conversion error will leave a time_t with Dec 31 1969 */ + /* so, values < 69 are assumed to be in the 21 century */ + + if (yy < 69) + { + yy += 2000; + } + + else + { + yy += 1900; + } + + break; + + default: + return SD_FAILURE; + + } /* switch */ + + if ( (mm < 1) + || (mm > 12) + || (dd < 1) + || (dd > 31) + || (yy < 1969) ) + { + return SD_FAILURE; + } + + dt->month = mm; + dt->day = dd; + dt->year = yy; + dt->dateFound = SD_TRUE; + + return SD_SUCCESS; + + } /* storeDateValue */ + + +/************************************************************************/ +/* storeTimeValue */ +/* */ +/* take a DATETIME_FIELD array, determine field order of a time, and */ +/* store into a _TS_DATETIME. if DATETIME_FIELD array is valid, and */ +/* the fields appear to be in the correct order, return SD_SUCCESS, */ +/* else return SD_FAILURE. */ +/* */ +/************************************************************************/ + +ST_RET storeTimeValue ( + DATETIME_FIELD * /*I*/ dtf, + _TS_DATETIME * /*O*/ dt) + { + ST_INT32 n = 0; + ST_INT32 len; + ST_INT32 hour = 0; + ST_INT32 min = 0; + ST_INT32 zoneHour = 0; + ST_INT32 zoneMin = 0; + ST_INT32 sec = 0; + ST_INT32 mSec = 0; + ST_INT32 uSec = 0; + ST_INT32 nSec = 0; + ST_CHAR work[32]; + + + if (dt == NULL) + { + return SD_FAILURE; + } + + dt->hour = 0; + dt->min = 0; + dt->sec = 0; + dt->mSec = 0; + dt->uSec = 0; + dt->nSec = 0; + dt->timeFound = SD_FALSE; + + dt->zoneHour = 0; + dt->zoneMin = 0; + dt->zoneCode = 0; + + if (dtf == NULL) + { + return SD_FAILURE; + } + + /* hh:mm:ss[A] [.frac] [+hh:mm] yyyy-mm-dd */ + /* 0 1 2 3 4 5 6 7 8 */ + + + if ( (dtf[n].delim != ':') + && (dtf[n].len != 1) + && (dtf[n].len != 2) ) + { + return SD_FAILURE; + } + + hour = dtf[n++].value; + + /* store minutes, a required field */ + + if ( (dtf[n].len != 1) + && (dtf[n].len != 2) ) + { + return SD_FAILURE; + } + + min = dtf[n].value; + + /* see if seconds field is present */ + + if (dtf[n].delim == ':') + { + n++; /* look at seconds field */ + + if ( (dtf[n].len != 1) + && (dtf[n].len != 2) ) + { + return SD_FAILURE; + } + + sec = dtf[n].value; + } + + /* see if AM/PM field is present, and validate hour */ + /* in AM/PM mode, hour cannot be 00 or > 12 */ + /* so 00:00 AM and 00:00 PM are illegal */ + /* as are 14:00 PM etc. */ + + if (dtf[n].delim == 'A') + { + if ((hour < 1) || (hour > 12)) + { + return SD_FAILURE; + } + + if (hour == 12) + { + hour = 0; /* 12:05 AM is really 00:00 */ + } + } + + else if (dtf[n].delim == 'P') + { + if ((hour < 1) || (hour > 12)) + { + return SD_FAILURE; + } + + /* 12:05 PM is 12:05 (so hour == 12 is OK), but 1:05 PM is 13:05 */ + + if (hour < 12) + { + hour += 12; + } + } + + /* if decimal point is followed by nothing, it is a null fraction */ + /* if so, treat this as the end of the string */ + /* for example, "12:34." is the same as "12:34" */ + + if ( (dtf[n].delim == '.') + && (dtf[n+1].len == 0) ) + { + dtf[n].delim = ' '; /* end of string */ + } + + if (dtf[n].delim == '.') + { + /* extract mSec */ + /* this requires normalizing the value to 3 digits */ + /* since the current field ends with a dot, there must be */ + /* a following field that is numeric */ + + n++; /* look at fraction field */ + + len = dtf[n].len; + + if (len > 9) + { + return SD_FAILURE; /* malformed/missing mSec field */ + } + + /* express fraction as a count of milliseconds */ + /* method: pad or truncate ms field to 3 digits */ + + strncpy (work, dtf[n].text, 3); + work[3] = 0; + strcat (work, "000"); + work[3] = 0; + mSec = atoi (work); + + /* express fraction as a count of microseconds */ + /* method: pad or truncate ms field to 6 digits */ + + strncpy (work, dtf[n].text, 6); + work[6] = 0; + strcat (work, "000000"); + work[6] = 0; + uSec = atoi (work); + + /* express fraction as a count of nanoseconds */ + /* method: pad or truncate ms field to 9 digits */ + + strncpy (work, dtf[n].text, 9); + work[9] = 0; + strcat (work, "000000000"); + work[9] = 0; + nSec = atoi (work); + } + + if (dtf[n].delim == 'Z') + { + dt->zoneCode = 'Z'; + } + + else if ( (dtf[n].delim == '+') /* +hh:mm or +h:mm */ + || (dtf[n].delim == '-') ) /* -hh:mm or -h:mm */ + { + dt->zoneCode = dtf[n].delim; + /* look at zone hour, it may be 1 or 2 digits */ + n++; + + /* allow for zone of +hhmm or -hhmm if it's the last field */ + + if ( (dtf[n].delim == ' ') + || (dtf[n].delim == 'T') ) + { + if (dtf[n].len != 4) + { + return SD_FAILURE; /* in this format, exactly 4 digits needed */ + } + + zoneHour = (dtf[n].value) / 100; + zoneMin = (dtf[n].value) % 100; + } + + else + { + if ( (dtf[n].delim != ':') /* zone hour must have minutes */ + && (dtf[n].len != 1) + && (dtf[n].len != 2) ) + { + return SD_FAILURE; + } + + zoneHour = dtf[n++].value; /* grab hours, index to minutes */ + + if (dtf[n].len != 2) + { + return SD_FAILURE; + } + + zoneMin = dtf[n].value; + + if ( (zoneHour < 0) + || (zoneHour > 23) + || (zoneMin < 0) + || (zoneMin > 59) ) + { + return SD_FAILURE; + } + } + } + + if ( (hour < 0) + || (hour > 23) + || (min < 0) + || (min > 59) + || (sec < 0) + || (sec > 59) ) + { + return SD_FAILURE; + } + + dt->hour = hour; + dt->min = min; + dt->sec = sec; + dt->mSec = mSec; + dt->uSec = uSec; + dt->nSec = nSec; + dt->timeFound = SD_TRUE; + + dt->zoneHour = zoneHour; + dt->zoneMin = zoneMin; + + return SD_SUCCESS; + + } /* storeTimeValue */ + + +/************************************************************************/ +/* getTsDateTime */ +/* parse a string containing a time and date value, and produce a */ +/* struct tm value. accepted formats are: */ +/* */ +/* time [fraction] date */ +/* date time [fraction] */ +/* */ +/* date may be in the following formats: */ +/* */ +/* yyyy-mm-dd */ +/* yy-mm-dd (may be used in some locales) */ +/* mm-dd-yy (US format) */ +/* mm-dd-yyyy (US format) */ +/* dd-mm-yy (European format) */ +/* dd-mm-yyyy (European format) */ +/* */ +/* yyyy-Mon-dd */ +/* Mon-dd-yy */ +/* Mon-dd-yyyy */ +/* dd-Mon-yyyy (European format) */ +/* */ +/* when date format may be ambiguous, the system is queried as to the */ +/* default field ordering, based on the current locale. for example, */ +/* 01-02-03 could be Jan 01 2003, 01 Feb 2003 or 2001 Feb 03. */ +/* */ +/* when date contains one 4-digit value, it is assumed to be a year. */ +/* this helps to unambiguate some values. */ +/* */ +/* date delimiter may be '-' or '/' */ +/* */ +/* time may or may not have a fraction and/or a timezone */ +/* */ +/* max number of fields possible: 9, consisting of: */ +/* date: 3 */ +/* time: 3 */ +/* fraction: 1 */ +/* timezone: 2 */ +/* */ +/************************************************************************/ + +static ST_RET getTsDateTime ( + ST_CHAR * /*I*/ in_buf, + _TS_DATETIME * /*IO*/ out_dt) + { + ST_INT32 maxfield = 10; + ST_INT32 numfields = 0; + ST_INT32 i; + ST_CHAR * buf; + ST_CHAR prevDelim = ' '; + ST_INT32 datefield; + ST_INT32 timefield; + DATETIME_FIELD dtf[10] = {{0}}; + _TS_DATETIME dt = {0}; + + + if ((in_buf == NULL) || (out_dt == NULL)) + { + return SD_FAILURE; /* bad parameters */ + } + + dt.order = out_dt->order; /* copy date-ordering option */ + + /* extract fields */ + /* prevDelim is set so that a '.' will allow the next field */ + /* to have 1 to 7 digits */ + + buf = in_buf; + + for (i=0; i < maxfield; i++) + { + buf = getDateTimeField (buf, prevDelim, &dtf[i]); + + if (buf != NULL) + { + prevDelim = dtf[i].delim; + numfields++; + + if (*buf == '(') + { + dt.pflags = buf; /* start of quality-flag field */ + break; + } + } + } /* for */ + + if (numfields < 5) + { + return SD_FAILURE; /* we were expecting year,mon,day,hour,min fields */ + } + + /* determine field order */ + + if ( (dtf[0].delim == '-') + && (dtf[1].delim == '-') ) + { + /* first field is date */ + /* example field layout: */ + + /* yyyy-mm-dd [T] hh:mm:ss[A] [.frac] [+hh:mm] */ + /* 0 1 2 3 4 5 6 7 8 */ + + if ( (dtf[2].delim != ' ') + && (dtf[2].delim != 'T') ) + { + return SD_FAILURE; /* bad delimiter */ + } + + datefield = 0; + timefield = 3; + } /* if - - found */ + + else if (dtf[0].delim == ':') + { + /* first field is time (T code would not be present) */ + /* example field layout: */ + + /* hh:mm:ss[A] [.frac] [Z|+hh:mm|-hh:mm] yyyy-mm-dd */ + /* 0 1 2 3 4 5 6 7 8 */ + + /* ensure we have a valid time format */ + /* mm must be followed by AM/PM code, :ss or space, not a '-' */ + + if ( (dtf[1].delim != ' ') + && (dtf[1].delim != ':') + && (dtf[1].delim != 'Z') + && (dtf[1].delim != '+') + && (dtf[1].delim != '-') + && (dtf[1].delim != 'A') + && (dtf[1].delim != 'P') ) + { + return SD_FAILURE; /* bad delimiter */ + } + + timefield = 0; + datefield = 0; + + /* find date field by looking for two '-' delimiters */ + /* if numfields == 9, then last field is at [8] */ + /* so we look for pairs up to [numfields-1] */ + + for (i = 2; i < numfields-1; i++) + { + if ( (dtf[i].delim == '-') + && (dtf[i+1].delim == '-') ) + { + datefield = i; + break; + } + } /* for */ + + if (datefield == 0) + { + return SD_FAILURE; /* cannot find date field */ + } + + } /* if : found */ + + else + { + return SD_FAILURE; /* cannot determine date-time vs. time-date */ + } + + /* populate dt structure with date and time values */ + + if (storeDateValue (&dtf[datefield], &dt) != SD_SUCCESS) + { + return SD_FAILURE; /* malformed date */ + } + + if (storeTimeValue (&dtf[timefield], &dt) != SD_SUCCESS) + { + return SD_FAILURE; /* malformed time */ + } + + *out_dt = dt; + + return SD_SUCCESS; + + } /* getTsDateTime */ + + +/************************************************************************/ +/* tstrStringToTm */ +/* parse a string containing a time and date value, and produce a */ +/* struct tm value. method: convert to _TS_DATEITIME via getTsDateTime */ +/* then convert result to struct tm. */ +/************************************************************************/ + +ST_RET tstrStringToTm (ST_CHAR *in_buf, struct tm *out_struct_tm) + { + _TS_DATETIME dt = {0}; + + struct tm w_struct_tm = {0}; + + if ((in_buf == NULL) || (out_struct_tm == NULL)) + { + return SD_FAILURE; /* bad parameters */ + } + + /* compatibility with old time_str.c requires month-day-year ordering */ + + dt.order = S_DATE_ORDER_MDY; + + if (getTsDateTime (in_buf, &dt) != SD_SUCCESS) + { + return SD_FAILURE; /* bad parameters */ + } + + /* convert the components to struct tm */ + + w_struct_tm.tm_year = dt.year - 1900; + w_struct_tm.tm_mon = dt.month - 1; + w_struct_tm.tm_mday = dt.day; + w_struct_tm.tm_hour = dt.hour; + w_struct_tm.tm_min = dt.min; + w_struct_tm.tm_sec = dt.sec; + w_struct_tm.tm_isdst = -1; /* let api determine DST */ + + usr_mkgmtime (&w_struct_tm); /* generate tm_wday, tm_yday */ + + /* we do not know if supplied date was GMT or not, so DST is uncertain */ + w_struct_tm.tm_isdst = -1; /* a reasonable default value */ + + *out_struct_tm = w_struct_tm; + + return SD_SUCCESS; + + } /* tstrStringToTm */ + + +/************************************************************************/ +/* tstrStringToTime */ +/* parse a string containing a time and date value, and produce a */ +/* time_t value. method: convert to struct tm via tstrStringToTm, */ +/* then convert result to time_t. */ +/************************************************************************/ + +ST_RET tstrStringToTime (ST_CHAR *in_buf, time_t *out_time_t) + { + time_t w_time_t; + struct tm w_struct_tm; + + if ((in_buf == NULL) || (out_time_t == NULL)) + { + return SD_FAILURE; /* bad parameters */ + } + + if (tstrStringToTm (in_buf, &w_struct_tm) != SD_SUCCESS) + { + return SD_FAILURE; /* parse failed */ + } + + w_time_t = mktime (&w_struct_tm); + + if (w_time_t == (time_t) -1) + { + return SD_FAILURE; + } + + *out_time_t = w_time_t; + return SD_SUCCESS; + + } /* tstrStringToTime */ + + +/************************************************************************/ +/* tstrStringToTimeGmt */ +/* time_t value. method: convert to struct tm via tstrStringToTm, */ +/* then convert result to time_t using usr_mkgmtime(). */ +/************************************************************************/ + +ST_RET tstrStringToTimeGmt (ST_CHAR *in_buf, time_t *out_time_t) + { + time_t w_time_t; + struct tm w_struct_tm; + + if ((in_buf == NULL) || (out_time_t == NULL)) + { + return SD_FAILURE; /* bad parameters */ + } + + if (tstrStringToTm (in_buf, &w_struct_tm) != SD_SUCCESS) + { + return SD_FAILURE; /* parse failed */ + } + + w_time_t = usr_mkgmtime (&w_struct_tm); + + if (w_time_t == (time_t) -1) + { + return SD_FAILURE; + } + + *out_time_t = w_time_t; + return SD_SUCCESS; + + } /* tstrStringToTimeGmt */ + + +/************************************************************************/ +/* tstrTmToString */ +/* Convert struct tm to string. */ +/************************************************************************/ + +ST_RET tstrTmToString (struct tm *t, ST_CHAR *dest) + { + ST_CHAR *timeFormatStr = "%m-%d-%Y %H:%M:%S"; + strftime (dest, 30, timeFormatStr, t); + return (SD_SUCCESS); + } + + +#if 0 +/* obsoleted code */ + +/************************************************************************/ +/* parseDateString */ +/************************************************************************/ + +/* parseDateString IS NO LONGER REFERENCED IN THIS CODE */ + +static ST_RET parseDateString (ST_CHAR *s, _TS_DATETIME *dt) + { +ST_CHAR *p; +ST_CHAR *d1; +ST_CHAR *d2; +ST_CHAR *d3; +int century; + + dt->dateFound = SD_TRUE; + + /* break into three substrings */ + d1 = s; + p = strpbrk (s,"-"); + *p = 0; + d2 = ++p; + p = strpbrk (d2,"-"); + if (!p) + return (SD_FAILURE); + *p = 0; + d3 = ++p; + + /* Now process each date sub-substring seperately */ + + /* Check for alpha month forms */ + if (isalpha (*d1)) + { + if (strToMonth (d1, &dt->month)) + return (SD_FAILURE); + if (!sscanf (d2, "%d", &dt->day)) + return (SD_FAILURE); + } + else if (isalpha (*d2)) + { + if (!sscanf (d1, "%d", &dt->day)) + return (SD_FAILURE); + if (strToMonth (d2, &dt->month)) + return (SD_FAILURE); + } + else /* Not an ALPHA month form */ + { + /* Numeric month is d1 */ + if (!sscanf (d1, "%d", &dt->month)) + return (SD_FAILURE); + --dt->month; /* we use 0-11 for month */ + + /* Numeric day is d2 */ + if (!sscanf (d2, "%d", &dt->day)) + return (SD_FAILURE); + } + + /* Numeric year is always d3 */ + if (!sscanf (d3, "%d", &dt->year)) + return (SD_FAILURE); + if (strlen (d3) == 2) + { + /* any year < 1984 is assumed to be in the 21st century */ + century = (dt->year < 84) ? 2000 : 1900; + dt->year += century; + } + return (SD_SUCCESS); + } + + +/* end of obsoleted code */ +#endif + + +#if 0 +/* obsoleted code */ + + +/************************************************************************/ +/* parseTimeString */ +/************************************************************************/ + +/* parseTimeString IS NO LONGER REFERENCED IN THIS CODE */ + +static ST_RET parseTimeString (ST_CHAR *s, _TS_DATETIME *dt) + { +int pm; +ST_CHAR *p, *t1, *t2, *t3; + + dt->timeFound = SD_TRUE; + + /* break into two substrings */ + p = strpbrk (s,":"); + t1 = s; /* hours are here */ + *p = 0; + t2 = ++p; /* minutes are here */ + if (!p) + return (SD_FAILURE); + + p = strpbrk (t2, ":"); + if (!p) + t3 = NULL; + else + { + *p = 0; + t3 = ++p; + } + + pm = SD_FALSE; + if (t3) + { + if (t3[2] == 'A' || t3[2] == 'a') + { + t3[2] = 0; + } + else if (t3[2] == 'P' || t3[2] == 'p') + { + pm = SD_TRUE; + t3[2] = 0; + } + } + + if (!sscanf (t1, "%d", &dt->hour)) + return (SD_FAILURE); + + if (!sscanf (t2, "%d", &dt->min)) + return (SD_FAILURE); + + if (t3) + sscanf (t3, "%d", &dt->sec); + else + dt->sec = 0; + + if (pm) + dt->hour += 12; + + return (SD_SUCCESS); + } + + +/* end of obsoleted code */ +#endif + + +/************************************************************************/ + +#if 0 +/* obsoleted code */ + +static ST_CHAR *monthStrings[12] = + { + "Jan", + "Feb", + "Mar", + "Apr", + "May", + "Jun", + "Jul", + "Aug", + "Sep", + "Oct", + "Nov", + "Dec" + }; + + +static ST_RET strToMonth (ST_CHAR *s, int *monthOut) + { +int i; + + for (i = 0; i < 12; ++i) + { + if (!stricmp (s, monthStrings[i])) + { + *monthOut = i; + return (SD_SUCCESS); + } + } + return (SD_FAILURE); + } + +#endif + + +/************************************************************************/ +/* Btime6 Conversion Routines: */ +/************************************************************************/ + +#define SEC_PER_MIN 60 +#define SEC_PER_HOUR (60 * SEC_PER_MIN) +#define SEC_PER_DAY (24 * SEC_PER_HOUR) +#define MSEC_PER_SEC 1000 + + +/************************************************************************/ +/* Btime6StringToVals: Receive string in BTIME_DEF_TIME_FORMAT+mSec */ +/* and return the number of days and msecs */ +/* since Jan 1, 1984 midnight */ +/* */ +/* format BTIME_DEF_TIME_FORMAT.mSec is 'mm-dd-yyyy hh:mm:ss.mmm' */ +/* NOTE: output values are NOT adjusted for timezone or DST */ +/* */ +/* method: parse string, capturing mSec. create time_t, and adjust */ +/* for difference in seconds between 1970-01-01 and 1984-01-01. */ +/************************************************************************/ + +ST_RET Btime6StringToVals (ST_CHAR *src, ST_INT32 *numDays, ST_INT32 *numMSec) + { + _TS_DATETIME dt = {0}; + struct tm w_struct_tm = {0}; + + time_t w_time_t; + time_t w_days; + time_t w_msec; + + if ((src == NULL) || (numDays == NULL) || (numMSec == NULL)) + { + return SD_FAILURE; /* bad parameters */ + } + + /* for Btime strings, month-day-year date ordering is required */ + + dt.order = S_DATE_ORDER_MDY; + + if (getTsDateTime (src, &dt) != SD_SUCCESS) + { + SLOGALWAYS1 ("Btime6StringToVals: Unable to parse Btime6 '%s'", src); + return SD_FAILURE; /* bad parameters */ + } + + /* convert the components to struct tm */ + + w_struct_tm.tm_year = dt.year - 1900; + w_struct_tm.tm_mon = dt.month - 1; + w_struct_tm.tm_mday = dt.day; + w_struct_tm.tm_hour = dt.hour; + w_struct_tm.tm_min = dt.min; + w_struct_tm.tm_sec = dt.sec; + w_struct_tm.tm_isdst = 0; /* BTime is GMT based */ + + w_time_t = usr_mkgmtime (&w_struct_tm); /* portable GMT-based mktime() */ + + if (w_time_t == (time_t) -1) + { + SLOGALWAYS1 ("Btime6StringToVals: Unable to convert '%s' to time_t", src); + return SD_FAILURE; + } + + /* adjust for diff between 1984 (Btime epoch) and 1970 (Unix time epoch) */ + /* this is a known constant amount, so we don't recalculate it each time */ + + w_time_t -= (time_t) S_SECS_DIFF_1984_1970; + + w_days = w_time_t / SEC_PER_DAY; + w_msec = (w_time_t % SEC_PER_DAY) * 1000; /* EJV CORR: the multiplication by 1000 was missing */ + + /* save the calculated time value */ + *numDays = (ST_UINT32) w_days; + *numMSec = (ST_UINT32) w_msec + (ST_UINT32) dt.mSec; + + return SD_SUCCESS; + + } /* Btime6StringToVals */ + + +/************************************************************************/ +/* Btime6ValsToString: Receive the number of days and msecs since */ +/* Jan 1, 1984 - midnight and return a string in */ +/* BTIME_DEF_TIME_FORMAT+mSec */ +/************************************************************************/ + +ST_RET Btime6ValsToString (char *dest, ST_INT32 numDays, ST_INT32 numMSec) + { +struct tm tmVal; +time_t tmRslt; +long numSeconds, balMSec; +char stash[MAX_TIME_STRING_LEN+1]; +ldiv_t divResult; +_TS_DATETIME dt; + + divResult = ldiv (numMSec, MSEC_PER_SEC); + numSeconds = divResult.quot; + balMSec = divResult.rem; + + divResult = ldiv (numSeconds, SEC_PER_DAY); + dt.day = divResult.quot + numDays; + numSeconds = divResult.rem; + + divResult = ldiv (numSeconds, SEC_PER_HOUR); + dt.hour = divResult.quot; + numSeconds = divResult.rem; + + divResult = ldiv (numSeconds, SEC_PER_MIN); + dt.min = divResult.quot; + numSeconds = divResult.rem; + + dt.sec = numSeconds; + + /* set up the struct tm */ + tmVal.tm_wday = 0; /* this is an output parameter */ + tmVal.tm_yday = 0; /* this is an output parameter */ + + tmVal.tm_year = 84; + tmVal.tm_mon = 0; + tmVal.tm_mday = dt.day+1; + tmVal.tm_hour = dt.hour; + tmVal.tm_min = dt.min; + tmVal.tm_sec = dt.sec; + tmVal.tm_isdst = -1; /* let function guess */ + tmRslt = mktime(&tmVal); + + if (tmRslt == (time_t) -1) + return (SD_FAILURE); + + /* now turn it into a string with out mSeconds */ + strftime (stash, MAX_TIME_STRING_LEN, BtimeTimeFormat, localtime (&tmRslt)); + + /* now append the mSeconds to the string */ + sprintf (dest, "%s.%03ld", stash, balMSec); + + return (SD_SUCCESS); + + } /* Btime6ValsToString */ + + +/************************************************************************/ +/* Btime4StringToVals: Receive string in BTIME_DEF_TIME_FORMAT.mSec */ +/* and return the number of msecs since midnight */ +/* format BTIME_DEF_TIME_FORMAT.mSec is 'mm-dd-yyyy hh:mm:ss.mmm' */ +/************************************************************************/ + +ST_RET Btime4StringToVals (char *src, ST_INT32 *numMSec) + { + _TS_DATETIME dt = {0}; + struct tm * p_struct_tm = {0}; + + time_t w_time_t; + ST_INT32 curDay; + ST_INT32 curMonth; + ST_INT32 curYear; + ST_INT32 totalMsec; + + + if ((src == NULL) || (numMSec == NULL)) + { + return SD_FAILURE; /* bad parameters */ + } + + /* get current time for validation of date */ + + w_time_t = time (NULL); + + if (w_time_t == (time_t) -1) + { + SLOGALWAYS0 ("Btime4StringToVals: Unable to obtain current time"); + return SD_FAILURE; /* normally should not occur */ + } + + /* current time is converted to a GMT-based struct tm */ + /* because the Btime6 version of this function calculates the offset */ + /* from 1984-01-01 GMT, so we use a GMT-based struct tm here to be */ + /* consistent. */ + + p_struct_tm = gmtime (&w_time_t); + + if (p_struct_tm == NULL) + { + SLOGALWAYS0 ( + "Btime4StringToVals: Unable to convert current time_t to struct tm"); + return SD_FAILURE; /* normally should not occur */ + } + + curYear = p_struct_tm->tm_year + 1900; + curMonth = p_struct_tm->tm_mon + 1; + curDay = p_struct_tm->tm_mday; + + /* for Btime strings, month-day-year date ordering is required */ + + dt.order = S_DATE_ORDER_MDY; + + if (getTsDateTime (src, &dt) != SD_SUCCESS) + { + SLOGALWAYS1 ("Btime4StringToVals: Unable to parse Btime4 '%s'", src); + return SD_FAILURE; /* bad parameters */ + } + + if ( (dt.year != curYear ) + || (dt.month != curMonth) + || (dt.day != curDay ) ) + { + SLOGALWAYS0 ("Btime4 Conversion Error: Input date must be today's date"); + return SD_FAILURE; + } + + /* get mSecs from hours/min/secs */ + + totalMsec = (dt.hour * SEC_PER_HOUR * MSEC_PER_SEC) + + (dt.min * SEC_PER_MIN * MSEC_PER_SEC) + + (dt.sec * MSEC_PER_SEC) + + (dt.mSec); + + /* ensure mSecs does not exceed num mSecs in a day. the count must not */ + /* equal ms/day either, otherwise it would be an offset to the next day */ + + if ( (totalMsec < 0) + || (totalMsec >= (SEC_PER_DAY * MSEC_PER_SEC)) ) + { + SLOGALWAYS1 ("Btime4 Conversion Error: Invalid millisecond count: %d", totalMsec); + return SD_FAILURE; + } + + *numMSec = totalMsec; + + return SD_SUCCESS; + + } /* Btime4StringToVals */ + + +/************************************************************************/ +/* Btime4ValsToString: Receive number of msecs since midnight and return*/ +/* string in BTIM_DEF_TIME_FORMAT.mSec */ +/************************************************************************/ + +ST_RET Btime4ValsToString (char *dest, ST_INT32 numMSec) + { +int curDay, curMonth, curYear; +struct tm tmVal, *curTime; +time_t tmRslt; +long numSeconds, balMSec; +char stash[MAX_TIME_STRING_LEN+1]; +ldiv_t divResult; +_TS_DATETIME dt; +time_t theTime; + + /* figure out todays date */ + theTime = time (NULL); + curTime = localtime (&theTime); + curDay = curTime->tm_mday; + curMonth = curTime->tm_mon; + curYear = curTime->tm_year; + + divResult = ldiv (numMSec, MSEC_PER_SEC); + numSeconds = divResult.quot; + balMSec = divResult.rem; + + divResult = ldiv (numSeconds, SEC_PER_HOUR); + dt.hour = divResult.quot; + numSeconds = divResult.rem; + + divResult = ldiv (numSeconds, SEC_PER_MIN); + dt.min = divResult.quot; + numSeconds = divResult.rem; + + dt.sec = numSeconds; + + /* set up the struct tm */ + tmVal.tm_wday = 0; /* this is an output parameter */ + tmVal.tm_yday = 0; /* this is an output parameter */ + + tmVal.tm_year = curYear; + tmVal.tm_mon = curMonth; + tmVal.tm_mday = curDay; + tmVal.tm_hour = dt.hour; + tmVal.tm_min = dt.min; + tmVal.tm_sec = dt.sec; + tmVal.tm_isdst = -1; /* let function guess */ + tmRslt = mktime(&tmVal); + + if (tmRslt == (time_t) -1) + return (SD_FAILURE); + + /* now turn it into a string with out mSeconds */ + strftime (stash, MAX_TIME_STRING_LEN, BtimeTimeFormat, localtime (&tmRslt)); + + /* now append the mSeconds to the string */ + sprintf (dest, "%s.%03ld", stash, balMSec); + + return (SD_SUCCESS); + } + + +#if 0 +/* obsoleted code */ + +/************************************************************************/ +/* parseBtimeString: parse HH:MM:SS:msec */ +/************************************************************************/ + +/* parseBtimeString IS NO LONGER REFERENCED IN THIS CODE */ + +static ST_RET parseBtimeString (char *s, _TS_DATETIME *dt) + { +char stash[MAX_TIME_STRING_LEN+1]; +char toFind[] = ":."; +char *token; +int count = 0; + + dt->timeFound = SD_TRUE; + + /* make a copy first */ + strcpy (stash, s); + + /* set default values */ + dt->hour = dt->min = dt->sec = dt->mSec = 0; + + /* do the token thing to separate the string */ + token = strtok (stash, toFind); + while (token != NULL) + { + switch (count) + { + case 0: + dt->hour = atoi (token); + break; + case 1: + dt->min = atoi (token); + break; + case 2: + dt->sec = atoi (token); + break; + case 3: + dt->mSec = atoi (token); + break; + } + count++; + /* get next token */ + token = strtok (NULL, toFind); + } + + return (SD_SUCCESS); + } + + +/* end of obsoleted code */ +#endif + + +/************************************************************************/ +/* validQualField */ +/* verify that a string contains a valid Quality field (qual=b,b,b,n) */ +/* there must be at least 3 bit flags present, and proper comma delims. */ +/* if valid, return number characterizing the field, else return 0. */ +/* then, create a buffer with the extracted flags and 'n' value, */ +/* with default values if trailing flags or ''n' value is omitted. */ +/************************************************************************/ + +static ST_INT32 validQualField ( + ST_CHAR * qual, + ST_CHAR * flagBuf) + { + ST_CHAR work[32]; + ST_INT32 i; + ST_INT32 digit = 0; + + if ((qual == NULL) | (flagBuf == NULL)) + { + return 0; + } + + /* (qual=1,2,3,n) */ + /* 0123456789012345 */ + /* 111111 */ + + strcpy (flagBuf, "00000"); /* create defaults */ + + /* make copy of string, modifying it to create a pattern to verify */ + + for (i=0; i < 24; i++) + { + if (qual[i] <= ' ') + { + break; + } + + else if (qual[i] == ')') + { + work[i++] = ')'; + break; + } + + else if (isdigit (qual[i])) + { + /* first 3 digits must be 0 or 1, rest is value 0 to 31 */ + digit++; + + if (digit <= 3) + { + if (qual[i] > '1') + { + return 0; /* char is digit but > '1', not a valid bit value */ + } + work[i] = '1'; /* '1' stands for '0' or '1' */ + } + + else /* digits after 3rd */ + { + work[i] = '9'; /* to check pattern */ + } + + } /* digit */ + + else + { + work[i] = (ST_CHAR) toupper (qual[i]); + } + + } /* for */ + + work[i] = 0; + + + if (strcmp (work, "(QUAL=1,1,1)") == 0) + { + flagBuf[0] = qual[6]; + flagBuf[1] = qual[8]; + flagBuf[2] = qual[10]; + return 3; + } + else if (strcmp (work, "(QUAL=1,1,1,9)") == 0) + { + flagBuf[0] = qual[6]; + flagBuf[1] = qual[8]; + flagBuf[2] = qual[10]; + flagBuf[3] = qual[12]; /* 1-digit 'n' value */ + flagBuf[4] = 0; /* shorten return value */ + + /* when 'n' value is 1-digit, any digit value is OK */ + return 4; + } + else if (strcmp (work, "(QUAL=1,1,1,99)") == 0) + { + ST_INT32 num; + + flagBuf[0] = qual[6]; + flagBuf[1] = qual[8]; + flagBuf[2] = qual[10]; + flagBuf[3] = qual[12]; /* 2-digit 'n' value */ + flagBuf[4] = qual[13]; + + /* when 'n' value is 1-digit, check for range 0 to 31 */ + /* the 'n' value is supposed to be a 5-bit value */ + + num = atoi (flagBuf + 3); + + if ((num < 0) || (num > 31)) + { + return 0; /* 'n' value is out of range */ + } + + return 6; + } + + + /* quality field was none of the above formats */ + + return 0; + + } /* validQualField */ + + +/************************************************************************/ +/* UTC Time Conversion Functions: */ +/* Format = YYYY-MM-DDThh:mm:ss.000000000Z(qual=b,b,b,b,n) */ +/************************************************************************/ +/* UtcStringToVals: */ +/************************************************************************/ + +ST_RET UtcStringToVals ( + ST_CHAR * src, + ST_UINT32 * pSecs, + ST_UINT32 * pFraction, + ST_UINT32 * pQflags) + { + _TS_DATETIME dt = {0}; + + struct tm w_struct_tm = {0}; + time_t w_time_t; + ST_CHAR * pflags; + ST_CHAR flagBuf[8]; + + ST_INT b0; + ST_INT b1; + ST_INT b2; + ST_INT bx; + + ST_DOUBLE decSecs; + ST_DOUBLE binSecs; + + + if ( (src == NULL) + || (pSecs == NULL) + || (pFraction == NULL) + || (pQflags == NULL) ) + { + SLOGALWAYS0 ("UtcStringToVals: NULL parameters"); + return SD_FAILURE; /* bad parameters */ + } + + /* for UTC time strings, date ordering is yyyy-mm-dd*/ + dt.order = S_DATE_ORDER_YMD; + dt.pflags = NULL; + + if (getTsDateTime (src, &dt) != SD_SUCCESS) + { + SLOGALWAYS1 ("UtcStringToVals: Unable to parse time '%s'", src); + return SD_FAILURE; /* bad parameters */ + } + + if (dt.zoneCode != 'Z') + { + SLOGALWAYS1 ("UtcStringToVals: GMT timezone code Z missing in '%s'", src); + return SD_FAILURE; + } + + pflags = dt.pflags; /* pointer to (qual string */ + + if (pflags == NULL) + { + /* quality fields were not present, assume they are all 0 */ + /* SLOGALWAYS1 ("UtcStringToVals: Missing quality in '%s'", src); */ + + *pQflags = 0; + } + else if (validQualField (pflags, flagBuf) < 3) /* not enough flags */ + { + SLOGALWAYS1 ("UtcStringToVals: Invalid quality in '%s'", src); + return SD_FAILURE; + } + else + { + /* flags are already validated as '0' or '1' char values, so AND to get */ + /* bit values, and shift into correct positions */ + + b0 = (flagBuf[0] & 1) << 7; + b1 = (flagBuf[1] & 1) << 6; + b2 = (flagBuf[2] & 1) << 5; + bx = atoi (flagBuf + 3); + + *pQflags = (b0 | b1 | b2 | bx); + } + + /* convert the components to struct tm */ + w_struct_tm.tm_year = dt.year - 1900; + w_struct_tm.tm_mon = dt.month - 1; + w_struct_tm.tm_mday = dt.day; + w_struct_tm.tm_hour = dt.hour; + w_struct_tm.tm_min = dt.min; + w_struct_tm.tm_sec = dt.sec; + w_struct_tm.tm_isdst = 0; + + w_time_t = usr_mkgmtime (&w_struct_tm); /* portable GMT-based mktime() */ + + if (w_time_t == (time_t) -1) + { + SLOGALWAYS1 ("UtcStringToVals: Unable to convert '%s' to time_t", src); + return SD_FAILURE; + } + + /* save the calculated time value */ + *pSecs = (ST_UINT32) w_time_t; + + /* set the decimal fraction of seconds */ + /* dt.nSec contains a count of nanoseconds */ + /* this must be converted to a 24-bit binary fraction of fractional time */ + + /* note: 0x1000000 == 16777216 */ + + /* form decimal fraction of 1 second from 0.0 to 0.999,999,999 */ + + /* 123456789 */ + decSecs = ((ST_DOUBLE) dt.nSec) / 1000000000.0; + + /* convert to binary fraction of 1 second from 0x0.0 to 0x0.FFFFFF */ + binSecs = (decSecs * 16777216.0) + 0.5; + + /* return int equivalent count to caller */ + *pFraction = (ST_UINT32) binSecs; + + return SD_SUCCESS; + + } /* UtcStringToVals */ + + +/************************************************************************/ +/* UtcValsToString: */ +/************************************************************************/ + +ST_RET UtcValsToString (char *dest, ST_UINT32 secs, ST_UINT32 fraction, + ST_UINT32 qflags) + { +ST_CHAR theDate[MAX_TIME_STRING_LEN]; +ST_CHAR theFraction[25]; +ST_CHAR theQual[25]; +ST_DOUBLE dFraction; +ST_CHAR *pFract; + +ST_CHAR b0, b1, b2; +ST_INT rest; + +time_t t = secs; +struct tm *pTm; + + /* get the date portion */ + + pTm = gmtime (&t); + + if (!pTm) + { + SLOGALWAYS0 ("UtcValsToString: conversion failure - invalid seconds."); + return SD_FAILURE; + } + + strftime (theDate, MAX_TIME_STRING_LEN, UTC_DEF_TIME_FORMAT, pTm); + + /* get the fraction portion */ + + dFraction = ((ST_DOUBLE) fraction / (ST_DOUBLE) 0x01000000); + sprintf (theFraction, " %#0.09f", dFraction); + pFract = strchr (theFraction, '.'); + + if (!pFract) + { + SLOGALWAYS1 ("UtcToString - unable to convert fraction %d", fraction); + return SD_FAILURE; + } + + /* get the qflags */ + + b0 = b1 = b2 = rest ='0'; + + if (qflags & 0x80) b0 = '1'; + if (qflags & 0x40) b1 = '1'; + if (qflags & 0x20) b2 = '1'; + rest = (qflags & 0x1F); + sprintf (theQual, "Z(qual=%c,%c,%c,%d)", b0, b1, b2, rest); + + /* put them together */ + sprintf (dest, "%s%s%s", theDate, pFract, theQual); + + return SD_SUCCESS; + } + + +/************************************************************************/ +/* XmlStringToUtcValue */ +/************************************************************************/ +/* An input time and date string is converted to the number of */ +/* seconds since 1/1/1970. */ +/* */ +/* Any of the following strings are valid input to this subroutine: */ +/* */ +/* "yyyy-mm-ddThh:mm:ss.fffff+/-hh:mm" */ +/* "yyyy-mm-ddThh:mm:ss+/-hh:mm" */ +/* */ +/* "yyyy-mm-ddThh:mm:ss.fffffZ" */ +/* "yyyy-mm-ddThh:mm:ssZ" */ +/* */ +/* "yyyy-mm-ddThh:mm:ss.fffff" */ +/* "yyyy-mm-ddThh:mm:ss" */ +/* */ +/* Note: */ +/* Decimal fraction for microseconds: .fffff */ +/* East time zone offset from GMT (Greenwich Mean Time): +hh:mm */ +/* West time zone offset from GMT (Greenwich Mean Time): -hh:mm */ +/* */ +/* */ +/* Output is stored in SX_DATE_TIME structure as: */ +/* */ +/* dateTime stored as number of seconds elapsed since */ +/* midnight (00:00:00) January 1, 1970, */ +/* UTC (Coordinated Universal Time), according */ +/* to the system clock */ +/* useMicroseconds indicates decimal fraction for seconds was */ +/* specified */ +/* microseconds specified decimal fraction of seconds stored as */ +/* microseconds */ +/* useTZ indicates a time zone offset is present */ +/* tz time zone offset specified as minutes */ +/* */ +/* Time zone offset "tz" and time zone presence "useTZ" will be */ +/* specified in output as follows: */ +/* */ +/* "yyyy-mm-ddThh:mm:ss.fffff+/-hh:mm" 'useTZ = SD_TRUE' */ +/* 'tz = +/-seconds' */ +/* "yyyy-mm-ddThh:mm:ss+/-hh:mm" 'useTZ = SD_TRUE' */ +/* 'tz = +/-seconds' */ +/* */ +/* "yyyy-mm-ddThh:mm:ss.fffffZ" 'useTZ = SD_TRUE' 'tz = 0' */ +/* "yyyy-mm-ddThh:mm:ssZ" 'useTZ = SD_TRUE' 'tz = 0' */ +/* */ +/* "yyyy-mm-ddThh:mm:ss.fffff" 'useTZ = SD_FALSE' 'tz ignored' */ +/* "yyyy-mm-ddThh:mm:ss" 'useTZ = SD_FALSE' 'tz ignored' */ +/* */ +/************************************************************************/ + +ST_RET XmlStringToUtcValue (ST_CHAR *in_buf, SX_DATE_TIME *sxDateTime) + { + _TS_DATETIME dt = {0}; + + struct tm w_struct_tm = {0}; + time_t w_time_t; /* local time in seconds */ + + + if ((in_buf == NULL) || (sxDateTime == NULL)) + { + SLOGALWAYS0 ("XmlStringToUtcValue: NULL parameters"); + return SD_FAILURE; /* bad parameters */ + } + + /* split up the string input from XML file so we can store */ + /* number of seconds, number of microseconds (decimal */ + /* fraction of seconds) and number of minutes in time zone */ + /* offset separately */ + + /* for XML time strings, date ordering is yyyy-mm-dd*/ + + dt.order = S_DATE_ORDER_YMD; + + if (getTsDateTime (in_buf, &dt) != SD_SUCCESS) + { + return SD_FAILURE; /* bad parameters */ + } + + /* convert the components to struct tm */ + + w_struct_tm.tm_year = dt.year - 1900; + w_struct_tm.tm_mon = dt.month - 1; + w_struct_tm.tm_mday = dt.day; + w_struct_tm.tm_hour = dt.hour; + w_struct_tm.tm_min = dt.min; + w_struct_tm.tm_sec = dt.sec; + + /* set the decimal fraction of seconds if present */ + + if (dt.uSec == 0) + { + sxDateTime->microseconds = 0; + sxDateTime->useMicroseconds = SD_FALSE; + } + + else + { + sxDateTime->microseconds = dt.uSec; + sxDateTime->useMicroseconds = SD_TRUE; + } + + /* get the time zone offset in minutes if present */ + + if (dt.zoneCode) /* '+', '-' or 'Z' present */ + { + sxDateTime->useTZ = SD_TRUE; + sxDateTime->tz = (dt.zoneHour * 60) + dt.zoneMin; + + if (dt.zoneCode == '-') + { + sxDateTime->tz = -sxDateTime->tz; + } + } + + else + { + sxDateTime->useTZ = SD_FALSE; + sxDateTime->tz = 0; + } + + /* calculate total seconds in UTC time so we can store it */ + /* as a number of seconds since 01/01/1970 */ + + if (sxDateTime->useTZ && sxDateTime->tz == 0) + { + w_struct_tm.tm_isdst = 0; + w_time_t = usr_mkgmtime (&w_struct_tm); /* portable GMT-based mktime() */ + } + + else + { + w_struct_tm.tm_isdst = -1; + w_time_t = mktime (&w_struct_tm); + } + + if (w_time_t == (time_t) -1) + { + SLOGALWAYS1 ("XmlStringToUtcValue: Unable to convert time '%s'", in_buf); + return SD_FAILURE; + } + + /* save the calculated time value */ + sxDateTime->dateTime = w_time_t; + + return SD_SUCCESS; + + } /* XmlStringToUtcValue */ + + +/************************************************************************/ +/* UtcValueToXmlString */ +/************************************************************************/ +/* The specified number of seconds since 1/1/1970 is converted to a */ +/* time and date string. */ +/* */ +/* Input is stored in "SX_DATE_TIME" as: */ +/* */ +/* dateTime stored as number of seconds elapsed since */ +/* midnight (00:00:00) January 1, 1970, */ +/* UTC (Coordinated Universal Time), according */ +/* to the system clock */ +/* useMicroseconds indicates decimal fraction of seconds was */ +/* specified */ +/* microseconds decimal fraction of seconds specified stored as */ +/* microseconds */ +/* useTZ indicates a time zone offset is present */ +/* tz time zone offset from GMT (Greenwich Mean Time) */ +/* specified as minutes */ +/* */ +/* Output string format will depend upon values present in the */ +/* "SX_DATE_TIME" structure as follows: */ +/* */ +/* 'useTZ = SD_TRUE' 'tz = nn..n' "yyyy-mm-ddThh:mm:ss.fffff+/-hh:mm" */ +/* 'useTZ = SD_TRUE' 'tz = nn..n' "yyyy-mm-ddThh:mm:ss+/-hh:mm" */ +/* */ +/* 'useTZ = SD_TRUE' 'tz = 0' "yyyy-mm-ddThh:mm:ss.fffffZ" */ +/* 'useTZ = SD_TRUE' 'tz = 0' "yyyy-mm-ddThh:mm:ssZ" */ +/* */ +/* 'useTZ = SD_FALSE' 'tz ignored' "yyyy-mm-ddThh:mm:ss.fffff" */ +/* 'useTZ = SD_FALSE' 'tz ignored' "yyyy-mm-ddThh:mm:ss" */ +/* */ +/************************************************************************/ + +ST_RET UtcValueToXmlString (ST_CHAR *dest, ST_UINT destLen, + SX_DATE_TIME *sxDateTime) + { +ST_CHAR theFraction[64], theTZ[64]; +ST_CHAR tzSign = '+'; +ST_INT tzValue; + +#define MAX_DATE_TIME_STR_LEN 32 /* longest output format: */ + /* "yyyy-mm-ddThh:mm:ss.fffff+/-hh:mm" */ + + if (destLen < MAX_DATE_TIME_STR_LEN) + { + SLOGALWAYS2 ("ERROR: Buffer %d bytes may be too small for XML string (min=%d)", + destLen, MAX_DATE_TIME_STR_LEN); + return (SD_FAILURE); + } + + /* get the date and time from the "dateTime" or + number of seconds from 1/1/1970 (UTC time) + stored in "sxDateTime" and place it in a + structure of type "tm" returned from the call + to "gmtime" as: + sec + min + hour + day of month + month + year + day of week + day of year */ + + /* from the data stored in the structure utilize + "strftime" to format a date and time string using + the following output format: + %Y is year with century as a decimal number + %m is month as a decimal number (01-12) + %d is day of month as a decimal number (01-31) + %H is hour in 24 hour format (00-23) + %M is minute as decimal number (00-59) + %S is second as decimal number (00-59) */ + + if (sxDateTime->useTZ && sxDateTime->tz == 0) + strftime (dest, destLen, "%Y-%m-%dT%H:%M:%S", gmtime (&sxDateTime->dateTime)); + else + strftime (dest, destLen, "%Y-%m-%dT%H:%M:%S", localtime (&sxDateTime->dateTime)); + + /* then get number of microseconds stored as an */ + /* "long" value in the "sxDateTime" structure and */ + /* format it as a string with a leading decimal point */ + + if (sxDateTime->useMicroseconds) + { + /* this code was merged from time_str2.c */ + /* number of microsecond digits changed from 5 to to 6 */ + + sprintf (theFraction, ".%06ld", sxDateTime->microseconds); + strcat (dest, theFraction); + } + + /* now get the number of minutes stored as an integer */ + /* for time zone offset and place it in a string */ + /* in the format of "+hh:mm" or "-hh:mm" */ + + if (sxDateTime->useTZ) + { + tzValue = sxDateTime->tz; + /* there are 1440 minutes in a day */ + /* if tzValue is outsize this value +/- it is invalid */ + /* if so, we don't know the correct zone but will default to zero */ + + /* we are allowing +/- 23:59 just to be tolerant, but usually only */ + /* only +/- 12 hours is actually used. */ + + if ((tzValue >= 1440) || (tzValue <= -1440)) + { + SLOGALWAYS1 ("ERROR: UtcValueToXmlString sxDateTime.tz value %d out of range", + sxDateTime->tz); + strcat (dest, "Z"); /* assume GMT in case our retcode is ignored */ + return SD_FAILURE; + } + + if (tzValue == 0) + /* output format: "yyyy-mm-ddThh:mm:ss.fffffZ" */ + strcat (dest, "Z"); + + else + { + /* output format: "yyyy-mm-ddThh:mm:ss.fffff+/-hh:mm" */ + + if (tzValue < 0) + { + tzSign = '-'; + tzValue = -tzValue; + } + + sprintf (theTZ, "%c%02d:%02d", tzSign, tzValue / 60, tzValue % 60); + strcat (dest, theTZ); + } + } + + return SD_SUCCESS; + } + + +/************************************************************************/ +/* CalculateTimeZoneOffset */ +/************************************************************************/ +/* Figures out the difference between UTC/GMT/Zulu time and */ +/* local time. */ +/* This difference can be used after the "mktime" */ +/* function is called. The "mktime" function returns local time */ +/* and to convert this time to a UTC time this calculated */ +/* adjustment must be added to the local time value returned */ +/* from "mktime". */ +/************************************************************************/ + +/* NOTE: this function may no longer be necessary */ + +ST_DOUBLE CalculateTimeZoneOffset (ST_VOID) + { +time_t currTime, local_t, utc_t; +struct tm *pJunkTm, localTm, utcTm; +ST_DOUBLE timeZoneAdjustment; + + currTime = time (NULL); /* get the current system time */ + pJunkTm = gmtime (&currTime); /* convert current time value in seconds to a structure */ + memcpy (&utcTm, pJunkTm, sizeof (utcTm)); /* save current UTC time */ + pJunkTm = localtime (&currTime); /* convert current time value and correct for local time zone */ + memcpy (&localTm, pJunkTm, sizeof (localTm)); /* save local UTC time */ + utc_t = mktime (&utcTm); /* convert UTC time to UTC seconds */ + local_t = mktime (&localTm); /* convert local time to UTC seconds */ + timeZoneAdjustment = difftime (local_t, utc_t); /* find the difference or time zone offset */ + + return (timeZoneAdjustment); + } + +/* this code was merged from time_str2.c */ + +/************************************************************************/ +/* GetTimeAndUsec */ +/************************************************************************/ +/* a function to supply current time as a time_t, and the number of */ +/* microseconds, in a single call. this will simplify the setting of */ +/* data structures such as DateTime which have both of these values. */ +/************************************************************************/ + +#if defined(_WIN32) || defined(linux) || defined(__QNX__) +time_t GetTimeAndUsec (long *usec) + { +#ifdef _WIN32 + struct _timeb tb; + _ftime (&tb); +#else + struct timeb tb; + ftime (&tb); +#endif + + if (usec != NULL) + { + *usec = ((long)tb.millitm) * 1000; + } + return tb.time; + } +#endif /* some platforms */ + + +/*****************************************************************************/ +/* usr_mkgmtime_isleap */ +/* return 1 if 'year' is a leap year, else return 0 */ +/*****************************************************************************/ + +static time_t usr_mkgmtime_isleap (time_t year) + { + if ((year < 0 ) || (year > 32767)) + { + return 0; /* assume invalid years are not leap years */ + } + + if ((year % 4000) == 0) + { + return 0; /* multiples of 4000 are not leap years */ + } + + if ((year % 400) == 0) + { + return 1; /* multiples of 400 are leap years */ + } + + if ((year % 100) == 0) + { + return 0; /* multiples of 100 are not leap years */ + } + + if ((year % 4) == 0) + { + return 1; /* multiples of 4 are leap years */ + } + + return 0; /* all others are not leap years */ + + } /* usr_mkgmtime_isleap */ + + +/*****************************************************************************/ +/* usr_mkgmtime_leap_year_days */ +/* return number leap-year days based on 'year' */ +/*****************************************************************************/ + +static time_t usr_mkgmtime_leap_year_days (time_t year) + { + /* number of 4000-year multiples */ + time_t n4000 = (year / (time_t) 4000); + + /* number of 400-year multiples in excess of 4000 */ + time_t n400 = (year % (time_t) 4000) / (time_t) 400; + + /* number of 100-year multiples in excess of 400 */ + time_t n100 = (year % (time_t) 400) / (time_t) 100; + + /* number of 4-year multiples in excess of 100 */ + time_t n4 = (year % (time_t) 100) / (time_t) 4; + + return + ( (time_t) 969 * n4000 ) + + ( (time_t) 97 * n400 ) + + ( (time_t) 24 * n100 ) + + ( (time_t) 1 * n4 ); + + } /* usr_mkgmtime_leap_year_days */ + + +/*****************************************************************************/ +/* usr_mkgmtime */ +/* a portable implementation of mkgmtime(), a GMT-based mktime() function. */ +/* */ +/* note: unlike typical system implementations of mktime(), this function */ +/* does NOT normalize the struct tm fields, which are required to be valid. */ +/* */ +/* for consistency, tm_isdst should be set to 0 upon entry (since GMT does */ +/* not use daylight savings time), but the function ignores this field. */ +/* (when tm_isdst is set to 0, the system mktime() api could be used to */ +/* normalize the input fields prior to calling usr_mkgmtime, if necessary.) */ +/* */ +/* the output fields tm_wday and tm_yday are correctly set upon exit when */ +/* the result time_t value is normal. */ +/* */ +/* upon error, a value of (time_t) (-1) is returned, and the output fields */ +/* tm_wday and tm_yday are not set in that case. detected errors are: NULL */ +/* pointer to the struct tm, date/time values out of valid range, and any */ +/* input that results in a negative time_t value. note that the range of */ +/* input values that could produce a negative time_t are dependent on the */ +/* datatype of time_t, which could be 32 or 64-bit, and signed or unsigned */ +/* on some platforms. */ +/*****************************************************************************/ + + +#define USR_MKGMTIME_BASE_DAY 719527 + + +time_t usr_mkgmtime ( + struct tm * t) + { + time_t w_time_t; + time_t this_year, this_mon, this_day, leap, max_day; + int wday; + + static int usr_mkgmtime_days_per_mon [13] = + { 0, + 31, /* JAN */ + 28, /* FEB */ + 31, /* MAR */ + 30, /* APR */ + 31, /* MAY */ + 30, /* JUN */ + 31, /* JUL */ + 31, /* AUG */ + 30, /* SEP */ + 31, /* OCT */ + 30, /* NOV */ + 31 /* DEC */ + }; + + /* offset from start of year for a given month. */ + /* to compensate for normal day numbers starting with 1, */ + /* we pre-subtract 1 to optimize the calculation. */ + + static int usr_mkgmtime_mon_offset [13] = + { 0, + 0-1, /* JAN */ /* so Jan 1 is day 0 */ + 31-1, /* FEB */ + 59-1, /* MAR */ + 90-1, /* APR */ + 120-1, /* MAY */ + 151-1, /* JUN */ + 181-1, /* JUL */ + 212-1, /* AUG */ + 243-1, /* SEP */ + 273-1, /* OCT */ + 304-1, /* NOV */ + 334-1 /* DEC */ + }; + + /* validate struct tm input values */ + + if (t == NULL) + { + return (time_t) (-1); + } + + this_year = t->tm_year + 1900; + this_mon = t->tm_mon + 1; + this_day = t->tm_mday; + + if ( (this_year < 1970) + || (this_mon < 1) + || (this_mon > 12) + || (this_day < 1) + || (t->tm_hour < 0) + || (t->tm_hour > 23) + || (t->tm_min < 0) + || (t->tm_min > 59) + || (t->tm_sec < 0) + || (t->tm_sec > 59) ) + { + return (time_t) (-1); + } + + leap = usr_mkgmtime_isleap (this_year); + max_day = usr_mkgmtime_days_per_mon[this_mon]; + + if (this_mon == (time_t) 2) + { + max_day += leap; + } + + if (this_day > max_day) + { + return (time_t) (-1); + } + + /* form number of days for given year. we start by determining number */ + /* of leap-year days in the years prior to current one */ + + w_time_t = (time_t) (((time_t) 365 * this_year) + + usr_mkgmtime_leap_year_days (this_year-1)); + + /* convert year/mon to days using month-offset table */ + + /* we must account for the fact that Jan 1 is day 0 of a year. */ + /* so, "day number" is one less than the number of days */ + /* by subtracting 1 from the day-offset of a given month */ + + /* however, since this value will be constant for a given month, */ + /* the offset table already applies the '-1' factor, to save time. */ + /* see the comments above for the table's definition. */ + + this_day += (time_t) usr_mkgmtime_mon_offset [this_mon]; + + if (this_mon > (time_t) 2) + { + this_day += leap; /* leap-year day's effect doesn't occur until March */ + } + + /* calculate base day of Jan 1 1970. 1970 was not a leap year, */ + /* so the number of leap-year days of 1970 is the same as 1969, */ + /* but to be consistent, we call the function using (1970-1). */ + /* since 1,970 years go from the (theoretical) year 0 to 1969, */ + /* the two parts of this equation are consistent. */ + + /* the following would calculate the base day value */ + + /* however, since the values are all constants, the same base day will be */ + /* produced each time. running the equation with these constants produces */ + /* the number 719527, which we use in order to save time. */ + + /* USR_MKGMTIME_BASE_DAY = (time_t) (1970 * 365) */ + /* + usr_mkgmtime_leap_year_days ((time_t) (1970-1)) */ + + w_time_t += (time_t) (this_day - ((time_t) USR_MKGMTIME_BASE_DAY)); + + /* create output fields: tm_wday and tm_yday */ + /* the unix epoch of 1970-01-01 was a Thursday, or tm_wday == 4, */ + + /* tm_wday: Day of week (0 ?6; Sunday = 0) */ + /* tm_yday: Day of year (0 ?365; January 1 = 0) */ + + wday = ((int) w_time_t + 4) % 7; + + w_time_t = (w_time_t * (time_t) 24) + (time_t) t->tm_hour; + w_time_t = (w_time_t * (time_t) 60) + (time_t) t->tm_min; + w_time_t = (w_time_t * (time_t) 60) + (time_t) t->tm_sec; + + if (w_time_t < (time_t) 0) + { + return (time_t) (-1); + } + + /* store output fields after time_t has been validated */ + + t->tm_wday = wday; + t->tm_yday = (int) this_day;; + + return w_time_t; + + } /* usr_mkgmtime */ diff --git a/pt61850netd_pqfe.pro b/pt61850netd_pqfe.pro index 9b6a893..726b62e 100644 --- a/pt61850netd_pqfe.pro +++ b/pt61850netd_pqfe.pro @@ -2,7 +2,7 @@ TEMPLATE = app TARGET = pt61850netd_pqfe DEPENDPATH += . -INCLUDEPATH += . ./source/include ./source/include/mmslite ./source/include/pg_inst ./source/include/curl ./source/include/oss_sdk ./source/include/roketmq +INCLUDEPATH += . ./source/include ./source/include/inc ./source/include/curl ./source/include/rocketmq QMAKE_ORIG_TARGET = $(TARGET) @@ -64,40 +64,28 @@ win32 { unix { include(fe_common.pri) + SOURCES += source/mms/event2.c + INCLUDEPATH += ./source/include/apr-linux + LIBS += -L/FeProject/lib LIBS += -L/FeProject/lib/pgodbc + DEFINES += DEBUG_SISCO VERSION = 1.0.0 - CONFIG(debug, debug|release) { - - } else { - - } LIBS += -lrt -lpthread - MMS_LIB_SUFFIX = _ld.a - LIBS += /FeProject/lib/mmslite/ositcps$$MMS_LIB_SUFFIX \ - /FeProject/lib/mmslite/mvl$$MMS_LIB_SUFFIX \ - /FeProject/lib/mmslite/mmsle$$MMS_LIB_SUFFIX \ - /FeProject/lib/mmslite/mmsl$$MMS_LIB_SUFFIX \ - /FeProject/lib/mmslite/asn1l$$MMS_LIB_SUFFIX \ - /FeProject/lib/mmslite/mem$$MMS_LIB_SUFFIX \ - /FeProject/lib/mmslite/slog$$MMS_LIB_SUFFIX \ - /FeProject/lib/mmslite/util$$MMS_LIB_SUFFIX \ - /FeProject/lib/mmslite/ssec0$$MMS_LIB_SUFFIX \ - /FeProject/lib/pgodbc/psqlodbc.so \ - /FeProject/lib/libcurl.so \ - /FeProject/lib/liboss_c_sdk.so.3.0.0 \ - /FeProject/lib/libmxml.so \ - /FeProject/lib/librocketmq.so \ - /FeProject/lib/libhttprun.so \ - /FeProject/lib/liblog4cplus.so - LIBS += -lapr-1 -laprutil-1 -ljclite - LIBS += -lrdkafka++ - LIBS += -lhttprun - LIBS += -llog4cplus + + LIBS += ./lib/libmmslib.a + + LIBS += ./lib/libcurl.so \ + ./lib/libmxml.so \ + ./lib/librocketmq.so \ + ./lib/libhttprun.so \ + ./lib/liblog4cplus.so + LIBS += -lapr-1 -laprutil-1 -ljclite + LIBS += -lrdkafka++ } #install @@ -156,11 +144,11 @@ SOURCES += source/mms/main.c \ source/json/kafka_producer.cpp \ source/json/create_json.cpp \ source/json/cjson.c \ - source/cfg_parse/oss_aliyun.cpp \ - source/cfg_parse/obs_huaweiyun.cpp \ - source/cfg_parse/datahub.cpp \ +# source/cfg_parse/oss_aliyun.cpp \ +# source/cfg_parse/obs_huaweiyun.cpp \ +# source/cfg_parse/datahub.cpp \ source/cfg_parse/nacos.cpp \ source/cfg_parse/base64.cpp \ - source/cfg_parse/uds_huaweiyun.cpp \ +# source/cfg_parse/uds_huaweiyun.cpp \ source/cfg_parse/SimpleProducer.cpp \ source/cfg_parse/log4.cpp